gpsim-0.27.0/0000775000076400007640000000000012210742357007735 500000000000000gpsim-0.27.0/config.h.in0000644000076400007640000001506112205237301011671 00000000000000/* config.h.in. Generated from configure.ac by autoheader. */ /* Define to one of `_getb67', `GETB67', `getb67' for Cray-2 and Cray-YMP systems. This function is required for `alloca.c' support on those systems. */ #undef CRAY_STACKSEG_END /* Define to 1 if using `alloca.c'. */ #undef C_ALLOCA /* gtk version */ #undef GTK_VERSION /* Define to 1 if you have `alloca', as a function or macro. */ #undef HAVE_ALLOCA /* Define to 1 if you have and it should be used (not on Ultrix). */ #undef HAVE_ALLOCA_H /* Define to 1 if you have the header file. */ #undef HAVE_DLFCN_H /* Define if your host uses a DOS based file system. */ #undef HAVE_DOS_BASED_FILE_SYSTEM /* Define to 1 if you have the header file. */ #undef HAVE_FCNTL_H /* Define to 1 if you have the `floor' function. */ #undef HAVE_FLOOR /* Define to 1 if you have the `gethostbyname' function. */ #undef HAVE_GETHOSTBYNAME /* Define to 1 if you have the `gethostname' function. */ #undef HAVE_GETHOSTNAME /* Define to 1 if you have the `gettimeofday' function. */ #undef HAVE_GETTIMEOFDAY /* True if GUI is being used */ #undef HAVE_GUI /* Define to 1 if you have the header file. */ #undef HAVE_INTTYPES_H /* Define to 1 if you have the `popt' library (-lpopt). */ #undef HAVE_LIBPOPT /* Readline */ #undef HAVE_LIBREADLINE /* Define to 1 if your system has a GNU libc compatible `malloc' function, and to 0 otherwise. */ #undef HAVE_MALLOC /* Define to 1 if you have the header file. */ #undef HAVE_MEMORY_H /* Define to 1 if you have the `memset' function. */ #undef HAVE_MEMSET /* Define to 1 if you have the header file. */ #undef HAVE_NETDB_H /* Define to 1 if you have the header file. */ #undef HAVE_NETINET_IN_H /* Define to 1 if you have the `pow' function. */ #undef HAVE_POW /* Define to 1 if your system has a GNU libc compatible `realloc' function, and to 0 otherwise. */ #undef HAVE_REALLOC /* Define to 1 if you have the `select' function. */ #undef HAVE_SELECT /* Define to 1 if you have the `socket' function. */ #undef HAVE_SOCKET /* True if gpsim socket interface is being used */ #undef HAVE_SOCKETS /* Define to 1 if you have the `sqrt' function. */ #undef HAVE_SQRT /* Define to 1 if stdbool.h conforms to C99. */ #undef HAVE_STDBOOL_H /* Define to 1 if you have the header file. */ #undef HAVE_STDDEF_H /* Define to 1 if you have the header file. */ #undef HAVE_STDINT_H /* Define to 1 if you have the header file. */ #undef HAVE_STDLIB_H /* Define to 1 if you have the `strcasecmp' function. */ #undef HAVE_STRCASECMP /* Define to 1 if you have the `strchr' function. */ #undef HAVE_STRCHR /* Define to 1 if you have the `strdup' function. */ #undef HAVE_STRDUP /* Define to 1 if you have the `strerror' function. */ #undef HAVE_STRERROR /* Define to 1 if you have the header file. */ #undef HAVE_STRINGS_H /* Define to 1 if you have the header file. */ #undef HAVE_STRING_H /* Define to 1 if you have the `strncasecmp' function. */ #undef HAVE_STRNCASECMP /* Define to 1 if you have the `strndup' function. */ #undef HAVE_STRNDUP /* Define to 1 if you have the `strpbrk' function. */ #undef HAVE_STRPBRK /* Define to 1 if you have the `strrchr' function. */ #undef HAVE_STRRCHR /* Define to 1 if you have the `strstr' function. */ #undef HAVE_STRSTR /* Define to 1 if you have the `strtoul' function. */ #undef HAVE_STRTOUL /* Define to 1 if you have the header file. */ #undef HAVE_SYS_FILE_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_IOCTL_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_SELECT_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_SOCKET_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_STAT_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_TIME_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_TYPES_H /* Define to 1 if you have the header file. */ #undef HAVE_TERMIOS_H /* Define to 1 if you have the header file. */ #undef HAVE_UNISTD_H /* Define to 1 if the system has the type `_Bool'. */ #undef HAVE__BOOL /* Define to the sub-directory in which libtool stores uninstalled libraries. */ #undef LT_OBJDIR /* Name of package */ #undef PACKAGE /* Define to the address where bug reports for this package should be sent. */ #undef PACKAGE_BUGREPORT /* Define to the full name of this package. */ #undef PACKAGE_NAME /* Define to the full name and version of this package. */ #undef PACKAGE_STRING /* Define to the one symbol short name of this package. */ #undef PACKAGE_TARNAME /* Define to the home page for this package. */ #undef PACKAGE_URL /* Define to the version of this package. */ #undef PACKAGE_VERSION /* printf modifier define for GINT64 */ #undef PRINTF_GINT64_MODIFIER /* printf modifier define for long long */ #undef PRINTF_INT64_MODIFIER /* Define as the return type of signal handlers (`int' or `void'). */ #undef RETSIGTYPE /* Define to the type of arg 1 for `select'. */ #undef SELECT_TYPE_ARG1 /* Define to the type of args 2, 3 and 4 for `select'. */ #undef SELECT_TYPE_ARG234 /* Define to the type of arg 5 for `select'. */ #undef SELECT_TYPE_ARG5 /* The size of `long', as computed by sizeof. */ #undef SIZEOF_LONG /* If using the C implementation of alloca, define if you know the direction of stack growth for your system; otherwise it will be automatically deduced at runtime. STACK_DIRECTION > 0 => grows toward higher addresses STACK_DIRECTION < 0 => grows toward lower addresses STACK_DIRECTION = 0 => direction of growth unknown */ #undef STACK_DIRECTION /* Define to 1 if you have the ANSI C header files. */ #undef STDC_HEADERS /* Define to 1 if you can safely include both and . */ #undef TIME_WITH_SYS_TIME /* Version number of package */ #undef VERSION /* Define to 1 if `lex' declares `yytext' as a `char *' by default, not a `char[]'. */ #undef YYTEXT_POINTER /* Define to empty if `const' does not conform to ANSI C. */ #undef const /* Define to `__inline__' or `__inline' if that's what the C compiler calls it, or to nothing if 'inline' is not supported under any name. */ #ifndef __cplusplus #undef inline #endif /* Define to rpl_malloc if the replacement function should be used. */ #undef malloc /* Define to rpl_realloc if the replacement function should be used. */ #undef realloc /* Define to `unsigned int' if does not define. */ #undef size_t gpsim-0.27.0/install-sh0000755000076400007640000003325512157551763011700 00000000000000#!/bin/sh # install - install a program, script, or datafile scriptversion=2011-11-20.07; # UTC # This originates from X11R5 (mit/util/scripts/install.sh), which was # later released in X11R6 (xc/config/util/install.sh) with the # following copyright and license. # # Copyright (C) 1994 X Consortium # # Permission is hereby granted, free of charge, to any person obtaining a copy # of this software and associated documentation files (the "Software"), to # deal in the Software without restriction, including without limitation the # rights to use, copy, modify, merge, publish, distribute, sublicense, and/or # sell copies of the Software, and to permit persons to whom the Software is # furnished to do so, subject to the following conditions: # # The above copyright notice and this permission notice shall be included in # all copies or substantial portions of the Software. # # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE # X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN # AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC- # TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. # # Except as contained in this notice, the name of the X Consortium shall not # be used in advertising or otherwise to promote the sale, use or other deal- # ings in this Software without prior written authorization from the X Consor- # tium. # # # FSF changes to this file are in the public domain. # # 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. nl=' ' IFS=" "" $nl" # set DOITPROG to echo to test this script # Don't use :- since 4.3BSD and earlier shells don't like it. doit=${DOITPROG-} if test -z "$doit"; then doit_exec=exec else doit_exec=$doit fi # Put in absolute file names if you don't have them in your path; # or use environment vars. chgrpprog=${CHGRPPROG-chgrp} chmodprog=${CHMODPROG-chmod} chownprog=${CHOWNPROG-chown} cmpprog=${CMPPROG-cmp} cpprog=${CPPROG-cp} mkdirprog=${MKDIRPROG-mkdir} mvprog=${MVPROG-mv} rmprog=${RMPROG-rm} stripprog=${STRIPPROG-strip} posix_glob='?' initialize_posix_glob=' test "$posix_glob" != "?" || { if (set -f) 2>/dev/null; then posix_glob= else posix_glob=: fi } ' posix_mkdir= # Desired mode of installed file. mode=0755 chgrpcmd= chmodcmd=$chmodprog chowncmd= mvcmd=$mvprog rmcmd="$rmprog -f" stripcmd= src= dst= dir_arg= dst_arg= copy_on_change=false no_target_directory= usage="\ Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE or: $0 [OPTION]... SRCFILES... DIRECTORY or: $0 [OPTION]... -t DIRECTORY SRCFILES... or: $0 [OPTION]... -d DIRECTORIES... In the 1st form, copy SRCFILE to DSTFILE. In the 2nd and 3rd, copy all SRCFILES to DIRECTORY. In the 4th, create DIRECTORIES. Options: --help display this help and exit. --version display version info and exit. -c (ignored) -C install only if different (preserve the last data modification time) -d create directories instead of installing files. -g GROUP $chgrpprog installed files to GROUP. -m MODE $chmodprog installed files to MODE. -o USER $chownprog installed files to USER. -s $stripprog installed files. -t DIRECTORY install into DIRECTORY. -T report an error if DSTFILE is a directory. Environment variables override the default commands: CHGRPPROG CHMODPROG CHOWNPROG CMPPROG CPPROG MKDIRPROG MVPROG RMPROG STRIPPROG " while test $# -ne 0; do case $1 in -c) ;; -C) copy_on_change=true;; -d) dir_arg=true;; -g) chgrpcmd="$chgrpprog $2" shift;; --help) echo "$usage"; exit $?;; -m) mode=$2 case $mode in *' '* | *' '* | *' '* | *'*'* | *'?'* | *'['*) echo "$0: invalid mode: $mode" >&2 exit 1;; esac shift;; -o) chowncmd="$chownprog $2" shift;; -s) stripcmd=$stripprog;; -t) dst_arg=$2 # Protect names problematic for 'test' and other utilities. case $dst_arg in -* | [=\(\)!]) dst_arg=./$dst_arg;; esac shift;; -T) no_target_directory=true;; --version) echo "$0 $scriptversion"; exit $?;; --) shift break;; -*) echo "$0: invalid option: $1" >&2 exit 1;; *) break;; esac shift done if test $# -ne 0 && test -z "$dir_arg$dst_arg"; then # When -d is used, all remaining arguments are directories to create. # When -t is used, the destination is already specified. # Otherwise, the last argument is the destination. Remove it from $@. for arg do if test -n "$dst_arg"; then # $@ is not empty: it contains at least $arg. set fnord "$@" "$dst_arg" shift # fnord fi shift # arg dst_arg=$arg # Protect names problematic for 'test' and other utilities. case $dst_arg in -* | [=\(\)!]) dst_arg=./$dst_arg;; esac done fi if test $# -eq 0; then if test -z "$dir_arg"; then echo "$0: no input file specified." >&2 exit 1 fi # It's OK to call 'install-sh -d' without argument. # This can happen when creating conditional directories. exit 0 fi if test -z "$dir_arg"; then do_exit='(exit $ret); exit $ret' trap "ret=129; $do_exit" 1 trap "ret=130; $do_exit" 2 trap "ret=141; $do_exit" 13 trap "ret=143; $do_exit" 15 # Set umask so as not to create temps with too-generous modes. # However, 'strip' requires both read and write access to temps. case $mode in # Optimize common cases. *644) cp_umask=133;; *755) cp_umask=22;; *[0-7]) if test -z "$stripcmd"; then u_plus_rw= else u_plus_rw='% 200' fi cp_umask=`expr '(' 777 - $mode % 1000 ')' $u_plus_rw`;; *) if test -z "$stripcmd"; then u_plus_rw= else u_plus_rw=,u+rw fi cp_umask=$mode$u_plus_rw;; esac fi for src do # Protect names problematic for 'test' and other utilities. case $src in -* | [=\(\)!]) src=./$src;; esac if test -n "$dir_arg"; then dst=$src dstdir=$dst test -d "$dstdir" dstdir_status=$? else # Waiting for this to be detected by the "$cpprog $src $dsttmp" command # might cause directories to be created, which would be especially bad # if $src (and thus $dsttmp) contains '*'. if test ! -f "$src" && test ! -d "$src"; then echo "$0: $src does not exist." >&2 exit 1 fi if test -z "$dst_arg"; then echo "$0: no destination specified." >&2 exit 1 fi dst=$dst_arg # If destination is a directory, append the input filename; won't work # if double slashes aren't ignored. if test -d "$dst"; then if test -n "$no_target_directory"; then echo "$0: $dst_arg: Is a directory" >&2 exit 1 fi dstdir=$dst dst=$dstdir/`basename "$src"` dstdir_status=0 else # Prefer dirname, but fall back on a substitute if dirname fails. dstdir=` (dirname "$dst") 2>/dev/null || expr X"$dst" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$dst" : 'X\(//\)[^/]' \| \ X"$dst" : 'X\(//\)$' \| \ X"$dst" : 'X\(/\)' \| . 2>/dev/null || echo X"$dst" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q' ` test -d "$dstdir" dstdir_status=$? fi fi obsolete_mkdir_used=false if test $dstdir_status != 0; then case $posix_mkdir in '') # Create intermediate dirs using mode 755 as modified by the umask. # This is like FreeBSD 'install' as of 1997-10-28. umask=`umask` case $stripcmd.$umask in # Optimize common cases. *[2367][2367]) mkdir_umask=$umask;; .*0[02][02] | .[02][02] | .[02]) mkdir_umask=22;; *[0-7]) mkdir_umask=`expr $umask + 22 \ - $umask % 100 % 40 + $umask % 20 \ - $umask % 10 % 4 + $umask % 2 `;; *) mkdir_umask=$umask,go-w;; esac # With -d, create the new directory with the user-specified mode. # Otherwise, rely on $mkdir_umask. if test -n "$dir_arg"; then mkdir_mode=-m$mode else mkdir_mode= fi posix_mkdir=false case $umask in *[123567][0-7][0-7]) # POSIX mkdir -p sets u+wx bits regardless of umask, which # is incompatible with FreeBSD 'install' when (umask & 300) != 0. ;; *) tmpdir=${TMPDIR-/tmp}/ins$RANDOM-$$ trap 'ret=$?; rmdir "$tmpdir/d" "$tmpdir" 2>/dev/null; exit $ret' 0 if (umask $mkdir_umask && exec $mkdirprog $mkdir_mode -p -- "$tmpdir/d") >/dev/null 2>&1 then if test -z "$dir_arg" || { # Check for POSIX incompatibilities with -m. # HP-UX 11.23 and IRIX 6.5 mkdir -m -p sets group- or # other-writable bit of parent directory when it shouldn't. # FreeBSD 6.1 mkdir -m -p sets mode of existing directory. ls_ld_tmpdir=`ls -ld "$tmpdir"` case $ls_ld_tmpdir in d????-?r-*) different_mode=700;; d????-?--*) different_mode=755;; *) false;; esac && $mkdirprog -m$different_mode -p -- "$tmpdir" && { ls_ld_tmpdir_1=`ls -ld "$tmpdir"` test "$ls_ld_tmpdir" = "$ls_ld_tmpdir_1" } } then posix_mkdir=: fi rmdir "$tmpdir/d" "$tmpdir" else # Remove any dirs left behind by ancient mkdir implementations. rmdir ./$mkdir_mode ./-p ./-- 2>/dev/null fi trap '' 0;; esac;; esac if $posix_mkdir && ( umask $mkdir_umask && $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir" ) then : else # The umask is ridiculous, or mkdir does not conform to POSIX, # or it failed possibly due to a race condition. Create the # directory the slow way, step by step, checking for races as we go. case $dstdir in /*) prefix='/';; [-=\(\)!]*) prefix='./';; *) prefix='';; esac eval "$initialize_posix_glob" oIFS=$IFS IFS=/ $posix_glob set -f set fnord $dstdir shift $posix_glob set +f IFS=$oIFS prefixes= for d do test X"$d" = X && continue prefix=$prefix$d if test -d "$prefix"; then prefixes= else if $posix_mkdir; then (umask=$mkdir_umask && $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir") && break # Don't fail if two instances are running concurrently. test -d "$prefix" || exit 1 else case $prefix in *\'*) qprefix=`echo "$prefix" | sed "s/'/'\\\\\\\\''/g"`;; *) qprefix=$prefix;; esac prefixes="$prefixes '$qprefix'" fi fi prefix=$prefix/ done if test -n "$prefixes"; then # Don't fail if two instances are running concurrently. (umask $mkdir_umask && eval "\$doit_exec \$mkdirprog $prefixes") || test -d "$dstdir" || exit 1 obsolete_mkdir_used=true fi fi fi if test -n "$dir_arg"; then { test -z "$chowncmd" || $doit $chowncmd "$dst"; } && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } && { test "$obsolete_mkdir_used$chowncmd$chgrpcmd" = false || test -z "$chmodcmd" || $doit $chmodcmd $mode "$dst"; } || exit 1 else # Make a couple of temp file names in the proper directory. dsttmp=$dstdir/_inst.$$_ rmtmp=$dstdir/_rm.$$_ # Trap to clean up those temp files at exit. trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0 # Copy the file name to the temp name. (umask $cp_umask && $doit_exec $cpprog "$src" "$dsttmp") && # 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 $cpprog $src $dsttmp" command. # { test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } && { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } && { test -z "$chmodcmd" || $doit $chmodcmd $mode "$dsttmp"; } && # If -C, don't bother to copy if it wouldn't change the file. if $copy_on_change && old=`LC_ALL=C ls -dlL "$dst" 2>/dev/null` && new=`LC_ALL=C ls -dlL "$dsttmp" 2>/dev/null` && eval "$initialize_posix_glob" && $posix_glob set -f && set X $old && old=:$2:$4:$5:$6 && set X $new && new=:$2:$4:$5:$6 && $posix_glob set +f && test "$old" = "$new" && $cmpprog "$dst" "$dsttmp" >/dev/null 2>&1 then rm -f "$dsttmp" else # Rename the file to the real destination. $doit $mvcmd -f "$dsttmp" "$dst" 2>/dev/null || # The rename failed, perhaps because mv can't rename something else # to itself, or perhaps because mv is so ancient that it does not # support -f. { # Now remove or move aside any old file at destination location. # We try this two ways since rm can't unlink itself on some # systems and the destination file might be busy for other # reasons. In this case, the final cleanup might fail but the new # file should still install successfully. { test ! -f "$dst" || $doit $rmcmd -f "$dst" 2>/dev/null || { $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null && { $doit $rmcmd -f "$rmtmp" 2>/dev/null; :; } } || { echo "$0: cannot unlink or rename $dst" >&2 (exit 1); exit 1 } } && # Now rename the file to the real destination. $doit $mvcmd "$dsttmp" "$dst" } fi || exit 1 trap '' 0 fi done # Local variables: # 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: gpsim-0.27.0/gpsim/0000775000076400007640000000000012210742353011050 500000000000000gpsim-0.27.0/gpsim/main.cc0000664000076400007640000002724412201276456012242 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ // Portions of this files are (C) by Ian King: /* picdis.c - pic disassembler */ /* version 0.1 */ /* (c) I.King 1994 */ #include #include #include #include #include #include using namespace std; #include "../config.h" #include "../cli/input.h" #include "../src/interface.h" #include "../src/gpsim_interface.h" #include "../src/fopen-path.h" #include "../src/breakpoints.h" #include "../cli/ui_gpsim.h" int quit_state; extern "C" { #include } extern int gui_init (int argc, char **argv); extern void gui_main(void); extern void cli_main(void); // os_dependent.cc' extern void AddModulePathFromFilePath(char *arg); void initialize_gpsim(); int parse_string(const char *cmd_string); extern void initialize_commands(); extern int yydebug; extern int quit_parse; extern int abort_gpsim; #if _DEBUG char szBuild[] = "Debug"; #else char szBuild[] = "Release"; #endif void gpsim_version(void) { printf("%s %s\n", szBuild, VERSION); } // from ui_gpsim.cc void initialize_ConsoleUI(); #define FILE_STRING_LENGTH 50 //---------------------------------------------------------- // Here are the variables that popt (the command line invocation parsing // library) will assign values to: static const char *startup_name = ""; static const char *include_startup_name = ""; static const char *processor_name = ""; static const char *cod_name = ""; static const char *hex_name = ""; static const char *search_path = ""; static const char *icd_port = ""; static const char *defineSymbol = ""; static const char *sExitOn = ""; static const char *sourceEnabled = ""; #define POPT_MYEXAMPLES { NULL, '\0', POPT_ARG_INCLUDE_TABLE, poptHelpOptions, \ 0, "Examples:\n\ gpsim myprog.cod <-- loads a symbol file\n\ gpsim -p p16f877 myprog.hex <-- select processor and load hex\n\ gpsim myscript.stc <-- loads a script\n\ \nHelp options:", NULL }, //------------------------------------------------------------------------ // see popt documentation about how the poptOption structure is defined. // In general, we define legal invocation arguments in this structure. // Both the long name (like --processor) and the short name (like -p) // are defined. The popt library will assign values to variables if // a pointer to a variable is supplied. Some options like the 'echo' // option have no associated varaible. After the variable name, the // poptOption structure contains a 'val' field. If this is 0 then popt // will assign an option to a variable when poptGetNextOpt is called. // Otherwise, poptGetNextOpt will return the value of 'val' and allow // gpsim to interpret and further parse the option. struct poptOption optionsTable[] = { // { "help", 'h', 0, 0, 'h', // "this help list" }, { "processor", 'p', POPT_ARG_STRING, &processor_name, 0, "processor (e.g. -pp16c84 for the 'c84)","" }, { "command", 'c', POPT_ARG_STRING, &startup_name, 0, "startup command file (-c optional)",0 }, { "symbol", 's', POPT_ARG_STRING, &cod_name, 0, ".cod symbol file (-s optional)",0 } , { "sourcepath", 'L',POPT_ARG_STRING, &search_path, 'L', "colon separated list of directories to search.", 0}, { "include", 'I',POPT_ARG_STRING, &include_startup_name, 0, "startup command file - does not change directories", 0}, { "version",'v',0,0,'v', "gpsim version",0}, { "echo",'E',POPT_ARG_NONE,0,'E', "Echo lines from a command file to the console.",0}, { "cli",'i',POPT_ARG_NONE,0,'i', "command line mode only",0}, { "source",'S',POPT_ARG_STRING,&sourceEnabled,'S', "'enable' or 'disable' the loading of source code. Default is 'enable'. " "Useful for running faster regression tests.",0}, { "icd", 'd',POPT_ARG_STRING, &icd_port, 0, "use ICD (e.g. -d /dev/ttyS0).",0 }, { "define",'D',POPT_ARG_STRING, &defineSymbol,'D', "define symbol with value that is added to the gpsim symbol table. " "Define any number of symbols.",0}, { "exit", 'e',POPT_ARG_STRING, &sExitOn, 'e', "Causes gpsim to auto exit on a condition. Specifying onbreak will cause " "gpsim to exit when the simulation halts, but not until after the current " "command script completes.",0 }, POPT_MYEXAMPLES POPT_TABLEEND }; // copied the format of this from the popt.h include file: void helpme (char *iam) { printf ("\n\nuseage:\n%s [-h] [[-p []] | [[-s] ]] [[-c] ]\n", iam); printf ("\t-h : this help list\n"); printf ("\t-p : processor (e.g. -pp16c84 for the 'c84)\n"); printf ("\t : input file in \"intelhex16\" format\n"); printf ("\t-c : startup command file (-c optional)\n"); printf ("\t-s : .cod symbol file (-s optional)\n"); printf ("\t-L : colon separated list of directories to search.\n"); printf ("\t-d : Use ICD with serial port \n"); printf ("\t-D = : Define a symbol that will exist in the gpsim\n" "\t symbol table\n You may define any number.\n"); printf ("\n\t-v : gpsim version\n"); printf ("\n Long options:\n\n"); printf ("\t--cli : command line mode only\n"); printf ("\n\texamples:\n\n"); printf ("%s myprog.cod <-- loads a symbol file\n",iam); printf ("%s -p p16f877 myprog.hex <-- select processor and load hex\n",iam); printf ("%s myscript.stc <-- loads a script\n",iam); } void welcome(void) { printf("\ngpsim - the GNUPIC simulator\nversion: %s %s\n", szBuild, VERSION); printf("\n\ntype help for help\n"); return; } void exit_gpsim(int ret) { exit_cli(); exit(ret); } int main (int argc, char *argv[]) { bool bEcho = false; bool bSourceEnabled = true; int c,usage=0; bool bUseGUI = true; // assume that we want to use the gui char command_str[256]; poptContext optCon; // context for parsing command-line options // Perform basic initialization before parsing invocation arguments welcome(); InitSourceSearchAsSymbol(); initialize_ConsoleUI(); initialize_gpsim_core(); initialize_gpsim(); initialize_commands(); optCon = poptGetContext(0, argc, (const char **)argv, optionsTable, 0); if(argc>=2) { while ((c = poptGetNextOpt(optCon)) >= 0 && !usage) { const char * optArg = poptGetOptArg(optCon); #ifndef _WIN32 free((char *)optArg); #endif switch (c) { default: printf("'%c' is an unrecognized option\n",c); case '?': case 'h': usage = 1; break; case 'L': set_search_path (search_path); #ifndef _WIN32 free((char *)search_path); #endif break; case 'd': printf("Use ICD with serial port \"%s\".\n", icd_port); break; case 'v': gpsim_version(); break; case 'i': bUseGUI = false; printf("not using gui\n"); break; case 'D': // add symbols defined with '-D' to the symbol table. snprintf(command_str, sizeof(command_str), "symbol %s\n",defineSymbol); parse_string(command_str); #ifndef _WIN32 free((char *)defineSymbol); #endif defineSymbol = ""; break; case 'S': if(strcmp(sourceEnabled, "enable") == 0) { bSourceEnabled = true; } else if(strcmp(sourceEnabled, "disable") == 0) { bSourceEnabled = false; } else { usage = 1; } #ifndef _WIN32 free ((char *)sourceEnabled); #endif break; case 'E': bEcho = true; EnableSTCEcho(true); break; case 'e': if(strcmp(sExitOn, "onbreak") == 0) { get_bp().EnableExitOnBreak(true); } else { printf("%s is invalid exit condition for -e option.\n", sExitOn); } #ifndef _WIN32 free ((char *)sExitOn); #endif break; } if (usage) break; } poptFreeContext(optCon); } if (usage) { helpme(argv[0]); exit (1); } if(bEcho) { for(int index = 0; index < argc; index++) { printf("%s ", argv[index]); } printf("\n"); } if(poptPeekArg(optCon)) hex_name=strdup(poptPeekArg(optCon)); initialize_readline(); // must be done after initialize_gpsim_core() Boolean *bEnableSourceLoad = dynamic_cast( globalSymbolTable().find("EnableSourceLoad")); if (bEnableSourceLoad) *bEnableSourceLoad = bSourceEnabled; // initialize the gui #ifdef HAVE_GUI if(bUseGUI) { if (gui_init (argc,argv) != 0) { std::cerr << "Error initialising GUI, reverting to cmd-line mode." << std::endl; bUseGUI = false; } // Move this from above to accurately report whether the GUI // has initialized. With out this, gpsim would generate a segmentation // fault on exit under Linux when executed in a telnet session // and with out the -i option. get_interface().setGUImode(bUseGUI); } #endif AddModulePathFromFilePath(argv[0]); initialization_is_complete(); yydebug = 0; quit_parse = 0; abort_gpsim = 0; try { // Convert the remaining command line options into gpsim commands if(*cod_name) { if(*processor_name) cout << "WARNING: command line processor named \"" << processor_name << "\" is being ignored\nsince the .cod file specifies the processor\n"; if(*hex_name) cout << "WARNING: Ignoring the hex file \"" << hex_name << "\"\nsince the .cod file specifies the hex code\n"; snprintf(command_str, sizeof(command_str), "load s \"%s\"\n",cod_name); parse_string(command_str); } else if(*processor_name) { if(*hex_name){ snprintf(command_str, sizeof(command_str), "load %s \"%s\"\n",processor_name, hex_name); parse_string(command_str); } } if(*icd_port) { snprintf(command_str, sizeof(command_str), "icd open \"%s\"\n",icd_port); parse_string(command_str); } if(*startup_name) { snprintf(command_str, sizeof(command_str), "load c \"%s\"\n",startup_name); parse_string(command_str); } if(*include_startup_name) { snprintf(command_str, sizeof(command_str), "load i \"%s\"\n",include_startup_name); parse_string(command_str); } // otherwise see if load will work if (argc == 2) { snprintf(command_str, sizeof(command_str), "load \"%s\"\n",argv[1]); parse_string(command_str); } if(abort_gpsim) exit_gpsim(0); // Now enter the event loop and start processing user // commands. #ifdef HAVE_GUI gui_main(); #else cli_main(); #endif } catch (char * err_message) { cout << "FATAL ERROR: " << err_message << endl; } catch (FatalError *err) { if(err) { cout << err->toString() << endl; delete err; exit_gpsim(1); } } exit_gpsim(0); return 0; } gpsim-0.27.0/gpsim/Makefile.in0000664000076400007640000004677112210742104013046 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ # gpsim executable Makefile # # VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ bin_PROGRAMS = gpsim$(EXEEXT) subdir = gpsim DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am \ $(top_srcdir)/depcomp ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__installdirs = "$(DESTDIR)$(bindir)" PROGRAMS = $(bin_PROGRAMS) am_gpsim_OBJECTS = main.$(OBJEXT) gpsim_OBJECTS = $(am_gpsim_OBJECTS) gpsim_DEPENDENCIES = ../src/libgpsim.la ../cli/libgpsimcli.la \ ../gui/libgpsimgui.la ../eXdbm/libgpsim_eXdbm.la AM_V_lt = $(am__v_lt_@AM_V@) am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@) am__v_lt_0 = --silent am__v_lt_1 = AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/depcomp am__depfiles_maybe = depfiles am__mv = mv -f CXXCOMPILE = $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) LTCXXCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) \ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ $(AM_CXXFLAGS) $(CXXFLAGS) AM_V_CXX = $(am__v_CXX_@AM_V@) am__v_CXX_ = $(am__v_CXX_@AM_DEFAULT_V@) am__v_CXX_0 = @echo " CXX " $@; am__v_CXX_1 = CXXLD = $(CXX) CXXLINK = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CXXLD) $(AM_CXXFLAGS) \ $(CXXFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@ AM_V_CXXLD = $(am__v_CXXLD_@AM_V@) am__v_CXXLD_ = $(am__v_CXXLD_@AM_DEFAULT_V@) am__v_CXXLD_0 = @echo " CXXLD " $@; am__v_CXXLD_1 = SOURCES = $(gpsim_SOURCES) DIST_SOURCES = $(gpsim_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) # Read a list of newline-separated strings from the standard input, # and print each of them once, without duplicates. Input order is # *not* preserved. am__uniquify_input = $(AWK) '\ BEGIN { nonempty = 0; } \ { items[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in items) print i; }; } \ ' # Make sure the list of sources is unique. This is necessary because, # e.g., the same source file might be shared among _SOURCES variables # for different programs/libraries. am__define_uniq_tagged_files = \ list='$(am__tagged_files)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | $(am__uniquify_input)` ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ AM_CPPFLAGS = @X_CFLAGS@ @Y_CFLAGS@ gpsim_SOURCES = main.cc #gpsim_LDFLAGS = $(shell gtk-config --cflags) gpsim_LDADD = ../src/libgpsim.la ../cli/libgpsimcli.la ../gui/libgpsimgui.la \ ../eXdbm/libgpsim_eXdbm.la @GTK@ @GDK@ @GLIB@ -lstdc++ -lpopt @LIBDL@ \ @X_LDFLAGS@ @Y_LDFLAGS@ @LIBREADLINE@ EXTRA_DIST = makefile.mingw all: all-am .SUFFIXES: .SUFFIXES: .cc .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gpsim/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gpsim/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-binPROGRAMS: $(bin_PROGRAMS) @$(NORMAL_INSTALL) @list='$(bin_PROGRAMS)'; test -n "$(bindir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(bindir)'"; \ $(MKDIR_P) "$(DESTDIR)$(bindir)" || exit 1; \ fi; \ for p in $$list; do echo "$$p $$p"; done | \ sed 's/$(EXEEXT)$$//' | \ while read p p1; do if test -f $$p \ || test -f $$p1 \ ; then echo "$$p"; echo "$$p"; else :; fi; \ done | \ sed -e 'p;s,.*/,,;n;h' \ -e 's|.*|.|' \ -e 'p;x;s,.*/,,;s/$(EXEEXT)$$//;$(transform);s/$$/$(EXEEXT)/' | \ sed 'N;N;N;s,\n, ,g' | \ $(AWK) 'BEGIN { files["."] = ""; dirs["."] = 1 } \ { d=$$3; if (dirs[d] != 1) { print "d", d; dirs[d] = 1 } \ if ($$2 == $$4) files[d] = files[d] " " $$1; \ else { print "f", $$3 "/" $$4, $$1; } } \ END { for (d in files) print "f", d, files[d] }' | \ while read type dir files; do \ if test "$$dir" = .; then dir=; else dir=/$$dir; fi; \ test -z "$$files" || { \ echo " $(INSTALL_PROGRAM_ENV) $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL_PROGRAM) $$files '$(DESTDIR)$(bindir)$$dir'"; \ $(INSTALL_PROGRAM_ENV) $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL_PROGRAM) $$files "$(DESTDIR)$(bindir)$$dir" || exit $$?; \ } \ ; done uninstall-binPROGRAMS: @$(NORMAL_UNINSTALL) @list='$(bin_PROGRAMS)'; test -n "$(bindir)" || list=; \ files=`for p in $$list; do echo "$$p"; done | \ sed -e 'h;s,^.*/,,;s/$(EXEEXT)$$//;$(transform)' \ -e 's/$$/$(EXEEXT)/' \ `; \ test -n "$$list" || exit 0; \ echo " ( cd '$(DESTDIR)$(bindir)' && rm -f" $$files ")"; \ cd "$(DESTDIR)$(bindir)" && rm -f $$files clean-binPROGRAMS: @list='$(bin_PROGRAMS)'; test -n "$$list" || exit 0; \ echo " rm -f" $$list; \ rm -f $$list || exit $$?; \ test -n "$(EXEEXT)" || exit 0; \ list=`for p in $$list; do echo "$$p"; done | sed 's/$(EXEEXT)$$//'`; \ echo " rm -f" $$list; \ rm -f $$list gpsim$(EXEEXT): $(gpsim_OBJECTS) $(gpsim_DEPENDENCIES) $(EXTRA_gpsim_DEPENDENCIES) @rm -f gpsim$(EXEEXT) $(AM_V_CXXLD)$(CXXLINK) $(gpsim_OBJECTS) $(gpsim_LDADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/main.Po@am__quote@ .cc.o: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(CXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(CXXCOMPILE) -c -o $@ $< .cc.obj: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(CXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(CXXCOMPILE) -c -o $@ `$(CYGPATH_W) '$<'` .cc.lo: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(LTCXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(LTCXXCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs ID: $(am__tagged_files) $(am__define_uniq_tagged_files); mkid -fID $$unique tags: tags-am TAGS: tags tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) set x; \ here=`pwd`; \ $(am__define_uniq_tagged_files); \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: ctags-am CTAGS: ctags ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) $(am__define_uniq_tagged_files); \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" cscopelist: cscopelist-am cscopelist-am: $(am__tagged_files) list='$(am__tagged_files)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(PROGRAMS) installdirs: for dir in "$(DESTDIR)$(bindir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-binPROGRAMS clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-binPROGRAMS install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-binPROGRAMS .MAKE: install-am install-strip .PHONY: CTAGS GTAGS TAGS all all-am check check-am clean \ clean-binPROGRAMS clean-generic clean-libtool cscopelist-am \ ctags ctags-am distclean distclean-compile distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-binPROGRAMS \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-pdf \ install-pdf-am install-ps install-ps-am install-strip \ installcheck installcheck-am installdirs maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-compile \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags tags-am uninstall uninstall-am uninstall-binPROGRAMS # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/gpsim/Makefile.am0000664000076400007640000000060312177043162013027 00000000000000# gpsim executable Makefile # # AM_CPPFLAGS = @X_CFLAGS@ @Y_CFLAGS@ bin_PROGRAMS = gpsim gpsim_SOURCES = main.cc #gpsim_LDFLAGS = $(shell gtk-config --cflags) gpsim_LDADD = ../src/libgpsim.la ../cli/libgpsimcli.la ../gui/libgpsimgui.la \ ../eXdbm/libgpsim_eXdbm.la @GTK@ @GDK@ @GLIB@ -lstdc++ -lpopt @LIBDL@ \ @X_LDFLAGS@ @Y_LDFLAGS@ @LIBREADLINE@ EXTRA_DIST = makefile.mingw gpsim-0.27.0/gpsim/makefile.mingw0000664000076400007640000000317412202777763013633 00000000000000## Makefile for building the gpsim with gcc for mingw. The build ## uses tools running on cygwin, however. ## Use: make -f makefile.mingw TOP = ../.. include ../plat/win32/make.mingw ################################################################ # Nothing much configurable below LIBS = -l wsock32 \ -L $(READLINE_PATH)/lib -l readline.dll \ -L $(POPT_PATH)/lib -l popt \ -L $(PANGO_PATH)/lib -l pango-1.0 \ -L $(CAIRO_PATH)/lib -l cairo \ -L $(GDK_PIXBUF_PATH)/lib -l gdk_pixbuf-2.0 \ -L $(GTK_PATH)/lib -l gtk-win32-2.0 -l gdk_pixbuf-2.0 -l gdk-win32-2.0 \ -L $(GLIB_PATH)/lib -l gobject-2.0 -l gthread-2.0 -l glib-2.0 \ $(GTKEXTRA_PATH)/lib/libgtkextra-win32-2.1_dll.a gpsim_LIBS = ../gui/libgui.a ../cli/libcli.a libgpsim_LIBS = ../src/libgpsim.a INCLUDES = -I ../plat/win32 \ -I $(GLIB_PATH)/include/glib-2.0 -I $(GLIB_PATH)/lib/glib-2.0/include \ -I $(GDK_PIXBUF_PATH)/include/gdk-pixbuf-2.0 \ -I $(POPT_PATH)/include DEFINES += -DHAVE_GUI all : \ ../config.h \ gpsim.exe gpsim_OBJECTS = \ main.o ../config.h : ../config_win32.h.in (cd .. ; $(AWK) -f plat/win32/configure_win32.awk config_win32.h.in > config.h) ################ The gpsim libraries ../gui/libgui.a : cd ../gui && $(MAKE) -f makefile.mingw all ../cli/libcli.a : cd ../cli && $(MAKE) -f makefile.mingw all ../src/libgpsim.a : cd ../src && $(MAKE) -f makefile.mingw all ################ The gpsim EXE gpsim.exe : $(gpsim_OBJECTS) $(gpsim_LIBS) $(CXX) $(CFLAGS) $(CLDFLAGS) \ -Wl,--export-all-symbols -Wl,--out-implib,gpsim.lib \ -o gpsim.exe $(gpsim_OBJECTS) -Wl,--whole-archive $(gpsim_LIBS) -Wl,--no-whole-archive $(libgpsim_LIBS) $(LIBS) gpsim-0.27.0/AUTHORS0000644000076400007640000000236610520763107010730 00000000000000Scott Dattalo Ralf Forsberg Daniel Schudel Roy Rankin Borut Razem Additional Contributors: NOTE there have been many, many people who have contributed to gpsim in the way of providing comments and suggestions. The following (incomplete) list is for those who have submitted patches. If your name should be here, let me know... I know there are many more contributors out there who I've not kept track of. Mike Durian Bradley McLean Alex Holden Steve Tell Paco Moya Joerg Wunsch Erik Thiele Daniel Christian Rudy Moore Salvador Eduardo Tropea Berndt Josef Wulf Carlos Nieves Ónega Wojciech Zabolotny Robert Pearce Craig Franklin John Sutton Tom Oram Jack Twilley John Steele Scott Brian Behlendorf gpsim-0.27.0/config.sub0000755000076400007640000010531512157551763011654 00000000000000#! /bin/sh # Configuration validation subroutine script. # Copyright 1992-2013 Free Software Foundation, Inc. timestamp='2013-04-24' # 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 3 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, 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 Exception is an additional permission under section 7 # of the GNU General Public License, version 3 ("GPLv3"). # Please send patches with a ChangeLog entry to config-patches@gnu.org. # # 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. # You can get the latest version of this script from: # http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.sub;hb=HEAD # 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 1992-2013 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 ;; --version | -v ) echo "$version" ; exit ;; --help | --h* | -h ) echo "$usage"; exit ;; -- ) # 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 ;; * ) 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* | linux-android* | linux-dietlibc | linux-newlib* | \ linux-musl* | linux-uclibc* | uclinux-uclibc* | uclinux-gnu* | kfreebsd*-gnu* | \ knetbsd*-gnu* | netbsd*-gnu* | \ kopensolaris*-gnu* | \ storm-chaos* | os2-emx* | rtmk-nova*) os=-$maybe_os basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'` ;; android-linux) os=-linux-android basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'`-unknown ;; *) 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 | -knuth | -cray | -microblaze*) os= basic_machine=$1 ;; -bluegene*) os=-cnk ;; -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 ;; -sco6) os=-sco5v6 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -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/'` ;; -sco5v6*) # 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*178) os=-lynxos178 ;; -lynx*5) os=-lynxos5 ;; -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 \ | aarch64 | aarch64_be \ | alpha | alphaev[4-8] | alphaev56 | alphaev6[78] | alphapca5[67] \ | alpha64 | alpha64ev[4-8] | alpha64ev56 | alpha64ev6[78] | alpha64pca5[67] \ | am33_2.0 \ | arc | arceb \ | arm | arm[bl]e | arme[lb] | armv[2-8] | armv[3-8][lb] | armv7[arm] \ | avr | avr32 \ | be32 | be64 \ | bfin \ | c4x | clipper \ | d10v | d30v | dlx | dsp16xx \ | epiphany \ | fido | fr30 | frv \ | h8300 | h8500 | hppa | hppa1.[01] | hppa2.0 | hppa2.0[nw] | hppa64 \ | hexagon \ | i370 | i860 | i960 | ia64 \ | ip2k | iq2000 \ | le32 | le64 \ | lm32 \ | m32c | m32r | m32rle | m68000 | m68k | m88k \ | maxq | mb | microblaze | microblazeel | mcore | mep | metag \ | mips | mipsbe | mipseb | mipsel | mipsle \ | mips16 \ | mips64 | mips64el \ | mips64octeon | mips64octeonel \ | mips64orion | mips64orionel \ | mips64r5900 | mips64r5900el \ | mips64vr | mips64vrel \ | mips64vr4100 | mips64vr4100el \ | mips64vr4300 | mips64vr4300el \ | mips64vr5000 | mips64vr5000el \ | mips64vr5900 | mips64vr5900el \ | mipsisa32 | mipsisa32el \ | mipsisa32r2 | mipsisa32r2el \ | mipsisa64 | mipsisa64el \ | mipsisa64r2 | mipsisa64r2el \ | mipsisa64sb1 | mipsisa64sb1el \ | mipsisa64sr71k | mipsisa64sr71kel \ | mipsr5900 | mipsr5900el \ | mipstx39 | mipstx39el \ | mn10200 | mn10300 \ | moxie \ | mt \ | msp430 \ | nds32 | nds32le | nds32be \ | nios | nios2 | nios2eb | nios2el \ | ns16k | ns32k \ | open8 \ | or1k | or32 \ | pdp10 | pdp11 | pj | pjl \ | powerpc | powerpc64 | powerpc64le | powerpcle \ | pyramid \ | rl78 | rx \ | score \ | sh | sh[1234] | sh[24]a | sh[24]aeb | sh[23]e | sh[34]eb | sheb | shbe | shle | sh[1234]le | sh3ele \ | sh64 | sh64le \ | sparc | sparc64 | sparc64b | sparc64v | sparc86x | sparclet | sparclite \ | sparcv8 | sparcv9 | sparcv9b | sparcv9v \ | spu \ | tahoe | tic4x | tic54x | tic55x | tic6x | tic80 | tron \ | ubicom32 \ | v850 | v850e | v850e1 | v850e2 | v850es | v850e2v3 \ | we32k \ | x86 | xc16x | xstormy16 | xtensa \ | z8k | z80) basic_machine=$basic_machine-unknown ;; c54x) basic_machine=tic54x-unknown ;; c55x) basic_machine=tic55x-unknown ;; c6x) basic_machine=tic6x-unknown ;; m6811 | m68hc11 | m6812 | m68hc12 | m68hcs12x | picochip) basic_machine=$basic_machine-unknown os=-none ;; m88110 | m680[12346]0 | m683?2 | m68360 | m5200 | v70 | w65 | z8k) ;; ms1) basic_machine=mt-unknown ;; strongarm | thumb | xscale) basic_machine=arm-unknown ;; xgate) basic_machine=$basic_machine-unknown os=-none ;; xscaleeb) basic_machine=armeb-unknown ;; xscaleel) basic_machine=armel-unknown ;; # 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-* \ | aarch64-* | aarch64_be-* \ | alpha-* | alphaev[4-8]-* | alphaev56-* | alphaev6[78]-* \ | alpha64-* | alpha64ev[4-8]-* | alpha64ev56-* | alpha64ev6[78]-* \ | alphapca5[67]-* | alpha64pca5[67]-* | arc-* | arceb-* \ | arm-* | armbe-* | armle-* | armeb-* | armv*-* \ | avr-* | avr32-* \ | be32-* | be64-* \ | bfin-* | bs2000-* \ | c[123]* | c30-* | [cjt]90-* | c4x-* \ | clipper-* | craynv-* | cydra-* \ | d10v-* | d30v-* | dlx-* \ | elxsi-* \ | f30[01]-* | f700-* | fido-* | fr30-* | frv-* | fx80-* \ | h8300-* | h8500-* \ | hppa-* | hppa1.[01]-* | hppa2.0-* | hppa2.0[nw]-* | hppa64-* \ | hexagon-* \ | i*86-* | i860-* | i960-* | ia64-* \ | ip2k-* | iq2000-* \ | le32-* | le64-* \ | lm32-* \ | m32c-* | m32r-* | m32rle-* \ | m68000-* | m680[012346]0-* | m68360-* | m683?2-* | m68k-* \ | m88110-* | m88k-* | maxq-* | mcore-* | metag-* \ | microblaze-* | microblazeel-* \ | mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \ | mips16-* \ | mips64-* | mips64el-* \ | mips64octeon-* | mips64octeonel-* \ | mips64orion-* | mips64orionel-* \ | mips64r5900-* | mips64r5900el-* \ | mips64vr-* | mips64vrel-* \ | mips64vr4100-* | mips64vr4100el-* \ | mips64vr4300-* | mips64vr4300el-* \ | mips64vr5000-* | mips64vr5000el-* \ | mips64vr5900-* | mips64vr5900el-* \ | mipsisa32-* | mipsisa32el-* \ | mipsisa32r2-* | mipsisa32r2el-* \ | mipsisa64-* | mipsisa64el-* \ | mipsisa64r2-* | mipsisa64r2el-* \ | mipsisa64sb1-* | mipsisa64sb1el-* \ | mipsisa64sr71k-* | mipsisa64sr71kel-* \ | mipsr5900-* | mipsr5900el-* \ | mipstx39-* | mipstx39el-* \ | mmix-* \ | mt-* \ | msp430-* \ | nds32-* | nds32le-* | nds32be-* \ | nios-* | nios2-* | nios2eb-* | nios2el-* \ | none-* | np1-* | ns16k-* | ns32k-* \ | open8-* \ | orion-* \ | pdp10-* | pdp11-* | pj-* | pjl-* | pn-* | power-* \ | powerpc-* | powerpc64-* | powerpc64le-* | powerpcle-* \ | pyramid-* \ | rl78-* | romp-* | rs6000-* | rx-* \ | sh-* | sh[1234]-* | sh[24]a-* | sh[24]aeb-* | sh[23]e-* | sh[34]eb-* | sheb-* | shbe-* \ | shle-* | sh[1234]le-* | sh3ele-* | sh64-* | sh64le-* \ | sparc-* | sparc64-* | sparc64b-* | sparc64v-* | sparc86x-* | sparclet-* \ | sparclite-* \ | sparcv8-* | sparcv9-* | sparcv9b-* | sparcv9v-* | sv1-* | sx?-* \ | tahoe-* \ | tic30-* | tic4x-* | tic54x-* | tic55x-* | tic6x-* | tic80-* \ | tile*-* \ | tron-* \ | ubicom32-* \ | v850-* | v850e-* | v850e1-* | v850es-* | v850e2-* | v850e2v3-* \ | vax-* \ | we32k-* \ | x86-* | x86_64-* | xc16x-* | xps100-* \ | xstormy16-* | xtensa*-* \ | ymp-* \ | z8k-* | z80-*) ;; # Recognize the basic CPU types without company name, with glob match. xtensa*) basic_machine=$basic_machine-unknown ;; # 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 ;; abacus) basic_machine=abacus-unknown ;; 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 ;; amd64) basic_machine=x86_64-pc ;; amd64-*) basic_machine=x86_64-`echo $basic_machine | sed 's/^[^-]*-//'` ;; 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 ;; aros) basic_machine=i386-pc os=-aros ;; aux) basic_machine=m68k-apple os=-aux ;; balance) basic_machine=ns32k-sequent os=-dynix ;; blackfin) basic_machine=bfin-unknown os=-linux ;; blackfin-*) basic_machine=bfin-`echo $basic_machine | sed 's/^[^-]*-//'` os=-linux ;; bluegene*) basic_machine=powerpc-ibm os=-cnk ;; c54x-*) basic_machine=tic54x-`echo $basic_machine | sed 's/^[^-]*-//'` ;; c55x-*) basic_machine=tic55x-`echo $basic_machine | sed 's/^[^-]*-//'` ;; c6x-*) basic_machine=tic6x-`echo $basic_machine | sed 's/^[^-]*-//'` ;; c90) basic_machine=c90-cray os=-unicos ;; cegcc) basic_machine=arm-unknown os=-cegcc ;; 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 | j90) basic_machine=j90-cray os=-unicos ;; craynv) basic_machine=craynv-cray os=-unicosmp ;; cr16 | cr16-*) basic_machine=cr16-unknown os=-elf ;; crds | unos) basic_machine=m68k-crds ;; crisv32 | crisv32-* | etraxfs*) basic_machine=crisv32-axis ;; cris | cris-* | etrax*) basic_machine=cris-axis ;; crx) basic_machine=crx-unknown os=-elf ;; da30 | da30-*) basic_machine=m68k-da30 ;; decstation | decstation-3100 | pmax | pmax-* | pmin | dec3100 | decstatn) basic_machine=mips-dec ;; decsystem10* | dec10*) basic_machine=pdp10-dec os=-tops10 ;; decsystem20* | dec20*) basic_machine=pdp10-dec os=-tops20 ;; delta | 3300 | motorola-3300 | motorola-delta \ | 3300-motorola | delta-motorola) basic_machine=m68k-motorola ;; delta88) basic_machine=m88k-motorola os=-sysv3 ;; dicos) basic_machine=i686-pc os=-dicos ;; djgpp) basic_machine=i586-pc os=-msdosdjgpp ;; 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*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 ;; m68knommu) basic_machine=m68k-unknown os=-linux ;; m68knommu-*) basic_machine=m68k-`echo $basic_machine | sed 's/^[^-]*-//'` os=-linux ;; m88k-omron*) basic_machine=m88k-omron ;; magnum | m3230) basic_machine=mips-mips os=-sysv ;; merlin) basic_machine=ns32k-utek os=-sysv ;; microblaze*) basic_machine=microblaze-xilinx ;; mingw64) basic_machine=x86_64-pc os=-mingw64 ;; mingw32) basic_machine=i386-pc os=-mingw32 ;; mingw32ce) basic_machine=arm-unknown os=-mingw32ce ;; miniframe) basic_machine=m68000-convergent ;; *mint | -mint[0-9]* | *MiNT | *MiNT[0-9]*) basic_machine=m68k-atari os=-mint ;; mips3*-*) basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'` ;; mips3*) basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`-unknown ;; monitor) basic_machine=m68k-rom68k os=-coff ;; morphos) basic_machine=powerpc-unknown os=-morphos ;; msdos) basic_machine=i386-pc os=-msdos ;; ms1-*) basic_machine=`echo $basic_machine | sed -e 's/ms1-/mt-/'` ;; msys) basic_machine=i386-pc os=-msys ;; mvs) basic_machine=i370-ibm os=-mvs ;; nacl) basic_machine=le32-unknown os=-nacl ;; 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 ;; neo-tandem) basic_machine=neo-tandem ;; nse-tandem) basic_machine=nse-tandem ;; nsr-tandem) basic_machine=nsr-tandem ;; op50n-* | op60c-*) basic_machine=hppa1.1-oki os=-proelf ;; openrisc | openrisc-*) basic_machine=or32-unknown ;; os400) basic_machine=powerpc-ibm os=-os400 ;; 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 ;; parisc) basic_machine=hppa-unknown os=-linux ;; parisc-*) basic_machine=hppa-`echo $basic_machine | sed 's/^[^-]*-//'` os=-linux ;; pbd) basic_machine=sparc-tti ;; pbb) basic_machine=m68k-tti ;; pc532 | pc532-*) basic_machine=ns32k-pc532 ;; pc98) basic_machine=i386-pc ;; pc98-*) basic_machine=i386-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentium | p5 | k5 | k6 | nexgen | viac3) basic_machine=i586-pc ;; pentiumpro | p6 | 6x86 | athlon | athlon_*) basic_machine=i686-pc ;; pentiumii | pentium2 | pentiumiii | pentium3) basic_machine=i686-pc ;; pentium4) basic_machine=i786-pc ;; pentium-* | p5-* | k5-* | k6-* | nexgen-* | viac3-*) basic_machine=i586-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentiumpro-* | p6-* | 6x86-* | athlon-*) basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentiumii-* | pentium2-* | pentiumiii-* | pentium3-*) basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentium4-*) basic_machine=i786-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pn) basic_machine=pn-gould ;; power) basic_machine=power-ibm ;; ppc | ppcbe) basic_machine=powerpc-unknown ;; ppc-* | ppcbe-*) 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-* | ppc64p7-*) 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 ;; rdos | rdos64) basic_machine=x86_64-pc os=-rdos ;; rdos32) basic_machine=i386-pc os=-rdos ;; rom68k) basic_machine=m68k-rom68k os=-coff ;; rm[46]00) basic_machine=mips-siemens ;; rtpc | rtpc-*) basic_machine=romp-ibm ;; s390 | s390-*) basic_machine=s390-ibm ;; s390x | s390x-*) basic_machine=s390x-ibm ;; sa29200) basic_machine=a29k-amd os=-udi ;; sb1) basic_machine=mipsisa64sb1-unknown ;; sb1el) basic_machine=mipsisa64sb1el-unknown ;; sde) basic_machine=mipsisa32-sde os=-elf ;; sei) basic_machine=mips-sei os=-seiux ;; sequent) basic_machine=i386-sequent ;; sh) basic_machine=sh-hitachi os=-hms ;; sh5el) basic_machine=sh5le-unknown ;; sh64) basic_machine=sh64-unknown ;; sparclite-wrs | simso-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 ;; strongarm-* | thumb-*) basic_machine=arm-`echo $basic_machine | sed 's/^[^-]*-//'` ;; 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=alphaev5-cray os=-unicos ;; t90) basic_machine=t90-cray os=-unicos ;; tile*) basic_machine=$basic_machine-unknown os=-linux-gnu ;; tx39) basic_machine=mipstx39-unknown ;; tx39el) basic_machine=mipstx39el-unknown ;; toad1) basic_machine=pdp10-xkl os=-tops20 ;; tower | tower-32) basic_machine=m68k-ncr ;; tpf) basic_machine=s390x-ibm os=-tpf ;; 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 ;; xbox) basic_machine=i686-pc os=-mingw32 ;; xps | xps100) basic_machine=xps100-honeywell ;; xscale-* | xscalee[bl]-*) basic_machine=`echo $basic_machine | sed 's/^xscale/arm/'` ;; ymp) basic_machine=ymp-cray os=-unicos ;; z8k-*-coff) basic_machine=z8k-unknown os=-sim ;; z80-*-coff) basic_machine=z80-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 ;; romp) basic_machine=romp-ibm ;; mmix) basic_machine=mmix-knuth ;; 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 ;; sh[1234] | sh[24]a | sh[24]aeb | sh[34]eb | sh[1234]le | sh[23]ele) basic_machine=sh-unknown ;; sparc | sparcv8 | sparcv9 | sparcv9b | sparcv9v) 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 ;; *-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. -auroraux) os=-auroraux ;; -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* | -cnk* | -sunos | -sunos[34]*\ | -hpux* | -unos* | -osf* | -luna* | -dgux* | -auroraux* | -solaris* \ | -sym* | -kopensolaris* | -plan9* \ | -amigaos* | -amigados* | -msdos* | -newsos* | -unicos* | -aof* \ | -aos* | -aros* \ | -nindy* | -vxsim* | -vxworks* | -ebmon* | -hms* | -mvs* \ | -clix* | -riscos* | -uniplus* | -iris* | -rtu* | -xenix* \ | -hiux* | -386bsd* | -knetbsd* | -mirbsd* | -netbsd* \ | -bitrig* | -openbsd* | -solidbsd* \ | -ekkobsd* | -kfreebsd* | -freebsd* | -riscix* | -lynxos* \ | -bosx* | -nextstep* | -cxux* | -aout* | -elf* | -oabi* \ | -ptx* | -coff* | -ecoff* | -winnt* | -domain* | -vsta* \ | -udi* | -eabi* | -lites* | -ieee* | -go32* | -aux* \ | -chorusos* | -chorusrdb* | -cegcc* \ | -cygwin* | -msys* | -pe* | -psos* | -moss* | -proelf* | -rtems* \ | -mingw32* | -mingw64* | -linux-gnu* | -linux-android* \ | -linux-newlib* | -linux-musl* | -linux-uclibc* \ | -uxpv* | -beos* | -mpeix* | -udk* \ | -interix* | -uwin* | -mks* | -rhapsody* | -darwin* | -opened* \ | -openstep* | -oskit* | -conix* | -pw32* | -nonstopux* \ | -storm-chaos* | -tops10* | -tenex* | -tops20* | -its* \ | -os2* | -vos* | -palmos* | -uclinux* | -nucleus* \ | -morphos* | -superux* | -rtmk* | -rtmk-nova* | -windiss* \ | -powermax* | -dnix* | -nx6 | -nx7 | -sei* | -dragonfly* \ | -skyos* | -haiku* | -rdos* | -toppers* | -drops* | -es*) # Remember, each alternative MUST END IN *, to match a version number. ;; -qnx*) case $basic_machine in x86-* | i*86-*) ;; *) os=-nto$os ;; esac ;; -nto-qnx*) ;; -nto*) os=`echo $os | sed -e 's|nto|nto-qnx|'` ;; -sim | -es1800* | -hms* | -xray | -os68k* | -none* | -v88r* \ | -windows* | -osx | -abug | -netware* | -os9* | -beos* | -haiku* \ | -macos* | -mpw* | -magic* | -mmixware* | -mon960* | -lnews*) ;; -mac*) os=`echo $os | sed -e 's|mac|macos|'` ;; -linux-dietlibc) os=-linux-dietlibc ;; -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 ;; -os400*) os=-os400 ;; -wince*) os=-wince ;; -osfrose*) os=-osfrose ;; -osf*) os=-osf ;; -utek*) os=-bsd ;; -dynix*) os=-bsd ;; -acis*) os=-aos ;; -atheos*) os=-atheos ;; -syllable*) os=-syllable ;; -386bsd) os=-bsd ;; -ctix* | -uts*) os=-sysv ;; -nova*) os=-rtmk-nova ;; -ns2 ) os=-nextstep2 ;; -nsk*) os=-nsk ;; # Preserve the version number of sinix5. -sinix5.*) os=`echo $os | sed -e 's|sinix|sysv|'` ;; -sinix*) os=-sysv4 ;; -tpf*) os=-tpf ;; -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 ;; -aros*) os=-aros ;; -zvmoe) os=-zvmoe ;; -dicos*) os=-dicos ;; -nacl*) ;; -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 score-*) os=-elf ;; spu-*) os=-elf ;; *-acorn) os=-riscix1.2 ;; arm*-rebel) os=-linux ;; arm*-semi) os=-aout ;; c4x-* | tic4x-*) os=-coff ;; hexagon-*) os=-elf ;; tic54x-*) os=-coff ;; tic55x-*) os=-coff ;; tic6x-*) os=-coff ;; # This must come before the *-dec entry. 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 ;; m68*-cisco) os=-aout ;; mep-*) os=-elf ;; mips*-cisco) os=-elf ;; mips*-*) os=-elf ;; or1k-*) os=-elf ;; or32-*) os=-coff ;; *-tti) # must be before sparc entry or we get the wrong os. os=-sysv3 ;; sparc-* | *-sun) os=-sunos4.1.1 ;; *-be) os=-beos ;; *-haiku) os=-haiku ;; *-ibm) os=-aix ;; *-knuth) os=-mmixware ;; *-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 ;; -cnk*|-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 ;; -os400*) vendor=ibm ;; -ptx*) vendor=sequent ;; -tpf*) vendor=ibm ;; -vxsim* | -vxworks* | -windiss*) 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 # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "timestamp='" # time-stamp-format: "%:y-%02m-%02d" # time-stamp-end: "'" # End: gpsim-0.27.0/PROCESSORS0000644000076400007640000000177511244232332011303 00000000000000gpsim-0.24.0 Here's a list of supported processors: 12bit: ----- pic10f200 pic10f202 pic10f204 pic10f220 pic10f222 pic12c508 pic12c509 pic12ce518 pic12ce519 pic12f508 pic12f509 pic12f510 pic12f629 pic12f675 pic12f683 14bit: ----- pic12f683 pic16c54 pic16c55 pic16c56 pic16c61 pic16c84 pic16cr83 pic16cr84 pic16c71 pic16c712 pic16c716 pic16c62 pic16c62a pic16cr62 pic16c63 pic16c64 pic16c65a pic16c65 pic16c72 pic16c73 pic16c74 pic16f73 pic16f74 pic16f83 pic16f84 pic16f627 pic16f627a pic16f628 pic16f628a pic16f630 pic16f648 pic16f648a pic16f87 pic16f676 pic16f88 pic16f818 pic16f819 pic16f871 pic16f873 pic16f874 pic16f876 pic16f877 pic16f873a pic16f874a pic16f876a pic16f877a 16bit: ----- pic18c242 pic18c252 pic18c442 pic18c452 pic18f242 pic18f248 pic18f252 pic18f442 pic18f448 pic18f452 pic18f1220 pic18f1320 pic18f2455* pic18f4455* pic18f2321 pic18f4321 * USB functionality not supported gpsim-0.27.0/README.MODULES0000644000076400007640000001347110416272361011647 00000000000000 INTRODUCTION ------------ Starting with version gpsim-0.20.0, support for external modules has been added. This allows gpsim to create a full simulation environment that extends beyond just a PIC. It also provides for users to create their own simulation modules without having to be aware of the detailed internals of gpsim. The module approach attempts to leverage off the gpsim infrastructure. The definition of a pic processor is now derived from a `module'. A module can have pins just like a PIC. The node infrastructure for connecting stimuli to gpsim I/O pins has been extended to now include the module I/O pins. Break points and internal module events can be traced just like they are in a real pic. A stimulus can be connected to a module. In fact, although I haven't tried it, gpsim can almost simulate a module with no PIC present! Several example modules have been created and serve as example templates. These are found in the ./modules/ subdirectory. In addition, examples may also be found in the ./examples/14bit/ subdirectory that illustrate how the modules can be used. HOW DO I LOAD A MODULE? ----------------------- A new command called 'module' has been added to gpsim. Straight from gpsim: gpsim> help module module [ [load module_type [module_name]] | [lib lib_name] | [list] | [[dump | pins] module_name] ] If no options are specified, then the currently defined module(s) will be displayed. This is the same as the `module list' command. The `module load lib_name' tells gpsim to search for the module library called `lib_name' and to load it. (Note that the format of module libraries is exactly the same as a Linux shared library. This means that the module library should reside in a path available to dlopen(). Please see the README.MODULES in the gpsim distribution. To instantiate a new module, then type module module_type module_name where module_type refers to a specific module in a module library and module_name is the user name assigned to it. Information about a module can be displayed by the commad module module_name [dump | pins] where module_name is the name that you assigned when the module was instantiated. The optional dump and pins identifiers specify the information you wish to display (dump is the default). examples: module // Display the modules you've already defined. module lib my_mods.so // Load the module library called my_mods. module list // Display the list of modules supported. module load lcd my_lcd // Create an instance of an 'lcd' module pins my_lcd // Display the pin states of an instantiated module module load lcd lcd2x20 // Create a new module. module load led start_light // and another. As you can see, there's a whole lot of stuff packed into this new command. HOW DO I CREATE MY OWN MODULE? ------------------------------ Probably the best place to begin is to find a pre-existing module that is close to the one you wish to create and then make copy it and make changes. (basic structure of modules) HOW DO I CREATE A LIBRARY FOR MY MODULES? ----------------------------------------- Without a doubt, the best thing to do is copy the way gpsim does it. The distributions for the LED and the Logic modules is probably the best place to begin. There are many details that I can't satisfactory cover in the scope of this document. In the example module libraries you'll find two major sections. First there's something I've called the `module manager'. This is a necessary managerial layer that provides the dynamic interface. Second is the module section that defines a module's behavior. Module Manager -------------- The module manager provides the dynamic link support. There are several mandatory functions: get_mod_list() ------------ This function returns a pointer to the list of modules that are supported in the library. /********************************************************* * mod_list - Display all of the modules in this library. * * This is a required function for gpsim compliant libraries. */ Module_Types * get_mod_list(void) { return available_modules; } For this to work of course, a list called `available_modules' of type Module_Types must be declared. From the Led library, the list is only one deep and looks like so: /* class Module_Types { public: char *names[2]; Module * (*module_constructor) (void); }; */ Module_Types available_modules[] = { { "led_7Segments", "led", Led_7Segments::construct}, { 0,0,0} // indicates there are no more modules }; The first two parameters are names that the module may be called. The last parameter is a pointer to a static member function of the module. gpsim will call this function to create a new module. Note the all 0's module. This marks the end of the list. more... Shared Libraries ---------------- The link between modules and gpsim is `dynamic'. Which is to say, when gpsim is compiled it knows nothing about a specific module. Similarly, when a module is compiled it is done so indepently of gpsim. The module compilation depends on gpsim only to the degree of using the include files provided. The module compilation however does not include a step at which it is linked with gpsim. Is that clear? I guess the point to understand, is that gpsim and the modules are built separately. Now, when gpsim loads a module, it will open the `shared library' in which it is contained. The infrastructure of shared libraries is defined by the OS and not by gpsim. Consequently, there are a few details that have to be managed before the shared libraries will work properly. (ldconfig) $ more /etc/ld.so.conf /usr/X11R6/lib /usr/i486-linux-libc5/lib /usr/local/lib /usr/lib gpsim-0.27.0/doc/0000775000076400007640000000000012210742353010476 500000000000000gpsim-0.27.0/doc/gpsim.pdf0000664000076400007640000127262312203421264012242 00000000000000%PDF-1.3 %Ç쏢 106 0 obj <> stream xśmŹ»N1 Eű|…%(ś"&ö8S"hč@éâ±B«‘vµüż‚˛BČEŽoě{“#DbkőóuvWŹ+ěNnÓa{űÜ´mĐ€ '…öá¸/HUJš ™@›Ýî|`ŞE‹ááł0žVś´â§‘*[6ś}ʦZźŰýo “ĄĹsI “'«JĄÂfĐŢ–„Ëž+Ţ®^ŮŞ2ľxˇ)Ĺ„_>LS´„ď›&Ińz+F%®‚2śâ@ţg*Yő|R˙^Ë”ĎwĘŔ‹ăýëŻďš{X꟡Siendstream endobj 107 0 obj 225 endobj 114 0 obj <> stream xśíZKoÜ6zÜ_ˇ#U@ ‡äđqlÓZ¤h,CĐăW‚Äo§Źßá®V3ÚŐÚ»ŤQ+¶ŕąÔäđűćEęŞ2*SţÚ˙‡głŻÁ¤ęôf¶čŻ ú8»šAűĂ´RŐ÷ó"ˇ˛^ǡšźĚ }śÓ©Âm5?›˝U/kŁ†¬ş¨A;´É©óş1:z€ÔmÝ€6ŤSǥ鲳ĐI„¤Ä  řcţs»Š¬iěŕË*‚§ÉçŻfóoß*¨›śťĆ”ÔiÝ N‰~ŞKz?;0žF˘‡˝Wh…9 Ҭguc‘ć A5Ąµ§ľ+k 9‡e]ÖĄ2ĄúµnĽÎSÖACp–*„@J¨ëŚvÁyzĽX@Ší\ÎD’-”5&……^Ž& …L5?˘ ‹—3¶:›,unśu:†Ş\Ęk«i±šT¤uS/iM›‡ę—ŇëśńIđ>ňkbCÎą÷´hNŁ#@:-ŢwŞ‘>Ö[Ť>SłhžbVmĚá˛\Rź»×ĹbUďşçźz;—Űv¤"zɢ·lbŮ,z΢¤˘ŃčÜ×ČśâO:Wş3[,łĺuí) Čę·n÷Ęîň#ýź»óÄŤ?ö!$›Oţ ŽŽq|S{ ˝$<›ÖQעřž(`˘Śgćh˘'@żІÝůťŃŢr´_Z!M˛ŠµE”Ń~kŘ÷)šaT;ú¬`ßnĽnč6Ţ"e]WkŃnčeŕ €NFé3ÎlE/“涤‘2&Đ0ôÓzĘß/sš•_§¤zŤ]şËĎKQ±\0đg‡SF„¶ĺí"‘cŻ° ÓGmDľüUG«ž÷_I–t I"{őS©¨‚ qůŘ&ĚĄt‰Ő*ëżfRť0:~‰lŽßÚ¬Śň®•Ń* ¶»twytŔÖ#r=чܤB(Ąĺıňń©Mé¦)€oł%‘Ć^Ëw,ĐzFă¤;í×Ë9díÓ—$÷Ţ‚7ÔëYď˘Ň˝ t8…b+FťX`4 X¶ëŢ>¸˝ Ţ3öGYź čą“[‚$"gÚvhEQN縞GOlxh6ř»ŠŕaJŕ %DÎÜÂK_’ă7™BĂh7ńŮ"}ŹÝůx[×e4dád»âpjňóŹŽ7n”ĹĂHGFú¤Ëă3ş«Ak߬zóâޢ\kd*Uţ!gžŚövű\ŃßÉŻ'&Âű x×2>rěŃ&*eE7ŮüŘPżÇÇg\$tÂÇSx÷upâ> stream xśí[IoÜ6rś_1G©Ŕ°|ÜŮKŃAŃ"mÚd ŠŰYšŘqgéżďŁ¶÷´ÍHőR|0‡"%Šß÷V>˝[Kk™ţŞ˙G§«oź€ ëVE˙ÖŻWďVPýŐ¨őým10b—)Ýzű|%E N(ď猇¸nú@kÖ.8Ľ˛Ţž®ţĚäFXe˘Ëç)\ŚNŰěWÖŢć-T4>d©90ÂIČžć ˘iţÚţ\­-Šč”3imP˝ŚńJÓZ‡Ę7V„`ÓĚŤVZx·Ţ(ŹłĄZoŹ›1!Fť‰|ŁD4źÔ±©ń‡Sه\ kqDö]?Í7FD…ťĎ¨ó-5ßŕ]5®WůôÜá˝í4­ "X5>`ÎŘ+˝Ů­Y¤‰Ô«Ç›l,¤n|± ‚µ&ŘőöŃjűÍ XŻ"ÁEŽ2ŕ¬U˝˘fĹëtö‘ł Ŕz?`ÓJ\¤»U{}g a “Y{XÁ´ŔyŮ >űś­BĚqIÂ9 ŽO:*{5Nz™oś1˘dÇB‰›ˇDŰhĚĐŠŘŔŕ|źÔrRs¸Ź¨y’ÖăERÍ*ÍmÝŕ»Ă})Ĺ ‰ źňäŹčét"éŤWză ďoqˇzáÄmăÄtÍ`_đyÄ˝|%X”Ŕ­# ,X䱩ŐÂFˇÇgc(# ś…  Bö#ů‚ďIú_ŕ?K˝/)yţiPY´ŕöĆ ;r= ňW‚|śď&¸!ą/17*:ý1ř_Wéż8ýF׳¤Q˛„†%Ő~äأ<ńá~ăP ČĚ=ÓäömChE,$ÄIŢĄ\ÁBkˇ±563őB ls­0ň3SÜ‹Ô.éjÁzŚ ㉛ĺĵ‰ż5f˘wŐÂ~Ż9x{ÓŠę¤ŇŚŘ M pľL©ß†Q6´«µ&ĄYáŢ ç@”8§Ie‰–“aR‰–ÁřÜ9ř˙÷řîˇSŁ5ó` †8Á,Dżl/–GݵÝ8ČŤNY3ç(9آsaÁ5±`jy†ˇňŚAôYˇs ΙňhěI«Ô ľţ˘ :ŤćEtý8%'–<`f„źVÖĺ÷řM««ąa«Ö±…°íi×f°]ěąL©Í0c2VŰ_VŐ?ś”9é9ć©·}ôV+Ů´ehz]TŐ§)źJĆŔšĚźÍtÖŁŁ°Q-R¶SĘÚüčĄnG™0ů(§ĚŘĄ:UôĹQ„LYśß ×AJÜBüľ6¬“1ťŻ„wđ¬f§Čvęu*é÷ŇĎĄ‚5>}™ł ÝGz¬fcŢzďÁ“Ů}'ďUMŁžŤ±|µž¸/2>ů‘ŞŤaě«Úhĺ^ĘŢ/ř1]a~]/ßľ„P7CöaýçąůZŇ’óüC·ö¸8tí zÇĄ®Ľg©Gżw¨y•Š3M:¸ž]8ÇÉ,X4:›µSřĄ±0ĚMo•’^ߨăh&ß#;~p_ź8ł‘‡´“Ż›{žw…˘ť?:Š!đ5Á˘ŠČŃq]t:߼Öŕ´śr»Ď)źY…K–ô!kŠ+‹U'Č´Z«¦Ľ(Ȇ:@ĐÖˇe'ČißÜdí ˱=›ÎŰŕÎyk…†ëT…˙ŽŇ‹T®ăŔ˝jÂďQg{;1¶#5±Í}ÜĂŔĚfh–a 09ołGÍ©‘âÝě;$—Äí &;@q±)AGßXr5Q–ÄŢĺ†ŇI y7|ý|@řőÍ÷Ó˘ńö±řĂíęwüű·q°jendstream endobj 148 0 obj 1896 endobj 184 0 obj <> stream xśí[ÝsÔ6Ď_qO»S I«Ďľµ@…6\ۇN§CIH ¸´äżďĘg{W¶|—Łˇ“†L0¶l­´?íţöăŢ.¤P ™ţşź˝Ţ»µŻdX˝ßkď/ÔâĺŢŰ=ŐýGvŁß.Űo %Ą[,źďIŁÖßsĆ«¸î).8|˛XľŢű­ş]aµ‰®z\7R¸Řę»^Ö ŤŐ]ş,ŚpRUOj%"(i~_~ßÉEtÚ™$›ęcĽĆdr@ÝX˘R¶{°7€ đ˛ŃoJ˝XŕKľnbaC ‰«5.×”§zŤ7C´VUgĂăWôři;gľZŐŤÚ) ÝëÖjUť /ŐŤ¶AýP Őqz¬ŤŐ!>6ZXë«ý´/^ĘŕTş­„sˇ›*-h4ŕŇtőkíÓK Ş7$ďÖď8ť¤­$ĂT_ă^K+ ¶ä˛řëŐ&«é™v^ŁvÚŤ5$®+&Wi*íˢQFx®´TN%pą"í§P%Ľ­î3řĽ©ńZâŽţťö—Ď1wLź:¬çŕe¨ÎÓâ„ŕq €ŔÎ7±ßŹ—82š$o’q.NĆ„C´üX˛ú¤¶÷unWďŻÔ>†"GÁ ű‡{Ë/ç´¤ýo“hŹťĹ!ÉögvˇýŔłőY¶Ęq‡±ö6˘Ç(kvóŚF+ô>č빇-Ů•ÉYďĐŘ)ÇHf…›NI}ô€ń—˘//Ł¸Ő¸1+„ÉŔO7ůKđxHđ(+Ź‘š§šWé eÇĽĂ™ďóY ’5GŇńđĽ<ńĄqĽŤŚ¶ĎĎ&Ó[Wý6@šŔáýŚ &ÍĎ(ô -Š-uí¶ÖI”*ĘřżÁVŁ6ű¸řbĆČaŐĹŚ‘Ýć˝á˛ –rJR0]•ÜÜ‹-˛(Kc|íPíwĘI 6ó"ĽňÂ%*늣d‹˛ăôÉ8ŻĺEXŕ!>ůŻ)˛Z?`4l˘t¶×ÓÚýôhó::Í}óYYŮáq“á Ű2ĺ5Yą†ŰBćA‰MWś@Žô Zů©áńů`Ř_€śĎâałyű™Yň`śpď×.ÍÚ4łE kont{iş ™n-ÚE“š4Ů‘%°vEuç•ťw¤Îj‘4ýn×çŞÓQÖeő©÷±=čôv"ŤNžČ»¤~vIěeż6Č-lôë:Sw¸ŃÜGŚKăŤJK*%îPÉuL é‘ŚěßLŚ®˛s:ĄüŚ!‹®ľH9Y¤2hěülhU18biśĘ` Ł`ś5˙Ěp ţ,áŕ—Z!OňÁ1žőjŚ‚1Ő?â(hOĎËĹ4 [Xr¬ŤŻž”¨ďO">“MÂL›’9u«H±ˇĺ¸‹-pr˘FŃŰÄ6ŢAý_6¬Z¶ćqrËŘ]ÖôŻ_üîş"E`>‚›ŚIgÚ*{ë^îEú ŤxÄF,éö“ćśd.{ÁT?+°Ó^ČëiS˛\jRmR9+Ő•Köě v—,SÚHîßqe°łÁÎÎyŻ—xQ"z*á•ń&W%y)o— Po ÉÂN2‹I[Ě‚ł»ĚÖ2f(Ň.*ĐüÓ\wş22¨ŞYł—TąĎ¬·Lfl§›a¸’©A­r×yÁnž”•ĎâFnČŮÁźřÚ´·¬¤–‡“¤°ŕ/¤č”O÷®ěU¸ĆÉ,öYZ”¸žŰĆ"/GŤ×]ĺ,–tü,µ6=ĆT€k/‘QŇaJ<Í@Vľ‹¦áE‘±2JŰ˸­Ál‘}–+Ć }jYA[©ŔôśŮÎW%rČlŰKÚ!fĄîÓfj¬«§ÝUę–”…Ýf™. -*łeŕ°ÖŹ_‡Ä7ŃväWTxËú5‡ŻőŰćY‰í°Fi Ä04J5mýÚÂ%Ćną„… LŘ9ă|Ć^K2-ŠôĚ3ŐEôě"–ş}ĎIçÔďúç($mż׿çaŤpŞ«zuíF¬ňg­ť)ë|Ćűç2ś->NF#ńń´Ă6$Ż5ݸĽ,ÄÂ+<Ó#F‡č¦ ŃSzÎşˇŢµ=łÎ8ľC3ŐFˇÜĽPZÂD(EBÝĎŚ^/Ę:“ß+ë¬5{őoÖﶚ„]đÇÜĹô¨x04žÝfřŕXéě˛Âo=ĘÚš‡ŮVí°<˙Fh:ş»OÇŔĄŽđ5ќ͸ń$´L$ JĄ‡BőWťúěAą=¦p(/ĘM Ă˝P)ág˘€ŕ[é xÜ™ŞŇcąî˘őĘ°Öű“ań$q^i¶“&ý|Ń9t™…ÉSŕ Ö)p† ÜpŔzhv˛.§ŁnúbŐµ X:RŁŚ.,Y<&¨!A÷Ëvę!¦í“Ź¦(UąËĐzŇáÉ<Jâ©Ęi¸U!·¶qŃj7“b·žŇ~uLüwt÷ś,04Ő¤RDo§NgčeţŽůߊd==ě70ł[‘ÇÓ›«î¶ŮÎ xßéęŰaÇXCRÎ,[b»×Ń-2g|mś"Ą™Â6ůI™Č5§KłPŐó¶BB$¨ťžQe2 «R˛î¬H+vklóÝŁşi·˙or!tˇă^ŮŻđř‰ŃĘ̸ôżl3€ŻĐŤ»Ë5ÁRY°ťüV@S$ŐĹ_ŢäL€•Tđc˝›ď6đ´NJ>ô^*Ďî.÷~ÂżX5Ç5endstream endobj 185 0 obj 2315 endobj 221 0 obj <> stream xśí—Ko1 €ďű+ć8lj“\‹ **E”9 !„ú ꛶Rů÷8łł‰g;T RiŐ6ë8^'ţb;•VPéôľ÷Nf/¶A‡ęđrÖË+¨Žf3~čA«ZëzĹČ"ZSŐĚ´ŠĐÂÜY±Ę2@Tˇ˘@s +˛E…­®AŁ‚±‹ęX"]1BѡNŮŹô¨˙yňmq# RJŮśuĎVĽ/_˸D^*ÁQľŃ"ą”42™%®dÉi] ŠB|ââďr±Č +ÂdVČg#Óń6©"j;ęȶ3G0TŽ`óčÜP±z÷®F)áEü\ÔAđłSćSGÄýXŕĂšDí<Ź®ĺ_µŘw{ô„ĚťČĐnťą3­s.,Zůߪ0lŔĎ=ąŻ73 ©IpŚ7úĄa_Ďó[si°Cënb0bzÔÎ#?ĽY@áş_v}Üő·iă“-M^(ŕµp[d˝ŇüĚQ´üüÝ—0&şŻ™Đ›ĹaÁĂăó˙0>e)NŁ`ţ‡|cbx¬úżF}˛IšŽ=–Řo–:'Ţ-»eŮd×\„ ńČľLŻ1ĎĄÔ Ybůa´[vQ^ńĄÎőčą`Ś\#˛Đód¸ÓýŘ˙R– ié÷§*ňńdń/·(9­˝ňpO‡"śˇř.·×:°Ű ¤¸€ ĺfw´UNą[}ě}!»ŢÍŢóç'ĘŻîÜendstream endobj 222 0 obj 871 endobj 235 0 obj <> stream xśĹZKs·ľóWě)žIyaĽÇŘĄr)Ą$Žł>Ů9PK‰r‰\ŇUŽňëÝ ŤÇpiÇ®”Ď=ÝŤţľ~€?í8;Ž˙–˙o/ľřVpż»ţpßďÄîýĹObůľ¬Ú}yŔ…Âî¤fÎ;±;Ľ˝Ëˇó;ă 3rw¸˝ř~z9 ć¸0ÓiŢsć´°ÖOŹó^0®µŃÓĂ, ÎůéV*Ł”ś®ČŇŹäůŰTPN¬¸™~ś%΂CYż~ZÝJzDŽDmˇ"v ¦·ç«Ňń¤ a&´ˇTl­:𼟰u©×š˘r2čúż Z¶+KśąđĽĘŇ: űűV–(Sv•%ľUˇ©,q&dE[ëy(/}€'8©— "S?â~É´î*St€˛T­h}ěómlZ,xzLź7Eż1“ŐPJľ¨˝ž:FP(óDÇ®m›8¦ďÍţ'ť•%PďňnŰF^Q_&_€†ółĄMDýWŘË•Ľ<¦±•ş˘qýßRđ`ôs­%đĄr@lžÂˇJqě]şýťîąB«=¬Ą`w•IĤ2-J0 ¬%°ŐnŁ ÖeĎšµ"ÇE†ca«=žJ ,r.s?$"ô‚tž9Â<ăySW6iůř4±“rĄ@Ł»Ôę•ďh4†tćĽŃk»¨˘Ň"@‡r|4ŰJ|·ť™”Ěś»#8Ť‚-+©ľ.±6AŮž6€EŽ}]V»SyaŠ×µßýS„9ďűű¶(aÜ_·ŔS‹ă\lÎR6 x»Ľf> stream xś˝ZKs·N帿bošMyAĽľYŹŞ(e%±ÂŞěDrą˘µ")Rk‹ţőéĆ F«U‰.W‰ăY Đhô×ýu7>,9KŽ˙őĎß/N^ î—ŰűE|żËw‹ Ń˙ďG-źžâ@a—’3kĄ]ž^.D˙PŠůĄńśą<}żřą{¶Ěëe÷vµĚ(.d÷fĹ™ŃĆ{ŃÝ–·ah°ž6+ɬ”Úuw«µ4’ˇ:1|ôżÓd4sŢ FÁ’?.N˙ös·…™”QJâôś9-¬őÝ=Ľu\î ¦ç† ß˝ÇéÓş[§…ś·Ý°5&8×]Ă[í…˙BAµň\uż­„`\L|©‚t$őL#-ţ «KĄÓB:ŔÚdŕďĂôý>xXظ´:îC3©‚Ď[yąZĂ «^ÂÁÂ@Ó=¬Ö†y‚ęnĘăxf‚î.š®ÓŁwÝ“•cĹŇ×Âć¤éÎQFkŤ°p@ĂăÝ ěArË´ÄŁâ(‘ç—v¤ac Ą¬Ęź+X3I¨u4S6ôß+îšE/Tż’0Đđr?‚`m‡š0Řg\ę&ÁĆlČĐ‹ „Gţd0Ěře™ŚŔ鮼%k/qU9× =ĺwŰD}|ŚëČĆ`×cóďŃËq†/7Č]śSÜvźĘôém†1 ŘY‰PgĂď»A¨2S“Ýóšš7Ţmy,j&MLóÉĘ\ĐŃ̸O\(Śň.Ŕ¶˛«"&LŃ~dÍ”dŕďgE]í‘ú 0X„4LAř8ŻĚ±a¤łŢ(ż˝čyXĺY3ć rnřÝ3íLĂŤBÍ5uČ&<źUmH©ČďIŰÚ{˘m˛Ů‰«!Uů¤z6Mń?öÜžĚ>~&Ő®PJČ;‚¤ *ç}^tývĐőMĺřĄ„ĽŔ›B´É'P}6;6/v×Ď[}u; ¬ŐObDŇŔhą÷\$E$ĺČhęÔˇŽ°\QŁĎAŹ›öç—ĂGd7}:ŕĚl6‘_~?|„bż8]ü´ř°”ÁËUÂK‹-•tL{ĚVźľ\śĽ|µüx·ß,Nţ»‹“żă?O˙ý ţĽ|ľüËâĹË%΄ßlj„ä8‘Á `"8ëŁ&šK…kURáë‚ŁC±c*Lz3 š Đ),Iř C.…ŹDOŐîŔŹCú'ěc°Őöš™XAíyeŃ™ (޶xÂç¸ ťÓĐV÷•§ŢŠA“şQĘV*Zţ¦¦#8Ż8Ëtǟδµ;z¦6´µłh8Ź mřWęd0˝Ťkeş“R™ó¸šRtżťĐ‰PŘlđÂĺ±wźáB¶˙l(©|–ŹŘ-Ä›ľă“2C›jż'*k2ÖŠvM‚˙¤w©8×c‹€—xÉUoT[áfśčjËśłuŔ㸾’»´ś—a§w\Žä´¨â Ź?˙9@*sôLm@*ó§ĐEi>Ő¦ŃtTđţ<=¶đODú#âC»¦HJŰVÓřý6vĽNćl Ó¬#gjŰ”^?ľŤ ôt_lcń„śV; I‹é`›VEâF–׶×ÇVD¶W˘‰şhB ăšńă;ją±“ŔŹ>ŠąŻ’9sü±­ {ŔŠó!¶Î7O0vZC­„ص­¤\'ŰGj ·}< .•|úF̤÷7ô-âˇÍý­Î™jÔŽč‘Ňěc–'ÜŚtl¦Urµ’†qä!ÍVIEp‘á;Ç[㧙włÄ »6&•9V‡Şł¶>—ťŇóoC0±Iř ÓÎxárŤÇľ[ ňŠž)yfŔ©‘ąą$JĎ´•ô­p xĄŢ_qęL´‰–|{W8ű8ÉŠhžš…u\kĄ3ghů‰îŻé….IÜĐň˝gBĘ™ZXńĽ‰ Ł ÷¤J‰€ióŮş‘tśa§á‹šščÄ„•ß ©i-łÚŁ°ŠËȶ·mß’Ö„$ŕ—®,µ=°ń"_»˙NjoUôş¶ű:䍓ń»TPÔKď ęÍ€Ů.͡ŁµxŁ+ń‰xÄý˛JeB-˘ Ó /|řl¦^ŰQ˝<*6T›%§9Ől¬?’ÁmšZzĂ©¤žt0t]?[ł…`#ŔWËҢRĂf~oÇ»’_'Őę:†NU‹ GŐ‚®5jG)ŕx›ˇI|ća"$“]7úK¨x çŐ1·Ăpv éű. “¦ęÄâR˘Fô†HŇHµďŇöAîŮ^2`o-&¸ŇKAP¶[ÍěĺË9Žŕ%;ŇĂ•±ů.u€°§C÷kŃńéĚTĽ˝4Řz}Q >¸ŰöWý5.|)ƆǞs€őť(WÁf6ÖLą_¦‰NÍÜk((.÷ˇŻꙆŐ~diĂ­Ż ¶­â!s˦š |ßrţ»*Đl_":®GŰ;–ĆM—]­U;7^áŁĚôšÚí  ˛×Góô‰0‚ű‡Ł0ˇîs¨[<®@Ş€—Är· ĂČě•´Tő®ČĆ8w+ýčTŮ"T÷/O^üx­V–¬h iäś@¶řťX"éŘÉůÍőĺŐv·Yťţş° ĺýť¤n˝ľ¸şs¶Ű¬·ű+üyÂët 4>¤[B ÎVŇ2®,á‘„\’ÇJGÓˇłô±ş¨Ş¸aĘć˘jňDşÝ$®‚^Š.ă+§J@ jsŇNQá|Űb óGĺç ŕÂŤí‡dF™ěü}ʸľ _H=%hśÖ őĚ/Ďš-ťf Í‘L¸9ş‡őĽ^¸my™ł }»öŕŃÄĄjŢô'÷ým;H÷H¬łk ×Ń͇ęJG+O>©ă}˛xUÓ Z’®őmN¶î3Nëćý];Ü@ĽFá‚Ë÷I®T1ŽÁÉ«RĂ_r‰ÁjzšÓ+E鶙'_µo ·iĆE’ű›“°W ¶E:öU´ŐÇoöřľ~GŤ âĹiXO줣˙Óâ˙¶2®endstream endobj 241 0 obj 3006 endobj 263 0 obj <> stream xśíZmŹ·úń~…>čŞČŇË—ĺ‹á$hěŔqa»­}hPśŤB'íťÔčnIçäúë;CrÉŮťsn?ě5—‡ĎĚ<3«źgăł ˙Ä—7gOŢńĘήg~|Ćg?ťý|ĆăŞ8köÝąźč`ńŞŇłó«łŠ9«ĄâAžV†»YăR2;ÓVĂ›ŮůÍŮEń|®X-”ÓĹó˛bÚ9-ëâOäůŻsÎśä•*ÎçĄdÂ)c‹ďĂŁ®xńn^ e™¶ŕó˛fÖ:' ŹJÁľuńrRŘűôôj^*&4ŻeńdŐ5¦.J[3ntĐĆT•ŐĽx‹3$ÓŇ™+Ă”5ĹßÉű¨¬kPĚZfĄp˝ d72÷G0rÜÚŹçŽ6uĚiˇÚ”ÇKPF0Ązö3ţČŽó:¬ĺĐî"/+Áěµe IĂ?—ěɲ˝˝Ú\ßí›ůůżÎ´`FW&źŻÎŠ˛\m‹ËmSÖ‹}łÂ'UŠ7 +4"·´Î÷±™t] ^Ŕ„Ň0Yëâr5dĆ–>‚˝á¦l±ś—śi]s]ě +Y4yp%lvôëŕ'%XmdŃfmn“Ő: ¸ě+TŚ3ăT§9\î]žzť;©–7¨‹µNŔ{"?†SÉĘpzÖcÍ›nň [p€·AUÁϤ5®řuŽ\SőŁšwIO t9ĄTwŇ6ÜK,ŃĺŐ^㽼•„ű”¬Ö•6Ĺ}>61Kެť#H…’P¶‹±UŇ©eĹjîččm’t•˝(xźÉö‹l˘?ą6kMî `NÁ±˘K‚Çq",Aü—ń%F)đŽ{Y&dhB'ŤT'FĹĽt®f5 í]4·ŞD(,¬© DŁ î]€1ú Ü 7n2@8áěüőŮů/:”"Ěwů1_99XIŔRÓ·î%j&«d;tŻ-ť˛@o…¦B0mU±:áëÝTb{rOdęĺŔ'*c¦ŃK€ľęv­ŕŔQĂŃžT4€'Çű7Áą9¬x ÝKd+˛lěŠřŘdřÝ’s«Áłäŧ)W&R‡çĎ:iňL d•ý\?Ľxď“Ž©Îů¦·lrČY|n‘˙ËüCęĘzXHĹŚtń*¤Qá*`}¸ &…­şÓI.Š§6*Č\µ‹ögÚ ŽW[!‚!LĄŕ‘\Uéő«]ĺshÎYň虞Í\`ť0}ŔyH8FPôßćĺ> ˇAŠGşÁ”4šI)‹ďPŰ)ĚŻăV‚¦@ŻĐŽ ©§sąÓl2Ľ1c!ĆŞIv´<ˇ ÚÁÄË^şÓ(„ťŽĆůÄÓé†ÄxFg¬’(0Ž(‘čŇŁődľ ˛V ů Ń#™…+Ě m1!TŚëś˘ŤV÷GđV”„bÁĐq• G“É>^”˛ÄIŽâÍŞkâD@¤şŞăQkĹMŚ-†ßÍ Źç(Á­­x8áMmĹ}Ľŕ{4ľÔ HýŰXÚ”[ŽHXtXÓ]‡¤ŕ|0 ÉN‹Iô ˘<®ŻEU‹a° . &ŚŠâx3DšL.ëPAYA趎ŕ{Ô„7ěóýŢ'pśH26™j{7˘‰ý~Ţsçh8ť8lwfo Ó1¬ŔĄ&Ö#ä,҇iRFýÔ_cA0Îý`Ą ş'#ĐßćÜd4e87ŃŢŽ÷»™é˝>í$=Ś{•SX'á„@ď8 28JąHŠńŻR)ń–Ô"ďIÍé$Cgz5éë쯱PŚ[bČ•Żb.T”–ĘŹ—/ČsH’˛RľŘ…»`Bś¦. °µDW«(7]«ôC?šĹQôî˘ţš!‰ô_hI¦™vŞŔÔEĺ%·Rů/ 7@˛RdŹśľ®Oqú8ýËI˝Ě¤ţÇ9‡$[€‚pŰ• …§Ä™ůr÷ÔÎ-㦆8Ëa«xGřÁ›' ˙}@Â8×ÎwĂz8®Őą˛‚Y(íü8W $ä"şAđ)Da€†!ZNvňE=ŔS/®E* ś€PĎ'y-<ńĂo#Žůď^ä!ń{= 6.eĘ{ŕNsť)Ő}ÖGŻ©çŤ7ßi <’ŢI‡ű\bg=V´/á/GčŃí@í™˝7Löeôü^”ő3†ďiŤLEŔ3Ř‹Ů #!ÇIaâYXńdňńĎđńĚË1şÄčË´wĆi>°śÔ‰%™AdőIÝňśČ…5“ďI… T3Ňj}-°‡<«Le‘Hc˝»×»‰2]ň„Uźťß˘ e•Ć¨‰t€, rÚČ„é>vË ĺ‹(3°żG™†ČdücÎ}iÜëŢaA‹šČ,VüPý.qAQ€aö*Í)J2 ¤çů›[U^“‘‘´$ČÔ‡Ú`]રkb?[lޱJ3¨=IXg•>.ż¤žśuÝÝěçkŔŞťC× ë'‘»Cń=W#wťâé¸ŕBź&šŚúD$™ž sí…Ł›ÉČ›4Č ’ĚűDĺÉ^‹)˝‚#E«ô ËOIđö1z)p/¤–kĹŘ»żJ¬ĄďµÓOqO{á@(äv˙O:˙¤“5ĂGúóC7UÍ©|‚őuŠü)…B®€'é®ÉďLđ"ő–şî¨·¶Â„†ş ŕ~ą/df[Ł#ővš“§ ú¶®&c×Iút«˝ĆohˇŐ>Ý$éZ>žüb°'Î0ěyKZâýZ×/}óH!đ8Yť‘&\×°}*Š”ÎPăGŻ^ç4´Čm7¸‚îrr˙íoH{ىKUYdŹŁĆ´ˇ1BóÓ Ĺp]bÚ¦“M›ľVśřV Pj"µŰŻs?—†$^˘w|¬Lg9ßc¤¦Ä8 k˛tFEw#V|Ě—±Dö"Éň'L™q…ĽďşĂřŽM[ú™h×{=řžRűb:©ç™pvÔ6ôý–~3˘,1Źviç‹Ę®ć•cŇč>dĺҧԫĚŔú)qÝiä»}Ú—@Ň*˙ľ¸Ţ67řÍ›<ĂWý‹ňŰŹ8*ĐsÓ·ţ‹rç«×ĂŕłUóiłlľÁ7@ˇ+"äŮşůőźW›móÍG/ÍH–D]”ËŹă}źŽË¸büSXsčÖHî\ZssŮnýţśj–ĺ”ŕĹ@‹gvEąűĘźw®V–»}»l‡v˙őłÝ~îÄđÚ01ąŞ€U‡>Âζh÷Ţ]9˘s×âvqlP Ş\’;~őˇhŘ5ź§Üí¸^ZŐT%\1}ű× =LńXúaN­5" ;őrtęe{sł¸]}ýţüÝ«·pjëżÂ˝ §3@¦t'őp\ěŹw»hdr)QÄ´őÇúP´»ă¦˝]lÇapůqAĘ9t˛ţűóŚ0ˢ<ŕ+îĐů:AËv5Ţ:Ăř~ś–âAÉ=!}XüńR4úëžŃÁć^[oŰdÁm{;†ÁˇŮ-ö‹cřEMßPŰÍá8Ö˘˝ň˘k,@ş™«ÍľYŰý¦9DŇٲÇÖk Ĺ0 ­ÍdÓCłŘ/×,Ľ–íÎóixžOÍţ° č‹F˘;™Ü[öĘÍPôr»™°Ĺâvs;q“7íjb´˝ÝŢ ¬€‹ţ˘\ őŘ,Ł‹Ľ©swhĆ.ůęů‹ń`ĎÝIČ+Wăk{1őÉńx˙ľú0gQQż™Š¦úˇŮî&Nĺ1{xÄWťqżjeôŽó~ÝţŇ ®3PÖ›Ăx»uV‚¸ë D»Ĺut0rűŢZŢuŻ{.űbsŘm÷ăk˝ě^Ť­–¤ôŃEv˙̏иě©îGhW*uűýdYFXĢ~î˛Íż&Ë4ć‘ÍwOÔ)®8ő{7>řţ>ő ĺ ČE×Mšţ1ÚO©p#«úeôĂ<$&Pä!oîËçíÍîîŘě?ţŢ“Š¸a4I±ŘăýnłÄÔ}˝_Ü@hNlĺ3Ř÷çg?˙ŕB:endstream endobj 264 0 obj 3046 endobj 305 0 obj <> stream xśµŮ’ĹŃÁă|Ĺ8Ât;RÝÇ#lä#‰Ĺ<’ö’µ—V+›ý{gÖ™ŐS˝ł8 €¦§:+ď{ßo9[Ž˙ä˙ľąÜµ}zxĹçv{tşá,x«´Hđ¬v"lë;ˇó[ë-ü˛=şÜü4}1kf¤vúzŢqfC°ĘLź“ççł`A ®§Ły§ Úůé«ôhą^Î;©=ÓŇObŢć}jbđ¨5Ük¦ż}_źžÍ;ͤFMß,ctfÚ!XĂ„ł Çą·bú'žPĚ*?}7kÇ´wÓżČď1e ć=óJ†îąŤśýŘ đţ—Łdž¬´y*˛´“LëŽ>’„0řĺN)Ďŕ›ťtđ5—ŰŁc8óó”î䊲đĽ1ëdŢ f­6]Ż¸Ł×KĽ?BúiVĚ 5pJŔµĆéľ~Ś<Ë÷4±^·k.‰ nÚëŹéy7¦X¸]”ü~/őRNżŕ“ĺÖM)ß ů匡`ÝUUNÉéWrëN"ż¦·íÜ|gârzŐ0ąÂ·’YPŞČ»@哨—ȉ ŤU…Rřý˘#Or Â4…Ađű)‚Ś'PRqf„¤Řßף (AúMĂ” r †«^ŹPýP™zžÉ ’‚ş®F©"Ź=ňÇx+H[gTă÷·Q?Lŕ~*9‹Ráŕ-ŕě.óĹfÄß €Ź oĚú/±´Äc¤ČśoŹŽk)ŁÁ‘Te'˛±}˝jŹŔ=ŠF3đ wÝËrô¦ł+©%3NŃłçűt ˛’VĹ“Č*®4ĺ÷is&k¶S˝9p>ŇTyŕ^K´ë¶]ĐôtM`•€źçö8béqŠóAwŢľ#bB”cĘXj+×K­EÂŽ€ň•’c “´1®h8ZŔu§µÚ2çôôIŤťŮ˘ŇHÍ‹k9Ł·xWŁ—D÷ c©g3:›l¤ó>!ç!ćťµ·7ťŕŁĺYQËWĚ Y˝“i<‰Äí„üąH4ţ@Ü61‰ă%•P߼`‹!˘ÁWH 좇žIałůć«>ÔXó ’qżo¨FÔů?ŇŚË5żx•¨@.¨A°  đ†q đu§VśŤ•ôÚ«ܶ„w˙‰DqN çÝ [yk—Âö A`ßgÜĽ%Ęôj'§Uđ{`żgK3A"‰QvH–Łghťśy§Ć¶3´˙ŹÉ Xµě !Šă<Ă ffYHĘO\YŠ­Â//ŹĹ|DžŹ'é»*•‘ÄuŇz É­'Ú‰ą_!cÝ°BëŐæă¦.PŁKÓf‰G·ćW’ Î)¤,˝|B~'IsN«®ßÖ§ľx•JA¸7ëą<É‚2ň2›šV&׬PÂCžĄ´•Xł*PăíŃ7›Łżţ„} 1îb¨iAY/ݤć].f/g¨Ó´ I€*8/ Ą}¤¨I-„%| Q;‘Ô€ţA8p†tÓNA=u‰JméË«úń⼴1ÉÖ ŁÄ°âĆZ˨LŔŮ°Zći‘TjG™IÜ Ü¬ „q­~]p»7g¨.đ]iiS ='Ă„ďł@$Ôˇžô,zĹćý ˘¤ů}Ó꟡Óh@m@A,HNJC[G e±Ht˝]÷Őq_lj¤hĹ„–ŔÔ’¨¶ű z]lFîĘ˝¦a@dĐ4âS^%×á™­óß ţÇ…Çň¤PęsI“˝>\*«bnNľß“JĚGb3•;śÍ.#"]#ă8Ý,eąWŻ:!9(“E/0]×JŘŻąŻ±ŤTPoG!—ĐE¤ŃĹÔ(yçĆ-¸·#ËhÚŠÁ_ŢŞ+Ö řč´7ÉiçnÖßjYM„AŁĺ e$ʆĄ TbŘęůÄŕ‘Ź3&˘# ĚŮőµ7aIV€PMBťt°Ť:.!“¨ĹŃej`9ç-ÓěBsě6Ę`SŠ¦î“ ­“arWÚ•ARTIX%9ă8©,]ĽŽ…Łi:‰1ÚşŕK°ÓÎđÔOźĎĘ0‹ŽtŤ?KŤxď4=I”‹ČfXŁ¦Ę2xIÍ󔤳ą¦ÚoT<*“«š×$(KĹü«Íł÷ÝŔ"m;’7Bµó†uź3XĐ­§5klĐd–5XGłŕ3•b@. \hMŃ'7#-%,×î'X ›a¤;÷8Ëgî=µăXő‘Qúű˝îעĄ8ţ¬ô:ýš w-”¤*NšŢx 5Ąs¤ÔHAü8QE kŠ-ąHj”´±HJÍL˘[#‰DŹq§€X­—ööŚX+azv(%ŕk^éŃŐ1Ó˙M©ML˘ í Uźxâ?*~A6ml×W&7ixżx»h&.ÚŃ{ţ‚E Qă•%żH§U`Żg#ßĺߡü¦ĺŞSŽÔXK §>']ýŇďěýţ †%Pšzw.­qŮyHLčK˛ŐieśťAŘjŞÜÔ‚Ç^ăf9Íi˝}R¨$««ßĘ]-±zsČ}ßiĄá›U˙wžžp×ŕ—/eĐ*Đş1ďě­ ť[m•»Zi]zs^ţޡ‚ đ‰bÝ"ăµÎ”R#KíBZ ßőŠ?z™5/·–EfJzm»őQe)F€.,ÄKŞňUă6鍓ěnŮÓH¬Í1Ë° §ůĺČa,g“Ô0,ń K÷vµúx»tÔłűŤyÁĘ䡒ĺŮçžş úÇI;Ďbp7 ;× @{Ů—ÖůevižG± SZ*‡67N Ë-é'ů=#Ű''ĹĐ xÇi?gĂłJxęÂJ·ĚűqĹCü& ť)•>¶˙qD~?r§{Ůŕň«ý!O?Ĺ%%•Úx¨°Ň÷H“rżm€Y°ŞŐ§ŔúY30ÝTäCČ9Üýé–^S‚hőZ÷9Wý땢’{® +éÇľÄÇłćÉŮ?WĺČ3ąHW?”w—y ÉÂbf0M@‰ĄĽ‡bŕÎ.ÖGg{n¬żňfiĄPĹĄ¬ üÁ,uś9ŽG¸]XôBL(Ç`Ś\±wěšď’î1ť ĺ“ŢŽŻÄRîs7ŇuÉĆ`ߥť$·łšhżż˘ń‹SÖĆj­:꧲©/ĽnŹ1T¶öNB]»sTş’jő3÷ýfWÍ 4)G;˝Ć=#«cQ›foí%šÍ^H·2ô ýV6–śeÜ›eÚáÁÉĂdgj‘Ąć~FkMŚ[ĺ·ôĹy ÖµóŽE©lcÜWň›^LŚxâ×äľţőËxq4éĆc×iĚEőłéěęÖFÜZŮęZ 8ó‚ÇJQš.8p®kžŹŇ~ >S€Ř“Ňb܇Rđ\©E1%˘ĺ¸í’§±˝I<ÔźOô$©ß´L䣭‡ŢĆZwďTZĽ…"XżU8›C€UÁxĐÎá gx»zř°-Ąńąő+‡do…‹mę@č[vă;]7#lúwv™_ZĽŔlE‚nXą˛ńW7ÄŁňĆŽi 3דǼ3žšŻî wüxŃ7_ΑƩáD#oŽŕÚú`q¤6§-}‹ZÁ´\6é([#ŞćA¶v]cŁČT­­ĆŇ:łÚdÝáş…Ňť>Ȣ?t}żµ˘Űѡ­)ł°5yČÖśäJ{#Ö0á7GLÂń kÚLÖ#ż:ÚĽŘĽß ĺ [ůpŹÇżkpŘľšs\ ysąyúlóäٷۻۏ'›'?nĹćÉ×řŻ§Ďż€˙<űrű§ÍW϶/ü« ŇpĆÓż€Ä¨J2ŻÓä]Đ{ĘUŁ‘«üÁ‘oŠ_Ś+<ŘËBpŽ^1Î}V8ęő Bç.w‘OŘj@Ý)F}Uyy wVëTgzŕcR^°MÔ§űzO¶ť@”w RAŹ§ÍCX¤F¨2¦QwőÇó ćU>V(čyoB;• DúÚB%Ľ-nędöXGiJ/X¸2p©ę/eź3î+˛î3K‚4ĄÁt_‘ĽŰŁ*ŤÂśŻrçiAi `4|®*Ě,Eté3nňęo:)!µÖĵ‘„o–¤j]™„!]ß⠨°SŇó‰h.żťWhń;Ż1,á+\ÖTËqÄ.âßąÝA6¤áÂę9k.ŘP> stream xś­VÉnÜ0 ˝ĎWřh°*R˘–kŠZäŇbnEI&še˛´Eúő}ň&:I-ć`ŤE‘ŹŹŹ”ďk¨±ĺ7=O®7o?“MÍůĂfxßPóms·ˇéŹť¬šm1¤Đ°5!ph¶gšs&5’¬ńľŮ^oľ´ď:2IBâö˘ëÉłÄíQgŤxI‰Ú}}űÓV§›Ŕěc{ßő,l2ą–—C_·gŢÄ©@€UĚh7Ű7%.ĐIČŰ[řuÂɵ×xélâ¬VGĂ®sÜŢt˝5ŃS©ÝŤq=„6[çŰKŕ˛>c_ŰžÂÖ'¸ăöśEK–VŹ/Ö[„Ëą¤6/ĎŞÁ‡ě¤î×SSę67\qđCęŢ$oyN}ŰőÎpö1ÎŤ”ó™m0ž&Ď!pł\w˝7™˝źW śĹô¦š‚ĘÉd|"sa;Ëňf—’ń™'găb"ČY^žŽÁNÝHȉ(˛řLŮźR.-Ň*ŔCy ‚ ’µH\9P¦*–Ęć 2î‡Î 6¬ŔŞSŻ»=_RĽx-Ů~8/٦RţŮŐíbŞü˙ěĺ÷.čHj·2E¶bň¬'2EĎDŞŠ~Múu»C*HĘűńâňjUźé(j˙´VB±‡žK†ňg‘ť/‹íý˝"RR{ˇşHś¦4ĹSÔúúµ*˙l;×ÜĄ)«Áv•˙|¬đĐODô`7%K#GŞîY¨ý1ä`íŞ •®28®ŇW…şŚŕâżußŐ|Ş0QxŹa(Hý ĂÂČZ"—+(3wžCq\ňJCjżúWýv_…«ÔľMă—Z ęšJ)XtĆcFV៪ôžµ«‹çřŠJ|’xży†Zöo˙NhíBń'cď`Đ×Ţ9ެÜÔp˛vzĄŇĚĺíd ¬Ç+mdҵöu˙Ą §Ń X-ůáNK¸K=ë¸OËrě‰1ÁžXŹ‡y"ÎjÝ×ĺëS~ă…ô…Ĺk\XŤë[jVĽJmżööěúŁ\ĺgE).Ë8ÄGEä—aąś<ăłâ˙Č׶‰âuŮ_ĐŁQqPF6j"2$GŚYÔôř Ó1ź¬“żÝ|Âď7˝cyendstream endobj 315 0 obj 869 endobj 319 0 obj <> stream xśÍ\ëŹÜ¶/ŇoűW,úˇÝ-˛˛ř&"@»‹Ľ{E?$Apą;űÜŘwçř.‰˙űÎPĄˇ%­WEŔ§h%ŠCţć=Ă×ŰşŰ˙k˙^ĽÚ<úVÔ~űüÍ&ŢߊíĎ›×ŃţOÝ>µýä,>ŕV%ęÚnĎžmę*x«´hĆłÚ‰°íď Ą*żµŢÂ/ŰłW›ďvźîue¤v÷ŮţPW6«Ěîcrýő^TA‰ZďÎöUÉ ťß=i.m-vßîRűJKż“ű©ĽAí*¸ÔľkČ'ľÂa]]{+v_Ŕk•RµöíĄôµj>Ü>ń%ą~ ŹUYcvź7źVpůtĐ•´Â¨ěá'8#]‰ KOśĄ1ž¤ËoăD­»żďĽ+ R¦Ň:ř– ü5˝ňĂŮ?ÚU°ŇjÜŃn™¶^ČV[Ä B]Ý_â OÎ6ßl^oĄ ˛Ňń}·ß ka`Ǭ•öŚOžn=ýb{˙ËĂŐćŃż·bóč3üç“Ż?…?Oo˙°yňt‹cáűq !a6ÖřJâ@ÎÁ-č°cÎÖř7’|±?ĘZ#ěî6ÁăîK€]ꮌU»óćQ«üî¦yÔ»Ý%·NmRâ×ţ´)áp' qoöŞ2¶¶n÷v–P4&Nńż$Pľíč,§{GWF“1'KyüűţČ4(›ÖD¦‡EßZmš­;O¸Ľß€„E‘‚^’†ŻçĂqm‚¤ 5ETv6t¨Úq$!]$8^Ł¸´•sšŕ™ đ"]š5¨dą*ša˘ h•¬l+Ś~Jⵕ0 PŻt‰úy>Š×&DŐrHČ?{‹ŕáľ–FB¤ŃŚÔŃ Đ!Bő*J4KĄ+:çŽCá‹ă›t7qĎ$—ŻT‡2śHßK°>–‰çĄ8 •„í“‘ö‡ÂŁńÔËDddg´žÜÚ3–`JŐůŚ©äĽ¤–GŚťĺŇŔLjf€$O ™$č]ŃKVżíĢ!ĄŞ+S›ńâÂĎÍÚz)É׏’¤Ë—ľŚ`aŰ<‚…U EňRŰJUW;Đl#›•l/JącBí'‘˝6%(4BNIriP$ZüvΉňÖî~Ĺ+«€¸mBţżJÚĺ YĆi žâB©Íă´VaˇČ^ęYI$ÚÜÜěîe’ŻdM{QKašn¦+h‰ź†]kiŁ'Qľö:ŔN"żŇuxLä7+‹G Á ËoüÄ đ«–%Ŕ:!&îu&«µ¬ŚÔĆ&îaNĘxâ %ĘQE#šĺa¶˙¸|[Š|Ć«JŽ8†')q7Ű0^}î€ :óIŚßq|K€ß™!Ó/†ŽâÎDÓu¦Ďň“Úůxň3¦’ÎđŐ6*—âŹ0*ŕÎÇ1z8ĹGlY™\p'ńa µ˛Ţ°ÍwęĘ·ÖłŢ=dĹ×,“đęb^Ź sBY=ç¬M±ôŃô¤Oą”wśu“@z‘^ş¨’Č{I©äŔVŞRwëŤcéOfňşëaČyy4tÁr÷¨_ľÜeÔ[·x,őÖ†•%żCó6ç1p=ÂňŔŔżë„đÚÓ—Ş1öČôĎöč¸ %ŇÖSK “ľĆŤĄ7b(§łÓÂŚJ1NÄ51ŐDZl%üT G•ŕ¦*Ą(ôǬ‘{"ĽŃ©”9DŤĽő›D)qeŢIjí°˝ŇS©7ť”čąo9RĘÜëpź˛+G'ńć6~¦•ŔÄA!îőĺ|–[{ÎŇ5kCćL˛‡7-ĽŚ$‰@b<ąN”E’ć/hŽˇ’SŁŽ(–&ČCÍűÝóľç' KIÎńI©;Nf y.NźŘvšVAL™„ůňÝ)Ă\ËĹcń0×R®üD7 ™,¸äÓQŽđkĎLć¨"ÉěOéd¤—}ŕ¤<‘ÇťŔ÷٨ąä킦dŁĄFSŚwôćÓH/Mâ|ů¦”qŽ©Ź“¸Ń2„•C¤Ť1ĆČÎIZ˙ü(ÉľöôĄu`†gÓ'E$ťr]đ_ą÷÷–‰éAEKŢ*˝ű=}Šu‹çZf*Ě2“['Ü#LÂůV•á/Üâ±xř gÖő AĚ;ŔOúBţĎçc~í9KŻ"Ë’9óOÖÄŁD$† k­w8wŕŹá›gŘ'Ü𶩔ĂÚŘf/cŇĄsŢĆËWż ăÚ,‹‡q Ęj]—8&şt°U«îot ŠąrŚI<Ż=yéb˝™|9iŰ «%mŰÜÖűË뱏Ь礂çuŹŘś"ÜuP‹so,Üu~eTTr«˝®tëÎŤŁ 9ÜI°ó¨Ô×ę$µBťŇÄ6ÇIëAÉšĆ >ŢěźQŔşĘâśŇúg#;$D4äÖ"źî#˝ n_/N’ńŕöµ^×ótn«›„p„A ]’>yîbu6ú )Lśµ\łOmrepQuŠ‹âżC1gćxŠ-;¬“蚏ęĺ+ZFµő‹Ó^<ޱ }]?ÓÚDs;î2źŠĘ‚isă)«Ď^ …b™N˙Ňa,°ő"{ä%CüŽ˛XĂbFËi.ĂČXy’°ĆWö×,î€ÖQhÄŤ`óśŁJF5ÎÔÚtHë2"Řb®$q®rýnuU‹@Ő3/îX39‰AbűňAb´]LRŇxňłµmHd⼥p>Ü°ˇp'ĆsoQOrËň -s‹>Q_ ´v_DCĽ2CV!7yŠ“\±ö|±H5Č4_R*ň;Fx;…¨E‚Ň}ft6ĺŽa˛¬ĺŽáÜď¬ń@r8„•-ěËWą Uu˘¦h妇31O;°†ŐŚ dřÚSF)űD§|ÂÄdŽ„Źßp|@ yK§ĐW .2PPú{E«I‰'zM´ F •Ô»_ąUÉuć7áňŹ˝ËKĺůpJJL&sŽŘü2‰ulh±zdžŹ‘4‘ú¸ô$姻) ÚłÓÚ“—M5ťü ĺV8ÂÖ°¦Ňś–¶śž ;± F$ď§I_côĚĎm±yev¨OÔţ­Üţáb†D…Ô4Á˛Yć±qšB†ăČî„ÇßłÎÚ„Ş:ş‚”ĐTÉňΞŽŕAtΙń'†ĎŤ’,_ł"bU8Q#¬ÖÚŤ wPůÔÁ"–„˙’aúŰ^¬–4WO^Ęű‚'ŠÜ:ě®N˛tKy)Éäüľ iXUËĽ0%€íĽUáy{†¬ßo㊮A°°«$“áŘ<éLy~Ä®”ąĂź¨ĺCůŐ[>Fá”ë;'sĽM‘Z>HŰôí@0!$&±ż6A(·=ĄgĄČwâ—·l•IB>·Ló…ö V†Ą=Q ´4¸yTň]ŮÔ“@x:Ĺ\řS'ćç W'Oť@íCyĚFą tHmöT…wHů+ŘępÖ§ľ/¸”‹Źa9byËŕ5'j¦PĆ.Ť5.—© w•NÝ#……0M0N2wäžäîŐ$ž×¦ ›…ŕĄí”yđc˛:»żě xľ¶4¸Îš\n‘ L/yŹńĺK^Ƹ>QË ´rËBµJY¬Ť8ř}vĐ{őŮa°WĚîű]Vy7®@%€ă»Î.fxz¤¶ěű}‹‹–1V±zşĹĘ3FÓ|Ó˙UÓ)¤˝,Ç2łňD&,ťDއ!Ó&x–Iţ®ř67řŮø};ź±–Ł¤ĚXjq“ÄB~G‚Uőýgýéy']ÔÁ–9šdŞ'Î~gvJ7ŔE#6AvŠdAÓľŐt\ž¶fşŐé¤1¸.ěĹ W†•ćc°Ź ÍI Ş(Řó\oŚŰ‡ÚńŹŽúTQÉÎ=VŽ˙=ëëCŕă~"NĎ.SĺŰ•7!^…Ý ])m%âőĐ|ř€Irü´ÄŹx§l|†VÖĚÄţŔW¶4Í÷±ýŃËü’Ľ‰?Y)BűÓwÝo2ţ†ięZ ^űńËđÇ Ž–Rá©qÉ“lŹů\xěWUçRő Ţ •-ü4Đ&ÝyŔŞ»ËňOŞúÎpŠm4.Lçşrµ3H,Ş$Ł€=N Ŕ$F3‘F?¨iVµAÝ;+ę¨ăEi#[Łşéůş\˝°C(ËČĺJ 'XÎ{łéľßlţ 8’ endstream endobj 320 0 obj 3993 endobj 325 0 obj <> stream xś˝io7ŘŹţňeTTSŢÇb·@ÚzŃ.zd[ -ŮVl7¶”JrýńűÉ>Î!YI±L(ňÝ7ůű„Ő|ÂđOú÷âîä‹3ÎÜäj{Ö'|ňîä÷žţĂŇ®ÉWó°ŃĂRÍ3“ůŰV{g¤âžQ–űI»ĆĄ¬ÝÄ8żLćw'Ż«Ż§ŞÖByS};ť±Úxo¤®ž“ďS^{É™ŞćÓ™¬…WÖU§ńÓ0^ťMgBąZ W‰éL×Îy/«>•Ľš ř ÁZĆśáŐp¬–’)—>…c2"N;~$ßßŔ-kŁuő}D-áó»éLŐÂp-‹Í§H‘ŞąWc;ćĆiţ< „î«M-‰AR×Jy—ŘŔ_ó‘_ç˙Nđµ7Â(ÔO*SĆÂBÚ<Čs®É'™ 'k/&3a“ů%l˙ †sĺdµťĘZflő…|‡ÜyˇŤ¬Î㪳Ő:㸝‚ćAf‚W_(‰vPÝ„EÉ,  (_KkŞĹtĆkc$@]᪩­÷tďŞE°Ë‹Ë)Xž´RTWíĎËÉHWm©Ó´=ú}{čÇŻ[8ňp^TDy×C¬fřK$_ÔÚńęŹ)w¨FIŮ»ÍäßS˘Ă!«Ćĺ6(_˝oO•â BYR÷=V™mX-뎬Ŕä´g.Ř u“Çż»¦pin¬VŮ*Čç2o˝ČŘeł(đäaX`6JR6żă*ęUi°ęQY¤Ĺ_Şě}íÖö+m™©&‡z ´C ľŚH­đŐ/ÓBÂIŔş†éŁŚI|»”a02핢öBÜáaĘy- l íj~oł2›ĽH|ÍMZŠžÚ+Ů‹XµŞ!ĐP¬Ůr¨=-şúNŰ®^f‹Ťn쬯>´$.2¨žéP$¸<"᪶ŕśdĂuá]‰î집AÚ BĆ#´­—TÍ5ŞÔ+­-ĺV%‡@ ˇč ]› ,›KFŠF!Śy ŔĐnĐđ!Îłh2„‰&XO5†Đ㲣'ü\ĺŔ0‹$(ncvHg<%†áÁRŻňg2vĂd#/%C˘w óË÷'óĎ>"¬|˛Wč–š˝”‡Ăm¶˘XrŠ5Çsbś$7&4 ăvh[şmŚ{b$_’ră‹LÁO©x‘|Vđ"—Ńh¤Mč"H–LVĹZs °†ĺ›LăŢZ˘ĄŤho[ŰíÔX?†p˘wO\(ŮËŚľš´‡ŐŻ zó ›’“TdtŢ §ą`ř©^ä@J%Î××"¸Ql% N`Ű&r1® D-t"ŘHTź}vő~{s÷ĺtţۉ˛5“ŢEµV·ëĹ%® l: Î'e߬¶»ÍýĹîf˝Úľáęü2>ă5‡¨]ÇOĚóëöó2X WĽ2YLő áBˇ `8—K\ťq¤m•Ľ‡ę»őĺým8#M,Čü›óÍbó@\Č(ŕ‡ëM<ąĹJ>ú¬ˇMň¨±L&C‹ô˘G›O 7‹ěľß.6»D ‘Ý+Žk h\ľ›ĺbץöŐËçgóHŻäËÁ˛?@ő*©ĄTÖ*4­Ć ą\ľ˝Yu Yô÷­ZŐ[ŽýěAQŽ%úDeTb7Q±Zď®—›ľŤdZĽ«™{˘”¶ŹwçëŰľnç˙ýéź‘*$ƢŞÓěáfwÝ·Ź?·÷Ëľ}d3©Aľ‡Ĺ¸Ří×}Ş“vuKÂű›Ő/‡ň°¤,,‹ńëj•Yy–—<~ýâUŕ†ŃE€´í+”÷Me±şěźNLC5"ţë¸~Ĺëłź_|÷cX†uÖęoq9Ŕ¨Ç’ج…˝ ±»uMÄ;“Ěáŕçiö6Ęčjn˝Ůťł!˝wsänPyëŐjy±ë#„ײD(yőüeŚ7Ą4ć?÷·& Í †–ç żńQnl˝'ülŻ×}5m–ŰűŰ]°¶/Î8‡Ŕ­ Ę4‚áâÄZŠ”:_ăcĄŃXě@&–Ć ‹ËŢCł ŐŔ9¤^z­5ş¸ĹzĽŢ:®SAĽkv…®ŰFkt¶ 'gTS/űÜńłbö@ŽwŘëúš)=Đ´‘ą R´é5š©p‚©fpľlÄ$ČÍĺT~8!:C fÁˇÜ=®2çĘą\îáwâĐť>ŠTż¬84š ü ר(a0 ĄÝ9­üČHe Źi%LŤőˇz4ŔYXÍ Ü–íĺ*IRő‹stۦZ;Ď0÷w R-ŘŹŁŚŔ)Cá"Žµ{ µ­ÜIą›çcYí=™O Ď(/Ű©)řďO°żwć­ Ôf Ľo[Žž‰1l¦ZŇ€{ś,)蹢××n&~˙xÖŘ’h5Ţ` 挼á`‡Ý5W˛ă®a„Ý•ewÜC<ç1Ť=ďôTÚÖ€ŘtJĚ…É°Ë–l€?bż)d\…~ó¨˘@@W`śúô˘ŕbĂ*b°ĚvĘG%˝ů+š-*SbĘÓ˘r4j=¶żŽTÇŻ{ŚX}dŻ×Čd¸Ś l÷Űéܸ¦:#–uňIą;„5íkžoer0»'Nő›)[Ľî6éú=p (ŮĂx´Đi>‹ÎUX0qkc:!* •ÄµYůxĄá©MěÄ k˝ö"wkÇÍAš­ÍÍ®6{,?u+yĆqDçs3V·…[\Ą:źî†s,îË°s“NĽ-®CŢŃĂďy‘®ÔŹôŽÄŐQ“8¦#žĐG'€¸Óv‰cmřľ6K  B©E›5_ä©[Î6$ ^ĆFŘ'“4hükD˙q\yf4µĆ µćťkËyěFîäOŰëƇLáľ“ŮşĹeńĽB"űrlć/ }×îědËî(Îe2B~ 4ó^–·ü’áŰT~Ěř˛ŚV€ľöZkÉxĘř#-9«‹Ç82ĂVŠu‚„QśáE&Ĺ™µäfTÁe"ßߎ†:YŠ˙ßtňˇľî’O€5/ \?ŁuƲÁZĚ@˙€Tă‹bT‰rí›5 $Jô?äÍZ–p¨´wą¬ß›aoűLÁĺ4ö@žE÷_’R ®â„üŃ5Ôź 3rÓźtąI#˘ś{a¬Űw”•"łÜŹÔ8÷CJoÜđQ?`{;śđŹ‡rJ¦9—ü Gť•ĺĽ*u\٤ݙ´mbĽä‚ę ôôđÜ#yşSfxš”:ŐŔjŮ©ćKňR˝Ű®t¤<űťŮTęďíâáfŽ –šŻ±fnůçćχţŤćóoľ9;}ů˛Ńýúóĺ‡÷›ÎUéëĎď–ŰíâjůkčOç'˙?˙ěčĂVendstream endobj 326 0 obj 3188 endobj 342 0 obj <> stream xśĹ\YŹÇň¸ż‚yq†8éűâŽ-;+ć!Ť€ÚKŠö2w)k˙‹ä§úš®îéá’»kz5ěéŁşŞľŻę§é錸?ń?Rbfg7ţůŚÎŢüt@ă?H5űóҴ𨧄¨Ůňô€ôÖ(.hO MílxF9ďÍLßĚ–ŻşĎ碗LXŐ}=_^Y«¸ě>CźżźÓŢrJD·ś/xϬЦ{>*B»Ăů‚ Ó f:6_ČŢky×ĂG!`]‰–řÎM« 1Šv…×zΉ0ń#3„‡…㿡Ď_ŔÉ{%e÷mXšĂÇoć Ń3E%/żp;=µbjÄ2Ďń"<ôUÔv_Î5Ľ… qŮ aM<†ű6żňăň/ńloSÂÝŤW&”† iS/ K©Ś˛rÝ$ 7ŁŮlÁ4LDŘly Ă‘ŔßdŃžĚÔ€ŔDw3ç˝”Vîíî¤ĂhwáŽl™TĽŰä—Îó€Ľß+%©ęnóS4ĂU~íĆ‚($exh4oŚMac°EŰS­şź‘ŘăFű3Ŕ ŠżHJ…g(‡şă2‘Öĺ°…ă,Éăač:ßöIꥤŇ~[Z÷”ęxÜ´YFh†·Ŕ’¸Ń¶ű0w·Ćá„h¦ŁĽëÍ°(ÚôI˝?÷ý3·(í%Ň lbéÓÔňLšŢXT¨y/,zýşTş±" ˙Í Q'Á*$źť¬˘0E¦á†M»š¸PÚhąĐ­›@őD˱›ő[ űç”ĺˇ0+cŹLuďçÔ,l‘Ž#ş]ŽĐ4Ú`áś=Ü>śqŃkP(ô4:R@S(Á`۲2¨äăO‡·®&\-s ińR%`1N<4ŐcŚX°Ŕyţ)*ş¶`yą]Ćs{™Z É©}V‚öŐ …ťŮŃ»Ź“NŇź—=ąŤRxÎ Ő8' ĂRF‡9‹€!` ›)VŞ„÷ç”×ČŇťér čŁÓ#0ăă‘ń^Âo™1r(^š€©$iăŇ O§Ż,LSV€P˝¶4juµ›(2 É„‚ŘMF,R„ Gy$ÚZ›_!{:v(+a ˘ŚD{ŮÉŽ@üÉrl]¶:Ť=ažÓpb‡1_WŰ0ß/ ŮNĆÍ(ü)ôpv[¨Ń˝Ěĺĉ.HÚcm*ˇŤáíď‘Őß5ŹsA†:^-éşĺ¸îňao‹Mů§ZOÜčU O’ ŚjĂ1z ™W¸&° ćĘź®šS ßG”ńmˇL;&¸Ťn"d!hŔe´MS¸˛r@”f¸LÁ†cg¶5×dČLŠ\ś˝ó‘â8ľ'¤`ĽßX ‹pćşeuYłÎš"F›˝pţ‹‚˙˛Ž=mß×Ý\ pÁŕŽŔžI©ch ‡BS1™´f¶üö`ůűW.tĽňOg-égxŰtëčýĄ‹çp9˘ŠI/€Ł+%­huúţűëDçÖžŚÚ‘»I2x7Ś¶× ÉAĽ*ú,/ť?ÖÄ$…Ňt‡nSdÎÁ:ŘDHśńă*Ś$VŹđĄâÍc;®tsD‡ľpŹ¬`{§¶'°Ă¬ĆhH—Mg Δ;é 3Ĺ·*,Ľ§˘BwÉšł‘âĹŕ +^+Ň^»Ř^¨B2Č")޲ÄčA@H:Dů[—Ň‚ŔŚ¨) |;‹TőSđ*=4Cä«ĺ–‚ˇĄŁBçî¶8#–TŽ?ÉBó‰€ńŞĹ°DđňáÔ%Bw·)¬6Ć#őđßĂ5rłvŚ$9ĎMń}6»7Î1¨ť`…á㌦Nd—‹&[ αűô0çü>k''Ű7ôg ł›Ĺä)áPÓ&Ęč¨iŤi_B¶)ü]ë{´@>š°‡ ěC•ß` K~ç˛bšHšLĹ°d'˙ÉŰD&±Ę*}žy|şI“Śß€LCĆ 7˛ÝśqŰ9$(ňF°Íľ`Ę]eU şźşŘÝĺß× A§’ëÝ 38t®Ž ÉNÄ„‚Äřçr="ăOë=wđB ﳯ¶NĽ k)¬‘çÍi‘¶“@9ĎňßüVĘ( ľ%şđŮ·ĐVę1YD×ë§HPOčďesÝ,Đ»!}¤ Mšťçżm‚đ‡ ZCÔř–ś[>¬¸ “Ü•fX®,茂nW‘ÎýşZA÷z}˛z7_ţűXŕ6†ěÝú—ź9zăź«>FÝá‹Żľyą|qč óđWĎN>\Ż«áŻž]śÜܬÎN~üŃ}3YŔŐ"atŘŇ–z§˘7 g\Ĺ‚D‡E%¦s6 Źß© †ë‚÷ á€mę!ě;l’ľBK ĚîËaµĺŔ[ËBÚ¶˛’‹ŃÓ˛Ą űÚŃě\^ŕĚ“űĹá÷UŇĽĘ–ÉBNu/Xaă#¨sgőíT†Ňá{[Ýoť\BÇ đ(—Ű9p G®Ćş\ŮLgbpr "­žŁ¸i1 ľz>äýÉ]ź‡zB‹üÄ$Á3\¬nüĽĚGě L—+yżé ăŚđŹcş"r›Í.…Č÷–ŮÉjĂěO­iÖ K#06ĘIO$«ň~˝UÓ®˘ęGuqÁ´NŁÄ4ôŁË†˘¶Ođá kKľĄö uŤsŠ&‰auŤBÄŃexFşße żĺ2—7ňU®şě¤TaÂ@©ľn×FŚÓ=üťo{qý9.b!Öó™*•îص´mF‹†ćžëÚň¦k…§9YĹ€UŇ'NCÇů÷.lşÍf´_ůVÓ!vËJ;ÉS[R5¤{Ip;5Op»śnžą'¶d=·ń>Ýë—n&Ç6§[lŰńĆd’0¤Š}ŇJKśčá*”„%ęŰŚç{Ś©ůň$Ż/*ĐS„ ÍÄűmýŃ—ëŞV&ĎŠ`ó*wbÝÇbš|c¤ŘuZ,ksiš©ád×ĆZh#=d۴ӵ뱬b-ëĽ@ęś ]´¸ËqŐĐĄ¨3­¬k«[Y‘dŰXŃĎcšs{rqMw /®ýO‰@^2":1–â4 iŹužBj_Ťm«Zpç2tůŽ1eâüő·vŠů.V%ŚŞRˇČ¤HjNł»”·D«`9­‹ž"żóˇ…çµ”k»XŹ×eSąď"µÝpč;´Ă…Š¦@ý»ŐicČaĄ–=Ń ·QµłU]ŮK´čV٧° Ö¦ ´$řrq¶ŐśV•Î¸X˝E'ä#(DÝ­ő,·űí’6ĘĚ'´ëL-îRÂ’–]Âá%Š9ʤGC5ÎqV¨ÝkRšUJ¤>­O˘ +Eó %ľNUĺł]¦žă`Ąť*nł¤ă\!hî`=ÔxĚČd(‡Î¨®ű¦’oŐđť:}UCA Ze‹6wtW(ôFćäó¬ĂmÓýsîr+şlŘĘ[šQ™łÝXĺÔ7kĄ «Ž•čjŇŕÍşn˛ŇŁ…®‡‘ű˛áÁ ÖŰĘí{Dz›~)ďžZÁĄűksč˛{0ČŔNÄč#ŘVPÜ+đ#ŹŇv˛±X*ÄšV~Í­HZ•ă›éQD‹a*Çß‘©ĽÎŠľÎ.WůiaV%†‚Í唩8jŰżńl%)Ź0"fJ.ĎoyĎ…ůŘѱf˙źWb=ŮŮ^4r¤ăý‚ĘÔ®şW3Ř‚ÓSRŁĘ[•Y=éW6ÉŘ ÓJŚvĘo5<ţ}XI3ţ˝ !‡Ş)V&ě‰ ¤~‹¬Š*1„¦`Ń8o-ýRëBń˝ńă‹fÇ{8äÍB!2ł–ú¬ ŃúćUFq‹$š`S9ÉşčYÝ\7 ­)†~©ë©B8ú•Uýcy˘U„ě*'lşG8UŕÚ?KinaÔjR>˝`•pE­¨x§­D~6mä‚˙55EF”ëčx`¬#y®?üĐ]ůJEÜI÷§T¤H…ŹÓÍĺŃżnnWë[÷ÄŘé‹O>©F†™ĘúĆÇ;ńž\˙0©ú>ŠÔűń¦şylŁěú÷ąň<ů©–j6lâU÷D'3‡E5V9/«AŤ‹L*ş#W•~’R°Ó„ĺűfRĹrö@ĐCNÉĺ‰!&@ÓZŮbG­Ŕ÷&2Şŕ©ŞďÖŕ“©ë$ŁQ‹Ĺčg61Ö)ŢjĹO I _Ľ•Őđ{Ö–.¸űMmˇď[ ˘3Ś3Áýú~¦ń« 6•ÄÁU3ÁŰĚ΢ďQ‡h›6F+¸Lí+ţµü_2 $˝Şî“ż#–„Ń5)_]Đl÷zďŰ€ ă~+ę+bSE‡đĂ}?Ó+óNţ5˝ĹÖb˝|‚.é…Ř›»ORŮV’éę1ᮧ9¶wÓĨ h"ś V6@ďĂŇň»ü$Î7&Zŕ|/`5 ~“ťéˇ'¦ČçÝG^Ç ?űk™c’D»®Ţf°ÝVşžÔ±ó žŽ}:‹)#=ŰÚ9µËů|ł^Ʀ ˇqSFŁ{| §ăîŤßÖÄĽ¦„óbyđwřó?KŻCendstream endobj 343 0 obj 3947 endobj 349 0 obj <> stream xśµ[YoÇ’·ýűďŮVßG?DŽ+°[!!H.%1˘HŠÚµ­źŞ>«gzx$ŠŁžžęę:żŞn~\s&Ö˙ćźçVĎ^ î×o?­âřZ¬ßŻ>®DţĎłÖĎOâÄCLpn×'oVśo•‰žŐN„uJ1ż¶Ţ›őɇŐëÍ7[ÍŚÔÁnľÝî8ł!Xe6$Ď?l Jp˝9Ůî“A;ży‘-›WŰťÔžié7r»3ĚűÔ†ÁŁÖ°®!Kü É:ν›ďá3¦×>?JĎUZ8Ďř+yţL1ŠYc6ߥĄ<ľÜî4“VŐM~i&‚^šqŇhĽhŹŻ"ŁV„Íź·>‰CĘ0­ĎŰŔ·í“žü%k °`ĄŐ¨‘U¦­:i‹(  „٨úDv 4ăäz'âr}˛‡é™{ËŘRP t¸9lAť )6/€'.™ ›_W}ݵÍŔÇRŮüĽ…6§Űť`ÖaËLéČrRf6# ¤.Űú‰ĹťŔďV>! Řşut 2蚎ćxW7Śý´ĄŻ ‹HuĆAüžL8«¤®:¶¤óĚ-°šĹb¬ÚÜÖĎňŹ¦k9-ß_—M-O-Ňü´U B!ě“őŹ#öÉöýË-šŚÔ ,-šĘMł¬ëĚż•I…ŮćɲWM…W°!AÚ6łIäu­ňtî{Ď„”ÔŢ  S^ĎM3«¦Ů-|J^őL^´…“ÂMŕ>:HŢîNd߸n¶O9kŁS{Đ®˘BgLú¦MEďŇĽ”ÄŞc{ÝĽădëh[tÎ5křÖ{¤cÁ†;iŁ?čŔ”ł…iŕ‰č ĹŞ ~HjYŰűfťZňGS'K „Ť©_1 ŻACxEA Ł\¬Oľ[ťüî5Ťéď†Eî•cĘ đ Ď(1ć—6•˘™Űöž¨Ľż×S{ )˛Ó÷u#ČŠ4 ÍM»nr"+}Îr*˘¨ŮČeoŐ’şAÜ4dOÜt$ęôf__ňoGEą°ćW-‚µ\ňUăil2Ô;ŚÂ‡NŘE‚×Í,'¶b<ór1vĄ(cl „™f‹·Mđ·ÓĐÝWBNË©Lťąj=*±új ŢR•v;‹éń3’y˙P?Ké€B%Ůr÷Ň9lP>&ďÍŮÝĹéűíÉżWJ0­‚O"ýŔ:\|¸y¦! oóŰ<Ó`~OCüLŔ𝇮™Ţ}ýuśok$p>çe> ä‘`žq–yť€ÇÍÍď˘A°!Ď›ëu™ĽD¶ötÓyn ¦Äu™QUˇóíŰ PŐő/;»lľ-ĄemĄašÂ=áó´)÷}ťŮ–ą9ćő” ôŞš¤‡ŔNŠ¤‹:˙N(ÔC26‘iI hÉŚýTź.F@ě7„ý‡"2 n˝ů=ąB‚#EűźĚ)uF>ůi"dut=ÍGŠ„°¸Qćߍj*y‹Jt \qŞk&[iZH*±ĐÖyg@HŘľ˘q·€´›–AZH\†E¤éĐbĚ4ą„Ěa~yśFD˛>‰}DV= ,ŹăxZúűާŰ•Á„Ç'űÉ"Źĺ/~ŢŰ4Ć6źb-V[DiOwÍ˝şôˇ…K(`ŹŁHPteÜćyĹ„wőPĄřß >÷iIĂ1IKĎ^)ăë˝PO‡»Ëłăá"‹v\°fŃÂż2IömŰAtSŰ-^*-Đä4ľ˘8’déeśÚŹłĄ*Ć}Ú)QěĐC&‹›Žn’Š>fžôĎ›?‘lrŰ«đ5ľ©Kz‚Ő;a*ÍlL§„ئĹÇ»Q 8Kµ‘±]p›µ­Ä2 ¸0‹iq˛˝8:µÍ¨(8Sőy(ý¦ŃdbLPîŠ X^w ť1PÚł’•–$@» N1mĹB· H‹KşőÓaV<ÂČ´š2śăZJ:š)há*r·<—Ö‡BÔĚ™nޢä“} Ě$…ňľtÂĽ~¨Ĺ^lÝXş˙›ŽÂĽ,˝ZTŚ7Ěp3/űúˇ™ał˛˘µj…Om"ÇD‰Ä†š™ÄĺűŤŤŐ›­uŚVČ7 (ŕ1ZCÜŽŤEˇŔ€ŔłoďćŠ jl“·i,O˛ŻŤő€P1HYX”YěQeT.ŔŻ§€o‹¨µ#+Ś§ŁŘMÚ?i§µý“¨3ÔÔ Qľßµ|3ě`ĚłL5ĚL$Ő×ăVť…µUf‘=¨§„5Úx7‰Ř°-gŢŃqś xŃ˙şÔšrźV]šˇau€°ßOčOZ]OK3 @ž’†vëß iUaypËčĘ1Y{ŁsV'ŐĘqaŇZś<íĚ`T“ŹČ™} †VQQE†ú‘á…BĆ"Q_˝Ău®“„ѧ•űÂ;©Ş–;xÓ>hKQAôni,*5 ąRľ)…–ĎOčŞ^ ®¦#>‡ÔĚź JÉIĐž•z“ řrd©R§ËyO°aďT±¶Ps^ŃôVpßBăľĺ§·­ůP/ó™06żC)_!Wqz°PZĘÁéÖŽ ›ÖŇÁdµŽjŐ%çJ:ËłoĚPYŞ­›Ó”»ĽOHNĚĶÎ>ž‡6łţ<ědMN]×5{?µŇrVńőýî»LÉ‹űĘÍ˙gŻëľrS˘•÷őÎçhß=˙|~uńŻëㇳ‹»GÔ   °Ě­Ëń EA-E_Ä4WؤͨŇz˝¨°ţ`!.F2éđiç^ńŔ,Ś¶ó’kjü|µ <·5Óî´b±1–ÎÁ&&]EŇ|Ĺ·Đ«ÇEťjPŇ9:?ŕ¦xěąŃyMaÜĂFŽ’Ë= ˇ$w=ĺ®đx%´d/%ÓŇyuÂßçŚ ĺ.˘UŮŽ3®Ű™Këşbş¦Äš)­«!č+đ]@Lđ.¸$‡e·Á´D9ŽâťŻŕq/—ťWÜ}a¶»Ň–°)«Ý4­+Ýu1]!_Î<mƵ–:=ÄěćP«Ąv\ ‹`řýĄ§¤éz:ÁĂ˙´›'agřţŁ§urjŞkÂ@Dźrńđz’“×4Ýáĺ8ÚîÜĂ •±ą °¦ĽË Ä~JĹ“ ô=ůŠĐj»ÉŐcÜj­‡g˙‹k zb˘y<*ѤŁ3ź:~B4BCemSĎŞ•r8%ń{(ml˙Ye=µÝ…倕ŔÚš8›BŘ´¨c§ŤŔ]}*H- fF¬˙ônŽÎnŹ¤[ş(ĺA&bY“;9 (d´oő´« ă­  6ČĂ€Q9Ŕ± oü\Cq ĺġÚe’Ë9ňśv z_IŰzbŘÁ ů%Jv`/Ć/”ě¨-PÝ}Qc0R]—łóד©Ŕ3dčÎÄŽĂ,qÖjŠţŘT Ç´Xę†Q đ±¨=[ŽF™×ŽZłé¶3íÁI2QGĽč'źÚS!ę°F1 eŃy2ŮáI†UäęÁëţĘNú%Rwt!ë–Ęćq±ąp„őgúĄ€cĺ­Ĺ¸âdRę>š8(Ä‘ż·’Ó­\ŚřďÁ/^µ]+¦‹+Ąz ™wś7?“¸^éśŰEh»Â[Ó‹6ü-ťd 7Ťđ¤& ťŕň8%şNWt°í[Xű‘%“ëŻ×C_Ú§Đ*‚yě%4Ov“âŐ¨]<ą1÷0i„“Ĺ0Ůw6‹îŻ4(Őą =Ň‹š‘ú1é?ďűˇ7yÔu2hć÷z†°oz…µŻ“<Ĺb= śa8xb¦şŐĺ|ÄjŇ~ ŽŽŕţűLˇš‰—.ÁbΠ·Ţç…l;+¦UÎ:5le!‹l2"®‚ÇAM]´3ú4WĄś6sWx PÉEĹř˘ăđĆҸ÷ŘѵE€ďtDű·k…ĐrźnĺkfĽM'ú/NV?®>ű“ Ýj€˘H‘űµpż¬Ç_Ňxţrőěĺ÷ëĂÝńbőěk±zö-ţóü‡oŕÇË?­µzńrý㽿¸ÖâŚďŻ•¬†ŢúKĵőt7PQ?^ä~ [öńˇś»cŃc ęńĄŽć‰—QÄ ë şJŐ >écď˝|rSź.! Ź¶]Çę!vfű‰.ź—A˝)ă}«˛LbGzL\01p©2;nó¬~zQç_×ů§yV˘`â}ň6§$” Żůâ.ăÉ]š_ľ;ÔŮÇJ!‰D(]{xá«[1rń)Ý–ŐńjByÝ,K]gBµ¸ŻÓ.ë>‰@ÎóÇ:ŤĽ$Ź…ň>S6ˇîçşîbŁťŔSÖZĐç`%MŔçtä‚ń‰n/h]çí ánŻ„Ď@±‡n\h2oŰyXÚyŐý@Üéc-±şŻç!T/ýqőÎľI´endstream endobj 350 0 obj 3429 endobj 369 0 obj <> stream xśÍ[Űnąň¨ŻĐC÷†÷Ë‹Ů`ssäA6 I3˛•H#­d­í ź*6»Yl˛gF˛ĽXčA-6»H«Nť*R?r&9ţ¤ßgWż~%¸?|wwŰĹá~8éžzţţ(v ĐÄçöđčü€łŕ­Ň˘—gµáplJ1h˝…7‡GWÇÝš©íţ´XrfC°Ętż#Ď_”ŕş;Z,“A;ß˝ě-Ý«ĹRjĎ´ôť\, ó>Ő1xÔĆ5dżˇXÇą·˘ű |Ć”âÚ§GéąęN=ţJž˙]ŚbÖîű~hŹß-–šI+Ś*:żÄi&‚žëq”eĽĚŹŻâD­Ý· źFaBĘ0­OËŔ·ů“7GN;X°ŇjÜ‘¶L[ÚQAAÓéń1 >B3Ą­D!K[ĺäáR:̡mß‚óNY †mUÖK‡˛Bp°NŮ­ Z¬ń÷Íú`ş;Tl=4žd©UkK× Řx@MÝ.S«şÓQčĺ(´ďč·ýüa{ĐŕdÖŔěÍxJ3ł@t«‹»“»»őŐéĺzqôď+™ĂŐq\_w||ş~w±ůf˝Y˝‰o=ă*řôöŘ–®sÓńŮőýćĂ›Řyv’Ń Á¸î·ňűl˛k0ç™´8¶^Ŕ:Řť &ĹŚ Z÷j´VÁűÜźÖýk’®PµAöZŚB˝-˘L ţ `—ĘugYču¶"€<’ lF±+\g6w56¦ąXĺg¨şö«Q°ű°ĺâdwbPVßuöÍŘx›ťízl|—Gęß›¶u’g«’¶Ť;ş@2ŇzÝö9­ŰŃqor×­­ĄIz#;N&5°ÉßȆqŤÚ€9ş@[ßçľd=Ýâg Oö¶c•TQŇf:oŔC;u¬ dY‹YŠ"Dź›Âúg;lš>q–M=Ű?`““†Y°Ž-4ŕ„4š~T*IsĐuÄŻ‡Ćö~’ĎÉÖä®DY˝^9H2…‹łťÖßăĽ.ŔDCżÁ ˛éńóP'­ńóÓş°ý1&Má! ťÎjqF2îąćő˘\`{¬qXÄî5–'u™÷pME-aB ­Kµź?!¶_y=Š­ fđÚˇok„č<Â*D®Ńw˛ŤßgwH¸Çéqśű‰aĆĆv„!7%;Ř SĆpĄ%3:P'$ j!ČĽžî{r©Ą”¸Tő$x.„Ń0cŹS}L}šĚĚŕ›Ń wó ´BFşńîćîâę·H”e6±† YĆWýwg÷··ëÍl×Ŕ”FçęnÎ"ý0¸°ş5#áźDě¸Ô®ç."I‰/ąřRZĘkä W©U±őbsv>´f†t»~§žź?çq + ?HSéş–Î9×µśłËŰŹ«¸ĘĄA]e¶a@F-âęúÇöź$óĂ7¨Ü0‚ŻG€äEÔ˛.®o?Ć!” *†!Ä8†Wč"T'Mńň!âĺ(Ň4¨$ýĹ‹hJRŚşí7»M=d4U/¦´™u=ĆZś7vőtóßb~ż\‚9Ú‰ő˙ć5©˝Hë Ś(Oňz¨•;oěóéíI5OËSŮCâ`÷î é@‰1é‰$}ćY_i-BÁçYTmspű\ô$řަĄ›J>QŮé/ć.ĎqZ&bňŁ ěą±??ĘÂIĆ÷4”EjË\ÝG25˛JB5.ŃR4ă›~R~ÍKzż¸\ă«7{UęaGŔľú$`µ#tłx®‰+!›áŇRf1´Š‡ÚŹ#`uƲlµ‚ş%L&Dv¶”s°é wA9™Ěeö>Ăcđ  1—tXXŁ‰Ľ´ěvÂ-Řď~1:Ő$.Ď´—eĄ ”©¨wíUĹR˝Ž¦6ÄĐ­¸[R‰^±ŕjU ĘërŚ zëĹ:!=ŤBMm¦ŤńB%`šĆ12îăBZ_áO:ćăI‡˛ Ť­şţ–’„$¨(î#jeJőᮏĂ:0ÍSΖNš/¨IÖŤ×ď<•Ë•K’Ü—Ć=ܦӑA?Yeh{1®˝¬@ÚIGĂSUÎáŻi5VH)™őćA.ÓÄ»(wň ŘőĽf˙M‡i:0{Y÷ŰtÔ™ž«”?j×gÁIA47o3đĽ?m­5ߣ‰“Sž“ëÝÜcGžJqxY°săĄ$ߌĚÍŃ;ä1óťW1 4ÁU76€hHđÚ×]łř5A<łčl4ş'pnęü¦e¨CÍHZSiź˘–D]‰żĹ¶<Ĺ~Ą¦śŚ+L¬*šµÇ_cy­ľ´‚C˝O{& ^smĽnŐ︖2é7fą•ôĹ› ó˙‚‹L‰{šáhĎ/›7,gs˘Péţ$¸ß„¬mĹ˙hT>< ˙űŰ!ńóŢl¶zŕVKyú8—F6ş­‘[źe}’ 4Ö¶Šv$ßgwlĹĎ#Äŕ—_¦5”@{HĚGŠF„ŽŔq!îv#ŘÓ+iä„ ]ŕ2;Išź-ŚaXó*/Ú¤i<ť'ŕIhfÂŻ†[5ߍ¤‰ ; ňx^î ćZVéîS˘ŇĐďşwmű!Ł¦i;nÚµT˛ÁCąI͆}«.*xí˘*4őŚĄh§ëRt2˨7!ö‰\ĂWlĚ,F«%׹KB×/ĐĹěšŇ€ë #Ăď'5e›=+š Ű0"Ú}}“&zrb0K0†T¶&”“ÖÉQ/ćť“¶Hŕ•ˇX_]aVäśB†©őĹ#U9s»ě¤–°í6qĘ&öGÍÉ cáuŢĐc69Cłď)cÎ…iă\ů“(ě]xc缧<~Fž˙Ţö9Č“ń?îWĄ9qrę> stream xśĹZYoąň¨_1ČKzŚš÷âÄÁnŕl6Ž‚Öµę8ÔjĆyČî‡m Ž_á–7iĎ‘cňSufâ׳·‚cźŐ·—“9M€ß«_%A4ŕ*Uŕ'tqËśWű•Y/’Ţy#ŔÝř2;“ľĚ:Ůq›í( ZŇŠŐT”7U“u$Qoq|Ŕ¤OŞÓ’€pBÉźë~ť`|¨×áţčüWÝ`dž‚6Ću‘Z7¨ŕ d.@´«}#ť`ÄÝZ8¦ŕ Áí÷¬EÇ-°ť~ć 8ľtAd€Ź/?íuť“Č.Xoś¬ă2öó`;dÜŤ¸­Ď“Ľqß.‹`î-µ_Í&—·°'ŽD\šD÷Ő>Ţ6ţ© $nY ě®B AŠ÷“PȢÎaűt §‚Á†}(H5č\Ŕ0U< ƧŚÍ¦`G;áĹÚ11č.H’c@"ȡÝNŃ“ÓeBs]é ś_'xĄöĄÖb7 \rÉl› ďk’®ţťĚiB Y!ú´˙eM3{ĆÇ>˛‘iďÖĆŕë0‰çMŢôç‹śG)ź ŐˇgľGŚ€>—uâüŤďYgF9íĎIěĽďâ^×Ű(wfÂŁŰîçQŔ|!óNGi…őĆś¸í„KK˘¦ŰR[rTƶD %”śŇ/˘•} 笣6§;#®Ü¬Ł¬b\ęýlTz Ąë+mł1,nęŘłlVŁúĐŁ.Ä I™1§Ş ôô{\H‚vÍ|ť<˘x`čµ˙\ Ź%U“&®fKĺX#ą×p@BI+ą ”ó¦&FŰćý1fKáLű›PQ¨gÓXđť }ÎżĹBĘÂJĺgňył1 Ě¡źÚ&ËGĄ-QŁ]nǶE.붲PľD_‡˘^…PĽťHµ”›°"o•šd%’;űi”83úvh}±ďłĆÇůĽ–›YÖŔ4¦é o{#P—v˙-iü'€Ü„[¦ŰD¢A}ŕžđŢ’ć ńďÚiŔÄ %9ćŹf&(—´FG/ŽHVoý qř)<Ň ž§Ä;j śvéŇnfmŐ˘Ná-3z!’úĚîW1ýkďŁNdxk{@ ř;•#n„ĚD”ŇŘ<±& ¤¤Á2đ’Đ/Đ:€MB,óÚ,Č^‹ y ”dáţË…V›s˘zĆśsÚESÄŐ~lú‰űŠ0] ś…"Ě×"ěÝXd‘Ęë ŁŃú`,óĎi5ivSemďmÄJE‡ňJc_Ű{Ă»ó«ŰőńGŁ’gž0śŕ«§/•ńăŃ śnŻŻ_ßśĄat%`6›qiŘ«4`ˇŮ:»Ŕ4™×©×řll»b9á8zŤŘicZ—ëTúNËOąqçŁŰ\Ä(ťzT=gě8?ÂĽŘ‹%éłÉ‰©HůŇwűR<‰°ţŻrçGNCÔB! v”žąřIą;©Đ–fAئ!Sľz[·xPű/Yźö2ßd:ťţ™Š°1T’řŞOrşE … ×mEŽűúv9ˇŕv唯'˙ň”]o#÷ĂŽ ŃLćľił#őÓôyÄ1Čücß͡PĘ5ÉżVd-NAˇ ń?ü}­aA9¶«§A×Ú%·5…đĺ.9ůÝĚ ¦Ąę7´_wÍEŢÎŇËÍkŇÚ{×ó’FŘÇcÚ#gjô¶íM_2€JTł˙+…†Ť§6śşĘtŁ74Ž‹ç_®ń ĹŤě,×âzVpN‘lÖâ-97Îŕ,uöEĄ–Sn›6©m<ĺŮŮď(g<!=úÜg6 [ď%‘đş!Ą­ŢÇËš(¶Ő·#ĄÄĽčóč ę±?ű˙tŕűDxĆô+2§·oAE¬ÝRhĺě Ú&ŮIÓ6y¶ÍČ×vśj†ĘÖ.#1 žžiž•ćř~Š¦´c‘ —§‘gÉBŞN¶·ç7řFľ‹RíżľÝŢÝ˙ćĆĄ¤ÇOŚk9’pU 1qŰmwÜŚ9á1")ćL?i-Ho€şCNK“$m—Oz‰ÄxűŽÚžŻEe´‡÷µŕĹs~@ŁşŢg-$âTnžKC,î ~¨“L ¬†őŠTŇ”ą١óĚőűŤw)śDOÉDŚňš˘x˘ÁŢPIŰꍞućLJű顭ďPVë;ŤŠÉg)i$ąGÚôÍH{ęĹ4›sĚI×v˙JYa­9Źí‰ď‡^#;ă†V¦śT2ĺ=SÎ żŚ‡fŠ·&"QBĚ]ÝĄoîeOű\Ű+ŇB:žv”诽Ă_ÇžżĎâśßŻ«)p`nĄŐŚ-î8Äźâ~ą€Î D÷äZ’ŕaŽ Ł­&g«-Ę &ţž˛…Ä;/ŮÉI-SE¬şĚŽĆHŚ«ąÍKSńhęvđ‘bŘëéwI}ĄČeµÜWůŘNš>»Ď­Ä¨Ś1r+㽚jťŃ?ţĎg|ę”qݤ1ňPż0Ő—#2xÁC¸‡2ÜÖB›Źp÷ĄL2bâţć‘\íi‰úšWfrUÉHQ> 4BiűĽů¤ń˛Uě0xŮŞ_%4'3éö‹~śSűąÍš. ±42Fošš»ŕćbń.HˇňŠ©vč—|ś‘ ßŮAš˘ íhNśTĺ{/Şň¦ú”Š3ĂM'O6ĐŢ1‰u˙Ęčjě:í˛×–!•M¤Ţűć2ÔŰŮ#¶cH“†´wÉŘM ÎýĚ[â‘PdŢW—î;ÍŃ“ń%Oizů|•Ź©ă®"¦4Ú‡“'·§Ż2q×xý&żľşĽ9˙ÇÍÇë7çw†D0*ěä+ň«|őj‚‡¤l†Wëť9ÓAŚ÷8čí”@jď„M1;¸6ţ@9°O{Oý˘a†ą“;ÓŢDô~ĚZ /š«N3,ÁR€`ÉB‹±—¶ć'Ćą¬HiÇ-GjîőočĐsŞ´RÉu&őő˛×äp6×÷źĎžŇ‘‚]ünvá$ţ¸Ř2)5đ°ťëCĹ#^Cě;ĎM× ¤ĂÝöNRyşŁÝţąŕť™’Řůý.G€)©©Ë’\‰°|ö°khlSo >ŔÜŁý˙ÜÜ1ů›;;çÄÜ9«ďCbŤn[Ż4¸` łŔˇjĎÝł']Ř=Í'µ^hŚ(Şú,k”d¦dłRq®ÖiS^ęCü‡:ď'ń2˙~ŃBx统 ý÷n•ĐÖ˘Ř.5;z4 B’[µ^ČĽ0ŐŹŔýEyĽ|ů¤—TFWjöSo?ŽÄż)yţ…¨p‡ߍwěÓć•Ó9-Ĺ­÷.‡Ť÷rÓť‰ Ě݉˝—Ý‘7MTŕžô„*€ZrÍúE-–úĄ,ˇďä-ˇ`µzÓ=ŕ¨B—#ş)–šMMt’9y§lZş˘Žµ vrrĄ'ĎÚŻŹö%ÎC‚ŻÔíAxľřĽo~QŁ=?>ú üý±řž—endstream endobj 380 0 obj 3230 endobj 386 0 obj <> stream xśµ[Ks·®ň‘ż‚7領Čŕ řć$JĹ)ÇITĚIvąř)‹äŇ$ĄůőéĆcĐŔÜĄLÍŕŮřşűën쯇ă‡ţĄOŻţř†Oîđâţ Ľ?ä‡~=ŕé?Sjuř§ŁĐĐĂ+ƧÉ˝;wF*Ç3Ęr8żăR2whś/‡G×oW^+¦…ňfő·őfbĆ{#őę[ňüŻ5g^ňI­ŽÖÉ„WÖ­^ÇG3ńŐ›őF(Ç”p+±Ţhćś÷rĹŕQ)W“)ţ‰ĂÚir†ŻţÝ”“réQ¸IƉS‹Čó_ ‰–Ěh˝ú>N-áń»őF1a¸–Uă׸"ŸWŁGeŚ×ĺńMX¨á~ő×µ…n QXÔL)ďŇ6đkéňÓŃßÓ xćŤ0 O€§#SĆB‡JÚ<Čs®Wf~L@®TFŕ  GeĹáFXy‚wgĐĚ™łŇh0«4NX6ż†Gď-lY¬®đŕ ¬|[>—Çłµ„ţŢđî&„f0ç÷GxKĎý˛śđ9JY0 C]­a)p6‚ă\ąAËÍ ĚµR1kV§ĺ%izŤÇäáĐň“6U˙›ŘÔŮy$­Vďìr˛|uŹkńLÂç¦÷°A­ť¸TIÂLŘ_ćŕhJ˙m|kťO{ÉoÓPÇ‹¬÷ř6H@ůŐíÜô® ®ôż(çżk?ą<Ş‘·-g ¬«Żf}#K!;x…Ş ™źÂ˛„V Î,ËlËdDšKÁbŰZ°BŔ ě^+P`H$ŠŃ#,ĐŢág źŹ;$ŹQX€ęY fÝ–·( „żő¸¬Ľ"®‡8ň–ˇńJk‹‹Ú¤Um8/kP±fOTŔdú>U@„•Ic@ÄBJ Ě!îR:˸Hč Kt‚Ř`e<ŁÇđ4“±˛d3D§Č)<ÂPÖòü@-ᱺôśI._˛ŔĘ@'¸śȢ¨¦ş,Ł>vÖO„F]Iä?15 2(ůN–JŔ°Ľx«oqU`…&peĂÉN3ŚĎ×ŕUĄ•bő9ŠRĆ#AĄ#·“Š2ŹG®3°™m×čpźĘw˛Sq˘$mÁ$‰¤¤ˇÁ¶ň›´â O莒ô`G{Ćő¤Ľ$Ć— ­–?Žnlőö¦t{7ëǶ§4K{Ó(îűžˇ%[…ăQµôô¤NËXŰĘv9łí´]č)śfzŇő¬ˇ?"YxŕŇ’>Ł–‰ÂqĐ?MľIT–7ď-«E/¬Ň[üľťW7PY„—ăôiţLd{ˇ­,Ą/ŘŽ‡«1CŹ]żqŇß3QfĚč%fB·wT+zş˛'jŐ#Ô°A¬Ŕ†˘†¤ŤĎ*˛“Ě4ßt•äq&3íçĹEoQd[ş O÷…‡¬sŔ˘†=¬OWNźŤp|4Vax9öăŘŚÄ€@ý—đä.˛o2Y«KÖ6Sňöë5ňŚ-pZiűk˘™ŚůýĎÍŻÝ(ˇŃ s‡äľ"B€Ĺťä¬&d$Ňôdž~ibz4$ŤxönOvMůMc~(BŔ}.Ř™ç@Íŕźäě‰@tśŃ´‹ÄľýE jŽHmń›5í›ůeŚk lÄ@X”Člq0¨Ä9p(†f««íńŮúčŕč«EDŔęííÝöôüţ~{÷đx{ţ6pŔ#$śblß/߽ż:ÇŹĂX0ŢZňšyŰc„Dŕ×ŃŹx•43Eĺ¤EĹ7|&מ˘‚·ũĂńľe6ySĹ(hů"Ú‰H++5ďj%(Ľˇß#ťčN´8g8rzčČw4dŤs9ČDČJ[˘ŠLŕÉś5á°‰Ç ‰X¤’Râô‚úÂĘúd°Ń†ÂŢV…$ů‰h1ńäđ‡±€5*?¶ćűĄŕľQHK8 Ş4ĽíBź O6R”Ź&goÜZNA†˙8BKź&F śŤsOŁ÷ ‰)˘-ľ<Ý^_ßś!b÷§{"§k*ËÄđΦOÖg®Í—F/çć‰DŁ`ĘÁ•„4qqMś_… ôŕâ´*Ó:W¤euˇ&ĎÖ“×/’ą]Î…OÇ*Zě¸ěb·ôBżíl5UĹIcśćÉŰ8P÷Ď=aőC?˛ň¶Ip&iŇ88f™'dë%…‘»“¬ÂÇbb‘ sž§‚ż†ę1NDgw&#ę¸(zAjĹSF:ě`ć2g]˘pŚ2Ľ#Ľýbńčě /ßąGčč 7k sk`ĹźJS2Ŕ]/\,[ž[ťĂĎĹ­ő‹®ť&hzŔ°Ń2_%jÔáLh ćIeňŃ#ěUęIÁpŚ Ö×D5];Zb™ ¶`°áÔC®YXłUűr*y-}ÍľJü*„ą Ş@ńŚzGđ8TĚ)>4×K7łÓö_“Ľ´ÂQľ ¬ýˇKid-z;,? ÖüN˛*ĄF)‹y&¬ŰŐ ŚY7.»0G?ů÷+IĄ,’jVčŢd]µÉOý4yěsŘ~Ü€„Ϣ‡ÖK†Xŕ±Ô}˘fG2Dn&Ç_ĎEĆ˙:jýęÇUŻŃ#B“1"jéËPŕ?®…ž]/Izőł OV„öf°\ O0د㡾”“y×ŰłŹWç?ß_‡ŹFÄşqü¸gŠOâĹm?ÇŰ€ŔvXčs®Edň ‘ő4ß`h“6}ÇŁăş^Zq5ľžÚ%Ęç­=jľú]LĽU´?ÁÄĹ©8Ó2ř3´kżOHŠe ĺb­V„ţô:y,·Ţ̉9g‘škQ`óoKUlDkÂ0 ľíuIőµÓ˙űfŤnV{Űą…ŻRĄ"¬j¶*tŰ…˘;Kµ˙Şr\Âş©RčŇËë Ť7iBŇu|ű%çdźÂa¸¶Ă­Ĺśő¸Â›łżEĂ›)qS‹8ßX­Ą—Óv©QN쎊~8¨É±Nôťś“,;''Ý,0/ű|.•qS'B÷UÓś˙^"Ý!d>K°ë i2ŔŇő6WŤ %µůi®Úń–—좵2řĹŘ÷˘úŞwݨXLřµQrÖnJ;ŘTŢ2¦q~LZÍ&kö°Lű`Ćą6©j<Ă»‡Ó<×ç"öňrżÄ'›Ă&a¦˙Y«Ś9V ‘•­>…{Nvt®¨Ö/ĄW ËçÓ®ŹH‰TŔj‹Žą dť˛@ŤŽ°~mž@s8,ľ†÷\U<ňc7»Íkˇ×íRş!,ę·Űó Çź»Ů`bFę4A0”f|S®ł Ç*wć$˙K&Î^á°ŔÇZ„i1P‚fA)D©Y–{ oÖŘťwżAŤ9Ä Ă`(€ߌá“—!+h{g0Ôhq(M=#ÄŠh«« ňŮíđV)d”>VMsz˝6ş1nZÖńźĚřb''ŰČ—dý; ±ß…łčW‘Ž"íjă¤ćją4L ĆŰݻr§óÖLÍżź®1‰äx"*ç$$˝t~Ź˘…đh|Ő|˛Ţćő‘˙Ř=jĚkŔ@˛ľ®[%’rMĄźu-FjYľÍU„‚Ş)ÁřÄ°ťtĄřím©Ý0dĹLŤ!kAë7˙ E«Ç§w[l$ń>Ż÷ą2s|wÁ_…÷&kó މW©- xcŻRd<•·Đř‡PÝŮpiń˛Ëat ŁO¶gŹˇą˛l‚ł?D ŠaöÍŮőa3÷¨Ü!j¦ż=©ÜtënD¸r9‚Ü—ŠnTXÝ sťÂŐ©ĚŹĐžr=ŚŔ+®t¦-ăă(ă4I!‘[”ßĚĂď>|n° ˝˙öřîř:3„Ľ¶ů ňRś#gÍ›ć?ěs@řOčË5Ô‚ńđ|¬ˇ)˛*á`ĘQZMű<¦XÄ™Úq6aEăŁűęű%Ü>˙ëD‰SĹ † FˢwSD«rý Đ>çvŢgŻŻËu¨QźzôłË˙ë¦>ÎRJrDsöŕV14„ ×Ů&X ÉőĹÚ8Ćoú%ĎŞ®1Áy—î˛uśmä÷äÝ)§·;l.!ĄMőČôč‡Jůä(„ńřÖ'ĆXuázGĽŘ÷Aµ|â Şa—!j9EÖ?Ç~=t›óM } Z'Yö ŞpřéEo[ßQ슟)‹Ľ®Ä_”Ą:5yvNîÝôÔşVŕaµjůë€ůÎT{« /}_o“V˝!Îűmm¨á»5®"˝„*—\őůBšâZ©ä±ň{‡ˇj¤±ş— Ë…¸Ľm‚R˘ÓsT0Ô§˘Ş“ĐĘV«ą’𬆫ý¦¶zp%߀Ń+ş+łcřćĎ—ˇłU ‡Ţ‰—Ň7â'+uĆ~‚bŹ8©»pőđ´|4AA”.;Â^>SUQ°$ťG;őŁÓ¦$î°qŞa„:Ď—s]ů9͢«ŰŻŹţ ˙+endstream endobj 387 0 obj 3735 endobj 391 0 obj <> stream xśµZßo·Ň7ý}= @»Űćţ^2HÚÔE$nkĐ»Nşł¬ZwRNRbçŻď É]wą:]lۦy\r8śůć›!\p&˙¦/vg_ĽÜ-.ďÎB˙B,Ţžýx&Ňxµřë* ôĐĹçv±z}Ć™wViçłş~1ô Ą[Xgá—Ĺjwö˛ůşŐĚHímóŹvÉ™őŢ*Óü…´˙Ő ć•ŕşYµKŤםkžĹ¦ĺ˘yŃ.ĄvLK×ČvisŢ«†ASkX×%ţ‰Óvś;+šďá3¦×.5Ąă*.śF<'íżÁŁ5¦ů..­ ůM»ÔLZaT1řJ¤™đznÄ*Ďń,7_A­đÍßŰ>Ť‚@Ę0­˝KŰŔ_ó'˙]}›NŔ3oĄŐx"™¶|Ph[y!LÓ Mśd©ŕd:ąXĘ&âr±ÚŔđ7Yź7ąyÝÂy‚&¤h6±×uͶ] f­¶9Ä=6ďZĹŚńZăq€ŞďDó؇öÜ:=ů|ŹÚł¬ó]łF­kkv8©—Ć*ěű >»M«\ZŐxîPÖ8o®‚¬ ×˝^+šöî[ĹAXŮüÔ ‡*¶ ›zۂꔳ¶—×Üd~S Ď:ç>Oů†*Ą—˙vč\We&˝d«dY˛é=dűÂýIva¨†Č" pťç%jąÄÝŹŹEÜ´h4čvέců™Ř7™é>[Ë>ŃjŞ® ĎABWj©;PŇeú›}u&ŘçD„`‘V ‰)˝dř&ö2Żąíč\ą7:ČMn™±ÉonłaŻsóĐ Ă,7’vî҉^ŐU·Vŕ>Ž‹^ÝWyS°UĄüęGÚ&ŢĄ¤Ĺ©ËĎ‚éĂ®k¶O\k]µB2ÓMÖ5ĘÂ;ĆÁË.ňgä4“°pçÔ˛‚|]Ĺ0đ÷,9öl˘yŕ=®ŽaG’o^ăěži°Ëóš1—š$Ó+đmŕEöÍI™, ĺ·‰sv†îó¦<ö‘qI ö18ŮzöĐ*@^("Ă{Ő‚¤`Ťý#T1 Ţ1ĂyŠ~dcźaŚ”ŃTd~2ë¬ŮôÍälĆ}@@˛Lß"$ ´p©%9ß4(‘Óś"-%ÂÎDµ´´“(#C=ÁÖzĐB±Á Ťđó·Ą}‰é(őeÍ1ęńcOś¤‰Ô \ÄÄÓŇ•ęÔ° Ö~Hl “‰÷-Dđ12ˇáw€ŔŐwg«?ľěÉ› S5Ź€˝ČŻ‡ŻęśćšhŔĹ®‹Á-Áô/ —¨JŽ €Ĺ ˇ\ç›wµ¨OtV5rh=Á0‘ Ąd¸®ú«ŞŮťĎ¬ ć;@´ž~Ň$çK–=G |ôPł:˛h=FLNc¬—ÍčƉ«Űçv„dü$6úĂĐůr^@ý4ćŮÇđŻ˘+Ž-ˇup1í™ęě‰Ń'tŐĹR­ŕěí„ ß:츖2ÍHÍ}î%T§Ô,0fPťÍč[J+;ÎśŐg{ěPzęč&ť'ŕ™,¦ ą5 ásâ{] fH« ŻäâSÁhâUkĤWÉißT ŻžĐuöň Ą4µ)Ć2%SŢ=î™ÜĽ–¨ ĹtEb}·5S/ŃJjĂxĹ(đ“šáxŽÖŚ=5đ›ě]08‰<ÁWŢÇÜŃq;ăm›(Ł§»-ÖÂlĹţ©ęˇUţ\ Âő.…HA.i·GýOÎk”żäßÉPÜş”óâ!©T©ý÷YĎűîIýĚždó|Şž“ŚŔäîxW7«:Zעxý̉‰ç¬ šdµĚŢ/^HŁ°t&s-g) ÖaŔô€ ŻvgÍn}ńĂöÝm»úß™ đ‡Ă vŁWßoÖ›ÍçŘ+ĘađÝ[ě]:Ç<ŽHf}˝ľĽĂ[ÉDĆ.ĐŤĄy•Ç˙ ÖyŐ⧠t ý~úŐ°¶° 1üf»ßěđ§ŮâV¬$ÂAŁVBmë9ˇh$L”Vß;Sť%®©ł€Ůºǎ2Ę:!ÜLŞ[IFńăÄ;2=c·uNx^łö:Ź«OPrňTŮŕ|¸ ÉŘśËÍę;űŔ˛](Y)¬oö±++ĺ}–ţËAíÇÝQ{Ź{ŁN' I˝~ÎᏀ?Á»ŔřóřßMýäjqŘî¶űű©/޿ٟćtÉ뛟·‡dšýŐůůőö ^Ą;ŘAňŞůtĽtź<,Ué °R©ůSŤĽî(©˛„Ő-®¬ž–<ç© >ÉYúčYŘ]_Şže<)UĘČQ'©“ě˘tŕ:-ä-;éŕńúcliŕ}´Ü[ ĄŐĚ­ž®iv$Y;…™ćŕ69Up~ĄüG;ŐTŇ  %}Ą>®}˝Éär¶ÎÓHĘT묦~Ź,ćo ĐqÄ)IŚz( ŃhIVÎ'ë¸C*Y¤(ßŢÝo7!µ=Ĺ/ĘSděöÝzwÓÓeçî|GjQ˘VąŞÎsî2#ľ•a^ëb<Í{xŘc7•'\Ż/|UůÇ&FVÁAiâ'VŻŔÔđb úâ­,"ĹšH‰*KiBĹ0‚lcäď+Ď‘ŞĂ„°+’Ś#˛’˛—ÉŁˇ°Bp‘Ž›>ľ†·¦ŔrmOôÄôpăŔąÂbÉŮú#¦Ĺ”˘ör6™Ś‰ ZíźâžnŐyäuÚ¤™+ŞťTäZ>:ęÉť™aOyn3§™\o<őř6˘m¸nů–vźřĄ%w ý›?­Źŕşc*ÄëŮâhfň”%Üdo[)!F€×ĽËżçd·ţĆÔĺ‹ýł˛ČÁUiě)Ś/Ěyz$›ÉÖ)ŮZäßŢ9ę9¤Ú_˛Ög«łĂß˙Á˛j]endstream endobj 392 0 obj 2861 endobj 398 0 obj <> stream xś˝ZYoąöQżbž˛ÝÉĂ«yH€MěEhs8 @#ÍČR¬ËimýűTńh»9’,ËÁ<¨ĹćY×÷U±?,8 Žżô÷řbď×ow‹w۽о‹÷{öDú‡§^‹ß„ŽšŕÜ,Nö8óÎ(-â|F[ác›PŠą…qŢ,.ö»?ôš R{Óý±_rfĽ7jčľ'ĎëóJpÝôKŤ×ÖuŻăŁá˘{Ó/ĄvLK×É~90çĽWG­aÝ,ńWśÖrîŚč~„aL)®]z”Ž«¸pęńňü ş Š™ačöăŇ ˙Ô/5“F Şęüw¤™đzWŹ2Çëňř&lÔßýĐ[… ©ií]:ľ-Cţsđç¤ĎĽ‘FŁDR™6TŇA@^ˇsăcšúI– Teĺb)-4rą8XĂřWD/g=¨"E·íŻuw=*뼼^µÜ—G2ţrőEgőľZkÓ/3f¦űfě[FĄ×FąnŤŠŚ+Ô°fÚy­ňśíŽcOëßô`µ ̲»_Ç8)›‚•0tq°żwđËĂĘBÉQĎayk=.{ľ+§ľ‰Áé9Ý帕Ű0©§óßăń«^—9wH'Ď4• #şŔĺ˝LOĘqé÷7xî’€‚Ůla#Ŕ" •ĺŞ »D pč=tGt Ň:fĘľˇ1€â6áĆ‚ŤKՔ翟ž ×Ďç‚P˝O;±* 3,UĆ_·vRÄö®9ü´:“1¸Z–h:rĐyxôšťBÍóIQ“YgʲBş´×ĐwťýFtIś!>v[OË8˛Ü]y,}ń0ËtšĄpr.âˇV¸˘döYfľšbÚłîşŮ’˛'H=@h˘nzˬ……âĎ=‰űT““«śfbRżŁWC Gh’%V.™Ŕ|ŔË çxT–Ý»ëíŮĹďú˙î)ĐrÔew±:ľąÂ¶eh2· l”iąśöUŕ/Ę»Ô|şŠaśóZ† Ë´ő6Ďysw‰ÍČAęŘž¦|»ůtŤ/tRFžô»°^5ƉÁń´ăCžxsąľH3ˇ'ĄPÂűÔĽZŻĂZĄŰö}\PiAŚ$Ě|rľz·Ĺ×dY2ż ਟÜôSéü+X৻8@Ü"¸_¤QD–ăŇÂZćôôŐ„fJIˇ1ň KŔ(ŃšŔÍ€ĚěE'-âenVýŇ{ [˘*¦ŃŻĘű5Ř›Wśîn|:Çhl0nŔŤőŕ•mdB‹ŕBÎi+ĚÇ9Ŕ˘+ŘwĚŽJ:ÄMŽEĽ®„_âU$ŇN™lTI˘‘CŠqW-'mLńWŘ ś‚q_ˇAdcPŞ y÷§ŕuý«ŘĘťK'Ë­iŞU=đŚ1ß`¬ˇćĂDtáý†Š‘ëÝ—Q›@3Ŕ»O­0Ő9Ý+†ąsśś´DäzE…YÇrl›1±Ź=X¬R¦"Ë„Ž&ęvP52lĆĎÂń–B΢2±V4FÚ2~“ĐXo[ PÇjé$ ›˘Ü캲”ËJ·±řhx5‚OÁ€ű Ç :ľmÇE v"396Żë=łJѦćLN(Ă ‡ őŐ˘Q)zźVÁnrěşľ‹é¤VLhůĹ8tVi6ż/»ú–˛€šę*ĹsäŢDmĐj ”Cđ¨A8“Bt˙ę5wt»RZŔ÷Ş»— RĘ~r:ż«Śš™K©Ě~ŰŚĽ43¶y¨®h!rű=đ>@‰ÜM»ŔaÔ€%Ĺáüů玻r‡óoě ˇĎů]‡ÉYŻÓŢ'«8ÂŚő›Oާ…ĄžđD‹ú Ż~Ąˇů3H‰G8h]năPÔ…Câŕ'<’´R‘O±… &ą™'HÓÚ3¤Đ1!i°tŢY5|^Ń'Î ůČBď.ţsĂ´r_3–f1>6+ÝOjÄÖx #ÂMĚmÎňČÖ•4 «QÎLĽ^‚Ă&î„4$Ąnf©¸í0 đęct…Ďě"Íô§ÎŤ¤žŕzŹj^ńţ›%spě÷Ó$1‰•pNLăUĽŐ_ߣ˘EaŚČŇLĎ›×­·ă%ĂŮëş•˛¤mźä)ĘżŁ/Ć';ú\0Ł&ď9O»ú)ˇ, Ž3íZgÂę@‹fihS_=‚(÷î™Ő¤ov\3‡ýOŁU“c{ GˤjÝŇ‘ňŔ("Ź%ŁÚć÷ŤwEŮ}ĘšßaŽVĘ_ŹĆ«·M_YUŐ™qďŨŰ÷–ܢ®9bŞ!…ů¦µÍ Lâ8Eí±ĚaÁą®L¬ăâeś˙ąéDóűóL`!źß}8 ř¬šĂˤc~ó$ÓÁLÚqCOqBQ@˘ź‚MÄ®°‰K…çܸJ‹“>păú@-KâzvFżMÝ˝÷.¶}łnQgѡę cý˙üÂeŘ2cýy4ÖUsřl© ŁÉVĆä­.|ⱣŠĆ„*ŠtźŘě3ęRş‡ŠŰŰ'”2$×_RÇA’{É6nSܤôůÎ&HÔú‚ŠFřŔCF—­¬*&Ńpüph0$®<ű ™üN›ňZ•ŁcůТ)ł›cYÇ^â~)~A¤v°p˛gĽ ¨ăB<đ±Q¸““ŹŤđŇF?éú·ÁŠXΡUü<±˝˘cEĂ’Ś/‹ŠËIÚĘéεNîTíLöSóÖ§*â?\XŹ´ŇA¶d NŰ‹Ĺźy—“73l˛V7€ň2ÄŁĎî‹bÄy–“ŠFřäŤT¸ż^1űˇ&ĚçcRŚsé3ř%ĘŹ­žűgG7«›űů7?śťo¶ä›±¨2ë Čm dÄŕmŻ‚ üN‹«ĽřöăŮíńéü+˘Őĺ:|ôú`ďďđű$lendstream endobj 399 0 obj 2842 endobj 405 0 obj <> stream xś­YŰnE•xÜŻXĺ…Ä6}żĽ 1"(öÍŠ¬Ĺ»Ř†˝8ö.ÁßLőe¦«gzbGD~𸧺¦»ęTŐ©ň»9%lNýOú}ą›}ő†Q;żşź…ő9›˙9{7c隤ćß. %Â(Őóĺď3JśŐB˛¨OKĂÜĽ_cB;×VĂ›ůr7;oľk%Q\:ÝüĐ.(ŃÎiˇšoĐóë–'•Í˛]Âť4¶9‹Źš˛ćM»ŕŇÉmĂŰ…"Ö:'ŹRÂwúÄ+ŻÖPj5k~‚mD*mzä–Šřá$ń3z~"J­Tó2~ZŔă‹v! ×L‰BřĚźHćä”Ä2ë8ËŹoÂA5sÍ÷­m`Q8PDJgÓ5üŰĽĺíňÇäGśćZz°ä2© l(¬Í‚cŞqýcT×óăYĂüÇz®•%ÜkhwĽ]ţ¨đ‚ëYó÷pa8¦żx‚˛°¸Ý¬/Ěýćj·Ůď qx3ż=Ý__üv:űBřőáîřëńfwÚžJ-·§íöt[S´Ý®ď÷Ca8ʦ\<Ű_Ö›»±ŠÓýęîX.—/…1cÉü»ĹŮŮë7Ż~âň ¦§Ţp_3ÁWgĆČ “|ů˛‡ő!Ă~­iÖ>l¸łĽąi!ţąś5ű>–®ÜyÍÁýËóôvżÚmŢ&_Ô+ů‚†đ ľx…ňŐ>{㲿‘żgĄ’˝%Šq|{dĐ߲†»?hŘŐŮ>/>x­4¤Ąëťč=pÉBuZÁÉĐZXdsnÎ9ܢ;– †!ď­˛č:§‘ÍpŐ‹~éŹH•<"JSmQµM—ů,“ňvÓ€(¸µ@¤zĄ§~}É›‚AŢ”…_VůűɆšŇVÁY¤óµűţ}ľß1ż^a«z0si ‰G ť'Iäőá¦cőč®Pݸㄠѕ şY®c ta$Ki˝Cţą7m_šYÉȸPoU´®ˇ’óôĂ Ę/˛,şŢC¶îŘýýáa®f!Řy<Â…÷ˇD:ÖĽG!7Ć~¶˘–Đ|Ţ*ĺźMĐ ‘p˘uŢU|"§ŔPAŇ˙÷—^ ŮÔ1„"§†k ß^#˛O}w1Ş|ĆŢzb$řÜ 7Ă«Ł‹[pkv`Ő?€e*śíŽ‚ aE+z,ŁrrŔµ”p&1E*qÍ5¤yëĘm{7µ$¶Ď˘č,[äpCpúÇf™®rEŰşĘüY‘V$s‡€:0 ŽSŹĺF”Ç{çyŹ-€nBĄÉô”X‰ŔÎǢţÔ’%]I'z6H*DŮÝDtZmá-˘Ŕs„щYľžę˘’xPÜ á»LŃŃjĘ`0a ?PřĆ0w° J°°Ć5‹ĺŔ÷ĂŚ28÷ă´’vŕT‹SÉß…$†»éëöŞ9búú\ĎY$ Ë—łĺĄŰOů„Uß䢙˙ŞăX¶’i]A"‘ţńÉ1·µă˛ŇŃ—Řâ°Ź¨xu–w•Ń:Uż»ô84Ŕ/ĆäfőDĘˢ¨šćôüPcńů5ŇůôĽ3(OSGĐ™@ZŇ&ô@$0I„Ô!~”ĘăL‡î·Ň!-Fˇ-7~(Ń-ËváślĚáë\ä8ÝűuX´Ć—"¸V™ÇĂ–çů°ÝC—?N‡çűÍű ˙*¤AeúěŮ­‡‡‚ŕO넧´LĄ^M®Ę˘š°\g}=ĹBu¶*CEă víŁ|ĹpIŞ|ťb™ń<,2AŮ×^wX×ĺ«;ż¨Ŕ'Ľy7ČĂŽŐë›*,»‚-xóOÍUb7L‰ˇ§ű7kő=­§BźuBŃÜeq0HĎű,±\O0ćl¬}őTh—ŹwnHťzÔ›Çh5娝 ¨ŰبŞ0WIHÉYújxd¤)ĐVÔ "_‹*MaÇlłŇ B?Č šó¨íń t°®®µÚĐó´q˛éł%`JVÂ>Y?y‰±n×÷vŐą â#ź~Ę‘Ř7úO‹`šPč„ĘP€: ‘˛J3a®?-ţ=$¸› Qź˙>Y1÷$ü§žËŁJC*Yq٨ź]řě,Ě ĂXťM a«exť˘Áulć|˘MF]á6ä <ôÁÎÝpp4ĐÎuĺÝnÖůke…QŹdO¬ᦡNÎé/üĚ‹(A…ť Ž‡č®=‹×ĆTx‘CŁ?púđpBľ;.[‚YLx!ŃjÖő,F¸’ó)p}Oe†` Ă•eŕŞ4[Ě:´#9č|ďu:Ř%ëÓňzĎR´Ý¤đĐEŢ.'8]â{> stream xś˝ZKs·®Ę‘ż‚7ͦĽĐŕ ä–ŘrĹ);ŽŢh•kĹ]ŠŚČÝŐ>$±*?>Ý`ĐÁ,IGré@4ĐÝ_?±Î[ĆĎ[ü˙^Ýź˝|Í[wţnćĎůůűłg<ţ§Ť«Î˙vzbĽmÍůĹőYËĽ3RńŽžQ–űó~ŽKÉÜąqľś_Üź]6ßÎÓByÓü}6o™ńŢHÝü•Ś˙5ăĚKŢŞćb6—Lxe]óŞš–7ŻgsˇSÂ5b6×Ě9ďeĂ`¨ś«É?#Y۶Îđć'ŘƤl•‹CáZŮWü“Śż%Z2Łuócw´„áłąbÂp-‹ĹŻđFŠqŻ¦V\dŻňđu¸¨áľů~faH.$5SĘ»Č~Í[Ţ\ü#jŔ3o„Q¨U¦Ś… …´;yÎuÓöĂŽ°‡ ™ÂôĄ˘ţ¤Đ¬>/î·w«ý_f˙lŕňĺYłŢ,W8aA ®ĹÝ8űň%ÎqÍ>Î-o÷Ű»Ĺ~PśYÓŠřáp(´9‘†µŇ»8{w»?ŕěś;9<\ ›=˝5ľ•9ö¶›“żÚ­‡pŽ4ĚÄÉĹz9Ţ˝XV&Ă)`%*ó˛^}qĽp&óÁ‡Íř2IXĹI6€P7WL*#(:ăÓ޲ŚÎś•FŁą€‘Jă„mxžÖłą‡őÂf;“°Ŕxw3n™âÖ6›Ľňjk׶Y…ˇ¤7{„?ś »âPKN·íúµŹŁPÉT@áv·ąZí÷›ň«×es rý­_đŰać˝cVúća;˛upC< \ ’­ďm$č›ő˘ßvżză–“o: fźĐđß±Ž/Q)o¨IëtFëĺňxż}µW·ć¨=é`_§>âo˛ă[ˇpŤŃÜt•­-Č9&űs/A«ýĆÝLs”Gý¤É«žZ",avXĐÚ+EFJI"sĆVÝŘ}Fí%=¸G´x*§ĂEľÂş[ëlłokÁM·€&­ pN˙łÍ±_ÚÝÖ A™ÁýN0ĎmsČűá. Zć­ĄkÉdíMYşC˛hÉO(żÓźú°¶¦źřPAkçCĽ¶ř.D€Wó WZfµH*„Ď»l6ýäU>r¨AT‘ɆĆ3!Í`22Ôń®µ rň͇\ŽyŘj9„çî~\GóĐ)-a-¬\ÓMa žôJ˝É+™˝Ľ7Ď! $Án?±‘EĆ\Ź:y—ŹŠ2m©aŃĄY·GR6okćHĹżÎ{8ŇçĽü¶×ú+ň‹M uCşË8&l'f”x ĐÓ döĹLkň·$aŔMf&ÁĆ™:‡ĎłOp¦Ň?÷¤¶!„+bľWԨؔgVTŔFôđLµ%–lÔ„ÓEomĹC%&22ć`Wť1ŁaćѦF*ŘEd´·‹ěÂoóőÖŁ ;0Ł˛­ł’Т#§“Ä@ÓżC·ŁX«8‘$/(5ŕ:–’T˘r^SGî5L`·¨Ć‚ĽÁn!M1®n7d˙—Bvë\ťÔuÍ›ŹÍYrWw‚”j&@€ ľC¤д)€Ů¨Ä•†~šqŽÉ„ëŤŃŞ1ŽC ؇—¶­ęăÔxEh@ ‚ĄU”mb.=HFÉŢ%–—ö­ű3˘m^ç<ć(eâíť Z ęi :ÍŻ ô†Wx¬` Ő‘ŤŽľVR(3+ŮzIdéĎł2A‚ Ö‚ůŠY|śAâ ­ś° »Ş‰˝íé—^ ČÂů’×N/–lĘÚ˛IĺUŹřݲ–«*ł)OşA¶!ô ęĚ@î,U'1cĘ^EŐ=‚ JíűôöEÖľ ”v‚uk3¬5µźęąő ”d_ÔÓyFşÓŃÎQaCňhad–ě*ͦkňśHeÓ¶zň2/ýżkHšě×±+‰I8ćoĐĺIć¤{BĂŤŹ ”#A÷UŞgń‰Š1Ň©ĂÓA=’›Ą™«Ž@±Śľđű—P4éa·.¶đh–ŢGdíńMŚájř\¦µ7µ;cĺe8SŐl™´Jâ°«n5˙"–"@NČ”€TM‰UKĄÎÖZŽmű˛Ě#-Źă#őZ5ʢx@ŐAO»–9 O\%YPŇŚ[C“7VHܨ7@H(?Ä|×Qó«÷7ę1(殕Ź?بîu¤ön_>ć8Č ň;Wí!ľ ötĂŁš¶ôiňas|ńqôšw·[-–‰2yY[®®o׫% /Ź`pLšôř8ýտǑţ/~˝ňťssIš)¶Ó‡ýq»Ýě‰4ű>¶·ëý—äcxTZ·]\˝_Ľ[ŤĹ_}e…[T÷‡ř<Ű+h bÚ95>őz·ZN±ť&ľ­> Źź÷ŇSoÉAşTÔ‹ROŃÜŘŞÁˇźnďîc&F7N˛Ě˛Ý€~â¸#yâ Ś>ńŕR>›u‰‡O·‡›Ęűýf@k˝¸_±'ĽoËÖ<ý}Űä÷íýűö1ŚśE/ŚqÂcŢ[ H›‰[ăĎ#şčňÓGCG,a·N ;~'í“aĆ6‘Ś=—cń2Ą8‚¨ăe—€ÍŘĺ'üc/ŚuĆăń¸Ü 9äB—„”,±Ő/eßL)‹ş”żh>ńB% •DeŐ·„”¶Aa<Őt}l–ü× o ÎMő?Ş Şűg<IXč•J| K mf!ńÍ™,2—Zł:]JéÖRĚ ‹'9|¤N?—™äţŢŠÔääV¤áDrÓ÷97őÓYčđ­: ĄLH‹d9>z8 áú#±‘ăČ\Ľ—Ęđô3î2oű˘nÇe·¤B˙&ąŮř#˘ŕŚú_=Ĺ˝Ę?ŠůŚ]1‹‘q&ÇšAŔ€2b2n-×ßHß ,±ďđĹV]Ő śč!_đęwů¬í ¶nX˘Ű3ˇóL®čWm W4čă#â‡}|ÚűŽ?NR…WÚˇžîČ~8íÚ˘Á|ťo=]Eźeç{,¦†ăVř3„šëţˇAś*…8ä~¶ű ĺţ°ÚŽóťËÍÇŐ.ţúŹü€¬ň›˛uřťŘ«‹ł_ŕß˙7ľeendstream endobj 411 0 obj 2809 endobj 415 0 obj <> stream xśĹ[mo·.úń~Ĺýŕ=Ŕ·^ľ““ŘE\$iČ'0dél]{ş“ĄS\ˇ?ŁýÁťáËr¸ËŐé«F€hÍĺ‡óúĚ÷q޵lŢáńďŮĺěĹϬłó73?>góÎ>ÎXüGgÍż>ń µ¬ëôüäý¬kťŐB˛@OKĂÜĽcB´v®­†7ó“Ëٛ曅l—N7ß.–]«ťÓB5_‘ç¬u‚u˛9Y,EËť4¶yuÇšźK.m+ąmřb©ZkťM ŹRÂşŠ,ńw$kşÎjÖ|źµBtŇĆGn;Ž3~ Ď/aŠ­VŞů.,-ŕńőb)[®™ĹäWČ‘l™“S3N2ŤWůńgϨf®ůëÂŔg Q`H¨VJgă6đmţä·“żE ¸Öi®%j€E•ImŕBÚA@Ž1Ő°ţ‰,hĆđů’ ÔńůÉ9L˙e!A \Éf˝Âî9köůń6ę@Č0a›Eż‹Ł úÓĹ’µZ+¦›ë…iŤfšyęm~ĽDI9[łĘŞdŮ›…h•î´ižĂR·nâ{ŃĎ~e ’oŤuä#23.%€ţUâZ7gyt—TZĐÇÓŮ?™JL`·@›áŠµťS󶲍{抰÷y­n¬ź’éŕćŔIň%™›‡×şE7'’"J9ŹşSIT8ś_BHЉ”ëlĎŠ0Ig0Ó›~ÜÇ’ń~'µĎ(>A:¸EN“­źÍţ˝M€%c@ĺT»`ŢqAú©ëWm'@¦ż×LŽ ¸Źç˝WܧľR6¤«B‘›&6óç>ŚE%Ş źS|´Ţ~ňTď3¦S…#śăLPÄÄ,źŰŞŁľŁ‘ }Ťú1­±–*¸ďbSŢL޶`&ŃäŹö#/ÂŹz¦‰VP(ťŁwôłęJ€:“' Ć)-˛k"‹Mž­ž’-˝c–R&ş…ßkď$ű^dłEäŘR,řŞx?° ´ëˇ]pg9ľç’·ĘćÓ‚1tŐ>–¸ ·čl_…l řňh¬cVëşÝýľgŚ˘ń¬0>X•QťKÝWŚoFa8`‚#Ď‹ŢĚ;€BĚR#ÚĹĄ­PšMLŘäŃ Íś°‚k “Ě÷5˝´,q‚K\ śB[ťŮëčurŽě۬­Ő‚s@jŕĎ#ˇ^çp}—™*G%&D|çj0Ëŕ=X(U°*¨ť9ČĆ»ŞŹ®(‘«ó)Ą}.ÁD­…żÝ’Đ‹Ë1çÉ%„.Üá¶fäůi2!@Žđ9…§”Ý‘°ńŘ|?Sř„ -ÁKą¤p¶®! iĘ´mtm-Hđ­¬ó$GGV%¬k2TˇEÜá.RUfŕ¨í`/·$äŁ-çĂäL)]˘°ÄéiPî7Á%€¦ŃÉ#hm‹+µÔ`¶›°éîGŠô›'Ň;«Ćřq€ŃůLť…`÷a3}>řDj4bÝ„±đ‹Żč AG9đ`BQ f§Ýǧ v……ŇD6E˘ ŮE’Ĺč˛1ščťW‘Â*&mëŢF1ĹDÂ!č6ÄŘ |FD1ąKL€W8=ÎńSŻ&§,Ş«`űX}÷P)%]lő}–O=‹]‡ÔSHs' v(w©¬Ş–[ŤUß*ŃŐP3ŠRs,Ş—q?ŕ«­{⸤5’M‹†č„¶Ü`ať†ÝbéÄ`ő—gB‚Ăßĺ —`M‰ö'€‚Ó^’éýÁ‘¶.ú\ lŞđ\ĺ/ŮśNÂ_L Ú‡2żąą»|·Ű,Nţ1óĚz4oÂčŰíéĺ _i 5‚ł·ű»«đÖ´Ž9ßţ~şą]ýöľě6„ÖŽâäš “€1:}Řč´ gBRíí&%±»,.Ű[ɒ׺ľT÷ŹŮí« @¦ßÜ‘Ť\Ź=¤ÚXcŘ°`ňoôRŠ÷,î&đŐÇZ˘¬#Ű»H Řž)qÂů°8BçɵWŃă®OZµŕÚŐNţÝÍq¨»í‘a‘.äf^¦ü„ui©áĂő0Uj+Ő1wŠ…2ŽřŞx*ůtoŚŁr×0({Ž(wI·ây7 ŠĐ~Ă‚/çÖé̇z€h5‘|‡B÷ý^}Şt§±ĄOy$4řGĄ‰y˝«©šä¦W`ĘŽßşf DŘő"ö®VŰg¬î- {ŕ@u|Ú—®&ÎDčÖ‹ç‘ąĄr¶ĂF&˛Ăó:ş€vSš˛«Ň¤÷6žÂRwż×v&)ĐŰe<%·1CT”ičÜzOÂŹšNr>Ń}č“« ;`Đ°í˛ôŞ;K…OÉ&PqY®'řůkÓW`ŮoH-Ö#Jq©V;¶#ˇUd„¬5 “ďI?ŕ} ľ&«2ú ’$ľP‡Ou!űB„Ć1Ź‹:T¬ĂÎ$y>hËoŕuľë ·hŕ{wńů5ąËqťü´«_Y,ÚNL€Ĺ°Ţa°H†»*XÜ㾣`ĐŮ„=ŞO ±GŠd,’š†ŹRúęÎĂÇýúňvs{pOš%ľA|čq d§5»«ýz·˝yB” ›Ľ!Ú–ôVms”ľÝgĘ[šÔEBî™č”ǸQ:ţ ÜřĐc"ßZdŹM@e+ťTX\kü°^~¨#Âá&VXSegáża*„¨ł*ł ÁÂ,se»%Y6Qwň‚éZ«Ĺ#Y®én«m˘óQłl•i™s5¶…ť|˝C˛Ü»ľ)*mŮ‚Ö˛Ź2Ě™áѲh5UXŢbD”ź!$1IŇŽżŻ+ä'”Ý •uyŚEş’Eóáqť˙ D>Ôň¸ż3_4ľŁž¤6ŃLô ë¨bjyd=O>¬“•›"¦<Ą ›JÚ:Ź)QcÜďhűú) 8=Q K.™ ‹ţ@Bó®jŁéxX E,C‘Ĺ#+>hbúc}S4‰w•ď Ývf"”=Jv!k+-=*Z«FĹŹUľŕ¨Göj´ś\v Ż cˇßâŁëł±ľd9Í˙Ł6I-í*×ěe±îi^JÝňŢPţŹ7Ř„0ö…›&VĘ"ŢďUWNj·ę·îËőľ7°¦ˇÜM»*+Rߥŕf&Ě}QÓ­'t8)ü"ŻNf?Í>ÎöĘ xOc 涳sťľĂë^_żž˝xýý|}»š˝řeÎf/ľĹ˙}ýă7đçőËůźfŻ^Ď?7-ü>€PŢ!!¬B‚Gşç^Z …ZßÇĹă(ahýü¬~ĺi] „Ĕߖĺýkź8JôVČ XŢň˙|Ká:D>Ź+â(QŔZbúšVúęĐZ$¬%ŞŠ>>©CÖCĄpő$¨~˛ľëo޸|0Ą`)8‹žt¬‚§˝R ŻĚ/E«îáJ0ÄÄOčá‹o(źcE;Q$VQ-y˙–ž«¦[|ňś ÝćzňSËCIÁHO}J.çSć2Kç źČyµçµ]<âHôłŕě rUp¸®†R>Ó’ĄˇSń=}…ĺ`|8Ţl¦}Z2lT1Zőř ;s$”82>8…JóŕăŞup*TmôźÔYďęO˝%Ń ¤[z㿪ąä—SoŰÇËiÚyřűĄhŐm›ú<.‰kŰ,@đo4{CŘŽŞÔYő‚âA3~jîąí@ü”űĎ{×85HżLćČŰcŃűÉńŠ¶m¦ŐgË'ÇÓ:ŇĽýzc,M菆Ş÷ňÉŕł k§Ąˇí˛˘öý„ÎżÚ¨ßůČś¤Ž˘Áž´ł¬řc§ë˛ŕ/DŚŞ[ř ňͲ‡ś,89:(1Ů˝YaşTĦS9®‡ęÎ÷YŇJrÚ©ß­¤ßô?Rá}~şNÄ•ŻtÍp/ăŘŁűßçI­C5üyTęő]Ŕ! }+G~™…g‚G<ŁďŠ„şŚ[ě;˙#ŕíĘü¸ZĹuááM¸űŽ ń|C86±ßÜmĎ.®wŰÝíÍ[śv¬e¶ąÝ„GüýSPŘ2}¶ÓüéÁ†d>†<ąđwÔx:}\o×űőé&Kć#:`étď§"dÎßőĂK˙}GŹ0÷‘h18A`bîÔ±éÚŹ1Enť5ź.V[…8ááüôn×űń××»ÍćfĚ×î÷Őµ'ŞL« (ÎIw1Iémż'b8ľëüW~ 2ł®÷oĎîÎ6á> §r ÓÓ]¤Â˙~ -j 㫆ÓRü´ŢxsEźIŚG“ ĘŃőv,ÉgW«ëőîüYĐţÜńUxqÜ´ăóď—«Í*JľqążŠ/™Ř¬·« kďǬÝínÇVvľŰ>ŰGÍ bN§Űýęéx Óňj ţ'É g°/pŘ`~Śj˙ßăő`ňóńzěy´}<"鍟Wçvy®·¶0W˘›,Ó8ă_É:qňPë§Ů˙›I˙^endstream endobj 416 0 obj 3443 endobj 421 0 obj <> stream xśµZëoÇ/Đoü+ôCÉ"<ďűŔâÄi\$i‚Ô(Š:Yl$R&OVT ˙{göq;w·´ä kąŹŮŮŮß<÷ŢÍYĂç ˙Ąż››Ůł8só·ÇYčźóů/łw3ž~°4kţâ,LôĐŐpĆĚüěrĆďŚT<Ň3Ęr?ďű¸”Ť›g`d~v3{łř|©-”7‹Ż–+ÖďŤÔ‹ĎHű»%oĽäL-Ζ+ŮŻ¬[ĽŚMĂřâ‡ĺJ(×(ábąŇŤsŢËEMĄ`_M¶ř’µŚ9ĂßŔ˛FJ¦\j ÇdÜ8Íř–´ż€)Z6FëĹ×qk ÍWË•j„áZ&żDŽTĂ˝:5ă¬ĐxYš?F ÷‹/—–D!©ĄĽKÇŔѲä_gO7ŕo„Qx<]™2 ¤ä9פ‰ŔńđÂDˇ°‚űŇ®˘ţ¤°řďňě߀ śv1[ü ÁÝ+é,Ŕ®żmß·Ř+pS&Row;yú}ě¶7w×wGěT¶aeýzJr·ľi?Ĺî0Ű,ÓîŘ_Ůę~˙óíÝő±ýůĐ޶ë.,ĚS8x0&¶» ;)ľUím#“ô>Ă{ĺŤY—˛ŃÚ+µč–€m@…ŕ‹miŢŕ­{ˇŤ\ÜH^— ¤÷D}ŁÉ›ĺ ¨Í ˇoîp‚i¬ă‹ó˛¬Ĺ^Ńh«ďbŻł‰l¸Ţ60őP0HxLŚt‹  %`Óć€ÖCÚÖűtHÉ,ÇŢ4~Ű·¶ex×wľ…ĺR5Öp:NÄ•Î-AIĘŞuaŠČ0źU÷đXŞ$«(W=­ĽJů,X\µ/"";&١đ•%ÄmşĹ°‘ćn‰Z$´o´‰@|CŻŕÓ~Ńăʦ­@µEm{{{ÜŢüQ*Mc>đ0žô˘6ÁąĆsďł’uÝzsŐ^LŐŻŰýÓpÔ~v¤µŰ_´Q A„ôy·×ÝŐsö:PJĘWýú…fÓýŐMĐ{ÉY6ůɤn˘ű_&vňá‘‹×űëný¶}ŽCĆQîmŁĽ÷®]1ű:ę˝DÔŢzć|qŘľßîŢĆÍ´ <\ġ»u×Ćq ~ĄpŽăíŽNcçŰŽ ¬SY@Gě>Ž.ńy2sş.Ý_$ĂĹÄRk vŽQ1ň´OěK{‰ÚLV›)ź@“° žLeÉ*“›‰S3ÖŇÔínŰm××Qdl°ßm{Řî/žgbŚóĐýĽyŘ\·µe߶żvS—p~h׿L±©$á>⤽}YÂ÷KŘČ2Ý›Ól°ťh<óÔŢ]Ű˝/Í;j0s'LĄzbývhEť{á€Ŕ“ś/~}ÄžÓMŚšKŕł„§čçśÔ–á–ŕ5ĚäýĚ?/µnB¸–9âbjJŮE[ęă\Y׾źyŔq°@˝t*fßC %՞ʔô~‚« “nµ¸Ó@\>q&„@r†5 ĽÉś¤dŕIśşŹ~§ŽşhĽQË\uě¸gtěÚĂ„°‘ 4<‰C¸űGŚśA~Šz˝ş(꼔mńp«tşUÔĹ7G#HOHˇĐYä»› › ž ßa“•*1L’ŕ+Ő(şäUŤ¸-§#â#BŤ’dĆ’‰`Şč@Ě´-® JÝ@á*8*… ¬.4‹ "%¤P`ć[ŞUśDNĹ Đ!"QźGěŃÎ;bP‚@Î"EVÇÔ¸H‡ÄŻ·µ#ôCé=‰]•˸ÎĘKÔä‰űxŰ»áĄC ¬¤Äö#•‰’X'őfÜĂ 6¬(&öz¤YT€p|ľä2Mn©2 lHOĺ1˘·Ô…ýZ–Ý”čqÝŘÖÎ>Ŕ~´çLźFśäŞqš˙FÄ1Ę;í/$Óhčţçô+ĘIÎO”sCłŹz0Ŕ_rs§üT>6őSQ}€Łś+ż9á±ňm:ąř±Ż»Ęô…!•«ŞHfXň>–©^đ– ×Ë,©Í€5IÜAFűUŤňVT›†¦ĐJĘĎÝ;‹1Ovä>u/­ JĂĚ]JRĄédžpQrď‰3ńCĂý„řŠFPBí#0˝Äťt€qÄŻL« ýNÄž…© V¶Ľ‚Ě9UŠ0RŤT&¤ž!!9űzvö—PÂ,IŤ«€‚4NXÚ Ńž‡ŔO.•B[@Sa¾̽…3xé!űż_ Čj­O5Ť8Lm€[c=8\ĺEĄ¬2‡8š‡€śń7\{k#@Äň Ő+Ń—pźM«KÝö¦=L“ËýašđÜě!cŮ G ÉŁíÓąu¬% goö»î°żľNÓ D}ÓŠŘ`Ĺ«bën»ß51µ Ŕnᜍ*iwŔQ%ť^*ä·»ir_¶LG"ůnHŽ‘.1>źgÍ śÄ(]¸ď߯ÖUeŮô‘IŃŃ*…Í+HŚ]˝'ŻnŐdc‰˘Š“„ť‘$ ŁŚ wžÜî;%ŘMî0~ő SęDuţç ó'’îúłé%´ęEý˙ Łi Ö[Š!]č5ŤdrÖŔŘ<Şďíu¸¶K!‚/UEŔŹ˝âHîY(‡śO0&OáŽęUH¤9-d`:@HB µÚgÄü2®t¦4˘a-¤M§ M2pzg ͸ÚbćÔcĎÎWËí«)D̬¬öyń/—ątĘ™ˇé±ŕ¸źlR5*Pe5pℇTµ‚<©ĺÚ Đzpüvp_ÓĚbđ&VłÓ©˘díH=ÖCTlóéŃa"źwě×Ôy«'Ú„ŁTŐ  NýhĄN€ů0A>L^×X¬šn0¬ăĹČŁĺçöĄÓ‘ČŻ©¶b(ÄýűÁů‹IVM2xĘľNV7 “P‘UĚÓŁ¬ś§† PŘ7zdöc_Lőb¤¤QÇ ’×±~s%7ëÎHO˝„ĚÔöPĆÉŰřÔÉ ž%Ět}u¨n‹ čHt•Š7ÎśÔ‰\Ĺ˙ŘxE8B+Ý˙ ńJ"UËx±Ď ”iPŮ Ä F}¤˛ipLőí˘jů@w<$jPÜTŐäCeČň‘Ë8:çä™p €Ă÷Şä˘ęˇřäĘÚ*­ui8tŇş ĂÁ›EJdż{ŐăCđńÖ;şWˇŠŞ`$Őőý¤y˛6ô}€!kźsÔľ7©¤AôĆbőB`& ˝’C…Ą0»ĘźđCőŻh0…ü]1qŇ$¤©u8`Nńßú'_§N!ßN‘˙wÓŚiΛ]šóJá”°tÂ$Ý%TőűHë Ě} đ€O˘|ŐďŔ¦Ĺ ËÄöŹ–¸·«üĺÔh|ͲtjőC‚Á[2đlá&iÔľ<›}?{7çŇę“°9Č×aĄČ†"¤6t8ü8ôĹ«ŮłWß̱Ę4{öӜϞ}…˙˝řîsřóę‹ůf/_Íż˙ŕŁV[í%)Ąđ&ĺ1Î_+bÁXb -†=<„%Ö*Á›Ŕ!\h„;„™6ˇśĚ•pńő^ąF§ç¨F|ŐčŔÇy_'p¦ O!ą7¦†X?vZ¦*o°Ď˛X˙ _{(Tß<|Ś×Ą˘Ş)|›A26‘C‹g‡–g"ä´™Ř:ńl}Ü,¸gdN{>^ZmĎRž_ŘÝö;ě{ˇ úą„Ű’ÎËXÄăÂô|výÚBŻ?T9r°+> stream xś­XYŹÇňČ_Aä!b»ďĂ@$± +pâDŕ›¤#’»Ë„äĐ<äÝźŞžžéNS»†˝ű°˝ÝŐu×WŐóÓ”31ĺř›ţ.w“Żß î§÷§IÜźŠé˙&?MDú‡'Şé_‘0ŔśŰéânÂYđViŃňłÚ‰0í÷„RĚO­·p2]ě&謹Í43R[}?›sfC°ĘT!ëÍ Jp]-fsĹdĐÎWŻŰĄĺ˘z;›Kí™–ľ’łąaއ *K­A®!"~D¶ŽsoEő¸Ć”âÚ§Ąô\µ‚Ĺ?Éú[ 1ŠYcŞZŃ –ofsͤF _ŁFš‰ oQ,2Ź×yů6*jE¨ľ›9¸…”aZźĚŔÓ|ĺĂâď)+­Ć2m\x»uPÂTŞ_&&@#4SÚJd2W*'§sé€3‡˝U{_0ď”5č`«˛^:ş Ë,«3î/a÷8p:/Ś«ęL»Ě»ë~ŮjÎĆô‘Ůž9dŹń L„¤€ ŁAŐůX/׳Ĺ'J0­‚:Đłz·şěë]sŮź?ŕń×ow%Ą„‚qÝşč šł µ0ĚkQé.±–¨żµFXP:.UPĹ8HÝŞó®ú™¤ó&óßŇĺ\yÍ dŐ!Ë:¶ŮyIníó9xXYÎtŐä˝Kq:V.>ŐCKęŃçsĺ ăÎV;¤±Şc秙bâ#©ś„4´ťJĐŮüÎ)¸L»VůNSďzM "~łBűVý1Ń™hrčĎ?ö«:s/ę|éW{ę‡Ţy ]IËś1Ô'­Q&pOŚŤÂeö T€őé0‚;4Ő0(b LúÎę¨×e†y×ďSed?źI—ľäĵ_ AG­i.Ec¬™KoP“ąHŐŢšŕ ÉÉqÔ±Ďß!^Ëŕ%%]eŻˇ\]40# ČvŹH á î6­Ô’¨´rě7×ď˛8r°ú—fD'řÓLxkE˛ďn&ózŇ]±`ŽčĹD ©+‡Đ ¸Ô Dj7Šwš”ąß–÷p}AŁž(ÓaĽâ-†Ý1hÓAóUŁP–Asůa˛řăKÚĘíáóĚ2퍶üiŁ8ˇă„BĐŮ`JYčMć´ V<ß0ŚnO a|^O›fßö„}łí °_ú¶'|[Ćďb}ŚťŚ‰ N”᡺ϴäZ@ ü«™1,8Pđ‹ŘŰčBaŐ ŃÜľfSŁ)A$ƨI:¦4ŔűűD–2wĚ Yî0„RÁ@sZEMřɲľ.jd É)Cá…ĺĂa” š4âŁlă§ȢŘ\sŰĚ˙)iCé} âPŚŇ…ĹI<·ň= IąwJęĘ"Żö–CXAŔ`gzTzwi&­đ}q— ă`ćé/úÓq ­.Bśđ ěR„ÖloŰH’7úNrcb:"˝‡‘÷Y¤ĎuG*,% l"Ąŕ@_~_ő‘zđ-ÖÉľrFŐĹZ{?C Ôc ©ZîÖ$úĎ ëËPUgT}ěwË3)€Z‡Öä9Uěľ-ëÁŮCą‡>ŃŻ¨ŻÄ9f=gGMŽąqá§! #…¬…!+ý¶Ä× ääęş™ˇç‹u_ž^ËőAxe xS2O‡?r§lc[őd@‡¦¤T9G€@qĂŕ@&Ś<‡®Ű™ÖCľ˙<—ŚRCŕěäkOQGRQ¸Aóŕý®Ľ Î/&îčŕ’9Ŕö^G‚U’5 qC ÚIŘłś,DÖ]Ą'”ĺ¶ŕ¬ŰCń‘rp€YX\Ő^Ě,í3hݬŠX|©‘éő®´™)‹wVť}}0ťą$LĎ<Ś‚©~n! ÚEŘŠ—t箂čŁçÚ¨0‚6DDrçFyTPËb¶Š‘"QÍHýň™&SâÇ ˇ//Ă Ć JBĐ˙RęQv©ú…˛FCĘ@j®045Ďç0”$mŚ@{¸Q dš'd°xöz´IER&ĺv]“żé7źÚUř‡öG×!iČžőc˝Űě㧠ýÎs‘–ÍnWďWăůŻ#14P¦ đoÍŞŢěOçu]ŕÓÜ%>ą V燨‰ä”đrÚěďÇߦę±1§Ăzą©·I–ĂŻmĎsnĆJ ]B¸$˛»ĽkV›»§h´ô!OŕČ\<ý\7ő§íúô )Śëýµ9uŠ|đÍŃ3?4§ÓČŁXŔ­lUIÇŐ\~Ţ>Ť©ëĺr}Šüă˛÷ën,’:VeŢ÷‡Ófתv9LžËő#DúÔ˝űI‡úĽŘXťďšă8˘čáĂvýęe¶ŢLŃBtN˙¦ŐŢÄĎ‘IűhןŻ<ł{úŘ݉Wâ‘Hb VŇŚxÇĄűpĹňOcµř#çc˙—?ńôµ °Čv, ÎÉ9H4ř‚c"[ČýKĽ24ş ¶ŕĂŇ'ţ{SĚöz{j~m Ô@|żgú8ß>×ŰKáëv Žëű Öń…*ěxl“ p6ü¶n=4Çs]ŐŹěüU.‚şľlϧ—Át˝żjÚÂ?ňŕ7qČűěÂĺ?‰ĐĐL:ž—đ’ţˇX™ŃŔ׋ɿá÷˙«endstream endobj 433 0 obj 2023 endobj 438 0 obj <> stream xśĹYKoE–rÜ_±śAlÓ]ýćŔDE ‡Ř»N"쵓lů÷TuOOWĎöb#%{2ÓŹz|_˝ňr-…ZKú™ţ^ެ>ú^É°~öz•ŢŻŐú÷ŐË•šţ!§UëO·´Pą5Há¸őöjĄ¦ JkÖ6Hü˝˝Yý2|6*¬ 0<7JX- OG)¬±!¨á®ľ=âŇč>íGŔřáŐ¸ "*=čyÓoŰŻ‹FřŕI€«ŚŽxë7«íż _ŇąF©é %tÔ đb|˛ZÝ+…7Ęą@’ÍĎ/đji">]ćmŕaÚÚ ×(Ź‰Â…8üň8kŁ÷Ăkü %ź7‘č&qřjţ~`Wi­4El·•Ç«ş JŔÄŞ»&‹Č¸ŽhBp&YÄí$‹|AćŐJgc8eőđ3Éăb0jxŚň ­Ą ĂçăFŁŕƇác|«ńP~CL÷Ž÷diśłĘ ·ăĆŠbÔĂ›ü<ÚK˘@Ö˘íwtú ˝Zżżµ°6”Cm4¨,ZĐŮ‘LPDEP ‹Iţ?h©N“»č|-˝âW]×·˝«Žuĺ«zţÓ¬ eZöż¨kł‚Q)KnśOÝX EÓ»}>‰äËçŰ(űŢü–§PkcńÓłjÇ»ú¤wŇy.Ń úÉ9ĽÜéÉĚYçh Ż}LKŮ©“ú°ŰŃ ĺ4n[?żhĽwŞ*ŻŤE—Zş_{+¤wEŕĎX÷®Ú±ÚŚ9ň˛.e»®IW)đÖ3č) _ŃB+śŠüĐę1ćÜvWőjôU¬i®ż¬Zďé-¤lÎŞŞ4@B« jÁś80mşˇ[#X7űzćĚ}ŹF ń" µŰW&?ąÂE ż‰!–Ý´ź\•QQ\Mf“‘óăy]P¶aPŘŐ· ŕoę[¶ Ł!:iĎđâÝĽ–ÜLnd°+š—*&´˛XÄěĆö3˝öőm‰KÚS`ˇhĆ·üÖ`śŇť·hLTĹ.9x.MŹ-Şv¸Ť…dvîűŁµ"Z§RŃ^h° (Ě{Ő •L‹¸Š¨č†ă۬ˇÇ w;ďşk,Z(öa¦Ćä,çĄ NőY·cR+ĚŠxß3‡Qż”…\cˇDĄ6Rě3'4 '(9”PŞ6z°<‘3š…>}™w'jvŹ'ઙĄź)O~ľö˘ž{[éÁřs$sx’‡ŃűűMÝ6QÉ(źů“­1ógW Â@ANP5UÓgd*¬µ0°•‡ŤéÖśI <…Ěßő± < :UWN#Ą0Ć Ű1`íŁt~ÄgĂ2Kă•‘áĽ?ŁLüf˛Tlóş`>©~^xĺäűŻ…Ćbĺ]Ź™5[QAJAč'ÓĄKđëłe]ŕ˙ŔW‚Ǣ;°HĐ$ęelŔ3 eNj:‘yčCň€tăY4&ä”Ú‚%%(‘Ł“•Ą °€ĹdĘÉqčü¸”±&Ś¬ËŹ AŞe †o†‰‹ŠÚë&U¤x…‹iA·Ú%ÂUëĆŤăým°8;űY§â€Ĺ䧼(hľÉÂxđĂŻC7˝tŇxvá‡bv-óďeU§+L•§¦o;†~˝đë8YąąŠÉ:7ćL©`„)¸/TéţO¤Oѱ‚i’,ĺĄ-…7긢±ÖóňňöT±üĂî =hň±ů¬l Ż 0\+8AÚÍ9 ©eđ#őŮgű€XY’`¸Ţ/8– TuŞ]:68Ú8 žTۉ¤ą×ŃtDđXxŇFR»€Tă&FŹuĄ Ł˘ť@ž×ľH“‚b# FËoňi¨Y„I,„ĎňD…ŇGůŘíĺďŔ¦µ—Ď®5]‡9DŚMĄţ't‡R­đ-«tšĽżŃÔ\ËqÚm˘/§y€ây1Ť?,ö”đ·8źjĂR?šk ŐÓŇMakűźç 3~Ë"ě…<Ĺ ',z×pÓÄńąŢěď{CŇŽ´úi4(Ú™Ëq8akÎM©ÂvĐ445nf¶OJ› ‡Ru‚u“Jw<¶)š^~TEţl4?¨íľîĺę6¤ůNPç#ď4˙ů÷}Ĺ"0©»tÇHďŮćźĐ*Ý?M6°Ú3fÓXÓ;ĐnzR:őÝĺ  ¸`pž„>Î+9˝¸­ăşç].W׳¤ĆJ¤ţŮhďĄÔ(F_¦tsúX” ‹ÜŚ-Ł—ľ­ŇTU7ü>ϡöŁ˘qŹçuőIăÄć-‹2aW›Ó‹-—ZV4LčJŰ:íkO*ó}pîŽfšú±„#6<`tyň”(°)щ‘J+6ÜLç`Á’OúaŽ¬ÇYY8Ĺ`á¨4Ct-—.ů]-i»=GQÚžqZ•źťĎěWŤĘ,ůđąî2§đ|ů–A”SČIIxű'Şw9r\ÔŤ'c‹;®[˛’7|)ˇÔ)a”á$»Zöť(h-¸•3F¬?Ůü4 ˘˙WĎHŚ;›đ Ň/˘ŃÓD¬Ăař~N\Ť;rp‹ËyÔÄt¦Đľ«F—Ő‡:ĐbžŮ5ńńtײţiç|K¨fuLtĽvÁ‹ť†˙>u™Sş˙áŃ÷T·UěQެÂ{Ç˝KJt#M3ŹtĘI<˛Ď¶fe![M(.ĽđżąGŰs¸lÍßíŹŘK$’őĂŠa>éÖş Âr˙xÁőÝlkO¸Ŕžâ·S'łf¦™˘|ľ]=ÁźżŽx\«endstream endobj 439 0 obj 2123 endobj 443 0 obj <> stream xś˝[Ys·®ň#Ĺľi6ĄEpzł|ÄIŮN˘Đ•JŮy ąĄH"i[‡•_źnC.I9Ą gp4úüşűó†3±ář/˙öćčŹĎ÷›‹_ŹâűŤŘĽ:úůHä?xµyzxĹçvsüüłŕ­Ň"­gµa3żJ1ż±Ţ—Íń›Ł§/¶š©ťľŮî8ł!Xe¦ĎÉó߶‚%¸žŽ·;ĹdĐÎO_ĄGËĹôl»“Ú3-ý¤¶;ĂĽAM µ†}Íô'˛Řł¸ť!má8÷V-ľ!o˙ĽÝicŤĘTöÓľ…ťŤeR‰éňúój™JeĚL%Đ@ÖýžL;®›ye篷¦—eÖÁşę”˙%K%°`ĄŐ(‘Ũ­ ŤddZÂLf~Ě‹Ŕ‡10Ů)ź“›ťt°2‡w{LĚ;m=2D­śŇ“ľ…±!f‚.)|)őôIçĄö‡ uÓ»yŔë:ŕ$-kťśŢ›ťŐeľáÁLWu×Kd¸++jeéÇ}\;€Ęśo%S†Źą&aÂćřŰŁă?üHőďEŐ´—[8ť‰éWŘS9XĎNg¸™µFÄ}ËŘËôčP?ĎúĄęĂŐüýuü®AĹăŞŇ0%Ýöj+<“ÂĘéž6[¸ç_W©ţ ‡5–[—IUÜ ä‹Ô0B©Őď`= Ţ Ńżź¤ó) äm}{^ßĆUŤ—rzŚ[ÝkKg]V÷8Ŕ2ççÂ^ů|&O PÓťęŔsś-™Ń!Yz6§ZK–ĆÁjô0× ůe&Đ*O%4<¨µdAăPw¤dÖsQTĺ{âs@Ĺ$¸'#¦÷[4;:q^ŐÄo¸3LN_’«&F=Ú:ć‚tŰ©`™Ý°< Ë+€8{ďł«XĐ*űăws÷µÇá˘,ç×Íec8¬ćŠ)/?ĄZ%ܬƢt4T4^řEÚÚ¸ć|âč%‘°Ž,pŽ< őó-Ş‹×bŔłđäC ëÓ±•śżGŚß×RâŠŃ„‚ ›ťČŽ™đŞjÓľˇ©đ Ł%Wrú×VpĐ2ŘżNV+%‡C%HäňşŇŠŢZATl¬ů$*©‚%UŇâw*+ŘU·ä@4 ý^•¸PőűčĘUĺŐeÚK€˝ťÎk}¬\Ď/‰7şŤžTŞ•–G­Ś;ÁcŠîĘée´0űt–¨Ó®ľýĚ©~‡ÄVdftXťBQŔ µ]Kj•Ćí@{}tp8ü¬žŚ0‰0ś<.|~VC©4sFS‰Śí´8x«©tűPÚÇ"‡çč6˝Ń -gŐ¤ZC N} ^ăéD$€§˙-Ç+ĚX x+đČkh&±˙őJŮiD|©ŁĽYéj Ť<1îAA€pö€RXů1Ë ” ą`<€˝`@Ř»äAňcŐČ°P@[©‚,}‰Ó·Çf<9o~7™ĂÁ"gŁ#`^•3|Ŕzřą›ś×Tüé2t7śIxűÓÔ,;Ă;\âV!E8o¬ł°ŕNô/˝CeŰĐŹ\TaĂĽČ×Ô±ŹŮ»źăEňŃ\0©käo€^an(Ë˱#ľE‘ŃĘ(š!ŃŠú”Ó“ĘI~ÚÎó~Ô/ś(1uô :0ÍgG‹şf[ăó¶&NH¦gm“׏5¦âŘ^I‹D• 0¶áÁmCäúšâĚg8¸’¸>Kľiş3Sz™6ý¤)Ú:ľ Ň*ÂkqmŚ[d¦í©Kř©ŹyşÉPŞCźW,ďĂRx5lRő•üâ"Ŕ66VćôT-7ŮĚS¶ÚĐ}ÝŢ|Čj_# 3'ĂŕA8>ÖzL*$¤ŔÉCŇ–Rš8ÂK¬ńp·bdŻ·Ę[K]ÁÝŠ©¶B5ł•MŚ¶2tĐ?Fjb%^ Ş:}˛ţŐh!đż­ŻăTę˙b…Qó˝Ŕ]Vţš^÷ÖUżŤ T/eÜ«Ô‹Ęâ[¶cÖ¨CyĚŃ“6j)ó 7Ć«Zé3ŁŐî±Y庤fJŰT—śí ňNŰT%•5Ąţh˝tXě Ŕ•ąR­ĄŚMEGďú 0$@?^{a2ÜXńâ)ŇYŞÍCµXęMLŤL2«]*ßi0ť®äÇ9óc0.BH.pő˘Âëú8L)ß`ě€C :´şź«A˝F×}}Űf.Ę`6Ą¨.%˛É°Jy?2¬Šŕ¨†âŞ^ÄJ@U›çxL «ą6ČŽaĽ˛bmd‰÷gŤ‰—Ç'06Ż:=Şc{ýŁ4ĹuŹjWK9yłšóż!g}4{ˇ±´1Gç˛+ - ¦ŚNĄ%µäTM˘đŞL5nŮPŔ–—:ń·Á;DŇĹ›ŤrýŽ59ˇ*UnX@në :oWyZ0d‚ă©LŰ‹*ÜůŇÚ)ŕjD ´:r:¶·†ą6śt$hݡR©@ŕ8]h FŤd—¬oÜgx݇—,ś˛ěö1ÜľÝýȢ«Ĺ‘ř´ üŠ÷oĚ©3ŇiđŻ°R9i!mÇě<&*§˘Äjĺk††®ĚBZ«VĽE‡˘/të|.Ľ:)6n©PÇj~1d|ŰTÚ0§›şpëQČƤ¤T 47 ´Čń>r`.S¨˘ŐäËWEs°Ą%!¤}厄ę /uUµĚ6žÄ¦',Íů}Q[4·ČĆ«IkY‹ďëqK±¸m%!ůĘv9%vÂB8 —Qú=­§FY·hQ¶!´ř%w®µî«Ăy©ććK-sSšăą×JjidČćraN®ëC˛çŇó[”źI‡·ô+vAz«¦ąš‘ÉnĂB˝ĚúEľsĘ ŐÓ½ؔKű'•cƇjšµ!Đeö·F‡6 G¤÷9Ř ‡ĂJC6'ëú(A‚„Ŕđ*ŤUwĂč¸pcĺÚ¦ôYµŇç'$´ŐnĐL›¸áZ/&߀ ą¬˙b¦tŇ5ćz}‰Vî Ă Acĺ‰ćj3%ăLń˛ˇ*rHÉű‡yŹaKĺ·Ę·ńç#śk%[Žq®Ř2˝}°jT2đÜ5)ŤÂ0â ÷Yv¶)9 t%p=B>Á+wť˛Y§Dł†pBÁ+&‘D1óéSf)AµµWa‘zľp!°ű°Ö"łşÖĽ€<ËÚ±Wľi[»jl¤­—EâśYbˇŃŤ0úP«úţ†s}Ă‹•ö5×Xňš÷ó€]ĐăqĄš~]şĘ‡ĹAQÓś|_\vn'ŢQ]Âíu÷˛hHŁý ?§˝ „‰*‚–‹*Źh.Vď¦Ă̸íţ.;ß×Ęěr†‚±RM÷‡»tđjtKlxÓ¬©\`ŐĆPkôa‘'ÂŐ’uwˇ‹e°n­wŘ17Yn»ÎŮÂ;e™˛7ý®"ź†wHűi˝wĎpńŐ•¬×LŠ°‘7žŚ =-¦n@Ň‘îc:·ć˛gĂK”oŔwĄDÔ2šľÎrďh’ąp{#Ľü|gśÍܦdWâ` oĆUłËÖqcĄŔUŻň۲ţV“DxŇ_Š~6˙ď]ë…sN|Pe˘‡8Т-öŕDkë ˛f¨SŘP‹I ¦ÇMţ;ćÍĂ“¤w`ϤA@¨Ľ}T’4ym;°Šćú4Ń”qí† (<~“‹ęˇo~€´úCšŇžčçgn¤Ű´x7fp›ŤÔjĆĄŞ"şw Ô÷–ŇŚ#ŰVSľě¤›«µĂšaë ¶’o~‡#”âÚ§¬˘ŻgÝĂLţ;:@¸łwşxŰݶŞüť7—â`jś{Qé‰ú¶^+ľqܶÝßbţ•…Ş9u[5·űć†Ř]~ŇŇř‡d'`•s“ő Ś2ŢźÝ^ĺ*`mť.‘¸ĺłuiQ„X®F ˝ČłýZ{ĺf—é'˙t ·Ý~]8Ű[«µĄľ#ࣱŹ?ŽS¦ÝDŽ­1Ă_ÖĽ~×pHâĽ_¸7Iż:>ú;üűs%z˝endstream endobj 444 0 obj 3759 endobj 448 0 obj <> stream xśĹ[Ks·®ň‘—ü…˝y&ĄEđ~äf'RěÄ•‡ÂTv¤–˘eQ"M‰TřďÓŤ †ä’”R:x<‹ŤŻ»żn4Ýp&6˙Ą˙ľzwđ»—‚űÍé‡ř~#6o~=éxµůö0 đŠ ÎíćđőgÁ[ĄĹ4źŐN„ÍüN(ĹüĆz żlßü8üaÔĚHěđݸĺ̆`•ľ!Ď Jp=Ž[ĹdĐÎϧGËĹđrÜJí™–~PăÖ0ďCPG­a]3ü‰Lö2.gE–pś{+Čß‘·ßŹ[Í`¬QIĘöł`ec™TbřyýĎy¶$Ą2f–d óţ•|vXWßĺ•_Ś>- Ę0­'r•Oţsřçt*+­ĆSéµuđAu2*-a;?â$[§ĺäf+LÄĺćpĂ‹®.Ë>Î'Ĺ{7|…?Ëŕĺp6±[c¤Np󒆣bĆ­‡Źĺ÷Łq+µFŘ<)Wđ;h&ó~řąśëIo(Ľ´(dpDůi¤U~žĘj\ŞĹrë’(Š»YK‘ýͲ„áľ pîjeěŰu«@Ŕ“ęw ÚRŻ{jËż÷•z5?Iß”Ç÷óď¨iĹ™r¸ “Ż”7TwÎSśSB>iˇ¬ÝËŃ"U`\­O0!ż)J´1.˘*Ü Ŕ§áóÁęĽŔć‡Zć!÷“÷LJůh0ůçő cXta¨Î —vři(_-dUÓĄŃĚ OĹŞNqą˛×WeŞňŠŁóxź¶čĹ_•%…]QŕFdéŔ”™‘őPK A@źË%y_6˛+ŹçŁ$ęÓh*Aŕ<ü4ĆŤ-´“¤5´'x«aśßľ*Ź3°”`¶o tŠŕĺqyIOć…BÄc~.»$jřx`QN ˘ž®0ÄŞôŹ‹Ť!`2Ş`_d,®&a äTÉ d7(c4s4ÂQj°Áá:ç•%‘ůĎş~ýx^Šü~‚jćaVŠ®Ă{źeŃÄj%ÔšS\‚Q ű““rJ˙ťnAĺ:ü#Š"ŕ§=™¨+›…1T¨% Š;!“p\ËüY|»ĂĹŔ![ßXC|k=O™˛DľŽi.ř2ŮĆŕÁřťĄ=ĆŻvÔv—Gđ±‚wô‡B ˙:¤}ĐŠśŰua[ÉŇx[6ľő€¬˛čůb«8Á*q¶A1ľ~ʼnö˝«<ďk0D oşx=n4P¬„[‰;…]"«O.Ţî©®.QR‹l7™+Ěpb4S;­3ňÓ(SĘ6Q)źH9ýg¨ĹáyÔu}»)ž8î(PĎÚ0ad‹/ §>´Q„ ý`yŐs‡»„×NŹqBş•ů»ĽMżm¸'°+T°Žłń­‘ë±=‘҇á/aÚëgď$g˘Đuçď{ň?ĂŹ4křK¸«ŁŠŢ´?¬ąŔ ·vŔěĺěgDhşŔĽę„Żé âŘîf,ŃBµ~Ľ;čŰÝia˙G…Ę?Ń_ĘÖÇÄůĂťůĂ#]!$7VŃĂÔ~é÷ó7S%F•0YĘ0[±‘Â4ŽÂH¬Ă żYŻŰDá<˙#-#ˇĂnČÝ"2tŹ€Ŕš&´ĹüČWow­ŻkfĹŚ˛Î ÉQÔę[ýG^#›ľ%OUkgęś:‹GzŢš0¨ő€>…Ö.Łżęmź,ŠňqË€x^w ýdJYb(*HÉgˇ)qYđşčkČ^‰­q“‰@<3NĽĘ:uOăb¬rÁMĂźuńçkp~kÇ/¬ˇGĂfµ}k)&ť€pnžÖrŞÝĺäĄD«7˝°ÓçK—ŁB &cŔg~Kýă3,?ičÁuďű“9“ţT‘ˇ^ŮňŃq#ëZŰŰ5ÇöŞĚŐ_¬®nÜ`ąë›Ç?`:dÇ“#Tß]•CóąÖŘÇEd ˙ÄN<áöłŕ˛®¦—dŞÖÝ7lˇd)yšx ·u]%–í*j·_&Ý-d(Ň×Őďś’"qńsÍ 3'i<óŇŻÎĘKOÓ×^úˇDÓEő@žł¬‚Fů ¸rĚt@PrWôb®|N h ¬¸Z «¦ŞFlÍĺ˘0Un”uŢě˝Jń@îs…~1“$ĚWô«\µG뵿{D‘'mv׳™~^SvpZdeXťłLpOo ŻńÚŔqÓZZ–ĺ&mĆé6_'1ůŢŕ¦gvW…íw“§›}žcŚXÓLĽc®aˇVRś ňŁŐ;źÜRäĂ;7đj=¶şÁÉŐ4é7ě7 •ÎŚěÚÝĽˇESQvý ţ‘gÍnAjŰî ŐÜöň”PÍ>Ą­t ai1uIÂÎ_FCBÔˇ†°­Ż;ęŢmŢźńÁ‘žě¤áâ53ÝŮĺ§~˙cËÁ%ĘŹ}™…:•<€d".ć•@EF’`I˘ŮEa0Ýľ–ąÔµrÝú ˇ»ĹîŮ •ľŞ™$*„hśhäo¤s–Ľ~17ăůxń€ĺ¶ýt’~}GŻä˙C;Y%SíÖéjë/gîÔĹHŔMBč‚ŚĽŞXVnCÜŰô-˛lł ŤMč'„äf„¬^™¶|Ű}^ś]±b“Ä­Ő÷ĎÂ8pťýó_4@âń *µ ô׳K®Ťîî<¶ş»3_Iös{2¶›µ’ľ‰'+Řć}Š"=+đ%0ÄjĹëÁ=L7kbúżçŞö9EȦ!>Äz?,ŕÖg/Żp °`{abĺ”Ć~÷ţŰÔPŹ^/¶V߸€ĺŕ÷ŠHlČб+"ż‹?{i'Źî™ŻËďoЦ¸á]>|o€p źÁÚ†ęíTŞ‹;Ű8”Rל'5TR˛ţń<ôśc“ľŤĆ^ŠËx˝~ô|ôL+Súm×Sf 4Vz‘¤ăXŻšşAŰłnűܨßIú‰„‘…/‹ßíĘc"n6^Ä+ ď^şÄĄ_q <3ˇ©ËËNý+±‹Ń™•Lńx‰«ř‡#’#ÓÂ_bžUŰHěUö~µŚÜ^I Š°µşŇÇö“dň¶r“zGĽm.§»Whs—iĹQ&Ä*qÉí¬ýNÄjl$čÓB6Ç«{ĺ’ŽĚĺ@lŮ‘kS­6ć·ý|bQëZ/ýNŮç$ëś}¨-›¬K"š.(ČäŻv „WÎW2‰ššZέI0'°ŞJ;-Ůs7·#`č×ű«4=őťË~{őY/¨ť¤Űí×+ľŇˇUµ]k)m§ô ¦:ß— AńÂÎ`~>ő°zĽí}I­˙ FyĎ”ëWP‹Ô‹®ŻúB¶nŞŻŻú:MóůmNxŃZX~pmůł9­Đ·r»™şl'MÔíhKß/ńŢ™_”·ÝzäikYxČG•×”1»oo¸öq«ÄM ďŹŐű)_tdŁ˛|VČď¦Ú4ń5Tűił¬K†ŇľűŢu|Ó(jŕŹA©•ě1¨*s§F‰‹žČÝşů1Ľńó&†â|C±îHb×]YŘW35&÷Ż]2żň&S'gZ“šjěe0˙M÷ŻF§ú<6$|?©đQ¬Š zŮuŢ5{’’ăJşŔ[«úzŕůáÁ?ŕß˙ďöŞSendstream endobj 449 0 obj 3415 endobj 455 0 obj <> stream xśŐ\IoÇ|ä%a‹{‚L»kŻň-vśXłÉ €Î"EJEҲh…˙>ďŐúŞşz¦‡Vb:¸ÝSë[ż·4żßL#ŰLř/ţ÷âíÉgĎŮd7×?śř÷¶ysňý ‹˙3ĹQ›/Ný@ŻF6Mzszu2ŤÎj!YXOKĂÜ&żcBŚvŁ­†_6§oOΆ/·rT\:=|˝ÝMŁvN 5ü†<˙eËF'Ř$‡ÓíNŚÜIc‡ŻÂŁžŘđ|»ăŇŽ’ŰAlwj´Ö91Śđ(%쫆ߓŞűí4sa 3MV3˛Ĺ×äíłíNŽ0V‰xĘvÚ7°łŇ#lřyým^-žR(•O g ëţ‰L;-«yiçßm L*Ă„Ąt–ś«Lůçé"WÜč4׹Â"Ą60ˇâ÷DsŚ©ÁäǸŚ!‹ě°ĎđÍŽx9ńÍé%Ě?Í|•/ţ)#GÍlĹʶbTĘIžô¤ eŁÖŠéá-Ě·ů"ŻtłáŃJq6<â˘v´|x(8‰áĽpüü,,žF2‹¤Ă]řÝšá!ţlőp¶.Í÷—żÍ{~žČ CYć…;eŕ¦Yz”)9üb{úŻeĘ38:Ľ)ăφßŇÜ•‹<ä3ż(/ ¸bńń˘Ź x]ă-ěđ&’O˘ÜâRr4 ~ç‘e<-%&S-u[H…'(yě]âŹnŢĆÍ®›'żTç^"_†ľ+Ęň˛bąVzźźîĘúý Ľ/oLZÎŃdđŃIĄĚ ¶3 ×?‚íyüY°3ŤČ*C÷Ş@˘ątdŇ9U ”{$ŇR0¨Š.ŕ÷—[0҇zTÉ—§Haˇm ľr“.aMXŽEŐ‡šěOĎËŘŰĽĂe™ő,ËŐČËľ8ßJ§­$éU^€Đâuů…YęŃXwpV1?ä=ˇ#—Mó-ëËç]¶:YźYş@XĄŔ-?Fč”Ó(K«…®Ś?‹~­4Ńë"^DŇŢŁř€-4|µ}Áo"ůÍĚ(D¦\SN$Jŕf®Ŕ©Şeą Ä*o·@(­_őv Bś8G|ě ˛ěE×ŘdctŔ«˛ÂLŢýŰęćŢĆ1~PFŻ¨dźČô"b­4µśËŃĘ =¸38·Ę˙ąpă>˙NO\×e5?*Ë‚·gX%ń ĄµÄďâUv wăL¸Ń? Ň0Ła˘ jC¤I‘CmŮdŐ@‹ÂŹOP¸łś¸č‡ž3ĎňŘjś®0ŁK&hŤž$ĂÓŹ‰đyó(I™Ć«íęwtŻB@Ś ű×ę 9A–—= \m™0nîŞ;żż*ŐäĚčćŇBľ ů(Iň[ ô0áó|˘Ăń´>µ:*ăĎÔf(I,gŽMľ<.™á4öľZ"@¬'ö!Ž•÷ÖE]í4“eŕ€Ŕ~~Ř‚Î 02YDŐŞS(ŕ†š×ź|÷á×8 Ž ţ¦FIZâľiTĆ‚đ/‰hA"ŞqLŚ-q÷c›Ç˙Q÷›’bžStâ©Ô%!&ĽÍ!ćGô QÍłK$pKęĂí«&Ć[Ć.‰ř\UÉb+k|…gD łĐ?!«Ń߬öŮ>ú”ç…?ßŇđ»TČR]TF Da5Yżf5"ÝEľb®Pš=Śń0“© é÷čKlÉ´Í{ł*^ôMúÔTđŽd¬ńĆxVÝćÍ©‹ž4@xU‡ëś-€Ç®;¬ť©ź<ýnčEůýěĂu¤±Ërˇś4Ş‚‡«óYZĚbťŞMcjČŰ‹ěđ'uáL1a«¨âŹoŽ Öń€Ôý»mb˘X„Ą—9ęNPW˛t1ø%‹•'r‚ü2"aSŹ„íÄÂ…?A¤oźůŘ“ö/ňż*…‹YUőÔ î[ąÖË92¤öVŔ‚Ţ „ĐXŕjÖ=Ă)„¶Üŕkç ňÓ|xľĺh:Â@=°ţĘ[¦4í59ípF&¤ôŤ€¨µŠ“Řěŕ%a0ÄÖÍlĚ'‘ň–qM%X? áÎÁ żź–4čPYÁůďT„Đ!Öm|ałXKÂAÂ+bŐ ·‰Ů@’8ĚᵶamČQUÁQÇíסäú±ŕ0ŰÚO°ĚX.ajˇZŇ!K(aVŹŞĽ s7UOĹ­]¶nňą¨~WP1‰QŞ6GA,· ű@7ęR`a‰t<'ŹÚĆđů¬jn˛—ÁĂćž ROÚ|Ü@â]°LçLE¶¦ąťDN1ÂńrŠńr†©‚î‰P‘pjßć:© ZaĚtq…©®T(#›˝ît2 ÔÜnşRŘ$ăd´ĂGT˘ż$čĽ5ű0K†šŽşrSÉ&Ó]˝â0°’8 oűâÓ@*Čpʧ:3X{yÄ=Á@š¬¨A 5}•žĺĚ2˘AÉyG»Ňé‘)¬Ö9qđrę´GT0<3¤ú÷Ż’ĚVâ‰ůµÉa ˙q}ä<ŠFQvÜď”)^côGŮ=ĺč@˙'WŁUg lĘ&Ő¤ ˝ţH¸YRźbĄ‹Î,Ś^ŕ@LN?`C(čŔď3QËäd3+„.ć€ÔHz‚ţëJ˘*mr»p˙ů§P®.)ż‹™ŰöŚ>CÜ9ărăO·x=oBÍ"ľ˝ĚďvJTI`ą&sT‚ Ł®~˛`MqlVąY˘¦m#Ź±ă‚Ä…H«Î Á}ő­OçEiËY{X¬"cËÚvD đ^E„® o'•Fʦß#¬©ł~sŐV ”eÇëőY «3`ľ}Őo®ŘB’˘›YJś˙=«Śi@±ĘŐĹű7j<éAŁR†b‹đš"ŐŐh“h>ŕ…ÎL2×ýŰ ęIęŕ:Ś-•}BŔĂU©‡ŘźĘ)>ě»ÝĘ€ ®qŞ,WřÖŤRĎ‘&§ –€Ţ2ôŇ5Ňô}ŔMůLHĺć )ÇŰÚS¸ÉYb—úµ·>ŞőU0pŢp“ˇćmŘ•1±P¨ň=ŽŐ#„ÇeÓňU“s-nt––ťŐŹC ;š“B :*îkŞc JÂŮ?®ĄŽTvű€ż(ĘÍ”yÓ·Ăł@¤Éklŕ<żdţ&µ›ě¦tç Ĺ&}Ü6IîtmkRĚ9#|SryO}I@T­4§eß6­č ç@ä#şóđły ?ćĂÇ˝Ű,:âIęű ż9!ŁYô†ÂŠź­ăZ:L8ŞęŠą ™ĺ,wP±*>ťĄGý ^Őj1yś6'ZĽMRমQçśÄ[“[M@˘Z+ ‰ î“4TŞ}_t˙<ąŤ…†Yž—h±ß>{­Ă NR_ąĺ B{ĺöőßŇ$ĚÚZD×v IŚ˝zĐ´¸aN hk «\L_&ű +-ˇh`jŁ‹áQq›§ţľlf&Ź˝‚_ÖňĄłx±nä9ÇRĘ'ýˇßÍ:3AŢ#őU`ťJ0k ŻÚ śj@ná&µ[.sŠö“"tÝĄXYżôĄ @•ÜŢG×7ĘďbŇBţ<–<žîr ¦qÔśćęďşÓ €l‚L°”{?ţIËŤ'RîWN5#e«~˙R¦ô˘Ęî§Ň4ô‹r®crŚ\Ł tcž„Ű˙­jĺüˇŇĹOÔč*ôaŻHxż¬Ď”ÇöŽóî˛˙‘bÓoÁWý:é>üČŽëđbĄĂk?&÷ŕGlĽKź.^YhĺýőMôtżř[ŽLb›q•‰Ĺő5űČŐĘn&îěÓÇ ™X<ß›ű‰\˘„˙ťËŁpE9 9Mp@ţd„łµ@JQúe3…÷X†ö\ŢH}V’ósµYÜ~r&ö‚SąÝR(ŤŔ“‡NăhPş©PrY"ĆäĄuř˘T!VÖ.ÚÔ7ĚgŔP¶ §–mši˘szŃަ ť›îD!+±nO .SúĽÉŔ$@yŢ+¤Ěż|!4Öu%ę“ÖĄ/‘ęZęMe0}ˇŹU % ˙•uňŰŠn'Ď>Jú<_Š ¸Îä‘ ©¨ŘFíŞJßA*9Äâ‚żI 7?i>ŹO¸0őŠË>˙B8~kż _×áéîbeQZ»<…o9—l`ެ¶h…t^®lľĚéÖýÓŁťđ­v#`'Ýö/˘Diľ˝Ź÷®r~há$Aô 5f±¸Ű˙Ś  ·âĄî{–ťLŹ ›ä*UÁŁS(;Ť1ÖÂ*Bţ%ŐńáFU‹oâlźB«ľ•#…3’Ľk/µ+TÉUę4Ć~‘żw˙ÜE «üˇ{€15;ëęoI´áç«Ď2\|¶ő© ¸eżń—řÍľA" Ş´RĐ®éć.XdĆíÉ[ÄNćŞ4”ľF^ńÇ?Ô°Nc±¤(÷ô†F€{ ScÍ·EŘeiýĽ›lZ¬yčgS¬ęj>yKękâłoŔ|Ó—AČÍD,üłŇŔůl›[ă«řŔW\đ»ů—‰xŻř¬˝Ý’âW˘Q0ýW§'…˙Ş{kendstream endobj 456 0 obj 3944 endobj 460 0 obj <> stream xśµ\Is·®ň‘—ü–/z/Ą7Áľř–ĹŽ“rR‰ÍT*%ç@‰˘¤Č")Y˛¬źn¬ đš.4š‡ÁŇčţúëFCoĎŮÂĎţI?{sö»o9sç/~< ďĎůůëł·g<ýĄVç¸ =ĽZ8cćüâúŚ-Ţ©xěĎ(ËýyyÇĄ\Üąq~9żxsödóÇ­Z´PŢlľŢîŘbĽ7Ro~Ož˙±ĺ‹—ś©ÍĹv'á•u›/ăŁa|óív'”[”pąÝéĹ9ďĺfGĄ`\˝ů3éěŰ0śá>as†“!ľ&o˙˛Ý©Új™fŮö Ś¬Í"$ßü‹Ľţ®ô–f)µ.ł„9~˙N>»¨Ť›ďňČ_m-|R†9H˝(ĺ™WýäżM»âo„Q¸+hv@ˇyÎőĆ•Ç؉Ň7QÔv°‡° ›¨Ý"°‡Ío¶˙›ŹČˇĽ)Íé–ßÖýşŰÂŚ¤wnó %ekŐćŮvÇc47›çőń‡-č“ŃZpúřăV.Z{Ąpë%‡Ţ„ŘügË™],y(g7 © "OýK˙¶J!LEkÇSÁ¦i*FşőT$ł8řĚ/ ”óiöSöŞĽ|WUá˛đ˘ÎĺEiúŞöS^ÂĎBPn±y_Y~ŽŞŘ2˛Ô8ľöĚĄI…·ĎëTŢá|a ‰U‚׸> ´gT%­|ÜĂŚťHŤĽ}¶EĄĘB°ó‹+ĐŇ;ixwĹ%<«o÷íJxü~S§%A/ľßÖ· 8bń f{„úKĐgw‚ţ—öOŔ’3@ÄMUdí¤wĐÉÂ˙ “Úü ×$%S60ëőOřËť É ’x‚đh˛5–¬ÍV­âŽîĐ-ľu‹†ÚÂí–»…;m6 Öu¦í½§ÖđŞ.‹XCU±÷8o¶#&š}3Őě ÄľÓě4™Cöt]'KĆş¬ZHä™ Â¨#ĆŠV৲”Q©âaOřŘ—vÉ2%ňgáíUÚ0%ŘŽ7v´K‹Ůˇ!ár.«"ßT¬Úş‚ŹŢgŃ&éW/2”R5y_łŤS}٨Áz?Z5‰VáOÂýG[­aÝÎQ0VϢÉ=ĆaÓáďŘ«´‹ěŚ‰x†D4ণN(/ĽuhŤďř2Ż«$zá{Ó{wŘlnG Ł-ŁúËE9žőM#¸ň“µ*gv­ŹvfiNöŇţÉćß[ö$—j+QL‚ć/“ńD“/«ć¸OH"ypQ€ĺ ­ŇĚ#ˇ l ÎCľűsüJŁ— ¤·’â‡W ŹC•ţÉ~ŐB9ŮekˇmfmJQÍ|?\.é¬Ýy/ ç@j “QżH\Ńn@ }˘.¦O:»ÜÂJM\/<‚h×[Ŕ)­¤ľ¦ő`·7ŤŹvńÄţ/‡:ńzÄ7‰S»m¶a —0}îÝÔc‚*DN>ĘN9 Y„"†ćťÚ ÄĽŇY_˝´“ąëdJÇuô>=8g"^˘ä_G~Č€«a¨w4Őö‡ja€)>Ĺ`®JäĹPť+=][mCČD¦˝ «1SRH qÝ LYĘ aß?‰xXXŐżSÜŹ};Áű”ćO?¸zbd‘—Ď’@Ů˙µ/˘’φ(˙jhć7Ő>ęţ¬”ĄµÝkŚé1$‚·§ŞŤđbaŠzŇ‹­—ěZty9s@(ä8Ëó¸öQÓRQë„ęZ—Íęřť*JĆ‚ę_ŤT‰ ĺkš˝8N˙ŽP:ÁđŻăµ®´Ň*PŮ˙±†Uh)Ą”fĆ ŰŹúaĹ>,ŮŻR€RÓ•BK|ϧěH Ďł,ŢźČóWŘôÁvqîŤXŮ·1§A)` »†bě€ň†x‘TÎ0ŐDÄPů#ę _ (4+ýÜçń%KS1®5YŠ‹ŃŁpÖXVr`ašňóiÔ,Ą }I˝%ţˇĚš8çŕ-ě‘_Ç[$€N6QBł0Ćkxş"+Aůz®(nđŽ]¡.™ôí}÷J˝H¦Ç{Ĺč^MGcçR¬_źŚütBNB_@¦ăq¤¶B­űf Ľ`Ŕ[ćsŢň0Ě\E’gˇÁCÂH–H–!ÓĦ‰ĽH„úşačlŔܸNq-lé€tűCdđÎŇ챹źdZ˛śă§F»‚|5¸żć€uşŁŕaPT>Ç•ä«&;(8žMX*‹w>„ ©°45ă…k}éJľ!†‡ }ęR¨C,açmă uB……‚ qˇŕš0÷´ŇDŔÂI°ŕç°LaÝ$QF@)“Qî‰k}I›â¨đđ‘‘®’TňŰÖ&{‚m—ö#äüĎi¶9 t4ň`Š(zB…łĐuC † ŔŰśŞâ]dU40 )#ŁPŹCĆ{§IT–[=F‡I€ęHë`M^űSVňNR~¨p¤Ż5 ™çˇ>áhŻ#9›»ŮŘK=#ďŘIă'ćŮ]i5ŕćWs-a|ÝřY|ë"­<8«ˇď$®»ôcB\iý‚ĘUÚQ¨ôŠú“<6ńׇoňŘĆďČ™iUŽ¤µ¦qĚČłL‹6 ­üÄ· U%±č°äB˘ŰLwÍ‚öiJ_Ž»KÎ5ą÷CÔďCűU8Ő}»ÔYMň„N5Bhó§9«ý†“iúiGŚÉ•LüÚ(ď<˝€é!˝P0F3őä—l÷4Wšň ż–٤Îl$?t9´rzôr¨â«D]źt>ŘvsÇB ¶˘?t$Ł*F>˙¬†At®ĚhŔÔ® W"śo?z7ú¤OÚ—óVřƧĆzDŇĎ8Ń:Z?‰1}`«ßś]üö#•ő9&U:JOěżňĂ|účíkbÚ)¤ŰhBOkE*ďű]îĆfŇSedŹ˘™ 1Ł¤íyM§5k aB‚˘X’˙kŹjňú8Ńt3l°†űî$®a…­AŮ5u‚@8Š@IŻ‡3«­Lűă‘5_+U;śY©Lcvq$đl(ÇŃ$vĽÁ„oaŢŇ8;Ővç˝ aäw0¤—Ţ•Ű"‘[*ěÓňómýcup‚Ţ`Ö˘Ľ}…YbđŮb€±Y{ » ¤˛Ţ KőĐc„ŁÉ}–Ô8xŕţ03ăš0o=d«o‚CŃÍÇ­R"aâ׼·§AÓĚD—s¦×lvP tŘ2KĚîĂH»R“`MaD~‰ &ć kË»!Ň‘I"X$\żŻy1şĽľĘ®óŽősĐ<Ĺآ¸mÎŞşäfśxĎ€őF:×9ŇÖđPČăĺişÎŘÇh*–6{Ł=dżÖ‡BxÎ…, ™­Ň‚G'˛ů»ň;ń¦h_ŢĆuź–4Hî1«¬ZMWKŇĄÇśéÁŻ|ZO3Vµn}”'Řgşŕ­@ô™C®gLÝOUăv [[Ďó°bˇůĽ}* ő›CcżşŚ§—€Ís—…Záő*–×9ŕtĚË…D˘¸™Yx´"ŞmÄUj*ôć3„p^EŤX•ŃĺŤ:.wťÂ–’-éÖ&hg„łŹőK-Ŕ.-uTeG@żEÂoÂ)ĆĘZç)ŠiÚ;*Ěš ÷*śŰ~VŽRhLA€RNüjY±4ĄG„{ßtäĆ=‡IíŃQfU˛J…««˝ýLŠi:»G¶Ţî<=ÄÖWE>Ń^bRÝâ€d]ů&÷>kââ·ŤšgŰDĎŚ'ęm‚TEÔTŃ®ÎÇĽaĹg ÷l,13E´IĆĐĉs:4Đ#ŠwIn»đ řň=>ě ÖÜ–q·ŐŻŹzĆ8­“‘LăÁ˙ Ć˧!LËďo‡>`ČĆîă.ąUdVmÇ{Á))Ě‚:äőž–´Qíž|Ó­¶Q1ez}¤ŔvZ´Z†oúŹqbX6ł»ęV&śnv¤„ý«™W¸YIt,ŕ “ >ŕoćÇÎt‘ŕÚȢ¶ÇéŻBňÖť¦Ł€ĚMĎŐ MÜľN[ĽOĄ0zĚ9„\@0;H,"Ę5 ÍőLŚ±˛Z5?$âç4o†"p¦U¬X)±§ś„‰P7}°pňĂĐ*oŞäąćCô«Áţ»ĂĽ˘]lĐwÉľw|6 0>‚ţ‚EŞ”ĆŃô3dďC°ŕ?Ć"~T˝Ęăô㪊<ÚÚĹ1Ć›8ŘĆşE€9!ĽLeyg4'—22ŹF†Dîp±H~zT[&ž÷&ň¦ž-^Ŕ;6Ě…r?ź}>DśZyÎůVŔ8Í1aáD{/î„k ·bJiŽ+hŹéÇű'ěS=@{Y0őyŇĄ¨2d šäBB9\Éâ1Ţćń˛ÉŞ|ŇŔBćČťĄ9„ö‚ĺóáx•Ax®w"TČI~/.¬X<˘\tłYMl“¤>xáăŢişúŮçqmJúă®N¤­8ńę„Äły°–ń-Ş.‰)ů‘7“đzcE‡uŃbžđ!;׬˝‰Éw×—CüŇŘ1ÜM N˘M IĘuÇBĂ Mz6·7ŞÁs Ű\ůYfAź»V Ýk1ćZĚáÄE˛°¬¶,©Çć ±I‡”˘‡]Ä{t—e„^ÄáJżńqo·ž™G«ž„íÁh§7î`{ćÝťŹŐĎɤFřs÷•0®Ă4ŰOőĺ+jđóx0˛8]‰/XúĎńŤ :Ż1ŃŁśę c±&EđžŽJc±'§¤ač-ţYKrPV G©´ŁĽ2‰"HŇŢ€ŻĐň«-—°Aš2`ÓčĹ„ŁŞ\›_k4Ç"5Hn’_‘KcÝPF’ÇŘ;ŕkD~ÇÔŢĎsŠRÉPĹölč~×őE©6-lŠh΄oň*˛šÄĂ\‹żĽŻŢFÚ6çÇIV_”I®\äX&t|ábiţ$g®™,˙ĺAËÂrIw_Ë™`ÚŤ8±TkN|rů7MŞIęÚö©k±GÔťTŤ&§FăµÉp†|­ťťáđj!Y{ý:L0ü˙˙=5REř‚5h©×”ÇÇoéľţd2ďs‰™ôŇ'č|iŚŇ“€9Äކ@7¨ô~B|Ôr çŽĐřAťůPżT |ßs±T¬¬NŹ†zz’E].ŔĚ%pĘ^Ъחg˙„?˙-Ţendstream endobj 461 0 obj 4040 endobj 465 0 obj <> stream xśÍZËn$·Ýk“_hdU ™â›ĚĆ'Žaɸ łĐ[Š<ęńŚ$[ßp‹dń˛šĄîö Ć,LW_’÷qî“úf50ľÂżôß‹·'żĂ·şůp2~_ńŐýÉ7'<ýϨVoFBŹOŚYm®Oćť‘ŠÇóŚ˛ÜŻ¦o\JćVĆü˛ÚĽ=9í>éÓByÓ}ÖŻfĽ7Rw$ëż÷śyÉŐmúµdÂ+ëşOăŇ Ľ{ÓŻ…rL ×É~­™sŢËŽa©îŐÝ_ČaoĆë ÷ń ; ÎprĹgäë_űµb Ő2q9ßönÖ† É»’Ď_N§%.ĄÖ—ŕśű7˛mS«}ůć?÷Ű eđ 5SĘ;ÂWŮňźÍçÉ*žy#Ś VáÉŚĘXl¨, FĄyÎuç§e:4\1©Ś‡¬%ĚgĹj-,NđíűˇtÎś•FĄĂÔŇ8a;ÝŻ˝·St˙ęŤdÜÁVg…ö1,µX^ô°Źu\Űî6¨É˛Ę{.´wAŁĆyÝ]Ť¤ëľíĽĽi ,4“ÜűŐć‹“ÍďN)tn Hîpš7Z Ţ}{&˝š5ś)čćˇlŰ–ĺc€kga© O”v:÷]üęlú}Ô~ü]–wë"ÚCĚm!xv}]H_p­‘…F šî EŮv9­¶=wLŕĚoÜś™lc$XÍr Iąşť¶_YËéiż‘®{ř÷p9’*Á4Śűˇ—L›ÁTRßLűoĘÇ+ĘJŢD8IÖRŕú«®¸ÓEŮvŰbëavW%ŕGh=DH SţúQY~Ő«Á$‡ŹÁţÝóÁ2Ë5ĺSP cŰ.Ę 5«BfťéÎ˶í-#šn+·]'YÖ"=7QŐ: 8z`ŘL\hn(č‰ŕ‚ÝE! ÎDŕC¶Ý”%´&Ą *$@$"‰ČWhŇhɤ“Ýźľ·-:o9ÁŇş BKTCĚr?ŰôŞ› GÔ„«‡ O …‘Íyë”ÇđŰ ďm§Ä;ľ¦ś¸„OHË+˝čłs6"ň‘•\F>Ů™ďů"„Ł„Ššë˛\FDa á†{ë)éűâ.wMÓźď9ÄÉEÂý(Éš§Ät[A/#6Ţj†GabDVJ }‰ÖĽĄÖ:ŕľéS5řˇJ8•Z4IáŰp- &ĺg “J†2jDQŕÖeĹŤ0ľ‚e´R¤ÜŃ8ŮžäÖ÷áPÄQ8Ôsk&ßk°ă˙‚s ±`Ű®Ä9HÔXŽw˙ë2ľF̧EX %—Ůrˇ6@đ“ŇTQ‰¨ŕ"Bß@8•ˇ_˘h÷}Ň5˛úuéűfR† ŕäB†x¨\&,Í0–JH‰l@‚Hµ‰S†ňPN஥Nŕ.($Đ#Á–€źÄŐő´‹ÄpbÝřîc‰aĽhHŇD Ć1m-dล…iÄra޸ÁuAy‰‡$V¶c53ŘJ ›Ŕ€bVÎÂp †DŘŢ?L¤±îTš‡FG”*{Ť>Ąľq+ŤŠmĘěî7ýćżËe9Gč—Bš ˙ĐEŽ¶=Ę éžĂ Qp¤"Ţ–<ŔęE•JĄęU"T}±q8P˘‰ţ”ôED˘\@#ÂŃČńŘHh!t†â-Lôűˇ@ňńkkŢ'‡Vš¶]ą|FíQeËi9áňü+ŻŘ–źČY‘i$âj–ŹĄŽh…ţ×góLűóÄ…Ŕ§Ź”…ţ× •ÜË˙LZŻć˙ščid%’’ K&1$Ť–(X˛ j3Á°:/Äĺk,ČshŰV(ŤpÔ cYöŰqŞ%évů™Ę—ýěř<řXŕ'.ŤG†‡ żŹťűÝNë3+Ëó¸Ëb)ěv3·qeűá3%tŽˇ„˘ŰwúžYĐe ěéBVĄ®jfÂ=­^f3´^ţf8Cżćż[* ˛ŢŠ©ŻĂYž \7vhä´ŻŰŤ\óŽşľn6„ëK^҆ćŰčî06iĎ'/ŁtUo«ąÎ˘Ô#¦Ë=ĹÚ»™(á«XőRöSdĂpžĂcFˇ?%uŐôpŔ…Úq[$h‡Ţ”Z/{üôĐű#’Kˇ?ŤOé5„ÔŤ»ŤÝaśpô°GěBZ=ň씀ŇÎâPÓj?źÂŰń—Ců,ô§qěř$Yöâ5 kŮ1·gňÓęU,¶EÎúî»I]ÜŤBQłzęߥ૧ű i!˛S0Lď'ˇÝ×URľžúł2§Ů¶¬^ fëáënößyBĘsJ9{Đ›Q–Î4ę!÷H@K˛ż”X!=p|6»Ă÷ěÂQYY˝0S‰ç;!ĆŁ„EHťeŚÁ‡qŔüŞŃ˝×NV$şN:đMOEĆéWÇßóöŹżŁ~]=ţÎç—ópPŠ©^oň798+Ë‹2ń¦ş"5Ôă le8ĹŻ3ö2ŚÓ î5ÇůK«)9kI:-Źđ6kĎŐI2(u\©Ä›oÓČp&?ö.ĽH›ň"ý%ŽőŇNźˇÉă4y‘ľŹĹ“÷îđéôŃĘ!•˙ÉŢ©ťfzĐ8)5´ß"SqnÄXť žÔŰÜIářBśgâ‹Řü© Ňv^'Ž’ëpąđüK‚bó™VWĚşŰKŘ´|˝ŽyˇÓPböě1~ĺ‹bMGĽ¤]B7ś˘ă„IŻ3&żU«€őȲޥ]´~çÝí@{YŢ$R#bFÝ×TN"aKj[ţYusśŤ±¬üąCŠUAŔ:T‘JyŠ!|Ľ¤IÇkÉ9ýÉBshň8O8łä˙Î×U|;¶n‘Ľ›hŔÔ~ÜŽ˙S§ô4j6Ňł / ÜXRĺĽqľGg-ŻťĎ«_ɤą“ˇć}B†§Qň÷™˙}ŻLmţČ®§™(c›ŔđĘŰwöŞ´Mń¬BËyş&«:Ĺ}ş9ůţýRĄKťendstream endobj 466 0 obj 2385 endobj 470 0 obj <> stream xś˝\YŹIµ–xě_Ń×/“uEĺÄľ ńUpC#„ˇ¦«˝Ś—ö´Ű3řßßű‰ČUŐ=dÉNgEĆrâ,ßY"ľąd+żdáOţ÷ćíĹ—_qć._|¸ď/ůĺë‹o.xţË­.~zxµrĆĚĺŐó ¶zg¤â©?Ł,÷—ő—ru—ĆřĺňęíĹß—_ěÔŞ…ňfůÍnĎV㽑zůzţ㎯^r¦–«Ý^®Â+ë–_¦GĂřňŐn/”[•p‹Üíőęś÷rYáQ)W/żFť}‡3ܧ!,cÎp4ÄoĐŰßîöj…¶ZćYŽźýFÖf’/AŻ˙\{Ëł”Z×YÂPż˙‡>»jŤ»ďĘČżÚYř ¨ szUĘ;4ŻöÉ?Ż~—wůޣ®đĽŤĘXř ŰD4Ďą^X}Ěť@®V©Śťě%lź—{aˇgďé{ľ:+ŤD‡­–Ć »ŘÝŢ{ ëËĎaíŚYîwÜ®Š łÜî`S¬ăÚ.×­‡ĂNBČńďřd=_îÚϨĺ}üŢíňGĐ”\şĐ«äŢ_^ýţâę˙ޱŮmčÎÍĂÄâ¦0^JÍÂ÷˧ĆOwíńch WîŐrÓ:¸nŹďČÝ᥄ľňWFşĺaŐZđŇ Ľý˛˝}:đŔqe6qĎibÎ.ŻbSÉ,_žÇ±´âŔ¤’+—ş Ć}×uPf{»A–Îúĺ?µW4C4WmZ¨«@:é`/D^MśĚËÚ"í-ž‹d0Y!–o©µÜ7qą«żż«OhRlí÷S@Jáő“ť~Ü‚-ZKdîÖĎ!ÓQ ĽS/űĹÇĹéĺ}{‹uÓ¦‚b_%¬9ę‰JM-Sđ2ÓÔ0˝|€nŤ_ťôx+îŰ·U‡ŮďÓô÷äÄ1žVqhĚ‹ćóÄFk„y_Wů&ţ¬@łbj!9@"˝ !VŰ3?ĚWH :Ă "!¤Zm×´ID·Ü­Üił|·Ó>ŘČ%,´óXKö´ŔDZXZP˙ńnÚ#bWD!$fďňb»<G5ĺvˇÄŞ•źpŢdŐ{Ám\ Z@LJŰőÝTńGNlҦ‘×µhĽŢűjŕE‹~ž[ ¦t÷ň˘E‡4§â„ár@Ă°mÇ}?ňŮý qŐ99é0d­Ĺş ˛‡î«ćĹ—˝z–\ki1Ő·t Uŕ$ś¨EŕŤÁMn,ŠÔÉ{ܲ”6ěşÉH!îár·p)^ˇěô) č ZaSÄÖ4ú jŠFÉVÄ·Ű)jw,Ć2Äžźn­C¸ĘţëăŇéčIî«ĺ“b‚‰GB`7«Gčzâź:ä jňPÁv> Ů K ¸ţśHlVf€˝eŐfo$žfÖąH4ŢE ^ź ŠĽ(‹SĂ>–·SŚß#ă޶ڀ_ągÔ+HŠ i,hł–9Ú"_é:ęµÁŠßFĘĎkEa®rUVŹŽ!łń8pk>…¨2çĐńĎ©Ĺ w¦§ép!dgÂP¶ŁSŘ !Eë/¬[í;ŤŤgäw„ĹŻ‹'Źm,Í?¸ă­ČÍ樎 ­‚ńŮ-gJm†!6?¸Í‰Ś""ÖŮO!kEçCĆÔG„Qm·¦p ¦âŘi˙»E8iź¸«@ìCĽúŰđdÂGU·é&.ő,ÍT‰Ď-Eţx„¨<3z˘ŕú…ĽźsXQ<P«´z˛É… Ľüť4źíC%6EAMŤ śxŁnMË…-×v´Îq€ąu-Ł’,wdOŹd{O ‚Í—feNBČ–9é2Ťs”OŇjŹłD?\†Şą†J@«uţ~Ô„ ś;MÖ™#RŠGfJł'R˙cŇŚVUHëÝw‘yÂ~Ťj1-«ŞĹdžĥO%L§`ťQžĺˇSą“:a—níÓ…Źb}L°öjĘNŇ‚57ľČ±‘“pMŕłĘGpßJ2iŹ¦Â(&Wé|ŻĄ]ĺT óú›¶ž*Ś¸k&Syë$A‡ş BČ^9•Ô1÷ÖcĹ},®SŁI0AÉF‚Whѡ zŽĚÓśűÜń2Śú:÷0s…Ł{×Í` ö>ôĄÄQşŹ•oqŽ©Š˘6ZN"ńÎS|r\¶<†‚V–B×­üá':–Őy’ ÷ŮJhý"™ĄrřÉj?dŞ˝ž«ýF×ö µg*íY•D€·óěfYŐ±Ň4Ş’9-q¬Jă°âčG!ŃDi´Žá“<€r„źx^ĄćBť…ăL%ź@+_ °a®žppĘśe¤ Ź«™2çǵTÎ?C=§ZT÷Ó—Ép˘AEO•qsýČ–q}o°§śËDDĺŘ>Đꅨ؊Ⱥě™ęaLÄÚfÎ!6+k°Řż#Gý†Z bł.xŽGr`O€ôd\0Č«¨>bµ`QLúd,gbş_ ‘îKŹ›ă[°ż©Ć`°FĄćfŚÇTťK‹†2ŘIŃ R1ÔUßE‡hť’ ű}oCU4oĆĘ˙÷¤ł:Z|$uc]çÓ1]{>e˙˙Ż7¤€ôUĺKţĹň‡€¤dĘMŁĚ $ÜÖé¬ú©t*©S„“îHŽ?G ćcžqp¶ăá ŐEϨ8ŤórŽpj0»Ř1r­EµöÂÝ(jF:¦Ä±Oşż?| A€(`úĚHxZVŐň4üh-áĽüZ“­ůó ®+©ÉěT©Áś‡‘< ÜOú´Őa#MŹH6 ;Šyď• Ű{Ąąvňş¤3ę80Ś®˛Řł2/Qń3łĚ ÉĘ´^˘Áj~ĺG‹N-*Mµ+mBĹ«OÍŁ%PĹű"…ÓŚvý ‹¦»ť»oA%$8-Ôžç ă ¬xŽ}Ô–Žl óø٠ĄeU)Ľ& =–o_^RămĹĐ{Őů9DŻ§#¤$DmôeÔ´¶·/Ź Îgˇ^„fPĺ -ŤŰ¬mŽ)D€É»z’Ł[1†iŕčY‚–mjŻ"2źĺǨ´ş˝ý .­ěrŘo°§0F°ŁJČö©¨™ó4B>ŮI ¦źZżßwŤ­ĚÔIO–f%¨ĆéKh»PČře3€ččM“côYX6cü„ł¤Ń#7=.%pL­8 k=7‚–Óú˙Íäň˙4—ăU,Yâx&Çâ3÷ĺŘf/Qd>ě17Í˝ĹSŁ¤{N izË1•a®[u$ŞCěŐÜp”7ˇ—ń)ç…źq˙Qăţ˘XtdLg“ ;íńá¤Mi MET—” Y_2żŕ>i@Vî®$;gőĂá¦`äébĆ‚ÇŐčI¨|¬ĚĨföŤşŇÝB®Ím§@u8Ĺ ćó¨dHš¬6#RĎâHö/‹Ĺ ŘGEy‰şçsR®)Ż>‡Ę9WN.‘‘.ş{Gq*1šbÖ<ęĽĘ"7h8őD–±‹č•‚»Ď[ľLĘ*±·-đľ™˝PĂě{E?…ľ--ű˘Ł#eK¸ŮÖG䊟%ďXŘď‘‘B [xŹ>΢;i§¶˛[ď´ą¤.[ŃS'7$`ć1”ąŰ(‚|CiK÷KDŐć¨a=Cĺg¸™‰ŘqęVe4Ds Ň…Ű㜲ŇCĂptp˘w±RÔvÖ¶ d”-ą„ÁÝ‹‡ŕúPěő`ƇóČŤÓ7ýě€b­˙×:Ü·C‚Ěo=T1"AĂţ¤s¨ľüJh.Gíf®=żä` ŚşŚĚŻćZ^Ľ˙đęíîęë É#UI–ý‡đü\şąĽýtsw¸]áŻđ®‡}—ýMniy /Aăw·Öń·éEaé¦6ţµJׄMď˘Č˘ó¸»(Âť/Vťe×Ęt`¦wňË–źŞ_·‘:ŽšrwRŽNT_öxůč K“”šů žc¤µ> Óč{Y†(Ą|Ęmű{WáłÜęQRtĺv ‡n÷Kľ/NĄ]<µM”Ľ©ý,zb«ŢaŽő~Š±ÄčÉ—·”óŇO>×묕­ %UĆĚŤ{áĂ2đp«S>ÖEǢéÎČŘDĚ„Ş|đÚ§Ö§}[2ÓW÷Ô5”Zv}–([Ь0í©(Çú+űčú+N72IC…Ťü¸‚GlĄ_“¦Ś>lsĆş łFÂÇ[§ě)Č'ڇùé¬`Jľ)f3»Ü@ZwĹď;)Ź¨Rş*¤ĂŠ­`ăč­0#Śö6†h A˛ 8|gąńt¦ç+w⢅S{ř,ŹpŹšUwŚ…âť HápŠćsŔ—Ď„ś®‰Ţ^Äp‡ľˇ´ĂČÂHj^×Zč°óÖęwÖŁh#Śăçő­{óQĎ)ÜĂž¨ĂÝ$tđ†˛J¤„ôDt5V6ä ť; >ĄÚ9QâGť‚<ô­lCAiäĺţPOĽ P__kVnYx˘-/@݉ ~P8ss=®î-ÁÍÉĄ¸®]Š{µłĂp—o˛o½io#é|ĄCPľ4xvÉ{ť®ŇŤWá~·Áôűrż®•Ě «rgäŠ2oú®ĂMň叓ŰxzUŰâ®1 Ż×âđöˡeş›ŻŮ{tŰçLÚ Ďú}ńŞŻń †Š<Ů`Ě“ŻČG}ăÉŇv!/áP#>%ŹAm [9ü*«`ţ›R]|ń‰ZLsŤjř—W‚?˙°y´endstream endobj 471 0 obj 5029 endobj 476 0 obj <> stream xśÝ[KoÇtäŻŕM»A¶ŐďGnI`ÇŚÄQťEŠ˘ š¤iŇ‘ţ}Şzş§«gŞwIYŠ@ gúQ]ďúŞ÷Çc)Ô±Äĺ˙łŽ^ĽT2żůé(ż?VÇďŽ~ůáč»Í·V8m“ß|µÝIáSňĆm~OžżÝ*‘Ś’vs˛Ýˇ“ qóĹôčĄÚĽÜî´ŤÂę¸1Űť1¦d6­…}ÝćOd±—y;ŻŇ´E2zE¶řŠĽýz»łĆ:S¨\Nűvv^hŁ6˙ Ż˙>ŻV¨4ÎÍT dÝżi'mp7Żîüĺ6Ŕ4ŕ2Đ`ś°6EBW›ňď“?©$‘ĽöĄ˘Š­0ˇ“ŔÄ´¤”ۨů±,c”ĆzŤ‹ě /čăť°˛„wçÓ|%b0Ţ!ÓAÔĆG6i»K)Ŕ95°W rvs·UAX {Ý´i϶f%ŕÁ˛ÎĂÁ^#kĄ–m~nßćĎ19ř" 8·ůĎV P3Đ ée0Ŕ˘»ů;Ëí„Q)ź|stň›ď¨b]6z k$ďśV›ź€śč„“¶kÚDF\·yçíńf«˘Đ xÓt"8XËç’µtŻo6×TkuZMV}Ű&­™“®Ř]cˇeß"3Ŕ‚ĺ™A ř”sŤÔŞ<ŃŃý/é˘ř9•ŢzmUxŢNÉć„k–i·t¤¨Q€ĆÓĐ’ˇAéŞ ůmo'uZU&dě‡.ČíĘYwJŻĚ˘,ĺŔď^lÁ(HŁ˛_» Ü·Gđ ¨4ô[<ĄQ( G˘Đ×s`¸ž3,î'm•YouŕY{ŮF®,ÓŠ!ŔD‘˛+Şóďr°IÍWăČgóg–Á|hU"<5´š Śó‡#ăxë$í(»/{G䬢hd~hZ@,ve[Ĺ9h8ĘěgđóćpN źä­x°P ‘X›„ ]řćMéf!ÉJĽU±>Ť8˛fügOs9yWţŮiµp6ýҬ¤óő“Żqŕ­«Ż)Ąa-fWFvšń+X Yꔨ«ľéőöÚ°hŠůŃĄ'Ú­šżş›OCD÷Z5Š,|۱¸9<98É=YŰá†5°Ű¶,Q$˘^]¨`R4ČÓőŔó`w% ÜT^%Buźęh#Ńír!âÎݶŕĚŚ›#Šs5Bąýn¶ĘŢ;".rF"N2 C0Tx1t AÔ’¬@Ľ+G‡i|âNNůĐTŠŻBXćĺ9 ýßÍźł‹Á4DšĘ«—3ä@ ¦«*ŔŻ™±ô$n’›&śěm¤˛ďM—UiéDR¤ŚU2¸gôžßł7›Ěşôi4Ü ‰Öw!‰Đy1˙´Ă×ďmK’ᣑŕQÁŔ˙J šŰĺ %ĺFh÷5Rg kuÜ[VI®:»$y).=-eůB kŃd`lęj®KŽÄE ’« ]]. íKěz>…żĆ3!ˇV°”ĘŠčÔýlNřeGŘîë şŰA]YęaČŕm¬!{Ąo™$”ŕžu"+»/{M‹q”5“ŤĄ§ä]źZÔµźÍVvP‹yÜf7[ îwĐfNY'z…*Ä|p3ä-Ű—Ő˝N[ťü”WZěčPÉfçířĽU ÎâôŔ źwľ CITş–­PÉÉjĘn;bjnýGg Őç÷©#złÄE8L€‰¶LWz¬bb˘*S}˘+]±Ů#ĚW6i(HĺěŚVFăŽA(Ĺ>‹čwN\M†s2ViĽŇ}Ň0;*÷ŤĚ,Rš[4ŕ…K°Ëvč.Ý3!@Âź†°… NH0˛vúSÖÝ·brbŃ€5W'öĺ ąfŐě˝Ě‘Ŕ€ż„€µ.83ý}Ek"x$ŻúĚŇkB'ÉɉI?|¤5b ŢŽăMźáŻăMMÇxGŃĚuŢEŤ'/O§łĄeĆTęŽď7Mú· çĽ-è÷”‹ő%ˇ™¨a8Q#˛Ŕ÷[<¶JŰR]*©$řłź$ß×@O ë˛uŽ3ä˛~É×no–Vś=^Ěú®°ŰĹ_ęŔö#PÇ˙ź#:|+€Oż*±FóšEŤWY!ś´…ź†îŹP,ćśs$<©´ĐÍžHŚQőđqa,ęc¶-u|áeîWš9ĄŘaŕu:ho•„±˝u E5ʸŽNQS—öyl,*őQŔV&ěv7z°S4C%{˝nĄÖˇ^Ę C ”|?ëő)7Â:©$=Ôęîçľäçî–>ńťä1n‘B-‰î´I®kŃ0Y3ßí©]Ěý™¶d­]˝-Č2€>jńSÚ´łÚćzě_Ŕë ‚ŇË,µ Ţ®śRóť«Ăwµ~µtŞG>wĺ¨s–ôşSâ–d/«9‰ĹÜΕÓQ˛8/ú†;Řîq¤wËZ_4wIÍÎ`,µńQŕ1R(;Î}ŹÖ®ĎÎ8ÖŮ Ń!śŻ˝č­ť¶`r)e_x°ęz‡DÖúA¦Ç*áŇEÖX‰Jî Çá»·/Še@†2÷Ř•!${Ä”±J/ůµSwa+ÔE.M©Š;‰% ÄúŔ*Ż9Ż+¶cH×’Y *”b&ůÜ )ÔŠţ4P' ô}¨·Bš.ýľ©˝SÍ%q¤]ŔŕA:˘} Â¬EE˘ľŁ’{÷ŢĚdxo|Ë %Ű? š ·F#ĐČ‹Q*ĺ ž•~íVú¬§ň_űUq´¬,GNĄVJxaŔá fč3ÚIŞˇ„ůfË°xD>¨ôéĺä4.ő¨Üś¸Á„Ą¬R(ů¨‚ű’üą˙>›^W«QŁďćMk-̆ţ,ë„ëC Zú‰ń§ÎZŤ˝ňÁű»%\f$Ô’Juny…VtĎ(-tŹ"“%¨·f!·óĘĄ.•júĆÂWüĹ®P@Đy@S>ô ö g:é2¸ĚÚ¸)öń^d±‡–‡)QDŚ×t¨Ţˇ”†ęńŕ.× sĎIxRă…¤Őh±%Ă´şŕçÓy{˝o_“ţxĆ@Ŕdš„”Š6GEađSşÂŤCŽ:š˙ÜZa“ônĐâeÂ×ÇŐčv8.)9¨OvˇNr\%ŽIëPy˙ĘDč•ÁE|+{‰3•ňzşJ3‚˝” DŕMxĺq-sžśvŚ!Lţ–‚Ď"6}_‚` “Şˇva—ŢY)íÓ!’ż»ę0 Ő{Ď…•Uí!áűŮ”öđAá5äQ¦7ş.Ôu¸ĘIą †É¨ÁĄ×ƉkĆ›V77–aŚżŕLJŹUJYs#Ż\ÎDwŮÂü ć! Nć(á" ŢľXiąQÝMĆ÷ÜĐÓGB ߢzŃ‘Íć¬ó†.çŔ’—Ev©Ü3cŤ"ů5ŚÉąţy¤ź[/6­îŽÖ„¬{jőIn ŃýĹŹ|Ż×hčđh‹Í±JÚE¬z>ëň·3L·îŔx±»źżŚ¸ĺΓƑ‘Ż¦Ň8„ĂFÓgśőńyE˘;—˝:tËjTń°>ĺ›!“üŘÖ‘Âź„ţ6EÓBÉş_ŤâúŔÍďďŻiľÜż)[°?â'Ů "BúĽŽ ĺŢôÓşŠ†AK=˘™„Ĺ4SĚâŮ°™XNÝ7?î÷*ą§¨?ÁµÁĎÝTěĎ•otËA5ÍęV{ąŻ×‡ŢŹ2żś[Ť2, €ĎÝjDt(;Ă)i®1c)©)hě‘T ×ü]•ćo¦6?›ĽU[LeˇČ†?L®Jîâř‚“8·śż(ŻL‹> stream xśµ[YoÇňȧä,üâ]Ă;îű0IŰ ś8qh$•Š¤(EIKTlúwř§ŞĎę™îťĄĚ€ZőôtWw]_ó݆M|Ăđ/ý{ţúä“Ż9s›«·'a|Ă7/Oľ;áé?,ÍÚüî4Lô04qĆĚćôŮ ›Ľ3Rń¸žQ–űMăRNncś'›Ó×'ßnżS“Ę›í»=›Ś÷FęíoÉďżîřä%gj{şŰËIxeÝöń§a|űőn/”›”p[ąŰëÉ9ďĺv‚źJÁľzű9Yěë°ťá>nas†“-ľ ŁÜíŐsµLTÎ_űvÖf’oż!Ă/«%*ĄÖ…J ¬űňÚiťÜĽ—wţlgá5¸e AęI)ď]ő•źţ)qĹOŢŁ+<±Q /4—ć9×[Q~¦E`W“TFŕ"{ ěłbłVf0vßç“łŇhĽt`µ4NŘ-ŻĂl·÷Ţ‘ÜŤ„ Ž{‡Ďµđü¦N˝ Ďť5Űďwb2 f{V“—ÎwŔTk%ÜÇóĽh÷čBO’{ż9ýňäôŁo©=Żâr ŁFN .á-¬¦µW vÓ­GóÔŰřÓY ‘óI ç#‰ĆhnčKçuô9®W đ­*Ž/ÂdÉ,ß^—e/ĘŻ›w“šŕ©§"y†›ČŚ 9÷=¨·¸§źśćHź´zbpŻç;PV¸aż˝/ű$BŤtŰW•ü|'Bĺ v¸©»ľ+ \×Á»füÖ<nó]á(yí'h8˘Äľ©ŞBŰ×Ńzäů]˝Uň“ěű´ţŞ>żÜˇř€ĐŔŞKîC?ž/ôÍŽĺ­¶¨ “âEם2”‹E —ŔÜ×çC6ĄQ¤ź°ŮtŽńć(ŠD”ç Ëcŕ[Ŕ !80Ĺ'ˇ @Ä€p¤ćô­^ %&­<Ń+˘-Ż‘•¬hťŞÁ”‡«0”—Ď ád›ž8’U[eĘLTwmŐF‘)VŠíU™I­˛xGĄŠę€P â`©šo´GWÉQ„ Ô_r‡Ţ<ŹQDľĎŞČTňČŽçQčÁS*éłĐźu匨Ę}ľ>ţľ ‚lĂ,¬¦âDćFj%ô­Č 홣;µ s_ĚŤ÷śšşŢçäČHÔ t{®ă} ]†đŔE-©J Ő€ZB¦Ń?ŽR:pALĽ§…F6€gÖFQť»CYÔ‘vŔ–A{ŞPˇi•:O%ŠtÖµŐdnk$ó“á|•‡ą6|Éŕ#][P!P=VI>Ć{ŕ: č"ę/c”±ä‚ }äŻq‚…÷yŇĺâZއ®€.F´†L¸@MVŃ-Ş·‰ŞOµçbáF^uUŤLxYĄwˇâaŚ¨j˛fÝw|pźd@7áW$AA@ůqÖčG>ůq1ƻϑdh3ĂSŃ%ÚűCüiŢ>ŮĹËPÜ.ě|¤uNJc[Ź„šbH$€??©„Î\7÷ĽĹü×ńöí@+.şjsľď™»#§Gž@ Ć…—Ťq)®Ř¶ä¦Áa­2°nEd®Żç]ó?tŘYńÖ(xŚ %\·Ăµ"ZbDŔ»^5;Ĺ$qŽÉ„,Ř1¨Â vΗÇ|±dé ž· "˝˙â/@5fŽ´Q´đ<żł®-·$EQěx۸ŁGQşQ!DúP¤¬Ĺ“c†Z7Ů^h¬ůHé K> äł?ŠX…Ű©1ʸ9 ľ)J™”-x<ŃŹözĂ„·|ă’ÎŇa[ăM(żXŔt´“áě–)đJ7Ůj7|]˘{|í!ľč)NA«ő6žűł—:7đ¸DQ)CnţP/cKđ¨·]ý! ‚xMrp´‚ĘďłĚ¸%@)b—śç›& ÓqşÚxÔŽ®VĐ}·°‚暀4Eçę1ř˘-TĘ®ţiŹ,V¨¨2X3Ź™ŽACTssś!MY7`éý.w"B•AÂő$ą‘ťÜFËţÄ®će×g“źÄHs ËŽßĂĺďIJá'ĺ9q;ä9Q+bĂ–.NŔ 4ău®K`5gŤaĂčČ`˘ĹŽň$ŤŚ“˝z\ ·ać"Ž)JŃöŹunßÖk‰i?n'@4[ó / «±Ď’F>ZtŞ<&î“ş´&B‚‰‹Ńóűlő˘úŤëę®*c‰»I©,ŃjéuŁúҨIň±Ćµj\ŐxŔ6éIQw?“ŃĄjŇP9öQ”!"č  ÁpZ5†)’Mš‹ĆHˇ“3Re'ÓK0ýŚă0ą’qňQJR‰ŽĎŚ9’H|E­y#ü!UiÔLřׂ±VčBÄÚDč,‹‡î@xŤ.\ ‡QŤX—Aőé×îRĆFLNőuCC ŔŠX"/‹ő(Ůe1Ř&Wž˝z8%»:FÎc’DŤÜId•__+et©‹çxÜ #řKóĐ #HUcU š°DƉ´ĆŽ¸W­:Ľ÷Ş«9o@®ĂzŰU€|ë-|]J%DąŢ¸^ĺ˝ňh,o:®mż<Ŕ›`Ąě¸@Ś…L˙;Ź ’׹(ż}Ęi•K«Ö›c꥟ HřźŃ˛:Ĺ·Ć«’©R”ÇöÓlB×*µ.´D1nŽW¬!0X+˘ pąŘ3Đ5ś«¶đş' Dţ«#6äÎŞj¸šÄbľő—e°ć(Τ˛¤µÖęŢXkŐ‚´-ôŃämű–łó(} $pđz:«©f[–Âíę‡ű„űUĄsa[52IRp_!}`˘´%ÉŘVL$x%ů@şLŕÂŤ[`łqrV‰Ť9us¨ĺ@‘Ťę—âHô%ń¬¨w3€Ş„ŘĎV8ŞUő©haşë8Ă‘+ ’ž˝RËE[ýŤ…ýfB: Ţa’čYfD‹_‹(~Ť8"Ť‹8:,u_'üX_k\Öđ•sµôę2Ă™,ĐCKŞ:-Ď­•ť±g–öśĺ’9ŕÇEđ‡B«Ő±!m8Tqý]kA®y}3+רJii=wV€%ęŤáehßčV°ŮH‚_öR‘­ş+‡É*C{…GɆÔ5ăÇ5§H˘ę÷͵F?NťĄös/ĘJŠ&÷IÉv#1'fŽięůů!6ş`:'¶x†ćçëv B>^*®Í@éăÂňAŹŘĆŠ1î4…Í÷ A\ĹÓ]‘M=žá­óî;Ün“đFE ôgč›üN†jíEE =Đď–S™éhŘřN|{5=ŻcŃݢ®ÖŞŹaS1¸Ů /bHËĘPM;sëu¸WÚš.“űBI!ŇŤÚán{űgJő\G4w Ǧqq“é>X­”ëTYŠÝď&ÇJ˘Z rˇÔ<¸bֳߎ­VUŹ  ěź|cp†˝(ánĚH‰şÝ0 â†3·0“ßĐWµc‰řVżŇj&Ö±S»ź6©U襡jë‘ÉĂ[ľŢęňSUŠźÚÖ ě•†¸ëTUĐ`ág „EÜn¤ď_nçĐ]A~úŐň#ŁbOC:ů‡U™ź<©“?l,C“›`Ź_"‰úĚžo8¬lÔFb|ľŮ~ôŃŐíŰŻł;ýĎ H“>ĄC¶oĎon/§óç iłŁńŃŻq”_ŐŮżĽ˝ysw.…Oö|°ŰD w[ĺşËě’wź4Ŕ]üľŃuCă‚‚Ž1ą Ë©«ť@łwhˇDŮ×ÍúźwQtw+1Â05a0Éúáá`řA)Žˇä{&xĄ&ŹÂQIPg‘‚.±?ĐZ—H˙˙a˘ĐÚJC™eËɡŚâR‹Q×­‡ĘYd>m0ĐćIiëG¸Ť×k·˙ŞŐâ»[7ža*ąńrô€ńÍę°¤Â*‰qZ˝˛ŁLô¸ú+XÝ ¬â׫©Mn–r&Ŕn»]DT–«Łöŕ·j@űÚęŐŞ/Ň|ł˛M•ÉĚ î)ŢVŁÜ™PLăŔIŠQĄęäš0}lDč{ęĐ°Ll „}Śé_Ťy Ň DlebżŞÓ¨ ·`o$›.Ň0öŐ+vń#yi”•ga¶|ózfí9„Ďř!8Ën4{븵ý«|í¦ýŘ!ěnU۸CvFľ®ąč”ôý›Či·¸˙¨oŁČ]¸h ăžeCeŰ!Đ˙”­˙}Nş©RśĎšĎo†2›ÔĂr´ů9 q.n íăýďMÖż·íT x˙ĂéÉßŕď łŞÄendstream endobj 482 0 obj 3751 endobj 488 0 obj <> stream xś­YKo#Ç|ÔŻ ”‡Á˛Óď‡bņ7H'+Ŕ‡EpÉŃŠ )Ę$ĺµţ}Şzş§kfz¤Ý Đaą==ŐőřŞę«žźś‰Çżôďćpő»îĎWq}!˙ąúůJ¤˙đ´kńí-nv!9łVÚĹíÝ•H/Ą_OüâöpőľąY ćŤő˛ą_®3Š ٬—śmĽÍcY˝ŔÖ`-üj—’Y)µkNË•4’ˇÝżôĎŰ?g4sŢ TvYĎáç_®nűľy·\qć´°Ö7Ťŕ<ç+© ¦Ĺş’U-t,)zÚsHčĆč.Ĺ*>&|wŽDżśł%śeúš)m%޸V2č+eaDM5坲ń}8@Á č±\…ŕŔ{˛ůĹ «­ĹWLcůá *DŠŠŚÄ s."ŮŰŽ;Ĺm7u™8…Üŕô¨]-$ź_¤—_ëňřˇ—Y¤źŃgf«:6pč çŰ<ň%Óŕµçę@TPňőR«8ťú·1‰pt3h§Ą OşZj 1®Í”ŔŽŹzÜS”“’NiÎ FÄ_ITÖŽh Ő 0L&—1ďŹRK5đţŽpQF¨c^«QcT Ç?bš™…˘.xťq1ßđ˛ /tŠa­™a˛FŰ$xQöůű€emŃ„Ř2ęä­sń !ô‡‚Ij!›j9 ôí9a«§DcFu©őĹ®vvűák9D:(Čd×üŘâmńů >·@ŽĄ“%A&1>žŔcLRź3<,p|%üS>‡?ˇÔi‡S™ź™Y×6řPç?_”¬)ćôžÔýÇšü}µěs%"ÔčúJěŢךßv`k,gąątĐúĆŤR;Vi“42wKŕ \8ť~áµ!!/0G>”:ěčÜyjIH"ˇŽ»˛Jöć‘űŹ45łíČńË變ԀÄ.ŐŚŮeh«_8lŞüĄôűL§ˇuÖ&‘•ďś|9Ďü ó¨'Ă‹,ź “~î‚m®ŕŇĺ+ş˙ˇÎďđ¶ů¦ePŁKś¬| —7ýäő7r÷}źßwîäŞr‰ŘßĎD±bFÖźP‚bŤW2 \»’*kG|âAŻF‚—vC/`rŔî´ő™Ý9Ą‘ÜŐW P é*âŤôń’@áívş4Ňŕ °ď€{…*eŢYÜž2ŕZ€1¦Žđ=×s;ýÁřmC–Ď+±Ć5\`ő•ńEóűĺíżŻ`VB†Ýą˘y·;<í×—ă 8 Pzts<Ö[|°Âëé’ćÖ°ó%üľ9¬7§#.ďČ9żF1PŕâŘÔenö»S»ąŕ#ťw»ŻŰë7SŃť ëÁu°FUi¶Q•éd5řVďUe÷­&u+íühŞLŮ›*´ń5Ç",Š°ŢĂ@oÔŤż¬÷űă§s\·,áłůřÂ^Íńán÷ńé´ľěŽřP*űg1XQx™—.ńTaât—Ö>´ÓµöđˇÝnŰíTÂ.DkBt<ΗQř}”$9ŤŢŹoo¦‹çăÓiÓ˛$ťDő§űÝľť;ăýqÝ9răŮlsÜN1t‡˝™ŠÍvWÝŮ9cčşôö.ŕ/Ťw‹ëź‹‘1Ö§±jű=$M»Ťľ„Ä´Eą?Ţ]ÚÓÔ;Ő(Íűgşş;OŤĆH´Ű7)y]Ůü’/anr0ăd§dŰŠťÚ®,tP4Žz¨支ĎÓ*˛)l¨á~÷P3ňś÷xj“ ±äчłaj> stream xś˝ZKs㸮ĘŃżÂĺCBĄ,†xHʇÝÉîf·RŮdV©ě8m)#‰‰š˙Žä§›‰&ů1Énů0l ýřľ†>\f)»ĚđĎý[n/~÷–ećňáxŃŽ_˛Ë÷.űOćf]~˝h'ZJY–éËĹýE–ZŁ…dť<-sf/‡1&Dj.µŃđćr±˝¸MŢĚd޸´:ůÓlžĄÚZ-Tňyţ댥V°L&‹Ů\¤ÜĘÜ$ßtŹ:cÉŰŮśK“Jn9›«ÔkE’ÂŁ”°®J~t‹ifáŁţéűŮ\¦đ¤D¸’PŠľ˙ î*Ď2ŁYň¬ŞDŞĄŰ¬¦Sţč¦CţńĚäo‡µÉ‚ß‘ 'ĎÓÝ+›™éîúç.~p‡dS«ą–xHĚťŞÔ9hmhSÎśřŘ mđLą—0‡#Ő"µ B™”Ł„$=®·łĹż.8ĘĚ8ĚZ,/’«źţÁŇĎűúŻOłÖ˝şÁ!đ )¬qCśé4»Âńą1©Ĺą¸ěňIéŹ/•ÎÔH[ď«]+>OĄÉŘâÓ¬2­řłvwqŮT8łß^y/^Ď t´Rś%G Uš‹dăk?µÍY޵b:YvŁ&>’:yđS÷ţń8©Ň™ÎéR[t*Ë•ÉofJAeşŞçą˘ďëa©Ą÷›Ó0ŘmUd9K*řĚj¬˘ŁdŐw^ŔÁ{µS Ś>ΔÄCfÉ5Ő0lŚ“ŐŠÝ ô 6ţµ*Ŕ;żjă÷˛ŽÎmFÚôŁ˝a¬ĹąBáNÖýDâ’Č%ÂJ/l…ęä)çrle @'™ÉÎÉn_bď^č`Łsš/qß*…@č÷‚ö®ý7Wg*ůŐ¨¦;hß»S’,w[Čdf4řĽ†c"f^y Ő°.Ş:wşÎ»¸ĽíĚ©¬”ť9]i ŢC¤–>H(už ő÷'•ŁAÓDeuÚčLŚ=•0hxňňÉG•—ęÝ O­T*w.SÂKĄ„ŚłřóĹâ··zYj n ~’E.d¢Ł|6·VĄ`:ZÎ J+ŰsÄŻ„ÖčSŔ!űŔńşg.@ŹÂ ŢÁŽA8ŕí”÷ó¤ĐtZ+^Á9‰8O%3ş_^?U/ P@2T2ďëEYo·Ĺn‰ 3źH·Ey¨qŤă‡?·™[śŞ†Ě˝\Ş˛i…Ŕ&|‚ľ*Ż®Ă”îe Ń™űßT»ĺöą[ZóLîö^ĐYC(ł3xa#kŚ-!Ľglłn+ ”ď+ Ô´ő¦88Óä^FS‡“‹naşY8éËMčKäxs\¦:˛3R‡«ĎeµoĎGčanł*šđpÖMd_Çc]®‹¦jś‹Ě€™GW„•řaď6;Ţ u¸‘Ż|Z7«p;ÁűâЬ˓łę¬wÇćp*›u˝Kńmľá^-VÝůLÔŤśŮéXÝź6kÝׇNyŮ«würUěÖ»‡0|Š¦9¬ßťš*E‹Í©ł$_ôfď–ëűűęPíšPŔľ^ďš©€ú>T¤YµËóŚÚy¨Ĺ6uq6΄“8“áegŻIŠ"šIĂ*JÍrŰ?b}¬†¬yh\†°`Î…M!R¦T(!xD— ˙şÚWÇcu@gjŹľ×g˝˘}zň™ ti/w —DĎ8’$qU<‘?AĎDż›¦NŚAšWĄÎ,‰Ň2čtŰWV €  Ű1ř'‚‰Ă /ÜQŞÄ pŢ/FP%<Đ7tČěš±rD˝G› řţăđš Dă=8B_eĽQ¶ÎĚ3 ţ`̨c°¬IvŠR-¸žŤÖ#Xč7Đ-Eő'Ö$¨q5|Çš#Jg`8G©Ě@âHv?˛źW€YĘ8ETÄ*x#äbBµr"řĚ1Ž‰V„{Ľ÷ ěýcMŐę :€'ÝűJś[ŕ j@·@¤îOi:˝ăT/´;`M©#&nĺb“}ͱ¶Y¦}ĽßžÁ«ÄĐĘÇŇÝl€Ál–86jŇěĽUIXLbžš[ĚI ¨—äVOH+ ·¤­&ľĆ! k¤ľRüçᨉ™ˇEXżŐ)9nőNąC§Ő0CÓĺ˝SG’DÚS$“ž njéíű$źěiUkËŰÎć·łh×$†ť3C¶ć¦wfĎűJ— ¸xĺ&ćóR9U{Ú)(>˘ć˘sNű_X§3¨/L„§‰a冼~Šţ·Ź$ľKűg„=Ô·‹µÎhq ó%z~'%ëuÉá”yňo˙Ő÷CĽÜű0 čt_AűÚoýż˘‹\&Ć^ÜFn4=Y_âQüËşS»mŽ1€¨ŤľűÄžgcUHOĹ/UDkOĽN7#ładćL¶1†ÄičéÄWŤV<ôfÓ|ÜIň®FÖĂ 8Oüz86yľMÓĺ“śDVĽuxň_m˘ń¸s!Ż-sPá?ŁFŃÓČZd`k}YżŮÔÇ*¤ĐQĆrjX®Ňh]•Ĺ©3ĆÍ12Tű˘\7Ĺ®¬ZLÝő0RYš’M8Ő§őfÂď‡zBŐVë‡s˝oŞC¨a„Đ.«MńřűŽ]jĐ\ -ńáŢŢ0©®'}sYÍuČCon`W¬šKG–ľxhÁĎC-ĘÇrSŻCŰgsžÔÇzăéHçCőá çŘoOâ3 ᢋŇCŽ™Ňą~ŐmwQplŠ¦ş)[ç˛wą°ÉňjÖU·UgŰ]˝G)ٶnť"›Řú¸ŞO›ĺdđ]iýŰ*âljݽç4ͱ~Ť>G2Żîş/Cç˙u¨ěďć&ˮñ»;4m¤“V^F\"-tŤU˝YC!›úČďî¸Ě›ŽĎç>‹…¶ż=ó%zקús%z|·Ó•@ŻÖR» e…Üâl‚„S{ÁžéąCŤŇl„XČîÇ4[©<Ľ$ŔŠ˛%¸”>*Ô2Ęą%šő,កU‚_j‡’Ąˇd‚ČmN{RLë¶i®řŮjÂě×^ü´îňĹ—k˝ îžCi‚âMĽa1‘Ăő8ą•íN®&µxÚ:ÁËoźăĄ?¸liOrívwŰb ŁbĽ‰ęĘŃéŃ%Y˝d"Q€Ę8K%PXY•Ń/úö‹ŽĘVAä«qžýĂ°-rÝDQ1ř ‹3]¦(j? <?Slęć?ÖĐw©âdŃ;dt“¨pŚYťa®#…7sžnU˘J{¦@ ăľ? ůż“Š§0ý…\żľFŤ»ß€śMAďʼnĂ5şÎ€Š|çÉj˙Ř™ xă»qŔF 1Tpđ3vî4®ÚÖIOÎŻ]Ö™wv"ěKŰ˝4Ťüěí^= †W·{űĆÓ„ ŁÉµx¶t|ŚEYŕŃ7vä{ T-$éqöýËRę~{ń˘ýőFëXÁ´µK2ý¸=Ń7ž˘¦śXťç©}6ęži’âQŇňŐőÇŚ‡)‘^ť$Á2.ĄńÖHETŠ§ Z>Ívg’âqĎ—ü\Kę4·9ůŮŰŹ¤Łűv¦đä‚­˙µŢřç ß,.ţ˙*Ľż6endstream endobj 497 0 obj 2725 endobj 506 0 obj <> stream xśŤVKo7 ľďŻŁ¦Ŕ("%Jâ1mÓ´EŃGş=9ř±‰g˝‰í´őż/5/qĆł@±€­Ąřć÷QűĄqW>ă˙«ăîĹpąůđ°ëĺ 4·»/;ż¸Q«ůvß+˛,8›ýűťłśŁ0ř‹!7ł Ľ·ą‰9ĘMł?îŢšďÚ` GócŰ9™Ł'óRťoÁ˛ĚľíĽE)›WĂ1:0oÚC¶ł mG6gfo¬C¸dţś Á"°M§źÚ.X9‘Ééű_KVÉąÁĽ–¨äm c˛ŁX«|?Şř¬˙vFů‡9¶ řZ)üĄÎëě‰]^g7ťßí‡Ä–#ĆP†ăTCLâh1ß÷ČĐ|ťëCÄâ¤ó2Í„M‡I<;‘]‹˝ĚlN>R™LŢÇŚÉ`Ű1'© e^¤,ižŞîU+O(™ŰPšźŘŞđ±¨RFQ}(5 ’ÎÔ†d=07ű_vűoŢšźëńAr čb2%G"s”©»hÁpO‚ůúĚ>'íéTŹ÷Ăäś—lg§’-f˛äČ\é_žü÷ńOµßWĄĆ˝¸şme"©dr¨ÂÇ’_!ŽY{—ŔÜÍY=Vˇ˛şŻxzß&›2_R™îǨ¦ĘJf d¸©É~\”čŰ‚G•×$ug˛˝™OęúrK¨şy¨É^Kc9”ą+«§4Y±ÜŹBeÔw€Q°uŃô` zč~­Ő}Ş!UWKSr°IiŇ×H·-Ć©Á%ćÝz 0oU"Y©xŔQµ·†IR,a †ŽEĘ(Ú:îÓ‚ľÝPjň7;*ţGíŮĹ@'ôßȲu‰ôłŢu™•ŞşWśą~>šč$S:m©F˘P—ĐésˇĹLnÖcô{A®;O¨ŤÓ¨-˘<âęߊů‹ÚüŁoĄý§M‚U.żĐčź„Š_÷«­Ók~Ţâďlľąâ"[_îXLŤĄŕS9q˝IZµĎ–Á°mćlNł/eőÔR(›vA‹˙µ+PBPÔ±Ô\˘ŔˇĐÖĘ»^K9¶$ń™Ę+±×íčRĄzŮóŮĄEgĎ®#Í6H˛óŁĐm|/*äďG/ťú,K”Ű0×Őë*3µťžFeăL¶s^GUţ•ąR¸<s h)đŠ‰˘<%|–‰“ŐlĘëF”KŞĺ—‡—đŰ/Öúť^Á±$"UGů•·ŤçJ®Ózł®ś.×ۤŞ`1ŕ‡ß5h9őě|µßý!ź˙,]endstream endobj 507 0 obj 964 endobj 511 0 obj <> stream xś˝Z[o[Ç~×SúX(ČÂÜěýb â .š‡¦ZŔÉ%Qk‰”Eɲ˙}görvö\$*ńzĎ^ć>ßĚňÓŚ31ăř'˙}vsňýŻ‚űŮĺá$ÎĎÄěăɧ‘˙ÁóŞŮ».v&9łVÚŮęâDä B)ćgĆ ¦g«›“óź‚yc˝ś_-–‚Ĺ…śŻśmĽóŰ:{Kµ0Ú,$łRj7ż[,Ą‘,57ݦßW˙(hćĽH{TđłŐ?OVű0˙V[c•óśë¸0u°ÁKUPRŕexŹC®µŃó-Ŕu°~ľ‡=ĘHĄç»Ĺ’3§……Ů’Ĺa‰^z ¸őj~žčÖŢÎŽÇ+ľÄµJÉr—áŞ#ťl®8'c˛„LŁd`ŢsQ¸~ŹőÁ`L8ś”ŰuGŔÇ|Žpu€ciŤĘüâŠ$ďľÝYšĽ¨‡YýI«Ł:TCŘĺbi`"…·•áaˇ±Ü:¸ŚĂ^c€ĆŘOĐ6}7AëůĂ`?FNÚ×!hT3i9ŰŠ sŠić†Rnţ9ăÜ[‘)PÜ ”qľaS×~^Ď$‡c×(kU˝K€ŕČţM]p_gż"_`Ę*jႋĬŁ?í&É©ä¨|­U•×ŠFéĚ ŔĽ‰0wu¶' .*,e†¬=/´Jş ©ĂKI·©T%˛MྲM!$î:ş‹hÇZ0 du1ÁAĘÂ~ţ ”;l)µL8nŞPĄˇ§wRĄL_Őď„čĉŠA'é<†ÚĹ8Ýâl,ýc—ÝRän™Ř[ ‘ťą¬Ć}–öPG5^"·ÓjÜÄ:©DŻ ńFů-ó2h ¶ DR.–ţ2C”Žű¦0ˇ:gŚ"ąÁ@;VŃáŔčđ2"H4ŃbÓj±TLe UඵeoáfÜ*ĎFťqŇ*Ł”l ×uß5^왡r|A7ű@Ě˝řŃ‘óš’=C&}qŤÎîtQ^t} M@˙#ŞĂ1g$ĺuźąr(Á™ň Ě/ŁČm,¸iĘŢpZ'[o)ǢX°Ü$IŚ.…L¬Ż Ń=[đ?´'\ş«K‘l)™Y`NĆg ŕﶕ7Ag`nť˙= 2 ŞçÉx’3‚ $ž¬x“ÖÔh޵ůí›ňŇjSgU¦¨ 8I„ArŤ‡ˇŐýÄP×/ôäEąo$ĘQlQŃ„Ó{nr¦˘żw ÍŚ4 Cj^AĄŇˇd` íZjȤe´Oź+l1úŚJ,ßďŰ­ré‰C”RΙt|ŠB˛´ĺΕ!ä˘r'zY‡ýMŇŹŁ)DÚšË n—J!ş347ÔÜAL›hćă(#ľ5Ŕ qŘUŠ¨ő+Şrę¸ů%ESJZS“< 3 ÜÔô|Fiđ#Čh?’Püo¬”ŕ T±C_Ýó=ŢvSl9đ)‚×ú é‰AÝg µŤŔR CMpS]µů^Čş­·’¤A÷• Žd}%ăF5)ꊬŤYĂ@FТ¤ŤůŚţ ŔŚ‘0»§‚şA'J”ň n÷Ł:ĺđtÚYY“Ü3:K"3ŐĄÍhÜ ‘8KâycÜýÜ×ő­čË6(-TŁÉ:3öÚu"Ý)z!Â=ĐÇ‹`=ě•Bąt6z,zR0¬McÇŃ ‚oÍ@9øëW‘*oź‹ň„TBÉö‰äŇÇç™TCÍÔµˇ&z9–TNŔ&ßJ2kłxä0r­ ľöÓQ´ěHľăZ–úČ éSEQµňG¨f”y¶IV‰nk…×ÄB$ŘŚ|ÄZ˙fŕŠX®¤É;G˛6–b&ŔA!a)é™’Ř˙™źŢmÖ«˙ť@PEsKĘźíwçŰűí~wx-Pfy®˙ćßáÔ÷ż*ă» ŘşĽ`uµ=ŕČ%\wŰŇś0Ŕdyn§8˝:Rt»ßîîń›'F)§o7›Ăa}ąI÷S!ęĽćOék/A·ý/ĹCÜ °lkÚů~ąĹ-=ˇŰ~]ÔOĐ÷}-j,i,}BJ‚¸BŚŁA  íLŰůhKdtµł&Q”<@<ü´żżŞ §47@Żîs¨Y4=śś¬XŹgç"U ď…E,Ňç^Ą†|€Ź|ďđşkťó4ÔU]jI-J™d5'Z€ç­ÎGs‰aOÁďxBgBĄGÔ˛$®ű9GfchsÁ%žiďâjÔÔ‰\u…ÚtĂh^ůB`śŠ2CH•ážx-OÇCŤÁr,t PMU˘}’"|Ç"u ńĎuRŹÍ§)¤^S.d@2mţďY*¦ FŰ䨋ş‰ź±ňGRČ÷=ußTP?§ŐdŻ˛®Ě=ŚşCĄřjě˘ć B64˝Q"đŃ ö2Ű mIÍOČşbu‚ î"K=ĘüĹ*Ż\#ŮŚícő;Jéŕßâq}qĐŕó¸"ćÚiPń8Lögű‡Ýýć?茧҇ż×ň/<Ł QÁČ?dTa»ežż^ţÝOä*Çxý˛˙Ľą»¸Ţ?nÎ˙| v8˙ŹĐá}%J5l§_۬Ď\´…Řîs!·űâRf*€$aćzÍqé8Â7xúd>JŐ˘y. `‰ ĘŔ®GŻn0ć|şRĹ3Ł9¬ërţt‘Ź5ôąuČ ±ôŰ~ś,•3¶qúQdD<­uěŤ8ŐľEQ)×Z“¤/¬ ®G>Tő› OS&@ĆCŤăŽ>" ď{ŐéCthÁőMţX»k<]’@>B6} —g'[(Ą,±…Ôč?6 ń}[÷¬>&Wלđ©/`ŇyB™•”)]Ϥ¶Ń|·‹a[PŐ}h´j-ť0·‡0 8sš ›9BÇŘUMWÉ3đí°xFÍśoaź‚âÖ5Zm+4Ć×h¦^™‘'!ňĚÓ= ˇ’ť›ŔÜ5ďŮý‹®ő¶#çÉzÍSiňjłćąÓm¬‡%§Yňv})m7Lź‚sţ_řoíş*ĽäËÇ»-2rĆý~XŻßm.·‡Ń,š3ůoĄýmÁp…ó´x§ěŞzä_ŢŻ3ř©Xx°÷gËřÜ*ů&ŤxÉ.Zµ‘4ůŻ Ź‘9ŞôđxÓs;ęhĄ‡Ä'8Ń{p‹ôZ=N^XŞççł×|o~ŰŃýĽAĽ/Í­ËŰĂöćďĂn•˛ťőOř ’ĂÓŇúdđ©» k˘ĺĘÎ…żĐFfG"ý˛i§AßŰ o˙Ľľ~ŘÄĂ Ąб~ďMľ&7^ćq2ĆO_ëJŐ?˙%5ÚŢĐ쳣 ůG…°%óÎbš ÜŽ%ňňÖóÜČcvăÓ:*ąý}Rď µ‡š ŔtéžxCĎyăf^aÁčÓń¸Wc~•ŘIuŻě’$ż‚ˇą ›Âc"0ů0F˙´¬rü<Č%X4V ×ĘËšRmt2"´Oc]s.GĐç4쯴?&ŞXbĐ_é~1GŮ+ÝŇ Z­OÖm¸. r‘mL,˛—[¨AÍ–h I ŞcŇvŰpíĎ«“Áź˙ův mendstream endobj 512 0 obj 2765 endobj 523 0 obj <> stream xś˝[Yo$·ň¨§äLü÷¦y“ü`;r:Ž-Ŕ˛y«uVšŮ•´¶őďSĹŁYě®–´Ž, ÷vsČbť_}äľÝŚBnFüSţ~sň›Żä6Ww'éýFn^źĽ=‘ĺ/cµůô4 ŚđJČqt›Ó—'ŁÁi#ó|Îx7Ó;©µ|ٜޜüsřlk„U&şáŰÝ(\ŚNŰáňüĺVŠ¨ĺh†ÓíN ŤĂçůŃŤrřj»S&ŁÂ`·;+BQŤuűÉľž&kOe.m-ĚĺŚđzZ ßýq»3B9iőđ7śÉŹcprř‚< "X)@y1fČďpNşŢ?Ȳ$1›cz& Ŕ©UÖËáÓ¤M'#ě¤>‘ɨp&ĎMĹt‡dă_đrN:ü×韊'Dťr=A×1Î(ťŐu2T”Ň~z,“Ŕi„6Ná$; .ăŐf§<Ě<» ř=ZŠŕµłhhp/í‚ňÜîbô ł‚­*Î~u‡ŰÚîńr >á´~¸mŹ÷8Ż ćý÷ćB´Ă±-vŘjX+‚îĐëčD{îűEţG(Śç†Ôť±NgÓČ,‰×ŕ<äçěçťr  ‰šŻß›śmňwÓ×küęGŤHůô.ÁW­Đ^çmő2Ŕęi†>íŰç¤#u݆Ź˛ŞŢjÉúŠ‚ĺdŚ›ÓżśśţúźĂU ä7íńfłntÄ›;k•D ĚnűĂ-H}4¸šŁ€ŮAŃÓďołCŹ” Â:ge‘Ű9 ß_ł«Ű#YöĐ<Ô©Ľ#Hp‘Ç‚ŃË ďs±ő‘z5Ť< ¬^ŚŇĐď¸3čjĺpp ~uÜĘ ¬ţ= Í˶—ŰĽ/Űă»é÷× tB‚ôÓšG2;§%¸oŚtä«é;Qß}zŢŢî›"ČNů÷Mżçíí+ś7ŠŃ06zćZ塬äd@D8l!Çč‘öĐÖjJËJ±q e‡É~gíńş @ H\,ŮBGaŢŞ%¨jF ŻÚ\—(čüűą3€ž†Ý$ îiW7µ“Fa”yoy˝['.Űü(Śř&ńŘCISŢTßÄ·d.6¦®„S&”y|~hßďËvÔĐBS&Äą Ľ'őÎ{?ŹWĆB˘UđV)VߡC€şÝL:ĄˇÎĂďŮŘ ±C¶×›¶­Š9Ç@l ´·(?­łÄÄQ›5Ź#ŽJtŐ™8ÔFSĂ eí ”|^•×ěLŻQC~´I—Ęš”4÷í‘D‘ŠČJś;'P(Ó¶Ř-ýŚ„Úz•đ(Ľľ»‘"%zE'›˘*‡RRËN°Ŕ;ţĎ&ĚsX|G ]'1s©“’•_ŠZgPF k"­!-bIl^±šÝwy·’ALő˘MÖcIf­˛IßąŘġz,GBâHHÁĺ;ßx3/Oůnz$˛Đz4}ß÷1 Ş«Ť’RŞZČR·\LźÓ:E¤Ęaä… 5Ž~ÚB$¸[ĺ&>ÎÖř›¬´ ĺÓˇsAçÚˇDZ«őô“-~lt–Úc¤/“0EĚ3Ńęăq„¦V}999ëî¨ Ädą*HćĆ[RŕŢ°axŢ"–¬Ovu]’‡Ő´N_>žjÉﯺ(Rő.X˝‰LZwŕf~© đxŔl…# ě ˘±ÖS¤Óâ łT[xK‰" qÍßo%ŕmoÝ,rHŽiýYď—¨ď ——9X  Ş)X>‚źG+ űBÄաǚ˘’JFO§'‹>”ŤÚ>ßcýĆţ#×ď˛c5:aRMąŞ÷ůE^,Ą…H‡.–Š(9ňîzĆgú}óLR”ŘăműUËHY=<˙ŁZąĹ¶Ű0ë:.ă‹ľ›‡vÇ #¶#cjÎ:×Ă”!%8xŕË'ÍľH’il" ŚU–÷Ë•Ö‹ľŁřďQMĺ­6'ImŃňjcCb_ú'´Ş!Aây'p}ŁçhĆAěŽń‘TďzÝřup˘Ž‡ :ŐÁKś, ¨¨ŹăÚ)ňľ¦˛Ŕ¦őwl/°¬ĄČí*۱—h˝ďvȤ­Ö<ś¦ÖTŘw¨JGd$ާáß®fř‚ţx/cý¸ĚŤ(«‘;UŤDŰÉŤďqfcµ Y´Aěďî.oď·§˙>Á¬ĄcÉĘĂ/†»űýý»»ňI"o–?ý _Aľ5môř_lń˝–™„Éď?ţ8ŤµPϦwăGËw/^|đéţđ:MžZG.şyw—„UŽJtvąśňîňúňüţňâ—0÷řy•[Ě„˛…t Žš¨EB÷°\뀬A]›;š9Ę@'„‚© Q3k;ŕ-Hn;ßäű >fyXÜĂŤ&Źvč™ }§Őަí*Ë}>™łM{źÂc5É«đ¨Gť­ĚÂjG¨&łµÎ…€‰%®ĐťA ˛Sş6SŰLčěy“üĄę>˙Đ>“jĆĂîyĺBÂgµ0iĽ1Î ŞˇL›ą–©ŤÉ°ĹGß"tľ#çéÄOÉŇ çLĄáÉ©~,Bb4ŘŮŢTô GmËł+çÔŹ m`ÜŰîtšéąVĽąá‘8Q>?ĎČ)™ł¦×b‹TĹ5…|Ö8vnK°ECŠJŻ@ń7Ě,2<˛Ż\ęÁË'NÇcĄu†®¸ëÝ=2HLˇďón=Xág¸Ę±š¶*UąomüŮ<&gĽŘk®R`ÂöţŻňRnĆ}Ś'Ş´câ9z¸P­´¨iÍňĎ®iOßą)hý˝8lČŁĎŇź(ĹD’KľeßňU2Ć÷÷!Č}üĄÁ.ĐŤý_NoŁÚÄzĐj•ô‚ý‘ǸłVx¸ - e±I¤F—b Šábľ" Ň‚Ćńě´Ô9íM!aŇî¦ÖüuI—7ćlěÎ8k—hôJ-9üŽ—]-şł]§?Y:5[^ĎŚF˝Ę"ľëm•Ü™Ôîµ+f‰Ä¬Ý)HMS_Pyć~Ń^4şž©ă52VąŃŇcžÍ•Y®›Ma‘Ž!!~7[sĆďܶöŻď ˇé…ŚÜË‘§‘h-ŻÔ|Ię62žČ7Î.ľÍa 5pM7™Ą\ÖýÚč•Mőřő{‚)—É8^™ ĚYÎD˘M=#<ňő»ŽŰcn‘”¶él§§°}0ÝeŻkÖhÇ>xJ˘›x§î/ľ_’A`E˙)hó,€[?0­×2»8JůK»gň Đú)C"z\Y–˝łVŞ(®‰ŹmuŢ”]Ě9ËÄSĎŔ ěÍĚ%Ť^}Vz ý7lj¦1ôÄŐĆŰ­Ćč‹*‘¶`l{WyŇŚŻ»jňő ¤ŐŹ­é×Ć,v?ďÔŰŃŐzD.(>†ŻÖ.Z—§eÚ(âĘ áż7XŤ˘|üśa)ž:„ę>ĺc˘vĘÍÝĄęzéÎN9¬?…zěîNÂ/×­s#lÄo§·O7kíˇMÍÇÍçÇ››ýábyŢüóŻż‘OśÓQ.‘züńňřřćňđ‹gébrôŹéÎŽ”đĆśuOĹęę%çuô&Í5`l‡»‰—.¨ĚeÉ—b™ÇÖý?Ż,\^t uY&dČ€ŕ&Änz{†iHÎÖnţrŁŁgeĘMě='őŁ ËĽÉxµťîOłyęb" Aă5ŮÎd’5{ň1ÄЇ*fN,őßđ7ŃhŤ˙ä¨F[Ďç}~zňwřóč‘ąendstream endobj 524 0 obj 3476 endobj 528 0 obj <> stream xśÝ[KoÇrÜ_±7ÍŢVżľ‘cŔ $č`ç@‹"e")Š´ĂüúTÍôŁz¶‡»CîA`Ŕ\ÍtWWW}őę®ůĽćL¬9ţ˙ľű´zýÁýúňËjxľ돫Ď+˙Áă¨ő›S(ěZrf­´ëÓ‹•„RĚŻŤçLëőé§ŐŹÝ7˝`ŢX/»ýF0Ł¸ÝYĎ™ŃĆ{ŃÝ–§÷04X żŢ÷’Y)µëîúŤ4’ˇ:›'ýóô/‰ÍśwY€Q.ŕćűŐé~ěN{tĄ”HB0”°.ü2JÉîÝřP:\l#µbÚř^*Ý]÷ÎśćÖ«î|äA{Ű}ŹÓxŕ0â&Ӻ̳ľî7JpćťëŢÂ$&”V7Ž´„µž¬pŹË:´o @˛_ŕ—ă‚Ű•yĎEÚ]{Ć-yš~ gq‡I×dČ/Qž<¬(@Z=ČS3ŻąL+žôͤĺ I`&,*fLĐ—Çލ‹Yk„…<ţĽĺk °đKůIH]‚8$h=H:öC0¨IĄűPÜ šŔ}üi…Q‰Ř}\-aáKă,·.®«¸C äYä)˛b öÓ~/ŕ! ^HÝ=ć‡7e©‡üđ.Ž5U&V ÍË2ťě*2e•ď>!˙˘8ţľ S ň˛+ÂĘ'¤¤±•Xȉj¶Ç⺸‚r ÁFÖ˝îŞŔś7pzv_x( \ôp,Cč~Ź¶¶˘“2‘:Yž¬yťĹ’´ćĹČ îÚ‚ń ´Ô´!pß$KKöşÎDL*đ>`Ě[ŕś¬†’ŘDQlř>Ü(‚Úł-ĂîŠ1%¨[“0řÎ@S8?ŮÂĎ˝đLr°Ë‡ĘŇO.‰kĆmčţ†¶oÁG*ÔD†][<׸xW#ź d‰W˝1,›ŃŞąŘ‚—’"”0[F^őQ^„ÁşŹy(Ńä ŠKÍßKd\M˙@ÝŘ r!“âbL–uD>m©5 |íř–:ŮO“©Ę-ŤŰW( ęˇŇ€ó( g©ŢFµćmOMhßতöúĐtSäç–Gç›–ŤeÜ÷FHâ9LŃëŔËY3”X8¬CRôßNbŐŕjŁMŤŇˇw9ÖÝô@Ňáî×ňšĚ?ź†˝dŇ0Ě`¨1b-V»|J Áá1*Nąú˝Ô8¬Ś´2ŠI(­ăX¤é¤;ŇŘuÚ?AVÍUöÍ ĽV1‚·!Ň{łä71Ć)*Ż<ędwmT&Ąřn:qLŠÁ @6Äą·3ŢüIwď„ô9¨K…Ý Ť˙â@Řżő”˛Šęe’•‹Án;’b.Ł†Ř2d„(‰› ĽŁivEŢ'™Bę°‰Cťm:Iö•,íŞ ˝MCÓćÉbőć51‚ ˘k’ó¬xV!yć9ĎťhÖ“ŔÁ­šOMź¤)MűÍ)‚kďtL}¤.ÍÔ‡Ć56GUÉ©{H!ŽŹŔ<˝Š‘V”ÉjŠÍţ»v ČľlduBZdĘ°Ä P#9\äŰÓŐ«Ďk î‚١áůµnŔ«ň`}Úc™ůćdőúäŻëű»‡÷«×o×bőú;üß›żNţĽţÝęŰ“5ŇÂů!!9B§„ůKÍŐ°uÁ“jX)pÓkP.7±o{ Ľ­ćÜTVÎŢhďizłĐ7“…Nä[ÉDÂŰ×cËD‚¸®d25ŇIhŻb´’ą}hˇH–îcpP;Ś–őö^^ëÜ‘ÁË™˛keyŁžXj¶áâ%š9^;s؉čc J‰ĘDPg-Ë#ÎĽ}¨P"@łtIőD˙÷=ęęÁî_­¬Ş îçRűńýN{Z.Ĺy€ś˙ľÜ byLśIpY]Ö ÚfÚĚ˝ďZĄć»¦«ß]ŐE<ěÄú±˘µ@ŠýßÖŰć˝UâŔűť¸[ľŁyÜiu ÄAC‚łĚ‰/ő˝O}$Ľ)HV>Íß©\źîQ Ö®3•gmGÔt_;ˇwl™(H¦ ¸§2ů5ç—U˘š7ý@—ręv¦›Î8Ľ nZ†K"ÚÖYôdÖőNńeś/ß<ΕXśŻ´qŰY託â| Ż Wň8§5Y }ƶŰ9eĚ[> óD>˙O_.ľyĚ ď—Ɖ6ć…W ÄRĚ[ćA§ߍ:}—óąÇ©đQâWU<ś·9ý_MˇŹ-˝±™ě8†[r3·ČhČőË“č].”yôr«SrŽ[rpşr-cQQĹ lŢ^´pëj7Ý. ×Cú=ą>¶lŃŰ»J¶Ç.$ »}}ýráÍZ‹ x†tk‘AŮăÖŹŘXâ‡>±•ťô"sĽ‹÷ö°ÉŃžÎ˙řB {|¨ś ÂŰľ×myO.— „ŻšîřŹęĆ9ßZ%ßißŮ6ŹćŰšŢá vYÖ3ô3oYňCTČ@hé1çŇ“Í3°š÷OśĚě?U±¸Űfę´w xĆćgTű BłŞµA¤(”Ö/=˝[ę4,‚7HŁbŢîHmň±\cżih;=Ţ_ÇÇ–‚‚4ra*ćÇ V—Ą®Ď`~WĆń^ŕV—žÎ-Ä•’ĂÚ3a‡ Ťü©}}ż?HŽ˝Ą˛ĄĂd9óó ŃÚ¤ľBęE©_VÍK e1=Ь”|SYLJ„Ĺń,¦—ĘbzˇY1‰°”Ö2ł{ĎEŕůÔí´ß(u‡ó­FbkşW˝cžsQµš•î/ŇtFš7I+Ě«ńn”űji¶‰ągť…nťëĹ„4Ô3˝&ä@é*6 yŃNşëôókÇçŰ]R‡Ú®>ÇvZÖ|_ş­š fłśÄ®´g6łµ:WĆľěÔş acl‹ ,÷+ßĺĆŤŘÖbŚ‹í‰8j#Ě8îOđâ°ËőČ´=ń.cę˛Ćśó`äšĺ—čÚÍísk3‚)!–ě˝:k‡é6ýSWFlwĹ=ŐŠŰBpMŰ+ĺŐ FŠËˇĹtұ¤‘n»łfŇ…âńK}ď)q~yřS_6»×ĺäYUł†4bj8Ś jV7DÍ5Łń*áź<Ŕo”žŇx泶©‘¨m¨&”l|a‘›|~˛í gěN[ßGÔ­ďÍ&őNť«.ĂĘ5ÔŤŘď7ôaž»Ýš2 > stream xśÍZÝoąúčżBşjŁ-ż?R E.qZ‡Ţ5g w}PdŮq϶r’'÷×ß ą\wą˛”~ŕ’‡l¸äĚś™ßofőÓŚµ|Ćđo÷ďęîěŹo8słëÝYźńŮŹg?ťńî?¬›5űę"Lô0ÔrĆĚěâꌵŢ©x”g”ĺ~ÖŹq)[73ÎŔ›ŮĹÝŮ÷ÍËąjµPŢ4›/XkĽ7R7/Čó·sŢzÉ™j.ć Ů Ż¬kÎăŁaĽy3_ĺZ%\cć Ý:ç˝lZxT ôjşěMĐf¸ R·Š»Î™B›Vő[ĆśáÍ?Čó+ś"[#]óu”*µnľ!3ţJžźĂlé[ŻTó´(ç•ŚŰě&ĽsfaźmLşË ůů;”ćZoÄä”|Tůé<ŰIwň—ů‚·ĆŔNţuń÷î= 7 o‘w×®Ś…Ó)nL†CöśëĆ÷ŹQś ^şČpçÚµ ÔŔ?%4×v7wž_üűLšÖŔ¤‹Ëłfż]®Ö8¶(ă”±OŚüć5śă-Ç»FťŢ·R{× ůŔÝ•ŇĹ(ŽŔx÷Ĺđ—•ěČ’Á›Íöńj0¶]_ËgŹĎX0O€ßHŃŘĽY//ź‡éĽ•Ü{˘GÝčŐvs7Eé?ÄŤĘćA‡kLÎx· śöv»ŮŻźŹ¶pnÇ÷㺵٢·AĹësUhAÍ}\î‚VžY”˝ŕ<ĹĄOŘÁÝqvěöËýĂ.óŞ3ĆBôf˝ĆD g#=™CNbOv’óń ó×j0řîţçÁČo`ˇËüî´ŰćBx÷z„o»SÍfnd¶<Ź.H}ű~uµZî÷ěę4ß>W'řvçÚě \[çR#%F´6/™rnýÉŠV~ÄĄř“/ĺĹhKŻůŇv9ôĄ?°OË W©\u!lIÔŚ ź{ďZ řůúEox>”ŇprZ!†6ŮĂÁŐíöńrQŐÚcű«“ăŃŚLŃläŘw›Ź•ś=JŮÄĺ¦}»ât'űöÁLy¬[˙2öÓ1ö˙NŰOzČË“=dśúPÖq°ÎO†uy‚{đ±ż2X׿:Xźäź±`Pp LEúyžŮü2rXÍMłĘŹďa‚ÖŕK¶Ůϡň0Z Ţlç Ő ĂäÄŞ5¬2˛ąę§UÜá ¦.Ă âÁŽw±ě…kđcHłR5×ýŘM0B2Ë›ű~p«ś ůGÂĘÉ\b;îx8¨E[ĐĚ{˘QVIďPŽäcšt  ĆLˇśŘţĐ/żÍď»mJ(žöyô&›±ÉÄ˙>źń*lŮYß|úâ˘SÖŻó(TgBY*•ŹËĺ’“ő˛&˘źH%¶Ţ†„! ­IXH”~Ž– Îé®ŢWŕĄß:ˇ*—fÜŇGŚ;÷tÂ}\?„‡<á2?öΤŇÖşÂlŃml‘2g¸ZŤ%%Ń:ľZN¦ź@\x?ş<ĹK,.ÄËíŢgaYo5¨ÚUUפuWôÁ=Ńę–Ř)ăZŇŃßÍávCź`‡[°Ä5}źŹ3†Łď±g`ZÇLg šp…ŕÔ“#W‰ˇď-*ßü¦/Ż×Ő[&W›cńy˙ţPµ T R t°>TËF-ŢÝě‰ č‡Űĺţfs?b‚Íęóę6TŇŇѬýa»Y­w»Í60dOW|+cA3óćĂjsÄLđśčoîwűíĂ*©^ŕĎ`ď°jĄo^Çzť Ő*5Ću-G$4Ąd‰ż©b/Ç3şpMëö'ŁO‹0ßćS™…“‹Żł‹WJ§işL, ý~ś#^Ę*i"‰Ą}™rLQvBUą > 9ńŮUŐ˝I’Aű8řWťSâŞň=D•öĚŐę×ű–™Jţě‚BbWJhúžH­ .V"äb\×— @—I! Ě Éśęv.©áIA~M¶P&Ç>KE°“°ć?ÁŻ>kX¦„ÂV8v9ö‹„IBĚ0’‹~÷Ň `ĘĎČíŕ·ş(Ú-9ëGşcEb;č°žV0ŁŚá!•+döď‰ď#>ůŘÎÝd]DÝ/ńbMy·’‰Övźč´é1nÍÁĄp)ČV]äVkySÂmpÎu[ž¦€;™/7l!;´´y5›9X€‰HˇärÂLvwFqŤ`L–Ľ«_ô@…řh5ą3qĚ®“yxšŔŞ HÍ-óaŽŠŃRúT°Őó1;™86|,b.ÉÂq NŁcsŽSG‹Ňm¶gh“‘ČĂč8ŃÁG±_%Yhă<TĘŃ2ňoň¨„7ôÄď#é±®8|ÂX/Ó„é\?ą‡.YUZ”ń{IH_r¤,ó<^’ň@ąM—aq}á]+Őצ†9Hő}…ŔVoB»“Ž§0*äH‰I2ĎŕA¤gCę ´í‰.RĺÖ+­m÷醛WXL*ąđ;JčˇEßt/˝ÁR@@’bĽQ¸łŇ Jź5ˇ0Í»ĆÝ%äX˘Y <•cšĆŘt\w÷WŻÂ¨‡g! Ň)Ň„”-Dł•HËD']·A˝ó,“¨ęg)ˇ[pčëł‹ßOżě•ˇIÂD­2Ýčɻ޹I(^ÍŹШ«T%šUŇâ»čŘĹđEâ®–Bäţ‰€Ň9P!ő„ŁO?éM0ßÎËâ(ň\>H)iýř¨3ţ}5í¶gőc•>]×ůŠŽIäÇ %ň4‰ß[Ʊď‚’r†í‘.§‚N1l+mDAp[Ň°’čY.ĹŃŠ'ÖFßŘ1Ť\29¶S¦Îů:n¶W’łÓ<>ĺ«ĚÔ–!‡ŞA“ćU}żŢ\ ˇS»€g|˛íUTČĺŔůřČÜŇÜđY”‹ 0™Ą5ÔŘâdŠ•a”Bx„ě Šr¦l^đř¦M‚[_t{¸<‰ŇŽvWŮdD!Uľéá‡X°ĚÇ’cⶽCü9ôŐ_`ÎPG|ö‡Ü]ĚÔßX~\ŹĎwźĂôövs}DI/îT aŔéź.Ôojq…¬kmW¤@&őa4Ů€«†ó$`á°˝q ;…›1ňdżĆ-|±Wß Í§ËńdTµň®CáhjęPZ†Śă{Ĺ ^ź9=-Ë5Ë †8ĽĂŕ Łţ‰ëĐ1žŔEkýu†¬yY”QÓy?ş™íî!Ü'90rËcDĹ=dçęj–¸Ů:ßö­Đ§«™/ś˛ëX˝uO+‘qł ŮDÝPŇ…Pm[Ňđ{ĽĚżďkŢ{ß5Íí­U)=iŤ»ň(ęó”ËŁ|­†UÂâTAEŽ«^äĽęü«h—…BŰţ;‹†Óő%§ŇłX1ŞU:yˇZÁLÄľ™cSŮzC«ŚÇř;?aý‘I]çÇn–K-yµ¶8XPt.°ăŠblç\y-J"ÓĎ뿶säs÷É›K˛’ŔIբŠ¨"śAč†L»ŘöĎ&Ť=m:[˙gá†)]‰aŐŹťG<,m›NµĎ<ţî*ů¸íK{˛}ăMŕťęU‡Uř‘™¸úĹ´(í‹‹“ŕa ˘ë°4ěôbíáĹÚ¶«K¬·ŁL‘Ş?Ţ·qĘ"ˇţa“řujĄy®4 …\ă”wŽe9gš:]f]éóŽ5ä‹>qŻ©/íŞŚŢbúP?ú<4(k65E%ČŤ35‰C¬#%Ţ·'=Ô€uËSS‚"ëAC/óš’Ĺ:8@UúóT%ń,şłQS&3vg|™eBkŤĹß>ÝVŘČáöo4ÔV˝ł —$ZJ.u~qöOřű Ł2Kendstream endobj 534 0 obj 2913 endobj 538 0 obj <> stream xśŤVYoEFyś_1oĚHŮvWwőĹ ŠCŚÄfĄ !Ś˝Ć>đ%”OUwOw­˝Š”-×ÔýŐŃwŁV0jţWOŻ‡˝cĐqüýaČüĆ?†»ęşJŤűë,Ą@k?®Ď­RôˇŘó ŤŤÖŞ8účé˸ľ~™ŢΨśÁä§÷óJ+ź’·nz#čŹ3¨dAă´žWV™„!N…ô¦ăye0*4qňóĘ©S˛“"‘ü:©vś˝yHäÁ:…kĚ"›ĆyeŚ-ţÖŃĂô ß±UŢĆéűbŐ:7ý($ľôW$m“JÓ'ň‚1ˇ-iV73č@yŽqń˝-ĐéźŘZTÉ›éĄęÔAŹSfňőĽĺ=eňëú»ŠbbăE¨°ŁTť-Ä09¸I7’Ť¬,ˇ̸2 i3®ĎHü¬c˛)>řé´–¸·]`·ěěU 2ťtî#qWšÜ«™zÍ;g@’Ô –d-N‡ó •ńÚN7¬ŻUô¸čŰAN®Ăt™-Y€Ľ6Ł‚{ŰDoşţk†”ٶjeŃ‹&JďŮďôgcŢ—řŔYaô´aµ”…C}­r^űP(Ť:ÂĐ—3…‘0F¤J&…45][' !¸hj«l)X…iúK4•pzŮ ő¸ł|›™{ĆPŻčĽ,rł, $'µn¨ţ»’ŻZß_m%°¤µt‚ ËZč«©ŚÚS'9G ­—q Y‘cÉÜ%s»ş¨".¸fŮ“Žˇv?oĎŇRÔ9˘bb)úť#·AYă–ŢáŮcrSG*ÂôŰÖĚ4Ę[P­ řľÍĚ P‰´Ť—Js–ÂĹ3(37É úF`%J¶Ő75H”¶`ŰŃŮ}0®Yźhň»ŔD¸·Ôń»Łí3|Űcyuža_˝V0¶¬Ţ•Á‘®L؆‹ŢŮť›Úň®ĄÝĽj Ôă†ćÝąl˙`= wtyS&ou2ů —~MN䛿8ě~ďź6Ăާ†˝÷üßţÇ·ôsřnüb88Źţő@{&ĺşÂžÜUďpÍb@eú)h€’FÚ&tE(<&rNß°’Ž`V8¨ŕ úçÚ¤ ÍôĘë#8şŽ|Ç1Đ-őÓŞ\`bó¸ÓÜkÇÓnĐsÁP#7ĐÔ2 ôĎŤşi‚'3äsóĐ›ÂÇËĐÓë"ä[ĆčŃó§‰]µo™JšÎ:Í·‰„‹­ žw4gBŻMe,úŹMkůrVµŃ•ŹŮxÓ_ôĂy!R?Ч.]ňr ¨UeX.cĎç¦ žg@_oďľńD1^ŢÍuŐ›š„ ˘´›V˝ž+7¤DC˛†‡˛TmJ"#^&ŽÚÄň{Ž)˝ęi ¶×ŞÖí&—8TzúÄvűëĚ‹–Ţeł'˘}•7DZĹĄ+ZaIˇV‰(T¤řůXŁŔđó‘Ú›P ˇk^4ůnă©QüLň¨4„ŞŻyS%‡Ń—›ô:ç›CO„|*Ą—Ëq'ZŢťYsEťÄ őĎ糥iŹ¸T"ŹpźčŐ–›”Nđ¬öô­čěÖÄŐ„};bĽ.Zl˝W«ŕËůëń]T·1ýżą[ôÎú´ďj¸Mß'†öň¶WT!m¸üpĺU~4ü „ĺŢJendstream endobj 539 0 obj 1254 endobj 544 0 obj <> stream xś˝[Ys·N%oű+öM»)í÷‘7K¶ËLʼnĄ°Ę®<¬HIT‰"iŠ”Ěźnś †KIąĘÍb€FŁű뿯ŮÄ× ˙KOŢŻžĽŕĚ­ß|X…÷kľ~·ú}ĹÓ?Xµ~zŚąY 6#ĚúřőŠ§¸”“[kÇ&/ÖÇďWżmžmůä´qbs¶ÝńIKĆĹfże“VÚ9ľąŞoo`¨7ž^mĹd„Pvs˝Ý -&ĎĺĆ–Źţsü÷L‚š¬łI€Q’{ż>ţÇęřŻżmţ˝Ý±É*nŚŰĽ…éňđôćĚ żą%żź—ß÷@‚ÔR"1@SšIňůůč R¦'!éĐ32ŕ PnÎo^Ŕ˛Fko-ľ…%Ľ°"-&¤`¨ź,ă›_·–MĘo.ËŹ×ő‹Jči\H-7‹ë+¦‘1ÂOÎ1>âC"Ti5c‰µŢžpkČRehb;ókç$Ś lW@¦wu98CÉ™‚Ĺ@ŚŢŔ ř¨µŕ°ÚNlh#q5 ¤: k‘ˇ;aÍÄśöµĆhnjŚLµnB>r ŰYżů#Îă˝Lk†…šOňyč3ĚXň´Ż?GNhĎlŹ „¦ÂIvrYE˝3>ădR˛‘{Î1üľŻ”ŢlXJضAś8>X "A¶1ŕů+q1)'7ÇŰťś„—ZŁ˘ĺŹ˘$XĐYrzWőw˛˙Ë­™¸Aú>Öß )§tVPo5Ř‹đ¨ůA^Ç xĂtb›äwżËŰßqžÔąđşéebd=ŔhbĽöJÝŻ@ľp@Ô†¨™á˘~†¦Ěd­Z@fxŐKTrÎ'ôČ‹ >čť [l>řaĚNEŤĐpéuĚĐ%ΨŞ%ŔJxJ#ŃÚ=Őz8`+Řű§-śŠ”¦S€ü=ëÓň;%%ĄµĹóĺjŇÄř$AUÖeâ|TYXcb°˙7őíU}ě5-¸ADcXb|˛eĐUZĐ%néiů˝*ű#/_–—d­óţűłşCşÁ>ňfŔäX(a /‡XF>zSFQń4®Äá-‘ŠK\É‚}ödů„Hn‡°·C!|™+~Č*ťÓÔZ ›ćÂmţŃ08 Éúo‡ W· B·Rhş‹Jęi޶Ůüm1°JéA–˙âŢËúö|HH;xhéłl;eZÎc#ÜĹýµhGÄ“ŔÝL ą˘o$í2ZjŘ/—P­ @.Ěć—âśUí~¶Ý…Gży´)ň.¸¦•“˛šŽ|Rç˙šG `e‰Ę‰mń ÉwŤ÷1¶¤äDNpNă2ŇĄ]=éŚÜá łô.™Ân‡<Ť uN*©ÍŹ[.FµéÜ8€ÄąŁÖ‚Ëű¨°k˛>T–”iUL(4$ź3§oä8:Äč\őâjQ!/T79ŐŕŔĺP#ĆĘq2„„Ë|Dĺ›Ýq·K¤™Ŕ6™ŞňŁů=Ú/GżżHÄ Ä®´ę’tč&Ió›ďĐ+őI‘#|ť<@’}vş(/›ňTu•!Ş:jc;„űp`_Á©«] Ďä.ťĐyJĺ/“á‹žđ1xŕĄČGcÜ!är`E@?mµŞrh®Ŕa˙-ľ”Lą±Ë;łÉáí’,çő—đ%hŽQs­MŕI-í(¦¦f÷Píe«+p¸ĆąŻ˘µ´aŁÇ’Ĺ;R=oâYfWM[ę±^Ě„¶ő®“đ0xĚÜ鲪Âx‚&D)ľŕ!ż˛’5“lŠł‹JDű>8éŃí!p"ř;q“U9˛TAbPŘ­„ŘL*j>ŘőÎóé§őyCŮQ)Śśó%’IękľńÂďŰ‚˙Ť¤‡°Ä/ąńCGą\÷°-Ř$“<‰ŔŚ&:,cßG;EOů7ŐćiŔ: »jŁ]Ú^ë- A¤OŃ*âU\ó¤Č\+Č)âĐÓ*”‡ś¨ĘÚYw(đĎ!FLŕ<¸‚R]˙W<»V^5ˇăŮHNłaôşZłŻÝ*ˇ I1ü©†lâ‘Śťő™JEáÎÁ‹G4$µ°’TŤHf 4ţ¨ň/Y%¨hĎŔ˛óď‹°Ŕ€>pîOč”r(Óňx®śxCß"Č )ěr 1ůÜÜdĎ 'Ě;Q!őM˘“Ç»4`©0ăŘ÷ľdK`ç8€hbb!٤Ą]4c™Bň}6'Ö|ˇ%°sL¦TĘyďP- ©)Ż›Ř¤¤~+`Z ˘ËÜ˙Ggˇ*1J Wž\ÖSÝ‡č łŁŃiŚ5»"ÜçD_vx2b©!d#"aAŚUµ‰ń±´!#04ü]v8äTgˇ˙Ŕ?E¦0ÝË/šeç)ČÝ~ÎĹ: čÇrÂN¬ŘýË-cIlSŔ¨Ą@řőđí|,Iß"Ű!"Á"2˘]1Ěú¦ôK—Šxä4nk‚8)vMĆ…fŃvÉ GVślťś,ö›ćŚIŽ 8ÎKĐ‘‚H 1Ąlí83Ň<€”~~wĺ´z·m„š’ ˙łloě!žI­’‰FW@DiÄWçH ź§FrzŃą¶ÖŇǨ-‚¤l×2‚ܨ"ýäa¬źôQLä¨[H¶­ľ¬ŞVłL A+,śŁsC‰Gn˘SšEnvÎŚ #JÍ5\řocśP*MźąžÉŇŘM;h’¤řö荎đîAiúŢńmŚj4ZRĚ a­w–é…ľ'^>©’ÄĚŹ8ŻIú­7„E†FEÁ´ź»Ů}—Ćí˘wc˙I|›Ćyěť80ôyął`i°Nńá™ěń-†aź„(Ň3…“rŻ!°ôËppxo¨éĽęt|Pä/˛ŕźŽ€ˇ 5˘aT’đ¸+lăúJ/ř“c×r|d/ť|ŁÓČU[ďIÎÁľúy‡J÷çi~˝Ô%p0Ysť„‹aůiîÝőčRţĚŔÉ7ĄÔÖQĎtŹcc2Yć‘4cĐžASŹßchÂĽ ‡I¸™DTËNQÂě¤L‘/©OŞtó73˛đ÷¶b-Ľ jOŕ­ Ďő(˙AZHĆ<ËěŰű!¦T®üÂT]»Ač1PËý^/ˇ¬3óźQL<)nÇ]JŔô Uř6{ŇAŹYH.´Î„ j1v›–ʱY‘|É…Üög9ëCý ĚŃ~vMř ±•:ě\UoăĽú ©ăD[śČ7űőj¶ëŞDqÓmÎpěgt :Ąšt±äZŞ\ëë}¨Ä'·MŤŰD–Lhě×ó)•Ř8&5Cmł8±łŇhü¦“ăľÝyo8±ů aN;Đi :Űâ‹Í ]öR¬L»-a0 †ŐZÉR¸öĽđ_·»}Íňş×uč»üý°ç »I·ÇQaŠ "sKű„ y(R#č5/;jŢ&k`YަPJD«%8đ8•pM*Ńmzśú⤨AZ´» @NĆ-3 ˇ;ýoëŐä şKP*…‡pÇ´Qi<:ď–Kţ\Voüb%'ŕ\6Ć Öńř¤J8¶Ż2Đ×SC–ď­"H´•°z e_Ń;Ń.Gŕ “ŹűBČ9¦•DJĐŰS=/P_¬őÝ0'z[QuněPďę€[˝Ý$ÓWr$X;¦Ĺ˘łúđŽDęĘaŃa@~$Ňt>˛ńD†ßŐm-7äĚ3¶ęƆBŽÄ2B¸qLź5NÓÜ8—<ô] ­fhĂg=‚ą‘7xśÄÝfYOˇ¸.›E¬Yý$\3Ěëč®0‘É»oŰ-3?iďé©ô<ĄÝ» űZ·ĂĽAW—KUŻűÉŰä#*Ć»MEĎqí÷MM_Š‘a7Ž/KmĚ ZlşŠř8Qú>XĘůč±ă7¬cř",Ľ–‹`›ćl+ŕ©j|äáś'•§mĂb< “™5XÚ,ßƬdô`|Ú(°k±]e.l%'UúţĄN'#„ç˘5(Ó]:L>§Ęî¤u0+4Ź»’Ł€Ń1ĘRŻcŘw?ĂŢPđÉÁąö4:˙|íş·*‹I ˝SZ˛6ŹĐ)Ňgőg„XĽ˛ź‡ˇůŁC¤|ăŞuäϸU…L•Úôš#ÓĹŃ„pď&Ăä=Č’¶:żH†—|¶Ôo·LL©>ůĐc–{ĆÄ­V Ve–O›-vˇşů]#¨‚PÂ7 w]j"%śŘ8˙M !˘ď}M­m »M·5őĺ\Ę{Ŕ!Ź˛ÍŮÜjŰßŐ8 fĽéw5sůÚÖß ă˘Óă\µ‡=Ńq4DUĂö¤–¶ bÎBÚ&‚$Ô»ň“sU‹uĺÜ[#€Ę#Ü‘˙˙'4&Čü7؉d,µmADzq‰M˘+˘FdűŁ”ÜŇ č×ć±óňűžÔ`:łŹěw^úţ–±g|/*uu° ¸mžÔ´M2qŁŕ ­4`F ôöëQŁäb/}ÁššË`ł€…ËPŘĐŔÄbďHGNŕ-K?Ě}@Š÷×»ňŢ 0zR`»żĂű%ŕÍ4Ą+ÂÄ6Ňw6v\6UĆ0®ÄęL ’{&űpçńŁÚô;)ř„7%ż ßy•äřň% ż|“ ‚îśýBj‡×căK;m"É°Đí<Ö˘&­ÎÍz€îě-»¶Ň«SÓ$–˛@˛ŹüQěM—âä?ŻžŻ~_sÜľ7$‡—ŃřĂ_o`.ĽŮüôhőäčçőÍőí«Ő“_×|őä'üßÓ_žÁźŁď×Zýp´~ľ|Űt@ăąh×Üvĺ1° ŢNŚ·ťyĚ&*zYÖ˘ÎyT€éÖ`;]xlÉ]RŘwHěť ‘/>ˇ-Ćd&,N"?Ý–§7ĺ©Ž w  ŐľüňŞ<ˇß7)#ŠA^ď}L"r+ÉK<đ;M¸¨28Ťö¨›ˇÂe|RxŃ(ş„Óqž I¶†*kAţ y÷¶ŚkşÜňË›20/qšô^;ňăe}ů(ÓtYh©T…I,cfł+›¸*«_”ŤŐ%ĐÖâí‹$Ôů@ä”ăLi~W‰Ď¬Ë¤ÇO.Î4fBđfšÂÍ´čEl a!›3ô¬ÝŽ‰©MIt !SXŁ0ŁÝT‰(ä|°öDBjÂ_®ĆR±/Ś$3‘Ç(-ÎŰt¬Ű +÷ó!f+NvUçNTď“<7»©ĽíŽ×-{ŤV|Đ?ŹWŮŔŠ%G$»Ż‘XůŤł gc‡Ź8—ýóč;íÇ/CU…ä¤ü^µ7‰¸ęZ¨ňĎ!»t JFeÚë"˛őÝőŕ]÷*€ÁѲƦIî]dž`TÝΊV„Ît‰N=ŕžů-04’_Ä›ŤÂu řáiܸőęçDĺóĎű‚ éFý×E93tk¸A;«OÉSĹ”ňĆo 6çů꿬;=endstream endobj 545 0 obj 4212 endobj 550 0 obj <> stream xśí\K“ĹŽŕ¨_±7Ď8V×» źĚĂ6llÍđaAŇJ´Áú÷άgVuÖ̬]Ô[S]Ź¬|~™Ő?\­‹¸Zń_ţ˙Ű—~!VuóăŘ~%®ľ{đĂ‘˙XsŻ«ĹŽš±®öęŃÓëĽUZ¤ń¬v"\Ő6ˇÔ⯬·đËŐŁ—ľŢ}´×‹‘:ŘÝ_ö‡u±!Xev$Ď˙Ř‹%(±ęÝŁýA-2hçwź¤G»ŠÝűÔ~ŃŇďÜţ`ďCP»µ†yÍîË:Ŕ§ű^¤Fíţo-J­Úďţ…“ąuőVě>Kă*k«vSćĹF2ÂßÉkĆ5Ĺ®žvţ éń öĐ‹pŚ[¶"”]¤ŮşE”ľ_í…]Śb÷9éĐF ëýtřF°zYˇÇ—#ů†mś&DęlÂę˙óčŻůŔĂ,Ě€.2‡hë`QÝáęxAł“ő9(`'ŻŇÁ@«Ľzôşß¶ăűľ=>NŹŢížě@ck„ÝŇVµ{±î˛ĆH±{5°ĹîÇ˝ZŚ]­Űýű3@h|ŢşŢb«_Ľt»›6Ő«öŘ o˝Ä·ÜKąNKQĐó¶m–*Ý ßR«»gtŇč(GĆŐŢ'S}›&°ĘÇ·¬]l%Îú˘ŤOZ_"Y‚4V•Vŕ¶.€¬ęGd˛°(Ę\ŞŇ=.ću=öüŮ…L·`Ľ”…n0Á÷ői ‹Ň‹SÝľĎÄ‚µN‰…۶82 Ę(Ą51 yçy{$¸«#u,’CÓ&›N/KÖýká2śž’µPĐéÂŤŘuß‘É:.%ł‘×·ÖF×e3hXcšL€ČňBôáłĆą„‰p…şŔn —1şĺdëu•­ëÖř†ZAyĂ#i}µ‘Ş˝żÝ*ň amX¶}at 'Gú~·m˘Ľµ=ăĄm)KŹÔ‰vlTŤÇÝčKHőÍŔ-E˛äj­Fľ•rqBSÁáE„đOm.V€ĹŠ¤ŚOÎě~ŢĂ\×nűdÔç¬Ŕ“u˝Á±ŔjÂ\ß'yQn±E\žâŞ°ŹŰ¨¶S‚żfç|βőm^‰5˝R+°bp°UNă}ÓŹUŹ)·(±qanŐp˛iŹJT2&ËP$J!ęt°"@·7í‹‹ ă(ůş¨ôŤ%Ę2Ü´®–ČjjŢđ`´“Y Ý ĂO÷",^ąŘ“a1žń¨ĘŹbvżě…CßË×* iSJRľŔłÔvqhîASÓ¤/‡gůµ:Sü¶*;’ÍMtÄ›l^,•b”1-ăôÄĽÝr–ę ŐRÉć¸EkĆćžDuP—ť™ – Üę"Ň ˘sRµÇ•/í§ćÄôžÇŚH±kk¬ÇX-ňî˝6ÎIzżßBďA-fFať€r ĆQďóaŰâçɇQ! ĽçÄÔ¤™HýěÁŁßť˝Ë˙eš6)z˛vŇ*xĐŁčj+a'ú€Čšo4Sż™úÍ|â9 ńŐqâçőJ˝]ďQo#.Wwú“ӯ稏8Ô[ë3Žvh˝Ź.ú~v.` Dhó1 Ěą8Cđô˙Źáč1\@‚˘ýŤÇµ•Ăܧőă(JvöCýýŽN#€ ©×TĆëě:;ń™^ Ňv@‹Ť<§pÓŽů®\RäĄF[*nĄŐ[ž.dł]l(çŔYM!‡ő÷­-˙úvňÓ¤E/ď ?íc>^xŻŞŮŰ-ęŽu.ÝŔAoGŮ»­ÁÉ–Ť¬ĽŔ!Ö®}l5uÄŢ’h$´:Äxp»&Ö?ˇ39ňx=“ńč’9ý ďžÂ› C{Ń&Ş– ĹcµH9z4 (ámţťWź·§čyÝ÷ŤN2ż3ňţű8Ş:Ž-f.{7’ÇRyĂđ˝áăqç=ĆíÝ…âĎYMř"GÍ^CoGčń†Bp.Ťűu#á{9T–đjѵĽ1ęůěáBŘ+«„%c*áÇ8(ýł4”Ă÷˝Ó6ňéŠA 8¤bÖ‚‰ÎĹG™FÚH$bé| ű†ľůM/!Šá˘Ěj6?jÜ=8«YéG‰™€Ue=‘Z_â”BheK_i5ô&ŃĚŮdßmĄěTd¤»řzĎ´üŢş˛9 #ĘU•đřs˘ě]‹»v# ĺŢ„8˘áś_őAGĚ76ŽjŚŞ‰<Ń"Ů o÷k‘5“ăĄ{p.<đt§´!j‹ěXM=’§Ů`Ý˝o2ĹşŁělĽeÜŠęđ6Á–řäĎĆůŹ}oň\âý…×PůEx§ÖČŮeőúneLqüTč`_ňZXۨ‚}Äň#‚ßpŢ –{ľŘXIňůŇŽĹ4¸Š’oŮřu’u)ôg¤¦6®tĺç~,´‡~µ´oÍ•a/Vp‹]ŘýĘ3]™_ËŮƸۚ*yÜID“ç{i–QŹźO7…nč >fmň)1aŹl¶oŁjjfG5Ô6â}&ţś§I°Ć(2áýÜ-=Χçů}¨dAŔűdH4ôţ$§óüËţŢ9©Q>¤_DŤ¶Ű;Yý¨µ˘1ľ+{%$QS ţ8ćŔ˘ę'!”Řž˛ťćo°‚¦¦y+}D=iG“Ô—Čdë›a†Hź*Qż·Ś·Ďr&Őńń*Jb ̉žŇk„j†Ű„—t% źf!PnbvR“]ReÚ©ÔĽ}Í4oé9ř†Ůkľ#(*¨8‘łş§™K,Ĺćž&‹úś!qŃ’_v ‘Ľl\„ X¦rĄ-úf”Ś+{u^ ×%JG·&Şş×v´¸'8ő׬•i.9 ˛“-?„,­C•@Ş»6\‚:>>ĘBź1Śvď ŐŚC-&ŃX˘žcpYďł<|Žć(žźŹťs&fŔx‡©ů\Ürą”ź+<…ö“µŢŐ"IW]¬“5ĎďĄÄ°ź8®|Ĺd•ó.ę(E€†IöŐSň·ąSqłˇ‰;µA„ ć•Aŕ $4deň‘iM|‹»aW4hA.«Ř@h‹9qŞ›GD9>Ř'§V1FŹ>îp_óŠĺŕBÔRďQş›cqŢ·ëוÁěâÂÖ‹˝Çv>D"ŘĹ„!ç‹ŤżË$µ/řýËߊE1±+IîÜ_OlbŠ9 ZĂ‹x“˘°¸żn$ IFxÁĆîďâ6ő¶x•’ŠB ˇŮ—ČřCˇN„Đ}uE/éµ÷>JP‹5hjăżqöóŻç%^­ŚüsčRý}ýěw#kăÚŤ7ŚéĽ4˘S?Ö©EűŤÝŚZÉ•`ÜzR ülCkM•ËLÖjdŮ ) 'ݤ±®<6ÎŽřh7aDÚGS÷YöšĹpkM‹1.éU±…đkÇťX+–ý<îĚ©“!ÍAÄ»ăÎ|‡ŁçNĄŕ¤u©#‚FÓm[$GÖxjŕ΄)ńNÝ)ŹçۇřPą/2÷»ă©ýł, ’dítb śĽí!ĐäćIŢďî.\ÍĚ &&ZŤ'Y-öÜČ„kf`pâ­KËÁÖÍ#Pw[‚š©ť+´)qĆ°ăÁŕg„íI?Éj#ůüˇivŁC—bÖF„’µ™ĺĐnÚÓ vâ'(Y\(ě,rGŞ91-ô/Öđ öÉ‘t‹Mćßb¤¸Ż0o¬Š7iÉXŇŘŁUľP#E4ŞşŐD520 MŻćyśu{ŤqHRlíSźćČ14îŻ ö^ é‚‚(Đ˙ŁÜ%[@ŠŁ«1ĐäxŽĺŃrÖłXÔ lđŐ8(/řűGő˛5_ ˛ExU_ŕÚEşH"ŁM/é&€¤ŇŃjp ůk_|ĐÝCr“\b6 SÍo)s±Éë?cůV`’â|˘¬—“x‘’ěf–ů.J:¤˛eg|G›ËÎň& ĽĚ®čLYSĘË,^—X_ć€2Ő'ĄAq<ÄÂ> ¶ćóD^mńł1jëşňĎ©,W¸ŕËF ľ~ ”{)ŢşgTAfĐ–©&šŢĄŃ‹xt…őüF ţŚ[)ŞQnDj"Rî.€Ő®€“3^N,ĎÝfYbČV”[ĆojĎímÇŃsÄ ĽcTů$ťpá|f^w§ş’EňlíV«;ŕŰ÷łŽłv@W"ɇ(¸ ˙é‚2‚ä.lâíŇi¶8>Ube“óM)ä€ÍN3ěu~=‰ÜĽlÇRۆŚeSú}V7•CĐ‹ÖMËÓ±7íÚ™_‡Í©-öĘoaF$ĘŚeI)ž×[ľ-ÄR!ö÷â»"®2Ŕ´«gˇŁj$+Ś…›@nt™¦·ěbl>«yşgU‡? $Árrë;˘n5˘±0ÍadľŹ[é+‰Šgóoh ńk “č›Đ·x0eAŢĐŻ2Ęć$ă˝IŐx´[LČ׹^ďűňáŁŕgüŤ@,W:·8#ĎŠgcá;„r1C˝DĘ Řŕ­ ›®Y‹źőeŤ>Ú7PN~”ěe–ü©}ßdLˇ©yDęd.j©qqKÄôĚÜĚű[ăúń“éHâSŢëľę 1Ďs mTW§µÍň`(µNďŮf§A Š&AjŮń?QPÎ×=p_4éä°L4ÔkÇ›ě]*ěž/é=ěˇŕ‹~ČjČ2¦k”S«†ąK h> stream xśĹ\Yo$·ň¨_1€¶'°¸Í›4ŻŹxÇvbF°1Śµ¤])ÖJk¶•_ź*˛I»Ů3jiĆ«—ĂćQ¬ă«ýóŞg|ŐăĂßăwĎ˙Á{·z{sÚW|őÓÁĎ|řG?ôZ˝8 =41Ţ÷fuôć gŢ©xĎ(Ëý*·q)™[gŕ—ŐŃ»WÝ'kĹ´PŢt_¬{fĽ7Rw“çoÖśyÉ{Ő­%^Y×}MĎ»¬…rL ×ŮőˇfÎy/;ŹJÁĽşű6đr}¨0\Ëîođ“˛W®ű'NfűŢŢ}Ç•×Ŕ{ í:Í‹Ťd„ŻČkÁ5pfzG;Az|†=ăÖĂ‚qˆű´‹8[µÔ÷»57LkλŻI‡2Y理ĂG0‚Q¬‡ߎÉ7ÚĆvBÄÎÚ÷îűŁżî™7088D ‹ŞW…óđśëNćGäP#X±:ęĹęčşß®QŚÖ‚wgĺ$Oa˛gš‹î}i˝*Ź×q3˝„ŚčĽí.ËďŻ×‡p4Fsӽî›G…ą~%Ěv^–PŻFH öC«ěm^Łła0%Vľű17ž—ži]V§-ŔďW…87kÉ´éÍ襋LMĘO´c,đŃÚq0ĹrʱŠ§ů@ «ť 0<‘„{ŢąTČ:Őć?Ď›#ÜTŚŔ1ĺŃ‘:]5ޚۧR>°Č#ö9ËvÚkĂĚ®ĆŐż †ÄÂE-dagŕwíPÓŹąř«&¸¦ŕŹ ĹňQSúU…˝d˝ŃÝżJă6NŢ;Ŕ5@0J @×ŮÂ÷(%K :avbgŠj%ŤŹo§ň«„3śěţÝÝ>±©a¬źÖ€łµvF$óKŔ|t¬ÚĘ;eÇqʿתß$ŽŹ8¬yr|ńXmr˝GßźY űP‘^dWµČҤ|JÄŞt8{č˛~’'>Y°Áµ¨IP†Rر‹8Ľ·UÔöM(a=ŠŞlŹČŃĺ ]žúH ¶D‘K\\ ±w#°DŁ–ČŕĐő#\“ŕޤŽÜ)˛Ô“˛T*‡Ď•×( ŇëéA6€ĄpÔř×IíJđx—éňžSăŹŐSăö Ö NŇgĽň!Ĺ—ö$¤ĂÂá6MîV)Ţ7e/ĐRRR¶±ÁźŃÄpŽ±oFŘpdO‰ÝŞ=‘ \`¸j˙%I_3ŇôµšrN%¶,°Žž@JćXZĆ˨řV úS™9mŹŐ9m8¸GË(şH   VDId‰B΂(?É4˙ş-5ä‘„J©`:`ZmL;:şU¨öM)áÁŕPBmłŚUt/I ‘ŁűŇő¤eĎ×B‡ńAx&ÄĐřieř¸cÜiáĎ»ć•ěŕBUšJŇ;ZkZAË®ě`°ÍK¤kůńĚK—R{ŠŮĐ\33  ’­¨CYÍ[€AFŹŁŠV2ĺ9Ťf_ ©HXíýdâşŕ\dŘ*,™ŁqłÁ.śK? ěŔçaK,Tëgm™ŕrÄř‰CHkť˝Ť,ćzł!n Ôöv[Ü:RÍ "ŘZ3şŠÇ+ó(j&x\@ĺ˛}Ĺ6:é<ÖČ—¸Ś“ ´SôIdÉdihr¬h&ɇđřľŮ7†÷=śÇoAéÄĐá|h;î:Ƕ–~MęµJZťô}Űl˝ťđkŔŕmČŰYpbžŔ–ĐÔlĎ„4›ôaÓT„ÇjҸ|#w’í PJ>(ŰV…Ü_S-“†K¦ôè6iň/ŃóE`É™"ɇľ‘{¨”ŃĆ)}pŕ@逑«MUhĺzÖ¤KLBę­1"!nÇ›€$F°ť©Ë¤ó`čĚüúśeśŁÚIĹ-E+S@A©‚/!¶ ĚÚ q_6×ÚT!GžÁZX.Çuhg’ŇD\"h·R಑rVÖU/a‡bŔn ŮôśŚ‘),JŃ˝Ô^A »C0™O6Ľ6 #]q~łPĄí߆‚Q•íĘmŤJr;Ż$ÍË)]”€#ĆHťtň‰%Îi ÓĂáě»$&±*‡† uŰľf»Ľkr’踚­gcw L›ú¶,É U횸)cQIý”ŃĺÍ XÚŹŮç<żţZśČť ëQ]zßt@·ITdZ„`¤ę>(ÎTł„î1t uyU0 ýţ¦h‘v9&.„SÍŰći"ůq•ŔâÄ6Gťp)¦+5ÓÝ*ńËa^JµybąE’R—ýVô»’*‘ö|$wĄĂyU„řű­Iô,…{ߧ—hOč>?® “5HD‘Ç:Ö–ŞRź.¨©"ăÜu¨ú•„÷·rńrBÎs±R;ÂIJî40°`j¤ÎˇxŕmW’´ľ*zăű‡ă ˝oÉa°ÚSąRŇ®ůÜš]hčU°Űôj “ŽźÍ7!ëÇx_ęşKłťů|9ýçůĽŤÝhkÉ÷śŘî5b !Rb»YO aźlEÁ™Ë÷ľ!‹KwôGłŚŤ·jÚ•iuzćJÄÓ$łýň™g{ŽÄ»`{xXh'–şˇśTzMÚa·­9¸v`·xËtá¶űIŠöM”"]Óg«5Ó)ËčďĆ(őH ňx/ŁBUÖq‰ŤďË°Űńi–»ĺG8/w}d‹=×Ä`~C Jő»µbĘc¨]ÁXc™PUľî+ÍLX{cZĆ{9Ź@$Âi>ʆVaI’ť€ďŞîWbíłä»ŕĺžúoá++\÷!FMAäřř dXWLÄÍzˇU›‘„ =ĽĘ.] G,GwicÚ0™“ý8˝Ĺt ^;$“¶Ňň“hî†uŽ_ ~“:ë%)źg¸.ËŚ2Ł8yZĚIÚ˘iP~śSżČUCp; Ný7#Üí$Mî ą5٦öeO0sŞçTtmkKÜľĆÁ:Τ÷P]˘sT_Ł™TSoSÇ”3w>ŔřůR®±ľżnEiŢSKt[†á€lŇ™ť$w¸ĂłőŤCmá8 ŽpŚ‹$8µˇ-9łHLłáűpB…®Í{Š”„„EOÖyî±FĘĄsĺb«Üµ#hĎp(ĂbQC8¤Ęh+¸®‹0˘ĺ<­5xÓşZ]Ë &íě•ĺvÝ jjˇĆ©¤‘}‹¤C¬Ż2‹„™ŐKăCYd`‚PÜA•ę1Íî(Ôô¤ŃĚp1“†OąaĄˇŻ’ Í“&Y=ůđšądj ź“ŤT°éł”í4¸śäáYJ<7tÇXcLKŃ°Ŕú6Ű“şŇŐ‚­F´Kî\FxÝlť®Ćn`!µ%h,ŤTÝo‘űµ"…5Í—(¦ă"™bŇęÄ\q»ö˘ŞÁNc hÁĆ<ĚÄýecđ,‹ŔUĘDV¦°ˇ¨9´%Żň@µůŽß ’ËŚBŠĹžTBłĹč§T×ę’‡[‹Ű’ÎŹV÷Uô^UűÓD‚SšC‹™Ld­Š}ő63|Lf .‹ t…Y|CŘKśŐ/­7Kŕ¦á çd8A÷Č°@•ŕ?Ś„f$”3oüľYR<; k%pôť0s7lFáźđm“íśZ)btčĐ’á×öDŹ3Ď|Łţ2ż‹ŰPç†o%%‚·kÓ^·&k~ 6ń ]ĚX»úř%WŢŹ \ŁIćÔÔËŘꊣ˝ç‚ńí&hˇÇ  G# Ö"ďŔAŹ€`Wz¤D6<ł7*C }}e7—ę—ć/ wKv\o„ľ óuąÁ —QĄ;UíČQ­<Ýú'' G׉pTĽ"T–u?¬•?2˛DRˇĺ4+ qÇJrťKěÝĽŤ.Ť=· ﺦO¸fa*/Ŕ^‚!·Ź”ěŘ+ěi¦Ę?ŢşŢţŃĽ‚ئeŃ5şšDDCW‚©Đz .’i—±žVśâż{˙l!É;EZ&tO>V9ű Q˛˙QUř°¨h3^ű«~o[xąE,·ĺ ŞśYKŰ’‘z÷ćµ6˛Ů˛ÍŠ Ń« ˇ’á’ßśl’·Ň§Ú‹mŞ®„EńËŞŹs%%ôQnŚ—Ń„–řŐbQ˛‡|ŵĂKý\ŠđË»îćöüÝÝĹÝÍúč?xťYúüx}sy|v}uyuwóövęÁŇ»îî">ÂúŕÍŔĐ\ç°I÷†‰ó> stream xśĄZmoÜĆÚoúôx­ŹŢw.óĄHăÄNऩ­˘”Â8ťhÝ5'žrw˛"ýďťŮ]rgÉĄNnখ»łóňĚł3ËűeĆJ>cř/üżş={ůŽ3;»9śąńźý|öË°0kö— 7±†ˇ’3ffĎXY[#÷ňŚŞx=ëǸ”ĄťkŕÍěâöě˛řj®J-TmŠ7ó+M]©‹/ÉóŹs^Ö’3U\̲µŞlńµ4Śďć ˇl©„-ŞůB—ÖÖµ,JxT öŐĹű^Ŕ·ó…*…áZßĂŞRJ¦lńwܬbĚ^ĽőrĄF8«`\wűâ ‘đYöuŕĄa–N~Cf|Ť3TÉ«F“ Ż;+ün‰ÝÜĚą)µćĽř+™%}_‘ _€ŁJ3ŢÝ70ă´#üd]3űŻ‹ďBŔë˛6°ś„(SRIp•‹GÍą&Ź^Đń!˘„ŔCŰ„řO „âó‹ěJ%k S.®ĎŠÍŃŤé€U‡±ýn»=ŕ°ätęîSłÇŃ…ÍL3ÜE´›ăfąýp8.Ź N¨ŔÔ°†»n ĚÎč°ÜnqPđđ÷qsŰtű˨Örß$Ó6ǵ0%‹ÂöÍá®Y9«BÖ˛^ęnléqíE2:quwžŮ~ő¸Ú6cŻ¬v÷í18FhŽŞĚxŘßWöÇýb#ĘĘ°Ţ=Śą…Ýč´Ź:M;%—‡ÇvµŢďÚÝ˝ÓĐRG]ŕÂű­Ł*ꞇMp6ÂŞ×#>힎nÚ±Ďďšýfw}î˝ €lděq9”ă0˝j¶Ť‡‘4 ¦ł~sk˛Ý´MFżŹcýw÷ă8_ďÚóă8ÎËö8–ş›0í´ŇűˇŞčcę=4°Kł76ývi†dqë\:Řa™Éď‡őfµ> šŐzŮŢxŃi°\ĘŹ¶ôy ” ‰bOłuóqÓ\;§µtb.r6®kBł3 ća,¤ßŇí(Žą‚ř•Ţď2ń|FŽ~Üě€MÉP«PWÍÖG?ťžOäăîćfűĽěq± H5řç ËľÍä|^jóëňönŰĽhčťĎĺ(G¤co®77ë`…PĺSxű2“ ěś‚'›zÓ¶ś_57›öp^Ž±öf÷ІM±ÜîŔ·íMxAŽ‹őňî®iŢZ žŠK›mćĽĘ'Š`ěO`oŮť×ÜđÄ•˙ďk^ŚăäÇ8¨ajPPfçň8—ę”\7—čf>C8é'§n Ň»Á¨un2űâżľ2 F媺š ÍëͧĚÁőüÉFíň¶ůÂé5aÉz pżÇ" >BCkŻ|b_ţWB€«8zZý_ăÔUt„weĹ…-î¨+RŮRÂâUbj!ÂâF‰É˛8Š.‚… Âđ—aořˇ{$6G/cz` ÜÚo‚HŹđ-q7ČÄâ÷}@wŁ¤ĂE#đĐ]q.r•TeĄU§lš*ŁUť#N,b‰‰äUÝ$'\¦f*¤`QÖĘ2řÉ]•(ůjmĘ7ŃĄŃw+*Ľł©kŔşîú oóŚAŚt“Źř¨­0lŕ i]R­ fŁŁBŕ?˙şfĚaAKI#©âL"iQ0¶v–ůzw·ř¶bt^žQ5^!yó^2$!ĽH(˛Y÷ ¤Ć“qŚtwDz]—ó.•Ş:¤’{M5q'‚€,k]ŁP, 4‰ë(ŮÝă(ŮQÔ ×kSjIÁţ */%©kŞJ0ŠŹôDRz¸§D,‰ęż™V•Ę›ťR~ďÖ&M™8 «çËP¬ Ž+UC* zى63 Ş!A;*Ő˘ŁRÂM„§ó>'Jĺ 6ŐL0Ĺ  ]^č^'LŮMő¨łŔĘ«¬2NŠ!m{6¨ Ó}¬”śćbÂŻ/ß 4[Á _^?Ć«öűäm.y¤_“Dťż(!›Ş +\ÖaŚ¶:K^ô€F×Z/¤9ć‹#E0ľ›s[ xűŕ—3®hŚŹáŚäj˘Dh»j ÁĂ.KŢw'˛äŚ:cL=‘YYËQĆ„Ă»“5™ć&©-#‡ő"- b]3HÁ]nQ4˘c [¬k ô5ŇŽ\Lś˛·>]ŤŔ[ă*S•M˙,`4ä»QÉ–!ŽÝľ1j®‘ŔřÂJë„ó;ŘG~[ĺ* ˘ĎU˛^HVbŹ2y¨YŮ”… ěŘŮ3–<Ňď<=’˛© ´5$ÇqZŃő%ą!—ü˝’řQ):‚fú9+Bęˇ˙ňŐ>©8pŠí[ä§|î ćŠH(€'˝ŕ ?5E.BÔ5•‚]ŃđÍ.ÔfŐ„Óm”Ř"kXE ÍkJŔx7´ßĺä60ËX÷ă(éĐlhŞ ”®SĄm?ş ¦Ő] OľEň™qÁÇ.+IÓ%7¨ŕšßLj¶ÔIăÔ$Ĺ=t{J Ź¤Ń ąW k{÷:’†85LâŻćîÂWB?ůÉ!1ŠĆ-=vrś~“Ä(Ę<نś°2Ó×RüTÄÉß ľ»ĘăźÄňŃ|Ă~†WĐY€<đ¦”IľĺSľĂŐ“W fO úçą)ą´ĐŽ4ˇŽ«đ@H÷$$u’ĘŢz,;őŞ)^ŃĘk$jŘÎM;d¸=[đą(&VčťI=ţ˙ďş(9¦\Éöç8řÓĽ‡uč•ÔS=Ł9Ń0ęŘ0ľŤ ŁoÔjKúą~ô}Ël_»Á]|;ĚC`ĆéűŹá†JZ÷‹\ËoˇĺW¤}nŰyß÷´ßČâŕ÷¸ uoßé®Üc%™!›/sfÄͱ×dKĂŁ'\ňĂ´€p7LĐ?uE4ÄÎÉ«‚ĂÖűÔj:qcĆŤ±­oć>#¦lz-‡?[€.#é›ýĺ®nÍô•cöó©0©ˇ:¬Gm?’CţH» †B ™Ą‘{Ňщ˙m­ĽűeŹš:௣~­§FČŐßî’™éŮH}’^«âh`¬Oźóyš5»}ýŮk™ŇoĹJkvŤ<9ŻJâ`,U<Ťzó'Ęż‘"?2#·xbcűW+’@)ĽuíĂÉWé“׍ăfíĽÂÚ€×4ü7 úĆčn3ń Ďb匞¸µ?ɤČWż¤›$†žjůŁWÁhždbţŢgtŻ20¶S\)gňďf  >•Ř ŘŐBočEVřŤ«Ż!<ä+šŇ¤„IŰ`‡#;Ôł2îö;{ĎíKC\ÝĄţ ĹO•…ŁMěçé›ĐOľţ]ď4űhĂĚ_OÁ—ä*Žđđ3ŃđĘ<ý¸ä+ő\S@'f+ő±ńý ™Cë”m˛NäKäŹPií:ËŻ/Îţ˙ţ&émLendstream endobj 561 0 obj 2981 endobj 565 0 obj <> stream xśµXIs\5¦8ÎŻx7ŢŁ2˛ö…I 1•@–ˇrHqŔK<©8¶3¶“řßÓ­ĺ©5#cs ¨Â/šV«—ďënéóŔ™8ţ—˙}Zě˝Ü§W‹¸>áăâóBäđ,5<^EÁKLpn‡ŐűgÁ[ĄEŇgµaׄRĚÖ[řeX}ZĽźLš©źMKÎlV™ńgňýr,(Áő¸š–ŠÉ ť÷Ó§ĺb|=-ĄöLK?şii÷!¨‘Á§Öp®ßĚ ¦ĄfŇ ŁĆ°‹)ŵ˙ÄĂçŢŠńyŇ« Ú ¸uSÎĹE˘áw˛íW´A0Ë=~F$öQB3áŚ.[Šé´Ć"űv–#Äř¨˝O‰ŔO ÁjĆAâÍvř¶Ü¸?IŘî˙Zý–X°p&\d„hëŔ¨&ą:ć#aF3f% #Ŕ2[@ÉR2ś–ŇfkÇ°ň)wÚzĚ' H9ĄQUgULË 3Ab@@zgܸ™¤dZ=^Ô]—“ÂMRŹ×ĹÓúIVŻ!zÎj=~ŔxpášÎ1S.…ŢŻĹx2A4 €ć¬n únëç^[î\7¬! «ç‹ŐŹďĐĽíËúyžË­ű ˘)ĆO ŘChµĹOŕ€4V%#¬5ÂŽ'H‘ ޵ó"šă!~ʢWĺđi”(X˝Ž‡)îý<©äÜl­w ٵŚ{Ow•śŰń&ţNTÝĚŞÎęď}łNP+€Y9bŔ¦˘ţb^Ľ¬%ŞNçßó˘UĹęăŤYŃ`<óP‰ŽçĹ“ş˙¬î'ZogQLS ÁAôVř \ÖÔÁ59ń#ŤbJ#qŽŞ'DńźÔ¨ WcZA‚Đ‘’Ą„Ě HťŮYǵ”ÔďŰ‚§@ŹXW Ä G€šbe»šĎEŻ—Ůí%”ďąHŢ·ř-ź?ďˇOY4S ÍĽ”L9<ĽŮu¸…9 Mç¤c ,G÷›Ę1 Ď$µ_ÉęI,L,ř‚l‡µ›IˇGAŽŹ0 ’qi›ýëŔÎstm YŤ3^6Q<Ż?­ř"ÎTTWŃ.‰Ő•Ŕ-Q×וPqĚ ĘC‹űv‰©ÇY« „ d×}ä‡Dkŕß…*3ĘtIĹŚ%ŇÓĂćfî‰9RQ€JNm„–ç°$~`Š”~@VCA–d˘%ćü“+K‘ćeů5, !öłYĺa•$LĹ Ę-ÓŠ‹µŇĚŐ ‚­Ł‡ô“ťş\µ‚×Ýd°Ül—ŕ­˙ˇ1«MA©¦főât˘…@Xm[ł`¶Ői©ęä„JH†Ô1 D™ŔÖŕŚ%ĚŰ`°€.˘OŇCşý¶áh>`ZPŹ°Ă †ÄăžŇmÔE“k·Zv»ÉúMç]:µĺHř8óRŕ}ť Â+›č!5€¤˝„ŠűÝ"VH†ła‰C9*3‰*IÖ•ÄŘ÷3Ü k `¦ś¤ŰN$Qůuõ].!~ĄÁ96á7_‡úMzŤ¨e>57©%3:Š­»Ą• ŞÇ9Â2ĐÄž5e<çř¨ćřcŢžőŐžu©KH+w‘°5SˇZ+îš~fo˙˙A/’Hiá'‚gŻ˙6ň•XUűŢă˘bBvćĽhuqŐČń{ĽÔ%ÖF Úč .!’ î#2ąĎNďÎ[e˘Ű…f.’É@ąŐČĹn™ĂÓdß罶tÓÂĐ]kś˛;*FQpžŃ®F"Đ%­Ź0wcßçÉ.ăO$5e\w#3š·cÉvAęóĺâ1]ç•ęWęëe1jzű‘wáĘ9´uú2Đ•$çWRy~řÜ•®ˇš}Aáé¤5ÓšcV€uÔ˛§\!zWŚ›úl1cf;Hë]Jđš, ŚŔxŁˇ˛Ö°ëBPŚq‰/É˙ąůÜ ő\ĺşĂVeŔö§®ëÖ~,˛ŇÜń8p›:‰Ń÷pק›aŞ[hkćN›Úž86G•^ŽpySĚ&ß%j3ŢŐ}Qř2$ ¶ĚXËýŐâŐâó ”®Ą@ťÇ7GćŔ_Ž5 _7,ö^ ×››“ĹŢŰA,öžá˙ż|žß-ö†W˙úâiđĹÂxú& •vKdz˙’ókő¦~!’CÚCp&;’S«ii™â0 ®!«BÜňmQ›”ňPĄ›üaX9ŻżsĽşâvťůk!j±7ă–Ś— ÷p)?ť×ó×őüëŁÄI¨dKS‘Ş•ĹŠËvÍ"(pĹAäKő8ô–Ĺóě€*wdWoń-Bőĺż7łŢjq43p©¶ÔO6ĺeŻg˙f  ×´G©âŕ•:_h§r đŘ“bÎb çhŚŻŇŰćˇ<üAqĚÖăه©r|3/Ő°zt6Uń…FOÔ ţW‹AţÇendstream endobj 566 0 obj 1869 endobj 572 0 obj <> stream xś˝[YoÇňČ_±@2xÇ}@qŘťC¦žŚ<Üĺ‘,ąÔ’T´˙>U}LWĎô,I™ô QoOŐßWőUőčă‚ő|ÁđOúűâöäë÷śąĹŐĂIh_đĹN>žđô–z-ţxŠąYÖ#Ěâôň„§¸”˝[hÇz í·'?uß,yď´q˘»^®xŻ%ă˘;[BĄťăÝ}i}„®ŢxÚ,Eo„P¶Ű/WB‹Ţsٹᥝţ5/AőÖYŽK€^Ć1xüţäô·?u?,W¬gŠI'» ,µ”˘[c«UÜ×=ĄgnM·… ™ňĐşÁőH/-ďŕ5Ë8Ëó1żđ°@aTOő&Ovµ\éŢ9ď%î'?>,%ŰÝŔŇ˝ŃZđîvą’ĆôÂ)4Hîz†łŁą·VR[Ř–čÎK‡MéaŤÝf{ˇ î ű:›7ŇMV lëjčy×zgŤóëžCëcyi—f’ľ=Óů’»žĂ’ž†_ŻŇ+Ęă¦Uďa™’.ä˘ldŹ„á+p?<5ľ(ł“”-‡'í„ ďJÇ~ą2 ]¨îŰ€ ĆśÁ-Ă–c˛ű/ihŠ^ Í»OKÓs#ëŮ/%Ç#ÝWK„Ť0©Ŕ§k ĂQ;ŕFâú´g.-Ús®“!Âc»ĂÄ–‹|úřTžv͡sŔ\ă]Fâh1ĺ¤qS«´«q_ľŰ%—=c‚Ő8UZM>Pz¬¤ŇŔŔĐAšŠ;ä•tfpŹ¸LÓKžO{^"^a{VćaĘÉĘnK#A598r4Ž¬˛Ý;rň…-‰"‚szŚwKÉ`ť€‘sÖD8y‡t8†ß–ßKp3Ŕö †çŠ®˙šRQjl‘ŠaúŠ‹ĹŮw#O~Ç‘¤ë˝¤Ľą,«o›ď®xŤM>¸f‘7Á*ľDŔřTIßÇâ77M\âf¶óyŕF»T]—)vcČ2‰ÜĂ^¸OFC¶µ‰ălb‘źÎ­ú˝Dtb^)rJx3eD<+©0¦Úťů÷ö|^.1ühUá—¸ÍČYˇ»ßÖŁî’¬ ¶šT˛çJPĽoµÇQFľ‡)G łĂ­s ±Wr. eß˙iřů&â6#ÜW±R Ó;KiYBÔŢŠŰě—-yjÔ°ćgŚŞł6’äşJK(T¨Ź;Yq h(¬pC›%‡Vg}÷ą JS„nĺ/DMÜĆë”’ŔÍ{KYtWŢÂa•¨ň¶Đ!Đź÷ŘůÖŘŕČu©`yÂĽ6Ť=vř FHoAłUş÷ĘA‚L,ě,=:2ć}kSdz‚űŢj;3R×(pág*p„¦2’+Lőĺ¬2h›ZřžIďňśÍm€N×.ĐîgéQ‹_N( pĚé—±°"‘˛đbĄ”@LŽ©Áߣ¦d>¸N ÚŠiĘŽ§ňHĽŐGB)*h‡ű,şí‘x2&JógD3 ď!ˇ«ŘC˘Ŕ:ç tÔŁaś Lđ™ý1ÎË}˝.itŹ c5ęJ:Ő+Ďçń”ó’ Oá\˘ČGôËd Q®ŞÚ‚Q3ŮŢ0N‚G¶%q¨´¬‡ŇußĂc/ĽSŇlŐk!aÔ?áďči x¬ă„.XUś@ů)aŞŞWZۤâJëŕđJçî ÝW†v-ťXü™Ľżž¤ĆŃô+aeŻ\0®ds<Ő®‘hś)„¤pŕ]•śľH+Śť\žÔ¸¶›­Â Ě y˛×ŢÂcQBń…Úť™Sů}˛Ŕ6ĺZq ¸:PRUf«ă‚ďĺe€ś«!”DSˇ^ˇE<Ź˝pXZŃřŢľÄL˛0‰—GŕŢaŕËúÂF‡~I KqÂyöůź'$¨ú‰Ŕ^ĺ8H#˘€ŐoŢΤ.‚św,čSkŐ©äő7ôéĆĂűšîĽ6ˇ`¦Wµag&ÁˇÝĽŇ‡äťţf ɧ·^@€ľ†˝Ż9¸nüLŹ¸+«_“$ S5 ´ĆI ĐŮŚbqĐýcrćăęůäŚl«ť†ÍB?lËĽ†ă$ t—pC4Gň°S7Ę]QČç]U6ů?°Z †VÝw%aú=řcjâEŇů¦é–P)3Hz©/&/etŞą"¸<w?ř6ć‹C(fŽŮD¦ŮÂAnr*Ř©Ňţ Ăn™t7ŮHkN÷širh#ŁX:c&Źz6%*śÉC97=Ć:kGş#ś‰Ů>JKĺ#Áˇ"éđÔâbĚo™HN˘&J®˛“C*ŔU(h“*2Đő˛¤: ‰¤™Řz™B§¬˛×şú†׏´H#UÂśŰá}ŚťˇBÓ§¤zBŘj#r’ü…„¶‹çbănňš«J$ČOrµ0­®ţ 3Şrş©<Ń.DOĚÁF(č!ĺLŃł®SĆ|VŃľµěĎĹŽF¬f8vޤvˇţzîw 7Ćég+»Ľ,ßvŘ:†Ý®“”žxŞ€¸ˇHĺĚ 2ü!MjŐĎâë(îÍ]ŤäliśĹŐ­P–0}¤îx$•ŻňóXń{®<› …şźÓ# ^N«­uúž7ŤĐ®­Ş‚ăL1/ĽšWPy9kâ‡&´&Š^rGĎĽÍšŞ^Bń“ľmůëł1UÉĽ¬Ř®F 1ş|PĂ•ŕ‹Ëqx­f«Zą©ërĄ‚R'ěŇ2%ĆW“Šś1źOł´Eá×$M Q⮹ $ă•JzG2ŠQťK `Z©ŤŻĽŮKŘłESk˛”CU7şŤu®ď \ż.ţWĄĂ-Ů}ËŮäć«U×đ›.˛.IîCAj6 „JÍD—˛„iT—ăř §îlȢ‡;É,+Ü8VAHţAr ć|‹L4ť–‚÷cśţŔś<“P˙Ź r´`˝ł"9{á†Ü?p­t럸úşdö&–TĚ[ŇšČ@.Ě˝Ďć?kA⑆űFdŽąŁÓ´|ŐNŃŰtS{ qS/©»iđ6uŃ• ® y‰ą¤ÂŽ$ŁézčČ•^.«iŔl’Ők×;x˙9Wvm|‹0U—V?—€±Ş˘ P&tCR"«® ˘;ĹŻi>•®Ů>Ôôµ×侬ĹAˇś„ł2o 0ą,= KtÄôäâĄ}[Cj·í˘[űjłĐ‹t­2Ź„7A$Ű´đ+_­ đş2b,vÎ] ů7ľ.ÄófóN]މ ěG¬ĂH¬©ÓŹeŢ/ń› Bô3F’Ď/ĹcĽŢłSnç p¨ůË–Ô1“Ň4x§ŰáÚ^µóđx”ÎĎ‹ÜP¬öă|.O:˝%Šu:L+ťTGŢj ®Ł,#ë'’nťś‡’3{mł‡‹}ZÂnŁ‘<¸W™B(ň*FµŃś˝‡za%™l]¤/ČBňç};~ΕţjŔëU yuv2Í7@#&ˇĺ"$‚ĂW°+ľŕp2¨„ ÁvW÷7·XžţűD"ČşĽü|~ö´Ćv Bb­Ýď± h­†»ńÎśŤřő´×ĂćE ŚÝăő&ü›Qß=îĎînoBOĽť.ŻďĎC˙PŔ”bA”ĘěöĂĽď%&Âł«űř´ŮÂś67ąß\ln>mölj_±™EDń` ‰T¨?MÂĹď’OăÝ©˛®Uç1š8nňÍb‚$4’os‰pCÇ/,€ŠŢüěZď·ď÷¦ßĚpű…ˇg$IúxĆM%I*ç|iĐqú@’żĐPóňŞĺDçtăŕÍ&±*ßÎéĆäkč——±ÇÍKäQĚ4 ˘}ůśPŞ3Űgśşyżđp¸=ßm§D Lŕ”# ŠÝí"9D)âĂî7ű›] îŠŰđ9obŇĆrőH~|÷ţô‡Ýúi›čSâý u°ě‹ÝÝĂ.vĹbćÇ»<Ű>Ä‘Ś‹|ÖÓ_ě·—Óý7yÜ?Ĺ1˛C-clw»ű/ŁŢŃţóÔ‡5† Ţh…łYoÉ:öŻwú+#âÝ+OŁ ńăĺ+™ő‹ř›…×řź%DôŤj€»¨ŹŔţóéÉ?áĎ˙9âĽ/endstream endobj 573 0 obj 3093 endobj 577 0 obj <> stream xśí\moÜĆîçű×O%‹˝ď/ZŔNŚF­]'Ęą)ŕ…lI–kY’ő’Ř˙ľ3Ë%wČ[ŠÇÓŃ(ŠŘ€E-ÉáÎĚóĚěÎîúă’U|ÉđoüůćĂâŃ!gnůöfÚ—|ů~ńqÁă/,>µ|˛zhŞ8cfą>]°Ę;#Żĺeą_¶m\ĘĘ-Ť3pgąţ°xU|SŞJ ĺMń]ąb•ńŢH]<&×ß—Ľň’3U¬Ë•¬„WÖOëKĂxqX®„r•®pĺJWÎy/‹ .•‚ďęâ9#´Le˝-®’°k|V&áłčg OţŇvŕ]ř”d–7}Fř¨ŕ€QSśŃ6üŽ‘ŽvďŞů¤/~% <ËÉSKĐ'¸/¤Ş¬é´ĄO\DąŽŻ;ÝR˘ŇV5Źâ[oŇ[DéîM)+m±äŠÜµ ×q߸ŔĹ'µ"*”˝HÜxP޸MžmtUů-L@!#ę"—éŁŃëĚĘMX.íŕqşüşýÖ8ŹµS• <~{uóîĂź‘ŇT±cĹŮÉů6 ±ő%o)ŚŤ<’*ÜúńńáúůĺńÝů >Ă^\®éʦđp|róćúÝŐí»Ë Ľ9B--ue\M­źJ‡”’Ň…\~1RöÎGÇ…ÖłD ąŞśŽa6†ő6 v‚ýai‚Áž›J»‰oúDţH(;OĐÁĎ20 ô‹P&ö˘}饭¬Eé·řÂF ‚°Qĺu„I:Jâ˘ĚŔ}€ŇY_|jß!Ä$Ę] č!< ÄČżŽFÚ3G[ŹbR֮Ϋ1Ś\–…ĐEËI)äOĐę—6 ť$Â\—čřşf–_főm\BşBPq»†Ł’i0‘jlůöS’uź± ÝéÚZ–).Ť×aŘg]ti«v¤tÖ â(b ?Ýeýsťô# ă§[„€‡Đ§c–!¶ęyµ ×ĂŞŻ[30$#X2R!?îgŞ0Ú륉`•6KŚĆűS‘ÜÄăśęŇ°µuŽé`C— ĆžmŚx{}ÝŢGMź®?,>.Ąđ˘ru܇|Ž‘Đbž”^ůŠ9¬ <9X<:xľĽ˝ľ;Y<úiÉŹľĂž|˙ ü8řvů»ĹÓ%ĘRŤ . Ň• ‚ÂĎťÁdÍďEÄ|‹*í"hĐLNěQDH±“Ă´ab§î©ňä¦Ú&—ŇBŔŚÓr’6îrɆ°§´8Ąč“ůńbvFĐ›Ętő€˛ AçÂđ'Zw.ŚPŕ|Î5§ĐŤyźoóAŽ<ĐNlF6·JÂČŕ¤ŇczË*Ą ~Ëff:Ók;‰˝ž&ĘCĘĆýTDk0˝ĚN8®Ó‚qşřąHýNrSgHâ ¤'Ź˛Ů’äĎíŁ?—řY”č+^—|ń2Ż<Î%Ü!´T›aŞi˝§ÔĄµš§RŤŁ|©Ŕ;pŤŚşë±"ŹŽ-&ÄĚąU…_ˇ±Łęoܱę*L‡i,ÝÝŢËŔéf ’޵ T’MĚšhY` Tm´?|Ń^u ĺiV\űA oFé5·Bs,ŘP=^ ZĎěó%˘č9b‹‡c˝yz*źb‰Ői%ÖH±Ť&ÉÇşÓŻ€ôZZ3ýúËŔrŢ>m!"±tsĄt2Ög) nu¦Çýů(I„1<KÉkŁŚśšaFĘ°ś°F‚!'&ש9QŕZź„+Ĺ–9‘âKÉÖ+Zý"«[ŹI§ë9ŕĹ z‘;·ź"wrޢRX9– ďŐ^YVžéŽË™kúl„•5|Sac`)’ŕóMš=ĄEśQNέÖ€Ś­FiŻÍx)” 2żŞAî$źĽ3&ô}ÖÉ&UŇúk łxikë~zŁîHJűÔ‚LÉDľtúvl#×Y˙°~ăŹâăÜ›Šaî?YVž{Ćły‹üu‰w¦š=Ž6 iQ?%’­x6wď!^â/í}JM«”Ż˛´µńŽ¦ľş†ć$Í&}3®WŽĂĚ&ę v‘˛ďn÷oňt’{”EwÂü(Ž§}ÇÚN–•Ç±†?o©\«P‚ H Ëó×™‘ă(xçîr=Ł=ţ_Ä.j¦ÁŢń:ÝÎĂxUj˛¬<^dŰY‹@,Ś\đ9 Éźč‚é0tÇ«Ăłw¦VaĘA:żčrřEé=B÷źşóĂxşŃ‡a,ĹdYyKî睤CŘ…!pęW#á" ădÓQôÎÝg<şŔM§ĎtĄ¦»¸zŕÜAűŕŕĘ]X7˛łţŢŮh٢~KT7ÓdšďŚ^”čfĺ]جŻ€”ÎL€tX¶ŹłóQxO÷Ę0Ľ›Ľt‡7÷zŢ™©f¸Ü'`bă\ţÔŮëňďÖü6·T—]$KĽű” yşLFi4·mpřbµ Ů2csé żj¤"hÝ´B<#Ř.č×)B‡ŤŁií ™¬beŮ–L;Ę€éfł[żmŔ¬y~&˛Üăć†í(0ŠĚąű éŤKűL ™Ý·uŃi„đÜU´Yî¸ĘÁ¨9Ę ÷GÁůđÎĎĐ’tđ®şbXÇě$Ľ¦JR–5››,(±,­hY†Tđ•ŁŠŽuRcłSNűŤC ÜI1e§Ęx$.Ä€É+«Yâr#ĐY'ÄFâ<”˘âô’ü_ë´,ň,µĘ”rl&ŤŤ{vť„Ĺ˝“ť˛9‡TěÓůVrzSö•«ŻšŤ“ŮMśiłcď l$ŠËeĽ×ů”SOPt§Ň™_(Év%ÄŞé‹Ţâ8V7ÂčívAďŕŢa9á÷R ĺxÄeŢ_5ŹlňnÇ#žx”¶číy4·NČ×Qi'ńŢŇhÔ˛ˇQJ”ů’Łű‹Očô§m]e‰r‘Łß®+’˝oőNHŇÓĚ+ÁŔ”Ümś%ę'ĽS:qlůßŮY&Đ«·YiÓôŕ‰ő-§r;ŔkÇvO§Â@Đ̧Â"ŹM:6ĘăDŮÂďÂăąuŠ<&*íÄă´ĹÁçxĽOe·0“űłĆŚ˙7O‡×0Źőžr=űŔšÇŞ=-Gvűš Ů°q4™ĚVđ~[b%ôtĺ\· Aש©Ę~Xüĺ¤ćendstream endobj 578 0 obj 3266 endobj 582 0 obj <> stream xśí[KoąrÔŻăL°ĂĺűqL˛^ÄłŢő*Č‹dI–Ű’,Ë+ż>U|4‹löĚŘ– |p«§›dU}UőU‘ýnĹ™Xqü—˙?}{ôí ÁýęâýQĽż«×GďŽDţç§V<Ž¸Ĺçvuüęłŕ­Ň"Ťgµa5ÝJ1ż˛ŢÂ/«ă·Gż®˙´ŃĚHěúĎ›-g6«ĚúäúÇŤ`A ®×Ç›­b2hç×OŇĄĺbýbł•Ú3-ýÚo¶†y‚Z3¸Ôć5ëżÂL)®ýú9Žë8÷V¬ż#×#×ĎŇĐĘ2 ^ţ\VńŹăżdˇ VZŤB‹¬%mHӨ㚂&//ó đŚ€a ĽlhÇÉŐV:™Ă˝3x^Ě;m=ĘšTNéµXş‚a&čI"m$¬]áROzŐ ő¦ÓVJĐ+ÚŔ(7”M 6 «ăgGÇż˙•Ცűtl-ł*¤™łí&­5}±±š9ă&=ăřőŰÍĚ%ŤUë›:îYşônýˇęńͶŠ;ç5:J|Uﾇ»N1Ö'xĺ™[żÂáĄFĺ‘pL2Đ@3®ĹxÎŰŃKçľňÜ®?â:<´ť˘e,(˘Č_żž^˙ݤ’‹ús]Ň]]çIéĺxvľdĆ·řítžďfťĂŹ7Öłŕ,G:0´ë§uÖkĽËřk^ŕňŞn«—ÄŽtđ“OČ%ÉJ±`g´Ť µ07yę¬^žÇל×ţí~ˇ×÷qXđ‘XŤ´f® X¸^oŁF‹ňm^ęüĎ{.ŇŠ Ť5–IiÖ˙$?_ŐUĽˇ—đ0Ěč ĂäŃ÷ŕ‰ŔŞgxŇ̨nPM–9Ż¨ďéP °`čÉ7#Ŕ’GoG@»‡÷1ĐpG'¸Î8–q1čZöb:‰ĺ!”ÜtbĹůĎ«ősJ@pěE Tg="pб*ČÝ:˙u}±ŁŔÎÜç·âŁ—ÓŁçű%ŤčgÓÜűEŽľimBM†ă 8sÔ˘TŐiý€čň–$W†÷zą‡D'H^őÉ—ő2 hąˇÓ&W7{b‚ä2Qţ­Ô˝Ł×ě·ő’bm‚8X§V$Ňd)©dęŤ÷ .\‘«»´h#,]ËËŤ´ŚK ¦@x_Áv^ <9ăRÚłe%uŃT”Ź·‹4ŽIˇ–óc^kš @'S6ĺŘ ®ĹůňŇÇD2ŔŔ}OŞv«Ë»I‘Ťö„g"7ł^“rg]şĹP$ô^˙ú´D•#Ż˘Ă|Ôv±ČrëhziâFv¶@łZň§$IzŤ„eĐVJwcXęŕ(˝$aŤĽO,ŤdUW˝áúČwŢh  ńľ‰‡%ž7y3Ć3Ą™î˛ő”Z0E;MUĽ EŃqÇ5ÄÄ#ďĹBFšááqžT˸) y`v*ě D3Ý‘T/ÇrŽöÓ 0ü]A((Ś˝†ĽO¦­~żĘ"’j!?Ó+Ö2Ś¨§+’–ü(.cýDSŇ#ő'ËrŢŰ>kTRMßUŐs >–+Śumľź$t˘Ţ|ž`n$DňŚňoŠ{’±‰wľ®rÎPď^ ¦äŃ ĹůŐ\Sń˛Ú:I´Q·«m&(˘UCŕ›.)Gé&_¨đ#Ż|¨đ|µyPÝ+ôqĂÔőťóŤ„%Đo‘D€¦HâC˙M˘‘>¸R¤„Ä^ËĺĄ$(µţűF3¸5ă(Šă+ QšŚOô‰Ł˛€_ÓU:IMĂ( ¤íÚßkŕ×ďmâ3OË8ažX-~ąC®€}@z„˝€ŘXnŚ_w©Żn"Ďq FkĆÝ©úęJg2nĽ…0ô»9eA=  ü‹Ü¦«—ÎPŔ¸mv;Ć-·“lˇć©˘”li…ćÓ[jéií“@|:»T-ÔIĂŞ™ó&DŠqÂÚ 1˙¦Źm§ă «¦Ú&bĎ«ŁÚ8ícGi:€Š^Ťha˙]I+Çgd±„Ľc<©’¤Á˛\L©0(í!A-ÚB»¦eDjVřÝÄ6ĺ¬_…c Łš“ÍÎÇcG5É$G±;Ţ뇤Ł‹fA¨íB0 B 7ö)6¶*,DÜÉŢg8—ŹçHżhÜ›DxrË´PŢç3ŻívWŃ+¸`»(š¬v\Ě,§lTRPÍX8Ş»ţŔŚâZ‘‹Ň\«čźMŔÜq6Ł)“şÉô’É”SŻGý§›anh‘9M¦ă9‚. ĽăŚĆŔݬ„×LŔ~ĽîöI;˙nü3vAdělˇ ¸lsŁÎDT ą^ôilďú=čąO+öŐhŠ„„évőIA•ÚŃćb>ŤŹÚľ+[qIQÝ7ď»]’Ő•đ]nŹÝ€ľ“Ť÷ĄÉçÓBę˝!Ç­‡ ¬Ë¤´%ČÝÉ' Ű0n]i›Ś·QU@Ĥń ›lá/§Ľ™¶)])®l{·‰UřEăÖ}xécŢçxö®íS”:‰» -Ö äN%¤"¸-KP´ =Ä˝pď"ěH™¸=«ÚMŰžgŚ÷!¦c.â1k»R±YAß'f ¨wN‡8ďÖákŮĄ_–P°7ŤÂZ‹ůĄRšÔźĂJ•ř:úëA4éKČbÝ)Śľ2Ţ?o 4™9˛EăfĄr’$zŔÔĘ%đ±{ÇĎClŁ„ .p9|v¸SńŻY->í:ő[…óFđ2˛ůŐď­Ć üi§Ă ŞÇ§ß*:ĆľtŇ„ú¶—Ő®o äRŘ,˛{ęŕH´č¬Ü…‡Ďłéžíßńy RttÖK5ál˙·^o˝Ńq8CÎ^?ťrČ·UCĎ“ÝPěkS´Éž¸ĽüĽoÇő¨ý/ĂcůO'`ü€K,$EÓ#žž!»ň5Ś´ľ»>~1}t0“(ęi&‘Ą{(Uâýg;rkv©HÔ˝9@śN†úá1ĐωOpŮ >:/`:w--ŰŃýäXÓVda·@Q’ ‡Ŕ3>Ó487ôBOÎľµÄ°ÓÝQ‹2)’ ®¤ź‡Ř×ôÖČäĄqcç¬AëhëŻůR˘¸v1˛jbvĹ4±ltĄç§ô¸P‰Ó; ß·±[Ăg^u€áA:ĎUŤxä#%b čâSľ~‘őë—g勡<ÉqZ_˘ç’J+é·…wĄNщ—ËĺE™jßúéů’T(€au–g^Ś·5ÇśWěj¬(\Ô¸eľű,`Ćłň±Ž9Ěu="ą¸˝[cĂ•!,燡pe_¶˛ŘY Rt_ę„a:ž}H˛°ď@¶ťç¦ŢĆúm‰:·Ě•8pl#ĚNőv9Ąľß’Ŕ'ÇG?qȡňŮj~qw±óSĚÁW‰Ř˙Qv…=PďÓW‰Ă“łż*K>š|‚,…KqËÇŹJőÜŽ®˘^ŽbÍěÓľ¨´˛ä°[öµ6ĺéf6¸”í«ţÜÂűĽ]{B:jgnw7“vĐööH óŽéT{ś9µ]űZ hęÂng>~tët†2ë8uŮ”ÄŢÂľŤÄ˝] ás{«Îݵ˙;ć–çIź,ugZ'ß9©<âzú˛ölş’›x(Ű‹ĚÁq{«(ôČó*«$z•ž$„¤ŽyŻ‚Ć_ą;†iĘ×QŠČČ·ľß%rh¶„ď%ßç;‹°>Gć› ăŇ“0ź}uçíM®jü»žnî.;;ĘŰŚP\WzI ±ďGÓÖt@3tnłÚąňŐÚ„˘źŽţ 8úQvendstream endobj 583 0 obj 3499 endobj 587 0 obj <> stream xśÝYÉn7˝ë+ćŘdîË1‰Äo @ś=ÖË’¬%Ž˙>Ul6YěćH#K dCÓl.ĹŞÇŞ÷8ś‰ÇżôďúýÎw/÷‹‹ťŘż‹w;vDúOŁ?¬âŔ]Lpn«ý΂·J‹a=«ť‹Ü'”b~a˝…/‹Őűť?»{ÍŚÔÁv?÷KÎlV™î{Ň~Ö ”ŕş[őKĹdĐÎwŹ‡¦ĺ˘{Ń/ĄöLKßů~i÷!¨ŽASkŘ×tżÂ¦׾{Šë:νÝ#Ňţť´w‡Ą•1ă.Ř|9Zń×ę—tčŔ‚•VăˇEň’¶NSPG›‚¦ ą‰‹,8ĂÉĹR:XËĹę- ghlĐ~Ô߬†Sv'ĂÁĽë|Wć…n MăŞű)űL:ď—šIËUwŃ+f,·®»Ä90>#Ť‘b\ývVšWyÓËĽ(.4ă*řĹjwgőMeńél26qO8Łwššü”„¸ś­ÚÂřYŔ`Bć˘/ŰŔ [Ţn:‰6Hć…ŚćčŔ„3€-^őĐůłVÜĐŽ¨őh?𤠬vjď›ŇK<@¦A°Ś "ĺ”č¸äcE'g’C­KďaŮ‹lńdĽ”Q´¤ă-EŇ+iQ#lˇá„fDbT*˛?KÂ:mÉŚŽś7„ęT—ł˘-%ýî•ÎÓV0ňń袟Ŕ(î‡Iĺ:ť–KJ°t8…đ€µĄ‚(ÖČţĹľ“™Óq躉ŰY­ŹÓ€jAjÁ”5˝šÉÚ hťäúH9*xI-}ŕýt/ŻoÎÉp kę 1ł%şK‚-$cHµ ×ß=Ęi%l K°¨1ÂÄĹ$Ť&YaMďĂpX6ŚPFRłŰ(,CSq6Ć W'y"ßúâqÚ Ď$>đ‘ô#6Toîôy±đřâ·°•Ŕň«& «qů.¶¤ µ{ 8O«I…Q’]MSVDĂyÉ˙5F*1MßÄŮoń0ű«¤|8˝Ó“b±7Hą©ÜµďÔYk踪ŤŇ C·¨Ě¤†JŔ´ôĽ5nĄ îŽÁw¤tuâs„eîł’Ę đ­ZBÎ2Ăn´d‰˘˛Úě­ę-Ż^áĆeÁHň+70wXHú]q›Ž?ż»Q÷B”'f=îc*žn´‰˝7Ŕ9g÷WiřŹŤTâ9“€iŁ&Śáťů˛ĽÓ>´'W‚Úżnňr*Ůw Č^uŻşő˘s‰Śš’Ů©Î=(âŠ\4‚ăVŇxŐç¬qw!#Šş°ĄišBćQ§Ă'o7©Ď: ŔΚ†“M¸‰2Ga¬$Q4äAçeĚyJŢĺ¨,=N&Aa/“s‹LÚĎŽŻA°á‹ň”w$O@Gĺ @çÎÍ^•_…ĚZL:đ2ńF-&Ę4›q‚‘óűVľßRŠIkľ˙wJLzò°Íĺ5’@oo§Ä@…1qß:L:)bEÇ61Ŕ8‰:­]叚®:.lő4•NH‹Y†ÝŽ÷Ü€úb QF$íWz =‰l»b$@c”ÖAsBŰőřĽµÝ3±=g´źŞĽD[[«¦Ę±„ôć= 'b “c&ć…IŽok±ćZµ¬ŠÄNş@Ń}Eűy~µU*wnüŽĐ.\ěżCi˛ę’]‰ĄÖ)$ĹŘHçňŻ‡ä×Ě'©xdĎZEŞŤů2t®Ö7“orS±¦[„D÷áÖ§˙ńú@ 4™y’őQh€čpg ÄËä ĺí2ŠÚŸ$m'Ý\»Pm‘„Z|Î ›ĆböUśh¶e!ÉżłüőÁ÷gđDmäęŚŕĎ yLűŤĆÖŻ·ű#0R©™^ÓŮUÇ ő© ]fłfo;“ ßöf¸C@i‚&Yµ~QCvçąÝ2F°ŽňîMĄbU˛zČX¦?´JY «¦rLIS/DŻ˝»č® Č;=^›ĎWżŃŃ“¬sŘ’TLß'ÚoŁŕ§ßÇĘ„¤”o4SŇĹTQ®Zfův˙Šň¦*7KńŞ6ĹŃŔ¸ Jo¸hÍ8ôzuE;"ŐXú‹Í=ĄśtxÓR' Őëç-ŮXüyŇé[QŔĘW碪ޕ\sZšî?Ů”HÎéţ±Ú+«Ę•ß!~Ó^q‘ď9ĚŽ´%—ťż­¸Żß&Ňyn«íŃ#Útw{‘€×ăŕk~‘ŘŞČeđu,†J Acuß9/‘­¶_WH%¬éńjç9üý ?Ő}2endstream endobj 588 0 obj 2171 endobj 592 0 obj <> stream xśÝ[[o9–ö1żâ<Ś”>Óř~YiVš…HË,!{VűŔ r_B’d€żUľ´ËÝîśx@Ł<`ÜvąŞüŐĹeźß¬ç †éß÷[Źö8s‹“Ź[ˇÁď¶~ßâé?,ŤZü}zčę9cf±>Ţb˝wF*éeą_ }\ĘŢ-Ś3đe±~żőŞ{ĽT˝Ę›îËëŤ÷FęîŇŢ]ňŢKÎT·^®d/Ľ˛®Ű‰MĂx··\ ĺz%\ç–+Ý;ç˝ězh*ëęî9 čĄdĘu/®eĚŢ=!í˙öłHZjťWÁćż3Ż×˙LBűŢa Í“–”± M%  Î{g•qť/MčZôŽ‹n…Mß îA "XˇşŁ%(D3Ý}Ŕ†ň ™3Täy·_ťŁna–QÝ5(Ŕ!MwY¨ď.]o¦“>dę5ˇL>65óşđ‘×Q’py:´sÇ×Y2@¸8Ĺ É“˛řYYń#bAf-¨V4š{,`8÷~±~¶µ~đŠ‚ń´Ŕîč[Đ 7tŔş őYéŐešŹM6T8Ѥď—+ŔŻĐF˘ĆóČç›aŇů,ĚHfy`ŔŢXUöÚ0hť•Ď„hszŘ2c$¬t]Í˝¨@§{Ä{˝­Íd˛+\K®e÷vč$Ľŕ:×sÂiZČHDÎÖž9:‡¬yž¦ M\ +] ­›˘3\ÓšžŃĎűÍEIoÔX)işÁĘĺÁ#°—L¸Z uŐÚIäϨžą­ś–‘geţqá5i’ůJ‚Ł%¸eiˇuŇ$`?„«j´ĆnŹÎTIÓkđO«U%ZTQ«¤¸9çŹú¸*pNZÖ`/‘sĂ$e‡>(Co ˛7MZäűĐhvŚüjŻÝĐăa~µÔJ kđh_{÷żóžmR—E÷›Ą“¬zĐ4>˘2í$ cŞ±čšĄ—,PB Ř3_b‰ĄOńł†(%%l4ż2ô´)Á‡˘—ĘR=â!Ńý‹„ÜK‚˙`>†˛ůúQ>đĂŕgN‡9—Kî čî! >˝ĐĽűc‰ÁXrS3*‘Ŕ’d⮥¸#âGpŕüÜXôľ’őšeńż˙ńA“-Žö5±âbb:ăř);3V”™•šă ŚjĆf:1uôP_ĘĐŐŔŃŔiËٶ=wŘPŐW%Rź"ű¦wĚÜŃ°âĆJő`7ÂÉJ‘č(~úíPI(aÔ”¶—u¬Â^ĺaC\K抮3f\*šŤî…ĘfS‡çÁľZś»?ĚŠyĐ©uţŽIE`oꙣ ŃP<(˝m,ÄUam{Ф[ą|­ ÁwŽňK­m˛« Ş×QYé3&×/ÉŮUŠ<˘Đęlr¸2¤;Áp`77¸‰o Vz>‰Â8ë<@*jĄ_•RäŤBÉąJ8f±DŞ'DîŚWmâ‚m„ĘZŞłf(&üOL;r5–Ş0Ťj Lëż/7ňűťN:ÝDę"Ů 7ßÎjÎV‘přMŰl˝m¨íQŰBVőÜQđNPš“ĺ {é{JŽ ÇĹDm(ęŰfúVüŃě–‡DFx'HŮŕWÔ›„‰T†‚T˛qS×Ď移M¸"Ú Qć]öŞű­+nľ˝ÉMźY\ňI‰XÄ%“s^qţOż-‡µn7ë˝ASSť ˙]7ľť‹uF4p?{ĂtŇbdÖ wţŁč˝SRpÂâśś¤ŐÔ1‘€I5Î'BP¨ó‰°UŠ:ÝŁŃ|ęžë¸Ř¬9A¬–š˘®Mzô˛ŐńfŻ\®Ľ×=,˝2¶E”±Ź‘_ŕÜL.W•Ö.ŽC+÷–ä*aú¦¬—çŔ·˛ÚqűMĹi”ÂN i›‰ÍřÝÁö 5sâ,C›»0εơý ®ZŽÝ–%A®ňĎ*C® xZaÖcäÚ'7´hIšĺ䀆3 ­†Ě~ĵlĎŮL¶]Ü D—#R… •műk zYÎ…x1ÜÓbŇÝTęBV¬Ř9Ë2ď†ÖC”ť¨%­tÂqäH‚ŰZ•ďSŽiŕX®8k\8€/ç?S–zWšGŮki8îOŕ—J…!7U*+— şĹď%””g§YbźčVş*Źh*U-"ÓŻDuJ>Š`óĺU¬nJOŤ“®äYA䶏­ŐSj@á ¦@Ôí%Öˇy9ţÖYˇz…Řu˝pćŞoŁf ÓďP˛Í¦ń¦U!"™ˇ?śŢm÷—a{ÚTďB+÷nŁ†}ŹeńÉ2P@T'r1m/-„OĆU;nďW&&YůÍş &m td“~3®°ŤË6-­ů¨µ`žľeJ¤ Ë…»­Ü»]%«Äß`ź«5ł&ßN!®ěĆ*ĺaB Ş˛´Ët 8™µĘajT yËN'€·Rł2yR^«ôČ÷MĄÓvLi~ĎőOŹTÇŕ›Xą$5p…żâÍŔÎź¦ŚřW)µ¦}vŚ`Úe-”Ú@Z'LwŰF ǤAŠŞvŠ¬„ôKΗ9Ý÷ @]ăo»çń6Ť‹Ä=_×a˝Ćµë”;JőďiP»ë>B,ŇŤkah Ý·fp-Č ®fŕ_ŮŚv«W }€qĆ„Ĺăt˝hŁřU×Ŕ‡µ©äsY·x۲GIďäÚ~ŇĹA9 ‘DpS…°_Öç¦ů@ĐT~\±nŃĎk¤¤:ë*x1ănĂJ(Ű‹oŔ ÷=Ői–ßEÉĹjŘ &UšťőÝçVĄś¨Ż]a/†´ľĹ­cĄŠmÁd±’c´ŠĹ73ß·ň™ťwżi+R¬·’˝ăĆ›”ýfü>ąwý¨HIĚ]€ţ1¤:ÖYWÝ Śí ×M 2=Ä˙O$W& Ô`” fÜÂáM)©´ŹwůŢHY0ÍiçTí÷(­Çzćłď”;ëř@&… ^ gR±»~m/c}†15rM‰îJĘľÔÇëĎźKS{Lľcy;Ě—b<†ô!e2őµ{#©+÷šŢ ·T.R›yAĺđÓŤâ-)DĘü/H'zé˘?”ĄOîµndÍ› MČđ?-ÁqIY›óQRLj]ĆQŕ)˝kĹĎÂv]#{´'´Ägµ˘<:]ń‡‰Q )dľřę´{đŕäęăŮűż-×˙ŰR›@îh9ÝűËĂ›ó#ě—&–Đc˙ůĺţ!ö CG?ŹW;;»{/žsó?ñ0Ů`w$°ś—\DđV«˛VgÍʑ菎žě_ďżâću". G?cX•*3~’,® ˘[řń5«¬ň÷Ä`đg‘đ÷xÝȇ€… ““oĹIĽniĽŽď ĹLĹgÂO‡RÍŁ‰1÷ŔĂćn‰N•ĺ ѡÔ3{]"lÜUýRżvČ'Cr-XĘÄí»Ô«r“×| ĐĽâĄIěuľŘřć¤rĎq’7óŹKÓÍ+ 6Ź±…~ő¶ů~ s#ĚLX,ůݦ‚ŮpLš˝D¤Ă˙śĂřŤ™}EAwGü9wGüđ»s×'"ĎÓ U˝s™ąîëďýÚ)Ľâ_ů¬!vŢţ”ŁČöd)5^™;bĽdż‹dř3.î/YzÇu8ÎĘfŹŽłŰô_Řĺđ÷»Qc¬¶úc ć5=ą˝‹ ™žI*J_•š%Řâi¦YÔĄŹ–[WÍlj¨ťőÖKřű?ľ='endstream endobj 593 0 obj 3170 endobj 597 0 obj <> stream xśÝZKsÇ ®Ę‘żbOÉL*Űî÷ăhË*Ç)9rd&;•âK$ËŇR¦H+ú÷zúžéŮĄ(Ë®¸xĐhv¦@>óÓ†3±ář—ţ={}ôŮ ÁýćňíQĽż›Ź~:é?<=µůâ8>ŕśŰÍńË#΂·J‹i=«ť›rO(ĹüĆz żlŽ_}?<53R;üuÜrfC°Ę ź“ëoGÁ‚\ÇăV1´óĂÓéŇr1Ľ·R{¦Ąü¸5ĚűÔŔŕRkŘ× ßŔL)®ýđ×uś{+†/Éő?ÉőłiieLŢ/żËRüűřoIéŔ‚•VŁŇ"YI[Ú4 š(S ˘\¦EŕËxŮ*°Ž“›­t°2‡{çđ>č$wÚzÔ ,©śŇ¸Tç®·!f‚yŢ”zx—tÓFר×h ;PČY©ěp6‚ytó\Ĺ—Ľ´ĂŢ3Ü oÁxF1=ü/ă°Ę‹étĽísL[éEÚÄđPîrçČ~7UöŰŮëđ`׾Ţ!lŽź˙ů{ „«z丮µFŘi Ĺ]sFžY8¤hÔ· ¨3ˇu2ţ®G0Ł…ł ką<Ű`G˛Q_BĎJ6x=n|ŇX…ęf ϧKď†űzóUÜ „Ekne€Ăą®ë]°Ťâ"†¸šy#:;Ŕ˛çlÉ*î°•Ţ3ˇ$yô%®j‚K˛j4ŚĺÖQČVoĘű­ŘŠKć|H–‹wߍ€meąÇMáăBÓ߉€·¸´Â(ş9]ŮödzË*Źj)1Ć"ö;âÉD˛ďYÝ÷Ş, N¤˝€Şáë*ĚF2ŠąďńŔ0Ę„á´1}´G(›áł7őÝ’Ž3Ż3b˘„Žk)“9LŕÍKŻŞ9ČĺEÝ༠/ ą}6[8ďąv©>˛‚÷®?ˇD!JxÄ š‡—Să Ä_#Ö0¦©őU#Ć•ËĆÁ žÄŇKŁă©í(ÜŁ­ˇp\ŕ¦98ŞęEŻąDŘSúRÁđÉü đŃúQđ¤ |ÔĹxpÂá«•ÄD€ÉP. ‘\äX9ęŞçýÝX(UŔEŁaňŚ†V„U߉ŃPÉjŁGEĂ(# VS8„¤—rňI ' ł˙i4–ŹÁP:ČG®YęÍ\óřұ(YMŘŘ-$€mŁÇHČŢÚǤÔKđI<Ž€˝Žř ¤”%ńň{Í=¨ő&ńš“úRĹ< Ń©8ĂüŮÇT~@Hőš@”—%‡üŔđ3â¨7 ĂBŚ¨°Ç©0® *â]\d_‚ľÓ·€—î{˛’ý'zŔMöĄVĽŁ.…p’†É)łdc­e±¨ŠBbü†§ĄĎ˙%Ň™p[ů•3ĎÍ8Vˇ DŁŞá€V )i.jÝ!ŞĄç),C…Ăλ-ç6yŃd–âE]/š9Ś¶.E<žŚŔO"¸Ą–ĚčĐ·Z"¬Q·˛ŘU ®‹¤4Éw¨y@î<ă`Qg鳯FˇBT›ŁŢ×µó«6P'$>tCĐ!<ó+0Źçvřa¨Ŕh“1ąµ‡$qĆ»?ŚŐŮĐ]XĐƸZ–ĐXŔ'*÷¦ĄŮ]‰ow”tĆé(-ăʵűRÎÝ­ŁOx­°Y’$·A^O˘ó›.•Éx·[© pYŞ»ý°ŇPqÎřc„U'ŇŁkuÉt˝I˘Ě‚ÝÄC";]$đ «Ý%Ďi8 5q]Dˇr€SŮPä†ę,B‚^gEF38“Ź ŢQp7/t˛“}”[W)|á#Ě^¬<,żÇhÓWźAbţď B4¤?BSHď#čCbmĚćşđa ŁĎŐ”Ú4ÖSšÔSW‡(Ü]“ü _A!ĺ úR@\!ěaĆ»Ć@ "hgÖ‹‰(.ÔďŹ?¬(ŁÔÁŰʨśaÜŮ•g±Ď¦&*\]f« ”ľa˝¦Ë«ţŚÜRr®Ú¤^^şďAקwÚ´Ý”ä˝ýzKCžáőđŘÖOśĐYívż ŔÇxS×L¤łG+©$ŐÔů± kŮă/`%U śÂIw»>#BÜ×ËËZ^ͤ)k|]ÉçËĆږ۬đš·{ĚçU;ťŹŰ©ó!˝ßOBŇÇĆ…ďÔxMŁ°«¤i›FązĘ~ŐCmżk á“ éĺąLZ=š˝¦|§=F:ČżéąČé‘ĽöCZn¦HP«Z«śžŃS¨µŕˇNżÚîöQűˇŻˇÎü×µ7B ÜŻ~ŢŹ@Ń”‚{›ś3­lŽď^ŰNł¨ŔdĽ¤Q3JjµĐŻ=OęşmĆۇĭ’’)Yý¶ź7Ée%ÜŤ©bŻ@4ýőVŠĚ:š:‘ß$ŢîýÔ~Ú -mŠ%<âP‰őu‰IźŐŐžO\‡3ßÖńGÓTúg+WB}Žë f‚Ś´2¨„âö91Č® eŃŽr"Ëy/ę­2ň/ŇŹʨW‡łĂé¤ka€űi§{q#$C˛ŃlWÄ=ź°‡ÔřI„<ú¦vި±NHq“Ĺđo>Ôą_đ‡ő>;%]Ź!˙ŞŚ{:żµHşˇ2Ďv{ĺÖśÉőQi;Ȭt¦ßwÎ\bo< q~ŁńdµŐEňFµGľGxQ[®“ŠcbKű‹®ţ&ehĄí–äs7=SnµOYÚ6ÍÝkŕűŘNÚ”G¨oۆš~§x-řňŚĄ_§Ç^SÍ{ «ş(i!K¨ő 2!Ď­Îô Mä(źhvÚ}¶iSô\÷VHí*ŢĚ3?©nF›G˙g3úq!¦É/ťű3ŤŃfű%Q÷IâľPD=,˘=$ D¦ťŰ” ­ö†GŽĄQĐN§ŮiŞő/3 ˙uúۧ˝ŘJ„ˇy<1ëđ`\îů˛$ÍPČwózOÄba-bćĘjČť4ë¤břç=ůé±™hÂ;íë,{z$SdÔ"ÔŘd$ĆL…R0‹Ňm±‚śuŢIV&Ř$d–ČzÖ %¤łľüĐ(„yâ—Čí …ň^ö¤­‡{Ô“™űP9:ć92Ú~6#w ÓţÝ9Ŕ„jťĄ„ę ŐŰ^_T=ÍWfÝqĐ"«mÓ^Ű’ŢpËߤ›CŔßR÷|&şëßéĄđ@ŇŃ®›™ĘW>{öMGuż ó. ˙Ýßă]ë&·GŃŚ¶K6{T—ĆÖ.ÍłX΢›=ť†Ć`ŮśĽµĂęnş´N’†ĚÓňţWSšQP ~vŃPŚ:C~˙;ůHű¸ÜýnŚß¤qÖ›%Ú-ÄÄ«/ë‚Ó·JPLá'ĺ“=H§é˘|ý}^Ö]ꥬĄM úéI˝Ć-…J¸Ú9ŞÂÖQů¦|;u^Âá=ÉĽ‹}p™Ů&­©jWč¦˙vşÖm×j7µĽL,_ZJW˝ž[µßĹ4° ĚĘŮ`łÍ:CŢé÷Őj·ëUýťHôľ\Śű©t†NjÁ „˦´VÎk‚üY]h˛aĂspŮő‚/Ůk‘‰–…ťúH dľ™Ş”Éh:n‘˘>ŕS…î,‰ĐŁfššK‡•žMŐű2‰=üˇ”1—˝öW_é6>=>úüýÝ‚íendstream endobj 598 0 obj 2901 endobj 602 0 obj <> stream xśÍZYo7 ~ß_±Ź3EWŃ}ô­G€¶HŃkۧ;±Ý8vÚŘ-ôÇ—Ô1˘f4±7©"Qf%Š"?~$Ąü±ĺLl9ţÉźĽŢ<úIpż={»‰ß·bűjóÇFäđN đ‰ Îív˙rĂYđVi‘äYíDŘNß„RĚo­·đËv˙zs4|9jf¤vřzÜqfC°Ę ź“ńŁ`A ®‡ý¸SLíüđ8 -ĂOăNjĎ´ôw†y‚ µ†}ÍđL`Jqí‡ďQ®ăÜ[1|EĆżń“$ZSvÁáĎE‹ßößćC¬´-˛•´upšć€&ę„0ś†I4 m$«„Či¦ěÖĎ$Jž={6îßě„aNrµĹů§ ÁîZ+ńÓ?ů“±\ćO|}ů$â”6A— ű 0-ń7}ŻÍí˝6—ďŮÜ0é‚ ÍŢ €;H3Öł “ľ3 ZŹF˘5F ‚Ôŕ i_Ş.ę„+ô· ^oËú®çĄ`€đ°Ý?Ůě?9BŘIs·'ăN0kŤ°8”Z‚iĚ°K gé„ë Ü×ă`+AÝ<2VŃ߯@€Ňŕ’@×áM=ÄyĹ^–ŕÝp:Ť^¤EVy<šĐŮĆ‹“L€ŕ;ĺäpVâY!Ďf“B-–Đ5ähY •ŽV&Ü€(éXŕĺçŻQKs°‚⍂©&X5ŮÚ<ě‚;Ř€ęµTëaýŔ ę…?$PĚki>ÖŚö´Ť‚‰ÂŮpR©LkHYí'±20 y ň·żO“^\‰D¤sł‚Üě¤.ç:+ąUH%ÜđfšpY'ĽHuńžlőx•ň@yâ'µÉy=<îa4”HěH˛ ±Ţ›şę˛N( O=éV?_áfĎbwö‚| Ö´Ý’4°Ü::őjĘg5Yt˘hčçë%”*Pf-ÓŐ”l˘ĐŰéăe]Žâ "ô•şi¦xý‰[Á Ť"SŹëďdr”wčpË\TěEsÖś#ĐgPµŇą×ů°ŕ ˘ QśĚ='i$µĂ’$Ö—ýŽšBiŮďd˙ôą°ŠÇÂ"KŚçČĹ’sž(GĽ‘ Ţoł`ÔŮ rbJ§I›ř‚–Vźˇú vĄe˝& ¬ę•Ä’yŻ»FéRW&(/%Ŕ¦^öĐë“€-Ăt}B Ď›‰In(»l‡?!GpčŔ¸ĺ‘č¦ë›;/ńmŃäĂPH.Ěţ[ścď`]ŞEHIkyAlOoŠéK­\ľ ˘fM0íW’·=`Ľ)Ç”’‡DÄYŹčɢ¶{#ëÁ.ÄŚĄ*—ót^ ˇx޶¨GŁň™'‹&ýÎ:s+śVű­h>Ż­źa"ö˛oóž!ź&ٟ޻SbIÝ8ógóVl&‰ĽOÝ äăE›µxICĽvj4,i¨b–Ň1͇ Tó=č]ő AÍ˙(hĘžź$…ş’ýÚŁ )=®s’Ç»rz™1·ŇLUN—‹wYÜn"ĺÓŹ7ííě9"­Ó,šňO{Őé¸/¬¤ý:‚Kd‘w +lz‡°ÍÍľGŃŢ)Ż…@ae˝tř´0>}Ź'V[ žÂ—† 0„ La7ç·éůÂ@=ďŔzČźyŹ«|2őżĎIŚfZYüŻ oU|ĐĹe"`§ź7"®l‰Ű;n1&ˇoцş4ŃO†MŻ/ßĐ>:Ź’qĚé »¤OŠž˝X$6úŚmçW i«ő›Ş{rÇâ"avKB˙´ľ¨čFSfD­Jšľ_m‘8'eÓi2€çvE×®»p“¶Ľ+źŃ×»jęă”%áź®/š.ŽPj¤LçšrxA®pĽĘ~of„]iÚq Ă×™“Tç jţ&r;]*Ą“& éü›´Ú´gž‚cá‰ď7?Âź!Ň–endstream endobj 603 0 obj 2301 endobj 607 0 obj <> stream xśÍ[YoÇ~çŻ ě‡ĚÚa߇‘p,%Q ‘i8`+.%Ňâ±EKDŕ_a#ż7U}LWĎôě’´Ňh¦ŹŞę:ľŞę}łĎzľĎđOú÷č|ďŕ)gn˙ŐŐ^xżĎ÷_ď˝Ůăé?,ŤÚ˙ËačáUĎ3ű‡/÷Xďť‘ŠÇőŚ˛Üď︔˝Ű7ÎŔ—ýĂó˝gÝ— ŐkˇĽéţľX˛Ţxo¤îľ Ďß.xď%gŞ;\,e/Ľ˛®{ ăÝÓĹR(×+á:·XęŢ9ďe×ĂŁR°Żîľ‚˝”Ląî\×2ć ď’çďÉ󓸴Ô:ď‚Źße*~<üGbÚ÷ŢŁiž¤¤Śn*u És®;9<¦E` ‡e5LE–¤cĹţRXX™Á»5Ěžxď¬2yIJ+U'šoůbé˝îµW ×ȑҢ;YH T·*ÓŢ.@(šiúî(ż{ÜZŁTwśßĽ!j×.@@xdZÚj“‡8€÷Fšn‰'â{n5*‚ĐFFyďďTŮ’<ÚňHfĂcSňĺŢď>Ů;üěU‘“˘ § 1óî h“x2Ýyˇí˛Ś]ÇGg»ëňň¬,pŚ °>=ĂFój­ëa2k‡é@¶t­ü6Ó%E ™ĺ™X ·U˘×Ę“ ^Ý",ľ)oËĐÓ˛(!ŕ˛5Iá E%ŁM6ěE UYÁ/ÝđÄ-Ő[­@ąłÄyR&­ĘŰ·(Ca¸–ôíŃ6ÉĄi ‡sKM7úĂ}E÷Ő•HhŘÇÁëŃ=xĺl[e˝”ĽWę>V)ŠUţ-މR‚ý)Ř—ŕf°ÔhłN89`Šić5Ę]ťvöNFřÝ°ęŁaÖC2‹GŔ˘Đ[eZä­mđ¶†'µíű†ž¨÷v»á­şŁĺ!aÖ +­î™5(“˘ÂyY6ĽüQ*9Ľ…“– TŃX8Ɇĺ}X`\@6Ńß3dX/ač«aRŰ6…”“ÖúÄÄ+Ą{+gŤBZŐ3Ç“Á•VT(˛×†K%µFJm/¤Ďç“.ŇKpLăLLÎÂlqÇ>†U HŃXK-–O§h¤«3É2'®‚8¶‹2m¤Ş·HÓ2µäɦ‰z$ńłJA‰RťM4 u±Ě âWŮ»hm›ŢťŠô.‡Ż»¸YÜŠ©â)Ć ëPŰŔŢAČ&ë>Ŕđ ­řćÓCô: DHýÓYńE˘«qŕ_#ŹĘŘ“úeńEOKč?nŔ˛ę2ŹĂ…P=ś™Ąţď×á\Hžbô…_–ĺÉR— \ó'Yę *)âŕ;Ľ * ”=Žň˙” ]ĆĎŽŔveł+ę܆iäqUů)00W 6%đ@FÝÄŇ‘°u ×I„›Kęsśs3…މ+*Ńź, ËôÖ{Đ÷ěg‰ź'Ň&g°LDörđŹ‡ f ď¨o'‚ČXĐ(ęňΚ°Ž x!Ľ˛{O$`l*aśwsŚĎđ…?S6Ž6˛µ‡ç`zäŽŔŞč*Áżş 0Y¦6x3|´ ˝Y~$ÚN7ă8Z;ňóŃGÖRÍG51 ť¸–ö  7 ÖÖĘ~QƮӥvę*™EHh+k–’ĐÝĎ-°*YBMWÖĚÇWaôÔŇôÚqź0~Ú4âłčę=,đbÁ]/“UBŃĐ ŃŽ† p°‰ŃĐôf ĄŃ9č'lŚz¶Ťč~@·j••ŻÁ‰Ăy†p„€C±Á°«ŃĺÝEtńÔ^ĺŕČÓKoĐőá2VF}Źß\ěUR†LÓzt=<ť…mś×i!†G¦z.µäíPˇ{IBĹč<ř‘N@ąfÖ«*!ÓČŘe]rđ«¦: ńS?ú2%dbN÷×4€äUQ5ĽČÁ«*ÍE2$HY~X(*Ş…cźŹO—AaŁ÷Uę¤jČäě|,Ă ^ŚDމ\Ćž`§\N§Ö+==…bUÜ!°ý ΠD*Łi*J“âĹČďŔĆ–Ů‘ł‰îJU•®‹¦ç˙%© 2ŃÄÇO’wËĹŔĽâůPĂŰő($şČ}K D˙MbEyyłřöĂ-Ř•s3p«‰ÓłµxŢ^?·şČB ‚g' p /˘÷ŮrU[żß5qáú¬V”mşş˘Á†ÚŢSú¦žc‘=‘UfzĄt7'ž¶t®ĘMÉú'-ţ‰uä­fpبăĹžuĽWŢk N‚dÓ„ ’ ¶‰« Đ)!FHzzD˙Ź‹}´!ĂDčaă uËȲŘJ4ÄôÓËAaŰA‘`ÂŇŽ&Ź˛¶“’ŦD@±qő0â "jR˘(X˘ c˙°Đ – kľ ţ©Tţ l©!×Ű“,,Ŕ@ä@[Ťx$DŽsú"Đ6‰(‰!|†ó‘ŇjşŇ ~‡ôÁŰ‘ZÇň„Ş˘©ď}ßUć(€nöŹÎ‘hŹLó? ďmöA@ÜŹ"UhFp=ć9t´>Dľ·kąInfÇI,ŽŘ B-°sÎäl΢(4‹Ř„€Ł35I±2ŰJÎTŤÖ•źČc_Şw20-A%—xúą¬š˘¤žfM”Ő[xĐŃń‚‡"˘Çެ1EnÝ‹2 ±±¨J·ˇ¤ćš•Şä÷ůŔpť…—]pV›Qöí%–ħ¬ÔµIBÓfFĄóî2*„Bó¦ĺ· MU6$LLnÎl+žpÔ}š…˘2–ĹjR\µ;€xÓ3;·R “&ëô®˘Ç¨°“Ş.«¤BŠ@ĽmąßÁ`lq ńĚÚí(˘n˲XŮlRvČćѧpi –¬u9¦B“@MŔ~0D †Ŕ¦zĎŰb á©˙ˇpÜßńYmÉßS(1r¦đ.‡î‘#Ž•3ˇ5ąď¬·›±}ŽŹď¦˛«ďxٲzrz›–ţeú•j{ŤvmˇÄąW)“rzg roDçĄ$LÍHXęVŘvčŕÖ$S=ŽMÄ)3‰ˇZg˛c”îCS‚m»#›5ëo)hDs¸ů‰ŐźóľZŕ:©ŕbÓ2\J ÂX%ÇY°•vDňvŞĽąők<řC7¶ËzgćADđĺ3éÍ,ŠŽY6Ş·MŻ@O±[3—Ęŕňśęţeí°ÂćÍNžŠTŰ1ó8UśmŻ˛=`4¶ŹHźŔŞ€xŰW· ™!i4¸I'b+@AVxÝŚDń_e7eČ´TcFFj°ÔvëěľÂóˇ|+-ýŽu+ĄŞo[ő ďi«oŞ8L˙}oµ 渠Ű5sŠAËŔ©h˝‹rł±U×I˘j56Â@—'!®B{yŐץšBTż”đ°]‰˝fCi*´_Ś™FÍŞÜQ ¨~tű#Ą“Ëüu‰‰eěĹł áŹ;Ž˙EíůĽB§N±0j;ĽőQUp]ď€C1máŚsţu˘ÁŠ[ŔPn3@Ź÷UĽ@«í¸\u ŕNuî4píFşÄ=µÇݧI6^mĎůXŁ\é‡á¸Ě­ĚÁ*ŔJÇ-ĘŔű~Ŕŕsĺ`Z¦DO«EU‰-¶ş91@`R1":r“8ä2iI_ňÉrîWVŇIŃq(1,–đx<ň¶ŮYo[UNGŐ–¬”đf ´FČJÝCH«Ö=Ź Ůi·V‘o_ŻOH…¤e#tĘ1)««u Ipú˛Î˙3 eâ\ĚivőÚ9ÜĆ`v˘h–JÚťĎ6ňťŽĄI¤2sÎ(š‡ôžícކcxw–¬MUđ.Â+TQ™! ë`]A+4QŞĚú˘+´#‘Ąne’ú–xĹő¨™ rM¦řŁRśdĂÁ&A:Y`ŽÍÍUŃ•kĂůK°Ă-h%µ.>Ž}@ęoÓŕđVÍ´ů.·s/‚ †^ć$ůĹżc¸ńVNăîèľ4ĂÂ=L4ߤգ í+©Ů.v]hWY›‘ąŞ¸Ĺ–ŞśIMGb$µîIĄFT…Őë›!:IOiO#ôÄÄČXÉ-BM{‚QŮĽ'W˙ŰU¤“ąňKD·íN^ł‘Ú´“, Ü2ô‡·Năţůđ=˘HđQÄSnŞ @ďC1ÎÜě6•bu¤´C'ÚŠDÔT“ë­˛Űa|dŞŤŇ,ÇO€]. Q“L~hćEŁ,rH[ocôŘĹđ† ŔÜšw¤ĄKKđMĹ2ęäÎV‡âv¦v3‰§ÍfyäµĆZżĺ}5)żéŠž—[‹Ařř|¤Ęc6V đý·˛-VÁŚ MÚÁ«®˙Ĺ:qLćďඍ˙]YLŔö6`~G <­–Ąö*éü6‘1–ó?J`ŚlU9°éÁf i–Ýn-t«Ü¦é¤SߪÂů˙÷‚3 ˇVŚóôT"I_Ä~¦‹7Ěs’ęD3‰ ·nqŹĐPşŃĚQŢTÎ*ľUoNZg;Żzjí ¸›fE ]s&Äަc|\]}iÖďďfvÉqŢĄÍJG`pÁKugG?ŚŘ"Ë‹–Y8:›dĄŞ˝–ëž\íPţŮ%ł_)SXĽ7™¶‹÷mR2űßQ˛Ń©żëe‘á†ŐS/ ›ĄĘhdu0ŤRŞlg$˘Ó!,Öµ‡š%Í˙Űż‹ŤĆ…¬PyŐsmF—YSs×áMkÍSĐś•ócÜů›ÜEółťîPg¦—&ë–X¸? ‘bÔľ OJ u!w’mw.éOçÂ/@"ľRä’ÄÇčľsđÎÚVI×ĐcÓfŃCr•¬ę„JUkFIâie áşqł ňWcŞ{wʲú¶Ö¤5LŮĆoŃđR”śŢ =ŞO Ö|ĚśqkëŐďţIjł6ůíGÂɡVeí\-¨& őîp‘řóŞ1zđTh‰żDĺwÚKľĎń·Ěj—Ç/ç{ÝÁg‹Ăźö ďżÜ Đ=ţúůWß<üţÉ#ü¤EĽ©?]ť\^ź­ń}¸´_ľ8ž®±>~yzqF*ümKćŐ˝Ľ|‹/‹Ş_ž_®ŻĎŽŻŇhňáł|˘ŕ-ţ‚ĚYoĂ—OăÓ)őËü-îÓÓ‹Łłëuśf{†?B‹Óţxőn}zŮźü9NKßvO{µą:=?H L¦۲Ć'›ÍyňIkăŻÂşĎo6Q:Ć‘‰ĎşŐĎ«ÓłŐ XxďăU˘«g¶8Űý\¸Pü‰~ÜđOa+l”hSŃřźp,ţâ7‘ßér†HđóőéŐćluóÉünŹľżýđüôĺęč8pX‡,„»9çţůŃĺĹŐ;$—÷Z®‡ÇŁwż \Ä۱Í‘´©â}}9}w~ů6]W)¦J·Ô¶oK‚pýő÷Ož<ţú<:Üű'üůÄ2Nendstream endobj 608 0 obj 4108 endobj 612 0 obj <> stream xśÍZ[o·~ׯŇ—Y×;ć}H)ĐĆ ę˘Ž]G}(ěb±ÚIÓîή÷"Çü+’ÜCr†<śáZ˛´µa懇‡çň}¤Ţť“’žű·űąXź=yM‰>żŮźąţszţďłwg´űéFť˙éŇ 4ĐURBÔůĺő)ŤV\P/O‰ŠšóĐG9/őąŇ ľś_®ĎŢßLD)™0ŞřódJJeŚâ˛ř#jżšĐŇpJDq9™ň’Qéâ[ßT„Ż'S&t).ôd*K­ŤáE M!`]YĽ€%çDč⥕[˘-žˇößQűŻ^4—˛_Ĺ6čµřçĺ_şM›Ň(¦„Ý4í¬$T»I6(ťN†RYĐôBäÖF,J‚‰¤.A¨‚ĚJ(>>ť\ţ ÎÁŽ[žżk®—őµíâŞT0ÇvÎf‹í긷˙ě—©űÔM¨<Ô»v0á«oľ˛=Śv˙˙ÉM“•ťFÁ„„úĹęvŮ {ňČvPYÂŃšĽŠ••"¬űř艓ű.Á©ĽZo@ĚŕĎ\–T}“š®MJYý/Fü梭Č’ibm‚lî­KJÁŤî xSfëÍr¶jög^]’řu:žđşŢnv‡ÁąÍW+wćÄŻĺ;7×ăĂ<ÜÖă°ţqU»ÓhÚN‚ Ó7ŚŮ N°j®vó݇ҹSĘ:y硏Ďě˙2+Ń÷ĄŞĎÇ“wő»cł«—Nó îúŘ.ͦÍ|ŮěƸŮł)Ĺň›ővŐĚ[gn ™&jă÷ÜÔű~×0±2éi»Řv_4„ě gëŮ凭7xzŢc˝I<ämq·i&Ćč˛â¦Xľť8W›VÚ.^őküÔI‘Ҥţ·«ÇaľxSĚďćÍj~Z9Gń¦ä `ďßOý:`Iędúu>úŘuś\’\>7“}Láo›N&t_°„„JÂ|>GEč6–›f5NIÉh±źřć´XĆődJKĄ$UĹÂ79ô®â´y°›LEÉIf!±‡8 ©€ěXQbş±śTa¬®:m]§[ńNr;Ńn®bůňjICtż–‚SG˝@”--x± ku›ˇ’›‰Ť_ ŢĺTY†Î:Š·úń Ę7éý÷6*UO|2©Šµ]Č0©8ąŚ#Źˇí´ŽgńŘj/KC*|Bh§č°ň–.—Ą q ±ŤŞ UgUGÇĂAQÉô±×Xő>LŔKąĐĘírTe >I´h^˛:‹z‘ŮŮiËŕL;KLmĐŰĚă r=Öú cĄŇâ„KŰì”ŕť'ţŢÂ9J…ć®É‰y‹čýů Š– .Ŷ̟Î3ŹCµ żęP$µx”V¦ú bQĺmęČTŰ@ĺ·č<öşőĄf GÇ{ał‘ŽÄŢÚiŇ`˛­‘śŽ•±ŘŢĽX)l«|2Şý!JĘ@¬ ŢŹź…rď‡Î€:IÇ8ˇul~dHHBe2ź©¬žwń;ŠĄeznDýPčÜ˝ű»}L{ĽëOÍÄŮ“¤zŃJ ›•D +côÁ49‰ŮÜY Yü<ŞA¶™M«ŃĹ‘|”Ęă ,˘łŁˇżôŢĚđˇoşÁ’"ÄÖŮÄ›&—*aôɡEÎ Ĺ# €ŞeČÇăČá‡A†Śtí××ŮíÚvZÇN{x§é©Řö…ĂR>‚˝ĹÇxŻ(ä(ž%…h˙n!e*‰ŹoŐ¨”$«LńcÜĆ<›ß»P¤KaŚuQQ Őˇ÷~Ö*HŐßĂŕYşľÚ®ź5€Îć..›NĎwÇ€-€jyZlBáçÁ‘ ©¤‡~‹Űů®#@ĎÚúý¬ťŻëŻ  cÍ©)% F Žc¸őt˝‚L¨ÁŁív˝ě¨Â˙_÷;âMXyÄ,° ŢVąŻAË°íuöúvŇm ‚śÚŞ1ýĂbWĎő¬Ů1Ű&Zl¶çŰ(d<É‹}ß±í2LŮĽG4kC?ěĄoŢłr/ qz;ć±B¶7]…]Ż1Ŕą &‘9Ŕ ×@~{§?‰^úěĺop÷ŇćŞ2&š•ěĐ%bÉSĄd 4¦g ěT¶~…™Ę1"-T(ç ¦öĺŮäˇJŹŽX#‡CłĹE˛ŕäŔ(˛Ä4`UüŽVAÄ5ËKá;­[ßġŰŘŚţ“2Ş%”d“Cy˛’˛ÄX  ÔťĎν~ ×ě;/Ŕ¨ZHä}řî8ň†ç4~Ź<¶[奕Ú$±ÚůE¤}`çf“`cW Ąě˛í Śeő–P …:Ą· [OC˙żŮ›5‹´Aîb·( z§ěE9’°É ËSb4 íIÝ ésŢ HÂnb/(¤ňtŠ†”•Ź_ )Ó~ÂŐ&€!`*X(˛[Ëw ą;j˱„Rgyt=čtáÜÝ=蔌@Ua—b’ęˇ:“–cő÷BČ'v+Ć>–¨»1čüYĺŘí®JÄ#ď”[ 9…Á`-ÎŁ!F`˘‡ĺô®¨ČßW!ŮLŘ T%Ý ĄVrj/±BRŁJㆵ!<Ů`¨Š^âs,Ń@ĺ9!Ŕř:„°c\ śD˵źD>]¶2dÄşuh¨bý-‰†Lt›M%ˇÚů€…ňő0Ř%!‡kěÚůuÖ§|»§”ýŃ!˘ÝAH_ĘĹ |>K¸ß¨ÔVĚwČ8Ů(DHOrO{Ż'ľ<áZT.ÍŚĺ˘ňÝ› ×C* ľÝ^ťLĎ˝Ň÷ńëxU<ČÔ饀20MźHĘöĐ“,’p˝Z%¶ôO 4>a×YK fž˝¤$¸ľŮ«lhţ—XHÍŚa:[/<”´đ; Ôón=ÚyK±ţ€;:Ś–¬¨ň‡Š”˛ĚU.˛ł±JŇA?˙AĚú(5Ýĺ¸}‘ŞB<ÜŽÖOA&r;ôJ†N ˙5ž<Ł!oh;e śÍĎcŚ ×0ŕpßďäK×ęÄÝ-‹Ü˝W{yö7řűA,úxendstream endobj 613 0 obj 2816 endobj 617 0 obj <> stream xś}RMoÔ@ ˝çWĚq‚3¶Çž±TqŕジąUhY¶»-e‹P˙=ž4›DBBs3~~~~ă‡Cjgţ^»—ź0Ő°?uÓ}ŔđŁ{čpţI3*Ľ5PUŇ0~ďp.@f¨Aj‚śĂxě.㛡ŠVŠ7ý€ śâ×>d©ăĎőöѡ¦ęŃ®'P˘\âŻ~ !0ähKŃ—ńýYB†R 6 Ž*f®ćC7ľ¸Śźű!AɨZă“ł0S<:§JŻ6ůű%đĆ)›ßÝNQ-ńş)`@Îń­W«•â ]6r&¬®Örü˝áÜ/śĎyýíÂ~÷ŇóóXÉ‚ą¤y+C͉ÎcíűA V3nÎťĂSĎ š´x‹äµ"„>ë@ţĹJ 3‰˛[ďÂUu‹˝[ą×Ű˙bÝšSëP€ł5(ąTW˝ó4! Q¶ ®–úű%:x9ÇŇÜźSYúłm‹k~·ćÁ ŔrMÜ\D7­&<›vŃ’ąrüÓŚWß–¶[Ho§ŰŚďô” ¤âVţn5ĺŐ3/ë´‘ţľű+yó0~óĺ—Eµ,V4č»±űčç/Ä%ĽÂendstream endobj 618 0 obj 438 endobj 622 0 obj <> stream xśEP»N1 ěó)łHküťDB h;DŽă!t‚ăř}śeďN)2qĆ3co#EěgąW›pzOXăë.ĚőHń#l-\XńbęD˛Čflqz ´4Ô¨!ç8mÂCşŞZĺô6Ś*HśžÍZ+ĄŻcőÇ©ÍĚŃz`0ć\Ň÷0˛24’DÇ&<ŔÇézź&C©…zo(­y°›0ť<¤ŰaDŔŚRĹť DE8­ş±4.ě&TÜYÓçáwç¨ /ňŘbs[žĺ3ÔŚĽ—?ó@”]ý·;™[‹öäŘPŇ»§uueňpím™A}śM§6V“^%ߪ’Ąó]±yH2óÍŽR źěŮW«Ă¨Pk-ÉfÔ´SŻ¦pççgHcĂendstream endobj 623 0 obj 292 endobj 627 0 obj <> stream xśµXKŹE–8úWř–1Š›îŞ~!!‚oĂ&ël"v×I6 ŮOU?¦«íń*€˘2iO×óűľŞÉ»µVf­ůOýűĺÍę«gFÇőŐÝ*źŻÍúĎŐ»•©˙Đő­ő7;~Ńř5hĺ=řőîŐĘÔ Qŵ‹ZY»ŢݬžOßnŚŠÎG^o¶F9Ô¦‹ŤVÎşÍô¶ź~ W“÷ô´ß€ň6Lď7[p ’ÁÉôKýńŹÝO-«B †Łˇ !% ěçŐîËçÓěÂbÔH†é‚™>’eëČ Nß“c­ť±Ór¬mňqşžźę0ÝŃ‹AÝÜę´N2x›ÝZ­†ćv·Ů˘‚dCäÔťŠ1ĄXPÎ;ĘWÓeç( öá˝3ž2*jMÁ\ ·Úď¸"T¨ä¦—ýôĐß˝,Ź1Ěľ¨bwTÎ%Ë)Î^o6[«8ŹÓý|é:˙Ž:ĚQQ˝j¬ůtßO/ŮçbO/f`T}Ë€ßć§dŚ+ˇxíC %˝)Ý-+¶_đ§ŰjŐHWś UÝ#¬ŢwWo—ü_÷Ľy,«¨ýrVŐ+řÖŘŠŃ =Ú,*J°ÓŚh4ÚĘŞî7ŚpIqfwI$yJW|PÜžĂl1C?(CĹŤ:ôDŢó)ŮŃqî´Z$‰śKvÁ@lĺĺš (ôHĹďýVŽ?h ë÷0{ŕ”¶%§­!ĆGmJjŮÜB$–úéÇą'BŢvÜ :¸_Ó% FP5‰Ç¤8DltµÜ1¤\n¶Šá¤Ü’—ŤUÄHm7áß!“T-$/ů Ş$đşď§z‚:wśŚS¨AžľđŚ$mÔĽWĄDĆá‰v( 1Đ´Vˉ[ŻJěYĽ)¦ů˝tî•!8ůéŻůgQťAlZîL ˛Nuů“›Ďµ/ŕQQ š ˛)˘ sÜ í…p¤ íÖe5o˛śšĺkŮö*aI>énîhż…Ř@Ĺ:‡ż5P>W–†×GĆ[ ›î,4Hh’kuäűiJÔ‚â O/9sôŮéŔ˙ď#$MŤŮŠ[ľŽ‘Ľ?´¤¬ŕKYÓŢýF!„ÂýK6JŚIžŢJ ĐDŮč‹Jß üPűmd‰MśŘ¬0đdăśJÎgŁNYţEűmŔÜź u›}¦]TH<îe±[„—KřË`ŹĽŚđő"Ř+,L #3Fó„&‘$ĆQJĆJ±c,˙5§¬ö!…’šŔŁ@é81 hş m)ň^1gîűißYŽ†sÎ=ČńĹiK#~™nŕ÷ ŰĄ™Dăá‹ą ÷5šä–÷‡~x2KŹ;ÍĘĽŇ1ž•ööę2j Ŕx¶1Ő}ŢXóŞÁdÄłęÜ_,.847eť W˙ć9´Ž~ŕĹĄ\—óą@Š-Q÷ÇôĐ:”5•–çUŞh>0‹ţAÂĽřű’uZŰ%ĆŹ!F­×W‹Ü©ś÷z8–őcd߸ôäśćI `ÍRIkÇ<,jö˝ě)zG›l’Sg@G˘ŘŤNĄömc†ŮřQA‹WEkIĚ;ţfőEOż¬=ăcZˇéfcĚQ ¸źÎrTDKS—&÷ň’pRŁ űÓqt>lŽÄăg+Q&!ÝĚ«ż¨•űĂ1vG–“ëIţ^$ěf©·Q!ŕçÂ~|‰|eąĹG>HŃŇţy~ {Éx'ŁŢ0u¦ŻĹÖ/jŮ_žžr1­BsJ%°üéۡÔJ‰řß>,™ůh”ŃY§Đńgłv(ľ)Žk’ý÷đFxBR–8%eýdîÔö·ôŻ—Öˇ‹aʶ¬Ä”¨»ę¶–ż)2ŇIüÂŚôăć lˇ»5źbţműˇ:ą¤!ťŮÚ ~hŠ@ÂĹy9/1Ź±Ë¸®"ž~ŚŐďÝŁ˙“Iĺ#´Ň…ýV4> stream xś˝ZKw\5žĂ˛7ü…Ţq{-ëý`‡C<@Ěaafář™‰c'v äßĎWş•úŢv»;‡j©TőŐSĄű~.…šKú§ű{ôv¶ó«’q~v3Ëós53{?SÝ˙ČnŐ|wź*?×RxŻý|˙t¦ş Ęç.Já0˙vvĐ<[(ťŹş9_,•pF*Ý.°ŔşUó®Ě~ŔŇä=F' -ĽÖ64׋ĄvZ$eU6éařßý÷ÜXbPÄ 6ř(1üq¶˙ĎfźŽ1EG⥶Qčdš=ś¤rŕ29—BhľËCźĽn–-+. ®°É8cńîw߼dܲń»5ăB䚸4I‡L [' 1Ił&¨ćřŐ"JÝĽ>ŇIšË––öÎ:‰Č$˙sˇ@ČÄ8ĐŃŠtÓËť ÚT1tÉŘĽ! %–¨FćÚŘFˇ`ŤńPHżKMý,Űí&E¨ľ˙˝Ł/}4Y6 hŁo.VĘŇ1 Ä}¤ł™ć ¤˝ÍVP)őXś-–ŕ$(ń]Ţ, L•| Í&¨˝],Ť_ŕäü»KÖ’6WöÇŔ)]•!łB{pűˇ„@źLŞůŁ´’‚IďM! \OÁHŔE!öqŕŕŹčŞ  'ľö|XpBÂD‘´kľ 3JZ~@A(8„q†ă…ň4O&ąZ…-źy5śyIgBc)˛ÉS ëŐFF÷ĘIĎV8 ż‘ś¤ 6‚Ř:L`Ç2„‹Ţ®ĘäÍ";¬O›„ ¶Ś¨Ĺ¤>&|“5ŰWt”F¶cÖ%;fM°Ä,Ś[Ęč)ZukCĎx^Ěl㼰C(h/˘÷Ţy-ă÷¶ /Ëđ¸zéHše/ÎRéV óIC=*bľ!Ťé8PpŐRoe´rąb±yňvŔł#ä`0o0LQx™ó°ă™ľŢUb3Ŕµő"Ĺʢ&–’ń÷vĐŤ3\=ČÖąPň"aŘ`š†E†—`V[0ÔŹ('$ĂŔ&aéKC‘©—!‹ uA‘ »2ýŇ«öw%^$żFgeűí0yťOÔÎrę”סÝ造§Nż_Ňé!>ńŮSB0AťŽ8g˛a4„ÉŁ^L¶űx°4_)őţš Q»×YÂáX§ŃŚÍ>[ĹI›ÜśMÍO¤<Ä_ŕřbX?’ř:Ů›oɵ|‚#şf·ÍáVÚµ1´ěŘüĆ<ňĺ@÷yK×8×É@»ľZ8'2ý›I+Uó=ŰĎi±sąÓ3µ5*[Ąč4 »’BŘdÇĘ"â ±Đh·ĎI/,žĹ“BÁúÂď¬ß ܵ6dť˘ŠS—˘q‰Ş*ôqn,%y*›/ű˙[ÜPe’őZ¶ţ ‹Y´×<çö˘3[|U–˛ŚJq78*2úµ.gÔĄ‰VX—VÖŇobť}č°¨5WÉ78,ˇŐpnśDą…TýżńPţôŘĄydźŘ (—¬ďoógĎŐ‡I^Y´g™ŚÁuµšZěת‚d;:eo…žř6ćSüs¦pÍö°ClgUŕär žÄŞź<+Ś˛$yXD}Kł¨$ĽÁ°Íďo±OďLff«g}žÖśTťdłZŚç a\tć‚ÔuT\-&Ň4SL—±3KEa8…–O–k‹›˛ü=Ö3íHĎV'?ÖsńÔL‹˘T€łaé/?—Z°Ě=ť˘ŹvÂŕ&˛AQŻ&ËŰWSÖń±Ô Ĺ$t…(%•Ża+® "8Ígo§ř»ě•ňTkş'†µĺ©ĆĄŔázú]«pŻ©Š¶‰)ŕ|U÷EŞÎ3'vE’ŃBŇNÂĹH©ľ`E¤F5S׫$ŃŔgZ_ajř©Ĺ¶Mµ:ÂŞrŞ›AňeČÚ˘LĚ»„g0ç`0ߎ(lltúíXď¨2ZúűéŽ*CÖŇÓ9jŔż) /ń›ĽÔL9¤˝·C>µ8Z9č t‡­Ń$ďtPcNî*Áčtşť@T!¨iĚ®ďďÓĹ”W‚ťä7˛ĘÎ|u?_˘]Ş>^G—ĘACĘSkŮ$G޵QÍLöçĄ_µMH™#[D”íqXQÂÚŁ”ä*9·e ń€¸gÚ÷S%Ü7 <ą4ÚE.Ívéť<Ô¤§öPÖ=6mňŃ'Î$•Ímvęî8'KJ_–ŞźÍŽH}şŰ>šőnÍc]”ęŻęoé”ó˘ „ě„ň©ÁńÄÇ ×mł(zţ¬_>:Řřš_7wŞĘn–˝]L6WŢţÁO(W6ş–3 ÇĄă5z[ůHkş{Ćş_}c¸z°:޸qŁ¦ż´)7íŃ ~p)öhń‡ŤQWËW2±{°ŢÜ>ęń«»´tç#á–ݧµ]ů®Ý? ˙őWW)•­ßrËSGŰ˙‹ő7SOÝö#±˘ÜüDŔ'©9⍥Ń;T^Ş6ęĐkdßµ•CŕB®ÉďŮ‹ń=Ť `PBߪ=ëš…&Ü';ŔŐKg%b¨ľmŞ{¤äň¨Jö®<ňsÔ-ŽŚ·“kâ«)řY~ŔŁŔ ´D÷~ç^âpěo™ý˙d(|endstream endobj 633 0 obj 2582 endobj 637 0 obj <> stream xśµZIoÇrä%áÁÍ~íŢD‘ť(ĐâHĎ"q-“µV”_źŞé­ş§EtPł§—Úë«ę÷aĂ™Řpü—ţ?~{đÝ ÁýćěÓÁ2ż›ó"ýÁÓŞÍĂݲ0ŔśŰÍîőgÁ[ĄE<Ďj'Â¦Ě ĄßXoáËf÷öŕpúˬ™‘:Řéoó–3‚Ufú3˙8 ”ŕzÚÍ[ĹdĐÎOßǡĺbz1o%çLęIĚ[ĂĽAM˛ŮĽŐN2Ç=`ąÍqî­ŔĂD°Ś«é1¬eŇ ŁaV„éYşĹËbž‘Ůçł2Lëŕń 0|Yčţ‰,­ÜÔŃsňýĹl5sŞ0«ŚÉĚâđžŻVžŇú © ¬™~nůĘű^n*YäJeě%^9=ń(QďP ’íy3LŠŃgŘ#^˘F77ČŢJŁĐ™HYľ˙R%w)îąëA™ŚÜ¨љę¸ČÜŢ•r÷č¦I'8i™ ÓwuĺI=éLŤ)ß‹"4ÂŇĄWĂá—şöee—ŁĽŃ{]&} µŻS* …ĹđżTŤǡ§ľ,ntRF‘Dl%×2Ć}eĎŘLę·(0j ôUĺdŞ Zń^WI˝E–‚4VQˇż« Ί¨WÖD ß%3:äĐÉ˙č:F1kTk7°)ű6łŚ»¬BW¸W'OWÂĹáU=–,@ ‘’Yoč‚ËÄŚtö˘”bű(ů‘j=‹˝ĐŔ Oťŕ´Ş/n2ôKř&}‘Ü´őľÜO$@ ¤V[AcčĽęÉŻ—łđ 2¨š>'BŰĚJ»¬ĂëdŢ` ÇŐj˝Ë2ë}eŕÁŮ łÜ«R#†E ĽşÂ=$A1ŃkĘxćĄË7ßNSżń»&K‰*Ş…˝®”V§#JOG)áłX€«>Śf˛×vű ,ÇĆâÁ÷«$ď7ÎěcĺâÖm¬,đ'tĎTůŁ^k¸\LIf"öy1Úl#ő´?ÎÂ@Ś6rL±·wI±‰ľÁý`+:Zd‡&®UgWHŐÉ›(ťľŘĂ2ŘţąŔŁWĺkŽ<Ţ‚Ţj»)đdpů"4LőÁeÉíć>çtą/,‰ĽÜqéAŹTT+¸śÍUă~­ĽŇÝÄâ>Î{śŃÍJ’ŘÉ°QRĚYŇô±Ř ¦…&B¶•ů*.ó廫ß]Ś´Ä^Źů6çüPŹWu{'Ńb†?WTO;>€Ťš‘3´™"¸09ŚřĐűć0€UAş ő†Zť‹V§h>FR·#â>ZB°°’ćŰłD”mśőršo˛t«O©8ëŕ[I¨žd“dzmćŚţé…“IbëW]°ęáF›rnă·=ŤÉý*Ş&â“!Ę|žÁ •ôa€–q%9é·Ţ»Ą=ţÜŃ‘WRĐ%q gEpÄ«ó˘I®s50e ):ĚŰ<·ctÓ9}‚Żď Ő#řBŽ"VCćE:h>RY¦s÷1Ąy¨ť~_M$ż\á¤bÉŘb˘EBţ Q±ÂA6ńp `t6w5 ´U¤ßb\ѬŞóęéťźˇî +i¨xú$•n’A2.Dc‡ĺPb^DŁ„ľ!ĚşÂďś s`ĆV¸÷Ń;őZÎ{DÓBßU!’ä) U6uq›Ą *y3ŮUP™žý‹hłt|6ÚS€\*†ćĐĄxS’€łaY<.NwĹĄ ‚v´ŔNŤ“ ‚%ď+ ‘NYµ§L8ŻłčŢN1m|RË2{9Šň¤˛ŹľŮß"¶Y=Jáu±ÝjĹÄwŢFĎvvppÎ˙JŇŢOdü8v(„띎$ƶbş§‹aôjAÇŞ9¤ŞŹ"âŻt…vł¨‰ îyJL± ¶ô4 â:/ÔF`#UÖ~ÖVl„ö(z ˘ ZÓçÝŻű`p4ĚÔő‡ÓS$UK{҉|RŃmÁ>Dú=ÓÜPU7-IBâl.Ś÷ĉQt–[ąˇ5âľĘ+ÂÍ'Ä{ä8xőŚ*ź„,)a…§ÝŢiŰviH€ÉőÄŤČQeů\y:^âA€ľĚ &e–Č*—v§űżA„GŠŰ@„%®×€(r`#`á3i`˝é™]y)Úôb±š– ü‘ňk&lŢ´ă˙SäĂŚÁ7­HŤ×ă¦JI†ôúÚ·G/ę, ^îŐŽdWl'€Š¬văĐ·‡śĆZó¤ˇ@îĹ~}˛îQ‰p—ěSNľě×JÂ5 Ú¬Ńö1Ú¬W‹ÂŚé„`Jˇo¤`yî2¤pĚ×I+H•j}, TůýŃ8IîďŹ 8Ěbťó2pałůîë”­bŃýŞ?“;$ť8kŻu9ěšćČrXÍŇ7ĹĽţ2âąg˝šá¬”n®Š#´Űc Ěݱ_ž9ěłÜMIG~űŚ“ҧ·.ŰCé«h=@í)rEÇ9rIęâ!ĐjŇVžZPušŽÄj˝…»'€Ä”|@Cč—aŹ˛RrIhć!JÖľăđ¦ÎK} ¤OrO#Xq­c|—–OKßÂ4{ еą ]Ľ[JE7(7WΔŇ5WÖߪórnOÚ®·µÍŚŘçň˘·¤§tŮqŰ2A#&pô^A!„J–Ę5ahŇ?ëMżĎ8µ'CFľö@q‡z«ę¶·ł…’qă$[±]˘„ľcÚă/ŽVÔ‹&Ň  O ăgŢ;Iś§•¦uŮřjă4őřq‰ř)eËJŇÉ%¨R ;.–׺AÄ®úŰ]ô—űt}ÁKH0|\âb+Qşü™‘cÔ–ň Ň_ŇËďkë·Ď.@Ĺ*š˛Ľü* űuH…óř…ŃsRÚ<ŤOˇ˛ÉDtµíđ~dŇĂî×-¸”@¶ż›eý!ÍĂfđ› p_Źňúń6•Zé´ž4~ĂŞł·ŕźWěř,맊ćG˙Nľ*nńČĽ§g0Ž´;# 8®Óărk-ţU\ÍK_Łíé;őRď~p^»ăă€8 łąÂ M†vý8ďÍL±Ą$ŁůžMCďV{ üĄÖň«ÇŚ+4űc‘ Gćx[Kš_­¬~&v^{˛˘şk€^łÜt Ą¶ŹovéˇĘŃ·w†şţpzXX›ÁQYŃ=ă%dŃÎŢÔ˘ËÍ÷ć(#3!łăY¬žu»l°Ü«—ë®Ě%Ú/żOR ˝,Ő;i‚ŠeŁňm1)Ôġ„Eě•üŁźlóé16ëpFúqÇ×z•MŹ+ľ™(ćL¨Ż&·ívuďkË›n¬/×!Ä7HćzčYÇC;ąÉ ŞtB&×s\K١†ďw˙€˙Ţ}íOendstream endobj 638 0 obj 2784 endobj 642 0 obj <> stream xśŐZYŹÉ ~ź_ˇĚ(a3ę˙K˙_Ý]˝|èť˝=]…÷36{őእĐ´jöĂŇ/dzĆ)ŃšëŮr{ĹŇ&±3e)‘r¶Ľ»ú˝ůqÎUÚňćfľ`D ĘxÓÎ)QRYËšűü¶ĄNkxÚĚ9ŃśKÓç ®8qL4,oĂăż–íµ‘ÄXĂĽ6°Á8Šýíjůçß›WţjťUÍ'8B(!Ľ ýÓÔgĽ2”É´¶Í-č@Ą§Ťß/7Ľ9Á.CíĎĄnć@g®e8W+)ďĎ]΂p'ŤőwWÄZçD”¦µb:Ę€Ł± f‰΂5—k0X‚ÉŐű} ű íÎk¬ť•Á’ýŰ[¸’ÓJq†ŽĺQĘIŮĽľWď!%ˇH‡ĽďŽpŚ©ć:žfMłÎ/wů\pś$\35ÜX€b«üŘ…µp{ÖYh×#xŢIâ”Ä»ů°ý° ‰jóŇ]~›—žŔ'V¨dMµIF†7çš0-ŔXHi¤ ’'Ě9XËBÖ8ď¤tPZ©…ő>‚{pĄEď#ř~›µCGeť¬?€N FB©ŁpűĽéŚaĘ]„‘?¬ÍŇŚ ĄVł‰ŽF†q›t„»#ĄMAÖq® HĂľz7¤7Ě*?vyAM~¦Ći)+`öM`ę4UÍ"¸QIfĽ4€&ŠąŮ‚A‚ňb‚u˘))ŽŢ^{˙´?dy`ÜGŘ-ŁLĐCB íßçÇ‚]5ÄÚj\mü±đ/@NÖó€)´ ”ôťšăö]Í—ü Zźˇ±®7ăȉwYă[ät˝×Đ.XÎĂ÷¨¬r4…¶°Z§kásĽJ``ĆćëÜÍ=f€ŕ=ŢŞ&»č|Tşý6+wŔáÚ) ?™Â=¤(PđÁjRŁ «Éúş°ÔŚ+•Š’n˝`<Ţűőë}JŃ@pmĆ2Břz0 ¦x¦äNă·SÜĂ®p€wE=ťLµôŕß" ^ÎÔ/ów, "ČóS¤*Ëy=ᩢ6Č*üŻyYA‘"Ĺ7će”Ą¨úĽĚŤ†zĎ>‘—©éÓ_ ‰ŕC%ç%éTA¤.xávô·ťł°T“Ľí‰(iNč˛tJo‡Ç–LB‘Ů Jׇ9T’śiî·ÎÇ#žšAYňŚO’ęhëŇÁáűýhipR1Ęws`ŇúJKJKĽ»~ö`TÖAŠ°3ö|\ú8‡@@šö™KP(ŁKč{ýťs JŤ(3gĄVUCZ]Ź÷‹ocBvĺyA% ‡ÜB•HUÄ-]•E|gś)„ÎlX+} %y°8„čÍČĹb‡\uŤĐż `6ŽŤtY o#cĹ«Ś…\­ä˛Ů3ţ/R·ľ5«”=VYńDýőç’G¤D öŢ>Ϭů8Ɔ!‚Öî‡:č1]†+Äv)o(ź6.«'Ým~ÄѶ¶"”ë:ÄŻ˝|ćđ–·ă— †QľÍÜSŻ®ę°Ţפ~Q!8*éÎő „1ŕ!ű”z•[¸WĹ÷’Ĺ /qśá8ć"‹™ľA=źW QÂ$Ş(QI0Zx|,é$bTĹ!ü#ű"Ö@@Cˇ0®ĽËdŐ (+Î8ĎAuwDq*úąĘyČŇ9ÚÚ"Äs_ÖGűů{ĆXÄťőhÁą&•řźň¦vŘtçZN‚áď=ŞS-áüěÍĄúů*źQ[yăŰGÄ´qą *ŰÇ‹C ŘČY,ľZr?s–˘Dc0żpŽőgťÖrţ¨Ź0ŔíB÷ˇů&OA^ĺÇďóăO(_ý2ř(Ż­OşÄŤCc’iÁx_ $T Ô«µ‹5\¸˘Â5ÇÎ+eQNF±Śřď~ś8ŇwÁ^†2x/}…ŇŤ`ă–*Dm¤)•,€Ë‚ęČŕ353T’B‘ĘÍ´{ĺł* *nŽxüMäWMYŹ˙ö§8 łŞ„Í^^[Ç/ĆHŰ!g”Ł.Áoć+Q¤5%™Ěđ-Šš ë˙QăĘ,'C©~A_ ĺ ţçÓJ.¨ťŤ˛—:´ U’ü¸Rű=Vń˙ľQç¨QŹA‚°ç7âăŕë7!‰ µ “N߆ĺB“ÄÍĂ®» B-Ĺ?'ö/żľžľÜî>˙vÁ)–žĹä2QuXoŇ1ů·f{8«Z˙/'¤4Ó[ÍíHéżżţqŞÉ.‡)b˛yΧ͚L­öí¶»ă©«üŘîOw»č Ĺń§Šţ§î¸ŰżéŘ“ MýŞ·Ůę¦=¶«ns<˝đź5'&+ópł[ÝL}Ú+ŽÚíáÔóŞŰöAIm-7Ýaj§ŞżÁxÇÓ#źĽĂ©ĂţzĐŕ(˙Ś˝˝­bt?}{˝™j·ŢťîoŰÇÍzę±Ă>-ďI~ĺôd ÜĺMD[yöÇÍq·ÝmÂiJ]Űn*ĄÁđ‚ÁVí~jÜăfµŮ}Ü&‹0ŻíÚŰ‘}×m×’:RZ÷·Ş«ÝVçӵțö‰—­&™‡Ý~}xX” Č!\kPéŃtŹ÷Ń㥲b_‚ďűÍăőˇ=®“‰ýx0Y¸ş~ĺiłŻxw{<Ü]¶ëĚđä «¦Âvż.ÉŁęâă¦Oe]4”Żź¤ü—5¸nWďŁá óEg˛ÜórÇ°i.ŰĽŢN…´)C”°9ßÇ\Š"aě tźAV==3ó잊ĂjDt›OÝT…'™[Ä*&ű‚Ý‘É~8Tk„ž”íňÇđCą ‘ÚÝůTąEÍŰó>đYâŇ’ű2˘´P5EG&ë°Ţ<7íýýf®=훋żĹa–ú‰˙Sśźçţ (-†›źŠ)ÂĐ=Ťű™ńCGt§wáçr†p&âŘ0 áĐ])éęsW4Á¸8Ł ]…CS‡Él|űZ»QÝć…Ĺ0Č“qVß]řH°bĆŚG$ ζzô»Óp¬ź*F4CąąŘ¦Ró‹Ro¬˙Ćß“ü©¶0Îäł…˙1EA/ęA-fŻ–W˙€˙ţ \Łdôendstream endobj 643 0 obj 2485 endobj 648 0 obj <> stream xśµWMo7˝ëWlOŮ-"–źCňÚ˘—˘—¦zzp%Y "ŰJ­4Éżď ąKW«Úř šä g†ď˝á~ě¤Pť¤żńw{·úፒˇ;<®Ň|§ş«Ź+5ţ#Ç]ÝŹÚ¨ ÓRhč6·+5(cDč\ÂÚns·zŰ˙4(ÝżÖJ8#•îo)śu!¨ţTgϸ5ŕh?hZ[ß˙=¬µÓ"*Ó«jdËđĎÍ/S4VřŕE>F ě×Őćű·ýÜ "c<ÍDŁUŔÓŚ3FăĘ‹č}ŕËŹ¸ěĄ•Tý{ JÚŕű‡byźŁł!ö›!J˘4“íąń™&Ąu¸^&ÇŘeě"ć­Á¦Ř­Vę)öß©&FI‹$î˛:–ť` T+4 [¶ţ> ťĂ40B'B¸ő0¬ŤôB*ŰÖX,‘q|óąń˛ŚŠBBč˙@(0 rf‡őÜÇÁüč ĎPX˘t,ë~:zY&ÖMDĐ\—I˝´\m^“#+ČűˇLžŇ(*ĺ–㸣4‚Ńő»bÄÖ«ŃąNŽą)gxqţĐ‘–Ţ÷źŠ'f´ŻwňH‘FŞqµ”Ć#jjřÍ2łÇ \ĐúZm 8Z2Mv›’Śp­Î^ i!Ď:‰w†X¦Çk#t4Φâî)%dť•üSćL\”oČ0 §ë1‰ÜŮWś`’¶ŢҬ&X‚·ˇě"÷:&&ôë2K…XçJ¬ęL*äPa_‘Ęŕ[SĎĹŽÖň»~¨ć„_đxpzĚ]%Čq _Xą/BCŔŘŔqx‚ńQhOüJŔÂŻŹőšŘŐW ł­íŤď#Đo놇ĹkZĆ޶–ů˘°7ŽoŤŽsaNF§ą&yĄ ٬â˘ô:ż'°l™9ŐÔ1|ôOp#ßGÓFR#×˙o“IuSţM¦é,ôÎĐpĄsÔ¦çź\Ö¨t&,ĂěusS_Ëo&¦wďęëł ë’XĚkb%ĆËňfđ“ăE}™÷H:ťáůô'bX'śžqµ«]iJcynK=ĺdźŁöYë,'»Ŕ›Ĺľ˝ü@»Đl=™9ŐŇ/ž§Öé¤ ]őŃ&]5Ů^^ß™SÄv«–?,.ČÎŹo{+5ť¤đb\Čß6^ĘęŠJé« ?«Bó©d¨ű€[-Đ×$VxBŘç•ĂVé† ~‚¶§VAnźÉiĆ©QřŰ|*°ÎÂÓńď®\oŻ6ŢĚ r3ńâvđ"Hb7łiĘ?Ö<^©DmwL¶UŘ”Ööś,ecŔwíČ[ˇ\Dí7f ĘąŞ8 ­?oVżáßżĹOˇendstream endobj 649 0 obj 1275 endobj 653 0 obj <> stream xśĹ[[o·ň¨_ˇ7źÓölyż¤@‹&hŃ-Š¶*ú…,Çr`[Vd)‰úë;ĂËrČť4p‚x‰ŇŔ#ö—ł‹_|ľ»ŔOEÄâŤt.ŔGൎZÉÝ;ř˛¶Z+üľT^íáÓĆ.ÖęňwĄÍîe–ÇGµű5:ŤJŚËâ e1í%h\żpź¤1¦} j aRűŔM[Şč&ây»(g’nf F(˘›^T4> nv !F\XŔ kAµ÷ °C9ńQ6Ń,ŁsVşÝU~)A˛uV^Ŕ¨č@´´lđ(šňb đrř€×‹‰˛E nÚă›6ö±¬ŕ“Éʲ`%ł€ŚÉÎn‘NX߮ΟҌřb}Yp:ŕKeě˝ÄÍi+‘ĺ•ő‹’UÁ´Ô«őďmd¶OPč`4·8żű.m‡Á sŞoń›QY§aŹWSEźSˇÓŞ&PĄnÖżńľjKó·IV'ÜlÖ‹=zŹ˛ óâ ±˙f„¦JÉf˛¨łr´·»ëô×(áím{l†Jkzaŕń-ÎG­n0NĘÂy©BQÉé‹ÍŇŰű¶›ŐřŔ 茪˛n á%™UäŃ«i`ޤ~K<´řŤĐÔďÖ—Ű-FŕlĐ’{hťĎ`zmí˘„"¦'î\lEXĺ–tţ{śďÁÝăîYó "âŕĎŁŹôh¬›Kiăőâ«& mö˛Ť%–! Űç„]d »?PeŻ`f 5Hj1ĘJ5$tиí„…ćP ŽĽ¤čČFŠ±x0šă¶@Â,VUL41µQđŐXĺP@N}¤îMŚ™ĺ$(DK ]Đďߦ´´yKě÷jÄ.[Ü?éq*kň˘ówĆI‰yHtÓr-"ä]G˝°ˇĄGlĺZŃ%!)ÁLTqޱ®óö‹4٬ß5äĺ&śŚňrĚfiC7řL+´Ŕ ® Yx ÂďţEś°9GŐQ;>‡°‘}–řj9ĂYµĎÇćO>™M“ëř‹L>&V\`pJ¤XI*?:”‚T´ GęŃd[HžyŐĽá $DŞ˛@k#38Š¦);řč©Âcđ'VľăňÖC{üe“)í“ôqÓ}ˇV0“b‘µ~ę| ·_ěÚî÷át•ö MĄ!c+OŐ!!Y…<’ĹžŞ]P3Ř7‰ţă6ŕËć8_ěq·í˘»tEDxŕ›H[Ť$á]µh¤úÁ.ŮčqłÂD¬UÓÔäřUyčlĂ.ľ%ţׅݡŔŤn] DmśÂĘ˙P;h¨!…0Y>‰ëCťé,tEëă‚›5´]GÄ°S»Ođ YŇ||Â8đ>p°× LÔŃ%Dâß-„Ľ»=báS$®“Ö‘7ëÓ‹ôQ€í\lłŚ±v.× ·íqLČÉD…[„•Că‘ĂKvuź¶Ădčýř Ú;2ȆmŮ‘R*ˇń~ÜÄäŹeľ·c­‡oAîO÷®ťŚ»_¦=j‚ňčUÄ ł*÷V˙†ˇ&DCkóÇőéw« +•†°hąçřÖŕ+*„'łßĹ Ş¤¨l& IW}UcuA0™Â…±Ĺ’C¨˝ †bÚ C®.Ă0ŤH_áćŻęÁťŞ˛¤ č’Íú…mÜĂ·7mZó‡śy˛ÔkYvY3ă¤='ĹQóÜKîĺU{ٶ$ś«Í^Ř”BA$„çŘ-˝Ť%Ő:m,ÉJ¬®jZzŤ%Â`qĺ0ýĹÝgÍsG‰bqí>ě×Úu]¶Ęz “‚B©7>ďjě2ôn Ě‚Ň^ZŞ1ŻÖWŇńi”Í’wĄ‘‹´±z9ßZđ)¬ë”óK´jóžíˇłŽ”řf¨ŢlmXśRs>É:ÔvMS±´1Ů}ĚUŰöŤě b‘˙¶żŻ둦[opĄoו/ŘŇśÖqŮäR>]dÝP(“Á'€í1ťܦyćŃPúi7ó®ćł$@”vÖ‹.łđ #‘ Ž?­tt ¶ÁąK'qYŕÄĆťJĹ©FĹĄ^Xjc!ĐŢ·—隤X‡éxĺç*ĂVH»‘Ťý:]ˇŮU‚ÍúPöł ÝüB[)’—ąĂ4!G¦€üTJT•_z΢ľ?`ÉýŘŐ1DöěRi­0wĚX*_1ĺżJ»/×—¦ąČˇ…Čç¬ăTę@Ť¬e ÇX‚Ś‚ÍqÂIçVŐÖP@Pć˙łŞ·!‡Ŕ¤O´ő°ĄD•ěk9ł4^F#“ĐLNŹx‰Ĺđ ŕ˝mÝËfmľ}ęX4U ABĂh'ÉëEŃ«Ç<_ŚĆ”–őîy ţ:ú•Ĺe”ÇS €C­=Ž~b‚›‡Ńn1đ˝F=Ööł[-|ăçq ĽÔ]®út'#Ô” ¬\ĘĎ…’|Ďq¤ĹCđč]Béňną|Ážđtĺäˇ!AÓ» •Ý‹q- IţÂsŻ:ąp[, AzŹfH޲hŕůěˉ„}•yňDz±N‘´Ç«ÓîhŰTtĺjľďö€đ‘°–8ŢĐC–˛ŘaëńĐx…­9ĐÇ5 2rC>’Ń«+č×}ÓŮ„‚î®”ćĚ ´SîîÜ:^íŽK 6˝Ů†ôs 3\ŮyŐjŔź‚J›ĹkߧśšG¤¤ĐHCMŞ˙keÉ:ó±˝Ö˙VŃLŇ_8I­}ôĂ.‹! x¤OĘŘÉfHÔŽPć+ÎĘşk&AÍéQőä«ÍŁî‹ŻćŐ퉿Öp]ö™P,9HŘ"e&¶»Éň@µwŹoŻl;'Ś…¤µJ! ‘yH÷ů.ß˙Ź)Ľ”'Ĺ$}°›:ů X?IŇ#Í üĂöľÚ}hR @E®L{Ć^®A::™§ÍŞyaÚ§Á׌P”×eÎçÜaqü¤I_A57&ů€€ť ‚řîGŘ樓ŃçÄÁcI>ńČ©O%‘yP}đ8IlÚ\‚?Ž‘4ŻŕĚÂłB9ż°ĺÎIŐÁ»ě¦,"źňÁ ]™Ĺú1×—F+Sבř?îĹSúłbĂ-ňÖk˛Ow¬Ô¤ÜÚž_4 l¸§ÜÝô˛ŹL—"ęMRZ†ÍĆÖ#[`ÍÓx_+«ăÜcĹÔ˛ÄöňŰ©· ËÖ"ŁâcŞ’ţąžVńˇ»ĘęLŇŹăŽPREAö×w´¸>rWď?(Ź÷ź>TĆ[™Ş)W•yFßJĄV»ďąkŃW1éç/2Mhľ†˘ČtCdŮr=‘rJ*ŮŇĂÍ TGÍ×Z™ Í#@»·h˙ýú®@&› Ď5­^—“B˝–H*ŮÁ˘Ý-ăďUoBâxU”ŚmŁcDj\o!8BdŻř]ŮÖ‡őâ{şP5çIěŘíĺźĆš‚ˇ ČźČňÝÁô±’[Ű®;Gš’:’5[ öĚ{%׸K˘Śĺ{xţ§äę< DOŢâéÍŃ#'Y`M6¤*coG_s6ŕĎţÓfmĂ…-nȲŹ{(´ÖqmŔ!ćm‚ÓiëX—¦ĹK !Đ&}_:¦Ig0đŁÎ/Oş{â «™oóf{,”Ôt±)űŰ/ş0~Ô[{N1ýzF $Ň|EľË`q†€ĺŤ~öŞŘŚű™H·eB ŽZŞm}2˛ĆÇ’ňüŠM@Öj{ÜÁ6ßŰčŻ»Ş OĄ…YĐ.{$ü¤Ś”Ëž .Ü$÷ĄôĘWőŁöIĺŕ_çlňt y—Ü*¸ę˘Ó.Îţ˙ýĎĐ{Hendstream endobj 654 0 obj 3685 endobj 658 0 obj <> stream xśÍ\YŹÉqü8żbŢŘm°Ë•wĄ Đ.vĺ5dKć`’! Ů3äŠCÎ,ŻŐüë+"ĎȬČîr(óŔbuĺÇGćĎçó$ÎgüK˙ľxsöOĎÄĽśż|Ţź‹ó×g?ź‰ôź9}uţÍEřĐĂ«IĚł=ż¸>›'żXĄEěĎj'üyy'”š–s»XřĺüâÍŮď7ßnőd¤övóoŰÝ˙…üU%ŢO[Xź5FŠÍ‹íH`Ť°řŇjJoŢoŐdŚ×zsYżŹŔëĎOˇŤł4yY»żŞm>`źË¤”€Ç2č«ş řV©eňҤY©Ů‰ÍŰv(;[—Ú‡źßUş~,_¦•(ů”,ő¶Žú6-ŐäőĹVq®†¶Uú'3%C}¬ťĆY?/t‚WőŰ·ő[KY`łą+#V·ĺĺKv€4m«–ÍčJ,ÓěÜ“€H+ŮÍź·Č3 ˇ“N ¬ň‡MýŽ#ę®ţţŻ "“zQ›O[[ ié”n*Ń?6[ť?řĂ'í&­›v„@ű´CVŇ-|»U3RŔÄq…wžnëë-HŠ˛đa+G\éN$±řÄŠLDÍr‚.W¬šŮ:ýηOŰ7+Úţcý”Ň vš´ĐuiE>}ŰoR‡ôJ6şr 4’‹śĽH˝ŔL˙Ś± †$|Hú¬âCxž|Ją7-ó¨_mAµčFýą&tyóň É@†‰´ÝŐoŹHŔ%;óWiµ˛‘᛺ŠJ#d–Ĺب“.óŇ Á‚d€ kĺłl<€vC}&«äćy·Ř@N"D^#—¸i†ľµnY"7şĄ!ýb&Łš··(|~šĘĎ9ńŚ"“HP„†huÂÉU?“ÉDŇk0ĺh4¤”`©Qi Di5árő4[´¦;)ĐřŇęneaȆ`_­,We}AòڎŃH_-í%đ¬«rç ”ŹCéżµ1~™lkZµŠ{ŕćŃşë‰Đđb­älAqwV2HŤ34 "5äN;Ó*)Âpá÷E¦ŐóVŞšł‰CŻ/ÓĆő{( ܆Ĺ:*jDBo›ŽZdŤŠÉŞ(I‰,;!`âđ¨S?˘â@ŢŢrĚJĉaµ<ő©nF¬ &˝…b6˙ ČUűŮšŽ «HmÁŘůÍş9¨'¨±/5,Op!tP#*¨ŻŔT¤°ňMŻdú~÷uŢ#'µś ®jnCŐB§Ş¸^Kśë"Č\®˘( ĚX PĂęEä5Ď”S"Z¬Ąe_g„ 0ymŚKŽřÄńŘĺaM&YXőwŐE{ŔWűŚÚ@˙wÍBóŰ7(]Ŕ×07ŕF-ý:Béúň–íęľquVţđLÚť_üćěâÝ«äôţŕ#€H@űÔ#›hŔős˛W(nžŔC°‡ ťs{‹[e ěý'*Jv×É«ąŞYI«?GŁąH96©ÍSś§™H‹µ¸ kźÇŢUý—|'}ĆćjĚ>6Ýăz•ë•€…-z ×ě[ň-Ź¬ö Úˇś‹¬ú)±LKݱhâd¤S(íó˙ŐˇNµ!v.h‘‘®2؉=@R^ąě©Ú~ťĄ\ŢýĄN¦ú]"@Áuż%â‚~±u“”ŘZ93Í  I\FÖÇ]1@Ď;p0űŘÚQ±x[ŰďÓ ”Č@ş®‹p&B˘ęĹ× ‰Ă|‹ýĂ.Ű…*ĺ[vżď(ă@UKž ZöUÖ­Ţ."(ŚĘ˙d;/©6, §ačęeyů‘Şć%*Gu,&¨ě8Đ‘öř.Š l“YdV>ÚÉ HáÁ@ź5 ¶ă÷ŔL`IZď•ž22wśj µV8­:„Ő+~"Ţř j :śhÖÎs'ń’_¶0Ąśéě[jωőTÉPŤŘď(¬Ön5Dra†š ‘|QW_‚ŕI[mBŲ|k‰ 2‚ç}¨¬ĆżbŇpWíŕĘhŕ—ĚÝUâîůô2t_„\m=5H j—3xٲ™ˇÚ‹Şí_e§e% —Ż™5lúC#0Đp‰24–h· ” TpšâRLÂ.cĂ4üOë¶`©ť>LŮg…ámZÁąŤ!OÓčŐÜ2 H±…s•Uj$pžfě€öEâ-ţ1ÄR‚ÍA·ŠNT†*7}±˝-ζł„Ń‚9 /ŢĘ –ÇWFn®O„A‰ażit„'ă8ĽĎ#-"„`Ż ţŠÜžĐÚŤ1wÁHŢę›’îúMÍ`±®g }´±śŚşt«}Ćz˛ŢkSŃEJpĘŇ‚Ç‘ŞĘ/ K€F) 98>Ć)Š@?JŃH÷cXeT7- ™~®Ů m&pď}ÚXÓdż"°‘M#ܶi_zćĹĄŔX©O˛!ÄIŢĹéţ÷Á@­QéuĆ/ŮO'rŃ9Îčr*OľuNë¸CËt<ţcŚŢ”čéOUa !^˛ ÄĎá> –ĄcĆđdÄid#ź¨Î·űyĺ-c_şÖÝvÚ~BÄ=@ŇiĽA¦4Ňg®łŠýuś±T–—ÄA<<Ŕ $űě¨řÖ!ŞĆČ°]Pď?sí`T‰ČaÔYEŞy’VH:ź +˛WÚĘVŽ [†v/‰€Ŕö‹ű†u=ůqBń’@ź©íÎ[‰Áî_Ăf‹ś‘†čÔ. PđńâlzéçP|Q/kÇ7q?€’›ď·ě’búC»sřžěâŁ`_Ť¬űl+Át>÷ďÉËÚimţé-w„”ľ•Ö¬g:HߪAůŹ4Ó0h4“ż‚Żi$đô?î"Ö+ü]Ŕ¦ib%źI›ď&˝Ý'Ö;šĹäÚŘÎ{6°ŕeh ˛e­"Égy¦Ţă x¤ÂéÝĐ]ň+yHšŞ§SŹť˙ȇT7MĆVńáç'he<č9A-O©Ż€ €2Ő#ŕťËw¤fÂr™&¶Ď­ĹÝs3Yšő™ŽAľ|§őűB·şÁó×™ĂHĄTVŐzbO c‡­»-™­Ez ·’Żż@bO¶4 ’DDź×Ç?± ×€ všŤ‡ŤŔi—K“![Aţđ6×ŔµjČě)ýŇ–±AGťu!RŕD-Ă%9E­T¬M`ˇ©ëE‘ Aďż› ZĽŽô«\:šČçS¤ß]â%dHíš-kĂL5¨xËÚe^yńń˝uľ·Ä6"y ôl :_Ş+®ůPÍLCA"Af;p0ŰÁrĘ´Ťđž=}Ë—Rvî&ëF%/'Ő D/çÉVUĚGFrOőÓ¤;`g“:!Gş95pűÄ™Č$)xžÄIZÎât_G˙»S¶8…xv 7+–᣺Ř×]%$I–މ‹Ä9VyY¸s”ŚĹí”ĺIhOŤA1aĺËj­ŘŠşG( Č&7 ŕ…äőüp_YĆéĂHDŽGkË–-KqF+ĚTN'[k5<+€R eÜlFµCü šV9íOH€ă[=Í[E†n# f u–3Ő«0Ü]dn î]´ť 6m§uXo”Ęv|S~çˇÚëúČoÖËLu»ÂL5ďÚ˘6ľ fĄŁ|Ç=îÚç[#$ Rĺc,zŐůĎý=šc57Ő]Î5Ő(a¬ëŚ3 ™÷™uő™ Î18Í đZ79řÎ/ęăOĹ÷ífFjü‡ôŚ^ţ_8Ě?ť»®F®:X1ś«ófóäĐăbNB>ŽĂ˝ ±<ĂŚ”2©ĎUľĂü4€P۱B*á.‹Ô}IL5vjü#; -Ř©t§w¦é!٢Fß@–ĺ‘ ]i `3A[ÜśAÉ‘â.üŠ©U×°%S¤ćTsŕ2nÇbÖęú5Ěm.VřŤNIµr¤—Ńăc›+Ěđ¸¨+‰l¤ŔtHĹĂ«Őád$Ô}­ë‚â!ćěOѵyť'čÚŕžHç/ýŹÄç·ëz×PîT yĘŠ&?™BDăúžŚhľfĆmÎŚ˝šlĘľÔä¶â‘‘xSęxŤšäOś6"3^ݾҰ»IGĄˇ ¸Ż0žQ©f!ŢƢMŠ’*GŃłńŃ¸Ď 4Y·!îÜlD_•KB3™v¤{6RI&ý¤ę› Ě  ¶ ú!,łěߦi®tťLm=ÉdőĂb‹ňz@Ł)śĎ—ż¬5}ŘĎGµ—…Çěe&lަĚ)]{ă_dvĹŤ5P‘•äC@B ěęŚg˙Ő<8dô–ÝA6pMä«D)ŘŔwË[ܵ $’G¸dYłQ±T×ú,JNE4 ô°Kš@iő?|‡C€çHs$٧ňćIÖNnuŽŘ×’kšŞ˘ń¶)ŇĆŐeś ~ZÔvHnČŻë§$ĺvËÎ`tQQ–Ěć¸Îů w° éŘÜ(8¨¤ ńěÇuRµz”AUu8*©Ç™¦tŘ×N‰®ŐJ ł iâ<ľăLŢĂOV¤D¶^P_(â]ňĄj mĐL<Í·?ş.݆uôÜbos"¸Şť•˙ÚłnĺýuĽ¨-g Ĺr¨ßg<‰ŢX"Ô%liSęĆ×űĄË@NűË$¤®ľ‹Ź0cV«>†aĺt¸ůłJ”;•­\óu·i )1’ňčšÚ« K•?±ÚićY]†R’/SéˇWiź.ëj„7—”«“CđZŹ@Véč_%]3µ*GëňZ|:¤ę¶¬a!—Ć®cLVjr”FŕNˇSâ ­1“¤WŔŐkňŠ€^NËoďjăK{ž¦Ú´9P?{µÎ›t@Č-žUbµłŰĺݱK<Ź”M^§ţí#ç’¶_ťO y #)-Žž•ęÎFŁusŤ Ó:Žâń° ]‡ÓD°®ăw묄‘ú1nâŽ- ăž!ÎÜ0‘…VTóm©Ý5†áŠĐ—şĹÍĹďHłc¦*ů.îkBŻĂś¶ĺ"ÄJď%v1đ]şŠaLîë¦$ă’ŞlFŹŁÍrÖóőă:ÄŁ^mižCBĽ´5ľç^=1”ýż:Ą¸®nxŕUŞĄ(ş RßsâH•HŚXúz­Č±ęBÖ’:ŰÓóŚ‡k8cÍX—ŮUg¤"ÇÖJ%Y>»“k±‰÷Ďűvýéž@”Aůtâďît@=ÚzBDqtÝáĹĄĽµ °*§·,=ôŠYÄFr|§tŽ]˛©€ŐXľtŁ›*+ćX5ŞžÚŻć˛^?üĚ(Öt×…¦jSt÷ůj|§KÎËLĹkaµ×O,yî«đ6Ɔ2I­uuÄřJ" ˙\>«Ň¨ó÷*×»ďÄ9ŢŢdőą‡ys¶ysűéć—íĹźÎt21aő›ď~zą~ý/żľú€oÁňĎĘ/ůăWWáeţęrżwőţ}jŇń‡Űk|ČŐ‰|wK ßîÄ,¶ś“ÜNî—ëő,®ßżĂ—ß]śýüý.±b©endstream endobj 659 0 obj 5188 endobj 663 0 obj <> stream xś­Z[sܶ~ׯا.·ăĄ € {˘7uµ±ÜĘŰd:’GC‘”–ń.ąćE˛Úţř$XIÉtśøśëwnÜ|]>ZüĎđw¶?y}‚dqמýZ|9ůz‚†Ă­Ĺź6â"-]lnOź%”„HŇŁaŚŘBí!BüdA '‹ÍţäŇű~úő~\­ź2FIä˝3Ö_!ź„Ţfµ&>faśxďĺ’Č»X­qř!N<´ZG~’0FĽH/}X†ˇĎ()(’ěâ H(©ńíŹĆöĹŠ†~L#ćý‹ó@>gg^ř¶#PŽ±É¶–Ř |!Ąr(}šÄ¦8g«učĂqD&¤Îőúó毵č‚iČ­Ť÷„4ęËRa†Pä…j)‰ŕpç`Ma ľ‰Rř s Ţľľż]m~=Ĺ“$ŕ÷6ů‰WVůí«{˙íE‘ć|› ź Ɔí®)ŰÔŢ*eSdÝî‘źZ 5 }RlŞ5ŕ=­ŔĹŔ6&4â.—>7#4Á1ßf,[bn~Ě1H©÷M_NőrĎF”x‡ LľăŢŁ ‹ĽBzPäŐúÍ-w:k›„*~•°WŞ÷•˘Ůrď‚2°ěřŁ(Áđ¨YČăÔëŐŐLl2pąyU­M¦Ă#'40‡|ćüédóÇËIxśĄ˘ Ŕ]@ĚÍĺ*ŠŕqsÁ13 ¦ú´%áqRű$‰·đqĆŐ=§Ďp‚…Őůtd4Š06fqŕUË ÜÄŚŘ€_nČŰŞó‚óÇ~ ŽÉ$+Tk řܺʧ:†fŐ ¬pô,«AŽ–zĹ㌀~÷.ˇKM©Rç-x+˘ŤMFŤ–©W7 ťŚ«Ą6šˇ)^‚ąXnůS“Öš 6p·âč ě'ˇ ÎËÁ?⸟ĘhÄ#!‰!ę”z@%‰ĆöŚ·Őʤú26€É×}AQ‹˝}Á`'—1‚şPMňßzPvÍ W7×Č4Ś,őe€\Ă˝ľŞĎőʡ\f„Ĺf8Üč÷C`PŃdĽ‡”†cç{źT=1o ±Xaě‡üܶë€áŃ(Ň_ „}0 üÄ3Ľ ±ďwŠŔAłŐ(6íů#¸AČŃ Â!¤ĚđEń*¤ LV†_ŐÍŢň:'ZÍŁHCAśżQň=_ # ŻdŮ94ő]“îŻ÷Ĺľn/¤˝ů(ńÖ§r lîSµÜő<1€ŁŘűĽVۧ…Z~+2uŁďÔvqĺ©őŐęíęÉŞ/ËcD†Š}9…ďšŔq,PĄs´i™^ęhď&)ÚµŮUáŔOhčý¤ű2ă®AAÖ“HB‚…/ ÷QýČĄ»âe3(qĐă‰Sľ+ŹÄ„ŘŚ‰ _eŞČ¸j Ó°ŞÎ$¦~Î|7ɉ€µT0±R-áóĄ… ZÜđ÷–‘ă#ä«˙kĚŔ;ť@µAhě]“š š[ú¸3o­SÍ©čá(°ŻÄâ¬FA;Ä7 SÇAµÇČę)‚CbĹM¦xˇ«Ęđ÷Î Ż{Ă—F†7ňö4Ŕ1'Ű`R *˝´,Âśb[v|†ÁĽÓ2S÷¤<«w\P‹%3ŔAşäÍîý Ał»ůÂmL*âĂyGŢî B‚0Q#XĹ ßĎ“±f¬7:[Ë!!pÂ@gç˘  }¨ó‰Ů™DD‘K°9-W!olé¬2ŽňI ?RBFţĽá"l7ŞB(„ę¸64˘ářHŐ2˘vRŤ{w¶ŕť ‚Ř!ÂLtűęĆŃ–Hb»ÓŠîŕĽ\ĹĐ…€™ÄË4u§49Â*r,©nŤ‚nhnÄË”ľč(âЬ4FXžăç< 1$e4­$őŘUŤ‘˙gç ąĹ‡ľîHäDśÁÁpR9Ťb'ń‘n-uF2 ř@Géväe»C:V¶ĆG<:}FQü|ŻÂ—Ď÷u)ľ`‘ŢńX>ţüĂ›7´=}MÎ}˝b,ńcžĚÁŮ{Ă >ď?ś Dmň˝ák?諶Ľ« Áfă•U'x槉¶î›¬¸ľOˇ+{ËŹ×4ńN‡âÂëׂS-€úBńn·ł)•UŰ5}Ö•uŐňSN‡°d8M›Â~˛ěš4+ňĺ «qýĘËË6ëŰV*ĹĐlĘ“›bW?\­üá+K¬ő;ë–­e\Żíooˬ,¤ň0X‰°Ś†]mż«+ůýeF­«Ą"Ч„ZÜnëĐ®>du^řöç ë‡âľh^ŮjĂve3í¶ĄC±}úhóĽ)loőUUdEۦŤx@±O5Ƕ¬2ńfM`JA _`”­Cѡ׷uĘęľęŠĆöŠ}*Qşk—`p8öý·C‘ ÷AţĄOEzrĘ ”E*„‹đôSŰpťN©ŚaÖë×·}×7…ď …*\n߀żš® 'Ź €AÍ4yaÍ1Á“—­ĆR†Ş#Xś&óỺ4\dřÎe4Çűĺmą+®›â®lŚ#!&–ę›_ÁOŔźu33»$.«˛+Ó]ůoňĐ+Ăا 7ŽxlŠ4/«;‡N®\ŽÂ·Ë! ”ĄM“>ú3”ť×]á Č´sí:X–U^|łă(/E•·6ÖëʶŚeđҦ-˛lË™Ŕ7eç‹+/Íş>ÝÉ”6Ť_űÖˇL]9”âPŽ¬»ĺq™gŦK»ľťI<úÄ·EŰ”{‡ő%x`TäS?šĹ¨-I›Ţąí‰&“YšmťPjŽđhgŻëáŠŐóÁ•PF^“PţťfSe E}öŕ»!˘#ŁńČýúTĹ%´L|¤Í*Aőň#ŽČ[` ž«‡‡©ŔűŻ•(.‡Ę÷‡‹÷ą>;‡˙D;AöiŁč^üó{Ews¦¶?ž«ĺő‡węƧż)źeÂ\Ł8ć_*źK›ż8*â aăŞrxŞĚ‹t¸ixéa[f[RŁ!m·>8„pvD]ó8ŕÂ,u®üśń’>»VąMr[?8ŇRç¬ůí¶îwŽÖQµtÂŢŐeÖÍ<×ß:łCS,[;ZeçrüQ»†N04"Łp´´®Zʲ4˝xî°+487»b˙Jš‡D ç͢«/ş/ž_m…nűJö&–wE·´ý{(‡ćzVçÚz'A;3«Żť&‡üdłË‹.-w2Łâ$ćăŠBu.€-sŮĚ=Yz›ňnŰąg€űRć0@BÇÓ&{śřÎƉ|°>ł^‰¶ŠÓŚůgpÝsYâĚ R[ŹĽh»˛JG—N[W[óË+'ĺ±Íwä~ÝR-Ą ©)«­¬@SáŇď‡m”Ř˝§ m•Ąˇ›tI’řLKý‘GíC)Q4-ÔżÝT#’¦sč<ź9S¤łD¦{9i©šóňöj,G~˙isvţNuç“Şs­J͇wjŞŽîÓeé řŻYŞĐ>©âQŚ hŇŘ´­ “EŰďćcĎ]]ĽpěŃ•?@%ϗʦě^:Ü:ýĄ‚uö˙98¤{1ľóďîҲz5c骬ϔwU†ÚťdčÓä©Ľ÷ŔëŐ -ó$&^<´Ë_#€Iřl‹«j®iWŮź§<ííŤîĚÁÂ!䦓©Ěšľš!ăżż¨x4¬ł>=ôÝř“Äc«‡eŔ–ŠÇâúąÇúýćäđ皨endstream endobj 664 0 obj 2823 endobj 670 0 obj <> stream xś˝[ëoÇúQ…ľ…,ĚËí{×…ÔA‚şŇÖP4vaĐ-1–)E˘l+@˙÷ÎěăvvoŹm×đźön3;Źß<řŰqß±ă˙Ĺ˙Oß}űśőöřüöČŹłă·Gż±řGż:~zâ?t0Ô±ľ×Ç'oŽúÎY-$ ëii;Ćť=ÖVĂ›ă“wG/fßĎe§¸tzö—ů˘ď´sZ¨ŮźÉóßç¬s‚őrv2_Ž;iěě‡đ¨{6{>_pi;ÉíŚÍŞłÖ91Sů±G);§]ZA(¶3}o5K«áđßČđóą–ťŃĘÍţŤ{°·ŁüĂ s®Î'& ?÷„jć€8Ö›N[CŹólľĽV˘Xęçüüź“żFn; …k‰Üfńz¤6°zÁYí9ŕS‘řáJŕĺđĽÂîF»î\+Űq\aöí·ó“_Źęŕ áŹOÎŽf'+ä=đ¶gqđÝŐű7~7ďy]on·7w§ŰőŐ_j¬^~X_^Ž§Ü®¶ăŐń§č;•ż{9ű}usőrŽo„ît~˝nL_oĆTl[TÜn—Ű»ŰjÉ›Őůúv»şÁá…` ˝đ=2î ůłnťÖ–˝ş»9]UËľ_^Ţ…1Ö‰|®ËŰńąÔÎďĎ„‚›ŹŰżť^ß-ľ §î®ď¶Ż~ąęYÇ,đ§ĎÂΞ<ąĹgŕź™]Ý Ă7§ĂăęŐűá‹ĺĺ0 LŹ/皣äôÇ\„ŁúÇśýq˝Y^^Ţ?Â7Ňt˝p6ľYž˝_n#@“}Í˸>Żýú~ęµ6ń˝č ›˝Ă#:®´Ý…eÁT^ć÷q1ÜŹ®ňčlŔŔý$Ëâ¶pi†):-đCąŢ¦u5ČÄi^¬˝îb0×áR`­Â,k#ŚľŔ…ÇTäǶaGńŠóŻ†ůou®“pBĂĹđ~…ď5>Ó÷„÷„·«L.zHÁ;'uI٤uµ8”wtÇ‚ľž3đ+}źîÔ/űfě!çHXZŠśëç›N Ý”9ă×ÚŚNë(d×óđ¨{Eö Ŕ(0ŕ “…͢LöĎ*DŢße¸Ěź. Ŷ‚±#^řY‘2˛—/ŐVô é uWtÎ0J}3Cˇ`Ţ„<’Ą…p:ńß뤲śŁXH Hj O6TÓ`Ń›<…M°B>Ő ‡Î Ŕúܢ0ňZ{ŁŃhîőM~,5Ö+°¸Ş"ë–6,¨·?nÜ)yGÆ0éi%ů= ëčůäoŃ6k7KN»ÁIŕ4a”đ‹öYü€×ç&’O¦jD­;˝ë”K¶W0N×" uÓTÉłJ.…ă-=7ŕÚµśp+üŔv†ľÎF(ÎŃąöiş¤ŔkKëíž0ş\Q ŤLđĂm_Óv;Ķ^„ŁJ¸ÓÚq«±:kY.ąSO¬©$)°µ•U7;VrŁD>×;Ü©ż‚t-ĚLzšpmm]"CĽ ZŔPđ¤4ĄáJDíŢóˇ>YQAV3î@Ä!2‚ł0!Dé´_¶8%=¸–ieĽS2ާrRN¸ď˝g¤ŐŃbrČłFd`:; Äş„\~_ «D7Á aşÄ‘4Fćvŕ†˛Äł‘÷×-SV'ŤŃ¤ßŕ:§ăŕ`>Ĺk Ś^'8(E;‘UÓ“ŔZzżŤfźj‚ř„ŘňŮ ßDfżń1‰Ň‹ KpIő'!´±OzłČVĽnAąčĘ5łáF…´’ ŹC”‹¶5ŤHS¶3˙ż”‚%÷µi9Ů«čm…¤ “ŕ."ÚCS›ľ7iŞăsrRDş ˙0•Íô‘‹¨Są ¶ťŕHľÝ›N¸©ĐZŕE‰Ö>ĚáO!L‘ŁĘ±řܸ°ô}ŮţVŃt‰q›)Ż*ôšH$xĎć˛Sľz‰GýaéŹMöu=ŠO”»˘‰@ię)'â´FxúŚ×Ž*+ňRBęj؉&ÁJźăëע@ÉSéőÚ00ątj­ÎŻĘI˝3gß(rTyŢOHj«*3ír8çTFÉsϡ2áń/pÂŇawŃÔ0Ľ^¸+mw5?–F=ôĹ,gu˛qH·‡©=v°Ž„{ű"ťÜ†"ä^wu‡¤H¦7[ť–lŃ{¬ÖLô‘6ž)#áa§üÚ°Ó_GYgŽ˝eńˇBu`Ť.łŠę żyşą r*ôá˝ëtŁ"3x-/zć`ŻĺOĐ“ 9˘6y¶´đWÍÄ^VŇAŢ.Ź!m@@u1ö݉ęŞH¨2öR¦é‡dýf|BdH™äČ—€Łö~mHJ(V™_ěĹóV7Äç?•ËVÎ ««řË Í',oŐĄ,t'Mu­ÚĄ«ćhÖ™_SiIÍŹ%¬ďmlÖÍp}ޢĹß÷Őö°8(EÇ<âhbÂęćG}gř{‚ťđ«éž`OË—ěâž´°žTU9.Ö`=`}Ě''«K4÷>óŚěżŻ¬Ť Jłěë’¬J*Ő±VĄĽú6ByOĘ`) éÓĂ2ż`á1ř3uX-]'Ś­Ne‚«F•Q˙LÝ•Ľž’>Č=)Ĺ!“LÄó˘Ťa8pŤ%|Ä_TůŰ­Tiţޢ!gŚŹšY ‡xQő-ßÇÂbiąB_o¤a«2@AdŠ ›ĺÖ;ę űŕfÓmľÓ›— Y­†nˇgö€F+ŇťžnĐL‹yăÁŤč™/»K®ĺÓsw?śýţý˙¤Íendstream endobj 671 0 obj 3972 endobj 675 0 obj <> stream xś˝\Yo$Ç‘^ř‘ż˘ßÔ˝K•w¦ß¬ŮńzěőˇĂ°‡ś;9C‘˛č_ď<#ł˘ŘÝÜ!@¬©#Ź8ż8˛?oćIlfü/˙˝řáä›×bö›÷?žÄű±ůxňůDäĚů­Í·gńĹ·&1Ďvsöîdž‚·J‹4žŐN„M˝'”šüĆz O6g?śüuűb§'#u°ŰßěNçɆ`•ŮţŠ\˙i'¦ Ä¬·g»S5É ťßľL—vŰ×»S©ý¤ĄßŠÝ©™ĽAmM»śŕRë)ŘPFPƤéÜ<{+ĘhxűŹäöëťŐ“ł&l˙‚s §Ł/ünŘ\Ýí¶b2đë¸Q+lNĚn˛ŢŃĺĽÚťę Ő ő‡výżgżÍÔ°i5R[döhë`ôŽ˛6R aČ%rŞ€ NnNĄfą9»„×oÁŢ´Ë˙ŰÁö¬1RlßîNVÁÝ‹ti„ÝŢ# `»~{Ő^ýn:5é č«wi‹ł*CáÍó6ę}@Wé\—8źĽ¤ŻŢ´˝•ç@Ř´5;‘_đ@ăwj2v¶® j•ĎK1aöqŔćYţűűvó·5O Ęôî‡úę[Ęâ·ż¨"pÝŢÄçÎ;]ˇ˛ű-äś’Ű÷u$˛’¶ţűn¤BŠ;Üż›Čŕyw·ŚO.É Ź™l¦ç@ĄĹ5Ý6JŤTbŇ„-JËEű輑őľ‰ŔUG¶Ľ­›<©˛ŰąŢüąńRÖ›s» ę«Ś„¨íźA‡´Ze˘Çç„­uün)ý»‰C&ÓU I÷¤Up{ZE$ęLŢţ©ČęňĐtäş}NŁŢ%Ş…ÜŇfj‚?ĽzżĐ7|,ëSëľW8ĺ&%Í0oRG™|ŃčE¸H¨Ř$‡ŐaŇ`öľ¬ŔFČ^ČĘPĎ-…ÖZ!Z_ď"_}ĺŁĐFO`l‹MôęrKýôE†IuůTżľmłą#ö uP(ĂmwoÚóĄE8‰(pZo˙A< ™íš^&óíş9ĘľE·Ż…ŕ8>w!8¨RíŠ<ľLŘ9yˇD ŞP jDŹÜ Ż督 _Śq8“Đp{›ł˙99űĎż&—š±Ĺ-«M¸}5O–ż0#ńÝNwµ•^y÷j©ĄZ}Ů ^ˇZÖ}%|]— Wj˛u@92Ô9ĺOš4÷ź¬ć·xŰôév‡ BÁŞW˝>}`7°dr2:¬itÔ]P éBŃŢN·ËGGŞô +„QŔ¸*§‡µ–Ď’‘)Úe7g?—z}+Q@— ş<-„8]51=^ zl’NXvÍBą_V:łXVŠÉĹ9’ž¶Čŕ9˘bŔzv݇7?¶W‰W˝eU÷†5ČÂYLÂwŘ‹xµÎÁ o‹ňŠ¶ĎXMč§Ć”ć@‰§ű·2dGDŠ’mäĘžvÁÎfgî]gÉ(7ŃČ_uh¦„a­Á%FTŰVÉţůéÉLżČ€ Í,"M2ŕöĹdůDóŰö:_zŔNĄë#áłHISt‚čpÜŔ5«˘¨ANłR%ôÚRČĘř#ű»Ů×fśš¨r*DözZmž‡Đů]U•×fł%ÉóËÎaš% íČ÷7‹Ë ŁÖ¶› "WXVŃőެ6ŢŔD"X7ĹŞš¤Ü>"ú°7b[érrK×RöŹ" ę­Áí󑏸Ň<[úKhy‘gí¬ˇKAŮF5Uô5®k»{—w'Ä ĄČDŚ<ĆyŐĽĎ1žŠĽ{Îją|ÜLUJ"ÉjźŤj`´ŞĆˬ;nÖpŮö”'ѢbR˛Eů>"‡UđžúÔMoŔüô&u^–ŻóŐňj'Í4#2ęDI†9"»‡áÜ‚CíU2(@ŘaÉ… /CęŢPŤ|Ť„ŇSr§IeŔŤŐŘŽĄ(Éěý1–‚|Î"â›ńUÚe)! ó"$DwęQČŽUd‡7y áÍÂĽŔ YâăVzoAĐĐgřßsśçMĐŇH Ř_fËjé mÁß” Bţo(ˇĂÁŰö‚ S¤QÂůO{Ćbs —¬Č6+|ś!I8NŤJó<=âbó<¨­0 >j'q7Cíj¶ ôQŕŤ¬č\xO±¸.#VŕŔ>-_JęhćŠrHĹ…e¶…@đ’P|ŞŤÂŞ¤Ĺ@xŮe¨ąő^6 rÉ CóDű;×Yžź6*^łžţ¦Z˝Š˘“<.Iz0±2N3ă˝L9C ďVpᬠtůĽ¬Çei,Óô,*”âhŮŞ¶®j  ©"ş¬Ľ¸°–ŘJŃčňF˙Ř!V6ç_–˛Ó«… â kiÜT„±~@u6LRY>JZşĺ&ÉF™śŤ–]l˙¶m˝Ť°ŞńIĹiiÔËNÚ«°1i%VN¬·¬Š5‘›eř·][é/A„v´üúb¦‘Z,ÂŐ€ôo€U íÇxŮŮi ±Ěp1N¨ ü!W©śŮ.2’cä kp–É»â}`ÜđTě÷Á„ .‘ˇwđJ ŘQ úsÁ 2‰#ďиI·€€@çM!šU˝–}ŰŚ-_]č3â öˇ•ĎeĽxµlΉŢpˇÖĹQşbZ­6%É ćwŕůcÁWŁQŘŮC°Ż śÜx»’Wsfď>`e‡O_íŚČÝT*ů§ÄQß+s¤¶S˝Ť&!nř arž©…I!•·cĺ·ŘíCRĽ˝0ÁN•€cň4i'–Z ŰŃE<^Š¦/đ5“ŞvH_gÜÎN…™Ü7çCšzÉŽv–G±\Sżî´sřÇąhđ™«őłźkŰ »Á~Ěľ ňľŚĎ>‡•d«ŁjŹ•äÁ ÝPK ¶ŕÉZf§T3÷őçbýMPsł’Î) a‹çY"Ő®Q 3<Ť}ÄĆa˙)Ą­˝BË^ŔÇJŕeÉKëâđ ’ýQ$R‚T<>űş×‘Ľí=5Ä}-(O!˙'r7¤ŢX Â¬jĘwPŚ ޱ]Ńžç2+Ú«áEá\ëÁP—BÁŞć’' łQ`­ŇťB§ň´ĄŐ<¶yŕjT}¦•rçîHŐČiţăKňŕץVMľ ˇ8W0G¤eë]ŞÎ´w yÇ&žI,°× ĹBX¨ˇÝ_ŘVŞFË´ä,z4XÖ0*O˘FźúYĹOvĹx×çşk.’7ľÚi«s¦×¶ TkŘŠ „ą>Áĺ÷5ç}Ű@Áľ¬ć­[§Ŕv=@ŠiǨÉGHr˘‰x^*ĺ$¸(˝=Ź0d^WôBźCŇúe…wŮÍ8˘@dźëř¬.­€(KaŚ2‡ůe‘¤>_Să+¬>g7â’&ČZďWV­„űyđ–BšĐ/2Ý_ }nX±"Xć«ú=&đ-¸’y˝Ýp%‹'Ćé{l  “Nu*ĺ°ş`#2 â“z#˘Ć>–.f]||›JLQŇI7@J2°\ŽG„Ů.Ë”ÝŰćĆb÷Ą”ޱł/żĄă1|őm¨äĹ®nĎYlK»ŘäH·(>°)ć· É€r×÷%ÇńÔO„ĎŘ08[g?+¶¸6ţ&;ô˛v t˝M¬÷‹ÎGŁĹ,Áű95"©;tÝÄwíűć•č€2Ń9gŽé*îĂ«Ř5–•J§Â}\͢Áč:rSłÎěůläă ¸¤Ou]b,&€Ą}Uň‘±^D\·şÜ{ln[UÇ’\FiëęsrîĐ7¬ű;ĆĐŁ—ä nGúJç‹zń`šř|ßÚ2Vć"mŰI}bҺϥ?ĺćlE[1ö˝ą,éŇé Ú»ôŕgËx˝¨Mc/ŰWŔiÁôI;x[ĺzŘ&mŞ7—T,šÔt°ô8í‹zző{ä©°5†*Em(ěŤĹäJ=ébě±´ťŽĐ+-Ę[=™•>LÎŇb>qUÍ->°ö¶dĄŚî®ô=.JZŃ“‘±z㪱(n¶˙MVř‰‘Č´a6OŻ´ ŮŚ’ž¨?QMň×Ĺđ<°Ég>Ý\ô –ą†Őą q.­´|3y÷ş˝ŰG™)µJŤń–g׾\JŘHŤŕž •±Ô-ć®ńŤĽş†3”VÄzšů¦9Âčś•ŕťs)kۡs=uŁ¬6ŁŔJ}lşč´‰´ /äoÍ٤™T×ĎgsÇđ˛B_±,š…’¬†^©đó~ëC&Ş2ëQG˘şÚ,k™Íó ¦56Ż±ď]ĘR§.sD()ÇH•ţÁý`a'Át©ÔF·Č7Çô;á¶ŢížĆp]­–׊E†;íŞę@Ë2°YŠĎMVÂ>TG;v–DEJ?8Š}–§)‡4Ýx¶óđX=\O}ĺ|HËňG¤9MśÄ» üy¦gĆpí´5ąĹ¢¤ÝŹťL«5ÂŹÔ‘Q¶<÷%ôŁ ú2w‘Ť]áĚO„žřčż·K^Aä°‰i™ýąÄ†™şSFĺ&A!LxůÇ~óúą¬Ďď¨Ů ,ŘŇ~Ăõ€Ä˛ŃH<Řd™®˝šë™í¤KŤ}%¶íűó‡3’ř˝”ë!m9´pUą'ž$Sŕ/ M%@Y; Ĺěé= łçćáźŘá×_Í{9oB©í—ýUŹŠĚµęô†螥úZ•:ťťó_$ţ›¦y›ĆĆčcdň‹4yŁŐ=ő sHÖëč˙üŚhědĐîhcůhµe´ä%źŠ‚PŘE% |ť›GúóÂCm*/ëéŠÎ>Ąáö«śł~=”[ÍŮă“$–*Ô›qIÖ›gĄźČOÂđiBť‡”Xüő˘ĺŮü1‡‘bŤňC7RQ%ě! lZ›ź%…˛Ç]í˛nďćX#®ŻµŮß±x*ĚÝÔŐ.ý΄t{űřS‹˝đ—ËŢĎľ<;ůîäóF`Ź€Śż,#yüŐ.P<ü ćĂzü}°o_ť|óę÷›ű»‡·'ßüy#Nľů ţďŰ?˝€?Żţkó'/_mľ{ň7Ă°íŐOĹJ€W·0ŤśňoXĺz¶ž6Cg…ĄŁI=»ˇ•…¬ęk,oąIP" °}ý÷ő­ź‹F#&•D@žĽŇ:ĆŞĺ“‹úÉÇT. 5Ľ‹ńŚoĘ'7őŞÍw_gąŞW·ń=R˘Dz0vš<ţ1ĄŤ5e.SŐHhěkź·onę˝6á۸—:ć5€rOŢć­8:GÚÍCťě¦^52ěŰSůóĆMVaJąE‡ůŔě(fú@M|ˇ¦cç ŰĹÖ\<ěůs´ ŘxH,Ľ°•4&%|ŽgË0źęĐH}pßŇÓĹ`°pi–çSčjÚ1'EřK\…1~xhěSŚMŁ”ŐŽ;Ő" ‘9‹Ą>mŚ­·>Ô1ަd’3ć8^ëBŚ8A˙ľą Ž&e@— Ů Ź{ÍjOżÚY@Ř»P ő^Ňjń÷]ŃĐ·©Ě “uŠ·dĐ˙¶~ň1ŢË ÁÔ^ľŘš\Tşm˙<łŽ‹ÂšÂÖË*;Řů+=ö”»’ÂÚ)"ßMK@`´śŔÜĺáňiUܬCc†‚>k ¦— »& QeěM}ń®°˝ĚQvř±Ř·a‹>,G"3íŞăřîä_B)d,endstream endobj 676 0 obj 4878 endobj 681 0 obj <> stream xśµZ[sŮʣ~…wSśőÜ/áÉ€!PŽqŚ\@AŠB¶l+Ȳ8ŕ_ź|=;—žÝ=G(ĄíŮťKO÷×=_÷ĚĎÇb’Ç‚ţň˙gŻŹî=‘"żüĺ(˝?–Ç?ý|$ó‘[tB Ą;VbrNąă“G2wZOáŘ1s|ňúč»áăQNÁş †WăNNV ©†G1YcCĂŰööW4ŤÎáélT“SĘřájÜ)«¦(ő ['W˙uňE‘ĆL>xIŇ Ź‚=<:ůëwĂCšB„ěđ9¦đBZá­‹N Ňç(´Ą·6z?|5îÄäŤpAóůµt.´©Ą™´qŠ¦vřŞ„.SKęĽv2×lj‰JńÔ"F?)ňfŃI+4Ô˘Ń?†_Ćť™¤6Ć çIA1 ŻÇťžŚuş ĺťĂ}öĽosý^łĽ"GŚ˘ś!y•ť´Ś±Čűńh&«LtĂ›qg§b$Y!иĺ剥D=‡ŘZSrxŮľżjŹżÖ$‚±“ €™´%`Ąç€É3Ó9+Ý,¦±ÔBŞ®Đĺ¤;6M ]Ă÷Wăɿ׋Şh sµöß ŞI%VŹÁç§(]Z Ť"”^ýwąń’dß}Ž¸,=¤žŚ.Ŕ:€4L¦ ÜDČ`1-…aëçšošĂăNi¬ů„lîpmáIµ_׸>˛í-›ă&Γd}'céĄń}—Ă rF`Îřé(Po«¸ÁHH«Z=Y'śN›ĆÎÚ WŁź<đ dĐť‘Ι mô}Ő9«††ÇU­ąĄÓ/‰uzÖ޲QIŤHÜđц(¬˙»ú˛LżOŹ˙Ý”˙őHQDł *¬Óeëôśěä “ěÔ×tĆ}ź?{—?koĘH´|6ŇOóŁvö]/ŚRĄŢ&g‘vŇü"ä¨hgkźŃ¬ ¦¶łÉm4†ëÝRgBs¨SwŤPIX'‚˘Di6) 8żPÓ8!ţ‘~ňToÚR™yßµ·ŻI– ËΔϮ̕ĐĎćj }ŰFmgťňT9Tc#3Özî‰ďŰż×Q[S˛EŤ#sŚŢ¶ÄB)đNxuQ 5` ^i%˝e˘ž5uZ‘NaÂr2ÚDD˛[q‹«<™†ÉÜ2Lpđ¦+f¬­ÓŻMżŤRNZCŞmfÎôałŰű-4ĽŁďťžk ÷ĄŔ„ß3AĂX‡‹˛&5Skz:bůJ€^đ¸Q?“~¶,Ýu"4*Ź%ě y¨{s0F–hŇ…-%â$dŕ¶nßź·1™™U‰VÄfÖ5(ň0[ â Ă ć&˘8+7/Q2<˛ýEÇl=ł9´TsËĘŘ•`ę(qźĄŇ{M•€¸YŰs±ç§ P×`Ó}ŘK®nŁťŃ«%ŰŔFOëPlKfvxÖ‚éĂ9Dhk9Ö{]öËÂu pôů˘Ě{APŞhł­?»Qň3éŮH´ipřŠ‡4h׿ăÓŞžm7eŰJcX74É{¬C®°±÷S1Qią3 7 ě3÷b1‡!ď|ÉĎ–ŽDńMhĘm¸Ď7y_ďHk—™˝c^luŽ˙T:±F«Đl‹_‰šüĺ˛óěÂ/;b{U·řď‡:|Çeg2eyʱŇp jäÄZ±HĆvĺ•~“­[S¦ŢďGÂ%2=ßGZĘ~‚cËpŘł¦}(gŔIk…ZVú]k“BlĘÚ3„›ŇŤđO´ńŽiHŐś\NU:së=3)‚ŤtýžÉ rŮI¸ÎÔ—ů­ÝW´riűj/ÔŢv-•öŚÔ!b1Ú-vňôXú-Ő„˝°Ś^äĆđ¶ÓN˘·iŁE[¦ŚqřěĂĆÉAč¨BĆ[|T3ŢĎg¬‡0ůšO36´Ćm0Ž§‘ĂÄjĚd×+Z‡éäL8 Ł)P—Yď+ÍxťgßAĹ­ţĂá÷ Á/ńHˇ¨˛¨5©2]"-_v>M*`íÚŠ‰Š¦ŹG0rEE®'ŁCK"('ËĹ'Ł6ĄsßdŠęË{FLźv ĘhŹ{Éó÷FÂňĘť´i« ¶Ŕľ÷É"­‘j±{C‡>Ű–§Ôħ!x“łÍ4j{Gîů97|™}.Ç•üž Őq `IĐ÷ą—‰}TM)3†Ú›"ĺń¸„v2öŽ0ëÂKUă_ŢčócuZUݢv-ţje–)n_'ś±nÝÚ˛ÇvčW°U&’‹óĎe˛š|iHş‘ §˝÷IŤ$òIUëßNĺÖKvÉľëúťťIz.‰¤ÄÄňé&»żđŢVLXťiô¸›h«?u ˝ďZ>ý k; äńBěŰ-#2n‚iAçđ‹·l[?Ă@;ńYo…Ů7¤AŻŽŚ‚˘ě€ 7čó¬ÍԞʧ^LµŢľpîVpé äXéϡRlթʧ‚JĽ?e€N‰ś¶€ËFjš\—(KąŚB€p=óQ.¦"Äž€>ÄÉK<ŹÔ—“C:˝źnĐTŽ'ŢŁžË k7˙‡ÖýŔuˇEąâbĄ WIĄtŘčÝÔn®®/3iěŹČ˘˙ď‹Ę9I׌3Ěľa;B[ßi§ ŤŘßXWvĘu7ŔIřp§ažô‚mQőorÉŞ;™š{—÷=÷zĹ/|´Ú>ő” š®Ű‹’!nś¨ÖlžhëÁ.€$ ›e•ăMŔőµa– GťXÎÝ”Á0-@‰ţpËuńFuđë.n•Ď0‘ ŰH>Ů^#ŁR«Ł›|aN/ääkVMYvaëĚ"ëË9˙Š .ÓŚZą>!ľ‰$ HĹ{-2żh҉ÉúţxÉ9z#ăVŔćeşş6_űQă'G˙Äß˙ ¨˝Hendstream endobj 682 0 obj 3344 endobj 688 0 obj <> stream xśuUKo1 –8ÎŻc"1iś‡“pTń‚R悇Ňv»Űíţ>ÎL&ń¶‹ć°^DZý}ţČÁ)ŕmé!-ióůçÜBĐ:"oµPť?ÇŹ…†DE şLŢĘ˝yn-x«™“ –č ¦L DÚôă…ŻćFµ× Óc3·ł8ŁćtPš_Jâ˝7Ď-$Ą˝Í»n Î)Ŕ`NÁ¦ńeďľ3Rś«wĚ&ćŤJÎűŔ™ßÇásŠËh­ˇ6‚/ęůfA@ˇvžĽřËĘ®+#—-öT -^F(ô^ZĺQc(—¦©\×űŹÍąiÜť-÷#+u"ŤQΦ(ţȦő²źą_LV¸Í;çrFyů-†v›şń«Nyąܲ—Y˙O“­mc“ôbHA‡%żť€5Ąj*zx:îÉĽ©çŻšó Á>h^®ť]Ű'E#_J6ńí%2jŽđNµWng«Ď¶óů\2­çŤVó~±Őů]YDĚŰÔöWjť4¦ŘńĐ&e¸Dű&-_Ť]ŔëĽÄ.ż„Ůld ·” žń™1ŽÝWzţ2ň„Tendstream endobj 689 0 obj 686 endobj 694 0 obj <> stream xśĄYÉrŰFĽó+pRádöĺ8ŞÄ)eSč\T9Č"m©l‰”-Ĺößgńh*Ą!hđ–î~ ŕ‡Š3QńôÓý{}·řîBp_˝ý¸hďW˘z·xXîŢťŞ~XĄÂVR3睨Vo˘{@(Ĺ|eą`˛ZÝ-.ë—Ť`Ž Sß7KÎśÖúzÝ] gëMłL%Eý9žUF)ůĎę—6–P¬´:ą0śq|µ:_¬ľą¬]ł4ĚűTýW|.(Áu}Ö,“A;_˙”|ج2őŻÍR2Ą¸öxâ78±˘Ű­5Ľ¬żŤŹ©~µ!o˘˝ B¦Ś‡-—‡¨®R6ÖaS‡GÖűKďjI7;ë>Őt×÷—Éş(~lxôiLD .áŔ5]Ţôž“;ÉѶˠuÇîb2 ~Mç>4KͤĺjĎ×Ţxç2’WżËňJ¨ Y&˘mߢţ]LäýşžI?ŃᏍbĆ­)+=ź•&Š^4š©EČv=Neo‹oK ›ŇOž)x{O.Ęph’r¬ ˝Š2¬]ŕűżĂ‚@·µĂ ‘ľ¦s4%QĐMş‚xď$A«JŠđîSÓ2ŘĂQšń¦LcA4Ń–T˘(x.yüŐM ˘:r‚9'=5ÁŔBí ¸ě†ą$ĂĆLH$Í»A¸:# ÚÎćHńo‡Ţ»¶ÖMV1ĐŢôÚ.¶‡bęŔ.tÂëFđŘ퍪ż4FÇn/Ú€¸cNÚSúE0½»ü«d*F58đG/ŽóýÓ«ç ¸Úfâčś&O?!TśÎ‹,ŔČň“*OĘ°jFrC™ßdŹČn čÄbK¦Ł‡˘ö}×÷‰OěúŇS˙Ä}IŚĎVqöÁA™nýsś{+ ZHAŚŁHÇ''’%Ň6Tů|Ą0ňtĘcbŮ #íh™’tBŃąI‡ĐCP Ś (2čÄp7—ŻĐnf%SLŞ(‹^^Ź‡1#´vZaŐ‹Sˇ6Ä|jbnJú€ďćđL÷›!ť)VZĂŽ…śˇóČp|Ěö–$Wz3-vj®ŔNh}ˇ‹ ¶#6űvÝ®5qÓízö; Ŕ=îŠRFßANĐlłx,2™“[ęY ©9.JI—ťQtäĚťâě«ÜÂĂĺś €<üđäh›˙=Ü˝h¬ŽkŞoż$GĹ1)UaýíWÍ6¤qc7_P%ááçd÷o’ŠUÂř·Ą¦r_Kţ+¦Čߍh÷`[®. :-/›Dd&nń„¤R. aéúŰT±üů”…áXĘÜjyď‘ćΆIý/Ópa«eL·Á§ĄŢN?[-ţŚ?˙ ¶X&endstream endobj 695 0 obj 1426 endobj 4 0 obj <> /Contents 106 0 R >> endobj 113 0 obj <> /Annots[118 0 R 119 0 R 120 0 R 121 0 R 122 0 R 123 0 R 124 0 R 125 0 R 126 0 R 127 0 R 128 0 R 129 0 R 130 0 R 131 0 R 132 0 R 133 0 R 134 0 R 135 0 R 136 0 R 137 0 R 138 0 R 139 0 R 140 0 R 141 0 R 142 0 R 143 0 R]/Contents 114 0 R >> endobj 146 0 obj <> /Annots[149 0 R 150 0 R 151 0 R 152 0 R 153 0 R 154 0 R 155 0 R 156 0 R 157 0 R 158 0 R 159 0 R 160 0 R 161 0 R 162 0 R 163 0 R 164 0 R 165 0 R 166 0 R 167 0 R 168 0 R 169 0 R 170 0 R 171 0 R 172 0 R 173 0 R 174 0 R 175 0 R 176 0 R 177 0 R 178 0 R 179 0 R 180 0 R]/Contents 147 0 R >> endobj 183 0 obj <> /Annots[186 0 R 187 0 R 188 0 R 189 0 R 190 0 R 191 0 R 192 0 R 193 0 R 194 0 R 195 0 R 196 0 R 197 0 R 198 0 R 199 0 R 200 0 R 201 0 R 202 0 R 203 0 R 204 0 R 205 0 R 206 0 R 207 0 R 208 0 R 209 0 R 210 0 R 211 0 R 212 0 R 213 0 R 214 0 R 215 0 R 216 0 R 217 0 R]/Contents 184 0 R >> endobj 220 0 obj <> /Annots[223 0 R 224 0 R 225 0 R 226 0 R 227 0 R 228 0 R 229 0 R 230 0 R 231 0 R]/Contents 221 0 R >> endobj 234 0 obj <> /Contents 235 0 R >> endobj 239 0 obj <> /Contents 240 0 R >> endobj 262 0 obj <> /Contents 263 0 R >> endobj 304 0 obj <> /Annots[309 0 R 310 0 R]/Contents 305 0 R >> endobj 313 0 obj <> /Contents 314 0 R >> endobj 318 0 obj <> /Contents 319 0 R >> endobj 324 0 obj <> /Annots[335 0 R]/Contents 325 0 R >> endobj 341 0 obj <> /Contents 342 0 R >> endobj 348 0 obj <> /Annots[365 0 R]/Contents 349 0 R >> endobj 368 0 obj <> /Contents 369 0 R >> endobj 378 0 obj <> /Contents 379 0 R >> endobj 385 0 obj <> /Contents 386 0 R >> endobj 390 0 obj <> /Contents 391 0 R >> endobj 397 0 obj <> /Annots[400 0 R]/Contents 398 0 R >> endobj 404 0 obj <> /Contents 405 0 R >> endobj 409 0 obj <> /Contents 410 0 R >> endobj 414 0 obj <> /Contents 415 0 R >> endobj 420 0 obj <> /Annots[427 0 R 428 0 R]/Contents 421 0 R >> endobj 431 0 obj <> /Contents 432 0 R >> endobj 437 0 obj <> /Contents 438 0 R >> endobj 442 0 obj <> /Contents 443 0 R >> endobj 447 0 obj <> /Contents 448 0 R >> endobj 454 0 obj <> /Contents 455 0 R >> endobj 459 0 obj <> /Contents 460 0 R >> endobj 464 0 obj <> /Contents 465 0 R >> endobj 469 0 obj <> /Annots[472 0 R]/Contents 470 0 R >> endobj 475 0 obj <> /Contents 476 0 R >> endobj 480 0 obj <> /Contents 481 0 R >> endobj 487 0 obj <> /Contents 488 0 R >> endobj 495 0 obj <> /Annots[498 0 R 502 0 R]/Contents 496 0 R >> endobj 505 0 obj <> /Contents 506 0 R >> endobj 510 0 obj <> /Contents 511 0 R >> endobj 522 0 obj <> /Contents 523 0 R >> endobj 527 0 obj <> /Contents 528 0 R >> endobj 532 0 obj <> /Contents 533 0 R >> endobj 537 0 obj <> /Annots[540 0 R]/Contents 538 0 R >> endobj 543 0 obj <> /Annots[546 0 R]/Contents 544 0 R >> endobj 549 0 obj <> /Contents 550 0 R >> endobj 554 0 obj <> /Contents 555 0 R >> endobj 559 0 obj <> /Contents 560 0 R >> endobj 564 0 obj <> /Annots[567 0 R 568 0 R]/Contents 565 0 R >> endobj 571 0 obj <> /Contents 572 0 R >> endobj 576 0 obj <> /Contents 577 0 R >> endobj 581 0 obj <> /Contents 582 0 R >> endobj 586 0 obj <> /Contents 587 0 R >> endobj 591 0 obj <> /Contents 592 0 R >> endobj 596 0 obj <> /Contents 597 0 R >> endobj 601 0 obj <> /Contents 602 0 R >> endobj 606 0 obj <> /Contents 607 0 R >> endobj 611 0 obj <> /Contents 612 0 R >> endobj 616 0 obj <> /Contents 617 0 R >> endobj 621 0 obj <> /Contents 622 0 R >> endobj 626 0 obj <> /Contents 627 0 R >> endobj 631 0 obj <> /Contents 632 0 R >> endobj 636 0 obj <> /Contents 637 0 R >> endobj 641 0 obj <> /Annots[644 0 R]/Contents 642 0 R >> endobj 647 0 obj <> /Contents 648 0 R >> endobj 652 0 obj <> /Contents 653 0 R >> endobj 657 0 obj <> /Contents 658 0 R >> endobj 662 0 obj <> /Contents 663 0 R >> endobj 669 0 obj <> /Contents 670 0 R >> endobj 674 0 obj <> /Annots[677 0 R]/Contents 675 0 R >> endobj 680 0 obj <> /Annots[684 0 R]/Contents 681 0 R >> endobj 687 0 obj <> /Annots[690 0 R]/Contents 688 0 R >> endobj 693 0 obj <> /Annots[696 0 R 697 0 R 698 0 R 699 0 R 700 0 R 701 0 R 702 0 R 703 0 R 704 0 R 705 0 R 706 0 R 707 0 R 708 0 R 709 0 R 710 0 R 711 0 R 712 0 R 713 0 R 714 0 R 715 0 R 716 0 R 717 0 R 718 0 R 719 0 R 720 0 R 721 0 R 722 0 R 723 0 R 724 0 R 725 0 R 726 0 R 727 0 R 728 0 R 729 0 R 730 0 R 731 0 R 732 0 R 733 0 R 734 0 R 735 0 R 736 0 R 737 0 R 738 0 R 739 0 R 740 0 R 741 0 R 742 0 R 743 0 R 744 0 R 745 0 R 746 0 R 747 0 R 748 0 R 749 0 R 750 0 R 751 0 R 752 0 R 753 0 R 754 0 R 755 0 R 756 0 R 757 0 R 758 0 R 759 0 R 760 0 R 761 0 R 762 0 R 763 0 R 764 0 R 765 0 R 766 0 R]/Contents 694 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R 113 0 R 146 0 R 183 0 R 220 0 R 234 0 R 239 0 R 262 0 R 304 0 R 313 0 R 318 0 R 324 0 R 341 0 R 348 0 R 368 0 R 378 0 R 385 0 R 390 0 R 397 0 R 404 0 R 409 0 R 414 0 R 420 0 R 431 0 R 437 0 R 442 0 R 447 0 R 454 0 R 459 0 R 464 0 R 469 0 R 475 0 R 480 0 R 487 0 R 495 0 R 505 0 R 510 0 R 522 0 R 527 0 R 532 0 R 537 0 R 543 0 R 549 0 R 554 0 R 559 0 R 564 0 R 571 0 R 576 0 R 581 0 R 586 0 R 591 0 R 596 0 R 601 0 R 606 0 R 611 0 R 616 0 R 621 0 R 626 0 R 631 0 R 636 0 R 641 0 R 647 0 R 652 0 R 657 0 R 662 0 R 669 0 R 674 0 R 680 0 R 687 0 R 693 0 R ] /Count 70 >> endobj 6 0 obj << /Count 16 /First 7 0 R /Last 102 0 R >> endobj 1 0 obj <> 1 << /S /D >>] >> >> endobj 9 0 obj << /Title(\376\377\000M\000a\000k\000e\000 \000D\000e\000t\000a\000i\000l\000s\000 \000-\000 \000.\000/\000c\000o\000n\000f\000i\000g\000u\000r\000e\000 \000o\000p\000t\000i\000o\000n\000s) /Dest/subsection.1.1.1 /Parent 8 0 R /Next 10 0 R >> endobj 10 0 obj << /Title(\376\377\000R\000P\000M\000s) /Dest/subsection.1.1.2 /Parent 8 0 R /Prev 9 0 R /Next 11 0 R >> endobj 11 0 obj << /Title(\376\377\000W\000i\000n\000d\000o\000w\000s) /Dest/subsection.1.1.3 /Parent 8 0 R /Prev 10 0 R >> endobj 8 0 obj << /Title(\376\377\000M\000a\000k\000i\000n\000g\000 \000t\000h\000e\000 \000e\000x\000e\000c\000u\000t\000a\000b\000l\000e) /Dest/section.1.1 /Count -3 /Parent 7 0 R /Next 12 0 R /First 9 0 R /Last 11 0 R >> endobj 12 0 obj << /Title(\376\377\000R\000u\000n\000n\000i\000n\000g) /Dest/section.1.2 /Parent 7 0 R /Prev 8 0 R /Next 13 0 R >> endobj 13 0 obj << /Title(\376\377\000R\000e\000q\000u\000i\000r\000e\000m\000e\000n\000t\000s) /Dest/section.1.3 /Parent 7 0 R /Prev 12 0 R >> endobj 7 0 obj << /Title(\376\377\000g\000p\000s\000i\000m\000 \000-\000 \000A\000n\000 \000O\000v\000e\000r\000v\000i\000e\000w) /Dest/chapter.1 /Count -3 /Parent 6 0 R /Next 14 0 R /First 8 0 R /Last 13 0 R >> endobj 15 0 obj << /Title(\376\377\000a\000t\000t\000a\000c\000h) /Dest/section.2.1 /Parent 14 0 R /Next 16 0 R >> endobj 16 0 obj << /Title(\376\377\000b\000r\000e\000a\000k) /Dest/section.2.2 /Parent 14 0 R /Prev 15 0 R /Next 17 0 R >> endobj 17 0 obj << /Title(\376\377\000c\000l\000e\000a\000r) /Dest/section.2.3 /Parent 14 0 R /Prev 16 0 R /Next 18 0 R >> endobj 18 0 obj << /Title(\376\377\000d\000i\000s\000a\000s\000s\000e\000m\000b\000l\000e) /Dest/section.2.4 /Parent 14 0 R /Prev 17 0 R /Next 19 0 R >> endobj 19 0 obj << /Title(\376\377\000d\000u\000m\000p) /Dest/section.2.5 /Parent 14 0 R /Prev 18 0 R /Next 20 0 R >> endobj 20 0 obj << /Title(\376\377\000e\000c\000h\000o) /Dest/section.2.6 /Parent 14 0 R /Prev 19 0 R /Next 21 0 R >> endobj 21 0 obj << /Title(\376\377\000f\000r\000e\000q\000u\000e\000n\000c\000y) /Dest/section.2.7 /Parent 14 0 R /Prev 20 0 R /Next 22 0 R >> endobj 22 0 obj << /Title(\376\377\000h\000e\000l\000p) /Dest/section.2.8 /Parent 14 0 R /Prev 21 0 R /Next 23 0 R >> endobj 23 0 obj << /Title(\376\377\000i\000c\000d) /Dest/section.2.9 /Parent 14 0 R /Prev 22 0 R /Next 24 0 R >> endobj 24 0 obj << /Title(\376\377\000l\000i\000s\000t\000 ) /Dest/section.2.10 /Parent 14 0 R /Prev 23 0 R /Next 25 0 R >> endobj 25 0 obj << /Title(\376\377\000l\000o\000a\000d) /Dest/section.2.11 /Parent 14 0 R /Prev 24 0 R /Next 26 0 R >> endobj 26 0 obj << /Title(\376\377\000m\000a\000c\000r\000o\000s) /Dest/section.2.12 /Parent 14 0 R /Prev 25 0 R /Next 27 0 R >> endobj 27 0 obj << /Title(\376\377\000m\000o\000d\000u\000l\000e) /Dest/section.2.13 /Parent 14 0 R /Prev 26 0 R /Next 28 0 R >> endobj 28 0 obj << /Title(\376\377\000n\000o\000d\000e) /Dest/section.2.14 /Parent 14 0 R /Prev 27 0 R /Next 29 0 R >> endobj 29 0 obj << /Title(\376\377\000p\000r\000o\000c\000e\000s\000s\000o\000r) /Dest/section.2.15 /Parent 14 0 R /Prev 28 0 R /Next 30 0 R >> endobj 30 0 obj << /Title(\376\377\000q\000u\000i\000t) /Dest/section.2.16 /Parent 14 0 R /Prev 29 0 R /Next 31 0 R >> endobj 31 0 obj << /Title(\376\377\000r\000u\000n) /Dest/section.2.17 /Parent 14 0 R /Prev 30 0 R /Next 32 0 R >> endobj 32 0 obj << /Title(\376\377\000s\000t\000e\000p) /Dest/section.2.18 /Parent 14 0 R /Prev 31 0 R /Next 33 0 R >> endobj 33 0 obj << /Title(\376\377\000s\000y\000m\000b\000o\000l) /Dest/section.2.19 /Parent 14 0 R /Prev 32 0 R /Next 34 0 R >> endobj 34 0 obj << /Title(\376\377\000s\000t\000i\000m\000u\000l\000u\000s) /Dest/section.2.20 /Parent 14 0 R /Prev 33 0 R /Next 35 0 R >> endobj 35 0 obj << /Title(\376\377\000s\000t\000o\000p\000w\000a\000t\000c\000h\000T\000h\000e\000 \000s\000t\000o\000p\000w\000a\000t\000c\000h\000 \000i\000s\000 \000r\000e\000a\000l\000l\000y\000 \000a\000 \000c\000o\000l\000l\000e\000c\000t\000i\000o\000n\000 \000o\000f\000 \000a\000t\000t\000r\000i\000b\000u\000t\000e\000s\000 \000a\000n\000d\000 \000n\000o\000t\000 \000a\000 \000c\000o\000m\000m\000a\000n\000d\000.\000 \000B\000u\000t\000 \000t\000h\000e\000 \000b\000e\000h\000a\000v\000i\000o\000r\000 \000i\000s\000 \000s\000o\000 \000s\000i\000m\000i\000l\000a\000r\000 \000t\000o\000 \000a\000 \000c\000o\000m\000m\000a\000n\000d\000 \000t\000h\000a\000t\000 \000i\000t\000 \000h\000a\000s\000 \000b\000e\000e\000n\000 \000i\000n\000c\000l\000u\000d\000e\000d\000 \000h\000e\000r\000e\000.) /Dest/section.2.21 /Parent 14 0 R /Prev 34 0 R /Next 36 0 R >> endobj 36 0 obj << /Title(\376\377\000t\000r\000a\000c\000e) /Dest/section.2.22 /Parent 14 0 R /Prev 35 0 R /Next 37 0 R >> endobj 37 0 obj << /Title(\376\377\000v\000e\000r\000s\000i\000o\000n) /Dest/section.2.23 /Parent 14 0 R /Prev 36 0 R /Next 38 0 R >> endobj 38 0 obj << /Title(\376\377\000x) /Dest/section.2.24 /Parent 14 0 R /Prev 37 0 R >> endobj 14 0 obj << /Title(\376\377\000C\000o\000m\000m\000a\000n\000d\000 \000L\000i\000n\000e\000 \000I\000n\000t\000e\000r\000f\000a\000c\000e) /Dest/chapter.2 /Count -24 /Parent 6 0 R /Prev 7 0 R /Next 39 0 R /First 15 0 R /Last 38 0 R >> endobj 41 0 obj << /Title(\376\377\000M\000e\000n\000u\000s) /Dest/subsection.3.1.1 /Parent 40 0 R /Next 42 0 R >> endobj 42 0 obj << /Title(\376\377\000B\000u\000t\000t\000o\000n\000s) /Dest/subsection.3.1.2 /Parent 40 0 R /Prev 41 0 R /Next 43 0 R >> endobj 43 0 obj << /Title(\376\377\000S\000i\000m\000u\000l\000a\000t\000i\000o\000n\000 \000m\000o\000d\000e) /Dest/subsection.3.1.3 /Parent 40 0 R /Prev 42 0 R >> endobj 40 0 obj << /Title(\376\377\000M\000a\000i\000n\000 \000w\000i\000n\000d\000o\000w) /Dest/section.3.1 /Count -3 /Parent 39 0 R /Next 44 0 R /First 41 0 R /Last 43 0 R >> endobj 45 0 obj << /Title(\376\377\000.\000a\000s\000m\000 \000B\000r\000o\000w\000s\000e\000r) /Dest/subsection.3.2.1 /Parent 44 0 R /Next 46 0 R >> endobj 46 0 obj << /Title(\376\377\000O\000p\000c\000o\000d\000e\000 \000v\000i\000e\000w\000 \000-\000 \000t\000h\000e\000 \000.\000o\000b\000j\000 \000B\000r\000o\000w\000s\000e\000r) /Dest/subsection.3.2.2 /Parent 44 0 R /Prev 45 0 R >> endobj 44 0 obj << /Title(\376\377\000S\000o\000u\000r\000c\000e\000 \000B\000r\000o\000w\000s\000e\000r\000s) /Dest/section.3.2 /Count -2 /Parent 39 0 R /Prev 40 0 R /Next 47 0 R /First 45 0 R /Last 46 0 R >> endobj 47 0 obj << /Title(\376\377\000R\000e\000g\000i\000s\000t\000e\000r\000 \000v\000i\000e\000w\000s) /Dest/section.3.3 /Parent 39 0 R /Prev 44 0 R /Next 48 0 R >> endobj 48 0 obj << /Title(\376\377\000S\000y\000m\000b\000o\000l\000 \000v\000i\000e\000w) /Dest/section.3.4 /Parent 39 0 R /Prev 47 0 R /Next 49 0 R >> endobj 49 0 obj << /Title(\376\377\000W\000a\000t\000c\000h\000 \000v\000i\000e\000w) /Dest/section.3.5 /Parent 39 0 R /Prev 48 0 R /Next 50 0 R >> endobj 50 0 obj << /Title(\376\377\000S\000t\000a\000c\000k\000 \000v\000i\000e\000w\000e\000r) /Dest/section.3.6 /Parent 39 0 R /Prev 49 0 R /Next 51 0 R >> endobj 51 0 obj << /Title(\376\377\000B\000r\000e\000a\000d\000b\000o\000a\000r\000d) /Dest/section.3.7 /Parent 39 0 R /Prev 50 0 R /Next 52 0 R >> endobj 52 0 obj << /Title(\376\377\000T\000r\000a\000c\000e\000 \000v\000i\000e\000w\000e\000r) /Dest/section.3.8 /Parent 39 0 R /Prev 51 0 R /Next 53 0 R >> endobj 53 0 obj << /Title(\376\377\000P\000r\000o\000f\000i\000l\000e\000 \000v\000i\000e\000w\000e\000r) /Dest/section.3.9 /Parent 39 0 R /Prev 52 0 R /Next 54 0 R >> endobj 54 0 obj << /Title(\376\377\000S\000t\000o\000p\000w\000a\000t\000c\000h) /Dest/section.3.10 /Parent 39 0 R /Prev 53 0 R /Next 55 0 R >> endobj 55 0 obj << /Title(\376\377\000S\000c\000o\000p\000e\000 \000W\000i\000n\000d\000o\000w) /Dest/section.3.11 /Parent 39 0 R /Prev 54 0 R >> endobj 39 0 obj << /Title(\376\377\000G\000r\000a\000p\000h\000i\000c\000a\000l\000 \000U\000s\000e\000r\000 \000I\000n\000t\000e\000r\000f\000a\000c\000e) /Dest/chapter.3 /Count -11 /Parent 6 0 R /Prev 14 0 R /Next 56 0 R /First 40 0 R /Last 55 0 R >> endobj 58 0 obj << /Title(\376\377\000.\000s\000i\000m\000 \000m\000a\000c\000r\000o) /Dest/subsection.4.1.1 /Parent 57 0 R /Next 59 0 R >> endobj 59 0 obj << /Title(\376\377\000.\000c\000o\000m\000m\000a\000n\000d\000 \000m\000a\000c\000r\000o) /Dest/subsection.4.1.2 /Parent 57 0 R /Prev 58 0 R /Next 60 0 R >> endobj 60 0 obj << /Title(\376\377\000.\000a\000s\000s\000e\000r\000t\000 \000m\000a\000c\000r\000o) /Dest/subsection.4.1.3 /Parent 57 0 R /Prev 59 0 R >> endobj 57 0 obj << /Title(\376\377\000E\000m\000b\000e\000d\000d\000e\000d\000 \000C\000o\000m\000m\000a\000n\000d\000s) /Dest/section.4.1 /Count -3 /Parent 56 0 R /Next 61 0 R /First 58 0 R /Last 60 0 R >> endobj 61 0 obj << /Title(\376\377\000S\000o\000c\000k\000e\000t\000s) /Dest/section.4.2 /Parent 56 0 R /Prev 57 0 R >> endobj 56 0 obj << /Title(\376\377\000S\000c\000r\000i\000p\000t\000i\000n\000g\000 \000a\000n\000d\000 \000C\000o\000n\000f\000i\000g\000u\000r\000i\000n\000g) /Dest/chapter.4 /Count -2 /Parent 6 0 R /Prev 39 0 R /Next 62 0 R /First 57 0 R /Last 61 0 R >> endobj 63 0 obj << /Title(\376\377\000A\000s\000s\000e\000r\000t\000i\000o\000n\000s\000 \000a\000n\000d\000 \000E\000m\000b\000e\000d\000d\000e\000d\000 \000S\000i\000m\000u\000l\000a\000t\000i\000o\000n\000 \000c\000o\000m\000m\000a\000n\000d\000s) /Dest/section.5.1 /Parent 62 0 R >> endobj 62 0 obj << /Title(\376\377\000A\000s\000s\000e\000r\000t\000i\000o\000n\000s\000 \000a\000n\000d\000 \000E\000x\000t\000e\000n\000d\000e\000d\000 \000B\000r\000e\000a\000k\000p\000o\000i\000n\000t\000s) /Dest/chapter.5 /Count -1 /Parent 6 0 R /Prev 56 0 R /Next 64 0 R /First 63 0 R /Last 63 0 R >> endobj 64 0 obj << /Title(\376\377\000T\000r\000a\000c\000e\000 \000a\000n\000d\000 \000L\000o\000g\000:\000 \000W\000h\000a\000t\000 \000h\000a\000s\000 \000h\000a\000p\000p\000e\000n\000?) /Dest/chapter.6 /Parent 6 0 R /Prev 62 0 R /Next 65 0 R >> endobj 67 0 obj << /Title(\376\377\000C\000o\000n\000t\000e\000n\000t\000i\000o\000n\000 \000a\000m\000o\000n\000g\000 \000s\000t\000i\000m\000u\000l\000i) /Dest/subsection.7.1.1 /Parent 66 0 R >> endobj 66 0 obj << /Title(\376\377\000H\000o\000w\000 \000T\000h\000e\000y\000 \000W\000o\000r\000k) /Dest/section.7.1 /Count -1 /Parent 65 0 R /Next 68 0 R /First 67 0 R /Last 67 0 R >> endobj 68 0 obj << /Title(\376\377\000I\000/\000O\000 \000P\000i\000n\000s) /Dest/section.7.2 /Parent 65 0 R /Prev 66 0 R /Next 69 0 R >> endobj 70 0 obj << /Title(\376\377\000A\000n\000a\000l\000o\000g\000 \000A\000s\000y\000n\000c\000h\000r\000o\000n\000o\000u\000s\000 \000S\000t\000i\000m\000u\000l\000i) /Dest/subsection.7.3.1 /Parent 69 0 R >> endobj 69 0 obj << /Title(\376\377\000A\000s\000y\000n\000c\000h\000r\000o\000n\000o\000u\000s\000 \000S\000t\000i\000m\000u\000l\000i) /Dest/section.7.3 /Count -1 /Parent 65 0 R /Prev 68 0 R /Next 71 0 R /First 70 0 R /Last 70 0 R >> endobj 71 0 obj << /Title(\376\377\000E\000x\000t\000e\000n\000d\000e\000d\000 \000S\000t\000i\000m\000u\000l\000i) /Dest/section.7.4 /Parent 65 0 R /Prev 69 0 R /Next 72 0 R >> endobj 73 0 obj << /Title(\376\377\000P\000r\000o\000p\000a\000g\000a\000t\000i\000o\000n\000 \000D\000e\000l\000a\000y\000s) /Dest/subsection.7.5.1 /Parent 72 0 R >> endobj 72 0 obj << /Title(\376\377\000L\000i\000m\000i\000t\000a\000t\000i\000o\000n\000s\000 \000o\000f\000 \000t\000h\000e\000 \000S\000i\000m\000u\000l\000u\000s\000 \000M\000e\000c\000h\000a\000n\000i\000s\000m) /Dest/section.7.5 /Count -1 /Parent 65 0 R /Prev 71 0 R /First 73 0 R /Last 73 0 R >> endobj 65 0 obj << /Title(\376\377\000S\000i\000m\000u\000l\000a\000t\000i\000n\000g\000 \000t\000h\000e\000 \000R\000e\000a\000l\000 \000W\000o\000r\000l\000d\000:\000 \000S\000t\000i\000m\000u\000l\000i) /Dest/chapter.7 /Count -5 /Parent 6 0 R /Prev 64 0 R /Next 74 0 R /First 66 0 R /Last 72 0 R >> endobj 76 0 obj << /Title(\376\377\000U\000S\000A\000R\000T) /Dest/subsection.8.1.1 /Parent 75 0 R /Next 77 0 R >> endobj 77 0 obj << /Title(\376\377\000L\000o\000g\000i\000c) /Dest/subsection.8.1.2 /Parent 75 0 R /Prev 76 0 R /Next 78 0 R >> endobj 78 0 obj << /Title(\376\377\000I\0002\000C\000 \000E\000E\000P\000R\000O\000M) /Dest/subsection.8.1.3 /Parent 75 0 R /Prev 77 0 R /Next 79 0 R >> endobj 79 0 obj << /Title(\376\377\000S\000w\000i\000t\000c\000h\000e\000s\000 \000&\000 \000R\000e\000s\000i\000s\000t\000o\000r\000s) /Dest/subsection.8.1.4 /Parent 75 0 R /Prev 78 0 R /Next 80 0 R >> endobj 80 0 obj << /Title(\376\377\000V\000o\000l\000t\000a\000g\000e\000 \000S\000o\000u\000r\000c\000e\000s\000,\000 \000R\000e\000s\000i\000s\000t\000o\000r\000s\000,\000 \000a\000n\000d\000 \000C\000a\000p\000a\000c\000i\000t\000o\000r\000s) /Dest/subsection.8.1.5 /Parent 75 0 R /Prev 79 0 R /Next 81 0 R >> endobj 81 0 obj << /Title(\376\377\000L\000E\000D\000_\0007\000S\000E\000G\000M\000E\000N\000T\000S\000 \000a\000n\000d\000 \000L\000E\000D) /Dest/subsection.8.1.6 /Parent 75 0 R /Prev 80 0 R >> endobj 75 0 obj << /Title(\376\377\000g\000p\000s\000i\000m\000 \000M\000o\000d\000u\000l\000e\000s) /Dest/section.8.1 /Count -6 /Parent 74 0 R /Next 82 0 R /First 76 0 R /Last 81 0 R >> endobj 83 0 obj << /Title(\376\377\000C\000h\000a\000r\000a\000c\000t\000e\000r\000 \000L\000C\000D\000 \000-\000 \000H\000D\0004\0004\0007\0008\0000) /Dest/subsection.8.2.1 /Parent 82 0 R /Next 84 0 R >> endobj 84 0 obj << /Title(\376\377\000G\000r\000a\000p\000h\000i\000c\000 \000L\000C\000D\000 \000-\000 \000S\000E\000D\0001\0005\0003\0000) /Dest/subsection.8.2.2 /Parent 82 0 R /Prev 83 0 R /Next 85 0 R >> endobj 85 0 obj << /Title(\376\377\0006\0004\000 \000x\000 \0008\000,\000 \000S\000e\000r\000i\000a\000l\000,\000 \000I\0002\000C\000 \000R\000e\000a\000l\000-\000T\000i\000m\000e\000 \000C\000l\000o\000c\000k\000 \000-\000 \000D\000S\0001\0003\0000\0007) /Dest/subsection.8.2.3 /Parent 82 0 R /Prev 84 0 R >> endobj 82 0 obj << /Title(\376\377\000T\000h\000i\000r\000d\000 \000P\000a\000r\000t\000y\000 \000M\000o\000d\000u\000l\000e\000s) /Dest/section.8.2 /Count -3 /Parent 74 0 R /Prev 75 0 R /Next 86 0 R /First 83 0 R /Last 85 0 R >> endobj 86 0 obj << /Title(\376\377\000W\000r\000i\000t\000i\000n\000g\000 \000n\000e\000w\000 \000m\000o\000d\000u\000l\000e\000s) /Dest/section.8.3 /Parent 74 0 R /Prev 82 0 R >> endobj 74 0 obj << /Title(\376\377\000M\000o\000d\000u\000l\000e\000s) /Dest/chapter.8 /Count -3 /Parent 6 0 R /Prev 65 0 R /Next 87 0 R /First 75 0 R /Last 86 0 R >> endobj 87 0 obj << /Title(\376\377\000S\000y\000m\000b\000o\000l\000i\000c\000 \000D\000e\000b\000u\000g\000g\000i\000n\000g) /Dest/chapter.9 /Parent 6 0 R /Prev 74 0 R /Next 88 0 R >> endobj 88 0 obj << /Title(\376\377\000M\000a\000c\000r\000o\000s) /Dest/chapter.10 /Parent 6 0 R /Prev 87 0 R /Next 89 0 R >> endobj 89 0 obj << /Title(\376\377\000H\000e\000x\000 \000F\000i\000l\000e\000s) /Dest/chapter.11 /Parent 6 0 R /Prev 88 0 R /Next 90 0 R >> endobj 90 0 obj << /Title(\376\377\000T\000h\000e\000 \000I\000C\000D\000-\000 \000N\000o\000t\000 \000S\000u\000p\000p\000o\000r\000t\000e\000d\000 \000i\000n\000 \000v\000e\000r\000s\000i\000o\000n\000s\000 \0000\000.\0002\0001\000.\0000\000 \000a\000n\000d\000 \000l\000a\000t\000e\000r) /Dest/chapter.12 /Parent 6 0 R /Prev 89 0 R /Next 91 0 R >> endobj 91 0 obj << /Title(\376\377\000E\000x\000a\000m\000p\000l\000e\000s) /Dest/chapter.13 /Parent 6 0 R /Prev 90 0 R /Next 92 0 R >> endobj 92 0 obj << /Title(\376\377\000R\000e\000g\000r\000e\000s\000s\000i\000o\000n\000 \000T\000e\000s\000t\000s) /Dest/chapter.14 /Parent 6 0 R /Prev 91 0 R /Next 93 0 R >> endobj 94 0 obj << /Title(\376\377\000B\000a\000c\000k\000g\000r\000o\000u\000n\000d) /Dest/section.15.1 /Parent 93 0 R /Next 95 0 R >> endobj 95 0 obj << /Title(\376\377\000I\000n\000s\000t\000r\000u\000c\000t\000i\000o\000n\000s) /Dest/section.15.2 /Parent 93 0 R /Prev 94 0 R /Next 96 0 R >> endobj 96 0 obj << /Title(\376\377\000G\000e\000n\000e\000r\000a\000l\000 \000F\000i\000l\000e\000 \000R\000e\000g\000i\000s\000t\000e\000r\000s) /Dest/section.15.3 /Parent 93 0 R /Prev 95 0 R /Next 97 0 R >> endobj 97 0 obj << /Title(\376\377\000S\000p\000e\000c\000i\000a\000l\000 \000F\000i\000l\000e\000 \000R\000e\000g\000i\000s\000t\000e\000r\000s) /Dest/section.15.4 /Parent 93 0 R /Prev 96 0 R /Next 98 0 R >> endobj 98 0 obj << /Title(\376\377\000E\000x\000a\000m\000p\000l\000e\000 \000o\000f\000 \000a\000n\000 \000i\000n\000s\000t\000r\000u\000c\000t\000i\000o\000n) /Dest/section.15.5 /Parent 93 0 R /Prev 97 0 R /Next 99 0 R >> endobj 99 0 obj << /Title(\376\377\000T\000r\000a\000c\000e) /Dest/section.15.6 /Parent 93 0 R /Prev 98 0 R /Next 100 0 R >> endobj 100 0 obj << /Title(\376\377\000B\000r\000e\000a\000k\000p\000o\000i\000n\000t\000s) /Dest/section.15.7 /Parent 93 0 R /Prev 99 0 R /Next 101 0 R >> endobj 101 0 obj << /Title(\376\377\000T\000I\000M\000E\000R\0001\000 \000E\000x\000t\000e\000r\000n\000a\000l\000 \000i\000n\000p\000u\000t) /Dest/section.15.8 /Parent 93 0 R /Prev 100 0 R >> endobj 93 0 obj << /Title(\376\377\000T\000h\000e\000o\000r\000y\000 \000o\000f\000 \000O\000p\000e\000r\000a\000t\000i\000o\000n) /Dest/chapter.15 /Count -8 /Parent 6 0 R /Prev 92 0 R /Next 102 0 R /First 94 0 R /Last 101 0 R >> endobj 103 0 obj << /Title(\376\377\000G\000p\000s\000i\000m\000.\000l\000y\000x) /Dest/section.16.1 /Parent 102 0 R /Next 104 0 R >> endobj 104 0 obj << /Title(\376\377\000G\000p\000s\000i\000m) /Dest/section.16.2 /Parent 102 0 R /Prev 103 0 R /Next 105 0 R >> endobj 105 0 obj << /Title(\376\377\000L\000i\000b\000r\000a\000r\000i\000e\000s\000 \000l\000i\000b\000g\000p\000s\000i\000m\000,\000 \000l\000i\000b\000g\000p\000s\000i\000m\000_\000m\000o\000d\000u\000l\000e\000s\000,\000 \000l\000i\000b\000g\000p\000s\000i\000m\000_\000e\000X\000d\000b\000m\000 ) /Dest/section.16.3 /Parent 102 0 R /Prev 104 0 R >> endobj 108 0 obj <>endobj 111 0 obj <> endobj 112 0 obj <> endobj 118 0 obj <>endobj 119 0 obj <>endobj 120 0 obj <>endobj 121 0 obj <>endobj 122 0 obj <>endobj 123 0 obj <>endobj 124 0 obj <>endobj 125 0 obj <>endobj 126 0 obj <>endobj 127 0 obj <>endobj 128 0 obj <>endobj 129 0 obj <>endobj 130 0 obj <>endobj 131 0 obj <>endobj 132 0 obj <>endobj 133 0 obj <>endobj 134 0 obj <>endobj 135 0 obj <>endobj 136 0 obj <>endobj 137 0 obj <>endobj 138 0 obj <>endobj 139 0 obj <>endobj 140 0 obj <>endobj 141 0 obj <>endobj 142 0 obj <>endobj 143 0 obj <>endobj 144 0 obj <> endobj 145 0 obj <> endobj 149 0 obj <>endobj 150 0 obj <>endobj 151 0 obj <>endobj 152 0 obj <>endobj 153 0 obj <>endobj 154 0 obj <>endobj 155 0 obj <>endobj 156 0 obj <>endobj 157 0 obj <>endobj 158 0 obj <>endobj 159 0 obj <>endobj 160 0 obj <>endobj 161 0 obj <>endobj 162 0 obj <>endobj 163 0 obj <>endobj 164 0 obj <>endobj 165 0 obj <>endobj 166 0 obj <>endobj 167 0 obj <>endobj 168 0 obj <>endobj 169 0 obj <>endobj 170 0 obj <>endobj 171 0 obj <>endobj 172 0 obj <>endobj 173 0 obj <>endobj 174 0 obj <>endobj 175 0 obj <>endobj 176 0 obj <>endobj 177 0 obj <>endobj 178 0 obj <>endobj 179 0 obj <>endobj 180 0 obj <>endobj 181 0 obj <> endobj 182 0 obj <> endobj 186 0 obj <>endobj 187 0 obj <>endobj 188 0 obj <>endobj 189 0 obj <>endobj 190 0 obj <>endobj 191 0 obj <>endobj 192 0 obj <>endobj 193 0 obj <>endobj 194 0 obj <>endobj 195 0 obj <>endobj 196 0 obj <>endobj 197 0 obj <>endobj 198 0 obj <>endobj 199 0 obj <>endobj 200 0 obj <>endobj 201 0 obj <>endobj 202 0 obj <>endobj 203 0 obj <>endobj 204 0 obj <>endobj 205 0 obj <>endobj 206 0 obj <>endobj 207 0 obj <>endobj 208 0 obj <>endobj 209 0 obj <>endobj 210 0 obj <>endobj 211 0 obj <>endobj 212 0 obj <>endobj 213 0 obj <>endobj 214 0 obj <>endobj 215 0 obj <>endobj 216 0 obj <>endobj 217 0 obj <>endobj 218 0 obj <> endobj 219 0 obj <> endobj 223 0 obj <>endobj 224 0 obj <>endobj 225 0 obj <>endobj 226 0 obj <>endobj 227 0 obj <>endobj 228 0 obj <>endobj 229 0 obj <>endobj 230 0 obj <>endobj 231 0 obj <>endobj 232 0 obj <> endobj 233 0 obj <> endobj 237 0 obj <> endobj 238 0 obj <> endobj 260 0 obj <> endobj 261 0 obj <> endobj 302 0 obj <> endobj 303 0 obj <> endobj 309 0 obj <>endobj 310 0 obj <>endobj 311 0 obj <> endobj 312 0 obj <> endobj 316 0 obj <> endobj 317 0 obj <> endobj 322 0 obj <> endobj 323 0 obj <> endobj 335 0 obj <>endobj 339 0 obj <> endobj 340 0 obj <> endobj 346 0 obj <> endobj 347 0 obj <> endobj 365 0 obj <>endobj 366 0 obj <> endobj 367 0 obj <> endobj 376 0 obj <> endobj 377 0 obj <> endobj 383 0 obj <> endobj 384 0 obj <> endobj 388 0 obj <> endobj 389 0 obj <> endobj 395 0 obj <> endobj 396 0 obj <> endobj 400 0 obj <>endobj 402 0 obj <> endobj 403 0 obj <> endobj 407 0 obj <> endobj 408 0 obj <> endobj 412 0 obj <> endobj 413 0 obj <> endobj 418 0 obj <> endobj 419 0 obj <> endobj 427 0 obj <>endobj 428 0 obj <>endobj 429 0 obj <> endobj 430 0 obj <> endobj 435 0 obj <> endobj 436 0 obj <> endobj 440 0 obj <> endobj 441 0 obj <> endobj 445 0 obj <> endobj 446 0 obj <> endobj 452 0 obj <> endobj 453 0 obj <> endobj 457 0 obj <> endobj 458 0 obj <> endobj 462 0 obj <> endobj 463 0 obj <> endobj 467 0 obj <> endobj 468 0 obj <> endobj 472 0 obj <>endobj 473 0 obj <> endobj 474 0 obj <> endobj 478 0 obj <> endobj 479 0 obj <> endobj 485 0 obj <> endobj 486 0 obj <> endobj 493 0 obj <> endobj 494 0 obj <> endobj 498 0 obj <>endobj 502 0 obj <>endobj 503 0 obj <> endobj 504 0 obj <> endobj 508 0 obj <> endobj 509 0 obj <> endobj 520 0 obj <> endobj 521 0 obj <> endobj 525 0 obj <> endobj 526 0 obj <> endobj 530 0 obj <> endobj 531 0 obj <> endobj 535 0 obj <> endobj 536 0 obj <> endobj 540 0 obj <>endobj 541 0 obj <> endobj 542 0 obj <> endobj 546 0 obj <>endobj 547 0 obj <> endobj 548 0 obj <> endobj 552 0 obj <> endobj 553 0 obj <> endobj 557 0 obj <> endobj 558 0 obj <> endobj 562 0 obj <> endobj 563 0 obj <> endobj 567 0 obj <>endobj 568 0 obj <>endobj 569 0 obj <> endobj 570 0 obj <> endobj 574 0 obj <> endobj 575 0 obj <> endobj 579 0 obj <> endobj 580 0 obj <> endobj 584 0 obj <> endobj 585 0 obj <> endobj 589 0 obj <> endobj 590 0 obj <> endobj 594 0 obj <> endobj 595 0 obj <> endobj 599 0 obj <> endobj 600 0 obj <> endobj 604 0 obj <> endobj 605 0 obj <> endobj 609 0 obj <> endobj 610 0 obj <> endobj 614 0 obj <> endobj 615 0 obj <> endobj 619 0 obj <> endobj 620 0 obj <> endobj 624 0 obj <> endobj 625 0 obj <> endobj 629 0 obj <> endobj 630 0 obj <> endobj 634 0 obj <> endobj 635 0 obj <> endobj 639 0 obj <> endobj 640 0 obj <> endobj 644 0 obj <>endobj 645 0 obj <> endobj 646 0 obj <> endobj 650 0 obj <> endobj 651 0 obj <> endobj 655 0 obj <> endobj 656 0 obj <> endobj 660 0 obj <> endobj 661 0 obj <> endobj 667 0 obj <> endobj 668 0 obj <> endobj 672 0 obj <> endobj 673 0 obj <> endobj 677 0 obj <>endobj 678 0 obj <> endobj 679 0 obj <> endobj 684 0 obj <> /Subtype/Link>>endobj 685 0 obj <> endobj 686 0 obj <> endobj 690 0 obj <> /Subtype/Link>>endobj 691 0 obj <> endobj 692 0 obj <> endobj 696 0 obj <>endobj 697 0 obj <>endobj 698 0 obj <>endobj 699 0 obj <>endobj 700 0 obj <>endobj 701 0 obj <>endobj 702 0 obj <>endobj 703 0 obj <>endobj 704 0 obj <>endobj 705 0 obj <>endobj 706 0 obj <>endobj 707 0 obj <>endobj 708 0 obj <>endobj 709 0 obj <>endobj 710 0 obj <>endobj 711 0 obj <>endobj 712 0 obj <>endobj 713 0 obj <>endobj 714 0 obj <>endobj 715 0 obj <>endobj 716 0 obj <>endobj 717 0 obj <>endobj 718 0 obj <>endobj 719 0 obj <>endobj 720 0 obj <>endobj 721 0 obj <>endobj 722 0 obj <>endobj 723 0 obj <>endobj 724 0 obj <>endobj 725 0 obj <>endobj 726 0 obj <>endobj 727 0 obj <>endobj 728 0 obj <>endobj 729 0 obj <>endobj 730 0 obj <>endobj 731 0 obj <>endobj 732 0 obj <>endobj 733 0 obj <>endobj 734 0 obj <>endobj 735 0 obj <>endobj 736 0 obj <>endobj 737 0 obj <>endobj 738 0 obj <>endobj 739 0 obj <>endobj 740 0 obj <>endobj 741 0 obj <>endobj 742 0 obj <>endobj 743 0 obj <>endobj 744 0 obj <>endobj 745 0 obj <>endobj 746 0 obj <>endobj 747 0 obj <>endobj 748 0 obj <>endobj 749 0 obj <>endobj 750 0 obj <>endobj 751 0 obj <>endobj 752 0 obj <>endobj 753 0 obj <>endobj 754 0 obj <>endobj 755 0 obj <>endobj 756 0 obj <>endobj 757 0 obj <>endobj 758 0 obj <>endobj 759 0 obj <>endobj 760 0 obj <>endobj 761 0 obj <>endobj 762 0 obj <>endobj 763 0 obj <>endobj 764 0 obj <>endobj 765 0 obj <>endobj 766 0 obj <>endobj 767 0 obj <> endobj 768 0 obj <> endobj 665 0 obj <>stream xś31Q0P0QĐ5´P06P05RH1ä2Đ30Š!Ś‘śËU¨`dfT072L @ş Á’Nž\úžľ %EĄ©\úá@•\ú@e\úNÎ †\ú.Ń@ScąôÝôťťÝ€Ü}o v.}çüśŇÜĽb ;;.Oµ… Äę—˙][ţ˙‰Ë/˙WňĘţG˙6ßÍ\›Ý˛hÉU˝ ×$48¸\=ą.?ě endstream endobj 491 0 obj <>stream xś31Q0P04F †† )†\z†@>ÂÉą\…@I° „ahnh  k–sňäŇ÷ôU()*MĺŇĘsé{€I§g ĺ 44–ËÓEżAţ€ýz ü†őěä¸\=ąĚ##¶ endstream endobj 374 0 obj <>stream xś31Q0P04UĐ54R0˛T06SH1ä2Đ30 !Ś‘śËU¨`hbT0±0i24i3Ë:yré{ú*”•¦r釕ré{Őqé;8+ré»DŤŤĺŇwÓwvvrllô˝ÚąôťósJsóŠZěě¸<]ÔÖ<Ľ|ůň˙˙·nÝ:ţ˙˙˙ÓgŮ—/˙űżúžëŰş]QuTE–\ee`ärőT䍵8 endstream endobj 424 0 obj <>stream xś31Q0P0RĐ5T01T05TH1ä2Đ30 !Ś‘śËU¨`liT052Ś €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ †\ú.Ń@CcąôÝôťťÝ€Ü}o n.}çüśŇÜĽb ;;.Oµm˘®Ëšz®‘|pŽ{ë˝ý˙‘ńß-HřőV ţwíoý˙»‚ˇËŐS! ŹôJú endstream endobj 371 0 obj <>stream xś31Q0P0QĐ5T0¶T05RH1ä2Đ30 !Ś‘śËU¨`ljT052L €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ †\ú.Ń@CcąôÝôťťÝ€Ü}o n.}çüśŇÜĽb ;;.Oµ…'*4>do‘›×y´FŔnríţűűÇ]ď_ő2{iS$wÜôß>Ió7Wż}űţďýóµ6ń±µ:ł–MĎĚ]w°)Ztë† ‰ X¸\=ąÇhE“ endstream endobj 338 0 obj <>stream xś31Q0P0bCSC…C.=C aŚä\®BcK° Padh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVR.Ń@cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚Ú ‘ř“«žěh«űŮÇ˙˙iÝď˙˙˙ă˙˙ź7Őţź0‰ü˙J\Î7¨ˇËŐS! ä C endstream endobj 334 0 obj <>stream xś31Q0P0bCSC…C.=C aŚä\®BcK° Padh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVR.Ń@cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚÎ y+ż}wÍýŕ|ńş—ĺďc×}˝"ŽoýDËŐ/ż×_ż7~őŐ_bÍZFY±kÖj«cmX¸\=ą‚†Iß endstream endobj 331 0 obj <>stream xś5L;aV¨†¨d*˙?˛:‘ŤEld4 QˇŻxŐŕJ*4âJ•†Bˇ  ÄHĚó=Ç0P#aĐc„°B CšD”ýr:hţ‰ ŇR˘ź·AŮö»*¨‚AĄ%*žµPH˘(OK RʲRBłŃ¨ĘH”Őn š­žTb1°XL}ąÚÇÉ×˝gź‡ůa™ÇŽů=šĚ™Żł1oWü<1żö>­–bß׾ ÷‚7ţ»ś—cş]&$mĚÁćµW endstream endobj 328 0 obj <>stream xś31Q0P0bSC…C.=C aŚä\®Bcs° Palh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVR.Ń@cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚Ú‚6¦˛&˙AŕořŞ˙˙?wşŘů:É<صj=X8ôŐţŽąÎuľ›l”Ň˙żÚÝr…Á…ËŐS! »E® endstream endobj 258 0 obj <>stream xś31Q0P0bSC…C.=aŚä\®BcK° Pahh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVR.Ń@cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚŠFG˙ĚZç~˙?>stream xś31Q0P0b#SC…C.=C aŚä\®BcK° Palh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVR.Ń@cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚Ú ˘ę?1Úý>qڳȷČ/|˝Řé…Â/˙Ë/íă&˙—ŹĘÜW[µ˙Űîúu·ŢŢH,SIÚ4×:Ć`G˘)#—«§B ÚD endstream endobj 484 0 obj <>stream xś31Q0P0V0˛P01R05TH1ä2Đ30 !Ś‘śËU¨`liT022Ś sK°ś“'—ľ§ŻBIQi*—~8P!—ľP—ľS€ł‚!—ľK4ĐĐX.}7}gg7 7ŔĆFß[A(ăśźSš›W ÔbgÇĺ颠¶ńŔŤ‚&rł 3˙Ţr5î}ůÄ‚¶3«^mŤU˘ Ľ4µV­4u4XŔÄ Ŕĺę©ČE‰4Š endstream endobj 363 0 obj <>stream xś31Q0P0bSc3…C.=C aŚä\®BcK° Pafh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pV0äŇw‰ËĄď¦ďěěäŘŘč{+čeśósJsóŠZěě¸<]Ô[(~Ř0ĂńeË—ËöU+î?ôeőŻżzö«~}Ť4 ˙˙R˙ú_˝-ľ˙9lő_ŻŰ›˝ęlŐ_˝ĹßöíĘÎ0XŔÄ Ŕĺę©ČbCL endstream endobj 360 0 obj <>stream xś31Q0P0SĐ5´P01Q06SH1ä2Đ30Š!Ś‘śËU¨`laT052Ě @ş Á’Nž\úžľ %EĄ©\úá@•\ú@e\úNÎ †\ú.Ń@ScąôÝôťťÝ€Ü}o v.}çüśŇÜĽb ;;.OµEr<Ż9L^®­Ş•_í˝nüË0«Uë¦ů:˝Ž_=ęő×˙Q/ëżţúúővܡę÷[›í?~}ýőäÝĚułâ¦˙eŮ«×víЭì Ś\®ž \&dJ˝ endstream endobj 356 0 obj <>stream xś31Q0P0bSc3…C.=C aŚä\®BcK° Pafh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pV0äŇw‰ËĄď¦ďěěäŘŘč{+čeśósJsóŠZěě¸<]ÔÍaâ‘Q¸|9¶ÖŢý××__Ż˙ZSz=ęŻÎ¬ÎŻëöÇÖ­ţt?FáËô˙ëżľ _kÝ­ë‚os^®mą&ḂˇËŐS! ˝_D; endstream endobj 353 0 obj <>stream xś31Q0P0bsc3…C.=C aŚä\®B° Panh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pV0äŇw‰ËĄď¦ďěěäŘŘč{+čeśósJsóŠZěě¸<]ÔŰ\(hć°5hľěß}ńĎ‹¸Ž_VýŐ÷t­›őëR–Ż“űúK˙_Çżţúoüë˙kW04ppąz*r;;Ď endstream endobj 251 0 obj <>stream xś31Q0P0bc3…C.=C aŚä\®Bc ° Padh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pV0äŇw‰ËĄď¦ďěěäŘŘč{+čeśósJsóŠZěě¸<]ÔVĽ9ŰÍ"'|(ĺjS‘zŤc…oÉuçë_Ż˙Ź˙?]ýó jŕ`hŕrőTä–ä7Ż endstream endobj 248 0 obj <>stream xś31Q0P0bc S#…C.=C aŚä\®BcC° Panh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVr\˘Çré»é;;»ą66úŢ ş@çüśŇÜĽb ;;.OµmĚÍí˙®?Ě-˙˙ÔúO®Ö+ĚýŹ~:Všz1(0qąz*rË€9Ç endstream endobj 245 0 obj <>stream xś31Q0PacKc3…C.=C aŚä\®BcS° Pabh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pV0äŇw‰ËĄď¦ďěěäŘŘč{+čeśósJsóŠZěě¸<]Ô´5Lh>ÄĎak+ĹűBáŢä…_÷ý—Ü˙Ôü˙˙­j«ăżíľž˝mzö¶i‡9s®ID$&¶20rąz*rű:z endstream endobj 242 0 obj <>stream xś31Q0P04Fć †† )†\z†@>ÂÉą\…@I° „ahfh  k–sňäŇ÷ôU()*MĺŇĘsé{€I§g ĺ 44–ËÓEAžÁľˇţŔ˙0XŔľAžËŐS! Ô7$D endstream endobj 500 0 obj <>stream xś31Q0P0VĐ5´P01Q06SH1ä2Đ30Š!Ś‘śËU¨`bhT052Ś @ş Á’Nž\úžľ %EĄ©\úá@•\ú@e\úNÎ @ŽK4ĐÔX.}7}gg7 7ŔĆFߨťKß9?§47Ż¨ĹÎŽËÓEAmÁłd3̇ěíť/Z–pŘMţňË˙ú꯿ŹÖ˙˙˙żfÖŞ˙ŰöţÎľő¶őFb™íDî6ń­Vüźl/żüßĘ ŔČĺę©Č%Hđ endstream endobj 417 0 obj <>stream xś31Q0P0UĐ5W0¶P0µPH1ä2Đ30 !Ś‘śËU¨`llT032L €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ †\ú.Ń@CcąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚Ú‚Ř„9:şş"ü¬ vý‡ëś ;CŹ:µ«­|’đ#ż&ţď›<űć íüül ¸\=ąUo@« endstream endobj 321 0 obj <>stream xś31Q0PacKS#…C.=C aŚä\®BcS° Pabh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pV0äŇw‰ËĄď¦ďěěäŘŘč{+čeśósJsóŠZěě¸<]Ôže|Đë¨ČŢňE®óŘóCüKîűËľ/Ż?ą*vťýş­Żă¶^ştÝ83tuuuTlٲĄCżĘó÷Ň Ç'‡,`bPŕrőTäLq?€ endstream endobj 519 0 obj <>stream xś31Q0P0SĐ5T01Q05RH1ä2Đ30 !Ś‘śËU¨`laT052Ě €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ †\ú.Ń@CcąôÝôťťÝ€Ü}o n.}çüśŇÜĽb ;;.Oµ…Îx8>doůňĹ/ߡůeÜäŻ%óckKżţ{-ő·dż7÷ŇĄ-¦MđćĐe]Ú"Ö¤đsÁ^Ő×—ľL_uµRA0ĂôÁĄ ëęc™Ű–\U¸îp¨ˇËŐS! €¬IV endstream endobj 516 0 obj <>stream xś31Q0B]C Cc3…C.=C°(ś‘śËU”7 *š†`M†`9'O.}O_…’˘ŇT.ýp B.} *.}§g Ç%hh,—ľ›ľłł`cŁď ÔÎĄďśźSš›W ÔbgÇĺ颠¶ ťINF῏—ëÝ˙L¸ň+´nţŇk{Ă˙/=ţőßężáżÖ__mőËŞoÓV–M˝6ÝľőBbĹëżuűŻ‰ úîÉ!ű¸\=ą$áI¶ endstream endobj 513 0 obj <>stream xś31Q0P04&– ¦† )†\z†@>ÂÉą\… Ćć`A *C]K=KKK S'O.}O_…’˘ŇT.ýp j.} R.}§g ĺ 49–KßMßŮŮ Č °±Ń÷VĐĘ8çç”ććµŘŮqyş(¨-Ůň]M˙¤Wű˙†ÖŻ[ý˙VŘĆăëŻ˙ú[ŹFhí{<9ô—«§B  Â@­ endstream endobj 450 0 obj <>stream xś31R0P0U0S0"s…C.=C ÂÉą\… Ɔ`AĂÔ-ÁRNž\úžľ %EĄ©\úá@i.}0éତ\˘fĆré»é;;»ą66úŢ ş@çüśŇÜĽb b;;.Oµ…ľL™/â÷÷÷˙ň˙Ń˙“«âÇoÝşµMěŹ —«§B L,-  endstream endobj 382 0 obj <>stream xś31Q0P04&¦ ¦† )†\z† 8#9—«PÁŘÔ,TeŇÔ¤k©giiia RŕäÉĄďé«PRTšĘĄTÍĄďTĘĄďତ\˘&Çré»é;;»ą66úŢ ş@çüśŇÜĽb ;;.Oµwtí˙~’¬żţúoÝţkŽżń´/]×sßóËjĎ__ö­Ž_żę˙5»Ő_Őţ ”ěżš»^mŐʲŐE7ŻúrMÂ7±E"€‘A€ËŐS! ĽG~ endstream endobj 299 0 obj <>stream xś31Q0P0b#c3…C.=aŚä\®BC° Pahh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVr\˘Çré»é;;»ą66úŢ ş@çüśŇÜĽb ;;.OµŻ”Ţ&oĘÚzůɇ¶3˙ W˙˙'›żö˙ó˝/˙˙—[˙˙Úß»—Ç˙ż”ş7oÇă˙Ë˙WÝĘbP`ârőTäN»G´ endstream endobj 296 0 obj <>stream xś31Q0P0QĐ5T0¶T05RH1ä2Đ30 !Ś‘śËU¨`ljT052L €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ †\ú.Ń@CcąôÝôťťÝ€Ü}o n.}çüśŇÜĽb ;;.OµĎ>do‘›7Żçě …{“kí&׿4˙7ąţËŻű˙ż|Ľ˙˙˙˙ż+MŁţ˙˙vé˙ß-űo{o˝·;vË6 ď¤mŰ6:ĚĹ ŔÄĺę©ČcId endstream endobj 293 0 obj <>stream xś31Q0P0bSC…C.=C aŚä\®Bcs° Palh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVR.Ń@cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚŠĺL¬f-ťôţ?*ř$ĄL·şOYŔÄ Ŕĺę©Č<í endstream endobj 290 0 obj <>stream xś31Q0P0bcsSC…C.=C aŚä\®Bc° Panh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVR.Ń@cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚJ×'WuÚß˙Ç Všz1(0qąz*rşŤ9r endstream endobj 287 0 obj <>stream xś31Q0P0QĐ5T0¶T05RH1ä2Đ30 !Ś‘śËU¨`ljT052L €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ †\ú.Ń@CcąôÝôťťÝ€Ü}o n.}çüśŇÜĽb ;;.Oµ…žGY›Řć5h_×Ë~ÁáŻÝä/÷V˙˙»Um•í÷ ßřç:vkTśČQ‘Ż0ő‰ÄeĹŤćí·˙î׺˙˙­ţ–µ‰K­ş»VžŃ‘Ęš`°€‰AËŐS! ͲGt endstream endobj 284 0 obj <>stream xś31Q0P0bCS#…C.=C aŚä\®BcK° Padh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pV0äŇw‰ËĄď¦ďěěäŘŘč{+čeśósJsóŠZěě¸<]ÔnřUőú—Íţ—Uńżâ¦˙›ľô˙Ň—ő N|Ü>÷hˇ•úäM¬ź˙Á'žË˙o5p04pąz*rńD endstream endobj 281 0 obj <>stream xś31Q0P°bcsS#…C.=C aŚä\®B# ° Paih  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pV0äŇw‰ËĄď¦ďěěäŘŘč{+čeśósJsóŠZěě¸<]Ô´1_ţ[[zť{jHQé:ß}ů˙¨ŕSçŃ'W58¸\=ą B;˝ endstream endobj 278 0 obj <>stream xś31Q0P04UĐ54R0˛T04TH1ä2Đ30 !Ś‘śËU¨`hbT026i24i3Ë:yré{ú*”•¦r釕ré{Őqé;8+ré»DŤŤĺŇwÓwvvrllô˝ÚąôťósJsóŠZěě¸<]ÔÖ<ĽPUU˙űŢ'q×_/]'t(0”Ë7 €‘A€ËŐS! C*,˛ endstream endobj 275 0 obj <>stream xś31Q0P0UеP0¶PĐ5RH1ä2Đ30 !Ś‘śËU¨`llT0Ҧ†@=†`)'O.}O_…’˘ŇT.ýp :.}3.}§gC.}—h ‘±\únúÎÎn@n€ŤŤľ·‚.PĆ9?§47Ż¨ĂÎŽËÓEAmĄë§¬) ,\®ž \hý!‚ endstream endobj 272 0 obj <>stream xś31Q0P0bCc3…C.=C aŚä\®BcK° Padh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pV0äŇw‰ËĄď¦ďěěäŘŘč{+čeśósJsóŠZěě¸<]ÔVĽ2•Ýęç¶)±ç˙Ö{űß–Ż˙űúßő*TNö·m ¸\=ą!=; endstream endobj 269 0 obj <>stream xś31Q0P0bc SC…C.=C aŚä\®Bcc° P•PеԳ´´´0É;yré{ú*”•¦ré‡sé{qé;8+)—h Á±\únúÎÎn@n€ŤŤľ·‚.PĆ9?§47Ż¨ĹÎŽËÓEAm!G˘JK"ű‚/_ü?8|tÜö˙ʬ%Ó.=:Ĺíí™Yş>ęë˙˙˙·ö˙˙ÉŢŁđß˙ö‡C  \®ž \â$>® endstream endobj 492 0 obj <>stream xś31Q0P°bCc3…C.=C aŚä\®Bcc° Paah  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pV0äŇw‰ËĄď¦ďěěäŘŘč{+čeśósJsóŠZěě¸<]Ôěttd>TUU’ˇĎzéëżµŐÜ95/äľ±1řpϡÉËž÷_FŤÂ˙×±™)Î'W‰nÝÚ&Ćł@†Á…ËŐS! :' endstream endobj 434 0 obj <>stream xś31Q0P0S06U06W01WH1ä2Đ30 !Ś‘śËU¨`lhT042Ě ŚM,ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ @ŽK4ĐĐX.}7}gg7 7ŔĆFß[A(ăśźSš›W ÔbgÇĺ颠¶ ťQ‘˝EN Âń!{‹ss‡ă†ć™Y šŁ9Lą\=ąôf(˝ endstream endobj 394 0 obj <>stream xś3P0CC L1ä2Đ30„ŔÉą\… †PU ¬ kwňäŇ÷ôU()*MĺŇW0äŇ÷NÎ Ę%h\,—§‹—«§B A„¬ endstream endobj 266 0 obj <>stream xś31Q0P0TĐ5´P01P06SH1ä2Đ30Š!Ś‘śËU¨`liT052 @ş Á’Nž\úžľ %EĄ©\úá@•\ú@e\úNÎ †\ú.Ń@ScąôÝôťťÝ€Ü}o v.}çüśŇÜĽb ;;.Oµ ŇŹ6ńsXě4őWć™kˇpßqßě×ß~Ő˙űýţí^˙Wďú–˝ŐŢmBŹv=źôáЇ˙Áŕ©z÷OS/&.WO…@.ŕHW endstream endobj 683 0 obj <>stream xśł0V0P0UĐ5´P07W03PH1ä2Đ30Š!Ś‘śËU¨`ndT0·2L @ş Á’Nž\úžľ %EĄ©\úá@•\ú@e\úNÎ †\ú.Ń@ScąôÝôťťÝ€Ü}o v.}çüśŇÜĽb ;;.Oµ<Ř:yJ(T8>bbońca_ŕpOŔ±}As‡ů’{“«|_š_~iľöË/ß×µv“ëżüş˙×nű˙˙ďű˙˙˙˙Ö§¬­˙˙®˙}=űß×[˙·MĎŢ›»ôÖűč̲ݙąK·M»ÍŁşáPDb‹ŘÁ¦”†ĆÄŽÄ„)R  \®ž \*abX endstream endobj 666 0 obj <>stream xś31Q0P0bCSC…C.=C aŚä\®BcK° Padh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVR.Ń@cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚŠ6Ť-˙ź\UŰT!ůčőËÚŞ¸éë—~}Y·oúőĄ/«~Ő˙Şë×—ýň7Ţ÷ëďZűđË×˙®ű„÷˙Ý Hdîö˙”59€‘A€ËŐS! Ú-J_ endstream endobj 425 0 obj <>stream xś31Q0PacKSC…C.=C aŚä\®BcS° Pabh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVR.Ń@cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚Ú®Ë˙ź7;}Ů˙eßŢZÝUGKö{{Ů‚JtÖŞÇM_·W˙ËFyµ•, \®ž \kŹ<§ endstream endobj 375 0 obj <>stream xś31Q0P0QĐ5T0¶T05RH1ä2Đ30 !Ś‘śËU¨`ljT052L €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ †\ú.Ń@CcąôÝôťťÝ€Ü}o n.}çüśŇÜĽb ;;.Oµ7L8…ü.ĚĚô\Úő2łt}TÔ×ő@żô××˙K˙˙Š˙¤ŕw#—«§B "ž;; endstream endobj 372 0 obj <>stream xś31Q0P0QĐ5T0¶T05TH1ä2Đ30 !Ś‘śËU¨`ljT052L €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ †\ú.Ń@CcąôÝôťťÝ€Ü}o n.}çüśŇÜĽb ;;.Oµ5KJţ˙zެý &/oâ僧ű©ßÄűaţ˛_µďĹ˙î˙óýňŃŻ×/ť\µôVtö­h6Îś°k‰ X¸\=ąEBDŃ endstream endobj 336 0 obj <>stream xś31Q0P0bCSC…C.=C aŚä\®BcK° Padh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVR.Ń@cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚŠ9Ƭf­sź˙ž”ţŞ˙˙¶’˙ßôĄ/«â ÄúĺG˙«ß÷ýZkďűĺţýýŰßţýý4ŚăEëňź¦ž+8¸\=ąäHk endstream endobj 332 0 obj <>stream xś31Q0P0UĐ5T0¶P05RH1ä2Đ30 !Ś‘śËU¨`llT01L €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ †\ú.Ń@CcąôÝôťťÝ€Ü}o n.}çüśŇÜĽb ;;.OµE˛.Mě-róć›p?dż”˙oţ˙Ç[ţĂŔßőj«ă˙ßúżm:÷ń­[ŰÄxDX¸\=ą>stream xś31Q0B]CcSC…C.=C° ś‘śËU”7 *† =†`)'O.}O_…’˘ŇT.ýp :.} ".}§gC.}—h ™±\únúÎÎn@n€ŤŤľ7P7—ľs~Nin^1P‹ť—§‹‚ÚŠ+JÝţź˛&Gę)Îß˙;řűúßőŞ·e—n{·‰'mŰpčÖÁ¦†.WO…@.¸|J endstream endobj 364 0 obj <>stream xś31Q0P0bsc3…C.=C aŚä\®B° Palh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pV0äŇw‰ËĄď¦ďěěäŘŘč{+čeśósJsóŠZěě¸<]ÔIä—;ÄŁđEGýőŃOeµZżV_­Zuý×ú˙K¦Çí˙µ>4nŐţŻˇŻV˙˙z5{Ő˙řס@™…ëCî_™µäBC—«§B ů§H endstream endobj 361 0 obj <>stream xś31Q0P04Ć– ¦† )†\z†@>ÂÉą\… FĆ`A *C]K=KKK S'O.}O_…’˘ŇT.ýp j.} R.}§g ĺ 49–KßMßŮŮ Č °±Ń÷VĐĘ8çç”ććµŘŮqyş(¨­xeXŻ¶zÂüëŻ˙ÖíG%–(˙p|ý7üzüŇׇ˝“oÝş‘Ĺ ŔÄĺę©Č‘?3 endstream endobj 357 0 obj <>stream xś31Q0P04&F Ćf )†\z >ÂÉą\… Ɔ`A *C]K=KKK S'O.}O_…’˘ŇT.ýp j.} R.}§g Ç%hr,—ľ›ľłł`cŁď­  ”qÎĎ)ÍÍ+j±łăňtQP[pđăAö9áË-żp~™˝ô‚÷kďKqMQMc ‰|řrUťłKŮÜ »“·nŘpč0+#—«§B Ą”;V endstream endobj 354 0 obj <>stream xś31Q0P04& ¦F )†\z >ÂÉą\… F–`A *C]K=KKK S'O.}O_…’˘ŇT.ýp j.} R.}§gC.}—h É±\únúÎÎn@n€ŤŤľ·‚.PĆ9?§47Ż¨ĹÎŽËÓEAmá‚›—/˙˙»vMý˙~‡ř9lKľ¤ýŠŹ›~]ęjö•YMĄŻă_Çuô?dŹŹ }ý˛ęWLŘőÄÄVF.WO…@.öü?É endstream endobj 351 0 obj <>stream xś31Q0P04&¦ Ćf )†\z† 8#9—«PÁŘÔ,TeŇÔ¤k©giiia RŕäÉĄďé«PRTšĘĄTÍĄďTĘĄďŕ¬`ČĄď 49–KßMßŮŮ Č °±Ń÷VĐĘ8çç”ććµŘŮqyş(¨-xŢ,Đlúűz¬äľÉQq“żľ ŹŰ·őú˙5µáŻ|qXý_uimuśohĐŰđ$íôĐ—k fć0XŔÄ Ŕĺę©Č©=P endstream endobj 259 0 obj <>stream xś31Q0P0bcKSC…C.=C aŚä\®Bc° P•PеԳ´´´0É;yré{ú*”•¦ré‡sé{qé;8+)—h Á±\únúÎÎn@n€ŤŤľ·‚.PĆ9?§47Ż¨ĹÎŽËÓEAmĹr1Íß˙c‚wâ|8¸\=ąIŕ; endstream endobj 256 0 obj <>stream xś31Q0P0bc c3…C.=C aŚä\®Bc#° Pafh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pV0äŇw‰ËĄď¦ďěěäŘŘč{+čeśósJsóŠZěě¸<]Ô I¶łčsŻŰeÂů ů¨mý·+łźÂÖmĘ|S@µ˝MŽÇ¦ÍôDÎ2ާŃI÷ŢżŤŤHRĘUÄĺÄĆĹ ŔÄĺę©Č#@8 endstream endobj 252 0 obj <>stream xś31Q0PacKc3…C.=C aŚä\®BcS° Pabh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pV0äŇw‰ËĄď¦ďěěäŘŘč{+čeśósJsóŠZěě¸<]Ô>stream xś31Q0P0RĐ5´T01R06WH1ä2Đ30Š!Ś‘śËU¨`b`T052Ś @ş Á’Nž\úžľ %EĄ©\úá@•\ú@e\úNÎ †\ú.Ń@ScąôÝôťťÝ€Ü}o v.}çüśŇÜĽb ;;.Oµ¸&s>d>$Îíć„^ߵɹ%Ź×~ůßv_ĎŢ6í0gFm†^1÷aîă˙÷îsbßPĹďřňʼn*éöţ˛—˙˙]3kŮt˝Ăś9Ş#s&t`apŕrőTäoÔLV endstream endobj 246 0 obj <>stream xś31Q0P0b#c3…C.=aŚä\®BC° Pahh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVr\˘Çré»é;;»ą66úŢ ş@çüśŇÜĽb ;;.Oµ Ňboůňä*ż2ĎôóWżüőë˙ë˙ČŕĎ’'Żşý?eM`dŕrőTäě×AĽ endstream endobj 243 0 obj <>stream xś31Q0P0UĐ5W0¶P0µPH1ä2Đ30 !Ś‘śËU¨`llT032L €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ †\ú.Ń@CcąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚÂY[ţ–®Źúúë+€ $ćúxT¦lQÖ.WO…@.^ł?ě endstream endobj 501 0 obj <>stream xś31Q0P0UĐ5W0¶P0µPH1ä2Đ30 !Ś‘śËU¨`llT032L €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ †\ú.Ń@CcąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚŠiÝď|Ă÷ţľ˙űţ^BbîýŹĘÜý;€‘A€ËŐS! uNH endstream endobj 517 0 obj <>stream xś31Q0P0UĐ5´P01V06SH1ä2Đ30Š!Ś‘śËU¨`laT052L @ş Á’Nž\úžľ %EĄ©\úá@•\ú@e\úNÎ †\ú.Ń@ScąôÝôťťÝ€Ü}o v.}çüśŇÜĽb ;;.Oµ…~x8Îú0« =ʤŠóĄéĺ—UńˇëŻŻżZ˙„˙/ýż~ýŇm{×ÝÓ®ýřáĐšÚúőםĎ^6%ęe”PĎU܉‰M  \®ž \ÔËIµ endstream endobj 514 0 obj <>stream xś31Q0P0bSSC…C.=C aŚä\®Bc ° Panh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVR.Ń@cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ڲޗ˙ßOýőßşýקŰ:ńwż˙R’ßňG}üúőU˝ţďY·˙eé"˙Ž/ëcK_dž˙ |ý2¤:6Ë7×…ÁËŐS! K—D» endstream endobj 344 0 obj <>stream xś31Q0P0RĐ5T01P05RH1ä2Đ30 !Ś‘śËU¨`laT052Ś €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ †\ú.Ń@CcąôÝôťťÝ€Ü}o n.}çüśŇÜĽb ;;.Oµ…çŮ:üýý÷Ęíµż·ţú˙˙˙_}e˝äÝ~ďW×/[D,˝µţWÜjď˱Ů[/>]«ýµôŐkĎ­˙Íţf·ťEÜ‘˝ţ­Í¬Uu—Ł3~eúTűćÚ]ććQ¸ÂŕŔÂĺę©ČÉëN× endstream endobj 300 0 obj <>stream xś31Q0P0bCSC…C.=C aŚä\®BcK° Padh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVR.Ń@cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚŠ9™ß–\Ífoz.ěvý?äę˙˙˙ďú˙żŻ!äďř˙ß×˙‡?ţg˙˙˙möÇ˙PđGŔŔáŃĺ?ł–\ap`árőTä¶ÖX endstream endobj 297 0 obj <>stream xś31Q0P0bCSC…C.=C aŚä\®BcK° Padh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVR.Ń@cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚŠJÝţź˛&GÚ)Ż˙Ź˙˙˙|ŕřdđi‹R¦Řü'WŐ01(pąz*rK-HÎ endstream endobj 294 0 obj <>stream xś31Q0P0VĐ5T01P05RH1ä2Đ30 !Ś‘śËU¨`lnT052Ś €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ †\ú.Ń@CcąôÝôťťÝ€Ü}o n.}çüśŇÜĽb ;;.Oµ;gtłđZń&Úµ»µ.hľÄďh_7oú˝éż~eĽţ˙˙ť¦ń˙Nď˝üw˙·ëĄŰöGóčÝŠćş±vŤé† ¸\=ą=A= endstream endobj 291 0 obj <>stream xś31Q0P0bCSC…C.=C aŚä\®BcK° Padh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVR.Ń@cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚŠ‚®Ëďů†®™y®¸ű˙ß˙˙ß˙÷˙ż˙÷˙C©·˙˙˙s Ô{°şăS¤Źţţ3kÉ.WO…@.¨=X˛ endstream endobj 288 0 obj <>stream xś31Q0P0bCSC…C.=C aŚä\®BcK° Padh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVR.Ń@cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚJ×ĎýYţ˙˙˙Ď7čÖqů˙¨ŕO‹ŕŻęxF.WO…@.{¸;4 endstream endobj 285 0 obj <>stream xś31Q0P04U02R0˛T05TH1ä2Đ30Š!Ś‘śËU¨`hb*4é1˛ -Á’Nž\úžľ %EĄ©\úá@•\ú@e\úNÎ †\ú.Ń@ScąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚Úš‡ŞŞľ˙ý}ď“Z}lÝŢ쥿"Ľ#VµŞ­t`apŕrőTäµů/ endstream endobj 490 0 obj <>stream xś31Q0P°T02W06Q05RH1ä2Đ30 !Ś‘śËU¨`dj„0, 3K°ś“'—ľ§ŻBIQi*—~8PžKßL:8+ré»D ŤĺŇwÓwvvrllô˝t2Îů9ĄąyĹ@Ĺvv\ž. j;78l‘đłţ˙Ď7l˙˙˙˙_ń˙{ű˙/ż·€‰AËŐS! ‘‹2 endstream endobj 282 0 obj <>stream xś31Q0P0QĐ5T0¶T05RH1ä2Đ30 !Ś‘śËU¨`ljT052L €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ †\ú.Ń@CcąôÝôťťÝ€Ü}o n.}çüśŇÜĽb ;;.OµŽ3&8|'|ů˘e ç^Ő qÓŻŻŽň-±úúëë“’ŽGYä„»çzd{ČörWÝËßűź\­˙˙íßîµ×wÝ­öNlŮ&áť´mۆC‡Yą\=ą´4H­ endstream endobj 279 0 obj <>stream xś31Q0P0V04S0Ň& )†\z†@A „1’są ŚÍ Ŕ‚ †@†±!aj –sňäŇ÷ôU()*MĺŇ*äŇ÷ŞâŇw pV0äŇw‰ËĄď¦ďěěäŘŘč{+čeśósJsóŠZěě¸<]ÔVş>ąŞS˙˙”H÷ÉUŚ \®ž \ďţ&h endstream endobj 276 0 obj <>stream xś31Q0P0bcs3…C.=C aŚä\®BcS° Padh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pV0äŇw‰ËĄď¦ďěěäŘŘč{+čeśósJsóŠZěě¸<]Ôú¶uŐ˙˙˙˙§s`˝ÚĘu~˛ď÷˙˙˙Űvď6ń¤]‡ŁąŮDX¸\=ą|\9 endstream endobj 273 0 obj <>stream xś31Q0P0U0Q0¶P01SH1ä2Đ30Š!Ś‘śËU¨`llT012L Ś-ÁRNž\úžľ %EĄ©\úá@u\ú@E\úNÎ †\ú.Ń@3cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚN)ëö˘ěö î>\‘řöaűö6ąĂ‡«ůy¶×G8&겶lŠpĚL±„.r- ™őĐ…ÁËŐS! 07ĺ endstream endobj 270 0 obj <>stream xś31Q0P0VĐ5W02S0µPH1ä2Đ30 !Ś‘śËU¨`dlT032Ś €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ †\ú.Ń@CcąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚJ×'WS$Ţ˙Ç˙ ź\Ő`hŕŕrőTäKŁ9ł endstream endobj 267 0 obj <>stream xś31Q0PĐ5&& Ćf )†\z >ÂÉą\… &¦`A * Cׄő,---LAňNž\úžľ %EĄ©\úá@Ĺ\ú@•\úNÎ †\ú.Ń@cąôÝôťťÝ€Ü}o Ĺ\úÎů9ĄąyĹ@-vv\ž. j+Îśç¨P;ÄŁđŘ×ŇÔ™űč“sQÜçVýĘüµ~Ő˙˙żÖ˙Ç]’NŻ6–§\ŐZ_ŢŔÁĐŔĺę©Č`ÜIň endstream endobj 373 0 obj <>stream xś31Q0P0aKc3…C.=C aŚä\®B ¤XÂ064PеԳ´´´0É;yré{ú*”•¦ré‡Őpé{€I§gC.}—h Á±\únúÎÎn@n€ŤŤľ·‚.PĆ9?§47Ż¨ŘÎŽËÓEAm×ĺ˙Ď›ťľěŐ÷ľtË[d Mş {_Ş{/˝ô˛dŁĽÚJ.WO…@.\X84 endstream endobj 426 0 obj <>stream xś31Q0P0QĐ5T0¶T05RH1ä2Đ30 !Ś‘śËU¨`ljT052L €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ †\ú.Ń@CcąôÝôťťÝ€Ü}o n.}çüśŇÜĽb ;;.Oµm ˛/_ľŘq/‹ôĄ|Gű{“żÜ©­®˙˙˝Úę·ůos׶‰fÝxSo›8Źj×Ć˙q[_ë]÷ŰrýŇ—˝Uś9ÓE7lŰpč0+#—«§B gľEß endstream endobj 423 0 obj <>stream xś31Q0P0UĐ5W0¶P0µPH1ä2Đ30 !Ś‘śËU¨`llT032L €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ †\ú.Ń@CcąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚŠ "O®ÚtőČóľ˙÷?ř–öđafĆ‚ ]Öë0á;ĽYO­ÓŃ4uXŔÄ Ŕĺę©Č_řD. endstream endobj 362 0 obj <>stream xś31Q0P0SеP06QĐ5RH1ä2Đ30 !Ś‘śËU¨`daT0Ňf†@=†`)'O.}O_…’˘ŇT.ýp :.}3.}§gC.}—h ‘±\únúÎÎn@n€ŤŤľ·‚.PĆ9?§47Ż¨ĂÎŽËÓEAm…Ć^ L\®ž \‡f!? endstream endobj 359 0 obj <>stream xś31Q0P04&F Ćf )†\z >ÂÉą\… Ɔ`A *C]K=KKK S'O.}O_…’˘ŇT.ýp j.} R.}§g Ç%hr,—ľ›ľłł`cŁď­  ”qÎĎ)ÍÍ+j±łăňtQP[pp¦#{‹śđu—g/„/EĹę‡.}É&îü+ţăő˙wf­äĽUvčM‹kßµC‡ąyDX¸\=ąö†7: endstream endobj 355 0 obj <>stream xś31Q0P04& ¦† )†\z >ÂÉą\… F–`A *C]K=KKK S'O.}O_…’˘ŇT.ýp j.} R.}§g ĺ 49–KßMßŮŮ Č °±Ń÷VĐĘ8çç”ććµŘŮqyş(¨­ŔÝýÓ4¦˙×ßúő×}úĐüč÷{ó‡ć—żÜŐŹŰé˙úżî«ţV]_[˛eÉUÓ·ş¦‹nÝ°ML"€‘A€ËŐS! Ě”C) endstream endobj 337 0 obj <>stream xś31Q0P0´TĐ5W02U0µPH1ä2Đ30Š!Ś‘śËU¨`fS035i14j2Ë9yré{ú*”•¦ré‡+qé{Uqé;8+ré»DÍŚĺŇwÓwvvrllô˝t2Îů9ĄąyĹ fvv\ž. j+]˙CŔ?ß †.WO…@.˙\)8 endstream endobj 333 0 obj <>stream xś31Q0P0bcKSC…C.=C aŚä\®Bcs° Padh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVR.Ń@cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚŠŐ\ ďdf-źôHćźüáşű˙ţ×ţ˙˙˙omŐ˙—އ>Ćěz°óář´Şű§©—«§B ů BČ endstream endobj 330 0 obj <>stream xś31Q0P0bCS#…C.=C aŚä\®BcK° Padh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pV0äŇw‰ËĄď¦ďěěäŘŘč{+čeśósJsóŠZěě¸<]Ôěü7˙˙Ë˙ű_˙ýů˙Ú˙˙÷Mý˙˙˙KsţżäľüżůźĚ˙)˙˙˙kżjÖrĚ*ŰxÓ4ęĺ&.WO…@.ŁKx endstream endobj 327 0 obj <>stream xś31Q0P0S0W06W01VH1ä2Đ30Š!Ś‘śËU¨`lhT062Ě Ř,ĺäÉĄďé«PRTšĘĄTÇĄďTÄĄďŕ¬ä¸DÍŚĺŇwÓwvvrllô˝t2Îů9ĄąyĹ@-vv\ž. j ž1ľü˙˙_áG…Çö:ÚëąNIL""17±ő‡ăˇě-2ľĆ3˛ 6Ľ.Řđä:7ŹNá˙˙W04ppąz*rXÇ>stream xś31Q0Pccc3…C.=C aŚä\®BcK° Pabh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pV0äŇw‰ËĄď¦ďěěäŘŘč{+čeśósJsóŠZěě¸<]Ô+¶U8|h~řňłˇ|ű‡{—¶Vě˙çX[$âĆÝzčĹ }WĆ_¬v¬Ű˙źopܡ7±ťko l8TaขˇËŐS! ¨¬@ż endstream endobj 254 0 obj <>stream xś5L˝‚` Üď)î l |V„„o ŃÉÁ8©ŁFg_™‘­VŇ\î7­**ZͲfaĽt§aÜ&®>stream xś31Q0P0b#c3…C.=aŚä\®BC° Pahh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVr\˘Çré»é;;»ą66úŢ ş@çüśŇÜĽb ;;.Oµ ]ţ?9´¦ż#y˙đ·ţë۲S^Ý}óúÁASF.WO…@.;@C endstream endobj 247 0 obj <>stream xś31Q0P0a3SC…C.=C aŚä\®Bcc° Palh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVR.Ń@cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚÂńsľĽÖ«'îąnżü˙˙§»šz+ţţŹ>Oľü˙VC—«§B ąŮ=Ý endstream endobj 244 0 obj <>stream xś31Q0P0bcKc3…C.=C aŚä\®Bcc° Pafh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pV0äŇw‰ËĄď¦ďěěäŘŘč{+čeśósJsóŠZěě¸<]Ô<1jâç°Ń›×yä…řŇ/×&$–X}ý˙˙äŞú{OLâ3oŰvé†Al׭É X¸\=ąF«:l endstream endobj 483 0 obj <>stream xś31Q0P0T0˛P01P05TH1ä2Đ30 !Ś‘śËU¨`liT022 sK°ś“'—ľ§ŻBIQi*—~8P!—ľP—ľS€ł‚!—ľK4ĐĐX.}7}gg7 7ŔĆFß[A(ăśźSš›W ÔbgÇĺ颠¶H‚•›łĺŐÖ(Ď ±I±a“bC˛CŐYO>//ŻźZ+;sŤ‰TC—«§B –.Ľ endstream endobj 401 0 obj <>stream xś31Q0P0bSC…C.=C aŚä\®Bc ° Padh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVR.Ń@cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚJ×'WSv´őý‚­Ź˙˙bű«ţ˙ů˙˙mÄ˙˙˙g˙˙Óóń®Éˇ  \®ž \‰›@K endstream endobj 352 0 obj <>stream xś31Q0P04& ¦† )†\z†@>ÂÉą\… F`A *C]K=KKK S'O.}O_…’˘ŇT.ýp j.} R.}§g ĺ 49–KßMßŮŮ Č °±Ń÷VĐĘ8çç”ććµŘŮqyş(¨-lN ţý×ßúőם ĽS”µ7Ĺ˙ßţř×_Á„âýCüńŻöęMżôe7gNxt47Ź —«§B ÝĚ=Ç endstream endobj 518 0 obj <>stream xś31Q0P°TĐ5T01U05RH1ä2Đ30 !Ś‘śËU¨`lfT052, €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ †\ú.Ń@CcąôÝôťťÝ€Ü}o n.}çüśŇÜĽb ;;.Oµ… ÎD(|hľ|¨J]Ż)żĺWřňőëżM3ýőuÝ´]ŞĽľěßçśţöýß÷˙çý5í^˙7S+VW›ÓsU˘žvvbbk—«§B Ý>stream xś31Q0P0bSC…C.=aŚä\®BcK° Pahh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVR.Ń@cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚŠÉüíO®ÚÉywŘü1űű˙Ű˙@đ˛ţőËŞ8ÎÂŘŇĂ?l¸?˙ţí˙ď÷eÖŻŹ÷>ôĂ[ĂĹJSÇ‚F.WO…@.-íGQ endstream endobj 381 0 obj <>stream xś31Q0P04&† Ćf )†\z† 8#9—«PÁŘĐ,TeŇÔ¤k©giiia RŕäÉĄďé«PRTšĘĄTÍĄďTĘĄďŕ¬ä¸DMŽĺŇwÓwvvrllô˝t2Îů9ĄąyĹ@-vv\ž. j v~Lh>ÄďĎ˝¨¸ŠsźđË*ßK˙˝ŻÇÇ˙ęýőuÝô—ž«2«b[osć„sgóč02pąz*r‰›7 endstream endobj 301 0 obj <>stream xś31Q0P0UĐ5W0¶P0µPH1ä2Đ30 !Ś‘śËU¨`llT032L €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ †\ú.Ń@CcąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚÂfĆ®ú˙˙[řYř9lÔ—/*)´e:¸OLúŇýőý[˙ÖßúgÖňţşĂ?ě“oض·ÉIćgűyţá~ŢßĎj?4ż§˙˙ëßZĎUŻďGWÄ}ŮĆϲMi۶ ‡6lý˙˙w#—«§B ĄťSÚ endstream endobj 515 0 obj <>stream xś31Q0P°bSSC…C.=C aŚä\®Bcs° Paah  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVR.Ń@cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚Úš Ňš˙ßOýőßşý×'ř]Qh7ýňUÉ˙Žµ*ű&˝šô+ŢÓôeX«é…ŻżřŰďŰĚ[˛ÂĄžO Şţ~lmxüŻă×3ĺŁC®ĚZ"ŔČ Ŕĺę©ČÜ[H endstream endobj 393 0 obj <>stream xś31Q0P0V0S01P01QH1ä2Đ30Š!Ś‘śËU¨`lnT0¶2Ś L-ÁRNž\úžľ %EĄ©\úá@u\ú@E\úNÎ †\ú.Ń@3cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚Ú‚ Ió˙ÁżBŤö“+ô Ä!Ü˙ż¸\=ą 3ň endstream endobj 345 0 obj <>stream xś31Q0P04Fć ¦F )†\z†@>ÂÉą\… ††`A *C]K=KKK S'O.}O_…’˘ŇT.ýp j.} R.}§g Ç%hr,—ľ›ľłł`cŁď­  ”qÎĎ)ÍÍ+j±łăňtQPŰ kk±˙˙“«ú˙Áŕ0·ü˙łłŞ ë|nÝjŕ`hŕrőTäČ2Ú endstream endobj 298 0 obj <>stream xś31Q0P04Fć Ćf )†\z†@>ÂÉą\… ††`A *C]K=KKK S'O.}O_…’˘ŇT.ýp j.} R.}§g Ç%hr,—ľ›ľłł`cŁď­  ”qÎĎ)ÍÍ+j±łăňtQPŰ kk±_mennň˙˙˙źť…rX¸\=ąI|, endstream endobj 295 0 obj <>stream xś31Q0P0bSC…C.=C aŚä\®Bc ° Padh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVR.Ń@cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚŠv‡wf-źüHlžô·ż÷ç˙Żß„˙˙ßţ—ţ˙Ź_˙·no­~Ľ÷ĄÓDBť&‡08°pąz*rhCç endstream endobj 292 0 obj <>stream xś31Q0P0VĐ5T01T05RH1ä2Đ30 !Ś‘śËU¨`laT052Ś €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ †\ú.Ń@CcąôÝôťťÝ€Ü}o n.}çüśŇÜĽb ;;.Oµ…ÍŹfX(dľ0=$·ËÄ®‰˙ňK»É_~ý­Ú˙+~ëăŹ×˙˙dýzů˝ÚŞënŢ˙żm˙÷÷ßv˙]wŰŢu‡ą7ľYcúFmC" —«§B T8K endstream endobj 289 0 obj <>stream xś31Q0P0RĐ5T01V05TH1ä2Đ30 !Ś‘śËU¨`bhT052Ś €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ @ŽK4ĐĐX.}7}gg7 7ŔĆFߨ›Kß9?§47Ż¨ĹÎŽËÓEAmĹtžG|2–¦ţęG˙Ř·ýÝ_˙w˙˙˙˙˙ę˙­Őç¬Ó^'^űů |Ű_ Äřôţ üÖ»bÇÚ_“Cf1XŔÄ Ŕĺę©ČBŻI! endstream endobj 286 0 obj <>stream xś31Q0P0WеP0˛T0µPH1ä2Đ30 !Ś‘śËU¨`ddT032Ě €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ †\ú.Ń@CcąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚŠŠwO®Ş®Čşďďk÷żŻ_˙ďý X·˙ë믯żl}·őŠ Ęjjŕ`hŕrőTäWŔC© endstream endobj 283 0 obj <>stream xś31Q0P0QĐ5T0¶T05RH1ä2Đ30 !Ś‘śËU¨`ljT052L €š ÁrNž\úžľ %EĄ©\úá@…\ú@U\úNÎ †\ú.Ń@CcąôÝôťťÝ€Ü}o n.}çüśŇÜĽb ;;.Oµm >4â÷wy\Ĺa~É}˙µ_ţ˙˙˙;ł~Űôě ‡"[ÄŽ&¶NđJńúĐ|qĆ=Çö͵v“«|˙‹Ü˙˙Ď7Řűßő\Ý-;Ë$Ľ“¶m8t›Ť‹A‰ËŐS! #~KĂ endstream endobj 280 0 obj <>stream xś31Q0P04QеP06S0µPH1ä2Đ30Š!Ś‘śËU¨`ddT033é14ę2K:yré{ú*”•¦ré‡Uré{•qé;8+ré»DMŤĺŇwÓwvvrllô˝t2Îů9ĄąyĹ@-vv\ž. j ś•®ŐŐe] ×öf_›ţúúëëJ˙˙˙{rŐ˙ďűżďű}ő÷í °áŰ·÷Y L\®ž \ťäC endstream endobj 277 0 obj <>stream xś31Q0P0RĐ5´P01T06SH1ä2Đ30Š!Ś‘śËU¨`liT052Ś @ş Á’Nž\úžľ %EĄ©\úá@•\ú@e\úNÎ †\ú.Ń@ScąôÝôťťÝ€Ü}o v.}çüśŇÜĽb ;;.OµŻLĹKwšzmŠpěąý·zí˙¸×ő[ďí[ľţŰő×÷_úź˙eűďŰě_×ßú[ő·ęĎö…׾µzBżb®]»vĐ…ÁËŐS! bÚHÜ endstream endobj 274 0 obj <>stream xś31Q0P0bCc3…C.=C aŚä\®BcK° Padh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pV0äŇw‰ËĄď¦ďěěäŘŘč{+čeśósJsóŠZěě¸<]Ôv^hĚ\ţ˙·oJ[EÜ´[ŃĄŰöČŤoK·î›·÷ĹŁŞđŐ_îM®ş7ůË˝©Żî…-č[ť-;9tÝ<&.WO…@.ţB- endstream endobj 271 0 obj <>stream xś31Q0P0U0Q0¶P01SH1ä2Đ30Š!Ś‘śËU¨`llT012L Ś-ÁRNž\úžľ %EĄ©\úá@u\ú@E\úNÎ †\ú.Ń@3cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚Ú‚ bĄ­k6Lk:Ĺ͡«Ł°eĹ™ˇŃ{rťÜáĂŐüĽŰ··ÉÝ“˛ŢŘ·É>|ĎŁÁĐŔÁĺę©Čš56T endstream endobj 268 0 obj <>stream xś31Q0P04WĐ5W01P0µPH1ä2Đ30Š!Ś‘śËU¨`dlT035é14ę2K:yré{ú*”•¦ré‡Uré{•qé;8+ré»DMŤĺŇwÓwvvrllô˝t2Îů9ĄąyĹ@-vv\ž. j+]_UHüGźxmf-e`ärőTäY1 endstream endobj 265 0 obj <>stream xś31Q0P0b#SC…C.=aŚä\®BC° Pahh  k©giiia ’wňäŇ÷ôU()*MĺŇ*ćŇ÷ŞäŇw pVR.Ń@cąôÝôťťÝ€Ü}o] Śs~Nin^1P‹ť—§‹‚ÚŠĆ®f­sż˙ž,Čüaţňă'R~ř_ýň·¶ţëdđ/¨¨ÔuůOSĎ \®ž \YĚGá endstream endobj 116 0 obj <> endobj 772 0 obj <> endobj 451 0 obj <>/FontMatrix[1 0 0 -1 0 0]/FontBBox[0 0 1 -1]/FirstChar 13/LastChar 15/Widths[ 83 0 42] /Subtype/Type3>> endobj 773 0 obj <> endobj 109 0 obj <> endobj 774 0 obj <> endobj 775 0 obj <>stream xś]O1Â0 Üó ˙ )şT]ĘŇ„€¤ŽSe¨ĄéŔď!iËŔp–Îw'źe×_zv ä=z|RëŘDšý‘` Ń±¨`¦Ť•‰“BvW^ď@đ5]ůMO$u}*«j ˇ74Ť5Ź$ĄÚĆÚV›?i vsžŹmRĘ˙®äh.±ß\b$NĄii’ 8¦ß3Á‡ś‚/ÄBSg endstream endobj 358 0 obj <>/FontMatrix[1 0 0 -1 0 0]/FontBBox[0 0 1 -1]/FirstChar 46/LastChar 121/Widths[ 44 0 0 0 44 44 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 44 0 0 0 0 0 0 0 0 0 0 44 0 44 44 44 44 44 0 44 44 44 0 44 44 44 44 44 44 0 44 44 44 44 0 0 0 44] /Subtype/Type3>> endobj 776 0 obj <> endobj 307 0 obj <> endobj 777 0 obj <> endobj 778 0 obj <>stream xś]Ź=Ă …wNáéO:D,é’ˇUŐöLÄ@„ ˝}I:tx–lżg}¦mwíśM@Ń«&0Öé“źŁBčq°Žđ ´UiëJUŁ „¶7Ţź€°Ьý]ŽHźu})#ľ†”×8©0J7 iŤ1‚ Ó«j ôfsž´(Ş8; Ňś˘1¦K|7ćK™iG5Ç.đ–y¬ĂßoÁ‡ś‚Eä ą,VÜ endstream endobj 253 0 obj <>/FontMatrix[1 0 0 -1 0 0]/FontBBox[0 0 1 -1]/FirstChar 16/LastChar 125/Widths[ 44 44 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 44 44 44 44 0 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 0 44 44 44 44 44 44 44 44 44 0 44 44 44 44 44 44 0 44 44 44 44 44 44 44 0 44 44 44 44 44 44 0 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44] /Subtype/Type3>> endobj 779 0 obj <> endobj 117 0 obj <> endobj 769 0 obj <>stream xśťxy\S׺öŽ@ö®R«¤©‰Ř$µ8TmkkmkµuF*˘Ě@$B‡Ĺ<$@(ó$ j±N§jëĐ:ťÎ¶¶µµ§í©=çÝtqďď® µç|ßwßýýî?˛kŻ÷}ź÷yžwó(×)ŹÇx+cBău{41ŢšŐ;žŰ)Wr_/f=yěś)ěÓ.{pčďʱ-n¬ÄťBî.ČݵiŽ4Őc¬{ć×ě×3&Ď)âµđ†y¬×Ű{|-Y˛t&6I«ŚÔËž_˝zµ,4IöÇŠlŁ\§ŚPË ňhMlŚ\­_&Ű+—Ëô‘r™B-—mŘĺă·Ő{łĚkł÷۲Írµ\-ó‰ŤV†Év(Ăäjť|‘LˇŃʢ'˙…iÔáJ˝RŁÖ-“˝©“…Čt±ň0%ů'ą!LË-,•Ĺʵ1JťŽ|–)u˛mZ/—é52Ą:,:>ś{<ů^ˇQëe±Z YŹ!+ä(ŤNŻ Ó*cő2ňDźŤoMŢQ˘çž«S’e™FAv†kÂâąhţ\Ó‡(Ő:™^nĐsĎ •Ë•şŘč$ň\rT¬V9q…xťRńŻ§/•iĺ!Úđhąnâ\.+˙ŠOöoQ‡ÄĆF'MüŻfbןĎWęuňhŲÉÂĘHeCÔ2R\ŮWÝř˙wá_ĺúߢ¨ oެ×lÝ·Iű–nł~KüÖ„Äí†ĐIa;Ă˝ĺ»>»#÷(÷ŞöE˝˝?ĆwŐ+«_]°vĘŇç–-_ńü /®|éeŠšKí˘VSĎR>Ô¶ě±SSN=6ŤžV5ížűn÷KŹ/|<ďń/¦Żź>ř„ţ <#fžé=ó;_ŹFDP$8ý¤čɋ½BăSôS¦§úgĺ(‘Mô™čâ™âąâŐb‹řóŮfźôä{†zŢ‚âéc ä„u} łĂ^;ol“SËG) ~0ëŘ&‘†ŹµăĂňeiĆCb-9iź}5jF5Άw­}"çw®±D x”`JŹĚĎA¦‚Ô|F wčń<0 ż‡Ü_p®Űtö4r°W"7A Î C$"Ä{uüˇ¬ĘtÂŕ…dff0:ČvĐŠŇ4+ęaŔNŁ’ňŞŞJFp§©Ńaiň쪋Ý+Ĺ94RR”ądsš/N· c ”Đw÷źY˝+@ăŁpÁŮÇf°6Ž˝"ÄĹZ~eA*.čĎ·d J0'řoĎL×Gi#Ăb‘Éž_Š,¨ÁRŃ]D>Ö2Nü“–îΫIo „xH„7ฅÎä—MRQ줽Ë«5ÚŰoţÜűŽčü˛ĹP©Cf1JNÎĚĎEćSÉĹ}'­,4ÖúonŃ'ŕň5¸7×ß,O[ŽśÚvö÷ŁZ§ÇCX +`5–ŔşY‚Ĺ6reUK_Ë­OAqŤÓÖg2•nŃ°\oŰ°a ˛MyTiÝdeŃŔtÜžýë˛sř5‰7ľ+<ʨ~=ő6ž˛8ÔďŐ äş!)[čÚm­é“˘Ż·?7WĄÁOäI§ły©měš6žÂó°ĐJŘ!xÍĹsđł?ĚY |đN¶ä!J Ł…çë÷áWđ˛DßÝ>‰ďŔŘxxô˘”$Üpbě±ŢIŘä26– }vFéÔiŞl ÚŠvt©GŐ§S?B?3v¦€űČ`’|P2ޤęZË8ÁËOŤ4› (Kâ«|‡Ş!‹đ2ŚCa!^a^¨ë9#mol´źb˛pHC‚C!¦3ěÔsa·ČE_ŻY‚Í˙†°*aăů4 ÍĚ8D˛ř¬ši­ö.N¶Ł+ }{ đFşlýŇł®é m‚1;Łß'µölż~©ż%ętźm,tNŕóĺY/öĚń›|AÍ˙MßTó›$«‘Zö3şÂÝ4üč-‰šu€b_ĘZÄl7Ô J!‡·`†i†oăřFĚŹŔT!Fş·¦rVťTb±SâäOg}_<ďČ´{|ÎEv Ô\%wëřŮŐ&6Áˇéć LŇţőÚ»$­]d`7=Ú:ŘQQ™•R-©Źµf4#¦§ąµO*X1¬ěđ÷“Çnń—Lg9Ů˙ř3$ö.¤Ë|AĎDHFäűo!iaÜI//I˛ 3 ¤ŇĎďQÔ’ű;á[-? ó##"îúźžšŞwľ»Ů&iÔVÇÖî`$ qj'űJŻĺgĚ„KÇ—Üšř°śťo멨h.˙`»‡“Űtŕ§áiBlĚeazz^^^A§fUÚ¤PK±ö4žŽÝÖXęĐô·::kłkŇl’ŚŞ<?ÓĐjë’îźoŽő–®§ń´‰ mp ˇş`Ć{$đňąăöSg$Ő 'Ń jłő0‚_°ď9altbš11 -ýçŹű¤A:ʼn‚=F 6Vĺj ÍĄ&+>ĎNěďvţXAętLK×Ô”tç×d˘D”’“Ťc°Z*}hµÝä0ř-Ç4‡1 ö ™“üÉp€nqÂ6śXŻ+Íŕ …)5GĹ™+”ĘŠ{ˇyČή& 08„)ĄY%YŐŘ ˘_ŔŁľÉ^ÝV*vŕ×u41<Ũ© "‘1=Y•ťm4˛ËsËňJ˘ŽĹ ’âXjË:ţ@GsnYŽ=žÄ~"µ"V•‘ş÷ÍÄdE>!Ů5:˘(µY‘µůXďń˘âňŠňĘzuť¶,ŁIUe@i(-5;šŰ™=Ń>íěüwałk|XĹ9ŠÎí×ńŹgTfhˇ?>{<´;ĺřţCX’7`—CŠäp…tŹkÝ ÝÖ‹m[ŇJb¶m‰m;ńH‘Ć(§ÇoyÇŽy@˘PÍW­IŚŽŚ UěMz1ŢśÚ°Ń4şU[óU I÷ßµôŐÜĂh• 0™×g0-{‹Ë$9Ç޵ól0Í…Ő˙_=•ź‘ˇÝŚ÷‰6ŔÎÄwBbTk©tŮ E˙ÖOĹhxQ]駢¤ýÉ~qQz$ÎȬ¨,DE…ĹŇÂŇÂRTÂŃŮ•ŠŘ8y@żę\çKC¤ˇÉŢßő=,bźŐ«Şj+&Íí“z…sNěvđ„Š¸ÔPĬÜ÷ĚůµýҨ͚i.“T Rxđ°ľ1Çš}·śxĎYř ž‡%ßxÁŚ;gŰnž—N˙}ă$j;ƶÂr—±WŮÇËh´75m‚lľtŇkŞŇ«Ń‡ ëMHŰj˝ÁÁł”ĆţăŃŘźŤvĂeZţŤl›‰Ş†F»Lik8¨šśôę2C=şÉ°*JÇżukáse?ßÄN=K Oš×‹ž§ľ3 Ź×8K/–_¬ ÄPlŞ!VťýGéč+9•YÄůŕítđń[‘”)«exľTĐçÜöúít‡íÔ$ď/B”ťžśfJÔ'‰Xî×ţ ląpľŁM'ŻĺÜW’=ź‹Óăá»a#ëdnZľŐOěaĆŐ4ÚcL]ĎQ}˘“~Ł2©ž‹yákvďř€[+{—ŹÎŐÔĽ_EÂŹŇŇ7łęĐFź§ąŠ|»z`eŹ]3…aŁ“‚Q8RNčJjĎěČ˝Ć@)?ű ăHTŻŞ/ŔľŹ1s•^€|¶f|z˛ýţűRl…µÂbp?ܵ˘ú”ŠčRC‘¦čc¤˙Té.˘Ň˙$Ι}zlłˉ´zápFLďBbÉo’Ń0Ć‹` ¨„0ĺ2~śl ى§`Ó;‰Ą„čKŔŔcR"˝ÄB==‡Úxőý}IďŇ(ŘśCÚ´ÍAo*Jł ÷¸ňŐĐJNź±6v®ÎJËÍËĘN—dsÍ(ť‰nÖuö8ť=|VmńŐĹJâ#łBŃKĚž ţ¤“ď"Nęg˘ÎŻrË°ÂY!xvţ´mč=t‡féd Á·ř‚a"Ëٵ)h3Nđ¶Ó”čźť‡ŇóÍÜČř•“~˝ŠŘŐŚŕ›ęÚTgéřĽ#S;Ňäqz‰.Q•µqę‡Cۉ,¸Őѧ3Úž%đ Řv®đ4~Šü@Ů‚4eažxÚŞ­K•5Ş&Ť´QWoI|=6LŽ|Qčá¤ËzFđŁyG†J:{÷-%xŔ«_Źţtgçńů’mü×Ë[Ź¶6öK‡ Fł¬Ó.\§†››NĎFýiG5­Ěăű…‚ćw›“UűâĽ^ hj(Żnm’ –P÷Ř áH˝|Ů2C„˙ˇ¤îűß×÷Śp*‚7ŽŚµţ«Řcjü0*#%Ď€üQŕae§ˇ>ÝšÔóis—}đř{ďwÜE?2N¸}±YÁx1^ŠĂW´­:ż]2Đžx[Ód14éĎîý"ękô¬¸ŐÂŕźĆú…ŕz»l„Nbń„â2‘/ľôŃ8ÎôµIăá\Çěăş<…2ăĺ˙ßiĽ±‰Śâůďfńb“•›Ĺ 'fńýŠÄÝľłř¦ř+Űaí,Áť± §0 ™ĘŇkpôŠ.Ô;kZťGZlýhÚëŢţ47sjŤhĂhÖ§§ŻáÚřŰ?© ´Đ†?pľŕŔřvöG!*+±—•UŮJťů®'xîvcxT‚4.Y™µ¶€ŘҶ‰ńâ,÷ř ,'C%á©űÎq?ÉŔ'Qˇ“3FVf€™„•é #KÓjQ/ń›Ř ##C;TCCťCĘ®`.Ą¤‹g·ěC$ŐŮ0m–ŕÖŔj„CgĹef&ďl.ŽŻ`wlţQerO<ç•7°Ç‹Ł;`Ú镨ŻCqČWüÖÁŔ7vű9OĘ%±=©É×5FGřeΊJŞ@ŐyŤY§’{˛ÉÔáőó—ŕq+ŕÖöv)^xăŐţx':!ľx¬÷ęđ1˘[ŇiSŰ·qµ±˙(íÜÉhk¸huüw&˝+aČýF˝Ę`*Ż*-./«’TŮJŞQs4ÖĄĐj#|·~vítËÉVI}{E/ş@±nl“0XIŃ®ěęŚäÁ)ôŘ4;Ę8g[Ź Ń›fóKśÚŚ9é•eć*t›a4<‘;P‡§1Gřůŕ6ţ#?¸á×Á´Ńă0Ł„™@éăŕ]'đd«¸ëŞôüęüŞ‚âG^uqCéIf3~?)b7ŕ]:ş3Ż6É'°nLRĺMVÎż<§ Ť0Ŕ§›?ŕŮuÚň4”)ć ‹¦€ě09h3Ę)ΰŕýĐ úů·ćĂ—Čä2¦0śă9yáÖË {I.ÔÚ.s «Ą˙šmODë9…Ŕ^{ßÂÓć^€9řŠFýeŤÖZ I߉˘I«w=Ëb"ŕĹdmQĂÁ÷‚ND^Nşn˘ëŤ=ýͷŃýIDr±^áZ1”kĹ=:~Wž- )&ÂQ$'*˙GUROfú Ő›KĽúnn»RË˙0Çš…˘PJ^Zr0ŕĎDÜÇ0śkAV1j˛V÷•˘šB+÷bëž–>•U™éÜ•ăD-|0°_8.ÖÖŚr/Ąn>zW÷á$7L@'!ěŃŰ”ěę´GýažśÁł¸ţ0sýÁ1D™­ľ¦Š|jk¨+ŻóěłęwMpD¨Ů¤Č›Lxd ˇ“ÉÍĄÜćĆ:˛1˝VťĎÄÖsšśŰšá Ă‹ĚnĐš|µ·G®ßî+‰ąéŘv €Xů.fúďFŁťÝj‡ývŢďJ.Ű´üwó¬é(™ňŤ9©Ř?a çZQĄ9¬•CĹEdś.ărńľ–Č·gTëş–đTüvg©[~·óĄr”s#ZúXvUFÝA˙IÔĘo6ÖŽÇŰţěO5ýM ĹâIWn§yl÷Na%?kÝśüúËŽ†3¤cĂřÄWu»ý@”3ĎÔ>öäŹVxO!¬)sśqŢ‚;Â=˝)N«Öĺ(™˙ĺfbw¤÷?!š|QvU"¸ń łŕňě{kĎâiŘó…Ms×őďűÉGî® 8Î2#ÝÝ#gŰ×řgęUAdZ„!đÖ;˘Đ›ĚUčŰާnëż á®b4 ˙ŮÂk†Ą¤Ú+\ÚLBŮŻ:˙záďwŢý'o.7,Ă3ź÷ÂOă©7^^osim‹$/}őub)$--0Ťc±đvmŚj ×hÍq()mÚćŕaőe4ŠzęťgÚţ˝p˙ h€é˛7´źÜ˝%4Qď—<‘~’‡ăvŘŃíqîűbX ‹f ~#Ä™"D7*j/ő}{öčşĆüüÚDѧ¬Ůµ*čHT_Żłą×žcI®—¤ŐQ·Šq8mݧŰ­öMŹTí”č2őHŻĹ0‚ű¶u€p’ŕ’Ěžž‘ăňľ€?L1ţG5:ö÷YÄ+>ä7WdĆIń…™MŹ´˝h{?ĂΡWdćE"ć>ú­¤ËÚRÓŘTMĆ5ÁoGiĆ‚‚Ľ‚NĂV B_˝!-{>P–p&lŮÇ·ş® ŰâľqS~‡#"%áá‰JÍ:¦•ßv±§ő]4„: Ť–„ ŇŁ Ăľ¨ÖD†ŃfŁgWrI=Ĺ^ýÔşaÁ:ŕĎ|yžµ {ßëhEĚĄľ°[##—ĆH“éĎŐÉÝJFp­M}8đĐě ň€]:Cu»JŢc‹AŚ~žť%ř…LĚBvÓk´ĎÄĽ¶uů®Ąbě…xMu>Ě».|Á}ú–óA§ÜČI™ď±Y ౏ýŐ…ŚâÇ…ĐĆqž‹ńß~ČČJßӜ޶2{‚öęc-GĂ$Áí15q‰ÓFî?yŹřc?Ă3·‚ymRyutÉęRnV1µŔ˛óZa鱥.¬Š+§Ř°3~­/v}Ă»",fđ›ß‘kĘ`Ć·?D=ľţŻźkŠ‘ôŔÂĎ?…GśŽű„WšöáńÔ´ú¤ŞútirGú t],;W^ZQV[RKćŁD;b_;żc*Ȧut¸»¬ÉýqŠú/0hD0 endstream endobj 110 0 obj <> endobj 770 0 obj <>stream xśĹxiXS×ÚöŽ!Ů»­Ú–4š¨M¨µŐÖˇjµbťgT&•AÄ0H€’@´Ă”HçyĹYZ­ÖˇÔÎÓikŰÓµ9‹ó˝ďÚpÚžë=ý~Ľßźďş’¬˝×z†űąźűY,Âi Áb±x{#cŽ$(Ľd1{e«Ý{IÂź_§głč9SčŮ[Qě?\Ǣ9´h*¦˛ÁT§ę9ŻÍuCĎŹm~–ţüąÉ}ňXM¬aÖŘ‚ý^_[¸pŃ™<9>2áC, öŻ׉ÄB—ŘL,"ü-ÄbÂźp#–ÄVâ b±”ŘN,#vˉťÄ›Ä.b±›XI¸o{UÄ^•S!Á&fNÄl‚CĚ!^$HBDPD$!&ž"\§‰gµÄT"†XGL#b‰őÄtâ3BFJSqĎfWhôɱáD‚‹{)AŤ8lĹíąMą;:§"ŻfUiţ†Ä…VĐ2´ůK™ľ™Řu­ťô,H.µŔf«ď†ĎŔ‚o‘K»U$ĐArŠ!2'čsR™ś´“Š4ĄÁŁČ6 ŕ«p×ŐűŽňw °ao»Ş›~Ô­˛;CÎńämHÎä˝^‰íäŮTäĂŚr=ŘDŤ{`“NçšEń˘TđSň>¸YÝÝŃŐć8N€ˇä>isLŁĽ|WĹiKui]5Ĺ“Ö×ŘşűgA§ĺŁh“h5úś˙=ÎčŇŕ×/(CÝgý‰GC•ŃÉGŇwĘ_[Ň&†ýN8|Őć›hË“BňrŔňu‚‹qş Môň&VóĐúćÓÁ|4céB$Błż~:CçďţEpćߢÄ:˙áĹ…čEÄ9Ľ}ăŃ°şľD±ětĘűŕ&őíń+7EL"ěcl ^Âóf’!SqOçT¦0d¤¦iĐË(Q€Ŕx}…©” A•µ¤-Ż”‚˛\ĘŽÚUä‰l«öGôś‰|h3 V K3q/ÚÉĺyÚrp—‚H¸&^ţ¬ˇćÔDŚµCôĎ},Ś>öAŕ§ÁDN"×”’šŇ€&_Sä_áW|¬®Ň=>[÷H–4,iYyĘëŇ®Ż$?Č? _ţJ®Úä¶3ĆÝ·#¸ÇgDú€l îü>_ąp:1´OÔm“ŮwQ8j(¦R]• c môôKÎ<„ Źgň2Jčů%ąfP¨łáx<‚őzĹ{U 3HŢá*rc®® ĽCÁedgTťaPđ鯠|>·őó×˝â÷‰ď‘¦Ľý‰:µľľ‘ßrľkřÎČD!¶˙Ć-‡ĽşZDÓizčOzXôMčĆW{“ńAZ/@ˇR.íF˙ťcŻ%“ĐN·d¤ŘQY]Ű|Ěz źÇß9ţwŽ†ľLÖA7ÎDÖ~Gé/Oh.dÍäĺţY|°%U·!ăM»IH_ŰŻśżz±űsđ=ř"ćľĎąí7« ˝O¬ĺňć¨ČĆ’4 gžôI;żµ¬¸˙ńՔȢűűűWDôô‘UoňŤőL]¨ĐT ʉ(Zµ•Đë2íÜä\÷¦<śÉÓŔqz?°1¦ä(Ţůů…Č ÍCÎ×–3z®áÄábńNÖ¸a»FÔPo%}ĘÓ‹ÁE«'7ŁOř@‘©3¤'¨˘RĄ@ äĄIŽčćÄ«ŕŽň™;Ź®´FíööĂ’ěôOfň”ô7p_ĆőCD°˝ (9ׄÍůŮe ’‚.!?6ťĹ•Ş…%×x$SŁ×ęÔ˛ôCŘĚ%0žŰTTÔ(‚łąO5šĘeT=7 ľĚoâňrUä“E ¶N”úV­f3¶ŢMEw“Óác̖묻Ůfzßš_’[¨ú’” 1Ę'źŃ¸;ł ŃFnĎWŰŔ &m'‹J2 e˘ m™É¨:[eS{˘#‹ 7ńWdFŢ„pť‡J8ť>ěđňżůA+` ;@¦®IÖ¬Á¦żÂ^Č>ç/Lż÷§é[IŕŞgˇ‚ívr}Ö nQ0ľB~*5ĺoăŞjRô‡®ĆůÔ¸úý™ĽEđ:|Źź çpôÜěě4cćMˇ ňô…Ż˛8!ˇ nöZ/ß-ŢmˇŹÄŁQťI• EË|#Ą–•(±>­VwJAK-\siAŽĎ˝XłkqMUšš3«fß{wôý“Šö}]bDĽ+«ĐÔFa_kÓđ…–Čĺµ -iűčßúXmK»|ĎóżńQq2w0«<«<Ý–V¤Áz‹ŚŢ+ß‚V͇\¸÷›¦/‡FDC#WŻó`DŐŢ"«×ďĄjąé0ś“Ŕ5©’µ‰ŔRň“͇mŇq$az›Ź‚_kÜxŢCü޶ď$p x ŕóť}ť "ÁĹrËh!5¶NÓSŰś-0íÁ€‹1mńnĽ )niNľIdL3Ą źŕ€”LŠ÷Ho43f¬ÜěülŠwă :Ë]Ő|q¤§ît»HW–Ż6$a¦ń1ě%yŹ~âN”4‚ÝvÖoOŕů'l(Ź™Ü*+»gĆTŰŞ"ďËô`ËD^WR×1ymµ“‹tLčđ<ŹţŐ íńW» $ÓJF˝ôŰ•Z«ó͇pöm­8ÉĎŕęˆĹđ;´śäµ«É+YĺŕGˇTČ2´Z˝éč*;e2Ĺcs˛ł ‰=$ĆÚ¨K]•5Ů“Wç§XÁí so[- °ą'UäŁÉ–‹mŐ:赇cŹÄn[–ÍTŔmČ4,@ĺ‚W`‰Éše%¸I•™;ó)ňŐ=ŮfĂđ<8ő ňLůĆüô˘ä˘ô"PĚ[7|Ţ4_/2·ä3µ íˇ˙ Űć†mkĄOňÁí˛˛ŹŠ°}*ňcÚfj<”<śš§5×E†Î”Š8Ě; JyHĚ($.ß‚Ď‹đNzŞ!;ŚĄF “B/_†â« R= °AM™ů¸›¤!»3ËőŽýf•YU”Ľ@kfiv)(‚ęňâŽüÔ Y›]l¨ń…łŃ·‚ňbm(Ĺ–ňÜ‹Ś‚/‘ŢV`*B3(,©čĂŕAŐ@~ˇSía¸ŕ5J ęśĎ|4“wŚŢ{ŤŻÖ¦fhĄ4Z‡ÄçtFł¦.ˇ+Řî¨Ĺ›üÝ•Ž¤ÚşjGMANaŽYś]’S ĚTc[MßHcě~Ń^-ŮŁN–$$i#AĹóu ş<Ô_}ú˛g9XX•Ř?»ŰßŮ—ĐęĄi‰© ­,-P˛ŽAq.˛ţ.8mšÔ" 6ž{¦—ŤÍä—甂Đ’]ž’@‚2ĆÇmE+0„ü#3Ý*ňľ©\Ü~'»µ ô;íä:Fަŕ>˛ˇúďsďn<ëB Őe9@&dਝ<«-]ú=ŇÂ|ô‚ׯV_/Ú°,ŕ ß´±`ë hăJAR…t˝}źŔ©öĆ–Š¶\ˇ -×-ŮĄ& ©© ńŇ Sj˛.IëČ’;€X-ć–\ś»PM Ů*t­‡ľAó‹VÇ1Ł˛„řŠŤ”ĄZŠĚ6‹Cü>ű%r)0噀 «VcfT6|,Yžy‡uă!LúŚ Ź­ăgä…häé‡tÂŘtN Y”[Ě€ę+I ŹWŇGQBÁ8ľ źÝđÍü˝žáţI˘N˝Ç»Nß?ąMGě€Ý«®­˙WcíĄšě5rú}¸™Ż–h•uÄQźdW@íŕnÖuŠéÜ´Zâ wţ{säţŢ=Tt'ynf űľŚK@ĆÔęl\«i)™9¦,ŁřuÔŚHXd˛fZ&ä¤Í<‡tDK6dVę‹Ő‹růé¶&żŠpFşk”îęm\‚J L -ĎP¨2« ÔłIIŠ¨¶ř÷Nś‡óΊáz‘Ą­¬´._Č`ýÍifŐßcÓsáR~ŔÖp–YKwÉźĎÝü¨Ë˘+%ËŞ’«°ˇĆ^{~ëńUţľIáGÄ~A˛í`-…fţÖŠÓ&čý4¨ źnb5>†IŮđ{Î?Í© “s˛A ÂÓ1ËÓďbů Ž0ěV SČâÜ"P ¨îĂ1ZJJÚäeˇřX§śďqďďĆôíŚĆT>9)Ţ (Wźáł3rçC"Ô;Ň€93{sáZϧkIp©´Űn±–Z z–OU‘=YÖL[šC[öPč rśO«8hŠ;¬é}‡¨ń=$Ď÷Ż6‡äYč˝8dLÖoŔŘ6Hv±čEĐ•°!8v7đÁͱ’{ŚíŮ—)x™›~ŐĐßÓX}řCÉ’ČCGän`5é­•üö‹ˇűpżě~G÷epÔÉ,+zŇvŃ˙§‹Ő5ÉzČeĂŽąň‘7šĹnŕⶥg=ĹŁîźý çŔÎ.0đ‡ŘG>—Äî7Vu-ġvĂÉ]Ńgý[ô đĐmK:ŻŽW*#"'ŕpUDëÁ᨟đ ž4}?pśę©9¨IÍ9ż †4±~ĆiĽÂTŐłX|ŚÚ[{Ş­†Ř*QE\ąˇPµöŞÚ® †}{ČăÄqAéá9k¨ŐŃŁ÷¸`ł>u 3ź[l¸ÓęËŔ|N''gM<ÉŚ?>)Ě8!…‡áż!»2§ÜgKë.µu]×Ŕ€¶GŢ:´˘i1FE%—W‰É ˝Ôđ»,I7l0NVÂÚ| ÓÍyR:Ń©Ńln„łŻš÷ş‡"“´ąyJŃK\€o:ŕĚzŐ[ŘÄjz¦ÜklbÓQ´€ß»žLÂł`’9ˇX /•âF»dÓ–ĄîŤ’kQbUr˛Ú”«KÂť!±<µ?Éí < „Qî}űÁý†Ó˘žÖĘ6ЮؔŹřE‚yń% 8Ú;‹KrĚ9ůŔžmÉ)Ý ĎÖÚŘŢdë'AsF­¶ŤBĆńYüv㇦@}Ů® ÷ÜpqŢôlŞ5[NŠ á×ü‹MťĂ­ ę QUDy 8JyÇFî ąúŁ]Ç^ř%cžčM>âćŻzű×ë–®Ęáľ;×zľśRŃ8hBAŻµ¬ľ¸[ÔŇ–tSqÜGp}-ś ß6<™âQ»‹ľĺ‚aU§ôl@ŰB€8`Aě+ˇaG*}@Ş o;p<úGźß5˙­¸čxő( &ŻwfźeÝ~÷bđ,ßń†[*{u˛>|«ů“`»AçišĽßŮ_j*7(@ţrömŹĹľ@Ľ@fäG¦Ć§{§ĺLĂ)ČÍÇŇ,NŹGăɔ晎ߗÚHĎ"C9~â&…ţ™Ô“'PÇ@ęŢŘ|;_’źTŰŽŔ"Á{––ňöƶű8uÝqÍ’~×VÍ\Ţ1ůAz©ţ÷ĆnHÝČÔ} ®űB¬ińăGžĎič2®äň|ÇčÇü¦˛â>řühđbżÄp•(0.´0›QďŘ˙glť8í‰óý'oa‘ű+ÜÂÜšĽáĂŃ`Â+Ďłä–aÝħ!Á~S(ął0˝”9 ’<Ú&ňĺJĄLVŁlj®­inRÖĆâ‰řŚ¶+ÁAŁţH‡óÍÇPű#ˇ˝15$r3•z˝O¸]SĽvkXXqôě`¤ŽŠŤ&‡€`Í7tň¸%9}¤^R˘+L j‡_ŕćĺîçŕt?‘’Ű‚"85\ž»=·Üj›Ť§ÚL»ď¤ééKď› ÉĎüü±ĎU$¸)ž;2ÎRçz®P…wŠZŁ­qx,ÄîŁŘŽ1§ ďżšđţk¸źägä{(%:ŹdĚů…ą¶<[n)Ö–¨qBź%Á†¬x}’É M× 0ŐŐɵڒÜt“Ő Ń}ĘłpĘĹ»p®÷“ď؆ż VôßXĐŚĄ´yŚŕŹg‘ŕ-˝Ţ•é’Ç°Ň/ĐZĄ_|–„\P“\‹¦Pu\\ĎżĚ5ˇőś:ndŐÚˇÓďřuµ±>Ć÷›Źs…MĄÚKuâńDĚĘÚ Ü:™”š‡I§SÝIč‚öĺgćeĺeĺg ‹ ů&AĄĄ™RE* ŚµqňĄöSh1< hnĽyíĘps±ĐV`ÍĂZlCÁZnoNY&VuéiZm*zMĐ®dfž$56Ý3E“Î\Âh‡č1;ë—'đźClŇĺ|đ¤ĽâăRÜĐ4Ś,­Hó)„›ÝvŁ$%F°[ş¸˙:ůńä6c7sźt{b.ű™ËşTäÉ]%ѦŹVĂőőAçő^QÝ@É0¸7 cÖ߲í8EܲÜň\ܦŰJµ‡Äăq$ŘŻŐągŕ(čm¤{Aj)8GŃß`{Ş%†mjáD+›ć`ŤíaîřBTÜsYUz )Fyj š?Π…đ˨ŰéµŔ&vk)sÇW–keîřě*r$ŰŞ\sƇ6.Ś§GŰ”•ťŔJkĚŽsóâiÖă‡ĐťůöÓsů–übćö¸ˇ$%@ŚŠŰ4Ţ9ضxy OSz)ŘI‚ĽâRłąľv°˛PC5°ÄôÖë˝ŇSÚHŻ\M%¸BÁB˛e°˝jPŞä®bNŻôtO#~Hf#ăňbňtU WŹđ飗Ö{úĆyî%_lÜ‚€LëęN}@ó|U‘zŤpú?Ü&ăđW&XŤťĘŔqDSśA†žG_ ~“]V““/L«6ŮA¨«-=ËÄÁˇ"/䔦u¬i_-pAťh=ŐX•9q)Zc5źĘÇŹd«ČS¶äîĹp˙xŞ%ô¸b| ÇĆ}­ĄMŹŰO—•ś)e`ťî oßaŃű±)ă\®š_™>x˝Ęra ůŹ͹ʅcs9¸˙§ýFźs° 'tăŁy8ůeŔ*<­jŠŚJŠ9¤,Y]¶ET˛Żir×ńc” iLMBK[mMK‹˘>†ąşÓ6ŤMor>wë(»ás32¤Iţg:Ŕuęă-—ć#ÖŰ;–î˛Çţú†÷9"V'H·ĎzýÁvČSď]űů^äšö…(y˙öÁşpŕMí:|x×ßŃOß­=.âÝąÇ_>> ÎSŁÇúßą>´ÍKvŘK"ĘČ 3 »ĽŢłYđ4˝…o[r 4 kTUJ…*Y™b{­r™-ńYÁ@Ă íÔÄjůŠ}1ť,çě×G~ą{>ŕl ®~>…řč™ĺŻ˘Ůhú­·!qn ˘˙ŚčZ…Ř.hQ/Â1>HĘLÓ§Éaşp@mř>sˇâRu¸ŇQ_Ö ¨OŹ­DkĹÓô=gť»đ ëřóą8‹óëą×ą-đ0Ç“sŰ:ńEĘ|yÚNá&˘YDůüĆŤBRÎ(·J9p^gľ´2_X\$‚žü$ćąYÜjĽ'®m=dĂ\ČfÁ9t?&>N[ßÜÚPßÜ×#FČé?~Ă&žľó ÖŘô::‹ŮddS°mU)őN¤;én”ĄEĹEĘ“BA08TŃÖ,«ŃÜ ĄP'ą8÷ŔqĹŻ”Íŕ^ Đ?̢Vt|JŢ)o-ďjno˛÷ #˝+Őß/w iďS0‡|h8Rů…v.ỞOŞĂŕ\GÇ +Ő‰ľçíY-{ŔÎđ°u†¦LŽ”_`d;Ů©˝3y;~C/ńot ^—¨“˝‡# ‘"^VTŤŞ»Čś›[$âEä™Čť]\dJŹ–…í÷Đ÷ů<ů_¸|Ů€“Ńnŕß"Ç]ˇ7Ť˙rđÇB¤ćě$1éNĽIŇć<đŐőpŮ™(ťÉ;5@Żç#i"÷d†Őb@°|˙î·ĽoDź z|˝­ľ˛©µşÖŇ Ú©›Ţ'׮ܾ}Ą¤8şqŁH’đŇ^_7°J¸čŞ×ß?şTíO·ëť‘¸ŃŮď‚ -75e‚čĐ "op°5đňĐĹúîÖł Ă‚ş~GůÉ"j|V?ćC8Fťhíî÷÷Ž^$âŮ·mć_BÜNź [=…b@mőx÷Ţ»­źžg<„SŻÁY×Xt+=?ž»“Îĺ˘YN“0Đ7~aÁí˝ěżÓ[ůďµ»üGL•‘ŃµŞ®É€šóp8q#ĂńŚ’…ăxâŮŢú |ĆÁě…ű{Ůđ ,PvDŢ öQľť’cťuµmJ{¸É“cłČTş©¨¸˝©ël·*ě˙‹§'łÔdŕÓ…PÍą†Ó˙ŰBŇ®Č{˙eŘllžuâ1žŔfl ‰ t[1 §âużöŮ+ý §ŁË+kŢ‘uĘ?PĽ§ż ~żZ>nĽŇtĄĄëÖ(ćŹôßŕϸµ…uýÔŐßZżbĂ,<ô•˝WŮ×}|ř<Öę¶Kč=ş.emD§Gí~@˝±uŹkheBk]eeťŐT®©§Z3J@1Ő6Ü2réÄ:…ŹH¶[ĺođĎ –îb4:öw&ŤŻÇęfŇ~đݶňďśhičľůiç„ň†/„}˙ć“#'âj¶Ą¦>toŚhÚX·Łl^ÖąĘ÷ĘÜc·x2ô?±‰ÉΆ&z??Wť—hŠŐE ŤÉ™j §’*Ôöę*{uQ–%Ă"Ňu{pŰ4“欚´ęäĆ(a˝´2µ PŐV[M¦,Č,>Z]W‘^(i˛›‡Ě=E–2POŐj*5jťL!ŠŹ‰OHH5f HPWÔTÖZd/¨eTuJER’F“”Z\”(*Ť*”9Ą#%ŐŞŠ¨®¤şÔb¬úTš”$…C{"MÜml1ŘueFÁ‘řS`Úátu*§¬şšŠ’B{Ą¨ą˝°°Ř\Zb.ě¬aĆV´´~¬¤žőŮ]6<ŤfňWrŁR*;Ĺc+ČV‹ĄMôE= ˙çEÎĹÁt{č ć]cĂ<ŘËG˛ťP†ä× Ę®!”ďä2ŞŤ~µÝŕ€ţőÎ?<„ű°–˝ÚJŻä_Gwą`·^睍UÜFzč¬XÁŹ“ßfŁJF„ĄíÉř×rˇŢŢĄ Ť5 6ď Ĺ[”™Ďá2Ĺf…ÎFËą`(żµ°Ň:ŘŰr 4»®.Ň.·0óuµ­˛fŔŻiýĎ8˙pqĚ}i µŤŮZÇČÁJĂ€†Şnă\ç˘ä±mëů :ĂĄ?ÁDř?ŠVÄ«ţłnyÁ˙“'}Ć“˙¬;ŮŤÎ?=„ŘçďŰč·ř7Đ5.8lŠ×¦Ś†ěŘ쉦"m9¦ŕWĐ}JMĘAFNEăą®ŔP NSô÷dF^zŽ>3Ő$TĄi3Ň@0äk )ޡ2Yl‘bö!¨Ť 6Í|“răÂof ŹÓÜ_ŞOŐ”§Ë«D<©ĚnI«ťmy……˙–c¸î.»ç8†Ź]DáńŹÉö u„řź+H©V'ááwX˝0‡Ý Kůî0çňŹ‹Bgë?ţ0“wć˙Ď}!o)zîăÇ+•q˛ę„ƦښĆFe­L füÇoŚ aÁ|':k„ÄůŐă*~ţÇ˙ěŮŚsĎźd1˙ňOŽgů‘€ö1ě‹2F5Ś97°ęľ–ďqÉ•ďBÔažŢDN"«=uÜ»;č”bś•]ťŁçz ŕ4 †,…/ˇ™˘¬8ţĂc$Hä˛reĐođ(Ś8ŮŹĹ“ÔëM|r$&Ý!ćŢjÇRŽ–,/,+(Č«2W઺D-fn3ŁŇ•)iš4mV#Ú›mäÚÜ”Rp‚łŐ]şö ~ůMËŕ‹|]a—.í0˘t.\ Ý>˙ş÷.¸/üńí{/űL EGj˘ŐnŐ‚ľżuµÝÔĂ ^«Ö.Yµ\Ś¶!ON*=‹ŮUŰEyÉŢz ą5“w.†źđ/‚Úěş´+ ˝^`µĘk×&y’ą.LSĄ63ŮÔh#Ţż÷ ˇ˙¸řxĂ(xśJ9ŰšTŁ*˛SĽG7Ž×wźťőŃîóoř©ŁĂE1rM\Â>[¦ ˙ö±öwuőX{¸&<>^#ÓlWP“˘oţ»ô:‡3ôĺVŕÉ7÷|.H3k ‰8J.b!CN6n™ŮÂŚ‚¬â¶>Ł®_É°3{ŔjáŢŤë’ÔćšQt­˛4P±ÚÔxÉqĹo5ž:)>V}Ü·TĂ~'†ĽjŃÓŐL'ś3&:ű…żĐ­Ó“ôMŞ˙ĹÓ#í4Ěęř|Á¦˝Ć6ň×ŕ©Úě‹ő Đ,°˘ńÍAżž łŠ+€‚Ď=ţŠŕ ›?BdP˘Qâ.n„ ˇ$ಠA˝üÇ'·ŕ©kĘŃ˝[ßÜ˙ |ăTq“Ă&®®h-ÁCáô$}Ŕ}Ü–§=ÓR> endobj 771 0 obj <>stream xśťyy\S׺öŽ4aŰA+1’hO’¶¶µÎÖÖŞµ^gëŚ(Š3"I™'2Ď+ ™’@2€"(µNµÎĂi«­Îééw;|íY›ł9ß˝+zďí˝ß÷ß÷ËŘ{Żd˝ëťžçy{nFˇPŇ×ó…{ĺŇĚáú’yk§eň ĺ«dą‚äŇb…xeń§ň-2očźC%T‚ý"^L/>{…˝%m¨qĚĐ´ŃÄĎ/?ŰĚK颜MĘĘÜúö”)S—–Ő~a‘Ś;kŢĽyÜ˝jî¬p—ń¤üB÷Mtˇŕ JÄBžH6ť»‰ÇăĘŠxÜľ€Ç]ş!cŰŞő+ą“V®Ďâ®ä‰x’\7CľWŔĎă®ĺçńDRŢŰÜ‚ Wđ솛W"ĘçËř%"étîb)7—+óňřčCânJiĘŤç¶<÷ޤ>ˇ)hý©o§~+FNŮđüüçĂ/ĽňÂÉŮ/¶Ľ4}6*8ú•Ń•/żűrĎęWZZš m€nĄ÷Ś]6Ö6vQȨfw9ýBú0s s ss ó0k,KÎúçříă/Cß(‚8ÜŰMŚ‹SO˘ŚLż-¤ż=Ť¸Ě,Ą‘G†ť H–Égaiá†hj¶ß⍠Ύ„T&ÓâdşÇě1 đĘĚkl¸şS‡Y0€“aőQ˛š:Špšűáo§Ň`ď]÷çéôÇDÉP”Š ÔÚ2Ŕ˛XBˇ 5ç8p/•ţ™?Q^_3ľ[Üżfíň݉ěOˇČéÍ2*ďjYÚÔSîjP›Űć¶O!eŢĄőĂwÂőGŻ_üţÔ@Ŕ#aŁÚ`Űgpöó¨ôÇúlg™i<ŻFŰy¬)ńýgltc‚ž 4?‚MŹRŕbśLN"głŢ;—őݵ+mç9×®ö>wń/7ÎaŚ#-™Kö˝µg5§` O’đť‚îŹď´>9y“sč\_Ű€Źšˇ>FüÔMąźKâ*NäôeqeÇŠ€ß-,ŢłYpř-ˇş‡:@9 GŔ~X—2”=4™ˇ+×H5¦RŔ2OÜÍ íEMYHn&w’â•­ËűwpNeß ž€[u÷Źś„ŃsŃŞ«ĺx”¬Ó¦Vą«]ĺ Ó55ŰJä‹ĺKťA.çvŁŤKîŔt8ú$¤?|Ä9Ö©ů¸ >·íŠ–ţ=µNć(Řn< ˙ŃA'‰EŚh-żzĽÉöeť>»Íé¶ŘŘůŮ붛%« ¸,v‰™_@ľĆT/łň/¬Uuݢ¬NĄ$·•žŞ©C BS3ŁbE9lÄKĽÖ`ă_~‡ŻýÂîhş zđŽŇfˇ\§Wh†Z-»Úŕ·صŠLY¶XPĚ´ÂWm§őw”żÔßv`u[śjűfĎöÝăÄś$î?žH§÷DčĆiŕ~O‹·ÂäUeV˝ę[P>›éÍ÷ZÂč,±ĆîĎü•ń®¶3ßŔ™ĚVň–Wěu+**š;=žrąľßżÓŔĽM^/”˘“éý–¨ŽŐPu‚~™Nľ_ cŇ3*]>›Ýé˛Ř٨Rť7Śżo°č3/]!ĂT&N˝Ăč:öŮŔä2¸žrĹÉqbF<-öfßN§#ňá†Ngł[-BŢd¸ĹĆűŕżôĂE_…Çë [}ĚőV§Ó¸ĂŇ#Jä :b’ÓÉ5ä;Ëî˝răH'|ů GůˇS¤(§˘*CKocÝwwŘôjňx‹qŔU/Eŕýmäó+KĹ|ŤŕE˛Öăgţzä§÷|GŻ3™;ăyřÝ9 ń&LaXĚv›Ů LĆ$sU[[\!wŔí“ül<"Gďw­EčrVŘ«¬AWŕ‰šH"ˇ‰J÷đ ą+8ĆŹË®ăbŔ’ľy˝Ňč`–ë†ĂŢ0`5‚€ąfC+9š9Ź©*ŐFŔ˛“ĎĐŤ> ŔU:ť˛4®mkŻ 2ŔiîH4÷ťo#_dVgWk;ŔAĐ´˙ü·OĂŘ@Ľ|’B0§ŔCéŚ ®€ČŮi°É]V—ŐmwY™ä+Ă.Ş#Uv_xNóáR8ëĆöŹ–oÝKŽXĆ> 3ÍÇŕżŘýĚmćBŰGć“ Ć‘ć}[Ves3Öq x9 $+şĘ†‹m?öÝá˝ěŕ Ś1Uů¸Ţ”1‘Qí z* F$ÇÉE±ŐűÉ‘‡´6­N-Ř«,5rElŔę3†tUFżŕrŤF.©Wµ^A 4n‡ç:Ýr śÄŰ$ŤB™V'×…Śq=»Î42WđáňU%Ä™ş'›ŕ<Ŕ4·ŰŔě.´m1!¤w–ąžć°›ŕ$(m_AÓ­řëďŚÍůňíĎäąů¸ë›s8­m˝µ‡Ţ±ě.»Ă̱ę]V`ĆĄ‘˛ý͉xÓńÝ]ňâ’o’3§žÝü—;·ß»@űÎ3t@cß« ňůÍ°i3a˘’«´´ç~#‹CgS»NŁCçvşnÇ«Ă8SđşNą5)?·#ťZ®¬BRQŢäŹÁç‰ĺĚO†ŹPc4â%â<Éާݢԭ¶"IŰM]0@;y«ĂíĎŕç˘ß!śĚ;b±ÄŘxZäk¸qŠČCőšµÎhÖÜd WÖtŔQťp§ůűÄźOÁť(ą[Ś…6$5©»‚N z·­,{9—iéSGó9Ś#çääe˝9WŻířé:ÇíŇNŻÇÔŤ}§ß>ͦg“sá F›+˘…89őurŃ ľ´ůĐ—żvÝŇÚS×ň,DZ ”öŻˇęZ ü¤0–f´¨Š2 şĎFĽ‘P§ĄNNü~|Ĺę6m#'’łČyääůg7=¸y˙đ§ؤÎ`řćÎýSÉľŇĘŞBSPÄSż§ŔM‘y âaTŐSČ·>%V~–ŇEpßŇfĎ•s÷mÎ,%öy|>?§<ŕ)<ˇŽ)ZµŚß%>úÍŤ…kłoÁŰTHˇ:¨$Fk…łzn"]T¶[ťn—ÓÎq]kQUhëęjë{ Z¶oĎ—ď,d ó•»„Sđ´g#ĘÁx ŤB¸Mo"-9h­1RÄ ýnňůá˙6®hęÚ°Ý€*oEE÷Ĺl´5ą/Ŕ§±#í=­ řßť!_a“\¶‘HT[{4ĹËšÔ•B°¬–íÚS*Đä[ÖˇłxÄĺÉŠ ÷ÖĂ' ¸ĺPM}ZčăÎpĘĹ}Óé˙‡o3ÖÓśŔîµĵű*x(×)łNŰZ/,ĺdä©•@ ô!C]٤ŐčzľâÚîźaÚŁ __Ţqtj#{OeiDđHCSµ× Ü>vČUăśţËwýüAÔ·Ĺ94ú?Čűäw "_ŻŰç®pFíżďë)AŰemĚ[řÁÎWöbŃ:vu¬Ż!%ýw8‰Ŕč©“î,2ěQń9ň˝9ŕŐŐü5ęţ§ö'”gĺo)Ä•(cŹOSťž]Ěű±ÎšîŽÎV„)Çđż,>EŽGŮÓŇúl~w…5dR2ŘĄVń3ťt‚U3šş>dőNPá«wť<ćU;MާÂI4˛Šř%ż:Řđ/óOZ“MŽŃ=ĺRNR¤őŚ8ĚŠSNŢMHcH‹­“QŁŃ=ĄNK(Xá‹ë8Ŕç zC¸7Őă}ď:˝oŞ”Î|'šUĎ ! mqjmĘär¦vŁM”xATŮvĽ§íŃ [Aś`•2aqť˘µ©ˇˇĄUÖ$NfEÝE w&Ősú8ćëtú\˘(bô˘‰RF+Sír$Ś>Y§ßË‹ý‚ Ż/^ńvVDtq 'l®.‹©jU5ş Ą{u)ČÁmÚ¸dîÚ›?„…ZŽ7č zü‰ŃšëAtÜ&m꧶Ęäřgpjš-äf¦Äôk@>ĺűU×—7áäŁě/áÁp\ą˙R +YőqJďý¨‚Łf#zŠsU:5b<{°2č«ňÇ9źÇďńÂ)Ä˝˙áxÜŞuşmN3‡üÓp#rÜě¬Â˛ătWëß®&;[zńú˛¤ëµ´cöZP•*g_&ą—$« n?@,Âj*.']°iSĎY˝Î9ćńpŚYG#Fd¬9ZŐŕaˇ!đúߧ)đď÷ᜇ)CËz™ “ÓQR¨Đ ĺb±*üĺŃŔ~$yĘ=ĺ^$$YÝ’fľJiŐIŮŰ‹÷îXAŽhĽux—¬‘ż~9‚·ěóçôn2(su,mcjSµUg”Í,$éŮ<§IźŤ'9;ŇsŕôąÇĎ@\4kÍĹäKkI=' w3ă§nžĽ>p´ŕ•a“Ńî2ŘŐśŤ¤Ć\ŕPKXŁmę?Úyç ŰL~;f‰nSC¶ ęđ ´ůä+5ćÍ‘óh–мÎá”á¨7’Ăśµ~(­!­ízď8í®ęz:ý7ř‘Ć€Ď:~ÜÄżXrá î’őďd%ňŻ-a“i{W,ł8$ŚH:3/ŠľD¤@ŔŃßß˙őSáŮ9O8óx 8‚L­RMřüŤ.Řtáó»7îw±Ë˝Ôń+3>Ľ­i}řŤCG.łéWŽěXľEÂŰ$âXH 獏SŕŹÄ<Ć |ąýâѲjµT˘’ŰŮ6‰yˇĺ ś|gÜyÖvçŮšFňß×Đ8h„)PSŇ` şL§?ţý'†@R*5JZ;÷·µKš„úg˙ ˙ĘH%ĹÂýҶäăIŁ ‰–C/!űŁŔ•wSA0Šrc;+Ł×™|šfí" ¶ď•˛vŠKv‚­  JŘVÇ5§ VĚëJ{ŚżiťLDÝÂÓ˛K–|&µ‹–řć¶ď@đPśuˇ­ë"¸JşÉ‘ßť&ć'Ňú"ďâ‹Inř±îŞÇ»ú"uÁ°§ŕ;É'Ś€ýú¦d±ŔÜ-»^µ$=$ŢŤĂtĘw‰ŹŹŽçđ^Iű>‘\)ÖŚuvMY ‰•Ą2ńÖ"ď›â”G&á‡ęµÔá䟥©Ä\rÓ0úIÖ ±0w˘ oN¨/OT5ůŞA%Ţ ‹*äzťÄě5ěęÝĺ2“_ŻŚw+ŚAÄěJ4ő#ĆăNŹµĂ´_Wee攪­»,ąVŤIQeTS‹UĆŁěć5UíuażĎëóy5hĐ·ą]ZV`U: HÇË#ÚxC4Ör…lµl]źŁŢ}&č`vŞ”MĹuŇ*K‰ĘX¬ľASµ'Č)ńË‚şPAóHs,Řę F*A^ŻŤČő‡FÇÎŢlwäP9±ČiÍCľf 1včeF°™J.¦‘Űţ9H…4t·‰V¬ ×ů(Źrŕ»CóMUáVŔJjłśF¸đî€Ň¸±>Ť|őS‚z7ť® ^@šŐÂsĺsřdş~-ăÂ:ek_űţĎ/°µáÝ[Uš24ÚýŽ§âÓOÂ\ŕaů]ĺN¨v6/Ü:@ÎłěŔŕ-óâô®rĄÔ§™° l’äçćěTěNÂgŇlĹÔohú c–CµŹ\+ YâeN‹ A¨^]fU\g+GZŮ›ÔĘĄŹ«crĄV-/ě,=öíÍźáĆ>ögđ25ŘÁđÇ»á›×nV}ÂhtąťNÇnqZŃhçđZ}¶r«×†&'łśHý#dudĂ*¦ÂĹ4¸mhJn¤ˇ»AZG̬v7’\ä{˙śo™­B1řÜ|™»`A–ĐĘÖRˇ6 úüńCř¬űZ:šP÷•˘îKxĚ%ů›10ěÜ–Šá9•ŕµˇéŚáQ˙\D˝M#F -JV§µe(µ…Ňń^|˙:4—Ź©¤Š4Ě+ł<Ňiďăütç>śŕDľ“ńĂd¶µ„q¶m×äřţö†ł¬X—·f_ň!Ö>bđ&ţúY 4#! 5´†›T2L{ťQu©?*: ݢŽŇÄ6°')óßžĄP‡"¶¤NDě*ŐhĄE˝ňkpdÁ±pö%Ů™śĂś‚®Âčüx2ŠÖ&â•nJŰ=˙&…¨Z Çë>’Ľ·–¤O[HľČ×qrě­ąů'@¤Ă)ż,»3©dźE_Âvxo ă†Ď×°ČYŸqtŰ•Ň[9‚ÝEÉďIÖžüâÓřŁ¦Łś–ăń~TĘ8±,wĹi Ď?xˇ!üâ‹öďΪç endstream endobj 102 0 obj << /Title(\376\377\000L\000I\000C\000E\000N\000S\000E\000S) /Dest/chapter.16 /Count -3 /Parent 6 0 R /Prev 93 0 R /First 103 0 R /Last 105 0 R >> endobj 5 0 obj <>endobj 2 0 obj <>endobj xref 0 780 0000000000 65535 f 0000218449 00000 n 0000341811 00000 n 0000217779 00000 n 0000204393 00000 n 0000328633 00000 n 0000218391 00000 n 0000219628 00000 n 0000219129 00000 n 0000218626 00000 n 0000218884 00000 n 0000219005 00000 n 0000219353 00000 n 0000219484 00000 n 0000223566 00000 n 0000219840 00000 n 0000219955 00000 n 0000220078 00000 n 0000220201 00000 n 0000220354 00000 n 0000220472 00000 n 0000220590 00000 n 0000220733 00000 n 0000220851 00000 n 0000220964 00000 n 0000221088 00000 n 0000221207 00000 n 0000221336 00000 n 0000221465 00000 n 0000221584 00000 n 0000221728 00000 n 0000221847 00000 n 0000221961 00000 n 0000222080 00000 n 0000222209 00000 n 0000222348 00000 n 0000223217 00000 n 0000223341 00000 n 0000223475 00000 n 0000226394 00000 n 0000224226 00000 n 0000223808 00000 n 0000223923 00000 n 0000224061 00000 n 0000224793 00000 n 0000224403 00000 n 0000224553 00000 n 0000225003 00000 n 0000225171 00000 n 0000225324 00000 n 0000225472 00000 n 0000225630 00000 n 0000225778 00000 n 0000225936 00000 n 0000226104 00000 n 0000226248 00000 n 0000227442 00000 n 0000227115 00000 n 0000226647 00000 n 0000226787 00000 n 0000226960 00000 n 0000227322 00000 n 0000227986 00000 n 0000227699 00000 n 0000228293 00000 n 0000230159 00000 n 0000228740 00000 n 0000228543 00000 n 0000228927 00000 n 0000229277 00000 n 0000229065 00000 n 0000229512 00000 n 0000229857 00000 n 0000229690 00000 n 0000232888 00000 n 0000231568 00000 n 0000230461 00000 n 0000230576 00000 n 0000230704 00000 n 0000230857 00000 n 0000231060 00000 n 0000231373 00000 n 0000232478 00000 n 0000231755 00000 n 0000231960 00000 n 0000232168 00000 n 0000232708 00000 n 0000233055 00000 n 0000233240 00000 n 0000233366 00000 n 0000233507 00000 n 0000233858 00000 n 0000233994 00000 n 0000235581 00000 n 0000234170 00000 n 0000234306 00000 n 0000234465 00000 n 0000234674 00000 n 0000234883 00000 n 0000235107 00000 n 0000235232 00000 n 0000235388 00000 n 0000328470 00000 n 0000235811 00000 n 0000235945 00000 n 0000236073 00000 n 0000000015 00000 n 0000000314 00000 n 0000236427 00000 n 0000298878 00000 n 0000311184 00000 n 0000236470 00000 n 0000236505 00000 n 0000204557 00000 n 0000000335 00000 n 0000001761 00000 n 0000297981 00000 n 0000303683 00000 n 0000236540 00000 n 0000236673 00000 n 0000236808 00000 n 0000236948 00000 n 0000237088 00000 n 0000237227 00000 n 0000237362 00000 n 0000237497 00000 n 0000237629 00000 n 0000237764 00000 n 0000237899 00000 n 0000238034 00000 n 0000238169 00000 n 0000238304 00000 n 0000238439 00000 n 0000238574 00000 n 0000238709 00000 n 0000238844 00000 n 0000238980 00000 n 0000239116 00000 n 0000239252 00000 n 0000239388 00000 n 0000239524 00000 n 0000239657 00000 n 0000239792 00000 n 0000239928 00000 n 0000240064 00000 n 0000240099 00000 n 0000204939 00000 n 0000001783 00000 n 0000003753 00000 n 0000240147 00000 n 0000240283 00000 n 0000240419 00000 n 0000240555 00000 n 0000240691 00000 n 0000240824 00000 n 0000240960 00000 n 0000241093 00000 n 0000241228 00000 n 0000241368 00000 n 0000241507 00000 n 0000241647 00000 n 0000241782 00000 n 0000241922 00000 n 0000242062 00000 n 0000242197 00000 n 0000242332 00000 n 0000242467 00000 n 0000242601 00000 n 0000242735 00000 n 0000242870 00000 n 0000243005 00000 n 0000243141 00000 n 0000243277 00000 n 0000243410 00000 n 0000243545 00000 n 0000243685 00000 n 0000243825 00000 n 0000243964 00000 n 0000244099 00000 n 0000244232 00000 n 0000244366 00000 n 0000244499 00000 n 0000244534 00000 n 0000205369 00000 n 0000003775 00000 n 0000006164 00000 n 0000244582 00000 n 0000244715 00000 n 0000244850 00000 n 0000244990 00000 n 0000245124 00000 n 0000245259 00000 n 0000245399 00000 n 0000245533 00000 n 0000245668 00000 n 0000245808 00000 n 0000245941 00000 n 0000246076 00000 n 0000246216 00000 n 0000246356 00000 n 0000246493 00000 n 0000246633 00000 n 0000246773 00000 n 0000246913 00000 n 0000247048 00000 n 0000247187 00000 n 0000247327 00000 n 0000247466 00000 n 0000247601 00000 n 0000247733 00000 n 0000247867 00000 n 0000248001 00000 n 0000248135 00000 n 0000248268 00000 n 0000248402 00000 n 0000248536 00000 n 0000248672 00000 n 0000248808 00000 n 0000248944 00000 n 0000248979 00000 n 0000205799 00000 n 0000006186 00000 n 0000007131 00000 n 0000249027 00000 n 0000249163 00000 n 0000249299 00000 n 0000249435 00000 n 0000249571 00000 n 0000249704 00000 n 0000249838 00000 n 0000249973 00000 n 0000250109 00000 n 0000250244 00000 n 0000250279 00000 n 0000206045 00000 n 0000007152 00000 n 0000009548 00000 n 0000250327 00000 n 0000250362 00000 n 0000206211 00000 n 0000009570 00000 n 0000012650 00000 n 0000273407 00000 n 0000284055 00000 n 0000292013 00000 n 0000273146 00000 n 0000283811 00000 n 0000291772 00000 n 0000272908 00000 n 0000283511 00000 n 0000291533 00000 n 0000272662 00000 n 0000283248 00000 n 0000301739 00000 n 0000291350 00000 n 0000271062 00000 n 0000282979 00000 n 0000291081 00000 n 0000270797 00000 n 0000282756 00000 n 0000250410 00000 n 0000250445 00000 n 0000206385 00000 n 0000012672 00000 n 0000015792 00000 n 0000297731 00000 n 0000279051 00000 n 0000288321 00000 n 0000297511 00000 n 0000278140 00000 n 0000288099 00000 n 0000297252 00000 n 0000277899 00000 n 0000287838 00000 n 0000296987 00000 n 0000277690 00000 n 0000287592 00000 n 0000296712 00000 n 0000277458 00000 n 0000287375 00000 n 0000296457 00000 n 0000277222 00000 n 0000287092 00000 n 0000296162 00000 n 0000276964 00000 n 0000286633 00000 n 0000295907 00000 n 0000276676 00000 n 0000286402 00000 n 0000295637 00000 n 0000276453 00000 n 0000286144 00000 n 0000295357 00000 n 0000276223 00000 n 0000285872 00000 n 0000295097 00000 n 0000275949 00000 n 0000285629 00000 n 0000294871 00000 n 0000275688 00000 n 0000285361 00000 n 0000293821 00000 n 0000250506 00000 n 0000250541 00000 n 0000206551 00000 n 0000015814 00000 n 0000019528 00000 n 0000300882 00000 n 0000320916 00000 n 0000250602 00000 n 0000250736 00000 n 0000250871 00000 n 0000250906 00000 n 0000206749 00000 n 0000019550 00000 n 0000020493 00000 n 0000250967 00000 n 0000251002 00000 n 0000206915 00000 n 0000020514 00000 n 0000024581 00000 n 0000274108 00000 n 0000251063 00000 n 0000251098 00000 n 0000207089 00000 n 0000024603 00000 n 0000027865 00000 n 0000290821 00000 n 0000270539 00000 n 0000281204 00000 n 0000290555 00000 n 0000270263 00000 n 0000280956 00000 n 0000290299 00000 n 0000270000 00000 n 0000251159 00000 n 0000280690 00000 n 0000290085 00000 n 0000269750 00000 n 0000251293 00000 n 0000251328 00000 n 0000207271 00000 n 0000027887 00000 n 0000031908 00000 n 0000285066 00000 n 0000294636 00000 n 0000251389 00000 n 0000251424 00000 n 0000207437 00000 n 0000031930 00000 n 0000035433 00000 n 0000282489 00000 n 0000292763 00000 n 0000272404 00000 n 0000282223 00000 n 0000289817 00000 n 0000272133 00000 n 0000281961 00000 n 0000300059 00000 n 0000289562 00000 n 0000271850 00000 n 0000281717 00000 n 0000289352 00000 n 0000271578 00000 n 0000281442 00000 n 0000251498 00000 n 0000251633 00000 n 0000251668 00000 n 0000207627 00000 n 0000035455 00000 n 0000038655 00000 n 0000269471 00000 n 0000280424 00000 n 0000288577 00000 n 0000268982 00000 n 0000280177 00000 n 0000251755 00000 n 0000251790 00000 n 0000207793 00000 n 0000038677 00000 n 0000041981 00000 n 0000293564 00000 n 0000275409 00000 n 0000251864 00000 n 0000251899 00000 n 0000207959 00000 n 0000042003 00000 n 0000045812 00000 n 0000251973 00000 n 0000252008 00000 n 0000208125 00000 n 0000045834 00000 n 0000048769 00000 n 0000294410 00000 n 0000278900 00000 n 0000252095 00000 n 0000252130 00000 n 0000208291 00000 n 0000048791 00000 n 0000051707 00000 n 0000252204 00000 n 0000292514 00000 n 0000252338 00000 n 0000252373 00000 n 0000208473 00000 n 0000051729 00000 n 0000053952 00000 n 0000252460 00000 n 0000252495 00000 n 0000208639 00000 n 0000053974 00000 n 0000056857 00000 n 0000252569 00000 n 0000252604 00000 n 0000208805 00000 n 0000056879 00000 n 0000060396 00000 n 0000273858 00000 n 0000252678 00000 n 0000252713 00000 n 0000208979 00000 n 0000060418 00000 n 0000063909 00000 n 0000289099 00000 n 0000269229 00000 n 0000279932 00000 n 0000288816 00000 n 0000252787 00000 n 0000252921 00000 n 0000253055 00000 n 0000253090 00000 n 0000209177 00000 n 0000063931 00000 n 0000066028 00000 n 0000278668 00000 n 0000253164 00000 n 0000253199 00000 n 0000209343 00000 n 0000066050 00000 n 0000068247 00000 n 0000253273 00000 n 0000253308 00000 n 0000209509 00000 n 0000068269 00000 n 0000072102 00000 n 0000253356 00000 n 0000253391 00000 n 0000209675 00000 n 0000072124 00000 n 0000075613 00000 n 0000275185 00000 n 0000298597 00000 n 0000253452 00000 n 0000253487 00000 n 0000209841 00000 n 0000075635 00000 n 0000079653 00000 n 0000253548 00000 n 0000253583 00000 n 0000210007 00000 n 0000079675 00000 n 0000083789 00000 n 0000253644 00000 n 0000253679 00000 n 0000210173 00000 n 0000083811 00000 n 0000086270 00000 n 0000253740 00000 n 0000253775 00000 n 0000210339 00000 n 0000086292 00000 n 0000091395 00000 n 0000253836 00000 n 0000253970 00000 n 0000254005 00000 n 0000210521 00000 n 0000091417 00000 n 0000094978 00000 n 0000254066 00000 n 0000254101 00000 n 0000210687 00000 n 0000095000 00000 n 0000098825 00000 n 0000292270 00000 n 0000271332 00000 n 0000254149 00000 n 0000254184 00000 n 0000210853 00000 n 0000098847 00000 n 0000101519 00000 n 0000286866 00000 n 0000268801 00000 n 0000278401 00000 n 0000254245 00000 n 0000254280 00000 n 0000211019 00000 n 0000101541 00000 n 0000104340 00000 n 0000254367 00000 n 0000293295 00000 n 0000273587 00000 n 0000284284 00000 n 0000254501 00000 n 0000254642 00000 n 0000254677 00000 n 0000211209 00000 n 0000104362 00000 n 0000105400 00000 n 0000254764 00000 n 0000254799 00000 n 0000211375 00000 n 0000105421 00000 n 0000108260 00000 n 0000274943 00000 n 0000284792 00000 n 0000294125 00000 n 0000274672 00000 n 0000284514 00000 n 0000293020 00000 n 0000274382 00000 n 0000254860 00000 n 0000254895 00000 n 0000211541 00000 n 0000108282 00000 n 0000111832 00000 n 0000254969 00000 n 0000255004 00000 n 0000211707 00000 n 0000111854 00000 n 0000114749 00000 n 0000255078 00000 n 0000255113 00000 n 0000211881 00000 n 0000114771 00000 n 0000117758 00000 n 0000255161 00000 n 0000255196 00000 n 0000212047 00000 n 0000117780 00000 n 0000119108 00000 n 0000255270 00000 n 0000255402 00000 n 0000255437 00000 n 0000212237 00000 n 0000119130 00000 n 0000123416 00000 n 0000255472 00000 n 0000255607 00000 n 0000255642 00000 n 0000212427 00000 n 0000123438 00000 n 0000127746 00000 n 0000255690 00000 n 0000255725 00000 n 0000212593 00000 n 0000127768 00000 n 0000132371 00000 n 0000255773 00000 n 0000255808 00000 n 0000212767 00000 n 0000132393 00000 n 0000135448 00000 n 0000255869 00000 n 0000255904 00000 n 0000212933 00000 n 0000135470 00000 n 0000137413 00000 n 0000255978 00000 n 0000256112 00000 n 0000256247 00000 n 0000256282 00000 n 0000213131 00000 n 0000137435 00000 n 0000140602 00000 n 0000256330 00000 n 0000256365 00000 n 0000213297 00000 n 0000140624 00000 n 0000143964 00000 n 0000256439 00000 n 0000256474 00000 n 0000213471 00000 n 0000143986 00000 n 0000147559 00000 n 0000256535 00000 n 0000256570 00000 n 0000213637 00000 n 0000147581 00000 n 0000149826 00000 n 0000256631 00000 n 0000256666 00000 n 0000213803 00000 n 0000149848 00000 n 0000153092 00000 n 0000256714 00000 n 0000256749 00000 n 0000213969 00000 n 0000153114 00000 n 0000156089 00000 n 0000256810 00000 n 0000256845 00000 n 0000214135 00000 n 0000156111 00000 n 0000158486 00000 n 0000256906 00000 n 0000256941 00000 n 0000214301 00000 n 0000158508 00000 n 0000162690 00000 n 0000257002 00000 n 0000257037 00000 n 0000214467 00000 n 0000162712 00000 n 0000165602 00000 n 0000257098 00000 n 0000257133 00000 n 0000214633 00000 n 0000165624 00000 n 0000166136 00000 n 0000257181 00000 n 0000257216 00000 n 0000214799 00000 n 0000166157 00000 n 0000166523 00000 n 0000257264 00000 n 0000257299 00000 n 0000214965 00000 n 0000166544 00000 n 0000168092 00000 n 0000257347 00000 n 0000257382 00000 n 0000215131 00000 n 0000168114 00000 n 0000170770 00000 n 0000257430 00000 n 0000257465 00000 n 0000215305 00000 n 0000170792 00000 n 0000173650 00000 n 0000257539 00000 n 0000257574 00000 n 0000215471 00000 n 0000173672 00000 n 0000176231 00000 n 0000257648 00000 n 0000257783 00000 n 0000257818 00000 n 0000215653 00000 n 0000176253 00000 n 0000177602 00000 n 0000257892 00000 n 0000257927 00000 n 0000215819 00000 n 0000177624 00000 n 0000181383 00000 n 0000257975 00000 n 0000258010 00000 n 0000215985 00000 n 0000181405 00000 n 0000186667 00000 n 0000258058 00000 n 0000258093 00000 n 0000216151 00000 n 0000186689 00000 n 0000189586 00000 n 0000268555 00000 n 0000279654 00000 n 0000258154 00000 n 0000258189 00000 n 0000216317 00000 n 0000189608 00000 n 0000193654 00000 n 0000258250 00000 n 0000258285 00000 n 0000216483 00000 n 0000193676 00000 n 0000198628 00000 n 0000258359 00000 n 0000258494 00000 n 0000258529 00000 n 0000216673 00000 n 0000198650 00000 n 0000202068 00000 n 0000279320 00000 n 0000258577 00000 n 0000258755 00000 n 0000258790 00000 n 0000216855 00000 n 0000202090 00000 n 0000202850 00000 n 0000258851 00000 n 0000259030 00000 n 0000259065 00000 n 0000217037 00000 n 0000202871 00000 n 0000204371 00000 n 0000259100 00000 n 0000259232 00000 n 0000259364 00000 n 0000259496 00000 n 0000259628 00000 n 0000259760 00000 n 0000259892 00000 n 0000260024 00000 n 0000260156 00000 n 0000260288 00000 n 0000260420 00000 n 0000260552 00000 n 0000260684 00000 n 0000260816 00000 n 0000260948 00000 n 0000261080 00000 n 0000261212 00000 n 0000261344 00000 n 0000261476 00000 n 0000261608 00000 n 0000261740 00000 n 0000261872 00000 n 0000262004 00000 n 0000262136 00000 n 0000262268 00000 n 0000262400 00000 n 0000262532 00000 n 0000262664 00000 n 0000262796 00000 n 0000262928 00000 n 0000263060 00000 n 0000263192 00000 n 0000263324 00000 n 0000263456 00000 n 0000263588 00000 n 0000263720 00000 n 0000263852 00000 n 0000263984 00000 n 0000264116 00000 n 0000264248 00000 n 0000264380 00000 n 0000264512 00000 n 0000264644 00000 n 0000264776 00000 n 0000264908 00000 n 0000265040 00000 n 0000265172 00000 n 0000265304 00000 n 0000265436 00000 n 0000265568 00000 n 0000265700 00000 n 0000265832 00000 n 0000265964 00000 n 0000266096 00000 n 0000266228 00000 n 0000266360 00000 n 0000266492 00000 n 0000266624 00000 n 0000266756 00000 n 0000266888 00000 n 0000267020 00000 n 0000267152 00000 n 0000267284 00000 n 0000267416 00000 n 0000267548 00000 n 0000267680 00000 n 0000267812 00000 n 0000267944 00000 n 0000268076 00000 n 0000268208 00000 n 0000268340 00000 n 0000268472 00000 n 0000268507 00000 n 0000304133 00000 n 0000311820 00000 n 0000321388 00000 n 0000298513 00000 n 0000298787 00000 n 0000299727 00000 n 0000299828 00000 n 0000300700 00000 n 0000301399 00000 n 0000301497 00000 n 0000303305 00000 n trailer << /Size 780 /Root 1 0 R /Info 2 0 R /ID [<64874DEDCBDD4C23915F7680A5C50BA2><64874DEDCBDD4C23915F7680A5C50BA2>] >> startxref 342022 %%EOF gpsim-0.27.0/doc/gpsim.lyx0000664000076400007640000053422311555522131012305 00000000000000#LyX 1.6.8 created this file. For more info see http://www.lyx.org/ \lyxformat 345 \begin_document \begin_header \textclass book \begin_preamble % added by lyx2lyx for converted index entries \@ifundefined{textmu} {\usepackage{textcomp}}{} \end_preamble \use_default_options false \language english \inputencoding default \font_roman times \font_sans default \font_typewriter default \font_default_family default \font_sc false \font_osf false \font_sf_scale 100 \font_tt_scale 100 \graphics default \paperfontsize 10 \spacing single \use_hyperref false \papersize default \use_geometry false \use_amsmath 1 \use_esint 0 \cite_engine basic \use_bibtopic false \paperorientation portrait \leftmargin -0.5cm \topmargin 0.5cm \rightmargin 0.5cm \bottommargin 0.5cm \secnumdepth 2 \tocdepth 2 \paragraph_separation skip \defskip smallskip \quotes_language english \papercolumns 1 \papersides 1 \paperpagestyle default \tracking_changes false \output_changes false \author "" \author "" \end_header \begin_body \begin_layout Title gpsim \end_layout \begin_layout Date $Date:: 2011-04-17#$ \end_layout \begin_layout Standard \begin_inset CommandInset toc LatexCommand tableofcontents \end_inset \end_layout \begin_layout Chapter* Introduction \end_layout \begin_layout Standard gpsim is a full-featured software simulator for Microchip PIC microcontrollers distributed under the GNU General Public License and GNU Lesser Public License \begin_inset Note Note status collapsed \begin_layout Plain Layout scott2 Wed Sep 30 13:25:58 1998 \end_layout \end_inset (see the LICENSE section). \end_layout \begin_layout Standard gpsim has been designed to be as accurate as possible. Accuracy includes the entire PIC - from the core to the I/O pins and including ALL of the internal peripherals. Thus it's possible to create stimuli and tie them to the I/O pins and test the PIC the same way you would in the real world. \end_layout \begin_layout Standard gpsim has been designed to be as fast as possible. Real time simulation speeds of 20Mhz pics are possible. \end_layout \begin_layout Standard gpsim can be controlled from either a graphical user interface (GUI), a command line interface (CLI) or by a remote process. Typical debugging features like breakpoints, single stepping, disassembling, memory inspect & change, and so on are all supported. In addition, complex debugging features like real time tracing, assertions, conditional breaks, and plugin modules to name a few are also supported. \end_layout \begin_layout Chapter gpsim - An Overview \end_layout \begin_layout Standard If you don't care to wade through details, this chapter should help you get things up and running. The INSTALL and README files will provide more up-to-date information than this document, so please refer to those first. \end_layout \begin_layout Section Making the executable \end_layout \begin_layout Standard gpsim's executable is created in a manner that's consistent with much of the other open source software: \end_layout \begin_layout Standard \begin_inset Tabular \begin_inset Text \begin_layout Plain Layout command \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout description \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout tar -xvzf gpsim-x.y.z.tar.gz \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout expand the compressed tar file \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout ./configure \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Create a 'makefile' unique to your system \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout make \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout compile gpsim \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout make install \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout install gpsim \end_layout \end_inset \end_inset \end_layout \begin_layout Standard The last step will require root privileges. \end_layout \begin_layout Subsection Make Details - ./configure options \end_layout \begin_layout Subsubsection* gui-less \end_layout \begin_layout Standard The default configuration will provide a gui (graphical user interface). The cli (command line interface) is still available, however many people prefer just to use the cli. These hardy souls may build a command-line only interface by configuring gpsim: \end_layout \begin_layout LyX-Code ./configure --disable-gui \end_layout \begin_layout Subsubsection* debugging \end_layout \begin_layout Standard If you want to debug gpsim then you will probably use gdb. Consequently, you will want to disable shared libraries: \end_layout \begin_layout LyX-Code ./configure --disable-shared \end_layout \begin_layout Standard This will create one, huge monolithic executable with symbolic information. \end_layout \begin_layout Subsection RPMs \end_layout \begin_layout Standard gpsim is also distributed in RPM form. In recent versions, there are two RPMs: gpsim-devel and gpsim. Both of these must be installed. There is also a RPM for the source code. This can be used to build a binary RPM unique to your system. Please see the latest INSTALL and README for the most up to date information. \end_layout \begin_layout Subsection Windows \end_layout \begin_layout Standard gpsim runs on Windows too. Borut Razem maintains the gpsim Windows web site: \end_layout \begin_layout Quote http://gpsim.sourceforge.net/gpsimWin32/gpsimWin32.html \end_layout \begin_layout Standard You can find detailed instructions there for installing gpsim and its dependenc ies. Snap shots can be found: \end_layout \begin_layout Quote http://gpsim.sourceforge.net/snap.php \end_layout \begin_layout Section Running \end_layout \begin_layout Standard The executable created above is called: gpsim. The following command line options may be specified when gpsim is invoked. \end_layout \begin_layout LyX-Code gpsim [-?] [-p []] [[-c] ] [[-s] ] \end_layout \begin_layout LyX-Code -p, --processor= processor (e.g. -pp16c84 for the 'c84) \end_layout \begin_layout LyX-Code -c, --command=STRING startup command file (optional .stc files) \end_layout \begin_layout LyX-Code -s .cod symbol file (optional .cod files) \end_layout \begin_layout LyX-Code -L, -- colon separated list of directories to \end_layout \begin_layout LyX-Code search. \end_layout \begin_layout LyX-Code -v, --version gpsim version \end_layout \begin_layout LyX-Code -i, --cli command line mode only \end_layout \begin_layout LyX-Code -d, --icd=STRING use ICD (e.g. -d /dev/ttyS0). \end_layout \begin_layout LyX-Code Help options: \end_layout \begin_layout LyX-Code -?, --help Show this help message \end_layout \begin_layout LyX-Code --usage Display brief usage message \end_layout \begin_layout Standard Typically gpsim will be invoked like: \end_layout \begin_layout LyX-Code [My-Computer]$ gpsim mypic-program.cod \end_layout \begin_layout Standard (The \emph on [My-Computer]$ \emph default text is an example of a typical bash command prompt - you will only type the text after this prompt). This loads the .cod file generated by gputils. \end_layout \begin_layout Standard Under Windows, gpsim can also be invoked by navigating through the Start/Program menu. This will open a DOS window to provide access to the command line interface. It's also possible to open a DOS window (or CygWin bash session) and invoke gpsim from there. \end_layout \begin_layout Section Requirements \end_layout \begin_layout Standard gpsim has been developed under Linux. It should build and run just fine under the popular Linux distributions like Fedora, Ubuntu, etc. gpsim has also been ported to the MAC, MicroSoft Windows, Solaris, and BSD. Two packages gpsim requires that may not be available with all Linux distribut ions are readline and gtk (the gimp tool kit). The ./configure script should tell you if these packages are not installed on your system or if the revisions that are installed are too old. \end_layout \begin_layout Standard There are no minimum hardware requirements to run gpsim. Faster is better though! \end_layout \begin_layout Standard gputils, the gnupic utilities package, is also very useful. gpsim will accept straight hex files, but if you want to do any symbolic debugging then you will want to use the .cod \begin_inset Foot status collapsed \begin_layout Plain Layout .cod files are symbol files that were created by ByteCraft and are used by Microchip. \end_layout \end_inset files that gputils produces. The .cod files are in the same format as the .cod files MPASM \begin_inset Foot status collapsed \begin_layout Plain Layout MPASM is Microchip's Assembler. \end_layout \end_inset produces. \end_layout \begin_layout Chapter Command Line Interface \end_layout \begin_layout Standard The command line interface is fairly straight-forward. The table below summarizes the available commands. Brief descriptions of these commands can also be displayed by typing \emph on help \emph default at the command line. \end_layout \begin_layout Standard \begin_inset VSpace 0.3cm \end_inset \end_layout \begin_layout Standard \align center \begin_inset Tabular \begin_inset Text \begin_layout Plain Layout command \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout summary \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout attach \begin_inset Index status collapsed \begin_layout Plain Layout attach \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Attach stimuli to nodes \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout break \begin_inset Index status collapsed \begin_layout Plain Layout break \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Set a break point \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout bus \begin_inset Index status collapsed \begin_layout Plain Layout bus \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Add or display node busses \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout clear \begin_inset Index status collapsed \begin_layout Plain Layout clear \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Remove a break point \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout disassemble \begin_inset Index status collapsed \begin_layout Plain Layout disassemble \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Disassemble the current cpu \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout dump \begin_inset Index status collapsed \begin_layout Plain Layout dump \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Display either the RAM or EEPROM \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout frequency \begin_inset Index status collapsed \begin_layout Plain Layout frequency \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Set processor frequency \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout help \begin_inset Index status collapsed \begin_layout Plain Layout help \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Type help "command" for more help on a command \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout icd \begin_inset Index status collapsed \begin_layout Plain Layout icd \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout In Circuit Debugger support. \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout list \begin_inset Index status collapsed \begin_layout Plain Layout list \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Display source and list files \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout load \begin_inset Index status collapsed \begin_layout Plain Layout load \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Load either a hex or command file \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout log \begin_inset Index status collapsed \begin_layout Plain Layout log \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Log/record events to a file \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout node \begin_inset Index status collapsed \begin_layout Plain Layout node \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Add or display stimulus nodes \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout module \begin_inset Index status collapsed \begin_layout Plain Layout module \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout \family roman \series medium \shape up \size normal \emph off \bar no \noun off \color none Select & Display modules \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout processor \begin_inset Index status collapsed \begin_layout Plain Layout processor \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Add/list processors \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout quit \begin_inset Index status collapsed \begin_layout Plain Layout quit \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Quit gpsim \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout reset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout \family roman \series medium \shape up \size normal \emph off \bar no \noun off \color none Reset all or parts of the simulation \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout run \begin_inset Index status collapsed \begin_layout Plain Layout run \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Execute the pic program \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout set \begin_inset Index status collapsed \begin_layout Plain Layout set \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout \family roman \series medium \shape up \size normal \emph off \bar no \noun off \color none display and control gpsim behavior flags \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout step \begin_inset Index status collapsed \begin_layout Plain Layout step \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Execute one or more instructions \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout stimulus \begin_inset Index status collapsed \begin_layout Plain Layout stimulus \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Create a stimulus \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout stopwatch \begin_inset Index status collapsed \begin_layout Plain Layout stopwatch \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout \family roman \series medium \shape up \size normal \emph off \bar no \noun off \color none Measure time between events \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout symbol \begin_inset Index status collapsed \begin_layout Plain Layout symbol \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Add/list symbols \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout trace \begin_inset Index status collapsed \begin_layout Plain Layout trace \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Dump the trace history \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout version \begin_inset Index status collapsed \begin_layout Plain Layout version \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Display gpsim's version \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout x \begin_inset Index status collapsed \begin_layout Plain Layout x \end_layout \end_inset \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout (deprecated) examine and/or modify memory \end_layout \end_inset \end_inset \end_layout \begin_layout Standard \begin_inset VSpace 0.3cm \end_inset \end_layout \begin_layout Standard The built in 'help' command provides additional online information. \end_layout \begin_layout Section attach \begin_inset Index status collapsed \begin_layout Plain Layout attach \end_layout \end_inset \end_layout \begin_layout LyX-Code attach node1 stimulus1 [stimulus2 stimulus_N] \end_layout \begin_layout Standard Attach is used to define connections between one or more stimulus and a node. One node and at least one stimulus must be specified, but in general two or more stimuli are used. Attach can be viewed as wiring stimuli together, with the node acting as the wire. A stimulus is either a CPU or module I/O pin or a stimulus name. \end_layout \begin_layout Standard Attach_pointN can have one of the following formats \end_layout \begin_layout List \labelwidthstring 00.00.0000 pin() or pin() \end_layout \begin_deeper \begin_layout Standard This refers to a pin of the current active CPU. \end_layout \begin_layout Standard is the pin number \end_layout \begin_layout Standard is an integer symbol whose value is a pin number \end_layout \end_deeper \begin_layout List \labelwidthstring 00.00.0000 or pin() \end_layout \begin_deeper \begin_layout Standard These two forms are treated exactly the same ( i.e. the pin() has no meaning). \end_layout \begin_layout Standard is a stimulus name or an I/O pin name. \end_layout \begin_layout Standard I/O pin name can be just the pin name for the CPU or .pin_name for a module or CPU \end_layout \end_deeper \begin_layout Standard Example \end_layout \begin_layout LyX-Code **gpsim> load instructions_14bit.cod # load code \end_layout \begin_layout LyX-Code **gpsim> module library libgpsim_modules #load module lib \end_layout \begin_layout LyX-Code **gpsim> module load usart U1 # create USART \end_layout \begin_layout LyX-Code **gpsim> node n1 # define a node \end_layout \begin_layout LyX-Code **gpsim> node n2 #define another node \end_layout \begin_layout LyX-Code **gpsim> symbol TWO=2 #define symbol with value 2 \end_layout \begin_layout LyX-Code **gpsim> attach n1 pin(1) pin(TWO) #attach CPU pins 1 and 2 \end_layout \begin_layout LyX-Code **gpsim> attach n1 U1.RXPIN #add usart pin to n1 \end_layout \begin_layout LyX-Code **gpsim> attach n2 portb0 pin(U1.TXPIN) #connect portb0 to UASRT TX pin \end_layout \begin_layout LyX-Code **gpsim> node # show results \end_layout \begin_layout LyX-Code \end_layout \begin_layout Section break \begin_inset Index status collapsed \begin_layout Plain Layout break \end_layout \end_inset \end_layout \begin_layout Standard The break command is used to set and examine break points. New break points are assigned a unique number. This number can be used to query or clear the break point. Break points halt the simulation when the condition associated with them is true. Break points are ignored during single stepping. See chapter \begin_inset CommandInset ref LatexCommand ref reference "cha:Assertions-and-Extended" \end_inset for more examples of breakpoints. \end_layout \begin_layout Subsubsection* Examining break points \end_layout \begin_layout LyX-Code break [bp_number] \end_layout \begin_layout Standard Break points can be examined by typing the break command without any options. Specific breaks can be queried by specifying the break point number. \end_layout \begin_layout Subsubsection* Program Memory/Execution breaks \end_layout \begin_layout Standard The most common break point is an execution break point. This one halts execution whenever the program counter reaches the address at which the break point is set. The syntax is: \end_layout \begin_layout LyX-Code break e|r|w ADDRESS [,expr [,message]] \end_layout \begin_layout Standard The simulation halts when the address is executed, read, or written. The ADDRESS can be a symbol or a number. If the optional expression is specified, then it must evaluate to true before the simulation will halt. The optional message allows a description to be associated with the break. The read and write options only apply to those processors that can manipulate their own program memory. \end_layout \begin_layout Subsubsection* Register Memory breaks \end_layout \begin_layout Standard gpsim can also associate break points with register accesses. This is useful for capturing bugs that stomp on RAM. E.g. you can say something like \begin_inset Quotes eld \end_inset halt execution whenever bit 4 of register 42 is cleared \begin_inset Quotes erd \end_inset . The command line syntax is: \end_layout \begin_layout LyX-Code break r|w|ch REGISTER [,expr [,message]] \end_layout \begin_layout Standard The simulation halts when \emph on REGISTER \emph default is read, written, or changed on write, and the optional expression evaluates to true. \end_layout \begin_layout Standard Other syntaxes with a boolean expression are: \end_layout \begin_layout LyX-Code break r|w|ch REGISTER == value \end_layout \begin_layout Standard The simulation halts when \emph on REGISTER \emph default is assigned the specified value, and: \end_layout \begin_layout LyX-Code break r|w|ch REGISTER & mask == value \end_layout \begin_layout Standard The simulation halts when specified bits in REGISTER are assigned the specified value. \end_layout \begin_layout Standard Here's an example of a register write break. This one will halt the simulation if any value is written to the variable named \emph on temp1 \emph default . \end_layout \begin_layout LyX-Code break w temp1 \end_layout \begin_layout Standard Sometimes it's necessary to specify an auxiliary condition with a break point. For example, there may be a temporary variable that is shared throughout the code. You may wish to trap writes to that variable only while executing a specific subroutine. For example, the following break point triggers when temp1 is written and while the program counter is in between the labels \emph on func_start \emph default and \emph on func_end \emph default : \end_layout \begin_layout LyX-Code break w temp1 (pc >= func_start && pc < func_end) \end_layout \begin_layout Standard \emph on TIP: \emph default Use this type of break point if you suspect an interrupt routine is over writing a variable. \end_layout \begin_layout Standard Another situation is one where you wish to trap writes to a variable only if some other variable is a certain value: \end_layout \begin_layout LyX-Code break w temp1 (CurTask & 0x0f != 0b101) \end_layout \begin_layout Standard If the firmware writes to the variable temp1 then the simulation will halt if the lower nibble of CurTask is not equal to 5. \end_layout \begin_layout Standard This example breaks only if the hex digit 'C' is written to the upper nibble of temp1: \end_layout \begin_layout LyX-Code break w temp1 & 0b11110000 == 0b11000000 \end_layout \begin_layout Subsubsection Processor exception breakpoints \end_layout \begin_layout Standard Stack overflow, underflow and watchdog timeout can also halt the simulation. \end_layout \begin_layout LyX-Code break so \end_layout \begin_layout LyX-Code break su \end_layout \begin_layout LyX-Code break wdt \end_layout \begin_layout Subsubsection* Attribute Breakpoints \end_layout \begin_layout LyX-Code break \emph on attribute \end_layout \begin_layout Standard gpsim also supports a concept of \emph on attribute breakpoints. \emph default Attributes are parameters that gpsim and its modules expose to the user interface. For example, the simulator stopwatch exposes attributes which support breakpoints. This feature is intend mainly for module writers to provide a mechanism for allowing the user to control the module. \end_layout \begin_layout Subsubsection* Cycle counter Breakpoints \end_layout \begin_layout LyX-Code break c \emph on cycle_number \end_layout \begin_layout Standard The cycle counter is gpsim's time keeper. It increments once every instruction cycle. The 'c' option to the break command allows a break point to be set at a particular value of the cycle counter. \end_layout \begin_layout Section clear \begin_inset Index status collapsed \begin_layout Plain Layout clear \end_layout \end_inset \end_layout \begin_layout LyX-Code clear bp_number \end_layout \begin_layout LyX-Code \end_layout \begin_layout Standard The clear command is used to clear break points. The break point number must be specified. The \emph on break \emph default command without any arguments displays all of the currently defined break points. This can be used to ascertain the break point number. Once cleared, a break point is deleted. \begin_inset Foot status collapsed \begin_layout Plain Layout A break point disable/enable feature has been discussed and may be added a future date. \end_layout \end_inset \end_layout \begin_layout Section disassemble \begin_inset Index status collapsed \begin_layout Plain Layout disassemble \end_layout \end_inset \end_layout \begin_layout LyX-Code disassemble [[begin:end] | [count]] \end_layout \begin_layout LyX-Code \end_layout \begin_layout Standard The disassemble command decodes the program memory opcodes into their standard mnemonics. With no options, the \emph on disassemble \emph default command disassembles instructions surrounding the current program counter: \end_layout \begin_layout LyX-Code gpsim> disassemble \end_layout \begin_layout LyX-Code current pc = 0x1c \end_layout \begin_layout LyX-Code 0012 2a03 incf reg3,f,0 \end_layout \begin_layout LyX-Code 0014 0004 clrwdt \end_layout \begin_layout LyX-Code 0016 5000 movf reg,w,0 \end_layout \begin_layout LyX-Code 0018 1001 iorwf reg1,w,0 \end_layout \begin_layout LyX-Code 001a 1002 iorwf reg2,w,0 \end_layout \begin_layout LyX-Code ==> 001c 1003 iorwf reg3,w,0 \end_layout \begin_layout LyX-Code 001e e1f4 bnz $-0x16 ;(0x8) \end_layout \begin_layout LyX-Code 0020 d7ff bra $-0x0 ;(0x00020) \end_layout \begin_layout Standard With a single numeric option, the \emph on disassemble \emph default command will disassemble given number of instructions starting with the instruction at the PC. \end_layout \begin_layout Standard With a two numbers, the \emph on disassemble \emph default command will disassemble instructions starting and ending given number of instructions from the PC. \end_layout \begin_layout Section dump \begin_inset Index status collapsed \begin_layout Plain Layout dump \end_layout \end_inset \end_layout \begin_layout LyX-Code dump [r | s | e [module_name [filename]]] \end_layout \begin_layout LyX-Code \end_layout \begin_layout Standard dump r or dump with no options will display all of the file registers and special function registers. \end_layout \begin_layout Standard dump s will display only special function registers. \end_layout \begin_layout Standard dump e will display the contents of the processor EEPROM (if the pic being simulated contains any). \end_layout \begin_layout Standard The 'dump e module_name' command will display the contents of an EEPROM where module_name can either be the name of a module or processor which contains an EEPROM. \end_layout \begin_layout Standard The 'dump e module_name filename' command dumps the contents of a module's EEPROM, in Intel hex format, into the file with the given name. The 'load e' command can later be used to read the dumped file thus allowing the contents of the EEPROM to be preserved between runs of gpsim. \end_layout \begin_layout Standard See the 'x' command for examining and modifying individual registers. \end_layout \begin_layout Section echo \begin_inset Index status collapsed \begin_layout Plain Layout echo \end_layout \end_inset \end_layout \begin_layout Standard The echo command is used like a print statement within configuration files. It just lets you display information about your configuration file. \end_layout \begin_layout Section frequency \begin_inset Index status collapsed \begin_layout Plain Layout frequency \end_layout \end_inset \end_layout \begin_layout Standard This command sets the oscillator frequency. By default gpsim uses 20 MHz oscillator. The oscillator frequency is used to compute time in seconds. Use this command to adjust this value. If no value is provided this command prints the current frequency. Note that PICs have an instruction frequency that's a quarter of the oscillator frequency clock. \end_layout \begin_layout Section help \begin_inset Index status collapsed \begin_layout Plain Layout help \end_layout \end_inset \end_layout \begin_layout LyX-Code help [ \emph on command \emph default ] \end_layout \begin_layout Standard By itself, help will display all of the commands along with a brief description on how they work. With a command as a parameter help provides more extensive online help. The help command can also display information about attributes. \end_layout \begin_layout Section icd \begin_inset Index status collapsed \begin_layout Plain Layout icd \end_layout \end_inset \end_layout \begin_layout LyX-Code icd [open ] \end_layout \begin_layout Standard The open command is used to enable ICD mode and specify the serial port where the ICD is. (e.g. "icd open /dev/ttyS0"). Without options (and after the icd is enabled), it will print some information about the ICD. \end_layout \begin_layout Section list \begin_inset Index status collapsed \begin_layout Plain Layout list \end_layout \end_inset \end_layout \begin_layout Standard The list command allows you to view the source code while you are debugging. \end_layout \begin_layout LyX-Code list [[s | l] [*pc] [line_number1 [,line_number2]]] \end_layout \begin_layout Standard Without any options, list will use the last specified options. \end_layout \begin_layout Standard list s will display lines in the source (or .asm) file. \end_layout \begin_layout Standard list l will display lines in the .lst file. \end_layout \begin_layout Standard list *pc will display either .asm or .lst lines around the PC. Without *pc use current PC as a reference. \end_layout \begin_layout Standard Line numbers are relative to the line of the PC. \end_layout \begin_layout Section load \begin_inset Index status collapsed \begin_layout Plain Layout load \end_layout \end_inset \end_layout \begin_layout Standard The load command is used to load a program file, a command file, or eeprom data. \end_layout \begin_layout Standard Program file is usually used to program the physical part. A .hex file provides no symbolic information. .cod files on the other hand, do provide symbolic information. The only reason to use a hex file is when there's no .cod file available. \end_layout \begin_layout Standard The syntax for loading program files is: \end_layout \begin_layout LyX-Code load [processortype] programfile \end_layout \begin_layout Standard gpsim will automatically determine if the file is a .hex or .cod file. The optional \emph on processortype \emph default is needed if a .hex file is loaded and processor is not yet defined. It also allows one to override the processor specified in a .cod file. \end_layout \begin_layout LyX-Code load [i] commandfile.stc \end_layout \begin_layout Standard Command files contain gpsim commands. These are extremely useful for creating a debugging environment that will be used repeatedly. Normally loading a command file residing in other directories changes working directory. This can be overridden with the 'i' (include) option. \end_layout \begin_layout LyX-Code load e module_name file \end_layout \begin_layout Standard This command loads the contents of either a processor's EEPROM or an EEPROM module from a file containing the data in Intel hex format. In either case the address of the first cell of the EEPROM is 0x0000. Used in conjunction with the 'dump e module_name filename' command, the contents of an EEPROM can be carried over from one run of gpsim to another. \end_layout \begin_layout Section macros \begin_inset Index status collapsed \begin_layout Plain Layout macros \end_layout \end_inset \end_layout \begin_layout Standard Macros are defined like: \end_layout \begin_layout LyX-Code \emph on name \emph default macro [arg1, arg2, ..., argN] \end_layout \begin_layout LyX-Code macro body \end_layout \begin_layout LyX-Code endm \end_layout \begin_layout Standard And they're invoked by: \end_layout \begin_layout LyX-Code \emph on name \emph default param1, param2, ..., paramN \end_layout \begin_layout Standard Macros are a way of collecting several parameterized commands into one short command. The first line of a macro definition specifies the macro's name and optional arguments. The \emph on name \emph default is used to invoke the macro. The arguments are text string place holders. When a macro is invoked, the parameters are aligned with the arguments. I.e. \emph on param1 \emph default in the invocation can be thought of being assigned to \emph on arg1 \emph default in the definition. The parameters replace the arguments in the macro body. \end_layout \begin_layout Standard In the following example, a variable or attribute called \emph on mac_flags \emph default is being manipulated in an expression. The arguments \emph on add \emph default and \emph on mask \emph default appear in the macro body and provide a parameterized way of manipulating this expression. \end_layout \begin_layout LyX-Code mac_exp macro add, mask \end_layout \begin_layout LyX-Code mac_flags = (mac_flags+add) & mask \end_layout \begin_layout LyX-Code endm \end_layout \begin_layout Standard Note that the indentation is arbitrary. The macro is invoked by: \end_layout \begin_layout LyX-Code mac_exp 1, 0b00001111 # increment the lower nibble \end_layout \begin_layout Standard The parameter \emph on add \emph default is replaced by the number \emph on 1 \emph default while \emph on mask \emph default is replaced with the binary number \emph on 0b00001111. \emph default The invocation turns into the gpsim command: \end_layout \begin_layout LyX-Code mac_flags = (mac_flags+1) & 0b00001111 \end_layout \begin_layout Subsubsection* Nested Macros \end_layout \begin_layout Standard The macro body can contain any gpsim command. Of particular interest are macro invocations within other macros. Here's another macro that invokes the one defined above. \end_layout \begin_layout LyX-Code # Nested macro example \end_layout \begin_layout LyX-Code mac1 macro p1, p2 \end_layout \begin_layout LyX-Code run \end_layout \begin_layout LyX-Code mac_exp p1, p2 \end_layout \begin_layout LyX-Code endm \end_layout \begin_layout Standard And it could be used like: \end_layout \begin_layout LyX-Code mac1 1, 0b00001111 # test lower nibble \end_layout \begin_layout LyX-Code mac1 (1<<4), 0b11110000 # test upper nibble \end_layout \begin_layout Standard The first invocation starts the simulator by executing a \emph on run \emph default command. When a break point is encountered, control returns to the command line and the \emph on mac_exp \emph default macro is invoked. \end_layout \begin_layout Subsubsection* Displaying Defined Macros \end_layout \begin_layout Standard All currently defined macros can be displayed by typing the macro command without a name or arguments: \end_layout \begin_layout LyX-Code gpsim> macro \end_layout \begin_layout LyX-Code mac1 macro p1 p2 \end_layout \begin_layout LyX-Code run \end_layout \begin_layout LyX-Code mac_exp p1, p2 \end_layout \begin_layout LyX-Code endm \end_layout \begin_layout LyX-Code mac_exp macro add mask \end_layout \begin_layout LyX-Code mac_flags = (mac_flags+add) & mask \end_layout \begin_layout LyX-Code endm \end_layout \begin_layout Section module \begin_inset Index status collapsed \begin_layout Plain Layout module \end_layout \end_inset \end_layout \begin_layout Standard The \emph on module \emph default command is used to load and query external modules (see section \begin_inset CommandInset ref LatexCommand ref reference "cha:Modules" \end_inset for more information about gpsim modules). A module is a special piece of software that can extend gpsim in some manner. LED's and switches are examples of modules. A module library is collection of modules. \end_layout \begin_layout Subsubsection* Loading module libraries \end_layout \begin_layout LyX-Code module lib \emph on lib_name \end_layout \begin_layout Standard The \emph on lib \emph default option is used to load a module library. Module libraries are system dependent shared libraries, i.e. on Windows they're DLL's and UNIX they're shared libraries. This means that either the libraries should reside in a path where the OS knows libraries exist or that the full path name must be specified along with the \emph on lib_name \emph default . gpsim provides a module library with a few modules: \end_layout \begin_layout LyX-Code gpsim> module lib libgpsim_modules \end_layout \begin_layout Subsubsection* Displaying available modules \end_layout \begin_layout LyX-Code module list \end_layout \begin_layout Standard The \emph on list \emph default option will display all of the modules that can be loaded. Here is an example of gpsim's built-in modules. \end_layout \begin_layout LyX-Code gpsim> module list \end_layout \begin_layout LyX-Code Module Library Files \end_layout \begin_layout LyX-Code libgpsim_modules.so \end_layout \begin_layout LyX-Code switch \end_layout \begin_layout LyX-Code and2 \end_layout \begin_layout LyX-Code or2 \end_layout \begin_layout LyX-Code xor2 \end_layout \begin_layout LyX-Code not \end_layout \begin_layout LyX-Code led_7segments \end_layout \begin_layout LyX-Code led \end_layout \begin_layout LyX-Code push_button \end_layout \begin_layout LyX-Code PortStimulus \end_layout \begin_layout LyX-Code pullup \end_layout \begin_layout LyX-Code pulldown \end_layout \begin_layout LyX-Code pulsegen \end_layout \begin_layout LyX-Code Encoder \end_layout \begin_layout LyX-Code usart \end_layout \begin_layout LyX-Code TTL377 \end_layout \begin_layout LyX-Code I2C-EEPROM2k \end_layout \begin_layout LyX-Code I2C-EEPROM16k \end_layout \begin_layout LyX-Code I2C-EEPROM256k \end_layout \begin_layout Subsubsection* Loading a specific module \end_layout \begin_layout LyX-Code module load module_type [module_name] \end_layout \begin_layout Standard Once a library has been loaded, specific modules can be instantiated. The \emph on module_type \emph default is what's displayed by the \emph on module list \emph default command. The optional module name specifies what the instance is called. Here's an example \end_layout \begin_layout LyX-Code gpsim> module load led D1 \end_layout \begin_layout Subsubsection* Display loaded modules \end_layout \begin_layout LyX-Code module \end_layout \begin_layout Subsubsection* Querying modules \end_layout \begin_layout Standard Dumping modules and listing the pins is not yet implemented. \end_layout \begin_layout LyX-Code \end_layout \begin_layout Section node \begin_inset Index status collapsed \begin_layout Plain Layout node \end_layout \end_inset \end_layout \begin_layout LyX-Code node [new_node1 new_node2 ...] \end_layout \begin_layout Standard The \shape italic node \shape default command defines or queries \begin_inset Quotes eld \end_inset nodes \begin_inset Quotes erd \end_inset , used to connect external signals to the simulated PIC. If no new_node is specified then all of the nodes that have been defined are displayed. If a new_node is specified then it will be added to the node list. See the "attach" and "stimulus" commands to see how stimuli are added to the nodes. \end_layout \begin_layout LyX-Code examples: \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code node // display the node list \end_layout \begin_layout LyX-Code node n1 n2 n3 // create and add 3 new nodes to the list \end_layout \begin_layout Section processor \begin_inset Index status collapsed \begin_layout Plain Layout processor \end_layout \end_inset \end_layout \begin_layout LyX-Code processor [new_processor_type [new_processor_name]] | [list] | [dump] \end_layout \begin_layout Standard The \emph on processor \emph default command is used to either define a new processor or to query one that has already been defined. Normally there's no need to explicitly define the processor since the symbol file already contains that information. The two exceptions are when a) the symbolic information is not available or b) you wish to override the processor specified in the symbol file. (See the \emph on load \emph default command on how the processor in a symbol file can be overridden.) \end_layout \begin_layout Standard To see a list of the processors supported by gpsim, type ' \emph on processor list \emph default '. To display the state of the I/O processor, type ' \emph on processor pins \emph default '. For now, this will display the pin numbers and their current state. \end_layout \begin_layout LyX-Code examples: \end_layout \begin_layout LyX-Code processor // Display the processors you've already defined. \end_layout \begin_layout LyX-Code processor list // Display the list of processors supported. \end_layout \begin_layout LyX-Code processor pins // Display the processor package and pin state \end_layout \begin_layout LyX-Code processor p16cr84 fred // Create a new processor. \end_layout \begin_layout LyX-Code processor p16c74 wilma // and another. \end_layout \begin_layout LyX-Code processor p16c65 // Create one with no name. \end_layout \begin_layout Section quit \begin_inset Index status collapsed \begin_layout Plain Layout quit \end_layout \end_inset \end_layout \begin_layout Standard Quit gpsim. \end_layout \begin_layout Section run \begin_inset Index status collapsed \begin_layout Plain Layout run \end_layout \end_inset \end_layout \begin_layout Standard Start (or continue) simulation. The simulation will continue until the next break point is encountered. \end_layout \begin_layout Section step \begin_inset Index status collapsed \begin_layout Plain Layout step \end_layout \end_inset \end_layout \begin_layout Standard Execute a single instruction, or a specified number of instructions. \end_layout \begin_layout LyX-Code step [over | n] \end_layout \begin_layout Standard With no arguments, the step command executes one instruction of the PIC code. If a numeric argument is given, this specifies a fixed number of instructions to simulate. The specific word \begin_inset Quotes eld \end_inset over \begin_inset Quotes erd \end_inset as an argument to step tells gpsim to run everything involved in the current instruction. This would normally be used on a CALL instruction, in which case the whole subroutine runs and the simulation stops after it returns. \end_layout \begin_layout Section symbol \begin_inset Index status collapsed \begin_layout Plain Layout symbol \end_layout \end_inset \end_layout \begin_layout LyX-Code symbol [symbol_name [symbol_type value]] \end_layout \begin_layout Standard The \emph on symbol \emph default command is used to query and define symbols. If no options are specified, the whole symbol table is displayed. The creation of user defined symbols is limited at this time (see the online help for the current state of this command). \end_layout \begin_layout Section stimulus \begin_inset Index status collapsed \begin_layout Plain Layout stimulus \end_layout \end_inset \end_layout \begin_layout LyX-Code stimulus [[type] options] \end_layout \begin_layout Standard The \emph on stimulus \emph default command creates a signal that can be tied to a node or an attribute. If no options are specified then all currently defined stimuli are displayed. \end_layout \begin_layout Standard Note that in most cases it is easier to create a stimulus file then to type the command by hand. \end_layout \begin_layout Standard \begin_inset Tabular \begin_inset Text \begin_layout Plain Layout option \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout description \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout initial_state \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout state at the start and at the rollover \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout start_cycle \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout simulation cycle when the stimulus will begin \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout period \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout stimulus period \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout name \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout specifies the stimulus name \end_layout \end_inset \end_inset \end_layout \begin_layout Standard Here's an example of a stimulus that will generate two pulses and repeat this in 1000 cycles. \end_layout \begin_layout LyX-Code stimulus asynchronous_stimulus \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code # The initial state AND the state the stimulus is when \end_layout \begin_layout LyX-Code # it rolls over \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code initial_state 0 \end_layout \begin_layout LyX-Code start_cycle 0 \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code # the asynchronous stimulus will roll over in 'period' \end_layout \begin_layout LyX-Code # cycles. Delete this line if you don't want a roll over. \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code period 1000 \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code { 100, 1, \end_layout \begin_layout LyX-Code 200, 0, \end_layout \begin_layout LyX-Code 300, 1, \end_layout \begin_layout LyX-Code 400, 0 \end_layout \begin_layout LyX-Code } \end_layout \begin_layout LyX-Code # Give the stimulus a name: \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code name two_pulse_repeat \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code end \end_layout \begin_layout Standard A stimulus can be queried by typing its name at the command line: \end_layout \begin_layout LyX-Code gpsim> two_pulse_repeat \end_layout \begin_layout LyX-Code two_pulse_repeat attached to pulse_node \end_layout \begin_layout LyX-Code Vth=0V Zth=250 ohms Cth=0 F nodeVoltage= 7.49998e-07V \end_layout \begin_layout LyX-Code Driving=0 drivingState=0 drivenState=0 bitState=0 \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code states = 5 \end_layout \begin_layout LyX-Code 100 1 \end_layout \begin_layout LyX-Code 200 0 \end_layout \begin_layout LyX-Code 300 1 \end_layout \begin_layout LyX-Code 400 0 \end_layout \begin_layout LyX-Code 1000 0 \end_layout \begin_layout LyX-Code initial=0 \end_layout \begin_layout LyX-Code period=1000 \end_layout \begin_layout LyX-Code start_cycle=0 \end_layout \begin_layout LyX-Code Next break cycle=100 \end_layout \begin_layout Standard Even though this example uses 1's and 0's for the data, one can use integers, floating point numbers, or expressions instead. Integers are useful for supplying a stimulus to an attribute. Expressions are useful for abstracting the data. See Chapter \begin_inset CommandInset ref LatexCommand ref reference "cha:Simulating-the-Real" \end_inset for more discussion and examples of stimuli. \end_layout \begin_layout Section stopwatch \begin_inset Index status collapsed \begin_layout Plain Layout stopwatch \end_layout \end_inset \begin_inset Foot status collapsed \begin_layout Plain Layout The stopwatch is really a collection of attributes and not a command. But the behavior is so similar to a command that it has been included here. \end_layout \end_inset \end_layout \begin_layout LyX-Code A timer for monitoring and controlling the simulation. \end_layout \begin_layout LyX-Code The units are in simulation cycles. \end_layout \begin_layout LyX-Code stopwatch.rollover - specifies rollover value. \end_layout \begin_layout LyX-Code stopwatch.direction - specifies count direction. \end_layout \begin_layout LyX-Code stopwatch.enable - enables counting if true. \end_layout \begin_layout Standard Without any options, \emph on stopwatch \emph default will display the contents of the stopwatch timer. \emph on stopwatch \emph default is writable, so you may initialize it to whatever value you like. The behavior of the timer may be manipulated via the three attributes. The \emph on .rollover \emph default attribute is the number of cycles at which the stopwatch timer rolls over. The \emph on .direction \emph default and \emph on .enable \emph default attributes are boolean types. When true, the \emph on .direction \emph default attribute will instruction the stopwatch to count up. \end_layout \begin_layout Section trace \begin_inset Index status collapsed \begin_layout Plain Layout trace \end_layout \end_inset \end_layout \begin_layout LyX-Code trace [dump_amount] \end_layout \begin_layout Standard \emph on trace \emph default will print out the most recent "dump_amount" traces. If no dump_amount is specified, then the entire trace buffer will be displayed. \end_layout \begin_layout Section version \end_layout \begin_layout LyX-Code version \end_layout \begin_layout Standard Display gpsim's version. Note, this command will probably get replaced by an attribute with the same (or similar) name. \end_layout \begin_layout Section x \begin_inset Index status collapsed \begin_layout Plain Layout x \end_layout \end_inset \end_layout \begin_layout Standard The \emph on x \emph default command is deprecated. It's former use was to examine and modify memory. The preferred way to do this now is with expressions. The help for \emph on x \emph default now indicates this: \end_layout \begin_layout LyX-Code x examine command -- deprecated \end_layout \begin_layout LyX-Code Instead of the using a special command to examine and modify \end_layout \begin_layout LyX-Code variables, it's possible to directly access them using gpsim's \end_layout \begin_layout LyX-Code expression parsing. For example, to examine a variable: \end_layout \begin_layout LyX-Code gpsim> my_variable \end_layout \begin_layout LyX-Code my_variable [0x27] = 0x00 = 0b00000000 \end_layout \begin_layout LyX-Code To modify a variable \end_layout \begin_layout LyX-Code gpsim> my_variable = 10 \end_layout \begin_layout LyX-Code It's also possible to assign the value of register to another \end_layout \begin_layout LyX-Code gpsim> my_variable = porta \end_layout \begin_layout LyX-Code Or to assign the results of an expression: \end_layout \begin_layout LyX-Code gpsim> my_variable = (porta ^ portc) & 0x0f \end_layout \begin_layout LyX-Code \end_layout \begin_layout Chapter \begin_inset CommandInset label LatexCommand label name "cha:Graphical-User-Interface" \end_inset Graphical User Interface \end_layout \begin_layout Standard FIXME: We could use a few illustrations here! \end_layout \begin_layout Standard gpsim also provides a graphical user interface that simplifies some of the drudgery associated with the cli. It's possible to open windows to view all the details about your debug environment. To get the most out of your debugging session, you will want to assemble your code with gpasm (the gnupic assembler) and use the symbolic .cod files it produces. \end_layout \begin_layout Section Main window \end_layout \begin_layout Subsection Menus \end_layout \begin_layout List \labelwidthstring 00000000.00.0000 File->Open .stc or .cod files. \end_layout \begin_layout List \labelwidthstring 00000000.00.0000 File->Quit Quit gpsim \end_layout \begin_layout List \labelwidthstring 00000000.00.0000 Windows->* Open/Close the windows. \end_layout \begin_layout Subsection Buttons \end_layout \begin_layout Standard (These are also found as keyboard bindings in the source windows.) \end_layout \begin_layout List \labelwidthstring 00000000.00.0000 Step Step one instruction \end_layout \begin_layout List \labelwidthstring 00000000.00.0000 Over Step until pc is after next instruction \end_layout \begin_layout List \labelwidthstring 00000000.00.0000 Finish Run to return address \end_layout \begin_layout List \labelwidthstring 00000000.00.0000 Run Run continuously \end_layout \begin_layout List \labelwidthstring 00000000.00.0000 Stop Stop execution \end_layout \begin_layout List \labelwidthstring 00000000.00.0000 Reset Reset CPU \end_layout \begin_layout Subsection Simulation mode \end_layout \begin_layout Standard This controls how gpsim simulates, and how the GUI updates. \end_layout \begin_layout List \labelwidthstring 0000000.00.0000 Never Don't ever update the GUI when simulating. This is the fastest mode. You will have to stop simulation by pressing Ctrl-C in the command line interface. \end_layout \begin_layout List \labelwidthstring 0000000.00.0000 x \begin_inset space ~ \end_inset cycles Update the GUI every x cycles simulated. \end_layout \begin_layout List \labelwidthstring 0000000.00.0000 every \begin_inset space ~ \end_inset cycle Update the GUI every cycle. (you see everything, if you have filled up on coffee :-) \end_layout \begin_layout List \labelwidthstring 0000000.00.0000 x \begin_inset space ~ \end_inset ms \begin_inset space ~ \end_inset animate Here you can slow down simulation with a delay between every cycle. \end_layout \begin_layout List \labelwidthstring 0000000.00.0000 realtime This will make gpsim try to synchronize simulation speed with wall clock time. \end_layout \begin_layout Section Source Browsers \end_layout \begin_layout Standard gpsim provides two views of your source: '. \emph on asm' \emph default and '. \emph on obj' \emph default browsers. The '. \emph on asm' \emph default browser is a color coded display of your pic source. \end_layout \begin_layout Subsection .asm Browser \end_layout \begin_layout Standard When a .cod file with source is loaded, there should be something in this display. (TODO: add section about high level debugging). \end_layout \begin_layout Standard There is an area to the left of the source, where symbols representing the program counter, breakpoints, etc are displayed. Double clicking in this area toggles breakpoints. You can drag these symbols up or down in order to move them and change the PC or move a breakpoint. \end_layout \begin_layout Standard A right button click on the source pops up a menu with six items (the word 'here' in some menu items denote the line in source the mouse pointer was on when right mouse button was clicked.): \end_layout \begin_layout List \labelwidthstring 00.00.0000.0000 \series bold Menu \begin_inset space ~ \end_inset item Description \end_layout \begin_layout List \labelwidthstring 00.00.0000.0000 Find \begin_inset space ~ \end_inset PC This menu item will find the PC and changed page tab and scroll the source view to the current PC. \end_layout \begin_layout List \labelwidthstring 00.00.0000.0000 Run \begin_inset space ~ \end_inset here This sets a breakpoint 'here' and starts running until a breakpoint is hit. \end_layout \begin_layout List \labelwidthstring 00.00.0000.0000 Move \begin_inset space ~ \end_inset PC \begin_inset space ~ \end_inset here This simply changes PC to the address that line 'here' in source has. \end_layout \begin_layout List \labelwidthstring 00.00.0000.0000 Breakpoint \begin_inset space ~ \end_inset here Set a breakpoint 'here'. \end_layout \begin_layout List \labelwidthstring 00.00.0000.0000 Profile \begin_inset space ~ \end_inset start \begin_inset space ~ \end_inset here Set a start marker for routine profiling here. \end_layout \begin_layout List \labelwidthstring 00.00.0000.0000 Profile \begin_inset space ~ \end_inset stop \begin_inset space ~ \end_inset here Set a stop marker. (See the section for the profiling window.) \end_layout \begin_layout List \labelwidthstring 00.00.0000.0000 Select \begin_inset space ~ \end_inset symbol. This menu item is only available when some text is selected in the text widget. What it does is search the list of symbols for the selected word, and if it is found it is selected in the symbol window. Depending of type of symbol other things are also done, the same thing as when selecting a symbol in the symbol window: \end_layout \begin_deeper \begin_layout Itemize If it is an address, then the opcode and source views display the address. \end_layout \begin_layout Itemize If it's a register, the register viewer selects the cell. \end_layout \begin_layout Itemize If it's a constant, address, register or ioport, it is selected in the symbol window. \end_layout \end_deeper \begin_layout List \labelwidthstring 00.00.0000.0000 Find \begin_inset space ~ \end_inset text This opens up a search dialog. Every time you hit the 'Find' button, the current notebook page is found and the source in that page is used. \end_layout \begin_layout List \labelwidthstring 00.00.0000.0000 Settings A dialog with which you can change the fonts used. \end_layout \begin_layout List \labelwidthstring 00.00.0000.0000 Controls A submenu containing the simulation commands. (these are also found as keyboard bindings (recommended), or in the main window.) \end_layout \begin_layout Standard These are the keyboard bindings: \end_layout \begin_layout List \labelwidthstring 00.00.0000 \series bold Key command \end_layout \begin_layout List \labelwidthstring 00.00.0000 s,S,F7 Step one instruction. \end_layout \begin_layout List \labelwidthstring 00.00.0000 o,O,F8 Step over instruction \end_layout \begin_layout List \labelwidthstring 00.00.0000 r,R,F9 Run continuously. \end_layout \begin_layout List \labelwidthstring 00.00.0000 Escape Stop simulation. \end_layout \begin_layout List \labelwidthstring 00.00.0000 f,F Run to return address \end_layout \begin_layout List \labelwidthstring 00.00.0000 1..9 Step n instructions \end_layout \begin_layout Subsection Opcode view - the .obj Browser \end_layout \begin_layout Standard This window has two tabs. One with each memory cell on one line and information about address, hexadecima l value and decoded instruction (i.e. disassembly), and one with the program memory \end_layout \begin_layout Standard displayed with sixteen memory cells per row and a configurable ASCII column. \end_layout \begin_layout Subsubsection* The Assembly tab you can: \end_layout \begin_layout Itemize Double click on a line to toggle breakpoints. \end_layout \begin_layout Itemize Use the same keyboard commands as the in the source browser. \end_layout \begin_layout Itemize Right click to get a menu where you can change the fonts. \end_layout \begin_layout Subsubsection* The Opcode tab. \end_layout \begin_layout Standard Here the program memory is ordered as columns of sixteen memory cells per column and as many row as needed to contain all memory. \end_layout \begin_layout Standard The seventeenth column contains an ASCII representation of the program memory. You can configure this column to use one of three different modes: \end_layout \begin_layout Itemize One byte per cell \end_layout \begin_layout Itemize Two bytes per cell, MSB first. \end_layout \begin_layout Itemize Two bytes per cell, LSB first. \end_layout \begin_layout Standard You can change fonts with the menu item 'Settings'. \end_layout \begin_layout Standard You can set breakpoints on one or more (drag the mouse to select more cells) addresses with the right click menu. \end_layout \begin_layout Section Register views \end_layout \begin_layout Standard There are two similar register windows. One for the RAM and one for the EEPROM data, when available. \end_layout \begin_layout Standard Here you see all registers in the current processor. Clicking on a cell displays it's name and value above the sheet of registers. You can change values by entering it in the entry (or in the spreadsheet cell). \end_layout \begin_layout Standard The following things can be done on one register, or a range of registers. (Selecting a range of registers is done by holding down left mouse button, moving cursor, and releasing button.) \end_layout \begin_layout Itemize Set and clear breakpoints. Use the right mousebutton menu to pop up a menu where you can select set read, write, read value and write value breakpoints. You can also "clear breakpoints", notice the s in "clear breakpoints", every breakpoint on the registers are cleared. \end_layout \begin_layout Itemize Set and clear logging of registers. You can log reads, writes, reads/writes of specific values and to bits selected by a specified mask. You can select a different file name with 'set log filename...'. Default is "gpsim.log". You can choose LXT or ASCII format. LXT can be read with the program gtkwave. ASCII is default. \end_layout \begin_layout Itemize Copy cells. You copy cells by dragging the border of the selected cell(s). \end_layout \begin_layout Itemize Fill cells. Move mouse to lower right corner of the frame of the selected cell(s), and drag it. The one cell's contents will be copied to the other cells. \end_layout \begin_layout Itemize Watch them. Select the "Add Watch" menu item. \end_layout \begin_layout Standard The cells have different background colors depending on if they represent: \end_layout \begin_layout Itemize File Register (e.g. RAM): light cyan. \end_layout \begin_layout Itemize Special Function Registers (e.g. STATUS,TMR0): dark cyan \end_layout \begin_layout Itemize aliased register (e.g. the INDF located at address 0x80 is the same as the one located at address 0x00): gray \end_layout \begin_layout Itemize invalid register: black. If all sixteen registers in a row are invalid, then the row is not shown. \end_layout \begin_layout Itemize a register with one or more breakpoints: red. Logged registers are also red. \end_layout \begin_layout Standard gpsim dynamically updates the registers as the simulation proceeds. Registers that change value between updates of the window during simulation are highlighted with a blue foreground color. \end_layout \begin_layout Standard The menu also has a 'settings' item where you can change the font used. \end_layout \begin_layout Section Symbol view \end_layout \begin_layout Standard This window, as its name suggests, displays symbols. All of the special function registers will have entries in the symbol viewer. If you are using .cod files then you will additionally have file registers (that are defined in cblocks), equates, and address labels. \end_layout \begin_layout Standard You can filter out some symbol types using the buttons in the top of the window, and you can sort the rows by clicking on the column buttons (the ones reading 'symbol', 'type' and 'address'). \end_layout \begin_layout Standard You can add the symbol to the watch window by right-clicking and selecting the "Add to watch window" menu item. This will add the ram register with address equal to the symbols value to the watch window. \end_layout \begin_layout Standard The symbol viewer is linked to the other windows. For example, if you click on a symbol and: \end_layout \begin_layout Itemize If it is an address, then the opcode and source views display the address. \end_layout \begin_layout Itemize If it's a register, the register viewer selects the cell. \end_layout \begin_layout Section Watch view \end_layout \begin_layout Standard This is not a output-only window as the name suggests (change name?). You can both view and change data. Double-clicking on a bit toggles the bit. You add variables here by marking them in a register viewer and select \begin_inset Quotes eld \end_inset Add watch \begin_inset Quotes erd \end_inset from menu. The right-click menu has the following items: \end_layout \begin_layout Itemize Remove watch \end_layout \begin_layout Itemize Set register value \end_layout \begin_layout Itemize Clear Breakpoints \end_layout \begin_layout Itemize Set break on read \end_layout \begin_layout Itemize Set break on write \end_layout \begin_layout Itemize Set break on read value \end_layout \begin_layout Itemize Set break on write value \end_layout \begin_layout Itemize Columns... \end_layout \begin_layout Standard "Columns... \begin_inset Quotes erd \end_inset opens up a window where you can select which of the following data to display: \end_layout \begin_layout Itemize BP \end_layout \begin_layout Itemize Type \end_layout \begin_layout Itemize Name \end_layout \begin_layout Itemize Address \end_layout \begin_layout Itemize Dec \end_layout \begin_layout Itemize Hex \end_layout \begin_layout Itemize Bx (bits of word) \end_layout \begin_layout Standard You can sort the list of watches by clicking on the column buttons. Clicking twice sorts the list backwards. \end_layout \begin_layout Section Stack viewer \end_layout \begin_layout Standard This window displays current stack. Selecting an entry makes the code windows display the return address. Double clicking sets a breakpoint on the return address. \end_layout \begin_layout Section Breadboard \end_layout \begin_layout Standard Here you can create/modify and examine the environment around the pic. Pins are displayed as an arrow. The direction of the arrow indicates if its an input or output pin. The color of the arrow indicates its state (green=low, red=high). \end_layout \begin_layout Standard You can't instantiate pic processors from here, you will have to do that from the command line, or from a .stc file. \end_layout \begin_layout Standard Your can create nodes by clicking on the "new node" button. (A node is 'a piece of wire' to which you can connect stimulus.) You can see the list of created nodes under the "nodes" item in the upper-left tree widget. \end_layout \begin_layout Standard You can create connections to nodes by clicking on a pin, and then clicking on the button "Connect stimulus to node". This will bring up a list of nodes. Choose one by double-clicking on the one you like. \end_layout \begin_layout Standard If you click on a pin that is already connected to a node, then you will see the node and its connections in the lower left part of the window. You can disconnect a stimulus by clicking on it and pressing the "remove stimulus" button. \end_layout \begin_layout Standard When you want to add a module to the simulation, you first have to specify the library which contains the module you want. Click on the "add library" button and enter the library name (e.g. "libgpsim_modules.so"). Now you can click the "add module" button. Select the module you want from the list by double-clicking on it. Enter a name for the module (this has to be unique, and not used before). You now have to position the module. Move the mouse pointer to where you would like the module, and left-click. \end_layout \begin_layout Standard If you middle-click on a pin, you will see how the pin is connected. Press the "trace all" to see all at \end_layout \begin_layout Standard once, and "clear traces" to remove all (you will only remove the graphical trace, not the connection!). If the tracing doesn't work, try moving the packages so that there are more space around the pins. \end_layout \begin_layout Standard When you are done, you can save by clicking the "save configuration" button. You can then load this file from the command line like this (assuming the .cod file with your source is called "mycode.cod", and the file you just saved was called "mynets.stc": \end_layout \begin_layout LyX-Code gpsim -s mycode.cod -c mynets.stc \end_layout \begin_layout Standard You can't load only the .stc file since this doesn't contain the processor type and code. You can create (with an editor) your own .stc file (e.g. my_project.stc) and in that file put a command "load c mynets.stc" after you have loaded the .cod file. You then only have to load this file (gpsim -c my_project.stc). \end_layout \begin_layout Section Trace viewer \end_layout \begin_layout Standard This window shows the trace of instructions executed. See \begin_inset CommandInset ref LatexCommand ref reference "trace" \end_inset . \end_layout \begin_layout Section Profile viewer \end_layout \begin_layout Standard This window show execution count for program memory addresses. The profile window must be opened before starting simulation, because the tracing is not enabled by default. \end_layout \begin_layout Subsubsection Instruction profile \end_layout \begin_layout Standard This shows the number of times each instruction are executed. \end_layout \begin_layout Subsubsection Instruction range profile \end_layout \begin_layout Standard Here you can group ranges of instruction into one entry. \end_layout \begin_layout Standard The right click menu contains: \end_layout \begin_layout List \labelwidthstring 00000000.00.0000 Remove \begin_inset space ~ \end_inset range Remove an entry. \end_layout \begin_layout List \labelwidthstring 00000000.00.0000 Add \begin_inset space ~ \end_inset range... Open a dialog from where you can add a range of instructions as an entry. \end_layout \begin_layout List \labelwidthstring 00000000.00.0000 Add \begin_inset space ~ \end_inset all \begin_inset space ~ \end_inset labels Add all code labels as ranges. \end_layout \begin_layout List \labelwidthstring 00000000.00.0000 Snapshot \begin_inset space ~ \end_inset to \begin_inset space ~ \end_inset plot Open a window containing a graph of the data. From this new window you can also save (postscript) or print it. \end_layout \begin_layout Subsubsection* Register profile \end_layout \begin_layout Standard This shows the number of reads or writes the simulator does on register. \end_layout \begin_layout Subsubsection* Routine profile \end_layout \begin_layout Standard Here you can see statistics about execution time for a selected routine. You mark the entry and exit points from the source browser (profile start/stop). If the routine you want to measure have multiple entry and/or exit points, then you have to put a marker on every entry point as well as (and especially) every exit point. Otherwise you will get bad data. \end_layout \begin_layout Standard When you have done that, gpsim will (as simulation goes by) store the execution times of that routine and calculate min/max/average/etc. You can also use the menu item 'Plot distribution' to open a window displaying a histogram of the data. From this new window you can also save (in postscript) or print it. \end_layout \begin_layout Standard You can also measure call period by switching the 'entry' and 'exit' points. If also want the time from reset (or some equal point) to the first 'entry', then you must also put an 'entry' point there. \end_layout \begin_layout Section Stopwatch \end_layout \begin_layout Standard The stopwatch window shows a cycle counter and a re-settable counter. The cycle counter is the same as the one in the register window. It basically counts instructions. \end_layout \begin_layout Standard The other counter counts at the same rate as the cycle counter, but can be cleared by clicking the "clear" button (or preset by entering a number in the entry box). \end_layout \begin_layout Standard The up/down indicator denotes the direction the counter counts. \end_layout \begin_layout Standard The rollover value specifies the range the cycle counter can be in (a modulo counter). For example, if the rollover value is specified to be 0x42, then whenever the resettable counter reaches 0x42 it will rollover to zero. If the counter is counting down, then when it reaches 0 the next state will be 0x41. If you don't want is like this, then set the rollover value to something large. \end_layout \begin_layout Section Scope Window \end_layout \begin_layout Standard FIXME: The scope window still needs some work... \end_layout \begin_layout Standard The Scope Window graphs I/O pin states. It is similar to an oscilloscope or logic analyzer. It can be controlled either from the command line or from the GUI. Currently only the digital state of I/O pins are supported. \end_layout \begin_layout Standard To use the scope window, each scope channel being used must first be connected to the stimulus being tracked. This can only be done on the command line (or via the .sim directive in the .asm file). The following example shows how this is done, but note that in the .sim command the ' \begin_inset Quotes erd \end_inset 's need to be escaped with a ' \backslash '. \end_layout \begin_layout LyX-Code **gpsim> scope.ch0 = \begin_inset Quotes eld \end_inset portc3 \begin_inset Quotes erd \end_inset \end_layout \begin_layout LyX-Code **gpsim> scope.ch1 = \begin_inset Quotes eld \end_inset portc4 \begin_inset Quotes erd \end_inset \end_layout \begin_layout Standard Once the data are captured, the scope window display may need to be altered to better see the data. In the GUI, the following keys can be used: \end_layout \begin_layout List \labelwidthstring 00.00.0000 z Zoom In \end_layout \begin_layout List \labelwidthstring 00.00.0000 Z Zoom out \end_layout \begin_layout List \labelwidthstring 00.00.0000 l Pan left \end_layout \begin_layout List \labelwidthstring 00.00.0000 r Pan right \end_layout \begin_layout Standard In the command line, zooming and panning can be achieved by modifying the scope.start and scope.end variables. \end_layout \begin_layout Chapter Scripting and Configuring \end_layout \begin_layout Standard gpsim does not have a native scripting language per se. However it is possible to place gpsim commands into a file and load them later. This is useful for loading modules and stimuli and connecting various devices together. By convention, gpsim's configuration files have the extension \emph on .stc \emph default , for \emph on st \emph default artup \emph on c \emph default onfiguration. \end_layout \begin_layout Section Embedded Commands \end_layout \begin_layout Standard If you're using gputils, it is possible to embed configuration commands directly into your PIC assembly source. The gputils supplied include file \emph on coff.inc \emph default contains several macros that embed simulation command into a COFF and COD files. \end_layout \begin_layout Subsection .sim macro \end_layout \begin_layout LyX-Code ; Simulator Command \end_layout \begin_layout LyX-Code .sim macro x \end_layout \begin_layout LyX-Code .direct "e", x \end_layout \begin_layout LyX-Code endm \end_layout \begin_layout Standard The \family typewriter \emph on .sim \family default \emph default \family typewriter macro allows gpsim configuration commands to be embedded in the PIC source. While gpsim loads a .cod file, the commands in the \family default \family typewriter \emph on .sim \family default \emph default \family typewriter macros are collected. After the .cod file is loaded, the commands are redirected to gpsim's command line interpreter in the order they were received. \end_layout \begin_layout Standard Here's an example of switch module being loaded and configured: \end_layout \begin_layout LyX-Code ;# Module libraries: \end_layout \begin_layout LyX-Code .sim "module library libgpsim_modules" \end_layout \begin_layout LyX-Code .sim "module load switch SW1" \end_layout \begin_layout LyX-Code .sim "SW1.state=false" \end_layout \begin_layout LyX-Code .sim "SW1.xpos = 216.0" \end_layout \begin_layout LyX-Code .sim "SW1.ypos = 156.0" \end_layout \begin_layout LyX-Code .sim "SW1.Ropen = 1.0e8" \end_layout \begin_layout Standard This loads gpsim's module library, instantiates a switch module, and configures the switch's attributes. \end_layout \begin_layout Subsection .command macro \end_layout \begin_layout LyX-Code .command macro x \end_layout \begin_layout LyX-Code .direct "c", x \end_layout \begin_layout LyX-Code endm \end_layout \begin_layout Standard The \family typewriter \emph on .command \family default \emph default \family typewriter macro is similar to a \family default \family typewriter \emph on .sim \family default \emph default \family typewriter macro except that it associates a gpsim command with a particular instruction. This is useful for changing attribute values at different points of the program. \end_layout \begin_layout Subsection .assert macro \end_layout \begin_layout LyX-Code ; Assertion \end_layout \begin_layout LyX-Code .assert macro x \end_layout \begin_layout LyX-Code .direct "a", x \end_layout \begin_layout LyX-Code endm \end_layout \begin_layout Standard The \emph on .assert \emph default macro provides a source code mechanism for setting breakpoints (see chapter \begin_inset CommandInset ref LatexCommand ref reference "cha:Assertions-and-Extended" \end_inset ). An assertion is an expression associated with a specific instruction. It essentially means, \begin_inset Quotes eld \end_inset If the expression at this instruction evaluates to false, then halt the simulation. \begin_inset Quotes erd \end_inset \end_layout \begin_layout LyX-Code ; Close the switch. Because of capacitance, portc1 will go high after a delay: \end_layout \begin_layout LyX-Code ; R=145, C=4.2e-6 TC=6.11e-4 or 1527 cycles, 0-2 volts requires 0.51 Tc \end_layout \begin_layout LyX-Code .command "SW1.state=closed" \end_layout \begin_layout LyX-Code nop \end_layout \begin_layout LyX-Code ; portc0 should be same as portc1 \end_layout \begin_layout LyX-Code .assert "(portc & 3) == 0, \backslash "SW1 closed, cap holds low \backslash "" \end_layout \begin_layout LyX-Code nop \end_layout \begin_layout LyX-Code \end_layout \begin_layout Standard In this example, the \emph on .command \emph default macro writes to the switch module's \emph on .state \emph default attribute (see section \begin_inset CommandInset ref LatexCommand ref reference "sub:Switches-&-Resistors" \end_inset ). Just prior to executing the first nop instruction, the switch will be closed. The \emph on .assert \emph default macro at the very next instruction makes sure that the expected state is seen on PORTC. \end_layout \begin_layout Section Sockets \end_layout \begin_layout Standard gpsim supports a socket interface. This is inhibited by default. Advanced users may wish to study code in the \emph on examples/scripts \emph default subdirectory. This code is not distributed and is only available in the subversion repository. \end_layout \begin_layout Chapter \begin_inset CommandInset label LatexCommand label name "cha:Assertions-and-Extended" \end_inset Assertions and Extended Breakpoints \end_layout \begin_layout Standard gpsim supports a wide variety of breakpoints and assertions. Many of these were described with the break command. This section will illustrate how to extend the break command even further and introduce simulation assertions. \end_layout \begin_layout Subsection* Breakpoint Messages \end_layout \begin_layout Standard A breakpoint message is an ASCII string that is displayed whenever a breakpoint is encountered. Any break point can have an associated message. The syntax at the command line is \end_layout \begin_layout LyX-Code break conditions, \begin_inset Quotes eld \end_inset \emph on This is a breakpoint message \emph default \begin_inset Quotes erd \end_inset \end_layout \begin_layout Standard The conditions are described above in the break command and are the conditions under which the break occurs. \end_layout \begin_layout Standard Breakpoint messages are useful for distinguishing among many different breakpoin ts. \end_layout \begin_layout LyX-Code break w counter & 0xf0 == 0x80, \begin_inset Quotes eld \end_inset Counter overflowed! \begin_inset Quotes erd \end_inset \end_layout \begin_layout Standard In this example, the user is monitoring the upper nibble of the variable counter and breaking whenever it is equal to 8. When the command is entered, gpsim will display: \end_layout \begin_layout LyX-Code break when bit pattern 1000XXXX is written to register counter(0x26). break #: 0x20 \end_layout \begin_layout Standard The breakpoint can be queried with the break command: \end_layout \begin_layout LyX-Code gpsim> \emph on break 32 \end_layout \begin_layout LyX-Code 32: p18f452 register write value: [0x26] & 0xf0 == 0x8 \end_layout \begin_layout LyX-Code Message:Counter overflowed! \end_layout \begin_layout Standard When the simulation encounters the break, execution halts and the message is printed. \end_layout \begin_layout Section Assertions and Embedded Simulation commands \end_layout \begin_layout Standard gpsim's breakpoint design is a powerful tool that can catch many problems. The assertion design extends this power even further. An assertion is like a breakpoint that is defined in the program source code for a particular instruction. gpsim reads the breakpoint from a special message area in the .cod file. For example, you may have a routine that requires BANK 0 be selected. A gpsim assertion can be placed at the entry of the routine to verify that this is the case. \end_layout \begin_layout LyX-Code .assert "(status & 0x60) == 0, \backslash "Bank 0 must be selected! \backslash "" \end_layout \begin_layout Standard The syntax is identical to the extended breakpoint command. The expression is the condition that is checked. If the expression evaluates to false, then the code halts and prints the message. The \emph on .assert \emph default is a macro that is part of gputils. It requires a string as its input argument. Notice that the assertion message is embedded in the argument. gpasm and MPASM copy C's method of placing a backslash in front of quotations that are part of a string. \end_layout \begin_layout Subsection* Command Assertions \end_layout \begin_layout Standard A command assertion is a gpsim associated with a particular instruction in your PIC source code. These are useful for changing the behavior of the simulation based on where the code executes. Almost any gpsim command can be placed in a command assertion. However, the most useful ones are assignment commands. For example: \end_layout \begin_layout LyX-Code .command \begin_inset Quotes eld \end_inset SW1.state = open \begin_inset Quotes erd \end_inset \end_layout \begin_layout Standard This assignment writes to the state attribute of a switch module named SW1. \end_layout \begin_layout Chapter Trace and Log: What has happen? \begin_inset CommandInset label LatexCommand label name "trace" \end_inset \end_layout \begin_layout Standard Inspecting the current state of your program is sometimes insufficient to determine the cause of a bug. Often times it's useful to know the conditions that led up to the current state. gpsim provides a history or trace of everything that occurs - whether you want it or not - to help you diagnose these otherwise difficult to analyze bugs. \end_layout \begin_layout Standard \begin_inset VSpace 0.3cm \end_inset \end_layout \begin_layout Standard \align center \begin_inset Tabular \begin_inset Text \begin_layout Plain Layout What's traced \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout notes \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout program counter \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout addresses executed \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout instructions \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout opcode \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout register read \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout value and location \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout register write \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout value and location \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout cycle counter \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout current value \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout skipped instructions \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout addresses skipped \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout status register \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout during implicit modification \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout interrupts \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout break points \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout type \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout resets \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout type \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout \end_layout \end_inset \end_inset \end_layout \begin_layout Standard \begin_inset VSpace 0.3cm \end_inset \end_layout \begin_layout Standard The 'trace' command will dump the contents of the trace buffer. \end_layout \begin_layout Standard A large circular buffer (whose size is hard coded) stores the information for the trace buffer. When it fills, it will wrap around and write over the old history. The contents of the trace buffer are parsed into frames, where one frame corresponds to a simulation cycle. \end_layout \begin_layout Standard Here's an example of a trace output: \end_layout \begin_layout LyX-Code gpsim> trace \end_layout \begin_layout LyX-Code 0x00000000000026F6 p18f452 0x001C 0x1003 iorwf reg3,w,0 \end_layout \begin_layout LyX-Code Read: 0x00 from reg3(0x0003) \end_layout \begin_layout LyX-Code Wrote: 0xE7 to W(0x0FE8) was 0xE7 \end_layout \begin_layout LyX-Code Wrote: 0x18 to status(0x0FD8) was 0x18 \end_layout \begin_layout LyX-Code 0x00000000000026F7 p18f452 0x001E 0xE1F4 bnz $-0x16 ;(0x8) \end_layout \begin_layout LyX-Code 0x00000000000026F8 p18f452 0x0008 0x3E00 incfsz reg,f,0 \end_layout \begin_layout LyX-Code Read: 0xE4 from reg(0x0000) \end_layout \begin_layout LyX-Code Wrote: 0xE5 to reg(0x0000) was 0xE4 \end_layout \begin_layout LyX-Code 0x00000000000026F9 p18f452 0x000A 0xD004 bra $+0xa ;(0x00014) 0x00000000000 026FA p18f452 0x0014 0x0004 clrwdt \end_layout \begin_layout LyX-Code 0x00000000000026FB p18f452 0x0016 0x5000 movf reg,w,0 \end_layout \begin_layout LyX-Code Read: 0xE5 from reg(0x0000) \end_layout \begin_layout LyX-Code Wrote: 0xE5 to W(0x0FE8) was 0xE7 \end_layout \begin_layout LyX-Code Wrote: 0x18 to status(0x0FD8) was 0x18 \end_layout \begin_layout LyX-Code 0x00000000000026FC p18f452 0x0018 0x1001 iorwf reg1,w,0 \end_layout \begin_layout LyX-Code Read: 0x03 from reg1(0x0001) \end_layout \begin_layout LyX-Code Wrote: 0xE7 to W(0x0FE8) was 0xE5 \end_layout \begin_layout LyX-Code Wrote: 0x18 to status(0x0FD8) was 0x18 \end_layout \begin_layout Standard Each trace frame begins with a new simulation cycle. Typically this will include a simulated instruction. Here's each of the fields: \end_layout \begin_layout LyX-Code \begin_inset Tabular \begin_inset Text \begin_layout Plain Layout 64-bit simulation cycle \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout processor \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout PC \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout opcode \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout instruction \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout 0x00000000000026F6 \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout p18f452 \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout 0x001C \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout 0x1003 \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout iorwf reg3,w,0 \end_layout \end_inset \end_inset \end_layout \begin_layout Standard Other events that occur during the trace frame are indented. Typically these will be register read or write traces. The read traces show the value read. Write traces show the value written and the value that was previously in the register. \end_layout \begin_layout Section* Saving Trace to a file \end_layout \begin_layout Standard The trace buffer may contain thousands of entries making it difficult to search. The trace save feature will allow the trace buffer to be written to a file. \end_layout \begin_layout LyX-Code gpsim> trace save mytrace.log \end_layout \begin_layout Standard The entire contents of the trace buffer are decoded and written to the file. The format of the trace is the same as it is when displayed at the command line. \end_layout \begin_layout Section* Raw Traces \end_layout \begin_layout Standard The \emph on raw \emph default trace buffer is the trace buffer displayed in a minimally decoded form. This is primarily used for gpsim development. When saved to a file, the raw trace is not decoded at all. In addition, the processor's state is written to the file. Thus third party tools can be written to create custom trace reports \begin_inset Foot status collapsed \begin_layout Plain Layout FIXME - The dynamically created trace type information needs to be written to this file too. Without it, it is difficult to tell what each traced item is. \end_layout \end_inset . \end_layout \begin_layout Chapter \begin_inset CommandInset label LatexCommand label name "cha:Simulating-the-Real" \end_inset Simulating the Real World: Stimuli \begin_inset Index status collapsed \begin_layout Plain Layout Stimulus \end_layout \end_inset \end_layout \begin_layout Standard Stimuli are extremely useful, if not necessary, for simulations. They provide a means for simulating interactions with the real world. \end_layout \begin_layout Standard The gpsim stimuli capability is designed to be accurate, efficient and flexible. The models for the PIC's I/O pins mimic the real devices. For example, the open collector output on port A of a PIC16C84 can only drive low. Multiple I/O pins may be tied to one another so that the open collector on port A can get a pull up resistor from port B. The overhead for stimuli only occurs when a stimulus changes states. In other words, stimuli are not polled to determine their state. \end_layout \begin_layout Standard Analog stimuli are also available. It's possible to create voltage references and sources to simulate almost any kind of real world thing. For example, it's possible to combine two analog stimuli together to create signals like DTMF tones. \end_layout \begin_layout Standard Note, however, that gpsim does not attempt to be a full electronic circuit simulator, and certain approximations made for efficiency will cause inaccuracy in complex simulation environments. \end_layout \begin_layout Section How They Work \end_layout \begin_layout Standard In the simplest case, a stimulus acts a source for an I/O pin on a PIC. For example, you may want to simulate a clock and measure its period using TMR0. In this case, the stimulus is the source and the TMR0 input pin on the pic is the load. In gpsim you would create a stimulus for the clock using the stimulus command and connect it to the I/O pin using the node command. \end_layout \begin_layout Standard In general, you can have several 'sources' and several 'loads' that are interconnected with nodes \begin_inset Foot status collapsed \begin_layout Plain Layout Although, gpsim is currently limited to 'one-port' devices. In other words, it is assumed that ground serves as a common reference for the sources and the loads. \end_layout \end_inset . A good analogy is a spice circuit. The spice netlist corresponds to a node-list in gpsim and the spice elements correspond to the stimuli sources and loads. This general approach makes it possible to create a variety of simulation environments. Here's a list of different ways in which stimuli may be connected: \end_layout \begin_layout Enumerate Stimulus connected to one I/O pin \end_layout \begin_layout Enumerate Stimulus connected to several I/O pins \end_layout \begin_layout Enumerate Several stimuli connected to one I/O pin \end_layout \begin_layout Enumerate Several stimuli connected to several I/O pins \end_layout \begin_layout Enumerate I/O pins connected to I/O pins \end_layout \begin_layout Standard The general technique for implementing stimuli is as follows: \end_layout \begin_layout Enumerate Define the stimulus or stimuli. \end_layout \begin_layout Enumerate Define a node. \end_layout \begin_layout Enumerate Attach the stimuli to the node. \end_layout \begin_layout Standard More often than not, the stimulus definition will reside in a file. \end_layout \begin_layout Subsection Contention among stimuli \end_layout \begin_layout Standard One of the problems with this nodal approach to modeling stimuli is that it's possible for contention to exist. For example, if two I/O pins are connected to one another and driving in the opposite directions, there will be contention. gpsim resolves contention with attribute summing. Each stimulus - even if it's an input - has an effect on the node. This effect is characterised by a voltage and an impedance. When a node is updated, gpsim performs a Thevenin voltage summing of all the stimuli together. The resultant voltage is then propagated to all connected stimuli as the current state of the node. \end_layout \begin_layout Standard For example, in the port A open collector / port B weak pull-up connection example, gpsim assigns a voltage of 5V with an impedance of 20kohms to the pull up resistor, and a voltage of 0V with an impedance of 150ohms to the open collector if it is active, or 100Mohms if it's not driving. The Thevenin sum will be roughly 0.05V if the output is driving, or 5V otherwise. Capacitive effects are not currently supported. \end_layout \begin_layout Section I/O Pins \end_layout \begin_layout Standard gpsim models I/O pins as stimuli. Thus anywhere a stimulus is used, an I/O pin may be substituted. For example, you may want to tie two I/O pins to one another; like a port B pull up resistor to a port A open collector. gpsim automatically creates the I/O pin stimuli whenever a processor is created. All you need to do is to specify a node and then attach the stimuli to it. The names of these stimuli are formed by concatenating the port name with the bit position of the I/O pin. For example, bit 3 in port B is called portb3. \end_layout \begin_layout Standard Here's a list of the types of I/O pin stimuli that are supported: \end_layout \begin_layout Standard \begin_inset VSpace 0.3cm \end_inset \end_layout \begin_layout Standard \align center \begin_inset Tabular \begin_inset Text \begin_layout Plain Layout I/O Pin Type \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Function \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout INPUT_ONLY \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Only accepts input (like MCLR) \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout BI_DIRECTIONAL \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Can be a source or a load (most I/O pins) \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout BI_DIRECTIONAL_PU \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout PU=Pullup resistor (PORTB) \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout OPEN_COLLECTOR \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Can only drive low (RA4 on c84) \end_layout \end_inset \end_inset \end_layout \begin_layout Standard \begin_inset VSpace 0.3cm \end_inset \end_layout \begin_layout Standard There is no special pin type for analog I/O pins. All pic analog inputs are multiplexed with digital inputs. The I/O pin definition will always be for the digital input. gpsim automatically knows when I/O pin is analog input. \end_layout \begin_layout Section Asynchronous Stimuli \end_layout \begin_layout Standard Asynchronous stimuli are analog or digital stimuli that can change states at any given instant (limited to the resolution of the cycle counter). They can be defined to be repetitive too. \end_layout \begin_layout Standard \begin_inset VSpace 0.3cm \end_inset \end_layout \begin_layout Standard \align center \begin_inset Tabular \begin_inset Text \begin_layout Plain Layout parameter \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout function \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout start_cycle \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout The # of cycles before the stimulus starts \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout cycles[] \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout An array of cycle #'s \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout data[] \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Stimulus state for a cycle \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout period \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout The # of cycles for one period \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout initial_state \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout The initial state before data[0] \end_layout \end_inset \end_inset \end_layout \begin_layout Standard \begin_inset VSpace 0.3cm \end_inset \end_layout \begin_layout Standard When the stimulus is first initialized, it will be driven to the 'initial state' and will remain there until the cpu's instruction cycle counter matches the specified 'start' cycle. After that, the two arrays 'cycles[]' and 'data[]' define the stimulus' outputs. The size of the arrays are the same and correspond to the number of events that are to be created. So the event number, if you will, serves as the index into these arrays. The 'cycles[]' array define when the events occur while the 'data[]' array defines the states the stimulus will enter. The 'cycles[]' are measured with respect to the 'start' cycle. The asynchronous stimulus can be made periodic by specifying the number of cycles in the 'period' parameter. \end_layout \begin_layout Standard Here's an example that generates three pulses and then repeats: \end_layout \begin_layout LyX-Code stimulus asynchronous_stimulus # or we could have used asy \begin_inset Newline newline \end_inset \end_layout \begin_layout LyX-Code # The initial state AND the state the stimulus is when \end_layout \begin_layout LyX-Code # it rolls over \begin_inset Newline newline \end_inset \end_layout \begin_layout LyX-Code initial_state 1 \begin_inset Newline newline \end_inset \end_layout \begin_layout LyX-Code # all times are with respect to the cpu's cycle counter \end_layout \begin_layout LyX-Code start_cycle 100 \begin_inset Newline newline \end_inset \end_layout \begin_layout LyX-Code # the asynchronous stimulus will roll over in 'period' \begin_inset Newline newline \end_inset # cycles. Delete this line if you don't want a roll over. \end_layout \begin_layout LyX-Code period 5000 \begin_inset Newline newline \end_inset \end_layout \begin_layout LyX-Code # Now the cycles at which stimulus changes states are \end_layout \begin_layout LyX-Code # specified. The initial cycle was specified above. So \begin_inset Newline newline \end_inset # the first cycle specified below will toggle this state. \end_layout \begin_layout LyX-Code # In this example, the stimulus will start high. \end_layout \begin_layout LyX-Code # At cycle 100 the stimulus 'begins'. However nothing happens \end_layout \begin_layout LyX-Code # until cycle 200+100. \end_layout \begin_layout LyX-Code { 200, 0, \end_layout \begin_layout LyX-Code 300, 1, \end_layout \begin_layout LyX-Code 400, 0, \end_layout \begin_layout LyX-Code 600, 1, \end_layout \begin_layout LyX-Code 1000, 0, \end_layout \begin_layout LyX-Code 3000, 1 } \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code # Give the stimulus a name: \end_layout \begin_layout LyX-Code name asy_test \begin_inset Newline newline \end_inset \end_layout \begin_layout LyX-Code # Finally, tell the command line interface that we're done \end_layout \begin_layout LyX-Code # with the stimulus \end_layout \begin_layout LyX-Code end \end_layout \begin_layout Subsection Analog Asynchronous Stimuli \end_layout \begin_layout Standard Analog Asynchronous Stimuli are identical to Synchronous Stimuli except the data points are floating point numbers. \end_layout \begin_layout Section Extended Stimuli \end_layout \begin_layout Standard Discuss the extended stimuli in the modules/ directory. In particular, describe the \emph on PulseGen \emph default module and how it can complete replace the asynchronous stimuli. Also describe the \emph on PullUp \emph default and \emph on PullDown \emph default modules and how they can be manipulated into being general purpose DC voltage sources (FIXME, would it make sense to rename these modules?). \end_layout \begin_layout Section Limitations of the Simulus Mechanism \end_layout \begin_layout Standard The simulation of external devices using gpsim stimuli and nodes is intended to assist in PIC software debugging, not electronic circuit design. As such it takes a simplified approach to certain things. \end_layout \begin_layout Subsection Propagation Delays \end_layout \begin_layout Standard gpsim makes no attempt to simulate propagation delays in the circuit. Usually this is not a problem. However, when using modules \begin_inset CommandInset ref LatexCommand ref reference "cha:Modules" \end_inset to expand gpsim's environment, it is possible to create situations where it matters. For example, daisy-chaining two or more shift registers with a shared clock relies on the propagation delay of the first register to ensure the second shifts the correct data in. Since gpsim does not simulate this delay, the results may be wrong \begin_inset Foot status collapsed \begin_layout Plain Layout They may be right, it depends on execution order, which is subtle. \end_layout \end_inset . \end_layout \begin_layout Chapter Modules \begin_inset Index status collapsed \begin_layout Plain Layout Modules \end_layout \end_inset \begin_inset CommandInset label LatexCommand label name "cha:Modules" \end_inset \end_layout \begin_layout Standard gpsim has been designed to debug microprocessors. However, microprocessors are always a part of a system. And invariably, the bugs one often encounters are those that are a result of interfacing with a system. Modules provide users with a way to extend gpsim and simulate a system. For example, the \emph on system \emph default may be a processor with a few pull up resistors and switches or it may be a processor and an LCD display. gpsim provides a few modules that one may use either for debugging or as templates for creating new modules. \end_layout \begin_layout Standard Note that gpsim's modules are provided to facilitate debugging of the PIC code, not the hardware. gpsim does not attempt to be a circuit simulator by itself. If you need that functionality, the gpsim core can be embedded into third party simulators. \end_layout \begin_layout Standard Modules reside in a library and are dynamically loaded with the \emph on module \emph default command. All modules have I/O pins which can connect to other modules or processors. Most modules provide \emph on attributes \emph default that allow the user to control a module's behavior or query its internal state. For example, the USART module has transmit and receive baud rate attributes that may be configured: \end_layout \begin_layout LyX-Code gpsim> U1.txbaud = 9600 # set the transmit rate \end_layout \begin_layout LyX-Code gpsim> U1.rxbaud # query the receiver rate \end_layout \begin_layout LyX-Code 9600 \end_layout \begin_layout Standard The symbol command can be used to query all attributes of a module. \end_layout \begin_layout LyX-Code gpsim> symbol U1. # note the period \end_layout \begin_layout LyX-Code U1 = USARTModule \end_layout \begin_layout LyX-Code U1.console = false \end_layout \begin_layout LyX-Code U1.crlf = true \end_layout \begin_layout LyX-Code U1.loop = true \end_layout \begin_layout LyX-Code U1.rx = 0 \end_layout \begin_layout LyX-Code U1.rxbaud = 9600 \end_layout \begin_layout LyX-Code U1.tx = 0 \end_layout \begin_layout LyX-Code U1.txbaud = 9600 \end_layout \begin_layout LyX-Code U1.xpos = 72.00000000000000 \end_layout \begin_layout LyX-Code U1.ypos = 276.0000000000000 \end_layout \begin_layout LyX-Code \end_layout \begin_layout Standard Modules may provide help which can be accessed using the help command: \end_layout \begin_layout LyX-Code gpsim> help U1 \end_layout \begin_layout LyX-Code USARTModule \end_layout \begin_layout LyX-Code no description \end_layout \begin_layout Standard Well, the USART module isn't the best example here! However, a better example is one of the USART attributes. \end_layout \begin_layout LyX-Code gpsim> help U1.txbaud \end_layout \begin_layout LyX-Code 9600 \end_layout \begin_layout LyX-Code USART Module Transmitter baud rate \end_layout \begin_layout LyX-Code \end_layout \begin_layout Section gpsim Modules \end_layout \begin_layout Standard gpsim provides a library of useful modules for simulation. The current version includes the following modules: \end_layout \begin_layout Standard \begin_inset Tabular \begin_inset Text \begin_layout Plain Layout \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout pushbutton \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout pullup \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout A resistor connected (nominally) to Vdd \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout pulldown \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout A resistor connected (nominally) to Vss \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout usart \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout A serial interface with a GUI terminal window \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout pulsegen \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout I2C-EEPROM2K \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout A 256 byte I2C serial EEPROM like the 24LC024. \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout I2C-EEPROM16K \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout A 2k byte I2C serial EEPROM like the 24LC16B. \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout I2C-EEPROM256K \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout A 32k byte I2C serial EEPROM like the 24LC256. \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout switch \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Switch, which connects two nodes together \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout and2 \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout 2-input logical AND gate \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout or2 \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout 2-input logical OR gate \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout xor2 \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout 2-input logical XOR gate \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout not \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Inverter (logical NOT gate) \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout led_7segments \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout A 7-segment LED digit \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout led \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout A single pin LED which can be active either high or low \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout TTL377 \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout A 74xx377 style 8-bit tristate latch \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout TTL165 \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout A 74xx165 parallel-in-serial-out shift register \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout TTL595 \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout A 74xx595 serial-in-parallel-out shift register \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Encoder \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout \end_layout \end_inset \end_inset \end_layout \begin_layout Subsection USART \begin_inset Index status collapsed \begin_layout Plain Layout USART module \end_layout \end_inset \end_layout \begin_layout Standard The USART module is a full duplex configurable USART. In graphics mode, the USART will display its output in a console. In addition, the console will accept keyboard input. \end_layout \begin_layout Subsubsection* Attributes \end_layout \begin_layout Standard .tx - The \emph on .tx \emph default attribute is the USART transmit register. Data written to this attribute will initiate a transmission. The USART supports a transmit FIFO, making it possible to stuff several bytes into the transmit queue while the program under test is paused. \end_layout \begin_layout Standard .rx - The \emph on .rx \emph default attribute is the USART receiver register. Data received by the USART is available for querying through here. \end_layout \begin_layout Standard .txbaud - The \emph on .txbaud \emph default attribute specifies the transmitter baud rate. \end_layout \begin_layout Standard .rxbaud - The .rxbaud attribute specifies the receiver baud rate. \end_layout \begin_layout Standard .console - When set to \emph on true \emph default , the console window will display received data and will accept keyboard entries for the transmitter. \end_layout \begin_layout Standard .crlf - When set to \emph on true \emph default , carriage returns and line feeds generate new lines in the console window. \end_layout \begin_layout Standard .hex - When set to \emph on true \emph default , the data is assumed to be binary and all bytes are shown in hex. \end_layout \begin_layout Standard .loop - When set to true, received characters are looped back to the transmitter. \end_layout \begin_layout Standard .xpos - horizontal position in breadboard window. \end_layout \begin_layout Standard .ypos - vertical position in breadboard window. \end_layout \begin_layout Subsubsection* I/O Pins \end_layout \begin_layout Standard .TXPIN - transmit pin \end_layout \begin_layout Standard .RXPIN - receiver pin \end_layout \begin_layout Standard .CTS - Clear to send pin. This can be left unconnected \end_layout \begin_layout Standard .RTS - Request to send pin. \end_layout \begin_layout Subsection Logic \begin_inset Index status collapsed \begin_layout Plain Layout Logic \end_layout \end_inset \end_layout \begin_layout Standard The only attributes supported be the logic devices are the standard \emph on .xpos \emph default and \emph on .ypos \emph default breadboard positions. \begin_inset Note Greyedout status collapsed \begin_layout Plain Layout FIXME There should be attributes to specify the switching characteristics. \end_layout \end_inset \end_layout \begin_layout Subsection* and2 \begin_inset Index status collapsed \begin_layout Plain Layout and2 \end_layout \end_inset - Two input AND gate \end_layout \begin_layout Subsubsection* I/O pins \end_layout \begin_layout Standard .in0 - First input \end_layout \begin_layout Standard .in1 - First input \end_layout \begin_layout Standard .out - Output \end_layout \begin_layout Subsection* or2 \begin_inset Index status collapsed \begin_layout Plain Layout or2 \end_layout \end_inset - Two input OR gate \end_layout \begin_layout Standard .in0 - First input \end_layout \begin_layout Standard .in1 - First input \end_layout \begin_layout Standard .out - Output \end_layout \begin_layout Subsection* xor2 \begin_inset Index status collapsed \begin_layout Plain Layout xor2 \end_layout \end_inset - Two input XOR gate \end_layout \begin_layout Standard .in0 - First input \end_layout \begin_layout Standard .in1 - First input \end_layout \begin_layout Standard .out - Output \end_layout \begin_layout Subsection* not \begin_inset Index status collapsed \begin_layout Plain Layout not \end_layout \end_inset - Inverter \end_layout \begin_layout Standard .in0 - Input \end_layout \begin_layout Standard .out - Output \end_layout \begin_layout Subsection* TTL377 \begin_inset Index status collapsed \begin_layout Plain Layout ttl377 \end_layout \end_inset - Octal Latch \end_layout \begin_layout Standard The TTL377 module simulates an 8-bit parallel latch with output enable. It latches all bits simultaneously so that connecting an output to an input gives correct results. However, this is not guaranteed where multiple modules are so connected. \end_layout \begin_layout Standard .D0..7 - Input \end_layout \begin_layout Standard .Q0..7 - Output \end_layout \begin_layout Standard .E - output enable \end_layout \begin_layout Standard .CP - clock (rising edge) \end_layout \begin_layout Subsection* TTL165 \begin_inset Index status collapsed \begin_layout Plain Layout ttl165 \end_layout \end_inset - Parallel to Serial Shift Register \end_layout \begin_layout Standard The TTL165 module simulates an 8-bit parallel input serial output shift register. It is particularly useful for connecting to a SPI peripheral. Note, however, that the common practice of daisy-chaining such shift registers is not guaranteed to simulate correctly. \end_layout \begin_layout Standard .D0..7 - parallel input \end_layout \begin_layout Standard .Ds - daisy-chain serial input \end_layout \begin_layout Standard .Q7 - output \end_layout \begin_layout Standard .nQ7 - inverted output \end_layout \begin_layout Standard .CE - clock enable \end_layout \begin_layout Standard .CP - clock (rising edge) \end_layout \begin_layout Standard .PL - parallel load \end_layout \begin_layout Subsection* TTL595 \begin_inset Index status collapsed \begin_layout Plain Layout ttl595 \end_layout \end_inset - Serial to Parallel Shift Register \end_layout \begin_layout Standard The TTL595 module simulates an 8-bit serial input parallel output shift register. It is particularly useful for connecting to a SPI peripheral. Note, however, that the common practice of daisy-chaining such shift registers is not guaranteed to simulate correctly. \end_layout \begin_layout Standard .Q0..7 - parallel output \end_layout \begin_layout Standard .Ds - serial input \end_layout \begin_layout Standard .Qs - daisy-chain serial output \end_layout \begin_layout Standard .OE - output enable \end_layout \begin_layout Standard .SCK - shift clock (rising edge) \end_layout \begin_layout Standard .RCK - output latch clock (rising edge) \end_layout \begin_layout Standard .MR - master reset \end_layout \begin_layout Subsection I2C EEPROM \begin_inset Index status collapsed \begin_layout Plain Layout I2C EEPROM \end_layout \end_inset \end_layout \begin_layout Standard There are currently three I2C EEPROMs supported: I2C-EEPROM2k, I2C-EEPROM16k, and I2C-EEPROM256K. \end_layout \begin_layout Standard The commands 'dump e module_name filename' and 'load e module_name filename' can be used to save and restore the contents of the EEPROM module. This allows the contents of the EEPROM to be preserved between runs of gpsim. \end_layout \begin_layout Standard The cells of the EEPROM can be examined and modified using the command interface with the commands 'module_name.eeData[index]' and 'module_name.eeData[index] = new_value'. The following example shows loading an EEPROM module, setting cell 16 to '0' (0x30) and checking that the new value was written. \end_layout \begin_layout LyX-Code **gpsim> module load I2C-EEPROM16k e2 \end_layout \begin_layout LyX-Code **gpsim> \end_layout \begin_layout LyX-Code **gpsim> e2.eeData[16] = $30 \end_layout \begin_layout LyX-Code **gpsim> e2.eeData[16] \end_layout \begin_layout LyX-Code e2.eeData[$10] = $30 \end_layout \begin_layout LyX-Code **gpsim> \end_layout \begin_layout Standard \end_layout \begin_layout Subsubsection* I/O Pins \end_layout \begin_layout Standard .A0 - Chip select to set bit 0 of slave address \end_layout \begin_layout Standard .A1 - Chip select to set bit 1 of slave address \end_layout \begin_layout Standard .A2 - Chip select to set bit 2 of slave address \end_layout \begin_layout Standard .SCL - I2C serial clock \end_layout \begin_layout Standard .SDA - I2C serial data \end_layout \begin_layout Standard .WP - Hardware write protect \end_layout \begin_layout Subsection \begin_inset CommandInset label LatexCommand label name "sub:Switches-&-Resistors" \end_inset Switches \begin_inset Index status collapsed \begin_layout Plain Layout Switches \end_layout \end_inset & Resistors \begin_inset Index status collapsed \begin_layout Plain Layout Resistors \end_layout \end_inset \end_layout \begin_layout Standard The \emph on switch \emph default module is a model of a simple two terminal switch. It may be controlled either from the command line or the breadboard GUI. The \emph on switch \emph default module's open and closed resistance are controlled by attributes. Thus a two terminal resistor can be modeled as a switch that is always closed (or open). \end_layout \begin_layout Subsubsection* Attributes \end_layout \begin_layout Standard .Ropen - Switch resistance in ohms when the switch is opened. \end_layout \begin_layout Standard .Rclosed - Switch resistance in ohms when the switch is closed. \end_layout \begin_layout Standard .state - Switch state. The switch state takes the values of \emph on open \emph default or \emph on closed \emph default , although \emph on false \emph default for open and \emph on true \emph default for closed is supported for backward compatibility. The \emph on .state \emph default attribute is writable. \end_layout \begin_layout Subsubsection* I/O Pins \end_layout \begin_layout Standard .A - One side \end_layout \begin_layout Standard .B - The other side \end_layout \begin_layout Subsection Voltage Sources \begin_inset Index status collapsed \begin_layout Plain Layout Voltage Sources \end_layout \end_inset , Resistors \begin_inset Index status collapsed \begin_layout Plain Layout Resistors \end_layout \end_inset , and Capacitors \begin_inset Index status collapsed \begin_layout Plain Layout Capacitors \end_layout \end_inset \end_layout \begin_layout Standard The \emph on pullup \emph default and \emph on pulldown \emph default modules are two terminal devices with one terminal tied to a voltage source. Their voltage, resistance, and pin capacitance are controllable via attributes. \end_layout \begin_layout Subsubsection* Attributes \end_layout \begin_layout Standard .voltage - DC voltage \end_layout \begin_layout Standard .resistance - resistance in ohms between the I/O pin and the voltage source. \end_layout \begin_layout Standard .capacitance - capacitance in farads between the I/O pin and ground. \end_layout \begin_layout Subsubsection* I/O Pins \end_layout \begin_layout Standard .pin - the only pin exposed. \end_layout \begin_layout Subsection LED_7SEGMENTS \begin_inset Index status collapsed \begin_layout Plain Layout 7SEGMENTS \end_layout \end_inset and LED \begin_inset Index status collapsed \begin_layout Plain Layout LED \end_layout \end_inset \end_layout \begin_layout Subsection* led_7segments - 7 segment common cathode LED display \end_layout \begin_layout Standard The segments are numbered as per the following figure. \end_layout \begin_layout LyX-Code ___ \end_layout \begin_layout LyX-Code 5 | 0 | 1 \end_layout \begin_layout LyX-Code ___ \end_layout \begin_layout LyX-Code 4 | 6 | 2 \end_layout \begin_layout LyX-Code ___ \end_layout \begin_layout LyX-Code 3 \end_layout \begin_layout Subsubsection* I/O Pins \end_layout \begin_layout Standard .cc - common cathode \end_layout \begin_layout Standard .seg0 - segment 0 \end_layout \begin_layout Standard .seg1 - segment 1 \end_layout \begin_layout Standard .seg2 - segment 2 \end_layout \begin_layout Standard .seg3 - segment 3 \end_layout \begin_layout Standard .seg4 - segment 4 \end_layout \begin_layout Standard .seg5 - segment 5 \end_layout \begin_layout Standard .seg6 - segment 6 \end_layout \begin_layout Subsection* Led - Simple LED \end_layout \begin_layout Standard The simple LED is a single pin module internally tied to either Vss or Vdd.By default the LED is internally tied to Vdd(0V) and turns on when the pin is driven high.However, by setting the ActiveState parameter to low, the LED is internally tied to Vss(5V) and turns on when the pin is driven low.Like a real LED, the module will either sink or source current from the driving line which may affect its logic level. \end_layout \begin_layout Standard The LED color is by default red, but can be set to other colors. \end_layout \begin_layout Subsubsection* Attributes \end_layout \begin_layout Standard color - LED color, possible values red, green, yellow, orange or blue \end_layout \begin_layout Standard ActiveState - LED active state mode, possible values: high or low \end_layout \begin_layout Subsubsection* I/O Pin \end_layout \begin_layout Standard .in - drives LED \end_layout \begin_layout Section Third Party Modules \end_layout \begin_layout Standard In addition to the standard modules, third are separately distribute gpsim modules. \end_layout \begin_layout Subsection Character LCD - HD44780 \begin_inset Index status collapsed \begin_layout Plain Layout HD44780 \end_layout \end_inset \end_layout \begin_layout Standard This module emulates the ubiquitous HD44780 character LCDs. \end_layout \begin_layout Subsection Graphic LCD - SED1530 \begin_inset Index status collapsed \begin_layout Plain Layout SED1530 \end_layout \end_inset \end_layout \begin_layout Standard This module emulates a 100X32 pixel graphics LCD based on dual SED1350 controllers. \end_layout \begin_layout Subsection 64 x 8, Serial, I2C Real-Time Clock - DS1307 \begin_inset Index status collapsed \begin_layout Plain Layout DS1307 \end_layout \end_inset \end_layout \begin_layout Standard This module emulates the Dallas Semiconductor DS1307 Real-Time clock which also has 56 x 8 eeprom memory and connects via an I2C serial bus. \end_layout \begin_layout Section Writing new modules \end_layout \begin_layout Standard A module is a library of code. On Windows the library is a .DLL and on Unix a shared library. There are a few details that a module must adhere to, but in general the module has full access to gpsim's API. \end_layout \begin_layout Standard The easiest way to write a new module is to start from the source code from one of the existing modules. For example, suppose your project produces a serial bit-stream in PPM coding and you want to display the output during the simulation. The external module you need is similar to the usart module but not the same, so start by making a copy of the usart module and then modify it to work how you need. \end_layout \begin_layout Standard To be able to load your module into gpsim it needs to be in a library. Usually you will be creating a new library just for one device, but sometimes you will have a few devices. Either way, the library must declare to gpsim what devices it contains. This is achieved with an array of Module_Types class instances, returned to gpsim by a function named \begin_inset Quotes eld \end_inset get_mod_list \begin_inset Quotes erd \end_inset . All gpsim module libraries must declare this function. You can copy the required template from the gpsim source -- probably one of the \begin_inset Quotes eld \end_inset extras \begin_inset Quotes erd \end_inset modules is slightly cleaner than the main library. For our PPM decoder example, we might have a module_manager.cc containing the following code: \end_layout \begin_layout LyX-Code /* IN_MODULE should be defined for modules */ \end_layout \begin_layout LyX-Code #define IN_MODULE \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code #include \end_layout \begin_layout LyX-Code #include \end_layout \begin_layout LyX-Code #include "ppm.h" \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code Module_Types available_modules[] = \end_layout \begin_layout LyX-Code { \end_layout \begin_layout LyX-Code { "ppm_display", "ppm_rx_iface", PpmDisplay::construct}, \end_layout \begin_layout LyX-Code // No more modules \end_layout \begin_layout LyX-Code { NULL,NULL,NULL} \end_layout \begin_layout LyX-Code }; \end_layout \begin_layout LyX-Code #ifdef __cplusplus \end_layout \begin_layout LyX-Code extern "C" { \end_layout \begin_layout LyX-Code #endif /* __cplusplus */ \end_layout \begin_layout LyX-Code /***************************************************************** \end_layout \begin_layout LyX-Code * get_mod_list - Report all of the modules in this library. \end_layout \begin_layout LyX-Code * \end_layout \begin_layout LyX-Code * This is a required function for gpsim compliant libraries. \end_layout \begin_layout LyX-Code */ \end_layout \begin_layout LyX-Code Module_Types * get_mod_list(void) \end_layout \begin_layout LyX-Code { \end_layout \begin_layout LyX-Code return available_modules; \end_layout \begin_layout LyX-Code } \end_layout \begin_layout LyX-Code #ifdef __cplusplus \end_layout \begin_layout LyX-Code } \end_layout \begin_layout LyX-Code #endif /* __cplusplus */ \end_layout \begin_layout LyX-Code \end_layout \begin_layout Standard This declares that this library provides one module, called ppm_display, implemented by the C++ class PpmDisplay. The class which implements the module must provide a static method \begin_inset Quotes eld \end_inset construct \begin_inset Quotes erd \end_inset to create a new instance of the class. For example: \end_layout \begin_layout LyX-Code Module * PpmDisplay::construct(const char *_new_name=0) \end_layout \begin_layout LyX-Code { \end_layout \begin_layout LyX-Code PpmDisplay *ppmd = new PpmDisplay(_new_name); \end_layout \begin_layout LyX-Code ppmd->create_iopin_map(); \end_layout \begin_layout LyX-Code ppmd->create_window(_new_name); \end_layout \begin_layout LyX-Code return ppmd; \end_layout \begin_layout LyX-Code } \end_layout \begin_layout Standard Your module will need to include stimuli for its I/O connections. You can use the standard gpsim stimulus classes: IOPIN, io_bidirectional, io_bidirectional_pu, io_open_collector. In many cases, however, you will want to derive your own class from one of them. This will allow you to customise the actions when the node state changes. For example: \end_layout \begin_layout LyX-Code class DecoderPin : public IOPIN \end_layout \begin_layout LyX-Code { \end_layout \begin_layout LyX-Code private: \end_layout \begin_layout LyX-Code PpmDisplay * Parent; \end_layout \begin_layout LyX-Code public: \end_layout \begin_layout LyX-Code DecoderPin ( PpmDisplay * parent, unsigned int b, const char * name=0 ); \end_layout \begin_layout LyX-Code virtual void setDrivenState(bool new_state); \end_layout \begin_layout LyX-Code }; \end_layout \begin_layout Standard The only methods we provide here are the constructor and an overridden \begin_inset Quotes eld \end_inset setDrivenState \begin_inset Quotes erd \end_inset . This is because our PPM decoder needs to be told when the input pin changes state. \end_layout \begin_layout Chapter Symbolic Debugging \end_layout \begin_layout Standard gpsim maintains a symbol table. \end_layout \begin_layout Standard \end_layout \begin_layout Chapter Macros \end_layout \begin_layout Standard \end_layout \begin_layout Chapter Hex Files \end_layout \begin_layout Standard The target code simulated by gpsim can be supplied by a hex file, or more specifically an Intel Hex file. gpsim accepts the format of hex provided by gpasm and mpasm. The hex file does not provide any symbolic information. It's recommended that hex files only be used if 1) you suspect there's a problem with the way .cod files are generated by your assembler or compiler OR 2) your assembler or compiler doesn't generate .cod files. Also, you must supply a processor when loading hex files. See the load command. \end_layout \begin_layout Chapter The ICD- Not Supported in versions 0.21.0 and later \end_layout \begin_layout Standard gpsim supports (partly) the first version of the ICD (as opposed to ICD2 (the round hockey-puck shaped one)). \end_layout \begin_layout Subsection* Special configuration of the code \end_layout \begin_layout Standard Read the MPLAB ICD USER's GUIDE. \end_layout \begin_layout Standard Here's the short version: \end_layout \begin_layout Itemize disable at least: brown out detection, low voltage programming and all code protection. It is probably good to turn of the watchdog too. see the MPLAB ICD USER's GUIDE for more information. \end_layout \begin_layout Itemize have a NOP as the first instruction. \end_layout \begin_layout Itemize Don't touch RB6 or RB7. \end_layout \begin_layout Itemize Don't use the last stack level. \end_layout \begin_layout Itemize Don't use these registers and program words: \begin_inset Newline newline \end_inset \begin_inset Tabular \begin_inset Text \begin_layout Plain Layout Processor \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Register \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout Program \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout -870/1/2 \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout 0x70, 0xBB-0xBF \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout 0x6E0-0x7FF \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout -873/4 \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout 0x6D, 0x1fD, 0xEB-0xF0, 0x1Eb-0x1F0 \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout 0xEE0-0xFFF \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout -876/7 \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout 0x70, 0x1Eb-0x1Ef \end_layout \end_inset \begin_inset Text \begin_layout Plain Layout 0x1F00-0x1FFF \end_layout \end_inset \end_inset \end_layout \begin_layout Subsection* icdprog \end_layout \begin_layout Standard Download and install icdprog. \end_layout \begin_layout Standard Use icdprog to program the target with the hex file ( \emph on icdprog mycode.hex \emph default ). \end_layout \begin_layout Subsection* ICD usage \end_layout \begin_layout Standard Start gpsim like this: \end_layout \begin_layout Standard \emph on gpsim -d /dev/ttyS0 -s mycode.cod \end_layout \begin_layout Standard , assuming the ICD is connected to the first serial port. \end_layout \begin_layout Standard Now you can type 'icd' to see some information: \end_layout \begin_layout Standard \emph on **gpsim> icd \begin_inset Newline newline \end_inset ICD version "2.31.00" was found. \begin_inset Newline newline \end_inset Target controller is 16F877 rev 13. \begin_inset Newline newline \end_inset Vdd: 5.2 Vpp: 13.3 \begin_inset Newline newline \end_inset Debug module is present \end_layout \begin_layout Standard 2.31 is the firmware version. I have only tried this particular version... \end_layout \begin_layout Standard You can step, reset, run, halt, set the breakpoint and read file registers. It works both from the GUI and the cli. \end_layout \begin_layout Subsection* ICD TODO \end_layout \begin_layout Itemize MPLAB has a setting for target CPU frequency, I have only tried with a 20MHz crystal, so there may be adjustments to be made to the serial port timeout settings in gpsim. \end_layout \begin_layout Itemize The source, disassembly, watch, symbol and RAM windows works. And the rest doesn't. I guess the breadboard should be able to work at least for the pic, but it doesn't. \end_layout \begin_layout Itemize EEPROM support \end_layout \begin_layout Itemize modifying data \end_layout \begin_layout Itemize Fix the UI to give more feedback about what's happening during long delays. \end_layout \begin_layout Itemize Better error detection. gpsim doesn't always see that the target is not functional. \end_layout \begin_layout Chapter Examples \end_layout \begin_layout Standard The \emph on examples/ \emph default subdirectory contains several examples. The \emph on examples/projects/ \emph default subdirectory demonstrate sample projects that can serve as templates for new projects. In addition, the \emph on examples/modules \emph default subdirectory contains several examples illustrating how to use gpsim's various modules. Finally, as described in chapter \begin_inset CommandInset ref LatexCommand ref reference "cha:Regression-Tests" \end_inset , gpsim's regression tests illustrate many powerful debugging techniques that have not been fully documented. \end_layout \begin_layout Subsubsection* usart_gui example \end_layout \begin_layout Standard Each example contains a brief \emph on README \emph default explaining its purpose. For example, the \emph on README \emph default for the \emph on usart_gui \emph default example in the \emph on examples/modules \emph default directory contains \end_layout \begin_layout LyX-Code The tests the USART module with the GUI fix. \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code The code for a 16f628 PIC is used. The code first transmits a string of \end_layout \begin_layout LyX-Code characters, which are instructions to the user, to the USART module which \end_layout \begin_layout LyX-Code will then be displayed on its GUI. This verifies that the USART can receive \end_layout \begin_layout LyX-Code serial data. \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code When the focus is on the USART GUI window, characters typed on the keyboard \end_layout \begin_layout LyX-Code are sent from the USART to the PIC and then retransmitted from the PIC back \end_layout \begin_layout LyX-Code to the USART. \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code If all works, the typed characters will be displayed in the GUI text window \end_layout \begin_layout LyX-Code of the USART. Both transmit and receive must be functioning for this to \end_layout \begin_layout LyX-Code happen. \end_layout \begin_layout Standard \emph on Fixme \emph default - we really need to document all of the examples! \end_layout \begin_layout Chapter Regression Tests \begin_inset CommandInset label LatexCommand label name "cha:Regression-Tests" \end_inset \end_layout \begin_layout Standard Starting with version 0.22.0, gpsim distributes regression tests. The purpose of a regression test is to validate correctness. The tests are designed to exercise many of the aspects of gpsim and gpsim's modules. While designed primarily for developers, the regression tests also serve as a rich source of examples. There are many features gpsim's developers will tuck away into a regression test and fail to document! \end_layout \begin_layout Chapter Theory of Operation \end_layout \begin_layout Standard This section is only provided for those who may be interested in how gpsim operates. The information in here is 'mostly' accurate. However, as gpsim evolves so do the details of the theory of operation. Use the information provided here as a high level introduction and use the (well commented :]) source to learn the details. \end_layout \begin_layout Section Background \end_layout \begin_layout Standard gpsim is written mostly in C++. Why? Well the main reason is to easily implement a hierarchical model of a pic. If you think about a microcontroller, it's really easy to modularize the various components. C++ lends itself well to this conceptualization. Furthermore Microchip, like other microcontroller manufacturers, has created families of devices that are quite similar to one another. Again, the C++ provides 'inheritance' that allows the relationships to be shared among the various models of pics. \end_layout \begin_layout Section Instructions \begin_inset Index status collapsed \begin_layout Plain Layout instructions \end_layout \end_inset \end_layout \begin_layout Standard There's a base class for the 14-bit instructions (I plan to go one step further and create a base class from which all pic instructions can be derived). It primarily serves two purposes: storage that is common for each instruction and a means for generically accessing virtual functions. The common information consists of a name - or more specifically the instructi on mnemonic, the opcode, and a pointer to the processor owning the instruction. Some of the virtual functions are 'execute' and 'name'. As the hex file is decoded, instances of the instructions are created and stored in an array called program_memory. The index into this array is the address at which the instruction resides. To execute an instruction the following code sequence is invoked: \end_layout \begin_layout Quotation program_memory[pc->value]->execute(); \end_layout \begin_layout Standard which says, get the instruction at the current program index (pc->value) and invoke via the virtual function execute(). This approach allows execution break points to be easily set. A special break point instruction can replace the one residing in the program memory array. When 'execute' is called the break point can be invoked. \end_layout \begin_layout Subsubsection Program memory \end_layout \begin_layout Standard Note that in the above discussion, the pc->value is referred to as the \begin_inset Quotes eld \end_inset program index \begin_inset Quotes erd \end_inset . On the 12-bit and 14-bit PIC cores this is unambiguous as the program memory is instruction-word-wide and the program counter increments by one for each instruction. On the PIC17 and PIC18 cores, however, the program memory is accessible through the TBLPTR in byte-wide form. The program counter increments by two for each instruction. \end_layout \begin_layout Standard The program_memory array in gpsim is always an array of instructions. Thus the pc->value on a PIC18 is an index whose value is half of the PC register-triple value. \end_layout \begin_layout Section General File Registers \begin_inset Index status collapsed \begin_layout Plain Layout registers \end_layout \end_inset \end_layout \begin_layout Standard A file register is simulated by the 'file_register' class. There is one instance of a 'file_register' object for each file register in the PIC. All of the registers are collected together into an array called 'registers' which is indexed by the registers' corresponding PIC addresses. The array is linear and not banked like it is in the PIC. (Banking is handled during the simulation.) \end_layout \begin_layout Section Special File Registers \end_layout \begin_layout Standard Special file registers are all of the other registers that are not general file registers. This includes the core registers like status and option and also the peripheral registers like eeadr for the EEPROM. The special file registers are derived from the general file registers and are also stored in the 'registers' array. There is one instance for each register - even if the register is accessible in more than one bank. So for example, there's only one instance for the 'status' register, however it may be accessed through the 'registers' array in more than one place. \end_layout \begin_layout Standard All file registers are accessed by the virtual functions 'put' and 'get'. This is done for two main reasons. First, it conveniently encapsulates the breakpoint overhead (for register breakpoints) in the file register and not in the instruction. Second, and more important, it allows derived classes to implement the put and get more specifically. For example, a 'put' to the indf register is a whole lot different than a put to the intcon register. In each case, the 'put' initiates an action beyond simply storing a byte of data in an array. It also allows the following code sequence to be easily implemented: \end_layout \begin_layout LyX-Code movlw trisa ;Get the address of tris \end_layout \begin_layout LyX-Code movwf fsr \end_layout \begin_layout LyX-Code movf indf,w ;Read trisa indirectly \end_layout \begin_layout Section Example of an instruction \end_layout \begin_layout Standard Here's an example of the code for the movf instruction that illustrates what has been discussed above. Somewhere in gpsim the code sequence: \end_layout \begin_layout LyX-Code program_memory[pc->value]->execute(); \end_layout \begin_layout Standard is executed. Let's say that the pc is pointing to a movf instruction. The ->execute() virtual function will invoke MOVF::execute. I've added extra comments (that aren't in the main code) to illustrate in detail what's happening. \end_layout \begin_layout LyX-Code void MOVF::execute(void) \end_layout \begin_layout LyX-Code { \end_layout \begin_layout LyX-Code unsigned int source_value; \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code // All instructions are 'traced' (discussed below). It's sufficient \end_layout \begin_layout LyX-Code //to only store the opcode. However, even this may be unnecessary since \end_layout \begin_layout LyX-Code //the program counter is also traced. Expect this to disappear in the \end_layout \begin_layout LyX-Code //future... \end_layout \begin_layout LyX-Code trace.instruction(opcode); \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code // 'source' is a pointer to a 'file_register' object. It is initialized \end_layout \begin_layout LyX-Code //by reading the 'registers' array. Note that the index depends on the \end_layout \begin_layout LyX-Code //'rp' bits (actually just one bit) in the status register. Time is \end_layout \begin_layout LyX-Code // saved by caching rp as opposed to decoding the status register. \end_layout \begin_layout LyX-Code source = cpu->registers[cpu->rp | opcode®_IN_INSTRUCTION_MASK]; \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code // We have no idea which register we are trying to access and how it \end_layout \begin_layout LyX-Code //should be accessed or if there's a breakpoint set on it. No problem, \end_layout \begin_layout LyX-Code //the virtual function 'get' will resolve all of those details \end_layout \begin_layout LyX-Code // and 'do the right thing'. \end_layout \begin_layout LyX-Code source_value = source->get(); \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code // If the destination is W, then the constructor has already initialized \end_layout \begin_layout LyX-Code //'destination'. Otherwise the destination and source are the same. \end_layout \begin_layout LyX-Code if(opcode&DESTINATION_MASK) \end_layout \begin_layout LyX-Code destination = source; // Result goes to source \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code // Write the source value to the destination. Again, we have no idea \end_layout \begin_layout LyX-Code // where the destination may be or \end_layout \begin_layout LyX-Code // or how the data should be written there. \end_layout \begin_layout LyX-Code destination->put(source_value); \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code // The movf instruction will set Z (zero) bit in the status register \end_layout \begin_layout LyX-Code //if the source value was zero. \end_layout \begin_layout LyX-Code cpu->status.put_Z(0==source_value); \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code // Finally, advance the pc by one. \end_layout \begin_layout LyX-Code cpu->pc->increment(); \end_layout \begin_layout LyX-Code \end_layout \begin_layout LyX-Code } \end_layout \begin_layout LyX-Code \end_layout \begin_layout Section Trace \end_layout \begin_layout Standard Everything that is simulated is traced - \emph on all \emph default \emph toggle of the time. The trace buffer is one huge circular buffer of integers. Information is or'ed with a trace token and then is stored in the trace buffer. No attempt is made to associate the items in the trace buffer while the simulator is simulating a PIC. Thus, if you look at the raw buffer you will see stuff like: cycle counter = ..., opcode fetch = ..., register read = ..., register write = ..., etc. However, this information is post processed to ascertain what happened and when it happened. It's also possible to use this information to undo the simulation, or in other words you can step backwards. I don't have this implemented yet though. \end_layout \begin_layout Section Breakpoints \end_layout \begin_layout Standard Breakpoints fall into three categories: execution, register, and cycle. \end_layout \begin_layout Subsubsection Execution: \end_layout \begin_layout Standard For execution breakpoints a special instruction appropriately called 'Breakpoint _Instruction' is created and placed into the program memory array at the location the break point is desired. The original instruction is saved in the newly created breakpoint instruction. When the break point is cleared, the original instruction is fetched from the break point instruction and placed back into the program memory array. \end_layout \begin_layout Standard Note that this scheme has zero overhead. The simulation is only affected when the breakpoint is encountered. \end_layout \begin_layout Subsubsection Register: \end_layout \begin_layout Standard There are at least four different breakpoint types that can be set on a register: read any value, write any value, read a specific value, or write a specific value. Like the execution breakpoints, there are special breakpoint registers that replace a register object. So when the user sets a write breakpoint at register 0x20 for example, a new breakpoint object is created and insert into the file register array at location 0x20. When the simulator attempts to access register location 0x20, the breakpoint object will be accessed instead. \end_layout \begin_layout Standard Note that this scheme too has zero overhead, accept when a breakpoint is encountered. \end_layout \begin_layout Subsubsection Cycle: \end_layout \begin_layout Standard Cycle breakpoints allow gpsim to alter execution at a specific instruction cycle. This is useful for running your simulation for a very specific amount of time. Internally, gpsim makes extensive use of the cycle breakpoints. For example, the TMR0 object can be programmed to generate a periodic cycle break point. \end_layout \begin_layout Standard Cycle break points are implemented with a sorted doubly-linked list. The linked list contains two pieces of information (besides the links): the cycle at which the break is to occur and the call back function \begin_inset Foot status collapsed \begin_layout Plain Layout A call back function is a pointer to a function. In this context, gpsim is given a pointer to the function that's to be invoked (called) whenever a cycle break occurs. \end_layout \end_inset that's to be invoked when the cycle does occur. The break logic is extremely simple. Whenever the cycle counter is advanced (that is, incremented), it's compared to the next desired cycle break point. If there's NO match, then we're done. So the overhead for cycle breaks is the time required to implement a comparison. If there IS a match, then the call back function associated with this break point is invoked and the next break point in the doubly-linked list serves as the reference for the next cycle break. \end_layout \begin_layout Section TIMER1 External input \end_layout \begin_layout Standard The timer1 module can support external input, on some processors, as either a crystal using two pins or a single pin drive. \end_layout \begin_layout Subsubsection* External Crystal \end_layout \begin_layout Standard If an external crystal, typically 32,768 KHz, is being used, then both T1OSCEN and TMR1CS in register T1CON should be true. Gpsim will then automatically simulate timer1 being driven at the crystal frequency which can be changed from the default frequency by changing the value of the processor symbol called tmr1_freq. \end_layout \begin_layout Subsubsection Single pin drive \end_layout \begin_layout Standard If the single pin drive is being used, then the T1CON register bits for T1OSCEN should be false and TMR1CS true, and the T1CKI pin must be driven manually such as by a stimuli command. \end_layout \begin_layout Chapter LICENSES \end_layout \begin_layout Section Gpsim.lyx \end_layout \begin_layout Standard Copyright \begin_inset ERT status open \begin_layout Plain Layout \backslash copyright \end_layout \end_inset 2000-2010 \end_layout \begin_layout Standard T. Scott Dattalo, Ralf Forsberg, Robert Pearce, Borut RaĹľem and Roy Rankin \end_layout \begin_layout Standard The source of this document is gpsim.lyx. \end_layout \begin_layout Standard This document is free software; you can redistribute it and/or modify it under the terms of the \begin_inset Index status collapsed \begin_layout Plain Layout GNU GPL \end_layout \end_inset GNU General Public License published by the Free Software Foundation; either version 2, or (at your option) any later version. \end_layout \begin_layout Standard This document 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. \end_layout \begin_layout Standard You should have received a copy of the GNU General Public License along with gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. \end_layout \begin_layout Section Gpsim \end_layout \begin_layout Standard The Gpsim program is licensed under version 2 or higher of the GNU General Public License. Details of this license can be found in the COPYING file which should have come with this program. If not the license can be found at \begin_inset CommandInset href LatexCommand href target "http://www.gnu.org/licenses/gpl-2.0.html" \end_inset . \end_layout \begin_layout Section Libraries libgpsim, libgpsim_modules, libgpsim_eXdbm \end_layout \begin_layout Standard The libraries libgpsim, libgpsim_modules, and libgpsim_eXdbm are licensed under version 2.1 of the GNU Lesser General Public License. Details of this license can be found in the COPYING.LESSER file which should have come with the program. If not, the license can be found at \begin_inset CommandInset href LatexCommand href target "http://www.gnu.org/licenses/lgpl-2.1.html" \end_inset . \end_layout \begin_layout Standard \start_of_appendix \begin_inset CommandInset index_print LatexCommand printindex \end_inset \end_layout \end_body \end_document gpsim-0.27.0/doc/Makefile.in0000664000076400007640000003060412210742103012457 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = doc DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ EXTRA_DIST = \ makefile.mingw \ gpsim.lyx \ gpsim.pdf \ gpsim.ps MOSTLYCLEANFILES = *~ CLEANFILES = *~ DISTCLEANFILES = *~ MAINTAINERCLEANFILES = gpsim.ps gpsim.pdf *~ all: all-am .SUFFIXES: $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu doc/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu doc/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags TAGS: ctags CTAGS: cscope cscopelist: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: -test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES) clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES) clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ cscopelist-am ctags-am distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags-am uninstall uninstall-am gpsim.ps: gpsim.lyx lyx -e ps gpsim.lyx gpsim.pdf: gpsim.lyx lyx -e pdf gpsim.lyx # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/doc/Makefile.am0000644000076400007640000000041011402560537012447 00000000000000 gpsim.ps: gpsim.lyx lyx -e ps gpsim.lyx gpsim.pdf: gpsim.lyx lyx -e pdf gpsim.lyx EXTRA_DIST = \ makefile.mingw \ gpsim.lyx \ gpsim.pdf \ gpsim.ps MOSTLYCLEANFILES = *~ CLEANFILES = *~ DISTCLEANFILES = *~ MAINTAINERCLEANFILES = gpsim.ps gpsim.pdf *~ gpsim-0.27.0/doc/makefile.mingw0000644000076400007640000000141110727567331013245 00000000000000## Makefile for building the gpsim documentation. ## The build uses tools running on cygwin. ## Use: make -f makefile.mingw LYX = lyx PDFLATEX = pdflatex MAKEINDEX = makeindex PDFOPT = pdfopt RM = rm MV = mv LATEX = latex %.tex: %.lyx @echo "### Export Latex from lyx: $< -> $@" -$(LYX) --export latex $< %.dvi: %.tex @echo "### Create dvi from tex: $< -> $@" $(LATEX) $< %.txt: %.lyx @echo "### Export txt from lyx: $< -> $@" -$(LYX) --export text $< %.ps: %.lyx @echo "### Export ps from lyx: $< -> $@" -$(LYX) --export ps $< %.pdf: %.tex @echo "### Create pdf from tex: $< -> $@" $(PDFLATEX) $* -$(MAKEINDEX) $* $(PDFLATEX) $* $(PDFLATEX) $* all: gpsim.pdf gpsim.ps clean: $(RM) -f *.aux *.dvi *.idx *.ilg *.ind *.log *.pdf *.ps *.txt *.tex *.toc gpsim-0.27.0/doc/gpsim.ps0000664000076400007640000170160712203421270012107 00000000000000%!PS-Adobe-2.0 %%Creator: dvips(k) 5.993 Copyright 2013 Radical Eye Software %%Title: gpsim.dvi %%CreationDate: Fri Aug 16 23:01:44 2013 %%Pages: 70 %%PageOrder: Ascend %%BoundingBox: 0 0 612 792 %%DocumentFonts: NimbusRomNo9L-Regu NimbusRomNo9L-Medi %%+ NimbusRomNo9L-ReguItal %%DocumentPaperSizes: Letter %%EndComments %DVIPSWebPage: (www.radicaleye.com) %DVIPSCommandLine: dvips -o gpsim.ps gpsim.dvi %DVIPSParameters: dpi=600 %DVIPSSource: TeX output 2013.08.16:2301 %%BeginProcSet: tex.pro 0 0 %! /TeXDict 300 dict def TeXDict begin/N{def}def/B{bind def}N/S{exch}N/X{S N}B/A{dup}B/TR{translate}N/isls false N/vsize 11 72 mul N/hsize 8.5 72 mul N/landplus90{false}def/@rigin{isls{[0 landplus90{1 -1}{-1 1}ifelse 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale isls{ landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div hsize mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul TR[ matrix currentmatrix{A A round sub abs 0.00001 lt{round}if}forall round exch round exch]setmatrix}N/@landscape{/isls true N}B/@manualfeed{ statusdict/manualfeed true put}B/@copies{/#copies X}B/FMat[1 0 0 -1 0 0] N/FBB[0 0 0 0]N/nn 0 N/IEn 0 N/ctr 0 N/df-tail{/nn 8 dict N nn begin /FontType 3 N/FontMatrix fntrx N/FontBBox FBB N string/base X array /BitMaps X/BuildChar{CharBuilder}N/Encoding IEn N end A{/foo setfont}2 array copy cvx N load 0 nn put/ctr 0 N[}B/sf 0 N/df{/sf 1 N/fntrx FMat N df-tail}B/dfs{div/sf X/fntrx[sf 0 0 sf neg 0 0]N df-tail}B/E{pop nn A definefont setfont}B/Cw{Cd A length 5 sub get}B/Ch{Cd A length 4 sub get }B/Cx{128 Cd A length 3 sub get sub}B/Cy{Cd A length 2 sub get 127 sub} B/Cdx{Cd A length 1 sub get}B/Ci{Cd A type/stringtype ne{ctr get/ctr ctr 1 add N}if}B/CharBuilder{save 3 1 roll S A/base get 2 index get S /BitMaps get S get/Cd X pop/ctr 0 N Cdx 0 Cx Cy Ch sub Cx Cw add Cy setcachedevice Cw Ch true[1 0 0 -1 -.1 Cx sub Cy .1 sub]{Ci}imagemask restore}B/D{/cc X A type/stringtype ne{]}if nn/base get cc ctr put nn /BitMaps get S ctr S sf 1 ne{A A length 1 sub A 2 index S get sf div put }if put/ctr ctr 1 add N}B/I{cc 1 add D}B/bop{userdict/bop-hook known{ bop-hook}if/SI save N @rigin 0 0 moveto/V matrix currentmatrix A 1 get A mul exch 0 get A mul add .99 lt{/QV}{/RV}ifelse load def pop pop}N/eop{ SI restore userdict/eop-hook known{eop-hook}if showpage}N/@start{ userdict/start-hook known{start-hook}if pop/VResolution X/Resolution X 1000 div/DVImag X/IEn 256 array N 2 string 0 1 255{IEn S A 360 add 36 4 index cvrs cvn put}for pop 65781.76 div/vsize X 65781.76 div/hsize X}N /dir 0 def/dyy{/dir 0 def}B/dyt{/dir 1 def}B/dty{/dir 2 def}B/dtt{/dir 3 def}B/p{dir 2 eq{-90 rotate show 90 rotate}{dir 3 eq{-90 rotate show 90 rotate}{show}ifelse}ifelse}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0 N/Ry 0 N/V{}B/RV/v{/Ry X/Rx X V}B statusdict begin/product where{pop false[(Display)(NeXT)(LaserWriter 16/600)]{A length product length le{A length product exch 0 exch getinterval eq{pop true exit}if}{pop}ifelse} forall}{false}ifelse end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{ BDot}imagemask grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat {BDot}imagemask grestore}}ifelse B/QV{gsave newpath transform round exch round exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0 rlineto fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B /M{S p delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M} B/g{0 M}B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p -3 w}B/n{p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{ 0 S rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end %%EndProcSet %%BeginProcSet: 8r.enc 0 0 % File 8r.enc TeX Base 1 Encoding Revision 2.0 2002-10-30 % % @@psencodingfile@{ % author = "S. Rahtz, P. MacKay, Alan Jeffrey, B. Horn, K. Berry, % W. Schmidt, P. Lehman", % version = "2.0", % date = "27nov06", % filename = "8r.enc", % email = "tex-fonts@@tug.org", % docstring = "This is the encoding vector for Type1 and TrueType % fonts to be used with TeX. This file is part of the % PSNFSS bundle, version 9" % @} % % The idea is to have all the characters normally included in Type 1 fonts % available for typesetting. This is effectively the characters in Adobe % Standard encoding, ISO Latin 1, Windows ANSI including the euro symbol, % MacRoman, and some extra characters from Lucida. % % Character code assignments were made as follows: % % (1) the Windows ANSI characters are almost all in their Windows ANSI % positions, because some Windows users cannot easily reencode the % fonts, and it makes no difference on other systems. The only Windows % ANSI characters not available are those that make no sense for % typesetting -- rubout (127 decimal), nobreakspace (160), softhyphen % (173). quotesingle and grave are moved just because it's such an % irritation not having them in TeX positions. % % (2) Remaining characters are assigned arbitrarily to the lower part % of the range, avoiding 0, 10 and 13 in case we meet dumb software. % % (3) Y&Y Lucida Bright includes some extra text characters; in the % hopes that other PostScript fonts, perhaps created for public % consumption, will include them, they are included starting at 0x12. % These are /dotlessj /ff /ffi /ffl. % % (4) hyphen appears twice for compatibility with both ASCII and Windows. % % (5) /Euro was assigned to 128, as in Windows ANSI % % (6) Missing characters from MacRoman encoding incorporated as follows: % % PostScript MacRoman TeXBase1 % -------------- -------------- -------------- % /notequal 173 0x16 % /infinity 176 0x17 % /lessequal 178 0x18 % /greaterequal 179 0x19 % /partialdiff 182 0x1A % /summation 183 0x1B % /product 184 0x1C % /pi 185 0x1D % /integral 186 0x81 % /Omega 189 0x8D % /radical 195 0x8E % /approxequal 197 0x8F % /Delta 198 0x9D % /lozenge 215 0x9E % /TeXBase1Encoding [ % 0x00 /.notdef /dotaccent /fi /fl /fraction /hungarumlaut /Lslash /lslash /ogonek /ring /.notdef /breve /minus /.notdef /Zcaron /zcaron % 0x10 /caron /dotlessi /dotlessj /ff /ffi /ffl /notequal /infinity /lessequal /greaterequal /partialdiff /summation /product /pi /grave /quotesingle % 0x20 /space /exclam /quotedbl /numbersign /dollar /percent /ampersand /quoteright /parenleft /parenright /asterisk /plus /comma /hyphen /period /slash % 0x30 /zero /one /two /three /four /five /six /seven /eight /nine /colon /semicolon /less /equal /greater /question % 0x40 /at /A /B /C /D /E /F /G /H /I /J /K /L /M /N /O % 0x50 /P /Q /R /S /T /U /V /W /X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore % 0x60 /quoteleft /a /b /c /d /e /f /g /h /i /j /k /l /m /n /o % 0x70 /p /q /r /s /t /u /v /w /x /y /z /braceleft /bar /braceright /asciitilde /.notdef % 0x80 /Euro /integral /quotesinglbase /florin /quotedblbase /ellipsis /dagger /daggerdbl /circumflex /perthousand /Scaron /guilsinglleft /OE /Omega /radical /approxequal % 0x90 /.notdef /.notdef /.notdef /quotedblleft /quotedblright /bullet /endash /emdash /tilde /trademark /scaron /guilsinglright /oe /Delta /lozenge /Ydieresis % 0xA0 /.notdef /exclamdown /cent /sterling /currency /yen /brokenbar /section /dieresis /copyright /ordfeminine /guillemotleft /logicalnot /hyphen /registered /macron % 0xB0 /degree /plusminus /twosuperior /threesuperior /acute /mu /paragraph /periodcentered /cedilla /onesuperior /ordmasculine /guillemotright /onequarter /onehalf /threequarters /questiondown % 0xC0 /Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla /Egrave /Eacute /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis % 0xD0 /Eth /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply /Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn /germandbls % 0xE0 /agrave /aacute /acircumflex /atilde /adieresis /aring /ae /ccedilla /egrave /eacute /ecircumflex /edieresis /igrave /iacute /icircumflex /idieresis % 0xF0 /eth /ntilde /ograve /oacute /ocircumflex /otilde /odieresis /divide /oslash /ugrave /uacute /ucircumflex /udieresis /yacute /thorn /ydieresis ] def %%EndProcSet %%BeginProcSet: texps.pro 0 0 %! TeXDict begin/rf{findfont dup length 1 add dict begin{1 index/FID ne 2 index/UniqueID ne and{def}{pop pop}ifelse}forall[1 index 0 6 -1 roll exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]FontType 0 ne{/Metrics exch def dict begin Encoding{exch dup type/integertype ne{ pop pop 1 sub dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get div def}ifelse}forall Metrics/Metrics currentdict end def}{{1 index type /nametype eq{exit}if exch pop}loop}ifelse[2 index currentdict end definefont 3 -1 roll makefont/setfont cvx]cvx def}def/ObliqueSlant{dup sin S cos div neg}B/SlantFont{4 index mul add}def/ExtendFont{3 -1 roll mul exch}def/ReEncodeFont{CharStrings rcheck{/Encoding false def dup[ exch{dup CharStrings exch known not{pop/.notdef/Encoding true def}if} forall Encoding{]exch pop}{cleartomark}ifelse}if/Encoding exch def}def end %%EndProcSet %%BeginProcSet: special.pro 0 0 %! TeXDict begin/SDict 200 dict N SDict begin/@SpecialDefaults{/hs 612 N /vs 792 N/ho 0 N/vo 0 N/hsc 1 N/vsc 1 N/ang 0 N/CLIP 0 N/rwiSeen false N /rhiSeen false N/letter{}N/note{}N/a4{}N/legal{}N}B/@scaleunit 100 N /@hscale{@scaleunit div/hsc X}B/@vscale{@scaleunit div/vsc X}B/@hsize{ /hs X/CLIP 1 N}B/@vsize{/vs X/CLIP 1 N}B/@clip{/CLIP 2 N}B/@hoffset{/ho X}B/@voffset{/vo X}B/@angle{/ang X}B/@rwi{10 div/rwi X/rwiSeen true N}B /@rhi{10 div/rhi X/rhiSeen true N}B/@llx{/llx X}B/@lly{/lly X}B/@urx{ /urx X}B/@ury{/ury X}B/magscale true def end/@MacSetUp{userdict/md known {userdict/md get type/dicttype eq{userdict begin md length 10 add md maxlength ge{/md md dup length 20 add dict copy def}if end md begin /letter{}N/note{}N/legal{}N/od{txpose 1 0 mtx defaultmatrix dtransform S atan/pa X newpath clippath mark{transform{itransform moveto}}{transform{ itransform lineto}}{6 -2 roll transform 6 -2 roll transform 6 -2 roll transform{itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll curveto}}{{closepath}}pathforall newpath counttomark array astore/gc xdf pop ct 39 0 put 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack} if}N/txpose{pxs pys scale ppr aload pop por{noflips{pop S neg S TR pop 1 -1 scale}if xflip yflip and{pop S neg S TR 180 rotate 1 -1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg TR}if xflip yflip not and{pop S neg S TR pop 180 rotate ppr 3 get ppr 1 get neg sub neg 0 TR}if yflip xflip not and{ppr 1 get neg ppr 0 get neg TR}if}{ noflips{TR pop pop 270 rotate 1 -1 scale}if xflip yflip and{TR pop pop 90 rotate 1 -1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg TR}if xflip yflip not and{TR pop pop 90 rotate ppr 3 get ppr 1 get neg sub neg 0 TR}if yflip xflip not and{TR pop pop 270 rotate ppr 2 get ppr 0 get neg sub neg 0 S TR}if}ifelse scaleby96{ppr aload pop 4 -1 roll add 2 div 3 1 roll add 2 div 2 copy TR .96 dup scale neg S neg S TR}if}N/cp{pop pop showpage pm restore}N end}if}if}N/normalscale{ Resolution 72 div VResolution 72 div neg scale magscale{DVImag dup scale }if 0 setgray}N/psfts{S 65781.76 div N}N/startTexFig{/psf$SavedState save N userdict maxlength dict begin/magscale true def normalscale currentpoint TR/psf$ury psfts/psf$urx psfts/psf$lly psfts/psf$llx psfts /psf$y psfts/psf$x psfts currentpoint/psf$cy X/psf$cx X/psf$sx psf$x psf$urx psf$llx sub div N/psf$sy psf$y psf$ury psf$lly sub div N psf$sx psf$sy scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub TR/showpage{}N/erasepage{}N/setpagedevice{pop}N/copypage{}N/p 3 def @MacSetUp}N/doclip{psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2 roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath moveto}N/endTexFig{end psf$SavedState restore}N /@beginspecial{SDict begin/SpecialSave save N gsave normalscale currentpoint TR @SpecialDefaults count/ocount X/dcount countdictstack N} N/@setspecial{CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury lineto closepath clip}if/showpage{}N/erasepage{}N /setpagedevice{pop}N/copypage{}N newpath}N/@endspecial{count ocount sub{ pop}repeat countdictstack dcount sub{end}repeat grestore SpecialSave restore end}N/@defspecial{SDict begin}N/@fedspecial{end}B/li{lineto}B /rl{rlineto}B/rc{rcurveto}B/np{/SaveX currentpoint/SaveY X N 1 setlinecap newpath}N/st{stroke SaveX SaveY moveto}N/fil{fill SaveX SaveY moveto}N/ellipse{/endangle X/startangle X/yrad X/xrad X/savematrix matrix currentmatrix N TR xrad yrad scale 0 0 1 startangle endangle arc savematrix setmatrix}N end %%EndProcSet %%BeginProcSet: color.pro 0 0 %! TeXDict begin/setcmykcolor where{pop}{/setcmykcolor{dup 10 eq{pop setrgbcolor}{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll }repeat setrgbcolor pop}ifelse}B}ifelse/TeXcolorcmyk{setcmykcolor}def /TeXcolorrgb{setrgbcolor}def/TeXcolorgrey{setgray}def/TeXcolorgray{ setgray}def/TeXcolorhsb{sethsbcolor}def/currentcmykcolor where{pop}{ /currentcmykcolor{currentrgbcolor 10}B}ifelse/DC{exch dup userdict exch known{pop pop}{X}ifelse}B/GreenYellow{0.15 0 0.69 0 setcmykcolor}DC /Yellow{0 0 1 0 setcmykcolor}DC/Goldenrod{0 0.10 0.84 0 setcmykcolor}DC /Dandelion{0 0.29 0.84 0 setcmykcolor}DC/Apricot{0 0.32 0.52 0 setcmykcolor}DC/Peach{0 0.50 0.70 0 setcmykcolor}DC/Melon{0 0.46 0.50 0 setcmykcolor}DC/YellowOrange{0 0.42 1 0 setcmykcolor}DC/Orange{0 0.61 0.87 0 setcmykcolor}DC/BurntOrange{0 0.51 1 0 setcmykcolor}DC /Bittersweet{0 0.75 1 0.24 setcmykcolor}DC/RedOrange{0 0.77 0.87 0 setcmykcolor}DC/Mahogany{0 0.85 0.87 0.35 setcmykcolor}DC/Maroon{0 0.87 0.68 0.32 setcmykcolor}DC/BrickRed{0 0.89 0.94 0.28 setcmykcolor}DC/Red{ 0 1 1 0 setcmykcolor}DC/OrangeRed{0 1 0.50 0 setcmykcolor}DC/RubineRed{ 0 1 0.13 0 setcmykcolor}DC/WildStrawberry{0 0.96 0.39 0 setcmykcolor}DC /Salmon{0 0.53 0.38 0 setcmykcolor}DC/CarnationPink{0 0.63 0 0 setcmykcolor}DC/Magenta{0 1 0 0 setcmykcolor}DC/VioletRed{0 0.81 0 0 setcmykcolor}DC/Rhodamine{0 0.82 0 0 setcmykcolor}DC/Mulberry{0.34 0.90 0 0.02 setcmykcolor}DC/RedViolet{0.07 0.90 0 0.34 setcmykcolor}DC /Fuchsia{0.47 0.91 0 0.08 setcmykcolor}DC/Lavender{0 0.48 0 0 setcmykcolor}DC/Thistle{0.12 0.59 0 0 setcmykcolor}DC/Orchid{0.32 0.64 0 0 setcmykcolor}DC/DarkOrchid{0.40 0.80 0.20 0 setcmykcolor}DC/Purple{ 0.45 0.86 0 0 setcmykcolor}DC/Plum{0.50 1 0 0 setcmykcolor}DC/Violet{ 0.79 0.88 0 0 setcmykcolor}DC/RoyalPurple{0.75 0.90 0 0 setcmykcolor}DC /BlueViolet{0.86 0.91 0 0.04 setcmykcolor}DC/Periwinkle{0.57 0.55 0 0 setcmykcolor}DC/CadetBlue{0.62 0.57 0.23 0 setcmykcolor}DC /CornflowerBlue{0.65 0.13 0 0 setcmykcolor}DC/MidnightBlue{0.98 0.13 0 0.43 setcmykcolor}DC/NavyBlue{0.94 0.54 0 0 setcmykcolor}DC/RoyalBlue{1 0.50 0 0 setcmykcolor}DC/Blue{1 1 0 0 setcmykcolor}DC/Cerulean{0.94 0.11 0 0 setcmykcolor}DC/Cyan{1 0 0 0 setcmykcolor}DC/ProcessBlue{0.96 0 0 0 setcmykcolor}DC/SkyBlue{0.62 0 0.12 0 setcmykcolor}DC/Turquoise{0.85 0 0.20 0 setcmykcolor}DC/TealBlue{0.86 0 0.34 0.02 setcmykcolor}DC /Aquamarine{0.82 0 0.30 0 setcmykcolor}DC/BlueGreen{0.85 0 0.33 0 setcmykcolor}DC/Emerald{1 0 0.50 0 setcmykcolor}DC/JungleGreen{0.99 0 0.52 0 setcmykcolor}DC/SeaGreen{0.69 0 0.50 0 setcmykcolor}DC/Green{1 0 1 0 setcmykcolor}DC/ForestGreen{0.91 0 0.88 0.12 setcmykcolor}DC /PineGreen{0.92 0 0.59 0.25 setcmykcolor}DC/LimeGreen{0.50 0 1 0 setcmykcolor}DC/YellowGreen{0.44 0 0.74 0 setcmykcolor}DC/SpringGreen{ 0.26 0 0.76 0 setcmykcolor}DC/OliveGreen{0.64 0 0.95 0.40 setcmykcolor} DC/RawSienna{0 0.72 1 0.45 setcmykcolor}DC/Sepia{0 0.83 1 0.70 setcmykcolor}DC/Brown{0 0.81 1 0.60 setcmykcolor}DC/Tan{0.14 0.42 0.56 0 setcmykcolor}DC/Gray{0 0 0 0.50 setcmykcolor}DC/Black{0 0 0 1 setcmykcolor}DC/White{0 0 0 0 setcmykcolor}DC end %%EndProcSet TeXDict begin @defspecial systemdict /pdfmark known{userdict /?pdfmark systemdict /exec get put}{userdict /?pdfmark systemdict /pop get put userdict /pdfmark systemdict /cleartomark get put}ifelse /DvipsToPDF{72.27 mul Resolution div} def/PDFToDvips{72.27 div Resolution mul} def/BPToDvips{72 div Resolution mul}def/BorderArrayPatch{[exch{dup dup type/integertype eq exch type/realtype eq or{BPToDvips}if}forall]}def/HyperBorder {1 PDFToDvips} def/H.V {pdf@hoff pdf@voff null} def/H.B {/Rect[pdf@llx pdf@lly pdf@urx pdf@ury]} def/H.S {currentpoint HyperBorder add /pdf@lly exch def dup DvipsToPDF 72 add /pdf@hoff exch def HyperBorder sub /pdf@llx exch def} def/H.L {2 sub dup/HyperBasePt exch def PDFToDvips /HyperBaseDvips exch def currentpoint HyperBaseDvips sub /pdf@ury exch def/pdf@urx exch def} def/H.A {H.L currentpoint exch pop vsize 72 sub exch DvipsToPDF HyperBasePt sub sub /pdf@voff exch def} def/H.R {currentpoint HyperBorder sub /pdf@ury exch def HyperBorder add /pdf@urx exch def currentpoint exch pop vsize 72 sub exch DvipsToPDF sub /pdf@voff exch def} def /burl@stx null def /BU.S { /burl@stx null def } def /BU.SS { currentpoint /burl@lly exch def /burl@llx exch def burl@stx null ne {burl@endx burl@llx ne {BU.FL BU.S} if} if burl@stx null eq { burl@llx dup /burl@stx exch def /burl@endx exch def burl@lly dup /burl@boty exch def /burl@topy exch def } if burl@lly burl@boty gt {/burl@boty burl@lly def} if } def /BU.SE { currentpoint /burl@ury exch def dup /burl@urx exch def /burl@endx exch def burl@ury burl@topy lt {/burl@topy burl@ury def} if } def /BU.E { BU.FL } def /BU.FL { burl@stx null ne {BU.DF} if } def /BU.DF { BU.BB [ /H /I /Border [burl@border] /Color [burl@bordercolor] /Action << /Subtype /URI /URI BU.L >> /Subtype /Link BU.B /ANN pdfmark /burl@stx null def } def /BU.BB { burl@stx HyperBorder sub /burl@stx exch def burl@endx HyperBorder add /burl@endx exch def burl@boty HyperBorder add /burl@boty exch def burl@topy HyperBorder sub /burl@topy exch def } def /BU.B { /Rect[burl@stx burl@boty burl@endx burl@topy] } def /eop where { begin /@ldeopburl /eop load def /eop { SDict begin BU.FL end @ldeopburl } def end } { /eop { SDict begin BU.FL end } def } ifelse @fedspecial end %%BeginFont: NimbusRomNo9L-Regu %!PS-AdobeFont-1.0: NimbusRomNo9L-Regu 1.05 %%CreationDate: Wed Dec 22 1999 % Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development % (URW)++,Copyright 1999 by (URW)++ Design & Development % See the file COPYING (GNU General Public License) for license conditions. % As a special exception, permission is granted to include this font % program in a Postscript or PDF file that consists of a document that % contains text to be displayed or printed using this font, regardless % of the conditions or license applying to the document itself. 12 dict begin /FontInfo 10 dict dup begin /version (1.05) readonly def /Notice ((URW)++,Copyright 1999 by (URW)++ Design & Development. See the file COPYING (GNU General Public License) for license conditions. As a special exception, permission is granted to include this font program in a Postscript or PDF file that consists of a document that contains text to be displayed or printed using this font, regardless of the conditions or license applying to the document itself.) readonly def /Copyright (Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development) readonly def /FullName (Nimbus Roman No9 L Regular) readonly def /FamilyName (Nimbus Roman No9 L) readonly def /Weight (Regular) readonly def /ItalicAngle 0.0 def /isFixedPitch false def /UnderlinePosition -100 def /UnderlineThickness 50 def end readonly def /FontName /NimbusRomNo9L-Regu def /PaintType 0 def /WMode 0 def /FontBBox {-168 -281 1000 924} readonly def /FontType 1 def /FontMatrix [0.001 0.0 0.0 0.001 0.0 0.0] readonly def /Encoding StandardEncoding def currentdict end currentfile eexec D9D66F633B846A989B9974B0179FC6CC445BC2C03103C68570A7B354A4A280AE 6FBF7F9888E039AB60FCAF852EB4CE3AFEB979D5EA70FDE44A2AE5C8C0166C27 BF9665EEA11C7D2329C1A211DD26BB372BE5822F5EA70D99EB578C7BEFD44CDF 045A363056E5E1CC51525EA6FC061DCEBB337208EFF729802376A2801424F670 0E7E6397B28F15BC10B40012B0A3EAEB2693E8F7F627C4C9C7C6C5BFF105C1E4 1B2B9E8F09253B76040D268B80719E1B3F5A55AB7B8E152A40E590419249F2E4 C36159F8E54B532468E36965A38646781AB0B7F6A3E851FD10CAA49ADFC1E546 2FD2EC6150DC6E19523050F6148348A561AD8D2E2721EFF8A570CB33460A745B 926C889304C09753C2D78FB0CA95DC6DE5B8C524752C83601E7E9F73DF660674 F05AD83A166DA9BE89F22FEABD4B2665960F6FB5BC32928E1230C212E5D69CEE 0B3311A1738A11747AE263106916D8E95F25B25B4BC6AFB03B79ABB95DDA518B 41A49458111D2A1433C043627EF9460D324FFE22935F4F6DA88B8B91AE95B34E 08408A34EC8EAC3F65B6AE3E3E2524867EE9D29068F81E4372F4470BEEB4D6BE EE4DF956BECC0CB77F8490117B22B2FB75C938ED0A5E208D88BC38B2AB8B9CFB F1D53084B6F43DF336481ECA0AA2D5317BC83FC0E1D4DB01D0B7707EEF217E94 A7F985102DED27D8E8B009F7EF6DB91B91E78BFAE7BD688E10B3DC9AC77CDEE8 47AA4DC8EC78241E593D26EC7A60696151A2AE5325D736E99E01BDCBDE69579F 92EEEC224B6757EEDC64A75455BB665DF42A0E4CE7B99BF3E7D66F8FFC8C13F9 D7A1FF7A9D5FF7AC43396779F11C9B008C33A2043D48B61B88B03104B1425F09 675B559CA4302C001EE80D2B739CC0FD1023BF4F1FF9C01E892E59CCA7C26011 B8E0B6D29CC29FC72792FDA5E7D5D88EF98F9DBA960C96534C399C54865EAB86 0FA2E0D6C7C44B553EAC1574D55E7970744D4792FFFBDCE6FB4365BDBC2965BB 2E9EDAD9E0EBF0B620DB415AD98297F5AE83D9C710436657E74D26E83957C745 89834337035A7501803947F6880B70E56A3A404C62D57B849D28804CBE0F5884 435A0E12DCC9BA414ABB732BFBAE237001F557DEA5E972BA0838A3C7C9EB75AA 4A050DA0A529BDFFBF9011C360564FD17A02C18860AF6B86EFD4E2C125686C9A 5E114E95C71FC89A5DE9C589BFE5AC0480CFF716345265D2435EDAE67CFC4801 5BC08E7A48D683ACDB91E05F469C0C8919D73A5D07A1CCB173E30E76680ACB09 02A40A3E11916198BD69F1A26E88330F50692D0D5917E99E7A01B327413E24AA E98EA484E45897E6AE4D6997B6E8BBF61C9406E916D56985CB2BD297E8ACFC6E CF2D2281AD84696B7C6CB584BD85CC20BA14ADD3BC3E25DB91124C0ACF22E902 3CFBF04CC40DE331991E9075D22AB5EE0E849B340050E6C417C664A782D05549 DB2EF572F193B1C12B4635C2B358747046DE585F4EC4885783EC27EF4D1102CA 1E6B6BF88E699F74373394783BAE280A5AF61C7216D2289EEAA8379EE7D87A92 EB5879BE4EF03B9AEB3EE0F9BC0F3E5C2D06D80F724CE1681D5B258702019FE5 2BFB989F80F63FFD1470AEB4759AAFD4DC3147EC63E317951A46454B745938BF B2786ABAFDBE642C963411F03B42C7ADBDEE54A45F917410D95D6D99B372D223 600DBB4489E38DD4A5C20C9F81169CD3AC8E20EFFC27ECE0E3C0AF12C09F289E 5A5F8DF8487065AA61F7ECFD18EFBF27F055BE0733AF0079569E4CFF64EB1201 2214C6552E59A0D4FB4A0B10CCEA6646210248C7098DE2D3CB07383AE2E2FE67 65F11F5216359423A95AD7CA9B8C59645F5A8D84FB1C177AED502F9F054D68CB 91DE60D05224C9DBA79A84DC57C2EBDA8E422A9550A2E12CBA8ED26D3288E2F0 160FAD0FE07B2188A293FAF4C903F54E22E2B141D5417FC4E56B370A532047DF CA63954C0858B48FAAC42A030D7CAEEB66D566CD165A4007DCC1ACB79739227B 0AC59369CAF4916281E4769A9CBDDEC9665BBFC81DDBFBBABB1654FAA5CAEF96 3BFB70CCA5ED0FB14FFEC866A1B6351BF489CCF33778462E0B1CFF4690692DDB E68A92CAFAA72A689CCDEED10BE76BC555C63113ADAD38F76C7ACCE6A4C70DC3 D3C5CD3B5E0513A540D0C7575D56000265B54EBF0A3A48F40D2D8392CB24B922 F94EDC99DE5515C8C45631BF269CC8B89441B674EC0697CB2FFCE88AE15E2F88 4193E1D5FDC28A8A7F6FA6EC89007816A15A1A400EF8B76F97E3AE0BE67C17F1 0803CD85C849216634B6333A96AD20CBD0499BF77A95150B847315C78C38F8AB DD54603B2AE10E641A09DC65AFDF4060BF900FF57B6C47552BDA9A6C752EC4FF C5B6B3D043B1309F9E10F186760E30AC1B344132E34B82D0C5FB9864BF4AE136 954C8D89F6B3DCD437AE24A79EFD779FFAA9C1962488D39D697A9749141D0462 6972EBD469BC2AAE540F46F28AB949A6BD6B76592A8D65D698C1D3B450D864B6 B348501D3073C42AC1EEB4E838CF05D8AC25E723FF843C95A9C9F22364247817 978BD9052EAB20A47BA58EAE57E5379C7DFA2EEA9B7EE86FFF8CAA8BB0397CE3 F7CB07D1E2B91FC38A2BB150D25BFB1A7EDD6948F1A3A745549A2C8D7DA347CB 1BBD434910A01E975212A1C1F95A92C43473201928836FE52E18111F2D872711 7CBAB3E2C0C6A9E79A3DEAD200247FA31962915382826026F1395A421A62C946 7B9623ECB331C37552AEB0C26C0802B5C5E46A78326C70381871706BA66C2FEC 7D51134435F45503A0ADFDDDC39A4A154BB325F7D0C2D1441CF549FD2749FCEC 6576CA84F82AB140E17B8CD77E04B7956F7C7957763D8371C3D94C97916E7C29 6658698D5CB9A4AAE633A9AAE86E4CBF012BABD877E83D4BD9A618950C657505 27DE436726C96B66839467A9F1280CA84AA8CF95A2AD957AFA4B7F794CF2AB99 A8E8273B2C0E5055E3212944B85FB6020B097082E73589630B1AF166CC26B3B6 ABE306F6F7C2CD4CDEE4573F6AB053EBB67B9D376EB26536696DDE5F41F68A7B CA1C18D864C80F0FF32878579A9AF5F7BD74CA38B965EB462DC2301DA8ED007D 28A54351F110018EF424644E6D51041D277666E5116C1EB9F684088B3696B8EA 505FD758AEC4B4494538D0E51ECA736BAC9CD9DE81072CDA24887282FE258C47 F071209B472146DBBE12D78B33D998743CA8E92069AFCF32E52179043FC8AEB3 1A8ABF85FC84D206537750E7DC4F5F77764B02FAF673143613708F967186E0BA 18C470914CF1D522123E627D00097377258E81CD0693D102D0E6B37E7BAC1AB2 770B68030BA4F0E13197737E9CE54D87C8AE7446DC4C860C5F7D9E6F02F7ED6D 8A1DB2AC1320B97683C69DA60B426098CD239BF4593E30CF027E02565150A7C6 569614B274D400C4F0AD97BA4FF8A757C7740361363393263378D2012FB8A3A1 9B8210FE0BE428127BC888DF7AC5AE47171A8509FBD64B8C485775F23D3541E9 781B7FA115B2D2B942E3901C640B77043747A91B7AA9597EE90D91F8C1C1C48E 56517D5EFDFA8CC1028154BBDECDD821E9737EA3019F75CB95196B6AF2E01943 AB8BCFE73372B61E4C16685F3A2DD4E4EB5D8B7370D27FFD057C07EA9486D4F6 26406B96E86705E3E88F254B18F73CEC5B7877077EC2192B8B6A57D96CB83C42 3BE87B942A76571BAB6ACEB5FBCE7A6F747B3EF50FBA6B538A4CEB830FFA35F4 A00ED746BB823DF700E40C2F44D4BCF8AB4CB14661759C675824F94CD151CD19 28DE8472D73AE198962F216A97E1BB46218720C44A3DA14F1D5ED0923B060EA6 EEA5375D9ED9C0E6E16EDFEC7C239A0D7CDED19AF4F462C6879038CCCDC8A774 58637CA5A5DDFE128A4E4E57F1F0D63E03038468C46160DE1F11ED73564A1B41 FA08CAD1E213B2A0E953A1F3B0EB261F863683A1ACFD71153B12D6AFB9D68CC4 2B61F57ECD2DF660BF0D2387D6D7ED25B6DC1561D04B1562243194AEE2963848 EA7938B45F7A39BCB420A91310EC2BE49306BB117FD4492C77C9A655157B6BE8 B33886A1C1C7A7F33699C95C2D501F8A3B4A9A6FA654E56E66BB882E67632F78 E4EA659F5CD839375F3A7C6D6CD68EFF4E4D4CC00A0AA17A213407C72CA9736F 4E6B9F785A52A7D8D0AF8F3035A669F20A6EB7F559706134534A315CF6372889 EFBE25392DD3720C5877161ED311FC318FC5500115ECA7D35A79B6D612CF1FFA 9F5002AE1230C4BC5FFD7D6324E591B05064201D9DF969C14E19E1CD25891C96 5BE7BEA436FDAF8EDF3AB15B6D9655AD2A42657ACDD33F3EC395A910C504A609 24FF6AB7F8C36EC0DD7CCFB2EDAF2CED9882F86612CC51B922464E5EE8E74CBC E25597E8A9DE49A4736D1C1E3B2707103C61DD8F86F5C60ABE5B3DFD48CBD254 09A1374159DF6734061DDAA9699326E37518C5B6AE0AD31AAEC036756A4A6D9B F3167837A37DF2BB69F2D330F21B3AEFF45DF199AD639DFBE12F6E5026856BDD 3C2827B0A65A60281C6D23D511F2C1ED048103AA0186E4B63B3EAEAC37560D5D 80920982F100E0A13E49FDE84A1EF9043C5CA404C31D8C5F31C4A2E00C348B9A 9A4ACA24A146E434F9CA2B09715E52F778E9906BEDDF466DDB163AFB921AAA35 71DE665BA4608A71D9E5339D46D6CF1D40CCF347944D47875224533E862A1642 2796343DA30697FB05CC84F8D0D6B948934F8590F1A4821D500A890AAAB50C4F 7614F825B24FF1AF1BCB410715D7BEC73B89592E0B816B72A1621E8AC43AB587 F21FEB918803DE5E4ABCFC637803167E262400F15292BD55D1870277C94A6B8F 5D32160590FD4815F696887FEBA08DE74C2E4B5BC3BB23CD82C6500F043A49ED 0B50A11AF32C0D8369BB8AF7C591A7DB4E6BB61E56597C93D3F2066DD7CA3A47 4FA3185DE6D9514329C3686C2B0F37B7CADF28A0F1D5976FB5AA8C6F9628403D 83E182A59BE653F2E77C6E056A185A43A1FC89833C37E65CB0BFECBADDE1BAA1 2F164BAFB33BAA61FB662EC8F3A9B26ACF04A8A59260377B34B0995F3BAEE1D6 CD563FA0DFCA82D07429BC518BC22B06F25FBB064224B432F2DDD134B976FFED CC07E25C60D6A103712B6B30381C647F00D147F33CF8590FAAF5D96E1ECAA78A 754FBC44D41BD71F83E6D3BF586F74364A8EAC427B58C27BF4F98C8193179DB5 7D0B69C697647502CDF96CDCC66536AAF2426421F0093C60BB8290CD079EFA12 BEC48C5AD4103C9AFF6CAE8F71FFCD8AB7886911E36E129621BD33BC8D91CCE2 0E56E5B23A58CD18F6523CF7B6316F3F99405C8032FCE0B50CB70D32F526D726 CEB4FE749FFDEA515F7A8D337AC9BE312658480E46BDF92138B82AA52813F2E0 0B3EB437843974F6305667CE7A412C631DE34B5ED5BEFD42D352C6910BECB5AB 98C441AB56F89C8D6C1FA1795BEB9FFAED8C65628BAC19E3CF3ED35A5DEDD494 3332F987A13CE5887D5065A6B4C6CDB583F29CB82C362F84588221888E7515BC 232314789BC8B125F744908ADA3862287BDD1A896C9D4464D42FD03170C6439A 84D7F91188EB5539C901B03DA39E1426E53799824AD73C5E8BA4181160906A79 8F49D35A0D801EAB3A54B90340EE129822028061F5D74D63CE8BFC7E107366EB 901113730D86C49854C81BA6E5272C4C32ED1ACE9C30DABD3C5049CA9D2707B3 4D2113E0EFCE364DD0022132F09AC7772914394855FF53C6E1D0A6957C224692 EE719D987F82948571A69C701467362F9794310CE1701D3ED055FDDEA2AFC64B 4EC05E77DF8B9F8A86585C7960C2FF4A79C542BFA39E9A24F5DDFB64B9D94133 2F7445F802FECA58D6E39A66EDD8964768E5744171BDEA9A067B0CB7E995D332 1EFFF3AABA636B424ECDD2BFCD831CF43DB048FFEF3FB20428A9423499862B37 DC48E35335849C61ED8BA0E99D935E8F5339D1AF7EEB2C476882438789E0A5CF D1C87B2EE16B9D36B50700F3A7BB737B436D8D144E64F467448E1DAA02C89480 A7F703A32A62CBBAD06CD25E1858D537B060443175C20B7909AA26E8123A7626 FB16938B81AFA5C99B022B4E6D1474AA188998AAE37F1B1184F3F528CDF03485 586CBD57A449D7BA28B98B04DE59D1C58B020F48CEF9A0296A92FB62C490D11B AD1076D97592FE7E9F1E19F8316687CF4D6539D85C1FEB1362464AF4AA2F5229 598440D13C3ACF30C6A194A953D7D540FAEE0ED12043489E616C9D1CA82238AF 281FE241ECEC61EC89CC48C39CD2E2BBE0821B681235FCF4CDDD30A3B2233A12 9E385A915CF6ECD10284A8D126A60F3087FAD30397D84D55417D4499D2287CBB 59AB1D738C9D02AA08AB8B91970BEE556E93CCFE92ABA29B6F1FC1A7145D8A06 7DAB936CE31AF95BDCCFD3CB744F98213F81F16C5E085F005DBCA9566E70B173 E1B3656F0AEE94E0338B0E29174EC90945404C5D723D5E67080D2843D44A3585 E078615BEA476C8826438A89807B2461AB5288777DB575D01AA80CBF2A68F3BF 60C4D07048BCF34879B683B2846019287CC9C41441766404CB5CD95D3946B165 6F6C1ACB51B108F7CA13A0181CCCC6D90E0D88AF7ADF646EA9D2299BF5152BDD A274EFF21A2BDD528F6F497F27AE42981AC739B980EFC242ECD53B63E6F153CB 4FB7465B022FAA7CD20133C7EB7D4FA6F68A0CE409195C1462BC75822C56CEB4 1EE335963D56CC3CD44906D453BD2980D81C4C1F43D2DE7A392689FE5C97843F C8511D0AFB6C8124E2C0B22B9D2C48D3E699F94EA68CCBB30BE3D93CB63D93DB 05F900A5C1E89EEEA68224CD8EAC9011048C048486B17D2F899A79C42DFEB4D3 EAFF21189DB7BB7A8F66AAB2A8ABD972BE83850535FD1519FCD063B9F269A327 25DEA478270D2FBEE37AA2BAC43138FECB321DD413B2285897E3B89F6FAD2BAC A49E341CE7731B7423FF43EBA457B57E28B04E6DAD1D579A2A2FF165209606ED B1A781D1A1D3241D90E8850AB59E30847D4F7A48641C257BDC27E4C022403E14 5103F4844566E465F431B5E23C8AFAE24E877B5C2264010EC33E168C9B4AF1D7 9590CBCB2CA4B5EDA2618657F314CF6D3075D3FD8E391BD4D2B5827B4E5E833D E6E2864FBBD7A97F3509C1CD2E558747415C8939B4E0909369B52C3ED646A8A6 C6C473A7FC2C7A0A8185B8755811774084C1C16329E7F98538B342B5AF30C83C 62A18DA3B52008DB8A5C5A8C3E21A5C9A3E79FE4311557B5AE9DA573EE557117 6F5E5A94E9DB74944D012ED382457630BDF49299DACB262D7A2278054B38C032 167452A8A0FE2DA43D9C744D138B17D3E41836C633E98898CD6A8558B8C48947 84FDB07D17D0D9A6112BF051EF127ABDC6B87DF643C56ABCC3EA9CDFFF4DC656 F55822EEFE030D716CB7FED11FD7DB34A1493DECEB8E11A917DC98C1C2BE48E6 EB4DD7FECA8A0DC331D7635D9A39A3B4111604D8F5F066F6B87A2BE3EC0C63B8 163B3830C989DF40F9ED122BE1D03D9328B89E279C07CEED888552651930635E 620D5283C7C7CFBDF64D6A0AEB2C3DDAB25909FEF00778D7003A85E85210208A C999A8717636059CBE56B9B2FE8226C320534796775A09A959DD8EB2DA66990A 10275D0131AE860492A232441928AFE6C02A531DB33EE368F0F87573B9B88D34 5869D96C57CAFCFA148BE140BCCDE6AC233D3D0D52370090D1698DCA05D3505E 7953B691D957C26E96BB76E360801E608E05496BE7619B8C69FCBC33E3899664 CA77945407382F699101240F732E13669FE5449DD1BA7DE9ABEA28C4E2496F87 61C06382B75C493F0DF9044517835C5A18B6EDACA49FE842B2449F040771F86C E98994E113749F2047C28A09061393E075D1DE07002E86961D2048A927713588 BB8FC5EBBBDBCBF708EDDB1B5DEA54A92603EF47888C851EEDEA316F03FC79A0 0837C7DFC6CBAD470825AA8979C2394B82788CEE326683C4B316F25D5463BC17 04F76F444016A4849229863CCCDBE52E21A88EE6CE83D472CAAE764842A3B3D6 49079D5E7A02CC5335254E1F0A4E40E64CC5DE89FF1D44C04BA7D12025D4D874 DC25D1427460EA91F22C295602324FD652ACAA7C380458B01D8CF2CF34986AA5 AAF86F7AA74BC859B65C47E535C981084465A5E6E28BEFB956BDC80F8BE5CD3D 12247C36E4258C6BDC84ABC8F79CD9009C0F464678859A03070758C38629FC34 410FAA8564AEFC767EA1205C78C5192BB8CD444DC49C67CAEFF7EFE66212A27B 11888AD6DDFFBC478829A97AD03E601E3CA4DD5B1DEC9F095A7AB6114B2E552C 5412EE25201165E3F46E567F9E0F99309B2446E6245D2DFC112836563E96DDB9 3B2451ECEBC826052988EDED82488E01D1A8266CCA7086038D0D4E95131A48D6 26F34CF9FF9753B71FCE427FBC5EF05DC81BCBE43C55EF88D6CDBFED5AA8AC07 81497B47B0C440ED2BE9D2202AFC3D84143127B8C831ED89742286B3620DC94A 514FCDCB1CE84BAD177C66BFEECCD83F382E45211576133DBBDA5CC4582CC324 28D792CECE78BAE1B1255B139AC11F9A6D2FAB68DD328353837A1F49C67E25F2 C9C1EC1AD50679219C53405917D42D2934893C9ED7F94A5294740CB11C891FA0 96FDDBA0FC8BD2769E81C53238F3B464066C7B4EAE1131B8E318C0535C99CBBF 92E624045D3665F3D3006F15D2C2865ED000C1E4F5532E902EA811DFBCA658BE E3047E8557DF9B7EFAFB4289EC577E79168B24F9CED68BCE525CF0179652D889 AA0F486AAC71F71AD678767BBE4F591737319AAD7B4708366AB522677771342A 31633CA44BF28C3B83E74A5F2915E987D9AECED0CFB8AA39A14C1AB1897B41EB 033DFBE2E387A053315BB87A51CF292903FEDB40C05AA5E033FADA9634235035 AE952E59DB1BBA826F1750CD8147006887241560D107A281DD99CA4E93010BE6 BAF67CF1AE883634EBEDDEDD9EFF3C0DE538650CD408CDB740E2608C78486B93 BCEC5BCCD779F46747EA036DCCA7E79149FDD0ADA9E9B7EA2906C498E72A1871 E578788134B60F371BF246C21D4668F5AD512756B244748270043A3EAF6F0853 3D0717A9DDDB1922D95B5AE6774E670976173FE6618F9466FF410B74BB64DDFC 4B4F777300D54CFDA342E59B0ADAF61A09453457FD7B494CFE41B32BD4246658 BBA30155C345AB58388D6060D8095361657973BEE789B157842E5F0D162A761D C91B2470E13087AD73E4BA4288861706C7FDCB75A5375320E9EFB4A67A70A0A0 967703105E1385FF2690F1F507FEC112903FA4E5021EDD211BFD3A29AE7A70CC 048E1DEFC1CBE499BF4794FA3293FC4BD4B21FD5BABEF3C237666ABFFE3AEA5A 8F9A5488D0CA7B17E81CE1D7DED66FEB4394E1C405832A6C969569D28DEB1674 DE95E34BAFCA66DB631E58BE1458C305D12E90D1BBBB4BD8C1ED461C45FC9F17 222B95948811E042D94ED07F5F983DBD2B5B0543B7428CD87225C7FF286704FE 96447E7CDC6F8A078463C25CB643FBD842FAE14E811B957836D649DD3AC2BCD9 D0AAA0184A5C1C4EEA50277BEC87C51EC63CD6F2AEAF04D093875DD7BC8D970C 607844F22927D274E1A1A744A025F35E61F841E6E2E8B6CFB5CCCC611F333765 BFA5F111DBEF45F7262128F935FFA395BE1CBC75E0106F5F94BD478FA85DAD5F B108C9E5C73F00FC5D5FA459787E0FE492BD7D4555505ECE5B893BB3031F5CBA 0C8394ADF2D72F0D898DD1D591C927744704DC1BFF5AE4FF6246581E5320C433 2415A67E27985250CB53109CF8916FC11BF5D5DA079FDA4A8BB8C0CB66295D42 8997E2A731A4F7BE7F725ABE25F4729E57EE06E58446A7F3AA81126A7F5A0135 7D8145A1FCCBE19B1974E7D188BE0FB15BB46F9195D8C6A8D371E88ADAAF69FB D7CAD208003C05FA66546922BC1766A64775871054A1B103DE3F3CE50081BC03 DD5A78E7034509A7A23E89882E2E9ECC571C47B92DFD2553E86907B7D01C4D81 051B4697E3CF5372539D687E9F0A489024D832831DCE21FC3D95F45CBB473093 D88CDFCC117AC64473D76847B6F02575FD69031AE8C72614DCDF9BDC8DA4DA92 72E0F481AE0D234D3A5C32A6EC20E2D4EFE09E3177E42EA92E15E88265319829 F6550024B54114563A89AA2D11DEAABDBAF082CCCE8869795807169E3D10033E CAAB246290ED321AC6668B3132C7499FE4278E9DE2AFAEA3BBD365588B964B60 2ECB5A4CCCC384D1A58CCB389985CB4F5A320390072FCC4A482DDB1DFE07F554 75357FB3C6F2A799EE119AA1B962DD21892CF3C8706F2B454C66E4E3BEBF91AB 50DE26EDA843406E007338C6F74BFCC241338B200A9540DEA3C017ECF856B39F 7588CBDB57CF1B6A1280B143DC5E873EFEEF88461D87A1DB2CBEC3543C794F9A B062C8984639C3007BD264D876D4A430E26BBE08B899A59ADC75A6BDD25EECB5 FD40A829AB641AA1F679EAEDF4D5D5B02A720BB3F70B2CD2FFBF91A0BAB835FA 043A559B22C3887404DC913631C00A093EAF107BA28640D9523626674BCF858A 46BB29DC6EE56DDA47189AB457D9568950DC3E2369571FD932F864907F25AD91 11BC334B0C16F2965D6AC9C1B17CA66AFFF21332C8A46FEFCBF589BCA0F4BAA4 D5D965566E596ACB0A12CA088220D7CC2B4F8940696EAE0FF8E229604E791907 26592F5D4BCE6738CC357F0EB6F73D82D3F92569FC2B4A13B3B4891F94E4829E 3B4E99FDD2019F5D6FFBDCA1E23E47BCF2C96A9C58E53950DB59E43228DC93E4 62A12F35E45673FB121E1AD75F20A8F4E8B297881319DE56A86B68F77C160BB6 00335D8767ECD19AF7516D92EC9BE95C4C14180C784C407C839D3A71EA6CD16B F2BF1ED98A31671957F5CCAD1EDFB7C14566CC731777E1E6AE1F3C741CF03083 BB89F311F304C5FB6BCCD19C41891A7E8336C00DF16A60F884A58898FE2C9A0B 15910769678FC5D9295778A9E4F23CFEC6100308CFBAFA134AEF156BF0AAA04C E67BC5A17D5E2DBC4D5C960E61D22B1EC8F52D602AF0A0F0CFC77B1C9871EB2F 2808CC57000AFACDAE4B917E6C9942115FA4EB34B61956DF7A62DF25A89306A9 C43E02696A63C45C6EF7E02E2430D7B9B8380B27CB7794D93876C6D59438184E D4B017CFF961FA969506CBB7A5B7738807135246895CCD2827DAD3F529E147E7 2829180DC4FEE2F64C179B60281DA96256A9C8141D7BFB1B3BEA30ABFC1F186D 318D849C05B30A2C947B4FD36D25726149D61DCC777141B5CF55F04D728D64ED FD4589BA3E2B539556CC81AF6DF5C594ED8EB3EE03380F7299E85B42EFE9603E 0C1049F5F7DB323DA72166B4B42E1B33311D561DCCCA56D9B10AF4920AB44579 5761699A75F6506C54A641DE74114B256E26A1D3AE50C30FB1700F56CD2B9A5F 1C61B7217FF67DBE7C39F02A1ECA6947FAA0FADAD9D35C4B6659B0FF64BB5D93 9C3E13C5656C8BE34DEF93F42E30A72F599CF019CE8B27F4F7C38152DE5E0469 E4316BAA2EB284777A24AF20BCE4C1BD3317821BFB89BAE0CE6873E9490A9982 30D3FF98B8BD821887721B59A653A91F3682754492155D8E92BBE4E85F203F4A 096F6CE62FAFECFE7C1FD1BDEB7A8B47410D2DEE2C6D4ABF1080212E70A7D2CB CB2567FAB9985A0571E67A52C620D94F9120551168A47ED789C2274B48DA898B 605AB375F8B9AD9B8AB909430F2D36763E15A4935ED92E290D8134F64B9DD167 C43CF7B63E88E833606410FDAF96BFF36EEDA691830B21E3955B49CF729E616C 2B27E18EF748065493480FDA1C53FB20A8108921EC955C2532B1A80EAD90972A C395A04FE2E3ED4A3AE0EF469A2CDB2470AE15C980787D44FABB12DE58A7D9FE 61609E394895D757E1B75C7F4BDE84481A253018FE3FD5FACF4937EF42D38832 76696CA4F8AF7597690C5CB6CD70DA9BE84BA4E088E61C427A0092107B426181 079BB8EE74EC9E823228D78F6399C19E269818C540562D4395B4F51E68BEA94C 032BB36B609D9F02D1FA4E47D3E5DCA7C6C5B704B270A22EB464D0EAF9C69AE0 53F23E8D6A69643DA5DA936EED801B97E405C045C305C9970551CE63E45D74F8 B75E75D38C8DEDFDCBAB8F1CF96712158B42863EE4F8E5A46C8A45EDF5AD4A68 6AD6A6175BA1AA6E43D5774F18A1AD103A232401BB308A1CBF4F89CA5D204730 2B8B3E732F5B1D74A75DE515041E51AEE48EC7D6761481D71D268C472D2D7867 A00028D88499DE6CE4EB91C1F30B90FFB93BD9E7F3C53E5494BD567A849F8C6F E2A1BEEC4614C335669476D7B532DAA6303C434733F20EE3FAB0FD50C35F2766 ECF3945CB57A1A4E0B06A9B0DB8FFE741CFB3F6FEDB0AA3600E8124C10C652FC B6FF2F28C01176A0F804BAEE21591AEE77232EF97319F3EC1C7389F3C9A5D9E4 76DA325EF015926D1E0EFAF286E04ABE3DAFC8C628EBF668BD3AE4E600AD2DB3 AD2B5A7187A04AAF440DD8F00EC4DA4B4BFF0E3B21E4E17B87024BB6B520B3FF 60907094B45EDA06B18FEA0B2D8BE6DCD49E7B623D69370F66DEDE8735D67F95 B7258BB81E248987CE1A14766F76AF88BBF04AFE1589C85FDD62F98D8CAAECD6 4C7D8468DA6DCF2767A7327890B597CBFAA9A695DB4862EDD2CE09319475804F AC904FCED2C31FD08731E0A3A099F8070976D75485DC48C313FF03FD597F2B86 95C894A282C56BCE1F7871296280FAF6D5AE00A8D560F0B72CA1EBD474FA51A5 339C10FABF41F65F0255AEEBDDD9EF6FFB33DC6B11C683FB10122E2D7F0530B3 66D584654059FA3F4C43E2229AF23D50EC5BEE2FB9DA1B78CFFF2ACEAB64B53A 0AC9A8F34517DCF1991BCFAAD08BC8BA0F1FAE3C982C504B901A85000467A335 1583D5FA473298DA3FB7175117B32C326B387F565F4212F5F7235A497AC39648 41390951720F9D4CF053792905A958D7B3F037498547FF0B916BD5CB93AFEBDC F5000175CF532C0E6475B2A989AD00151D64E02DED4FEF2B67CE1D325711DFF5 2C5C7726FCC1867E3623620528B26CA87E7AE1996AD6CB8D89F7F96B93EC0643 C282B09DF89C12D696BA94F7831F171332E5C2319E3D787649924BAC31A8BB4E 57728A68892203476DAB7247513CACC137F9A80F1843F87ACB87A643984669C6 D6C93E7743E91E27DB2CDE8C58ADE9F21BB47ED0B91E2B9F07C1D9511B1C96FD 4D52405A6C2908EBEBE3E29F7C6A759857EEF72F2D1F41B5D481AAA4E0464F52 F36DC07ABAD3F725A7708A95DFE2DE91147FE91F51CC413D1078AD46A5E7B7BA 4CE3A05528AB3C9A630B8EA584A415A12FD2CDE2A2B3FC9E2B74A78B8CF1F442 FF1D29BD05B63562D004710A833C3819D714FB66472621113AD7BB240DE7DFBD 1F17FFD4AF4A36A3BD6DFED9BC3104B7D31460E3FA77DE5FE2F9192C9FFC3941 DBA940165BFB828779D087FB176FE550977EF784B325D6173595FB81007E5F51 03551007B28279607CEFFEE6D54641B7E558F1E9C5DC4C9888AD0E7EB489C8AE 581CE6668FB9ACCDFA2245364CCA16643A372B8309347BCB3C08C522B5705D78 441901F4B7ADD083DD4999F6F59A79448D44E92EDAD5ECFB56CCB64B0100F938 425FEFAF69DF10E1FB3E1E056247EADBC8DF4871304F9A5C8286AC950D64964D F523B933E006FB740E7D5D9CC2C425B64C934913357BB817B4796F9E6717A6A3 E963A9711DB1239A233BC8BB4C513C121777114AD0F0BA5614AB2C2F00EFE394 6CA837B00E0A14603B3FE6FEB95C9F8CE70FD41ADBB294C3028052B8104183FD ECD16B3F9BAAA3890E4F95DA58160DC1B9FC5B8C4B2EB6E1FF24291F8A1CE3CD A88656F64C44AC7ECEAB3C586AF1689FE77C7C772DDD390EF466D40B6AAF76AB 4BDED1134230650AD2AE42517997FF7ED694F8DD470F312BDB6B1F9B82DB524A 8D57FE5C30096F41779D02EAFE4889EE5F338D3C4885368281B3C95CCE251FB6 EBED9C96AD4984EAAB559F0DFC79032569A42DF98672B00587AE6DA5D7599098 21BB1FAA64201B5D909231D22A62591F159EB60B490854F94FB62D0B2C30C2F8 3D4AB05F457DBE548C32954C60747297001747473ED6C9BB96F64F6616FF99B4 84797CA9DD8272A016C425491827614BA88DACA0475A6558B787358DED8A8951 95A237D07B5C5C4D773FB1751DC20309FE3CBFF744A0787B15ECCEA3B483FC2C 05191DF757C4DA702C49F93E0D7FEF21867854D277008A469A4508BB45A93A47 5EBE007A4EC8D9ED579E0B7970CA866FE24225529271BDE5A4AF5759C152FADE BD95B89FEE748A442C0A8CDD8A31A0090A7C0FD608C35EBBBC89F567531D3EE1 B0B9A5D4BB9C7456FBF0BD757E71985920DE11DE6771CEBFCF0EB34CBB917A02 A0B0C3DB6F58778737A98C711D3058E6044EAFD28AD297E8F0618CA219210BE6 4E1842203F41F8153CD17836822AD7D4BB09423C80DC2BD05715A18AF0456E91 133C49BB85A6DA4E4C1CB053AB1B9A2D22606688CC537AB109F6DC000CA1D609 A06E4C499BC62FE7B4733675E5501D5BE0B8BAEA19086B59567BE9AC6BF7CB07 9A70D8C90E188839D61DC331EF31A4D5750105FEB6F0C2A463292F0D0805FE95 653F0CDB7F14E2BB020E97F450A3F63E3F44DF1BA5F724BC963D3825F1111C44 2A7CF48DE6CFE7DA6DEB238A87FDC41A647D79A3E56C4B5AB27FEBD77912A6E2 78C4C61BE30E4CE55CEE9E4D5B2FC5EA1E1E5AB2C2005DDD22E105A1F4AE4D25 29C9B9A1C8C7B0E13562E68C1D259FCACD70F0CCF12E488A3F223DA2AC635174 B0FBD115BE7EBCE898526FBC3AAB0A19DACFC81E5E9F5BE2016B38B41BC1A3A9 396EE80AA7BCF2B83C59E8598C9177701C73BF04D0E6C9A3DEDD798652E630C7 32C2C29A180EF7CC891D07185666E797BA88BEF18E6DD3CAF0134F9E9BEC32F9 4D70D32FFA4EBF98D507B7E8BD7F2A2B94EECF12561162672A62617B5CFF2256 29A8452334F8F372F05A4934FFA3EF4A1696A607719DE1E109E5BEFC2A4098E7 7020110C37A90B58B2CB7DF1491BE959F1418F547082D1750223115919DBE49F BDFD258BC893B732CDE0BDC342A927FFF8372D4ADF823545AED50CDFCF7246DB A338D269EDA4D6177ADE1E9DE5E29F18FAF36BF07045D65E4A6888572D354DEC 50B3C0817D47DC0E4FDF859576561F8F5991432122B9D5BAED177E93475E20A4 6B230F554770D25745E31BFCE13E45270D172855592BC41711B0870BBD078CE7 D9CFA89F864A0C2B87F9B48D49C86CD36B254C2516B76694013560F837EA7C50 FE097007DFC98749DC9E01FD56646EFF0903711ACD7355594B80F2A5224958AC FC1E4EC9B954316DD7A9023ED71441E7A9591075DE57F60E74761E571146AB26 EB166094B03E1B344EAA08ACF15E14B4772E8AF3180E0F431726ADEB4F3AFB25 DB774EFD3AE4D761D92D382E741FDFC7C786E51002C53A0699CBC33033D9E2AE C6DB7C41652B105BD243CE1D5979F82DAAC172D8E85E767BDDDD3804FDFA9E99 8F8A3A7A5A3657DCA65930A21C9AB3488C5F1FA7A426EDB72755659E35D2DDD4 850E8FBE71DD0E0231906B7FA756776BBBD3AB1299B31C8C0333F976049901D2 9E212FBA414E86B07F0BC5A373D38D93CCF4845CC30A61F1A2D8DCDD7AE2CC46 FAA25F42712F239E71CDD03A907468925DAB9B3885343F65D22ABB477379F650 1C51C6968BA7CB32DE64363114F52AB85B60ED2083AB727C650A764BAF9085F3 C782496BC94285495D278FB4C23735F4120CAE76854A34607CCA8FFA213664A6 710895251BE9A071FDAC2D7C158C710591D912F9CA16EB943AF05A6DE789DA78 403846A30D4A187FFB523C6651EFDF2AAFBED2075911DF2C7F74C396BDD31EBD 95B3EFDB1A3310D16EB4FC9FB98BF8B821EC80B0F1F211EFABAD79830FB6BCCE E0FFFCF7D3D0904AD7EA84ADF2B171FB71F66D24B979A3F5BDB2F3A5A1223C41 307DE9ACB5B1C905B7FFC5C75D2DE72369D34052F7D8E6E4BEBFA7A9DA29F95E F8C278B15C3B94A0814B8289117D1FAF98B31758E5A3D593A4C91F9ECDB576A5 BA94F0F4526F26DA4D6EA26FBAF202280A7BF3C450F62A35ECD887BE6EDD46E0 91C9CB118FD6B47DECAD439A156D663490F068269A3BF2C733D368D25920D2B7 05B91335514A9F563B5DFCB10256F6A7B9D9CDE1C3F1B32F8E38BC315F46A32D A769082F5352FA1BD296E7669538906DE6636685276937E6EDC1B48E5A964E8F D56062C96E437CA7BC80CAD8D2BCF3B381776069790B10D20C5A1BD2CBA91C39 C3C60F8153F88420B5A947AE048CEFBFCCEE38F5EC170D3B6D0F15A194194525 DAFAE5E86BD64EADDC5B6C85B9EAA3AC1DFCE60C717CB00C6AAA3676E1475343 BECA09B4A327E03E55627426E847123C519E2A99B0BFC281E842DFDDE4DF7438 B89A95090EAEAF1C4E043461A0B6B65F6659684E4CE4E99E91A27CC018D57CF9 BCB2AFAD762FCAE50A38CAB9D9EA2D8E041A8BC089735AFF9ED022D8B07E57D4 842AFCF263C9BE991580BB78837A364F21989024428C81204E3A398ED9B5D910 C673078AAAA3EBE7F00608EA978E51957475B571E602FBB4E5A22451DC10112E E0CE23B1DB6CB0DCDEBBFF0BC3422E33550695DA4CFD4FD6A5163AC08C80152A BE242CFE895C8AEF97B4B5D130463DB5CC5B24DE31DA550CDC09B390040D33F4 724F5034A95BD4E9BEC6B4F01DF893EC119398B21B3AB8BFED61E616C0A3B084 766CFAE98405E880B40A7E698E317DA0CBBC788C6E2C07E9AD47235199709E4E E675045DA0B58687B45BF19E09DB0160030A221BEE8B2CD455092021D21FED0C 15C6160D8D9A32A30C148BA97D4391DB1B57E3EE12F10AA16FCEAD3AE070C4E9 195247BE290EF45CCA9E5C5F24F60D1C2840AA06097E54DE5222779071C49C08 2E93A8CD061554F1ACF341BA5E06A8B62F2FF9D465A8523D2A9A3BF584387955 2F28787C69079EB97244C6EFA19D1AE82E16B9069F415972442A106D25DFF724 29FB378BEF6A39F0911EA492BB221AD1693EE20AC660C3112AC31981FB7E569D FB7DA73B1B4A491F0DB36E3DB6965CF75E25EA8D2985AF7B9FB2F1B7CED6219B 5045A046D7D3EB1B5CA83B1C908D7FABEBA25714005D857C08DD7CBC1225A040 E08E7E0FDCB355B523C52AFAEC64B8C4AFBE7C027C386ECB3DB5484243C6B5CD F217C84DB8B4BB40ADFA0A37EF1C56858658DEE009B6EC9B6F7F468B2B394023 4E47C91D5EFA1F413B10C679A3D96AED8BB356A74F1EC00910BA01A8A1A919F1 4A1855CEEACFD1B0BC62D12703F806FBA935FEF1DDC61F5A7AE3C775BB18A071 CDDDA4BE23CC131F067BE82B7A9751C7C55887960C83D1B80A39576BCB524443 FEF551722AAC41B5ABF2C1095093A91E6E09A0A1AB15A6D95808C0D915848A4A 9B45A818D41E5A41FF363C3A8867CFD72135E9849D2AFBB79D67EE829FB7F11E 2FE0CB1B0FA274FF0F4937C18DED38D7F16D7133BCF36E8AC2F25432CAA7A867 6A83FA6E293A8EE6BBFC1210D697DD2BE41FB5D3094BF5A36C5346044D336039 EE4FF7AADBF79061C0AA4C70FD3D29AC1E280FD1061489150B120D5D9903CF53 7FA4240DAFC2D00FCE923C02D890CF2DBD5054857D13F7205ACFB9AFC2A9FE58 3608D3FF16761750706383748C848BDFF50770E2E2A206FF4F7536BACF227996 3370B6C4BD664ED671CC1ADCFFD6653EBBBE8D2E61FFE434F4559619F3A18F41 8DC3AB001251FA4CE321671E364BF854CC3B31D6824ADA5A474150B8B0682FED 11F4F91199C49E2211B17C5A303A051606638B21B17A92C0BAAF08A2F3AFD84F 605BF2E2ECA50EE5DEB6B8E946B11EA0B5CD26A327BEA10C9173A3D993AFA22A 0A258BD09A4043C72398F80E7A0E4A2FE97E6180DD7BA3D8CED11CFD48FA8D40 8D54DD41D840427BD4451F03A7E03D2A38333C6E21C35B461894F8EB0CE88061 20A20B3ED5B9C764479873B6AAB1A54502BA0ACBB59584EE4EE6FB9196DE471C 686C389976D4C7B270B01BAE7DB8CE8CCC36E4D56DBDC5557513DBDD45DBC713 A8BDFA4F467540C09C40AEBE9E5084916811C2D8ED7F506466D77E41089EA23B 30B66214EDCF25C263730B0C9CC0E8771DA357E93CD788BF6BC174E9C6B6244F 587F74B68B13831E4B0E2E8384CEC73A2B5DD1847F7C99BEC9A505EB6B8ACC5D A534BAC8237AFCE135D3E0B2EFF03DCCD9A92D7664C934D0BFC4436A730CABBD 900BAEB2AA27813C8191D4D01307AE74791F549D73C505053ED6BA41EA04E779 8657A420F4AA2930713EA28A85ECE17DF06F0DC3BBF919C4B35D7183894235D7 DBFC1153A0044B8C815D824E04A94ABCEA52D3202BFE8BDBFBFC35BD3C5F3B42 B13848A7CA06959285FEEDEFFDBFE48206D8C8335F65A9DA35664517ABD176D6 B821F00BC9236DCDDD2AA136D0B62B8425EDC46C12567C7439549CD65888754C 8179C60D2B4A603593C1B35F736B2C55FF2E9A97D26C4101B04CBDDA982EC785 F69FCA9DECBC854E1069A92595C5511ED449C1911FE770576F4593A170D46F79 E397B518064554FE72480EBF9F85DC781C1E48AFBDD26AF2D989FAC31074C275 0F58CA0F92C7924DA44E99C7E82D79DA66F81A7B1B1505B3F1266F2CE7756EF0 03867DF3591674E7181E122D1E8BC8FE7B27C687BD9C5708051B29EC881BAAC6 229547F818D30960E82B8B05E375A75FEECEF9EF7AF00E88D4601A24AF008E8F 3A736065D000ADB1F13A7A0BB2152394F112005D53C26EC9D8D7CF5EE19F1BB5 C306C80EA8501A603074233DEB4AE6213FA704BEA3521ABEBA69FE444866107B DD8865FCE92D4D742675FE9BAD5D90A0EDD1F142653DA546D27CD8294AFB99D2 6FBE3F90E9CA760DA819408DE9A02A3CE55F6A8BCD38CB166A44780962858784 24105FA468EF446A1CA0221108EBEB0F2711DB825CA2766ECFF67F60C870787F C2177D54261AF0DB6EDD1CB3B3DB17F475F5E01B50625751A18BB629EA9D9A80 0C4DEB9AE148EDBF3024A3BDC4C8ABF461DABFC9BCDA36516F7D3C2546681EED 156B40A29C8C564D794FDAA23AC3EF07E7788276F12BFC17CD3D5B5B68B57982 5A35F7747ABB2170FA28049A6F111D84E177EC358ECE0E66B1C83C1B7C8FF210 CAEBE8F092AFD3C8257C505D48DF89F209F6DD1460044865C4D9569744CEA876 87E1B2B52D334FC84AC4E6C179040FD77D5A7D3774FA57E642EDA1C687A340D7 D9C61AEB469875EF9252089FEA9DC26E3208D99DC4F9056B14B94AA60EE4AFF1 A701F4B253CB483A5AB517F40BD3671CF33286EE437CC1E63F18E902C38D4966 BDA698071444365BD442F2F7034F6E7C927BFD45C064F1F8DC75EC20E56D0B28 C0BD4571B08BC9E90609F57C15E7DF9A29A4BE49EDC8DD3234810A0CE3E8B540 5B4F91223251F0C8BB4B980D46FCC8761FAC01AB992725C02F7219BF451ED420 8F2A7E231154E07CB945C121EE6D41A9B4DCC3E24B80DF7688F1203D20EDAAD9 3A07401050A9E9FCD5838AFF20035C0873CF458DB10F52590D534B21114B9CDF 03235CC9FE718383EF3708AAC784632440D7C9B3B571531DEE59D9BBF1F8FD82 8FB46ED5517E55B1E4BCF02FDB45D9247CE95F0CE6600924B1D1207F3E4EB25D 1E3CA53C75E17EAF57189D4F5F1689FC9C821D89A3962B9C6EAC70277F9C5447 87A971C612DCF724756B45402B13A0829BF5087D63D9A3A4DBCD33D3DC531F80 7252F3BCE81D3CFB25D7F80E46EA228A85962E25CA31F8DC90BB9F4F6641D408 203C520270C1A546DE0C803DB54D44103020AB7B4B360EB376C22C4E948D9CE7 D5BC018772FED475F690E4FB8DABCC821BEFA442C842BC3C08ACEB6DF78C6B99 DEBCCBFC33D12B01C71895C9FB4ABCB0F054105DD09BA00AC76FDBBF44228CF4 1E778B289CAE00A7D7D9F37F950108D3846FE48A7B93E6277A41689F841279F0 FA95CD4D2170114B0BDF61EFC6987C8BE8F0993A55BF3E50C410B553D2F8FBCA EE34F2C2F47D3564D36C1D5A4EEDF33917CAD45280DAEF7BB1129C5913336771 2A5CFB28DD5D185615FD8D7DC4EE1E14396D17006AF01922C1982266DD3B3C2E 6CEF925B7085981CCABD7D7D6BEA1F80595D64928EAB0E256E4EEDFDECED326E C8269864379ADA4049A6405A1056B3325CD9EDFD49E890B83E0F662961B3FC87 6EC6C6143AC3442D3464909E83936D09C18D828C616733098DEB280F8F9B12A8 08CE4AD1C8A4F1E131E4B6760C9AE66F2344BBFB17BFD91C39D8C233D267246E 25B909D3B747D42923E5C63455F7474D4B1A70DCFB064F438FE13437462FDE4F BD8B7B4DDF62E1B88798F1B49211710600E90135E39EE395D5165FA67D7804A5 4998A0D2B03070C20974C33E121DA9D4AB82E51C0CED150B6D408654C9EFBF75 20DE4797C67ABB361E25AB58E9494F503BF90AE64A031C11C349ADE1A477C8C2 366AA53439BE6B08D91ACABDF29591D77A5DF0583D7209195E33C61E08E109A1 5C4725AD99193F63CDEFB58D48CCF43A79E49CEBC71AFCD3D2FEC9853B265A33 2A450FF4A7998773658B21DA28065552A465EED5A1DCF49280787CC96E534B3B BE584C6A875B130CEF64DEF0E2274D10CFF41BC03AE632E1CCCB595161C4EF59 6683963A1F1D0F5D87C3C93000B1985C0813C18018E71D89D4171BAE0B43AF08 26CF8246777C7B41ADC476A43DE5C6D110BAC539EC5E782A877DFBF0B0446E89 196A1EEE8AB7DA239F04A846BEB906269E5D16557BC5D23BAE68F90D6F0D3703 3F153192311359ABDA0C2BD4B2E1D99EDC330EEECA6C48B99C6289F001F727D4 CBE4D4EA2B109A7A8B1E693B6666949C0A35B997E26BEB386BADB29D2BE02F49 C748FD471D22B4A93F803ADFF7247462EB1230663D6BA458D4ED69EB5647B735 DE89DF1B0B87161C6454A21261C63BC836F0A680F074EAF24428975055E52F31 2432499FAA9345F411AC79163D4EF781FC091E81BADC827F48B4D27908249D65 31D6F6E6C128A31DBF93F0C138DDB3139FBFB5C3BDBEED582004F1D8EE2DFA52 5AECB074E36C8AC527A35CE7E86C5CA0C65AB333B00DE5D0CFC2C65E3E3C1C4B 94092289650D2C86655CD114A80E5CECB332CF89F8C3A8E5E1164C9144CB3652 2703FC30E9CFC9CA296DDC71D0837381567C513BAA3E6F04F846A4A07BD85FB7 2713DBE355CFCF6A19FEF7DE59EC099F733F26DFD97988C0483B8E3EF46BB4CB 8B016B3FB4BABC9CA1D6BCB6AA9D1251E09722DE5BEBF43CA37A12B2E15F42E6 804F5760DED4EAEFC508688C58F99A56D644731F7FDE76E9E50E17C3EAC78CD8 54B9C42BEAD3504EE1DCC2CF835C2145D705709EC490E7FF73120542EA2568BF 98A6DE850764B3B2AD05D27C9B757A94E4DC5713DFA5E0798E585FD6F2EDBFAA 10458D76B799EF5A0BAE69A4B2A8ADAD7709468469081361EF48FD5B92DF790B F49E0C892BDF78FB04D379570CCBDC10727353A587265129ED9D1DD2BF5F582C 3A48634078D0CFE7A06AC728C2EE81CF8F9332B760ADBC5186E1311C9C58F40F 6CDE07C89B0BB15ACB9D80896534007C97F5A19B05FB2DB7C2708E44E3360FAA 9D9D44C543CE6CDF5DE6EBD06B83EB3807BD59B4C9D85D71227B31D3C401909F FC3F3564B64981C5F16CD8186E90D64834E2E0EC38C1371F15D8BE6BEE464963 2D7F6F2320FAC645EDFF39B1286E5D01BDC65F3845F5CFA7E72E8D0340B2DC7D 7CC443061881EC5C5C88D7DCB1B9235AA16D6CD27834D9D683FC14C243DF2F7E A5E41CD06C23CB63FDBFA9E51948B653A4AEE04684DE67D56D07B3CAA1B8AE06 FF2823583E293436A225F66CDDB207644BAADEE29D37C4148187C420EEE06DE7 7E342100C5354073A1E004E6BED37A5689BC3AA7DF72150133686106C9244F75 21AC7344D302F4731FA67163C5B4E120962C500896E3D9245575B3BBD298A8F4 913EDD121F81630623BFAC298B4632994A5590FC09F62813D08A7D872062AC54 98AE044F63BC723FE8C63F9CB85577512475B993EFB596800186C06814A8CA21 BBB24B036F11F20E1EFE376B37EA9B66B6F7AC8609717924A6BA41034432B5E3 30AD2D983D043975087B20AD0B4F5A47A5363DBA9EA0EBEE15DE8B8C70E6326F E5EFB3984235E3603198F47FC3EFFA2DAD55FE041CD1CE6AE868AC404CF2F30F F1ACD32D80B9FCC0E740A9F839C8510C960029EC6371C753709CE9345DE522B4 627B674B811BFF5C87C0C5E30D67D79F538634EEF10C25748612D75A992D6D75 810D85B6E2B88787F7BAC429CBC91D2188EB29756542B5AA646568969582DAB6 14FDC4B888603931CD3936A23EB93F4027E602F1A84993CBF0430590499014DE 27753E2CC77B309849598DBC85F6F452745EFA6C7E4349C40BC4B19015AF2806 A8A515B48341DED680091672FD62E739C79C92B05CB4E6DC2DA208EFEEC25A16 0E92C034CBD87E3F23161F44A1CDE094230CF79F835C1581E1C45CB22B5B2505 B3C3A9161F68FCAC507C363B168E9F3967A8C31BB7174C3FC86DB936FC76DB26 62EA7CD0FA7F86B6DF81E5B93F4976FA5571F9B5149F59418A495FD849150BFA F052F087377044B1C0D3E8FFB2A6A53BF4706D6F2F34EEE7A4B52816EC199401 FF961C4A20C85036D1492B9320898D8CA4455082A2E41DFA28AA923EF2A4FCAD 30C9576C1FF3EBD2C3BA08E43A136B3273ECE074E5308C207538C8630BA93BA5 9B5C42F0C1D47FBDA749080A21CB21E981D0B0699BFADD2C8B58931106D8F9A6 1B898811705CD900684A94B0852BBBB94038B52C1DDC663699F59D53573A8C89 3BB97D77EBC9F501F95F35BCAEDB615745F48EA8EC58A6A211A276F813469904 235C1C2D85DE7B40A0DFE35B81837721EAF356C977675EB3A352CAA4E9556642 338B6151B4B97F5E40C2AA00B62E69110CEEAE6E650AD6185CC30E52948D76F8 92A2D0AC1A25D34A8DBED3CF1FCF867D8A944819CBF19D36C1109AD4E45BFE98 3012BB428CEA38FCBBD9B971FD249C882368A9710337A2D6D534FD573215D38C 6AAA7479EB97546AFA7732937CCA75A5375320E9EFB432AA209F4D8EB4CDE643 0600D97FD8B0E8525C0698DF9984BCD31F5FCC7323BC190C2C866CC956638B5F B5C35C2306DAC38E1AAA211E89291A7F82124F41BE3C34AC97C66C21F406FB77 C906BA4DDC21E71D27D3335C86B001281033CCE4D812E1D37AC4ACC86613C1DE D9F3D88CEB22ED95351AC4351EEFF143C17D819C78E70AA1BE0CF04F56715884 7A557527CB9A91A5CFD4455E269F19F9E687B78640DE6930DF836DABE92436FF 2B94CB10AAF7AF0A4B13C3A747D4FD52EDB65BAE52FC0F3DBC73E7A1C2386E04 0702DA7953536B1EF90E60CD4F10A770128BE2BC30AA701AF2E0FA6B55B7BDF7 5094BFADB1DBA8570C0B2473F20BF05A21284CEA5AE2F172BFEFCDDC126A811A 70092D0F05F0109431B4DD38AAABC0BD3C2EF5F35851CA50228BCE710F80E746 F121A799A165D02ED7A9621302C3062A2E6B678B5C23317465AA7E4FD7D0AF0F E09715A8DAD35B4754B70C63814DE0E3E4F8BA261B43B390ED58DD475E710FF2 E9A384B71ED8F591DBF27944DC855FCC921B03E3FEADE71958B056020FAAC7C7 8A97D40196B5BB86C5DD0EC16E83EE262D9847F948945BDAD9A8C777B47A7853 106A409C4A5FF7FAA57CAD348309467718C33A97F729F8C96E78AB21665311F5 6116C7D0628A85C4FD4DE5C63A362277D014F378F4B2547A7E0E64801B0D2216 46559206617FFA33302E131D091229D55D1017F27E6F9DC1F2F66E2067D83692 F9E18E8D6D8D15D9CC31B403E9C434C1FB09C7B22456666DCFB8CD0D8EB3BCD8 7685D7FCD83F3D8A03211F5BAFFDC9F182630D97EC2C360104B0F90EF4450AD5 73B44D9A3AADB56A430A0F95688BD1D18153B61C0701EFB2E9E4644FC4091B21 1340894AE0A1CDC533106AA5ED80276279EC5D5BAEDE754261A6FB43F0B4A85E 5139DC00BA4052499A337131958364E7F495F03AD8D6D07432EC3DF67E9EB15F A1F8C70991CE9CB82969B4500E13F7CCBF90A85D2E453C1E07B921F426132783 984FBA0C7E45C057CB4AA72ECD07070C874D67F5999B004CEADF3E1D186E8476 0C9138C91958FE3ABD878A80EE2B5C8A0DB0EA0084F245EC22481304870F0724 B07D662CD431A21CC48895D13068558B7FCFEB617BFF281BD5CE7EB461BD056E 6E15093FBEF35947B036D45632EA3EE4D576CEF463F26E5704887859CB55B8B7 0F88CF38067456BEEE0F53517BBFB2CC839AEBFB9F1EB6DE54B1923DA2C0B31B 914B6A03585D58A4A942A2F700A9FC7BE986C6922B5F4E387963C563B765D0A0 9BF70AF59CB2E7D4C224B67245117C9103EC86EBF92D61EA25BBA8D580B3E2EB 64FDDC2E1C934EE92388134920D3BF187695B9223AAAA5ED82C66AAE87457951 6E62D0887FBCD0FB88F94F1EEFCCD27DBDED4CA12550CE57B6B00D0208124392 67C4670C017E89232A1A7D550334AD4D9CCAFB139579B0AA24FCA198C63762F9 5CDF3CBBABC3466EA69B40E15F7B5D4D9619AFAC74E790D031CE826AAE46F83C D0F3D3E9EC713CF2D0797CC67444A22D336CA7C9822D105C3A9F463C7ABECD77 2A1B9A9CB8C18283E6C2BF9F3AFAB9BB630249D538E4118AE06324C7A335567E 971C5B17C2378E31CA4D71B7F8E02423B774037A99DC18C0945509896E37EF9A A2321A422A32C6B8B7CAF9E2C54BE1D589C0E4AD2CFF064547C00C2FAE4493C8 73D4E09BDA0A856433787CF570FA2701D94A492C77F87B646350D62099258E82 86BA9F871F4118C647ACE9C49DCCB7FB7A7EBC8407A8F05175C4C785DE1CE17C E890EE15434E74BEA08E63C860EB4A9EEA6B89AFB7EC9FBBFFB7544826E86934 E26921782250A1CE1D70CAFEFDD8709F48112D4AF7F0EE61D8B66FDD1C3BD4B9 93689AB029DF47FA2C945208316C06B532714BAD5CBDB0DFDD3618AB397D59C2 3926A6A7E8D10E6EA4EC08B9B60998A4C96ACD8A4C697213AF3FAB44F4D8092A BD0F075773C5A91ABC810529D06C37263A04FADA596094F100F17D7B8B12B667 ECE13589FAC418E647D422C879F801DB19F70BDEBED41850255E9676B3A78CBC B3419BCA3193954712BED5DB0CEC28F4A18818ED0810E551F0D1365B53321D7D 9FD9888AFD9A4233B80814C07DC75BFBF05DA7C89AA59AD9E5FE60092F422D65 D2A655A1A3AF3E7F25DB5878E56783D25D4874CF0426B42C58E0D5A187CA4864 0F530C2120580DFAE8EF6E48BD32D2144B34AFEFA5387FB5B90D650D20298D79 313F294473E33135818F5E0E9EC1A614C622AF3009269151F752023552B4377A 181255300CAB473F21D93ED789B3AF821ED149C9909DEA4FD9C4C0A27E4C1A34 3E5C25467B8504DBD7EB4C79F56FA7CE2A422D0F0F957BD88D65B8D22AB04A72 4D6496E20759DE8EC0A71ED8B664F204DC60C474131C4AD581D18F6F94B74190 616923F0C0434A060CDD501B215E0C2070DE08215683D640B5A78BEBF75C274E EC0AF36C1BC7B99C46C967C42E2D7A9C73820DE61248FE10A4FAB74EC7009C5E ABE4B180891EAB9BE28FB2397D9209B60F14BD7E93150A2DB3BE478ECA93BD59 DFD0359D3BA2ED4072990575AB50DC8CAAF71CBF5F9B4B5CF8B05B5B268BA3C1 2EFD807A383E788F3935EFBBAF57A0F25F104D17EB8EE84AD9A4144CF3E2EFD5 B79290CC49D412F04AFE06E93B49009671D824BF6F0E4C7DA5743CBF9E71F79B CB4A193BAB389CE72BE22B94C8876399CAC9975DCA8FA6DD644FDD6E05A00493 087B460C642E699655B1E10B66A0CCDAC56DB6C847CF0743E39745F19709D6CC E905C4F246059F1D534D5A634BEAD425EF4D890BA1966604008B6849D27A1A0F F5696A084E6BDDCD0A18942D61A5B1AA67E3837B9DA3660AACD877599E97DFCB 4555EEFF7712822226402ED297DFFEC1BD3936ECFD7F51EC3A5D2BFA9B4A7AA6 FCE0237CF964C195B3C8E26A091AF1459064E19239D2E42C54F6B5FBA878D7D8 B0675981A56FA09259D2A88801F86907E1085AB393746FD3E01D4EA21B16CF3D 35878EE06D43EA593AE66599549476F7D826882D61EE5DB8E9765BDC810C2E91 B1DFD3DA99FCC0D6BFE398C9C34E74DDF7A6E96F92C6A29165F7E5059DE6A112 0B34383E38EF22E83F794E12FCBA87B6E66A0AA7E8000BBAE9188907CF8535C3 12C9A1E76B39C495CEB7C668BB2EF757E2FF248AD42343FEB8B35B6FB3C20B15 3E97D30A4C0A61175730EB4DBBC8B6F1318792AAB40A76077D78AD383692A43A 736AC1D00F294DC1412B19106D4B0FBF7D3153796791A992FEF205201C92FA21 A7D44646528C426C3892B06C92A8A439A856DACF76BA851BE8EFF31BD9ED8E70 45E51904B02972EF81896905C26148D738E8D1AEF3B8109EF7F8C38AA6C71AD2 3A2513697828F653BF3712B0F46ABD7C8935E7DA51FABA3C2D44D51FBB81FA99 389EC219012DDAFB931208C86DF8E7EDDC21714D304DABE2D49C2CBE928D2E3C 39068380DFC5F5AF7AC5860E0242C476944C4E9C861A5271D64138B7EC0A254C 979EB4CCF4C23AFA50C9DC7EE63B604F437150E78EFA40ACDE7CA7B4B676C6B2 FFC04F8D452D2E67A1A65F6A66DF8B45D4C5EA6C475C6BBA356F7B97C51C98AB 4F46580F9E3379F7A0EDB93CCA3632B13E91297E6F0E0A7151D8395CD961DBA3 E7E6C22249FEB6CB25700CA34826F6CA72235F05262D303EF85DA13A488877FB B868332D7EBAAD17B1FD2A37B8A5CC16947045F462B45FC26E1315FD6D0BF1CE C3C191A077DC4C9CE6690A3053C252EBA2DABEFE7D2764F3859D49B7829D4F71 0A3D0307BE77D59306EDAFA85B26EB9D87F2811775ECE027CDDDBB84810C5AED AA7A09D0537D954F609F872CF41ECA6F7FF6DE23FCD0860D8AA438FDED0D90F6 A0D70EB674810C2D443E7DF907696A5BEDF76F7EFB06865F99FE3C652A5D7B41 1813A9CAE3DABFE0200B0A0A5E89B76623D16EACE6A1F3715A7C20E0A06C5361 015D9360FCD61D33FCB225B24CA1AA56B084701AD11A22292FEB08C615D08CF6 4824B253795D4A256A1FC29B99A61D8C72403611FE408B67678A8DBC6E9D1A02 EE14A1856E88D271F4365CE20FF960304FB5988534ABE6BA836830C30D6B7DFA FC9DB912AAF1FB0495A41F27E1C30916CF7C114B592556A1DE98F4472408D456 DC71C9C31E2839DCF18C97729AB2B5F1D0491BCBE6F8920A41CBC436C8E761E2 959F19F200E443B8B4DB9E59DA925389FA2D5A98F4DF9ABDD5B4E17986FB4CB2 D2A4C61292DFE569CF4957A9159BFEA786919435E38DA174A8AFD60D75538822 B689F96E3FEA51EFB0E2C3F6149E54095A9FF34F5F02E4CE86F8FC05505247F6 A5A2E7E57E49F2E124800E9F9903203FF5061589530F2138FD155BA7359FF462 729BC52112E16D2D769F0BB03CBC581C70BA1A882866D6D323221EC48CCE6069 9CF61B26E05328F40D55D45782B81DC8F1BB8E902F61ABDE6EC924060588B887 C2CA9C84A84C1CEA67AB4285DA31BBC7C8171EAA99057B84811801D55698E3D6 EC6F0E04D5B23258E9654344974108FF1EC646F08FEF80BA000CBBD791AD3E7C 0C7F65CDA0D6B03656E373484CD1C054CD8B482F3E769BEF6BAC9BAAA153AE9B DE65EE7FF5386C79DA64CA764B9897A04BFB88277955505048FA4C8EDB1BCA10 AD02ABB6357F0AEB9CB8830FE430B7235541E3F8F339855579A6D15B50F96C21 2673D7A418924199BE2D6BE930596CA28593458844FF56E711DA2EAB32947F82 9801EAD6DBA00FEB4D629D609EC81712E4EF53916048D27E0D99FC7F43F394C9 D063A9F547E5AB560D7798851581D081D6263E51CC3239AFB836167D9B96FB48 76D2B90A7BDB5B482CEDA3C8690501007006E95FB985F3D24C409009B86F081D 2B75AE02919DCF548322EBD7050C44896CA1D37DD770E988E46E76510CEDCA9D 235886C4EE1A494BCE078C8ED3E7DF14F8BB55FE750167009B82AD40 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 cleartomark %%EndFont %%BeginFont: NimbusRomNo9L-ReguItal %!PS-AdobeFont-1.0: NimbusRomNo9L-ReguItal 1.05 %%CreationDate: Wed Dec 22 1999 % Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development % (URW)++,Copyright 1999 by (URW)++ Design & Development % See the file COPYING (GNU General Public License) for license conditions. % As a special exception, permission is granted to include this font % program in a Postscript or PDF file that consists of a document that % contains text to be displayed or printed using this font, regardless % of the conditions or license applying to the document itself. 12 dict begin /FontInfo 10 dict dup begin /version (1.05) readonly def /Notice ((URW)++,Copyright 1999 by (URW)++ Design & Development. See the file COPYING (GNU General Public License) for license conditions. As a special exception, permission is granted to include this font program in a Postscript or PDF file that consists of a document that contains text to be displayed or printed using this font, regardless of the conditions or license applying to the document itself.) readonly def /Copyright (Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development) readonly def /FullName (Nimbus Roman No9 L Regular Italic) readonly def /FamilyName (Nimbus Roman No9 L) readonly def /Weight (Regular) readonly def /ItalicAngle -15.5 def /isFixedPitch false def /UnderlinePosition -100 def /UnderlineThickness 50 def end readonly def /FontName /NimbusRomNo9L-ReguItal def /PaintType 0 def /WMode 0 def /FontBBox {-169 -270 1010 924} readonly def /FontType 1 def /FontMatrix [0.001 0.0 0.0 0.001 0.0 0.0] readonly def /Encoding StandardEncoding def currentdict end currentfile eexec D9D66F633B846A989B9974B0179FC6CC445BC2C03103C68570A7B354A4A280AE 6FBF7F9888E039AB60FCAF852EB4CE3AFEB979D5EA70FDE44A2AE5C8C0166C27 BF9665EEA11C7D2329C1A211DD26BB372BE5822F5EA70D99EB578C7BEFD44CDF 045A363056E5E1CC51525EA6FC061DCEBB337208EFF729802376A2801424F670 0E7E6397B28F15BC10B40012B0A3EAEB2693E8F7F627C4C9C7C6C5BFF105C1E4 1B2B9E8F09253B76040D268B80719E1B3F5A55AB7B8E134D4CB5ABCED39AC635 DA001E9934C198A7F9B9ED0028A85E9AE00421DFD8EAA3BB3B4B4CE45D209303 237BD51809FE4D880900B1EEB236ACA87B9FF6EBE6B994A60AF5D67CCC42BD56 77295C346EB4C62BDC1EF22EE07DAAD928DFB73455F091F32408ED6430B97417 683AF27A03718A156E3F6E7B6E4F2E8177503CD82DDBF4557A3CCFF4C858AE7A F7EFED6CC521A28342436B953E4650B5792BE85EA2F989EB6D986905A61FA38B 96E1BBC830B74469150FB0B598A794FD80D10870084A877273A9502C3456E5EF 74350E6E3BE5863E8BA185EB59FB87B36566AF71200B6ED389D1287D4E925E33 B2383ED05D87D48586E698FBC5D562ED9D8A09EC3EAA1B1F300224AF20C23F26 A2EADC74562571DA84B3914D1D80B127C6FF4706C7046BBB372A0013E0AB94F0 C27946583871D272BF4F20FA84E89D745DE7BBA885CC09BA72E0F530ED4EF7D1 864B3C67007ED98800284235372F0A70C912E21E851AFBF812165B8DF912CD1A 013E271F0B347967876C68AE4C4107EF8AD1F170916210034C66394A9D971B68 FBFC1131E37FC178EB97C1B2A0F573ADD9D7C0BF944E6529734DF8A7EF54485B A3375CC30E9E328943733CBD352BC15B06C85BFB4A96994291C72A0EAE84FB01 0F1B24D0125FB8C16D60561DF8BB7AA7DDFE9549AFB70C1E89424214609FDE41 9A142892E30F02754FD234CEB3C59A2A04C06BAB7AE40E8FDEC50559B8347684 391C750987802D5452C47C1E0B5F222DE9A0EEAFEE19D796FF375A1E1EF0AEED 1BCAC4F485FCAEE18AEC585D1A9D80F41871DDA45FEF1EAE82C5893118987BEB 4D9E345C27C7419FE65E4853B40537D822E34FF1E0BD2819D21EF607981259E8 9F1040A2D708D7463858AA5381759AC49DF4DDDEB209A278FE60BD2508ACA0F4 6A249A05B652E4C7BF1B676943CDC463BC49115864B5B5A6569C59D057CF2A8C FD282B79BC3FA1308A61476AFF58D91BFD63D1BABC326C4FB78A42CA08478425 E8038116DCD68406DCCA2F5A85858019428DC1DA7A7F42131319C2B08B6B93C3 64413BF65B6D8554C69AF4C1D98BA42AA91660B2AE57BAD964F6AE9BD13DC93F 44DC05BF90F7E1C05C954ACAC42A93DCAB215675B1C7894E2A0D724B606E9DA8 F016953104BF247B66A7BB05C64AD7636D951338BD379956280919E1F6CCAE67 34BEAB789A232E1082DEA0383E98A6F55D8C71CEA9D1554E7A796586577CFA8E 0A1567CA0F3C0A445EC1752A47E705F4EEA6268E2323E3C3369D97355E3B32C3 3CCB9F39E828B8B8317E4E50F94EFED6873046F14E850D30BCFD2B6A49A29126 CABDEB8551410ABFC1BAD9D79E03CAE74D67249247577F67F6E02B76C71D6809 A3ADEC3800693DF0FC7EFEBB1BFA166A088B8F232012896F122727523E1AD51E E1D8B35EC2E6B2BB0314FD0E2835FB97FF4BC59F9E64756B4B5F2119B20D5BCF AB27289A93B316981EAC33605FFF98C7D011DAF6ED1AE0ECE6A43A7A29E27903 3C4AAC3E18B02E195E87257DEB8A1F6489CA0115898F910F38FD25CE03F740C9 69FCD8FC6085A66D841ADED0348EF0A843D0F05CE3F579148DC11183ADE03A18 83B216F1DA8BD7F20B32D5A200D311AD5B70D8D7A6DF940E23FDF870E2858CDB C2A33039814B0C5363F0ADB027A201E35FB4C9C631CF85C30F422B9F568B9ED2 25D9D69B6581864E351CA800EF635224885516C2A291A8A4132F4D2503B8C48A 50FA52CA3C85E11C1DC9E4C2143267370E240E581EEEDD6C8F062E85A8523B5B 3511CB2A4472AD2F31CC926B1958BEAB365EBCFD4E115498E2DC2DF2B4188BB2 9A5658D4C194A0990EBA589A7478D96BF1C37B5E81CC928D77CA54740EEA5E26 E4651F258EAE949DFF86E8DB2DF54D851AA72052511AF53DAF63F92AFED25998 FA67CBDFFD53A6555556089ADAB4DAF9B826BC53D97B40BBC552DE312337BE64 2A4FE8EDB821A8890E798B779352BF6848399710E25E104FDEDDCDB96DAAF34E 4E28E12C1F5928573B5E896EDA20A07AE6DDE6A36925BF28F77EF5B1E1D63D50 84032D2791A7306FC46D0D85E85E3E1A4348B76A2C31464B1A1C2079DDFB5552 4A28D6A826D6A9A1D45D110BF4173BE2C934C892C84B3E7A868AF976A2BE72F6 3AB655ED639EDA5CDC9D6A92E4F621DD8D2A012DDAF61C232D074BF3BE08E129 244B19C42AC80035D6B0129745977065D16F01B343AB4347CF24113CB5F145D0 1D5669473E51EC2560FE7FCDB9B6D54476BFDFB2CCE4DC60424C76B6ED7D29EE 971C8624BD5A520AFB638BC3AB6509A977F098D2629B31201AC008AEA293D484 ABA495E1F51CB28A0C152EFFF2ED47D1810FDF108F20CC8C5DE8E72E7119EC4D 76D140E55D74201DD6A979C8BFABDDE279883CA2050B29932B9E68DEA83C3C4D 4D984326353072AE1ED9DDB08D73402CCB57F9E6F6AF13FB7261A0519295C8BD 48B7C694FD40F4FE0BBA82223313143111682831293C15178311FA4DC6B27A1A 5982211AAABBA90479824AE8941E924052C7D8502433ABC88926561D2E9C6A13 4689AC7172329F0BC20768A0635F43165D9DC390DEB3D46DE19C8FA3CE5B7D42 CCCB7A2DBD5BD92951D2646362F8D3B0A35E680C77160143EFC9D437D8314814 14FB95562259F40C2B9B9672EF624F471E841737BA09E5A57115CB7F137B7563 558D914BA2F05A23C50BAE3496E16296AB41489C6AE179DA4DD6F38FBB31369D B6EC09B9F2DBF95727D3F918BF76C0678BA0F99C075906A629E464C2AD42C5E7 33B7DA4AFFEB7FF4ECC8F4A346093002FBE7BE949439027BA84718FE4CCB36A7 FFB12F2C8EA319309708F0B3785F24917C5A99F4A3267710395969C1005B864A D5B7AB8DB5CF68910B2B13F86B20AA32FF16CBBA24591A36AE569C9B2376E263 F8E151753FE788764702103ACFC4D72880B5A5E1FE286EB9298471822FB70107 9E6AC0236500EE00260B500D14DCBF1EB1C95BBFFA540EE5710E884911F452C3 39E3FF455F34F89764223F7DC55BA669B8793F48CA8E9AAD13D61857519977DD 5BBD317B3402D11CD481B9C1C1461479D489B8F6CEABBD6962F9D2DA9E68A450 215028FCC896C4BBE6E0A7D10C0337BBFF636A3D34662AB1A2FECFD8B025C2CD 224195F91A18B8B8E0339E0ECFF4E95A64E1AF8D8885891E6C7ACA5E857BB86E 9E568CBA2EA4399DABA9599D2FF00CFEB5310A2B4958823C2E721E0DB97368BE 9BFB6005AC0A20E4A412D097D66BC3B35A05F4FBF9DCCA6B64EF42A2958CFEEB 4A91870F1CAF2D199FB9CEC382CA26548C24AD096915A7389F154DA22674E67E C8D1E01A62333164FAE75BF1D24FD29F46B77B8F6DCD110E893B0FDFD1B98D9C D06FD4C53BA603E3D84479E2D1CBECB8CB569B56B4A68DC5FA8B547F79F05DAD 44BE2C9CBEAE9F08701B4BFB04882B144CE287917256F3EE3E3CEFAEA6504AB5 9C090A7E6B936A1FD433B259E18CAFA2683B06B0C5B25DE38089E3CC843CE0CE DA9421AB550DB7F147B729C5964BEA151336168F51D9954B822CCEDCF05C67C7 D32C5E45E5D0CD32FD2ED126F6D23805CB9620828E487F66DCADDD0BC42B683B 5A663AE434FB32A00B2A97ED67346257B0F0E9B794586A9CD11CAC7C13E4FCE5 AB9393B051A76DA5C916E393DAEB1BD37C004E3626477E63CCAF4B15FE1D1358 01390BB7815F1C30DCD49C6560688B9D1AACB2ABDE7D53D7BF4302060F88E5B8 35A2C2A6B5F891E5E7770F4EB66F8D8A77B39CD15EF9236CD6469C9835616A83 91563DA191F3E27C9EEDBBA328ED5FC1C01B2514001202E84ABC526C5F3169F7 2484B53509736B02887C831985FD743BE535BD110302131C9DAB191FED4037C4 FCB0803869718BD527D782098E0174672BEA355C2273FC98BE95AF020AAE36B5 7C5244013011F7709271E26B5C3E7CAED86C85B5E190C5C8294E49F4B99D4FCC 569F78BD73D380C572E5087A5556397E485D176360C70A54DDFCF2DB6271406D DCFAFAD927AB0EE1D0349033D576AB2D8915340AE364B05486B6A112B3098A5D BDBDB15EB8EAD5E65C190E8DF3952352E1CC0E58454613A930D0C33371CA0771 78173DFE2AB48F0B6A204DF1BF22A1A88659364A6E1AFF36D5F090E60A1E7065 F1168D56A02E543C2F0F0B0FB7F4A285214DBBCBD19618AA81C5DDB7D589B843 320C4F7FC5ED74C375E94631406B963B85BB230DFEB984E46A35AB362D65C77F 144AB527A857BE897B97B6F8C156B3CF698C80ED4E37697A08083CE756F748E9 A5E7CC1F474B29BFD407DD1D67EFA7EBCCBEF0D084FEC346E548BF81A58F0699 05C6077787722AF91909CFE492A8F04196514FF36285FFDDB9EDF03CE8A55034 1863F652D7132FD0789D1568EE7AD5F4796856890E1F6D98298B3F8F9A54BF8C 9F4BD6C50BB626F47155F5DC30A2961663C6A1959C28F67F64AA534A2AF512C1 F2BC5BEE9F21801514B5639CC4A9200AC342D2CD79E14C39DA6BE2D421829415 6CD7903C1C42E115E9C5203037C808BD295191A13E7E710108A7D53A4021CFFA 25B6D7FBB581F15A4090C99D86095BE64A36FA8733362A8D4A22738795376ABD 3D815E7369EBCB3C06B404819E48BF00F1A053FD2B4117D6C8BD31464EC731C9 2266A97DC3A56893D282665B4A9A9E06210DC568582584C21E0F14BF83FB844F 62D48618611F1FAE737BD2925C54BCD4A8BC5E3024F6F57B13A373A9E056241D 2E1B6F06A53C10DE7D78BD53B6100A15BA246767715C55F5EF74DC514FD192BC BF2E50E9F34B9325926CE9FE0129A6E2AA2B10862DC81816A84B5A0E61B4A9E4 D186EAFF8C66B2ED68FD17FDFEA03D4E0C9321AE22E720CC131F067BE82B7A77 48348387F888B5F6C016AA5A725C016187FBAB148AA2436D4AC8CFD3BEBB28DF FCF9EA12E640C17180DDE8F6871DA0C352A187EE47DFD6EE7925AC3E65418DB2 9D111F34568A63CF15CF82E391118667B4B564168A233A3383B490E30CB1712F 69A8CFDE8C8118C8DCCA925EE70CEC5EB14309A7F89713517058816E0BFD46E3 DCC397D3C25185376725F2251B04C3F39F94338ACE2FC6DACCDE2FFE2D0E7EC4 03FE3558E431CB20A2EA4BD5D79CF87BF6B5DA64D15164FEE55A96EEC5148593 5FD3FA9DEB375F42C96269169A35F545E430C697DF01C1F094DECCDD9F43AAB8 8640D0E9347A6382A49CB88706982B6687B8E51E12F0AD378B858C3FE410DDF4 CC88CFB52D075E2DD5A9A5121F9FD0A104652022022F51EF63B2D374A4906DCB 43730DB05E1A3C7203EDE66E6557E7BDBDBF3332E19DBF11EB708A15247FADD3 10C58FC911D294EE7E91E86684176105AB4F96BFAA2C8A8C89D44EAEA1A45BB6 EC900FE3F13778462E0B1CFF4690692DDBE68A92CAFAA72A6E48F0E31D8D407B F78624E191DBC2C225A3D3AF1E9F3D5D551C1BDE7D5E9A26CC8D7CCE79CA02A2 23ACAFC3D6000E2F1A2F16C98F3F6F29CB97659382B803AFED668E1A6ABEEB38 9E2DF0DF373FE5AD1F7D9D6AEAE9DA0EB2D0645E92A9B2106C8A8F1512C407DE 6B0BD906D936C579733D7270243C367AFBB76001E331C66FF748308BAE99AE06 106D90DE65FFC15685F8CF64A9C1CCBF297B75E73D446B75AE88E8F8F6783823 A960173E97FD27ED414AA9861BFED00D15B184B024738B7B93D0E73F8A48963C 704551FE062BF32A45C9103D25178B8623CF09A04FE9B3C0969AEDFD204E6C2F 8F599D48A7CF5253E65B70D4FD7F1C3871FC762BA667678CAB1DB0AFDCB4266A 94B9A48DA7DAF0561E56D09FA49FF5BD0A9CCF307F66A9E7CCDD17602B9DDA97 2CF72053ED0681C54829597F761909AAF09F2E35801FD76EB4956C28D804A74E 50AA5AE3CDB978DDBFA299B6FA47CC6B8539A81F67759C99AF012B908AACA1EE CAE6AF53B39E873407D8ECC2D0DB420BEEE48FA26E7F89CB3E76B883582FD986 BC2D96E6BD4E15F520450DD45CD828091AFFC55F6E3EA449BB6CA0AF8A510C59 E9B3594E689E73AFAA94F4E4BC090FF7203B6104C6EEBBD73068DE12D99D877A 7D066C777003B3BE938552007277960F522846300E8E87817070C74704415FB2 EE425A8DE4DF54D9F7801BCD203929C560C9077487939113249A93206D26343D 2AC31FE8B4774C284634F6C5848991DF7EA786A0596EA4DC7695CA533A0D3EF8 C8A2ED8D824612697BFE92941B44F2F70207F7B9817C88AA1294E63927F4DF7D 46D0971CC6FF84A1022E7551B91C07B4CA672C8A76BD7CAD08FE3944B94E4123 F330E87EE1DF050E94B96E0E04583E1121EAB25C87FAFE044CE17F72625960EF 2FA838FD99F3B8D0E180C8257A3ACC11A9F969BA8DD19019C07E9AAA8A9485DF 546FBC914A6FF849A8C8ABB60FAF8B43F94093DADB321A8012DE4D70018997A4 1EA3EE33ED47F4800D63FA9D0741AF0FF63C73BA0026FB8C07C924BEC0F27A24 C655404E9132A180D9EB0F44FA864C672D1D055CDB9AA959E2A7E4D1D7987281 3F4804B2950477F7722B9B4B62441A03AD99788F2DC93200C869DDC5AAE04253 AC240F7A64999F24219B76E8C2D9A6DA78FB9237FE0F5DABB6BF0AC69A91F258 E0650F515E9047932A1815954268AB12E0E256FA1A3BD35F4CE9F2E18D9A45A9 73757BC16C3585A3A247EC1FAEFAC35F51CD9CB3A940BC1EB554F85ECDE5A52A 19C3EBFF13D55AE496CA8E5304CD4E7AB11D7D34C8C8EE1CF346EC9872A0DF8D CA866FFE5630F8109E9C4CDAF0060A4AC7BAA99CB88706982B668748F740CC5A 06086C1C6800D1CE621B663082558C6DB0691E736851AEBB3A3A494B408429B6 ACC11FA69DDC5020CC79551F8C09D64FD8C2BA15DC87A026B5E7898A225588DD 66C14E593B7ED0048399746ED9391BD634029BC135C5A03C48D0CA77F48AC057 918A1EC24BA7CCBC49B4FD5BA3773D174DC13DFBEEA6C2575C96D0F45C4AD42F B4BF48183E7F7855E0C91DE7D3053F58B9C17ABE36DEE46699942C47EFBA39B6 DCAA65BBC62A69D1921289AA6808C9491823700E3130F3DF4045C9D8D0D70464 A4FE51A3EC0BCE19D9F8CA7138B538881AEED7EEE8536624CFFCD115DBD4D5A2 BF66A01520B0913BA440F9951AC6A399FB5D05EC0A62C71480A003D5666FEC7E D9E9CF49B37550398E2A60F51FF11037F4A4CD704E8EAFC757116FE3012E01AE BF584B1386D6F9E2676A7EF904B019D3B6AD98F74FD037431CBCF8048578D3C5 BA050BE03BCACE325F78FC232393D8A6A5B2C8336C331F091A85796A09D36E28 3977058032B8A905FABBEC189852EB39E2A25A7366BEC1FBFF16F0E7C18DEB36 BEFE56D8E991F9A84AC8F798008EED3D90C0FED41A102EA32F2ECD51AF4FC9B2 DA0D36D0C95DE0D68348BEFF9046B422EE8DEFEB66CABA6FB3A5511617D2F64E EF3C8B5BEFD9F942BAF7B3FDBF13623A9BC5E3D95C697BC0FB55CD42935F7495 6D7C9B33DFEA7DB0B2C2A71B2C955DEB09DE6CD69EFF58A2B6AD45C7B68BF53B 487900CE67B4FB7AB83E9E9CCDEC204F0346F6751AC2366302A4276ED50E2EA5 2D5BD2F0B2A9394D448E6BED62546F63725FE52CE02CB727B8B6F0158ADF3F1A F361DCC9970506D4A705F28794A01C38370607FA692892C9606BBB3B10F2985E 7FFEA35EF2566F4ACC3D7509167A95A3DEC24255692985D5555339DB6A4030CB FBDC44B3DAC100BF755A6E2424F9515A8391F042D2C46592CF9C831F7350B592 777B532858D2576083483025EDD19F2252EF370A345F0CFBEFD34D1E00EA2D40 4B41ECB52F3680F7F4ADA8F7DB9DE877BC6F7ADBE007B490F32A22DFCF6ABF27 3DA8A507A47CA5910DC9F1E79E4A8B750A7C0B3985DEC4ED584E2FCF9EC18AF2 E6BD97A7BE39BD9D280441616D979DD0E579887716F94563768083B58BB3131B C68CBAE26C0D2A251A80CD2662D13998A40BC77F52EB86D0880AA072BAF6AFA1 B1020B7336A84688E6029FA2CA010132C8E6978CA6F61365D1AA5BCF22F7E25E A1766B5B2800215616FC958B62CA3AABB13C8EF8EE35119C43CD7FE068E1F016 AADC734D4331754CF132253C51B9E6E27E63511004A58EFD38E70467329F35F4 DAB0438C65E5A1EBF76A46457B72DE6D987A95FC1F275B93C6107A0235BE1A84 845B61318A6B5EF4B50FBDD394C1383345B7B77FE29857333D5E0395B693A361 3C4FF5695EDA0501EF10B4F529FD7FF523C5AA09C5684C9A36F02597981A6F35 B95B2BBFE84844CB13A2F9C1A302C2E6E745A40A8E2C7EF6E362E6A3AFDFDB29 6E7BD01C8626CD726F6028288B8CFB9D59D680099EF8CEB0036F32186AF94831 A8C5FC31C99BB21163E68BDD4B8FE6BF62D669E86BB5B788713FB800179B55ED 87C36251D3F143653D304E42C2035536E8F7DDB680E2ED38F562260792EC1857 4F6E4B7F960B4A8B758544FA345F7E6EB57D05098A5FE552196E0315F306643F 0B743A6867E7C10A7C6B02D2743443CC9A8D466EDF09418B092F9F3F41197F5B 5320DB4E6C7F0CD2E7371CF447A5514ED43B584552F8C3CBA41712B3400CB0CA D145B131BA218DD8FBFDA06EAF929FA58727C484D54FA1913D547F6391DD7D53 DD213C46FFE5B407A8B2BC3DDB9886C41F280544669E9C2CA6447D4605D4E7DF 1B27AA1219ADBE3F9F03D03FB3BFCDF00DC63C94DC21019815DD1C983252E3CF D08F90D318B37206F1D4DCF61C6F87D414EF9C984203D8EFEF43374E288DC93D A75C38A76C2B1F015C7400C5AC4CE9C669856108F8E19EF7608F1C64CF1E6731 90AD0D6AA2E65929B73C90F182B995485CE83DD18FE592999BB3341656791C3D 210024633A4A82BD9287138C90254DD72FA2B950A6C5A6BE16495E83D036F21F D58983504BCC5FB6F94E1041E781800FA951F4CB93EBA873FEEA1662BABB1810 4D2D95881E547A1CE5B5BA62525CC2BB9AB02724484E52781CC0F813B3E7C2CD 6CD6DE9A76273DFD507B0641094FC4E874F5F49501F0AA9662966CA2B53DB31F 0659A977CA2FE119A16AA83EC6DAA18077DED5083960B6025062104B9D3B0649 0D121672BFD1848F08882B4621C9D919BBC0744F9AD653462B57E2736DCADBEE 9CAC7E77D79B2EFB13CC5A7746F0F3238CC1C1CF3FBFF392EF05F098DC7ABF4A FA8323B32617FE55A71730BED2715762D2B8968CDCAD0844036C6DF20AEB4FD4 38D68E9954F52FDA3750A38285A809922ED2DE5D74315D1543E95068F1A003A2 158EF16F7DD73DF94BCDCF2017B97315F040F4D3926484BAF4124ED0482DF362 59E12AE0D2E0BF6B1F2BF09C3A2210D7556A3F0D990504AB48A6C0E12F91A451 09D0EF9BB551C297FDE18B8377198EF19D0A800C8974E38C0F9FE79816B88D87 2A9694387BC6A7A58ADB6893DB7A96133B2E41002B7260CA0650358E5BCD423E 5EF9C3ED577FFA2E54B6B8DD9BA1939D7E997D0D9378BED8584DA8E8168D92A3 EEC37D004E654DF94DFE8ED53930F9966460173E0E631730E7FA761973987D73 AC6025034301FBF1EECBDB9E18BB30F087281DDC5DFB1AC311C765A7E386B4AD 6FF1742408DF23991798020E839E49B4F0D65D541269CD34AB86EF31F3E184F7 D01924B1AB8254134A704AD95D6BF11FF9D621C597D5A5D3BF3363406C943BB8 88DC353014D70921972509FFEC2DFEA930B758336AD62DAA7E253D6D50D8A7B4 53A4A15E8B8137495F25DBBEDCF736BD4B8AC85C7E817DBABA0E78F36954E992 2286067B7592EDDE2F6F2B8DBE85E4FFBD1208E5F29EE4BC9F76D90605D937E1 5529BFC43EA631B1A410AEFEEB515FAC324494896CAB73A2F2ACED52AF9D0667 94BEAF0EB7F5533E39C9823D47156B6B2D1A5498CF12C6BE50F14FFF4452CDFF E48DD5E718E97B1EDBE1ADBC9045F1C245A7EEB0F24FB66D9D364D8179ED0941 E8272CEE410ABF0851182D448224D6F882E4B8EB605255528B539F142567DBAE 8A337E58B4496C07D648D96EB319FD3AC12D9E0514C1F331C13E70B883AB097A F61474C60C7DC37C9BD1232E01AD2E972E4FA0B313994F5F51AFF99301DF539E 238E3059F7C5713A9F09D07F3E71BB0D11742D286485B9E53B9BDEF27BC2D409 DDD214356F2F45DBAEB9560610E8BC8794666459CE09D51544E38F98AAF6C37C B0DBE9499869CEF394B28F615A5F82E9D4AC9B5424312755C4B74383FD094BBB 2486546C037EC5139AE5F97CC27F2840FA366F1E2283CAA01EBF40FA8A4A7B83 20210619F4FA4CB8003758487C80073BBCAA723296E000463F8247E55F8E9CAB 0E678575600689E964FAFD82E425B65D3F8D5CE7C2A9F04C4E8765096A39E621 0AC25E07669C5BB03EFD1554FB810511A1B29222D619822D08CF5ACC9DDC68D8 9F32A2ECD19C4204D8C4369AB7F74A9A68EE853A35D512BF4CEDFAD42C62F53A A09B150479161D8B2F5FDCEA0020FDC7A51CF4442BC91FD47E1BA93B0C8B4BF4 C285A2D8EEC6E2A7B5B023F30BDA21AB8C8AD7F1F7F6455E4CBD4CEED62CF15D C7C36BCE4B2884FDD32972622A6C3147C3A450032AFE582388AEADBEBE941F39 B1C628E350E1C27BAEF83DB400A8340C9DD4C8766AA7A69AA7BC8AB2B8410C01 51D97D9B5F7FA4433AF445B08FAC37BF35DC83130423A84DE82B2C06EE776A4C 64991F18D9D7CF748F5423ADD67C16C224B505F8DCD234C4699BB084F049E32F A65CAA28B66BCCFC7855461372B4CF5400F4B7BCF0DDED0D2E03D0E0001285CC 46471BBEBD35B275F372BDBCD18A5909DF66C49523AB41242F1D916ED69D1B7F B6EDCF35F420175E17CD0741FD87972D92438937409FC21DD268D08DE0F7AFE5 9C922443FC26FF50A7BE430CF349242712010094DC211CB2CB94A27524A4C251 6A81623A6B79EF9890EF9F0C943861FEAA6E2EE8957F58F65494C9749AAFD4DC 3147EC63E3179574E6CCEE1FB1F67732C6A19444CA7C539201BEE064F7B85AA2 C769DA4EDD9F343645CE402700E4F6522AC928BB0867AA56FADF3E62F799A700 42EA7FD8C960D6B0A97BFF954666906CB153A58E3CFC8BCC391A6DB781683EFE E671F35592C3A28E1AFF05FC419AFEDCD976D4E5502D058BC848335E77799398 6DA3B6722B1B8DA03AB7A56C39CDAB0ACE131E97716DBA03B23D85CC8B701EAA 654C5EE74F40D1EC933E91A2E23D6B622779FC97D1C263411D2BB7F9B2928EB3 445FD18FABECF6253EFE917D154A48DB1BB6C9ED5A6F1362150C3524E59B0D53 3D10C6B7123EC9D0708FB42DE1184556CB3E2589878C471619BCE500F78A26A4 E3209CA6A5F41929D75D3B1EFE8A585E075227CFFB329F483B66FD0787D17722 826EC83CC42DC9991C1FBA0AFA48078866C7B64EEF7D730668026C32715F5B8F 87A8AD82DEE1B809035F4D7682D1A0AE125DF60CFF05C7454B82F991CDABFDDB 08E15D53E05E1BA56335E0765768AD37EE4DF66C62208AAFB953188F9C9B88B7 B5A19F8162E5D8454B7A1952F8731AEFEA2FDD6E298D3EF702D657FABE1CB502 F61FDFE9B08B5473DD51A322ADB72FBD8794B3F51A1B1101649E3ABAAE3472D6 E8D9BDCC1CA231B5538BCC09C1D9EE15C26F1F566BFFBE861D48AAC7C0A4EBF7 2DD47741E476DFF314B4595C18B7A24B0BC37E60159314BE576ED9D9502DB63A 323FCBA7403F4768DCBF9F6529F68E8EB6B7592D9A6218EC39A5FAEA6C38AB1A FA6D05527644560103EDAC6A60A32EB8924E2A7A8B42B07FB880AECC0227D67F 73018A4FFCEA6ED72D66C1CCFEE939D24196218BAA1BED5F4E64CD362D3E874E 2B22E67D6FC9C4BEE0CB9EC21CBB0A68F265F1BEE7A68A06BF1E84B1658B0FAF D6ADE912184B9E76666B84BC16451871BA99CE0AC4F62ACC090948D069F3991E 31C06BE4ED39315214C42F7D6D45D508F537A24B6A12306B898309728DCC984F 01003F7AA82DE7DCA6AB9E8CF0AA2C233229D4A150CA06159F49E1637C51402C 08DBCE272A64A3BE88B0A6BE4BC71E33EBC815F2F2035FCF419D7EBC3FA57346 29A55D87F46E8ECDFF1CA31373CA6DE011DD09211A587AF96BE197C0F0B37AF4 6F1C12992B7FEAB02FB8D486F0E1F6D5DC158A6C215069D9111B8C871C4AF620 7A36162E1B1BCD197A2959BBAE2BC23646F209AD55F2D683CE95AABB9E8B2E12 CBAE9B68AAF39118E39F1D709DA18BA2EAB53160E97AA6F48C9814D5369E6BE0 A5359EB1AF8CA0AC91D65617493829A9EF5B253DA837BF6949006A4F56E7DCB5 CC36158DF9E0A855CDD4C2F9FC3D90AAD469B8108FF56F48FE831936DB4EA85C F74AD2D7AB84EAFE057A7DFB9D3543B199D6A46AE956993C319FF58D7F692540 C3FA03DE866A75F4DAF15A2B41598D9503BC83960CE49BC1287611C110997EF0 C719D49F889AC85144307A4F2615F1AF45944EE0D1AC282D475B5131BD6914CC F8635AD82FE23FBD663D8EBEEBEAE5EF4B46F7C67C1036722124D781EAEFEFB6 AAC90E5C410E261449EB519B335A4201473841694A3C291EB7A7BC734D5048DF BA58FE83BEE4F39084546358F06B040EBA4C55C9DCE5574C1160FE2117FAE1B4 030067E6B658766B067264EA3C6875DBEAFC37685D2344E673C8839DA24F2049 A24F8441420F1E6D0D55BA1274556B913ED10ADD4196C93EF4FF92DDE34156C5 2417FBEF41FD409560D06083E1BFE9A8BC5DEA985E824FBDE6A5FF4537742915 3CCF7D117A6F028D2F2BB92AE2EEE12D34C502BFC861F4E1BF85975230BCA528 4E6A4D3B38558C62105A56941D088B992ABACFA1A46B2D723C65B0968DBC6AE7 D69346F941670B17B08D924F48B009294F680BFB819940636F63BC48046CEDA5 A2C849EF42DACBC24A403EC3E7B797554A33E446825F56373508B8206D97E4C5 9DD6B4DE81DDD5DC3B142BDB8B874EE9AE47D791EA4C0F0668DD6485B12CC042 27EBAE0589C1DF6A10A4722C6331114441BCEF1E31F44DAAF663B80E90128579 01F8C35BBF24FB9A0E6D83DB604BB55BA28954516C09B5E397168B59A47FACDB D12390357491365CF621EFA31491F5E63466BF620C0759D05D0F7B7E01928FFE 52BB4CC5213F49E0F8EE1DA6B4E65BA9ADAAB790233246B53B1F1717CC3E1492 D48CCC261D2F743210869ADF2BFDAD08669BDD196723C7F9E9FA495FB74B4663 1C5E39C304DDB1238B59191E88473E9F6E2D7B644B5DFE102A3A3D16E2BCB8AD 58F61E3FC1262F41D6840CC35C7119C14E08C2EE30D01FDB273825F3589B8D50 9EDB20C5F25A659408BE7F843D501178830F1F35FB13CDAD164C1C238110D06A C959D2D13B92A53D58C697C425BAE30822A3F94F4BF43B3A35C0C54E29B3C46A 151AE77338F7A45BFFAB3975E86E6E224DE92B17BB91FEA743AD6DB4269345B7 97A6C8D2EB22109285C0171DBF746DDBB2391C1C86631EF586DAD19347CAA40F D502ACBB139D5BB6D4C01F07F9C72B1F3C2790AD52505FD35314A73BE3BA6146 00E3290D0970293D3EF68379813D3A7A08CFF6755F51725FE38290AED4CA9C8F 92FD60205F9933EB6D134E6563025FC2C121F78DC4EB309214F9F776B5DD59AB 4B38B714AE44D75173EEA3D0C0EC5F2FFCD08E84DBC538575BA669C9AE866A49 74694DCDF1831E40D83B3DE8891DBC727477E35BA2303C5D8B271FDBE637945B A001C79951B2D31C41893C9DD0C6220DF64B61CB7A64283D9B001F7109F65BA3 3B6DE38C0AD183282C8B18517C9EBCAF6267EBC78A25B5C7F3B7156FD64514D7 B05611DDC90135505263F695AD55BAF32374D5A3DEDEF218BDF0662279E2F9D4 4BD689EFCE806BCD33CEC2AD13CBC6F2A7B49CBB8F7C86360C651C3640E6351D 379E0036CCC8CEE595034D623960114430102322B33036E2AF0ED1B2D97FDD90 40C9331A6AC32CA5BAB388BEDD62783740C2DA35C8E4657B6F6010DABE6330D0 7D52FF781EE40925922E6E3519709076DDB9AEA5D4B99FD906B39D01485B071D FA1772B70D7882E0121A128C44C4006E6B1FEE232B643F9C5315BD7CF7483EFA 6D138F78E554DE1DBD8CA191A59A970E9DD560F8B3CDA243B51D1FE4538BD8EE 77F2DC3929BE17666C26EC69153E1A62D95860205E23152ABD52136BA5C05361 6DAAB6569423F5B8C42CADD962A30F4D4105356937E15979F2934323FA281CE2 49303A4CBFA964C70BBA2CF30EF86EE98B8A23764D67ACE99D8C976E844D9F8A 1FEA028830360F668CC721CDE905729A5D0DC83713899E779F91C1A231635034 BBE8010AD862620939B57849FB4FD3569ABFC8D0B639BF020984BA7F1B8049A3 DAC2EA86F5FF8CECCFEBEC5E500CB27570C4695C2E25219201185AC1A0A9B01E D8FB995C7FF0AD951D0BF980092B617F42DB1DC81688341A3EC6E37E2864DA3F 7CA9A2F5AAAE975C1E463BA7D14603AD0A36CD4A77BF891E935A552C1AEC21B2 EF04E5A6CED7955DAE2966D62C387E71C048B0E5524732BDCB48DA9274F6928E 7D69FE7FCDB9B6D54476F0CA370B349729577B7787404F695D6391F1A65E8F9C 46D3EC6C45BE6D1FB3699E683121F0A40428C912C348A58E3282376148C7270E 74C6E9A07CA20CB76E45A6331C1B52404634A8D088C0889EB7B0F16609D7C6CF 610993B76A990E277672F4C9F0E6129F4738775A5A9917A1424C95AFF7E5D57E 08881F47AF44F7F1C2A763C24CB12DDB0608BEF41E1C31F1E60A1B30011116DD 79326F21D722FDE5032982B6347A953F58731D1918F562641FE48FC281914923 472E7415138D5B5BDCC7442A034673296B4FAF12841415410F7B21236AE36582 1D9020CCDE900C55CC17AAEB4BA90D493D4EB7CE1CD877BC26F674622C2E4CF4 A2BABF0A150BBD480839C2EEE2E1DF7AF2E30E31C87A55A4A443515B189D4D3D 8118469C4524FD7F37D330F7D4264D850FB20481ECEBFD26A7585730D069EBCC CC4909AAE191A1A576FC0B7BC11DC58FCBFFB7E90BEEAE93DB98DE232651C41E EA5594CDEDD1022E3A61D7652ADCB0E9FDF65E96A90E10F2E1136D1CE1661EC2 9C06200F45F53CBAF8CD2D179C0793352AA923BE3ACBF7559A63AF790B0C3698 2946BAE97B9FDB42A50C21FAE56C9FEBA7485223331234105A8B48968533C2AF B927F7977BD72F2C7D9853CF2DAF007B203D925B0EB0D76D3F09141116F0ECD9 27A4A004BD469E5903BC940A651152DA0E394CDBDCB0A3CDBE86D7A89DFB9562 B841172F808A0C119B9453D86E452F96BC4737ADF259C757901FC2B2830165F4 D10D3A11A0EBF193688F5001156393D33CD9C3E697EA13C4E237C4429E6A6CC8 6DFEA24A1B5A85FB7D754C1662F3E3CDE50F7693D5A446309790F85F0985FDBD 02F54D1D21C737ACDA7B11584C109DC2345102703665675911FB73702EE621A0 8CF544A5F1291C32F8ED30ED6935AE5C1107D77349E253A9174818912E667125 0A24D4A329ECF239FE23E56AF77155F796B03D84F858A27B9D917A996E2219F0 2D0736005F8656230CA49F52283256F82DC371E321C611F0A1FBFE598DC9875F 314A4BD054426F922705BC13C29DB0558F86E4FD07F625EB409E59EF7BC28028 FD41E0EE5301EC83A53163DEDD3D45F2C4BCFAC7FF7F2ADD75D6EF229DCE2484 370A7BA586BF40635EECE95067832F427300CA4EE0B49C02D3445CCB6287E6AC ED43124B42600EF4EF7458C502493D7C7A13326F012F66D79273BFACD67C689B A9F71B5C02C52B7BFC4935B5813F48B88C82FA6C118218FB1B2B0218584AA802 04FAF8A9B8FFDF94EB2C08735E964EF9EFB57FD3B4BDE27B5DC54E98CA2A8456 E4297F1BEF6892A3097B9637760CACBC68CC5917462AF964290E741E604330DB AF7B3DCC8866C03B64C1F0761B9F52C84C6E4163CCAEE4FD55CB600E4F048FA8 617EF89E3D995D78AD8454B57E235DCC513D9ED939FF9601394B16B4FA867508 55AC3A2F891E6C498EC7735C162F3F5C958C80C9A9BB30E968D1C8084234451C A7BA56A4280C835E316588DD49E5272C5190B086BD6146BD19F136F1336B656B A9C9A49CCD6E789DE90C69D7EE07963C7FC97BF462C3801BF454588D9179BA3B 7A21FD0B7C50DDD4ED3D510054BA3F2846ABB49EF9C7A8372FA56A4C0BEA6D63 8B924FEC45099349DD4FA41D086E0515829BF4A7D7986D101D38371D32A578DE 1ACC5F507E6D89166B8A9BA02F5B16CD7E906DB37A8359106DBCDD822FDD9B75 1CE3CADE9D792ED3FE3B52F678EC50A73684E0699330104D29304571A547DE48 201D2AE1957C9EE12F8EBA54263B7FBAFCA73A8DE714C619FD8DAA672B92965E 2EBA3FC9239473AD00154E66C8CFCDB48F9696950D912F15DA879E5525DE50E5 9155868B2B2C076DE48E506CFC6289FF2F16BD80DA6635C883E27CF2C95A3BDA 5D4CF99BF318092BA27E49B5A452B219CE4593BB3ECF7AD4675F0BD51BB053B1 C7B5818B1A4B83058D2DB42F5D4CE85A751F280A85AC16C4CF4BC7E53988C2CD 6D48F3B7B5A2F934E493D320B6DFAB216050E67F3CF34858561814FDB0603ED3 FCC38AC3CC08DFDCCA5397EAB0D70067E2AAF200924A4981D18C2B5E3324E0A8 1FC0A8DAB56B70F8CFA2A9F4C8B4E01785DF0FA75045AD397C9BC4590BB4F329 8ACBEACD584D35C02B40585475D55576BDCC6374A694E25555AFFAAFC0102CE2 9AB5014D0D578A6C8A5446DF294CE71C8C0414E9D8E419338C248262C234F518 2C83A4F345C7CE7880C3AF60F5AF9C132C8775B219C46DA5EF8865FDCB7B0693 2C5EC1D9019FACE4935CA03F149D89BE9574C243E356B1774FE5EBFD82E8CCD3 DEAD558E28084D649CD7DFC270643FC30BEEAEFE570B124854E3F3E56D00912D 21D10F6EF3D9C11E1E592C47D8C207B042A84E13A63F136B7895D68A3A439CEE 072EFFC1C3614552547FB327C3FF995A367D4F9E9D0B644B71AA1B7BA7FF386E 2C6E1EFF52648BB54CEAF6F52BE2F66CA4FC3BA337002410CFCEE7EE29EC135D 0B2CF0A82214D0F36395CEA21AF7046BECB7738498BB57139899D9B00682005B 9816B780929DCDDA572F9308EF77A636CD9042FC057B5EE9B443017DA2563455 B9BED7006EA59ADB82BFD0347F1CA30D78893B1441587164EDF2E94724AE6486 5C82FB18E4F5C0E85DFC1FBE060F9AE05AACCDA547DA19D30BCD2795BDC3B8ED 25D8AEC699DB10E7BF56B71576FADA60FC326C0A48C17986ED6C608EA66F619D 21DC7809B41C03B0FBCE7F3DE802D86D691A1C2A706A03006A97C3A9C94C3649 80D61B08D6D45D31F1A92725BB2D9C85C0DD000E38898015F27508B8656231BC 40A9781454F32289F2A4BE7F7E7C32978F2ECD438DB573BD8C1006886238836D C901DC3C01B27079D02C5C1038D81CB19DD7F8F17BCE13DEBDB6747494E13FC8 889A82812C0A8394038DB847C0A7A69F6CB2DA3D2889AE2BCA3083EBD8C81CD6 ACBA471F9B52B473B1FAED3580B5DBC4FBCBF63971F3E550A65848519AE0D30E C3578D8EAE660BEAEC36E7E37DF14A2E68E55923E9461F5E1E47219A576D807D A02941449F5155A904D57B2D1F046E17D87021357B3763443159B0DB9A6D29FC 98EB0693B73D2C7D6C71A15938C72EF11DD9817EFD533D6D26BDEFC3A8D0A272 ACF30A46F53CE871300C12A6B56E654BE103CAD41476647DB695538272033B07 03FB74576661EC8960C6C9D2C10BF782C92758967900A31E27736B85EA5788F6 CEC301212D46E57CB95EE9589A9FED82FB6E80BFC0257DAEBF99F1B83C468601 5FE83CF7B8ED5795C5994F05152920430B9E7EA89BBAD252116A288973A116C1 E1E6452784D5E89FA6DF6F2FB68D1F7A00CA492A6DA2CE3E2411BA174F34CA79 EC17DC63ABCE63FE0F26DA7902CD4123D30482AA5DF3014F924FB76965E30262 972EF06EEB9BCD99FB0F56209A59469BB4663C088C901B6AD65FAE29ED9D34E2 5F418813DFF1AE83D658A674EFC60E604D2308ED89E5D13B31488ACC4FB35EBB C160563484AB5E9F6ADEF0B10439014A9CF3E3122D98FC2B04AA73C09C195212 EE7563D40CF3509DE74160E405940DFFD5F72AB197B3283F00A840E5F3DC8FB7 922F1575CAFE5B88B193F1A5CB81938328C658F7162CD4B2301F8BFDAA367B8B C7E74A743840555B92F0CCF530570598F68ED024DADE6FD87C07712801E6E9CE 968E656113373E4549DB087BE86D17E22359E21AD5CF6A0A003A09DA84EE4DF3 3E669231EBB9A8B1851831FD8BBCE51BE24F5A895403A8E9278C4F91D5910A8A 9C923243C8676CE1EB7D73B4D7D264240F92F2D62A546C90537BA61486BABEF8 8B9E22B53199779FDDE549BE6F7A53C3A548C809896BC8E63FE8C8AE9D422D31 FD77FCD8AF094F8864120F5EAC9AA0305D30A348486E9EF3F3933C17B1C4E67D 3D7BD145FE03F246C56806A15EE84BAE1E12C0E8E147E2876DE94AD93407D6E9 1B25FD2E911DCD609BA53AEED25250295F60C6B99CA805ECE5CB7D8E8363D7CC FE25AF222A05C81216CD2A523444ECA45F5586E85F0A040CFDAEFD4625E359BA FDA679D337B738019E1D7A775EE8A4839B704B302254490FC1CE99BD37CD5E23 13B48E2E8C9020ECA9052CE642525B12CBE600F372B192E6617E30D51873F4BA DCF99D2C8BA681335D46722DB57D9EB83B8CB5AEB55BC09B1253D9B1A0DA6C05 B8EC8CD34F26B2AAE98EC42BEDD000050341704520A28B8BB12EA410EA895816 320383544E6D94363B2114294E6630AE5A3569C2F26A3C65BFE4B997FBB077F0 DF54B133B6128E447844091F45826E0EB7F72D99C1A82D83BEB382AC98B2F97C 1BFE8C6C5463B2D27BDDBC61BDDC757D427AC53865EB9890485E89AAAD15A4B7 EFCCBDD2F588AAB1E0E69C93A7B976FEA2D61315298B6A2DEC3B54D90823FB27 2E68321859EB96F2065663FFD28ABE23F276C5029FB2A774792EB7A807172475 F1E8C1E74ACDFB56CAECCB79D897841F9A504CD7AE44E63EDF6EF251DD1938D6 A6DB5A3006D3A458E4EB8BB9E7E3262FB036E15E3C9674BC9124088F7C8D1865 471CD22125480F82B886F874F4085AD536BE6DA00F705B96F4615DAA7C4C4239 E92B139E5D48CE72546D1425413FE6FD02DBD4CC123A75190E4B2EB9F40F86C2 C76D519D38E0ECB73664581B3D253F1BFB950865A7D1D658E65982AC9B5E3538 C3E35C80D807FF2FD1DFC0ECCF63BDC7E095D97DC9DC42F3A78518E7AD567119 839A92510E4342512A5DCC233A924090851B83FDD95D7E3ABE36276FCC5A538C B459EE88A80F12FA13BC42B2A3AF2D9B406E4D834CBBD73F9C7D1971FF112D4A F8CC560320769F9AEA4D16EFC21135AF986D54DC354A1B5E58CC0DE6F2AD1F1C 8CC8EF8239B56AF42C3AA14E7EE6B0719DCBD838CA67222448930C6D9012B756 F1D384B2295F184A192DA62447C0513696E3CB08B72B2E24F1CFFF392F2C6334 3DEF85D8AE27EE95B4F59E5AB7315406C33E28D83BF6961F925420739FC47414 3903F450CEF8B07DFF5ADDAA46C22D6E6C77DAACCD1DE01CCAFDA20FE743DC24 0539D5ECC4550DF61B29688766BC0DD36C09E77F0C183120FB7A4E34894DEBAF 9245C68429AD2F57CB100A509991A995F3FDD2EFD854C298B1C57B5430E57073 4BE2699E57A76CD7781BFD73E6670E32EFDF475E1722D2F5090E424E9E7196FE EC86C62AB092289A27D4FAFCF30A69B053DD05E8BE6226D38775136297BFFD70 78D798B32B782AE6F465471057AAD9F28AE8EDDB96E95BBA743A0F663F123621 263A0785FF7FA6E5012E6E964BF7FE09037D981E9E7F07509681703AED71C0D7 3514B7D4E53A4606339EC15D25C6562C7FBDF2721E5343B5FB9189C7FD46AEED 325C7A93BC0A7652854AB656442FBA802956549E698110794675970C345023A0 14B8705931982079BA704AC3E94D63FC804BE170BBD72A92CE906096840C8F66 BC5EB43ADEDA77FF8B12B80D25344788108CCFA1E93AC1BD8176AA8C7A1EB9D7 D63704D8B9D51E58B4C058CA632B7C14A4DDDF1614157FF049329081DFD38DB6 B3EE0553F5CDC15AC1C6890F75D3D3BC2935E7DD4D84BD7813AFA6D2E1673364 FC3F09C7286A3407328FD62E17EF8F58F01BF6B7028C9FA9A961D566802C46F8 680F5212F62ECC14FC6FEFC1BFFFD67044575FBA0398D37F32FC3AAC6F7698A3 B9738CB3CC5604F9703FE2187C1389C2CF642E7D5B214E8E5B 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 cleartomark %%EndFont %%BeginFont: NimbusRomNo9L-Medi %!PS-AdobeFont-1.0: NimbusRomNo9L-Medi 1.05 %%CreationDate: Wed Dec 22 1999 % Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development % (URW)++,Copyright 1999 by (URW)++ Design & Development % See the file COPYING (GNU General Public License) for license conditions. % As a special exception, permission is granted to include this font % program in a Postscript or PDF file that consists of a document that % contains text to be displayed or printed using this font, regardless % of the conditions or license applying to the document itself. 12 dict begin /FontInfo 10 dict dup begin /version (1.05) readonly def /Notice ((URW)++,Copyright 1999 by (URW)++ Design & Development. See the file COPYING (GNU General Public License) for license conditions. As a special exception, permission is granted to include this font program in a Postscript or PDF file that consists of a document that contains text to be displayed or printed using this font, regardless of the conditions or license applying to the document itself.) readonly def /Copyright (Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development) readonly def /FullName (Nimbus Roman No9 L Medium) readonly def /FamilyName (Nimbus Roman No9 L) readonly def /Weight (Bold) readonly def /ItalicAngle 0.0 def /isFixedPitch false def /UnderlinePosition -100 def /UnderlineThickness 50 def end readonly def /FontName /NimbusRomNo9L-Medi def /PaintType 0 def /WMode 0 def /FontBBox {-168 -341 1000 960} readonly def /FontType 1 def /FontMatrix [0.001 0.0 0.0 0.001 0.0 0.0] readonly def /Encoding StandardEncoding def currentdict end currentfile eexec D9D66F633B846A989B9974B0179FC6CC445BC2C03103C68570A7B354A4A280AE 6FBF7F9888E039AB60FCAF852EB4CE3AFEB979D5EA70FDE44A2AE5C8C0166C27 BF9665EEA11C7D2329C1A211DD26BB372BE5822F5EA70D99EB578C7BEFD44CDF 045A363056E5E1CC51525EA6FC061DCEBB337208EFF729802376A2801424F670 0E7E6397B28F15BC10B40012B0A3EAEB2693E8F7F627C4C9C7C6C5BFF105C1E4 1B2B9E8F09253B76040D268B80719E1B3F5A55AB7B8E178732AD0E135F772215 EA7EB7EA7641D31502E1BB9661E7B0E875AEE90400138F2AAF4A8686C73EAA44 E5CAB467770A3D12E9807BAC97B24A8EFB0E276760F4F51EC7123C43BC6F8DCF 9A2F496A9172813FB461FD870763306B45670653A9780FF409B734CFA74C12CD 150B03344295918C4ED893FB620A9499404B83C71152BF2F2DBF769000D116D5 EE264C016EE3E1241018F59544CCE53E5AEC124CF6C59A4D7D7D511ECC9AFD49 6608ADDD237358D7CF8B4D1C5BD1158CDF2D6469D9BD6E6D9762ECF34D1C3C27 5F69900E0D12AF9B21F153585742E999870BEE3DFF6309CD82968EBB40D9C269 CD4306654AAB6734151132DE4194072485FD082FBB6DFCB3FDFF9E1FC88D9483 8AA64B5825293978C70C9EC095B18352BFDC34B4BE9C939384E3281BCC6B1808 A6B61EC4E47BB6AC14B105FFA7ED6AE99A1CA0B360D1A5C24E0FBB55C66F5811 A5CD0625654654651979A8C4C3612054181CD300CD42D1D9CAAA589118D6C7CD 5EA8A9A0C639D5539430D40318F4B739DA281ABF2BE2765D44F45B218BB192E1 9EFBDDF7777E8730FA7DC0651BCD5D68EB743C51D9CED55403021D45F77CAB5E 7E892B3D1F875DA86C030A2387487DBAC8795749E849EC93439C9E22EB20D11D 07DA0F09EE9356D55B8D0D8555F1B0EC98C72863B376D3436E10DE2FB1AB9453 DADA019DCB64F6D059AB3A95B28B94435004C9A8BD3FB80E2B9DE0E330D03622 3AD965B4283E6DC880A2130185CDABC053C52693CE3F50557F524D7CCA9BE05B FF9597ADF5D1C432C00C0B0D8EC2CA8436685B4BF3E2105B89FA6CC787B77637 248796C2F43872B3BFC8011159C22EDB7149AD8932360A88A223CC638BED257E 04908032ADA750F17279F7331189C322CB5ED9B66E502945BEB1EC68B1C7BCC0 2322EFD669C229B28CE1D0CBC0005FF967D0A4383E29538AFA13D41D484D739E 487D497DEAD8F661847A5D82D77D91219ACF666E565292384728E58E1A489054 8C3E34B413A6A550C499218E7FCF43694CBEAD016119CE85515F5EDAE3CD483B A0F32743E7A189708AF0CB6FBAB22AC8F23604FFECE038C838472CA40ADEBF08 47AB1D450E07F9D51828D25DDCA679E3FAE54634A37AE1A5A778365C5A2C8A27 64085AC775AC132CCF27CA164C4721F67B63D52E388B17122F15E5DF391674CC B6C9EDE307D79E390068970FE0AB210337558544E8CA59BEB1ED00C1C66DE2BB A2F092A3E458E62F713FF2C1B9B9B53E7CAFC805FD5D56D55FB6750B614E1E02 9C1B5EAB6B11A82801FC5B137FFA9FB4E3D6134A6FA1B22079BB360E27CFDFA7 B2AEEB52D2C2260C6176DE0C3C995E7B4F974D7BC3394593C5B714D11C6CABB6 D498BC122FFE12E223536914D2D3F4BA30989C7F4C81B377C7FDD9C11CCA9345 E1FB3E1E056247EE3C01A36A5E13CA29C7BC6C1903C77D0ADE7A166C98928886 0C393C74DDB8D3F95F78F5BBB2D47D8BA82BAD092F293B2DF2FB243E2CCB67B3 DAE953DEF56BC27E73404CA32C9FA8EC1DD9ECFA5E75253139E2BB94A71DBEB6 2D101D5C4DECE63C67831C0087075F08825969F1FCDF08AB7A26A46FF9CFE2A3 529B735031ED0B3FF53DE7A8FA45ECD89CC4E2AF82ABBF59E7E01EB6A7FBA4F7 E2CB0727559728448FB6E92B0345E5D3AD7E0009212A52D33A03F058614B77D0 112527C92DF85C31BE5BB722452187736D103AF57ED0F5B6AE95A022F1C722FE CF62CA43A38ED6285646AFB0D163B7F08BA3D9C9446A52633AA3AADCE73F5F01 81BD8456E553AF718E0CF6AC68B2C4A28780968331DEEC1A418382059D0ED702 85D9881F3AC128FE6CE93C051E13CE2DFE658B0A72CFB65FC59C5287D92E1A8C B5A195036AE42DFBAFB1E18A1CED44D2F499C69EA518C750370797B96D672132 CD2E47BC82CC947D4C7D771A71AC1645EEC33E4C86724CE7A2CECFFC5CCF48CA 297980F4F0CD65865D0A22C7FCD231075CB13E7FDADF3100FA271F92C1BF356E D0E5B2E3BDAEB057C127660E1C762559346AD0BCB540FF5D6630C448B5075E9B 2B3D5AC53D36734B1F3B0B7062C3F5E45C05AE3FE790F38F8FE49D5803331E5D 0D37014E61434D08750C6397BAEF73112D2B7767E060FCC8F7C0498700D06A64 7E7FD18FA038E60D43DE5CFDC40065B79CFF7CB3597E11FE4A823B246CD21005 7761ED8B3089D26D42B0CC36438603996CD4E789466852BDABAADD6B9E6E1B71 655C46DE2EA89FD8758F803BA06826F2D7CCAA906B3D76183DBF90B4EB8ED3FF 425821DAAABB08D1F8985E5AF62AB7BC7DB9CF32D37FB9CBAB682BF1C3AE87E2 06259A2B66315F256524E70D5622F024EFAADA5632EB66F9C7EDB57A8F61CC1B C6EB4C44EEBAAB56D5937DAAC57AC71565078A9CB36CDFE0F5E1030BFF5543E5 36D4AD4F9F029F396B40BBB90821443AA81D6CC327E310793730C8E5197204C1 EA6FA42C89D753DDB5D4DCDD19A45F93A98964F8879B6184DB82AC4495174DAE 6EE3C2D117AB5B9A79EB13FC18A14CD703312DF900636F21AC253C11931ED571 C97E2E4F0F76743D24AFAD83B2BBE4858480D500171B112035204D6615CA2D4F 65BCBF3D257E9AB7AD93AEBB8F33032B8514408528BF280E178C4A3A66DC9C52 96DF2C4A9C5DE43FC042F53FBE0E023452097E72492F295E64E2E417C6B64D04 CF75D347F67859A8B18884AD4BA3410C3442267D0010D96F09568FD192E619D9 EF7BAF78B862037B9AC06C1D9FDD66C24C5342A3E4CA7BA620A3B1458EA90D68 4591E99D1018C0BBDAD1377BA5BAD1633DE30B1AA70A301319BD2261195DC55F 0159FCC04F3057AB0B1F323BEEA3F4F1573E5AC2BDCE73C6E1A353C37B202A47 645F69BCC8605BB15E0ED74281E8F234A4BF7726FF63DF421F92C56F11541670 0116FDBAB22C81042A15B23AB0513F41DACDA9B9DAE58CC760BAF73EDC3832A0 A371A51F64CDC4E06F544F2055F67F0ACD4F401EEF1ABD87F62376C476215742 7BC374B0F3967E281FB2BE4315CA9820CDE879F89A896E9E37C73C748F3D94E0 843C9687417BCDE241F0C2538B781BEF205E8499D8A4C847186A02B66F97D7F5 A0D5812B105D0140E9BA4A58192E970B4A6571C33C5353B4F791B3BE5398B892 915C86F13BFF58F078F40A978E7127D9BB323463B9F522A4C3BDE3618EFDD587 8C5D66A2FE3A59337C288207ABAE3DD8F3ACD0B0CA890EE6D9C3FB0F63D796D0 CC1E19C7383D96A8F93E7FCAE743DB959968F3B44BB8012BCCAF89CA3FB1ACFA 385D9CAC57566163FCCEC2157AFC8FD8B73F6DC67463B7E16E4769F34F27755D EBECA9A38F1A17B1AA91AA60CE1A230290633B235953E222C1AB7FD82F35FC5B F375C555BE98C76E7D37A7EFF9338798E50E1D09219A25AB5A98FE81028F5FD6 E538B4C6F26ACBF9446EB606AF21E83D0FA04B0F9AC39183ED3F0C0341FEDD2A 8171D548FD4820D42035AEEAC6FE0A2813A353776D768911F72D917F2828CED3 20498C037068E61FC279EF726B0A8DFB8314B3D1B770A950A36F59F2967C7DE8 977BF81BD4D94A1A3FEE747172FBB3A1B2D58C5844252798A5A205E9C735102D F94A1EE649F99FA8A84C7005ED70BFD1801D890F42EB0A4D10399CB12D8A6DB0 D0AD766A25B9A807C18D0CAE0523B05002BEB07F67A8F619117A2250E9AFE0A0 6BD7C4E62B668E707C52E55E9B0EE7EDA8E3D5BA606330FF5FB642B2F470BA92 542CC5184562603F7B03B0C29A6665AA6064C8DDA0974B9997FAEF1B08DA208F E08B4C0B53377C0D573F526E899859481FE05FA8CBD9B0CC8D4C2CD459CDF89A A9AB1F8C02D0AED5946A6913D594E92923EF4E2DBF9B33760498C875EFEB33A3 60A12F35E45673FB12EE740814608C852A7201B04F6A7FA2A856BFB088E4EBEC 64CB82F396FBB454E5C570E779CD3F1FE806F82AADAF144006474B6126585F86 E9FDF42A714B5A0DE2DD5468277D92D34D22994F6B944700250389B8582A6C50 97EC50C755BE2BE67D58BDBDF02AA83FBA99188EDF183591D21D3CA9D3E5CBF4 CCC35FC6931CB24083D97EE5E407FE5C491EDD336C9F7F8767D2F6F42543581D 177D638B3C4044E730DA8A8703A9D0B5324ED7A14B243AFE039847A315DFE684 2889BB3F956DDFBAB7061CE2FBB6A0152F2B237F66EB1B66E6539F747EB1A9CE 2A3ED37719230617E10EF475F585B2E615996C11BDC84BD9EA2524776363A7B4 9F8D98AA894DFAE3AA308B496B6B65F19CAC09D590922561732CC807FFFFC738 3B81E766B5F50E79B62C4F6DE1A97B03BDA6EF533933CB2E1D6F7FD2EF1CC382 6DA19468F81A3640135970133F24B7EB6B0ABEFF57595F953465672E78D69ED7 7F81D20BCAF1F0B249C2800578F4D09DCA5CCDA0009800A7B4C3B0228E7846BB 7FDF74E7F7816F24BEE68198BDF97E53410D65BAEF23D727B4E245922C6D9B64 3E34154BD24A324966B21FA9CAA953953885B06DD96286DCC25EF8F6A417FC5A E7A23F9E6611F08790CDC97C907F002B26C9655081375092A7807014FAA4FBE1 00ACBBA0CEAC0DC1AB7FE2DBCDF6ACE18FEF071D9B0FB75B8CBC150F2608CBBC B3A2C968EF269DA03E2FC200455B81CFDB29F1D69760E4B4EEF6030B0D9B0DAD B574B3E9909285BBE76F051BFDAB3247216D8F96EBD8A2AF4CE3AF2D7ADD340B D28726FA52EE9A887DEFAF1A5E50128B92ADA43A9FE1D8CFA559C93965A847E3 5FA088D11AB789BC7729DB2E37A16097784D287D139F0FE3A7E91ABC70DE2003 29C772901AF0E084DC6EFC12DAB51FEABEBF2FA1296CC280743154E1DBCE5CBA A84AA35AF7F679764FCE7F4F929266E5A83986AFDCA502200D1641160D7C9BF8 967D144460F4C999C832DF25E9AEE67E53B3DA936E64F6582960A8857637A993 6A89D5DDB9BFC7DD57402FD9748C67F8878EC1697BD177565DB81497FE3D0A62 701D18826FEC47F867C4FC966D23A12CD7EB037278901957507D4B848A7F5DD3 F8C733D8779CCB53397B7E91B25258FDA340ED61DC927AF82D8D10AB50C2E89D 8334C87615F4BEC40E9B86F42D566340C42CB69C68A246686B505162949FBEC9 2D95DE6C2C53C20105CD8CA6FAE4AE039EB6C915A517B2931DEFBF7485919783 1D1D6EC97EF1B2E2DF13C4B64CE8AAC2237FC33D8E4E4AE75EA9BB09F4A55301 CF59F9E7D9EBCA7DF1EF31347807DFAEB7D17E25C7F2A7305BB71C6E3D58D473 DAC16E894E61A5B429F6FD1A0AFD6C051EF07936796D5A0F9FDBB73E2161A5E9 4487205C3355E0366F2EE92680FA3AF8F6ED9470D568D69F4D4A66F4769069A3 F87757F001F545440AA4A807414CF5B310E42D466862939CCB26A5AE326CF8AD 5F4DA7743A09AFECA6DC807448B48C85E461210177DD9FA088D3EAFB7F4C3146 DEA1EF3A730A16F873D93A66DD545E42A1186979609CD62EF3C72F91FE544DEF 8A29BA9972B1C7AA6BA53BA32A081D3006CF35BCEF2D18742DF7CA2D119CC12A 3246B9B5EA106E3D1223F2D92A82A96482D08216DF53ED0681C54829579361E1 A4AA6C03AB56400180B75A10B31E330BE538F5B1AFB1D8DCB2B603A436669899 74543B3403BE43C8DDA39B8D4EE57835BA4007125440C1C6A00AAD63BC614D48 067BB63A9677117D5EA7A4F614F72326C3F650CFADC44A92A1943904EBAC99AD 2D36D66AF102C6DE7766498043635873DA2BDAFBF4DF85A095EA8748EC5FF386 E6B8E70F94061ED37B98D73FAE8D0325B16D92FD7B5DA0FCDB04978D43466430 A36EC979FDB7D3BBFB7E52CBED653D9D9722CC1F3A91A3F379592FD08DCF0A11 3F1E5470B10FAA41536AC36841EC76847012B34B1AED4F0B9653FB9FAEDED595 CDC24BEFDB1660A6DB11B5FDEE8118D800F3B2A7B59C4C13689DFFF68497B143 B66F337432A326ECCE7B12CCD93AB92D3CF24F6243BC340FF3FE9458B4B81E37 824AA06F50BE1CD22C780278D973CC5D09551F62952C6AEC9BB506D3D4BE3DDA EC3071EB451EA4ED490D1137D8856DA7689FFA34517B3BAC37DE5E0367B7006F 75FFB6D73B4ABB00958726590A973A2605C55559C24B0A0E54C9F899E582541E 6F4CD3483BDB4C4057D14AD0DF80F5A8500C6E2E72C47D995F5DCC51D9CEEEE6 C2470FF7843512A3199A3CBD1D2CEAC818ACE6CDCDAC7037C3649E181A839DD1 FDD1A5C48B7CFBFFB0DF1A3F74B2422630180856A400DB7CBA9318C6778CBC65 0A9602B1F5D3FA76379C4597B7FE8D4D88C9484E74BDB9F7983C12F76D6446EA 0F954AD7D03474A6A82DAF5E1ABDF8CE3C6528234EDD16DD0E11384C2B9911C0 B7333AC1AB759281857E2B1A0BF9568C867B2214CB8FE1B9D5293F54D176809C 75D22373802023DD465F60E5E5492F17615230E4FD96E4063FB23B0C1334231C ACE3B876EACEA2B6D32C3D557ED2F6F284CBCF8856B2A22E72C0C529ACEE60D6 FB239685F5147CD3049BF8F3DC54D583F8C6D60DFF13F4B2BFF0C2D48D73A369 A4A30AEF82906E8A31140D83CAE2BA50264B1E097ED39AA1BCFDD77230FEA535 971EECC6EA4C239D51CC54EEE1BA1940C62D80E83E0BC1242EF89D7602F38FCD 0A3C36F5D7AEC70AA127E851A7FCF927153CC53609ED71175C5ED02CDEEA31C5 C24F873E1CF9AA03DB3E75DA4B8AC79FDD4B5C705375EF9C87627A1CFEA2A670 7D6B09A42796F8F409DFF33F62508230EAE1281A7B8642144B87FAA7132BE442 29304ADC8A686D6732B0207BF2E6CA493B759312C50E570718E5F3191D2F2E01 4709D3402AA9FC931E965594E03EDDA16809FFA292D1BA24E03328DE38D7CF0D B7626317598B0526C9AE7C8416D28AB0D2904BE8E2C84C3791C148D55B7715C0 47EDFCEA6299C7C48C7BA40A5962EE4575CBC6E27C201893ACF4E7FF00782496 3537E8785DFEF225DBB87D9CE546547C9B492CF6160BF12036F45D7B3EAF02FC 9047EFDABF1C2DC348AC0A72EF3D428D9BB777EA931E688A6E8CAE020235901F 8C76D2502BDB72A818922823F61B3EB6BBFC5B31E96F0A33A7CDD5F70C52CDBF 72C9FEB29A1FCC641D676CD12A52F23767C329FAE1045C5C6E476CC3E086CF61 B3BD4D3B46C96C64429E6F1328135427D3B56B0845455C012C50A56C1D07F84F 7183C20C699E45CEE85DC68E67EEB3B5F3770BE2D452461A524C9DBC24A40099 3E151956DB05672CAD186B82CF48AE4F035377DB140BC726C9DC92DC192AE04F 62C9372A0C770B87D1A32EB4B6139565396B6B38272829C49B77DA56D8C3459A EF9356949EDE08E4EC76FE3383700A594ADE0E9D59FF37C4F4E6E728EE1B399D FD6A9182A687B43D2F6449FC336C77570B5EB10FBAD1C9EBBF3457BC02F66414 215B6555B32B69CB55F0C1F3A20EFC98A3316728287CC34290EC9722D0EC3794 6983C7469E7815C20415A0490C9F1A740081C7826FFA26392CF4A5E7323EF2E1 FF8BD2A3F3500E28F18E6515A0ED165FD06DDAC8EE486574020FD303E9919963 81776B18092D1D94EC9526CA85F6C6B3253C4D08382BD6D9598B75DBD0350614 D6343452D38548E23CDA2BA79B2A0926D49402F02A8E1735643E53E9B1AF632B 818B007819EB6A3E1BF76F90C60FDE0AEB43F07920770DE6F6BE3E0CBE49819E A7CC98648A941C64D1298370EED3A91110E24E78A18E28A12BE9603A1B74B567 9972B1E742AEDFB5403D3858BD29064B94FCA8042756FBDBC4F3C0719D6EC9D0 65C88DBA943DEE4304EC170529B4442D530D9E3F079577AD402B32E799C9D884 9415A65C28AC30B740FD865BE9668856F9B50F73F9FB5F2F460FB990BB8C600C 9983A9780ACB75A68E131FABCAB225D733E12330D0E2FDC20DD8E324D2535EC8 048A126CE0852294CDD1896E3E2EB61624EEA5FC03C43BE397E8115FF14BE8A0 DF81C4121F1BEEDD200471AF584B8EE6509F82D3A29A528C86A36E47AC4E0C5C ACE37C66139856A99C7E310F2B2EC5B575EFC9DA0069EEBF11BFE57177D41F12 63119650203D3842A2C24196A61F5A102030FEF8E857AC5D22CD6D88EBE88D18 395675A90DC4E09DA04AE1A9AA61EA3C0B1AA08C8CF9EDF73114B31F28676BF6 1D7A28E1AD0072B1CD8390B3DEA090D692F78A049995BBA90255F722FDB58D8D ECFF1F3B308BE9F907D72815778BCE41EE8D3674778CF60B6627EF0965A3E0E6 A3ED207C14824206CEB751C69A8DE9D16E320913DE0F6F5038EC5FBFE0A25EC6 705996022DADC1B1AC7AAE6732DAC6E6E6F989D279899F0378BE91207AB57F34 C18CB75637513AA762A8A88C2E79E77ACED249FFA923AF2346E469D43E9A3111 7D4B00EAFA36630BA7F5BB6C30882385E60AAC74E6FA1A18E90331A61A4671D3 C33622ACF7D662646354EC560DB38F10525367D505BE995866EF858FC43BF59F 8840755891BA976FCE898A13B26112C2B23574478290F37CC2F8B8B7B52B5FA1 CDEFDE713E720C325DB5A04A73AF4A83C3AF0305AEEC07F9874C8D167AED252F AE2EDFA8AC2829344F6DBCCBAC3CA80C6561DF4B4C685581BC76A71DFD1E1EA8 D93C4F30EAF9526D54CB5219617B66CC87EA3E7C777272613030767F12275C91 EDB22ABB070B58AC683CAECED6AB1E0AFDE6E68E166CDA60AD45E5C49C53FCC5 151792F2D6482D2702ABEBBD09EF9F5BEEB6041622434D8B9D8B41BE784A26EC E63816933808FDC1DB6422E8C79A63EA4936720E108D1A9FE9932438D39A9FC3 84314FF4D2A34914800C596B5774BBB37ABCC39557A11CFDB99DFF29348A9C06 BFE7C610091EA58204F935EBB54C5CF501AFE0E9EDD68BB45A1AD4CCA10F53AF E4454D04EA2ADC07D0D9477C97C6D727B3669FB4F85770D21CEB7DDE50ABA411 46AD439E1921F853F6A8188534F1FC37D375546FCB5442A20674F5250D77C778 405F3A8FEE1D184F4565D68CFF6687283DAB9935E6CF2E2CCF78841C492E9A57 D84846762E77703BD781DD7823FC10CC77247E85D568DB053443D2F989D27989 9F0378BDE6CF4A278154EC7DBB3A5884F22DFEAE3808894877054A09E40B3275 426E5AA27DF296CF62092C4CAC9EFED7BD02200AA662CDD715D69CA527234DA2 190A43A455CAAC860DBF1901820D143F1F26585F1DB50E25934CFECA0D6C226B D5C5804AB6383BF2E9B0A86139AC1D864CBE3293D092044D9F6ED6F50AAECFAE AB179A95A14BE4FBF10C05AB2A81CEC34D9BF7912DDB2265F48F724023F029A7 9461E9451B3F916C161CED1E9838BAC9B9E1A148EB76088F7D66722B50DE1571 0BADA54B52C4049E82B0FF5AE56DCC5F414552E27876F252795AD1A91D37B54E E046DF87EDECF20FB059A7FAA9F9EA38BC447BBCB9B5491CDE4D0BC3BD8AD291 9186F556FBD5C3BDFEAB5860934D05EDB60AD6895BD4F911266EEFCB28FBE10D 39328466F42A16EA478C1605A709DB9A94BC08D61C1A6E98311D9F5D4B31C014 50286FC19405DB16C42D1F5F66E7F073A95797DAEA1C9925F23F0DBDCBF60902 699278982F6F938EC8045E4C8365FFFBBF8357D4DC0524B768EE0CF8066508A0 A63CFB398F8B5286E7CC869CE2AE5460C8910AF0B8B0D9EDEC9711F4EB03F4E1 52405EA8334CC2F26CF28E8D151A40F9AD36DC569B35CDEF9A87C6433A0F687A 6B8DEF89CA62DD62D87F22C1D6FB88AB5007D6675465315C78DC2F0C22701F55 14C142713C845CFC9F4D37CDD22B05380F9388AB5995729BA690B4F6F83819DB 2782ECD98DF43A39DF4F4942FCBA50A8DE9399AA84E583B94AD42D656694F27D E516D98219C82A22BD64092A555165B2B9CB5D1C2636D7287B209D2A8FB13D31 018A8718E49845E9707E242479A8B03F4923D878875F008072F19F03D1F6E988 1123B1BAE7EBFB55307A86B9E4C1EE00C991036875DB9658D88A208EFFB909D1 39D087B4582C914FCAA247084BEA75227823AAF5EB14A515EE9C95CCCDE329DC 9455A1AB0D17DBF7E80994E31A90B7D76914E3C753EEB382DF31F5C736BF691A C2C3BC8BD05622C4D46C21B81883962192FEA6DD965CD18FABECF6253EFE1E6E DCE9C0A6577A87ADD5D9D79382F68E3993AD0B93A7C03D1020B9FE9F780D0595 B109B0414419F5E85244AD7ACD9DCC6A49DBB19B8162792905CFFAE9EAF0BE18 FABF31EFDA6F20B5957F6F74AFC55EBA2ED5F6565A54833FBED85BD4588BBEAA 0C8D43A3B9F003AE5A62F38693164E569D55AE2CE26D8D471A1BFB36E562911F A408C969C49ED911D3F64DFF598CA1C4A297E4782B90379F6445BCF144A9DB59 1E2931EF752D98BEDEBD2737E97DE815BA34A7CF4256290EDC0205C88EAD24B2 F8DE2F54834C96F621A1E792EA73D345A7C773AAB8FFB6331FDDBAD32F860B54 3F668A1C36B3AE2C623837FE030C02915C9D423E0049B313559BA62457CF32A9 0E1DB4CAB9A2A918ADC1F09182D6B45C97555C54461D838D1CC3A3D9F0E590B9 2E5323D6F007DF65D1656DB7AB37C9EFE6118B05209FC4359443D3D6C9442065 E66502A90B678F90D275937BCA91E5AAD4B1A3ACB8A4DDCA6DDDBB0270370941 415C0FE2858FBA0DDAE75CD143ED4B9C0145E452A23171A224ABA4D376DCD4FB 4D814CDCAAC830DD6D2B2353019C8CBCEF3798248C6B93AD2F241B5CA8B55BF2 8DBD16720BB1C42C9A95DD77B9BEC948DB8FE7A03C5CEF1156392DB08FB51495 20ED801A65340FCADAC222B3FD287BE72B87834E458980328F25F06A23750F8B 09959C7769ABCACFFC8076E8C2F0CBA6D6C21A44ABF0D67EB82900489C93D287 82758D49CE07427C962E0DEF2C850F1DE966626BC5264A6275290AF9EA0ECEFA 45FEFFDEAE33D29A2B62BF68EF83C618839B96ED0556CB0708D934AF9B99C7AF C6FD0C20B0E29BFC3EF73825A0DD26FE70A69B58F4D5E179BE56FBBB8111DA19 8163F26444309A816C933FF53193EEE9D524F06BDE7FC34F88A144EE9F84E393 C7EE20A5363115E12D63F9ABC4F9F63C4253C69BC57E534C1C7F55E1B5E0B69A 5318A70757C586B98174ECA080612CAF16B6918D1DEC1A6DD2B605E334974DED C661D88F5D5ACF3563FE81C0936AF0B8A1183A8563AEE332472D2381DEA09B8B BBB61CF709BD16A5918C1EAA5DD57C55F1D452D1FE2B0C171A9386B8DF694C3F BC75583A79431FE56B6CD5CB64ABAEF9144E1B393EC104AB6EF99A35237B4DBF 2975364992B3996EA3B4F30C40106141EEB98F10CB4A80E94B9F75FA7DF1AAD0 F96B2F1290E8451D8A4C872C73287CCAAD11F956434F930010F29C0C9BF26EC6 55D90C8CCAC8BFACFCF0E923F2EF64841BC9B7B1B650A2904FD702766B36916D BA8F9C96141BBF4788FA4C870214079A4071287493CF60835B57D688D8741907 BAED6ED3A7A0E86C8EB19DA903FE24988EBA6FC48DFA1C1A35D99C0F14426139 1B4EDE0BCE9B255D18B359DA6840F4D37C1876C615489F76449C05CDD1A3E631 366D75F2377B3F1F1427F5826F5D00BD603C8E0FC735A9AA1E2C0CC78C4FFAF5 0A2A66D9959F98E7BA23D475D79EE4147E0A8EEB2A4D518DF5FE373DA1264FA0 65C0B2CD09894CD8DE501AC55BE69F055B01E0833264D7D208382832C8134939 CD28AF21976B42B06A63719C44432BD9ED1F4C3ED9B1676110F9C89AB74DC441 8F77DB1E4218E6AC5A90BCB42D8C0FDBBC83D08603E569E8BBBFFEC137335FE8 FD3A1882E046C9A49A2FE8993667D9C9BA17D596AB465DBC71EA789FB759A196 848F1E56E278CEEEB0B2291461BAD6507AA0F6A1F2A662AA101619AD3A45F608 9AC2250515C427BC5239E9A7D6CC4DC26B121F5D9C4AECF143C053205C1112B7 EC29AFB40388374D2E7BBDBA82197A29F5CAB161AEE5DC7A6CC93B54B73B808F 50AA358F5D9E38AEA8A45E9A29BBCF831946DD0022DFBA3203E94924F5C78670 6BEDEA4736A34677D5EEDE8D2A7BB7FC88CB3FD58DD84C1D2B5249C294BA8C85 98F9821EE447582750229E7065B09977A242A63FC2F76D8B9FCCCCDB9F327097 1F8E439DFB9E64F56AE838FF291C5C81C383F2A655A5F21AE59F5A0A2402B495 045A7372EB87999E94BB52F8168D7B194D57EECEC8A24F299EFE32DBF5035ABC B18BD682234879B240CC188E34950BA2906B425FE484270855BC7372D1C0A005 2B70ED7DEEBE820C02ED2F967DA29AEA44A0C27A8668A354360FDA3DC799FD07 482666F47C17D8A5BAD6E712F12CB0DF1FDE2D2E1EA7349E324829A88CD39230 C9934272141881665D08232C5A14A7EF671899B0597C59FD3BA483DAD551D0EC DC163CEAD83A7B9017415784858BA2C3B7C1C441D0C9D794B990AC60CCDB2398 885377CA00E3D656E8A33D96DDC2A5DF570FB390CAFF28E0E2A2F472BAB2F4AE CD6D198EBA263056B5AEEDFDED2D5729F1D102860A54D8E656ECEA88768396EF EC282985B8AED78C902403D7562D04AD6C66416E7D4C105DB75778839530DFDD 8B9C9935E7B787F601DADCC81385EBE8130BB25B68277FFB26A6046DFB2F4919 C6E9D972BBEAF973F24B7C3C8F0D77EBB7015679B2FBC22A2B3DDB49126096CC 4A39EB45CA067C42D0B51C0BD305EAB31373A2C8CFBA0FEAB801F01459540E1B 3A203F98CCAA37749FFDA272DE552758924182FBE603D54C4AA17DA5C7BD54C4 8FD5DB2CB0672592340ED84D48077A3374A777EA266A6881F019441C6043AFE0 6632C0CB5DDB1272F75C2009E4758911C1D6AD63219EBA6D57D71DFEA87B38BB 09BCB886B6CE9F9F03F2C632EE24E135047D1D415B789AC1E68D1B72E8D22BF6 11D6BC7F0C9014BEE383BCB287A9F9049B0DDE72B9F10BF392EEB7EB8AED2B53 A6F2E1BA5CE95AEA69D149FA8978990319C453911C7F03FED3BF3A0818B6C6F4 7775CBD59E060316A820A630ACE9DDE4F0B0B5E24F51F3B7FC5C87B2FA8CD5B6 51B729555370092C86259D60B1008F585FD03FA898F0FA2804E0BBCB6AA4F831 E99E3176CBD2466DE99C9D70145F783D9E6040FD4B716404CB5CD95D39463F54 7277DA21B7FBD6676F8C9E0B72B2D966F41E73C2F4C648D2916424A5FBDE1F93 5F13978A8506BEF79EC524565285330F3CF3E6698EE25EF3C6D9BF8BC7619F72 50217B0FFBB10240A344C911FF165960436A8BDE59944B0401DE68ABE0CCCC8E C2079FE9F74D53DAB010AA035CF61892B871697F1DB6E55F2EBB231F88BFE988 2F3847A9C3051D85400F9AC9F012CCB5C8C16086B89FE4BB84736CEE1B6CD354 2AA43722748EBAD8C81EE73B03FB45FCD0152B0AC9512BCF447499C2005348B8 48036DC6131FA84E3474F7F15E77B3FF03CA99BD1C8D0E4D7E4BC621F940CD19 95100A7091449727385DBF150BDC55A488DE2435E8E5567D483E1C52CB78A2F6 90393FBEDFC90E7D7F201AD2A486930E1EC4A31B87B81F1725B709CA15914778 26C6A169BB64E18955CE0DE58D24523D2D5BFBC771FD1CE6C579F66836352A81 B27F04ED16B0ED42FD8B0FA774D31C73B644F2B192EA473F87F1382A75E8ABF6 ADD7B213971FC0A972E9779F14F869718D6FF96FDE9EEBA90D72D43C96E22152 C19993A00F29C744A1FDE78D9AA4455C5837953508AE6C8205DFCC5FF311AC78 65F42E91289600AC2CFCDD780B4EE9EFCE8DF79630AF79CA21C09740DBEC20E5 5F2913C767D6230D71172562CCF6190D1879B71E7CA2497F5B4C6266921BC489 D2D21480FE48F9F899BE09D0A8CC067694FDCC586DA856B0201DEDAE1B224DD9 261C5E2113E05A540156D3F7A2DEE0FEBE72C02DF9FEED4CF8C807520F610701 2BC9C5121A119FA8654F2ED27E806DB721453C7A096D74B12C01DE85C33215B5 844A9B84EBD87B3525A62537BA54AAB879136368575A90F76A9EE857468DEE3E 8535CD771022D1E630EABF82F2052BA2B5E36FEE3B9A98010844D3DEBAF9084F A32F9CF94CB9ACD6CB03AA7D42220DF3AB81FB9DF3389BBC8F8C405F96413EFA BC514C61E90CBF10D412D73E4BE8BEE7560F2B3982EDAE7CF57F654EA4164E2B 9B493848E2B6A79E52675336766AF080D527999002FA63B081045F3A1D6203BE 800FE9D6691EE9A40D0008761BC143D5B48735969693C4506C4E50E408C51E3A B9AFFC84F2820CDE0D974F6A2EAFAFF67E0C9A16440D9921C529969F5017661E 1AB4DDF11815DB1110CACC52CAE906689EAC889481C5C57911BA9AC08BE368A4 742239D5526D9F2407B7A0D1F04C7052A4F3C9FC1B3EB9B79F5CE87A12DED9AE 0D779D14C9F50119CE994E1D1612FFCA7F66CB315E8F7A8DB5E0BB58F2BC4ED2 A735B926853E282FB2219802330175BEDD60B8D00EB02CF9EBC68CA7EE789FC0 8715F4E58EEEF44D48216B6C16425A6C6E42B11A6171C6F71F653707314C33C2 4FF331854468CA6BDD04ED53E0EBCED3281C5BD94902C37654DE0C0585F4A0D5 0197D2F32D6FC3359F83DCF3A92246B49AFECE98AA093F8E932676D73F3909D0 834B179A940287B5F192986F68452A7441E044C6C4709D6D550FE6080A7F4797 73E4F56D6DC85AAB1A78269C4C8FADAA459EAB80A0D6C0E48F1D0658D16E0EF5 F5E1020016D53B855683A051C877418600D75B7155B85EDE07CFAC0A9D63D563 C90CD98477C02D687EBFC41BE0C3BA2D4E4EB50C401659E8BFA20A7B28B740F4 62F1EB490B9E94ED9EFE33F654B74E3840D465E8F5F4628DB356D997FAEF7AF1 A60533ED9692FA1868E8F5C1500058A065A405866DCDD19AAC3A07E331014084 233AD43F5245C8B2C7E4C9B4F87957C30682AFC29275F76794A52155B05FA74B 94FD084C25227F03A4A8EA03348164D295C92A63689D4701FC12365467D56D21 0B18FA197B89E6D481F55C2E0F54E6749FC5A5D21DDE42346E830A357F32DEBE 2FCCAD0C63CC27AC15D4072188145B9C13A494C4951FF288CC5EFB5962E0521F F31577ADB52C6BA035E3328586BBD9114F1D53EA398161F464729E090FB3C6C5 9D85E8166827EB01833EF3AD903ED3EECA7CF57C82032A69832459FA1606FB60 3F00799E25D090816C27045DAFF8508B172D48B2FF057C994E2DFF781ECF64DA 16836A146AC06E8F779625436E7FD84AFDA555985C013859445FDBCD5A124EC1 4DFFA96B380B547F59D937121322BDFD26FCDF711C234F1BF3C8120EEBBB2D88 FE1811ECBB5EDD9373255EF01C27E7D80729BDE90B2A4A8246D5B9296D86F711 BDEA95B86E113CD460799407022AEBDF6964C01CCD163293FD5AA32FF2A39E9C 9D7979868ABAE2CDD708F3433055F3896AA323432AA3FF89E5F8435541CE01D2 77841E6EE1DCC5FD03D4F19BE4933B761DDE796B3070B22FEDCE315ED42FE47F 91FBB7C05B2D41D2AD8F83926A62E796ED52A9093E150D5E1D94A0FBFB4ADAD5 35C633BFA0064C2A2CC26D8B2D7B3A43C5144CEB521D51ADEF307DF903CED651 4C36C23E9996CEB41E0D0DF1D2AE3B20656CACA1944F61B3289BC269D6A236F3 04D33FFBA7A9ADB2E17B26D75C1AD3A71182012441BB2A5F77E281FFB66A4AC0 5370EDF218F458CF75AC159980E209A3809DBC9A3234167AEC65D4A3F7A4B4AD 0B0CC248ECCB2201FFF3F4AF4DD75E4CD5E8ACCF3B1D340141031267080E11E5 28861C5DAE117A35187E668DE17C588767D5F6EE3F9169BE56D1DEA83AEA3F0E 83BCB5C576627535C016B666F4148991C35310FDC913CEC7B7087EFD399C79FF D2729131E9ACE4515AD071C1E85E5B7B12A22A02D9679757A4714E87BB25B730 5CB54C8461D9F049FCD0CB5E137C2DD1CD60E0768623EF41C8418B44BDC8506B 9ECB20AEAFD080499E5679AF3192873B982CBF67B8ADC74617B317601B5C2CC2 DED220487C40EE1957079F40CA23B08B40987D02F9A4AEC8A9B8F14EFB94345A 5C010BE0CEAAA3BD0E7BB45E7E6481F6A52CF4C5F235F2E9AB31AB83EAEDA618 C79FC11392343DB1D3867BAE9A60A60EB56CAD27D78985A842AC5A35563265D3 5789BFFD7D740425FC466386DB8102AB47F2EA9278FAED3F77A97021165175A5 BB799FD15CD4339D1063178669CC9FA1BD7944B6A6BA23D1A6CAF64D360675F8 0FE3D590CA29A6E49F101C92819E290AC76C52EBA6E8A0CEC58C23F137E76D10 046891552A35C8514C9786598A2A36480CB69C5509B2667DD2C75DF8DC502EF4 9FB8CA1E3A777B035C9DE38C4E191E2289EBD57D22D095A3247A83C6983C9FFC A3360428999F4ADD8CB19C2765D533B37B19F0D7A90B8032903FB771116EBAD6 66408352E417810A48AA3ACAA33891ED82005F337E6ACA572B7DC03389A5B005 C2D154930F0DA8C3879B45BEDB3954C7B23BB987DA51E58CC60A064A805686BF DB38A32DA0E7F33DBF4FDCBFA38DE572FF8940DC13AA02F177A2E9ACD5A51576 FB0861DE943B1E1FC43D6EAD62F268DF522E887390B1068BC307DE6B83A898B0 C9B0D6A2FE1155CA9588C23F05660EFE0FD8373C7A4472F444E28F5766FA4F35 57D0633071D05B7F6DFD061665C053629023033CB6C47CBA0BA4C3FC5B8B1003 22B7281CEC89DF7379EF6105764F575DA0A98312CF6C27DDAEBF19F411F4F84B 5E900777A93128061E660D7E6AD6231D2739CE10DD5D42CBA9E6EDC14FD6B448 B7DDDFDD9B7D500E143288E12F918A080126C88E0D8148A8E20FCD744077E96A 1E51FA0150B157FC4D7CB37719EBB76B1DF4F8EA2D27BBFE2936BE92185BBAD5 293B29C9B90CFF4E0F5F442C16FBD947E2840A74F5D8E146257477A4EF20AD5F 81706EAF71701473C6436C9D36FA737F17FF063176FE622A764C418D22882BAC 40518720EAF7867FDE0C73E1C2D617905D2DE0446CFC136D39A84A7F5EFA63BE F6C22CD70F83437AB8E86E227A6B4FC4C415E2DA8EF1DCC524645BD9D6CA7160 3A3A48DF4539D9D77374292C2E5384B91F036C4692494CB392A848EF217DCDA4 505BBCA62FA1CEE33171A9CA80840657CF2897CC0D4BBEA9A743E6FE6D9119BF D74046AE6203F77DEA65EF5A62AC18D5E9C36515B22D688351E639C39A1E7F17 E81EBA231DCC2C68833D8B93E0750B62E30FB09DA9D23AC085D6C16722856E08 A1DAB0F3F3EF69A5738D03E54C57B4DBD2CF90B3DC4DE8948068785ADC7D5244 FBFA41AF4E8CBACC820EBC624DAA3C498ECF4E15A973000C4BD9D1590C8BD836 1B713301CE6707C5F95D2BBA48D5526A5726607AF2E15A306C425398DF4D0C16 2EE130A71C0389672D382EBED30DBBABEBCFF6ACD389D01DBAF89474C9F0D434 FD6AA06E6D51DE070B42CC131E71FB919BE113358FDEE0F6D4017400EB0C2DB1 9BF8872CED4D6697A2B320DC8FCB33FB6E9548948B4DEC84DA1D075DFEE913DF 8D787ABDB72DDBD0F9C178CBCC12CE243BE648681CF88CE44202C0ADEC62BFC0 254CB0088DBC3053BE68C9F4F067B1F0C83BE35ECDC454411C1C6C19B6EDF89A C953E8DA712DE5BAC701DE4CCB37865FBDA6FF7D0F9B72B0B0187BD73F1AC32D 067C6C627E3CCB3F9AF7601B15621C148D6B3DE04745BA2B4CA03AC0051A4019 D2E9143950ACE5D80BCACD8873899EBA94B83AC1A0DDC2456B7A45645D5DD05F FE7ADA0A70F06BB99EDA397F6F538F828055090EF6B37FAE71278E670A4CDA5B 4E2736B3A881E950072972FA56437567CF05754F874711138A133A9EE91DD210 2C4DE2FE001AD47785BE47ADF19439CA1C3B5D86DE9C81B6013F2ED80A621E5A E92AC8F518B06AA38E7DF3FAAE7A308124C2C8087626C9A6ED78A536D9AB07EC DE760B1FD0708157715E496F7050A16AC7E7050F59BDF34E7A2241011D0158DB 1E2BB3F6D4FECE15E47DC498C33F37E0A76CAFFEBEEE7BDBD81B371F2F5FD9B4 483F4C8CE1CB7CBAD6331B736AFB58B57719C9EBD995BE81F8897938353845BC B321861BA469413F6BEA75DBF69C037C1282946154693486E18D154EC0FB3FB0 A2ED0568C11B882E40BFB199FCB4F27F7259445193A52E2D28A26954BE21DFC9 F923F0CCC948E99B74C459CBC5E825DCCF5B62B1142F1CBFFB633C040A4BD4EA C08E0946C86D91C1CFC2A8008B153C8E451AFCE034A26CD4D49C26390C4968CA 5D9B513F2C03AFC7ADFB879172693F0856ACE512CACF5D8110F473EEC8A587B7 7653D7B2A5CB4382DFAC185F945841E94DC5C1F3B750896B2E088A36525CF28A 32ACF288148300C5D4673B108C70B756B5AB0C832F8E663CAFD998DE890E57D4 9E4500F5D86C8FDF185912EB2DB6F58F43DAA058704272043DDD5DCD01518B63 A7FE6D2304FDC0EE651D396AB0A905A3B9BE6181B0C115873F3E87880916F60E 1CE2733500D55DC4958D95C3E2474214C7553A5A09A420C5F98F7EBE4A40CFC7 F7F2350C620E25A97485708A5C3F81670B73EC5A38DB94BA60A1C0925124BFF3 9434E3F7589F196639B9A9AD649CE2F995D0B2DF444686C8F0DB7FEF48A65D70 1A73878E106D7ADCE37A2F47B3077558E1B279B7E733AFEC587EADFDE5AF422C 91AC39A18DA063602783AAD902928C15EBF7543FAE08A403D027F437112836A9 68932ED10670BF0672AA63F253710ADD3F98FAC5436D58229E97D9E83582F700 07BE58B2DCC540013610FAF099541FE9D695773E9546BEF5E0F074547B22963E 9F3A646A2DD21DFBC33FAC17819EED90B1068BD768065218100EF59438A73C41 70BC12B35893336490B7C4194662911582B4CA057EDAFD3BEE8C7B75A23F5B62 FEAABAE2D7252FDB7FC6D6E4FF1020ADBFE00490C154236C4E960A168F7B0629 6AFB53899EBEE3B54502E65B0BE4A8B649E82A948A740896F16A0CA3404B93F3 919108B91E7309FF25C3ACC7A82E3EECCFAA9FF29D1D4839A93D73FEDB1E65BA B493296249E7D53F699E040EBD16FF53FD08BB08DCF54DA0D9C201874C92763D 6A01A866523FB8F1BD0C4EE4D883F2ABBB8698B8939330057302E86DC1CF98A1 A588690C2BB37231940BBA3718B6E503E2D1A1F2C548130037C8AED9C2AE4BA6 D93461AA6A26D05E6077C30A2B1496337884A6327FD14A80D599428C29539522 44BCFCB749FEF2B1920B8101FAD95EC68CA3B3EEC30F8F5F9BFB43A7E16BDFE0 3F223A999452AF9279C3B94599BAA63E4F6C5A7F05530FB1762AC80B70966AAE 66CE035B3D9F5880244E7BD39EA6D2B630850C08FF0CCBBFBC5E41025E4D270D 5FA80AC17EAC85A7CF4DEBAD21D5F92139BD61AE4FC6E82CDEBB3FCA88DC3D63 9818A692FC09D36239DE9170737ED84987BADFA150796E6396508F709718767E F3757612619E3E01ACA6F6CB20B0AB85A6566145EA34105B1B44227102498E65 F4EA7EA7ACA2D4D1C0B1A4BC5D04BDC01ACF1101BAAE8076639BC6AA42A3A5A9 84745681A42FB79254F8E2CEC3B017B403013F29E59708F73076A65282B1E6E2 5673DDEDCB496A858E83234A85C5A7D42F5129B456DD36FD938905E7450079C4 950700E589A52B8475E9FD5B408206267B10CB1196363D53116324394BF31F2C 3A12C5965137DDBF9A04615C7DBEF7C22433634B804EC2FE1B4A28AA4A649F6C 75E5295FA4954D11470E31D7828812818DDA5CA2F89D33B2C29DBB946EBB9A05 1A5047CA8ECE4025466E53F5B2D499ABB1BFA0D91E361561CFFB78FE92685B5E 1843A54B922402D6EEE00074411FBDC52E994C0DB80E2A36171522E53EA0818C 3DF553696C7999CDDE5D63F04DD389202E1F52F01DFEB8AE71BD077D2596ED13 1EFB699470C85BDDA87CE4912EC0F36FA7AE19F337D3C887B531BF55DF20201E 4E923BC3A252AD29794926419E747B919E8EE6E4F4834E7B584D9396B044EB35 C855602E13DEFCE023855607A044A0153224ED064C548BF6D7208F98A54A40B8 83C841FA3767F43FA7D330FE27FAE64EEA65CA7594CDF710BD9EA9EA7B5AAE7D C43303BA4530C33A38B6A577C044D785B670A9FC9D5EE58CDEBDB161FFFCAEE1 EACF84BBCA69E6A1787CB926AEEB572DB8E679ABC1954216839E94A461E94EB0 00676944D287331CD397852BD355A98338B8A04147FBF33CE1691D5A290A6B3B 4702D25F09CF034BD86D055967DBF5A30FF169C2DB231E0C296211E222C04904 0C5C7CAFA5599496B720D7FE13313173AF58DFE6E701F84595D78095D0BB6D8E A7EE83835E7563F93D797E4F6BB2DEE01594F5565A50E5046E75D963A05FEEC3 6816EC50804708CDB42E37BC0AC43DE699F11465E58D59788F0A16FF21D8CEFD B5CF2B275F9513123D8BFC0949E778C161371032BE4902119587A95ECB8187F8 E632DCE5D956C165328DB2F92DEC1BAD882D89D348253C702D6586B83649ACB7 FC3B73296F43F428FBF4EDF31893A3B2AA68CA25E674AFB451B5E6F3CB073526 819931A6623221216D900BA30D83B7B1B42E16D2DC79B1415A11037A0B464E8A DF97B9B86C148B1B538B2CF2EDE51F813888DC7F092B21502FFD9BF2269514A1 29AE47955EFE00649B3D11FA8CC44E9AC7A1D7ACB000F1F1D00DDC9D4984FB44 AA5FC90DBAE9FAF8521B0CC2274F522EE1920B7B72B7E4C967F80D301311EB45 C2BDCB8410E890E3CD87745F17D0C7A5D56C7361C37598173374E09A8A9E77FD 30F0D7B3AF95C884EB8CF4853E48CE579297210D356807A96972C3A2C62A24A3 3E8CE4E2A0CEA310D96B489F4ECC0E69CD224DB2559CA6E3658218AF47E0608F 6CEC478BF49C72150FD3C7C1C9589619DA3ADD7718EAF9C22DFC777E2A871F30 57EB88F2E3CDE50F7693D5A47AA1CD1CB39704E498B6E1D7E30C92E7176BA440 B784F91FE9300AFBEB012AEAC7C323DA49947D7F46C1640A73ECE77435364212 6A4F3CC1795F9FDC5FDAFFD0FCA901EAB0FF7F3C8B6D6EAC8130A04A4AA53A1D 8A295191383FB52DD701BBB8D09FC133FF71069E1BF6211248310A238682AEC3 17F900C7571FA5B4175679D8CA7037ED6872DFCF6CEA80048C2C76347A8C4DE0 4217CFEE995096299797505A9600AF9885F29C5F33292792E4FF4466D6FA0F75 1F9A6C6E16E8471A09F1C804548302A0FB11634E247639F012C3A2190E83CDF3 52188C9C94BEE1F3BCC862091A3A8C4A17F52AB988092A97206575393B0B7312 0D5934F1F25454919A1A6D18418A3E0345DB8AFAFAD864FE0B1837E7EA0446F5 0BECCC9CE7102BFEA74C248A41093F5FD2159B752A9C5B2E3B8543824F8D77D9 8CB7196FD250F7AA0183308713DFDB154347EFFAC77324C8F6C1838BFDFEBA9D 7317705961B8420A93A912012E5A286CDA05D7C948F1E0FA5C91779ED2CD85A2 5A0D6FFC0BC16484B548958991AFBFD122F49718E8425D412BE76CA5EDDD65C4 9A843F0E765684BEC53FD7FF5F2C94D545D7F8760E28C727CCA9CAE52AEDE375 950DEF9A506FFA1D8B948DB4C4CC771CF114A991BD6E28A95C122382448267E5 55E2E8EC52E6022BD3AF2AF596EB5A0733A3597CC86235558EE7F1ABCACE0E92 8F4BE309C7CB20E361F938E512C9CEE0C1C6024664BF6FC4851E11AF8D7B421D C5C37FDDA13A50C88FF8EF039D3AA81376E46824C73785FC373A88FEEDD3E480 19211402EB895758A5618C462178157F41983841AD6CFE0C272B9713A1EF0B39 5FBEA1DC6D7D45DDEC4B133E78569928BC06722CC0B8784AF7351512AE2C9F4A A2D6ECD728D578FD6278BB7822FA1BFEDB519359AAEB688D118BC46D84CEE8A3 158111BA3E756CD354417DCEE985A06FB49F8923C5CBB91DA46E71D76BED3B79 975ECC7B18FAE8DA44B3EC39B398A8725A856F16A965F1415CC73435CA7417E4 7E2713AD39A1AC52A6A3E6C73DBD6312A3770983044BE9434E08F268A1C63230 2C197A49237F73414B5CDB1A3C1376B18814E51924DE685941EB13789E9B4694 F1CD319253863DCD44A2F5C5A909B641CD94720522370613D9CAE06ED30DDB05 2CC977169F3C1E3FD7D7FEAAFB601E35DFCFC0AA68E63F28562FCF4756AAC219 92F11C77525F82048E8212833F8A3567889DBA63C13F646A59AC665DC0F40861 58A910E2AE9236729D97ECB55F2F7BDCC6EA8168E4E333238B716A31EB8D8B8B 44944553A339A4F56C465A6DE057DE6975C112AB3700181A62039C3AA6D7CF99 F7BABD35F20260B3EE5A712DC180E56B648549334B1A7C341105B044E7AA43FC 5AF9E4B8A2A2385386D7ADBFC782E0DEF25108438DA20ED587898D8CBA9BB5D2 ED9ADFC81B4E85958658E5396C243C6BE961ECC6056F35400E3A310523A45222 F447322FE2BFF63E665F815DA368D003A16C786B51EE237C1979BA058F944401 1D84BF05DD377F0A0581B4EAFB9EF2879FF1ADBD484459A70C335A83A40423D5 ED999944C65AB54FEDC28D043259A6251C9B87C60A3D664FE89767FC5DDF575B 37821DC3956EC6325370781A0D9BC484EDF36A3DA288182E468E76E29823151E 945EB0BAFE1682464FD6407D5FF96D7968822666BE29708594D07A87C6F18F61 332D8BB527D147EF8EA872940BB43C420115E6B6E4AB539912E1DE5F095EDCB1 BD4F83F9C635C57858A3BC7289E4F09BCF30B0217D595C6283AD966838CFAECE 6195B0EE8B38CDD4B07401286623778314FBFD5E9E9D213F8C74C0035ADA5B40 2512A4F7B06E79D05E30055BC590375403D905CE571D84581EB6CF4472FA8817 5111976083C7C657D8CE22E49579843D59789D6A97133D0BF604E6F563B77973 8A2D8ED05907BAC946DC627494A0A9A51FD3D28212B02C485C745C44C2093565 07710A3260DB101ECB9462 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 cleartomark %%EndFont TeXDict begin 40258437 52099151 1000 600 600 (gpsim.dvi) @start %DVIPSBitmapFont: Fa cmsy10 10 2 /Fa 2 16 df<00000003FFC00000000000003FFFFC000000000001FFFFFF800000000007 FFFFFFE0000000001FFE007FF8000000007FE00007FE00000000FF000000FF00000003FC 0000003FC0000007F00000000FE000000FC000000003F000001F8000000001F800003F00 00000000FC00007E00000000007E0000FC00000000003F0000F800000000001F0001F000 000000000F8003F000000000000FC003E0000000000007C007C0000000000003E00FC000 0000000003F00F80000000000001F01F00000000000000F81F00000000000000F81E0000 0000000000783E000000000000007C3E000000000000007C3C000000000000003C7C0000 00000000003E7C000000000000003E78000000000000001E78000000000000001E780000 00000000001EF8000000000000001FF8000000000000001FF0000000000000000FF00000 00000000000FF0000000000000000FF0000000000000000FF0000000000000000FF00000 00000000000FF0000000000000000FF0000000000000000FF0000000000000000FF00000 00000000000FF8000000000000001FF8000000000000001F78000000000000001E780000 00000000001E78000000000000001E7C000000000000003E7C000000000000003E3C0000 00000000003C3E000000000000007C3E000000000000007C1E00000000000000781F0000 0000000000F81F00000000000000F80F80000000000001F00FC0000000000003F007C000 0000000003E003E0000000000007C003F000000000000FC001F000000000000F8000F800 000000001F0000FC00000000003F00007E00000000007E00003F0000000000FC00001F80 00000001F800000FC000000003F0000007F00000000FE0000003FC0000003FC0000000FF 000000FF000000007FE00007FE000000001FFE007FF80000000007FFFFFFE00000000001 FFFFFF8000000000003FFFFC00000000000003FFC0000000484E7BBB53>13 D<001FF00000FFFE0001FFFF0007FFFFC00FFFFFE01FFFFFF03FFFFFF83FFFFFF87FFFFF FC7FFFFFFC7FFFFFFCFFFFFFFEFFFFFFFEFFFFFFFEFFFFFFFEFFFFFFFEFFFFFFFEFFFFFF FEFFFFFFFEFFFFFFFE7FFFFFFC7FFFFFFC7FFFFFFC3FFFFFF83FFFFFF81FFFFFF00FFFFF E007FFFFC001FFFF0000FFFE00001FF0001F1F7BA42A>15 D E %EndDVIPSBitmapFont /Fb 205[45 50[{ TeXBase1Encoding ReEncodeFont }1 90.9091 /NimbusRomNo9L-Regu rf %DVIPSBitmapFont: Fc ecit1000 10 24 /Fc 24 122 df<0F801FC03FE07FE07FE0FFE0FFE0FFE07FC03F801E000B0B6F8A2C>46 D<000007F80000001FFE0000007FFF800001FFFFC00003FFFFE00007FE0FF0000FF003F0 001FE003F8003FC001F8003F8001FC007F0000FC007E0000FC00FE0000FC00FC0000FC01 FC0000FC01F80000FC01F80000FC00F80001FC00000001F800000001F800000003F80000 0007F000000007F00000000FE00000003FE00000007FC0000000FF80000003FF0000000F FE0000001FFC0000007FF0000001FFE0000007FF8000000FFE0000001FFC0000007FF000 0000FFC000F801FF0000F803FE0001F803FC0001F807F80001F80FF00003F80FE00003F0 1FE00007F01FFE000FE03FFF801FE03FFFF03FC07FFFFFFF807F3FFFFF007E07FFFE00FE 01FFFC007C007FF80078000FE00026357AB32C>50 D<00000FF00000007FFC000001FFFF 000003FFFF80000FFFFFC0001FF81FC0003FE00FE0003F8007E0007F0007F0007E0003F0 00FE0003F000FC0003F000FC0003F000780007F000000007E000000007E00000000FE000 00000FC00000001FC00000003F800000007F80000000FF00000007FE000007FFFC00000F FFF800000FFFE000000FFFE0000007FFE000000007F000000003F800000001F800000001 F800000001FC00000000FC00000000FC00000000FC003C0000FC007E0001FC00FF0001F8 00FF0001F800FF0001F800FF0003F800FE0007F000FC000FF000FC001FE000FC003FC000 FE00FF80007F03FF00007FFFFE00003FFFFC00001FFFF0000007FFC0000001FE00000024 3577B32C>I<03FFFFFFF007FFFFFFF807FFFFFFF807FFFFFFF80FFFFFFFF80FE07F03F0 0FC07E03F00FC07E03F01FC0FE07F01FC0FE07E01F80FC07E01F80FC07E00F01FC03C000 01FC00000001F800000001F800000003F800000003F800000003F000000003F000000007 F000000007F000000007E000000007E00000000FE00000000FE00000000FC00000000FC0 0000001FC00000001FC00000001F800000001F800000003F800000003F800000003F0000 00003F000000007F000000007F000000007E000000007E00000000FE00000000FE000000 00FC00000000FC00000001FC00000001FC0000007FFFC000007FFFE00000FFFFE000007F FFE000007FFFC00000253374B22C>84 D<7FFFFFC0FFFFFFE0FFFFFFF0FFFFFFF0FFFFFF E07FFFFFC01C067A7D2C>95 D<0003F00000000FFC7800003FFFFC00007FFFFC0000FFFF FC0001FE1FFC0003FC0FF80007F80FF8000FF007F8000FE007F8001FC007F0001F8007F0 003F8007F0003F0007F0007F0007E0007E0007E0007E0007E0007E000FE000FE000FE000 FC000FC000FC000FC000FC001FC180FC001F87E0FC003F87E0FC003F87E0FC007F8FE0FC 00FF0FC0FC01FF0FC0FE03FF0FC07E07FF1F807F0FFF3F803FFFFFFF001FFFDFFF001FFF 8FFE0007FE07FC0001F801F000232476A32C>97 D<7FF80000FFFC0000FFFC0000FFFC00 007FFC000001FC000001F8000001F8000003F8000003F8000003F0000003F0000007F000 0007F0000007E0000007E1FC000FE7FF000FFFFF800FFFFFC00FFFFFE01FFF0FE01FFC07 F01FF803F01FF001F83FE001F83FC001F83F8001F83F8001F87F0001F87F0001F87E0001 F87E0001F87E0003F8FE0003F8FC0003F0FC0003F0FC0007F0FC0007E0FC000FE0FC000F C0FC001FC0FC003F80FC007F007E00FF007F01FE003F87FC003FFFF8001FFFF0000FFFC0 0007FF000001FC00001D3375B22C>I<00007F800003FFE0000FFFF8003FFFFC007FFFFC 00FFC1FE01FE00FE03FC01FE07F801FE0FF001FE0FE001FC1FC001FC3F8000703F000000 3F0000007E0000007E0000007E000000FE000000FC000000FC000000FC000000FC000000 FC000000FC000000FC000000FE0000007E00001C7F00003E3F8000FE3FC00FFE1FFFFFFE 0FFFFFFC07FFFFF001FFFFC0007FFE001F2475A32C>I<000003FF80000007FFC0000007 FFC0000007FFC0000003FFC00000001FC00000001F800000001F800000003F800000003F 800000003F000000003F000000007F000000007F000000007E000003F07E00000FFCFE00 003FFFFE00007FFFFC0000FFFFFC0001FE1FFC0003FC0FFC0007F80FF8000FF007F8000F E007F8001FC007F8001F8007F0003F8007F0003F0007F0007F0007F0007E0007E0007E00 07E0007E000FE000FE000FE000FC000FC000FC000FC000FC001FC180FC001FC7E0FC003F 87E0FC003F87E0FC007F8FE0FC00FF8FC0FC01FF0FC0FE03FF0FC07E07FF1F807F0FFF3F 803FFFFFFF001FFFDFFF001FFF8FFE0007FE07FC0001F801F000233376B22C>I<00007F 000003FFC0000FFFF0003FFFF8007FFFFC00FFC1FC01FE00FC03FC007E07F8007E0FE000 FE0FE000FC1FC000FC3F8001FC3F0007F87F003FF87FFFFFF07FFFFFE07FFFFF80FFFFFE 00FFFFF000FC000000FC000000FC000000FC000000FC000000FC0000007E0000007E0000 1C7F00003E3F8000FE3FC00FFE1FFFFFFE0FFFFFFC07FFFFF001FFFFC0007FFE001F2475 A32C>I<000007F00000001FFC7800007FFEFC0001FFFFFC0003FFFFFC0007FC3FFC000F F01FFC001FE00FF8001FC007F8003F8007F8007F0007F8007E0007F000FE0007F000FC00 07F001FC0007F001F80007E001F80007E001F8000FE003F8000FE003F0000FC003F0000F C003F0001FC003F0001FC003F0003F8003F0003F8003F0007F8003F000FF8003F001FF00 01F803FF0001FC07FF0000FE1FFF0000FFFFFE00007FFFFE00003FFFFE00001FFCFE0000 07F0FC00000000FC00000001FC00000001FC00000001F800000001F800000003F8000000 03F800000003F0003C0007F0007E000FE000FF001FE000FF003FC000FF01FF8000FFFFFF 0000FFFFFE00007FFFF800003FFFE000000FFF00000026367BA32C>103 D<07FF0000000FFF8000000FFF8000000FFF80000007FF800000003F800000003F000000 003F000000007F000000007F000000007E000000007E00000000FE00000000FE00000000 FC00000000FC3FC00001FCFFF00001FFFFF80001FFFFFC0001FFFFFC0003FFF0FE0003FF C07E0003FF007E0003FE007E0007FE007E0007FC007E0007F8007E0007F8007E000FF000 FE000FF000FC000FE000FC000FE000FC001FC001FC001FC001F8001FC001F8001F8003F8 003F8003F0303F8003F0FC3F0007F0FC3F0007E0FC7F0007E1FC7F000FE1F87E000FC1F8 7E000FC3F0FE000FC7F0FE000FCFE0FC000FFFE0FC0007FFC0FC0007FF80F80003FE0070 0000FC00263379B22C>I<00000F0000001F8000003FC000003FC000003FC000003FC000 001F8000000F000000000000000000000000000000000000000000000000000000000000 000000003F000000FFC00003FFF00007FFF0000FFFF8001FE1F8003FC1F8003F81F8007F 01F8007E01F800FE03F800FC03F000FC07F000FC07E0000007E000000FE000000FC00000 1FC000001FC000001F8000003F8000003F0060003F01F8007F01F8007E01F800FE03F800 FC03F000FC07F000FC0FE000FC1FE000FC3FC000FFFF80007FFF00007FFE00001FF80000 07E0001D3475B32C>I<0FFF0000001FFF8000001FFF8000001FFF8000000FFF80000000 3F800000003F000000003F000000007F000000007F000000007E000000007E00000000FE 00000000FE00000000FC00000000FC001F8001FC007FC001FC01FFE001F803FFE001F807 FFF003F80FF3F003F81FC3F003F03F87F003F07F0FF007F0FE1FF007F1FC1FF007E3F80F E007E7F00FC00FFFE007800FFFC000000FFF8000000FFF8000001FFFE000001FFFF80000 1FFFFC00001FBFFE00003F81FF00603F807F01F83F003F01F83F003F81F87F003F83F87F 003F03F07E003F03F07E003F07F0FE003F07E0FE003F8FC0FC001FFFC0FC001FFF80FC00 0FFF00F80007FE00700001F800253378B22C>107 D<7FFF00FFFF80FFFF80FFFF807FFF 80003F80003F00003F00007F00007F00007E00007E0000FE0000FE0000FC0000FC0001FC 0001FC0001F80001F80003F80003F80003F00003F00007F00007F00007E00007E0000FE0 000FE0000FC0000FC0001FC0001FC0001F80001F80003F80183F807E3F007E3F007E7F00 FE7F00FC7E00FC7E01F87E03F87F87F03FFFF01FFFE00FFFC007FF0001FE00173370B22C >I<00707E007E000079FF81FF8000FFFFC7FFC000FFFFCFFFC000FFFFFFFFE000FFC3FF C3E001FF83FF83E001FF03FF03F001FE03FE03F001FC03FC03E003FC03FC03E003F803F8 03E003F803F803E003F007F007E007F007F007C007F007F007C007E007E007C00FE00FE0 0FC00FC00FC00F800FC00FC00F801FC01FC01F801F801F801F001F801F801F001F801F80 3F003F803F803E003F003F003E003F003F007E003F003F007C007F007F007C007E007E00 7C007E007E007C007E007E007F00FE00FE007F00FC00FC003F80FC00FC003F0078007800 0F002C247DA32C>I<01F007F00007F81FFC000FFC7FFE001FFEFFFF003FFFFFFF803F3F FE1F803F3FF81F807E3FF01F807E3FE01F807E7FC01F80FE7FC01F80FC7F801F80FC7F00 1F80FCFF003F8000FE003F0000FE003F0000FE003F0001FC007F0001FC007E0001FC007E 0001F800FE0003F800FC1803F800FC7E03F001FC7E03F001F87E07F001F8FE07F003F8FC 07E003F0FC07E003F1FC0FE003F1F80FE003F3F00FC003FFF00FC001FFE00FC001FFC00F 8000FF800700003E0027247AA32C>I<0000FE000007FF80001FFFE0003FFFF000FFFFF0 01FF83F803FE01FC03F800FC07F000FC0FE0007E1FC0007E1FC0007E3F80007E3F00007E 7F00007E7E00007E7E00007E7E0000FEFE0000FEFC0000FCFC0000FCFC0001FCFC0001F8 FC0003F8FC0007F0FC0007F0FC000FE07E001FC07E003F807F00FF803F83FF001FFFFE00 1FFFF8000FFFF00003FFC00000FE00001F2476A32C>I<0007C00FC000001FF03FF00000 3FF8FFFC00007FFDFFFC00007FFFFFFE0000FE7FF87F0000FC7FF03F0001F87FE03F8001 F87FC01F8001F8FF801F8003F8FF001F8003F0FE001F8003F0FE001F8003F1FC001F8000 01FC001F800001F8001F800001F8001F800003F8003F800003F8003F800003F0003F0000 03F0003F000007F0007F000007F0007E000007F000FE000007F000FC00000FF001FC0000 0FF003F800000FF007F800000FF80FF000001FF81FE000001FFC3FC000001FFFFF800000 1FFFFF0000003FFFFE0000003F9FF80000003F07E00000003F00000000007F0000000000 7F00000000007E00000000007E0000000000FE0000000000FE0000000000FC0000000000 FC0000000001FC0000000001FC0000000001F80000000001F8000000007FFFE00000007F FFE0000000FFFFF00000007FFFE00000007FFFE0000000293680A32C>I<01F800FF8007 FE03FFE00FFF0FFFF81FFF9FFFFC1FFFFFFFFE3F9FFF81FE3F0FFE007E7E0FFC007F7E0F F800FF7E1FF001FFFC1FF001FFFC1FE000FEFC1FE000FCFC3FC00078003FC00000003F80 0000003F800000007F000000007F000000007F000000007E00000000FE00000000FE0000 0000FC00000000FC00000001FC00000001FC00000001F800000001F800000003F8000000 03F800000003F000000003F000000003F000000003E000000001C0000000282479A32C> 114 D<0000FFE0000007FFFC00001FFFFE00003FFFFF00007FFFFF8000FF807F8000FC00 7F8001F8007F8001F0007F8001F0007F8003F0003F0003F0001C0001F800000001FE0000 0001FFF8000000FFFF0000007FFFC000001FFFF0000007FFF80000003FFC00000001FC00 0000007E000000007E001C00003E007F00003E007F00007E00FF00007C00FF0000FC00FF 0001FC00FE0003F800FF803FF0007FFFFFE0003FFFFFC0001FFFFF800007FFFE000000FF E00000212478A32C>I<0001E0000003F0000003F0000003F0000007F0000007F0000007 E0000007E000000FE000000FE000000FC000000FC000001FC000001FC000001F80007FFF FF807FFFFFC0FFFFFFC07FFFFFC07FFFFF80007F0000007F0000007E0000007E000000FE 000000FE000000FC000000FC000001FC000001FC000001F8000001F8000003F8000003F8 000003F0000003F0000007F000C007F003F007E003F007E003F00FE007F00FE00FE00FC0 1FE00FC03FC00FC07F800FE1FF0007FFFE0007FFFC0003FFF80001FFE000007F00001C33 74B22C>I<00F80001C003FE0003E007FF0007E00FFF0007E01FFF8007E03F9F800FE03F 1F800FE07F1F800FC07E1F800FC07E3F801FC0FE3F001FC0FC3F001F80FC7F001F80FC7E 003F80007E003F8000FE003F0000FC003F0000FC007F0001FC007F0001F8007E0001F800 7E0001F800FE1803F800FE7E03F001FC7E03F001FC7E03F003FC7E03F003FCFE03F007F8 FC03F00FF8FC03F81FF9FC01FC3FF9F801FFFFFFF800FFFFFFF0007FFE7FE0003FF83FC0 000FE00F8027247AA32C>I<007E00003801FF80007C03FFC000FC07FFC000FC0FFFE000 FC1FC7E001FC3F87E001F83F07E001F87F07E001F87E0FE003F8FE0FC003F0FC0FC003F0 FC1FC003F0FC1F8007F0001F8007E0003F8007E0003F0007E0003F000FE0007F000FC000 7E000FC0007E001FC0007E001FC000FE001F8000FC003F8000FC003F8000FC007F8000FC 007F0000FC00FF0000FC01FF00007E03FF00007F0FFE00007FFFFE00003FFFFE00001FFF FE00000FFFFC000001FCFC00000000FC00000001FC00000001F800000001F800000003F8 00078003F0000FC007F0001FE00FE0001FE01FC0001FE01FC0001FC07F80001FC0FF0000 1F83FE00001FFFFC00000FFFF8000007FFE0000003FFC0000000FE00000026367AA32C> 121 D E %EndDVIPSBitmapFont /Fd 134[33 33 48 33 33 18 26 22 1[33 33 33 52 18 33 1[18 33 33 22 29 33 29 33 29 8[48 63 2[41 37 2[37 2[59 3[22 2[37 41 1[44 44 48 17[18 17 22 17 2[22 22 22 36[37 2[{ TeXBase1Encoding ReEncodeFont }43 66.4176 /NimbusRomNo9L-Regu rf /Fe 205[25 25 49[{ TeXBase1Encoding ReEncodeFont }2 49.8132 /NimbusRomNo9L-Regu rf /Ff 205[31 31 49[{ TeXBase1Encoding ReEncodeFont }2 61.4362 /NimbusRomNo9L-Regu rf /Fg 134[37 37 55 37 42 23 32 32 1[42 42 42 60 23 37 23 23 42 42 23 37 42 37 42 42 1[42 1[32 1[32 4[51 60 46 42 51 1[51 2[69 3[28 1[60 51 51 60 55 1[51 2[56 3[28 1[42 42 42 42 1[42 42 42 42 23 21 28 2[42 2[28 2[42 1[35 30[42 3[{ TeXBase1Encoding ReEncodeFont }59 83.022 /NimbusRomNo9L-ReguItal rf %DVIPSBitmapFont: Fh ectt1000 10 90 /Fh 90 126 df<007000001C01F800007E03F80000FE07F80001FE0FF00003FC1FC00007 F03F80000FE03F00000FC07E00001F807C00001F00FC00003F00F800003E00FFC0003FF0 FFE0003FF8FFF0003FFCFFF8003FFEFFF8003FFEFFF8003FFE7FF8001FFE7FF8001FFE3F F0000FFC1FE00007F807C00001F027177FB22C>16 D<1F000007C03FC0000FF07FE0001F F8FFF0003FFCFFF0003FFCFFF8003FFEFFF8003FFEFFF8003FFE7FF8001FFE3FF8000FFE 1FF80007FE00F800003E01F800007E01F000007C03F00000FC07E00001F80FE00003F81F C00007F07F80001FE0FF00003FC0FE00003F80FC00003F007000001C0027177DB22C>I< 000101808000>23 D<1F003F807FC0FFE0FFE0FFE0FFE0FFE0FFE0FFE0FFE0FFE0FFE0FF E0FFE0FFE0FFE0FFE0FFE07FC07FC07FC07FC07FC07FC07FC07FC07FC07FC07FC07FC07F C07FC01F0000000000000000000000000000001F003F807FC0FFE0FFE0FFE0FFE0FFE07F C03F801F000B3470B32C>33 D<3C001E007F007F00FF007F80FF007F80FF007F80FF007F 80FF007F80FF007F807F007F007F007F007F007F007F007F007F007F007F007F007E003F 007E003F007E003F007E003F007E003F007E003F003E003E003E003E003E003E003C001E 001C001C00191977B32C>I<0007001C00000F803E00000F803E00000F803E00000F803E 00000F803E00000F803E00000F803E00000F803E00001F807E00001F007C00001F007C00 001F007C00001F007C003FFFFFFFE0FFFFFFFFF8FFFFFFFFF8FFFFFFFFF8FFFFFFFFF800 3E00F800003E00F800007E01F800007C01F000007C01F000007C01F000007C01F000007C 01F000007C01F000007C01F000007C01F00000FC03F00000F803E00000F803E000FFFFFF FFF8FFFFFFFFF8FFFFFFFFF8FFFFFFFFF83FFFFFFFE001F007C00001F007C00001F007C0 0003F00FC00003E00F800003E00F800003E00F800003E00F800003E00F800003E00F8000 03E00F800003E00F800001C007000025337DB22C>I<0001C000000003E000000003E000 000003E000000003E000000003E000000003E00000000FFC0000007FFF800001FFFFE000 07FFFFF0000FFFFFF8001FFBEFFC003FC3E1FE003F03E07F007E03E03F007C03E03F00FC 03E03F80F803E03F80F803E07F80F803E07F80F803E07F80FC03E03F00FC03E03F007E03 E000007F03E000003FC3E000003FFBE000001FFFE000000FFFFC000007FFFF000001FFFF C000007FFFE000001FFFF8000003FFFC000003E7FC000003E1FE000003E07F000003E03F 001803E01F007E03E01F807E03E00F80FF03E00F80FF03E00F80FF03E00F80FE03E00F80 FE03E01F80FE03E01F007E03E03F007F03E03E003F83E0FE003FC3E1FC001FFBEFF8000F FFFFF00007FFFFE00003FFFFC00000FFFF0000001FF800000003E000000003E000000003 E000000003E000000003E000000003E000000001C0000021417BB92C>I<000FC0000000 3FE00000007FF0000000FFF8000000FFFC000001F8FC000001F07C000001F07E000003F0 3E000003E03E000003E03E000003E03E000003E03E000003E03E000003E07E000003E07C 000003E0FC3FF803F0F87FFC01F1F87FFC01F3F07FFC01F7F03FF801F7E01F0001FFC03F 0000FF803E0000FF803E0000FF007E0000FE007C0001FC007C0003FE00FC0007FE00F800 07FF01F8000FDF01F0001F9F81F0003F8F83F0003F0FC3E0007E07E7E0007E07E7C000FC 03F7C000FC01FFC000FC01FF8000FC00FF8010FC00FF007CFC007F007CFC007F007CFE00 FF807C7E01FFC07C7F03FFE0FC3F87F7F1F83FFFE3FFF81FFFC1FFF00FFF80FFF007FF00 7FC001FC001F8026357EB32C>38 D<0F801FE03FF07FF07FF87FF87FFC7FFC3FFC1FFC0F FC007C007C007C00FC00F800F801F801F003F007E007E00FC03F807F80FF00FE00F80070 000E1D71B22C>I<0000380000FC0001FC0003FC0007F8000FF0001FC0003F80007F0000 FE0001FC0003F80003F00007F00007E0000FE0000FC0001F80001F80003F80003F00003F 00007F00007E00007E00007E0000FE0000FC0000FC0000FC0000FC0000FC0000FC0000FC 0000FC0000FC0000FC0000FC0000FC0000FE00007E00007E00007E00007F00003F00003F 00003F80001F80001F80000FC0000FE00007E00007F00003F00003F80001FC0000FE0000 7F00003F80001FC0000FF00007F80003FC0001FC0000FC000038164272B92C>I<700000 FC0000FE0000FF00007F80003FC0000FE00007F00003F80001FC0000FE00007F00003F00 003F80001F80001FC0000FC00007E00007E00007F00003F00003F00003F80001F80001F8 0001F80001FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC 0000FC0000FC0001FC0001F80001F80001F80003F80003F00003F00007F00007E00007E0 000FC0001FC0001F80003F80003F00007F0000FE0001FC0003F80007F0000FE0003FC000 7F8000FF0000FE0000FC0000700000164279B92C>I<000380000007C0000007C0000007 C0000007C0000007C0000007C0002007C008F807C03EFE07C0FEFF07C1FEFFC7C7FEFFE7 CFFE3FFFFFF80FFFFFE003FFFF8001FFFF00007FFC00007FFC0001FFFF0003FFFF800FFF FFE03FFFFFF8FFE7CFFEFFC7C7FEFF07C1FEFE07C0FEF807C03E2007C0080007C0000007 C0000007C0000007C0000007C0000007C000000380001F247AAA2C>I<00007000000000 F800000000F800000000F800000000F800000000F800000000F800000000F800000000F8 00000000F800000000F800000000F800000000F800000000F800000000F800000000F800 003FFFFFFFE0FFFFFFFFF8FFFFFFFFF8FFFFFFFFF8FFFFFFFFF80000F800000000F80000 0000F800000000F800000000F800000000F800000000F800000000F800000000F8000000 00F800000000F800000000F800000000F800000000F800000000F800000000F800000000 70000025267DAB2C>I<0F801FE03FF07FF87FF87FFC7FFC7FFC3FFC1FFC0FFC00FC00F8 00F801F803F007F01FE07FC0FF80FF00FC0070000E17718A2C>I<7FFFFFF0FFFFFFF8FF FFFFF8FFFFFFF87FFFFFF01D0579942C>I<1F003F807FC0FFE0FFE0FFE0FFE0FFE07FC0 3F801F000B0B708A2C>I<00000007000000000F800000000F800000001F800000001F00 0000003F000000003E000000007E000000007C000000007C00000000FC00000000F80000 0001F800000001F000000003F000000003E000000007E000000007C00000000FC0000000 0F800000001F800000001F000000003F000000003E000000003E000000007E000000007C 00000000FC00000000F800000001F800000001F000000003F000000003E000000007E000 000007C00000000FC00000000F800000001F800000001F000000003F000000003E000000 003E000000007E000000007C00000000FC00000000F800000001F800000001F000000003 F000000003E000000007E000000007C00000000FC00000000F800000001F800000001F00 0000001F000000003F000000003E000000007E000000007C00000000FC00000000F80000 0000F800000000700000000021417BB92C>I<0003F80000000FFE0000003FFF8000007F FFC00000FFFFE00001FE0FF00003F803F80007F001FC0007E000FC000FC0007E000FC000 7E001F80003F001F80003F003F00001F803F00001F803E00000F807E00000FC07E00000F C07E00000FC07C000007C0FC000007E0FC000007E0FC000007E0FC000007E0FC000007E0 FC000007E0FC000007E0FC000007E0FC000007E0FC000007E0FC000007E0FC000007E0FE 00000FE07E00000FC07E00000FC07E00000FC07E00000FC03F00001F803F00001F803F00 001F801F80003F001F80003F000FC0007E000FE000FE0007E000FC0007F001FC0003F803 F80001FE0FF00000FFFFE000007FFFC000003FFF8000000FFE00000003F8000023357CB3 2C>I<00070000000F8000000F8000001F8000001F8000003F8000007F800000FF800001 FF800007FF80007FFF8000FFFF8000FFDF8000FF9F80007C1F8000001F8000001F800000 1F8000001F8000001F8000001F8000001F8000001F8000001F8000001F8000001F800000 1F8000001F8000001F8000001F8000001F8000001F8000001F8000001F8000001F800000 1F8000001F8000001F8000001F8000001F8000001F8000001F8000001F8000001F800000 1F8000001F8000001F80007FFFFFE0FFFFFFF0FFFFFFF0FFFFFFF07FFFFFE01C3477B32C >I<000FF80000007FFF800001FFFFE00007FFFFF0000FFFFFFC001FF80FFE003FE001FF 003F80007F007F00003F807E00001F80FE00001FC0FE00000FC0FF00000FE0FF000007E0 FF000007E0FF000007E07E000007E03C000007E000000007E000000007E00000000FE000 00000FC00000001FC00000001F800000003F800000003F000000007F00000000FE000000 01FC00000003FC00000007F80000000FF00000001FE00000003FC0000000FF80000001FE 00000003FC00000007F80000000FF00000003FE00000007F80000000FF00000001FE0000 0003FC0003C007F80007E01FE00007E03FC00007E07FFFFFFFE0FFFFFFFFE0FFFFFFFFE0 FFFFFFFFE07FFFFFFFC023347CB32C>I<000FFC0000007FFF800001FFFFE00007FFFFF8 000FFFFFFC001FF807FE001FC000FE003F80007F003FC0003F003FC0003F803FC0001F80 3FC0001F801F80001F800F00001F800000001F800000003F800000003F000000007F0000 0000FE00000001FE00000003FC0000001FF800001FFFF000003FFFE000003FFFE000003F FFF800001FFFFC00000007FE00000000FF000000007F000000003F800000001FC0000000 0FC00000000FC00000000FE000000007E000000007E03C000007E07E000007E0FF000007 E0FF00000FE0FF00000FC0FF00000FC0FE00001FC07F00003F807F80007F003FC000FF00 1FF807FE000FFFFFFC0007FFFFF80003FFFFE000007FFF8000000FFC000023357CB32C> I<000007F00000000FF80000001FF80000003FF80000003FF80000007EF80000007EF800 0000FCF8000001F8F8000001F8F8000003F0F8000007E0F8000007E0F800000FC0F80000 1F80F800001F80F800003F00F800007E00F800007E00F80000FC00F80001F800F80001F8 00F80003F000F80003E000F80007E000F8000FC000F8000FC000F8001F8000F8003F0000 F8003F0000F8007E0000F800FC0000F800FFFFFFFFFCFFFFFFFFFEFFFFFFFFFEFFFFFFFF FE7FFFFFFFFC000000F800000000F800000000F800000000F800000000F800000000F800 000000F800000000F800000000F800000000F80000007FFFF00000FFFFF80000FFFFF800 00FFFFF800007FFFF027347EB32C>I<0FFFFFFE001FFFFFFF001FFFFFFF001FFFFFFF00 1FFFFFFE001F800000001F800000001F800000001F800000001F800000001F800000001F 800000001F800000001F800000001F800000001F800000001F800000001F800000001F83 FE00001F9FFF80001FFFFFE0001FFFFFF8001FFFFFFC001FFE03FE001FF000FF001FC000 7F001F80003F801F00001F800F00001FC00000000FC00000000FC000000007E000000007 E000000007E000000007E03C000007E07E000007E0FF000007E0FF00000FE0FF00000FC0 FF00000FC0FE00001FC07E00003F807F00007F003F8000FF003FC001FE001FF80FFC000F FFFFF80007FFFFF00001FFFFC000007FFF0000000FF8000023347CB22C>I<00003FC000 0001FFF8000007FFFC00001FFFFE00003FFFFF00007FE07F0000FF003F8001FE007F8003 F8007F8007F0007F8007E0007F800FE0003F001FC0001E001F800000003F800000003F00 0000003F000000007F000000007E000000007E03FE00007E1FFF8000FC7FFFE000FDFFFF F000FFFFFFF800FFFE07FC00FFF001FE00FFC0007F00FF80003F80FF00001F80FF00001F C0FE00000FC0FE00000FE0FE000007E0FE000007E0FE000007E07E000007E07E000007E0 7E000007E07E000007E03F000007E03F00000FE03F80000FC01F80001FC01FC0001F800F C0003F800FE0007F0007F801FE0003FE07FC0001FFFFF80000FFFFF000007FFFE000001F FF80000007FC000023357CB32C>I<7800000000FFFFFFFFC0FFFFFFFFE0FFFFFFFFE0FF FFFFFFE0FFFFFFFFC0FC00003F80FC00007F00FC0000FE00780000FC00000001FC000000 03F800000007F000000007E00000000FE00000000FC00000001F800000003F800000003F 000000007F000000007E00000000FE00000000FC00000001FC00000001F800000001F800 000003F000000003F000000007F000000007E000000007E000000007E00000000FC00000 000FC00000000FC00000000FC00000001F800000001F800000001F800000001F80000000 1F800000003F800000003F000000003F000000003F000000003F000000003F000000003F 000000003F000000003F000000003F000000003F000000001E00000023357CB32C>I<00 07FC0000003FFF800000FFFFE00003FFFFF80007FFFFFC000FFC07FE001FF001FF001FC0 007F003F80003F803F00001F807F00001FC07E00000FC07E00000FC07E00000FC07E0000 0FC07E00000FC03F00001F803F00001F801F80003F001FC0007F000FF001FE0003FC07F8 0001FFFFF000007FFFC0000007FC0000007FFFC00001FFFFF00003FC07F8000FF001FE00 1FC0007F001F80003F003F00001F807E00000FC07E00000FC0FC000007E0FC000007E0FC 000007E0FC000007E0FC000007E0FC000007E0FC000007E07E00000FC07E00000FC07F00 001FC03F80003F801FC0007F001FF001FF000FFC07FE0007FFFFFC0003FFFFF80000FFFF E000003FFF80000007FC000023357CB32C>I<0007FC0000003FFF000000FFFFC00001FF FFE00003FFFFF00007FC07F8000FF001FC001FE000FE003F80007E003F80007F007F0000 3F007E00001F80FE00001F80FC00001F80FC00000FC0FC00000FC0FC00000FC0FC00000F C0FC00000FE0FC00000FE0FC00000FE0FE00000FE07E00000FE07F00001FE03F00001FE0 3F80003FE01FC0007FE00FF001FFE007FC0FFFE003FFFFFFE001FFFFF7E000FFFFC7E000 3FFF0FE0000FF80FC00000000FC00000000FC00000001FC00000001F800000003F800000 003F000F00007F001F80007E003FC000FE003FC001FC003FC003F8003FC007F8003F801F F0001FE07FE0001FFFFFC0000FFFFF000007FFFE000001FFF80000007FC0000023357CB3 2C>I<1F003F807FC0FFE0FFE0FFE0FFE0FFE07FC03F801F000000000000000000000000 00000000000000000000000000000000001F003F807FC0FFE0FFE0FFE0FFE0FFE07FC03F 801F000B2470A32C>I<0F801FC03FE07FF07FF07FF07FF07FF03FE01FC00F8000000000 0000000000000000000000000000000000000000000000000F801FE03FF07FF87FF87FFC 7FFC7FFC3FFC1FFC0FFC00FC00F800F801F803F007F01FE07FC0FF80FF00FC0070000E30 71A32C>I<00000002000000000F800000001F800000007F80000000FF80000003FE0000 000FFC0000001FF00000007FE0000000FF80000003FE00000007FC0000001FF00000003F E0000000FF80000003FF00000007FC0000001FF80000003FE0000000FF80000000FF0000 0000FF00000000FF800000003FE00000001FF800000007FC00000003FF00000000FF8000 00003FE00000001FF000000007FC00000003FE00000000FF800000007FE00000001FF000 00000FFC00000003FE00000000FF800000007F800000001F800000000F80000000020021 2A7BAD2C>I<7FFFFFFFF0FFFFFFFFF8FFFFFFFFF8FFFFFFFFF87FFFFFFFF00000000000 00000000000000000000000000000000000000000000000000000000000000000000007F FFFFFFF0FFFFFFFFF8FFFFFFFFF8FFFFFFFFF87FFFFFFFF025127DA12C>I<2000000000 F800000000FC00000000FF00000000FF800000003FE00000001FF800000007FC00000003 FF00000000FF800000003FE00000001FF000000007FC00000003FE00000000FF80000000 7FE00000001FF00000000FFC00000003FE00000000FF800000007F800000007F80000000 FF80000003FE0000000FFC0000001FF00000007FE0000000FF80000003FE00000007FC00 00001FF00000003FE0000000FF80000003FF00000007FC0000001FF80000003FE0000000 FF80000000FF00000000FC00000000F8000000002000000000212A7BAD2C>I<003FFE00 0003FFFFC0000FFFFFF0001FFFFFFC003FFFFFFE007FE007FF007F0000FF00FE00003F80 FF00001F80FF00001F80FF00001F80FF00003F807E00007F003C0000FF00000003FE0000 000FFC0000001FF80000003FE00000007FC0000000FF00000001FE00000003FC00000003 F800000007F800000007F00000000FF00000000FE00000000FE00000000FE00000000FE0 0000000FE00000000FE00000000FE000000007C000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000003800000000FE00000 000FE00000001FF00000001FF00000001FF00000000FE00000000FE00000000380000021 337BB22C>I<0000FE00000001FF00000001FF00000001FF00000001FF00000003FF8000 0003FF80000003EF80000003EF80000007EF80000007EFC0000007EFC0000007C7C00000 07C7C000000FC7E000000FC7E000000FC7E000000FC3E000001F83F000001F83F000001F 83F000001F83F000001F83F000003F01F800003F01F800003F01F800003F01F800007E00 FC00007E00FC00007E00FC00007E00FC00007E00FC0000FC007E0000FFFFFE0000FFFFFE 0000FFFFFE0001FFFFFF0001FFFFFF0001F8003F0001F8003F0001F8003F0003F0001F80 03F0001F8003F0001F8003F0001F8007F0001FC007E0000FC07FFE00FFFC7FFF01FFFCFF FF01FFFE7FFF01FFFC7FFE00FFFC27347EB32C>65 D<7FFFFFE0007FFFFFF800FFFFFFFE 007FFFFFFF007FFFFFFFC003F0003FC003F0000FE003F00007F003F00003F003F00003F0 03F00001F803F00001F803F00001F803F00001F803F00001F803F00001F803F00003F003 F00003F003F00007F003F0000FE003F0001FC003F000FF8003FFFFFF0003FFFFFE0003FF FFFC0003FFFFFF0003FFFFFFC003F0001FE003F00007F003F00003F803F00001F803F000 00FC03F00000FC03F00000FE03F000007E03F000007E03F000007E03F000007E03F00000 7E03F000007E03F00000FE03F00000FC03F00001FC03F00003F803F0000FF803F0003FF0 7FFFFFFFE07FFFFFFFC0FFFFFFFF807FFFFFFE007FFFFFF00027337FB22C>I<0000FF00 700007FFE0F8000FFFF9F8003FFFFDF8007FFFFFF800FF81FFF801FE007FF803FC001FF8 07F0000FF807F00007F80FE00007F80FC00003F81F800003F81F800001F83F000001F83F 000001F87F000001F87E000000F07E000000007E00000000FE00000000FC00000000FC00 000000FC00000000FC00000000FC00000000FC00000000FC00000000FC00000000FC0000 0000FC00000000FC00000000FE000000007E000000007E000000007E000000007F000000 F03F000001F83F000001F81F800001F81F800001F80FC00003F80FE00003F007F00007F0 07F00007E003FC001FE001FE003FC000FF81FF80007FFFFF00003FFFFE00000FFFFC0000 07FFF0000000FF800025357DB32C>I<7FFFFF0000FFFFFFC000FFFFFFF000FFFFFFF800 7FFFFFFC0007E003FE0007E000FF0007E0007F8007E0003F8007E0001FC007E0000FE007 E0000FE007E00007E007E00007F007E00003F007E00003F807E00001F807E00001F807E0 0001F807E00001F807E00000FC07E00000FC07E00000FC07E00000FC07E00000FC07E000 00FC07E00000FC07E00000FC07E00000FC07E00000FC07E00000FC07E00000FC07E00001 F807E00001F807E00001F807E00003F807E00003F007E00003F007E00007F007E00007E0 07E0000FE007E0001FC007E0003FC007E0007F8007E000FF0007E003FE007FFFFFFC00FF FFFFF800FFFFFFF000FFFFFFC0007FFFFF000026337EB22C>I<7FFFFFFFF0FFFFFFFFF8 FFFFFFFFF8FFFFFFFFF87FFFFFFFF803F00001F803F00001F803F00001F803F00001F803 F00001F803F00001F803F00001F803F00000F003F000000003F000000003F000000003F0 00000003F001E00003F003F00003F003F00003F003F00003F003F00003FFFFF00003FFFF F00003FFFFF00003FFFFF00003FFFFF00003F003F00003F003F00003F003F00003F003F0 0003F001E00003F000000003F000000003F000000003F000000003F000000003F000003C 03F000007E03F000007E03F000007E03F000007E03F000007E03F000007E03F000007E03 F000007E7FFFFFFFFEFFFFFFFFFEFFFFFFFFFEFFFFFFFFFE7FFFFFFFFC27337EB22C>I< 7FFFFFFFF8FFFFFFFFFCFFFFFFFFFCFFFFFFFFFC7FFFFFFFFC03F00000FC03F00000FC03 F00000FC03F00000FC03F00000FC03F00000FC03F00000FC03F000007803F000000003F0 00000003F000000003F000000003F000000003F000F00003F001F80003F001F80003F001 F80003F001F80003FFFFF80003FFFFF80003FFFFF80003FFFFF80003FFFFF80003F001F8 0003F001F80003F001F80003F001F80003F000F00003F000000003F000000003F0000000 03F000000003F000000003F000000003F000000003F000000003F000000003F000000003 F000000003F000000003F00000007FFFE00000FFFFE00000FFFFF00000FFFFE000007FFF E0000026337EB22C>I<0001FC0380000FFF87C0001FFFEFC0007FFFFFC000FFFFFFC001 FF07FFC003FC01FFC003F800FFC007F0007FC00FE0003FC00FC0001FC01FC0001FC01F80 001FC03F80000FC03F00000FC03F00000FC07E00000FC07E000007807E000000007E0000 0000FE00000000FC00000000FC00000000FC00000000FC00000000FC00000000FC000000 00FC00000000FC00000000FC0003FFF8FC0007FFFCFC0007FFFCFE0007FFFC7E0003FFF8 7E00000FC07E00000FC07E00000FC03F00001FC03F00001FC03F80001FC01F80001FC01F C0003FC00FC0003FC00FE0007FC007F0007FC003F800FFC003FC01FFC001FF07FFC000FF FFFFC0007FFFEFC0001FFFCFC0000FFF07800001FC000026357DB32C>I<7FFE00FFFCFF FF01FFFEFFFF01FFFEFFFF01FFFE7FFE00FFFC07E0000FC007E0000FC007E0000FC007E0 000FC007E0000FC007E0000FC007E0000FC007E0000FC007E0000FC007E0000FC007E000 0FC007E0000FC007E0000FC007E0000FC007E0000FC007E0000FC007E0000FC007FFFFFF C007FFFFFFC007FFFFFFC007FFFFFFC007FFFFFFC007E0000FC007E0000FC007E0000FC0 07E0000FC007E0000FC007E0000FC007E0000FC007E0000FC007E0000FC007E0000FC007 E0000FC007E0000FC007E0000FC007E0000FC007E0000FC007E0000FC007E0000FC007E0 000FC007E0000FC07FFE00FFFCFFFF01FFFEFFFF01FFFEFFFF01FFFE7FFE00FFFC27337E B22C>I<7FFFFFF8FFFFFFFCFFFFFFFCFFFFFFFC7FFFFFF8000FC000000FC000000FC000 000FC000000FC000000FC000000FC000000FC000000FC000000FC000000FC000000FC000 000FC000000FC000000FC000000FC000000FC000000FC000000FC000000FC000000FC000 000FC000000FC000000FC000000FC000000FC000000FC000000FC000000FC000000FC000 000FC000000FC000000FC000000FC000000FC000000FC000000FC000000FC000000FC000 000FC000000FC0007FFFFFF8FFFFFFFCFFFFFFFCFFFFFFFC7FFFFFF81E3379B22C>I<7F FC007FF8FFFE00FFFCFFFE00FFFCFFFE00FFFC7FFC007FF807C0001F8007C0003F8007C0 007F0007C0007E0007C000FC0007C001F80007C003F80007C007F00007C007E00007C00F C00007C01F800007C03F800007C07F000007C07E000007C0FC000007C1F8000007C3F800 0007C7FC000007C7FC000007CFFE000007DFBE000007FFBF000007FF1F000007FE1F8000 07FC0FC00007F80FC00007F807E00007F003E00007E003F00007C001F00007C001F80007 C000FC0007C000FC0007C0007E0007C0003E0007C0003F0007C0001F0007C0001F8007C0 000FC007C0000FC007C00007E07FFC001FFCFFFE003FFEFFFE003FFEFFFE003FFE7FFC00 1FFC27337EB22C>75 D<7FFFE00000FFFFF00000FFFFF00000FFFFF000007FFFE0000003 F000000003F000000003F000000003F000000003F000000003F000000003F000000003F0 00000003F000000003F000000003F000000003F000000003F000000003F000000003F000 000003F000000003F000000003F000000003F000000003F000000003F000000003F00000 0003F000000003F000000003F000000003F000000003F000000003F000000003F0000000 03F000000003F000000003F000000003F00000F003F00001F803F00001F803F00001F803 F00001F803F00001F803F00001F803F00001F803F00001F87FFFFFFFF8FFFFFFFFF8FFFF FFFFF8FFFFFFFFF87FFFFFFFF025337DB22C>I<7FE0000FFCFFF0001FFEFFF0001FFEFF F8003FFE7FF8003FFC0FF8003FE00FBC007BE00FBC007BE00FBC007BE00FBC007BE00F9E 00F3E00F9E00F3E00F9E00F3E00F9F01F3E00F9F01F3E00F8F01E3E00F8F01E3E00F8F83 E3E00F8F83E3E00F8783C3E00F87C7C3E00F87C7C3E00F83C783E00F83C783E00F83EF83 E00F83EF83E00F81EF03E00F81EF03E00F81FF03E00F80FE03E00F80FE03E00F80FE03E0 0F807C03E00F803803E00F800003E00F800003E00F800003E00F800003E00F800003E00F 800003E00F800003E00F800003E00F800003E00F800003E00F800003E00F800003E07FF0 001FFCFFF8003FFEFFF8003FFEFFF8003FFE7FF0001FFC27337EB22C>I<7FF0007FFCFF F800FFFEFFF800FFFEFFFC00FFFE7FFC007FFC07FE0007C007DE0007C007DE0007C007DF 0007C007CF0007C007CF0007C007CF8007C007C78007C007C7C007C007C7C007C007C3C0 07C007C3E007C007C3E007C007C1E007C007C1F007C007C1F007C007C0F007C007C0F807 C007C0F807C007C07C07C007C07C07C007C07C07C007C03E07C007C03E07C007C01E07C0 07C01F07C007C01F07C007C00F07C007C00F87C007C00F87C007C00787C007C007C7C007 C007C7C007C003C7C007C003E7C007C001E7C007C001E7C007C001F7C007C000F7C007C0 00F7C007C000FFC07FFC007FC0FFFE007FC0FFFE003FC0FFFE003FC07FFC001F8027337E B22C>I<007FFF000003FFFFE0000FFFFFF8001FFFFFFC003FFFFFFE003FE003FE003F80 00FE007F00007F007F00007F007E00003F007E00003F007E00003F00FE00003F80FC0000 1F80FC00001F80FC00001F80FC00001F80FC00001F80FC00001F80FC00001F80FC00001F 80FC00001F80FC00001F80FC00001F80FC00001F80FC00001F80FC00001F80FC00001F80 FC00001F80FC00001F80FC00001F80FC00001F80FC00001F80FC00001F80FC00001F80FC 00001F80FC00001F80FC00001F80FC00001F80FE00003F80FE00003F807E00003F007E00 003F007E00003F007F00007F007F00007F003F8000FE003FF007FE003FFFFFFE001FFFFF FC000FFFFFF80003FFFFE000007FFF000021357BB32C>I<7FFFFFC000FFFFFFF800FFFF FFFC00FFFFFFFF007FFFFFFF8003F000FFC003F0003FC003F0000FE003F00007F003F000 07F003F00003F003F00003F803F00001F803F00001F803F00001F803F00001F803F00001 F803F00001F803F00003F803F00003F003F00007F003F00007F003F0000FE003F0003FC0 03F000FFC003FFFFFF8003FFFFFF0003FFFFFC0003FFFFF80003FFFFC00003F000000003 F000000003F000000003F000000003F000000003F000000003F000000003F000000003F0 00000003F000000003F000000003F000000003F000000003F000000003F000000003F000 00007FFF800000FFFFC00000FFFFC00000FFFFC000007FFF80000025337EB22C>I<7FFF FC000000FFFFFF800000FFFFFFE00000FFFFFFF800007FFFFFFC000007E007FE000007E0 01FE000007E0007F000007E0003F800007E0001F800007E0001F800007E0000FC00007E0 000FC00007E0000FC00007E0000FC00007E0000FC00007E0000FC00007E0001F800007E0 001F800007E0003F800007E0007F000007E001FE000007E007FE000007FFFFFC000007FF FFF8000007FFFFE0000007FFFFF0000007FFFFF8000007E007FC000007E001FE000007E0 00FE000007E0007F000007E0003F000007E0003F000007E0003F000007E0003F000007E0 003F000007E0003F000007E0003F000007E0003F000007E0003F0F0007E0003F1F8007E0 003F1F8007E0003F1F8007E0003F1F8007E0003F1F807FFE001FBF80FFFF001FFF00FFFF 000FFF00FFFF000FFE007FFE0007FC0000000001F00029347EB22C>82 D<001FF8070000FFFF0F8001FFFFCF8007FFFFFF800FFFFFFF801FF01FFF803FC003FF80 3F8001FF807F0000FF807E00007F80FE00003F80FC00003F80FC00001F80FC00001F80FC 00001F80FC00001F80FE00000F007E000000007F000000007F800000003FE00000001FFC 0000001FFFC000000FFFFC000003FFFFC00001FFFFF000007FFFF8000007FFFC0000007F FE00000007FF00000000FF800000003F800000001FC00000001FC00000000FE00000000F E078000007E0FC000007E0FC000007E0FC000007E0FC000007E0FC000007E0FE00000FC0 FE00000FC0FF00001F80FF80003F80FFE0007F00FFFE01FF00FFFFFFFE00FFFFFFFC00F9 FFFFF000F83FFFC0007007FF000023357CB32C>I<7FFFFFFFFCFFFFFFFFFEFFFFFFFFFE FFFFFFFFFEFFFFFFFFFEFC007E007EFC007E007EFC007E007EFC007E007EFC007E007EFC 007E007EFC007E007E78007E003C00007E000000007E000000007E000000007E00000000 7E000000007E000000007E000000007E000000007E000000007E000000007E000000007E 000000007E000000007E000000007E000000007E000000007E000000007E000000007E00 0000007E000000007E000000007E000000007E000000007E000000007E000000007E0000 00007E000000007E000000007E000000007E000000007E000000007E000000007E000000 3FFFFC00003FFFFC00007FFFFE00003FFFFC00003FFFFC0027337EB22C>I<7FFF803FFF C0FFFFC07FFFE0FFFFC07FFFE0FFFFC07FFFE07FFF803FFFC003F00001F80003F00001F8 0003F00001F80003F00001F80003F00001F80003F00001F80003F00001F80003F00001F8 0003F00001F80003F00001F80003F00001F80003F00001F80003F00001F80003F00001F8 0003F00001F80003F00001F80003F00001F80003F00001F80003F00001F80003F00001F8 0003F00001F80003F00001F80003F00001F80003F00001F80003F00001F80003F00001F8 0003F00001F80003F00001F80003F00001F80003F00001F80003F00001F80003F00001F8 0003F00001F80003F80003F80001F80003F00001F80003F00001FC0007F00000FC0007E0 0000FE000FE000007F001FC000003F803F8000003FE0FF8000001FFFFF0000000FFFFE00 000003FFF800000001FFF0000000003F8000002B3480B22C>I<7FFC007FFCFFFE00FFFE FFFE00FFFEFFFE00FFFE7FFC007FFC0FC00007E00FE0000FE007E0000FC007E0000FC007 E0000FC007F0001FC003F0001F8003F0001F8003F0001F8003F8003F8001F8003F0001F8 003F0001F8003F0001FC007F0000FC007E0000FC007E0000FC007E0000FC007E00007E00 FC00007E00FC00007E00FC00007E00FC00003F01F800003F01F800003F01F800003F01F8 00001F83F000001F83F000001F83F000001F83F000000F83E000000FC7E000000FC7E000 000FC7E0000007C7C0000007C7C0000007EFC0000007EFC0000003EF80000003EF800000 03FF80000003FF80000001FF00000001FF00000001FF00000001FF00000000FE00002734 7EB22C>I<7FF00007FF00FFF8000FFF80FFF8000FFF80FFF8000FFF807FF00007FF001F 0000007C001F0000007C001F0000007C001F0000007C000F800000F8000F800000F8000F 800000F8000F800000F8000F800000F8000F800000F8000F800000F80007C00001F00007 C00001F00007C00001F00007C00001F00007C03E01F00007C07F01F00007C07F01F00007 C07F01F00003E0FF83E00003E0FF83E00003E0F783E00003E0F783E00003E1F7C3E00003 E1F7C3E00003E1F7C3E00001E1E3C3C00001E1E3C3C00001F1E3C7C00001F3E3E7C00001 F3E3E7C00001F3E3E7C00001F3C1E7C00001F3C1E7C00000F3C1E7800000F3C1E7800000 F7C1F7800000F780F7800000F780F7800000F780F7800000FF80FF8000007F80FF000000 7F007F0000007F007F0000007F007F0000007F007F0000003E003E000029347FB22C>I< 3FFF03FFE07FFF07FFF07FFF87FFF07FFF07FFF03FFF03FFE001F800FE0001FC00FE0000 FC01FC0000FE01FC00007E01F800007F03F800003F03F000003F87F000001F87E000001F CFE000000FCFC000000FFFC0000007FF80000007FF80000003FF00000003FF00000001FE 00000001FE00000000FC00000000FC00000001FE00000001FE00000003FF00000003FF00 000007FF80000007FFC000000FCFC000000FCFE000001FC7E000001F87F000003F83F000 003F03F800007F01F800007E01FC0000FE00FC0000FC00FE0001FC007E0001F8007F0003 F8003F0003F0003F8003F0001F807FFE00FFFC7FFF01FFFCFFFF01FFFE7FFF01FFFC7FFE 00FFFC27337EB22C>I<3FFFFFFFC07FFFFFFFE07FFFFFFFE07FFFFFFFE07FFFFFFFE07E 00001FC07E00003F807E00003F807E00007F007E00007E007E0000FE007E0001FC003C00 01F800000003F800000007F000000007F00000000FE00000001FC00000001FC00000003F 800000007F000000007F00000000FE00000001FC00000001FC00000003F800000007F000 000007F00000000FE00000001FC00000001FC00000003F800000007F000000007F000000 00FE00000001FC00000001FC00000003F80003C003F00007E007F00007E00FE00007E00F C00007E01FC00007E03F800007E03F800007E07F000007E0FFFFFFFFE0FFFFFFFFE0FFFF FFFFE0FFFFFFFFE07FFFFFFFC023337CB22C>90 D<7FFFFCFFFFFEFFFFFEFFFFFEFFFFFC FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000 FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000 FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000 FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000 FC0000FC0000FC0000FC0000FC0000FC0000FC0000FFFFFCFFFFFEFFFFFEFFFFFE7FFFFC 17416FB92C>I<7000000000F800000000F800000000FC000000007C000000007E000000 003E000000003F000000001F000000001F000000001F800000000F800000000FC0000000 07C000000007E000000003E000000003F000000001F000000001F800000000F800000000 FC000000007C000000007E000000003E000000003E000000003F000000001F000000001F 800000000F800000000FC000000007C000000007E000000003E000000003F000000001F0 00000001F800000000F800000000FC000000007C000000007E000000003E000000003E00 0000003F000000001F000000001F800000000F800000000FC000000007C000000007E000 000003E000000003F000000001F000000001F800000000F800000000FC000000007C0000 00007C000000007E000000003E000000003F000000001F000000001F800000000F800000 000F80000000070021417BB92C>I<7FFFFCFFFFFEFFFFFEFFFFFE7FFFFE00007E00007E 00007E00007E00007E00007E00007E00007E00007E00007E00007E00007E00007E00007E 00007E00007E00007E00007E00007E00007E00007E00007E00007E00007E00007E00007E 00007E00007E00007E00007E00007E00007E00007E00007E00007E00007E00007E00007E 00007E00007E00007E00007E00007E00007E00007E00007E00007E00007E00007E00007E 00007E00007E00007E00007E00007E7FFFFEFFFFFEFFFFFEFFFFFE7FFFFC17417DB92C> I<0007C000001FF000007FFC0001FFFF0007FFFFC01FFFFFF07FFC7FFCFFF01FFEFFC007 FEFF0001FE7C00007C300000181F0C7AAE2C>I<7FFFFFFF00FFFFFFFF80FFFFFFFF80FF FFFFFF80FFFFFFFF807FFFFFFF0021067B7D2C>I<01FFF0000007FFFE00001FFFFF8000 1FFFFFE0003FFFFFF0003FC01FF8003FC007F8003FC001FC001F8000FC00060000FE0000 00007E000000007E000000007E000000FFFE00001FFFFE0000FFFFFE0003FFFFFE000FFF FFFE001FFF807E003FF8007E007FC0007E007F00007E00FE00007E00FC00007E00FC0000 7E00FC00007E00FC00007E00FE00007E007F0000FE007F8003FE003FE01FFE001FFFFFFF FC0FFFFFFFFE07FFFFBFFE01FFFE1FFE003FF007FC27247CA32C>97 D<7FF0000000FFF8000000FFF8000000FFF80000007FF800000001F800000001F8000000 01F800000001F800000001F800000001F800000001F800000001F800000001F800000001 F800000001F81FE00001F8FFF80001FBFFFE0001FFFFFF0001FFFFFF8001FFF07FC001FF 801FE001FF0007F001FE0003F801FC0003F801FC0001FC01F80000FC01F80000FC01F800 00FE01F800007E01F800007E01F800007E01F800007E01F800007E01F800007E01F80000 7E01F800007E01F80000FE01FC0000FC01FC0000FC01FC0001F801FE0003F801FF0007F0 01FF000FF001FF801FE001FFE07FC001FFFFFF8001FFFFFF0001FBFFFE0001F8FFF80000 F03FC00027337FB22C>I<0003FFE000001FFFF800007FFFFE0001FFFFFE0003FFFFFF00 07FE00FF000FF000FF001FE000FF001FC0007E003F800018003F000000007F000000007E 000000007E00000000FC00000000FC00000000FC00000000FC00000000FC00000000FC00 000000FC00000000FC000000007E000000007E000000007F000000003F00000F003F8000 1F801FC0001F801FE0003F800FF0007F0007FE03FF0003FFFFFE0001FFFFFC00007FFFF8 00001FFFE0000003FF000021247AA32C>I<00000FFE0000001FFF0000001FFF0000001F FF0000000FFF000000003F000000003F000000003F000000003F000000003F000000003F 000000003F000000003F000000003F000000003F000007F83F00003FFE3F0000FFFFBF00 01FFFFFF0003FFFFFF0007FC0FFF000FF003FF001FE001FF001FC000FF003F80007F003F 00007F007E00003F007E00003F00FE00003F00FC00003F00FC00003F00FC00003F00FC00 003F00FC00003F00FC00003F00FC00003F00FC00003F00FE00003F007E00007F007E0000 7F007F0000FF003F8000FF003F8001FF001FC003FF000FF007FF0007FC1FFF0003FFFFFF FC01FFFFBFFE00FFFF3FFE003FFC3FFE000FF01FFC27337DB22C>I<0003FE0000001FFF C000007FFFF00001FFFFF80003FFFFFC0007FE03FE000FF800FF001FE0003F801FC0003F 803F80001FC03F00000FC07F00000FC07E00000FE07E000007E0FC000007E0FFFFFFFFE0 FFFFFFFFE0FFFFFFFFE0FFFFFFFFE0FFFFFFFFC0FC00000000FE000000007E000000007E 000000007F000000003F000003C03F800007E01FC00007E00FF0000FE007F8003FC007FF 00FFC001FFFFFF8000FFFFFF00003FFFFC00000FFFF0000001FF800023247CA32C>I<00 000FF80000003FFE000000FFFF000001FFFF800003FFFF800007FC7F800007F07F80000F E03F00000FC03F00000FC00000000FC00000000FC00000000FC00000000FC00000000FC0 00007FFFFFFE00FFFFFFFF00FFFFFFFF00FFFFFFFF007FFFFFFE00000FC00000000FC000 00000FC00000000FC00000000FC00000000FC00000000FC00000000FC00000000FC00000 000FC00000000FC00000000FC00000000FC00000000FC00000000FC00000000FC0000000 0FC00000000FC00000000FC00000000FC00000000FC00000000FC00000000FC00000000F C00000000FC00000000FC000003FFFFFF0007FFFFFF8007FFFFFF8007FFFFFF8003FFFFF F00021337DB22C>I<00000003F80007F80FFC001FFE3FFE007FFFFFFF01FFFFFFFF03FF FFFE7F03FC0FF87F07F003F83E0FE001FC1C0FC000FC001FC000FE001F80007E001F8000 7E001F80007E001F80007E001F80007E001F80007E001FC000FE000FC000FC000FE001FC 0007F003F80003FC0FF00007FFFFF00007FFFFE0000FFFFF80000F9FFE00000F87F80000 0F800000000F800000000F800000000FC000000007E000000007FFFFF00003FFFFFE0007 FFFFFF800FFFFFFFE01FFFFFFFF03FC0001FF87F000003FC7E000000FC7C0000007CFC00 00007EF80000003EF80000003EF80000003EF80000003EFC0000007E7E000000FC7F8000 03FC3FE0000FF81FFC007FF00FFFFFFFE003FFFFFF8001FFFFFF00003FFFF8000007FFC0 0028387EA42C>I<7FF000000000FFF800000000FFF800000000FFF8000000007FF80000 000001F80000000001F80000000001F80000000001F80000000001F80000000001F80000 000001F80000000001F80000000001F80000000001F80000000001F81FE0000001F87FFC 000001F9FFFE000001FBFFFF000001FFFFFF000001FFF03F800001FFC01F800001FF801F C00001FF000FC00001FE000FC00001FC000FC00001FC000FC00001F8000FC00001F8000F C00001F8000FC00001F8000FC00001F8000FC00001F8000FC00001F8000FC00001F8000F C00001F8000FC00001F8000FC00001F8000FC00001F8000FC00001F8000FC00001F8000F C00001F8000FC00001F8000FC00001F8000FC00001F8000FC00001F8000FC0007FFFE0FF FF00FFFFF1FFFF80FFFFF1FFFF80FFFFF1FFFF807FFFE0FFFF0029337FB22C>I<000700 00001FC000001FC000003FE000003FE000003FE000001FC000001FC00000070000000000 000000000000000000000000000000000000000000000000007FFFC0007FFFE000FFFFE0 007FFFE0007FFFE0000007E0000007E0000007E0000007E0000007E0000007E0000007E0 000007E0000007E0000007E0000007E0000007E0000007E0000007E0000007E0000007E0 000007E0000007E0000007E0000007E0000007E0000007E0000007E0000007E0000007E0 000007E0007FFFFFFCFFFFFFFEFFFFFFFEFFFFFFFE7FFFFFFC1F3479B32C>I<00000E00 00003F8000003F8000007FC000007FC000007FC000003F8000003F8000000E0000000000 00000000000000000000000000000000000000000000000001FFFF8003FFFFC003FFFFC0 03FFFFC001FFFFC000000FC000000FC000000FC000000FC000000FC000000FC000000FC0 00000FC000000FC000000FC000000FC000000FC000000FC000000FC000000FC000000FC0 00000FC000000FC000000FC000000FC000000FC000000FC000000FC000000FC000000FC0 00000FC000000FC000000FC000000FC000000FC000000FC000000FC000000FC000000FC0 00000FC000000FC000000FC000000FC000001FC03C001F807E003F80FF003F00FF007F00 FF01FE00FFFFFC007FFFF8007FFFF0001FFFE00007FF00001A467CB32C>I<7FE0000000 FFF0000000FFF0000000FFF00000007FF000000001F000000001F000000001F000000001 F000000001F000000001F000000001F000000001F000000001F000000001F000000001F0 1FFFF001F03FFFF801F03FFFF801F03FFFF801F01FFFF001F000FE0001F001FC0001F003 F80001F007F00001F00FE00001F01FC00001F03F800001F07F000001F0FE000001F1FC00 0001F3FC000001F7FE000001FFFF000001FFFF000001FF9F800001FF0FC00001FE0FE000 01FC07E00001F803F00001F001F80001F001FC0001F000FC0001F0007E0001F0003F0001 F0003F8001F0001F807FFFC0FFFCFFFFE1FFFEFFFFE1FFFEFFFFE1FFFE7FFFC0FFFC2733 7EB22C>I<7FFFE00000FFFFF00000FFFFF00000FFFFF000007FFFF000000003F0000000 03F000000003F000000003F000000003F000000003F000000003F000000003F000000003 F000000003F000000003F000000003F000000003F000000003F000000003F000000003F0 00000003F000000003F000000003F000000003F000000003F000000003F000000003F000 000003F000000003F000000003F000000003F000000003F000000003F000000003F00000 0003F000000003F000000003F000000003F000000003F000000003F000000003F0000000 03F000000003F000000003F000000003F000007FFFFFFF80FFFFFFFFC0FFFFFFFFC0FFFF FFFFC07FFFFFFF8022337BB22C>I<7F83F007E0007FCFFC1FF800FFDFFE3FFC007FFFFE FFFC007FFFFFFFFE0007FE1FFC3E0007FC1FF83F0007F80FF01F0007F00FE01F0007E00F C01F0007E00FC01F0007E00FC01F0007C00F801F0007C00F801F0007C00F801F0007C00F 801F0007C00F801F0007C00F801F0007C00F801F0007C00F801F0007C00F801F0007C00F 801F0007C00F801F0007C00F801F0007C00F801F0007C00F801F0007C00F801F0007C00F 801F0007C00F801F0007C00F801F0007C00F801F007FFC3FF87FF07FFC7FF8FFF0FFFE7F FCFFF87FFC7FF8FFF07FFC3FF87FF02D2481A32C>I<7FF01FE00000FFF87FFC0000FFF9 FFFE0000FFFBFFFF00007FFFFFFF000001FFF03F800001FFC01F800001FF801FC00001FF 000FC00001FE000FC00001FC000FC00001FC000FC00001F8000FC00001F8000FC00001F8 000FC00001F8000FC00001F8000FC00001F8000FC00001F8000FC00001F8000FC00001F8 000FC00001F8000FC00001F8000FC00001F8000FC00001F8000FC00001F8000FC00001F8 000FC00001F8000FC00001F8000FC00001F8000FC00001F8000FC0007FFFE0FFFF00FFFF F1FFFF80FFFFF1FFFF80FFFFF1FFFF807FFFE0FFFF0029247FA32C>I<0007FC0000001F FF0000007FFFC00001FFFFF00003FFFFF80007FC07FC000FF001FE001FE000FF001F8000 3F003F80003F803F00001F807E00000FC07E00000FC07E00000FC0FC000007E0FC000007 E0FC000007E0FC000007E0FC000007E0FC000007E0FC000007E0FE00000FE07E00000FC0 7E00000FC07F00001FC03F00001F803F80003F801FC0007F001FE000FF000FF001FE0007 FC07FC0003FFFFF80001FFFFF000007FFFC000001FFF00000007FC000023247CA32C>I< 7FF01FE000FFF8FFF800FFFBFFFE00FFFFFFFF007FFFFFFF8001FFF07FC001FF801FE001 FF0007F001FE0003F801FC0003F801FC0001FC01F80000FC01F80000FC01F80000FE01F8 00007E01F800007E01F800007E01F800007E01F800007E01F800007E01F800007E01F800 007E01F80000FE01FC0000FC01FC0000FC01FC0001F801FE0003F801FF0007F001FF000F F001FF801FE001FFE07FC001FFFFFF8001FFFFFF0001FBFFFE0001F8FFF80001F83FC000 01F800000001F800000001F800000001F800000001F800000001F800000001F800000001 F800000001F800000001F800000001F800000001F800000001F80000007FFFE00000FFFF F00000FFFFF00000FFFFF000007FFFE0000027367FA32C>I<0003FC078000001FFF0FC0 00007FFFCFC00001FFFFEFC00003FFFFFFC00007FE07FFC0000FF001FFC0001FE000FFC0 001FC0007FC0003F80003FC0003F00003FC0007F00001FC0007E00001FC0007E00000FC0 00FC00000FC000FC00000FC000FC00000FC000FC00000FC000FC00000FC000FC00000FC0 00FC00000FC000FC00000FC000FE00000FC0007E00001FC0007E00001FC0003F00003FC0 003F80003FC0001FC0007FC0001FE000FFC0000FF003FFC00007FC0FFFC00003FFFFFFC0 0001FFFFEFC000007FFF8FC000003FFF0FC0000007F80FC0000000000FC0000000000FC0 000000000FC0000000000FC0000000000FC0000000000FC0000000000FC0000000000FC0 000000000FC0000000000FC0000000000FC0000000000FC0000000000FC000000003FFFF 00000007FFFF80000007FFFF80000007FFFF80000003FFFF0029367DA32C>I<7FFE003F C0FFFF01FFF0FFFF07FFF8FFFF1FFFFC7FFF3FFFFC003F7FE1FC003FFF01FC003FFC00F8 003FF80070003FF00000003FE00000003FE00000003FC00000003F800000003F80000000 3F800000003F000000003F000000003F000000003F000000003F000000003F000000003F 000000003F000000003F000000003F000000003F000000003F000000003F000000003F00 0000003F0000007FFFFFE000FFFFFFF000FFFFFFF000FFFFFFF0007FFFFFE00026247EA3 2C>I<007FF87003FFFFF80FFFFFF81FFFFFF83FFFFFF87FC00FF87E0003F8FC0001F8F8 0001F8F80001F8F80001F8FC0000F07F0000007FF000003FFFC0001FFFFE000FFFFF8003 FFFFE0007FFFF80001FFFC000007FC000000FE7800007FFC00003FFC00001FFE00001FFE 00001FFF00003FFF80003EFFC000FEFFF007FCFFFFFFFCFFFFFFF8FFFFFFE0F8FFFF8070 1FFC0020247AA32C>I<001E000000003F000000003F000000003F000000003F00000000 3F000000003F000000003F000000003F000000003F0000007FFFFFFF00FFFFFFFF80FFFF FFFF80FFFFFFFF807FFFFFFF00003F000000003F000000003F000000003F000000003F00 0000003F000000003F000000003F000000003F000000003F000000003F000000003F0000 00003F000000003F000000003F000000003F000000003F000000003F0003C0003F0007E0 003F0007E0003F0007E0003F0007E0003F0007E0003F800FE0001F801FC0001FE07FC000 0FFFFF80000FFFFF000003FFFE000001FFF80000003FE000232E7EAD2C>I<7FF003FF80 00FFF807FFC000FFF807FFC000FFF807FFC0007FF803FFC00001F8000FC00001F8000FC0 0001F8000FC00001F8000FC00001F8000FC00001F8000FC00001F8000FC00001F8000FC0 0001F8000FC00001F8000FC00001F8000FC00001F8000FC00001F8000FC00001F8000FC0 0001F8000FC00001F8000FC00001F8000FC00001F8000FC00001F8000FC00001F8000FC0 0001F8000FC00001F8001FC00001F8001FC00001F8003FC00001FC007FC00000FE03FFC0 0000FFFFFFFF00007FFFFFFF80003FFFFFFF80001FFFCFFF800003FE07FF0029247FA32C >I<7FFF01FFFCFFFF01FFFEFFFF83FFFEFFFF01FFFE7FFF01FFFC03E0000F8003E0000F 8003F0001F8001F0001F0001F0001F0001F8003F0000F8003E0000F8003E0000FC007E00 007C007C00007C007C00007E00FC00003E00F800003E00F800003F01F800001F01F00000 1F01F000001F83F000000F83E000000F83E000000FC7E0000007C7C0000007C7C0000007 EFC0000003EF80000003EF80000003FF80000001FF00000001FF00000000FE000000007C 000027247EA32C>I<7FFF007FFF007FFF80FFFF00FFFF80FFFF807FFF80FFFF007FFF00 7FFF0007C00001F00007C00001F00007C00001F00007C00001F00007C00001F00007C000 01F00003E00003E00003E00003E00003E00003E00003E03E03E00003E07F03E00003E07F 03E00001F07F07C00001F0FF87C00001F0FF87C00001F0F787C00001F0F787C00001F1F7 C7C00000F1F7C7800000F9E3CF800000F9E3CF800000FBE3EF800000FBE3EF800000FBE3 EF8000007BC1EF0000007FC1FF0000007FC1FF0000007F80FF0000007F80FF0000003F80 FE0000001F007C000029247FA32C>I<3FFF03FFF07FFF87FFF87FFF87FFF87FFF87FFF8 3FFF03FFF000FC007E0000FC00FC00007E01F800003F01F000001F83F000001F87E00000 0FCFC0000007EF80000003FF80000001FF00000001FE00000000FC000000007C00000000 FE00000001FE00000001FF00000003EF80000007CFC000000FC7C000000F83E000001F01 F000003F01F800007E00F800007C007C0000F8007E0001F8003F007FFF01FFFC7FFF83FF FCFFFF83FFFE7FFF83FFFC7FFF01FFFC27247EA32C>I<7FFF01FFFCFFFF81FFFEFFFF83 FFFEFFFF81FFFE7FFF01FFFC03E0000F8001F0000F8001F0001F8001F8001F0000F8001F 0000F8003F0000FC003E00007C003E00007E007E00003E007C00003E007C00003F00FC00 001F00F800001F00F800000F81F800000F81F000000F81F0000007C1F0000007C3E00000 07C3E0000003E3E0000003E7C0000001E7C0000001F7C0000001F780000000FF80000000 FF80000000FF000000007F000000007F000000003E000000003E000000007E000000007C 000000007C00000000FC00000000F800000000F800000C01F800003F01F000007F83F000 007F87E000007E0FE000007E1FC000007FFF8000003FFF0000001FFE0000000FFC000000 07E000000027367EA32C>I<3FFFFFFFE07FFFFFFFF07FFFFFFFF07FFFFFFFF07FFFFFFF F07E00001FE07E00003FC07E00007F807E0000FF007E0001FE003C0003FC00000007F800 00000FF00000001FE00000003FC00000007F80000000FF00000001FC00000003F8000000 0FF00000001FE00000003FC00000007F80000000FF00000001FE0001E003FC0003F007F8 0003F00FF00003F01FE00003F03FC00003F07F800003F0FFFFFFFFF0FFFFFFFFF0FFFFFF FFF0FFFFFFFFF07FFFFFFFE024247DA32C>I<000000FF00000007FF8000001FFF800000 7FFF800000FFFF000001FFC0000001FE00000003F800000003F000000003F000000003F0 00000003F000000003F000000003F000000003F000000003F000000003F000000003F000 000003F000000003F000000003F000000003F000000003F000000003F000000003F00000 0003F000000003F000000007F00000001FE0000000FFE000007FFFC00000FFFF800000FF FE000000FFFF8000007FFFC0000000FFE00000001FE000000007F000000003F000000003 F000000003F000000003F000000003F000000003F000000003F000000003F000000003F0 00000003F000000003F000000003F000000003F000000003F000000003F000000003F000 000003F000000003F000000003F000000003F800000001FE00000001FFC0000000FFFF00 00007FFF8000001FFF80000007FF80000000FF0021417BB92C>I<78FCFCFCFCFCFCFCFC FCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFC FCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFC7806416DB92C>I<7FC0000000FFF80000 00FFFE000000FFFF8000007FFFC0000000FFE00000001FE000000007F000000003F00000 0003F000000003F000000003F000000003F000000003F000000003F000000003F0000000 03F000000003F000000003F000000003F000000003F000000003F000000003F000000003 F000000003F000000003F000000003F000000003F800000001FE00000001FFC0000000FF FF0000007FFF8000001FFF8000007FFF800000FFFF000001FFC0000001FE00000003F800 000003F000000003F000000003F000000003F000000003F000000003F000000003F00000 0003F000000003F000000003F000000003F000000003F000000003F000000003F0000000 03F000000003F000000003F000000003F000000003F000000007F00000001FE0000000FF E000007FFFC00000FFFF800000FFFE000000FFF80000007FC000000021417BB92C>I E %EndDVIPSBitmapFont /Fi 134[50 50 72 50 55 33 39 44 1[55 50 55 83 28 55 33 28 55 50 33 44 55 44 55 50 1[50 6[72 100 72 72 66 55 72 1[61 78 72 94 66 2[39 78 78 1[66 72 72 66 72 7[50 50 50 50 50 50 50 50 50 50 28 25 33 25 5[83 35[55 2[{ TeXBase1Encoding ReEncodeFont }61 99.6264 /NimbusRomNo9L-Medi rf /Fj 134[60 60 86 60 66 40 47 53 66 66 60 66 100 33 66 1[33 66 60 40 53 66 53 66 60 1[60 6[86 120 2[80 66 86 1[73 93 1[113 80 2[47 93 93 73 80 1[86 80 86 7[60 60 60 60 60 60 60 60 60 60 33 30 1[30 41[66 2[{ TeXBase1Encoding ReEncodeFont }56 119.552 /NimbusRomNo9L-Medi rf /Fk 139[57 1[76 1[96 7[96 2[76 3[86 29[124 9[86 86 86 86 86 86 86 86 86 86 48[{ TeXBase1Encoding ReEncodeFont }17 172.188 /NimbusRomNo9L-Medi rf /Fl 166[60 60 78 60 60 51 46 55 1[46 60 60 74 51 60 1[28 60 60 46 51 60 55 55 60 1[37 4[23 1[42 42 42 42 42 42 42 42 42 1[21 28 45[{ .167 SlantFont TeXBase1Encoding ReEncodeFont }36 83.022 /NimbusRomNo9L-Regu rf /Fm 42 104[42 1[37 37 24[37 42 42 60 42 42 23 32 28 42 42 42 42 65 23 42 23 23 42 42 28 37 42 37 42 37 1[42 1[28 23 28 51 60 60 78 60 60 51 46 55 60 46 60 60 74 51 60 32 28 60 60 46 51 60 55 55 60 1[37 47 47 47 23 23 42 42 42 42 42 42 42 42 42 42 23 21 28 21 47 42 28 28 28 65 2[42 34 28 29[46 46 2[{ TeXBase1Encoding ReEncodeFont }91 83.022 /NimbusRomNo9L-Regu rf /Fn 134[42 42 60 42 46 28 32 37 1[46 42 46 69 23 46 1[23 46 42 28 37 46 37 46 42 1[42 7[83 1[60 55 46 60 65 51 65 60 78 55 65 1[32 65 65 51 55 60 60 55 60 1[42 4[28 42 42 42 42 42 42 42 42 42 42 23 21 28 42[46 2[{ TeXBase1Encoding ReEncodeFont }61 83.022 /NimbusRomNo9L-Medi rf /Fo 134[103 103 149 103 115 69 80 92 1[115 103 115 172 57 115 1[57 115 103 69 92 115 92 115 103 9[207 1[149 138 115 149 2[161 149 195 138 2[80 161 161 126 138 149 149 138 149 1[103 4[69 7[103 103 103 1[52 69 42[115 2[{ TeXBase1Encoding ReEncodeFont }49 206.559 /NimbusRomNo9L-Medi rf /Fp 139[28 14[44 3[44 28[72 9[28 2[50 2[50 1[50 50 50 2[33 8[50 50 35[{ TeXBase1Encoding ReEncodeFont }13 99.6264 /NimbusRomNo9L-Regu rf /Fq 140[56 2[72 2[112 3[40 1[72 103[{ TeXBase1Encoding ReEncodeFont }5 143.462 /NimbusRomNo9L-Regu rf end %%EndProlog %%BeginSetup %%Feature: *Resolution 600dpi TeXDict begin %%BeginPaperSize: Letter /setpagedevice where { pop << /PageSize [612 792] >> setpagedevice } { /letter where { pop letter } if } ifelse %%EndPaperSize end %%EndSetup %%Page: 1 1 TeXDict begin 1 0 bop 0 0 a SDict begin [/Producer (dvips + Distiller)/Title ()/Subject ()/Creator (LaTeX with hyperref package)/Author ()/Keywords () /DOCINFO pdfmark end 0 0 a 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.1) cvn /DEST pdfmark end 506 174 a Black Black 515 432 a SDict begin [/Count -3/Dest (chapter.1) cvn/Title (\376\377\000g\000p\000s\000i\000m\000\040\000-\000\040\000A\000n\000\040\000O\000v\000e\000r\000v\000i\000e\000w) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -3/Dest (section.1.1) cvn/Title (\376\377\000M\000a\000k\000i\000n\000g\000\040\000t\000h\000e\000\040\000e\000x\000e\000c\000u\000t\000a\000b\000l\000e) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.1.1.1) cvn/Title (\376\377\000M\000a\000k\000e\000\040\000D\000e\000t\000a\000i\000l\000s\000\040\000-\000\040\000.\000/\000c\000o\000n\000f\000i\000g\000u\000r\000e\000\040\000o\000p\000t\000i\000o\000n\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.1.1.2) cvn/Title (\376\377\000R\000P\000M\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.1.1.3) cvn/Title (\376\377\000W\000i\000n\000d\000o\000w\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.1.2) cvn/Title (\376\377\000R\000u\000n\000n\000i\000n\000g) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.1.3) cvn/Title (\376\377\000R\000e\000q\000u\000i\000r\000e\000m\000e\000n\000t\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -24/Dest (chapter.2) cvn/Title (\376\377\000C\000o\000m\000m\000a\000n\000d\000\040\000L\000i\000n\000e\000\040\000I\000n\000t\000e\000r\000f\000a\000c\000e) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.1) cvn/Title (\376\377\000a\000t\000t\000a\000c\000h) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.2) cvn/Title (\376\377\000b\000r\000e\000a\000k) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.3) cvn/Title (\376\377\000c\000l\000e\000a\000r) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.4) cvn/Title (\376\377\000d\000i\000s\000a\000s\000s\000e\000m\000b\000l\000e) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.5) cvn/Title (\376\377\000d\000u\000m\000p) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.6) cvn/Title (\376\377\000e\000c\000h\000o) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.7) cvn/Title (\376\377\000f\000r\000e\000q\000u\000e\000n\000c\000y) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.8) cvn/Title (\376\377\000h\000e\000l\000p) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.9) cvn/Title (\376\377\000i\000c\000d) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.10) cvn/Title (\376\377\000l\000i\000s\000t\000\040) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.11) cvn/Title (\376\377\000l\000o\000a\000d) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.12) cvn/Title (\376\377\000m\000a\000c\000r\000o\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.13) cvn/Title (\376\377\000m\000o\000d\000u\000l\000e) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.14) cvn/Title (\376\377\000n\000o\000d\000e) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.15) cvn/Title (\376\377\000p\000r\000o\000c\000e\000s\000s\000o\000r) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.16) cvn/Title (\376\377\000q\000u\000i\000t) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.17) cvn/Title (\376\377\000r\000u\000n) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.18) cvn/Title (\376\377\000s\000t\000e\000p) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.19) cvn/Title (\376\377\000s\000y\000m\000b\000o\000l) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.20) cvn/Title (\376\377\000s\000t\000i\000m\000u\000l\000u\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.21) cvn/Title (\376\377\000s\000t\000o\000p\000w\000a\000t\000c\000h\000T\000h\000e\000\040\000s\000t\000o\000p\000w\000a\000t\000c\000h\000\040\000i\000s\000\040\000r\000e\000a\000l\000l\000y\000\040\000a\000\040\000c\000o\000l\000l\000e\000c\000t\000i\000o\000n\000\040\000o\000f\000\040\000a\000t\000t\000r\000i\000b\000u\000t\000e\000s\000\040\000a\000n\000d\000\040\000n\000o\000t\000\040\000a\000\040\000c\000o\000m\000m\000a\000n\000d\000.\000\040\000B\000u\000t\000\040\000t\000h\000e\000\040\000b\000e\000h\000a\000v\000i\000o\000r\000\040\000i\000s\000\040\000s\000o\000\040\000s\000i\000m\000i\000l\000a\000r\000\040\000t\000o\000\040\000a\000\040\000c\000o\000m\000m\000a\000n\000d\000\040\000t\000h\000a\000t\000\040\000i\000t\000\040\000h\000a\000s\000\040\000b\000e\000e\000n\000\040\000i\000n\000c\000l\000u\000d\000e\000d\000\040\000h\000e\000r\000e\000.) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.22) cvn/Title (\376\377\000t\000r\000a\000c\000e) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.23) cvn/Title (\376\377\000v\000e\000r\000s\000i\000o\000n) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.2.24) cvn/Title (\376\377\000x) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -11/Dest (chapter.3) cvn/Title (\376\377\000G\000r\000a\000p\000h\000i\000c\000a\000l\000\040\000U\000s\000e\000r\000\040\000I\000n\000t\000e\000r\000f\000a\000c\000e) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -3/Dest (section.3.1) cvn/Title (\376\377\000M\000a\000i\000n\000\040\000w\000i\000n\000d\000o\000w) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.3.1.1) cvn/Title (\376\377\000M\000e\000n\000u\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.3.1.2) cvn/Title (\376\377\000B\000u\000t\000t\000o\000n\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.3.1.3) cvn/Title (\376\377\000S\000i\000m\000u\000l\000a\000t\000i\000o\000n\000\040\000m\000o\000d\000e) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -2/Dest (section.3.2) cvn/Title (\376\377\000S\000o\000u\000r\000c\000e\000\040\000B\000r\000o\000w\000s\000e\000r\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.3.2.1) cvn/Title (\376\377\000.\000a\000s\000m\000\040\000B\000r\000o\000w\000s\000e\000r) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.3.2.2) cvn/Title (\376\377\000O\000p\000c\000o\000d\000e\000\040\000v\000i\000e\000w\000\040\000-\000\040\000t\000h\000e\000\040\000.\000o\000b\000j\000\040\000B\000r\000o\000w\000s\000e\000r) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.3.3) cvn/Title (\376\377\000R\000e\000g\000i\000s\000t\000e\000r\000\040\000v\000i\000e\000w\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.3.4) cvn/Title (\376\377\000S\000y\000m\000b\000o\000l\000\040\000v\000i\000e\000w) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.3.5) cvn/Title (\376\377\000W\000a\000t\000c\000h\000\040\000v\000i\000e\000w) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.3.6) cvn/Title (\376\377\000S\000t\000a\000c\000k\000\040\000v\000i\000e\000w\000e\000r) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.3.7) cvn/Title (\376\377\000B\000r\000e\000a\000d\000b\000o\000a\000r\000d) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.3.8) cvn/Title (\376\377\000T\000r\000a\000c\000e\000\040\000v\000i\000e\000w\000e\000r) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.3.9) cvn/Title (\376\377\000P\000r\000o\000f\000i\000l\000e\000\040\000v\000i\000e\000w\000e\000r) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.3.10) cvn/Title (\376\377\000S\000t\000o\000p\000w\000a\000t\000c\000h) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.3.11) cvn/Title (\376\377\000S\000c\000o\000p\000e\000\040\000W\000i\000n\000d\000o\000w) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -2/Dest (chapter.4) cvn/Title (\376\377\000S\000c\000r\000i\000p\000t\000i\000n\000g\000\040\000a\000n\000d\000\040\000C\000o\000n\000f\000i\000g\000u\000r\000i\000n\000g) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -3/Dest (section.4.1) cvn/Title (\376\377\000E\000m\000b\000e\000d\000d\000e\000d\000\040\000C\000o\000m\000m\000a\000n\000d\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.4.1.1) cvn/Title (\376\377\000.\000s\000i\000m\000\040\000m\000a\000c\000r\000o) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.4.1.2) cvn/Title (\376\377\000.\000c\000o\000m\000m\000a\000n\000d\000\040\000m\000a\000c\000r\000o) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.4.1.3) cvn/Title (\376\377\000.\000a\000s\000s\000e\000r\000t\000\040\000m\000a\000c\000r\000o) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.4.2) cvn/Title (\376\377\000S\000o\000c\000k\000e\000t\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -1/Dest (chapter.5) cvn/Title (\376\377\000A\000s\000s\000e\000r\000t\000i\000o\000n\000s\000\040\000a\000n\000d\000\040\000E\000x\000t\000e\000n\000d\000e\000d\000\040\000B\000r\000e\000a\000k\000p\000o\000i\000n\000t\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.5.1) cvn/Title (\376\377\000A\000s\000s\000e\000r\000t\000i\000o\000n\000s\000\040\000a\000n\000d\000\040\000E\000m\000b\000e\000d\000d\000e\000d\000\040\000S\000i\000m\000u\000l\000a\000t\000i\000o\000n\000\040\000c\000o\000m\000m\000a\000n\000d\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (chapter.6) cvn/Title (\376\377\000T\000r\000a\000c\000e\000\040\000a\000n\000d\000\040\000L\000o\000g\000:\000\040\000W\000h\000a\000t\000\040\000h\000a\000s\000\040\000h\000a\000p\000p\000e\000n\000?) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -5/Dest (chapter.7) cvn/Title (\376\377\000S\000i\000m\000u\000l\000a\000t\000i\000n\000g\000\040\000t\000h\000e\000\040\000R\000e\000a\000l\000\040\000W\000o\000r\000l\000d\000:\000\040\000S\000t\000i\000m\000u\000l\000i) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -1/Dest (section.7.1) cvn/Title (\376\377\000H\000o\000w\000\040\000T\000h\000e\000y\000\040\000W\000o\000r\000k) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.7.1.1) cvn/Title (\376\377\000C\000o\000n\000t\000e\000n\000t\000i\000o\000n\000\040\000a\000m\000o\000n\000g\000\040\000s\000t\000i\000m\000u\000l\000i) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.7.2) cvn/Title (\376\377\000I\000/\000O\000\040\000P\000i\000n\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -1/Dest (section.7.3) cvn/Title (\376\377\000A\000s\000y\000n\000c\000h\000r\000o\000n\000o\000u\000s\000\040\000S\000t\000i\000m\000u\000l\000i) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.7.3.1) cvn/Title (\376\377\000A\000n\000a\000l\000o\000g\000\040\000A\000s\000y\000n\000c\000h\000r\000o\000n\000o\000u\000s\000\040\000S\000t\000i\000m\000u\000l\000i) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.7.4) cvn/Title (\376\377\000E\000x\000t\000e\000n\000d\000e\000d\000\040\000S\000t\000i\000m\000u\000l\000i) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -1/Dest (section.7.5) cvn/Title (\376\377\000L\000i\000m\000i\000t\000a\000t\000i\000o\000n\000s\000\040\000o\000f\000\040\000t\000h\000e\000\040\000S\000i\000m\000u\000l\000u\000s\000\040\000M\000e\000c\000h\000a\000n\000i\000s\000m) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.7.5.1) cvn/Title (\376\377\000P\000r\000o\000p\000a\000g\000a\000t\000i\000o\000n\000\040\000D\000e\000l\000a\000y\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -3/Dest (chapter.8) cvn/Title (\376\377\000M\000o\000d\000u\000l\000e\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -6/Dest (section.8.1) cvn/Title (\376\377\000g\000p\000s\000i\000m\000\040\000M\000o\000d\000u\000l\000e\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.8.1.1) cvn/Title (\376\377\000U\000S\000A\000R\000T) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.8.1.2) cvn/Title (\376\377\000L\000o\000g\000i\000c) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.8.1.3) cvn/Title (\376\377\000I\0002\000C\000\040\000E\000E\000P\000R\000O\000M) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.8.1.4) cvn/Title (\376\377\000S\000w\000i\000t\000c\000h\000e\000s\000\040\000\046\000\040\000R\000e\000s\000i\000s\000t\000o\000r\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.8.1.5) cvn/Title (\376\377\000V\000o\000l\000t\000a\000g\000e\000\040\000S\000o\000u\000r\000c\000e\000s\000,\000\040\000R\000e\000s\000i\000s\000t\000o\000r\000s\000,\000\040\000a\000n\000d\000\040\000C\000a\000p\000a\000c\000i\000t\000o\000r\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.8.1.6) cvn/Title (\376\377\000L\000E\000D\000\137\0007\000S\000E\000G\000M\000E\000N\000T\000S\000\040\000a\000n\000d\000\040\000L\000E\000D) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -3/Dest (section.8.2) cvn/Title (\376\377\000T\000h\000i\000r\000d\000\040\000P\000a\000r\000t\000y\000\040\000M\000o\000d\000u\000l\000e\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.8.2.1) cvn/Title (\376\377\000C\000h\000a\000r\000a\000c\000t\000e\000r\000\040\000L\000C\000D\000\040\000-\000\040\000H\000D\0004\0004\0007\0008\0000) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.8.2.2) cvn/Title (\376\377\000G\000r\000a\000p\000h\000i\000c\000\040\000L\000C\000D\000\040\000-\000\040\000S\000E\000D\0001\0005\0003\0000) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (subsection.8.2.3) cvn/Title (\376\377\0006\0004\000\040\000x\000\040\0008\000,\000\040\000S\000e\000r\000i\000a\000l\000,\000\040\000I\0002\000C\000\040\000R\000e\000a\000l\000-\000T\000i\000m\000e\000\040\000C\000l\000o\000c\000k\000\040\000-\000\040\000D\000S\0001\0003\0000\0007) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.8.3) cvn/Title (\376\377\000W\000r\000i\000t\000i\000n\000g\000\040\000n\000e\000w\000\040\000m\000o\000d\000u\000l\000e\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (chapter.9) cvn/Title (\376\377\000S\000y\000m\000b\000o\000l\000i\000c\000\040\000D\000e\000b\000u\000g\000g\000i\000n\000g) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (chapter.10) cvn/Title (\376\377\000M\000a\000c\000r\000o\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (chapter.11) cvn/Title (\376\377\000H\000e\000x\000\040\000F\000i\000l\000e\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (chapter.12) cvn/Title (\376\377\000T\000h\000e\000\040\000I\000C\000D\000-\000\040\000N\000o\000t\000\040\000S\000u\000p\000p\000o\000r\000t\000e\000d\000\040\000i\000n\000\040\000v\000e\000r\000s\000i\000o\000n\000s\000\040\0000\000.\0002\0001\000.\0000\000\040\000a\000n\000d\000\040\000l\000a\000t\000e\000r) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (chapter.13) cvn/Title (\376\377\000E\000x\000a\000m\000p\000l\000e\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (chapter.14) cvn/Title (\376\377\000R\000e\000g\000r\000e\000s\000s\000i\000o\000n\000\040\000T\000e\000s\000t\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -8/Dest (chapter.15) cvn/Title (\376\377\000T\000h\000e\000o\000r\000y\000\040\000o\000f\000\040\000O\000p\000e\000r\000a\000t\000i\000o\000n) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.15.1) cvn/Title (\376\377\000B\000a\000c\000k\000g\000r\000o\000u\000n\000d) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.15.2) cvn/Title (\376\377\000I\000n\000s\000t\000r\000u\000c\000t\000i\000o\000n\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.15.3) cvn/Title (\376\377\000G\000e\000n\000e\000r\000a\000l\000\040\000F\000i\000l\000e\000\040\000R\000e\000g\000i\000s\000t\000e\000r\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.15.4) cvn/Title (\376\377\000S\000p\000e\000c\000i\000a\000l\000\040\000F\000i\000l\000e\000\040\000R\000e\000g\000i\000s\000t\000e\000r\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.15.5) cvn/Title (\376\377\000E\000x\000a\000m\000p\000l\000e\000\040\000o\000f\000\040\000a\000n\000\040\000i\000n\000s\000t\000r\000u\000c\000t\000i\000o\000n) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.15.6) cvn/Title (\376\377\000T\000r\000a\000c\000e) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.15.7) cvn/Title (\376\377\000B\000r\000e\000a\000k\000p\000o\000i\000n\000t\000s) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.15.8) cvn/Title (\376\377\000T\000I\000M\000E\000R\0001\000\040\000E\000x\000t\000e\000r\000n\000a\000l\000\040\000i\000n\000p\000u\000t) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -3/Dest (chapter.16) cvn/Title (\376\377\000L\000I\000C\000E\000N\000S\000E\000S) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.16.1) cvn/Title (\376\377\000G\000p\000s\000i\000m\000.\000l\000y\000x) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.16.2) cvn/Title (\376\377\000G\000p\000s\000i\000m) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/Count -0/Dest (section.16.3) cvn/Title (\376\377\000L\000i\000b\000r\000a\000r\000i\000e\000s\000\040\000l\000i\000b\000g\000p\000s\000i\000m\000,\000\040\000l\000i\000b\000g\000p\000s\000i\000m\000\137\000m\000o\000d\000u\000l\000e\000s\000,\000\040\000l\000i\000b\000g\000p\000s\000i\000m\000\137\000e\000X\000d\000b\000m\000\040) /OUT pdfmark end 515 432 a 515 432 a SDict begin [/PageMode /UseOutlines/Page 1/View [/Fit] /DOCVIEW pdfmark end 515 432 a 515 432 a SDict begin [ {Catalog}<<>> /PUT pdfmark end 515 432 a 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (Doc-Start) cvn /DEST pdfmark end 515 432 a 515 432 a SDict begin [ {Catalog} <>1<>]>>>> /PUT pdfmark end 515 432 a Black Black 1771 2184 a Fq(gpsim)1503 2840 y Fp($Date::)30 b(2011-04-17#$)p Black Black eop end %%Page: 1 2 TeXDict begin 1 1 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.1) cvn /DEST pdfmark end 506 174 a Black Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (chapter*.1) cvn /DEST pdfmark end 515 432 a 772 x Fo(Contents)515 1744 y SDict begin H.S end 515 1744 a Fn(1)82 b(gpsim)21 b(-)g(An)f(Ov)o(er)o(view)1388 1744 y SDict begin 12 H.L end 1388 1744 a 1388 1744 a SDict begin [/Subtype /Link/Dest (chapter.1) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1388 1744 a 1949 w Fn(6)639 1869 y SDict begin H.S end 639 1869 a Fm(1.1)86 b(Making)19 b(the)h(e)o(x)o(ecutable)1586 1869 y SDict begin 12 H.L end 1586 1869 a 1586 1869 a SDict begin [/Subtype /Link/Dest (section.1.1) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1586 1869 a 70 w Fm(.)42 b(.)f(.)g(.)g(.)h(.) f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g (.)h(.)p Black 165 w(6)p Black 830 1993 a SDict begin H.S end 830 1993 a Fm(1.1.1)98 b(Mak)o(e)20 b(Details)h(-)f(./con\002gure)e(options)2233 1993 y SDict begin 12 H.L end 2233 1993 a 2233 1993 a SDict begin [/Subtype /Link/Dest (subsection.1.1.1) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 2233 1993 a 46 w Fm(.)41 b(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 165 w(6)p Black 830 2118 a SDict begin H.S end 830 2118 a Fm(1.1.2)98 b(RPMs)1303 2118 y SDict begin 12 H.L end 1303 2118 a 1303 2118 a SDict begin [/Subtype /Link/Dest (subsection.1.1.2) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1303 2118 a 42 w Fm(.)41 b(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.) f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 165 w(7)p Black 830 2242 a SDict begin H.S end 830 2242 a Fm(1.1.3)98 b(W)m(indo)n(ws)1410 2242 y SDict begin 12 H.L end 1410 2242 a 1410 2242 a SDict begin [/Subtype /Link/Dest (subsection.1.1.3) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1410 2242 a 59 w Fm(.)42 b(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f (.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 165 w(7)p Black 639 2367 a SDict begin H.S end 639 2367 a Fm(1.2)86 b(Running)1118 2367 y SDict begin 12 H.L end 1118 2367 a 1118 2367 a SDict begin [/Subtype /Link/Dest (section.1.2) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1118 2367 a 40 w Fm(.)41 b(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.) g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h (.)p Black 165 w(7)p Black 639 2491 a SDict begin H.S end 639 2491 a Fm(1.3)86 b(Requirements)1293 2491 y SDict begin 12 H.L end 1293 2491 a 1293 2491 a SDict begin [/Subtype /Link/Dest (section.1.3) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1293 2491 a 52 w Fm(.)41 b(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g (.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 165 w(8)p Black 515 2699 a SDict begin H.S end 515 2699 a Fn(2)82 b(Command)21 b(Line)g(Interface)1540 2699 y SDict begin 12 H.L end 1540 2699 a 1540 2699 a SDict begin [/Subtype /Link/Dest (chapter.2) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1540 2699 a 1797 w Fn(9)639 2823 y SDict begin H.S end 639 2823 a Fm(2.1)86 b(attach)1029 2823 y SDict begin 12 H.L end 1029 2823 a 1029 2823 a SDict begin [/Subtype /Link/Dest (section.2.1) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1029 2823 a 67 w Fm(.)41 b(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.) f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g (.)h(.)p Black 124 w(10)p Black 639 2948 a SDict begin H.S end 639 2948 a Fm(2.2)86 b(break)1016 2948 y SDict begin 12 H.L end 1016 2948 a 1016 2948 a SDict begin [/Subtype /Link/Dest (section.2.2) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1016 2948 a 80 w Fm(.)41 b(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g (.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.) f(.)g(.)g(.)h(.)p Black 124 w(11)p Black 639 3072 a SDict begin H.S end 639 3072 a Fm(2.3)86 b(clear)992 3072 y SDict begin 12 H.L end 992 3072 a 992 3072 a SDict begin [/Subtype /Link/Dest (section.2.3) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 992 3072 a 42 w Fm(.)41 b(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f (.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.) h(.)f(.)g(.)g(.)h(.)p Black 124 w(13)p Black 639 3197 a SDict begin H.S end 639 3197 a Fm(2.4)86 b(disassemble)1232 3197 y SDict begin 12 H.L end 1232 3197 a 1232 3197 a SDict begin [/Subtype /Link/Dest (section.2.4) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1232 3197 a 51 w Fm(.)41 b(.)g(.)g(.)h(.)f(.)g(.)h (.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.) g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(14)p Black 639 3321 a SDict begin H.S end 639 3321 a Fm(2.5)86 b(dump)1021 3321 y SDict begin 12 H.L end 1021 3321 a 1021 3321 a SDict begin [/Subtype /Link/Dest (section.2.5) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1021 3321 a 75 w Fm(.)41 b(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.) g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f (.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(14)p Black 639 3446 a SDict begin H.S end 639 3446 a Fm(2.6)86 b(echo)988 3446 y SDict begin 12 H.L end 988 3446 a 988 3446 a SDict begin [/Subtype /Link/Dest (section.2.6) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 988 3446 a 46 w Fm(.)41 b(.)g(.)g(.)h(.)f(.)g(.)g(.)h (.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.) h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(15)p Black 639 3571 a SDict begin H.S end 639 3571 a Fm(2.7)86 b(frequenc)o(y)1164 3571 y SDict begin 12 H.L end 1164 3571 a 1164 3571 a SDict begin [/Subtype /Link/Dest (section.2.7) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1164 3571 a 56 w Fm(.)42 b(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g (.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(15)p Black 639 3695 a SDict begin H.S end 639 3695 a Fm(2.8)86 b(help)974 3695 y SDict begin 12 H.L end 974 3695 a 974 3695 a SDict begin [/Subtype /Link/Dest (section.2.8) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 974 3695 a 60 w Fm(.)41 b(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f (.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.) h(.)p Black 124 w(15)p Black 639 3820 a SDict begin H.S end 639 3820 a Fm(2.9)86 b(icd)932 3820 y SDict begin 12 H.L end 932 3820 a 932 3820 a SDict begin [/Subtype /Link/Dest (section.2.9) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 932 3820 a 39 w Fm(.)42 b(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h (.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.) g(.)h(.)p Black 124 w(15)p Black 639 3944 a SDict begin H.S end 639 3944 a Fm(2.10)i(list)953 3944 y SDict begin 12 H.L end 953 3944 a 953 3944 a SDict begin [/Subtype /Link/Dest (section.2.10) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 953 3944 a 81 w Fm(.)d(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g (.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.) g(.)g(.)h(.)p Black 124 w(15)p Black 639 4069 a SDict begin H.S end 639 4069 a Fm(2.11)i(load)974 4069 y SDict begin 12 H.L end 974 4069 a 974 4069 a SDict begin [/Subtype /Link/Dest (section.2.11) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 974 4069 a 60 w Fm(.)d(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g (.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.) g(.)g(.)h(.)p Black 124 w(16)p Black 639 4193 a SDict begin H.S end 639 4193 a Fm(2.12)i(macros)1071 4193 y SDict begin 12 H.L end 1071 4193 a 1071 4193 a SDict begin [/Subtype /Link/Dest (section.2.12) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1071 4193 a 25 w Fm(.)d(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g (.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.) f(.)g(.)g(.)h(.)p Black 124 w(16)p Black 639 4318 a SDict begin H.S end 639 4318 a Fm(2.13)i(module)1081 4318 y SDict begin 12 H.L end 1081 4318 a 1081 4318 a SDict begin [/Subtype /Link/Dest (section.2.13) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1081 4318 a 77 w Fm(.)d(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g (.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.) f(.)g(.)g(.)h(.)p Black 124 w(18)p Black 639 4442 a SDict begin H.S end 639 4442 a Fm(2.14)i(node)993 4442 y SDict begin 12 H.L end 993 4442 a 993 4442 a SDict begin [/Subtype /Link/Dest (section.2.14) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 993 4442 a 41 w Fm(.)d(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.) g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h (.)f(.)g(.)g(.)h(.)p Black 124 w(19)p Black 639 4567 a SDict begin H.S end 639 4567 a Fm(2.15)i(processor)1150 4567 y SDict begin 12 H.L end 1150 4567 a 1150 4567 a SDict begin [/Subtype /Link/Dest (section.2.15) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1150 4567 a 70 w Fm(.)e(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f (.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.) h(.)f(.)g(.)g(.)h(.)p Black 124 w(20)p Black 639 4691 a SDict begin H.S end 639 4691 a Fm(2.16)i(quit)960 4691 y SDict begin 12 H.L end 960 4691 a 960 4691 a SDict begin [/Subtype /Link/Dest (section.2.16) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 960 4691 a 74 w Fm(.)d(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h (.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.) g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(20)p Black 639 4816 a SDict begin H.S end 639 4816 a Fm(2.17)i(run)942 4816 y SDict begin 12 H.L end 942 4816 a 942 4816 a SDict begin [/Subtype /Link/Dest (section.2.17) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 942 4816 a 29 w Fm(.)e(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f (.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.) f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(20)p Black 639 4940 a SDict begin H.S end 639 4940 a Fm(2.18)i(step)964 4940 y SDict begin 12 H.L end 964 4940 a 964 4940 a SDict begin [/Subtype /Link/Dest (section.2.18) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 964 4940 a 70 w Fm(.)d(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g (.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.) g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(20)p Black Black 1926 5208 a(1)p Black eop end %%Page: 2 3 TeXDict begin 2 2 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.2) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CONTENTS)2388 b Fm(2)p Black 639 515 a SDict begin H.S end 639 515 a Fm(2.19)44 b(symbol)1076 515 y SDict begin 12 H.L end 1076 515 a 1076 515 a SDict begin [/Subtype /Link/Dest (section.2.19) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1076 515 a 20 w Fm(.)d(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g (.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.) g(.)g(.)h(.)p Black 124 w(21)p Black 639 640 a SDict begin H.S end 639 640 a Fm(2.20)i(stimulus)1112 640 y SDict begin 12 H.L end 1112 640 a 1112 640 a SDict begin [/Subtype /Link/Dest (section.2.20) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1112 640 a 46 w Fm(.)d(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h (.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.) g(.)h(.)p Black 124 w(21)p Black 639 764 a SDict begin H.S end 639 764 a Fm(2.21)i(stopw)o(atch)1167 764 y SDict begin 12 H.L end 1167 764 a 1167 764 a SDict begin [/Subtype /Link/Dest (section.2.21) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1167 764 a 53 w Fm(.)e(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.) f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g (.)h(.)p Black 124 w(22)p Black 639 889 a SDict begin H.S end 639 889 a Fm(2.22)i(trace)992 889 y SDict begin 12 H.L end 992 889 a 992 889 a SDict begin [/Subtype /Link/Dest (section.2.22) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 992 889 a 42 w Fm(.)d(.)g(.)g(.)h(.)f(.)g(.)g (.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.) g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(23)p Black 639 1013 a SDict begin H.S end 639 1013 a Fm(2.23)i(v)o(ersion)1075 1013 y SDict begin 12 H.L end 1075 1013 a 1075 1013 a SDict begin [/Subtype /Link/Dest (section.2.23) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1075 1013 a 21 w Fm(.)d(.)g(.)h(.)f(.)g (.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.) f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(23)p Black 639 1138 a SDict begin H.S end 639 1138 a Fm(2.24)i(x)872 1138 y SDict begin 12 H.L end 872 1138 a 872 1138 a SDict begin [/Subtype /Link/Dest (section.2.24) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 872 1138 a 37 w Fm(.)d(.)h(.)f(.)g(.)g(.)h(.)f (.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.) h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(23)p Black 515 1346 a SDict begin H.S end 515 1346 a Fn(3)82 b(Graphical)20 b(User)h(Interface)1531 1346 y SDict begin 12 H.L end 1531 1346 a 1531 1346 a SDict begin [/Subtype /Link/Dest (chapter.3) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1531 1346 a 1765 w Fn(24)639 1470 y SDict begin H.S end 639 1470 a Fm(3.1)86 b(Main)20 b(windo)n(w)1293 1470 y SDict begin 12 H.L end 1293 1470 a 1293 1470 a SDict begin [/Subtype /Link/Dest (section.3.1) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1293 1470 a 52 w Fm(.)41 b(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.) g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h (.)p Black 124 w(24)p Black 830 1595 a SDict begin H.S end 830 1595 a Fm(3.1.1)98 b(Menus)1323 1595 y SDict begin 12 H.L end 1323 1595 a 1323 1595 a SDict begin [/Subtype /Link/Dest (subsection.3.1.1) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1323 1595 a 22 w Fm(.)41 b(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.) f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(24)p Black 830 1719 a SDict begin H.S end 830 1719 a Fm(3.1.2)98 b(Buttons)1355 1719 y SDict begin 12 H.L end 1355 1719 a 1355 1719 a SDict begin [/Subtype /Link/Dest (subsection.3.1.2) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1355 1719 a 52 w Fm(.)41 b(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.) g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(24)p Black 830 1844 a SDict begin H.S end 830 1844 a Fm(3.1.3)98 b(Simulation)19 b(mode)1667 1844 y SDict begin 12 H.L end 1667 1844 a 1667 1844 a SDict begin [/Subtype /Link/Dest (subsection.3.1.3) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1667 1844 a 52 w Fm(.)41 b(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.) h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(25)p Black 639 1968 a SDict begin H.S end 639 1968 a Fm(3.2)86 b(Source)20 b(Bro)n(wsers)1394 1968 y SDict begin 12 H.L end 1394 1968 a 1394 1968 a SDict begin [/Subtype /Link/Dest (section.3.2) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1394 1968 a 75 w Fm(.)42 b(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f (.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(25)p Black 830 2093 a SDict begin H.S end 830 2093 a Fm(3.2.1)98 b(.asm)20 b(Bro)n(wser)1551 2093 y SDict begin 12 H.L end 1551 2093 a 1551 2093 a SDict begin [/Subtype /Link/Dest (subsection.3.2.1) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1551 2093 a 43 w Fm(.)41 b(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.) g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(25)p Black 830 2217 a SDict begin H.S end 830 2217 a Fm(3.2.2)98 b(Opcode)19 b(vie)n(w)h(-)g(the)h(.obj)e(Bro)n(wser)2153 2217 y SDict begin 12 H.L end 2153 2217 a 2153 2217 a SDict begin [/Subtype /Link/Dest (subsection.3.2.2) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 2153 2217 a 64 w Fm(.)41 b(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(26)p Black 639 2342 a SDict begin H.S end 639 2342 a Fm(3.3)86 b(Re)o(gister)20 b(vie)n(ws)1318 2342 y SDict begin 12 H.L end 1318 2342 a 1318 2342 a SDict begin [/Subtype /Link/Dest (section.3.3) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1318 2342 a 27 w Fm(.)41 b(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h (.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.) g(.)h(.)p Black 124 w(27)p Black 639 2466 a SDict begin H.S end 639 2466 a Fm(3.4)86 b(Symbol)19 b(vie)n(w)1269 2466 y SDict begin 12 H.L end 1269 2466 a 1269 2466 a SDict begin [/Subtype /Link/Dest (section.3.4) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1269 2466 a 76 w Fm(.)41 b(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.) g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f (.)g(.)g(.)h(.)p Black 124 w(28)p Black 639 2591 a SDict begin H.S end 639 2591 a Fm(3.5)86 b(W)-7 b(atch)21 b(vie)n(w)1221 2591 y SDict begin 12 H.L end 1221 2591 a 1221 2591 a SDict begin [/Subtype /Link/Dest (section.3.5) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1221 2591 a 62 w Fm(.)41 b(.)g(.)g(.)h(.)f(.) g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f (.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(29)p Black 639 2715 a SDict begin H.S end 639 2715 a Fm(3.6)86 b(Stack)20 b(vie)n(wer)1260 2715 y SDict begin 12 H.L end 1260 2715 a 1260 2715 a SDict begin [/Subtype /Link/Dest (section.3.6) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1260 2715 a 23 w Fm(.)41 b(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g (.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(29)p Black 639 2840 a SDict begin H.S end 639 2840 a Fm(3.7)86 b(Breadboard)1220 2840 y SDict begin 12 H.L end 1220 2840 a 1220 2840 a SDict begin [/Subtype /Link/Dest (section.3.7) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1220 2840 a 63 w Fm(.)41 b(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g (.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.) p Black 124 w(30)p Black 639 2964 a SDict begin H.S end 639 2964 a Fm(3.8)86 b(T)m(race)20 b(vie)n(wer)1262 2964 y SDict begin 12 H.L end 1262 2964 a 1262 2964 a SDict begin [/Subtype /Link/Dest (section.3.8) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1262 2964 a 21 w Fm(.)41 b(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g (.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.) g(.)g(.)h(.)p Black 124 w(30)p Black 639 3089 a SDict begin H.S end 639 3089 a Fm(3.9)86 b(Pro\002le)20 b(vie)n(wer)1297 3089 y SDict begin 12 H.L end 1297 3089 a 1297 3089 a SDict begin [/Subtype /Link/Dest (section.3.9) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1297 3089 a 48 w Fm(.)41 b(.)g(.)h(.)f(.)g(.)h(.)f (.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.) h(.)f(.)g(.)g(.)h(.)p Black 124 w(31)p Black 639 3214 a SDict begin H.S end 639 3214 a Fm(3.10)i(Stopw)o(atch)1181 3214 y SDict begin 12 H.L end 1181 3214 a 1181 3214 a SDict begin [/Subtype /Link/Dest (section.3.10) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1181 3214 a 39 w Fm(.)e(.)f(.)g(.)g(.)h(.)f(.)g(.)h (.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.) g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(32)p Black 639 3338 a SDict begin H.S end 639 3338 a Fm(3.11)i(Scope)20 b(W)m(indo)n(w)1336 3338 y SDict begin 12 H.L end 1336 3338 a 1336 3338 a SDict begin [/Subtype /Link/Dest (section.3.11) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1336 3338 a 71 w Fm(.)41 b(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f (.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(32)p Black 515 3546 a SDict begin H.S end 515 3546 a Fn(4)82 b(Scripting)21 b(and)f(Con\002guring)1572 3546 y SDict begin 12 H.L end 1572 3546 a 1572 3546 a SDict begin [/Subtype /Link/Dest (chapter.4) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1572 3546 a 1724 w Fn(33)639 3670 y SDict begin H.S end 639 3670 a Fm(4.1)86 b(Embedded)18 b(Commands)1586 3670 y SDict begin 12 H.L end 1586 3670 a 1586 3670 a SDict begin [/Subtype /Link/Dest (section.4.1) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1586 3670 a 70 w Fm(.)42 b(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f (.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(33)p Black 830 3795 a SDict begin H.S end 830 3795 a Fm(4.1.1)98 b(.sim)20 b(macro)1466 3795 y SDict begin 12 H.L end 1466 3795 a 1466 3795 a SDict begin [/Subtype /Link/Dest (subsection.4.1.1) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1466 3795 a 66 w Fm(.)41 b(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f (.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(33)p Black 830 3919 a SDict begin H.S end 830 3919 a Fm(4.1.2)98 b(.command)18 b(macro)1674 3919 y SDict begin 12 H.L end 1674 3919 a 1674 3919 a SDict begin [/Subtype /Link/Dest (subsection.4.1.2) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1674 3919 a 45 w Fm(.)41 b(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.) h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(34)p Black 830 4044 a SDict begin H.S end 830 4044 a Fm(4.1.3)98 b(.assert)20 b(macro)1535 4044 y SDict begin 12 H.L end 1535 4044 a 1535 4044 a SDict begin [/Subtype /Link/Dest (subsection.4.1.3) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1535 4044 a 59 w Fm(.)41 b(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.) f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(34)p Black 639 4168 a SDict begin H.S end 639 4168 a Fm(4.2)86 b(Sock)o(ets)1088 4168 y SDict begin 12 H.L end 1088 4168 a 1088 4168 a SDict begin [/Subtype /Link/Dest (section.4.2) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1088 4168 a 70 w Fm(.)41 b(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f (.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(35)p Black 515 4376 a SDict begin H.S end 515 4376 a Fn(5)82 b(Assertions)21 b(and)g(Extended)f(Br)o(eakpoints)1974 4376 y SDict begin 12 H.L end 1974 4376 a 1974 4376 a SDict begin [/Subtype /Link/Dest (chapter.5) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1974 4376 a 1322 w Fn(36)639 4500 y SDict begin H.S end 639 4500 a Fm(5.1)86 b(Assertions)20 b(and)g(Embedded)e (Simulation)h(commands)2465 4500 y SDict begin 12 H.L end 2465 4500 a 2465 4500 a SDict begin [/Subtype /Link/Dest (section.5.1) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 2465 4500 a 63 w Fm(.)41 b(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(37)p Black 515 4708 a SDict begin H.S end 515 4708 a Fn(6)82 b(T)-6 b(race)20 b(and)h(Log:)k(What)20 b(has)h(happen?)1873 4708 y SDict begin 12 H.L end 1873 4708 a 1873 4708 a SDict begin [/Subtype /Link/Dest (chapter.6) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1873 4708 a 1423 w Fn(38)p Black Black eop end %%Page: 3 4 TeXDict begin 3 3 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.3) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CONTENTS)2388 b Fm(3)p Black 515 515 a SDict begin H.S end 515 515 a Fn(7)82 b(Simulating)21 b(the)f(Real)g(W)-6 b(orld:)25 b(Stimuli)1897 515 y SDict begin 12 H.L end 1897 515 a 1897 515 a SDict begin [/Subtype /Link/Dest (chapter.7) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1897 515 a 1399 w Fn(41)639 638 y SDict begin H.S end 639 638 a Fm(7.1)86 b(Ho)n(w)20 b(The)o(y)f(W)-7 b(ork)1383 638 y SDict begin 12 H.L end 1383 638 a 1383 638 a SDict begin [/Subtype /Link/Dest (section.7.1) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1383 638 a 24 w Fm(.)41 b(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g (.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(41)p Black 830 762 a SDict begin H.S end 830 762 a Fm(7.1.1)98 b(Contention)19 b(among)f(stimuli)1963 762 y SDict begin 12 H.L end 1963 762 a 1963 762 a SDict begin [/Subtype /Link/Dest (subsection.7.1.1) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1963 762 a 67 w Fm(.)41 b(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g (.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(42)p Black 639 885 a SDict begin H.S end 639 885 a Fm(7.2)86 b(I/O)21 b(Pins)1105 885 y SDict begin 12 H.L end 1105 885 a 1105 885 a SDict begin [/Subtype /Link/Dest (section.7.2) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1105 885 a 53 w Fm(.)41 b(.)h(.)f(.)g(.)g (.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.) g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(42)p Black 639 1008 a SDict begin H.S end 639 1008 a Fm(7.3)86 b(Asynchronous)18 b(Stimuli)1576 1008 y SDict begin 12 H.L end 1576 1008 a 1576 1008 a SDict begin [/Subtype /Link/Dest (section.7.3) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1576 1008 a 80 w Fm(.)42 b(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.) g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(43)p Black 830 1131 a SDict begin H.S end 830 1131 a Fm(7.3.1)98 b(Analog)19 b(Asynchronous)e (Stimuli)2106 1131 y SDict begin 12 H.L end 2106 1131 a 2106 1131 a SDict begin [/Subtype /Link/Dest (subsection.7.3.1) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 2106 1131 a 48 w Fm(.)42 b(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.) g(.)h(.)p Black 124 w(44)p Black 639 1254 a SDict begin H.S end 639 1254 a Fm(7.4)86 b(Extended)19 b(Stimuli)1410 1254 y SDict begin 12 H.L end 1410 1254 a 1410 1254 a SDict begin [/Subtype /Link/Dest (section.7.4) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1410 1254 a 59 w Fm(.)42 b(.)f(.)g(.)h(.)f(.)g(.)g (.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.) g(.)g(.)h(.)p Black 124 w(44)p Black 639 1378 a SDict begin H.S end 639 1378 a Fm(7.5)86 b(Limitations)20 b(of)g(the)g(Simulus)g(Mechanism)2128 1378 y SDict begin 12 H.L end 2128 1378 a 2128 1378 a SDict begin [/Subtype /Link/Dest (section.7.5) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 2128 1378 a 26 w Fm(.)42 b(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(44)p Black 830 1501 a SDict begin H.S end 830 1501 a Fm(7.5.1)98 b(Propagation)17 b(Delays)1748 1501 y SDict begin 12 H.L end 1748 1501 a 1748 1501 a SDict begin [/Subtype /Link/Dest (subsection.7.5.1) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1748 1501 a 33 w Fm(.)41 b(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g (.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(45)p Black 515 1707 a SDict begin H.S end 515 1707 a Fn(8)82 b(Modules)943 1707 y SDict begin 12 H.L end 943 1707 a 943 1707 a SDict begin [/Subtype /Link/Dest (chapter.8) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 943 1707 a 2353 w Fn(46)639 1830 y SDict begin H.S end 639 1830 a Fm(8.1)k(gpsim)20 b(Modules)1346 1830 y SDict begin 12 H.L end 1346 1830 a 1346 1830 a SDict begin [/Subtype /Link/Dest (section.8.1) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1346 1830 a 61 w Fm(.)41 b(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.) g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(47)p Black 830 1953 a SDict begin H.S end 830 1953 a Fm(8.1.1)98 b(USAR)-5 b(T)1363 1953 y SDict begin 12 H.L end 1363 1953 a 1363 1953 a SDict begin [/Subtype /Link/Dest (subsection.8.1.1) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1363 1953 a 44 w Fm(.)41 b(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h (.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(48)p Black 830 2077 a SDict begin H.S end 830 2077 a Fm(8.1.2)98 b(Logic)1291 2077 y SDict begin 12 H.L end 1291 2077 a 1291 2077 a SDict begin [/Subtype /Link/Dest (subsection.8.1.2) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1291 2077 a 54 w Fm(.)41 b(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.) f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(48)p Black 830 2200 a SDict begin H.S end 830 2200 a Fm(8.1.3)98 b(I2C)20 b(EEPR)m(OM)1575 2200 y SDict begin 12 H.L end 1575 2200 a 1575 2200 a SDict begin [/Subtype /Link/Dest (subsection.8.1.3) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1575 2200 a 81 w Fm(.)42 b(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.) g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(50)p Black 830 2323 a SDict begin H.S end 830 2323 a Fm(8.1.4)98 b(Switches)20 b(&)h(Resistors)1806 2323 y SDict begin 12 H.L end 1806 2323 a 1806 2323 a SDict begin [/Subtype /Link/Dest (subsection.8.1.4) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1806 2323 a 37 w Fm(.)41 b(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g (.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(51)p Black 830 2446 a SDict begin H.S end 830 2446 a Fm(8.1.5)98 b(V)-11 b(oltage)20 b(Sources,)f(Resistors,)i(and)f(Capacitors)2516 2446 y SDict begin 12 H.L end 2516 2446 a 2516 2446 a SDict begin [/Subtype /Link/Dest (subsection.8.1.5) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 2516 2446 a 74 w Fm(.)42 b(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(51)p Black 830 2569 a SDict begin H.S end 830 2569 a Fm(8.1.6)98 b(LED_7SEGMENTS)18 b(and)i(LED)2102 2569 y SDict begin 12 H.L end 2102 2569 a 2102 2569 a SDict begin [/Subtype /Link/Dest (subsection.8.1.6) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 2102 2569 a 52 w Fm(.)42 b(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f (.)g(.)g(.)h(.)p Black 124 w(51)p Black 639 2693 a SDict begin H.S end 639 2693 a Fm(8.2)86 b(Third)19 b(P)o(arty)h(Modules)1522 2693 y SDict begin 12 H.L end 1522 2693 a 1522 2693 a SDict begin [/Subtype /Link/Dest (section.8.2) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1522 2693 a 72 w Fm(.)41 b(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f (.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(52)p Black 830 2816 a SDict begin H.S end 830 2816 a Fm(8.2.1)98 b(Character)19 b(LCD)i(-)g(HD44780) 2005 2816 y SDict begin 12 H.L end 2005 2816 a 2005 2816 a SDict begin [/Subtype /Link/Dest (subsection.8.2.1) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 2005 2816 a 25 w Fm(.)41 b(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g (.)g(.)h(.)p Black 124 w(53)p Black 830 2939 a SDict begin H.S end 830 2939 a Fm(8.2.2)98 b(Graphic)19 b(LCD)i(-)f(SED1530)1944 2939 y SDict begin 12 H.L end 1944 2939 a 1944 2939 a SDict begin [/Subtype /Link/Dest (subsection.8.2.2) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1944 2939 a 24 w Fm(.)41 b(.)g(.)g(.)h(.)f(.) g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(53)p Black 830 3062 a SDict begin H.S end 830 3062 a Fm(8.2.3)98 b(64)20 b(x)g(8,)g(Serial,)g(I2C)g(Real-T)m(ime)g(Clock)g(-)h(DS1307) 2640 3062 y SDict begin 12 H.L end 2640 3062 a 2640 3062 a SDict begin [/Subtype /Link/Dest (subsection.8.2.3) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 2640 3062 a 75 w Fm(.)41 b(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(53)p Black 639 3185 a SDict begin H.S end 639 3185 a Fm(8.3)86 b(Writing)20 b(ne)n(w)g(modules) 1549 3185 y SDict begin 12 H.L end 1549 3185 a 1549 3185 a SDict begin [/Subtype /Link/Dest (section.8.3) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1549 3185 a 45 w Fm(.)41 b(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g (.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(53)p Black 515 3392 a SDict begin H.S end 515 3392 a Fn(9)82 b(Symbolic)21 b(Deb)n(ugging)1370 3392 y SDict begin 12 H.L end 1370 3392 a 1370 3392 a SDict begin [/Subtype /Link/Dest (chapter.9) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1370 3392 a 1926 w Fn(55)515 3598 y SDict begin H.S end 515 3598 a Fn(10)40 b(Macr)o(os)906 3598 y SDict begin 12 H.L end 906 3598 a 906 3598 a SDict begin [/Subtype /Link/Dest (chapter.10) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 906 3598 a 2390 w Fn(56)515 3804 y SDict begin H.S end 515 3804 a Fn(11)g(Hex)20 b(Files)969 3804 y SDict begin 12 H.L end 969 3804 a 969 3804 a SDict begin [/Subtype /Link/Dest (chapter.11) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 969 3804 a 2327 w Fn(57)515 4010 y SDict begin H.S end 515 4010 a Fn(12)40 b(The)21 b(ICD-)g(Not)f(Supported)g(in)h(v)o(ersions)g (0.21.0)d(and)j(later)2494 4010 y SDict begin 12 H.L end 2494 4010 a 2494 4010 a SDict begin [/Subtype /Link/Dest (chapter.12) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 2494 4010 a 802 w Fn(58)515 4216 y SDict begin H.S end 515 4216 a Fn(13)40 b(Examples)985 4216 y SDict begin 12 H.L end 985 4216 a 985 4216 a SDict begin [/Subtype /Link/Dest (chapter.13) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 985 4216 a 2311 w Fn(60)515 4423 y SDict begin H.S end 515 4423 a Fn(14)g(Regr)o(ession)20 b(T)-8 b(ests)1222 4423 y SDict begin 12 H.L end 1222 4423 a 1222 4423 a SDict begin [/Subtype /Link/Dest (chapter.14) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1222 4423 a 2074 w Fn(61)515 4629 y SDict begin H.S end 515 4629 a Fn(15)40 b(Theory)20 b(of)g(Operation)1374 4629 y SDict begin 12 H.L end 1374 4629 a 1374 4629 a SDict begin [/Subtype /Link/Dest (chapter.15) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1374 4629 a 1922 w Fn(62)639 4752 y SDict begin H.S end 639 4752 a Fm(15.1)44 b(Background)1239 4752 y SDict begin 12 H.L end 1239 4752 a 1239 4752 a SDict begin [/Subtype /Link/Dest (section.15.1) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1239 4752 a 44 w Fm(.)d(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g (.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(62)p Black 639 4875 a SDict begin H.S end 639 4875 a Fm(15.2)i(Instructions) 1224 4875 y SDict begin 12 H.L end 1224 4875 a 1224 4875 a SDict begin [/Subtype /Link/Dest (section.15.2) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1224 4875 a 59 w Fm(.)d(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g (.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(62)p Black 639 4998 a SDict begin H.S end 639 4998 a Fm(15.3)i(General)20 b(File)h(Re)o(gisters)1572 4998 y SDict begin 12 H.L end 1572 4998 a 1572 4998 a SDict begin [/Subtype /Link/Dest (section.15.3) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1572 4998 a 22 w Fm(.)41 b(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.) g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(63)p Black Black Black eop end %%Page: 4 5 TeXDict begin 4 4 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.4) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CONTENTS)2388 b Fm(4)p Black 639 515 a SDict begin H.S end 639 515 a Fm(15.4)44 b(Special)20 b(File)h(Re)o(gisters)1553 515 y SDict begin 12 H.L end 1553 515 a 1553 515 a SDict begin [/Subtype /Link/Dest (section.15.4) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1553 515 a 41 w Fm(.)41 b(.)h(.)f(.)g(.)g(.)h (.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.) g(.)h(.)p Black 124 w(63)p Black 639 640 a SDict begin H.S end 639 640 a Fm(15.5)i(Example)19 b(of)h(an)g(instruction)1692 640 y SDict begin 12 H.L end 1692 640 a 1692 640 a SDict begin [/Subtype /Link/Dest (section.15.5) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1692 640 a 27 w Fm(.)41 b(.)g(.)g(.)h(.)f(.)g (.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.) p Black 124 w(64)p Black 639 764 a SDict begin H.S end 639 764 a Fm(15.6)i(T)m(race)1017 764 y SDict begin 12 H.L end 1017 764 a 1017 764 a SDict begin [/Subtype /Link/Dest (section.15.6) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1017 764 a 79 w Fm(.)d(.)g(.)h(.)f(.)g(.)g (.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.) g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(65)p Black 639 889 a SDict begin H.S end 639 889 a Fm(15.7)i(Breakpoints)1233 889 y SDict begin 12 H.L end 1233 889 a 1233 889 a SDict begin [/Subtype /Link/Dest (section.15.7) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1233 889 a 50 w Fm(.)d(.)g(.)g(.)h(.)f(.)g (.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.) g(.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(65)p Black 639 1013 a SDict begin H.S end 639 1013 a Fm(15.8)i(TIMER1)20 b(External)f(input)1625 1013 y SDict begin 12 H.L end 1625 1013 a 1625 1013 a SDict begin [/Subtype /Link/Dest (section.15.8) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1625 1013 a 31 w Fm(.)42 b(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g (.)g(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(66)p Black 515 1221 a SDict begin H.S end 515 1221 a Fn(16)e(LICENSES)1048 1221 y SDict begin 12 H.L end 1048 1221 a 1048 1221 a SDict begin [/Subtype /Link/Dest (chapter.16) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1048 1221 a 2248 w Fn(67)639 1346 y SDict begin H.S end 639 1346 a Fm(16.1)k(Gpsim.lyx)1180 1346 y SDict begin 12 H.L end 1180 1346 a 1180 1346 a SDict begin [/Subtype /Link/Dest (section.16.1) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1180 1346 a 40 w Fm(.)e(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g (.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.) g(.)g(.)h(.)p Black 124 w(67)p Black 639 1470 a SDict begin H.S end 639 1470 a Fm(16.2)i(Gpsim)1052 1470 y SDict begin 12 H.L end 1052 1470 a 1052 1470 a SDict begin [/Subtype /Link/Dest (section.16.2) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1052 1470 a 44 w Fm(.)d(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g (.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.) g(.)g(.)h(.)p Black 124 w(67)p Black 639 1595 a SDict begin H.S end 639 1595 a Fm(16.3)i(Libraries)20 b(libgpsim,)f(libgpsim_modules,)e (libgpsim_eXdbm)2735 1595 y SDict begin 12 H.L end 2735 1595 a 2735 1595 a SDict begin [/Subtype /Link/Dest (section.16.3) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 2735 1595 a 42 w Fm(.)41 b(.)h(.)f(.)g(.)g(.)h(.)p Black 124 w(67)p Black Black Black eop end %%Page: 5 6 TeXDict begin 5 5 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.5) cvn /DEST pdfmark end 506 174 a Black Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (chapter*.2) cvn /DEST pdfmark end 515 432 a 772 x Fo(Intr)l(oduction)515 1661 y Fm(gpsim)30 b(is)h(a)g (full-featured)d(softw)o(are)i(simulator)g(for)g(Microchip)e(PIC)k (microcontrollers)27 b(dis-)515 1761 y(trib)n(uted)d(under)g(the)h(GNU) h(General)e(Public)h(License)g(and)g(GNU)h(Lesser)f(Public)g (License\(see)515 1860 y(the)20 b(LICENSE)g(section\).)515 1985 y(gpsim)25 b(has)i(been)e(designed)g(to)h(be)g(as)h(accurate)f(as) g(possible.)43 b(Accurac)o(y)24 b(includes)i(the)g(entire)515 2084 y(PIC)19 b(-)g(from)e(the)i(core)f(to)h(the)f(I/O)h(pins)f(and)g (including)f(ALL)i(of)f(the)g(internal)g(peripherals.)23 b(Thus)515 2184 y(it')-5 b(s)19 b(possible)f(to)g(create)g(stimuli)h (and)e(tie)i(them)f(to)g(the)g(I/O)h(pins)f(and)g(test)h(the)f(PIC)h (the)f(same)h(w)o(ay)515 2284 y(you)g(w)o(ould)h(in)g(the)g(real)g(w)o (orld.)515 2408 y(gpsim)30 b(has)h(been)f(designed)g(to)g(be)h(as)h(f)o (ast)f(as)g(possible.)57 b(Real)31 b(time)g(simulation)f(speeds)h(of) 515 2508 y(20Mhz)19 b(pics)h(are)g(possible.)515 2632 y(gpsim)h(can)h(be)g(controlled)f(from)g(either)g(a)i(graphical)d(user) i(interf)o(ace)g(\(GUI\),)f(a)h(command)e(line)515 2732 y(interf)o(ace)25 b(\(CLI\))g(or)h(by)f(a)h(remote)f(process.)41 b(T)-7 b(ypical)26 b(deb)n(ugging)d(features)i(lik)o(e)h(breakpoints,) 515 2832 y(single)18 b(stepping,)g(disassembling,)g(memory)e(inspect)j (&)g(change,)e(and)h(so)h(on)f(are)h(all)g(supported.)515 2931 y(In)j(addition,)g(comple)o(x)g(deb)n(ugging)e(features)i(lik)o(e) h(real)g(time)h(tracing,)e(assertions,)h(conditional)515 3031 y(breaks,)c(and)h(plugin)f(modules)g(to)h(name)g(a)g(fe)n(w)g(are) g(also)h(supported.)p Black 1926 5208 a(5)p Black eop end %%Page: 6 7 TeXDict begin 6 6 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.6) cvn /DEST pdfmark end 506 174 a Black Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (chapter.1) cvn /DEST pdfmark end 515 432 a 727 x Fk(Chapter)44 b(1)515 1594 y Fo(gpsim)52 b(-)g(An)f(Ov)n(er)n (view)515 2046 y Fm(If)16 b(you)g(don')o(t)f(care)i(to)g(w)o(ade)f (through)f(details,)i(this)g(chapter)f(should)g(help)g(you)g(get)h (things)f(up)g(and)515 2146 y(running.)25 b(The)c(INST)-8 b(ALL)21 b(and)g(README)g(\002les)h(will)g(pro)o(vide)d(more)h (up-to-date)f(information)515 2246 y(than)g(this)i(document,)d(so)j (please)f(refer)f(to)i(those)f(\002rst.)515 2390 y SDict begin H.S end 515 2390 a 515 2390 a SDict begin 12 H.A end 515 2390 a 515 2390 a SDict begin [/View [/XYZ H.V]/Dest (section.1.1) cvn /DEST pdfmark end 515 2390 a 152 x Fj(1.1)119 b(Making)30 b(the)g(executable)515 2749 y Fm(gpsim')-5 b(s)18 b(e)o(x)o(ecutable)e(is)j(created)e(in)i(a)f (manner)f(that')-5 b(s)18 b(consistent)g(with)g(much)f(of)h(the)g (other)g(open)515 2848 y(source)h(softw)o(are:)p 515 2881 2485 4 v 513 2981 4 100 v 565 2951 a(command)p 1507 2981 V 663 w(description)p 2998 2981 V 515 2984 2485 4 v 515 3001 V 513 3100 4 100 v 565 3070 a(tar)h(-xvzf)f(gpsim-x.y)-5 b(.z.tar)g(.gz)p 1507 3100 V 95 w(e)o(xpand)18 b(the)i(compressed)f (tar)i(\002le)p 2998 3100 V 515 3104 2485 4 v 513 3203 4 100 v 565 3173 a(./con\002gure)p 1507 3203 V 633 w(Create)f(a)h('mak) o(e\002le')e(unique)g(to)h(your)f(system)p 2998 3203 V 515 3207 2485 4 v 513 3306 4 100 v 565 3276 a(mak)o(e)p 1507 3306 V 813 w(compile)g(gpsim)p 2998 3306 V 515 3310 2485 4 v 513 3409 4 100 v 565 3379 a(mak)o(e)g(install)p 1507 3409 V 591 w(install)i(gpsim)p 2998 3409 V 515 3413 2485 4 v 515 3498 a(The)f(last)h(step)f(will)h(require)e(root)g(pri)n (vile)o(ges.)515 3633 y SDict begin H.S end 515 3633 a 515 3633 a SDict begin 12 H.A end 515 3633 a 515 3633 a SDict begin [/View [/XYZ H.V]/Dest (subsection.1.1.1) cvn /DEST pdfmark end 515 3633 a 119 x Fi(1.1.1)99 b(Mak)o(e)25 b(Details)f(-)h(./con\002gur)n(e)i(options)515 3928 y SDict begin H.S end 515 3928 a 515 3928 a SDict begin 12 H.A end 515 3928 a 515 3928 a SDict begin [/View [/XYZ H.V]/Dest (section*.3) cvn /DEST pdfmark end 515 3928 a Fn(gui-less)515 4104 y Fm(The)d(def)o(ault)g(con\002guration)e(will)j (pro)o(vide)d(a)j(gui)g(\(graphical)d(user)j(interf)o(ace\).)36 b(The)25 b(cli)g(\(com-)515 4204 y(mand)f(line)h(interf)o(ace\))e(is)j (still)g(a)n(v)n(ailable,)g(ho)n(we)n(v)o(er)d(man)o(y)g(people)h (prefer)g(just)h(to)g(use)g(the)g(cli.)515 4304 y(These)20 b(hardy)f(souls)h(may)g(b)n(uild)f(a)i(command-line)c(only)j(interf)o (ace)f(by)h(con\002guring)e(gpsim:)p Black Black 722 4485 a Fh(./configure)39 b(--disable-gui)515 4723 y SDict begin H.S end 515 4723 a 515 4723 a SDict begin 12 H.A end 515 4723 a 515 4723 a SDict begin [/View [/XYZ H.V]/Dest (section*.4) cvn /DEST pdfmark end 515 4723 a Fn(deb)n(ugging)515 4899 y Fm(If)25 b(you)g(w)o(ant)h(to)g(deb)n(ug)e(gpsim)h(then)h(you)e (will)j(probably)c(use)j(gdb)m(.)40 b(Consequently)-5 b(,)25 b(you)g(will)515 4998 y(w)o(ant)20 b(to)g(disable)g(shared)g (libraries:)p Black 1926 5208 a(6)p Black eop end %%Page: 7 8 TeXDict begin 7 7 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.7) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(1.)45 b(GPSIM)21 b(-)f(AN)h(O)l(VER)-7 b(VIEW)1419 b Fm(7)p Black Black Black 722 515 a Fh(./configure)39 b(--disable-shared)515 721 y Fm(This)20 b(will)h(create)f(one,)f(huge)h (monolithic)e(e)o(x)o(ecutable)g(with)j(symbolic)e(information.)515 860 y SDict begin H.S end 515 860 a 515 860 a SDict begin 12 H.A end 515 860 a 515 860 a SDict begin [/View [/XYZ H.V]/Dest (subsection.1.1.2) cvn /DEST pdfmark end 515 860 a 123 x Fi(1.1.2)99 b(RPMs)515 1163 y Fm(gpsim)18 b(is)h(also)f (distrib)n(uted)g(in)g(RPM)h(form.)k(In)18 b(recent)g(v)o(ersions,)f (there)h(are)g(tw)o(o)h(RPMs:)25 b(gpsim-)515 1263 y(de)n(v)o(el)c(and) i(gpsim.)31 b(Both)23 b(of)f(these)h(must)g(be)f(installed.)33 b(There)21 b(is)j(also)f(a)g(RPM)h(for)e(the)g(source)515 1362 y(code.)36 b(This)24 b(can)g(be)g(used)g(to)h(b)n(uild)e(a)i (binary)e(RPM)i(unique)e(to)h(your)f(system.)37 b(Please)25 b(see)g(the)515 1462 y(latest)c(INST)-8 b(ALL)20 b(and)f(README)i(for)e (the)h(most)h(up)e(to)i(date)f(information.)515 1601 y SDict begin H.S end 515 1601 a 515 1601 a SDict begin 12 H.A end 515 1601 a 515 1601 a SDict begin [/View [/XYZ H.V]/Dest (subsection.1.1.3) cvn /DEST pdfmark end 515 1601 a 123 x Fi(1.1.3)99 b(W)n(indo)o(ws)515 1904 y Fm(gpsim)19 b(runs)h(on)g(W)m(indo)n(ws)g(too.)k(Borut)c(Razem)g(maintains)g(the)g (gpsim)g(W)m(indo)n(ws)f(web)i(site:)p Black Black 722 2094 a(http://gpsim.sourcefor)o(ge.net/gp)o(simW)m(in3)o(2/g)o(psimW)m (in)o(32)o(.htm)o(l)515 2283 y(Y)-9 b(ou)17 b(can)h(\002nd)f(detailed)h (instructions)f(there)g(for)h(installing)f(gpsim)h(and)f(its)i (dependencies.)j(Snap)515 2382 y(shots)e(can)g(be)g(found:)p Black Black 722 2572 a(http://gpsim.sourcefor)o(ge.net/snap)o(.ph)o(p) 515 2720 y SDict begin H.S end 515 2720 a 515 2720 a SDict begin 12 H.A end 515 2720 a 515 2720 a SDict begin [/View [/XYZ H.V]/Dest (section.1.2) cvn /DEST pdfmark end 515 2720 a 156 x Fj(1.2)119 b(Running)515 3086 y Fm(The)24 b(e)o(x)o(ecutable)f(created)h(abo)o(v)o(e)f(is)i(called:)34 b(gpsim.)k(The)24 b(follo)n(wing)f(command)g(line)h(options)515 3186 y(may)19 b(be)i(speci\002ed)e(when)h(gpsim)g(is)h(in)m(v)n(ok)o (ed.)p Black Black 722 3491 a Fh(gpsim)42 b([-?])g([-p)g()e ([]])e([[-c])k(])d([[-s])i(])809 3591 y(-p,)i(--processor=)216 b(processor)40 b(\(e.g.)h(-pp16c84)f(for)i(the)h('c84\))809 3691 y(-c,)g(--command=STRIN)o(G)735 b(startup)40 b(command)h(file)h (\(optional)e(.stc)h(files\))809 3790 y(-s)1525 b(.cod)42 b(symbol)f(file)h(\(optional)d(.cod)j(files\))809 3890 y(-L,)h(--)1350 b(colon)41 b(separated)f(list)i(of)h(directories)38 b(to)2422 3989 y(search.)809 4089 y(-v,)43 b(--version)1042 b(gpsim)41 b(version)809 4189 y(-i,)i(--cli)1218 b(command)40 b(line)i(mode)g(only)809 4288 y(-d,)h(--icd=STRING)910 b(use)42 b(ICD)g(\(e.g.)g(-d)h(/dev/ttyS0\).)809 4388 y(Help)f(options:)809 4488 y(-?,)h(--help)1174 b(Show)42 b(this)g(help)f(message)809 4587 y(--usage)1305 b(Display)40 b(brief)i(usage)f(message)515 4793 y Fm(T)-7 b(ypically)19 b(gpsim)h(will)h(be)f(in)m(v)n(ok)o(ed)e(lik)o(e:)p Black Black 722 4998 a Fh([My-Computer]$)38 b(gpsim)85 b(mypic-program.co)o (d)p Black Black eop end %%Page: 8 9 TeXDict begin 8 8 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.8) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(1.)45 b(GPSIM)21 b(-)f(AN)h(O)l(VER)-7 b(VIEW)1419 b Fm(8)p Black 515 515 a(\(The)17 b Fg([My-Computer]$)h Fm(te)o(xt)h(is)g(an)f(e)o(xample)f(of)h(a)h(typical)f(bash)g(command)f (prompt)g(-)h(you)g(will)515 615 y(only)h(type)h(the)g(te)o(xt)g(after) g(this)h(prompt\).)i(This)d(loads)g(the)g(.cod)g(\002le)g(generated)f (by)h(gputils.)515 739 y(Under)j(W)m(indo)n(ws,)h(gpsim)g(can)g(also)h (be)f(in)m(v)n(ok)o(ed)f(by)h(na)n(vigating)e(through)g(the)i (Start/Program)515 839 y(menu.)g(This)c(will)h(open)e(a)i(DOS)f(windo)n (w)g(to)g(pro)o(vide)e(access)j(to)f(the)g(command)e(line)j(interf)o (ace.)515 939 y(It')-5 b(s)23 b(also)f(possible)g(to)h(open)e(a)i(DOS)g (windo)n(w)e(\(or)h(CygW)m(in)g(bash)g(session\))g(and)g(in)m(v)n(ok)o (e)f(gpsim)515 1038 y(from)e(there.)515 1170 y SDict begin H.S end 515 1170 a 515 1170 a SDict begin 12 H.A end 515 1170 a 515 1170 a SDict begin [/View [/XYZ H.V]/Dest (section.1.3) cvn /DEST pdfmark end 515 1170 a 173 x Fj(1.3)119 b(Requir)n(ements)515 1554 y Fm(gpsim)29 b(has)g(been)g(de)n(v)o (eloped)d(under)i(Linux.)51 b(It)30 b(should)e(b)n(uild)h(and)g(run)f (just)i(\002ne)g(under)e(the)515 1654 y(popular)17 b(Linux)g(distrib)n (utions)h(lik)o(e)h(Fedora,)e(Ub)n(untu,)h(etc.)25 b(gpsim)18 b(has)h(also)g(been)f(ported)f(to)i(the)515 1753 y(MA)m(C,)i(MicroSoft) g(W)m(indo)n(ws,)f(Solaris,)i(and)f(BSD.)h(T)-7 b(w)o(o)22 b(packages)e(gpsim)h(requires)g(that)g(may)515 1853 y(not)26 b(be)h(a)n(v)n(ailable)f(with)h(all)g(Linux)f(distrib)n(utions)f(are)i (readline)f(and)g(gtk)g(\(the)h(gimp)e(tool)i(kit\).)515 1952 y(The)17 b(./con\002gure)g(script)h(should)f(tell)h(you)g(if)g (these)g(packages)f(are)h(not)g(installed)g(on)g(your)e(system)515 2052 y(or)k(if)g(the)g(re)n(visions)g(that)g(are)g(installed)g(are)g (too)g(old.)515 2177 y(There)f(are)h(no)g(minimum)f(hardw)o(are)f (requirements)h(to)h(run)f(gpsim.)25 b(F)o(aster)20 b(is)h(better)f (though!)515 2301 y(gputils,)32 b(the)e(gnupic)e(utilities)j(package,)f (is)h(also)g(v)o(ery)d(useful.)54 b(gpsim)30 b(will)g(accept)g (straight)515 2401 y(he)o(x)21 b(\002les,)j(b)n(ut)f(if)g(you)e(w)o (ant)i(to)f(do)h(an)o(y)e(symbolic)h(deb)n(ugging)e(then)i(you)f(will)j (w)o(ant)e(to)h(use)g(the)515 2500 y(.cod)657 2500 y SDict begin H.S end 657 2500 a -30 x Ff(1)690 2500 y SDict begin 12 H.L end 690 2500 a 690 2500 a SDict begin [/Subtype /Link/Dest (Hfootnote.1) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 690 2500 a 22 w Fm(\002les)g(that)f(gputils)f(produces.)27 b(The)21 b(.cod)g(\002les)i(are)e(in)h(the)g(same)f(format)g(as)h(the)g (.cod)f(\002les)515 2600 y(MP)-8 b(ASM)807 2600 y SDict begin H.S end 807 2600 a -30 x Ff(2)842 2600 y SDict begin 12 H.L end 842 2600 a 842 2600 a SDict begin [/Subtype /Link/Dest (Hfootnote.2) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 842 2600 a 21 w Fm(produces.)p Black 515 4837 1146 4 v 605 4893 a Fe(1)634 4917 y SDict begin H.S end 634 4917 a 634 4917 a SDict begin H.R end 634 4917 a 634 4917 a SDict begin [/View [/XYZ H.V]/Dest (Hfootnote.1) cvn /DEST pdfmark end 634 4917 a Fd(.cod)17 b(\002les)h(are)f(symbol)h(\002les)f (that)h(were)g(created)h(by)e(ByteCraft)j(and)d(are)h(used)f(by)g (Microchip.)605 4974 y Fe(2)634 4998 y SDict begin H.S end 634 4998 a 634 4998 a SDict begin H.R end 634 4998 a 634 4998 a SDict begin [/View [/XYZ H.V]/Dest (Hfootnote.2) cvn /DEST pdfmark end 634 4998 a Fd(MP)-6 b(ASM)17 b(is)g(Microchip')l(s)i(Assembler)l(.)p Black Black Black eop end %%Page: 9 10 TeXDict begin 9 9 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.9) cvn /DEST pdfmark end 506 174 a Black Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (chapter.2) cvn /DEST pdfmark end 515 432 a 731 x Fk(Chapter)44 b(2)515 1603 y Fo(Command)52 b(Line)f(Interface) 515 2060 y Fm(The)17 b(command)f(line)i(interf)o(ace)g(is)g(f)o(airly)g (straight-forw)o(ard.)j(The)d(table)g(belo)n(w)f(summarizes)h(the)515 2159 y(a)n(v)n(ailable)24 b(commands.)35 b(Brief)25 b(descriptions)e (of)h(these)h(commands)e(can)h(also)g(be)h(displayed)e(by)515 2259 y(typing)c Fg(help)g Fm(at)i(the)f(command)f(line.)p Black 1926 5208 a(9)p Black eop end %%Page: 10 11 TeXDict begin 10 10 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.10) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(2.)45 b(COMMAND)21 b(LINE)f(INTERF)-6 b(A)m(CE)1152 b Fm(10)p Black Black Black 784 436 2327 4 v 782 535 4 100 v 870 505 a(command)p 1283 535 V 843 w(summary)p 3108 535 V 784 539 2327 4 v 784 555 V 782 655 4 100 v 935 625 a(attach)p 1283 655 V 677 w(Attach)20 b(stimuli)h(to)f(nodes)p 3108 655 V 784 658 2327 4 v 782 758 4 100 v 942 728 a(break)p 1283 758 V 789 w(Set)h(a)g(break)e (point)p 3108 758 V 784 761 2327 4 v 782 861 4 100 v 977 831 a(b)n(us)p 1283 861 V 651 w(Add)g(or)h(display)g(node)f(b)n (usses)p 3108 861 V 784 864 2327 4 v 782 964 4 100 v 953 934 a(clear)p 1283 964 V 718 w(Remo)o(v)o(e)g(a)i(break)e(point)p 3108 964 V 784 967 2327 4 v 782 1067 4 100 v 834 1037 a(disassemble)p 1283 1067 V 492 w(Disassemble)i(the)f(current)f(cpu)p 3108 1067 V 784 1070 2327 4 v 782 1170 4 100 v 940 1140 a(dump)p 1283 1170 V 444 w(Display)h(either)g(the)g(RAM)h(or)f(EEPR)m (OM)p 3108 1170 V 784 1173 2327 4 v 782 1272 4 100 v 869 1243 a(frequenc)o(y)p 1283 1272 V 596 w(Set)h(processor)e(frequenc) o(y)p 3108 1272 V 784 1276 2327 4 v 782 1375 4 100 v 963 1346 a(help)p 1283 1375 V 227 w(T)-7 b(ype)20 b(help)g("command")e (for)h(more)h(help)f(on)h(a)h(command)p 3108 1375 V 784 1379 2327 4 v 782 1478 4 100 v 983 1448 a(icd)p 1283 1478 V 634 w(In)e(Circuit)i(Deb)n(ugger)d(support.)p 3108 1478 V 784 1482 2327 4 v 782 1581 4 100 v 983 1551 a(list)p 1283 1581 V 654 w(Display)i(source)g(and)g(list)h(\002les)p 3108 1581 V 784 1585 2327 4 v 782 1684 4 100 v 963 1654 a(load)p 1283 1684 V 519 w(Load)e(either)h(a)h(he)o(x)e(or)h(command)e (\002le)p 3108 1684 V 784 1688 2327 4 v 782 1787 4 100 v 981 1757 a(log)p 1283 1787 V 675 w(Log/record)g(e)n(v)o(ents)h(to)i (a)f(\002le)p 3108 1787 V 784 1791 2327 4 v 782 1890 4 100 v 953 1860 a(node)p 1283 1890 V 576 w(Add)g(or)g(display)f (stimulus)i(nodes)p 3108 1890 V 784 1893 2327 4 v 782 1993 4 100 v 910 1963 a(module)p 1283 1993 V 602 w(Select)f(&)h (Display)f(modules)p 3108 1993 V 784 1996 2327 4 v 782 2096 4 100 v 875 2066 a(processor)p 1283 2096 V 683 w(Add/list)g (processors)p 3108 2096 V 784 2099 2327 4 v 782 2199 4 100 v 970 2169 a(quit)p 1283 2199 V 912 w(Quit)g(gpsim)p 3108 2199 V 784 2202 2327 4 v 782 2302 4 100 v 956 2272 a(reset)p 1283 2302 V 512 w(Reset)i(all)e(or)g(parts)g(of)g(the)h (simulation)p 3108 2302 V 784 2305 2327 4 v 782 2405 4 100 v 979 2375 a(run)p 1283 2405 V 700 w(Ex)o(ecute)e(the)h(pic)g (program)p 3108 2405 V 784 2408 2327 4 v 782 2508 4 100 v 988 2478 a(set)p 1283 2508 V 444 w(display)f(and)h(control)f(gpsim)h (beha)n(vior)e(\003ags)p 3108 2508 V 784 2511 2327 4 v 782 2611 4 100 v 967 2581 a(step)p 1283 2611 V 548 w(Ex)o(ecute)h(one)h(or)g(more)f(instructions)p 3108 2611 V 784 2614 2327 4 v 782 2714 4 100 v 893 2684 a(stimulus)p 1283 2714 V 734 w(Create)h(a)h(stimulus)p 3108 2714 V 784 2717 2327 4 v 782 2817 4 100 v 866 2787 a(stopw)o(atch)p 1283 2817 V 504 w(Measure)e(time)i(between)e(e)n(v)o(ents)p 3108 2817 V 784 2820 2327 4 v 782 2920 4 100 v 912 2890 a(symbol)p 1283 2920 V 757 w(Add/list)h(symbols)p 3108 2920 V 784 2923 2327 4 v 782 3023 4 100 v 953 2993 a(trace)p 1283 3023 V 701 w(Dump)f(the)h(trace)g(history)p 3108 3023 V 784 3026 2327 4 v 782 3126 4 100 v 913 3096 a(v)o(ersion)p 1283 3126 V 639 w(Display)g(gpsim')-5 b(s)20 b(v)o(ersion)p 3108 3126 V 784 3129 2327 4 v 782 3228 4 100 v 1013 3199 a(x)p 1283 3228 V 389 w(\(deprecated\))e(e)o(xamine)g(and/or)h(modify)g (memory)p 3108 3228 V 784 3232 2327 4 v 515 3460 a(The)h(b)n(uilt)g(in) g('help')f(command)f(pro)o(vides)h(additional)g(online)g(information.) 515 3607 y SDict begin H.S end 515 3607 a 515 3607 a SDict begin 12 H.A end 515 3607 a 515 3607 a SDict begin [/View [/XYZ H.V]/Dest (section.2.1) cvn /DEST pdfmark end 515 3607 a 153 x Fj(2.1)119 b(attach)p Black Black 722 3946 a Fh(attach)41 b(node1)h(stimulus1)e([stimulus2)f(stimulus_N]) 515 4139 y Fm(Attach)25 b(is)h(used)f(to)g(de\002ne)g(connections)f (between)g(one)h(or)g(more)f(stimulus)h(and)g(a)h(node.)39 b(One)515 4238 y(node)25 b(and)h(at)h(least)g(one)f(stimulus)g(must)h (be)f(speci\002ed,)i(b)n(ut)e(in)h(general)e(tw)o(o)i(or)f(more)f (stimuli)515 4338 y(are)d(used.)30 b(Attach)22 b(can)f(be)h(vie)n(wed)g (as)g(wiring)g(stimuli)g(together)m(,)e(with)i(the)g(node)f(acting)h (as)h(the)515 4437 y(wire.)i(A)20 b(stimulus)h(is)g(either)f(a)g(CPU)h (or)f(module)f(I/O)i(pin)e(or)h(a)h(stimulus)f(name.)515 4559 y(Attach_pointN)e(can)i(ha)n(v)o(e)g(one)f(of)h(the)g(follo)n (wing)f(formats)p Black 515 4738 a(pin\(\))p Black 37 w(or)h(pin\(\))930 4868 y(This)g(refers)g(to)g(a)h (pin)f(of)g(the)g(current)f(acti)n(v)o(e)g(CPU.)930 4998 y()f(is)j(the)f(pin)g(number)p Black Black eop end %%Page: 11 12 TeXDict begin 11 11 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.11) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(2.)45 b(COMMAND)21 b(LINE)f(INTERF)-6 b(A)m(CE)1152 b Fm(11)p Black 930 515 a()19 b(is)i(an)f(inte)o (ger)f(symbol)g(whose)h(v)n(alue)g(is)h(a)f(pin)g(number)p Black 515 680 a()p Black 38 w(or)g(pin\(\))930 811 y(These)g(tw)o(o)h(forms)f(are)h(treated)f(e)o(xactly)f(the)i(same) g(\()g(i.e.)26 b(the)21 b(pin\(\))e(has)i(no)g(mean-)930 911 y(ing\).)930 1043 y()d(is)j(a)f(stimulus)g(name)g(or)g (an)g(I/O)h(pin)e(name.)930 1175 y(I/O)c(pin)g(name)g(can)g(be)g(just)h (the)f(pin)g(name)f(for)h(the)g(CPU)h(or)f(.pin_name)930 1275 y(for)k(a)i(module)e(or)h(CPU)515 1461 y(Example)p Black Black 722 1663 a Fh(**gpsim>)40 b(load)i(instructions_14bi)o(t.)o (co)o(d)212 b(#)43 b(load)f(code)722 1763 y(**gpsim>)e(module)i (library)e(libgpsim_modules)d(#load)k(module)g(lib)722 1863 y(**gpsim>)f(module)i(load)f(usart)h(U1)522 b(#)43 b(create)e(USART)722 1962 y(**gpsim>)f(node)i(n1)1089 b(#)43 b(define)e(a)i(node)722 2062 y(**gpsim>)d(node)i(n2)1089 b(#define)41 b(another)f(node)722 2161 y(**gpsim>)g(symbol)i(TWO=2)869 b(#define)41 b(symbol)g(with)g(value)h(2)722 2261 y(**gpsim>)e(attach)i (n1)g(pin\(1\))f(pin\(TWO\))302 b(#attach)41 b(CPU)h(pins)g(1)h(and)f (2)722 2361 y(**gpsim>)e(attach)i(n1)g(U1.RXPIN)607 b(#add)42 b(usart)f(pin)i(to)f(n1)722 2460 y(**gpsim>)e(attach)i(n2)g(portb0)f (pin\(U1.TXPIN\))82 b(#connect)40 b(portb0)h(to)i(UASRT)e(TX)i(pin)722 2560 y(**gpsim>)d(node)1219 b(#)43 b(show)f(results)515 2708 y SDict begin H.S end 515 2708 a 515 2708 a SDict begin 12 H.A end 515 2708 a 515 2708 a SDict begin [/View [/XYZ H.V]/Dest (section.2.2) cvn /DEST pdfmark end 515 2708 a 155 x Fj(2.2)119 b(br)n(eak)515 3073 y Fm(The)27 b(break)f(command)f(is)j(used)f(to)g(set)h(and)f(e)o(xamine)f(break)g (points.)45 b(Ne)n(w)28 b(break)e(points)h(are)515 3173 y(assigned)21 b(a)g(unique)f(number)-5 b(.)28 b(This)21 b(number)f(can)h(be)h(used)f(to)g(query)f(or)h(clear)h(the)f(break)g (point.)515 3272 y(Break)16 b(points)h(halt)g(the)f(simulation)g(when)h (the)f(condition)g(associated)g(with)h(them)g(is)g(true.)24 b(Break)515 3372 y(points)f(are)g(ignored)f(during)f(single)i (stepping.)34 b(See)24 b(chapter)2357 3373 y SDict begin H.S end 2357 3373 a Black -1 x Fm(5)p Black 2398 3315 a SDict begin H.R end 2398 3315 a 2398 3372 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (chapter.5) cvn H.B /ANN pdfmark end 2398 3372 a 24 w Fm(for)f(more)g(e)o(xamples)f(of)h(break-)515 3471 y(points.)515 3716 y SDict begin H.S end 515 3716 a 515 3716 a SDict begin 12 H.A end 515 3716 a 515 3716 a SDict begin [/View [/XYZ H.V]/Dest (section*.5) cvn /DEST pdfmark end 515 3716 a Fn(Examining)d(br)o(eak)g(points)p Black Black 722 3871 a Fh(break)42 b([bp_number])515 4073 y Fm(Break)18 b(points)f(can)h(be)g(e)o(xamined)f(by)g(typing)g (the)h(break)g(command)e(without)h(an)o(y)h(options.)23 b(Spe-)515 4173 y(ci\002c)d(breaks)g(can)g(be)g(queried)f(by)h (specifying)e(the)i(break)f(point)h(number)-5 b(.)515 4417 y SDict begin H.S end 515 4417 a 515 4417 a SDict begin 12 H.A end 515 4417 a 515 4417 a SDict begin [/View [/XYZ H.V]/Dest (section*.6) cvn /DEST pdfmark end 515 4417 a Fn(Pr)o(ogram)18 b(Memory/Execution)h(br)o(eaks)515 4597 y Fm(The)25 b(most)g(common)f(break)g(point)h(is)h(an)g(e)o(x)o (ecution)d(break)h(point.)40 b(This)26 b(one)f(halts)h(e)o(x)o(ecution) 515 4697 y(whene)n(v)o(er)18 b(the)i(program)e(counter)h(reaches)h(the) g(address)g(at)h(which)f(the)g(break)f(point)h(is)h(set.)26 b(The)515 4796 y(syntax)19 b(is:)p Black Black 722 4998 a Fh(break)42 b(e|r|w)f(ADDRESS)g([,expr)g([,message]])p Black Black eop end %%Page: 12 13 TeXDict begin 12 12 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.12) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(2.)45 b(COMMAND)21 b(LINE)f(INTERF)-6 b(A)m(CE)1152 b Fm(12)p Black 515 515 a(The)15 b(simulation)f(halts)i (when)f(the)g(address)g(is)i(e)o(x)o(ecuted,)d(read,)h(or)g(written.)24 b(The)15 b(ADDRESS)h(can)515 615 y(be)22 b(a)h(symbol)e(or)h(a)g (number)-5 b(.)30 b(If)22 b(the)h(optional)d(e)o(xpression)h(is)i (speci\002ed,)g(then)e(it)i(must)g(e)n(v)n(aluate)515 715 y(to)c(true)h(before)e(the)h(simulation)g(will)h(halt.)25 b(The)19 b(optional)f(message)h(allo)n(ws)h(a)g(description)e(to)i(be) 515 814 y(associated)k(with)h(the)f(break.)37 b(The)24 b(read)g(and)g(write)h(options)e(only)h(apply)g(to)g(those)h (processors)515 914 y(that)20 b(can)g(manipulate)f(their)h(o)n(wn)f (program)f(memory)-5 b(.)515 1157 y SDict begin H.S end 515 1157 a 515 1157 a SDict begin 12 H.A end 515 1157 a 515 1157 a SDict begin [/View [/XYZ H.V]/Dest (section*.7) cvn /DEST pdfmark end 515 1157 a Fn(Register)20 b(Memory)g(br)o(eaks) 515 1337 y Fm(gpsim)27 b(can)g(also)g(associate)h(break)e(points)h (with)h(re)o(gister)f(accesses.)47 b(This)27 b(is)i(useful)d(for)h (cap-)515 1436 y(turing)k(b)n(ugs)h(that)g(stomp)g(on)g(RAM.)g(E.g.)61 b(you)31 b(can)h(say)g(something)f(lik)o(e)i(\223halt)f(e)o(x)o (ecution)515 1536 y(whene)n(v)o(er)18 b(bit)i(4)h(of)e(re)o(gister)h (42)g(is)h(cleared\224.)j(The)c(command)e(line)i(syntax)g(is:)p Black Black 722 1735 a Fh(break)42 b(r|w|ch)f(REGISTER)f([,expr)h ([,message]])515 1935 y Fm(The)26 b(simulation)f(halts)i(when)e Fg(REGISTER)g Fm(is)j(read,)f(written,)g(or)f(changed)e(on)i(write,)i (and)e(the)515 2035 y(optional)19 b(e)o(xpression)f(e)n(v)n(aluates)i (to)g(true.)515 2158 y(Other)g(syntax)o(es)f(with)h(a)h(boolean)e(e)o (xpression)f(are:)p Black Black 722 2358 a Fh(break)42 b(r|w|ch)f(REGISTER)f(==)j(value)515 2557 y Fm(The)20 b(simulation)f(halts)i(when)e Fg(REGISTER)g Fm(is)i(assigned)f(the)g (speci\002ed)g(v)n(alue,)f(and:)p Black Black 722 2757 a Fh(break)42 b(r|w|ch)f(REGISTER)f(&)j(mask)f(==)h(value)515 2957 y Fm(The)34 b(simulation)g(halts)h(when)f(speci\002ed)g(bits)i(in) e(REGISTER)h(are)g(assigned)f(the)h(speci\002ed)515 3056 y(v)n(alue.)515 3180 y(Here')-5 b(s)26 b(an)g(e)o(xample)f(of)h(a)g(re) o(gister)g(write)g(break.)42 b(This)26 b(one)f(will)i(halt)g(the)f (simulation)f(if)h(an)o(y)515 3279 y(v)n(alue)19 b(is)i(written)f(to)h (the)f(v)n(ariable)f(named)g Fg(temp1)p Fm(.)p Black Black 722 3479 a Fh(break)42 b(w)h(temp1)515 3678 y Fm(Sometimes)30 b(it')-5 b(s)32 b(necessary)f(to)g(specify)f(an)h(auxiliary)f (condition)f(with)i(a)g(break)f(point.)57 b(F)o(or)515 3778 y(e)o(xample,)25 b(there)g(may)h(be)f(a)h(temporary)e(v)n(ariable) h(that)g(is)i(shared)e(throughout)e(the)i(code.)41 b(Y)-9 b(ou)515 3878 y(may)29 b(wish)i(to)f(trap)g(writes)h(to)f(that)g(v)n (ariable)f(only)h(while)g(e)o(x)o(ecuting)e(a)i(speci\002c)h (subroutine.)515 3977 y(F)o(or)24 b(e)o(xample,)h(the)g(follo)n(wing)f (break)g(point)g(triggers)g(when)h(temp1)f(is)i(written)f(and)f(while)i (the)515 4077 y(program)18 b(counter)h(is)i(in)f(between)f(the)i (labels)f Fg(func_start)h Fm(and)f Fg(func_end)r Fm(:)p Black Black 722 4277 a Fh(break)42 b(w)h(temp1)e(\(pc)i(>=)f (func_start)e(&&)i(pc)h(<)g(func_end\))515 4476 y Fg(TIP:)24 b Fm(Use)h(this)g(type)f(of)g(break)f(point)h(if)h(you)e(suspect)i(an)f (interrupt)f(routine)g(is)i(o)o(v)o(er)e(writing)h(a)515 4576 y(v)n(ariable.)515 4699 y(Another)19 b(situation)h(is)i(one)e (where)g(you)g(wish)h(to)f(trap)h(writes)g(to)g(a)g(v)n(ariable)e(only) h(if)h(some)f(other)515 4799 y(v)n(ariable)f(is)i(a)g(certain)e(v)n (alue:)p Black Black 722 4998 a Fh(break)42 b(w)h(temp1)e(\(CurTask)g (&)i(0x0f)f(!=)g(0b101\))p Black Black eop end %%Page: 13 14 TeXDict begin 13 13 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.13) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(2.)45 b(COMMAND)21 b(LINE)f(INTERF)-6 b(A)m(CE)1152 b Fm(13)p Black 515 515 a(If)24 b(the)h(\002rmw)o(are)f (writes)h(to)g(the)g(v)n(ariable)e(temp1)h(then)h(the)f(simulation)g (will)i(halt)e(if)h(the)g(lo)n(wer)515 615 y(nibble)19 b(of)h(CurT)-7 b(ask)20 b(is)h(not)f(equal)g(to)g(5.)515 739 y(This)g(e)o(xample)f(breaks)g(only)h(if)g(the)g(he)o(x)g(digit)g ('C')g(is)h(written)f(to)h(the)f(upper)f(nibble)g(of)h(temp1:)p Black Black 722 947 a Fh(break)42 b(w)h(temp1)e(&)j(0b11110000)39 b(==)k(0b11000000)515 1193 y SDict begin H.S end 515 1193 a 515 1193 a SDict begin 12 H.A end 515 1193 a 515 1193 a SDict begin [/View [/XYZ H.V]/Dest (section*.8) cvn /DEST pdfmark end 515 1193 a Fn(Pr)o(ocessor)19 b(exception)g(br)o (eakpoints)515 1374 y Fm(Stack)h(o)o(v)o(er\003o)n(w)-5 b(,)18 b(under\003o)n(w)g(and)i(w)o(atchdog)e(timeout)i(can)g(also)g (halt)h(the)f(simulation.)p Black Black 722 1581 a Fh(break)42 b(so)722 1681 y(break)g(su)722 1780 y(break)g(wdt)515 2026 y SDict begin H.S end 515 2026 a 515 2026 a SDict begin 12 H.A end 515 2026 a 515 2026 a SDict begin [/View [/XYZ H.V]/Dest (section*.9) cvn /DEST pdfmark end 515 2026 a Fn(Attrib)n(ute)20 b(Br)o(eakpoints)p Black Black 722 2182 a Fh(break)42 b Fc(attribute)515 2390 y Fm(gpsim)22 b(also)h(supports)f(a)h(concept)f(of)g Fg(attrib)n(ute)h(br)m (eakpoints.)31 b Fm(Attrib)n(utes)23 b(are)g(parameters)e(that)515 2489 y(gpsim)j(and)g(its)h(modules)f(e)o(xpose)f(to)i(the)g(user)f (interf)o(ace.)37 b(F)o(or)25 b(e)o(xample,)f(the)g(simulator)g(stop-) 515 2589 y(w)o(atch)f(e)o(xposes)f(attrib)n(utes)h(which)f(support)g (breakpoints.)31 b(This)23 b(feature)f(is)i(intend)e(mainly)g(for)515 2688 y(module)d(writers)h(to)g(pro)o(vide)e(a)j(mechanism)e(for)g(allo) n(wing)h(the)g(user)g(to)g(control)f(the)h(module.)515 2934 y SDict begin H.S end 515 2934 a 515 2934 a SDict begin 12 H.A end 515 2934 a 515 2934 a SDict begin [/View [/XYZ H.V]/Dest (section*.10) cvn /DEST pdfmark end 515 2934 a Fn(Cycle)g(counter)g(Br)o(eakpoints)p Black Black 722 3090 a Fh(break)42 b(c)h Fc(cycle_number)515 3298 y Fm(The)24 b(c)o(ycle)f(counter)g(is)j(gpsim')-5 b(s)24 b(time)g(k)o(eeper)-5 b(.)37 b(It)25 b(increments)e(once)g(e)n(v)o(ery) g(instruction)g(c)o(ycle.)515 3397 y(The)18 b('c')f(option)g(to)i(the)f (break)f(command)f(allo)n(ws)j(a)f(break)f(point)h(to)g(be)g(set)h(at)g (a)f(particular)f(v)n(alue)515 3497 y(of)j(the)g(c)o(ycle)g(counter)-5 b(.)515 3646 y SDict begin H.S end 515 3646 a 515 3646 a SDict begin 12 H.A end 515 3646 a 515 3646 a SDict begin [/View [/XYZ H.V]/Dest (section.2.3) cvn /DEST pdfmark end 515 3646 a 156 x Fj(2.3)119 b(clear)p Black Black 722 3987 a Fh(clear)42 b(bp_number)515 4195 y Fm(The)28 b(clear)g(command)f (is)i(used)f(to)h(clear)f(break)f(points.)49 b(The)29 b(break)e(point)h(number)e(must)j(be)515 4295 y(speci\002ed.)54 b(The)30 b Fg(br)m(eak)h Fm(command)d(without)h(an)o(y)h(ar)o(guments)e (displays)i(all)g(of)g(the)g(currently)515 4394 y(de\002ned)f(break)h (points.)56 b(This)30 b(can)h(be)f(used)h(to)g(ascertain)f(the)h(break) e(point)h(number)-5 b(.)55 b(Once)515 4494 y(cleared,)19 b(a)i(break)e(point)g(is)i(deleted.)1613 4494 y SDict begin H.S end 1613 4494 a -30 x Ff(1)1647 4494 y SDict begin 12 H.L end 1647 4494 a 1647 4494 a SDict begin [/Subtype /Link/Dest (Hfootnote.3) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1647 4494 a Black 515 4565 1146 4 v 605 4620 a Fe(1)634 4644 y SDict begin H.S end 634 4644 a 634 4644 a SDict begin H.R end 634 4644 a 634 4644 a SDict begin [/View [/XYZ H.V]/Dest (Hfootnote.3) cvn /DEST pdfmark end 634 4644 a Fd(A)c(break)h(point)g(disable/enable)k(feature)d(has)e(been)h (discussed)g(and)g(may)e(be)i(added)g(a)f(future)h(date.)p Black Black Black eop end %%Page: 14 15 TeXDict begin 14 14 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.14) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(2.)45 b(COMMAND)21 b(LINE)f(INTERF)-6 b(A)m(CE)1152 b Fm(14)p Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (section.2.4) cvn /DEST pdfmark end 515 432 a 83 x Fj(2.4)119 b(disassemble)p Black Black 722 701 a Fh(disassemble)39 b([[begin:end])g(|)k([count]]) 515 908 y Fm(The)23 b(disassemble)h(command)e(decodes)h(the)h(program)e (memory)g(opcodes)g(into)i(their)g(standard)515 1008 y(mnemonics.)60 b(W)m(ith)33 b(no)g(options,)h(the)f Fg(disassemble)f Fm(command)f(disassembles)i(instructions)515 1108 y(surrounding)17 b(the)j(current)f(program)f(counter:)p Black Black 722 1315 a Fh(gpsim>)41 b(disassemble)722 1415 y(current)g(pc)i(=)g(0x1c)897 1514 y(0012)e(2a03)h(incf)g (reg3,f,0)897 1614 y(0014)f(0004)h(clrwdt)897 1714 y(0016)f(5000)h (movf)g(reg,w,0)897 1813 y(0018)f(1001)h(iorwf)g(reg1,w,0)897 1913 y(001a)f(1002)h(iorwf)g(reg2,w,0)722 2013 y(==>)h(001c)e(1003)h (iorwf)g(reg3,w,0)897 2112 y(001e)f(e1f4)h(bnz)h($-0x16)e(;\(0x8\))897 2212 y(0020)g(d7ff)h(bra)h($-0x0)e(;\(0x00020\))515 2419 y Fm(W)m(ith)22 b(a)g(single)f(numeric)f(option,)h(the)h Fg(disassemble)f Fm(command)f(will)i(disassemble)f(gi)n(v)o(en)g(num-) 515 2519 y(ber)f(of)f(instructions)h(starting)f(with)i(the)f (instruction)f(at)i(the)f(PC.)515 2644 y(W)m(ith)j(a)h(tw)o(o)f (numbers,)f(the)h Fg(disassemble)g Fm(command)e(will)j(disassemble)f (instructions)f(starting)515 2743 y(and)d(ending)g(gi)n(v)o(en)g (number)f(of)i(instructions)g(from)f(the)h(PC.)515 2892 y SDict begin H.S end 515 2892 a 515 2892 a SDict begin 12 H.A end 515 2892 a 515 2892 a SDict begin [/View [/XYZ H.V]/Dest (section.2.5) cvn /DEST pdfmark end 515 2892 a 156 x Fj(2.5)119 b(dump)p Black Black 722 3234 a Fh(dump)42 b([r)h(|)g(s)g(|)g(e)h([module_name)38 b([filename]]])515 3441 y Fm(dump)15 b(r)i(or)g(dump)e(with)i(no)g(options)f(will)h (display)f(all)i(of)e(the)h(\002le)h(re)o(gisters)e(and)g(special)h (function)515 3541 y(re)o(gisters.)515 3666 y(dump)i(s)i(will)g (display)e(only)h(special)g(function)e(re)o(gisters.)515 3790 y(dump)g(e)i(will)g(display)f(the)g(contents)g(of)g(the)h (processor)e(EEPR)m(OM)h(\(if)h(the)f(pic)h(being)e(simulated)515 3890 y(contains)h(an)o(y\).)515 4014 y(The)f(')l(dump)f(e)i (module_name')c(command)h(will)k(display)e(the)g(contents)g(of)g(an)h (EEPR)m(OM)f(where)515 4114 y(module_name)29 b(can)j(either)h(be)f(the) g(name)g(of)h(a)f(module)g(or)g(processor)f(which)h(contains)g(an)515 4214 y(EEPR)m(OM.)515 4338 y(The)g(')l(dump)f(e)i(module_name)c (\002lename')j(command)e(dumps)i(the)g(contents)g(of)h(a)g(module')-5 b(s)515 4438 y(EEPR)m(OM,)17 b(in)g(Intel)g(he)o(x)f(format,)h(into)g (the)g(\002le)h(with)f(the)h(gi)n(v)o(en)e(name.)23 b(The)17 b(')o(load)f(e')i(command)515 4537 y(can)h(later)g(be)g(used)g(to)g (read)g(the)g(dumped)e(\002le)j(thus)f(allo)n(wing)f(the)h(contents)f (of)h(the)g(EEPR)m(OM)g(to)515 4637 y(be)h(preserv)o(ed)e(between)h (runs)h(of)g(gpsim.)515 4761 y(See)g(the)h('x')e(command)f(for)i(e)o (xamining)e(and)i(modifying)d(indi)n(vidual)i(re)o(gisters.)p Black Black eop end %%Page: 15 16 TeXDict begin 15 15 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.15) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(2.)45 b(COMMAND)21 b(LINE)f(INTERF)-6 b(A)m(CE)1152 b Fm(15)p Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (section.2.6) cvn /DEST pdfmark end 515 432 a 83 x Fj(2.6)119 b(echo)515 724 y Fm(The)20 b(echo)h(command)e(is)i(used)g(lik)o(e)g(a)h(print)e (statement)h(within)g(con\002guration)d(\002les.)28 b(It)21 b(just)h(lets)515 824 y(you)d(display)h(information)d(about)j(your)f (con\002guration)e(\002le.)515 971 y SDict begin H.S end 515 971 a 515 971 a SDict begin 12 H.A end 515 971 a 515 971 a SDict begin [/View [/XYZ H.V]/Dest (section.2.7) cvn /DEST pdfmark end 515 971 a 155 x Fj(2.7)119 b(fr)n(equency)515 1334 y Fm(This)20 b(command)f(sets)i(the)g(oscillator)f(frequenc)o(y)-5 b(.)22 b(By)f(def)o(ault)e(gpsim)h(uses)h(20)f(MHz)h(oscillator)-5 b(.)515 1434 y(The)28 b(oscillator)g(frequenc)o(y)e(is)j(used)g(to)f (compute)g(time)g(in)h(seconds.)49 b(Use)30 b(this)f(command)d(to)515 1534 y(adjust)g(this)g(v)n(alue.)42 b(If)26 b(no)g(v)n(alue)f(is)i(pro) o(vided)d(this)i(command)e(prints)i(the)g(current)f(frequenc)o(y)-5 b(.)515 1633 y(Note)17 b(that)h(PICs)h(ha)n(v)o(e)e(an)g(instruction)g (frequenc)o(y)e(that')-5 b(s)18 b(a)g(quarter)e(of)h(the)h(oscillator)f (frequenc)o(y)515 1733 y(clock.)515 1863 y SDict begin H.S end 515 1863 a 515 1863 a SDict begin 12 H.A end 515 1863 a 515 1863 a SDict begin [/View [/XYZ H.V]/Dest (section.2.8) cvn /DEST pdfmark end 515 1863 a 172 x Fj(2.8)119 b(help)p Black Black 722 2220 a Fh(help)42 b([)p Fc(command)11 b Fh(])515 2418 y Fm(By)22 b(itself,)h(help)e(will)i(display)e(all)h (of)g(the)g(commands)e(along)h(with)h(a)g(brief)f(description)g(on)g (ho)n(w)515 2518 y(the)o(y)f(w)o(ork.)27 b(W)m(ith)22 b(a)f(command)e(as)j(a)g(parameter)d(help)i(pro)o(vides)e(more)h(e)o (xtensi)n(v)o(e)g(online)g(help.)515 2617 y(The)g(help)f(command)g(can) g(also)i(display)f(information)d(about)j(attrib)n(utes.)515 2764 y SDict begin H.S end 515 2764 a 515 2764 a SDict begin 12 H.A end 515 2764 a 515 2764 a SDict begin [/View [/XYZ H.V]/Dest (section.2.9) cvn /DEST pdfmark end 515 2764 a 155 x Fj(2.9)119 b(icd)p Black Black 722 3105 a Fh(icd)43 b([open)e(])515 3302 y Fm(The)22 b(open)g(command)f (is)j(used)e(to)h(enable)f(ICD)i(mode)e(and)g(specify)g(the)h(serial)g (port)f(where)h(the)515 3402 y(ICD)g(is.)33 b(\(e.g.)f("icd)22 b(open)g(/de)n(v/ttyS0"\).)31 b(W)m(ithout)22 b(options)f(\(and)h (after)g(the)h(icd)g(is)g(enabled\),)f(it)515 3502 y(will)f(print)e (some)h(information)e(about)h(the)h(ICD.)515 3649 y SDict begin H.S end 515 3649 a 515 3649 a SDict begin 12 H.A end 515 3649 a 515 3649 a SDict begin [/View [/XYZ H.V]/Dest (section.2.10) cvn /DEST pdfmark end 515 3649 a 154 x Fj(2.10)119 b(list)515 4012 y Fm(The)20 b(list)h(command)d(allo)n(ws) j(you)e(to)h(vie)n(w)g(the)g(source)g(code)f(while)i(you)e(are)h(deb)n (ugging.)p Black Black 722 4210 a Fh(list)42 b([[s)g(|)i(l])e([*pc])g ([line_number1)c([,line_number2]])o(])515 4407 y Fm(W)m(ithout)19 b(an)o(y)h(options,)f(list)i(will)g(use)f(the)h(last)g(speci\002ed)f (options.)515 4530 y(list)h(s)g(will)g(display)f(lines)g(in)h(the)f (source)f(\(or)h(.asm\))g(\002le.)515 4653 y(list)h(l)g(will)g(display) e(lines)i(in)f(the)h(.lst)f(\002le.)515 4776 y(list)g(*pc)e(will)i (display)f(either)g(.asm)g(or)g(.lst)g(lines)h(around)d(the)i(PC.)h(W)m (ithout)f(*pc)f(use)i(current)d(PC)515 4876 y(as)k(a)f(reference.)515 4998 y(Line)g(numbers)e(are)i(relati)n(v)o(e)g(to)g(the)g(line)h(of)f (the)g(PC.)p Black Black eop end %%Page: 16 17 TeXDict begin 16 16 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.16) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(2.)45 b(COMMAND)21 b(LINE)f(INTERF)-6 b(A)m(CE)1152 b Fm(16)p Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (section.2.11) cvn /DEST pdfmark end 515 432 a 83 x Fj(2.11)119 b(load)515 725 y Fm(The)20 b(load)f(command)g(is)i(used)f(to)g(load)g (a)g(program)e(\002le,)j(a)g(command)d(\002le,)i(or)g(eeprom)f(data.) 515 848 y(Program)30 b(\002le)i(is)h(usually)e(used)g(to)h(program)d (the)j(physical)e(part.)59 b(A)32 b(.he)o(x)f(\002le)h(pro)o(vides)e (no)515 948 y(symbolic)22 b(information.)33 b(.cod)23 b(\002les)h(on)f(the)h(other)f(hand,)g(do)g(pro)o(vide)f(symbolic)g (information.)515 1048 y(The)e(only)f(reason)g(to)i(use)f(a)h(he)o(x)e (\002le)i(is)g(when)f(there')-5 b(s)20 b(no)g(.cod)f(\002le)i(a)n(v)n (ailable.)515 1171 y(The)f(syntax)f(for)h(loading)e(program)h(\002les)i (is:)p Black Black 722 1373 a Fh(load)42 b([processortype])37 b(programfile)515 1575 y Fm(gpsim)23 b(will)i(automatically)e (determine)f(if)i(the)g(\002le)h(is)g(a)f(.he)o(x)f(or)h(.cod)f (\002le.)37 b(The)24 b(optional)f Fg(pr)l(o-)515 1675 y(cessortype)k Fm(is)h(needed)e(if)h(a)h(.he)o(x)e(\002le)i(is)g (loaded)e(and)h(processor)f(is)i(not)f(yet)g(de\002ned.)45 b(It)27 b(also)515 1774 y(allo)n(ws)20 b(one)g(to)g(o)o(v)o(erride)e (the)i(processor)f(speci\002ed)h(in)g(a)h(.cod)e(\002le.)p Black Black 722 1976 a Fh(load)42 b([i])g(commandfile.stc)515 2178 y Fm(Command)25 b(\002les)j(contain)d(gpsim)h(commands.)43 b(These)27 b(are)f(e)o(xtremely)f(useful)h(for)g(creating)g(a)515 2278 y(deb)n(ugging)16 b(en)m(vironment)f(that)k(will)g(be)f(used)h (repeatedly)-5 b(.)22 b(Normally)17 b(loading)g(a)i(command)e(\002le) 515 2377 y(residing)25 b(in)h(other)f(directories)f(changes)h(w)o (orking)g(directory)-5 b(.)39 b(This)26 b(can)g(be)g(o)o(v)o(erridden)c (with)515 2477 y(the)e('i')g(\(include\))f(option.)p Black Black 722 2679 a Fh(load)42 b(e)h(module_name)c(file)515 2881 y Fm(This)29 b(command)e(loads)h(the)h(contents)f(of)h(either)f(a) i(processor')-5 b(s)27 b(EEPR)m(OM)i(or)g(an)g(EEPR)m(OM)515 2981 y(module)23 b(from)h(a)h(\002le)g(containing)e(the)h(data)h(in)f (Intel)h(he)o(x)f(format.)37 b(In)24 b(either)g(case)h(the)g(address) 515 3080 y(of)30 b(the)g(\002rst)h(cell)g(of)f(the)h(EEPR)m(OM)f(is)h (0x0000.)54 b(Used)30 b(in)h(conjunction)d(with)i(the)h(')l(dump)d(e) 515 3180 y(module_name)c(\002lename')i(command,)g(the)h(contents)f(of)h (an)g(EEPR)m(OM)f(can)h(be)g(carried)f(o)o(v)o(er)515 3279 y(from)19 b(one)h(run)f(of)h(gpsim)g(to)g(another)-5 b(.)515 3427 y SDict begin H.S end 515 3427 a 515 3427 a SDict begin 12 H.A end 515 3427 a 515 3427 a SDict begin [/View [/XYZ H.V]/Dest (section.2.12) cvn /DEST pdfmark end 515 3427 a 156 x Fj(2.12)119 b(macr)n(os)515 3792 y Fm(Macros)19 b(are)i(de\002ned)e(lik)o(e:)p Black Black 722 3994 a Fc(name)57 b Fh(macro)41 b([arg1,)g(arg2,)h(...,)f(argN])853 4094 y(macro)g(body)722 4193 y(endm)515 4395 y Fm(And)19 b(the)o(y')l(re)g(in)m(v)n(ok)o(ed)f(by:)p Black Black 722 4597 a Fc(name)57 b Fh(param1,)40 b(param2,)h(...,)h(paramN)515 4799 y Fm(Macros)23 b(are)h(a)h(w)o(ay)f(of)g(collecting)f(se)n(v)o (eral)g(parameterized)f(commands)g(into)i(one)g(short)f(com-)515 4899 y(mand.)53 b(The)30 b(\002rst)h(line)f(of)g(a)g(macro)f (de\002nition)g(speci\002es)h(the)h(macro')-5 b(s)29 b(name)g(and)h(optional)515 4998 y(ar)o(guments.)23 b(The)e Fg(name)e Fm(is)j(used)e(to)h(in)m(v)n(ok)o(e)e(the)h(macro.)25 b(The)20 b(ar)o(guments)f(are)h(te)o(xt)h(string)f(place)p Black Black eop end %%Page: 17 18 TeXDict begin 17 17 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.17) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(2.)45 b(COMMAND)21 b(LINE)f(INTERF)-6 b(A)m(CE)1152 b Fm(17)p Black 515 515 a(holders.)25 b(When)20 b(a)h(macro)f(is)i(in)m(v)n(ok)o(ed,)c(the)j(parameters)e(are)i (aligned)e(with)i(the)g(ar)o(guments.)j(I.e.)515 615 y Fg(par)o(am1)h Fm(in)i(the)g(in)m(v)n(ocation)e(can)i(be)g(thought)e (of)i(being)f(assigned)g(to)i Fg(ar)m(g1)e Fm(in)h(the)g(de\002nition.) 515 715 y(The)20 b(parameters)f(replace)g(the)h(ar)o(guments)e(in)j (the)f(macro)f(body)-5 b(.)515 839 y(In)19 b(the)h(follo)n(wing)d(e)o (xample,)h(a)i(v)n(ariable)f(or)g(attrib)n(ute)g(called)h Fg(mac_\003a)o(gs)d Fm(is)k(being)e(manipulated)515 939 y(in)j(an)f(e)o(xpression.)29 b(The)21 b(ar)o(guments)f Fg(add)j Fm(and)e Fg(mask)j Fm(appear)c(in)i(the)g(macro)f(body)f(and)i (pro)o(vide)515 1038 y(a)e(parameterized)e(w)o(ay)j(of)e(manipulating)f (this)j(e)o(xpression.)p Black Black 722 1246 a Fh(mac_exp)41 b(macro)g(add,)h(mask)809 1346 y(mac_flags)e(=)j(\(mac_flags+add\))38 b(&)43 b(mask)722 1445 y(endm)515 1653 y Fm(Note)20 b(that)g(the)g (indentation)f(is)i(arbitrary)-5 b(.)23 b(The)d(macro)f(is)i(in)m(v)n (ok)o(ed)d(by:)p Black Black 722 1860 a Fh(mac_exp)41 b(1,)i(0b00001111)c(#)k(increment)d(the)i(lower)g(nibble)515 2068 y Fm(The)19 b(parameter)g Fg(add)i Fm(is)g(replaced)d(by)i(the)f (number)f Fg(1)i Fm(while)g Fg(mask)i Fm(is)e(replaced)f(with)h(the)g (binary)515 2167 y(number)e Fg(0b00001111.)j Fm(The)f(in)m(v)n(ocation) e(turns)i(into)g(the)g(gpsim)g(command:)p Black Black 722 2375 a Fh(mac_flags)40 b(=)j(\(mac_flags+1\))38 b(&)43 b(0b00001111)515 2621 y SDict begin H.S end 515 2621 a 515 2621 a SDict begin 12 H.A end 515 2621 a 515 2621 a SDict begin [/View [/XYZ H.V]/Dest (section*.11) cvn /DEST pdfmark end 515 2621 a Fn(Nested)20 b(Macr)o(os)515 2802 y Fm(The)28 b(macro)g(body)f(can)i(contain)e(an)o(y)h(gpsim)g (command.)49 b(Of)29 b(particular)e(interest)i(are)g(macro)515 2901 y(in)m(v)n(ocations)d(within)h(other)f(macros.)46 b(Here')-5 b(s)28 b(another)e(macro)g(that)i(in)m(v)n(ok)o(es)e(the)i (one)f(de\002ned)515 3001 y(abo)o(v)o(e.)p Black Black 722 3208 a Fh(#)43 b(Nested)e(macro)h(example)722 3308 y(mac1)g(macro)g(p1,)g(p2)809 3408 y(run)809 3507 y(mac_exp)f(p1,)h(p2) 722 3607 y(endm)515 3814 y Fm(And)19 b(it)i(could)f(be)g(used)g(lik)o (e:)p Black Black 722 4022 a Fh(mac1)86 b(1,)260 b(0b00001111)127 b(#)87 b(test)41 b(lower)h(nibble)722 4122 y(mac1)86 b(\(1<\027<4\),)40 b(0b11110000)127 b(#)87 b(test)41 b(upper)h(nibble)515 4329 y Fm(The)24 b(\002rst)i(in)m(v)n(ocation)d (starts)j(the)f(simulator)f(by)h(e)o(x)o(ecuting)e(a)i Fg(run)g Fm(command.)37 b(When)25 b(a)h(break)515 4429 y(point)f(is)i(encountered,)e(control)g(returns)h(to)g(the)g(command)f (line)h(and)g(the)g Fg(mac_e)n(xp)f Fm(macro)h(is)515 4528 y(in)m(v)n(ok)o(ed.)p Black Black eop end %%Page: 18 19 TeXDict begin 18 18 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.18) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(2.)45 b(COMMAND)21 b(LINE)f(INTERF)-6 b(A)m(CE)1152 b Fm(18)p Black 515 515 a SDict begin H.S end 515 515 a 515 515 a SDict begin 12 H.A end 515 515 a 515 515 a SDict begin [/View [/XYZ H.V]/Dest (section*.12) cvn /DEST pdfmark end 515 515 a Fn(Displaying)20 b(De\002ned)h(Macr)o(os)515 695 y Fm(All)i(currently)e(de\002ned)g (macros)h(can)g(be)h(displayed)e(by)h(typing)g(the)g(macro)g(command)e (without)515 794 y(a)g(name)g(or)g(ar)o(guments:)p Black Black 722 994 a Fh(gpsim>)41 b(macro)722 1094 y(mac1)h(macro)g(p1)g(p2) 853 1194 y(run)853 1293 y(mac_exp)f(p1,)h(p2)722 1393 y(endm)722 1493 y(mac_exp)f(macro)g(add)i(mask)897 1592 y(mac_flags)c(=)44 b(\(mac_flags+add\))37 b(&)43 b(mask)722 1692 y(endm)515 1821 y SDict begin H.S end 515 1821 a 515 1821 a SDict begin 12 H.A end 515 1821 a 515 1821 a SDict begin [/View [/XYZ H.V]/Dest (section.2.13) cvn /DEST pdfmark end 515 1821 a 174 x Fj(2.13)119 b(module)515 2204 y Fm(The)26 b Fg(module)g Fm(command)f(is)j(used)f(to)g(load)f (and)g(query)g(e)o(xternal)g(modules)f(\(see)j(section)3213 2205 y SDict begin H.S end 3213 2205 a Black -1 x Fm(8)p Black 3255 2148 a SDict begin H.R end 3255 2148 a 3255 2204 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (chapter.8) cvn H.B /ANN pdfmark end 3255 2204 a 27 w Fm(for)515 2303 y(more)21 b(information)e(about)i(gpsim)g(modules\).)29 b(A)22 b(module)e(is)j(a)f(special)g(piece)g(of)f(softw)o(are)g(that) 515 2403 y(can)j(e)o(xtend)f(gpsim)h(in)h(some)f(manner)-5 b(.)37 b(LED')-5 b(s)25 b(and)f(switches)h(are)g(e)o(xamples)e(of)h (modules.)37 b(A)515 2503 y(module)19 b(library)g(is)i(collection)e(of) h(modules.)515 2746 y SDict begin H.S end 515 2746 a 515 2746 a SDict begin 12 H.A end 515 2746 a 515 2746 a SDict begin [/View [/XYZ H.V]/Dest (section*.13) cvn /DEST pdfmark end 515 2746 a Fn(Loading)g(module)g(libraries)p Black Black 722 2902 a Fh(module)41 b(lib)i Fc(lib_name)515 3102 y Fm(The)19 b Fg(lib)i Fm(option)e(is)i(used)e(to)i(load)e(a)i (module)d(library)-5 b(.)24 b(Module)19 b(libraries)g(are)i(system)f (dependent)515 3202 y(shared)28 b(libraries,)j(i.e.)52 b(on)29 b(W)m(indo)n(ws)f(the)o(y')l(re)g(DLL)-8 b(')j(s)30 b(and)e(UNIX)h(the)o(y')l(re)f(shared)g(libraries.)515 3301 y(This)16 b(means)h(that)f(either)g(the)h(libraries)f(should)g (reside)g(in)h(a)f(path)h(where)e(the)i(OS)g(kno)n(ws)f(libraries)515 3401 y(e)o(xist)31 b(or)g(that)h(the)f(full)g(path)g(name)g(must)g(be)h (speci\002ed)f(along)f(with)i(the)f Fg(lib_name)p Fm(.)57 b(gpsim)515 3501 y(pro)o(vides)18 b(a)j(module)e(library)g(with)h(a)h (fe)n(w)f(modules:)p Black Black 722 3701 a Fh(gpsim>)41 b(module)g(lib)i(libgpsim_module)o(s)515 3944 y SDict begin H.S end 515 3944 a 515 3944 a SDict begin 12 H.A end 515 3944 a 515 3944 a SDict begin [/View [/XYZ H.V]/Dest (section*.14) cvn /DEST pdfmark end 515 3944 a Fn(Displaying)20 b(a)n(v)o(ailable)f(modules)p Black Black 722 4100 a Fh(module)41 b(list)515 4300 y Fm(The)22 b Fg(list)j Fm(option)d(will)h(display)f(all)h(of)f(the)h(modules)f(that)g(can)h (be)f(loaded.)31 b(Here)23 b(is)g(an)g(e)o(xample)515 4400 y(of)d(gpsim')-5 b(s)20 b(b)n(uilt-in)f(modules.)p Black Black 722 4600 a Fh(gpsim>)41 b(module)g(list)722 4700 y(Module)g(Library)g(Files)722 4799 y(libgpsim_modules.)o(so)853 4899 y(switch)853 4998 y(and2)p Black Black eop end %%Page: 19 20 TeXDict begin 19 19 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.19) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(2.)45 b(COMMAND)21 b(LINE)f(INTERF)-6 b(A)m(CE)1152 b Fm(19)p Black 853 515 a Fh(or2)853 615 y(xor2)853 715 y(not)853 814 y(led_7segments)853 914 y(led)853 1013 y(push_button)853 1113 y(PortStimulus)853 1213 y(pullup)853 1312 y(pulldown)853 1412 y(pulsegen)853 1512 y(Encoder)853 1611 y(usart)853 1711 y(TTL377)853 1810 y(I2C-EEPROM2k)853 1910 y(I2C-EEPROM16k)853 2010 y(I2C-EEPROM256k)515 2252 y SDict begin H.S end 515 2252 a 515 2252 a SDict begin 12 H.A end 515 2252 a 515 2252 a SDict begin [/View [/XYZ H.V]/Dest (section*.15) cvn /DEST pdfmark end 515 2252 a Fn(Loading)20 b(a)g(speci\002c)h(module)p Black Black 722 2408 a Fh(module)41 b(load)h(module_type)d ([module_name])515 2604 y Fm(Once)18 b(a)h(library)e(has)i(been)f (loaded,)g(speci\002c)g(modules)g(can)g(be)h(instantiated.)24 b(The)18 b Fg(module_type)515 2704 y Fm(is)23 b(what')-5 b(s)22 b(displayed)e(by)i(the)g Fg(module)f(list)j Fm(command.)k(The)22 b(optional)e(module)h(name)g(speci\002es)515 2804 y(what)f(the)g (instance)g(is)h(called.)k(Here')-5 b(s)20 b(an)g(e)o(xample)p Black Black 722 3000 a Fh(gpsim>)41 b(module)g(load)h(led)h(D1)515 3243 y SDict begin H.S end 515 3243 a 515 3243 a SDict begin 12 H.A end 515 3243 a 515 3243 a SDict begin [/View [/XYZ H.V]/Dest (section*.16) cvn /DEST pdfmark end 515 3243 a Fn(Display)20 b(loaded)g(modules)p Black Black 722 3398 a Fh(module)515 3641 y SDict begin H.S end 515 3641 a 515 3641 a SDict begin 12 H.A end 515 3641 a 515 3641 a SDict begin [/View [/XYZ H.V]/Dest (section*.17) cvn /DEST pdfmark end 515 3641 a Fn(Querying)f(modules)515 3819 y Fm(Dumping)f(modules)h(and)h(listing)g(the)g(pins)h(is)g(not)f (yet)g(implemented.)p Black Black 515 4145 a SDict begin H.S end 515 4145 a 515 4145 a SDict begin 12 H.A end 515 4145 a 515 4145 a SDict begin [/View [/XYZ H.V]/Dest (section.2.14) cvn /DEST pdfmark end 515 4145 a 173 x Fj(2.14)119 b(node)p Black Black 722 4503 a Fh(node)42 b([new_node1)e(new_node2)f (...])515 4700 y Fm(The)20 b Fg(node)g Fm(command)e(de\002nes)j(or)f (queries)g(\223nodes\224,)g(used)g(to)h(connect)e(e)o(xternal)h (signals)h(to)g(the)515 4799 y(simulated)d(PIC.)i(If)f(no)f(ne)n (w_node)f(is)j(speci\002ed)f(then)f(all)i(of)e(the)h(nodes)g(that)g(ha) n(v)o(e)f(been)h(de\002ned)515 4899 y(are)h(displayed.)26 b(If)21 b(a)g(ne)n(w_node)e(is)i(speci\002ed)g(then)f(it)i(will)f(be)g (added)f(to)h(the)g(node)e(list.)28 b(See)22 b(the)515 4998 y("attach")d(and)h("stimulus")g(commands)f(to)h(see)h(ho)n(w)e (stimuli)i(are)f(added)f(to)h(the)g(nodes.)p Black Black eop end %%Page: 20 21 TeXDict begin 20 20 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.20) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(2.)45 b(COMMAND)21 b(LINE)f(INTERF)-6 b(A)m(CE)1152 b Fm(20)p Black Black Black 722 515 a Fh(examples:)722 615 y(node)478 b(//)43 b(display)d(the)j(node)e(list)722 715 y(node)h(n1)h(n2)g(n3)86 b(//)43 b(create)e(and)h(add)g(3)h(new)g (nodes)e(to)i(the)f(list)515 852 y SDict begin H.S end 515 852 a 515 852 a SDict begin 12 H.A end 515 852 a 515 852 a SDict begin [/View [/XYZ H.V]/Dest (section.2.15) cvn /DEST pdfmark end 515 852 a 168 x Fj(2.15)119 b(pr)n(ocessor)p Black Black 722 1305 a Fh(processor)40 b([new_processor_t)o(yp)o(e)e ([new_processor_)o(na)o(me])o(])f(|)43 b([list])e(|)j([dump])515 1512 y Fm(The)23 b Fg(pr)l(ocessor)i Fm(command)d(is)i(used)f(to)h (either)f(de\002ne)g(a)h(ne)n(w)f(processor)f(or)h(to)h(query)e(one)g (that)515 1612 y(has)i(already)f(been)g(de\002ned.)36 b(Normally)23 b(there')-5 b(s)24 b(no)g(need)f(to)h(e)o(xplicitly)f (de\002ne)h(the)g(processor)515 1712 y(since)f(the)g(symbol)f(\002le)i (already)e(contains)h(that)g(information.)31 b(The)23 b(tw)o(o)h(e)o(xceptions)d(are)i(when)515 1811 y(a\))i(the)h(symbolic)f (information)e(is)j(not)g(a)n(v)n(ailable)f(or)g(b\))g(you)g(wish)h(to) g(o)o(v)o(erride)d(the)j(processor)515 1911 y(speci\002ed)20 b(in)g(the)g(symbol)f(\002le.)26 b(\(See)20 b(the)g Fg(load)i Fm(command)c(on)i(ho)n(w)g(the)g(processor)f(in)h(a)g(symbol)515 2011 y(\002le)h(can)f(be)g(o)o(v)o(erridden.\))515 2135 y(T)-7 b(o)27 b(see)h(a)f(list)h(of)f(the)g(processors)f(supported)g (by)g(gpsim,)i(type)f(')p Fg(pr)l(ocessor)g(list)q Fm('.)47 b(T)-7 b(o)27 b(display)515 2235 y(the)22 b(state)g(of)g(the)g(I/O)g (processor)m(,)e(type)i(')p Fg(pr)l(ocessor)f(pins)p Fm('.)30 b(F)o(or)22 b(no)n(w)-5 b(,)21 b(this)h(will)h(display)e(the)h (pin)515 2334 y(numbers)c(and)i(their)g(current)f(state.)p Black Black 722 2542 a Fh(examples:)722 2641 y(processor)345 b(//)43 b(Display)d(the)j(processors)c(you've)i(already)g(defined.)722 2741 y(processor)f(list)129 b(//)43 b(Display)d(the)j(list)f(of)g (processors)e(supported.)722 2841 y(processor)g(pins)129 b(//)43 b(Display)d(the)j(processor)c(package)i(and)h(pin)h(state)722 2940 y(processor)d(p16cr84)h(fred)129 b(//)42 b(Create)f(a)j(new)e (processor.)722 3040 y(processor)e(p16c74)h(wilma)129 b(//)42 b(and)h(another.)722 3140 y(processor)d(p16c65)390 b(//)42 b(Create)f(one)i(with)f(no)g(name.)515 3289 y SDict begin H.S end 515 3289 a 515 3289 a SDict begin 12 H.A end 515 3289 a 515 3289 a SDict begin [/View [/XYZ H.V]/Dest (section.2.16) cvn /DEST pdfmark end 515 3289 a 156 x Fj(2.16)119 b(quit)515 3655 y Fm(Quit)20 b(gpsim.)515 3804 y SDict begin H.S end 515 3804 a 515 3804 a SDict begin 12 H.A end 515 3804 a 515 3804 a SDict begin [/View [/XYZ H.V]/Dest (section.2.17) cvn /DEST pdfmark end 515 3804 a 156 x Fj(2.17)119 b(run)515 4171 y Fm(Start)22 b(\(or)g(continue\))e(simulation.)30 b(The)21 b(simulation)h(will)g (continue)f(until)h(the)g(ne)o(xt)f(break)g(point)515 4270 y(is)g(encountered.)515 4402 y SDict begin H.S end 515 4402 a 515 4402 a SDict begin 12 H.A end 515 4402 a 515 4402 a SDict begin [/View [/XYZ H.V]/Dest (section.2.18) cvn /DEST pdfmark end 515 4402 a 173 x Fj(2.18)119 b(step)515 4786 y Fm(Ex)o(ecute)19 b(a)h(single)g(instruction,)f(or)h (a)h(speci\002ed)e(number)g(of)h(instructions.)p Black Black 722 4994 a Fh(step)42 b([over)g(|)h(n])p Black Black eop end %%Page: 21 22 TeXDict begin 21 21 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.21) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(2.)45 b(COMMAND)21 b(LINE)f(INTERF)-6 b(A)m(CE)1152 b Fm(21)p Black 515 515 a(W)m(ith)24 b(no)g(ar)o (guments,)f(the)i(step)f(command)f(e)o(x)o(ecutes)g(one)h(instruction)f (of)h(the)g(PIC)h(code.)37 b(If)24 b(a)515 615 y(numeric)i(ar)o(gument) f(is)j(gi)n(v)o(en,)g(this)g(speci\002es)g(a)g(\002x)o(ed)f(number)f (of)h(instructions)f(to)i(simulate.)515 715 y(The)19 b(speci\002c)h(w)o(ord)f(\223o)o(v)o(er\224)f(as)i(an)g(ar)o(gument)d (to)j(step)f(tells)i(gpsim)e(to)h(run)f(e)n(v)o(erything)e(in)m(v)n (olv)o(ed)515 814 y(in)30 b(the)g(current)f(instruction.)53 b(This)30 b(w)o(ould)g(normally)e(be)i(used)g(on)g(a)g(CALL)g (instruction,)h(in)515 914 y(which)19 b(case)i(the)f(whole)g (subroutine)e(runs)i(and)g(the)g(simulation)f(stops)i(after)e(it)i (returns.)515 1063 y SDict begin H.S end 515 1063 a 515 1063 a SDict begin 12 H.A end 515 1063 a 515 1063 a SDict begin [/View [/XYZ H.V]/Dest (section.2.19) cvn /DEST pdfmark end 515 1063 a 156 x Fj(2.19)119 b(symbol)p Black Black 722 1404 a Fh(symbol)41 b([symbol_name)e([symbol_type)f(value]]) 515 1612 y Fm(The)19 b Fg(symbol)h Fm(command)e(is)j(used)e(to)h(query) f(and)g(de\002ne)g(symbols.)24 b(If)c(no)f(options)g(are)h (speci\002ed,)515 1712 y(the)f(whole)g(symbol)f(table)i(is)g (displayed.)j(The)c(creation)f(of)h(user)h(de\002ned)e(symbols)h(is)h (limited)f(at)515 1811 y(this)h(time)h(\(see)f(the)g(online)g(help)f (for)h(the)g(current)f(state)i(of)f(this)h(command\).)515 1960 y SDict begin H.S end 515 1960 a 515 1960 a SDict begin 12 H.A end 515 1960 a 515 1960 a SDict begin [/View [/XYZ H.V]/Dest (section.2.20) cvn /DEST pdfmark end 515 1960 a 156 x Fj(2.20)119 b(stimulus)p Black Black 722 2302 a Fh(stimulus)40 b([[type])h(options])515 2509 y Fm(The)21 b Fg(stimulus)g Fm(command)f(creates)h(a)h(signal)f(that)g (can)g(be)g(tied)h(to)f(a)h(node)e(or)h(an)g(attrib)n(ute.)28 b(If)21 b(no)515 2609 y(options)e(are)h(speci\002ed)g(then)g(all)h (currently)d(de\002ned)h(stimuli)i(are)f(displayed.)515 2734 y(Note)k(that)g(in)g(most)f(cases)i(it)g(is)f(easier)h(to)f (create)f(a)h(stimulus)g(\002le)h(then)e(to)h(type)g(the)g(command)515 2833 y(by)c(hand.)515 2951 y SDict begin H.S end 515 2951 a 515 2951 a SDict begin 0 H.A end 515 2951 a 515 2951 a SDict begin [/View [/XYZ H.V]/Dest (table.2.1) cvn /DEST pdfmark end 515 2951 a 891 2954 2111 4 v 891 2954 V 890 3054 4 100 v 941 3024 a Fm(initial_state)p 1377 3054 V 290 w(state)h(at)f(the)h(start)f(and)g(at)h(the)f(rollo)o(v)o (er)p 3001 3054 V 891 3057 2111 4 v 891 3057 V 890 3157 4 100 v 956 3127 a(start_c)o(ycle)p 1377 3157 V 112 w(simulation)g(c)o (ycle)f(when)h(the)g(stimulus)g(will)h(be)o(gin)p 3001 3157 V 891 3160 2111 4 v 891 3160 V 890 3260 4 100 v 1029 3230 a(period)p 1377 3260 V 690 w(stimulus)f(period)p 3001 3260 V 891 3263 2111 4 v 891 3263 V 890 3363 4 100 v 1045 3333 a(name)p 1377 3363 V 509 w(speci\002es)h(the)f(stimulus)g (name)p 3001 3363 V 891 3366 2111 4 v 891 3366 V 515 3590 a(Here')-5 b(s)24 b(an)f(e)o(xample)f(of)i(a)g(stimulus)f(that)h (will)g(generate)f(tw)o(o)g(pulses)h(and)f(repeat)g(this)h(in)g(1000) 515 3690 y(c)o(ycles.)p Black Black 722 3897 a Fh(stimulus)40 b(asynchronous_stim)o(ul)o(us)722 3997 y(#)j(The)g(initial)d(state)i (AND)g(the)g(state)g(the)g(stimulus)e(is)j(when)722 4097 y(#)g(it)g(rolls)f(over)722 4196 y(initial_state)c(0)722 4296 y(start_cycle)h(0)722 4395 y(#)k(the)g(asynchronous)38 b(stimulus)i(will)i(roll)g(over)g(in)h('period')722 4495 y(#)g(cycles.)e(Delete)g(this)h(line)g(if)h(you)f(don't)f(want)h(a)h (roll)f(over.)722 4595 y(period)f(1000)722 4694 y({)i(100,)f(1,)809 4794 y(200,)g(0,)809 4894 y(300,)g(1,)809 4993 y(400,)g(0)p Black Black eop end %%Page: 22 23 TeXDict begin 22 22 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.22) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(2.)45 b(COMMAND)21 b(LINE)f(INTERF)-6 b(A)m(CE)1152 b Fm(22)p Black 722 515 a Fh(})722 615 y(#)43 b(Give)f(the)h(stimulus)d(a)j(name:)722 715 y(name)f (two_pulse_repeat)722 814 y(end)515 1022 y Fm(A)20 b(stimulus)h(can)f (be)g(queried)e(by)i(typing)f(its)i(name)f(at)h(the)f(command)e(line:)p Black Black 722 1229 a Fh(gpsim>)41 b(two_pulse_repeat)722 1329 y(two_pulse_repeat)c(attached)j(to)j(pulse_node)809 1429 y(Vth=0V)85 b(Zth=250)41 b(ohms)85 b(Cth=0)42 b(F)86 b(nodeVoltage=)39 b(7.49998e-07V)809 1528 y(Driving=0)h(drivingState=0) e(drivenState=0)g(bitState=0)809 1628 y(states)j(=)j(5)897 1727 y(100)e(1)897 1827 y(200)g(0)897 1927 y(300)g(1)897 2026 y(400)g(0)897 2126 y(1000)f(0)722 2226 y(initial=0)722 2325 y(period=1000)722 2425 y(start_cycle=0)722 2524 y(Next)h(break)g(cycle=100)515 2732 y Fm(Ev)o(en)23 b(though)f(this)i (e)o(xample)e(uses)j(1')-5 b(s)24 b(and)g(0')-5 b(s)24 b(for)f(the)h(data,)g(one)g(can)f(use)i(inte)o(gers,)e(\003oating)515 2832 y(point)f(numbers,)h(or)g(e)o(xpressions)f(instead.)33 b(Inte)o(gers)22 b(are)i(useful)e(for)h(supplying)e(a)j(stimulus)f(to) 515 2931 y(an)i(attrib)n(ute.)41 b(Expressions)24 b(are)i(useful)f(for) g(abstracting)f(the)i(data.)41 b(See)26 b(Chapter)3018 2932 y SDict begin H.S end 3018 2932 a Black -1 x Fm(7)p Black 3059 2877 a SDict begin H.R end 3059 2877 a 3059 2931 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (chapter.7) cvn H.B /ANN pdfmark end 3059 2931 a 26 w Fm(for)f(more)515 3031 y(discussion)19 b(and)h(e)o(xamples)f(of)h(stimuli.)515 3180 y SDict begin H.S end 515 3180 a 515 3180 a SDict begin 12 H.A end 515 3180 a 515 3180 a SDict begin [/View [/XYZ H.V]/Dest (section.2.21) cvn /DEST pdfmark end 515 3180 a 156 x Fj(2.21)119 b(stopwatch)1362 3336 y SDict begin H.S end 1362 3336 a -43 x Fb(2)1411 3336 y SDict begin 18 H.L end 1411 3336 a 1411 3336 a SDict begin [/Subtype /Link/Dest (Hfootnote.4) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1411 3336 a Black Black 722 3522 a Fh(A)43 b(timer)f(for)g(monitoring)e (and)i(controlling)d(the)j(simulation.)722 3621 y(The)h(units)e(are)h (in)h(simulation)c(cycles.)809 3721 y(stopwatch.rollove)o(r)e(-)44 b(specifies)39 b(rollover)h(value.)809 3820 y(stopwatch.directi)o(on)d (-)43 b(specifies)d(count)h(direction.)809 3920 y(stopwatch.enable)c(-) 43 b(enables)e(counting)f(if)j(true.)515 4128 y Fm(W)m(ithout)20 b(an)o(y)g(options,)g Fg(stopwatc)o(h)g Fm(will)i(display)e(the)h (contents)f(of)h(the)g(stopw)o(atch)f(timer)-5 b(.)28 b Fg(stop-)515 4227 y(watc)o(h)f Fm(is)h(writable,)g(so)g(you)e(may)h (initialize)h(it)g(to)f(whate)n(v)o(er)f(v)n(alue)g(you)h(lik)o(e.)46 b(The)27 b(beha)n(vior)515 4327 y(of)c(the)g(timer)g(may)f(be)i (manipulated)d(via)i(the)g(three)g(attrib)n(utes.)34 b(The)22 b Fg(.r)l(ollo)o(ver)k Fm(attrib)n(ute)c(is)j(the)515 4426 y(number)e(of)h(c)o(ycles)h(at)g(which)f(the)h(stopw)o(atch)f (timer)g(rolls)h(o)o(v)o(er)-5 b(.)38 b(The)24 b Fg(.dir)m(ection)g Fm(and)g Fg(.enable)515 4526 y Fm(attrib)n(utes)30 b(are)g(boolean)f (types.)56 b(When)30 b(true,)i(the)f Fg(.dir)m(ection)e Fm(attrib)n(ute)h(will)h(instruction)f(the)515 4626 y(stopw)o(atch)19 b(to)i(count)e(up.)p Black 515 4697 1146 4 v 605 4752 a Fe(2)634 4776 y SDict begin H.S end 634 4776 a 634 4776 a SDict begin H.R end 634 4776 a 634 4776 a SDict begin [/View [/XYZ H.V]/Dest (Hfootnote.4) cvn /DEST pdfmark end 634 4776 a Fd(The)e(stopw)o(atch)i(is)e(really)i(a)e(collection) k(of)16 b(attrib)o(utes)k(and)d(not)h(a)f(command.)k(But)c(the)h(beha)o (vior)h(is)e(so)f(similar)i(to)g(a)515 4855 y(command)f(that)i(it)e (has)g(been)h(included)i(here.)p Black Black Black eop end %%Page: 23 24 TeXDict begin 23 23 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.23) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(2.)45 b(COMMAND)21 b(LINE)f(INTERF)-6 b(A)m(CE)1152 b Fm(23)p Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (section.2.22) cvn /DEST pdfmark end 515 432 a 83 x Fj(2.22)119 b(trace)p Black Black 722 701 a Fh(trace)42 b([dump_amount])515 908 y Fg(tr)o(ace)30 b Fm(will)i(print)e(out)g(the)h(most)g(recent)f ("dump_amount")d(traces.)57 b(If)30 b(no)h(dump_amount)c(is)515 1008 y(speci\002ed,)19 b(then)h(the)g(entire)g(trace)g(b)n(uf)n(fer)f (will)i(be)f(displayed.)515 1157 y SDict begin H.S end 515 1157 a 515 1157 a SDict begin 12 H.A end 515 1157 a 515 1157 a SDict begin [/View [/XYZ H.V]/Dest (section.2.23) cvn /DEST pdfmark end 515 1157 a 156 x Fj(2.23)119 b(v)o(ersion)p Black Black 722 1499 a Fh(version)515 1706 y Fm(Display)16 b(gpsim')-5 b(s)16 b(v)o(ersion.)22 b(Note,)17 b(this)g(command)d(will)j(probably)d(get)j(replaced)e(by)h (an)g(attrib)n(ute)515 1806 y(with)k(the)g(same)h(\(or)e(similar\))h (name.)515 1951 y SDict begin H.S end 515 1951 a 515 1951 a SDict begin 12 H.A end 515 1951 a 515 1951 a SDict begin [/View [/XYZ H.V]/Dest (section.2.24) cvn /DEST pdfmark end 515 1951 a 160 x Fj(2.24)119 b(x)515 2321 y Fm(The)26 b Fg(x)h Fm(command)d(is)k(deprecated.)41 b(It')-5 b(s)27 b(former)e(use)i(w)o(as)g(to)f(e)o(xamine)f(and)h(modify)f(memory)-5 b(.)515 2421 y(The)26 b(preferred)f(w)o(ay)i(to)h(do)e(this)i(no)n(w)e (is)i(with)g(e)o(xpressions.)44 b(The)27 b(help)f(for)h Fg(x)g Fm(no)n(w)g(indicates)515 2521 y(this:)p Black Black 722 2728 a Fh(x)43 b(examine)e(command)g(--)h(deprecated)809 2828 y(Instead)f(of)i(the)f(using)g(a)h(special)d(command)h(to)i (examine)d(and)j(modify)809 2927 y(variables,)d(it's)i(possible)e(to)j (directly)d(access)h(them)h(using)f(gpsim's)809 3027 y(expression)f(parsing.)g(For)i(example,)e(to)j(examine)e(a)i (variable:)722 3127 y(gpsim>)e(my_variable)722 3226 y(my_variable)e ([0x27])i(=)i(0x00)f(=)h(0b00000000)809 3326 y(To)g(modify)e(a)i (variable)722 3426 y(gpsim>)e(my_variable)e(=)k(10)809 3525 y(It's)f(also)g(possible)e(to)j(assign)e(the)h(value)g(of)h (register)d(to)j(another)722 3625 y(gpsim>)e(my_variable)e(=)k(porta) 809 3725 y(Or)g(to)g(assign)e(the)h(results)f(of)i(an)f(expression:)722 3824 y(gpsim>)f(my_variable)e(=)k(\(porta)e(^)j(portc\))d(&)i(0x0f)p Black Black eop end %%Page: 24 25 TeXDict begin 24 24 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.24) cvn /DEST pdfmark end 506 174 a Black Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (chapter.3) cvn /DEST pdfmark end 515 432 a 728 x Fk(Chapter)44 b(3)515 1597 y Fo(Graphical)52 b(User)f(Interface)515 2050 y Fm(FIXME:)20 b(W)-7 b(e)21 b(could)e(use)i(a)f(fe)n(w)h(illustrations)e(here!)515 2171 y(gpsim)30 b(also)h(pro)o(vides)e(a)i(graphical)f(user)g(interf)o (ace)g(that)h(simpli\002es)g(some)g(of)f(the)h(drudgery)515 2271 y(associated)19 b(with)h(the)f(cli.)26 b(It')-5 b(s)20 b(possible)f(to)h(open)e(windo)n(ws)h(to)g(vie)n(w)h(all)g(the)f (details)h(about)f(your)515 2371 y(deb)n(ug)k(en)m(vironment.)33 b(T)-7 b(o)25 b(get)f(the)g(most)g(out)g(of)g(your)f(deb)n(ugging)f (session,)j(you)e(will)i(w)o(ant)f(to)515 2470 y(assemble)19 b(your)f(code)g(with)i(gpasm)e(\(the)h(gnupic)f(assembler\))g(and)h (use)g(the)g(symbolic)f(.cod)h(\002les)515 2570 y(it)i(produces.)515 2716 y SDict begin H.S end 515 2716 a 515 2716 a SDict begin 12 H.A end 515 2716 a 515 2716 a SDict begin [/View [/XYZ H.V]/Dest (section.3.1) cvn /DEST pdfmark end 515 2716 a 153 x Fj(3.1)119 b(Main)30 b(windo)o(w)515 2956 y SDict begin H.S end 515 2956 a 515 2956 a SDict begin 12 H.A end 515 2956 a 515 2956 a SDict begin [/View [/XYZ H.V]/Dest (subsection.3.1.1) cvn /DEST pdfmark end 515 2956 a 137 x Fi(3.1.1)99 b(Menus)p Black 515 3270 a Fm(File->Open)p Black 279 w(.stc)21 b(or)f(.cod)f(\002les.)p Black 515 3430 a(File->Quit)p Black 312 w(Quit)h(gpsim)p Black 515 3590 a(W)m(indo)n(ws->*)p Black 233 w(Open/Close)g(the)g(windo)n (ws.)515 3726 y SDict begin H.S end 515 3726 a 515 3726 a SDict begin 12 H.A end 515 3726 a 515 3726 a SDict begin [/View [/XYZ H.V]/Dest (subsection.3.1.2) cvn /DEST pdfmark end 515 3726 a 120 x Fi(3.1.2)99 b(Buttons)515 4024 y Fm(\(These)19 b(are)i(also)f(found)e(as)j(k)o(e)o(yboard)d(bindings)h (in)h(the)g(source)g(windo)n(ws.\))p Black 515 4199 a(Step)p Black 516 w(Step)g(one)g(instruction)p Black 515 4359 a(Ov)o(er)p Black 498 w(Step)g(until)g(pc)g(is)i(after)d(ne)o(xt)h (instruction)p Black 515 4518 a(Finish)p Black 456 w(Run)g(to)g(return) f(address)p Black 515 4678 a(Run)p Black 525 w(Run)h(continuously)p Black 515 4838 a(Stop)p Black 511 w(Stop)g(e)o(x)o(ecution)p Black 515 4998 a(Reset)p Black 480 w(Reset)h(CPU)p Black 1905 5208 a(24)p Black eop end %%Page: 25 26 TeXDict begin 25 25 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.25) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(3.)45 b(GRAPHICAL)21 b(USER)g(INTERF)-6 b(A)m(CE)1097 b Fm(25)p Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (subsection.3.1.3) cvn /DEST pdfmark end 515 432 a 83 x Fi(3.1.3)99 b(Simulation)25 b(mode)515 696 y Fm(This)20 b(controls)f(ho)n(w)h (gpsim)g(simulates,)g(and)g(ho)n(w)f(the)h(GUI)h(updates.)p Black 515 885 a(Ne)n(v)o(er)p Black 421 w(Don')o(t)33 b(e)n(v)o(er)f(update)h(the)g(GUI)h(when)f(simulating.)64 b(This)34 b(is)g(the)g(f)o(astest)1137 985 y(mode.)46 b(Y)-9 b(ou)27 b(will)h(ha)n(v)o(e)f(to)h(stop)f(simulation)g(by)g (pressing)g(Ctrl-C)h(in)g(the)1137 1084 y(command)19 b(line)h(interf)o(ace.)p Black 515 1250 a(x)g(c)o(ycles)p Black 353 w(Update)g(the)g(GUI)g(e)n(v)o(ery)f(x)i(c)o(ycles)e (simulated.)p Black 515 1415 a(e)n(v)o(ery)g(c)o(ycle)p Black 245 w(Update)i(the)g(GUI)g(e)n(v)o(ery)f(c)o(ycle.)28 b(\(you)20 b(see)h(e)n(v)o(erything,)e(if)i(you)g(ha)n(v)o(e)f (\002lled)1137 1515 y(up)g(on)g(cof)n(fee)f(:-\))p Black 515 1680 a(x)h(ms)h(animate)p Black 178 w(Here)33 b(you)e(can)i(slo)n (w)g(do)n(wn)e(simulation)h(with)g(a)h(delay)f(between)g(e)n(v)o(ery) 1137 1780 y(c)o(ycle.)p Black 515 1945 a(realtime)p Black 349 w(This)20 b(will)f(mak)o(e)g(gpsim)f(try)h(to)g(synchronize)e (simulation)h(speed)h(with)g(w)o(all)1137 2045 y(clock)h(time.)515 2176 y SDict begin H.S end 515 2176 a 515 2176 a SDict begin 12 H.A end 515 2176 a 515 2176 a SDict begin [/View [/XYZ H.V]/Dest (section.3.2) cvn /DEST pdfmark end 515 2176 a 174 x Fj(3.2)119 b(Sour)n(ce)30 b(Br)n(o)o(wsers)515 2560 y Fm(gpsim)h(pro)o(vides)f(tw)o(o)i(vie)n(ws)g(of)f(your)f (source:)48 b('.)p Fg(asm')31 b Fm(and)g('.)p Fg(obj')f Fm(bro)n(wsers.)59 b(The)31 b('.)p Fg(asm')515 2659 y Fm(bro)n(wser)19 b(is)i(a)g(color)e(coded)g(display)h(of)f(your)g(pic)i (source.)515 2799 y SDict begin H.S end 515 2799 a 515 2799 a SDict begin 12 H.A end 515 2799 a 515 2799 a SDict begin [/View [/XYZ H.V]/Dest (subsection.3.2.1) cvn /DEST pdfmark end 515 2799 a 122 x Fi(3.2.1)99 b(.asm)24 b(Br)n(o)o(wser)515 3102 y Fm(When)32 b(a)h(.cod)f(\002le)i(with)f(source)f(is)h(loaded,)i (there)d(should)g(be)g(something)g(in)h(this)g(display)-5 b(.)515 3201 y(\(T)o(ODO:)19 b(add)h(section)g(about)f(high)g(le)n(v)o (el)h(deb)n(ugging\).)515 3326 y(There)30 b(is)h(an)g(area)g(to)g(the)f (left)h(of)g(the)g(source,)h(where)e(symbols)g(representing)f(the)i (program)515 3425 y(counter)m(,)f(breakpoints,)g(etc)h(are)f (displayed.)53 b(Double)29 b(clicking)g(in)h(this)h(area)f(toggles)f (break-)515 3525 y(points.)e(Y)-9 b(ou)20 b(can)h(drag)f(these)i (symbols)e(up)h(or)g(do)n(wn)f(in)h(order)f(to)h(mo)o(v)o(e)f(them)g (and)h(change)f(the)515 3624 y(PC)h(or)f(mo)o(v)o(e)f(a)h(breakpoint.) 515 3749 y(A)25 b(right)f(b)n(utton)f(click)i(on)f(the)h(source)e(pops) h(up)h(a)g(menu)e(with)i(six)g(items)g(\(the)f(w)o(ord)g('here')f(in) 515 3848 y(some)18 b(menu)f(items)h(denote)f(the)h(line)g(in)g(source)f (the)h(mouse)f(pointer)g(w)o(as)i(on)f(when)f(right)g(mouse)515 3948 y(b)n(utton)i(w)o(as)i(click)o(ed.\):)p Black 515 4137 a Fn(Menu)g(item)p Black 217 w(Description)p Black 515 4303 a Fm(Find)f(PC)p Black 328 w(This)f(menu)g(item)h(will)g (\002nd)f(the)h(PC)g(and)f(changed)f(page)h(tab)g(and)g(scroll)h(the) 1117 4402 y(source)f(vie)n(w)h(to)h(the)f(current)f(PC.)p Black 515 4568 a(Run)h(here)p Black 299 w(This)i(sets)h(a)f(breakpoint) e('here')g(and)i(starts)g(running)e(until)i(a)g(breakpoint)e(is)1117 4668 y(hit.)p Black 515 4833 a(Mo)o(v)o(e)f(PC)i(here)p Black 124 w(This)f(simply)f(changes)g(PC)i(to)f(the)g(address)f(that)h (line)g('here')f(in)g(source)h(has.)p Black 515 4998 a(Breakpoint)e(here)p Black 69 w(Set)j(a)f(breakpoint)e('here'.)p Black Black eop end %%Page: 26 27 TeXDict begin 26 26 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.26) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(3.)45 b(GRAPHICAL)21 b(USER)g(INTERF)-6 b(A)m(CE)1097 b Fm(26)p Black Black 515 515 a(Pro\002le)20 b(start)h(here)p Black 52 w(Set)g(a)f(start)h(mark)o(er)e(for)g (routine)g(pro\002ling)g(here.)p Black 515 681 a(Pro\002le)h(stop)g (here)p Black 57 w(Set)h(a)f(stop)g(mark)o(er)-5 b(.)24 b(\(See)d(the)f(section)g(for)f(the)i(pro\002ling)d(windo)n(w)-5 b(.\))p Black 515 847 a(Select)20 b(symbol.)p Black 112 w(This)26 b(menu)e(item)i(is)h(only)e(a)n(v)n(ailable)h(when)f(some)g (te)o(xt)h(is)h(selected)f(in)g(the)1117 947 y(te)o(xt)16 b(widget.)24 b(What)17 b(it)g(does)g(is)g(search)g(the)f(list)i(of)f (symbols)f(for)g(the)h(selected)1117 1047 y(w)o(ord,)h(and)g(if)i(it)f (is)h(found)d(it)j(is)g(selected)f(in)g(the)g(symbol)f(windo)n(w)-5 b(.)23 b(Depend-)1117 1146 y(ing)h(of)g(type)g(of)h(symbol)e(other)h (things)g(are)g(also)h(done,)g(the)f(same)h(thing)f(as)1117 1246 y(when)19 b(selecting)h(a)h(symbol)e(in)h(the)h(symbol)e(windo)n (w:)p Black 1216 1429 a Fa(\017)p Black 41 w Fm(If)f(it)h(is)f(an)g (address,)g(then)f(the)h(opcode)e(and)h(source)g(vie)n(ws)h(display)g (the)1299 1528 y(address.)p Black 1216 1661 a Fa(\017)p Black 41 w Fm(If)i(it')-5 b(s)22 b(a)e(re)o(gister)m(,)f(the)h(re)o (gister)g(vie)n(wer)f(selects)j(the)e(cell.)p Black 1216 1794 a Fa(\017)p Black 41 w Fm(If)g(it')-5 b(s)21 b(a)g(constant,)e (address,)g(re)o(gister)h(or)g(ioport,)e(it)j(is)g(selected)f(in)h(the) 1299 1893 y(symbol)f(windo)n(w)-5 b(.)p Black 515 2076 a(Find)20 b(te)o(xt)p Black 305 w(This)h(opens)f(up)g(a)i(search)e (dialog.)26 b(Ev)o(ery)20 b(time)h(you)f(hit)h(the)g('Find')f(b)n (utton,)1117 2176 y(the)30 b(current)f(notebook)f(page)i(is)h(found)e (and)h(the)g(source)g(in)g(that)h(page)f(is)1117 2275 y(used.)p Black 515 2441 a(Settings)p Black 334 w(A)20 b(dialog)g(with)g(which)g(you)f(can)h(change)f(the)h(fonts)g(used.)p Black 515 2607 a(Controls)p Black 315 w(A)32 b(submenu)e(containing)g (the)h(simulation)g(commands.)58 b(\(these)32 b(are)f(also)1117 2707 y(found)14 b(as)j(k)o(e)o(yboard)c(bindings)i(\(recommended\),)e (or)j(in)g(the)g(main)g(windo)n(w)-5 b(.\))515 2898 y(These)20 b(are)g(the)g(k)o(e)o(yboard)e(bindings:)p Black 515 3089 a Fn(K)n(ey)p Black 273 w(command)p Black 515 3255 a Fm(s,S,F7)p Black 207 w(Step)i(one)g(instruction.)p Black 515 3421 a(o,O,F8)p Black 183 w(Step)g(o)o(v)o(er)f(instruction)p Black 515 3587 a(r)m(,R,F9)p Black 205 w(Run)h(continuously)-5 b(.)p Black 515 3753 a(Escape)p Black 179 w(Stop)20 b(simulation.)p Black 515 3919 a(f,F)p Black 320 w(Run)g(to)g(return)f(address)p Black 515 4085 a(1..9)p Black 289 w(Step)h(n)g(instructions)515 4225 y SDict begin H.S end 515 4225 a 515 4225 a SDict begin 12 H.A end 515 4225 a 515 4225 a SDict begin [/View [/XYZ H.V]/Dest (subsection.3.2.2) cvn /DEST pdfmark end 515 4225 a 123 x Fi(3.2.2)99 b(Opcode)25 b(view)g(-)g(the)g(.obj)h(Br)n(o)o (wser)515 4528 y Fm(This)g(windo)n(w)f(has)h(tw)o(o)g(tabs.)43 b(One)26 b(with)g(each)g(memory)e(cell)i(on)g(one)f(line)i(and)e (information)515 4628 y(about)c(address,)h(he)o(xadecimal)e(v)n(alue)i (and)g(decoded)e(instruction)h(\(i.e.)32 b(disassembly\),)21 b(and)h(one)515 4728 y(with)e(the)g(program)e(memory)515 4852 y(displayed)h(with)h(sixteen)g(memory)e(cells)j(per)f(ro)n(w)g (and)g(a)g(con\002gurable)e(ASCII)j(column.)p Black Black eop end %%Page: 27 28 TeXDict begin 27 27 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.27) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(3.)45 b(GRAPHICAL)21 b(USER)g(INTERF)-6 b(A)m(CE)1097 b Fm(27)p Black 515 515 a SDict begin H.S end 515 515 a 515 515 a SDict begin 12 H.A end 515 515 a 515 515 a SDict begin [/View [/XYZ H.V]/Dest (section*.18) cvn /DEST pdfmark end 515 515 a Fn(The)21 b(Assembly)g(tab)f(y)n (ou)g(can:)p Black 639 696 a Fa(\017)p Black 41 w Fm(Double)f(click)i (on)e(a)i(line)f(to)h(toggle)e(breakpoints.)p Black 639 862 a Fa(\017)p Black 41 w Fm(Use)i(the)f(same)h(k)o(e)o(yboard)c (commands)i(as)i(the)f(in)g(the)g(source)g(bro)n(wser)-5 b(.)p Black 639 1028 a Fa(\017)p Black 41 w Fm(Right)21 b(click)f(to)g(get)g(a)h(menu)e(where)h(you)f(can)h(change)f(the)h (fonts.)515 1274 y SDict begin H.S end 515 1274 a 515 1274 a SDict begin 12 H.A end 515 1274 a 515 1274 a SDict begin [/View [/XYZ H.V]/Dest (section*.19) cvn /DEST pdfmark end 515 1274 a Fn(The)h(Opcode)f(tab)m(.)515 1454 y Fm(Here)i(the)g(program)e(memory)g(is)k(ordered)c(as)j(columns)e(of)h (sixteen)g(memory)e(cells)j(per)f(column)515 1554 y(and)d(as)i(man)o(y) e(ro)n(w)h(as)h(needed)e(to)h(contain)f(all)i(memory)-5 b(.)515 1679 y(The)30 b(se)n(v)o(enteenth)f(column)g(contains)h(an)g (ASCII)h(representation)e(of)h(the)h(program)d(memory)-5 b(.)515 1778 y(Y)c(ou)19 b(can)h(con\002gure)f(this)h(column)f(to)i (use)f(one)g(of)f(three)h(dif)n(ferent)f(modes:)p Black 639 1969 a Fa(\017)p Black 41 w Fm(One)h(byte)g(per)g(cell)p Black 639 2135 a Fa(\017)p Black 41 w Fm(T)-7 b(w)o(o)21 b(bytes)f(per)g(cell,)g(MSB)h(\002rst.)p Black 639 2301 a Fa(\017)p Black 41 w Fm(T)-7 b(w)o(o)21 b(bytes)f(per)g(cell,)g(LSB)h (\002rst.)515 2492 y(Y)-9 b(ou)19 b(can)h(change)f(fonts)h(with)g(the)h (menu)e(item)h('Settings'.)515 2617 y(Y)-9 b(ou)17 b(can)h(set)h (breakpoints)c(on)j(one)f(or)h(more)f(\(drag)g(the)h(mouse)f(to)h (select)g(more)g(cells\))g(addresses)515 2716 y(with)i(the)g(right)g (click)g(menu.)515 2865 y SDict begin H.S end 515 2865 a 515 2865 a SDict begin 12 H.A end 515 2865 a 515 2865 a SDict begin [/View [/XYZ H.V]/Dest (section.3.3) cvn /DEST pdfmark end 515 2865 a 157 x Fj(3.3)119 b(Register)29 b(views)515 3232 y Fm(There)23 b(are)g(tw)o(o)h(similar)g(re)o(gister)f (windo)n(ws.)35 b(One)23 b(for)g(the)h(RAM)h(and)e(one)g(for)g(the)h (EEPR)m(OM)515 3332 y(data,)c(when)f(a)n(v)n(ailable.)515 3456 y(Here)f(you)g(see)h(all)h(re)o(gisters)e(in)h(the)f(current)g (processor)-5 b(.)23 b(Clicking)c(on)f(a)h(cell)g(displays)f(it')-5 b(s)20 b(name)515 3556 y(and)d(v)n(alue)g(abo)o(v)o(e)f(the)h(sheet)h (of)f(re)o(gisters.)24 b(Y)-9 b(ou)17 b(can)g(change)f(v)n(alues)h(by)h (entering)e(it)i(in)g(the)f(entry)515 3655 y(\(or)i(in)i(the)f (spreadsheet)f(cell\).)515 3780 y(The)25 b(follo)n(wing)g(things)h(can) f(be)h(done)g(on)f(one)h(re)o(gister)m(,)g(or)g(a)g(range)f(of)h(re)o (gisters.)42 b(\(Selecting)515 3880 y(a)28 b(range)f(of)g(re)o(gisters) h(is)h(done)e(by)g(holding)f(do)n(wn)h(left)h(mouse)f(b)n(utton,)i(mo)o (ving)d(cursor)m(,)i(and)515 3979 y(releasing)19 b(b)n(utton.\))p Black 639 4170 a Fa(\017)p Black 41 w Fm(Set)27 b(and)f(clear)h (breakpoints.)41 b(Use)27 b(the)g(right)f(mouseb)n(utton)e(menu)h(to)i (pop)f(up)g(a)h(menu)722 4270 y(where)18 b(you)e(can)i(select)h(set)f (read,)g(write,)g(read)f(v)n(alue)h(and)f(write)h(v)n(alue)f (breakpoints.)22 b(Y)-9 b(ou)722 4369 y(can)17 b(also)h("clear)f (breakpoints",)e(notice)h(the)i(s)g(in)f("clear)g(breakpoints",)e(e)n (v)o(ery)h(breakpoint)722 4469 y(on)k(the)g(re)o(gisters)g(are)g (cleared.)p Black 639 4635 a Fa(\017)p Black 41 w Fm(Set)31 b(and)f(clear)g(logging)f(of)h(re)o(gisters.)55 b(Y)-9 b(ou)29 b(can)h(log)g(reads,)j(writes,)g(reads/writes)d(of)722 4735 y(speci\002c)17 b(v)n(alues)g(and)f(to)h(bits)h(selected)e(by)h(a) g(speci\002ed)g(mask.)23 b(Y)-9 b(ou)17 b(can)f(select)i(a)f(dif)n (ferent)722 4834 y(\002le)j(name)f(with)g(')-5 b(set)20 b(log)f(\002lename...)-6 b('.)23 b(Def)o(ault)c(is)h("gpsim.log".)j(Y) -9 b(ou)18 b(can)h(choose)g(LXT)722 4934 y(or)h(ASCII)h(format.)j(LXT)c (can)g(be)g(read)f(with)i(the)f(program)e(gtkw)o(a)n(v)o(e.)24 b(ASCII)c(is)i(def)o(ault.)p Black Black eop end %%Page: 28 29 TeXDict begin 28 28 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.28) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(3.)45 b(GRAPHICAL)21 b(USER)g(INTERF)-6 b(A)m(CE)1097 b Fm(28)p Black Black 639 515 a Fa(\017)p Black 41 w Fm(Cop)o(y)20 b(cells.)26 b(Y)-9 b(ou)19 b(cop)o(y)h(cells)h (by)e(dragging)f(the)j(border)d(of)i(the)g(selected)g(cell\(s\).)p Black 639 681 a Fa(\017)p Black 41 w Fm(Fill)i(cells.)29 b(Mo)o(v)o(e)19 b(mouse)i(to)g(lo)n(wer)g(right)f(corner)g(of)h(the)g (frame)f(of)h(the)g(selected)g(cell\(s\),)722 781 y(and)f(drag)f(it.)26 b(The)20 b(one)f(cell')-5 b(s)21 b(contents)f(will)h(be)f(copied)f(to)h (the)h(other)e(cells.)p Black 639 947 a Fa(\017)p Black 41 w Fm(W)-7 b(atch)21 b(them.)k(Select)20 b(the)g("Add)g(W)-7 b(atch")21 b(menu)e(item.)515 1138 y(The)h(cells)h(ha)n(v)o(e)e(dif)n (ferent)g(background)d(colors)k(depending)e(on)h(if)i(the)o(y)e (represent:)p Black 639 1329 a Fa(\017)p Black 41 w Fm(File)i(Re)o (gister)f(\(e.g.)25 b(RAM\):)20 b(light)g(c)o(yan.)p Black 639 1495 a Fa(\017)p Black 41 w Fm(Special)g(Function)f(Re)o (gisters)i(\(e.g.)j(ST)-8 b(A)f(TUS,TMR0\):)25 b(dark)19 b(c)o(yan)p Black 639 1661 a Fa(\017)p Black 41 w Fm(aliased)27 b(re)o(gister)g(\(e.g.)44 b(the)27 b(INDF)g(located)f(at)i(address)e (0x80)g(is)i(the)e(same)i(as)f(the)g(one)722 1761 y(located)20 b(at)h(address)e(0x00\):)24 b(gray)p Black 639 1927 a Fa(\017)p Black 41 w Fm(in)m(v)n(alid)18 b(re)o(gister:)24 b(black.)g(If)19 b(all)g(sixteen)g(re)o(gisters)f(in)h(a)h(ro)n(w)e (are)h(in)m(v)n(alid,)f(then)g(the)h(ro)n(w)g(is)722 2026 y(not)h(sho)n(wn.)p Black 639 2192 a Fa(\017)p Black 41 w Fm(a)h(re)o(gister)e(with)i(one)e(or)h(more)g(breakpoints:)j(red.) h(Logged)19 b(re)o(gisters)h(are)g(also)g(red.)515 2383 y(gpsim)31 b(dynamically)e(updates)i(the)g(re)o(gisters)g(as)h(the)f (simulation)g(proceeds.)57 b(Re)o(gisters)31 b(that)515 2483 y(change)19 b(v)n(alue)h(between)g(updates)f(of)i(the)f(windo)n(w) g(during)f(simulation)g(are)i(highlighted)d(with)j(a)515 2583 y(blue)e(fore)o(ground)e(color)-5 b(.)515 2707 y(The)20 b(menu)f(also)h(has)h(a)f(')-5 b(settings')21 b(item)f(where)f(you)h (can)g(change)f(the)h(font)f(used.)515 2856 y SDict begin H.S end 515 2856 a 515 2856 a SDict begin 12 H.A end 515 2856 a 515 2856 a SDict begin [/View [/XYZ H.V]/Dest (section.3.4) cvn /DEST pdfmark end 515 2856 a 156 x Fj(3.4)119 b(Symbol)30 b(view)515 3223 y Fm(This)23 b(windo)n(w)-5 b(,)22 b(as)i(its)g(name)f(suggests,)g(displays)g(symbols.)33 b(All)24 b(of)f(the)g(special)g(function)f(re)o(g-)515 3322 y(isters)i(will)g(ha)n(v)o(e)f(entries)h(in)f(the)h(symbol)f(vie)n (wer)-5 b(.)34 b(If)24 b(you)e(are)i(using)f(.cod)g(\002les)h(then)f (you)g(will)515 3422 y(additionally)15 b(ha)n(v)o(e)h(\002le)i(re)o (gisters)e(\(that)g(are)h(de\002ned)f(in)h(cblocks\),)f(equates,)h(and) f(address)h(labels.)515 3546 y(Y)-9 b(ou)23 b(can)g(\002lter)i(out)e (some)g(symbol)g(types)h(using)f(the)h(b)n(uttons)f(in)h(the)g(top)f (of)g(the)h(windo)n(w)-5 b(,)23 b(and)515 3646 y(you)h(can)i(sort)f (the)h(ro)n(ws)g(by)f(clicking)f(on)i(the)f(column)f(b)n(uttons)h (\(the)h(ones)f(reading)f(')-5 b(symbol',)515 3746 y(')o(type')18 b(and)i('address'\).)515 3870 y(Y)-9 b(ou)19 b(can)i(add)e(the)i (symbol)e(to)h(the)h(w)o(atch)f(windo)n(w)f(by)h(right-clicking)e(and)i (selecting)g(the)g("Add)515 3970 y(to)h(w)o(atch)g(windo)n(w")f(menu)g (item.)28 b(This)22 b(will)g(add)e(the)h(ram)g(re)o(gister)g(with)g (address)g(equal)f(to)i(the)515 4069 y(symbols)d(v)n(alue)h(to)g(the)g (w)o(atch)h(windo)n(w)-5 b(.)515 4194 y(The)29 b(symbol)g(vie)n(wer)g (is)h(link)o(ed)f(to)h(the)f(other)g(windo)n(ws.)52 b(F)o(or)30 b(e)o(xample,)g(if)g(you)e(click)i(on)f(a)515 4294 y(symbol)19 b(and:)p Black 639 4485 a Fa(\017)p Black 41 w Fm(If)h(it)h(is)g(an)g (address,)e(then)h(the)g(opcode)e(and)i(source)g(vie)n(ws)g(display)f (the)i(address.)p Black 639 4651 a Fa(\017)p Black 41 w Fm(If)f(it')-5 b(s)22 b(a)e(re)o(gister)m(,)f(the)h(re)o(gister)g (vie)n(wer)f(selects)j(the)e(cell.)p Black Black eop end %%Page: 29 30 TeXDict begin 29 29 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.29) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(3.)45 b(GRAPHICAL)21 b(USER)g(INTERF)-6 b(A)m(CE)1097 b Fm(29)p Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (section.3.5) cvn /DEST pdfmark end 515 432 a 83 x Fj(3.5)119 b(W)-8 b(atch)30 b(view)515 726 y Fm(This)21 b(is)h(not)f(a)g(output-only)d (windo)n(w)i(as)i(the)f(name)f(suggests)h(\(change)f(name?\).)26 b(Y)-9 b(ou)21 b(can)f(both)515 825 y(vie)n(w)29 b(and)h(change)e (data.)54 b(Double-clicking)27 b(on)i(a)h(bit)g(toggles)f(the)h(bit.)54 b(Y)-9 b(ou)29 b(add)g(v)n(ariables)515 925 y(here)e(by)g(marking)e (them)i(in)h(a)f(re)o(gister)g(vie)n(wer)g(and)g(select)h(\223)-7 b(Add)27 b(w)o(atch\224)g(from)f(menu.)46 b(The)515 1025 y(right-click)18 b(menu)i(has)g(the)g(follo)n(wing)f(items:)p Black 639 1216 a Fa(\017)p Black 41 w Fm(Remo)o(v)o(e)g(w)o(atch)p Black 639 1382 a Fa(\017)p Black 41 w Fm(Set)i(re)o(gister)f(v)n(alue)p Black 639 1548 a Fa(\017)p Black 41 w Fm(Clear)h(Breakpoints)p Black 639 1714 a Fa(\017)p Black 41 w Fm(Set)g(break)e(on)h(read)p Black 639 1880 a Fa(\017)p Black 41 w Fm(Set)h(break)e(on)h(write)p Black 639 2046 a Fa(\017)p Black 41 w Fm(Set)h(break)e(on)h(read)g(v)n (alue)p Black 639 2212 a Fa(\017)p Black 41 w Fm(Set)h(break)e(on)h (write)g(v)n(alue)p Black 639 2378 a Fa(\017)p Black 41 w Fm(Columns...)515 2569 y("Columns...)-6 b(\224)30 b(opens)21 b(up)h(a)h(windo)n(w)e(where)h(you)f(can)i(select)f(which)g (of)g(the)h(follo)n(wing)d(data)i(to)515 2668 y(display:)p Black 639 2859 a Fa(\017)p Black 41 w Fm(BP)p Black 639 3025 a Fa(\017)p Black 41 w Fm(T)-7 b(ype)p Black 639 3192 a Fa(\017)p Black 41 w Fm(Name)p Black 639 3358 a Fa(\017)p Black 41 w Fm(Address)p Black 639 3524 a Fa(\017)p Black 41 w Fm(Dec)p Black 639 3690 a Fa(\017)p Black 41 w Fm(He)o(x)p Black 639 3856 a Fa(\017)p Black 41 w Fm(Bx)21 b(\(bits)f(of)g(w)o(ord\))515 4047 y(Y)-9 b(ou)17 b(can)g(sort)h(the)g(list)h(of)e(w)o(atches)h(by)g(clicking)f (on)g(the)h(column)e(b)n(uttons.)24 b(Clicking)17 b(twice)h(sorts)515 4146 y(the)i(list)h(backw)o(ards.)515 4278 y SDict begin H.S end 515 4278 a 515 4278 a SDict begin 12 H.A end 515 4278 a 515 4278 a SDict begin [/View [/XYZ H.V]/Dest (section.3.6) cvn /DEST pdfmark end 515 4278 a 173 x Fj(3.6)119 b(Stack)30 b(viewer)515 4662 y Fm(This)24 b(windo)n(w)e(displays)i (current)e(stack.)36 b(Selecting)23 b(an)g(entry)g(mak)o(es)h(the)g (code)f(windo)n(ws)f(dis-)515 4761 y(play)d(the)i(return)e(address.)24 b(Double)19 b(clicking)h(sets)h(a)f(breakpoint)e(on)i(the)g(return)f (address.)p Black Black eop end %%Page: 30 31 TeXDict begin 30 30 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.30) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(3.)45 b(GRAPHICAL)21 b(USER)g(INTERF)-6 b(A)m(CE)1097 b Fm(30)p Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (section.3.7) cvn /DEST pdfmark end 515 432 a 83 x Fj(3.7)119 b(Br)n(eadboard)515 726 y Fm(Here)29 b(you)g(can)g(create/modify)f(and)h(e)o(xamine)f(the)h (en)m(vironment)e(around)h(the)h(pic.)53 b(Pins)31 b(are)515 825 y(displayed)18 b(as)i(an)f(arro)n(w)-5 b(.)23 b(The)c(direction)f (of)h(the)h(arro)n(w)e(indicates)h(if)h(its)g(an)f(input)g(or)g(output) f(pin.)515 925 y(The)i(color)f(of)h(the)g(arro)n(w)f(indicates)h(its)h (state)g(\(green=lo)n(w)-5 b(,)18 b(red=high\).)515 1050 y(Y)-9 b(ou)21 b(can')o(t)g(instantiate)g(pic)h(processors)f(from)f (here,)i(you)e(will)j(ha)n(v)o(e)e(to)h(do)f(that)h(from)f(the)g(com-) 515 1149 y(mand)e(line,)h(or)g(from)f(a)i(.stc)f(\002le.)515 1274 y(Y)-9 b(our)25 b(can)i(create)f(nodes)g(by)g(clicking)f(on)h(the) h("ne)n(w)f(node")f(b)n(utton.)43 b(\(A)27 b(node)f(is)h('a)g(piece)f (of)515 1373 y(wire')21 b(to)h(which)g(you)f(can)g(connect)g (stimulus.\))29 b(Y)-9 b(ou)21 b(can)h(see)g(the)g(list)h(of)f(created) f(nodes)g(under)515 1473 y(the)f("nodes")f(item)h(in)h(the)f(upper)n (-left)e(tree)j(widget.)515 1597 y(Y)-9 b(ou)28 b(can)i(create)f (connections)e(to)i(nodes)g(by)g(clicking)f(on)h(a)h(pin,)h(and)e(then) f(clicking)h(on)g(the)515 1697 y(b)n(utton)22 b("Connect)g(stimulus)h (to)g(node".)31 b(This)23 b(will)h(bring)e(up)g(a)h(list)h(of)f(nodes.) 32 b(Choose)23 b(one)f(by)515 1797 y(double-clicking)17 b(on)i(the)i(one)e(you)h(lik)o(e.)515 1921 y(If)e(you)g(click)h(on)f(a) h(pin)g(that)g(is)g(already)f(connected)f(to)i(a)g(node,)f(then)g(you)g (will)h(see)h(the)e(node)g(and)515 2021 y(its)k(connections)e(in)i(the) f(lo)n(wer)g(left)h(part)f(of)h(the)f(windo)n(w)-5 b(.)28 b(Y)-9 b(ou)21 b(can)g(disconnect)f(a)i(stimulus)g(by)515 2121 y(clicking)d(on)h(it)h(and)e(pressing)h(the)g("remo)o(v)o(e)e (stimulus")i(b)n(utton.)515 2245 y(When)g(you)g(w)o(ant)h(to)f(add)g(a) h(module)f(to)g(the)h(simulation,)e(you)h(\002rst)h(ha)n(v)o(e)f(to)h (specify)f(the)h(library)515 2345 y(which)32 b(contains)f(the)i(module) e(you)g(w)o(ant.)62 b(Click)33 b(on)f(the)h("add)e(library")h(b)n (utton)f(and)h(enter)515 2444 y(the)23 b(library)g(name)g(\(e.g.)35 b("libgpsim_modules.so"\).)d(No)n(w)23 b(you)g(can)h(click)f(the)h ("add)f(module")515 2544 y(b)n(utton.)50 b(Select)30 b(the)f(module)e(you)h(w)o(ant)i(from)e(the)h(list)h(by)e (double-clicking)e(on)j(it.)52 b(Enter)28 b(a)515 2644 y(name)e(for)g(the)h(module)e(\(this)i(has)g(to)g(be)g(unique,)g(and)f (not)g(used)h(before\).)43 b(Y)-9 b(ou)26 b(no)n(w)g(ha)n(v)o(e)g(to) 515 2743 y(position)17 b(the)h(module.)23 b(Mo)o(v)o(e)17 b(the)h(mouse)f(pointer)g(to)h(where)f(you)h(w)o(ould)f(lik)o(e)h(the)g (module,)f(and)515 2843 y(left-click.)515 2967 y(If)25 b(you)f(middle-click)f(on)i(a)g(pin,)h(you)e(will)i(see)f(ho)n(w)g(the) g(pin)f(is)i(connected.)38 b(Press)26 b(the)f("trace)515 3067 y(all")20 b(to)h(see)g(all)f(at)515 3192 y(once,)26 b(and)g("clear)g(traces")g(to)g(remo)o(v)o(e)e(all)j(\(you)e(will)i (only)e(remo)o(v)o(e)f(the)i(graphical)f(trace,)i(not)515 3291 y(the)19 b(connection!\).)j(If)d(the)h(tracing)e(doesn')o(t)g(w)o (ork,)h(try)g(mo)o(ving)f(the)h(packages)f(so)i(that)g(there)f(are)515 3391 y(more)g(space)h(around)f(the)h(pins.)515 3515 y(When)f(you)g(are) g(done,)f(you)h(can)g(sa)n(v)o(e)h(by)f(clicking)f(the)i("sa)n(v)o(e)f (con\002guration")e(b)n(utton.)24 b(Y)-9 b(ou)19 b(can)515 3615 y(then)26 b(load)g(this)h(\002le)g(from)e(the)h(command)f(line)h (lik)o(e)h(this)g(\(assuming)e(the)i(.cod)e(\002le)i(with)g(your)515 3715 y(source)19 b(is)i(called)f("mycode.cod",)d(and)j(the)g(\002le)h (you)e(just)i(sa)n(v)o(ed)f(w)o(as)h(called)f("mynets.stc":)p Black Black 722 3922 a Fh(gpsim)42 b(-s)g(mycode.cod)e(-c)j(mynets.stc) 515 4130 y Fm(Y)-9 b(ou)20 b(can')o(t)f(load)h(only)g(the)h(.stc)g (\002le)g(since)g(this)g(doesn')o(t)e(contain)h(the)g(processor)f(type) h(and)g(code.)515 4229 y(Y)-9 b(ou)21 b(can)h(create)g(\(with)g(an)g (editor\))f(your)g(o)n(wn)g(.stc)i(\002le)g(\(e.g.)30 b(my_project.stc\))19 b(and)i(in)i(that)f(\002le)515 4329 y(put)f(a)i(command)d("load)i(c)g(mynets.stc")f(after)h(you)f(ha)n (v)o(e)h(loaded)f(the)h(.cod)f(\002le.)31 b(Y)-9 b(ou)22 b(then)f(only)515 4429 y(ha)n(v)o(e)e(to)i(load)e(this)i(\002le)g (\(gpsim)e(-c)i(my_project.stc\).)515 4577 y SDict begin H.S end 515 4577 a 515 4577 a SDict begin 12 H.A end 515 4577 a 515 4577 a SDict begin [/View [/XYZ H.V]/Dest (section.3.8) cvn /DEST pdfmark end 515 4577 a 157 x Fj(3.8)119 b(T)-9 b(race)30 b(viewer)515 4944 y Fm(This)20 b(windo)n(w)f(sho)n(ws) i(the)f(trace)g(of)g(instructions)f(e)o(x)o(ecuted.)k(See)2478 4945 y SDict begin H.S end 2478 4945 a Black -1 x Fm(6)p Black 2519 4888 a SDict begin H.R end 2519 4888 a 2519 4944 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (chapter.6) cvn H.B /ANN pdfmark end 2519 4944 a Fm(.)p Black Black eop end %%Page: 31 32 TeXDict begin 31 31 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.31) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(3.)45 b(GRAPHICAL)21 b(USER)g(INTERF)-6 b(A)m(CE)1097 b Fm(31)p Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (section.3.9) cvn /DEST pdfmark end 515 432 a 83 x Fj(3.9)119 b(Pr)n(o\002le)30 b(viewer)515 726 y Fm(This)24 b(windo)n(w)f(sho)n(w)g(e)o(x)o(ecution)f (count)h(for)g(program)f(memory)g(addresses.)36 b(The)24 b(pro\002le)f(win-)515 825 y(do)n(w)g(must)g(be)h(opened)e(before)g (starting)h(simulation,)g(because)g(the)g(tracing)g(is)i(not)e(enabled) f(by)515 925 y(def)o(ault.)515 1171 y SDict begin H.S end 515 1171 a 515 1171 a SDict begin 12 H.A end 515 1171 a 515 1171 a SDict begin [/View [/XYZ H.V]/Dest (section*.20) cvn /DEST pdfmark end 515 1171 a Fn(Instruction)e(pr)o(o\002le) 515 1352 y Fm(This)g(sho)n(ws)g(the)h(number)d(of)i(times)h(each)e (instruction)g(are)h(e)o(x)o(ecuted.)515 1597 y SDict begin H.S end 515 1597 a 515 1597 a SDict begin 12 H.A end 515 1597 a 515 1597 a SDict begin [/View [/XYZ H.V]/Dest (section*.21) cvn /DEST pdfmark end 515 1597 a Fn(Instruction)g(range)g (pr)o(o\002le)515 1778 y Fm(Here)g(you)f(can)h(group)f(ranges)g(of)h (instruction)f(into)h(one)f(entry)-5 b(.)515 1903 y(The)20 b(right)f(click)h(menu)g(contains:)p Black 515 2094 a(Remo)o(v)o(e)f (range)p Black 183 w(Remo)o(v)o(e)g(an)h(entry)-5 b(.)p Black 515 2260 a(Add)19 b(range...)p Black 252 w(Open)24 b(a)h(dialog)f(from)g(where)g(you)g(can)h(add)f(a)i(range)d(of)i (instructions)f(as)1179 2359 y(an)c(entry)-5 b(.)p Black 515 2525 a(Add)19 b(all)i(labels)p Black 203 w(Add)f(all)g(code)g (labels)g(as)h(ranges.)p Black 515 2691 a(Snapshot)e(to)h(plot)p Black 124 w(Open)30 b(a)i(windo)n(w)e(containing)f(a)j(graph)e(of)h (the)g(data.)57 b(From)31 b(this)h(ne)n(w)1179 2791 y(windo)n(w)19 b(you)g(can)h(also)h(sa)n(v)o(e)f(\(postscript\))f(or)h(print)g(it.)515 3037 y SDict begin H.S end 515 3037 a 515 3037 a SDict begin 12 H.A end 515 3037 a 515 3037 a SDict begin [/View [/XYZ H.V]/Dest (section*.22) cvn /DEST pdfmark end 515 3037 a Fn(Register)g(pr)o(o\002le)515 3217 y Fm(This)g(sho)n(ws)g(the)h (number)d(of)i(reads)g(or)g(writes)g(the)h(simulator)e(does)h(on)g(re)o (gister)-5 b(.)515 3463 y SDict begin H.S end 515 3463 a 515 3463 a SDict begin 12 H.A end 515 3463 a 515 3463 a SDict begin [/View [/XYZ H.V]/Dest (section*.23) cvn /DEST pdfmark end 515 3463 a Fn(Routine)20 b(pr)o(o\002le)515 3644 y Fm(Here)k(you)f(can)g(see)i(statistics)g(about)e(e)o(x)o (ecution)f(time)i(for)g(a)g(selected)g(routine.)35 b(Y)-9 b(ou)23 b(mark)h(the)515 3744 y(entry)j(and)g(e)o(xit)h(points)f(from)g (the)h(source)f(bro)n(wser)f(\(pro\002le)h(start/stop\).)47 b(If)28 b(the)g(routine)e(you)515 3843 y(w)o(ant)c(to)g(measure)f(ha)n (v)o(e)h(multiple)f(entry)g(and/or)g(e)o(xit)h(points,)f(then)h(you)f (ha)n(v)o(e)g(to)i(put)e(a)i(mark)o(er)515 3943 y(on)i(e)n(v)o(ery)f (entry)g(point)h(as)h(well)g(as)g(\(and)f(especially\))g(e)n(v)o(ery)f (e)o(xit)h(point.)40 b(Otherwise)25 b(you)g(will)515 4042 y(get)20 b(bad)g(data.)515 4167 y(When)f(you)f(ha)n(v)o(e)g(done)g (that,)i(gpsim)e(will)i(\(as)g(simulation)e(goes)h(by\))f(store)h(the)g (e)o(x)o(ecution)e(times)515 4267 y(of)29 b(that)g(routine)f(and)g (calculate)h(min/max/a)n(v)o(erage/etc.)49 b(Y)-9 b(ou)28 b(can)h(also)h(use)f(the)g(menu)f(item)515 4366 y('Plot)19 b(distrib)n(ution')f(to)i(open)e(a)i(windo)n(w)e(displaying)g(a)i (histogram)e(of)h(the)g(data.)25 b(From)19 b(this)h(ne)n(w)515 4466 y(windo)n(w)f(you)g(can)h(also)h(sa)n(v)o(e)f(\(in)g(postscript\)) f(or)h(print)g(it.)515 4590 y(Y)-9 b(ou)28 b(can)g(also)h(measure)e (call)i(period)e(by)i(switching)e(the)i('entry')e(and)h('e)o(xit')g (points.)49 b(If)28 b(also)515 4690 y(w)o(ant)23 b(the)g(time)h(from)e (reset)i(\(or)e(some)h(equal)g(point\))f(to)h(the)h(\002rst)g('entry',) e(then)h(you)f(must)h(also)515 4790 y(put)d(an)g('entry')e(point)i (there.)p Black Black eop end %%Page: 32 33 TeXDict begin 32 32 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.32) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(3.)45 b(GRAPHICAL)21 b(USER)g(INTERF)-6 b(A)m(CE)1097 b Fm(32)p Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (section.3.10) cvn /DEST pdfmark end 515 432 a 83 x Fj(3.10)119 b(Stopwatch)515 726 y Fm(The)30 b(stopw)o(atch)g(windo)n(w)f(sho)n(ws)i (a)g(c)o(ycle)f(counter)f(and)g(a)i(re-settable)f(counter)-5 b(.)55 b(The)30 b(c)o(ycle)515 825 y(counter)18 b(is)k(the)e(same)g(as) h(the)f(one)g(in)g(the)g(re)o(gister)g(windo)n(w)-5 b(.)23 b(It)e(basically)f(counts)f(instructions.)515 950 y(The)24 b(other)h(counter)e(counts)i(at)g(the)g(same)g(rate)g(as)h(the)f(c)o (ycle)g(counter)m(,)f(b)n(ut)h(can)g(be)g(cleared)f(by)515 1050 y(clicking)19 b(the)h("clear")g(b)n(utton)f(\(or)h(preset)g(by)g (entering)e(a)j(number)d(in)j(the)f(entry)f(box\).)515 1174 y(The)h(up/do)n(wn)e(indicator)h(denotes)g(the)h(direction)f(the)h (counter)f(counts.)515 1299 y(The)j(rollo)o(v)o(er)f(v)n(alue)h (speci\002es)h(the)g(range)f(the)h(c)o(ycle)f(counter)f(can)i(be)g(in)g (\(a)g(modulo)e(counter\).)515 1398 y(F)o(or)f(e)o(xample,)f(if)i(the)g (rollo)o(v)o(er)d(v)n(alue)i(is)i(speci\002ed)e(to)h(be)f(0x42,)f(then) i(whene)n(v)o(er)d(the)j(resettable)515 1498 y(counter)27 b(reaches)i(0x42)e(it)j(will)g(rollo)o(v)o(er)d(to)i(zero.)51 b(If)28 b(the)i(counter)d(is)j(counting)d(do)n(wn,)j(then)515 1597 y(when)19 b(it)h(reaches)f(0)h(the)f(ne)o(xt)g(state)h(will)h(be)e (0x41.)k(If)d(you)e(don')o(t)g(w)o(ant)i(is)g(lik)o(e)g(this,)g(then)f (set)i(the)515 1697 y(rollo)o(v)o(er)d(v)n(alue)h(to)i(something)d(lar) o(ge.)515 1846 y SDict begin H.S end 515 1846 a 515 1846 a SDict begin 12 H.A end 515 1846 a 515 1846 a SDict begin [/View [/XYZ H.V]/Dest (section.3.11) cvn /DEST pdfmark end 515 1846 a 156 x Fj(3.11)119 b(Scope)30 b(W)n(indo)o(w)515 2213 y Fm(FIXME:)20 b(The)g(scope)f(windo)n(w)h(still)h(needs)f(some)g (w)o(ork...)515 2337 y(The)31 b(Scope)h(W)m(indo)n(w)f(graphs)g(I/O)h (pin)f(states.)61 b(It)33 b(is)f(similar)g(to)h(an)e(oscilloscope)g(or) h(logic)515 2437 y(analyzer)-5 b(.)23 b(It)18 b(can)g(be)f(controlled)f (either)i(from)f(the)g(command)f(line)i(or)g(from)e(the)i(GUI.)g (Currently)515 2536 y(only)h(the)h(digital)g(state)h(of)f(I/O)h(pins)f (are)g(supported.)515 2661 y(T)-7 b(o)19 b(use)g(the)f(scope)h(windo)n (w)-5 b(,)17 b(each)h(scope)g(channel)g(being)g(used)g(must)h(\002rst)g (be)g(connected)e(to)i(the)515 2761 y(stimulus)25 b(being)g(track)o (ed.)40 b(This)26 b(can)f(only)g(be)g(done)f(on)i(the)f(command)f(line) h(\(or)g(via)h(the)f(.sim)515 2860 y(directi)n(v)o(e)17 b(in)i(the)g(.asm)g(\002le\).)25 b(The)18 b(follo)n(wing)f(e)o(xample)h (sho)n(ws)g(ho)n(w)h(this)g(is)h(done,)d(b)n(ut)i(note)f(that)515 2960 y(in)i(the)g(.sim)h(command)d(the)i(\224\224s)h(need)e(to)i(be)f (escaped)f(with)i(a)f('\\'.)p Black Black 722 3167 a Fh(**gpsim>)40 b(scope.ch0)g(=)j(\020portc3\021)722 3267 y(**gpsim>)d(scope.ch1)g(=)j(\020portc4\021)515 3475 y Fm(Once)20 b(the)h(data)g(are)g(captured,)f(the)h(scope)f(windo)n(w)g (display)h(may)f(need)g(to)h(be)g(altered)g(to)g(better)515 3574 y(see)g(the)f(data.)25 b(In)19 b(the)i(GUI,)f(the)g(follo)n(wing)e (k)o(e)o(ys)i(can)g(be)g(used:)p Black 515 3765 a(z)p Black 378 w(Zoom)f(In)p Black 515 3931 a(Z)p Black 364 w(Zoom)g(out)p Black 515 4097 a(l)p Black 392 w(P)o(an)h(left)p Black 515 4263 a(r)p Black 387 w(P)o(an)g(right)515 4454 y(In)15 b(the)g(command)e(line,)j(zooming)e(and)g(panning)f(can)i(be)h (achie)n(v)o(ed)d(by)i(modifying)e(the)i(scope.start)515 4554 y(and)k(scope.end)g(v)n(ariables.)p Black Black eop end %%Page: 33 34 TeXDict begin 33 33 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.33) cvn /DEST pdfmark end 506 174 a Black Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (chapter.4) cvn /DEST pdfmark end 515 432 a 729 x Fk(Chapter)44 b(4)515 1600 y Fo(Scripting)51 b(and)h(Con\002guring)515 2055 y Fm(gpsim)19 b(does)h(not)g(ha)n(v)o(e) f(a)i(nati)n(v)o(e)e(scripting)g(language)f(per)i(se.)26 b(Ho)n(we)n(v)o(er)18 b(it)j(is)g(possible)f(to)g(place)515 2155 y(gpsim)d(commands)f(into)i(a)g(\002le)h(and)e(load)h(them)f (later)-5 b(.)25 b(This)18 b(is)h(useful)e(for)h(loading)e(modules)h (and)515 2255 y(stimuli)j(and)f(connecting)f(v)n(arious)g(de)n(vices)i (together)-5 b(.)24 b(By)c(con)m(v)o(ention,)d(gpsim')-5 b(s)19 b(con\002guration)515 2354 y(\002les)i(ha)n(v)o(e)e(the)i(e)o (xtension)d Fg(.stc)p Fm(,)j(for)e Fg(st)q Fm(artup)i Fg(c)p Fm(on\002guration.)515 2502 y SDict begin H.S end 515 2502 a 515 2502 a SDict begin 12 H.A end 515 2502 a 515 2502 a SDict begin [/View [/XYZ H.V]/Dest (section.4.1) cvn /DEST pdfmark end 515 2502 a 155 x Fj(4.1)119 b(Embedded)31 b(Commands)515 2866 y Fm(If)26 b(you')l(re)e(using)i(gputils,)i(it)f (is)g(possible)f(to)h(embed)e(con\002guration)f(commands)g(directly)i (into)515 2965 y(your)e(PIC)h(assembly)g(source.)39 b(The)25 b(gputils)f(supplied)g(include)g(\002le)i Fg(cof)o(f)o(.inc)e Fm(contains)g(se)n(v)o(eral)515 3065 y(macros)19 b(that)i(embed)e (simulation)g(command)f(into)i(a)h(COFF)g(and)f(COD)h(\002les.)515 3186 y SDict begin H.S end 515 3186 a 515 3186 a SDict begin 12 H.A end 515 3186 a 515 3186 a SDict begin [/View [/XYZ H.V]/Dest (subsection.4.1.1) cvn /DEST pdfmark end 515 3186 a 139 x Fi(4.1.1)99 b(.sim)24 b(macr)n(o)p Black Black 722 3481 a Fh(;)43 b(Simulator)d(Command)722 3580 y(.sim)i(macro)g(x)809 3680 y(.direct)f("e",)h(x)809 3779 y(endm)515 3979 y Fm(The)15 b Fc(.sim)28 b Fh(macro)42 b(allows)f(gpsim)g(configuration)d(commands)i(to)j(be)g(embedded)d(in) 515 4078 y(the)i(PIC)g(source.)85 b(While)41 b(gpsim)g(loads)h(a)h (.cod)f(file,)f(the)i(commands)d(in)j(the)515 4178 y Fc(.sim)28 b Fh(macros)41 b(are)i(collected.)82 b(After)42 b(the)g(.cod)g(file)g(is)h(loaded,)d(the)j(commands)515 4278 y(are)f(redirected)d(to)k(gpsim's)e(command)f(line)i(interpreter)d (in)k(the)f(order)g(they)515 4377 y(were)g(received.)515 4500 y Fm(Here')-5 b(s)20 b(an)g(e)o(xample)f(of)h(switch)h(module)d (being)i(loaded)f(and)g(con\002gured:)p Black Black 766 4700 a Fh(;#)43 b(Module)e(libraries:)766 4799 y(.sim)h("module)e (library)h(libgpsim_modules)o(")766 4899 y(.sim)h("module)e(load)i (switch)f(SW1")766 4998 y(.sim)h("SW1.state=fals)o(e")p Black 1905 5208 a Fm(33)p Black eop end %%Page: 34 35 TeXDict begin 34 34 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.34) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(4.)45 b(SCRIPTING)21 b(AND)g(CONFIGURING)1051 b Fm(34)p Black 766 515 a Fh(.sim)42 b("SW1.xpos)e(=)j(216.0")766 615 y(.sim)f("SW1.ypos)e(=)j(156.0")766 715 y(.sim)f("SW1.Ropen)d(=)k (1.0e8")515 922 y Fm(This)29 b(loads)g(gpsim')-5 b(s)30 b(module)d(library)-5 b(,)30 b(instantiates)g(a)f(switch)h(module,)g (and)f(con\002gures)f(the)515 1022 y(switch')-5 b(s)21 b(attrib)n(utes.)515 1144 y SDict begin H.S end 515 1144 a 515 1144 a SDict begin 12 H.A end 515 1144 a 515 1144 a SDict begin [/View [/XYZ H.V]/Dest (subsection.4.1.2) cvn /DEST pdfmark end 515 1144 a 140 x Fi(4.1.2)99 b(.command)25 b(macr)n(o)p Black Black 722 1440 a Fh(.command)40 b(macro)i(x)809 1540 y(.direct)f("c",)h(x)809 1639 y(endm)515 1847 y Fm(The)15 b Fc(.command)26 b Fh(macro)42 b(is)h(similar)d(to)j(a)15 b Fc(.sim)29 b Fh(macro)41 b(except)g(that)h(it)h(associates)515 1946 y(a)g(gpsim)e(command)g(with)h(a)h(particular)c(instruction.)82 b(This)42 b(is)h(useful)e(for)515 2046 y(changing)f(attribute)g(values) h(at)h(different)e(points)h(of)i(the)f(program.)515 2186 y SDict begin H.S end 515 2186 a 515 2186 a SDict begin 12 H.A end 515 2186 a 515 2186 a SDict begin [/View [/XYZ H.V]/Dest (subsection.4.1.3) cvn /DEST pdfmark end 515 2186 a 123 x Fi(4.1.3)99 b(.assert)24 b(macr)n(o)p Black Black 722 2464 a Fh(;)43 b(Assertion)722 2564 y(.assert)e(macro)g(x)766 2663 y(.direct)f("a",)i(x)766 2763 y(endm)515 2971 y Fm(The)16 b Fg(.assert)j Fm(macro)d(pro)o(vides)g(a)h(source)f(code)h (mechanism)e(for)i(setting)g(breakpoints)d(\(see)k(chap-)515 3070 y(ter)620 3071 y SDict begin H.S end 620 3071 a Black -1 x Fm(5)p Black 662 3014 a SDict begin H.R end 662 3014 a 662 3070 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (chapter.5) cvn H.B /ANN pdfmark end 662 3070 a Fm(\).)24 b(An)17 b(assertion)g(is)h(an)g(e)o(xpression)d(associated)i(with)h(a)g (speci\002c)f(instruction.)23 b(It)17 b(essentially)515 3170 y(means,)g(\223If)g(the)g(e)o(xpression)f(at)h(this)h(instruction) e(e)n(v)n(aluates)g(to)i(f)o(alse,)g(then)e(halt)h(the)h(simulation.)-6 b(\224)p Black Black 722 3477 a Fh(;)43 b(Close)f(the)g(switch.)f (Because)f(of)j(capacitance,)c(portc1)i(will)h(go)g(high)g(after)g(a)h (delay:)853 3577 y(;)g(R=145,)e(C=4.2e-6)f(TC=6.11e-4)g(or)i(1527)g (cycles,)f(0-2)h(volts)g(requires)e(0.51)i(Tc)853 3676 y(.command)e("SW1.state=close)o(d")1071 3776 y(nop)1071 3876 y(;)j(portc0)e(should)g(be)i(same)f(as)g(portc1)853 3975 y(.assert)f("\(portc)f(&)j(3\))g(==)g(0,)g(\\"SW1)e(closed,)g(cap) h(holds)f(low\\"")1071 4075 y(nop)515 4282 y Fm(In)18 b(this)g(e)o(xample,)f(the)h Fg(.command)h Fm(macro)e(writes)h(to)h (the)f(switch)g(module')-5 b(s)17 b Fg(.state)i Fm(attrib)n(ute)e (\(see)515 4382 y(section)767 4383 y SDict begin H.S end 767 4383 a Black -1 x Fm(8.1.4)p Black 933 4326 a SDict begin H.R end 933 4326 a 933 4382 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (subsection.8.1.4) cvn H.B /ANN pdfmark end 933 4382 a Fm(\).)24 b(Just)18 b(prior)d(to)i(e)o(x)o(ecuting)e(the)h (\002rst)i(nop)e(instruction,)f(the)i(switch)g(will)h(be)e(closed.)515 4482 y(The)h Fg(.assert)j Fm(macro)e(at)g(the)g(v)o(ery)f(ne)o(xt)g (instruction)g(mak)o(es)h(sure)f(that)i(the)e(e)o(xpected)g(state)i(is) f(seen)515 4581 y(on)i(POR)-5 b(TC.)p Black Black eop end %%Page: 35 36 TeXDict begin 35 35 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.35) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(4.)45 b(SCRIPTING)21 b(AND)g(CONFIGURING)1051 b Fm(35)p Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (section.4.2) cvn /DEST pdfmark end 515 432 a 83 x Fj(4.2)119 b(Sock)o(ets)515 726 y Fm(gpsim)25 b(supports)f(a)i(sock)o(et)f(interf)o(ace.)39 b(This)26 b(is)g(inhibited)e(by)h(def)o(ault.)40 b(Adv)n(anced)24 b(users)h(may)515 825 y(wish)h(to)h(study)e(code)h(in)g(the)h Fg(e)n(xamples/scripts)f Fm(subdirectory)-5 b(.)40 b(This)27 b(code)e(is)j(not)d(distrib)n(uted)515 925 y(and)19 b(is)j(only)d(a)n (v)n(ailable)h(in)g(the)g(sub)o(v)o(ersion)e(repository)-5 b(.)p Black Black eop end %%Page: 36 37 TeXDict begin 36 36 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.36) cvn /DEST pdfmark end 506 174 a Black Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (chapter.5) cvn /DEST pdfmark end 515 432 a 723 x Fk(Chapter)44 b(5)515 1587 y Fo(Assertions)52 b(and)g(Extended)515 1836 y(Br)l(eakpoints)515 2285 y Fm(gpsim)23 b(supports)g(a)h(wide)g(v)n(ariety)f(of)g(breakpoints)f (and)h(assertions.)36 b(Man)o(y)23 b(of)g(these)h(were)g(de-)515 2384 y(scribed)f(with)h(the)g(break)e(command.)34 b(This)24 b(section)g(will)g(illustrate)g(ho)n(w)f(to)h(e)o(xtend)f(the)h(break) 515 2484 y(command)18 b(e)n(v)o(en)h(further)g(and)g(introduce)g (simulation)g(assertions.)515 2732 y SDict begin H.S end 515 2732 a 515 2732 a SDict begin 14 H.A end 515 2732 a 515 2732 a SDict begin [/View [/XYZ H.V]/Dest (section*.24) cvn /DEST pdfmark end 515 2732 a Fi(Br)n(eakpoint)26 b(Messages)515 2904 y Fm(A)i(breakpoint)d(message)i(is)h(an)g(ASCII)f (string)g(that)h(is)g(displayed)e(whene)n(v)o(er)g(a)i(breakpoint)d(is) 515 3004 y(encountered.)56 b(An)o(y)31 b(break)g(point)g(can)h(ha)n(v)o (e)f(an)g(associated)h(message.)59 b(The)31 b(syntax)g(at)i(the)515 3103 y(command)18 b(line)i(is)p Black Black 722 3264 a Fh(break)42 b(conditions,)d(\020)p Fc(This)i(is)i(a)g(breakpoint)c (message)12 b Fh(\021)515 3424 y Fm(The)17 b(conditions)f(are)i (described)f(abo)o(v)o(e)f(in)i(the)f(break)g(command)f(and)h(are)h (the)g(conditions)e(under)515 3523 y(which)j(the)i(break)e(occurs.)515 3640 y(Breakpoint)f(messages)j(are)f(useful)g(for)f(distinguishing)f (among)h(man)o(y)g(dif)n(ferent)g(breakpoints.)p Black Black 722 3800 a Fh(break)42 b(w)h(counter)e(&)i(0xf0)f(==)g(0x80,)g (\020Counter)e(overflowed!\021)515 3960 y Fm(In)28 b(this)h(e)o (xample,)g(the)f(user)g(is)i(monitoring)c(the)i(upper)f(nibble)g(of)h (the)h(v)n(ariable)e(counter)g(and)515 4059 y(breaking)18 b(whene)n(v)o(er)g(it)j(is)g(equal)f(to)g(8.)25 b(When)20 b(the)g(command)f(is)i(entered,)d(gpsim)i(will)h(display:)p Black Black 722 4319 a Fh(break)42 b(when)g(bit)g(pattern)f(1000XXXX)f (is)i(written)f(to)i(register)d(counter\(0x26\).)e(break)j(#:)i(0x20) 515 4479 y Fm(The)20 b(breakpoint)d(can)j(be)h(queried)d(with)j(the)f (break)f(command:)p Black Black 722 4639 a Fh(gpsim>)41 b Fc(break)h(32)722 4739 y Fh(32:)h(p18f452)d(register)g(write)i (value:)f([0x26])g(&)i(0xf0)f(==)h(0x8)897 4838 y(Message:Counter)37 b(overflowed!)515 4998 y Fm(When)20 b(the)g(simulation)f(encounters)g (the)h(break,)f(e)o(x)o(ecution)f(halts)i(and)g(the)g(message)g(is)h (printed.)p Black 1905 5208 a(36)p Black eop end %%Page: 37 38 TeXDict begin 37 37 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.37) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(5.)45 b(ASSER)-5 b(TIONS)21 b(AND)g(EXTENDED)e (BREAKPOINTS)519 b Fm(37)p Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (section.5.1) cvn /DEST pdfmark end 515 432 a 83 x Fj(5.1)119 b(Assertions)29 b(and)h(Embedded)i(Simulation)f(commands)515 726 y Fm(gpsim')-5 b(s)26 b(breakpoint)d(design)i(is)i(a)g(po)n(werful) d(tool)i(that)g(can)f(catch)h(man)o(y)f(problems.)41 b(The)25 b(as-)515 825 y(sertion)20 b(design)g(e)o(xtends)f(this)i(po)n (wer)f(e)n(v)o(en)f(further)-5 b(.)25 b(An)20 b(assertion)h(is)g(lik)o (e)g(a)g(breakpoint)d(that)j(is)515 925 y(de\002ned)e(in)i(the)f (program)f(source)h(code)f(for)h(a)h(particular)e(instruction.)25 b(gpsim)20 b(reads)g(the)h(break-)515 1025 y(point)c(from)g(a)h (special)g(message)g(area)g(in)g(the)g(.cod)f(\002le.)25 b(F)o(or)18 b(e)o(xample,)e(you)i(may)f(ha)n(v)o(e)g(a)i(routine)515 1124 y(that)i(requires)g(B)m(ANK)h(0)g(be)f(selected.)29 b(A)22 b(gpsim)f(assertion)g(can)h(be)f(placed)g(at)h(the)g(entry)e(of) i(the)515 1224 y(routine)d(to)h(v)o(erify)f(that)h(this)h(is)g(the)f (case.)p Black Black 722 1531 a Fh(.assert)84 b("\(status)41 b(&)i(0x60\))e(==)i(0,)g(\\"Bank)e(0)i(must)f(be)h(selected!\\"")515 1739 y Fm(The)28 b(syntax)g(is)h(identical)f(to)h(the)f(e)o(xtended)e (breakpoint)h(command.)47 b(The)28 b(e)o(xpression)f(is)j(the)515 1838 y(condition)21 b(that)i(is)i(check)o(ed.)32 b(If)23 b(the)g(e)o(xpression)f(e)n(v)n(aluates)h(to)g(f)o(alse,)h(then)f(the)g (code)g(halts)g(and)515 1938 y(prints)i(the)h(message.)41 b(The)26 b Fg(.assert)i Fm(is)e(a)h(macro)d(that)i(is)h(part)e(of)h (gputils.)41 b(It)26 b(requires)f(a)h(string)515 2038 y(as)c(its)g(input)f(ar)o(gument.)27 b(Notice)21 b(that)g(the)h (assertion)f(message)g(is)i(embedded)c(in)j(the)f(ar)o(gument.)515 2137 y(gpasm)d(and)h(MP)-8 b(ASM)20 b(cop)o(y)e(C')-5 b(s)21 b(method)c(of)i(placing)f(a)i(backslash)e(in)i(front)e(of)h (quotations)e(that)515 2237 y(are)j(part)g(of)g(a)g(string.)515 2499 y SDict begin H.S end 515 2499 a 515 2499 a SDict begin 14 H.A end 515 2499 a 515 2499 a SDict begin [/View [/XYZ H.V]/Dest (section*.25) cvn /DEST pdfmark end 515 2499 a Fi(Command)25 b(Assertions)515 2680 y Fm(A)h(command)e (assertion)h(is)i(a)f(gpsim)f(associated)h(with)g(a)g(particular)e (instruction)g(in)i(your)f(PIC)515 2780 y(source)h(code.)46 b(These)27 b(are)h(useful)f(for)f(changing)g(the)h(beha)n(vior)f(of)h (the)g(simulation)g(based)g(on)515 2879 y(where)e(the)i(code)e(e)o(x)o (ecutes.)43 b(Almost)26 b(an)o(y)f(gpsim)h(command)f(can)h(be)g(placed) f(in)i(a)g(command)515 2979 y(assertion.)d(Ho)n(we)n(v)o(er)m(,)18 b(the)j(most)f(useful)g(ones)f(are)i(assignment)e(commands.)k(F)o(or)d (e)o(xample:)p Black Black 722 3186 a Fh(.command)40 b(\020SW1.state)g(=)j(open\021)515 3394 y Fm(This)20 b(assignment)f(writes)i(to)f(the)h(state)g(attrib)n(ute)e(of)h(a)h (switch)f(module)f(named)g(SW1.)p Black Black eop end %%Page: 38 39 TeXDict begin 38 38 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.38) cvn /DEST pdfmark end 506 174 a Black Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (chapter.6) cvn /DEST pdfmark end 515 432 a 731 x Fk(Chapter)44 b(6)515 1603 y Fo(T)-15 b(race)50 b(and)i(Log:)64 b(What)51 b(has)515 1852 y(happen?)515 2309 y Fm(Inspecting)18 b(the)i(current)f(state)i(of)e(your)g(program)f (is)j(sometimes)f(insuf)n(\002cient)f(to)h(determine)f(the)515 2408 y(cause)h(of)f(a)h(b)n(ug.)25 b(Often)19 b(times)h(it')-5 b(s)21 b(useful)f(to)g(kno)n(w)f(the)g(conditions)g(that)h(led)g(up)f (to)h(the)g(current)515 2508 y(state.)26 b(gpsim)19 b(pro)o(vides)g(a)i (history)e(or)h(trace)g(of)g(e)n(v)o(erything)e(that)i(occurs)f(-)i (whether)e(you)g(w)o(ant)i(it)515 2607 y(or)f(not)g(-)g(to)g(help)g (you)f(diagnose)g(these)i(otherwise)e(dif)n(\002cult)h(to)g(analyze)f (b)n(ugs.)p Black Black 1046 2816 1803 4 v 1044 2915 4 100 v 1199 2886 a(What')-5 b(s)21 b(traced)p 1810 2915 V 583 w(notes)p 2846 2915 V 1046 2919 1803 4 v 1046 2935 V 1044 3035 4 100 v 1153 3005 a(program)d(counter)p 1810 3035 V 308 w(addresses)i(e)o(x)o(ecuted)p 2846 3035 V 1046 3038 1803 4 v 1044 3138 4 100 v 1235 3108 a(instructions)p 1810 3138 V 586 w(opcode)p 2846 3138 V 1046 3141 1803 4 v 1044 3241 4 100 v 1223 3211 a(re)o(gister)g(read)p 1810 3241 V 391 w(v)n(alue)f(and)h(location)p 2846 3241 V 1046 3244 1803 4 v 1044 3344 4 100 v 1209 3314 a(re)o(gister)g(write) p 1810 3344 V 378 w(v)n(alue)f(and)h(location)p 2846 3344 V 1046 3347 1803 4 v 1044 3447 4 100 v 1207 3417 a(c)o(ycle)g(counter)p 1810 3447 V 460 w(current)f(v)n(alue)p 2846 3447 V 1046 3450 1803 4 v 1044 3550 4 100 v 1096 3520 a(skipped)g(instructions)p 1810 3550 V 267 w(addresses)h(skipped)p 2846 3550 V 1046 3553 1803 4 v 1044 3653 4 100 v 1200 3623 a(status)h(re)o(gister)p 1810 3653 V 203 w(during)d(implicit)i (modi\002cation)p 2846 3653 V 1046 3656 1803 4 v 1044 3756 4 100 v 1270 3726 a(interrupts)p 1810 3756 V 2846 3756 V 1046 3759 1803 4 v 1044 3859 4 100 v 1225 3829 a(break)f(points)p 1810 3859 V 624 w(type)p 2846 3859 V 1046 3862 1803 4 v 1044 3962 4 100 v 1334 3932 a(resets)p 1810 3962 V 735 w(type)p 2846 3962 V 1046 3965 1803 4 v 1044 4064 4 100 v 1810 4064 V 2846 4064 V 1046 4068 1803 4 v 1044 4167 4 100 v 1810 4167 V 2846 4167 V 1046 4171 1803 4 v 515 4414 a(The)h(')o(trace')e(command)h(will)i(dump)d (the)j(contents)e(of)h(the)g(trace)g(b)n(uf)n(fer)-5 b(.)515 4539 y(A)24 b(lar)o(ge)f(circular)g(b)n(uf)n(fer)g(\(whose)g (size)i(is)f(hard)f(coded\))g(stores)h(the)g(information)d(for)j(the)g (trace)515 4638 y(b)n(uf)n(fer)-5 b(.)35 b(When)24 b(it)g(\002lls,)i (it)f(will)f(wrap)g(around)e(and)h(write)h(o)o(v)o(er)e(the)i(old)g (history)-5 b(.)35 b(The)23 b(contents)515 4738 y(of)18 b(the)h(trace)f(b)n(uf)n(fer)g(are)g(parsed)g(into)h(frames,)f(where)g (one)g(frame)g(corresponds)e(to)j(a)g(simulation)515 4838 y(c)o(ycle.)515 4962 y(Here')-5 b(s)20 b(an)g(e)o(xample)f(of)h(a) h(trace)f(output:)p Black 1905 5208 a(38)p Black eop end %%Page: 39 40 TeXDict begin 39 39 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.39) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(6.)45 b(TRA)m(CE)21 b(AND)g(LOG:)f(WHA)-9 b(T)21 b(HAS)f(HAPPEN?)762 b Fm(39)p Black Black Black 722 515 a Fh(gpsim>)41 b(trace)722 615 y(0x00000000000026F)o(6)c (p18f452)k(0x001C)g(0x1003)g(iorwf)85 b(reg3,w,0)853 715 y(Read:)41 b(0x00)h(from)g(reg3\(0x0003\))809 814 y(Wrote:)f(0xE7)h(to)h(W\(0x0FE8\))d(was)i(0xE7)809 914 y(Wrote:)f(0x18)h(to)h(status\(0x0FD8\))38 b(was)k(0x18)722 1013 y(0x00000000000026F)o(7)37 b(p18f452)k(0x001E)g(0xE1F4)g(bnz)173 b($-0x16)85 b(;\(0x8\))722 1113 y(0x00000000000026F)o(8)37 b(p18f452)k(0x0008)g(0x3E00)g(incfsz)g(reg,f,0)853 1213 y(Read:)g(0xE4)h(from)g(reg\(0x0000\))809 1312 y(Wrote:)f(0xE5)h(to)h (reg\(0x0000\))c(was)j(0xE4)722 1412 y(0x00000000000026F)o(9)37 b(p18f452)k(0x000A)g(0xD004)g(bra)173 b($+0xa)129 b(;\(0x00014\))39 b(0x00000000000026)o(FA)e(p18f452)j(0x0014)h(0x0004)g(clrwdt)722 1512 y(0x00000000000026F)o(B)c(p18f452)k(0x0016)g(0x5000)g(movf)129 b(reg,w,0)853 1611 y(Read:)41 b(0xE5)h(from)g(reg\(0x0000\))809 1711 y(Wrote:)f(0xE5)h(to)h(W\(0x0FE8\))d(was)i(0xE7)809 1810 y(Wrote:)f(0x18)h(to)h(status\(0x0FD8\))38 b(was)k(0x18)722 1910 y(0x00000000000026F)o(C)37 b(p18f452)k(0x0018)g(0x1001)g(iorwf)85 b(reg1,w,0)853 2010 y(Read:)41 b(0x03)h(from)g(reg1\(0x0001\))809 2109 y(Wrote:)f(0xE7)h(to)h(W\(0x0FE8\))d(was)i(0xE5)809 2209 y(Wrote:)f(0x18)h(to)h(status\(0x0FD8\))38 b(was)k(0x18)515 2408 y Fm(Each)29 b(trace)h(frame)f(be)o(gins)g(with)h(a)g(ne)n(w)g (simulation)f(c)o(ycle.)53 b(T)-7 b(ypically)29 b(this)i(will)f (include)f(a)515 2508 y(simulated)19 b(instruction.)24 b(Here')-5 b(s)20 b(each)g(of)g(the)g(\002elds:)p Black Black 772 2785 a Fh(64-bit)41 b(simulation)e(cycle)98 b(processor)183 b(PC)j(opcode)162 b(instruction)881 2885 y(0x00000000000026)o(F6)246 b(p18f452)140 b(0x001C)97 b(0x1003)g(iorwf)41 b(reg3,w,0)515 3079 y Fm(Other)27 b(e)n(v)o(ents)g(that)h(occur)e(during)g(the)i(trace)f(frame)g(are)h (indented.)46 b(T)-7 b(ypically)26 b(these)i(will)h(be)515 3178 y(re)o(gister)24 b(read)g(or)g(write)h(traces.)39 b(The)24 b(read)h(traces)f(sho)n(w)h(the)g(v)n(alue)f(read.)38 b(Write)25 b(traces)g(sho)n(w)515 3278 y(the)20 b(v)n(alue)f(written)h (and)g(the)g(v)n(alue)g(that)g(w)o(as)h(pre)n(viously)d(in)j(the)f(re)o (gister)-5 b(.)515 3581 y SDict begin H.S end 515 3581 a 515 3581 a SDict begin 18 H.A end 515 3581 a 515 3581 a SDict begin [/View [/XYZ H.V]/Dest (section*.26) cvn /DEST pdfmark end 515 3581 a Fj(Sa)m(ving)30 b(T)-9 b(race)30 b(to)f(a)h(\002le)515 3790 y Fm(The)d(trace)g(b)n(uf)n(fer)f(may)h (contain)f(thousands)g(of)h(entries)h(making)e(it)i(dif)n(\002cult)e (to)i(search.)46 b(The)515 3889 y(trace)20 b(sa)n(v)o(e)g(feature)f (will)i(allo)n(w)f(the)h(trace)f(b)n(uf)n(fer)f(to)h(be)g(written)g(to) g(a)h(\002le.)p Black Black 722 4088 a Fh(gpsim>)41 b(trace)h(save)g (mytrace.log)515 4288 y Fm(The)22 b(entire)h(contents)f(of)h(the)f (trace)h(b)n(uf)n(fer)f(are)g(decoded)g(and)g(written)h(to)g(the)f (\002le.)34 b(The)23 b(format)515 4387 y(of)d(the)g(trace)g(is)h(the)f (same)h(as)g(it)f(is)i(when)d(displayed)g(at)i(the)f(command)e(line.) 515 4690 y SDict begin H.S end 515 4690 a 515 4690 a SDict begin 18 H.A end 515 4690 a 515 4690 a SDict begin [/View [/XYZ H.V]/Dest (section*.27) cvn /DEST pdfmark end 515 4690 a Fj(Raw)30 b(T)-9 b(races)515 4899 y Fm(The)24 b Fg(r)o(aw)h Fm(trace)f(b)n(uf)n(fer)f(is)i(the)g(trace)f(b)n(uf)n (fer)f(displayed)g(in)h(a)h(minimally)e(decoded)g(form.)36 b(This)515 4998 y(is)28 b(primarily)e(used)h(for)g(gpsim)g(de)n(v)o (elopment.)44 b(When)27 b(sa)n(v)o(ed)g(to)h(a)g(\002le,)i(the)d(ra)o (w)g(trace)h(is)g(not)p Black Black eop end %%Page: 40 41 TeXDict begin 40 40 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.40) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(6.)45 b(TRA)m(CE)21 b(AND)g(LOG:)f(WHA)-9 b(T)21 b(HAS)f(HAPPEN?)762 b Fm(40)p Black 515 515 a(decoded)20 b(at)j(all.)31 b(In)22 b(addition,)f(the)h(processor')-5 b(s)21 b(state)i(is)g(written)f(to)g(the)g(\002le.)31 b(Thus)22 b(third)f(party)515 615 y(tools)f(can)g(be)g(written)g(to)g (create)g(custom)g(trace)g(reports)2167 615 y SDict begin H.S end 2167 615 a -30 x Ff(1)2200 615 y SDict begin 12 H.L end 2200 615 a 2200 615 a SDict begin [/Subtype /Link/Dest (Hfootnote.5) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 2200 615 a Fm(.)p Black 515 4840 1146 4 v 605 4895 a Fe(1)634 4919 y SDict begin H.S end 634 4919 a 634 4919 a SDict begin H.R end 634 4919 a 634 4919 a SDict begin [/View [/XYZ H.V]/Dest (Hfootnote.5) cvn /DEST pdfmark end 634 4919 a Fd(FIXME)c(-)g(The)h(dynamically)i(created)g(trace)f(type)g (information)h(needs)e(to)g(be)g(written)h(to)f(this)g(\002le)g(too.)k (W)m(ithout)d(it,)515 4998 y(it)f(is)g(dif)n(\002cult)i(to)f(tell)g (what)g(each)g(traced)h(item)f(is.)p Black Black Black eop end %%Page: 41 42 TeXDict begin 41 41 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.41) cvn /DEST pdfmark end 506 174 a Black Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (chapter.7) cvn /DEST pdfmark end 515 432 a 727 x Fk(Chapter)44 b(7)515 1595 y Fo(Simulating)53 b(the)e(Real)h(W)-15 b(orld:)515 1844 y(Stimuli)515 2297 y Fm(Stimuli)23 b(are)g(e)o(xtremely)f(useful,)h(if)g(not)g(necessary) -5 b(,)23 b(for)f(simulations.)34 b(The)o(y)22 b(pro)o(vide)f(a)j (means)515 2396 y(for)19 b(simulating)h(interactions)f(with)h(the)g (real)h(w)o(orld.)515 2517 y(The)30 b(gpsim)f(stimuli)i(capability)e (is)i(designed)e(to)h(be)g(accurate,)i(ef)n(\002cient)d(and)h(\003e)o (xible.)54 b(The)515 2616 y(models)21 b(for)g(the)g(PIC')-5 b(s)23 b(I/O)f(pins)f(mimic)h(the)f(real)h(de)n(vices.)29 b(F)o(or)21 b(e)o(xample,)f(the)i(open)f(collector)515 2716 y(output)g(on)h(port)g(A)i(of)e(a)h(PIC16C84)f(can)h(only)e(dri)n (v)o(e)h(lo)n(w)-5 b(.)32 b(Multiple)22 b(I/O)h(pins)g(may)f(be)h(tied) f(to)515 2816 y(one)e(another)f(so)j(that)f(the)f(open)g(collector)g (on)h(port)f(A)h(can)g(get)g(a)g(pull)g(up)f(resistor)h(from)f(port)g (B.)515 2915 y(The)i(o)o(v)o(erhead)e(for)h(stimuli)i(only)f(occurs)f (when)h(a)h(stimulus)f(changes)g(states.)32 b(In)23 b(other)e(w)o (ords,)515 3015 y(stimuli)f(are)g(not)g(polled)f(to)i(determine)e (their)h(state.)515 3135 y(Analog)e(stimuli)i(are)f(also)g(a)n(v)n (ailable.)24 b(It')-5 b(s)20 b(possible)f(to)h(create)f(v)n(oltage)f (references)g(and)h(sources)515 3235 y(to)i(simulate)g(almost)h(an)o(y) e(kind)h(of)g(real)g(w)o(orld)g(thing.)27 b(F)o(or)21 b(e)o(xample,)f(it')-5 b(s)23 b(possible)e(to)g(combine)515 3335 y(tw)o(o)f(analog)f(stimuli)i(together)e(to)h(create)g(signals)g (lik)o(e)h(DTMF)f(tones.)515 3455 y(Note,)e(ho)n(we)n(v)o(er)m(,)e (that)i(gpsim)g(does)g(not)g(attempt)g(to)g(be)g(a)h(full)f(electronic) f(circuit)h(simulator)m(,)f(and)515 3555 y(certain)24 b(approximations)d(made)j(for)g(ef)n(\002cienc)o(y)f(will)j(cause)e (inaccurac)o(y)e(in)j(comple)o(x)e(simula-)515 3654 y(tion)d(en)m (vironments.)515 3782 y SDict begin H.S end 515 3782 a 515 3782 a SDict begin 12 H.A end 515 3782 a 515 3782 a SDict begin [/View [/XYZ H.V]/Dest (section.7.1) cvn /DEST pdfmark end 515 3782 a 170 x Fj(7.1)119 b(Ho)o(w)30 b(They)f(W)-9 b(ork)515 4158 y Fm(In)27 b(the)g(simplest)h(case,)h(a)f (stimulus)f(acts)h(a)g(source)e(for)h(an)g(I/O)h(pin)f(on)g(a)g(PIC.)h (F)o(or)f(e)o(xample,)515 4258 y(you)e(may)g(w)o(ant)h(to)g(simulate)g (a)g(clock)f(and)g(measure)g(its)i(period)e(using)g(TMR0.)42 b(In)25 b(this)h(case,)515 4358 y(the)20 b(stimulus)h(is)g(the)g (source)f(and)g(the)g(TMR0)h(input)e(pin)i(on)f(the)g(pic)h(is)g(the)g (load.)k(In)20 b(gpsim)g(you)515 4457 y(w)o(ould)d(create)h(a)h (stimulus)f(for)g(the)g(clock)g(using)g(the)g(stimulus)g(command)e(and) i(connect)f(it)i(to)g(the)515 4557 y(I/O)h(pin)g(using)g(the)g(node)f (command.)515 4677 y(In)25 b(general,)f(you)h(can)g(ha)n(v)o(e)f(se)n (v)o(eral)g(')-5 b(sources')25 b(and)f(se)n(v)o(eral)h(')o(loads')f (that)h(are)g(interconnected)515 4777 y(with)30 b(nodes)888 4777 y SDict begin H.S end 888 4777 a -30 x Ff(1)921 4777 y SDict begin 12 H.L end 921 4777 a 921 4777 a SDict begin [/Subtype /Link/Dest (Hfootnote.6) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 921 4777 a Fm(.)55 b(A)31 b(good)e(analogy)f(is)j(a)f(spice)h (circuit.)54 b(The)29 b(spice)i(netlist)f(corresponds)e(to)i(a)p Black 515 4840 1146 4 v 605 4896 a Fe(1)634 4920 y SDict begin H.S end 634 4920 a 634 4920 a SDict begin H.R end 634 4920 a 634 4920 a SDict begin [/View [/XYZ H.V]/Dest (Hfootnote.6) cvn /DEST pdfmark end 634 4920 a Fd(Although,)25 b(gpsim)d(is)f(currently)k(limited)e(to)g('one-port')h(de)n(vices.)37 b(In)22 b(other)h(w)o(ords,)g(it)g(is)e(assumed)i(that)g(ground)515 4998 y(serv)o(es)17 b(as)g(a)g(common)g(reference)j(for)d(the)h (sources)g(and)f(the)h(loads.)p Black Black 1905 5208 a Fm(41)p Black eop end %%Page: 42 43 TeXDict begin 42 42 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.42) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(7.)45 b(SIMULA)-9 b(TING)20 b(THE)g(REAL)g(W)o(ORLD:) i(STIMULI)640 b Fm(42)p Black 515 515 a(node-list)21 b(in)g(gpsim)g(and)h(the)f(spice)h(elements)f(correspond)e(to)j(the)g (stimuli)g(sources)f(and)g(loads.)515 615 y(This)d(general)f(approach)e (mak)o(es)j(it)h(possible)e(to)h(create)g(a)g(v)n(ariety)f(of)h (simulation)f(en)m(vironments.)515 715 y(Here')-5 b(s)20 b(a)h(list)g(of)f(dif)n(ferent)f(w)o(ays)h(in)g(which)g(stimuli)h(may)e (be)h(connected:)515 791 y SDict begin H.S end 515 791 a 515 791 a SDict begin 12 H.A end 515 791 a 515 791 a SDict begin [/View [/XYZ H.V]/Dest (Item.1) cvn /DEST pdfmark end 515 791 a Black 619 906 a Fm(1.)p Black 40 w(Stimulus)g(connected)f(to)h(one)g(I/O)g(pin)515 957 y SDict begin H.S end 515 957 a 515 957 a SDict begin 12 H.A end 515 957 a 515 957 a SDict begin [/View [/XYZ H.V]/Dest (Item.2) cvn /DEST pdfmark end 515 957 a Black 619 1072 a Fm(2.)p Black 40 w(Stimulus)g(connected)f(to)h(se)n(v)o (eral)g(I/O)g(pins)515 1123 y SDict begin H.S end 515 1123 a 515 1123 a SDict begin 12 H.A end 515 1123 a 515 1123 a SDict begin [/View [/XYZ H.V]/Dest (Item.3) cvn /DEST pdfmark end 515 1123 a Black 619 1238 a Fm(3.)p Black 40 w(Se)n(v)o(eral)g(stimuli)g(connected)e(to)j(one)e(I/O)i(pin) 515 1289 y SDict begin H.S end 515 1289 a 515 1289 a SDict begin 12 H.A end 515 1289 a 515 1289 a SDict begin [/View [/XYZ H.V]/Dest (Item.4) cvn /DEST pdfmark end 515 1289 a Black 619 1404 a Fm(4.)p Black 40 w(Se)n(v)o(eral)f (stimuli)g(connected)e(to)j(se)n(v)o(eral)e(I/O)i(pins)515 1455 y SDict begin H.S end 515 1455 a 515 1455 a SDict begin 12 H.A end 515 1455 a 515 1455 a SDict begin [/View [/XYZ H.V]/Dest (Item.5) cvn /DEST pdfmark end 515 1455 a Black 619 1570 a Fm(5.)p Black 40 w(I/O)g(pins)f(connected)e(to) j(I/O)f(pins)515 1761 y(The)g(general)f(technique)f(for)i(implementing) e(stimuli)i(is)h(as)g(follo)n(ws:)515 1837 y SDict begin H.S end 515 1837 a 515 1837 a SDict begin 12 H.A end 515 1837 a 515 1837 a SDict begin [/View [/XYZ H.V]/Dest (Item.6) cvn /DEST pdfmark end 515 1837 a Black 619 1952 a Fm(1.)p Black 40 w(De\002ne)f(the)h(stimulus)f(or)g(stimuli.)515 1986 y SDict begin H.S end 515 1986 a 515 1986 a SDict begin 12 H.A end 515 1986 a 515 1986 a SDict begin [/View [/XYZ H.V]/Dest (Item.7) cvn /DEST pdfmark end 515 1986 a Black 619 2118 a Fm(2.)p Black 40 w(De\002ne)g(a)h(node.)515 2152 y SDict begin H.S end 515 2152 a 515 2152 a SDict begin 12 H.A end 515 2152 a 515 2152 a SDict begin [/View [/XYZ H.V]/Dest (Item.8) cvn /DEST pdfmark end 515 2152 a Black 619 2284 a Fm(3.)p Black 40 w(Attach)f(the)h(stimuli)f(to) g(the)h(node.)515 2475 y(More)e(often)h(than)f(not,)h(the)g(stimulus)g (de\002nition)f(will)i(reside)f(in)h(a)f(\002le.)515 2608 y SDict begin H.S end 515 2608 a 515 2608 a SDict begin 12 H.A end 515 2608 a 515 2608 a SDict begin [/View [/XYZ H.V]/Dest (subsection.7.1.1) cvn /DEST pdfmark end 515 2608 a 129 x Fi(7.1.1)99 b(Contention)26 b(among)e(stimuli)515 2918 y Fm(One)e(of)h(the)g(problems)e(with)i(this)h(nodal)d(approach)g (to)i(modeling)e(stimuli)i(is)h(that)f(it')-5 b(s)24 b(possible)515 3017 y(for)d(contention)f(to)i(e)o(xist.)30 b(F)o(or)22 b(e)o(xample,)f(if)h(tw)o(o)g(I/O)g(pins)g(are)g(connected) e(to)i(one)g(another)e(and)515 3117 y(dri)n(ving)g(in)j(the)f(opposite) g(directions,)f(there)h(will)h(be)f(contention.)30 b(gpsim)22 b(resolv)o(es)f(contention)515 3217 y(with)c(attrib)n(ute)g(summing.)23 b(Each)17 b(stimulus)g(-)h(e)n(v)o(en)e(if)i(it')-5 b(s)18 b(an)g(input)e(-)i(has)f(an)h(ef)n(fect)e(on)h(the)h(node.)515 3316 y(This)24 b(ef)n(fect)g(is)h(characterised)e(by)g(a)i(v)n(oltage)f (and)f(an)h(impedance.)35 b(When)24 b(a)h(node)e(is)i(updated,)515 3416 y(gpsim)c(performs)f(a)i(The)n(v)o(enin)e(v)n(oltage)h(summing)f (of)h(all)i(the)e(stimuli)h(together)-5 b(.)29 b(The)21 b(resultant)515 3516 y(v)n(oltage)e(is)i(then)f(propagated)d(to)k(all)f (connected)f(stimuli)h(as)h(the)f(current)f(state)i(of)f(the)g(node.) 515 3640 y(F)o(or)j(e)o(xample,)h(in)g(the)g(port)f(A)i(open)e (collector)g(/)i(port)e(B)i(weak)f(pull-up)e(connection)g(e)o(xample,) 515 3740 y(gpsim)i(assigns)g(a)h(v)n(oltage)f(of)g(5V)g(with)g(an)h (impedance)d(of)i(20k)o(ohms)f(to)h(the)g(pull)g(up)g(resistor)m(,)515 3839 y(and)19 b(a)i(v)n(oltage)e(of)h(0V)g(with)g(an)g(impedance)e(of)h (150ohms)f(to)j(the)f(open)e(collector)h(if)i(it)f(is)h(acti)n(v)o(e,) 515 3939 y(or)d(100Mohms)e(if)i(it')-5 b(s)19 b(not)f(dri)n(ving.)23 b(The)17 b(The)n(v)o(enin)f(sum)i(will)h(be)f(roughly)e(0.05V)h(if)i (the)f(output)515 4039 y(is)j(dri)n(ving,)d(or)i(5V)g(otherwise.)25 b(Capaciti)n(v)o(e)19 b(ef)n(fects)h(are)g(not)g(currently)e (supported.)515 4187 y SDict begin H.S end 515 4187 a 515 4187 a SDict begin 12 H.A end 515 4187 a 515 4187 a SDict begin [/View [/XYZ H.V]/Dest (section.7.2) cvn /DEST pdfmark end 515 4187 a 157 x Fj(7.2)119 b(I/O)29 b(Pins)515 4554 y Fm(gpsim)23 b(models)g(I/O)h(pins)g(as)h(stimuli.)36 b(Thus)24 b(an)o(ywhere)d(a)k(stimulus)f(is)g(used,)h(an)e(I/O)i(pin)e (may)515 4654 y(be)i(substituted.)38 b(F)o(or)24 b(e)o(xample,)h(you)f (may)g(w)o(ant)h(to)g(tie)h(tw)o(o)f(I/O)g(pins)g(to)g(one)f(another;)i (lik)o(e)f(a)515 4753 y(port)d(B)h(pull)g(up)f(resistor)g(to)h(a)g (port)f(A)h(open)f(collector)-5 b(.)32 b(gpsim)22 b(automatically)f (creates)i(the)f(I/O)515 4853 y(pin)c(stimuli)g(whene)n(v)o(er)e(a)j (processor)d(is)k(created.)j(All)c(you)e(need)h(to)g(do)g(is)h(to)f (specify)f(a)i(node)e(and)515 4953 y(then)24 b(attach)g(the)g(stimuli)h (to)f(it.)39 b(The)24 b(names)g(of)g(these)g(stimuli)h(are)f(formed)f (by)h(concatenating)p Black Black eop end %%Page: 43 44 TeXDict begin 43 43 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.43) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(7.)45 b(SIMULA)-9 b(TING)20 b(THE)g(REAL)g(W)o(ORLD:) i(STIMULI)640 b Fm(43)p Black 515 515 a(the)19 b(port)g(name)g(with)g (the)h(bit)f(position)g(of)g(the)h(I/O)f(pin.)25 b(F)o(or)19 b(e)o(xample,)f(bit)h(3)h(in)f(port)g(B)h(is)h(called)515 615 y(portb3.)515 738 y(Here')-5 b(s)20 b(a)h(list)g(of)f(the)g(types)g (of)g(I/O)h(pin)e(stimuli)i(that)f(are)g(supported:)p Black Black 750 937 2394 4 v 748 1037 4 100 v 1000 1007 a(I/O)g(Pin)h(T)-7 b(ype)p 1675 1037 V 835 w(Function)p 3142 1037 V 750 1040 2394 4 v 750 1057 V 748 1156 4 100 v 959 1127 a(INPUT_ONL)f(Y)p 1675 1156 V 402 w(Only)20 b(accepts)g(input)f(\(lik)o(e)i(MCLR\))p 3142 1156 V 750 1160 2394 4 v 748 1259 4 100 v 874 1230 a(BI_DIRECTION)m(AL)p 1675 1259 V 172 w(Can)f(be)g(a)h(source)e(or)h(a)h(load)f(\(most)f(I/O) i(pins\))p 3142 1259 V 750 1263 2394 4 v 748 1362 4 100 v 800 1332 a(BI_DIRECTION)m(AL_PU)p 1675 1362 V 294 w(PU=Pullup)f (resistor)g(\(POR)-5 b(TB\))p 3142 1362 V 750 1366 2394 4 v 748 1465 4 100 v 841 1435 a(OPEN_COLLECT)o(OR)p 1675 1465 V 267 w(Can)20 b(only)g(dri)n(v)o(e)f(lo)n(w)h(\(RA4)g(on)g(c84\)) p 3142 1465 V 750 1469 2394 4 v 515 1703 a(There)g(is)j(no)e(special)g (pin)g(type)g(for)g(analog)f(I/O)i(pins.)29 b(All)22 b(pic)f(analog)f(inputs)h(are)h(multiple)o(x)o(ed)515 1803 y(with)i(digital)g(inputs.)37 b(The)24 b(I/O)h(pin)f(de\002nition) f(will)i(al)o(w)o(ays)g(be)f(for)g(the)g(digital)g(input.)37 b(gpsim)515 1902 y(automatically)18 b(kno)n(ws)i(when)f(I/O)i(pin)f(is) h(analog)e(input.)515 2050 y SDict begin H.S end 515 2050 a 515 2050 a SDict begin 12 H.A end 515 2050 a 515 2050 a SDict begin [/View [/XYZ H.V]/Dest (section.7.3) cvn /DEST pdfmark end 515 2050 a 154 x Fj(7.3)119 b(Asynchr)n(onous)30 b(Stimuli)515 2413 y Fm(Asynchronous)19 b(stimuli)k(are)g(analog)e(or)h (digital)h(stimuli)f(that)h(can)f(change)g(states)h(at)g(an)o(y)f(gi)n (v)o(en)515 2513 y(instant)32 b(\(limited)g(to)g(the)h(resolution)e(of) h(the)g(c)o(ycle)g(counter\).)59 b(The)o(y)31 b(can)i(be)f(de\002ned)f (to)i(be)515 2613 y(repetiti)n(v)o(e)19 b(too.)p Black Black 973 2812 1949 4 v 971 2912 4 100 v 1050 2882 a(parameter)p 1458 2912 V 668 w(function)p 2919 2912 V 973 2915 1949 4 v 973 2932 V 971 3031 4 100 v 1037 3001 a(start_c)o(ycle)p 1458 3031 V 113 w(The)h(#)g(of)g(c)o(ycles)g(before)e(the)j(stimulus)f (starts)p 2919 3031 V 973 3035 1949 4 v 971 3134 4 100 v 1086 3104 a(c)o(ycles[])p 1458 3134 V 494 w(An)g(array)f(of)h(c)o (ycle)g(#')-5 b(s)p 2919 3134 V 973 3137 1949 4 v 971 3237 4 100 v 1120 3207 a(data[])p 1458 3237 V 456 w(Stimulus)20 b(state)h(for)f(a)h(c)o(ycle)p 2919 3237 V 973 3240 1949 4 v 971 3340 4 100 v 1110 3310 a(period)p 1458 3340 V 367 w(The)f(#)g(of)g(c)o(ycles)g(for)f(one)h(period)p 2919 3340 V 973 3343 1949 4 v 971 3443 4 100 v 1023 3413 a(initial_state)p 1458 3443 V 277 w(The)g(initial)g(state)h(before)e (data[0])p 2919 3443 V 973 3446 1949 4 v 515 3681 a(When)30 b(the)g(stimulus)h(is)g(\002rst)g(initialized,)i(it)e(will)g(be)f(dri)n (v)o(en)f(to)h(the)h('initial)f(state')h(and)f(will)515 3780 y(remain)15 b(there)h(until)g(the)h(cpu')-5 b(s)16 b(instruction)f(c)o(ycle)h(counter)f(matches)h(the)h(speci\002ed)f(')-5 b(start')16 b(c)o(ycle.)515 3880 y(After)32 b(that,)j(the)d(tw)o(o)h (arrays)f('c)o(ycles[]')e(and)i(')l(data[]')f(de\002ne)g(the)i (stimulus')f(outputs.)60 b(The)515 3980 y(size)25 b(of)g(the)g(arrays)f (are)h(the)g(same)g(and)f(correspond)f(to)i(the)g(number)e(of)h(e)n(v)o (ents)h(that)g(are)g(to)g(be)515 4079 y(created.)41 b(So)26 b(the)f(e)n(v)o(ent)g(number)m(,)g(if)h(you)f(will,)i(serv)o(es)f(as)g (the)g(inde)o(x)f(into)g(these)h(arrays.)41 b(The)515 4179 y('c)o(ycles[]')19 b(array)h(de\002ne)g(when)g(the)h(e)n(v)o(ents) f(occur)g(while)h(the)f(')l(data[]')f(array)h(de\002nes)h(the)g(states) 515 4278 y(the)26 b(stimulus)g(will)i(enter)-5 b(.)43 b(The)26 b('c)o(ycles[]')f(are)h(measured)f(with)i(respect)f(to)g(the)h (')-5 b(start')26 b(c)o(ycle.)515 4378 y(The)d(asynchronous)e(stimulus) j(can)f(be)h(made)f(periodic)g(by)g(specifying)f(the)i(number)e(of)i(c) o(ycles)515 4478 y(in)c(the)g('period')e(parameter)-5 b(.)515 4601 y(Here')g(s)20 b(an)g(e)o(xample)f(that)h(generates)g (three)f(pulses)i(and)e(then)h(repeats:)p Black Black 722 4899 a Fh(stimulus)40 b(asynchronous_stim)o(ul)o(us)d(#)43 b(or)g(we)g(could)e(have)h(used)g(asy)722 4998 y(#)h(The)g(initial)d (state)i(AND)g(the)g(state)g(the)g(stimulus)e(is)j(when)p Black Black eop end %%Page: 44 45 TeXDict begin 44 44 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.44) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(7.)45 b(SIMULA)-9 b(TING)20 b(THE)g(REAL)g(W)o(ORLD:) i(STIMULI)640 b Fm(44)p Black 722 515 a Fh(#)43 b(it)g(rolls)f(over)722 615 y(initial_state)c(1)722 715 y(#)43 b(all)g(times)e(are)i(with)e (respect)g(to)i(the)f(cpu's)f(cycle)h(counter)722 814 y(start_cycle)d(100)722 914 y(#)k(the)g(asynchronous)38 b(stimulus)i(will)i(roll)g(over)g(in)h('period')722 1013 y(#)g(cycles.)e(Delete)g(this)h(line)g(if)h(you)f(don't)f(want)h(a)h (roll)f(over.)722 1113 y(period)f(5000)722 1213 y(#)i(Now)g(the)f (cycles)f(at)i(which)e(stimulus)f(changes)h(states)g(are)722 1312 y(#)i(specified.)d(The)i(initial)f(cycle)g(was)h(specified)e (above.)h(So)722 1412 y(#)i(the)g(first)e(cycle)h(specified)d(below)j (will)g(toggle)f(this)h(state.)722 1512 y(#)h(In)g(this)f(example,)e (the)j(stimulus)d(will)i(start)f(high.)722 1611 y(#)i(At)g(cycle)f(100) g(the)g(stimulus)e('begins'.)g(However)h(nothing)f(happens)722 1711 y(#)j(until)f(cycle)f(200+100.)722 1810 y({)i(200,)f(0,)809 1910 y(300,)g(1,)809 2010 y(400,)g(0,)809 2109 y(600,)g(1,)809 2209 y(1000,)g(0,)809 2309 y(3000,)g(1)h(})722 2408 y(#)g(Give)f(the)h (stimulus)d(a)j(name:)722 2508 y(name)f(asy_test)722 2607 y(#)h(Finally,)e(tell)h(the)g(command)e(line)i(interface)e(that)i (we're)f(done)722 2707 y(#)i(with)f(the)h(stimulus)722 2807 y(end)515 2928 y SDict begin H.S end 515 2928 a 515 2928 a SDict begin 12 H.A end 515 2928 a 515 2928 a SDict begin [/View [/XYZ H.V]/Dest (subsection.7.3.1) cvn /DEST pdfmark end 515 2928 a 141 x Fi(7.3.1)99 b(Analog)24 b(Asynchr)n(onous)i(Stimuli)515 3250 y Fm(Analog)j(Asynchronous)f (Stimuli)i(are)h(identical)f(to)g(Synchronous)e(Stimuli)j(e)o(xcept)e (the)i(data)515 3349 y(points)19 b(are)i(\003oating)e(point)h(numbers.) 515 3498 y SDict begin H.S end 515 3498 a 515 3498 a SDict begin 12 H.A end 515 3498 a 515 3498 a SDict begin [/View [/XYZ H.V]/Dest (section.7.4) cvn /DEST pdfmark end 515 3498 a 157 x Fj(7.4)119 b(Extended)31 b(Stimuli)515 3865 y Fm(Discuss)j(the)f(e)o(xtended)f(stimuli)h(in)h(the)f(modules/)f (directory)-5 b(.)62 b(In)33 b(particular)m(,)i(describe)e(the)515 3965 y Fg(PulseGen)c Fm(module)g(and)g(ho)n(w)g(it)i(can)f(complete)f (replace)g(the)h(asynchronous)d(stimuli.)54 b(Also)515 4064 y(describe)19 b(the)h Fg(PullUp)f Fm(and)h Fg(PullDown)f Fm(modules)g(and)g(ho)n(w)g(the)o(y)h(can)f(be)h(manipulated)e(into)i (be-)515 4164 y(ing)e(general)f(purpose)g(DC)i(v)n(oltage)f(sources)g (\(FIXME,)f(w)o(ould)h(it)h(mak)o(e)f(sense)h(to)f(rename)f(these)515 4264 y(modules?\).)515 4409 y SDict begin H.S end 515 4409 a 515 4409 a SDict begin 12 H.A end 515 4409 a 515 4409 a SDict begin [/View [/XYZ H.V]/Dest (section.7.5) cvn /DEST pdfmark end 515 4409 a 160 x Fj(7.5)119 b(Limitations)29 b(of)g(the)i(Simulus)f(Mechanism)515 4779 y Fm(The)21 b(simulation)g(of)g(e)o(xternal)g(de)n(vices)g(using)g(gpsim)g(stimuli) h(and)f(nodes)g(is)i(intended)d(to)i(assist)515 4879 y(in)g(PIC)h(softw)o(are)e(deb)n(ugging,)f(not)i(electronic)f(circuit)h (design.)29 b(As)23 b(such)f(it)h(tak)o(es)f(a)h(simpli\002ed)515 4978 y(approach)18 b(to)i(certain)g(things.)p Black Black eop end %%Page: 45 46 TeXDict begin 45 45 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.45) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(7.)45 b(SIMULA)-9 b(TING)20 b(THE)g(REAL)g(W)o(ORLD:) i(STIMULI)640 b Fm(45)p Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (subsection.7.5.1) cvn /DEST pdfmark end 515 432 a 83 x Fi(7.5.1)99 b(Pr)n(opagation)25 b(Delays)515 696 y Fm(gpsim)e(mak)o(es)h(no)g (attempt)f(to)h(simulate)g(propagation)d(delays)i(in)i(the)e(circuit.) 36 b(Usually)24 b(this)h(is)515 795 y(not)f(a)i(problem.)38 b(Ho)n(we)n(v)o(er)m(,)24 b(when)g(using)h(modules)2084 796 y SDict begin H.S end 2084 796 a Black -1 x Fm(8)p Black 2124 739 a SDict begin H.R end 2124 739 a 2124 795 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (chapter.8) cvn H.B /ANN pdfmark end 2124 795 a 25 w Fm(to)h(e)o(xpand)d(gpsim')-5 b(s)25 b(en)m(vironment,)e(it)j(is)515 895 y(possible)17 b(to)i(create)e(situations)h(where)g(it)g(matters.)25 b(F)o(or)17 b(e)o(xample,)g(daisy-chaining)e(tw)o(o)k(or)e(more)515 995 y(shift)j(re)o(gisters)f(with)h(a)g(shared)f(clock)g(relies)h(on)f (the)h(propagation)c(delay)j(of)g(the)h(\002rst)g(re)o(gister)f(to)515 1094 y(ensure)j(the)h(second)f(shifts)h(the)g(correct)f(data)g(in.)33 b(Since)23 b(gpsim)g(does)f(not)h(simulate)f(this)i(delay)-5 b(,)515 1194 y(the)20 b(results)g(may)g(be)g(wrong)1351 1194 y SDict begin H.S end 1351 1194 a -30 x Ff(2)1384 1194 y SDict begin 12 H.L end 1384 1194 a 1384 1194 a SDict begin [/Subtype /Link/Dest (Hfootnote.7) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1384 1194 a Fm(.)p Black 515 4919 1146 4 v 605 4974 a Fe(2)634 4998 y SDict begin H.S end 634 4998 a 634 4998 a SDict begin H.R end 634 4998 a 634 4998 a SDict begin [/View [/XYZ H.V]/Dest (Hfootnote.7) cvn /DEST pdfmark end 634 4998 a Fd(The)o(y)d(may)g(be)h(right,)f(it)h (depends)g(on)f(e)o(x)o(ecution)j(order)m(,)e(which)g(is)f(subtle.)p Black Black Black eop end %%Page: 46 47 TeXDict begin 46 46 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.46) cvn /DEST pdfmark end 506 174 a Black Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (chapter.8) cvn /DEST pdfmark end 515 432 a 730 x Fk(Chapter)44 b(8)515 1601 y Fo(Modules)515 2056 y Fm(gpsim)30 b(has)g(been)g(designed)f(to)h(deb)n(ug)g (microprocessors.)53 b(Ho)n(we)n(v)o(er)m(,)31 b(microprocessors)d(are) 515 2156 y(al)o(w)o(ays)h(a)h(part)e(of)h(a)h(system.)51 b(And)29 b(in)m(v)n(ariably)-5 b(,)28 b(the)h(b)n(ugs)g(one)f(often)h (encounters)e(are)i(those)515 2256 y(that)f(are)g(a)h(result)f(of)g (interf)o(acing)f(with)h(a)h(system.)49 b(Modules)27 b(pro)o(vide)g(users)h(with)g(a)h(w)o(ay)f(to)515 2355 y(e)o(xtend)18 b(gpsim)h(and)h(simulate)f(a)i(system.)k(F)o(or)19 b(e)o(xample,)f(the)i Fg(system)h Fm(may)e(be)h(a)g(processor)e(with) 515 2455 y(a)31 b(fe)n(w)f(pull)h(up)f(resistors)h(and)f(switches)h(or) f(it)i(may)e(be)h(a)g(processor)e(and)h(an)h(LCD)g(display)-5 b(.)515 2554 y(gpsim)23 b(pro)o(vides)g(a)i(fe)n(w)f(modules)f(that)h (one)g(may)g(use)g(either)g(for)f(deb)n(ugging)f(or)i(as)h(templates) 515 2654 y(for)19 b(creating)g(ne)n(w)h(modules.)515 2777 y(Note)d(that)h(gpsim')-5 b(s)18 b(modules)e(are)i(pro)o(vided)d (to)j(f)o(acilitate)g(deb)n(ugging)d(of)i(the)h(PIC)g(code,)f(not)h (the)515 2877 y(hardw)o(are.)34 b(gpsim)23 b(does)h(not)f(attempt)g(to) h(be)g(a)g(circuit)g(simulator)f(by)g(itself.)36 b(If)24 b(you)e(need)h(that)515 2977 y(functionality)-5 b(,)17 b(the)j(gpsim)g(core)g(can)g(be)g(embedded)e(into)i(third)f(party)h (simulators.)515 3100 y(Modules)28 b(reside)h(in)h(a)f(library)f(and)h (are)g(dynamically)f(loaded)g(with)h(the)h Fg(module)e Fm(command.)515 3200 y(All)f(modules)e(ha)n(v)o(e)h(I/O)h(pins)g(which) f(can)g(connect)f(to)i(other)f(modules)f(or)h(processors.)43 b(Most)515 3299 y(modules)20 b(pro)o(vide)e Fg(attrib)n(utes)k Fm(that)f(allo)n(w)f(the)h(user)g(to)g(control)f(a)h(module')-5 b(s)20 b(beha)n(vior)f(or)i(query)515 3399 y(its)i(internal)e(state.)31 b(F)o(or)21 b(e)o(xample,)g(the)h(USAR)-5 b(T)23 b(module)d(has)j (transmit)e(and)h(recei)n(v)o(e)f(baud)g(rate)515 3499 y(attrib)n(utes)f(that)g(may)g(be)g(con\002gured:)p Black Black 722 3700 a Fh(gpsim>)41 b(U1.txbaud)f(=)j(9600)129 b(#)43 b(set)g(the)f(transmit)e(rate)722 3799 y(gpsim>)h(U1.rxbaud)432 b(#)43 b(query)f(the)g(receiver)e(rate)722 3899 y(9600)515 4100 y Fm(The)20 b(symbol)f(command)f(can)i(be)g(used)g(to)g(query)f (all)i(attrib)n(utes)f(of)g(a)h(module.)p Black Black 722 4301 a Fh(gpsim>)41 b(symbol)g(U1.)217 b(#)43 b(note)f(the)g (period)722 4401 y(U1)h(=)g(USARTModule)722 4500 y(U1.console)d(=)j (false)722 4600 y(U1.crlf)e(=)i(true)722 4700 y(U1.loop)e(=)i(true)722 4799 y(U1.rx)f(=)h(0)722 4899 y(U1.rxbaud)d(=)j(9600)722 4998 y(U1.tx)f(=)h(0)p Black 1905 5208 a Fm(46)p Black eop end %%Page: 47 48 TeXDict begin 47 47 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.47) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(8.)45 b(MODULES)1872 b Fm(47)p Black 722 515 a Fh(U1.txbaud)40 b(=)j(9600)722 615 y(U1.xpos)e(=)i (72.0000000000000)o(0)722 715 y(U1.ypos)e(=)i(276.000000000000)o(0)515 922 y Fm(Modules)19 b(may)h(pro)o(vide)e(help)i(which)f(can)h(be)g (accessed)h(using)e(the)h(help)g(command:)p Black Black 722 1130 a Fh(gpsim>)41 b(help)h(U1)722 1229 y(USARTModule)722 1329 y(no)h(description)515 1536 y Fm(W)-7 b(ell,)28 b(the)e(USAR)-5 b(T)26 b(module)f(isn')o(t)g(the)h(best)g(e)o(xample)e (here!)42 b(Ho)n(we)n(v)o(er)m(,)25 b(a)h(better)f(e)o(xample)g(is)515 1636 y(one)19 b(of)h(the)g(USAR)-5 b(T)21 b(attrib)n(utes.)p Black Black 722 1844 a Fh(gpsim>)41 b(help)h(U1.txbaud)722 1943 y(9600)722 2043 y(USART)g(Module)f(Transmitter)e(baud)j(rate)515 2174 y SDict begin H.S end 515 2174 a 515 2174 a SDict begin 12 H.A end 515 2174 a 515 2174 a SDict begin [/View [/XYZ H.V]/Dest (section.8.1) cvn /DEST pdfmark end 515 2174 a 174 x Fj(8.1)119 b(gpsim)29 b(Modules)515 2558 y Fm(gpsim)16 b(pro)o(vides)f(a)i(library)e(of)h(useful)g(modules)g (for)g(simulation.)23 b(The)16 b(current)f(v)o(ersion)g(includes)515 2658 y(the)20 b(follo)n(wing)e(modules:)p 515 2713 2744 4 v 513 2812 4 100 v 1283 2812 V 3256 2812 V 515 2816 2744 4 v 515 2832 V 513 2932 4 100 v 716 2902 a(pushb)n(utton)p 1283 2932 V 3256 2932 V 515 2935 2744 4 v 513 3035 4 100 v 793 3005 a(pullup)p 1283 3035 V 592 w(A)j(resistor)f(connected)e (\(nominally\))g(to)i(Vdd)p 3256 3035 V 515 3038 2744 4 v 513 3138 4 100 v 744 3108 a(pulldo)n(wn)p 1283 3138 V 550 w(A)h(resistor)f(connected)e(\(nominally\))g(to)j(Vss)p 3256 3138 V 515 3141 2744 4 v 513 3241 4 100 v 819 3211 a(usart)p 1283 3241 V 516 w(A)f(serial)h(interf)o(ace)e(with)i(a)f(GUI) h(terminal)e(windo)n(w)p 3256 3241 V 515 3244 2744 4 v 513 3344 4 100 v 753 3314 a(pulse)o(gen)p 1283 3344 V 3256 3344 V 515 3347 2744 4 v 513 3447 4 100 v 606 3417 a(I2C-EEPR)m(OM2K)p 1283 3447 V 231 w(A)h(256)g(byte)f(I2C)i (serial)f(EEPR)m(OM)g(lik)o(e)h(the)f(24LC024.)p 3256 3447 V 515 3450 2744 4 v 513 3549 4 100 v 585 3520 a(I2C-EEPR)m(OM16K)p 1283 3549 V 224 w(A)g(2k)g(byte)g(I2C)g(serial)h(EEPR)m(OM)f(lik)o(e)g (the)g(24LC16B.)p 3256 3549 V 515 3553 2744 4 v 513 3652 4 100 v 565 3623 a(I2C-EEPR)m(OM256K)p 1283 3652 V 188 w(A)g(32k)g(byte)f(I2C)i(serial)f(EEPR)m(OM)g(lik)o(e)h(the)f(24LC256.) p 3256 3652 V 515 3656 2744 4 v 513 3755 4 100 v 791 3725 a(switch)p 1283 3755 V 544 w(Switch,)g(which)g(connects)f(tw)o(o)i (nodes)e(together)p 3256 3755 V 515 3759 2744 4 v 513 3858 4 100 v 819 3828 a(and2)p 1283 3858 V 866 w(2-input)g(logical)h (AND)g(gate)p 3256 3858 V 515 3862 2744 4 v 513 3961 4 100 v 844 3931 a(or2)p 1283 3961 V 924 w(2-input)f(logical)h(OR)h (gate)p 3256 3961 V 515 3965 2744 4 v 513 4064 4 100 v 823 4034 a(xor2)p 1283 4064 V 874 w(2-input)d(logical)i(XOR)h(gate)p 3256 4064 V 515 4068 2744 4 v 513 4167 4 100 v 847 4137 a(not)p 1283 4167 V 864 w(In)m(v)o(erter)d(\(logical)h(NO)m(T)h(gate\)) p 3256 4167 V 515 4170 2744 4 v 513 4270 4 100 v 653 4240 a(led_7se)o(gments)p 1283 4270 V 733 w(A)h(7-se)o(gment)d(LED)i (digit)p 3256 4270 V 515 4273 2744 4 v 513 4373 4 100 v 849 4343 a(led)p 1283 4373 V 383 w(A)h(single)f(pin)g(LED)g(which)g (can)g(be)g(acti)n(v)o(e)g(either)f(high)h(or)g(lo)n(w)p 3256 4373 V 515 4376 2744 4 v 513 4476 4 100 v 761 4446 a(TTL377)p 1283 4476 V 653 w(A)h(74xx377)d(style)i(8-bit)g(tristate)g (latch)p 3256 4476 V 515 4479 2744 4 v 513 4579 4 100 v 761 4549 a(TTL165)p 1283 4579 V 475 w(A)h(74xx165)d (parallel-in-serial-out)f(shift)j(re)o(gister)p 3256 4579 V 515 4582 2744 4 v 513 4682 4 100 v 761 4652 a(TTL595)p 1283 4682 V 475 w(A)h(74xx595)d(serial-in-parallel-out)f(shift)j(re)o (gister)p 3256 4682 V 515 4685 2744 4 v 513 4785 4 100 v 761 4755 a(Encoder)p 1283 4785 V 3256 4785 V 515 4788 2744 4 v Black Black eop end %%Page: 48 49 TeXDict begin 48 48 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.48) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(8.)45 b(MODULES)1872 b Fm(48)p Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (subsection.8.1.1) cvn /DEST pdfmark end 515 432 a 83 x Fi(8.1.1)99 b(USAR)l(T)515 696 y Fm(The)22 b(USAR)-5 b(T)23 b(module)e(is)i(a)g(full)f(duple)o(x)f(con\002gurable) f(USAR)-5 b(T)f(.)23 b(In)f(graphics)f(mode,)h(the)g(US-)515 795 y(AR)-5 b(T)21 b(will)g(display)f(its)i(output)d(in)i(a)g(console.) 26 b(In)20 b(addition,)f(the)i(console)f(will)h(accept)f(k)o(e)o (yboard)515 895 y(input.)515 1140 y SDict begin H.S end 515 1140 a 515 1140 a SDict begin 12 H.A end 515 1140 a 515 1140 a SDict begin [/View [/XYZ H.V]/Dest (section*.28) cvn /DEST pdfmark end 515 1140 a Fn(Attrib)n(utes)515 1320 y Fm(.tx)g(-)h(The)g Fg(.tx)g Fm(attrib)n(ute)f(is)i(the)f(USAR)-5 b(T)21 b(transmit)g(re)o(gister)-5 b(.)26 b(Data)21 b(written)f(to)h (this)g(attrib)n(ute)g(will)515 1420 y(initiate)26 b(a)h(transmission.) 42 b(The)25 b(USAR)-5 b(T)27 b(supports)e(a)i(transmit)f(FIFO,)g (making)f(it)i(possible)e(to)515 1520 y(stuf)n(f)20 b(se)n(v)o(eral)f (bytes)h(into)g(the)g(transmit)g(queue)f(while)h(the)h(program)d(under) g(test)k(is)f(paused.)515 1644 y(.rx)h(-)h(The)f Fg(.rx)i Fm(attrib)n(ute)e(is)i(the)e(USAR)-5 b(T)24 b(recei)n(v)o(er)d(re)o (gister)-5 b(.)32 b(Data)23 b(recei)n(v)o(ed)e(by)h(the)h(USAR)-5 b(T)24 b(is)515 1743 y(a)n(v)n(ailable)19 b(for)h(querying)e(through)g (here.)515 1868 y(.txbaud)g(-)j(The)e Fg(.txbaud)i Fm(attrib)n(ute)f (speci\002es)h(the)f(transmitter)f(baud)h(rate.)515 1992 y(.rxbaud)e(-)i(The)g(.rxbaud)e(attrib)n(ute)i(speci\002es)h(the)f (recei)n(v)o(er)f(baud)g(rate.)515 2116 y(.console)26 b(-)i(When)g(set)g(to)g Fg(true)p Fm(,)i(the)e(console)f(windo)n(w)f (will)j(display)e(recei)n(v)o(ed)f(data)i(and)f(will)515 2216 y(accept)20 b(k)o(e)o(yboard)d(entries)j(for)g(the)g(transmitter) -5 b(.)515 2340 y(.crlf)16 b(-)h(When)g(set)h(to)f Fg(true)p Fm(,)g(carriage)f(returns)g(and)g(line)h(feeds)g(generate)f(ne)n(w)g (lines)h(in)g(the)g(console)515 2440 y(windo)n(w)-5 b(.)515 2564 y(.he)o(x)17 b(-)h(When)g(set)h(to)f Fg(true)p Fm(,)g(the)g(data)g (is)h(assumed)f(to)g(be)g(binary)e(and)i(all)g(bytes)g(are)g(sho)n(wn)f (in)i(he)o(x.)515 2688 y(.loop)g(-)h(When)g(set)h(to)g(true,)e(recei)n (v)o(ed)g(characters)g(are)h(looped)f(back)g(to)i(the)f(transmitter)-5 b(.)515 2812 y(.xpos)19 b(-)h(horizontal)f(position)g(in)i(breadboard)c (windo)n(w)-5 b(.)515 2936 y(.ypos)19 b(-)h(v)o(ertical)g(position)f (in)i(breadboard)c(windo)n(w)-5 b(.)515 3182 y SDict begin H.S end 515 3182 a 515 3182 a SDict begin 12 H.A end 515 3182 a 515 3182 a SDict begin [/View [/XYZ H.V]/Dest (section*.29) cvn /DEST pdfmark end 515 3182 a Fn(I/O)20 b(Pins)515 3362 y Fm(.TXPIN)g(-)g(transmit)g(pin)515 3486 y(.RXPIN)g(-)h(recei)n(v)o(er)d(pin)515 3610 y(.CTS)j(-)f(Clear)g (to)h(send)f(pin.)k(This)d(can)f(be)g(left)g(unconnected)515 3735 y(.R)-5 b(TS)21 b(-)f(Request)g(to)h(send)e(pin.)515 3874 y SDict begin H.S end 515 3874 a 515 3874 a SDict begin 12 H.A end 515 3874 a 515 3874 a SDict begin [/View [/XYZ H.V]/Dest (subsection.8.1.2) cvn /DEST pdfmark end 515 3874 a 123 x Fi(8.1.2)99 b(Logic)515 4177 y Fm(The)30 b(only)h(attrib)n(utes)f(supported)f(be)i(the)g(logic)g(de)n(vices)f (are)h(the)g(standard)f Fg(.xpos)h Fm(and)f Fg(.ypos)515 4276 y Fm(breadboard)15 b(positions.)p 0.80078125 0.80078125 0.80078125 TeXcolorrgb 24 w(FIXME)j(There)f (should)h(be)g(attrib)n(utes)g(to)g(specify)g(the)g(switching)g(char)n (-)515 4376 y(acteristics.)p Black 515 4638 a SDict begin H.S end 515 4638 a 515 4638 a SDict begin 14 H.A end 515 4638 a 515 4638 a SDict begin [/View [/XYZ H.V]/Dest (section*.30) cvn /DEST pdfmark end 515 4638 a Fi(and2)25 b(-)g(T)-7 b(w)o(o)25 b(input)h(AND)f(gate)515 4818 y SDict begin H.S end 515 4818 a 515 4818 a SDict begin 12 H.A end 515 4818 a 515 4818 a SDict begin [/View [/XYZ H.V]/Dest (section*.31) cvn /DEST pdfmark end 515 4818 a Fn(I/O)20 b(pins)515 4998 y Fm(.in0)f(-)i(First)g(input)p Black Black eop end %%Page: 49 50 TeXDict begin 49 49 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.49) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(8.)45 b(MODULES)1872 b Fm(49)p Black 515 515 a(.in1)19 b(-)i(First)g(input)515 632 y(.out)e(-)i(Output)515 880 y SDict begin H.S end 515 880 a 515 880 a SDict begin 14 H.A end 515 880 a 515 880 a SDict begin [/View [/XYZ H.V]/Dest (section*.32) cvn /DEST pdfmark end 515 880 a Fi(or2)k(-)g(T)-7 b(w)o(o)24 b(input)i(OR)f(gate)515 1052 y Fm(.in0)19 b(-)i(First)g(input)515 1169 y(.in1)e(-)i(First)g (input)515 1286 y(.out)e(-)i(Output)515 1533 y SDict begin H.S end 515 1533 a 515 1533 a SDict begin 14 H.A end 515 1533 a 515 1533 a SDict begin [/View [/XYZ H.V]/Dest (section*.33) cvn /DEST pdfmark end 515 1533 a Fi(xor2)j(-)h(T)-7 b(w)o(o)25 b(input)h(XOR)e(gate)515 1706 y Fm(.in0)19 b(-)i(First)g(input)515 1823 y(.in1)e(-)i(First)g(input)515 1939 y(.out)e(-)i(Output)515 2187 y SDict begin H.S end 515 2187 a 515 2187 a SDict begin 14 H.A end 515 2187 a 515 2187 a SDict begin [/View [/XYZ H.V]/Dest (section*.34) cvn /DEST pdfmark end 515 2187 a Fi(not)k(-)g(In)l(v)o(erter)515 2359 y Fm(.in0)19 b(-)i(Input)515 2476 y(.out)e(-)i(Output)515 2724 y SDict begin H.S end 515 2724 a 515 2724 a SDict begin 14 H.A end 515 2724 a 515 2724 a SDict begin [/View [/XYZ H.V]/Dest (section*.35) cvn /DEST pdfmark end 515 2724 a Fi(TTL377)k(-)h(Octal)e(Latch)515 2896 y Fm(The)k(TTL377)f (module)g(simulates)i(an)f(8-bit)g(parallel)h(latch)f(with)h(output)e (enable.)50 b(It)28 b(latches)515 2996 y(all)f(bits)g(simultaneously)e (so)i(that)f(connecting)e(an)j(output)e(to)i(an)f(input)g(gi)n(v)o(es)g (correct)f(results.)515 3096 y(Ho)n(we)n(v)o(er)m(,)18 b(this)j(is)g(not)f(guaranteed)d(where)j(multiple)g(modules)f(are)h(so) g(connected.)515 3212 y(.D0..7)f(-)h(Input)515 3329 y(.Q0..7)f(-)h (Output)515 3446 y(.E)g(-)g(output)f(enable)515 3562 y(.CP)i(-)f(clock)g(\(rising)f(edge\))515 3810 y SDict begin H.S end 515 3810 a 515 3810 a SDict begin 14 H.A end 515 3810 a 515 3810 a SDict begin [/View [/XYZ H.V]/Dest (section*.36) cvn /DEST pdfmark end 515 3810 a Fi(TTL165)25 b(-)h(P)o(arallel)d(to)i(Serial)g(Shift)h(Register)515 3983 y Fm(The)d(TTL165)g(module)f(simulates)i(an)g(8-bit)g(parallel)f (input)g(serial)i(output)d(shift)i(re)o(gister)-5 b(.)36 b(It)25 b(is)515 4082 y(particularly)17 b(useful)i(for)f(connecting)f (to)i(a)h(SPI)g(peripheral.)i(Note,)d(ho)n(we)n(v)o(er)m(,)e(that)i (the)g(common)515 4182 y(practice)g(of)h(daisy-chaining)e(such)i(shift) g(re)o(gisters)g(is)h(not)f(guaranteed)e(to)i(simulate)g(correctly)-5 b(.)515 4299 y(.D0..7)19 b(-)h(parallel)g(input)515 4415 y(.Ds)g(-)h(daisy-chain)d(serial)j(input)515 4532 y(.Q7)f(-)g(output) 515 4649 y(.nQ7)f(-)i(in)m(v)o(erted)d(output)515 4765 y(.CE)i(-)h(clock)e(enable)515 4882 y(.CP)i(-)f(clock)g(\(rising)f (edge\))515 4998 y(.PL)h(-)h(parallel)e(load)p Black Black eop end %%Page: 50 51 TeXDict begin 50 50 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.50) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(8.)45 b(MODULES)1872 b Fm(50)p Black 515 515 a SDict begin H.S end 515 515 a 515 515 a SDict begin 14 H.A end 515 515 a 515 515 a SDict begin [/View [/XYZ H.V]/Dest (section*.37) cvn /DEST pdfmark end 515 515 a Fi(TTL595)25 b(-)h(Serial)e(to)h(P)o(arallel)f(Shift)i(Register) 515 696 y Fm(The)d(TTL595)g(module)f(simulates)i(an)g(8-bit)g(serial)g (input)f(parallel)h(output)e(shift)i(re)o(gister)-5 b(.)36 b(It)25 b(is)515 795 y(particularly)17 b(useful)i(for)f(connecting)f (to)i(a)h(SPI)g(peripheral.)i(Note,)d(ho)n(we)n(v)o(er)m(,)e(that)i (the)g(common)515 895 y(practice)g(of)h(daisy-chaining)e(such)i(shift)g (re)o(gisters)g(is)h(not)f(guaranteed)e(to)i(simulate)g(correctly)-5 b(.)515 1020 y(.Q0..7)19 b(-)h(parallel)g(output)515 1144 y(.Ds)g(-)h(serial)f(input)515 1269 y(.Qs)g(-)h(daisy-chain)d (serial)j(output)515 1393 y(.OE)f(-)g(output)f(enable)515 1518 y(.SCK)i(-)f(shift)g(clock)g(\(rising)g(edge\))515 1642 y(.RCK)h(-)f(output)f(latch)h(clock)g(\(rising)g(edge\))515 1767 y(.MR)g(-)h(master)f(reset)515 1889 y SDict begin H.S end 515 1889 a 515 1889 a SDict begin 12 H.A end 515 1889 a 515 1889 a SDict begin [/View [/XYZ H.V]/Dest (subsection.8.1.3) cvn /DEST pdfmark end 515 1889 a 140 x Fi(8.1.3)99 b(I2C)24 b(EEPR)m(OM)515 2210 y Fm(There)14 b(are)h(currently)f(three)g (I2C)i(EEPR)m(OMs)f(supported:)21 b(I2C-EEPR)m(OM2k,)14 b(I2C-EEPR)m(OM16k,)515 2310 y(and)19 b(I2C-EEPR)m(OM256K.)515 2434 y(The)j(commands)f(')l(dump)g(e)i(module_name)c(\002lename')j(and) g(')o(load)g(e)h(module_name)c(\002lename')515 2534 y(can)j(be)g(used)f (to)i(sa)n(v)o(e)f(and)f(restore)h(the)g(contents)f(of)h(the)g(EEPR)m (OM)g(module.)29 b(This)22 b(allo)n(ws)h(the)515 2633 y(contents)c(of)h(the)g(EEPR)m(OM)g(to)h(be)f(preserv)o(ed)e(between)i (runs)f(of)h(gpsim.)515 2758 y(The)e(cells)i(of)e(the)h(EEPR)m(OM)f (can)h(be)f(e)o(xamined)f(and)h(modi\002ed)g(using)g(the)h(command)d (interf)o(ace)515 2858 y(with)26 b(the)g(commands)e ('module_name.eeData[inde)o(x)o(]')c(and)25 b('module_name.eeData[inde) o(x)o(])515 2957 y(=)18 b(ne)n(w_v)n(alue'.)j(The)d(follo)n(wing)d(e)o (xample)i(sho)n(ws)g(loading)f(an)i(EEPR)m(OM)f(module,)g(setting)g (cell)515 3057 y(16)j(to)g('0')f(\(0x30\))g(and)g(checking)g(that)h (the)g(ne)n(w)g(v)n(alue)g(w)o(as)h(written.)p Black Black 722 3264 a Fh(**gpsim>)40 b(module)i(load)f(I2C-EEPROM16k)d(e2) 722 3364 y(**gpsim>)722 3464 y(**gpsim>)i(e2.eeData[16])f(=)k($30)722 3563 y(**gpsim>)d(e2.eeData[16])722 3663 y(e2.eeData[$10])e(=)43 b($30)722 3762 y(**gpsim>)515 4008 y SDict begin H.S end 515 4008 a 515 4008 a SDict begin 12 H.A end 515 4008 a 515 4008 a SDict begin [/View [/XYZ H.V]/Dest (section*.38) cvn /DEST pdfmark end 515 4008 a Fn(I/O)20 b(Pins)515 4189 y Fm(.A0)g(-)g(Chip)g(select)h(to)f(set)h(bit)g(0)f(of)g(sla)n(v)o (e)h(address)515 4314 y(.A1)f(-)g(Chip)g(select)h(to)f(set)h(bit)g(1)f (of)g(sla)n(v)o(e)h(address)515 4438 y(.A2)f(-)g(Chip)g(select)h(to)f (set)h(bit)g(2)f(of)g(sla)n(v)o(e)h(address)515 4563 y(.SCL)g(-)f(I2C)g(serial)h(clock)515 4687 y(.SD)m(A)f(-)g(I2C)h (serial)f(data)515 4812 y(.WP)h(-)f(Hardw)o(are)f(write)i(protect)p Black Black eop end %%Page: 51 52 TeXDict begin 51 51 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.51) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(8.)45 b(MODULES)1872 b Fm(51)p Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (subsection.8.1.4) cvn /DEST pdfmark end 515 432 a 83 x Fi(8.1.4)99 b(Switches)25 b(&)g(Resistors)515 696 y Fm(The)g Fg(switc)o(h)g Fm(module)f(is)i(a)g(model)e(of)h(a)h (simple)f(tw)o(o)g(terminal)g(switch.)40 b(It)26 b(may)e(be)h (controlled)515 795 y(either)f(from)f(the)h(command)e(line)j(or)f(the)g (breadboard)d(GUI.)j(The)g Fg(switc)o(h)h Fm(module')-5 b(s)23 b(open)g(and)515 895 y(closed)18 b(resistance)h(are)g (controlled)e(by)i(attrib)n(utes.)24 b(Thus)19 b(a)g(tw)o(o)g(terminal) f(resistor)h(can)g(be)g(mod-)515 995 y(eled)h(as)h(a)f(switch)h(that)f (is)h(al)o(w)o(ays)g(closed)f(\(or)f(open\).)515 1241 y SDict begin H.S end 515 1241 a 515 1241 a SDict begin 12 H.A end 515 1241 a 515 1241 a SDict begin [/View [/XYZ H.V]/Dest (section*.39) cvn /DEST pdfmark end 515 1241 a Fn(Attrib)n(utes)515 1421 y Fm(.Ropen)g(-)h(Switch)h(resistance)f(in) g(ohms)g(when)f(the)i(switch)f(is)h(opened.)515 1546 y(.Rclosed)f(-)g(Switch)h(resistance)f(in)g(ohms)g(when)f(the)h(switch) h(is)g(closed.)515 1670 y(.state)30 b(-)h(Switch)f(state.)56 b(The)30 b(switch)g(state)h(tak)o(es)f(the)h(v)n(alues)e(of)h Fg(open)f Fm(or)h Fg(closed)p Fm(,)i(although)515 1770 y Fg(false)23 b Fm(for)g(open)f(and)h Fg(true)g Fm(for)g(closed)g(is)h (supported)d(for)i(backw)o(ard)e(compatibility)-5 b(.)33 b(The)22 b Fg(.state)515 1870 y Fm(attrib)n(ute)e(is)h(writable.)515 2116 y SDict begin H.S end 515 2116 a 515 2116 a SDict begin 12 H.A end 515 2116 a 515 2116 a SDict begin [/View [/XYZ H.V]/Dest (section*.40) cvn /DEST pdfmark end 515 2116 a Fn(I/O)f(Pins)515 2296 y Fm(.A)g(-)h(One)f(side)515 2421 y(.B)h(-)f(The)g(other)f(side)515 2543 y SDict begin H.S end 515 2543 a 515 2543 a SDict begin 12 H.A end 515 2543 a 515 2543 a SDict begin [/View [/XYZ H.V]/Dest (subsection.8.1.5) cvn /DEST pdfmark end 515 2543 a 140 x Fi(8.1.5)99 b(V)-10 b(oltage)24 b(Sour)n(ces,)i(Resistors,)e(and)i(Capacitors)515 2864 y Fm(The)e Fg(pullup)g Fm(and)g Fg(pulldown)g Fm(modules)g(are)g (tw)o(o)h(terminal)g(de)n(vices)f(with)h(one)f(terminal)g(tied)h(to)515 2963 y(a)j(v)n(oltage)g(source.)49 b(Their)27 b(v)n(oltage,)j (resistance,)g(and)e(pin)g(capacitance)f(are)h(controllable)f(via)515 3063 y(attrib)n(utes.)515 3309 y SDict begin H.S end 515 3309 a 515 3309 a SDict begin 12 H.A end 515 3309 a 515 3309 a SDict begin [/View [/XYZ H.V]/Dest (section*.41) cvn /DEST pdfmark end 515 3309 a Fn(Attrib)n(utes)515 3490 y Fm(.v)n(oltage)19 b(-)h(DC)h(v)n(oltage)515 3614 y(.resistance)f(-)g(resistance)g(in)g(ohms)g(between)f(the)i(I/O)f(pin) g(and)g(the)g(v)n(oltage)f(source.)515 3739 y(.capacitance)f(-)j (capacitance)e(in)h(f)o(arads)g(between)f(the)i(I/O)f(pin)g(and)f (ground.)515 3985 y SDict begin H.S end 515 3985 a 515 3985 a SDict begin 12 H.A end 515 3985 a 515 3985 a SDict begin [/View [/XYZ H.V]/Dest (section*.42) cvn /DEST pdfmark end 515 3985 a Fn(I/O)h(Pins)515 4165 y Fm(.pin)f(-)i(the)f (only)f(pin)h(e)o(xposed.)515 4305 y SDict begin H.S end 515 4305 a 515 4305 a SDict begin 12 H.A end 515 4305 a 515 4305 a SDict begin [/View [/XYZ H.V]/Dest (subsection.8.1.6) cvn /DEST pdfmark end 515 4305 a 123 x Fi(8.1.6)99 b(LED_7SEGMENTS)27 b(and)e(LED)515 4625 y SDict begin H.S end 515 4625 a 515 4625 a SDict begin 14 H.A end 515 4625 a 515 4625 a SDict begin [/View [/XYZ H.V]/Dest (section*.43) cvn /DEST pdfmark end 515 4625 a Fi(led_7segments)g(-)g(7)g (segment)g(common)g(cathode)h(LED)g(display)515 4805 y Fm(The)20 b(se)o(gments)f(are)h(numbered)e(as)j(per)f(the)g(follo)n (wing)e(\002gure.)p Black Black eop end %%Page: 52 53 TeXDict begin 52 52 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.52) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(8.)45 b(MODULES)1872 b Fm(52)p Black Black Black 853 515 a Fh(___)722 615 y(5)43 b(|)h(0)f(|)g(1)853 715 y(___)722 814 y(4)g(|)h(6)f(|)g(2)853 914 y(___)897 1013 y(3)515 1259 y SDict begin H.S end 515 1259 a 515 1259 a SDict begin 12 H.A end 515 1259 a 515 1259 a SDict begin [/View [/XYZ H.V]/Dest (section*.44) cvn /DEST pdfmark end 515 1259 a Fn(I/O)20 b(Pins)515 1440 y Fm(.cc)g(-)g(common)f (cathode)515 1564 y(.se)o(g0)g(-)i(se)o(gment)e(0)515 1689 y(.se)o(g1)g(-)i(se)o(gment)e(1)515 1814 y(.se)o(g2)g(-)i(se)o (gment)e(2)515 1938 y(.se)o(g3)g(-)i(se)o(gment)e(3)515 2063 y(.se)o(g4)g(-)i(se)o(gment)e(4)515 2187 y(.se)o(g5)g(-)i(se)o (gment)e(5)515 2312 y(.se)o(g6)g(-)i(se)o(gment)e(6)515 2574 y SDict begin H.S end 515 2574 a 515 2574 a SDict begin 14 H.A end 515 2574 a 515 2574 a SDict begin [/View [/XYZ H.V]/Dest (section*.45) cvn /DEST pdfmark end 515 2574 a Fi(Led)26 b(-)f(Simple)g(LED)515 2755 y Fm(The)c(simple)g(LED)g (is)h(a)g(single)f(pin)g(module)e(internally)h(tied)i(to)f(either)g (Vss)h(or)f(Vdd.By)f(def)o(ault)515 2854 y(the)15 b(LED)g(is)h (internally)e(tied)i(to)f(Vdd\(0V\))e(and)i(turns)g(on)g(when)f(the)i (pin)e(is)j(dri)n(v)o(en)c(high.Ho)n(we)n(v)o(er)m(,)515 2954 y(by)21 b(setting)h(the)g(Acti)n(v)o(eState)f(parameter)f(to)i(lo) n(w)-5 b(,)22 b(the)g(LED)f(is)i(internally)e(tied)h(to)f(Vss\(5V\))h (and)515 3054 y(turns)27 b(on)h(when)f(the)h(pin)f(is)i(dri)n(v)o(en)d (lo)n(w)-5 b(.Lik)o(e)27 b(a)h(real)g(LED,)g(the)f(module)g(will)i (either)e(sink)h(or)515 3153 y(source)19 b(current)g(from)g(the)h(dri)n (ving)f(line)h(which)g(may)g(af)n(fect)f(its)i(logic)f(le)n(v)o(el.)515 3278 y(The)g(LED)g(color)f(is)i(by)f(def)o(ault)f(red,)h(b)n(ut)g(can)g (be)g(set)h(to)g(other)e(colors.)515 3524 y SDict begin H.S end 515 3524 a 515 3524 a SDict begin 12 H.A end 515 3524 a 515 3524 a SDict begin [/View [/XYZ H.V]/Dest (section*.46) cvn /DEST pdfmark end 515 3524 a Fn(Attrib)n(utes)515 3704 y Fm(color)g(-)i(LED)f(color)m(,)e(possible)i(v)n(alues)g(red,)g (green,)f(yello)n(w)-5 b(,)19 b(orange)f(or)i(blue)515 3829 y(Acti)n(v)o(eState)g(-)g(LED)g(acti)n(v)o(e)g(state)h(mode,)e (possible)h(v)n(alues:)k(high)c(or)g(lo)n(w)515 4075 y SDict begin H.S end 515 4075 a 515 4075 a SDict begin 12 H.A end 515 4075 a 515 4075 a SDict begin [/View [/XYZ H.V]/Dest (section*.47) cvn /DEST pdfmark end 515 4075 a Fn(I/O)g(Pin)515 4255 y Fm(.in)g(-)g(dri)n(v)o(es)g(LED)515 4387 y SDict begin H.S end 515 4387 a 515 4387 a SDict begin 12 H.A end 515 4387 a 515 4387 a SDict begin [/View [/XYZ H.V]/Dest (section.8.2) cvn /DEST pdfmark end 515 4387 a 174 x Fj(8.2)119 b(Third)31 b(P)o(arty)e(Modules)515 4771 y Fm(In)20 b(addition)f(to)h(the)g(standard)f(modules,)g(third)h (are)g(separately)f(distrib)n(ute)h(gpsim)g(modules.)p Black Black eop end %%Page: 53 54 TeXDict begin 53 53 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.53) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(8.)45 b(MODULES)1872 b Fm(53)p Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (subsection.8.2.1) cvn /DEST pdfmark end 515 432 a 83 x Fi(8.2.1)99 b(Character)26 b(LCD)f(-)g(HD44780)515 696 y Fm(This)20 b(module)f(emulates)h(the)g(ubiquitous)e(HD44780)h (character)g(LCDs.)515 835 y SDict begin H.S end 515 835 a 515 835 a SDict begin 12 H.A end 515 835 a 515 835 a SDict begin [/View [/XYZ H.V]/Dest (subsection.8.2.2) cvn /DEST pdfmark end 515 835 a 123 x Fi(8.2.2)99 b(Graphic)25 b(LCD)g(-)g(SED1530)515 1139 y Fm(This)30 b(module)f(emulates)h(a)h (100X32)d(pix)o(el)i(graphics)f(LCD)i(based)f(on)g(dual)g(SED1350)e (con-)515 1239 y(trollers.)515 1361 y SDict begin H.S end 515 1361 a 515 1361 a SDict begin 12 H.A end 515 1361 a 515 1361 a SDict begin [/View [/XYZ H.V]/Dest (subsection.8.2.3) cvn /DEST pdfmark end 515 1361 a 140 x Fi(8.2.3)99 b(64)24 b(x)h(8,)f(Serial,)h(I2C)g(Real-T)n(ime)g(Clock)g(-)g(DS1307) 515 1682 y Fm(This)c(module)e(emulates)i(the)g(Dallas)h(Semiconductor)c (DS1307)i(Real-T)m(ime)g(clock)h(which)f(also)515 1781 y(has)g(56)g(x)g(8)g(eeprom)f(memory)g(and)g(connects)h(via)g(an)g(I2C) g(serial)h(b)n(us.)515 1930 y SDict begin H.S end 515 1930 a 515 1930 a SDict begin 12 H.A end 515 1930 a 515 1930 a SDict begin [/View [/XYZ H.V]/Dest (section.8.3) cvn /DEST pdfmark end 515 1930 a 156 x Fj(8.3)119 b(Writing)30 b(new)h(modules)515 2297 y Fm(A)19 b(module)f(is)i(a)g(library)e(of)h (code.)24 b(On)19 b(W)m(indo)n(ws)g(the)g(library)f(is)i(a)g(.DLL)f (and)f(on)h(Unix)g(a)g(shared)515 2397 y(library)-5 b(.)23 b(There)18 b(are)g(a)h(fe)n(w)g(details)g(that)g(a)g(module)e(must)i (adhere)e(to,)i(b)n(ut)g(in)g(general)e(the)i(module)515 2496 y(has)h(full)g(access)h(to)f(gpsim')-5 b(s)20 b(API.)515 2621 y(The)26 b(easiest)i(w)o(ay)f(to)h(write)f(a)g(ne)n(w)g(module)f (is)i(to)f(start)h(from)e(the)h(source)f(code)g(from)g(one)h(of)515 2720 y(the)d(e)o(xisting)f(modules.)34 b(F)o(or)24 b(e)o(xample,)f (suppose)f(your)h(project)g(produces)f(a)i(serial)g(bit-stream)515 2820 y(in)c(PPM)h(coding)e(and)h(you)g(w)o(ant)g(to)h(display)f(the)g (output)g(during)e(the)j(simulation.)k(The)20 b(e)o(xternal)515 2920 y(module)g(you)h(need)g(is)i(similar)f(to)g(the)g(usart)g(module)f (b)n(ut)h(not)f(the)h(same,)g(so)h(start)f(by)g(making)e(a)515 3019 y(cop)o(y)f(of)h(the)g(usart)g(module)f(and)h(then)f(modify)g(it)i (to)f(w)o(ork)g(ho)n(w)g(you)f(need.)515 3144 y(T)-7 b(o)15 b(be)h(able)f(to)h(load)f(your)f(module)h(into)g(gpsim)g(it)h (needs)f(to)h(be)g(in)f(a)h(library)-5 b(.)22 b(Usually)16 b(you)e(will)j(be)515 3243 y(creating)k(a)h(ne)n(w)f(library)g(just)i (for)e(one)g(de)n(vice,)g(b)n(ut)h(sometimes)g(you)e(will)j(ha)n(v)o(e) e(a)i(fe)n(w)e(de)n(vices.)515 3343 y(Either)c(w)o(ay)-5 b(,)19 b(the)f(library)f(must)h(declare)g(to)g(gpsim)g(what)g(de)n (vices)g(it)h(contains.)24 b(This)18 b(is)h(achie)n(v)o(ed)515 3443 y(with)g(an)g(array)f(of)g(Module_T)-7 b(ypes)17 b(class)j(instances,)f(returned)e(to)i(gpsim)g(by)f(a)h(function)f (named)515 3542 y(\223get_mod_list\224.)30 b(All)24 b(gpsim)e(module)g (libraries)g(must)h(declare)f(this)h(function.)32 b(Y)-9 b(ou)22 b(can)g(cop)o(y)515 3642 y(the)d(required)f(template)h(from)g (the)h(gpsim)f(source)g(\226)h(probably)d(one)i(of)g(the)h(\223e)o (xtras\224)f(modules)g(is)515 3742 y(slightly)g(cleaner)h(than)f(the)h (main)g(library)-5 b(.)23 b(F)o(or)d(our)f(PPM)h(decoder)f(e)o(xample,) f(we)i(might)g(ha)n(v)o(e)f(a)515 3841 y(module_manager)-5 b(.cc)16 b(containing)i(the)i(follo)n(wing)f(code:)p Black Black 722 4049 a Fh(/*)43 b(IN_MODULE)d(should)h(be)i(defined)d (for)i(modules)f(*/)722 4148 y(#define)g(IN_MODULE)722 4248 y(#include)f()722 4348 y(#include)g()722 4447 y(#include)g("ppm.h")722 4547 y(Module_Types)f(available_modul)o (es[)o(])e(=)722 4646 y({)809 4746 y({)44 b("ppm_display",)37 b("ppm_rx_iface",)g(PpmDisplay::const)o(ru)o(ct})o(,)809 4846 y(//)43 b(No)g(more)f(modules)809 4945 y({)i(NULL,NULL,NULL})p Black Black eop end %%Page: 54 55 TeXDict begin 54 54 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.54) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(8.)45 b(MODULES)1872 b Fm(54)p Black 722 515 a Fh(};)722 615 y(#ifdef)41 b(__cplusplus)722 715 y(extern)g("C")i({)722 814 y(#endif)e(/*)i(__cplusplus)c(*/)722 914 y(/****************)o(**)o(**)o(***)o(**)o(**)o(***)o(**)o(**)o (***)o(**)o(**)o(***)o(**)o(***)o(**)o(**)o(***)o(**)o(**)o(***)o(**) 766 1013 y(*)k(get_mod_list)c(-)k(Report)e(all)h(of)h(the)f(modules)f (in)h(this)g(library.)766 1113 y(*)766 1213 y(*)h(This)f(is)h(a)g (required)d(function)g(for)i(gpsim)g(compliant)e(libraries.)766 1312 y(*/)809 1412 y(Module_Types)f(*)k(get_mod_list\(voi)o(d\))809 1512 y({)897 1611 y(return)e(available_modul)o(es)o(;)809 1711 y(})722 1810 y(#ifdef)g(__cplusplus)722 1910 y(})722 2010 y(#endif)g(/*)i(__cplusplus)c(*/)515 2209 y Fm(This)22 b(declares)g(that)g(this)h(library)e(pro)o(vides)f(one)i(module,)f (called)h(ppm_display)-5 b(,)19 b(implemented)515 2308 y(by)f(the)i(C++)f(class)h(PpmDisplay)-5 b(.)24 b(The)18 b(class)i(which)f(implements)f(the)h(module)f(must)h(pro)o(vide)e(a)515 2408 y(static)k(method)e(\223construct\224)f(to)j(create)f(a)g(ne)n(w)g (instance)g(of)g(the)g(class.)26 b(F)o(or)20 b(e)o(xample:)p Black Black 722 2607 a Fh(Module)41 b(*)i(PpmDisplay::const)o(ru)o (ct\()o(co)o(ns)o(t)38 b(char)j(*_new_name=0\))722 2707 y({)897 2806 y(PpmDisplay)e(*ppmd)i(=)j(new)e(PpmDisplay\(_new)o(_na)o (me)o(\);)897 2906 y(ppmd->create_io)o(pi)o(n_m)o(ap)o(\(\))o(;)897 3006 y(ppmd->create_wi)o(nd)o(ow\()o(_n)o(ew)o(_na)o(me)o(\);)897 3105 y(return)f(ppmd;)722 3205 y(})515 3404 y Fm(Y)-9 b(our)18 b(module)g(will)i(need)e(to)i(include)e(stimuli)h(for)g(its)h (I/O)g(connections.)i(Y)-9 b(ou)19 b(can)g(use)g(the)h(stan-)515 3504 y(dard)14 b(gpsim)h(stimulus)g(classes:)24 b(IOPIN,)15 b(io_bidirectional,)e(io_bidirectional_pu,)f(io_open_collector)-5 b(.)515 3603 y(In)17 b(man)o(y)f(cases,)j(ho)n(we)n(v)o(er)m(,)c(you)i (will)h(w)o(ant)f(to)h(deri)n(v)o(e)e(your)g(o)n(wn)h(class)h(from)f (one)g(of)g(them.)23 b(This)515 3703 y(will)e(allo)n(w)f(you)f(to)h (customise)g(the)h(actions)e(when)h(the)g(node)f(state)i(changes.)j(F)o (or)c(e)o(xample:)p Black Black 722 3902 a Fh(class)42 b(DecoderPin)d(:)k(public)e(IOPIN)722 4002 y({)722 4101 y(private:)897 4201 y(PpmDisplay)e(*)k(Parent;)722 4300 y(public:)897 4400 y(DecoderPin)c(\()k(PpmDisplay)c(*)44 b(parent,)c(unsigned)g(int)j(b,)f(const)g(char)g(*)h(name=0)e(\);)897 4500 y(virtual)f(void)i(setDrivenState\(b)o(oo)o(l)c(new_state\);)722 4599 y(};)515 4798 y Fm(The)24 b(only)f(methods)g(we)i(pro)o(vide)d (here)i(are)g(the)h(constructor)d(and)i(an)g(o)o(v)o(erridden)d (\223setDri)n(v)o(en-)515 4898 y(State\224.)31 b(This)22 b(is)h(because)f(our)f(PPM)i(decoder)d(needs)i(to)g(be)g(told)g(when)f (the)h(input)g(pin)g(changes)515 4998 y(state.)p Black Black eop end %%Page: 55 56 TeXDict begin 55 55 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.55) cvn /DEST pdfmark end 506 174 a Black Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (chapter.9) cvn /DEST pdfmark end 515 432 a 731 x Fk(Chapter)44 b(9)515 1603 y Fo(Symbolic)52 b(Deb)l(ugging)515 2060 y Fm(gpsim)19 b(maintains)h(a)h(symbol)e (table.)515 2184 y()p Black 1905 5208 a(55)p Black eop end %%Page: 56 57 TeXDict begin 56 56 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.56) cvn /DEST pdfmark end 506 174 a Black Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (chapter.10) cvn /DEST pdfmark end 515 432 a 731 x Fk(Chapter)44 b(10)515 1603 y Fo(Macr)l(os)515 2060 y Fm()p Black 1905 5208 a(56)p Black eop end %%Page: 57 58 TeXDict begin 57 57 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.57) cvn /DEST pdfmark end 506 174 a Black Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (chapter.11) cvn /DEST pdfmark end 515 432 a 731 x Fk(Chapter)44 b(11)515 1603 y Fo(Hex)51 b(Files)515 2060 y Fm(The)20 b(tar)o(get)h(code)f(simulated)g(by)h(gpsim)f(can)h (be)g(supplied)f(by)h(a)g(he)o(x)f(\002le,)i(or)f(more)f (speci\002cally)515 2159 y(an)f(Intel)g(He)o(x)g(\002le.)25 b(gpsim)19 b(accepts)g(the)g(format)g(of)g(he)o(x)f(pro)o(vided)f(by)i (gpasm)f(and)h(mpasm.)24 b(The)515 2259 y(he)o(x)h(\002le)i(does)e(not) h(pro)o(vide)e(an)o(y)h(symbolic)g(information.)40 b(It')-5 b(s)26 b(recommended)d(that)j(he)o(x)g(\002les)515 2358 y(only)c(be)g(used)h(if)g(1\))f(you)g(suspect)h(there')-5 b(s)22 b(a)i(problem)d(with)h(the)h(w)o(ay)g(.cod)f(\002les)i(are)e (generated)515 2458 y(by)30 b(your)g(assembler)g(or)g(compiler)g(OR)h (2\))g(your)e(assembler)i(or)f(compiler)g(doesn')o(t)f(generate)515 2558 y(.cod)f(\002les.)51 b(Also,)30 b(you)e(must)h(supply)e(a)i (processor)e(when)h(loading)g(he)o(x)f(\002les.)51 b(See)29 b(the)g(load)515 2657 y(command.)p Black 1905 5208 a(57)p Black eop end %%Page: 58 59 TeXDict begin 58 58 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.58) cvn /DEST pdfmark end 506 174 a Black Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (chapter.12) cvn /DEST pdfmark end 515 432 a 730 x Fk(Chapter)44 b(12)515 1601 y Fo(The)51 b(ICD-)h(Not)g (Supported)e(in)515 1850 y(v)n(ersions)i(0.21.0)g(and)g(later)515 2306 y Fm(gpsim)27 b(supports)g(\(partly\))f(the)i(\002rst)h(v)o (ersion)e(of)g(the)h(ICD)g(\(as)h(opposed)d(to)i(ICD2)g(\(the)f(round) 515 2406 y(hock)o(e)o(y-puck)16 b(shaped)k(one\)\).)515 2667 y SDict begin H.S end 515 2667 a 515 2667 a SDict begin 14 H.A end 515 2667 a 515 2667 a SDict begin [/View [/XYZ H.V]/Dest (section*.48) cvn /DEST pdfmark end 515 2667 a Fi(Special)25 b(con\002guration)h(of)f(the)h(code)515 2847 y Fm(Read)20 b(the)g(MPLAB)h(ICD)g(USER')-5 b(s)21 b(GUIDE.)515 2971 y(Here')-5 b(s)20 b(the)g(short)g(v)o(ersion:)p Black 639 3158 a Fa(\017)p Black 41 w Fm(disable)31 b(at)h(least:)48 b(bro)n(wn)30 b(out)h(detection,)h(lo)n(w)g(v)n(oltage)e(programming)e (and)i(all)i(code)722 3257 y(protection.)23 b(It)c(is)g(probably)d (good)h(to)i(turn)e(of)h(the)h(w)o(atchdog)e(too.)24 b(see)19 b(the)f(MPLAB)h(ICD)722 3357 y(USER')-5 b(s)22 b(GUIDE)e(for)f(more)g(information.)p Black 639 3522 a Fa(\017)p Black 41 w Fm(ha)n(v)o(e)h(a)h(NOP)f(as)h(the)f(\002rst)h (instruction.)p Black 639 3686 a Fa(\017)p Black 41 w Fm(Don')o(t)e(touch)g(RB6)i(or)f(RB7.)p Black 639 3851 a Fa(\017)p Black 41 w Fm(Don')o(t)f(use)i(the)f(last)h(stack)f(le)n(v) o(el.)p Black 639 4015 a Fa(\017)p Black 41 w Fm(Don')o(t)f(use)i (these)f(re)o(gisters)g(and)f(program)f(w)o(ords:)p 722 4045 2532 4 v 721 4144 4 100 v 772 4114 a(Processor)p 1143 4144 V 643 w(Re)o(gister)p 2608 4144 V 774 w(Program)p 3252 4144 V 722 4148 2532 4 v 722 4164 V 721 4264 4 100 v 793 4234 a(-870/1/2)p 1143 4264 V 493 w(0x70,)h(0xBB-0xBF)p 2608 4264 V 516 w(0x6E0-0x7FF)p 3252 4264 V 722 4267 2532 4 v 721 4367 4 100 v 825 4337 a(-873/4)p 1143 4367 V 151 w(0x6D,)g(0x1fD,)f(0xEB-0xF0,)g(0x1Eb-0x1F0)p 2608 4367 V 130 w(0xEE0-0xFFF)p 3252 4367 V 722 4370 2532 4 v 721 4470 4 100 v 825 4440 a(-876/7)p 1143 4470 V 506 w(0x70,)g(0x1Eb-0x1Ef)p 2608 4470 V 450 w(0x1F00-0x1FFF)p 3252 4470 V 722 4473 2532 4 v 515 4695 a SDict begin H.S end 515 4695 a 515 4695 a SDict begin 14 H.A end 515 4695 a 515 4695 a SDict begin [/View [/XYZ H.V]/Dest (section*.49) cvn /DEST pdfmark end 515 4695 a Fi(icdpr)n(og)515 4875 y Fm(Do)n(wnload)g(and)i(install)h(icdprog.)515 4998 y(Use)g(icdprog)d(to)i(program)e(the)j(tar)o(get)e(with)h(the)g (he)o(x)g(\002le)h(\()p Fg(icdpr)l(o)o(g)e(mycode)o(.he)n(x)p Fm(\).)p Black 1905 5208 a(58)p Black eop end %%Page: 59 60 TeXDict begin 59 59 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.59) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)17 b(12.)39 b(THE)16 b(ICD-)h(NO)m(T)f(SUPPOR)-5 b(TED)16 b(IN)h(VERSIONS)f(0.21.0)e(AND)j(LA)-9 b(TER)p Fm(59)p Black 515 515 a SDict begin H.S end 515 515 a 515 515 a SDict begin 14 H.A end 515 515 a 515 515 a SDict begin [/View [/XYZ H.V]/Dest (section*.50) cvn /DEST pdfmark end 515 515 a Fi(ICD)24 b(usage)515 696 y Fm(Start)c(gpsim)g(lik) o(e)h(this:)515 820 y Fg(gpsim)f(-d)g(/de)o(v/ttyS0)f(-s)h(mycode)o (.cod)515 945 y Fm(,)g(assuming)g(the)g(ICD)h(is)g(connected)d(to)i (the)h(\002rst)g(serial)f(port.)515 1069 y(No)n(w)g(you)f(can)h(type)g ('icd')f(to)i(see)f(some)g(information:)515 1194 y Fg(**gpsim>)f(icd) 515 1294 y(ICD)h(ver)o(sion)h("2.31.00")c(was)k(found.)515 1393 y(T)-8 b(ar)m(g)o(et)20 b(contr)l(oller)g(is)i(16F877)c(r)m(e)o(v) i(13.)515 1493 y(Vdd:)k(5.2)19 b(Vpp:)25 b(13.3)515 1593 y(Deb)n(ug)19 b(module)g(is)i(pr)m(esent)515 1717 y Fm(2.31)e(is)i(the) f(\002rmw)o(are)g(v)o(ersion.)j(I)e(ha)n(v)o(e)e(only)h(tried)g(this)g (particular)f(v)o(ersion...)515 1842 y(Y)-9 b(ou)23 b(can)h(step,)h (reset,)h(run,)e(halt,)h(set)g(the)f(breakpoint)e(and)h(read)h(\002le)h (re)o(gisters.)36 b(It)25 b(w)o(orks)e(both)515 1941 y(from)c(the)h(GUI)g(and)g(the)g(cli.)515 2204 y SDict begin H.S end 515 2204 a 515 2204 a SDict begin 14 H.A end 515 2204 a 515 2204 a SDict begin [/View [/XYZ H.V]/Dest (section*.51) cvn /DEST pdfmark end 515 2204 a Fi(ICD)k(T)n(ODO)p Black 639 2384 a Fa(\017)p Black 41 w Fm(MPLAB)d(has)f(a)h(setting)f (for)g(tar)o(get)f(CPU)i(frequenc)o(y)-5 b(,)17 b(I)k(ha)n(v)o(e)e (only)g(tried)h(with)h(a)f(20MHz)722 2484 y(crystal,)e(so)f(there)g (may)f(be)h(adjustments)f(to)i(be)f(made)f(to)h(the)g(serial)h(port)e (timeout)g(settings)722 2584 y(in)21 b(gpsim.)p Black 639 2750 a Fa(\017)p Black 41 w Fm(The)d(source,)f(disassembly)-5 b(,)18 b(w)o(atch,)g(symbol)f(and)h(RAM)g(windo)n(ws)g(w)o(orks.)23 b(And)18 b(the)g(rest)722 2849 y(doesn')o(t.)26 b(I)21 b(guess)g(the)g(breadboard)d(should)i(be)h(able)f(to)h(w)o(ork)g(at)g (least)h(for)e(the)h(pic,)g(b)n(ut)g(it)722 2949 y(doesn')o(t.)p Black 639 3115 a Fa(\017)p Black 41 w Fm(EEPR)m(OM)f(support)p Black 639 3281 a Fa(\017)p Black 41 w Fm(modifying)e(data)p Black 639 3447 a Fa(\017)p Black 41 w Fm(Fix)j(the)f(UI)g(to)h(gi)n(v)o (e)e(more)g(feedback)g(about)g(what')-5 b(s)21 b(happening)c(during)i (long)g(delays.)p Black 639 3613 a Fa(\017)p Black 41 w Fm(Better)i(error)e(detection.)24 b(gpsim)c(doesn')o(t)e(al)o(w)o (ays)j(see)g(that)f(the)g(tar)o(get)f(is)j(not)d(functional.)p Black Black eop end %%Page: 60 61 TeXDict begin 60 60 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.60) cvn /DEST pdfmark end 506 174 a Black Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (chapter.13) cvn /DEST pdfmark end 515 432 a 731 x Fk(Chapter)44 b(13)515 1603 y Fo(Examples)515 2060 y Fm(The)27 b Fg(e)n(xamples/)36 b Fm(subdirectory)24 b(contains)j(se)n(v)o(eral)f(e)o(xamples.)45 b(The)27 b Fg(e)n(xamples/pr)l(ojects/)36 b Fm(sub-)515 2159 y(directory)29 b(demonstrate)g(sample)h(projects)g(that)h(can)f(serv)o(e)g(as)i (templates)e(for)g(ne)n(w)g(projects.)515 2259 y(In)24 b(addition,)f(the)h Fg(e)n(xamples/modules)f Fm(subdirectory)e (contains)j(se)n(v)o(eral)f(e)o(xamples)g(illustrating)515 2358 y(ho)n(w)h(to)h(use)g(gpsim')-5 b(s)24 b(v)n(arious)g(modules.)37 b(Finally)-5 b(,)25 b(as)g(described)f(in)h(chapter)2873 2358 y SDict begin H.S end 2873 2358 a Black Fm(14)p Black 2956 2302 a SDict begin H.R end 2956 2302 a 2956 2358 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (chapter.14) cvn H.B /ANN pdfmark end 2956 2358 a Fm(,)h(gpsim')-5 b(s)25 b(re-)515 2458 y(gression)e(tests)i(illustrate)e(man)o(y)g(po)n(werful) f(deb)n(ugging)f(techniques)h(that)i(ha)n(v)o(e)f(not)g(been)g(fully) 515 2558 y(documented.)515 2804 y SDict begin H.S end 515 2804 a 515 2804 a SDict begin 12 H.A end 515 2804 a 515 2804 a SDict begin [/View [/XYZ H.V]/Dest (section*.52) cvn /DEST pdfmark end 515 2804 a Fn(usart_gui)c(example)515 2984 y Fm(Each)31 b(e)o(xample)f(contains)h(a)i(brief)e Fg(README)i Fm(e)o(xplaining)c(its)k(purpose.)58 b(F)o(or)32 b(e)o(xample,)h(the)515 3084 y Fg(README)21 b Fm(for)f(the)g Fg(usart_gui)f Fm(e)o(xample)g(in)h(the)h Fg(e)n(xamples/modules)d Fm(directory)h(contains)p Black Black 722 3291 a Fh(The)43 b(tests)e(the)h(USART)g(module)f(with)h(the)g(GUI)g(fix.)722 3391 y(The)h(code)e(for)i(a)g(16f628)e(PIC)h(is)h(used.)e(The)i(code)f (first)f(transmits)f(a)j(string)e(of)722 3491 y(characters,)e(which)j (are)g(instructions)c(to)43 b(the)f(user,)g(to)h(the)f(USART)f(module)g (which)722 3590 y(will)h(then)g(be)h(displayed)d(on)i(its)h(GUI.)e (This)h(verifies)f(that)g(the)i(USART)e(can)h(receive)722 3690 y(serial)f(data.)722 3789 y(When)h(the)g(focus)g(is)h(on)f(the)h (USART)e(GUI)h(window,)f(characters)e(typed)j(on)h(the)f(keyboard)722 3889 y(are)h(sent)e(from)h(the)h(USART)e(to)i(the)f(PIC)g(and)h(then)f (retransmitted)c(from)k(the)g(PIC)g(back)722 3989 y(to)h(the)f(USART.) 722 4088 y(If)h(all)f(works,)f(the)i(typed)e(characters)e(will)j(be)h (displayed)d(in)j(the)f(GUI)g(text)g(window)722 4188 y(of)h(the)f(USART.)f(Both)h(transmit)e(and)j(receive)d(must)i(be)h (functioning)c(for)j(this)g(to)722 4288 y(happen.)515 4495 y Fg(F)l(ixme)20 b Fm(-)h(we)f(really)g(need)f(to)i(document)d (all)j(of)f(the)g(e)o(xamples!)p Black 1905 5208 a(60)p Black eop end %%Page: 61 62 TeXDict begin 61 61 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.61) cvn /DEST pdfmark end 506 174 a Black Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (chapter.14) cvn /DEST pdfmark end 515 432 a 731 x Fk(Chapter)44 b(14)515 1603 y Fo(Regr)l(ession)52 b(T)-19 b(ests)515 2060 y Fm(Starting)25 b(with)h(v)o(ersion)f(0.22.0,) g(gpsim)h(distrib)n(utes)g(re)o(gression)e(tests.)44 b(The)25 b(purpose)g(of)g(a)i(re-)515 2159 y(gression)j(test)i(is)g(to) f(v)n(alidate)g(correctness.)56 b(The)31 b(tests)h(are)f(designed)f(to) h(e)o(x)o(ercise)f(man)o(y)g(of)515 2259 y(the)24 b(aspects)h(of)f (gpsim)g(and)g(gpsim')-5 b(s)25 b(modules.)37 b(While)25 b(designed)e(primarily)g(for)h(de)n(v)o(elopers,)515 2358 y(the)h(re)o(gression)e(tests)j(also)g(serv)o(e)e(as)i(a)f(rich)g (source)f(of)h(e)o(xamples.)38 b(There)25 b(are)f(man)o(y)g(features) 515 2458 y(gpsim')-5 b(s)20 b(de)n(v)o(elopers)e(will)j(tuck)f(a)o(w)o (ay)f(into)h(a)h(re)o(gression)e(test)i(and)e(f)o(ail)i(to)f(document!) p Black 1905 5208 a(61)p Black eop end %%Page: 62 63 TeXDict begin 62 62 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.62) cvn /DEST pdfmark end 506 174 a Black Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (chapter.15) cvn /DEST pdfmark end 515 432 a 731 x Fk(Chapter)44 b(15)515 1603 y Fo(Theory)51 b(of)h(Operation)515 2060 y Fm(This)22 b(section)g(is)h(only)f(pro)o (vided)e(for)h(those)h(who)g(may)g(be)g(interested)g(in)g(ho)n(w)g (gpsim)g(operates.)515 2159 y(The)28 b(information)f(in)i(here)f(is)i ('mostly')d(accurate.)50 b(Ho)n(we)n(v)o(er)m(,)29 b(as)h(gpsim)e(e)n (v)n(olv)o(es)g(so)h(do)g(the)515 2259 y(details)d(of)g(the)g(theory)f (of)h(operation.)41 b(Use)26 b(the)g(information)e(pro)o(vided)g(here)h (as)i(a)g(high)e(le)n(v)o(el)515 2358 y(introduction)17 b(and)j(use)g(the)h(\(well)f(commented)e(:]\))25 b(source)20 b(to)g(learn)g(the)g(details.)515 2504 y SDict begin H.S end 515 2504 a 515 2504 a SDict begin 12 H.A end 515 2504 a 515 2504 a SDict begin [/View [/XYZ H.V]/Dest (section.15.1) cvn /DEST pdfmark end 515 2504 a 159 x Fj(15.1)119 b(Backgr)n(ound)515 2874 y Fm(gpsim)25 b(is)i(written)f(mostly)g(in)g (C++.)43 b(Why?)e(W)-7 b(ell)28 b(the)e(main)f(reason)h(is)g(to)h (easily)f(implement)515 2974 y(a)f(hierarchical)e(model)g(of)i(a)g (pic.)38 b(If)24 b(you)g(think)f(about)h(a)h(microcontroller)m(,)d(it') -5 b(s)26 b(really)e(easy)g(to)515 3073 y(modularize)h(the)j(v)n (arious)e(components.)45 b(C++)28 b(lends)g(itself)g(well)g(to)g(this)g (conceptualization.)515 3173 y(Furthermore)17 b(Microchip,)g(lik)o(e)j (other)f(microcontroller)d(manuf)o(acturers,)h(has)j(created)e(f)o (amilies)515 3272 y(of)j(de)n(vices)g(that)g(are)h(quite)f(similar)g (to)h(one)f(another)-5 b(.)27 b(Again,)21 b(the)g(C++)h(pro)o(vides)e ('inheritance')515 3372 y(that)g(allo)n(ws)g(the)h(relationships)e(to)h (be)g(shared)g(among)e(the)j(v)n(arious)e(models)g(of)h(pics.)515 3521 y SDict begin H.S end 515 3521 a 515 3521 a SDict begin 12 H.A end 515 3521 a 515 3521 a SDict begin [/View [/XYZ H.V]/Dest (section.15.2) cvn /DEST pdfmark end 515 3521 a 156 x Fj(15.2)119 b(Instructions)515 3888 y Fm(There')-5 b(s)24 b(a)i(base)f(class)h(for)f(the)g(14-bit)f(instructions)g(\(I)h (plan)g(to)g(go)g(one)f(step)i(further)d(and)i(cre-)515 3987 y(ate)k(a)g(base)g(class)g(from)f(which)g(all)i(pic)e (instructions)g(can)h(be)f(deri)n(v)o(ed\).)48 b(It)29 b(primarily)f(serv)o(es)515 4087 y(tw)o(o)20 b(purposes:)k(storage)19 b(that)i(is)g(common)d(for)h(each)h(instruction)f(and)g(a)i(means)f (for)f(generically)515 4187 y(accessing)28 b(virtual)g(functions.)49 b(The)28 b(common)f(information)f(consists)j(of)f(a)h(name)f(-)h(or)f (more)515 4286 y(speci\002cally)20 b(the)g(instruction)f(mnemonic,)g (the)h(opcode,)f(and)g(a)i(pointer)e(to)i(the)f(processor)f(o)n(wn-)515 4386 y(ing)h(the)g(instruction.)j(Some)d(of)g(the)g(virtual)f (functions)g(are)h('e)o(x)o(ecute')e(and)i('name'.)j(As)e(the)f(he)o(x) 515 4485 y(\002le)26 b(is)h(decoded,)d(instances)i(of)f(the)h (instructions)e(are)i(created)f(and)g(stored)g(in)h(an)f(array)g (called)515 4585 y(program_memory)-5 b(.)49 b(The)30 b(inde)o(x)e(into)i(this)h(array)e(is)i(the)f(address)g(at)g(which)g (the)g(instruction)515 4685 y(resides.)25 b(T)-7 b(o)20 b(e)o(x)o(ecute)f(an)h(instruction)f(the)h(follo)n(wing)f(code)g (sequence)g(is)i(in)m(v)n(ok)o(ed:)p Black Black 847 4876 a(program_memory[p)o(c->v)m(alue])o(->e)n(x)o(e)o(cute\()o(\);)p Black 1905 5208 a(62)p Black eop end %%Page: 63 64 TeXDict begin 63 63 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.63) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(15.)45 b(THEOR)-5 b(Y)20 b(OF)h(OPERA)-9 b(TION)1291 b Fm(63)p Black 515 515 a(which)28 b(says,)j(get)e(the)f (instruction)g(at)h(the)f(current)g(program)e(inde)o(x)i(\(pc->v)n (alue\))e(and)i(in)m(v)n(ok)o(e)515 615 y(via)d(the)g(virtual)g (function)e(e)o(x)o(ecute\(\).)38 b(This)25 b(approach)e(allo)n(ws)i(e) o(x)o(ecution)e(break)i(points)f(to)i(be)515 715 y(easily)18 b(set.)25 b(A)18 b(special)g(break)f(point)h(instruction)e(can)i (replace)f(the)h(one)g(residing)f(in)h(the)g(program)515 814 y(memory)g(array)-5 b(.)24 b(When)c('e)o(x)o(ecute')e(is)j(called)f (the)g(break)f(point)h(can)g(be)g(in)m(v)n(ok)o(ed.)515 1058 y SDict begin H.S end 515 1058 a 515 1058 a SDict begin 12 H.A end 515 1058 a 515 1058 a SDict begin [/View [/XYZ H.V]/Dest (section*.53) cvn /DEST pdfmark end 515 1058 a Fn(Pr)o(ogram)e(memory)515 1237 y Fm(Note)j(that)g(in)h(the)f (abo)o(v)o(e)e(discussion,)i(the)h(pc->v)n(alue)d(is)j(referred)e(to)h (as)h(the)f(\223program)e(inde)o(x\224.)515 1337 y(On)30 b(the)h(12-bit)e(and)h(14-bit)f(PIC)i(cores)f(this)h(is)h(unambiguous) 27 b(as)k(the)g(program)d(memory)h(is)515 1436 y(instruction-w)o (ord-wide)13 b(and)k(the)g(program)f(counter)f(increments)i(by)g(one)f (for)h(each)g(instruction.)515 1536 y(On)25 b(the)g(PIC17)h(and)e (PIC18)i(cores,)g(ho)n(we)n(v)o(er)m(,)e(the)h(program)e(memory)h(is)i (accessible)g(through)515 1635 y(the)k(TBLPTR)h(in)f(byte-wide)f(form.) 55 b(The)30 b(program)e(counter)h(increments)g(by)h(tw)o(o)g(for)g (each)515 1735 y(instruction.)515 1858 y(The)22 b(program_memory)c (array)k(in)h(gpsim)f(is)i(al)o(w)o(ays)f(an)g(array)f(of)g (instructions.)32 b(Thus)22 b(the)h(pc-)515 1958 y(>v)n(alue)c(on)h(a)g (PIC18)g(is)i(an)e(inde)o(x)f(whose)h(v)n(alue)f(is)i(half)f(of)g(the)g (PC)h(re)o(gister)n(-triple)e(v)n(alue.)515 2106 y SDict begin H.S end 515 2106 a 515 2106 a SDict begin 12 H.A end 515 2106 a 515 2106 a SDict begin [/View [/XYZ H.V]/Dest (section.15.3) cvn /DEST pdfmark end 515 2106 a 155 x Fj(15.3)119 b(General)30 b(File)h(Registers)515 2470 y Fm(A)j(\002le)g(re)o(gister)f(is)h(simulated)f(by)g(the)g('\002le_re) o(gister')f(class.)66 b(There)33 b(is)h(one)f(instance)g(of)g(a)515 2569 y('\002le_re)o(gister')21 b(object)i(for)g(each)g(\002le)h(re)o (gister)e(in)i(the)f(PIC.)h(All)g(of)f(the)g(re)o(gisters)g(are)g (collected)515 2669 y(together)e(into)h(an)h(array)e(called)i(')l(re)o (gisters')e(which)h(is)i(inde)o(x)o(ed)c(by)i(the)h(re)o(gisters')e (correspond-)515 2769 y(ing)g(PIC)g(addresses.)28 b(The)21 b(array)f(is)i(linear)f(and)f(not)h(bank)o(ed)f(lik)o(e)h(it)h(is)g(in) f(the)g(PIC.)h(\(Banking)e(is)515 2868 y(handled)e(during)h(the)h (simulation.\))515 3016 y SDict begin H.S end 515 3016 a 515 3016 a SDict begin 12 H.A end 515 3016 a 515 3016 a SDict begin [/View [/XYZ H.V]/Dest (section.15.4) cvn /DEST pdfmark end 515 3016 a 155 x Fj(15.4)119 b(Special)31 b(File)f(Registers)515 3380 y Fm(Special)h(\002le)h(re)o(gisters)f(are) g(all)h(of)e(the)i(other)e(re)o(gisters)h(that)g(are)g(not)g(general)f (\002le)i(re)o(gisters.)515 3480 y(This)22 b(includes)g(the)h(core)e (re)o(gisters)h(lik)o(e)h(status)g(and)f(option)f(and)h(also)h(the)f (peripheral)f(re)o(gisters)515 3579 y(lik)o(e)g(eeadr)f(for)h(the)g (EEPR)m(OM.)g(The)f(special)h(\002le)h(re)o(gisters)f(are)g(deri)n(v)o (ed)e(from)h(the)h(general)f(\002le)515 3679 y(re)o(gisters)29 b(and)h(are)g(also)g(stored)g(in)g(the)g(')l(re)o(gisters')f(array)-5 b(.)53 b(There)29 b(is)i(one)f(instance)f(for)h(each)515 3779 y(re)o(gister)f(-)h(e)n(v)o(en)e(if)i(the)g(re)o(gister)f(is)i (accessible)f(in)f(more)g(than)h(one)f(bank.)52 b(So)30 b(for)f(e)o(xample,)515 3878 y(there')-5 b(s)22 b(only)g(one)g (instance)h(for)f(the)h(')-5 b(status')23 b(re)o(gister)m(,)f(ho)n(we)n (v)o(er)f(it)i(may)f(be)h(accessed)g(through)515 3978 y(the)d(')l(re)o(gisters')f(array)g(in)h(more)g(than)g(one)f(place.)515 4101 y(All)30 b(\002le)g(re)o(gisters)g(are)f(accessed)h(by)f(the)h (virtual)f(functions)f('put')g(and)i('get'.)52 b(This)30 b(is)h(done)515 4201 y(for)21 b(tw)o(o)i(main)f(reasons.)31 b(First,)24 b(it)f(con)m(v)o(eniently)c(encapsulates)i(the)i (breakpoint)d(o)o(v)o(erhead)g(\(for)515 4300 y(re)o(gister)25 b(breakpoints\))e(in)j(the)f(\002le)i(re)o(gister)e(and)g(not)g(in)h (the)g(instruction.)40 b(Second,)25 b(and)g(more)515 4400 y(important,)17 b(it)i(allo)n(ws)g(deri)n(v)o(ed)e(classes)j(to)f (implement)e(the)i(put)f(and)h(get)f(more)g(speci\002cally)-5 b(.)24 b(F)o(or)515 4500 y(e)o(xample,)k(a)h('put')e(to)i(the)f(indf)f (re)o(gister)h(is)h(a)g(whole)e(lot)i(dif)n(ferent)d(than)i(a)h(put)f (to)g(the)g(intcon)515 4599 y(re)o(gister)-5 b(.)25 b(In)20 b(each)h(case,)f(the)h('put')e(initiates)i(an)g(action)f(be)o(yond)e (simply)i(storing)g(a)g(byte)g(of)h(data)515 4699 y(in)f(an)g(array)-5 b(.)24 b(It)c(also)h(allo)n(ws)f(the)g(follo)n(wing)f(code)h(sequence)f (to)h(be)g(easily)g(implemented:)p Black Black 722 4899 a Fh(movlw)129 b(trisa)g(;Get)41 b(the)i(address)d(of)j(tris)722 4998 y(movwf)129 b(fsr)p Black Black eop end %%Page: 64 65 TeXDict begin 64 64 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.64) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(15.)45 b(THEOR)-5 b(Y)20 b(OF)h(OPERA)-9 b(TION)1291 b Fm(64)p Black 722 515 a Fh(movf)173 b(indf,w)85 b(;Read)41 b(trisa)g(indirectly)515 663 y SDict begin H.S end 515 663 a 515 663 a SDict begin 12 H.A end 515 663 a 515 663 a SDict begin [/View [/XYZ H.V]/Dest (section.15.5) cvn /DEST pdfmark end 515 663 a 154 x Fj(15.5)119 b(Example)29 b(of)h(an)g(instruction)515 1025 y Fm(Here')-5 b(s)25 b(an)g(e)o(xample)f(of)g(the)h(code)g(for)f(the)h(mo)o(vf)f (instruction)f(that)j(illustrates)f(what)g(has)g(been)515 1125 y(discussed)20 b(abo)o(v)o(e.)j(Some)n(where)c(in)h(gpsim)g(the)g (code)f(sequence:)p Black Black 722 1320 a Fh(program_memory[pc)o(->)o (va)o(lue)o(]-)o(>e)o(xec)o(ut)o(e\()o(\);)515 1515 y Fm(is)28 b(e)o(x)o(ecuted.)43 b(Let')-5 b(s)27 b(say)g(that)g(the)g(pc) g(is)h(pointing)d(to)i(a)g(mo)o(vf)f(instruction.)44 b(The)26 b(->e)o(x)o(ecute\(\))515 1615 y(virtual)19 b(function)e(will)k(in)m(v)n(ok)o(e)d(MO)l(VF::e)o(x)o(ecute.)23 b(I')l(v)o(e)18 b(added)h(e)o(xtra)g(comments)f(\(that)h(aren')o(t)f (in)515 1715 y(the)i(main)g(code\))f(to)h(illustrate)h(in)f(detail)g (what')-5 b(s)21 b(happening.)p Black Black 722 1910 a Fh(void)42 b(MOVF::execute\(vo)o(id\))722 2010 y({)809 2109 y(unsigned)f(int)h(source_value;)809 2309 y(//)h(All)f (instructions)d(are)j('traced')e(\(discussed)g(below\).)g(It's)i (sufficient)809 2408 y(//to)g(only)g(store)g(the)g(opcode.)f(However,)f (even)i(this)g(may)g(be)h(unnecessary)38 b(since)809 2508 y(//the)k(program)f(counter)f(is)j(also)f(traced.)e(Expect)h(this) h(to)h(disappear)d(in)i(the)809 2607 y(//future...)809 2707 y(trace.instruction)o(\(o)o(pco)o(de)o(\);)809 2906 y(//)h('source')d(is)j(a)g(pointer)e(to)i(a)g('file_register')37 b(object.)k(It)h(is)h(initialized)809 3006 y(//by)f(reading)f(the)h ('registers')d(array.)i(Note)h(that)g(the)g(index)g(depends)e(on)j(the) 809 3106 y(//'rp')e(bits)h(\(actually)e(just)i(one)g(bit\))g(in)h(the)f (status)f(register.)f(Time)i(is)809 3205 y(//)h(saved)f(by)g(caching)f (rp)i(as)f(opposed)f(to)i(decoding)d(the)i(status)f(register.)809 3305 y(source)g(=)j(cpu->registers[)o(cp)o(u->)o(rp)37 b(|)43 b(opcode®_IN_IN)o(ST)o(RUC)o(TI)o(ON)o(_MA)o(SK)o(];)809 3504 y(//)g(We)g(have)f(no)h(idea)e(which)h(register)e(we)j(are)f (trying)f(to)i(access)e(and)h(how)g(it)809 3604 y(//should)f(be)h (accessed)f(or)h(if)h(there's)e(a)i(breakpoint)c(set)j(on)h(it.)f(No)h (problem,)809 3703 y(//the)f(virtual)f(function)f('get')h(will)h (resolve)f(all)h(of)h(those)e(details)809 3803 y(//)i(and)f('do)h(the)f (right)g(thing'.)809 3903 y(source_value)d(=)k(source->get\(\);)809 4102 y(//)g(If)g(the)f(destination)d(is)k(W,)g(then)e(the)i (constructor)c(has)j(already)f(initialized)809 4201 y(//'destination'.) c(Otherwise)j(the)i(destination)d(and)k(source)e(are)h(the)g(same.)809 4301 y(if\(opcode&DESTINA)o(TI)o(ON_)o(MA)o(SK)o(\))897 4401 y(destination)d(=)k(source;)258 b(//)43 b(Result)e(goes)h(to)h (source)809 4600 y(//)g(Write)f(the)g(source)f(value)g(to)i(the)f (destination.)d(Again,)i(we)i(have)f(no)g(idea)809 4700 y(//)h(where)f(the)g(destination)d(may)j(be)h(or)809 4799 y(//)g(or)g(how)f(the)h(data)e(should)g(be)i(written)e(there.)809 4899 y(destination->put\()o(so)o(urc)o(e_)o(va)o(lue)o(\);)p Black Black eop end %%Page: 65 66 TeXDict begin 65 65 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.65) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(15.)45 b(THEOR)-5 b(Y)20 b(OF)h(OPERA)-9 b(TION)1291 b Fm(65)p Black 809 515 a Fh(//)43 b(The)f(movf)g (instruction)d(will)j(set)g(Z)i(\(zero\))d(bit)h(in)h(the)f(status)f (register)809 615 y(//if)h(the)h(source)e(value)g(was)h(zero.)809 715 y(cpu->status.put_Z)o(\(0)o(==s)o(ou)o(rc)o(e_v)o(al)o(ue)o(\);)809 914 y(//)h(Finally,)d(advance)h(the)h(pc)h(by)g(one.)809 1013 y(cpu->pc->incremen)o(t\()o(\);)722 1213 y(})515 1443 y SDict begin H.S end 515 1443 a 515 1443 a SDict begin 12 H.A end 515 1443 a 515 1443 a SDict begin [/View [/XYZ H.V]/Dest (section.15.6) cvn /DEST pdfmark end 515 1443 a 174 x Fj(15.6)119 b(T)-9 b(race)515 1828 y Fm(Ev)o(erything)24 b(that)j(is)g(simulated)f(is)i(traced)e(-)h Fg(all)g Fm(of)g(the)g(time.)44 b(The)27 b(trace)f(b)n(uf)n(fer)g(is)h(one)g (huge)515 1928 y(circular)d(b)n(uf)n(fer)h(of)g(inte)o(gers.)40 b(Information)23 b(is)k(or'ed)d(with)i(a)g(trace)f(tok)o(en)g(and)g (then)h(is)g(stored)515 2027 y(in)c(the)h(trace)f(b)n(uf)n(fer)-5 b(.)31 b(No)23 b(attempt)f(is)i(made)e(to)g(associate)h(the)g(items)g (in)f(the)h(trace)f(b)n(uf)n(fer)g(while)515 2127 y(the)e(simulator)f (is)j(simulating)d(a)i(PIC.)f(Thus,)g(if)g(you)g(look)f(at)i(the)f(ra)o (w)g(b)n(uf)n(fer)f(you)g(will)i(see)g(stuf)n(f)515 2226 y(lik)o(e:)34 b(c)o(ycle)24 b(counter)g(=)h(...,)g(opcode)e(fetch)h(=)h (...,)h(re)o(gister)e(read)g(=)h(...,)g(re)o(gister)f(write)h(=)g(...,) g(etc.)515 2326 y(Ho)n(we)n(v)o(er)m(,)h(this)h(information)e(is)i (post)g(processed)f(to)h(ascertain)f(what)h(happened)d(and)j(when)f(it) 515 2426 y(happened.)h(It')-5 b(s)22 b(also)g(possible)f(to)h(use)g (this)g(information)d(to)j(undo)e(the)h(simulation,)g(or)h(in)f(other) 515 2525 y(w)o(ords)f(you)f(can)h(step)g(backw)o(ards.)k(I)c(don')o(t)f (ha)n(v)o(e)h(this)g(implemented)f(yet)h(though.)515 2674 y SDict begin H.S end 515 2674 a 515 2674 a SDict begin 12 H.A end 515 2674 a 515 2674 a SDict begin [/View [/XYZ H.V]/Dest (section.15.7) cvn /DEST pdfmark end 515 2674 a 156 x Fj(15.7)119 b(Br)n(eakpoints)515 3041 y Fm(Breakpoints)19 b(f)o(all)h(into)g(three)g(cate)o(gories:)k(e)o(x)o (ecution,)18 b(re)o(gister)m(,)h(and)g(c)o(ycle.)515 3287 y SDict begin H.S end 515 3287 a 515 3287 a SDict begin 12 H.A end 515 3287 a 515 3287 a SDict begin [/View [/XYZ H.V]/Dest (section*.54) cvn /DEST pdfmark end 515 3287 a Fn(Execution:)515 3467 y Fm(F)o(or)c(e)o(x)o(ecution)e (breakpoints)g(a)i(special)h(instruction)e(appropriately)e(called)j ('Breakpoint_Instruction')515 3567 y(is)22 b(created)f(and)g(placed)g (into)g(the)h(program)e(memory)f(array)i(at)h(the)g(location)f(the)g (break)g(point)g(is)515 3667 y(desired.)35 b(The)24 b(original)f (instruction)f(is)j(sa)n(v)o(ed)f(in)g(the)g(ne)n(wly)f(created)g (breakpoint)f(instruction.)515 3766 y(When)c(the)g(break)f(point)g(is)i (cleared,)e(the)i(original)d(instruction)h(is)i(fetched)e(from)g(the)h (break)f(point)515 3866 y(instruction)i(and)g(placed)h(back)f(into)h (the)g(program)e(memory)h(array)-5 b(.)515 3990 y(Note)29 b(that)f(this)i(scheme)e(has)h(zero)f(o)o(v)o(erhead.)49 b(The)28 b(simulation)g(is)i(only)e(af)n(fected)f(when)i(the)515 4090 y(breakpoint)18 b(is)j(encountered.)515 4336 y SDict begin H.S end 515 4336 a 515 4336 a SDict begin 12 H.A end 515 4336 a 515 4336 a SDict begin [/View [/XYZ H.V]/Dest (section*.55) cvn /DEST pdfmark end 515 4336 a Fn(Register:)515 4517 y Fm(There)e(are)i(at)g(least)g(four)e(dif)n(ferent)g(breakpoint)f (types)j(that)f(can)h(be)f(set)h(on)f(a)h(re)o(gister:)k(read)20 b(an)o(y)515 4616 y(v)n(alue,)h(write)h(an)o(y)f(v)n(alue,)g(read)h(a)g (speci\002c)g(v)n(alue,)f(or)h(write)g(a)g(speci\002c)g(v)n(alue.)30 b(Lik)o(e)21 b(the)h(e)o(x)o(ecu-)515 4716 y(tion)c(breakpoints,)e (there)i(are)g(special)h(breakpoint)d(re)o(gisters)i(that)g(replace)g (a)h(re)o(gister)f(object.)23 b(So)515 4815 y(when)h(the)h(user)g(sets) h(a)f(write)g(breakpoint)e(at)i(re)o(gister)g(0x20)e(for)h(e)o(xample,) h(a)g(ne)n(w)g(breakpoint)p Black Black eop end %%Page: 66 67 TeXDict begin 66 66 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.66) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(15.)45 b(THEOR)-5 b(Y)20 b(OF)h(OPERA)-9 b(TION)1291 b Fm(66)p Black 515 515 a(object)21 b(is)i(created)e(and)g (insert)h(into)g(the)g(\002le)h(re)o(gister)e(array)g(at)h(location)f (0x20.)29 b(When)21 b(the)h(sim-)515 615 y(ulator)e(attempts)g(to)h (access)g(re)o(gister)f(location)f(0x20,)g(the)i(breakpoint)d(object)i (will)h(be)g(accessed)515 715 y(instead.)515 839 y(Note)e(that)h(this)g (scheme)f(too)g(has)h(zero)f(o)o(v)o(erhead,)e(accept)i(when)g(a)h (breakpoint)d(is)k(encountered.)515 1085 y SDict begin H.S end 515 1085 a 515 1085 a SDict begin 12 H.A end 515 1085 a 515 1085 a SDict begin [/View [/XYZ H.V]/Dest (section*.56) cvn /DEST pdfmark end 515 1085 a Fn(Cycle:)515 1266 y Fm(Cycle)e(breakpoints)e(allo)n(w)i(gpsim)g(to)g(alter)h(e)o(x)o (ecution)d(at)i(a)h(speci\002c)f(instruction)f(c)o(ycle.)24 b(This)c(is)515 1365 y(useful)d(for)g(running)e(your)h(simulation)h (for)g(a)h(v)o(ery)e(speci\002c)i(amount)e(of)h(time.)24 b(Internally)-5 b(,)16 b(gpsim)515 1465 y(mak)o(es)24 b(e)o(xtensi)n(v)o(e)g(use)h(of)g(the)g(c)o(ycle)f(breakpoints.)37 b(F)o(or)24 b(e)o(xample,)h(the)g(TMR0)g(object)f(can)h(be)515 1564 y(programmed)17 b(to)j(generate)f(a)i(periodic)d(c)o(ycle)i(break) f(point.)515 1689 y(Cycle)26 b(break)f(points)h(are)g(implemented)e (with)i(a)h(sorted)e(doubly-link)o(ed)e(list.)43 b(The)26 b(link)o(ed)f(list)515 1789 y(contains)c(tw)o(o)i(pieces)g(of)f (information)e(\(besides)i(the)h(links\):)29 b(the)23 b(c)o(ycle)f(at)h(which)f(the)g(break)g(is)515 1888 y(to)27 b(occur)f(and)g(the)h(call)h(back)e(function)1706 1888 y SDict begin H.S end 1706 1888 a -30 x Ff(1)1739 1888 y SDict begin 12 H.L end 1739 1888 a 1739 1888 a SDict begin [/Subtype /Link/Dest (Hfootnote.8) cvn/H /I/Border [0 0 1]BorderArrayPatch/Color [1 0 0] H.B /ANN pdfmark end 1739 1888 a 27 w Fm(that')-5 b(s)28 b(to)f(be)g(in)m(v)n(ok)o (ed)e(when)h(the)h(c)o(ycle)g(does)f(occur)-5 b(.)515 1988 y(The)21 b(break)g(logic)g(is)i(e)o(xtremely)d(simple.)30 b(Whene)n(v)o(er)20 b(the)i(c)o(ycle)f(counter)g(is)i(adv)n(anced)c (\(that)j(is,)515 2088 y(incremented\),)16 b(it')-5 b(s)20 b(compared)d(to)i(the)g(ne)o(xt)f(desired)g(c)o(ycle)h(break)f(point.) 23 b(If)c(there')-5 b(s)19 b(NO)g(match,)515 2187 y(then)24 b(we')l(re)h(done.)39 b(So)25 b(the)g(o)o(v)o(erhead)e(for)h(c)o(ycle)h (breaks)g(is)h(the)f(time)g(required)f(to)h(implement)515 2287 y(a)30 b(comparison.)53 b(If)30 b(there)g(IS)g(a)h(match,)h(then)d (the)h(call)h(back)e(function)g(associated)h(with)g(this)515 2386 y(break)22 b(point)h(is)i(in)m(v)n(ok)o(ed)d(and)h(the)h(ne)o(xt)f (break)g(point)g(in)h(the)f(doubly-link)o(ed)e(list)k(serv)o(es)e(as)i (the)515 2486 y(reference)18 b(for)i(the)g(ne)o(xt)f(c)o(ycle)h(break.) 515 2635 y SDict begin H.S end 515 2635 a 515 2635 a SDict begin 12 H.A end 515 2635 a 515 2635 a SDict begin [/View [/XYZ H.V]/Dest (section.15.8) cvn /DEST pdfmark end 515 2635 a 156 x Fj(15.8)119 b(TIMER1)28 b(Exter)n(nal)i(input)515 3002 y Fm(The)22 b(timer1)g(module)f(can)h(support)f(e)o(xternal)h (input,)g(on)g(some)g(processors,)g(as)i(either)e(a)h(crystal)515 3101 y(using)c(tw)o(o)i(pins)f(or)g(a)h(single)f(pin)f(dri)n(v)o(e.)515 3347 y SDict begin H.S end 515 3347 a 515 3347 a SDict begin 12 H.A end 515 3347 a 515 3347 a SDict begin [/View [/XYZ H.V]/Dest (section*.57) cvn /DEST pdfmark end 515 3347 a Fn(Exter)o(nal)g(Crystal)515 3528 y Fm(If)25 b(an)g(e)o(xternal) f(crystal,)i(typically)e(32,768)f(KHz,)k(is)f(being)e(used,)i(then)f (both)f(T1OSCEN)h(and)515 3627 y(TMR1CS)f(in)h(re)o(gister)e(T1CON)h (should)g(be)g(true.)36 b(Gpsim)24 b(will)h(then)f(automatically)f (simulate)515 3727 y(timer1)k(being)h(dri)n(v)o(en)e(at)j(the)f (crystal)h(frequenc)o(y)c(which)j(can)g(be)g(changed)f(from)g(the)h (def)o(ault)515 3827 y(frequenc)o(y)17 b(by)j(changing)e(the)i(v)n (alue)g(of)g(the)g(processor)f(symbol)g(called)h(tmr1_freq.)515 4073 y SDict begin H.S end 515 4073 a 515 4073 a SDict begin 12 H.A end 515 4073 a 515 4073 a SDict begin [/View [/XYZ H.V]/Dest (section*.58) cvn /DEST pdfmark end 515 4073 a Fn(Single)g(pin)h(dri)o(v)o(e)515 4253 y Fm(If)16 b(the)h(single)g(pin)f(dri)n(v)o(e)g(is)i(being)d(used,)i(then)g(the)f (T1CON)h(re)o(gister)f(bits)i(for)e(T1OSCEN)h(should)515 4353 y(be)23 b(f)o(alse)g(and)f(TMR1CS)i(true,)f(and)f(the)h(T1CKI)f (pin)h(must)g(be)g(dri)n(v)o(en)e(manually)g(such)i(as)h(by)e(a)515 4452 y(stimuli)e(command.)p Black 515 4840 1146 4 v 605 4895 a Fe(1)634 4920 y SDict begin H.S end 634 4920 a 634 4920 a SDict begin H.R end 634 4920 a 634 4920 a SDict begin [/View [/XYZ H.V]/Dest (Hfootnote.8) cvn /DEST pdfmark end 634 4920 a Fd(A)f(call)i(back)f(function)i(is)d(a)g (pointer)i(to)f(a)f(function.)30 b(In)19 b(this)h(conte)o(xt,)h(gpsim)f (is)f(gi)n(v)o(en)i(a)e(pointer)i(to)f(the)g(function)515 4998 y(that')l(s)e(to)g(be)f(in)m(v)o(ok)o(ed)i(\(called\))g(whene)n(v) o(er)g(a)e(c)o(ycle)i(break)f(occurs.)p Black Black Black eop end %%Page: 67 68 TeXDict begin 67 67 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.67) cvn /DEST pdfmark end 506 174 a Black Black 515 432 a SDict begin H.S end 515 432 a 515 432 a SDict begin 12 H.A end 515 432 a 515 432 a SDict begin [/View [/XYZ H.V]/Dest (chapter.16) cvn /DEST pdfmark end 515 432 a 731 x Fk(Chapter)44 b(16)515 1603 y Fo(LICENSES)515 1937 y SDict begin H.S end 515 1937 a 515 1937 a SDict begin 12 H.A end 515 1937 a 515 1937 a SDict begin [/View [/XYZ H.V]/Dest (section.16.1) cvn /DEST pdfmark end 515 1937 a 172 x Fj(16.1)119 b(Gpsim.lyx)515 2320 y Fm(Cop)o(yright)894 2317 y(c)871 2320 y Fa(\015)p Fm(2000-2010)515 2444 y(T)-6 b(.)20 b(Scott)g(Dattalo,)g(Ralf)h(F)o(orsber)o(g,)d(Robert)i(Pearce,)f (Borut)h(Ra\377em)g(and)g(Ro)o(y)g(Rankin)515 2569 y(The)g(source)f(of) h(this)h(document)d(is)j(gpsim.lyx.)515 2693 y(This)d(document)e(is)j (free)f(softw)o(are;)g(you)f(can)h(redistrib)n(ute)f(it)i(and/or)e (modify)f(it)j(under)d(the)j(terms)515 2793 y(of)g(the)g(GNU)h(General) e(Public)h(License)g(published)f(by)h(the)g(Free)g(Softw)o(are)g(F)o (oundation;)e(either)515 2893 y(v)o(ersion)i(2,)h(or)g(\(at)g(your)f (option\))f(an)o(y)i(later)g(v)o(ersion.)515 3017 y(This)26 b(document)f(is)i(distrib)n(uted)f(in)g(the)h(hope)e(that)i(it)g(will)g (be)f(useful,)h(b)n(ut)g(WITHOUT)f(ANY)515 3117 y(W)-10 b(ARRANTY)i(;)29 b(without)d(e)n(v)o(en)g(the)h(implied)g(w)o(arranty)f (of)h(MERCHANT)-8 b(ABILITY)27 b(or)f(FIT)-8 b(-)515 3216 y(NESS)28 b(FOR)h(A)g(P)-8 b(AR)j(TICULAR)29 b(PURPOSE.)g(See)g (the)f(GNU)g(General)g(Public)f(License)h(for)515 3316 y(more)19 b(details.)515 3441 y(Y)-9 b(ou)16 b(should)f(ha)n(v)o(e)h (recei)n(v)o(ed)f(a)i(cop)o(y)e(of)h(the)h(GNU)g(General)e(Public)i (License)f(along)f(with)i(gpsim;)515 3540 y(see)j(the)g(\002le)h (COPYING.)f(If)g(not,)f(write)h(to)h(the)f(Free)g(Softw)o(are)f(F)o (oundation,)e(59)j(T)-6 b(emple)19 b(Place)515 3640 y(-)h(Suite)h(330,) e(Boston,)g(MA)i(02111-1307,)16 b(USA.)515 3783 y SDict begin H.S end 515 3783 a 515 3783 a SDict begin 12 H.A end 515 3783 a 515 3783 a SDict begin [/View [/XYZ H.V]/Dest (section.16.2) cvn /DEST pdfmark end 515 3783 a 162 x Fj(16.2)119 b(Gpsim)515 4155 y Fm(The)22 b(Gpsim)h(program)d(is)k (licensed)e(under)f(v)o(ersion)g(2)i(or)g(higher)e(of)h(the)h(GNU)g (General)f(Public)515 4255 y(License.)30 b(Details)22 b(of)g(this)h(license)f(can)f(be)h(found)f(in)h(the)g(COPYING)g(\002le) h(which)e(should)g(ha)n(v)o(e)515 4355 y(come)14 b(with)i(this)f (program.)22 b(If)15 b(not)g(the)g(license)g(can)g(be)g(found)f(at)2402 4373 y SDict begin H.S end 2402 4373 a Black -18 x Fm(http://www)-5 b(.gnu.or)o (g/licenses/gpl-2.)o(0.h)o(tml)p Black 3770 4298 a SDict begin H.R end 3770 4298 a 3770 4355 a SDict begin [/H /I/Border [0 0 1]BorderArrayPatch/Color [0 1 1]/Action <>/Subtype /Link H.B /ANN pdfmark end 3770 4355 a Fm(.)515 4503 y SDict begin H.S end 515 4503 a 515 4503 a SDict begin 12 H.A end 515 4503 a 515 4503 a SDict begin [/View [/XYZ H.V]/Dest (section.16.3) cvn /DEST pdfmark end 515 4503 a 157 x Fj(16.3)119 b(Libraries)22 b(libgpsim,)j(libgpsim_modules,)f(libgpsim_eXdbm)515 4870 y Fm(The)30 b(libraries)h(libgpsim,)i(libgpsim_modules,)e(and)f (libgpsim_eXdbm)e(are)j(licensed)g(under)515 4970 y(v)o(ersion)22 b(2.1)h(of)g(the)g(GNU)h(Lesser)g(General)f(Public)g(License.)34 b(Details)25 b(of)e(this)h(license)f(can)h(be)p Black 1905 5208 a(67)p Black eop end %%Page: 68 69 TeXDict begin 68 68 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.68) cvn /DEST pdfmark end 506 174 a Black 515 282 a Fl(CHAPTER)21 b(16.)45 b(LICENSES)1844 b Fm(68)p Black 515 515 a(found)25 b(in)h(the)h(COPYING.LESSER)g(\002le)g(which)f (should)g(ha)n(v)o(e)g(come)g(with)h(the)g(program.)42 b(If)515 615 y(not,)19 b(the)i(license)f(can)g(be)g(found)e(at)1566 633 y SDict begin H.S end 1566 633 a Black -18 x Fm(http://www)-5 b(.gnu.or)o (g/licenses/lgpl-2.)o(1.h)o(tml)p Black 2957 559 a SDict begin H.R end 2957 559 a 2957 615 a SDict begin [/H /I/Border [0 0 1]BorderArrayPatch/Color [0 1 1]/Action <>/Subtype /Link H.B /ANN pdfmark end 2957 615 a Fm(.)p Black Black eop end %%Page: 69 70 TeXDict begin 69 69 bop 0 0 a SDict begin /product where{pop product(Distiller)search{pop pop pop version(.)search{exch pop exch pop(3011)eq{gsave newpath 0 0 moveto closepath clip/Courier findfont 10 scalefont setfont 72 72 moveto(.)show grestore}if}{pop}ifelse}{pop}ifelse}if end 0 0 a 506 174 a SDict begin H.S end 506 174 a 506 174 a SDict begin H.R end 506 174 a 506 174 a SDict begin [/View [/XYZ H.V]/Dest (page.69) cvn /DEST pdfmark end 506 174 a Black Black Black 515 990 a Fo(Index)p Black 515 1407 a Fm(7SEGMENTS,)1036 1408 y SDict begin H.S end 1036 1408 a Black -1 x Fm(51)p Black 1119 1351 a SDict begin H.R end 1119 1351 a 1119 1407 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.51) cvn H.B /ANN pdfmark end 1119 1407 a 515 1590 a Fm(and2,)718 1591 y SDict begin H.S end 718 1591 a Black -1 x Fm(48)p Black 801 1534 a SDict begin H.R end 801 1534 a 801 1590 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.48) cvn H.B /ANN pdfmark end 801 1590 a 515 1690 a Fm(attach,)755 1691 y SDict begin H.S end 755 1691 a Black -1 x Fm(10)p Black 838 1633 a SDict begin H.R end 838 1633 a 838 1690 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 838 1690 a 515 1872 a Fm(break,)741 1873 y SDict begin H.S end 741 1873 a Black -1 x Fm(10)p Black 824 1816 a SDict begin H.R end 824 1816 a 824 1872 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 824 1872 a Fm(,)865 1872 y SDict begin H.S end 865 1872 a Black Fm(11)p Black 948 1816 a SDict begin H.R end 948 1816 a 948 1872 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.11) cvn H.B /ANN pdfmark end 948 1872 a 515 1972 a Fm(b)n(us,)670 1973 y SDict begin H.S end 670 1973 a Black -1 x Fm(10)p Black 753 1916 a SDict begin H.R end 753 1916 a 753 1972 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 753 1972 a 515 2154 a Fm(Capacitors,)911 2155 y SDict begin H.S end 911 2155 a Black -1 x Fm(51)p Black 994 2098 a SDict begin H.R end 994 2098 a 994 2154 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.51) cvn H.B /ANN pdfmark end 994 2154 a 515 2254 a Fm(clear)m(,)714 2255 y SDict begin H.S end 714 2255 a Black -1 x Fm(10)p Black 797 2198 a SDict begin H.R end 797 2198 a 797 2254 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 797 2254 a Fm(,)839 2255 y SDict begin H.S end 839 2255 a Black -1 x Fm(13)p Black 922 2198 a SDict begin H.R end 922 2198 a 922 2254 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.13) cvn H.B /ANN pdfmark end 922 2254 a 515 2437 a Fm(disassemble,)957 2438 y SDict begin H.S end 957 2438 a Black -1 x Fm(10)p Black 1041 2380 a SDict begin H.R end 1041 2380 a 1041 2437 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 1041 2437 a Fm(,)1082 2437 y SDict begin H.S end 1082 2437 a Black Fm(14)p Black 1165 2380 a SDict begin H.R end 1165 2380 a 1165 2437 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.14) cvn H.B /ANN pdfmark end 1165 2437 a 515 2536 a Fm(DS1307,)828 2537 y SDict begin H.S end 828 2537 a Black -1 x Fm(53)p Black 911 2480 a SDict begin H.R end 911 2480 a 911 2536 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.53) cvn H.B /ANN pdfmark end 911 2536 a 515 2636 a Fm(dump,)745 2637 y SDict begin H.S end 745 2637 a Black -1 x Fm(10)p Black 828 2580 a SDict begin H.R end 828 2580 a 828 2636 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 828 2636 a Fm(,)870 2636 y SDict begin H.S end 870 2636 a Black Fm(14)p Black 953 2580 a SDict begin H.R end 953 2580 a 953 2636 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.14) cvn H.B /ANN pdfmark end 953 2636 a 515 2819 a Fm(echo,)713 2820 y SDict begin H.S end 713 2820 a Black -1 x Fm(15)p Black 796 2762 a SDict begin H.R end 796 2762 a 796 2819 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.15) cvn H.B /ANN pdfmark end 796 2819 a 515 3001 a Fm(frequenc)o(y)-5 b(,)882 3002 y SDict begin H.S end 882 3002 a Black -1 x Fm(10)p Black 965 2945 a SDict begin H.R end 965 2945 a 965 3001 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 965 3001 a Fm(,)1006 3002 y SDict begin H.S end 1006 3002 a Black -1 x Fm(15)p Black 1089 2945 a SDict begin H.R end 1089 2945 a 1089 3001 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.15) cvn H.B /ANN pdfmark end 1089 3001 a 515 3184 a Fm(GNU)20 b(GPL,)914 3185 y SDict begin H.S end 914 3185 a Black -1 x Fm(67)p Black 997 3128 a SDict begin H.R end 997 3128 a 997 3184 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.67) cvn H.B /ANN pdfmark end 997 3184 a 515 3367 a Fm(HD44780,)884 3368 y SDict begin H.S end 884 3368 a Black -1 x Fm(53)p Black 967 3310 a SDict begin H.R end 967 3310 a 967 3367 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.53) cvn H.B /ANN pdfmark end 967 3367 a 515 3466 a Fm(help,)699 3467 y SDict begin H.S end 699 3467 a Black -1 x Fm(10)p Black 782 3410 a SDict begin H.R end 782 3410 a 782 3466 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 782 3466 a Fm(,)824 3467 y SDict begin H.S end 824 3467 a Black -1 x Fm(15)p Black 907 3410 a SDict begin H.R end 907 3410 a 907 3466 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.15) cvn H.B /ANN pdfmark end 907 3466 a 515 3649 a Fm(I2C)g(EEPR)m(OM,)1035 3650 y SDict begin H.S end 1035 3650 a Black -1 x Fm(50)p Black 1118 3593 a SDict begin H.R end 1118 3593 a 1118 3649 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.50) cvn H.B /ANN pdfmark end 1118 3649 a 515 3749 a Fm(icd,)658 3750 y SDict begin H.S end 658 3750 a Black -1 x Fm(10)p Black 741 3692 a SDict begin H.R end 741 3692 a 741 3749 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 741 3749 a Fm(,)782 3750 y SDict begin H.S end 782 3750 a Black -1 x Fm(15)p Black 865 3692 a SDict begin H.R end 865 3692 a 865 3749 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.15) cvn H.B /ANN pdfmark end 865 3749 a 515 3848 a Fm(instructions,)944 3849 y SDict begin H.S end 944 3849 a Black -1 x Fm(62)p Black 1027 3792 a SDict begin H.R end 1027 3792 a 1027 3848 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.62) cvn H.B /ANN pdfmark end 1027 3848 a 515 4031 a Fm(LED,)718 4032 y SDict begin H.S end 718 4032 a Black -1 x Fm(51)p Black 801 3974 a SDict begin H.R end 801 3974 a 801 4031 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.51) cvn H.B /ANN pdfmark end 801 4031 a 515 4130 a Fm(list,)658 4131 y SDict begin H.S end 658 4131 a Black -1 x Fm(10)p Black 741 4074 a SDict begin H.R end 741 4074 a 741 4130 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 741 4130 a Fm(,)782 4131 y SDict begin H.S end 782 4131 a Black -1 x Fm(15)p Black 865 4074 a SDict begin H.R end 865 4074 a 865 4130 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.15) cvn H.B /ANN pdfmark end 865 4130 a 515 4230 a Fm(load,)699 4231 y SDict begin H.S end 699 4231 a Black -1 x Fm(10)p Black 782 4174 a SDict begin H.R end 782 4174 a 782 4230 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 782 4230 a Fm(,)824 4231 y SDict begin H.S end 824 4231 a Black -1 x Fm(16)p Black 907 4174 a SDict begin H.R end 907 4174 a 907 4230 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.16) cvn H.B /ANN pdfmark end 907 4230 a 515 4330 a Fm(log,)662 4331 y SDict begin H.S end 662 4331 a Black -1 x Fm(10)p Black 745 4273 a SDict begin H.R end 745 4273 a 745 4330 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 745 4330 a 515 4429 a Fm(Logic,)750 4430 y SDict begin H.S end 750 4430 a Black -1 x Fm(48)p Black 833 4373 a SDict begin H.R end 833 4373 a 833 4429 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.48) cvn H.B /ANN pdfmark end 833 4429 a 515 4612 a Fm(macros,)796 4613 y SDict begin H.S end 796 4613 a Black -1 x Fm(16)p Black 879 4556 a SDict begin H.R end 879 4556 a 879 4612 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.16) cvn H.B /ANN pdfmark end 879 4612 a 515 4712 a Fm(module,)805 4713 y SDict begin H.S end 805 4713 a Black -1 x Fm(10)p Black 888 4655 a SDict begin H.R end 888 4655 a 888 4712 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 888 4712 a Fm(,)930 4713 y SDict begin H.S end 930 4713 a Black -1 x Fm(18)p Black 1013 4655 a SDict begin H.R end 1013 4655 a 1013 4712 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.18) cvn H.B /ANN pdfmark end 1013 4712 a 515 4811 a Fm(Modules,)847 4812 y SDict begin H.S end 847 4812 a Black -1 x Fm(46)p Black 930 4755 a SDict begin H.R end 930 4755 a 930 4811 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.46) cvn H.B /ANN pdfmark end 930 4811 a 515 4994 a Fm(node,)718 4995 y SDict begin H.S end 718 4995 a Black -1 x Fm(10)p Black 801 4938 a SDict begin H.R end 801 4938 a 801 4994 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 801 4994 a Fm(,)842 4996 y SDict begin H.S end 842 4996 a Black -2 x Fm(19)p Black 925 4938 a SDict begin H.R end 925 4938 a 925 4994 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.19) cvn H.B /ANN pdfmark end 925 4994 a Black Black 1988 1407 a Fm(not,)2136 1409 y SDict begin H.S end 2136 1409 a Black -2 x Fm(49)p Black 2219 1351 a SDict begin H.R end 2219 1351 a 2219 1407 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.49) cvn H.B /ANN pdfmark end 2219 1407 a 1988 1590 a Fm(or2,)2141 1592 y SDict begin H.S end 2141 1592 a Black -2 x Fm(49)p Black 2224 1534 a SDict begin H.R end 2224 1534 a 2224 1590 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.49) cvn H.B /ANN pdfmark end 2224 1590 a 1988 1773 a Fm(processor)m(,)2345 1774 y SDict begin H.S end 2345 1774 a Black -1 x Fm(10)p Black 2428 1716 a SDict begin H.R end 2428 1716 a 2428 1773 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 2428 1773 a Fm(,)2469 1774 y SDict begin H.S end 2469 1774 a Black -1 x Fm(20)p Black 2552 1716 a SDict begin H.R end 2552 1716 a 2552 1773 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.20) cvn H.B /ANN pdfmark end 2552 1773 a 1988 1955 a Fm(quit,)2159 1956 y SDict begin H.S end 2159 1956 a Black -1 x Fm(10)p Black 2242 1899 a SDict begin H.R end 2242 1899 a 2242 1955 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 2242 1955 a Fm(,)2284 1956 y SDict begin H.S end 2284 1956 a Black -1 x Fm(20)p Black 2367 1899 a SDict begin H.R end 2367 1899 a 2367 1955 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.20) cvn H.B /ANN pdfmark end 2367 1955 a 1988 2138 a Fm(re)o(gisters,)2310 2139 y SDict begin H.S end 2310 2139 a Black -1 x Fm(63)p Black 2393 2082 a SDict begin H.R end 2393 2082 a 2393 2138 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.63) cvn H.B /ANN pdfmark end 2393 2138 a 1988 2238 a Fm(Resistors,)2334 2239 y SDict begin H.S end 2334 2239 a Black -1 x Fm(51)p Black 2417 2181 a SDict begin H.R end 2417 2181 a 2417 2238 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.51) cvn H.B /ANN pdfmark end 2417 2238 a 1988 2337 a Fm(run,)2141 2338 y SDict begin H.S end 2141 2338 a Black -1 x Fm(10)p Black 2224 2281 a SDict begin H.R end 2224 2281 a 2224 2337 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 2224 2337 a Fm(,)2265 2338 y SDict begin H.S end 2265 2338 a Black -1 x Fm(20)p Black 2348 2281 a SDict begin H.R end 2348 2281 a 2348 2337 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.20) cvn H.B /ANN pdfmark end 2348 2337 a 1988 2520 a Fm(SED1530,)2353 2521 y SDict begin H.S end 2353 2521 a Black -1 x Fm(53)p Black 2436 2463 a SDict begin H.R end 2436 2463 a 2436 2520 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.53) cvn H.B /ANN pdfmark end 2436 2520 a 1988 2619 a Fm(set,)2122 2620 y SDict begin H.S end 2122 2620 a Black -1 x Fm(10)p Black 2205 2563 a SDict begin H.R end 2205 2563 a 2205 2619 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 2205 2619 a 1988 2719 a Fm(step,)2164 2720 y SDict begin H.S end 2164 2720 a Black -1 x Fm(10)p Black 2247 2663 a SDict begin H.R end 2247 2663 a 2247 2719 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 2247 2719 a Fm(,)2288 2720 y SDict begin H.S end 2288 2720 a Black -1 x Fm(20)p Black 2371 2663 a SDict begin H.R end 2371 2663 a 2371 2719 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.20) cvn H.B /ANN pdfmark end 2371 2719 a 1988 2819 a Fm(Stimulus,)2325 2819 y SDict begin H.S end 2325 2819 a Black Fm(41)p Black 2408 2762 a SDict begin H.R end 2408 2762 a 2408 2819 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.41) cvn H.B /ANN pdfmark end 2408 2819 a 1988 2918 a Fm(stimulus,)2311 2919 y SDict begin H.S end 2311 2919 a Black -1 x Fm(10)p Black 2394 2862 a SDict begin H.R end 2394 2862 a 2394 2918 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 2394 2918 a Fm(,)2436 2918 y SDict begin H.S end 2436 2918 a Black Fm(21)p Black 2519 2862 a SDict begin H.R end 2519 2862 a 2519 2918 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.21) cvn H.B /ANN pdfmark end 2519 2918 a 1988 3018 a Fm(stopw)o(atch,)2366 3019 y SDict begin H.S end 2366 3019 a Black -1 x Fm(10)p Black 2449 2962 a SDict begin H.R end 2449 2962 a 2449 3018 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 2449 3018 a Fm(,)2490 3018 y SDict begin H.S end 2490 3018 a Black Fm(22)p Black 2573 2962 a SDict begin H.R end 2573 2962 a 2573 3018 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.22) cvn H.B /ANN pdfmark end 2573 3018 a 1988 3118 a Fm(Switches,)2330 3119 y SDict begin H.S end 2330 3119 a Black -1 x Fm(51)p Black 2413 3061 a SDict begin H.R end 2413 3061 a 2413 3118 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.51) cvn H.B /ANN pdfmark end 2413 3118 a 1988 3217 a Fm(symbol,)2274 3218 y SDict begin H.S end 2274 3218 a Black -1 x Fm(10)p Black 2357 3161 a SDict begin H.R end 2357 3161 a 2357 3217 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 2357 3217 a Fm(,)2399 3217 y SDict begin H.S end 2399 3217 a Black Fm(21)p Black 2482 3161 a SDict begin H.R end 2482 3161 a 2482 3217 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.21) cvn H.B /ANN pdfmark end 2482 3217 a 1988 3400 a Fm(trace,)2191 3401 y SDict begin H.S end 2191 3401 a Black -1 x Fm(10)p Black 2274 3344 a SDict begin H.R end 2274 3344 a 2274 3400 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 2274 3400 a Fm(,)2316 3401 y SDict begin H.S end 2316 3401 a Black -1 x Fm(23)p Black 2399 3344 a SDict begin H.R end 2399 3344 a 2399 3400 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.23) cvn H.B /ANN pdfmark end 2399 3400 a 1988 3499 a Fm(ttl165,)2224 3501 y SDict begin H.S end 2224 3501 a Black -2 x Fm(49)p Black 2307 3443 a SDict begin H.R end 2307 3443 a 2307 3499 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.49) cvn H.B /ANN pdfmark end 2307 3499 a 1988 3599 a Fm(ttl377,)2224 3601 y SDict begin H.S end 2224 3601 a Black -2 x Fm(49)p Black 2307 3543 a SDict begin H.R end 2307 3543 a 2307 3599 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.49) cvn H.B /ANN pdfmark end 2307 3599 a 1988 3699 a Fm(ttl595,)2224 3700 y SDict begin H.S end 2224 3700 a Black -1 x Fm(50)p Black 2307 3642 a SDict begin H.R end 2307 3642 a 2307 3699 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.50) cvn H.B /ANN pdfmark end 2307 3699 a 1988 3881 a Fm(USAR)-5 b(T)21 b(module,)2567 3882 y SDict begin H.S end 2567 3882 a Black -1 x Fm(48)p Black 2650 3825 a SDict begin H.R end 2650 3825 a 2650 3881 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.48) cvn H.B /ANN pdfmark end 2650 3881 a 1988 4064 a Fm(v)o(ersion,)2273 4065 y SDict begin H.S end 2273 4065 a Black -1 x Fm(10)p Black 2356 4008 a SDict begin H.R end 2356 4008 a 2356 4064 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 2356 4064 a 1988 4164 a Fm(V)-11 b(oltage)20 b(Sources,)2566 4165 y SDict begin H.S end 2566 4165 a Black -1 x Fm(51)p Black 2649 4107 a SDict begin H.R end 2649 4107 a 2649 4164 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.51) cvn H.B /ANN pdfmark end 2649 4164 a 1988 4346 a Fm(x,)2071 4347 y SDict begin H.S end 2071 4347 a Black -1 x Fm(10)p Black 2154 4290 a SDict begin H.R end 2154 4290 a 2154 4346 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.10) cvn H.B /ANN pdfmark end 2154 4346 a Fm(,)2196 4347 y SDict begin H.S end 2196 4347 a Black -1 x Fm(23)p Black 2279 4290 a SDict begin H.R end 2279 4290 a 2279 4346 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.23) cvn H.B /ANN pdfmark end 2279 4346 a 1988 4446 a Fm(xor2,)2182 4448 y SDict begin H.S end 2182 4448 a Black -2 x Fm(49)p Black 2265 4390 a SDict begin H.R end 2265 4390 a 2265 4446 a SDict begin [/Color [1 0 0]/H /I/Border [0 0 1]BorderArrayPatch/Subtype /Link/Dest (page.49) cvn H.B /ANN pdfmark end 2265 4446 a Black 1905 5208 a Fm(69)p Black eop end %%Trailer userdict /end-hook known{end-hook}if %%EOF gpsim-0.27.0/acinclude.m40000644000076400007640000000432610563700567012057 00000000000000dnl Borut Razem dnl dnl This macro checks for the presence of the readline library. dnl It works also in cross-compilation environment. dnl dnl To get it into the aclocal.m4 dnl file, do this: dnl aclocal -I . --verbose dnl dnl The --verbose will show all of the files that are searched dnl for .m4 macros. AC_DEFUN([wi_LIB_READLINE], [ dnl check for the readline.h header file AC_CHECK_HEADER(readline/readline.h) if test "$ac_cv_header_readline_readline_h" = yes; then dnl check the readline version cat > conftest.$ac_ext < #include wi_LIB_READLINE_VERSION RL_VERSION_MAJOR RL_VERSION_MINOR EOF wi_READLINE_VERSION=$($CPP $CPPFLAGS conftest.$ac_ext | sed -n -e "s/^wi_LIB_READLINE_VERSION *\([[0-9\]][[0-9\]]*\) *\([[0-9\]][[0-9\]]*\)$/\1.\2/p") rm -rf conftest* if test -n "$wi_READLINE_VERSION"; then wi_MAJOR=$(expr $wi_READLINE_VERSION : '\([[0-9]][[0-9]]*\)\.') wi_MINOR=$(expr $wi_READLINE_VERSION : '[[0-9]][[0-9]]*\.\([[0-9]][[0-9]]*$\)') if test $wi_MINOR -lt 10; then wi_MINOR=$(expr $wi_MINOR \* 10) fi wi_READLINE_VERSION=$(expr $wi_MAJOR \* 100 + $wi_MINOR) else wi_READLINE_VERSION=-1 fi dnl check for the readline library ac_save_LIBS="$LIBS" # Note: $LIBCURSES is permitted to be empty. for LIBREADLINE in "-lreadline.dll" "-lreadline" "-lreadline $LIBCURSES" "-lreadline -ltermcap" "-lreadline -lncurses" "-lreadline -lcurses" do AC_MSG_CHECKING([for GNU Readline library $LIBREADLINE]) LIBS="$ac_save_LIBS $LIBREADLINE" AC_TRY_LINK([ /* includes */ #include #include ],[ /* function-body */ int dummy = rl_completion_append_character; /* rl_completion_append_character appeared in version 2.1 */ readline(NULL); ],[ wi_cv_lib_readline=yes AC_MSG_RESULT(yes) ],[ wi_cv_lib_readline=no AC_MSG_RESULT(no) ]) if test "$wi_cv_lib_readline" = yes; then AC_SUBST(LIBREADLINE) AC_DEFINE_UNQUOTED(HAVE_LIBREADLINE, $wi_READLINE_VERSION, [Readline]) break fi done LIBS="$ac_save_LIBS" fi ]) gpsim-0.27.0/ANNOUNCE0000664000076400007640000000346712207522125011013 00000000000000 gpsim GNU Pic Simulator, a simulator for Microchip's PIC microcontrollers. Version 0.27.0 release http://sourceforge.net/project/showfiles.php?group_id=2341 http://gpsim.sourceforge.net/gpsim.html Highlights: The Enhanced Mid-Range Architecture is now supported by gpsim. Gpsim will compile with either gtkextra-2 or gtkextra-3. Memory cleanup, processor classes release memory on closing. The extra modules integrated into release package Cycle counter increments when MCLR pin low. Fixes for building with more recent tool chain. Extras module for DS1820 1-wire temperature sensor. New Processors: pic12f1822 pic16f684 pic16f1823 Bugs Reports closed: 131 Computed GOTO broken on big ROM 18F 132 Segfault on first loading COD file when compiled with clang 133 gpsim doesn't compile with a modern Linux build chain 134 can't generate lxt log 137 CCP match does not clear TMR1H:TMR1L 138 Computed GOTO cycle timing wrong 139 Data addressing wrong (PIC18 w/​ extended instruction mode) 146 LCD module: wrong #include 147 Conflicting declarations of variable DbmParseLineNumber 148 logging register writes does not work as expected 150 gpsim-0.26.1 UART transmitter not working 151 18f6520 PSP functionality missing 152 TRISD, TRISE incorrect on 18f6520 18c4x2 in WDT reset 153 P18 processors do not reset on stack overflow/​underflow and stack window does not work 155 p16f684 reset regression test does immediate WDT reset 156 Wrong register names when single stepping on 14bit processors 157 SVN does not compile with automake >= 1.12 Feature Requests closed 31 support for 16F684 32 Support for 16F enhanced midrange parts 33 1Wire DS1820 Digital Thermometer implementation. Patches Applied 28 Build with gtkextra-3 29 Check for libdl gpsim-0.27.0/Makefile.in0000664000076400007640000006316412210742103011721 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = . DIST_COMMON = INSTALL NEWS README AUTHORS ChangeLog \ $(srcdir)/Makefile.in $(srcdir)/Makefile.am \ $(top_srcdir)/configure $(am__configure_deps) \ $(srcdir)/config.h.in $(srcdir)/gpsim.spec.in COPYING \ COPYING.LESSER TODO config.guess config.sub depcomp install-sh \ missing ylwrap ltmain.sh ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) am__CONFIG_DISTCLEAN_FILES = config.status config.cache config.log \ configure.lineno config.status.lineno mkinstalldirs = $(install_sh) -d CONFIG_HEADER = config.h CONFIG_CLEAN_FILES = gpsim.spec CONFIG_CLEAN_VPATH_FILES = AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive cscopelist-recursive \ ctags-recursive dvi-recursive html-recursive info-recursive \ install-data-recursive install-dvi-recursive \ install-exec-recursive install-html-recursive \ install-info-recursive install-pdf-recursive \ install-ps-recursive install-recursive installcheck-recursive \ installdirs-recursive pdf-recursive ps-recursive \ tags-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive am__recursive_targets = \ $(RECURSIVE_TARGETS) \ $(RECURSIVE_CLEAN_TARGETS) \ $(am__extra_recursive_targets) AM_RECURSIVE_TARGETS = $(am__recursive_targets:-recursive=) TAGS CTAGS \ cscope distdir dist dist-all distcheck am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) \ $(LISP)config.h.in # Read a list of newline-separated strings from the standard input, # and print each of them once, without duplicates. Input order is # *not* preserved. am__uniquify_input = $(AWK) '\ BEGIN { nonempty = 0; } \ { items[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in items) print i; }; } \ ' # Make sure the list of sources is unique. This is necessary because, # e.g., the same source file might be shared among _SOURCES variables # for different programs/libraries. am__define_uniq_tagged_files = \ list='$(am__tagged_files)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | $(am__uniquify_input)` ETAGS = etags CTAGS = ctags CSCOPE = cscope DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) distdir = $(PACKAGE)-$(VERSION) top_distdir = $(distdir) am__remove_distdir = \ if test -d "$(distdir)"; then \ find "$(distdir)" -type d ! -perm -200 -exec chmod u+w {} ';' \ && rm -rf "$(distdir)" \ || { sleep 5 && rm -rf "$(distdir)"; }; \ else :; fi am__post_remove_distdir = $(am__remove_distdir) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" DIST_ARCHIVES = $(distdir).tar.gz GZIP_ENV = --best DIST_TARGETS = dist-gzip distuninstallcheck_listfiles = find . -type f -print am__distuninstallcheck_listfiles = $(distuninstallcheck_listfiles) \ | sed 's|^\./|$(prefix)/|' | grep -v '$(infodir)/dir$$' distcleancheck_listfiles = find . -type f -print ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ ACLOCAL_AMFLAGS = -I m4 SUBDIRS = eXdbm src cli xpms gui gpsim modules examples doc regression extras EXTRA_DIST = PROCESSORS HISTORY README.EXAMPLES ANNOUNCE README.MODULES \ README INSTALL.gpsim COPYING.LESSER \ makefile.mingw \ plat/win32/uxtime.h \ plat/win32/libgpsim.def \ plat/win32/glist.cpp \ plat/win32/settings_reg.h \ plat/win32/makefile.mingw \ plat/win32/modules.def \ plat/win32/icd.cc \ plat/win32/uxsleep.cc \ plat/win32/gpsim.ico \ plat/win32/gpsim.def \ plat/win32/gpsim.nsi \ plat/win32/uxtime.cc \ plat/win32/fd2raw.cpp \ plat/win32/unistd.h \ plat/win32/fd2raw.h \ plat/win32/settings_reg.cpp \ plat/win32/configure_win32.awk \ plat/win32/make.mingw all: config.h $(MAKE) $(AM_MAKEFLAGS) all-recursive .SUFFIXES: am--refresh: Makefile @: $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ echo ' cd $(srcdir) && $(AUTOMAKE) --gnu'; \ $(am__cd) $(srcdir) && $(AUTOMAKE) --gnu \ && exit 0; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ echo ' $(SHELL) ./config.status'; \ $(SHELL) ./config.status;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) $(SHELL) ./config.status --recheck $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) $(am__cd) $(srcdir) && $(AUTOCONF) $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) $(am__cd) $(srcdir) && $(ACLOCAL) $(ACLOCAL_AMFLAGS) $(am__aclocal_m4_deps): config.h: stamp-h1 @if test ! -f $@; then rm -f stamp-h1; else :; fi @if test ! -f $@; then $(MAKE) $(AM_MAKEFLAGS) stamp-h1; else :; fi stamp-h1: $(srcdir)/config.h.in $(top_builddir)/config.status @rm -f stamp-h1 cd $(top_builddir) && $(SHELL) ./config.status config.h $(srcdir)/config.h.in: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) ($(am__cd) $(top_srcdir) && $(AUTOHEADER)) rm -f stamp-h1 touch $@ distclean-hdr: -rm -f config.h stamp-h1 gpsim.spec: $(top_builddir)/config.status $(srcdir)/gpsim.spec.in cd $(top_builddir) && $(SHELL) ./config.status $@ mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs distclean-libtool: -rm -f libtool config.lt # This directory's subdirectories are mostly independent; you can cd # into them and run 'make' without going through this Makefile. # To change the values of 'make' variables: instead of editing Makefiles, # (1) if the variable is set in 'config.status', edit 'config.status' # (which will cause the Makefiles to be regenerated when you run 'make'); # (2) otherwise, pass the desired values on the 'make' command line. $(am__recursive_targets): @fail=; \ if $(am__make_keepgoing); then \ failcom='fail=yes'; \ else \ failcom='exit 1'; \ fi; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" ID: $(am__tagged_files) $(am__define_uniq_tagged_files); mkid -fID $$unique tags: tags-recursive TAGS: tags tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ $(am__define_uniq_tagged_files); \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: ctags-recursive CTAGS: ctags ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) $(am__define_uniq_tagged_files); \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" cscope: cscope.files test ! -s cscope.files \ || $(CSCOPE) -b -q $(AM_CSCOPEFLAGS) $(CSCOPEFLAGS) -i cscope.files $(CSCOPE_ARGS) clean-cscope: -rm -f cscope.files cscope.files: clean-cscope cscopelist cscopelist: cscopelist-recursive cscopelist-am: $(am__tagged_files) list='$(am__tagged_files)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags -rm -f cscope.out cscope.in.out cscope.po.out cscope.files distdir: $(DISTFILES) $(am__remove_distdir) test -d "$(distdir)" || mkdir "$(distdir)" @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$(top_distdir)" distdir="$(distdir)" \ dist-hook -test -n "$(am__skip_mode_fix)" \ || find "$(distdir)" -type d ! -perm -755 \ -exec chmod u+rwx,go+rx {} \; -o \ ! -type d ! -perm -444 -links 1 -exec chmod a+r {} \; -o \ ! -type d ! -perm -400 -exec chmod a+r {} \; -o \ ! -type d ! -perm -444 -exec $(install_sh) -c -m a+r {} {} \; \ || chmod -R a+r "$(distdir)" dist-gzip: distdir tardir=$(distdir) && $(am__tar) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).tar.gz $(am__post_remove_distdir) dist-bzip2: distdir tardir=$(distdir) && $(am__tar) | BZIP2=$${BZIP2--9} bzip2 -c >$(distdir).tar.bz2 $(am__post_remove_distdir) dist-lzip: distdir tardir=$(distdir) && $(am__tar) | lzip -c $${LZIP_OPT--9} >$(distdir).tar.lz $(am__post_remove_distdir) dist-xz: distdir tardir=$(distdir) && $(am__tar) | XZ_OPT=$${XZ_OPT--e} xz -c >$(distdir).tar.xz $(am__post_remove_distdir) dist-tarZ: distdir tardir=$(distdir) && $(am__tar) | compress -c >$(distdir).tar.Z $(am__post_remove_distdir) dist-shar: distdir shar $(distdir) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).shar.gz $(am__post_remove_distdir) dist-zip: distdir -rm -f $(distdir).zip zip -rq $(distdir).zip $(distdir) $(am__post_remove_distdir) dist dist-all: $(MAKE) $(AM_MAKEFLAGS) $(DIST_TARGETS) am__post_remove_distdir='@:' $(am__post_remove_distdir) # This target untars the dist file and tries a VPATH configuration. Then # it guarantees that the distribution is self-contained by making another # tarfile. distcheck: dist case '$(DIST_ARCHIVES)' in \ *.tar.gz*) \ GZIP=$(GZIP_ENV) gzip -dc $(distdir).tar.gz | $(am__untar) ;;\ *.tar.bz2*) \ bzip2 -dc $(distdir).tar.bz2 | $(am__untar) ;;\ *.tar.lz*) \ lzip -dc $(distdir).tar.lz | $(am__untar) ;;\ *.tar.xz*) \ xz -dc $(distdir).tar.xz | $(am__untar) ;;\ *.tar.Z*) \ uncompress -c $(distdir).tar.Z | $(am__untar) ;;\ *.shar.gz*) \ GZIP=$(GZIP_ENV) gzip -dc $(distdir).shar.gz | unshar ;;\ *.zip*) \ unzip $(distdir).zip ;;\ esac chmod -R a-w $(distdir) chmod u+w $(distdir) mkdir $(distdir)/_build $(distdir)/_inst chmod a-w $(distdir) test -d $(distdir)/_build || exit 0; \ dc_install_base=`$(am__cd) $(distdir)/_inst && pwd | sed -e 's,^[^:\\/]:[\\/],/,'` \ && dc_destdir="$${TMPDIR-/tmp}/am-dc-$$$$/" \ && am__cwd=`pwd` \ && $(am__cd) $(distdir)/_build \ && ../configure --srcdir=.. --prefix="$$dc_install_base" \ $(AM_DISTCHECK_CONFIGURE_FLAGS) \ $(DISTCHECK_CONFIGURE_FLAGS) \ && $(MAKE) $(AM_MAKEFLAGS) \ && $(MAKE) $(AM_MAKEFLAGS) dvi \ && $(MAKE) $(AM_MAKEFLAGS) check \ && $(MAKE) $(AM_MAKEFLAGS) install \ && $(MAKE) $(AM_MAKEFLAGS) installcheck \ && $(MAKE) $(AM_MAKEFLAGS) uninstall \ && $(MAKE) $(AM_MAKEFLAGS) distuninstallcheck_dir="$$dc_install_base" \ distuninstallcheck \ && chmod -R a-w "$$dc_install_base" \ && ({ \ (cd ../.. && umask 077 && mkdir "$$dc_destdir") \ && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" install \ && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" uninstall \ && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" \ distuninstallcheck_dir="$$dc_destdir" distuninstallcheck; \ } || { rm -rf "$$dc_destdir"; exit 1; }) \ && rm -rf "$$dc_destdir" \ && $(MAKE) $(AM_MAKEFLAGS) dist \ && rm -rf $(DIST_ARCHIVES) \ && $(MAKE) $(AM_MAKEFLAGS) distcleancheck \ && cd "$$am__cwd" \ || exit 1 $(am__post_remove_distdir) @(echo "$(distdir) archives ready for distribution: "; \ list='$(DIST_ARCHIVES)'; for i in $$list; do echo $$i; done) | \ sed -e 1h -e 1s/./=/g -e 1p -e 1x -e '$$p' -e '$$x' distuninstallcheck: @test -n '$(distuninstallcheck_dir)' || { \ echo 'ERROR: trying to run $@ with an empty' \ '$$(distuninstallcheck_dir)' >&2; \ exit 1; \ }; \ $(am__cd) '$(distuninstallcheck_dir)' || { \ echo 'ERROR: cannot chdir into $(distuninstallcheck_dir)' >&2; \ exit 1; \ }; \ test `$(am__distuninstallcheck_listfiles) | wc -l` -eq 0 \ || { echo "ERROR: files left after uninstall:" ; \ if test -n "$(DESTDIR)"; then \ echo " (check DESTDIR support)"; \ fi ; \ $(distuninstallcheck_listfiles) ; \ exit 1; } >&2 distcleancheck: distclean @if test '$(srcdir)' = . ; then \ echo "ERROR: distcleancheck can only run from a VPATH build" ; \ exit 1 ; \ fi @test `$(distcleancheck_listfiles) | wc -l` -eq 0 \ || { echo "ERROR: files left in build directory after distclean:" ; \ $(distcleancheck_listfiles) ; \ exit 1; } >&2 check-am: all-am check: check-recursive all-am: Makefile config.h installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f $(am__CONFIG_DISTCLEAN_FILES) -rm -f Makefile distclean-am: clean-am distclean-generic distclean-hdr \ distclean-libtool distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f $(am__CONFIG_DISTCLEAN_FILES) -rm -rf $(top_srcdir)/autom4te.cache -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(am__recursive_targets) all install-am install-strip .PHONY: $(am__recursive_targets) CTAGS GTAGS TAGS all all-am \ am--refresh check check-am clean clean-cscope clean-generic \ clean-libtool cscope cscopelist-am ctags ctags-am dist \ dist-all dist-bzip2 dist-gzip dist-hook dist-lzip dist-shar \ dist-tarZ dist-xz dist-zip distcheck distclean \ distclean-generic distclean-hdr distclean-libtool \ distclean-tags distcleancheck distdir distuninstallcheck dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-pdf \ install-pdf-am install-ps install-ps-am install-strip \ installcheck installcheck-am installdirs installdirs-am \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags tags-am uninstall uninstall-am dist-hook: cp gpsim.spec $(distdir) # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/Makefile.am0000664000076400007640000000134312203421145011701 00000000000000 ACLOCAL_AMFLAGS = -I m4 SUBDIRS = eXdbm src cli xpms gui gpsim modules examples doc regression extras dist-hook: cp gpsim.spec $(distdir) EXTRA_DIST = PROCESSORS HISTORY README.EXAMPLES ANNOUNCE README.MODULES \ README INSTALL.gpsim COPYING.LESSER \ makefile.mingw \ plat/win32/uxtime.h \ plat/win32/libgpsim.def \ plat/win32/glist.cpp \ plat/win32/settings_reg.h \ plat/win32/makefile.mingw \ plat/win32/modules.def \ plat/win32/icd.cc \ plat/win32/uxsleep.cc \ plat/win32/gpsim.ico \ plat/win32/gpsim.def \ plat/win32/gpsim.nsi \ plat/win32/uxtime.cc \ plat/win32/fd2raw.cpp \ plat/win32/unistd.h \ plat/win32/fd2raw.h \ plat/win32/settings_reg.cpp \ plat/win32/configure_win32.awk \ plat/win32/make.mingw gpsim-0.27.0/missing0000755000076400007640000001533112157551763011266 00000000000000#! /bin/sh # Common wrapper for a few potentially missing GNU programs. scriptversion=2012-06-26.16; # UTC # Copyright (C) 1996-2013 Free Software Foundation, Inc. # Originally written 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, 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. if test $# -eq 0; then echo 1>&2 "Try '$0 --help' for more information" exit 1 fi case $1 in --is-lightweight) # Used by our autoconf macros to check whether the available missing # script is modern enough. exit 0 ;; --run) # Back-compat with the calling convention used by older automake. shift ;; -h|--h|--he|--hel|--help) echo "\ $0 [OPTION]... PROGRAM [ARGUMENT]... Run 'PROGRAM [ARGUMENT]...', returning a proper advice when this fails due to PROGRAM being missing or too old. Options: -h, --help display this help and exit -v, --version output version information and exit Supported PROGRAM values: aclocal autoconf autoheader autom4te automake makeinfo bison yacc flex lex help2man Version suffixes to PROGRAM as well as the prefixes 'gnu-', 'gnu', and 'g' are ignored when checking the name. Send bug reports to ." exit $? ;; -v|--v|--ve|--ver|--vers|--versi|--versio|--version) echo "missing $scriptversion (GNU Automake)" exit $? ;; -*) echo 1>&2 "$0: unknown '$1' option" echo 1>&2 "Try '$0 --help' for more information" exit 1 ;; esac # Run the given program, remember its exit status. "$@"; st=$? # If it succeeded, we are done. test $st -eq 0 && exit 0 # Also exit now if we it failed (or wasn't found), and '--version' was # passed; such an option is passed most likely to detect whether the # program is present and works. case $2 in --version|--help) exit $st;; esac # Exit code 63 means version mismatch. This often happens when the user # tries to use an ancient version of a tool on a file that requires a # minimum version. if test $st -eq 63; then msg="probably too old" elif test $st -eq 127; then # Program was missing. msg="missing on your system" else # Program was found and executed, but failed. Give up. exit $st fi perl_URL=http://www.perl.org/ flex_URL=http://flex.sourceforge.net/ gnu_software_URL=http://www.gnu.org/software program_details () { case $1 in aclocal|automake) echo "The '$1' program is part of the GNU Automake package:" echo "<$gnu_software_URL/automake>" echo "It also requires GNU Autoconf, GNU m4 and Perl in order to run:" echo "<$gnu_software_URL/autoconf>" echo "<$gnu_software_URL/m4/>" echo "<$perl_URL>" ;; autoconf|autom4te|autoheader) echo "The '$1' program is part of the GNU Autoconf package:" echo "<$gnu_software_URL/autoconf/>" echo "It also requires GNU m4 and Perl in order to run:" echo "<$gnu_software_URL/m4/>" echo "<$perl_URL>" ;; esac } give_advice () { # Normalize program name to check for. normalized_program=`echo "$1" | sed ' s/^gnu-//; t s/^gnu//; t s/^g//; t'` printf '%s\n' "'$1' is $msg." configure_deps="'configure.ac' or m4 files included by 'configure.ac'" case $normalized_program in autoconf*) echo "You should only need it if you modified 'configure.ac'," echo "or m4 files included by it." program_details 'autoconf' ;; autoheader*) echo "You should only need it if you modified 'acconfig.h' or" echo "$configure_deps." program_details 'autoheader' ;; automake*) echo "You should only need it if you modified 'Makefile.am' or" echo "$configure_deps." program_details 'automake' ;; aclocal*) echo "You should only need it if you modified 'acinclude.m4' or" echo "$configure_deps." program_details 'aclocal' ;; autom4te*) echo "You might have modified some maintainer files that require" echo "the 'automa4te' program to be rebuilt." program_details 'autom4te' ;; bison*|yacc*) echo "You should only need it if you modified a '.y' file." echo "You may want to install the GNU Bison package:" echo "<$gnu_software_URL/bison/>" ;; lex*|flex*) echo "You should only need it if you modified a '.l' file." echo "You may want to install the Fast Lexical Analyzer package:" echo "<$flex_URL>" ;; help2man*) echo "You should only need it if you modified a dependency" \ "of a man page." echo "You may want to install the GNU Help2man package:" echo "<$gnu_software_URL/help2man/>" ;; makeinfo*) echo "You should only need it if you modified a '.texi' file, or" echo "any other file indirectly affecting the aspect of the manual." echo "You might want to install the Texinfo package:" echo "<$gnu_software_URL/texinfo/>" echo "The spurious makeinfo call might also be the consequence of" echo "using a buggy 'make' (AIX, DU, IRIX), in which case you might" echo "want to install GNU make:" echo "<$gnu_software_URL/make/>" ;; *) echo "You might have modified some files without having the proper" echo "tools for further handling them. Check the 'README' file, it" echo "often tells you about the needed prerequisites for installing" echo "this package. You may also peek at any GNU archive site, in" echo "case some other package contains this missing '$1' program." ;; esac } give_advice "$1" | sed -e '1s/^/WARNING: /' \ -e '2,$s/^/ /' >&2 # Propagate the correct exit status (expected to be 127 for a program # not found, 63 for a program that failed due to version mismatch). exit $st # Local variables: # 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: gpsim-0.27.0/gpsim.spec0000664000076400007640000001300112210742357011643 00000000000000Name: gpsim Version: 0.27.0 Release: 1.%{?dist} Summary: A simulator for Microchip (TM) PIC (TM) microcontrollers Summary(fr): Un simulateur pour les microcontrĂ´leurs PIC (TM) Microchip (TM) Group: Development/Debuggers # Source code is GPLv2+ except src/, modules/ and eXdbm/ which are LGPLv2+ License: GPLv2+ and LGPLv2+ URL: http://www.dattalo.com/gnupic/gpsim.html Source: http://dl.sf.net/gpsim/gpsim-%{version}.tar.gz BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n) BuildRequires: gtk+extra-devel, flex, readline-devel, popt-devel BuildRequires: autoconf %description gpsim is a simulator for Microchip (TM) PIC (TM) microcontrollers. It supports most devices in Microchip's 12-bit, 14bit, and 16-bit core families. In addition, gpsim supports dynamically loadable modules such as LED's, LCD's, resistors, etc. to extend the simulation environment beyond the PIC. %description -l fr gpsim est un simulateur pour les microcontrĂ´leurs PIC (TM) Microchip (TM). Il gère la plupart des microcontrĂ´leurs des familles 12, 14 et 16 bits. gpsim gère Ă©galement les modules chargeables dynamiquement tels que les LED, afficheurs LCD, rĂ©sistances, etc. afin d'Ă©tendre l'environnement de simulation des PIC. %package devel Summary: Libraries and files headers for gpsim Summary(fr): Bibliothèques et fichiers d'en-tĂŞtes pour gpsim Group: Development/Libraries Requires: %{name} = %{version}-%{release} %description devel The %{name}-devel package includes the static libraries, header files, and documentation for compiling programs that use the gpsim library. %description -l fr devel Le paquetage %{name}-devel contient les bibliothèques statiques, les fichiers d'en-tĂŞtes et la documentation nĂ©cessaires Ă  la compilation des programmes qui utilisent la bibliothèque gpsim. %prep %setup -q # Fix files with non UTF8 characters mv AUTHORS AUTHORS.raw mv ChangeLog ChangeLog.raw iconv -f ISO88592 -t UTF8 AUTHORS.raw -o AUTHORS iconv -f ISO88592 -t UTF8 ChangeLog.raw -o ChangeLog rm -f ChangeLog.raw AUTHORS.raw autoconf %build %configure %{__make} %{?_smp_mflags} %install %{__rm} -rf %{buildroot} %{__make} install DESTDIR=%{buildroot} %{__rm} -f examples/Makefile %{__rm} -f examples/modules/Makefile %{__rm} -f examples/projects/Makefile %clean %{__rm} -rf %{buildroot} %post -p /sbin/ldconfig %postun -p /sbin/ldconfig %files %defattr(-,root,root,-) %doc ANNOUNCE AUTHORS COPYING COPYING.LESSER ChangeLog HISTORY NEWS %doc README README.EXAMPLES README.MODULES TODO %doc doc/gpsim.lyx doc/gpsim.pdf doc/gpsim.ps %doc examples/ %{_bindir}/* %{_libdir}/*.so.* %files devel %defattr(-,root,root,-) %doc COPYING COPYING.LESSER %{_libdir}/*.so %exclude %{_libdir}/*.la %exclude %{_libdir}/*.a %{_includedir}/* %changelog * Sun Jun 06 2010 Roy Rankin 0.25.0-1 - Add LGPLv2+ license, do not include *.a files * Sun Mar 01 2009 Roy Rankin 0.23.0-1 - Convert doc files to UTF8 character set, version 0.23.0 * Thu Sep 27 2007 Alain Portal 0.22.0-5 - Add BR popt-devel * Tue Aug 21 2007 Alain Portal 0.22.0-4 - Licence tag clarification * Tue Feb 13 2007 Alain Portal 0.22.0-3 - Remove Makefiles that are in conflict between i386 and x86_64 arch Fix #228362 * Mon Feb 5 2007 Alain Portal 0.22.0-2 - FE7 rebuild * Tue Nov 14 2006 Alain Portal 0.22.0-1 - New upstream version - Remove patches that are no more needed (applied by upstream) * Thu Oct 05 2006 Christian Iseli 0.21.11-9 - rebuilt for unwind info generation, broken in gcc-4.1.1-21 * Sat Sep 23 2006 Alain Portal 0.21.11-8 - Add patch to fix a ktechlab crash, a ktechlab upstream contribution See http://ktechlab.org/download/gpsim.php - Use macros for rm and make - Use macro style instead of variable style * Fri Sep 1 2006 Alain Portal 0.21.11-7 - FE6 rebuild * Wed Mar 15 2006 Alain Portal 0.21.11-6 - Update Patch * Wed Mar 15 2006 Alain Portal 0.21.11-5 - Update Patch * Tue Mar 14 2006 Alain Portal 0.21.11-4 - Patch to make gcc-4.1.0 happy * Mon Mar 13 2006 Alain Portal 0.21.11-3 - Rebuild for FE5 * Thu Oct 6 2005 Alain Portal 0.21.11-2 - Remove useless Requires * Wed Oct 5 2005 Alain Portal 0.21.11-1 - New version - Improve download url * Fri Sep 30 2005 Alain Portal 0.21.4-5 - Improve prep section to make rpmlint happy - Contributions of Jose Pedro Oliveira Thanks to him. * Mon Sep 19 2005 Alain Portal 0.21.4-4 - Add missing a rm -rf RPM_BUILD_ROOT statement in the install section * Thu Sep 15 2005 Alain Portal 0.21.4-3 - Exclude .la file - Add examples * Tue Sep 13 2005 Alain Portal 0.21.4-2 - License is GPL - Add french summary and description * Mon Sep 12 2005 Alain Portal 0.21.4-1 - New version * Mon Nov 8 2004 Alain Portal 0:0.21.2-0.fdr.2 - Add BuildRequires flex, readline-devel * Wed Oct 27 2004 Alain Portal 0:0.21.2-0.fdr.1 - Initial Fedora RPM gpsim-0.27.0/COPYING.LESSER0000644000076400007640000006364211375701751011721 00000000000000 GNU LESSER GENERAL PUBLIC LICENSE Version 2.1, February 1999 Copyright (C) 1991, 1999 Free Software Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. [This is the first released version of the Lesser GPL. It also counts as the successor of the GNU Library Public License, version 2, hence the version number 2.1.] Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public Licenses are intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This license, the Lesser General Public License, applies to some specially designated software packages--typically libraries--of the Free Software Foundation and other authors who decide to use it. You can use it too, but we suggest you first think carefully about whether this license or the ordinary General Public License is the better strategy to use in any particular case, based on the explanations below. When we speak of free software, we are referring to freedom of use, 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 and use pieces of it in new free programs; and that you are informed that you can do these things. To protect your rights, we need to make restrictions that forbid distributors to deny you these rights or to ask you to surrender these rights. These restrictions translate to certain responsibilities for you if you distribute copies of the library or if you modify it. For example, if you distribute copies of the library, whether gratis or for a fee, you must give the recipients all the rights that we gave you. You must make sure that they, too, receive or can get the source code. If you link other code with the library, you must provide complete object files to the recipients, so that they can relink them with the library after making changes to the library and recompiling it. And you must show them these terms so they know their rights. We protect your rights with a two-step method: (1) we copyright the library, and (2) we offer you this license, which gives you legal permission to copy, distribute and/or modify the library. To protect each distributor, we want to make it very clear that there is no warranty for the free library. Also, if the library is modified by someone else and passed on, the recipients should know that what they have is not the original version, so that the original author's reputation will not be affected by problems that might be introduced by others. Finally, software patents pose a constant threat to the existence of any free program. We wish to make sure that a company cannot effectively restrict the users of a free program by obtaining a restrictive license from a patent holder. Therefore, we insist that any patent license obtained for a version of the library must be consistent with the full freedom of use specified in this license. Most GNU software, including some libraries, is covered by the ordinary GNU General Public License. This license, the GNU Lesser General Public License, applies to certain designated libraries, and is quite different from the ordinary General Public License. We use this license for certain libraries in order to permit linking those libraries into non-free programs. When a program is linked with a library, whether statically or using a shared library, the combination of the two is legally speaking a combined work, a derivative of the original library. The ordinary General Public License therefore permits such linking only if the entire combination fits its criteria of freedom. The Lesser General Public License permits more lax criteria for linking other code with the library. We call this license the "Lesser" General Public License because it does Less to protect the user's freedom than the ordinary General Public License. It also provides other free software developers Less of an advantage over competing non-free programs. These disadvantages are the reason we use the ordinary General Public License for many libraries. However, the Lesser license provides advantages in certain special circumstances. For example, on rare occasions, there may be a special need to encourage the widest possible use of a certain library, so that it becomes a de-facto standard. To achieve this, non-free programs must be allowed to use the library. A more frequent case is that a free library does the same job as widely used non-free libraries. In this case, there is little to gain by limiting the free library to free software only, so we use the Lesser General Public License. In other cases, permission to use a particular library in non-free programs enables a greater number of people to use a large body of free software. For example, permission to use the GNU C Library in non-free programs enables many more people to use the whole GNU operating system, as well as its variant, the GNU/Linux operating system. Although the Lesser General Public License is Less protective of the users' freedom, it does ensure that the user of a program that is linked with the Library has the freedom and the wherewithal to run that program using a modified version of the Library. The precise terms and conditions for copying, distribution and modification follow. Pay close attention to the difference between a "work based on the library" and a "work that uses the library". The former contains code derived from the library, whereas the latter must be combined with the library in order to run. GNU LESSER GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License Agreement applies to any software library or other program which contains a notice placed by the copyright holder or other authorized party saying it may be distributed under the terms of this Lesser General Public License (also called "this License"). Each licensee is addressed as "you". A "library" means a collection of software functions and/or data prepared so as to be conveniently linked with application programs (which use some of those functions and data) to form executables. The "Library", below, refers to any such software library or work which has been distributed under these terms. A "work based on the Library" means either the Library or any derivative work under copyright law: that is to say, a work containing the Library or a portion of it, either verbatim or with modifications and/or translated straightforwardly into another language. (Hereinafter, translation is included without limitation in the term "modification".) "Source code" for a work means the preferred form of the work for making modifications to it. For a library, 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 library. Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running a program using the Library is not restricted, and output from such a program is covered only if its contents constitute a work based on the Library (independent of the use of the Library in a tool for writing it). Whether that is true depends on what the Library does and what the program that uses the Library does. 1. You may copy and distribute verbatim copies of the Library's complete 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 distribute a copy of this License along with the Library. 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 Library or any portion of it, thus forming a work based on the Library, 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) The modified work must itself be a software library. b) You must cause the files modified to carry prominent notices stating that you changed the files and the date of any change. c) You must cause the whole of the work to be licensed at no charge to all third parties under the terms of this License. d) If a facility in the modified Library refers to a function or a table of data to be supplied by an application program that uses the facility, other than as an argument passed when the facility is invoked, then you must make a good faith effort to ensure that, in the event an application does not supply such function or table, the facility still operates, and performs whatever part of its purpose remains meaningful. (For example, a function in a library to compute square roots has a purpose that is entirely well-defined independent of the application. Therefore, Subsection 2d requires that any application-supplied function or table used by this function must be optional: if the application does not supply it, the square root function must still compute square roots.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Library, 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 Library, 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 Library. In addition, mere aggregation of another work not based on the Library with the Library (or with a work based on the Library) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may opt to apply the terms of the ordinary GNU General Public License instead of this License to a given copy of the Library. To do this, you must alter all the notices that refer to this License, so that they refer to the ordinary GNU General Public License, version 2, instead of to this License. (If a newer version than version 2 of the ordinary GNU General Public License has appeared, then you can specify that version instead if you wish.) Do not make any other change in these notices. Once this change is made in a given copy, it is irreversible for that copy, so the ordinary GNU General Public License applies to all subsequent copies and derivative works made from that copy. This option is useful when you wish to copy part of the code of the Library into a program that is not a library. 4. You may copy and distribute the Library (or a portion or derivative of it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you 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. If distribution of 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 satisfies the requirement to distribute the source code, even though third parties are not compelled to copy the source along with the object code. 5. A program that contains no derivative of any portion of the Library, but is designed to work with the Library by being compiled or linked with it, is called a "work that uses the Library". Such a work, in isolation, is not a derivative work of the Library, and therefore falls outside the scope of this License. However, linking a "work that uses the Library" with the Library creates an executable that is a derivative of the Library (because it contains portions of the Library), rather than a "work that uses the library". The executable is therefore covered by this License. Section 6 states terms for distribution of such executables. When a "work that uses the Library" uses material from a header file that is part of the Library, the object code for the work may be a derivative work of the Library even though the source code is not. Whether this is true is especially significant if the work can be linked without the Library, or if the work is itself a library. The threshold for this to be true is not precisely defined by law. If such an object file uses only numerical parameters, data structure layouts and accessors, and small macros and small inline functions (ten lines or less in length), then the use of the object file is unrestricted, regardless of whether it is legally a derivative work. (Executables containing this object code plus portions of the Library will still fall under Section 6.) Otherwise, if the work is a derivative of the Library, you may distribute the object code for the work under the terms of Section 6. Any executables containing that work also fall under Section 6, whether or not they are linked directly with the Library itself. 6. As an exception to the Sections above, you may also combine or link a "work that uses the Library" with the Library to produce a work containing portions of the Library, and distribute that work under terms of your choice, provided that the terms permit modification of the work for the customer's own use and reverse engineering for debugging such modifications. You must give prominent notice with each copy of the work that the Library is used in it and that the Library and its use are covered by this License. You must supply a copy of this License. If the work during execution displays copyright notices, you must include the copyright notice for the Library among them, as well as a reference directing the user to the copy of this License. Also, you must do one of these things: a) Accompany the work with the complete corresponding machine-readable source code for the Library including whatever changes were used in the work (which must be distributed under Sections 1 and 2 above); and, if the work is an executable linked with the Library, with the complete machine-readable "work that uses the Library", as object code and/or source code, so that the user can modify the Library and then relink to produce a modified executable containing the modified Library. (It is understood that the user who changes the contents of definitions files in the Library will not necessarily be able to recompile the application to use the modified definitions.) b) Use a suitable shared library mechanism for linking with the Library. A suitable mechanism is one that (1) uses at run time a copy of the library already present on the user's computer system, rather than copying library functions into the executable, and (2) will operate properly with a modified version of the library, if the user installs one, as long as the modified version is interface-compatible with the version that the work was made with. c) Accompany the work with a written offer, valid for at least three years, to give the same user the materials specified in Subsection 6a, above, for a charge no more than the cost of performing this distribution. d) If distribution of the work is made by offering access to copy from a designated place, offer equivalent access to copy the above specified materials from the same place. e) Verify that the user has already received a copy of these materials or that you have already sent this user a copy. For an executable, the required form of the "work that uses the Library" must include any data and utility programs needed for reproducing the executable from it. However, as a special exception, the materials to be 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. It may happen that this requirement contradicts the license restrictions of other proprietary libraries that do not normally accompany the operating system. Such a contradiction means you cannot use both them and the Library together in an executable that you distribute. 7. You may place library facilities that are a work based on the Library side-by-side in a single library together with other library facilities not covered by this License, and distribute such a combined library, provided that the separate distribution of the work based on the Library and of the other library facilities is otherwise permitted, and provided that you do these two things: a) Accompany the combined library with a copy of the same work based on the Library, uncombined with any other library facilities. This must be distributed under the terms of the Sections above. b) Give prominent notice with the combined library of the fact that part of it is a work based on the Library, and explaining where to find the accompanying uncombined form of the same work. 8. You may not copy, modify, sublicense, link with, or distribute the Library except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense, link with, or distribute the Library 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. 9. 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 Library or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Library (or any work based on the Library), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Library or works based on it. 10. Each time you redistribute the Library (or any work based on the Library), the recipient automatically receives a license from the original licensor to copy, distribute, link with or modify the Library 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 with this License. 11. 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 Library at all. For example, if a patent license would not permit royalty-free redistribution of the Library 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 Library. 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. 12. If the distribution and/or use of the Library is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Library 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. 13. The Free Software Foundation may publish revised and/or new versions of the Lesser 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 Library 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 Library does not specify a license version number, you may choose any version ever published by the Free Software Foundation. 14. If you wish to incorporate parts of the Library into other free programs whose distribution conditions are incompatible with these, 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 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE LIBRARY "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 LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 16. 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 LIBRARY 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 LIBRARY (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 LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS How to Apply These Terms to Your New Libraries If you develop a new library, and you want it to be of the greatest possible use to the public, we recommend making it free software that everyone can redistribute and change. You can do so by permitting redistribution under these terms (or, alternatively, under the terms of the ordinary General Public License). To apply these terms, attach the following notices to the library. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA Also add information on how to contact you by electronic and paper mail. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the library, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the library `Frob' (a library for tweaking knobs) written by James Random Hacker. , 1 April 1990 Ty Coon, President of Vice That's all there is to it! gpsim-0.27.0/INSTALL.gpsim0000644000076400007640000001462211375701130012022 00000000000000 gpsim Install Instructions -------------------------- TOC --- 1.0 Install instructions 1.1 Dependencies 2.0 How to Build gpsim without the gui 3.0 How to Build gpsim without root privileges 4.0 How to create your own gpsim distribution 5.0 Installing gtk+-extra 6.0 How to install gpsim from RPM's 7.0 MAC OS 8.0 Windows 9.0 CVS & SVN 1.0 Installation instructions ------------------------- INSTALLATION (the most common way) ---------------------------------- If you've ever installed software under Linux/UNIX before, then this will be completely familiar to you. 1) create a parent subdirectory for gpsim (e.g. gnupic) $ mkdir ~/gnupic # choose whatever directory name you like 2) Copy the tar ball to this directory and expand it: $ cd ~/gnupic $ mv the_path_of_where_ever_the_tarball_is/gpsim-0.x.y.tar.gz . $ tar -xvzf gpsim-0.x.y.tar.gz (Where 'x.y' is the release number.) This will create a subdirectory called gpsim-0.x.y . All of gpsim's source code will be untarred to here. 3) cd gpsim-0.x.y 4) ./configure This will check your system for the proper tools necessary to build gpsim and then it will create Makefiles. 5) make all This will create the executable. 6) su root . You'll need su privileges to complete the install. If you don't have root privileges or don't wish to install gpsim in the /usr/local/bin directory, then see the steps below on building without root privileges. 7) make install This copies the executable into the /usr/local/bin subdirectory. 1.1 Dependencies The most significant non-common gpsim dependency is on the gtkextra package: http://gtkextra.sourceforge.net/ Other dependencies include gtk-2.0, readline, popt. These packages should be installed on most distributions. However, it should be noted that the "developer" version are required if you're building gpsim from the source. 2.0 HOW TO BUILD gpsim WITHOUT THE GUI ---------------------------------- Repeat steps 1,2, and 3 from above. 4) ./configure --disable-gui Note: if you already have built gpsim with the gui support and then decide you want to take it out, then you'll also needed to do a 'make clean' before you do the 'make' in step 5. The make clean will remove all of the old object files. 3.0 HOW TO BUILD gpsim WITHOUT ROOT PRIVILEGES ------------------------------------------ Contributed by Erik Thiele ( Preface by Scott: Erik has created a step-by-step list of instructions for completely installing gpsim into a local directory. If you do not have root priviledges or just do not wish to install gpsim into the default directories then these instructions are for you. ) first create your local installation directory, # if you don't already have one. mkdir $HOME/localinst # now make the directory where you compile the programs in. mkdir $HOME/compiling # go into that directory cd $HOME/compiling # now download exdbm-VERSION-tar.gz and # gpsim-VERSION-tar.gz into the current directory. # also download gtk+extra-VERSION-tar.gz # if your distribution doesn't contain it. just start gtkextra-config # if that program was not found, you need to install gtk+extra # now let's first compile and install gtk+extra # you can skip this step if you already have gtk+extra installed. cd $HOME/compiling tar xzvf gtk+extra-VERSION-tar.gz cd gtk+extra-VERSION- ./configure --prefix=$HOME/localinst/gtk+extra make install cd $HOME # edit your shell configuration and add something like export PATH="$PATH":$HOME/localinst/gtk+extra/bin export LD_LIBRARY_PATH="$LD_LIBRARY_PATH":$HOME/localinst/gtk+extra/lib # don't forget to relogin to let changes take effect. # now you can try to execute gtkextra-config # if it worked, gtk+extra is now installed. # now lets install exdbm library. cd $HOME/compiling tar xzvf exdbm-VERSION-tar.gz cd exdbm-VERSION- ./configure --prefix=$HOME/localinst/eXdbm make install cd $HOME # edit your shell configuration and add something like export LD_LIBRARY_PATH="$LD_LIBRARY_PATH":~/localinst/eXdbm/lib # don't forget to relogin to let changes take effect. # now lets install gpsim cd $HOME/compiling tar xzvf gpsim-VERSION-tar.gz cd gpsim-VERSION- ./configure --with-exdbm=$HOME/localinst/eXdbm --prefix=$HOME/localinst/gpsim make install cd $HOME # edit your shell configuration and add something like export PATH="$PATH":$HOME/localinst/gpsim/bin # don't forget to relogin to let changes take effect. # if you want to save diskspace you can now do rm -rf $HOME/compiling/eXdbm rm -rf $HOME/compiling/gpsim rm -rf $HOME/compiling/gtk+extra # as these files were only needed for compiling and installation. 4.0 HOW TO MAKE YOUR OWN gpsim DISTRIBUTION --------------------------------------- Since gpsim uses automake, you get a whole lot of features for free. I won't go into all of them, but sometimes you might want to tweak gpsim and make your own tar ball. All you have to do is: $ make dist If you want to dink the rev numbers, then edit gpsim-0.x.y/configure.in and then from within gpsim-0.x.y/ : $ automake $ autoconf $ ./configure $ make dist 5.0 INSTALLING gtk+-extra ------------------------------- First, you're going to need to grab gtk+-extra. The best place to get this is from gpsim's web page since gtk+extra's page doesn't have a valid tar ball... $ tar -xvzf package.tar.gz $ cd package $ ./configure $ make $ su $ make install $ exit Where package is gtk+-extra. 6.0 INSTALLING RPM's ---------------- gpsim has two RPM's that both must be install. In addition, gpsim depends gtk+extra's RPMs. First, get the latest versions of: gtk+extra2-LATEST.rpm gtk+extra2-devel-LATEST.rpm gpsim-LATEST.rpm gpsim-devel-LATEST.rpm As root, install gtk+extra: # rpm -ihv gtk+extra2-LATEST.rpm # rpm -ihv gtk+extra2-devel-LATEST.rpm Then gpsim # rpm -ihv gpsim-devel-LATEST.rpm # rpm -ihv gpsim-LATEST.rpm Note that the order is important (and rpm will tell you if you're wrong). 7.0 MAC OS ------ There's a conflict with shared libraries and gpsim on the new MAC OS's. So for the MAC, configure gpsim like so: $ ./configure --disable-shared 8.0 Windows ------- Borut Razem has ported gpsim to windows. See http://gpsim.sourceforge.net/gpsimWin32/gpsimWin32.html for details on how to build and install gpsim Under Windows. 9.0 CVS & SVN --------- CVS is no longer supported. See http://gpsim.sourceforge.net/gpsim_cvs.html for instructions on how to retrieve gpsim from SVN. gpsim-0.27.0/cli/0000775000076400007640000000000012210742353010500 500000000000000gpsim-0.27.0/cli/cmd_set.cc0000664000076400007640000000441412114365767012365 00000000000000/* Copyright (C) 1999-2000 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include #include "command.h" #include "cmd_set.h" #include "input.h" #include "../src/pic-processor.h" static int radix = 0; // FIXME cmd_set c_set; enum { SET_VERBOSE, SET_RADIX, }; static cmd_options cmd_set_options[] = { {"r", SET_RADIX, OPT_TT_NUMERIC}, {"radix", SET_RADIX, OPT_TT_NUMERIC}, {"v", SET_VERBOSE, OPT_TT_BITFLAG}, {"verbose", SET_VERBOSE, OPT_TT_BITFLAG}, {0,0,0} }; cmd_set::cmd_set() : command("set",0) { brief_doc = string("display and control gpsim behavior flags"); long_doc = string ("set\n" "\twith no options, set will display the state of all of gpsim's\n" "\tbehavior flags. Use this to determine the flags that may be\n" "\tmodified.\n" "\n"); op = cmd_set_options; } void cmd_set::set(void) { cout << "r | radix = " << radix << " (not fully functional)\n"; cout << "v | verbose = " << (unsigned int)verbose << '\n'; // cout << "gui_update = " << gi.update_rate << '\n'; } void cmd_set::set(int bit_flag, Expression *expr) { int number=1; if(expr) { try { Value *v = expr->evaluate(); if(v) { gint64 i; v->get(i); number = (int)i; delete v; } delete expr; } catch (Error *err) { if(err) cout << "ERROR:" << err->toString() << endl; delete err; return; } } switch(bit_flag) { case SET_VERBOSE: GetUserInterface().SetVerbosity(number); break; default: cout << " Invalid set option\n"; } } gpsim-0.27.0/cli/cmd_log.cc0000644000076400007640000000667110644005165012345 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "command.h" #include "cmd_log.h" #include "../src/trace_orb.h" #include "../src/pic-processor.h" #include "../src/trace.h" #include "cmd_break.h" cmd_log c_log; #define LOG_ON 1 #define LOG_OFF 2 #define WRITE 3 #define READ 4 #define LOG_LXT 5 static cmd_options cmd_trace_options[] = { {"on", LOG_ON, OPT_TT_BITFLAG}, {"off", LOG_OFF, OPT_TT_BITFLAG}, {"w", WRITE, OPT_TT_BITFLAG}, {"r", READ, OPT_TT_BITFLAG}, {"lxt", LOG_LXT, OPT_TT_BITFLAG}, { 0,0,0} }; cmd_log::cmd_log() : command("log",0) { brief_doc = string("Log/record events to a file"); long_doc = string ("\n\ The log command will record simulation history in a file. It's similar to the\n\ break command\n\ log [[on|lxt [file_name]]|[off]]\n\ Enables or disables logging. Specify no options to see log status.\n\ The lxt option encodes the log file so that an external viewer\n\ like gtkwave can be used to view the file.\n\ log w|r reg [, expr]\n\ Specify a register to log. See the break command for expression syntax\n\ \n Examples:\n\ \tlog - Display log status\n\ \tlog on - Begin logging in file gpsim.log\n\ \tlog on file.log - Begin logging in file file.log\n\ \tlog lxt - Begin lxt logging in file gpsim.lxt\n\ \tlog lxt file.lxt - Begin lxt logging in file file.lxt\n\ \tlog off - Stop logging\n\ \tlog w temp_hi - Log all writes to reg temp_hi\n\ "); op = cmd_trace_options; } void cmd_log::log() { GetTraceLog().status(); } void cmd_log::log(cmd_options *opt, ExprList_t *eList) { if (!opt) { log(); return; } switch(opt->value) { case LOG_ON: case LOG_LXT: { int fmt = opt->value==LOG_ON ? TRACE_FILE_FORMAT_ASCII : TRACE_FILE_FORMAT_LXT; //const char *fn=0; if (eList) { ExprList_itor ei = eList->begin(); Expression *pFirst = *ei; LiteralString *pString=0; string m; if (pFirst) { pString = dynamic_cast(pFirst); if (pString) { String *pS = (String *)pString->evaluate(); GetTraceLog().enable_logging(pS->getVal(),fmt); delete pFirst; delete pS; } } } else GetTraceLog().enable_logging(0,fmt); } break; case LOG_OFF: GetTraceLog().disable_logging(); break; default: c_break.set_break(opt,eList,true); } } void cmd_log::log(cmd_options *opt) { switch(opt->value) { case LOG_ON: GetTraceLog().enable_logging(0); break; case LOG_OFF: GetTraceLog().disable_logging(); break; case LOG_LXT: GetTraceLog().enable_logging(0,TRACE_FILE_FORMAT_LXT); break; default: cout << " Invalid log option\n"; } } gpsim-0.27.0/cli/cmd_break.h0000644000076400007640000000256610644005165012511 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_BREAK_H__ #define __CMD_BREAK_H__ #include #include #include "command.h" class gpsimObject; #define CMDBREAK_BAD_BREAK_NUMBER 0xffff class cmd_break : public command { public: cmd_break(); void list(guint64 value=CMDBREAK_BAD_BREAK_NUMBER); unsigned int set_break(cmd_options *co, bool bLog=false); unsigned int set_break(cmd_options *co, ExprList_t *pEL, bool bLog=false); unsigned int set_break(gpsimObject *v); private: unsigned int set_break(cmd_options *co, Expression *pExpr1, Expression *pExpr2=0, bool bLog=false); unsigned int set_break(int bit_flag, bool bLog); }; extern cmd_break c_break; #endif gpsim-0.27.0/cli/cmd_shell.cc0000644000076400007640000000201710563700567012671 00000000000000#include #include using namespace std; #include "command.h" #include "cmd_shell.h" #include "../src/cmd_manager.h" cmd_shell c_shell; static cmd_options cmd_shell_options[] = { {0,0,0} }; cmd_shell::cmd_shell() : command("!",0) { brief_doc = string("Shell out to another program or module's command line interface"); long_doc = string ("!cmd.exe copy a.c b.c\n" "!picxx args\n" "\n"); op = cmd_shell_options; } string sTarget; void cmd_shell::shell(String *cmd) { sTarget = cmd->getVal(); char *pArguments = (char *)sTarget.c_str(); if(*pArguments == '\0') { CCommandManager::GetManager().ListToConsole(); } else { while(pArguments != NULL && *pArguments != '\0' && !isspace(*pArguments)) pArguments++; *pArguments = 0; pArguments++; int iResult; iResult = CCommandManager::GetManager().Execute(sTarget, pArguments); if (iResult == CMD_ERR_PROCESSORNOTDEFINED) printf("%s module command processor not found\n", sTarget.c_str()); } } gpsim-0.27.0/cli/ui_gpsim.cc0000644000076400007640000000256111116621771012551 00000000000000#include #include #include #include "ui_gpsim.h" #include "../src/sim_context.h" #include "../src/symbol.h" #include "../src/cmd_manager.h" extern GlobalVerbosityAccessor verbose; /// /// CGpsimConsole /// Connector between the gpsim console and the /// console handler for the loaded modules. ////////////////////////////////////////////////// CGpsimConsole::CGpsimConsole() { } void CGpsimConsole::Printf(const char *fmt, ...) { va_list ap; va_start(ap,fmt); vfprintf(m_pfOut, fmt, ap); va_end(ap); } void CGpsimConsole::VPrintf(const char *fmt, va_list argptr) { vfprintf(m_pfOut, fmt, argptr); } void CGpsimConsole::Puts(const char*s) { fputs(s, m_pfOut); } void CGpsimConsole::Putc(const char c) { fputc(c, m_pfOut); } const char* CGpsimConsole::Gets(char *s, int size) { return fgets(s, size, m_pfIn); } void CGpsimConsole::SetOut(FILE *pOut) { m_pfOut = pOut; } void CGpsimConsole::SetIn(FILE *pIn) { m_pfIn = pIn; } CGpsimConsole g_Console; // From input.cc class Macro; void add_string_to_input_buffer(const char *s, Macro *m=0); void NotifyExitOnBreak(int iExitCode) { add_string_to_input_buffer("abort_gpsim_now\n"); } void initialize_ConsoleUI() { g_Console.SetOut(stdout); g_Console.SetIn(stdin); GetUserInterface().SetConsole(&g_Console); GetUserInterface().SetExitOnBreak(NotifyExitOnBreak); } gpsim-0.27.0/cli/cmd_break.cc0000664000076400007640000002464311716123617012655 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include #include #include "command.h" #include "cmd_break.h" #include "../src/cmd_gpsim.h" #include "../src/pic-processor.h" #include "../src/operator.h" cmd_break c_break; #define CYCLE 1 #define EXECUTION 2 #define WRITE 3 #define READ 4 #define REGCHANGE 5 #define STK_OVERFLOW 7 #define STK_UNDERFLOW 8 #define WDT 9 static cmd_options cmd_break_options[] = { {"c", CYCLE, OPT_TT_BITFLAG}, {"e", EXECUTION, OPT_TT_BITFLAG}, {"w", WRITE, OPT_TT_BITFLAG}, {"r", READ, OPT_TT_BITFLAG}, {"ch", REGCHANGE, OPT_TT_BITFLAG}, {"so", STK_OVERFLOW, OPT_TT_BITFLAG}, {"su", STK_UNDERFLOW,OPT_TT_BITFLAG}, {"wdt", WDT, OPT_TT_BITFLAG}, {0,0,0} }; cmd_break::cmd_break() : command("break", "br") { brief_doc = string("Set a break point"); long_doc = string ("The 'break' command can be used to examine or set breakpoints.\n" "gpsim supports execution style breaks, register access breaks,\n" "complex expression breaks, attribute breaks, and other special breaks.\n" "Program Memory breaks:\n" " break e|r|w ADDRESS [,expr] [,\"message\"]\n" " Halts when the address is executed, read, or written. The ADDRESS can be \n" " a symbol or a number. If the optional expr is specified, then it must\n" " evaluate to true before the simulation will halt. The optional message\n" " allows a description to be associated with the break.\n" "Register Memory breaks:\n" " break r|w|ch REGISTER [,expr] [,\"message\"]\n" " Halts when 'REGISTER' is read, written, or changed\n" " and the optional expression evaluates to true\n" " break r|w|ch boolean_expression\n" " The boolean expression can only be of the form:\n" " a) reg & mask == value\n" " b) reg == value\n" " - Note the 'ch' option is similar to the write option.\n" " The change option evaluates the expression before and after\n" " a register write and halts if the evaluation differs.\n" "Cycle counter breaks:\n" " break c VALUE [,\"message\"]\n" " Halts when the cycle counter reaches 'VALUE'.\n" "Attribute breaks:\n" " break attribute\n" " Arms the breakpoint condition for those attributes that support breaks.\n" " For example, the stopwatch (help stopwatch) attribute can cause a break.\n" "Miscellaneous breaks:\n" " break so # halts on stack overflow.\n" " break su # halts on stack underflow.\n" " break wdt # halts on Watch Dog Timer timeout.\n" "Expressions:\n" " The conditional expressions mentioned above are syntactically similar to C's\n" " expressions.\n" "Examples:\n" "\tbreak # display all of the break points\n" "\tbreak e 0x20 # set an execution break point at address 0x20\n" "\tbreak w reg1 == 0 # break if a zero is written to register reg1\n" "\tbreak w reg2 & 0x30 == 0xf0 # break if '3' is written to the\n" "\t # upper nibble or reg2\n" "\tbreak w reg3, (reg4 > 45) # break if reg4>45 while writing to reg3\n" "\tbreak c 1000000 # break on the one million'th cycle\n" ); op = cmd_break_options; } void cmd_break::list(guint64 value) { if(value == CMDBREAK_BAD_BREAK_NUMBER) get_bp().dump(); else get_bp().dump1((unsigned int)value); } const char *TOO_FEW_ARGS="missing register or location\n"; const char *TOO_MANY_ARGS="too many arguments\n"; //------------------------------------------------------------------------ static gpsimObject::ObjectBreakTypes MapBreakActions(int co_value) { switch(co_value) { case READ: return gpsimObject::eBreakRead; case WRITE: return gpsimObject::eBreakWrite; case REGCHANGE: return gpsimObject::eBreakChange; case EXECUTION: return gpsimObject::eBreakExecute; } return gpsimObject::eBreakAny; } //------------------------------------------------------------------------ unsigned int cmd_break::set_break(cmd_options *co, ExprList_t *pEL, bool bLog) { if (!co) { list(); return MAX_BREAKPOINTS; } if (!pEL || pEL->size()>3) { // FIXME - fix this error message cout << "ERROR: Bad expression for break command\n"; return MAX_BREAKPOINTS; } ExprList_itor ei = pEL->begin(); Expression *pFirst = *ei; ++ei; Expression *pSecond = (ei != pEL->end()) ? *ei++ : 0; Expression *pThird = (ei != pEL->end()) ? *ei : 0; if (verbose) { cout << "setting breakpoint:\n"; if (pFirst) cout << " first expression " << pFirst->toString() << endl; if (pSecond) cout << " second expression " << pSecond->toString() << endl; if (pThird) cout << " third expression " << pThird->toString() << endl; } LiteralString *pString=0; string m; if (pSecond) { pString = dynamic_cast(pSecond); if (pString) { String *pS = (String *)pString->evaluate(); m = string(pS->getVal()); delete pSecond; delete pS; pSecond =0; } } // If there is a third expression and the second expression is not // a string, then try to cast the third expression into a string. if (pThird && !pString) { pString = dynamic_cast(pThird); if (pString) { String *pS = (String *)pString->evaluate(); m = string(pS->getVal()); delete pThird; delete pS; pThird =0; } } if (!pFirst) return set_break(co->value,bLog); // See if the expression supports break points. If it does, the break points // will get set and the expressions deleted. int bpn = pFirst ? pFirst->set_break(MapBreakActions(co->value), (bLog ? gpsimObject::eActionLog : gpsimObject::eActionHalt), pSecond) : -1; if (bpn == -1 && co->value!=CYCLE) GetUserInterface().DisplayMessage("break cannot be set on '%s'\n", pFirst->toString().c_str()); if (bpn<0) { // We failed to set a break point from the first expression. // It may be that we have a type of break point that is not supported // by the expression code. if (co->value==CYCLE) { LiteralInteger *pLitInt = dynamic_cast(pFirst); Integer *pInt = pLitInt ? dynamic_cast(pLitInt->evaluate()) : 0; guint64 ui64Val = pInt ? (guint64)pInt->getVal() : 0; if (pInt) bpn = get_bp().set_cycle_break(GetActiveCPU(),ui64Val); delete pInt; } } if (bpn>=0) { if (pString) get_bp().set_message(bpn, m); if(verbose)get_bp().dump1(bpn); //RRR if (dynamic_cast(pFirst)) delete pFirst; } else { delete pFirst; if(pSecond != 0) delete pSecond; } delete pEL; return bpn; } //------------------------------------------------------------------------ // set_break(cmd_options *co, // Expression *pExpr1, // Expression *pExpr2) // // Given two expressions, this function will call the set unsigned int cmd_break::set_break(cmd_options *co, Expression *pExpr1, Expression *pExpr2, bool bLog) { if (!co) { list(); return MAX_BREAKPOINTS; } unsigned int bit_flag = co->value; if (!pExpr1) return set_break(bit_flag,bLog); // See if the expression supports break points. If it does, the break points // will get set and the expressions deleted. int i = pExpr1 ? pExpr1->set_break(MapBreakActions(co->value), (bLog ? gpsimObject::eActionLog : gpsimObject::eActionHalt), pExpr2) : -1; if (i>=0) { get_bp().dump1(i); return i; } unsigned int b = MAX_BREAKPOINTS; delete pExpr1; delete pExpr2; return b; } unsigned int cmd_break::set_break(cmd_options *co, bool bLog) { if (!co) { list(); return MAX_BREAKPOINTS; } int bit_flag = co->value; return set_break(bit_flag, bLog); } unsigned int cmd_break::set_break(int bit_flag, bool bLog) { unsigned int b = MAX_BREAKPOINTS; if(!GetActiveCPU()) return b; switch(bit_flag) { case STK_OVERFLOW: b = get_bp().set_stk_overflow_break(GetActiveCPU()); if(b < MAX_BREAKPOINTS) cout << "break when stack over flows. " << "bp#: " << b << '\n'; break; case STK_UNDERFLOW: b = get_bp().set_stk_underflow_break(GetActiveCPU()); if(b < MAX_BREAKPOINTS) cout << "break when stack under flows. " << "bp#: " << b << '\n'; break; case WDT: b = get_bp().set_wdt_break(GetActiveCPU()); if(b < MAX_BREAKPOINTS) cout << "break when wdt times out. " << "bp#: " << b << '\n'; break; case CYCLE: get_bp().dump(Breakpoints::BREAK_ON_CYCLE); break; case EXECUTION: get_bp().dump(Breakpoints::BREAK_ON_EXECUTION); break; case WRITE: get_bp().dump(Breakpoints::BREAK_ON_REG_WRITE); break; case READ: get_bp().dump(Breakpoints::BREAK_ON_REG_READ); break; default: cout << TOO_FEW_ARGS; break; } return b; } // attribute breakpoints unsigned int cmd_break::set_break(gpsimObject *v) { if (v) v->set_break(); return MAX_BREAKPOINTS; } gpsim-0.27.0/cli/cmd_version.h0000644000076400007640000000170610416273023013102 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_VERSION_H__ #define __CMD_VERSION_H__ class cmd_version : public command { public: cmd_version(void); void version(void); virtual int is_repeatable(void) { return 1; }; }; extern cmd_version version; #endif gpsim-0.27.0/cli/cmd_step.cc0000644000076400007640000000313511116621771012531 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "command.h" #include "cmd_step.h" #include "../src/pic-processor.h" cmd_step step; static cmd_options cmd_step_options[] = { {"over",1, OPT_TT_BITFLAG}, { 0,0,0} }; cmd_step::cmd_step() : command("step","s") { brief_doc = string("Execute one or more instructions."); long_doc = string ("\nstep [over | n]\n\n\ \t no arguments: step one instruction.\n\ \tnumeric argument: step a number of instructions\n\ \t \"over\" argument: step over the next instruction\n\ \n\ "); op = cmd_step_options; } void cmd_step::step(int instructions) { get_interface().step_simulation(instructions); } void cmd_step::step(Expression *expr) { get_interface().step_simulation((int)evaluate(expr)); } void cmd_step::over(void) { get_interface().advance_simulation(gpsimInterface::eAdvanceNextInstruction); } gpsim-0.27.0/cli/cmd_macro.cc0000644000076400007640000001471510563700567012673 00000000000000/* Copyright (C) 2004 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "command.h" #include "cmd_macro.h" extern int parse_string(const char * str); extern void add_string_to_input_buffer(const char *s,Macro *); extern void start_new_input_stream(void); class MacroLine { string text; }; map macro_map; Macro::Macro(const char *_name) { new_name(_name); if(verbose & 4) cout << "defining a new macro named: " << name() << endl; } //---------------------------------------- //add_argument(char *new_arg) // // Add a new argument to the macro. This is called when // the macro is being defined. void Macro::add_argument(const char *new_arg) { if(new_arg) arguments.push_back(string(new_arg)); if(verbose & 4) { cout << "defining a paramter named: " << new_arg << endl; } } //---------------------------------------- //add_body(char *new_line) // // Add a new line to the macro body. This is called when // the macro is being defined. These same lines will get // redirected to the lexer input stream when the macro // is invoked. void Macro::add_body(const char *new_line) { if(!new_line) return; body.push_back(string(new_line)); if(verbose & 4) { cout << "macro body: " << new_line << endl; } } //---------------------------------------- // invoke() // // Invoke a macro by copying its body to the lexer input // stream. void Macro::invoke() { list :: iterator si; start_new_input_stream(); if(body.size()) { for(si = body.begin(); si != body.end(); ++si) add_string_to_input_buffer( (*si).c_str(), this); } add_string_to_input_buffer("endm\n", this); } //---------------------------------------- // substituteParameter(const string &s, string &replaced) // // Given a string 's', this function will search to see if // this is the name of one of the macro parameters. If it // is, then the text that should replace that parameter is // is returned in the string 'replaced'. // // This routine gets called when the lexer comes across an // undefined identifier while it is trying to expand a macro. // int Macro::substituteParameter(const string &s, string &replaced) { if(arguments.size()) { list :: iterator asi; list :: iterator psi; for(asi = arguments.begin(), psi = parameters.begin(); asi != arguments.end(); ++asi, ++psi) if(*asi == s) { replaced = *psi; if(verbose&4) cout << "Found match, replacing "<<*asi << " with " << *psi< :: iterator si; if(arguments.size()) { for(si = arguments.begin(); si != arguments.end(); ++si) cout << *si << " "; } cout << endl; if(body.size()) { for(si = body.begin(); si != body.end(); ++si) cout << " " << *si; } cout << "endm\n"; } // hack.... static Macro *theMacro = 0; // Used during macro definition Macro *isMacro(const string &s) { map::iterator mi = macro_map.find(s); if(mi != macro_map.end()) return (*mi).second; return 0; } //======================================================================== cmd_macro c_macro; static cmd_options cmd_macro_options[] = { {0,0,0} }; cmd_macro::cmd_macro() : command("macro",0) { brief_doc = string("macro definition and listing"); long_doc = string ("\nListing Macros:\n\n" "\tmacro -- display the names of the currently defined macros\n" "\t (use the symbol command to see a particular macro definition)\n" "\nDefining Macros:\n" "\nname macro [arg1, arg2, ...]\n" "macro body\n" "endm\n\n" "Example:\n\n" "s macro n, regs\n" "echo Step and Show\n" "step n\n" "x regs\n" "endm\n\n" "Invoke by\n\n" "gpsim> s 5, 1:10\n" " (note that the parameters must be separated by commas)\n" ); op = cmd_macro_options; } void cmd_macro::list() { if(macro_map.size()) { map::iterator mi; for (mi=macro_map.begin(); mi!=macro_map.end(); ++mi) mi->second->print(); } else cout << "No macros have been defined.\n"; } void cmd_macro::define(const char *name) { if(!name) return; map::iterator mi = macro_map.find(string(name)); if(mi != macro_map.end()) { cout << "macro '" << name << "' is already defined\n"; return; } theMacro = new Macro(name); macro_map[theMacro->name()] = theMacro; } void cmd_macro::add_parameter(const char *parameter) { if(!parameter || !theMacro) return; theMacro->add_argument(parameter); } void cmd_macro::add_body(const char *line) { if(!line) return; theMacro->add_body(line); } void cmd_macro::end_define(const char *opt_name) { if(verbose & 4) { GetUserInterface().GetConsole().Printf( "ending macro definition of '%s'\n", theMacro->name().c_str()); } theMacro = 0; } gpsim-0.27.0/cli/scan.ll0000644000076400007640000006350411427620620011704 00000000000000%{ /* Copyright (C) 1998 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include #include #include #ifdef _WIN32 /* declaration of isatty() */ #include #endif #include "../config.h" #include "../src/operator.h" #include "../src/symbol.h" #include "../src/stimuli.h" #include "../src/processor.h" #include "command.h" #include "cmd_macro.h" #include "parse.h" #include "input.h" #include "scan.h" /* Since our parser is reentrant, it needs to pass us a pointer * to the yylval that it would like us to use */ #ifdef YY_PROTO #define YY_DECL int yylex YY_PROTO(( YYSTYPE* yylvalP )) #else #define YY_DECL int yylex ( YYSTYPE* yylvalP ) #endif extern int yyparse(void); #define exit exit_gpsim /* This is the max length of a line within a macro definition */ static char macroBody[65536], *macroBodyPtr=0; static char* max_bodyPtr = ¯oBody[0] + sizeof(macroBody)-1; struct LexerStateStruct { struct cmd_options *options; command *cmd; int input_mode; int end_of_command; int have_parameters; int mode; struct LexerStateStruct *prev; struct LexerStateStruct *next; }; static char * m_pLastFullCommand = NULL; void SetLastFullCommand(const char *pCmd) { if (strlen(pCmd)>1) { if (m_pLastFullCommand) free (m_pLastFullCommand); m_pLastFullCommand = strdup(pCmd); } } const char * GetLastFullCommand() { return m_pLastFullCommand; } static LexerStateStruct *pLexerState = 0; static int sLevels=0; extern int quit_parse; extern int parser_spanning_lines; extern int last_command_is_repeatable; static string strip_trailing_whitespace (char *s); static int handle_identifier(YYSTYPE* yylvalP, string &tok, cmd_options **op ); static int process_intLiteral(YYSTYPE* yylvalP, char *buffer, int conversionBase); static int process_booleanLiteral(YYSTYPE* yylvalP, bool value); static int process_macroBody(YYSTYPE* yylvalP, const char *text); static int process_floatLiteral(YYSTYPE* yylvalP, char *buffer); static int process_stringLiteral(YYSTYPE* yylvalP, const char *buffer); static int process_quotedStringLiteral(YYSTYPE* yylvalP, char *buffer); static int process_shellLine(YYSTYPE* yylvalP, const char *buffer); static int recognize(int token,const char *); static void SetMode(int newmode); void scanPopMacroState(); int cli_corba_init (char *ior_id); extern Macro *isMacro(const string &s); static Macro *gCurrentMacro=0; #define YYDEBUG 1 //======================================================================== // MacroChain class // // class MacroChain { public: struct Link { Link *prev; Link *next; Macro *m; }; MacroChain() { head.prev = head.next =0; curr = &head; } void push(Macro *m) { if (verbose & 4 && m) { cout << "Pushing " << m->name() << " onto the macro chain\n"; } Link *pL = new Link(); pL->m = m; pL->prev = &head; pL->next = head.next; head.next = pL; param = pL; curr = &head; } void pop() { Link *pL = head.next; if (pL) { if (verbose & 4 && pL->m) { cout << "Popping " << pL->m->name() << " from the macro chain\n"; } head.next = pL->next; if (pL->next) pL->next->prev = &head; delete pL; } } Macro *nextParamSource() { if (curr) curr = curr->next; if (verbose & 4 && curr && curr->m ) { cout << " selecting parameter source " << curr->m->name() << endl; } if(curr) return curr->m; return 0; } void popParamSource() { if (verbose & 4 && curr && curr->m ) { cout << " popping parameter source " << curr->m->name() << endl; } if (curr) curr = curr->prev; } void resetParamSource() { if (verbose & 4) { cout << " resetparameter source\n"; } curr = &head; } private: Link *curr; Link head; Link *param; }; static MacroChain theMacroChain; %} D [0-9] S [ \t] NL ((\n)|(\r\n)) SNL ({S}|{NL}) BS (\\) CONT ({EL}|{BS}) CCHAR (#) COMMENT ({CCHAR}.*) SNLCMT ({SNL}|{COMMENT}) INDIRECT (\*) IDENTIFIER ([\']?[/_a-zA-Z\.][/_a-zA-Z0-9\.\-]*) INDEXERLEFT (\[) INDEXERRIGHT (\]) EXPON ([DdEe][+-]?{D}+) DEC ({D}+) HEX1 ((0[Xx])[0-9a-fA-F]+) HEX2 ("$"[0-9a-fA-F]+) FLOAT (({D}+\.?{D}*{EXPON}?)|(\.{D}+{EXPON}?)) BIN1 (0[bB][01]+) BIN2 ([bB]\'[01]+\') SHELLCHAR (^[!]) SHELLLINE ({SHELLCHAR}.*) QUOTEDTOKEN (("\"".*\")|("\'".*')) %{ /* Lexer States */ %} %x MACROBODY %x DECLARATION %{ //************************************************************************ //************************************************************************ %} %% %{ // Comments. Ignore all text after a comment character %} {COMMENT} { return recognize(COMMENT_T,"comment"); } {S}+ { /* ignore white space */ } \n { if(verbose) cout << "got EOL\n"; pLexerState->input_mode = 0; // assume that this is not a multi-line command. if(pLexerState->cmd && pLexerState->cmd->can_span_lines() && pLexerState->have_parameters && !pLexerState->end_of_command ) pLexerState->input_mode = CONTINUING_LINE; else { pLexerState->cmd = 0; return recognize(EOLN_T, " end of line"); } } { // Got an eol. if(verbose) cout << "got INITIAL\n"; pLexerState->input_mode = 0; // assume that this is not a multi-line command. if(pLexerState->cmd && pLexerState->cmd->can_span_lines() && pLexerState->have_parameters && !pLexerState->end_of_command ) pLexerState->input_mode = CONTINUING_LINE; //else // return recognize(EOLN_T, " end of line"); } q{S}+\n { /* short cut for quiting */ quit_parse =1; return QUIT; } abort_gpsim_now { /* a sure way to abort a script */ return ABORT; } "=" {return(recognize(EQU_T, "="));} "&&" {return(recognize(LAND_T, "&&"));} "||" {return(recognize(LOR_T, "||"));} ":" {return(recognize(COLON_T, ":"));} "!" {return(recognize(LNOT_T,"!"));} "~" {return(recognize(ONESCOMP_T,"~"));} "+" {return(recognize(PLUS_T,"+"));} "-" {return(recognize(MINUS_T,"-"));} "*" {return(recognize(MPY_T,"*"));} "/" {return(recognize(DIV_T,"/"));} "^" {return(recognize(XOR_T,"^"));} "&" {return(recognize(AND_T,"&"));} "|" {return(recognize(OR_T,"|"));} "<<" {return(recognize(SHL_T,"<<"));} ">>" {return(recognize(SHR_T,">>"));} "==" {return(recognize(EQ_T, "=="));} "!=" {return(recognize(NE_T, "!="));} "<" {return(recognize(LT_T, "<"));} ">" {return(recognize(GT_T, ">"));} "<=" {return(recognize(LE_T, "<="));} ">=" {return(recognize(GE_T, ">="));} "[" {return(recognize(INDEXERLEFT_T, "["));} "]" {return(recognize(INDEXERRIGHT_T, "]"));} {BIN1} {return(process_intLiteral(yylvalP,&yytext[2], 2));} {BIN2} {return(process_intLiteral(yylvalP,&yytext[2], 2));} {DEC} {return(process_intLiteral(yylvalP,&yytext[0], 10));} {HEX1} {return(process_intLiteral(yylvalP,&yytext[2], 16));} {HEX2} {return(process_intLiteral(yylvalP,&yytext[1], 16));} {FLOAT} {return process_floatLiteral(yylvalP,yytext);} "true" {return(process_booleanLiteral(yylvalP,true));} "false" {return(process_booleanLiteral(yylvalP,false));} "reg" {return(recognize(REG_T,"reg"));} "pin" {return(recognize(GPSIMOBJECT_T, "pin")); /*return(recognize(STIMULUS_T, "pin"));*/} "port" {return(recognize(PORT_T, "port"));} "endm" {scanPopMacroState();} ^[!].* {return(process_shellLine(yylvalP,&yytext[1]));} {QUOTEDTOKEN} {return(process_quotedStringLiteral(yylvalP,&yytext[1]));} %{ //======================================================================== // Macro processing %} ^[ \t]?+"endm" {SetMode(INITIAL); return(recognize(ENDM,"endm")); } \r {/*discard CR's*/} \n {*macroBodyPtr++ = '\n'; *macroBodyPtr = 0; macroBodyPtr = macroBody; return(process_macroBody(yylvalP,macroBody));} . { *macroBodyPtr++ = *yytext; if(verbose&4) printf("adding [%c]\n", *yytext); if (macroBodyPtr > max_bodyPtr) { cout << "buffer overflow in macro definition\n"; exit_gpsim(0); } } %{ //======================================================================== // Declaration Processing %} \n {SetMode(INITIAL); return(recognize(EOLN_T, "end of declaration")); } "int" {return recognize(DECLARE_INT_T, "int type"); } "float" {return recognize(DECLARE_FLOAT_T,"float type"); } "bool" {return recognize(DECLARE_BOOL_T, "bool type"); } "char" {return recognize(DECLARE_FLOAT_T,"char type"); } {IDENTIFIER} { return process_stringLiteral(yylvalP, yytext); } %{ // The 'echo' command is handled by the lexer instead of the // parser (like the other commands). All it does is just display // the contents of yytext beyond the "echo". %} "echo"{S}.*{NL} { fprintf(yyout,"%s",&yytext[5]); return recognize(EOLN_T, " end of line"); } "echo"{NL} { fprintf(yyout,"\n"); return recognize(EOLN_T, " end of line"); } %{ // Indirect register access.... this should be an expression operator. %} %{ /* {INDIRECT} { return INDIRECT; } */ %} %{ // If this is a command that is spanning more than one line // then the 'end' command will finish it. %} "end"{S}* { if (pLexerState->cmd && pLexerState->cmd->can_span_lines() ) { pLexerState->end_of_command = 1; return(END_OF_COMMAND); } printf("Warning: found \"end\" while not in multiline mode\n"); } %{ // Identifiers. These are either gpsim commands or user macros. %} {IDENTIFIER} { string tok = strip_trailing_whitespace (yytext); int ret=0; if(strlen(tok.c_str())) ret = handle_identifier (yylvalP, tok, &pLexerState->options); else ret = recognize(0,"invalid identifier"); if(ret) return ret; } %{ /* Default is to recognize the character we are looking at as a single char */ %} . {return(recognize(*yytext,"Single character"));} %% /* make it work with flex 2.5.31 */ #ifndef yytext_ptr #define yytext_ptr yytext #endif #define MAX_STACK_LEVELS 16 static int input_stack_index=0; YY_BUFFER_STATE input_stack[MAX_STACK_LEVELS]; /************************************************************************ * yywrap() * * Revert to an old input stream if there is one. If there is not an old * old stream, then the lexer will try to get data from YY_INPUT which * is a macro that calls gpsim_read() (see scan.h). * An 'old' stream is one that was interrupted by a macro expansion. * */ #ifdef yywrap #undef yywrap #endif int yywrap (void) { if(input_stack_index) { yy_delete_buffer(YY_CURRENT_BUFFER); yy_switch_to_buffer(input_stack[--input_stack_index]); return 0; } return 1; } /************************************************************************ * push_input_stack * * called when macros are being expanded. */ static void push_input_stack(void) { if(input_stack_indexname() << endl; else cout << " but there is no current macro\n"; } if(currentMacro && currentMacro->substituteParameter(s,replaced)) if(replaced != s) { if (verbose & 4) cout << " -- found it and replaced it with " << replaced << endl; if (bTryMacroParameterExpansion (replaced)) return true; push_input_stack(); yy_scan_string(replaced.c_str()); theMacroChain.resetParamSource(); return true; } theMacroChain.popParamSource(); return false; } /************************************************************************* * * handle_identifier * * input string &s * cmd_options **op * output int * * 1 - If `op' is NULL, then handle identifier hasn't been called * for the current command that's being processed. So, the * the string `s' is compared to all of the valid commands. * If it is valid, then `op' is assigned a pointer to the * options associated with the command. If the string is not * found, then that's a syntax error and the string is ignored. * 2 - If `op' is non-NULL, then handle_identifier has been called * at least once before for the command that's being processed. * So the string `s' is then compared to the options associated * with the command. If an option is not found, then the string * is returned to the parser (as a type STRING). This places the * burden of syntax checking on the parser and/or the individual * command. * */ int handle_identifier(YYSTYPE* yylvalP, string &s, cmd_options **op ) { int retval = 0; // If no command has been found so far, then the options (*op) // haven't been selected either (and consequently *op is null). if(! *op) { // If the first character in the string is a ' (single quote character) then // this means that the user is explicitly trying to access a user defined symbol // (e.g. if there is variable named "help" in the user's symbol table, then the // only way to get access to it is by using the single quote character: // 'help if(s[0] == '\'') // Strip away the quote, we won't treat this as a command and the parser // doesn't want to know about it. s=s.erase(0,1); else { // Search the commands pLexerState->cmd = search_commands(s); if(pLexerState->cmd) { if(verbose&2) cout << "\n *******\nprocessing command " << (pLexerState->cmd->name()) << "\n token value " << (pLexerState->cmd->get_token()) << "\n *******\n"; *op = pLexerState->cmd->get_op(); pLexerState->have_parameters = 0; retval = pLexerState->cmd->get_token(); // ugh. This is problem when the parser becomes re-entrant. last_command_is_repeatable = pLexerState->cmd->is_repeatable(); return recognize(retval,"good command"); } } // Search the macros yylvalP->Macro_P = isMacro(s); if(yylvalP->Macro_P) { return MACROINVOCATION_T; } if (bTryMacroParameterExpansion(s)) return 0; } else { if(verbose&2) cout << "search options for command '" << (pLexerState->cmd ? pLexerState->cmd->name() : "?") << "'\n"; if (bTryMacroParameterExpansion(s)) return 0; // We already have the command, so search the options. struct cmd_options *opt = *op; // We also have one or more parameters now (though they // may not be correct, but that's the parser's job to determine). pLexerState->have_parameters = 1; while(opt->name) if(strcmp(opt->name, s.c_str()) == 0) { if(verbose&2) cout << "found option '" << opt->name << "'\n"; yylvalP->co = opt; return recognize(translate_token(opt->token_type),"option"); } else opt++; } // If we get here, then the option was not found. // So let's check the symbols Processor *cpu; if(s[0] == '.' && (cpu = get_active_cpu()) != 0) s.insert(0,cpu->name()); string s1(s); gpsimObject *obj = globalSymbolTable().find(s1); if(obj) { yylvalP->Symbol_P = obj; if(verbose&2) cout << "found symbol '" << obj->name() << "'\n"; return recognize(SYMBOL_T,"symbol"); } //cout << "didn't find it in the symbol list\n"; // Either 1) there's a typo or 2) the command is creating // a new symbol or node or something along those lines. // In either case, let's let the parser deal with it. if(verbose&2) cout << " returning unknown string: " << s << endl; return process_stringLiteral(yylvalP,s.c_str()); return 0; } /***************************************************************** * Process an integer literal. This routine constructs the * YYSTYPE object. The caller is responsible from returning the * LITERAL_INT_T token identifer to the parser. */ static int process_intLiteral(YYSTYPE* yylvalP, char *buffer, int conversionBase) { char c; gint64 literalValue=0; gint64 nxtDigit; while (*buffer) { c = toupper(*buffer++); nxtDigit = (c) <= '9' ? c-'0' : c-'A'+10; if ((nxtDigit >= conversionBase) || (nxtDigit<0)) { /* If the next digit exceeds the base, then it's an error unless this is a binary conversion and the character is a single quote */ if(!(conversionBase == 2 && c == '\'')) literalValue = 0; break; } literalValue *= conversionBase; literalValue += nxtDigit; } yylvalP->Integer_P = new Integer(literalValue); return(recognize(LITERAL_INT_T,"literal int")); } /***************************************************************** * */ static int process_macroBody(YYSTYPE* yylvalP, const char *text) { yylvalP->s = strdup(text); return recognize(MACROBODY_T,"macro body"); } /***************************************************************** * */ static int process_booleanLiteral(YYSTYPE* yylvalP, bool value) { yylvalP->Boolean_P = new Boolean(value); return(recognize(LITERAL_BOOL_T, "boolean literal")); } /***************************************************************** * */ static int process_floatLiteral(YYSTYPE* yylvalP, char *buffer) { double floatValue; #if 0 errno = 0; floatValue = atof(buffer); if (errno != 0) { /* The conversion failed */ throw new Error("Bad floating point literal"); } #else char *endptr=0; floatValue = strtod(buffer, &endptr); if (endptr == buffer) throw new Error("Bad floating point literal"); #endif yylvalP->Float_P = new Float(floatValue); return(recognize(LITERAL_FLOAT_T, "float literal")); } /***************************************************************** * */ static int process_stringLiteral(YYSTYPE* yylvalP, const char *buffer) { yylvalP->String_P = new String(buffer); return(recognize(LITERAL_STRING_T, "string literal")); } static int process_quotedStringLiteral(YYSTYPE* yylvalP, char *buffer) { char * pCloseQuote = strchr(buffer, '\"'); if(pCloseQuote == NULL) pCloseQuote = strchr(buffer, '\''); *pCloseQuote = 0; yylvalP->String_P = new String(buffer); return(recognize(LITERAL_STRING_T, "string literal")); } /***************************************************************** * */ static int process_shellLine(YYSTYPE* yylvalP, const char *buffer) { yylvalP->String_P = new String(buffer); return(recognize(SHELL, "shell line")); } static string strip_trailing_whitespace (char *s) { string retval = s; size_t pos = retval.find_first_of (" \t"); if (pos != string::npos) retval.resize (pos); return retval; } //------------------------------------------------------------------------ static void SetMode(int newmode) { BEGIN(newmode); if(pLexerState) pLexerState->mode = newmode; } void initialize_commands(void); void init_cmd_state(void) { if(pLexerState) { if (verbose) cout << "scan: clearing lexer state and flushing buffer\n"; pLexerState->cmd = 0; pLexerState->options = 0; pLexerState->input_mode = 0; pLexerState->end_of_command = 0; pLexerState->have_parameters = 0; pLexerState->mode = 0; } } void FlushLexerBuffer() { #ifdef YY_FLUSH_BUFFER YY_FLUSH_BUFFER; #else yy_flush_buffer( YY_CURRENT_BUFFER ); #endif } static void pushLexerState() { if(verbose) cout << "pushing lexer state: from level " << sLevels << " to " << (sLevels+1) << endl; sLevels++; LexerStateStruct *pLS = new LexerStateStruct(); if(pLexerState) pLexerState->next = pLS; pLS->prev = pLexerState; pLexerState = pLS; pLS->next = 0; init_cmd_state(); } static void popLexerState() { if(verbose) cout << "popping lexer state: from level " << sLevels << " to " << (sLevels-1) << endl; sLevels--; if(pLexerState) { LexerStateStruct *pLS = pLexerState; pLexerState = pLS->prev; if(pLexerState) { pLexerState->next = 0; pLexerState->cmd = 0; pLexerState->options = 0; } SetMode(pLS->mode); delete pLS; } } int scan_read (char *buf, unsigned max_size) { static int lastRet = -1; // hack int ret = gpsim_read(buf,max_size); if (lastRet == ret && ret == 0) { *buf = '\n'; ret = 1; } lastRet = ret; return ret; } int init_parser() { pushLexerState(); int ret = yyparse(); popLexerState(); return ret; } // Tell us what the current buffer is. YY_BUFFER_STATE current_buffer (void) { return YY_CURRENT_BUFFER; } // Create a new buffer. YY_BUFFER_STATE create_buffer (FILE *f) { return yy_create_buffer (f, YY_BUF_SIZE); } // Start reading a new buffer. void switch_to_buffer (YY_BUFFER_STATE buf) { yy_switch_to_buffer (buf); } // Delete a buffer. void delete_buffer (YY_BUFFER_STATE buf) { yy_delete_buffer (buf); } // Restore a buffer (for unwind-prot). void restore_input_buffer (void *buf) { switch_to_buffer ((YY_BUFFER_STATE) buf); } // Delete a buffer (for unwind-prot). void delete_input_buffer (void *buf) { delete_buffer ((YY_BUFFER_STATE) buf); } //------------------------------------------------------------------------ // called by the parser error handler. command *getLastKnownCommand() { if(pLexerState) return pLexerState->cmd; return 0; } //---------------------------------------- // void lexer_setMacroBodyMode(void) { macroBodyPtr = ¯oBody[0]; if(verbose&4) cout << "setting lexer MACROBODY mode\n"; SetMode(MACROBODY); } //---------------------------------------- // void lexer_setDeclarationMode() { if(verbose&4) cout << "setting lexer DECLARATION mode\n"; SetMode(DECLARATION); } //---------------------------------------- static bool isWhiteSpace(char c) { return (c==' ' || c == '\t'); } //---------------------------------------- // getNextMacroParameter(char *s, int l) // // returns true if a macro parameter can be extracted // from yyinput buffer. If it does return true, then the // extracted macro parameter will get copied to // the string 's'. // // This routine will lexically analyze a character string // and split it up into chunks that can be passed to a // macro invocation. It might be possible to add a new // lex state and do this work in the lexer... // // If input stream looks something like: // // expression1, expression2, expression3, ... // // then this function will return true and copies 'expression1' // to 's'. static bool getNextMacroParameter(char *s, int l) { char c; // delete all leading white space. do { c = yyinput(); } while(isWhiteSpace(c)); if(c==',') goto done; unput(c); if(!c) return false; { int nParen=0; bool bDone = false; do { c = yyinput(); if(c == '(') nParen++; if(c == ')' && --nParen < 0 ) bDone = true; if(c==',') break; if(c==0 || c=='\n' ) { bDone=true; unput(c); } else *s++ = c; } while(--l>0 && !bDone); } done: *s=0; return true; } void lexer_InvokeMacro(Macro *m) { if(!m) return; if(verbose &4) cout << "Invoking macro: " << m->name() << endl; theMacroChain.push(m); m->prepareForInvocation(); int i=0; bool bValidParameter = false; do { i++; char s[256]; bValidParameter = getNextMacroParameter(s,sizeof(s)); if(bValidParameter) { m->add_parameter(s); if(verbose &4) cout << "macro param: " << s << endl; } } while (bValidParameter && inParameters()); m->invoke(); } void scanPushMacroState(Macro *m) { gCurrentMacro = m; } void scanPopMacroState() { theMacroChain.pop(); } gpsim-0.27.0/cli/cmd_stimulus.h0000644000076400007640000000226410644005165013305 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_STIMULUS_H__ #define __CMD_STIMULUS_H__ #include "command.h" class cmd_stimulus : public command { public: int valid_options,options_entered; int have_data; cmd_stimulus(void); void stimulus(void); void stimulus(int bit_flag); void stimulus(cmd_options_expr *coe); void stimulus(cmd_options_str *cos); void stimulus(ExprList_t *); void end(void); bool can_span_lines(void) {return 1;}; }; extern cmd_stimulus c_stimulus; #endif gpsim-0.27.0/cli/cmd_disasm.h0000644000076400007640000000176610416273023012703 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_DISASM_H__ #define __CMD_DISASM_H__ class Expression; class cmd_disassemble : public command { public: cmd_disassemble(void); void disassemble(Expression *); virtual int is_repeatable(void) { return 1; }; }; extern cmd_disassemble disassemble; #endif gpsim-0.27.0/cli/ui_gpsim.h0000644000076400007640000000065611116621771012416 00000000000000 #ifndef __UI_GPSIM_H__ #define __UI_GPSIM_H__ #include "../src/cmd_gpsim.h" class CGpsimConsole : public ISimConsole { public: CGpsimConsole(); void Printf(const char *fmt, ...); void VPrintf(const char *fmt, va_list argptr); void Puts(const char*); void Putc(const char); const char* Gets(char *, int); void SetOut(FILE *pOut); void SetIn(FILE *pIn); protected: FILE * m_pfOut; FILE * m_pfIn; }; #endif gpsim-0.27.0/cli/parse.cc0000664000076400007640000033244312177045220012053 00000000000000/* A Bison parser, made by GNU Bison 2.6.4. */ /* Bison implementation for Yacc-like parsers in C Copyright (C) 1984, 1989-1990, 2000-2012 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 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, see . */ /* As a special exception, you may create a larger work that contains part or all of the Bison parser skeleton and distribute that work under terms of your choice, so long as that work isn't itself a parser generator using the skeleton or a modified version thereof as a parser skeleton. Alternatively, if you modify or redistribute the parser skeleton itself, you may (at your option) remove this special exception, which will cause the skeleton and the resulting Bison output files to be licensed under the GNU General Public License without this special exception. This special exception was added by the Free Software Foundation in version 2.2 of Bison. */ /* C LALR(1) parser skeleton written by Richard Stallman, by simplifying the original so-called "semantic" parser. */ /* All symbols defined below should begin with yy or YY, to avoid infringing on user name space. This should be done even for local variables, as they might otherwise be expanded by user macros. There are some unavoidable exceptions within include files to define necessary library symbols; they are noted "INFRINGES ON USER NAME SPACE" below. */ /* Identify Bison output. */ #define YYBISON 1 /* Bison version. */ #define YYBISON_VERSION "2.6.4" /* Skeleton name. */ #define YYSKELETON_NAME "yacc.c" /* Pure parsers. */ #define YYPURE 1 /* Push parsers. */ #define YYPUSH 0 /* Pull parsers. */ #define YYPULL 1 /* Copy the first part of user declarations. */ /* Line 358 of yacc.c */ #line 2 "parse.yy" /* Parser for gpsim Copyright (C) 1999 Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include #include #include #include #include #include using namespace std; #include "misc.h" #include "command.h" #include "cmd_attach.h" #include "cmd_break.h" #include "cmd_bus.h" #include "cmd_clear.h" #include "cmd_disasm.h" #include "cmd_dump.h" #include "cmd_frequency.h" #include "cmd_help.h" #include "cmd_list.h" #include "cmd_load.h" #include "cmd_log.h" #include "cmd_node.h" #include "cmd_macro.h" #include "cmd_module.h" #include "cmd_processor.h" #include "cmd_quit.h" #include "cmd_reset.h" #include "cmd_run.h" #include "cmd_set.h" #include "cmd_step.h" #include "cmd_shell.h" #include "cmd_stimulus.h" #include "cmd_symbol.h" #include "cmd_trace.h" #include "cmd_version.h" #include "cmd_x.h" #include "cmd_icd.h" #include "../src/expr.h" #include "../src/operator.h" #include "../src/symbol.h" #include "../src/stimuli.h" #include "../src/processor.h" extern void lexer_setMacroBodyMode(); extern void lexer_InvokeMacro(Macro *m); extern void lexer_setDeclarationMode(); #define YYERROR_VERBOSE extern char *yytext; int quit_parse=0; int abort_gpsim=0; int parser_warnings; int parser_spanning_lines=0; int gAbortParserOnSyntaxError=0; extern int use_gui; extern int quit_state; extern command *getLastKnownCommand(); extern void init_cmd_state(); extern const char * GetLastFullCommand(); // From scan.ll void FlushLexerBuffer(); void yyerror(const char *message) { printf("***ERROR: %s while parsing:\n'%s'\n",message, yytext); const char *last = GetLastFullCommand(); if (last) printf(" Last command: %s\n", last); init_cmd_state(); // JRH - I added this hoping that it is an appropriate // place to clear the lexer buffer. An example of // failed command where this is needed is to index // into an undefined symbol. (i.e. undefinedsymbol[0]) FlushLexerBuffer(); } int toInt(Expression *expr) { try { if(expr) { Value *v = expr->evaluate(); if (v) { int i; v->get(i); delete v; return i; } } } catch (Error *err) { if(err) cout << "ERROR:" << err->toString() << endl; delete err; } return -1; } /* Line 358 of yacc.c */ #line 201 "parse.cc" # ifndef YY_NULL # if defined __cplusplus && 201103L <= __cplusplus # define YY_NULL nullptr # else # define YY_NULL 0 # endif # endif /* Enabling verbose error messages. */ #ifdef YYERROR_VERBOSE # undef YYERROR_VERBOSE # define YYERROR_VERBOSE 1 #else # define YYERROR_VERBOSE 0 #endif /* In a future release of Bison, this section will be replaced by #include "y.tab.h". */ #ifndef YY_YY_PARSE_H_INCLUDED # define YY_YY_PARSE_H_INCLUDED /* Enabling traces. */ #ifndef YYDEBUG # define YYDEBUG 1 #endif #if YYDEBUG extern int yydebug; #endif /* Tokens. */ #ifndef YYTOKENTYPE # define YYTOKENTYPE /* Put the tokens into the symbol table, so that GDB and other debuggers know about them. */ enum yytokentype { ABORT = 258, ATTACH = 259, BREAK = 260, BUS = 261, CLEAR = 262, DISASSEMBLE = 263, DUMP = 264, ENDM = 265, FREQUENCY = 266, HELP = 267, LOAD = 268, LOG = 269, LIST = 270, NODE = 271, MACRO = 272, MODULE = 273, PROCESSOR = 274, QUIT = 275, RESET = 276, RUN = 277, SET = 278, SHELL = 279, STEP = 280, STIMULUS = 281, SYMBOL = 282, TRACE = 283, gpsim_VERSION = 284, X = 285, ICD = 286, END_OF_COMMAND = 287, MACROBODY_T = 288, MACROINVOCATION_T = 289, INDIRECT = 290, END_OF_INPUT = 291, BIT_FLAG = 292, EXPRESSION_OPTION = 293, NUMERIC_OPTION = 294, STRING_OPTION = 295, CMD_SUBTYPE = 296, SYMBOL_OPTION = 297, LITERAL_INT_T = 298, LITERAL_BOOL_T = 299, LITERAL_FLOAT_T = 300, LITERAL_STRING_T = 301, LITERAL_ARRAY_T = 302, SYMBOL_T = 303, GPSIMOBJECT_T = 304, PORT_T = 305, EQU_T = 306, AND_T = 307, COLON_T = 308, COMMENT_T = 309, DIV_T = 310, EOLN_T = 311, MINUS_T = 312, MPY_T = 313, OR_T = 314, PLUS_T = 315, SHL_T = 316, SHR_T = 317, XOR_T = 318, INDEXERLEFT_T = 319, INDEXERRIGHT_T = 320, DECLARE_TYPE = 321, DECLARE_INT_T = 322, DECLARE_FLOAT_T = 323, DECLARE_BOOL_T = 324, DECLARE_CHAR_T = 325, LOR_T = 326, LAND_T = 327, NE_T = 328, EQ_T = 329, ABS_T = 330, MAX_T = 331, MIN_T = 332, GE_T = 333, GT_T = 334, LE_T = 335, LT_T = 336, IND_T = 337, BITS_T = 338, BIT_T = 339, WORD_T = 340, LADDR_T = 341, HIGH_T = 342, LOW_T = 343, INDEXED_T = 344, UNARYOP_PREC = 345, ONESCOMP_T = 346, LNOT_T = 347, POW_T = 348, REG_T = 349 }; #endif /* Tokens. */ #define ABORT 258 #define ATTACH 259 #define BREAK 260 #define BUS 261 #define CLEAR 262 #define DISASSEMBLE 263 #define DUMP 264 #define ENDM 265 #define FREQUENCY 266 #define HELP 267 #define LOAD 268 #define LOG 269 #define LIST 270 #define NODE 271 #define MACRO 272 #define MODULE 273 #define PROCESSOR 274 #define QUIT 275 #define RESET 276 #define RUN 277 #define SET 278 #define SHELL 279 #define STEP 280 #define STIMULUS 281 #define SYMBOL 282 #define TRACE 283 #define gpsim_VERSION 284 #define X 285 #define ICD 286 #define END_OF_COMMAND 287 #define MACROBODY_T 288 #define MACROINVOCATION_T 289 #define INDIRECT 290 #define END_OF_INPUT 291 #define BIT_FLAG 292 #define EXPRESSION_OPTION 293 #define NUMERIC_OPTION 294 #define STRING_OPTION 295 #define CMD_SUBTYPE 296 #define SYMBOL_OPTION 297 #define LITERAL_INT_T 298 #define LITERAL_BOOL_T 299 #define LITERAL_FLOAT_T 300 #define LITERAL_STRING_T 301 #define LITERAL_ARRAY_T 302 #define SYMBOL_T 303 #define GPSIMOBJECT_T 304 #define PORT_T 305 #define EQU_T 306 #define AND_T 307 #define COLON_T 308 #define COMMENT_T 309 #define DIV_T 310 #define EOLN_T 311 #define MINUS_T 312 #define MPY_T 313 #define OR_T 314 #define PLUS_T 315 #define SHL_T 316 #define SHR_T 317 #define XOR_T 318 #define INDEXERLEFT_T 319 #define INDEXERRIGHT_T 320 #define DECLARE_TYPE 321 #define DECLARE_INT_T 322 #define DECLARE_FLOAT_T 323 #define DECLARE_BOOL_T 324 #define DECLARE_CHAR_T 325 #define LOR_T 326 #define LAND_T 327 #define NE_T 328 #define EQ_T 329 #define ABS_T 330 #define MAX_T 331 #define MIN_T 332 #define GE_T 333 #define GT_T 334 #define LE_T 335 #define LT_T 336 #define IND_T 337 #define BITS_T 338 #define BIT_T 339 #define WORD_T 340 #define LADDR_T 341 #define HIGH_T 342 #define LOW_T 343 #define INDEXED_T 344 #define UNARYOP_PREC 345 #define ONESCOMP_T 346 #define LNOT_T 347 #define POW_T 348 #define REG_T 349 #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED typedef union YYSTYPE { /* Line 374 of yacc.c */ #line 140 "parse.yy" guint32 i; guint64 li; float f; char *s; cmd_options *co; cmd_options_num *con; cmd_options_str *cos; cmd_options_expr *coe; BinaryOperator* BinaryOperator_P; Boolean* Boolean_P; Expression* Expression_P; Float* Float_P; Integer* Integer_P; String* String_P; gpsimObject* Symbol_P; gpsimObject* gpsimObject_P; StringList_t *StringList_P; ExprList_t *ExprList_P; gpsimObjectList_t *gpsimObjectList_P; Macro *Macro_P; /* Line 374 of yacc.c */ #line 459 "parse.cc" } YYSTYPE; # define YYSTYPE_IS_TRIVIAL 1 # define yystype YYSTYPE /* obsolescent; will be withdrawn */ # define YYSTYPE_IS_DECLARED 1 #endif #ifdef YYPARSE_PARAM #if defined __STDC__ || defined __cplusplus int yyparse (void *YYPARSE_PARAM); #else int yyparse (); #endif #else /* ! YYPARSE_PARAM */ #if defined __STDC__ || defined __cplusplus int yyparse (void); #else int yyparse (); #endif #endif /* ! YYPARSE_PARAM */ #endif /* !YY_YY_PARSE_H_INCLUDED */ /* Copy the second part of user declarations. */ /* Line 377 of yacc.c */ #line 168 "parse.yy" /* Define the interface to the lexer */ extern int yylex(YYSTYPE* lvalP); /* Line 377 of yacc.c */ #line 491 "parse.cc" #ifdef short # undef short #endif #ifdef YYTYPE_UINT8 typedef YYTYPE_UINT8 yytype_uint8; #else typedef unsigned char yytype_uint8; #endif #ifdef YYTYPE_INT8 typedef YYTYPE_INT8 yytype_int8; #elif (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) typedef signed char yytype_int8; #else typedef short int yytype_int8; #endif #ifdef YYTYPE_UINT16 typedef YYTYPE_UINT16 yytype_uint16; #else typedef unsigned short int yytype_uint16; #endif #ifdef YYTYPE_INT16 typedef YYTYPE_INT16 yytype_int16; #else typedef short int yytype_int16; #endif #ifndef YYSIZE_T # ifdef __SIZE_TYPE__ # define YYSIZE_T __SIZE_TYPE__ # elif defined size_t # define YYSIZE_T size_t # elif ! defined YYSIZE_T && (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) # include /* INFRINGES ON USER NAME SPACE */ # define YYSIZE_T size_t # else # define YYSIZE_T unsigned int # endif #endif #define YYSIZE_MAXIMUM ((YYSIZE_T) -1) #ifndef YY_ # if defined YYENABLE_NLS && YYENABLE_NLS # if ENABLE_NLS # include /* INFRINGES ON USER NAME SPACE */ # define YY_(Msgid) dgettext ("bison-runtime", Msgid) # endif # endif # ifndef YY_ # define YY_(Msgid) Msgid # endif #endif /* Suppress unused-variable warnings by "using" E. */ #if ! defined lint || defined __GNUC__ # define YYUSE(E) ((void) (E)) #else # define YYUSE(E) /* empty */ #endif /* Identity function, used to suppress warnings about constant conditions. */ #ifndef lint # define YYID(N) (N) #else #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) static int YYID (int yyi) #else static int YYID (yyi) int yyi; #endif { return yyi; } #endif #if ! defined yyoverflow || YYERROR_VERBOSE /* The parser invokes alloca or malloc; define the necessary symbols. */ # ifdef YYSTACK_USE_ALLOCA # if YYSTACK_USE_ALLOCA # ifdef __GNUC__ # define YYSTACK_ALLOC __builtin_alloca # elif defined __BUILTIN_VA_ARG_INCR # include /* INFRINGES ON USER NAME SPACE */ # elif defined _AIX # define YYSTACK_ALLOC __alloca # elif defined _MSC_VER # include /* INFRINGES ON USER NAME SPACE */ # define alloca _alloca # else # define YYSTACK_ALLOC alloca # if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) # include /* INFRINGES ON USER NAME SPACE */ /* Use EXIT_SUCCESS as a witness for stdlib.h. */ # ifndef EXIT_SUCCESS # define EXIT_SUCCESS 0 # endif # endif # endif # endif # endif # ifdef YYSTACK_ALLOC /* Pacify GCC's `empty if-body' warning. */ # define YYSTACK_FREE(Ptr) do { /* empty */; } while (YYID (0)) # ifndef YYSTACK_ALLOC_MAXIMUM /* The OS might guarantee only one guard page at the bottom of the stack, and a page size can be as small as 4096 bytes. So we cannot safely invoke alloca (N) if N exceeds 4096. Use a slightly smaller number to allow for a few compiler-allocated temporary stack slots. */ # define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */ # endif # else # define YYSTACK_ALLOC YYMALLOC # define YYSTACK_FREE YYFREE # ifndef YYSTACK_ALLOC_MAXIMUM # define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM # endif # if (defined __cplusplus && ! defined EXIT_SUCCESS \ && ! ((defined YYMALLOC || defined malloc) \ && (defined YYFREE || defined free))) # include /* INFRINGES ON USER NAME SPACE */ # ifndef EXIT_SUCCESS # define EXIT_SUCCESS 0 # endif # endif # ifndef YYMALLOC # define YYMALLOC malloc # if ! defined malloc && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */ # endif # endif # ifndef YYFREE # define YYFREE free # if ! defined free && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) void free (void *); /* INFRINGES ON USER NAME SPACE */ # endif # endif # endif #endif /* ! defined yyoverflow || YYERROR_VERBOSE */ #if (! defined yyoverflow \ && (! defined __cplusplus \ || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL))) /* A type that is properly aligned for any stack member. */ union yyalloc { yytype_int16 yyss_alloc; YYSTYPE yyvs_alloc; }; /* The size of the maximum gap between one aligned stack and the next. */ # define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1) /* The size of an array large to enough to hold all stacks, each with N elements. */ # define YYSTACK_BYTES(N) \ ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \ + YYSTACK_GAP_MAXIMUM) # define YYCOPY_NEEDED 1 /* Relocate STACK from its old location to the new one. The local variables YYSIZE and YYSTACKSIZE give the old and new number of elements in the stack, and YYPTR gives the new location of the stack. Advance YYPTR to a properly aligned location for the next stack. */ # define YYSTACK_RELOCATE(Stack_alloc, Stack) \ do \ { \ YYSIZE_T yynewbytes; \ YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \ Stack = &yyptr->Stack_alloc; \ yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \ yyptr += yynewbytes / sizeof (*yyptr); \ } \ while (YYID (0)) #endif #if defined YYCOPY_NEEDED && YYCOPY_NEEDED /* Copy COUNT objects from SRC to DST. The source and destination do not overlap. */ # ifndef YYCOPY # if defined __GNUC__ && 1 < __GNUC__ # define YYCOPY(Dst, Src, Count) \ __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src))) # else # define YYCOPY(Dst, Src, Count) \ do \ { \ YYSIZE_T yyi; \ for (yyi = 0; yyi < (Count); yyi++) \ (Dst)[yyi] = (Src)[yyi]; \ } \ while (YYID (0)) # endif # endif #endif /* !YYCOPY_NEEDED */ /* YYFINAL -- State number of the termination state. */ #define YYFINAL 137 /* YYLAST -- Last index in YYTABLE. */ #define YYLAST 517 /* YYNTOKENS -- Number of terminals. */ #define YYNTOKENS 101 /* YYNNTS -- Number of nonterminals. */ #define YYNNTS 62 /* YYNRULES -- Number of rules. */ #define YYNRULES 200 /* YYNRULES -- Number of states. */ #define YYNSTATES 269 /* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */ #define YYUNDEFTOK 2 #define YYMAXUTOK 349 #define YYTRANSLATE(YYX) \ ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK) /* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX. */ static const yytype_uint8 yytranslate[] = { 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 95, 96, 2, 2, 97, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 98, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 99, 2, 100, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94 }; #if YYDEBUG /* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in YYRHS. */ static const yytype_uint16 yyprhs[] = { 0, 0, 3, 6, 10, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, 59, 61, 63, 65, 67, 69, 71, 73, 75, 77, 80, 81, 83, 85, 89, 91, 94, 96, 98, 101, 105, 109, 112, 115, 117, 120, 125, 128, 130, 133, 135, 138, 142, 147, 149, 153, 157, 162, 169, 174, 181, 183, 186, 188, 191, 194, 196, 199, 203, 208, 211, 214, 218, 222, 224, 227, 229, 232, 235, 239, 241, 244, 247, 251, 253, 256, 258, 260, 262, 265, 269, 271, 274, 277, 279, 281, 284, 287, 290, 292, 295, 298, 301, 303, 308, 311, 314, 316, 319, 322, 325, 328, 331, 333, 335, 338, 340, 343, 345, 347, 349, 350, 351, 360, 361, 363, 367, 368, 370, 372, 375, 377, 380, 381, 382, 388, 389, 391, 393, 395, 397, 399, 401, 404, 407, 410, 413, 415, 418, 420, 422, 427, 431, 436, 441, 443, 445, 448, 450, 454, 458, 462, 466, 470, 474, 478, 482, 486, 490, 494, 498, 502, 506, 510, 514, 518, 522, 526, 528, 531, 534, 537, 540, 543, 546, 550, 552, 554, 556, 558, 560, 565 }; /* YYRHS -- A `-1'-separated list of the rules' RHS. */ static const yytype_int16 yyrhs[] = { 102, 0, -1, 103, 104, -1, 102, 103, 104, -1, -1, 106, -1, 107, -1, 108, -1, 111, -1, 112, -1, 113, -1, 145, -1, 114, -1, 115, -1, 116, -1, 117, -1, 118, -1, 119, -1, 109, -1, 120, -1, 121, -1, 137, -1, 122, -1, 123, -1, 124, -1, 125, -1, 126, -1, 127, -1, 128, -1, 129, -1, 130, -1, 132, -1, 133, -1, 134, -1, 135, -1, 136, -1, 36, -1, 1, -1, 105, 56, -1, -1, 54, -1, 3, -1, 4, 48, 158, -1, 5, -1, 5, 43, -1, 110, -1, 14, -1, 14, 149, -1, 14, 149, 159, -1, 5, 149, 159, -1, 5, 149, -1, 5, 48, -1, 6, -1, 6, 154, -1, 48, 95, 159, 96, -1, 7, 155, -1, 8, -1, 8, 155, -1, 9, -1, 9, 149, -1, 9, 149, 48, -1, 9, 149, 48, 46, -1, 48, -1, 95, 155, 96, -1, 48, 51, 155, -1, 48, 64, 159, 65, -1, 48, 64, 159, 65, 51, 155, -1, 94, 95, 155, 96, -1, 94, 95, 155, 96, 51, 155, -1, 11, -1, 11, 155, -1, 12, -1, 12, 46, -1, 12, 48, -1, 15, -1, 15, 149, -1, 13, 149, 46, -1, 13, 149, 48, 46, -1, 13, 46, -1, 13, 48, -1, 13, 48, 48, -1, 13, 46, 46, -1, 16, -1, 16, 154, -1, 18, -1, 18, 149, -1, 18, 153, -1, 18, 153, 154, -1, 19, -1, 19, 149, -1, 19, 46, -1, 19, 46, 46, -1, 20, -1, 20, 155, -1, 21, -1, 22, -1, 23, -1, 23, 149, -1, 23, 149, 155, -1, 25, -1, 25, 155, -1, 25, 149, -1, 24, -1, 26, -1, 26, 150, -1, 130, 131, -1, 130, 32, -1, 151, -1, 131, 149, -1, 131, 153, -1, 131, 156, -1, 27, -1, 27, 46, 51, 162, -1, 27, 46, -1, 27, 48, -1, 28, -1, 28, 155, -1, 28, 152, -1, 28, 153, -1, 28, 149, -1, 28, 151, -1, 29, -1, 30, -1, 30, 155, -1, 31, -1, 31, 153, -1, 17, -1, 138, -1, 34, -1, -1, -1, 46, 17, 139, 141, 104, 140, 142, 144, -1, -1, 46, -1, 141, 97, 46, -1, -1, 143, -1, 33, -1, 143, 33, -1, 10, -1, 46, 10, -1, -1, -1, 98, 146, 148, 147, 46, -1, -1, 67, -1, 68, -1, 69, -1, 70, -1, 37, -1, 41, -1, 38, 155, -1, 39, 155, -1, 40, 46, -1, 40, 48, -1, 46, -1, 154, 46, -1, 160, -1, 161, -1, 94, 95, 155, 96, -1, 99, 159, 100, -1, 49, 95, 48, 96, -1, 49, 95, 43, 96, -1, 48, -1, 157, -1, 158, 157, -1, 155, -1, 159, 97, 155, -1, 155, 60, 155, -1, 155, 57, 155, -1, 155, 58, 155, -1, 155, 55, 155, -1, 155, 52, 155, -1, 155, 59, 155, -1, 155, 63, 155, -1, 155, 61, 155, -1, 155, 62, 155, -1, 155, 74, 155, -1, 155, 73, 155, -1, 155, 81, 155, -1, 155, 79, 155, -1, 155, 80, 155, -1, 155, 78, 155, -1, 155, 72, 155, -1, 155, 71, 155, -1, 155, 53, 155, -1, 162, -1, 60, 161, -1, 57, 161, -1, 91, 161, -1, 92, 161, -1, 58, 161, -1, 52, 161, -1, 95, 155, 96, -1, 43, -1, 44, -1, 46, -1, 45, -1, 48, -1, 48, 64, 159, 65, -1, 47, -1 }; /* YYRLINE[YYN] -- source line where rule number YYN was defined. */ static const yytype_uint16 yyrline[] = { 0, 313, 313, 317, 323, 325, 326, 327, 328, 329, 330, 331, 332, 333, 334, 335, 336, 337, 338, 339, 340, 341, 342, 343, 344, 345, 346, 347, 348, 349, 350, 351, 352, 353, 354, 355, 356, 366, 383, 387, 389, 393, 402, 409, 410, 411, 415, 416, 417, 422, 423, 424, 428, 429, 432, 439, 443, 444, 448, 449, 450, 456, 470, 478, 482, 497, 503, 510, 517, 527, 528, 532, 533, 534, 538, 539, 542, 553, 564, 578, 591, 605, 625, 626, 630, 631, 632, 637, 647, 651, 655, 660, 668, 673, 682, 686, 690, 691, 692, 696, 697, 698, 702, 705, 709, 713, 717, 727, 733, 739, 745, 755, 756, 762, 763, 768, 769, 770, 771, 772, 773, 776, 780, 781, 785, 786, 807, 808, 809, 815, 817, 814, 822, 824, 829, 837, 839, 843, 844, 848, 849, 870, 875, 869, 886, 887, 888, 889, 890, 914, 920, 926, 929, 938, 946, 967, 968, 974, 975, 976, 980, 983, 999, 1005, 1026, 1027, 1031, 1032, 1036, 1037, 1038, 1039, 1040, 1041, 1042, 1043, 1044, 1045, 1046, 1047, 1048, 1049, 1050, 1051, 1052, 1053, 1057, 1058, 1059, 1060, 1061, 1062, 1063, 1064, 1067, 1068, 1069, 1070, 1071, 1072, 1073 }; #endif #if YYDEBUG || YYERROR_VERBOSE || 0 /* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM. First, the terminals, then, starting at YYNTOKENS, nonterminals. */ static const char *const yytname[] = { "$end", "error", "$undefined", "ABORT", "ATTACH", "BREAK", "BUS", "CLEAR", "DISASSEMBLE", "DUMP", "ENDM", "FREQUENCY", "HELP", "LOAD", "LOG", "LIST", "NODE", "MACRO", "MODULE", "PROCESSOR", "QUIT", "RESET", "RUN", "SET", "SHELL", "STEP", "STIMULUS", "SYMBOL", "TRACE", "gpsim_VERSION", "X", "ICD", "END_OF_COMMAND", "MACROBODY_T", "MACROINVOCATION_T", "INDIRECT", "END_OF_INPUT", "BIT_FLAG", "EXPRESSION_OPTION", "NUMERIC_OPTION", "STRING_OPTION", "CMD_SUBTYPE", "SYMBOL_OPTION", "LITERAL_INT_T", "LITERAL_BOOL_T", "LITERAL_FLOAT_T", "LITERAL_STRING_T", "LITERAL_ARRAY_T", "SYMBOL_T", "GPSIMOBJECT_T", "PORT_T", "EQU_T", "AND_T", "COLON_T", "COMMENT_T", "DIV_T", "EOLN_T", "MINUS_T", "MPY_T", "OR_T", "PLUS_T", "SHL_T", "SHR_T", "XOR_T", "INDEXERLEFT_T", "INDEXERRIGHT_T", "DECLARE_TYPE", "DECLARE_INT_T", "DECLARE_FLOAT_T", "DECLARE_BOOL_T", "DECLARE_CHAR_T", "LOR_T", "LAND_T", "NE_T", "EQ_T", "ABS_T", "MAX_T", "MIN_T", "GE_T", "GT_T", "LE_T", "LT_T", "IND_T", "BITS_T", "BIT_T", "WORD_T", "LADDR_T", "HIGH_T", "LOW_T", "INDEXED_T", "UNARYOP_PREC", "ONESCOMP_T", "LNOT_T", "POW_T", "REG_T", "'('", "')'", "','", "'\\\\'", "'{'", "'}'", "$accept", "list_of_commands", "cmd", "rol", "opt_comment", "aborting", "attach_cmd", "break_cmd", "log_cmd", "break_set", "bus_cmd", "call_cmd", "clear_cmd", "disassemble_cmd", "dump_cmd", "eval_cmd", "frequency_cmd", "help_cmd", "list_cmd", "load_cmd", "node_cmd", "module_cmd", "processor_cmd", "quit_cmd", "reset_cmd", "run_cmd", "set_cmd", "step_cmd", "shell_cmd", "stimulus_cmd", "stimulus_opt", "symbol_cmd", "trace_cmd", "version_cmd", "x_cmd", "icd_cmd", "macro_cmd", "macrodef_directive", "$@1", "$@2", "opt_mdef_arglist", "mdef_body", "mdef_body_", "mdef_end", "declaration_cmd", "$@3", "$@4", "opt_declaration_type", "bit_flag", "cmd_subtype", "expression_option", "numeric_option", "string_option", "string_list", "expr", "array", "gpsimObject", "gpsimObject_list", "expr_list", "binary_expr", "unary_expr", "literal", YY_NULL }; #endif # ifdef YYPRINT /* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to token YYLEX-NUM. */ static const yytype_uint16 yytoknum[] = { 0, 256, 257, 258, 259, 260, 261, 262, 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, 291, 292, 293, 294, 295, 296, 297, 298, 299, 300, 301, 302, 303, 304, 305, 306, 307, 308, 309, 310, 311, 312, 313, 314, 315, 316, 317, 318, 319, 320, 321, 322, 323, 324, 325, 326, 327, 328, 329, 330, 331, 332, 333, 334, 335, 336, 337, 338, 339, 340, 341, 342, 343, 344, 345, 346, 347, 348, 349, 40, 41, 44, 92, 123, 125 }; # endif /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */ static const yytype_uint8 yyr1[] = { 0, 101, 102, 102, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 104, 105, 105, 106, 107, 108, 108, 108, 109, 109, 109, 110, 110, 110, 111, 111, 112, 113, 114, 114, 115, 115, 115, 115, 116, 116, 116, 116, 116, 116, 116, 117, 117, 118, 118, 118, 119, 119, 120, 120, 120, 120, 120, 120, 121, 121, 122, 122, 122, 122, 123, 123, 123, 123, 124, 124, 125, 126, 127, 127, 127, 128, 128, 128, 129, 130, 130, 130, 130, 131, 131, 131, 131, 132, 132, 132, 132, 133, 133, 133, 133, 133, 133, 134, 135, 135, 136, 136, 137, 137, 137, 139, 140, 138, 141, 141, 141, 142, 142, 143, 143, 144, 144, 146, 147, 145, 148, 148, 148, 148, 148, 149, 150, 151, 152, 153, 153, 154, 154, 155, 155, 155, 156, 157, 157, 157, 158, 158, 159, 159, 160, 160, 160, 160, 160, 160, 160, 160, 160, 160, 160, 160, 160, 160, 160, 160, 160, 160, 161, 161, 161, 161, 161, 161, 161, 161, 162, 162, 162, 162, 162, 162, 162 }; /* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */ static const yytype_uint8 yyr2[] = { 0, 2, 2, 3, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 0, 1, 1, 3, 1, 2, 1, 1, 2, 3, 3, 2, 2, 1, 2, 4, 2, 1, 2, 1, 2, 3, 4, 1, 3, 3, 4, 6, 4, 6, 1, 2, 1, 2, 2, 1, 2, 3, 4, 2, 2, 3, 3, 1, 2, 1, 2, 2, 3, 1, 2, 2, 3, 1, 2, 1, 1, 1, 2, 3, 1, 2, 2, 1, 1, 2, 2, 2, 1, 2, 2, 2, 1, 4, 2, 2, 1, 2, 2, 2, 2, 2, 1, 1, 2, 1, 2, 1, 1, 1, 0, 0, 8, 0, 1, 3, 0, 1, 1, 2, 1, 2, 0, 0, 5, 0, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 1, 2, 1, 1, 4, 3, 4, 4, 1, 1, 2, 1, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 1, 2, 2, 2, 2, 2, 2, 3, 1, 1, 1, 1, 1, 4, 1 }; /* YYDEFACT[STATE-NAME] -- Default reduction number in state STATE-NUM. Performed when YYTABLE doesn't specify something else to do. Zero means the default is an error. */ static const yytype_uint8 yydefact[] = { 0, 37, 41, 0, 43, 52, 0, 56, 58, 69, 71, 0, 46, 74, 82, 126, 84, 88, 92, 94, 95, 96, 102, 99, 103, 111, 115, 121, 122, 124, 128, 36, 0, 62, 0, 0, 141, 0, 39, 5, 6, 7, 18, 45, 8, 9, 10, 12, 13, 14, 15, 16, 17, 19, 20, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 21, 127, 11, 0, 149, 44, 51, 50, 155, 53, 194, 195, 197, 196, 200, 198, 0, 0, 0, 0, 0, 0, 0, 0, 55, 157, 158, 186, 57, 59, 70, 72, 73, 78, 79, 0, 47, 75, 83, 0, 85, 86, 90, 89, 93, 97, 101, 100, 150, 104, 113, 114, 0, 0, 119, 120, 117, 118, 116, 123, 125, 129, 0, 0, 0, 0, 0, 144, 1, 39, 40, 2, 0, 106, 105, 107, 163, 0, 164, 42, 166, 49, 156, 0, 192, 188, 191, 187, 189, 190, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 60, 81, 80, 76, 0, 48, 153, 154, 87, 91, 98, 0, 151, 152, 132, 64, 0, 0, 0, 63, 145, 146, 147, 148, 142, 3, 38, 0, 108, 109, 110, 0, 165, 0, 0, 0, 193, 172, 185, 171, 169, 170, 173, 168, 175, 176, 174, 184, 183, 178, 177, 182, 180, 181, 179, 61, 77, 112, 133, 39, 65, 54, 67, 0, 0, 0, 0, 167, 199, 159, 0, 130, 0, 0, 143, 160, 162, 161, 134, 135, 66, 68, 137, 0, 136, 139, 0, 131, 138, 140 }; /* YYDEFGOTO[NTERM-NUM]. */ static const yytype_int16 yydefgoto[] = { -1, 37, 38, 140, 141, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 143, 64, 65, 66, 67, 68, 69, 70, 193, 258, 238, 262, 263, 266, 71, 136, 242, 203, 76, 118, 124, 125, 110, 78, 149, 209, 147, 148, 150, 94, 95, 96 }; /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing STATE-NUM. */ #define YYPACT_NINF -132 static const yytype_int16 yypact[] = { 173, -132, -132, -20, -10, -7, 236, 236, 39, 236, -30, -12, 39, 39, -7, -132, 73, 66, 236, -132, -132, 39, -132, 168, 55, 56, 195, -132, 236, 78, -132, -132, 63, -21, 11, 236, -132, 41, 70, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, 52, -132, -132, -132, -132, -132, -132, -132, -132, 82, -132, -132, -132, 236, -132, 81, -132, -132, -132, -132, -132, 83, 254, 254, 254, 254, 254, 254, 42, 236, 385, -132, -132, -132, 385, 86, 385, -132, -132, 108, 125, 92, 236, -132, 81, 100, -132, -7, 129, -132, 385, 236, -132, 385, -132, -132, 132, -132, 236, 236, -132, -132, -132, -132, 385, 385, -132, -132, 236, 236, 236, 236, 263, 53, -132, 70, -132, -132, 152, -132, -14, -132, -132, 115, -132, 82, 385, 126, -132, 236, -132, -132, -132, -132, -132, -132, 236, 295, 236, 236, 236, 236, 236, 236, 236, 236, 236, 236, 236, 236, 236, 236, 236, 236, 236, 236, 176, -132, -132, -132, 178, 126, -132, -132, 81, -132, 385, 317, 385, 385, 184, 385, -57, 121, 325, -132, -132, -132, -132, -132, -132, -132, -132, 236, -132, -132, -132, 40, -132, 236, 14, 355, -132, 71, 415, 20, 71, 20, 71, 71, 426, 426, 71, 436, 196, 170, 170, -132, -132, -132, -132, -132, -132, -132, -132, -19, 180, -132, 185, 191, 17, 148, 158, 385, -132, -132, 210, -132, 236, 236, -132, -132, -132, -132, -132, 224, 385, 385, -132, 27, 225, -132, 251, -132, -132, -132 }; /* YYPGOTO[NTERM-NUM]. */ static const yytype_int16 yypgoto[] = { -132, -132, 227, -131, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, -2, -132, 202, -132, -24, -1, -6, -132, 118, -132, -101, -132, 394, 88 }; /* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If positive, shift that token. If negative, reduce the rule which number is the opposite. If YYTABLE_NINF, syntax error. */ #define YYTABLE_NINF -5 static const yytype_int16 yytable[] = { 93, 97, 126, 99, 184, 129, 98, 204, 239, 104, 105, 106, 113, 107, 109, 112, 100, 116, 101, 114, 127, 115, 128, 73, 123, 73, 108, 73, 72, 135, 131, 195, 196, 74, 102, 139, 103, 264, 75, 77, 212, 137, 1, 132, 2, 3, 4, 5, 6, 7, 8, 213, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 265, 133, 30, 73, 31, 249, 247, 130, 168, 169, 244, 142, 206, 160, 32, 245, 33, 121, 171, 172, 173, 174, -4, 117, -4, 175, 176, 177, 178, 119, 73, 120, 243, 134, 250, 189, 187, 73, 212, 111, 108, 212, 191, 192, 254, 108, 208, 199, 200, 201, 202, 139, 194, 163, 151, 197, 165, 145, 146, 168, 169, 179, 34, 35, 159, 182, 36, 183, 207, 171, 172, 173, 174, 185, 152, 186, 175, 176, 177, 178, 214, 180, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 181, 1, 188, 2, 3, 4, 5, 6, 7, 8, 190, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 73, 246, 30, 205, 31, 210, 79, 80, 81, 82, 83, 84, 240, 212, 32, 85, 33, 234, 212, 235, 86, 87, -4, 88, -4, 237, 251, 73, 121, 122, 108, 252, 253, 79, 80, 81, 82, 83, 84, 255, 259, 260, 85, 175, 176, 177, 178, 86, 87, 256, 88, 257, 261, 267, 89, 90, 268, 91, 92, 138, 144, 211, 34, 35, 173, 174, 36, 0, 0, 175, 176, 177, 178, 236, 79, 80, 81, 82, 83, 84, 0, 89, 90, 85, 91, 92, 0, 0, 86, 87, 0, 88, 79, 80, 81, 82, 83, 84, 0, 0, 0, 85, 0, 0, 0, 0, 86, 87, 0, 88, 161, 162, 0, 163, 0, 164, 165, 166, 167, 168, 169, 170, 89, 90, 0, 91, 92, 0, 0, 171, 172, 173, 174, 0, 0, 0, 175, 176, 177, 178, 89, 90, 161, 162, 92, 163, 0, 164, 165, 166, 167, 168, 169, 170, 198, 79, 80, 81, 82, 83, 84, 171, 172, 173, 174, 0, 0, 0, 175, 176, 177, 178, 161, 162, 0, 163, 0, 164, 165, 166, 167, 168, 169, 170, 0, 0, 215, 0, 0, 0, 0, 171, 172, 173, 174, 0, 0, 0, 175, 176, 177, 178, 161, 162, 0, 163, 0, 164, 165, 166, 167, 168, 169, 170, 0, 0, 241, 0, 0, 0, 0, 171, 172, 173, 174, 0, 0, 0, 175, 176, 177, 178, 161, 162, 0, 163, 0, 164, 165, 166, 167, 168, 169, 170, 0, 0, 248, 0, 0, 0, 0, 171, 172, 173, 174, 0, 0, 0, 175, 176, 177, 178, 161, -5, 0, 163, 0, 164, 165, 166, 167, 168, 169, 170, 153, 154, 155, 156, 157, 158, 0, 171, 172, 173, 174, 0, 0, 0, 175, 176, 177, 178, 171, 172, 173, 174, 0, 0, 0, 175, 176, 177, 178, 172, 173, 174, 0, 0, 0, 175, 176, 177, 178 }; #define yypact_value_is_default(Yystate) \ (!!((Yystate) == (-132))) #define yytable_value_is_error(Yytable_value) \ (!!((Yytable_value) == (-5))) static const yytype_int16 yycheck[] = { 6, 7, 26, 9, 105, 29, 8, 138, 65, 11, 12, 13, 18, 14, 16, 17, 46, 23, 48, 21, 26, 23, 28, 37, 26, 37, 40, 37, 48, 35, 51, 132, 133, 43, 46, 54, 48, 10, 48, 46, 97, 0, 1, 64, 3, 4, 5, 6, 7, 8, 9, 152, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 46, 95, 34, 37, 36, 97, 65, 17, 61, 62, 43, 32, 99, 92, 46, 48, 48, 38, 71, 72, 73, 74, 54, 41, 56, 78, 79, 80, 81, 46, 37, 48, 206, 95, 238, 114, 110, 37, 97, 46, 40, 97, 121, 122, 100, 40, 143, 67, 68, 69, 70, 54, 131, 55, 46, 134, 58, 48, 49, 61, 62, 48, 94, 95, 95, 46, 98, 48, 143, 71, 72, 73, 74, 46, 64, 48, 78, 79, 80, 81, 159, 46, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 48, 1, 46, 3, 4, 5, 6, 7, 8, 9, 51, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 37, 212, 34, 56, 36, 95, 43, 44, 45, 46, 47, 48, 96, 97, 46, 52, 48, 46, 97, 46, 57, 58, 54, 60, 56, 46, 51, 37, 38, 39, 40, 51, 46, 43, 44, 45, 46, 47, 48, 96, 251, 252, 52, 78, 79, 80, 81, 57, 58, 96, 60, 46, 33, 33, 91, 92, 10, 94, 95, 37, 63, 148, 94, 95, 73, 74, 98, -1, -1, 78, 79, 80, 81, 190, 43, 44, 45, 46, 47, 48, -1, 91, 92, 52, 94, 95, -1, -1, 57, 58, -1, 60, 43, 44, 45, 46, 47, 48, -1, -1, -1, 52, -1, -1, -1, -1, 57, 58, -1, 60, 52, 53, -1, 55, -1, 57, 58, 59, 60, 61, 62, 63, 91, 92, -1, 94, 95, -1, -1, 71, 72, 73, 74, -1, -1, -1, 78, 79, 80, 81, 91, 92, 52, 53, 95, 55, -1, 57, 58, 59, 60, 61, 62, 63, 96, 43, 44, 45, 46, 47, 48, 71, 72, 73, 74, -1, -1, -1, 78, 79, 80, 81, 52, 53, -1, 55, -1, 57, 58, 59, 60, 61, 62, 63, -1, -1, 96, -1, -1, -1, -1, 71, 72, 73, 74, -1, -1, -1, 78, 79, 80, 81, 52, 53, -1, 55, -1, 57, 58, 59, 60, 61, 62, 63, -1, -1, 96, -1, -1, -1, -1, 71, 72, 73, 74, -1, -1, -1, 78, 79, 80, 81, 52, 53, -1, 55, -1, 57, 58, 59, 60, 61, 62, 63, -1, -1, 96, -1, -1, -1, -1, 71, 72, 73, 74, -1, -1, -1, 78, 79, 80, 81, 52, 53, -1, 55, -1, 57, 58, 59, 60, 61, 62, 63, 85, 86, 87, 88, 89, 90, -1, 71, 72, 73, 74, -1, -1, -1, 78, 79, 80, 81, 71, 72, 73, 74, -1, -1, -1, 78, 79, 80, 81, 72, 73, 74, -1, -1, -1, 78, 79, 80, 81 }; /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing symbol of state STATE-NUM. */ static const yytype_uint8 yystos[] = { 0, 1, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 34, 36, 46, 48, 94, 95, 98, 102, 103, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 132, 133, 134, 135, 136, 137, 138, 145, 48, 37, 43, 48, 149, 46, 154, 43, 44, 45, 46, 47, 48, 52, 57, 58, 60, 91, 92, 94, 95, 155, 160, 161, 162, 155, 149, 155, 46, 48, 46, 48, 149, 149, 149, 154, 40, 149, 153, 46, 149, 155, 149, 149, 155, 41, 150, 46, 48, 38, 39, 149, 151, 152, 153, 155, 155, 153, 17, 51, 64, 95, 95, 155, 146, 0, 103, 54, 104, 105, 32, 131, 151, 48, 49, 157, 158, 155, 159, 46, 64, 161, 161, 161, 161, 161, 161, 95, 155, 52, 53, 55, 57, 58, 59, 60, 61, 62, 63, 71, 72, 73, 74, 78, 79, 80, 81, 48, 46, 48, 46, 48, 159, 46, 48, 154, 46, 155, 51, 155, 155, 139, 155, 159, 159, 155, 96, 67, 68, 69, 70, 148, 104, 56, 99, 149, 153, 156, 95, 157, 97, 159, 155, 96, 155, 155, 155, 155, 155, 155, 155, 155, 155, 155, 155, 155, 155, 155, 155, 155, 155, 155, 46, 46, 162, 46, 141, 65, 96, 96, 147, 159, 43, 48, 155, 65, 96, 97, 104, 51, 51, 46, 100, 96, 96, 46, 140, 155, 155, 33, 142, 143, 10, 46, 144, 33, 10 }; #define yyerrok (yyerrstatus = 0) #define yyclearin (yychar = YYEMPTY) #define YYEMPTY (-2) #define YYEOF 0 #define YYACCEPT goto yyacceptlab #define YYABORT goto yyabortlab #define YYERROR goto yyerrorlab /* Like YYERROR except do call yyerror. This remains here temporarily to ease the transition to the new meaning of YYERROR, for GCC. Once GCC version 2 has supplanted version 1, this can go. However, YYFAIL appears to be in use. Nevertheless, it is formally deprecated in Bison 2.4.2's NEWS entry, where a plan to phase it out is discussed. */ #define YYFAIL goto yyerrlab #if defined YYFAIL /* This is here to suppress warnings from the GCC cpp's -Wunused-macros. Normally we don't worry about that warning, but some users do, and we want to make it easy for users to remove YYFAIL uses, which will produce warnings from Bison 2.5. */ #endif #define YYRECOVERING() (!!yyerrstatus) #define YYBACKUP(Token, Value) \ do \ if (yychar == YYEMPTY) \ { \ yychar = (Token); \ yylval = (Value); \ YYPOPSTACK (yylen); \ yystate = *yyssp; \ goto yybackup; \ } \ else \ { \ yyerror (YY_("syntax error: cannot back up")); \ YYERROR; \ } \ while (YYID (0)) #define YYTERROR 1 #define YYERRCODE 256 /* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N]. If N is 0, then set CURRENT to the empty location which ends the previous symbol: RHS[0] (always defined). */ #ifndef YYLLOC_DEFAULT # define YYLLOC_DEFAULT(Current, Rhs, N) \ do \ if (YYID (N)) \ { \ (Current).first_line = YYRHSLOC (Rhs, 1).first_line; \ (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \ (Current).last_line = YYRHSLOC (Rhs, N).last_line; \ (Current).last_column = YYRHSLOC (Rhs, N).last_column; \ } \ else \ { \ (Current).first_line = (Current).last_line = \ YYRHSLOC (Rhs, 0).last_line; \ (Current).first_column = (Current).last_column = \ YYRHSLOC (Rhs, 0).last_column; \ } \ while (YYID (0)) #endif #define YYRHSLOC(Rhs, K) ((Rhs)[K]) /* This macro is provided for backward compatibility. */ #ifndef YY_LOCATION_PRINT # define YY_LOCATION_PRINT(File, Loc) ((void) 0) #endif /* YYLEX -- calling `yylex' with the right arguments. */ #ifdef YYLEX_PARAM # define YYLEX yylex (&yylval, YYLEX_PARAM) #else # define YYLEX yylex (&yylval) #endif /* Enable debugging if requested. */ #if YYDEBUG # ifndef YYFPRINTF # include /* INFRINGES ON USER NAME SPACE */ # define YYFPRINTF fprintf # endif # define YYDPRINTF(Args) \ do { \ if (yydebug) \ YYFPRINTF Args; \ } while (YYID (0)) # define YY_SYMBOL_PRINT(Title, Type, Value, Location) \ do { \ if (yydebug) \ { \ YYFPRINTF (stderr, "%s ", Title); \ yy_symbol_print (stderr, \ Type, Value); \ YYFPRINTF (stderr, "\n"); \ } \ } while (YYID (0)) /*--------------------------------. | Print this symbol on YYOUTPUT. | `--------------------------------*/ /*ARGSUSED*/ #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) static void yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep) #else static void yy_symbol_value_print (yyoutput, yytype, yyvaluep) FILE *yyoutput; int yytype; YYSTYPE const * const yyvaluep; #endif { FILE *yyo = yyoutput; YYUSE (yyo); if (!yyvaluep) return; # ifdef YYPRINT if (yytype < YYNTOKENS) YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep); # else YYUSE (yyoutput); # endif switch (yytype) { default: break; } } /*--------------------------------. | Print this symbol on YYOUTPUT. | `--------------------------------*/ #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) static void yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep) #else static void yy_symbol_print (yyoutput, yytype, yyvaluep) FILE *yyoutput; int yytype; YYSTYPE const * const yyvaluep; #endif { if (yytype < YYNTOKENS) YYFPRINTF (yyoutput, "token %s (", yytname[yytype]); else YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]); yy_symbol_value_print (yyoutput, yytype, yyvaluep); YYFPRINTF (yyoutput, ")"); } /*------------------------------------------------------------------. | yy_stack_print -- Print the state stack from its BOTTOM up to its | | TOP (included). | `------------------------------------------------------------------*/ #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) static void yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop) #else static void yy_stack_print (yybottom, yytop) yytype_int16 *yybottom; yytype_int16 *yytop; #endif { YYFPRINTF (stderr, "Stack now"); for (; yybottom <= yytop; yybottom++) { int yybot = *yybottom; YYFPRINTF (stderr, " %d", yybot); } YYFPRINTF (stderr, "\n"); } # define YY_STACK_PRINT(Bottom, Top) \ do { \ if (yydebug) \ yy_stack_print ((Bottom), (Top)); \ } while (YYID (0)) /*------------------------------------------------. | Report that the YYRULE is going to be reduced. | `------------------------------------------------*/ #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) static void yy_reduce_print (YYSTYPE *yyvsp, int yyrule) #else static void yy_reduce_print (yyvsp, yyrule) YYSTYPE *yyvsp; int yyrule; #endif { int yynrhs = yyr2[yyrule]; int yyi; unsigned long int yylno = yyrline[yyrule]; YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n", yyrule - 1, yylno); /* The symbols being reduced. */ for (yyi = 0; yyi < yynrhs; yyi++) { YYFPRINTF (stderr, " $%d = ", yyi + 1); yy_symbol_print (stderr, yyrhs[yyprhs[yyrule] + yyi], &(yyvsp[(yyi + 1) - (yynrhs)]) ); YYFPRINTF (stderr, "\n"); } } # define YY_REDUCE_PRINT(Rule) \ do { \ if (yydebug) \ yy_reduce_print (yyvsp, Rule); \ } while (YYID (0)) /* Nonzero means print parse trace. It is left uninitialized so that multiple parsers can coexist. */ int yydebug; #else /* !YYDEBUG */ # define YYDPRINTF(Args) # define YY_SYMBOL_PRINT(Title, Type, Value, Location) # define YY_STACK_PRINT(Bottom, Top) # define YY_REDUCE_PRINT(Rule) #endif /* !YYDEBUG */ /* YYINITDEPTH -- initial size of the parser's stacks. */ #ifndef YYINITDEPTH # define YYINITDEPTH 200 #endif /* YYMAXDEPTH -- maximum size the stacks can grow to (effective only if the built-in stack extension method is used). Do not make this value too large; the results are undefined if YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH) evaluated with infinite-precision integer arithmetic. */ #ifndef YYMAXDEPTH # define YYMAXDEPTH 10000 #endif #if YYERROR_VERBOSE # ifndef yystrlen # if defined __GLIBC__ && defined _STRING_H # define yystrlen strlen # else /* Return the length of YYSTR. */ #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) static YYSIZE_T yystrlen (const char *yystr) #else static YYSIZE_T yystrlen (yystr) const char *yystr; #endif { YYSIZE_T yylen; for (yylen = 0; yystr[yylen]; yylen++) continue; return yylen; } # endif # endif # ifndef yystpcpy # if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE # define yystpcpy stpcpy # else /* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in YYDEST. */ #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) static char * yystpcpy (char *yydest, const char *yysrc) #else static char * yystpcpy (yydest, yysrc) char *yydest; const char *yysrc; #endif { char *yyd = yydest; const char *yys = yysrc; while ((*yyd++ = *yys++) != '\0') continue; return yyd - 1; } # endif # endif # ifndef yytnamerr /* Copy to YYRES the contents of YYSTR after stripping away unnecessary quotes and backslashes, so that it's suitable for yyerror. The heuristic is that double-quoting is unnecessary unless the string contains an apostrophe, a comma, or backslash (other than backslash-backslash). YYSTR is taken from yytname. If YYRES is null, do not copy; instead, return the length of what the result would have been. */ static YYSIZE_T yytnamerr (char *yyres, const char *yystr) { if (*yystr == '"') { YYSIZE_T yyn = 0; char const *yyp = yystr; for (;;) switch (*++yyp) { case '\'': case ',': goto do_not_strip_quotes; case '\\': if (*++yyp != '\\') goto do_not_strip_quotes; /* Fall through. */ default: if (yyres) yyres[yyn] = *yyp; yyn++; break; case '"': if (yyres) yyres[yyn] = '\0'; return yyn; } do_not_strip_quotes: ; } if (! yyres) return yystrlen (yystr); return yystpcpy (yyres, yystr) - yyres; } # endif /* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message about the unexpected token YYTOKEN for the state stack whose top is YYSSP. Return 0 if *YYMSG was successfully written. Return 1 if *YYMSG is not large enough to hold the message. In that case, also set *YYMSG_ALLOC to the required number of bytes. Return 2 if the required number of bytes is too large to store. */ static int yysyntax_error (YYSIZE_T *yymsg_alloc, char **yymsg, yytype_int16 *yyssp, int yytoken) { YYSIZE_T yysize0 = yytnamerr (YY_NULL, yytname[yytoken]); YYSIZE_T yysize = yysize0; YYSIZE_T yysize1; enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 }; /* Internationalized format string. */ const char *yyformat = YY_NULL; /* Arguments of yyformat. */ char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM]; /* Number of reported tokens (one for the "unexpected", one per "expected"). */ int yycount = 0; /* There are many possibilities here to consider: - Assume YYFAIL is not used. It's too flawed to consider. See for details. YYERROR is fine as it does not invoke this function. - If this state is a consistent state with a default action, then the only way this function was invoked is if the default action is an error action. In that case, don't check for expected tokens because there are none. - The only way there can be no lookahead present (in yychar) is if this state is a consistent state with a default action. Thus, detecting the absence of a lookahead is sufficient to determine that there is no unexpected or expected token to report. In that case, just report a simple "syntax error". - Don't assume there isn't a lookahead just because this state is a consistent state with a default action. There might have been a previous inconsistent state, consistent state with a non-default action, or user semantic action that manipulated yychar. - Of course, the expected token list depends on states to have correct lookahead information, and it depends on the parser not to perform extra reductions after fetching a lookahead from the scanner and before detecting a syntax error. Thus, state merging (from LALR or IELR) and default reductions corrupt the expected token list. However, the list is correct for canonical LR with one exception: it will still contain any token that will not be accepted due to an error action in a later state. */ if (yytoken != YYEMPTY) { int yyn = yypact[*yyssp]; yyarg[yycount++] = yytname[yytoken]; if (!yypact_value_is_default (yyn)) { /* Start YYX at -YYN if negative to avoid negative indexes in YYCHECK. In other words, skip the first -YYN actions for this state because they are default actions. */ int yyxbegin = yyn < 0 ? -yyn : 0; /* Stay within bounds of both yycheck and yytname. */ int yychecklim = YYLAST - yyn + 1; int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS; int yyx; for (yyx = yyxbegin; yyx < yyxend; ++yyx) if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR && !yytable_value_is_error (yytable[yyx + yyn])) { if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM) { yycount = 1; yysize = yysize0; break; } yyarg[yycount++] = yytname[yyx]; yysize1 = yysize + yytnamerr (YY_NULL, yytname[yyx]); if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM)) return 2; yysize = yysize1; } } } switch (yycount) { # define YYCASE_(N, S) \ case N: \ yyformat = S; \ break YYCASE_(0, YY_("syntax error")); YYCASE_(1, YY_("syntax error, unexpected %s")); YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s")); YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s")); YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s")); YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s")); # undef YYCASE_ } yysize1 = yysize + yystrlen (yyformat); if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM)) return 2; yysize = yysize1; if (*yymsg_alloc < yysize) { *yymsg_alloc = 2 * yysize; if (! (yysize <= *yymsg_alloc && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM)) *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM; return 1; } /* Avoid sprintf, as that infringes on the user's name space. Don't have undefined behavior even if the translation produced a string with the wrong number of "%s"s. */ { char *yyp = *yymsg; int yyi = 0; while ((*yyp = *yyformat) != '\0') if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount) { yyp += yytnamerr (yyp, yyarg[yyi++]); yyformat += 2; } else { yyp++; yyformat++; } } return 0; } #endif /* YYERROR_VERBOSE */ /*-----------------------------------------------. | Release the memory associated to this symbol. | `-----------------------------------------------*/ /*ARGSUSED*/ #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) static void yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep) #else static void yydestruct (yymsg, yytype, yyvaluep) const char *yymsg; int yytype; YYSTYPE *yyvaluep; #endif { YYUSE (yyvaluep); if (!yymsg) yymsg = "Deleting"; YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); switch (yytype) { default: break; } } /*----------. | yyparse. | `----------*/ #ifdef YYPARSE_PARAM #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) int yyparse (void *YYPARSE_PARAM) #else int yyparse (YYPARSE_PARAM) void *YYPARSE_PARAM; #endif #else /* ! YYPARSE_PARAM */ #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) int yyparse (void) #else int yyparse () #endif #endif { /* The lookahead symbol. */ int yychar; #if defined __GNUC__ && (4 < __GNUC__ + (6 <= __GNUC_MINOR__)) /* Suppress an incorrect diagnostic about yylval being uninitialized. */ # define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \ _Pragma ("GCC diagnostic push") \ _Pragma ("GCC diagnostic ignored \"-Wmaybe-uninitialized\"") # define YY_IGNORE_MAYBE_UNINITIALIZED_END \ _Pragma ("GCC diagnostic pop") #else /* Default value used for initialization, for pacifying older GCCs or non-GCC compilers. */ static YYSTYPE yyval_default; # define YYLVAL_INITIALIZE() (yylval = yyval_default) #endif #ifndef YYLVAL_INITIALIZE # define YYLVAL_INITIALIZE() #endif #ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN # define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN # define YY_IGNORE_MAYBE_UNINITIALIZED_END #endif /* The semantic value of the lookahead symbol. */ YYSTYPE yylval; /* Number of syntax errors so far. */ int yynerrs; int yystate; /* Number of tokens to shift before error messages enabled. */ int yyerrstatus; /* The stacks and their tools: `yyss': related to states. `yyvs': related to semantic values. Refer to the stacks through separate pointers, to allow yyoverflow to reallocate them elsewhere. */ /* The state stack. */ yytype_int16 yyssa[YYINITDEPTH]; yytype_int16 *yyss; yytype_int16 *yyssp; /* The semantic value stack. */ YYSTYPE yyvsa[YYINITDEPTH]; YYSTYPE *yyvs; YYSTYPE *yyvsp; YYSIZE_T yystacksize; int yyn; int yyresult; /* Lookahead token as an internal (translated) token number. */ int yytoken = 0; /* The variables used to return semantic value and location from the action routines. */ YYSTYPE yyval; #if YYERROR_VERBOSE /* Buffer for error messages, and its allocated size. */ char yymsgbuf[128]; char *yymsg = yymsgbuf; YYSIZE_T yymsg_alloc = sizeof yymsgbuf; #endif #define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N)) /* The number of symbols on the RHS of the reduced rule. Keep to zero when no symbol should be popped. */ int yylen = 0; yyss = yyssa; yyvs = yyvsa; yystacksize = YYINITDEPTH; YYDPRINTF ((stderr, "Starting parse\n")); yystate = 0; yyerrstatus = 0; yynerrs = 0; yychar = YYEMPTY; /* Cause a token to be read. */ /* Initialize stack pointers. Waste one element of value and location stack so that they stay on the same level as the state stack. The wasted elements are never initialized. */ yyssp = yyss; yyvsp = yyvs; YYLVAL_INITIALIZE (); goto yysetstate; /*------------------------------------------------------------. | yynewstate -- Push a new state, which is found in yystate. | `------------------------------------------------------------*/ yynewstate: /* In all cases, when you get here, the value and location stacks have just been pushed. So pushing a state here evens the stacks. */ yyssp++; yysetstate: *yyssp = yystate; if (yyss + yystacksize - 1 <= yyssp) { /* Get the current used size of the three stacks, in elements. */ YYSIZE_T yysize = yyssp - yyss + 1; #ifdef yyoverflow { /* Give user a chance to reallocate the stack. Use copies of these so that the &'s don't force the real ones into memory. */ YYSTYPE *yyvs1 = yyvs; yytype_int16 *yyss1 = yyss; /* Each stack pointer address is followed by the size of the data in use in that stack, in bytes. This used to be a conditional around just the two extra args, but that might be undefined if yyoverflow is a macro. */ yyoverflow (YY_("memory exhausted"), &yyss1, yysize * sizeof (*yyssp), &yyvs1, yysize * sizeof (*yyvsp), &yystacksize); yyss = yyss1; yyvs = yyvs1; } #else /* no yyoverflow */ # ifndef YYSTACK_RELOCATE goto yyexhaustedlab; # else /* Extend the stack our own way. */ if (YYMAXDEPTH <= yystacksize) goto yyexhaustedlab; yystacksize *= 2; if (YYMAXDEPTH < yystacksize) yystacksize = YYMAXDEPTH; { yytype_int16 *yyss1 = yyss; union yyalloc *yyptr = (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); if (! yyptr) goto yyexhaustedlab; YYSTACK_RELOCATE (yyss_alloc, yyss); YYSTACK_RELOCATE (yyvs_alloc, yyvs); # undef YYSTACK_RELOCATE if (yyss1 != yyssa) YYSTACK_FREE (yyss1); } # endif #endif /* no yyoverflow */ yyssp = yyss + yysize - 1; yyvsp = yyvs + yysize - 1; YYDPRINTF ((stderr, "Stack size increased to %lu\n", (unsigned long int) yystacksize)); if (yyss + yystacksize - 1 <= yyssp) YYABORT; } YYDPRINTF ((stderr, "Entering state %d\n", yystate)); if (yystate == YYFINAL) YYACCEPT; goto yybackup; /*-----------. | yybackup. | `-----------*/ yybackup: /* Do appropriate processing given the current state. Read a lookahead token if we need one and don't already have one. */ /* First try to decide what to do without reference to lookahead token. */ yyn = yypact[yystate]; if (yypact_value_is_default (yyn)) goto yydefault; /* Not known => get a lookahead token if don't already have one. */ /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */ if (yychar == YYEMPTY) { YYDPRINTF ((stderr, "Reading a token: ")); yychar = YYLEX; } if (yychar <= YYEOF) { yychar = yytoken = YYEOF; YYDPRINTF ((stderr, "Now at end of input.\n")); } else { yytoken = YYTRANSLATE (yychar); YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc); } /* If the proper action on seeing token YYTOKEN is to reduce or to detect an error, take that action. */ yyn += yytoken; if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken) goto yydefault; yyn = yytable[yyn]; if (yyn <= 0) { if (yytable_value_is_error (yyn)) goto yyerrlab; yyn = -yyn; goto yyreduce; } /* Count tokens shifted since error; after three, turn off error status. */ if (yyerrstatus) yyerrstatus--; /* Shift the lookahead token. */ YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc); /* Discard the shifted token. */ yychar = YYEMPTY; yystate = yyn; YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN *++yyvsp = yylval; YY_IGNORE_MAYBE_UNINITIALIZED_END goto yynewstate; /*-----------------------------------------------------------. | yydefault -- do the default action for the current state. | `-----------------------------------------------------------*/ yydefault: yyn = yydefact[yystate]; if (yyn == 0) goto yyerrlab; goto yyreduce; /*-----------------------------. | yyreduce -- Do a reduction. | `-----------------------------*/ yyreduce: /* yyn is the number of a rule to reduce with. */ yylen = yyr2[yyn]; /* If YYLEN is nonzero, implement the default value of the action: `$$ = $1'. Otherwise, the following line sets YYVAL to garbage. This behavior is undocumented and Bison users should not rely upon it. Assigning to YYVAL unconditionally makes the parser a bit smaller, and it avoids a GCC warning that YYVAL may be used uninitialized. */ yyval = yyvsp[1-yylen]; YY_REDUCE_PRINT (yyn); switch (yyn) { case 2: /* Line 1813 of yacc.c */ #line 313 "parse.yy" { init_cmd_state(); } break; case 3: /* Line 1813 of yacc.c */ #line 318 "parse.yy" { init_cmd_state(); } break; case 36: /* Line 1813 of yacc.c */ #line 357 "parse.yy" { //if(verbose&2) cout << "got an END_OF_INPUT\n"; /* If we're processing a command file then quit parsing * when we run out of input */ //if(Gcmd_file_ref_count) //quit_parse = 1; YYABORT; } break; case 37: /* Line 1813 of yacc.c */ #line 366 "parse.yy" { init_cmd_state(); yyclearin; // FIXME // In some cases we may wish to abort parsing while in others not. if (gAbortParserOnSyntaxError) { YYABORT; } } break; case 41: /* Line 1813 of yacc.c */ #line 394 "parse.yy" { abort_gpsim = 1; quit_parse = 1; YYABORT; } break; case 42: /* Line 1813 of yacc.c */ #line 403 "parse.yy" { attach.attach((yyvsp[(2) - (3)].Symbol_P),(yyvsp[(3) - (3)].gpsimObjectList_P)); } break; case 43: /* Line 1813 of yacc.c */ #line 409 "parse.yy" {c_break.list();} break; case 44: /* Line 1813 of yacc.c */ #line 410 "parse.yy" {c_break.list((yyvsp[(2) - (2)].Integer_P)->getVal());delete (yyvsp[(2) - (2)].Integer_P);} break; case 45: /* Line 1813 of yacc.c */ #line 411 "parse.yy" { } break; case 46: /* Line 1813 of yacc.c */ #line 415 "parse.yy" {c_log.log();} break; case 47: /* Line 1813 of yacc.c */ #line 416 "parse.yy" {c_log.log((yyvsp[(2) - (2)].co));} break; case 48: /* Line 1813 of yacc.c */ #line 417 "parse.yy" {c_log.log((yyvsp[(2) - (3)].co),(yyvsp[(3) - (3)].ExprList_P));} break; case 49: /* Line 1813 of yacc.c */ #line 422 "parse.yy" {(yyval.i)=c_break.set_break((yyvsp[(2) - (3)].co),(yyvsp[(3) - (3)].ExprList_P));} break; case 50: /* Line 1813 of yacc.c */ #line 423 "parse.yy" {(yyval.i)=c_break.set_break((yyvsp[(2) - (2)].co));} break; case 51: /* Line 1813 of yacc.c */ #line 424 "parse.yy" {(yyval.i)=c_break.set_break((yyvsp[(2) - (2)].Symbol_P));} break; case 52: /* Line 1813 of yacc.c */ #line 428 "parse.yy" {c_bus.list_busses();} break; case 53: /* Line 1813 of yacc.c */ #line 429 "parse.yy" {c_bus.add_busses((yyvsp[(2) - (2)].StringList_P)); delete (yyvsp[(2) - (2)].StringList_P);} break; case 54: /* Line 1813 of yacc.c */ #line 433 "parse.yy" { cout << " call\n"; //$$ = $3; } break; case 55: /* Line 1813 of yacc.c */ #line 439 "parse.yy" {clear.clear((yyvsp[(2) - (2)].Expression_P));} break; case 56: /* Line 1813 of yacc.c */ #line 443 "parse.yy" {disassemble.disassemble(0);} break; case 57: /* Line 1813 of yacc.c */ #line 444 "parse.yy" {disassemble.disassemble((yyvsp[(2) - (2)].Expression_P));} break; case 58: /* Line 1813 of yacc.c */ #line 448 "parse.yy" {dump.dump(2);} break; case 59: /* Line 1813 of yacc.c */ #line 449 "parse.yy" {dump.dump((yyvsp[(2) - (2)].co)->value);} break; case 60: /* Line 1813 of yacc.c */ #line 452 "parse.yy" { // key, module_name quit_parse = dump.dump((yyvsp[(2) - (3)].co)->value, (yyvsp[(3) - (3)].Symbol_P), NULL) == 0; } break; case 61: /* Line 1813 of yacc.c */ #line 458 "parse.yy" { // key, module_name, filename //quit_parse = dump.dump($2->value, $3, $4->getVal()) == 0; if (dump.dump((yyvsp[(2) - (4)].co)->value, (yyvsp[(3) - (4)].Symbol_P), (yyvsp[(4) - (4)].String_P)->getVal()) == 0) cout << "dump to file failed\n"; delete (yyvsp[(4) - (4)].String_P); } break; case 62: /* Line 1813 of yacc.c */ #line 470 "parse.yy" {c_symbol.dump_one((yyvsp[(1) - (1)].Symbol_P));} break; case 63: /* Line 1813 of yacc.c */ #line 478 "parse.yy" { c_symbol.EvaluateAndDisplay((yyvsp[(2) - (3)].Expression_P)); delete (yyvsp[(2) - (3)].Expression_P); } break; case 64: /* Line 1813 of yacc.c */ #line 482 "parse.yy" { Value *pValue = dynamic_cast((yyvsp[(1) - (3)].Symbol_P)); if (pValue) { try { pValue->set((yyvsp[(3) - (3)].Expression_P)); } catch(Error Message) { GetUserInterface().DisplayMessage("%s (maybe missing quotes?)\n", Message.toString().c_str()); } pValue->update(); } delete (yyvsp[(3) - (3)].Expression_P); } break; case 65: /* Line 1813 of yacc.c */ #line 498 "parse.yy" { c_symbol.dump((yyvsp[(1) - (4)].Symbol_P),(yyvsp[(3) - (4)].ExprList_P)); (yyvsp[(3) - (4)].ExprList_P)->clear(); delete (yyvsp[(3) - (4)].ExprList_P); } break; case 66: /* Line 1813 of yacc.c */ #line 504 "parse.yy" { c_symbol.Set((yyvsp[(1) - (6)].Symbol_P), (yyvsp[(3) - (6)].ExprList_P), (yyvsp[(6) - (6)].Expression_P)); (yyvsp[(3) - (6)].ExprList_P)->clear(); delete (yyvsp[(3) - (6)].ExprList_P); delete (yyvsp[(6) - (6)].Expression_P); } break; case 67: /* Line 1813 of yacc.c */ #line 511 "parse.yy" { int i=toInt((yyvsp[(3) - (4)].Expression_P)); if (i>=0) c_x.x(toInt((yyvsp[(3) - (4)].Expression_P))); delete (yyvsp[(3) - (4)].Expression_P); } break; case 68: /* Line 1813 of yacc.c */ #line 518 "parse.yy" { int i=toInt((yyvsp[(3) - (6)].Expression_P)); if (i>=0) c_x.x(toInt((yyvsp[(3) - (6)].Expression_P)), (yyvsp[(6) - (6)].Expression_P)); delete (yyvsp[(3) - (6)].Expression_P); } break; case 69: /* Line 1813 of yacc.c */ #line 527 "parse.yy" {frequency.print();} break; case 70: /* Line 1813 of yacc.c */ #line 528 "parse.yy" {frequency.set((yyvsp[(2) - (2)].Expression_P));} break; case 71: /* Line 1813 of yacc.c */ #line 532 "parse.yy" {help.help(); } break; case 72: /* Line 1813 of yacc.c */ #line 533 "parse.yy" {help.help((yyvsp[(2) - (2)].String_P)->getVal()); delete (yyvsp[(2) - (2)].String_P);} break; case 73: /* Line 1813 of yacc.c */ #line 534 "parse.yy" {help.help((yyvsp[(2) - (2)].Symbol_P));} break; case 74: /* Line 1813 of yacc.c */ #line 538 "parse.yy" {c_list.list();} break; case 75: /* Line 1813 of yacc.c */ #line 539 "parse.yy" {c_list.list((yyvsp[(2) - (2)].co));} break; case 76: /* Line 1813 of yacc.c */ #line 543 "parse.yy" { quit_parse = c_load.load((yyvsp[(2) - (3)].co)->value,(yyvsp[(3) - (3)].String_P)->getVal()) == 0; delete (yyvsp[(3) - (3)].String_P); if(quit_parse) { quit_parse = 0; YYABORT; } } break; case 77: /* Line 1813 of yacc.c */ #line 554 "parse.yy" { quit_parse = c_load.load((yyvsp[(2) - (4)].co)->value, (yyvsp[(3) - (4)].Symbol_P), (yyvsp[(4) - (4)].String_P)->getVal()) == 0; delete (yyvsp[(4) - (4)].String_P); if(quit_parse) { quit_parse = 0; YYABORT; } } break; case 78: /* Line 1813 of yacc.c */ #line 566 "parse.yy" { quit_parse = c_load.load((yyvsp[(2) - (2)].String_P)->getVal(), (const char *)NULL) == 0; delete (yyvsp[(2) - (2)].String_P); quit_parse =0; if(quit_parse) { quit_parse = 0; YYABORT; } } break; case 79: /* Line 1813 of yacc.c */ #line 580 "parse.yy" { quit_parse = c_load.load((yyvsp[(2) - (2)].Symbol_P)) == 0; quit_parse =0; if(quit_parse) { quit_parse = 0; YYABORT; } } break; case 80: /* Line 1813 of yacc.c */ #line 593 "parse.yy" { // filename, processor quit_parse = c_load.load((yyvsp[(3) - (3)].Symbol_P), (yyvsp[(2) - (3)].Symbol_P)) == 0; delete (yyvsp[(2) - (3)].Symbol_P); delete (yyvsp[(3) - (3)].Symbol_P); if(quit_parse) { quit_parse = 0; YYABORT; } } break; case 81: /* Line 1813 of yacc.c */ #line 609 "parse.yy" { // filename, processor quit_parse = c_load.load((yyvsp[(3) - (3)].String_P), (yyvsp[(2) - (3)].String_P)) == 0; delete (yyvsp[(2) - (3)].String_P); delete (yyvsp[(3) - (3)].String_P); if(quit_parse) { quit_parse = 0; YYABORT; } } break; case 82: /* Line 1813 of yacc.c */ #line 625 "parse.yy" {c_node.list_nodes();} break; case 83: /* Line 1813 of yacc.c */ #line 626 "parse.yy" {c_node.add_nodes((yyvsp[(2) - (2)].StringList_P)); delete (yyvsp[(2) - (2)].StringList_P);} break; case 84: /* Line 1813 of yacc.c */ #line 630 "parse.yy" {c_module.module();} break; case 85: /* Line 1813 of yacc.c */ #line 631 "parse.yy" {c_module.module((yyvsp[(2) - (2)].co));} break; case 86: /* Line 1813 of yacc.c */ #line 633 "parse.yy" { c_module.module((yyvsp[(2) - (2)].cos),(list *)0); delete (yyvsp[(2) - (2)].cos); } break; case 87: /* Line 1813 of yacc.c */ #line 638 "parse.yy" { if ((yyvsp[(2) - (3)].cos) != NULL && (yyvsp[(3) - (3)].StringList_P) != NULL) c_module.module((yyvsp[(2) - (3)].cos), (yyvsp[(3) - (3)].StringList_P)); if ((yyvsp[(2) - (3)].cos) != NULL) delete (yyvsp[(2) - (3)].cos); if ((yyvsp[(3) - (3)].StringList_P) != NULL) delete (yyvsp[(3) - (3)].StringList_P); } break; case 88: /* Line 1813 of yacc.c */ #line 648 "parse.yy" { c_processor.processor(); } break; case 89: /* Line 1813 of yacc.c */ #line 652 "parse.yy" { c_processor.processor((yyvsp[(2) - (2)].co)->value); } break; case 90: /* Line 1813 of yacc.c */ #line 656 "parse.yy" { c_processor.processor((yyvsp[(2) - (2)].String_P)->getVal(),0); delete (yyvsp[(2) - (2)].String_P); } break; case 91: /* Line 1813 of yacc.c */ #line 661 "parse.yy" { c_processor.processor((yyvsp[(2) - (3)].String_P)->getVal(),(yyvsp[(3) - (3)].String_P)->getVal()); delete (yyvsp[(2) - (3)].String_P); delete (yyvsp[(3) - (3)].String_P); } break; case 92: /* Line 1813 of yacc.c */ #line 669 "parse.yy" { quit_parse = 1; YYABORT; } break; case 93: /* Line 1813 of yacc.c */ #line 674 "parse.yy" { quit_parse = 1; //quit_state = $2; // FIXME need to evaluate expr YYABORT; } break; case 94: /* Line 1813 of yacc.c */ #line 682 "parse.yy" { reset.reset(); } break; case 95: /* Line 1813 of yacc.c */ #line 686 "parse.yy" { c_run.run();} break; case 96: /* Line 1813 of yacc.c */ #line 690 "parse.yy" {c_set.set();} break; case 97: /* Line 1813 of yacc.c */ #line 691 "parse.yy" {c_set.set((yyvsp[(2) - (2)].co)->value,0);} break; case 98: /* Line 1813 of yacc.c */ #line 692 "parse.yy" {c_set.set((yyvsp[(2) - (3)].co)->value,(yyvsp[(3) - (3)].Expression_P));} break; case 99: /* Line 1813 of yacc.c */ #line 696 "parse.yy" {step.step(1);} break; case 100: /* Line 1813 of yacc.c */ #line 697 "parse.yy" {step.step((yyvsp[(2) - (2)].Expression_P));} break; case 101: /* Line 1813 of yacc.c */ #line 698 "parse.yy" {step.over();} break; case 102: /* Line 1813 of yacc.c */ #line 702 "parse.yy" {c_shell.shell((yyvsp[(1) - (1)].String_P)); delete (yyvsp[(1) - (1)].String_P);} break; case 103: /* Line 1813 of yacc.c */ #line 706 "parse.yy" { c_stimulus.stimulus(); } break; case 104: /* Line 1813 of yacc.c */ #line 710 "parse.yy" { c_stimulus.stimulus((yyvsp[(2) - (2)].co)->value); } break; case 105: /* Line 1813 of yacc.c */ #line 714 "parse.yy" { /* do nothing */ } break; case 106: /* Line 1813 of yacc.c */ #line 718 "parse.yy" { if(verbose) cout << " end of stimulus command\n"; c_stimulus.end(); } break; case 107: /* Line 1813 of yacc.c */ #line 728 "parse.yy" { if(verbose) cout << "parser sees stimulus with numeric option\n"; c_stimulus.stimulus((yyvsp[(1) - (1)].coe)); } break; case 108: /* Line 1813 of yacc.c */ #line 734 "parse.yy" { if(verbose) cout << "parser sees stimulus with bit flag: " << (yyvsp[(2) - (2)].co)->value << '\n'; c_stimulus.stimulus((yyvsp[(2) - (2)].co)->value); } break; case 109: /* Line 1813 of yacc.c */ #line 740 "parse.yy" { if(verbose) cout << "parser sees stimulus with string option\n"; c_stimulus.stimulus((yyvsp[(2) - (2)].cos)); } break; case 110: /* Line 1813 of yacc.c */ #line 746 "parse.yy" { if(verbose) cout << "parser sees stimulus with an array\n"; c_stimulus.stimulus((yyvsp[(2) - (2)].ExprList_P)); } break; case 111: /* Line 1813 of yacc.c */ #line 755 "parse.yy" {c_symbol.dump_all();} break; case 112: /* Line 1813 of yacc.c */ #line 757 "parse.yy" { c_symbol.add_one((yyvsp[(2) - (4)].String_P)->getVal(), (yyvsp[(4) - (4)].Expression_P)); delete (yyvsp[(2) - (4)].String_P); delete (yyvsp[(4) - (4)].Expression_P); } break; case 113: /* Line 1813 of yacc.c */ #line 762 "parse.yy" {c_symbol.dump_one((yyvsp[(2) - (2)].String_P)->getVal()); delete (yyvsp[(2) - (2)].String_P);} break; case 114: /* Line 1813 of yacc.c */ #line 763 "parse.yy" {c_symbol.dump_one((yyvsp[(2) - (2)].Symbol_P));} break; case 115: /* Line 1813 of yacc.c */ #line 768 "parse.yy" { c_trace.trace(); } break; case 116: /* Line 1813 of yacc.c */ #line 769 "parse.yy" { c_trace.trace((yyvsp[(2) - (2)].Expression_P)); } break; case 117: /* Line 1813 of yacc.c */ #line 770 "parse.yy" { c_trace.trace((yyvsp[(2) - (2)].con)); } break; case 118: /* Line 1813 of yacc.c */ #line 771 "parse.yy" { c_trace.trace((yyvsp[(2) - (2)].cos)); } break; case 119: /* Line 1813 of yacc.c */ #line 772 "parse.yy" { c_trace.trace((yyvsp[(2) - (2)].co)); } break; case 120: /* Line 1813 of yacc.c */ #line 773 "parse.yy" { c_trace.trace((yyvsp[(2) - (2)].coe)); } break; case 121: /* Line 1813 of yacc.c */ #line 776 "parse.yy" {version.version();} break; case 122: /* Line 1813 of yacc.c */ #line 780 "parse.yy" { c_x.x();} break; case 123: /* Line 1813 of yacc.c */ #line 781 "parse.yy" { c_x.x((yyvsp[(2) - (2)].Expression_P)); } break; case 124: /* Line 1813 of yacc.c */ #line 785 "parse.yy" { c_icd.icd(); } break; case 125: /* Line 1813 of yacc.c */ #line 786 "parse.yy" { c_icd.icd((yyvsp[(2) - (2)].cos)); } break; case 126: /* Line 1813 of yacc.c */ #line 807 "parse.yy" { c_macro.list();} break; case 127: /* Line 1813 of yacc.c */ #line 808 "parse.yy" { } break; case 128: /* Line 1813 of yacc.c */ #line 809 "parse.yy" { lexer_InvokeMacro((yyvsp[(1) - (1)].Macro_P)); } break; case 129: /* Line 1813 of yacc.c */ #line 815 "parse.yy" {c_macro.define((yyvsp[(1) - (2)].String_P)->getVal()); delete (yyvsp[(1) - (2)].String_P);} break; case 130: /* Line 1813 of yacc.c */ #line 817 "parse.yy" {lexer_setMacroBodyMode();} break; case 133: /* Line 1813 of yacc.c */ #line 825 "parse.yy" { c_macro.add_parameter((yyvsp[(1) - (1)].String_P)->getVal()); delete (yyvsp[(1) - (1)].String_P); } break; case 134: /* Line 1813 of yacc.c */ #line 830 "parse.yy" { c_macro.add_parameter((yyvsp[(3) - (3)].String_P)->getVal()); delete (yyvsp[(3) - (3)].String_P); } break; case 136: /* Line 1813 of yacc.c */ #line 839 "parse.yy" {; } break; case 137: /* Line 1813 of yacc.c */ #line 843 "parse.yy" {c_macro.add_body((yyvsp[(1) - (1)].s));} break; case 138: /* Line 1813 of yacc.c */ #line 844 "parse.yy" {c_macro.add_body((yyvsp[(2) - (2)].s));} break; case 139: /* Line 1813 of yacc.c */ #line 848 "parse.yy" {c_macro.end_define();} break; case 140: /* Line 1813 of yacc.c */ #line 849 "parse.yy" {c_macro.end_define((yyvsp[(1) - (2)].String_P)->getVal()); delete (yyvsp[(1) - (2)].String_P); } break; case 141: /* Line 1813 of yacc.c */ #line 870 "parse.yy" { cout << "declaration\n"; lexer_setDeclarationMode(); } break; case 142: /* Line 1813 of yacc.c */ #line 875 "parse.yy" { cout << " type:" << (yyvsp[(3) - (3)].i) << endl; } break; case 143: /* Line 1813 of yacc.c */ #line 879 "parse.yy" { cout << "identifier: " << (yyvsp[(5) - (5)].String_P)->getVal() << endl; delete (yyvsp[(5) - (5)].String_P); } break; case 144: /* Line 1813 of yacc.c */ #line 886 "parse.yy" { (yyval.i)=0; } break; case 145: /* Line 1813 of yacc.c */ #line 887 "parse.yy" { (yyval.i) = 1; cout <<"int type\n";} break; case 146: /* Line 1813 of yacc.c */ #line 888 "parse.yy" { (yyval.i) = 2; cout <<"float type\n";} break; case 147: /* Line 1813 of yacc.c */ #line 889 "parse.yy" { (yyval.i) = 3; cout <<"bool type\n";} break; case 148: /* Line 1813 of yacc.c */ #line 890 "parse.yy" { (yyval.i) = 4; cout <<"char type\n";} break; case 149: /* Line 1813 of yacc.c */ #line 915 "parse.yy" { (yyval.co) = (yyvsp[(1) - (1)].co); } break; case 150: /* Line 1813 of yacc.c */ #line 921 "parse.yy" { (yyval.co) = (yyvsp[(1) - (1)].co); } break; case 151: /* Line 1813 of yacc.c */ #line 926 "parse.yy" { (yyval.coe) = new cmd_options_expr((yyvsp[(1) - (2)].co),(yyvsp[(2) - (2)].Expression_P)); } break; case 152: /* Line 1813 of yacc.c */ #line 930 "parse.yy" { (yyval.con) = new cmd_options_num; (yyval.con)->co = (yyvsp[(1) - (2)].co); } break; case 153: /* Line 1813 of yacc.c */ #line 939 "parse.yy" { (yyval.cos) = new cmd_options_str((yyvsp[(2) - (2)].String_P)->getVal()); (yyval.cos)->co = (yyvsp[(1) - (2)].co); if(verbose&2) cout << " name " << (yyval.cos)->co->name << " value " << (yyval.cos)->str << " got a string option \n"; delete (yyvsp[(2) - (2)].String_P); } break; case 154: /* Line 1813 of yacc.c */ #line 947 "parse.yy" { String *pValue = dynamic_cast((yyvsp[(2) - (2)].Symbol_P)); if(pValue != NULL) { (yyval.cos) = new cmd_options_str(pValue->getVal()); (yyval.cos)->co = (yyvsp[(1) - (2)].co); if(verbose&2) cout << " name " << (yyval.cos)->co->name << " value " << (yyval.cos)->str << " got a symbol option \n"; } else { cout << " symbol option '" << (yyvsp[(2) - (2)].Symbol_P)->name() << "' is not a string" << endl; (yyval.cos) = NULL; } //delete $2; } break; case 155: /* Line 1813 of yacc.c */ #line 967 "parse.yy" {(yyval.StringList_P) = new StringList_t(); (yyval.StringList_P)->push_back((yyvsp[(1) - (1)].String_P)->getVal()); delete (yyvsp[(1) - (1)].String_P);} break; case 156: /* Line 1813 of yacc.c */ #line 968 "parse.yy" {(yyvsp[(1) - (2)].StringList_P)->push_back((yyvsp[(2) - (2)].String_P)->getVal()); delete (yyvsp[(2) - (2)].String_P);} break; case 157: /* Line 1813 of yacc.c */ #line 974 "parse.yy" {(yyval.Expression_P)=(yyvsp[(1) - (1)].BinaryOperator_P);} break; case 158: /* Line 1813 of yacc.c */ #line 975 "parse.yy" {(yyval.Expression_P)=(yyvsp[(1) - (1)].Expression_P);} break; case 159: /* Line 1813 of yacc.c */ #line 976 "parse.yy" {(yyval.Expression_P)=new RegisterExpression(toInt((yyvsp[(3) - (4)].Expression_P))); delete (yyvsp[(3) - (4)].Expression_P); } break; case 160: /* Line 1813 of yacc.c */ #line 980 "parse.yy" {(yyval.ExprList_P)=(yyvsp[(2) - (3)].ExprList_P);} break; case 161: /* Line 1813 of yacc.c */ #line 984 "parse.yy" { // Ex: pin(MyVariable) -- where MyVariable is the name of a symbol // This allows one to programmatically select a particular pin number. // If Symbol has an integer type, assume it is a CPU pin number // otherwise assume it is a stimulus such as a pin name if (typeid(*(yyvsp[(3) - (4)].Symbol_P)) == typeid(Integer)) { (yyval.gpsimObject_P) = toStimulus((yyvsp[(3) - (4)].Symbol_P)); } else (yyval.gpsimObject_P) = (yyvsp[(3) - (4)].Symbol_P); //$$=new Pin_t(Pin_t::ePackageBased | Pin_t::eActiveProc, $3); } break; case 162: /* Line 1813 of yacc.c */ #line 1000 "parse.yy" { // Ex: pin(8) -- select a particular pin in the package (yyval.gpsimObject_P) = toStimulus((yyvsp[(3) - (4)].Integer_P)->getVal()); delete (yyvsp[(3) - (4)].Integer_P); } break; case 163: /* Line 1813 of yacc.c */ #line 1006 "parse.yy" { // The symbol should be a stimulus. This is for the attach command. // Ex: attach Node1 portb0 // The scanner will find portb0 and return it to us here as a SYMBOL_T (yyval.gpsimObject_P) = (yyvsp[(1) - (1)].Symbol_P); //dynamic_cast($1); } break; case 164: /* Line 1813 of yacc.c */ #line 1026 "parse.yy" {(yyval.gpsimObjectList_P) = new gpsimObjectList_t(); (yyval.gpsimObjectList_P)->push_back((yyvsp[(1) - (1)].gpsimObject_P));} break; case 165: /* Line 1813 of yacc.c */ #line 1027 "parse.yy" {if ((yyvsp[(2) - (2)].gpsimObject_P)) (yyvsp[(1) - (2)].gpsimObjectList_P)->push_back((yyvsp[(2) - (2)].gpsimObject_P));} break; case 166: /* Line 1813 of yacc.c */ #line 1031 "parse.yy" {(yyval.ExprList_P) = new ExprList_t(); (yyval.ExprList_P)->push_back((yyvsp[(1) - (1)].Expression_P));} break; case 167: /* Line 1813 of yacc.c */ #line 1032 "parse.yy" {(yyvsp[(1) - (3)].ExprList_P)->push_back((yyvsp[(3) - (3)].Expression_P)); } break; case 168: /* Line 1813 of yacc.c */ #line 1036 "parse.yy" {(yyval.BinaryOperator_P) = new OpAdd((yyvsp[(1) - (3)].Expression_P), (yyvsp[(3) - (3)].Expression_P));} break; case 169: /* Line 1813 of yacc.c */ #line 1037 "parse.yy" {(yyval.BinaryOperator_P) = new OpSub((yyvsp[(1) - (3)].Expression_P), (yyvsp[(3) - (3)].Expression_P));} break; case 170: /* Line 1813 of yacc.c */ #line 1038 "parse.yy" {(yyval.BinaryOperator_P) = new OpMpy((yyvsp[(1) - (3)].Expression_P), (yyvsp[(3) - (3)].Expression_P));} break; case 171: /* Line 1813 of yacc.c */ #line 1039 "parse.yy" {(yyval.BinaryOperator_P) = new OpDiv((yyvsp[(1) - (3)].Expression_P), (yyvsp[(3) - (3)].Expression_P));} break; case 172: /* Line 1813 of yacc.c */ #line 1040 "parse.yy" {(yyval.BinaryOperator_P) = new OpAnd((yyvsp[(1) - (3)].Expression_P), (yyvsp[(3) - (3)].Expression_P));} break; case 173: /* Line 1813 of yacc.c */ #line 1041 "parse.yy" {(yyval.BinaryOperator_P) = new OpOr((yyvsp[(1) - (3)].Expression_P), (yyvsp[(3) - (3)].Expression_P));} break; case 174: /* Line 1813 of yacc.c */ #line 1042 "parse.yy" {(yyval.BinaryOperator_P) = new OpXor((yyvsp[(1) - (3)].Expression_P), (yyvsp[(3) - (3)].Expression_P));} break; case 175: /* Line 1813 of yacc.c */ #line 1043 "parse.yy" {(yyval.BinaryOperator_P) = new OpShl((yyvsp[(1) - (3)].Expression_P), (yyvsp[(3) - (3)].Expression_P));} break; case 176: /* Line 1813 of yacc.c */ #line 1044 "parse.yy" {(yyval.BinaryOperator_P) = new OpShr((yyvsp[(1) - (3)].Expression_P), (yyvsp[(3) - (3)].Expression_P));} break; case 177: /* Line 1813 of yacc.c */ #line 1045 "parse.yy" {(yyval.BinaryOperator_P) = new OpEq((yyvsp[(1) - (3)].Expression_P), (yyvsp[(3) - (3)].Expression_P));} break; case 178: /* Line 1813 of yacc.c */ #line 1046 "parse.yy" {(yyval.BinaryOperator_P) = new OpNe((yyvsp[(1) - (3)].Expression_P), (yyvsp[(3) - (3)].Expression_P));} break; case 179: /* Line 1813 of yacc.c */ #line 1047 "parse.yy" {(yyval.BinaryOperator_P) = new OpLt((yyvsp[(1) - (3)].Expression_P), (yyvsp[(3) - (3)].Expression_P));} break; case 180: /* Line 1813 of yacc.c */ #line 1048 "parse.yy" {(yyval.BinaryOperator_P) = new OpGt((yyvsp[(1) - (3)].Expression_P), (yyvsp[(3) - (3)].Expression_P));} break; case 181: /* Line 1813 of yacc.c */ #line 1049 "parse.yy" {(yyval.BinaryOperator_P) = new OpLe((yyvsp[(1) - (3)].Expression_P), (yyvsp[(3) - (3)].Expression_P));} break; case 182: /* Line 1813 of yacc.c */ #line 1050 "parse.yy" {(yyval.BinaryOperator_P) = new OpGe((yyvsp[(1) - (3)].Expression_P), (yyvsp[(3) - (3)].Expression_P));} break; case 183: /* Line 1813 of yacc.c */ #line 1051 "parse.yy" {(yyval.BinaryOperator_P) = new OpLogicalAnd((yyvsp[(1) - (3)].Expression_P), (yyvsp[(3) - (3)].Expression_P));} break; case 184: /* Line 1813 of yacc.c */ #line 1052 "parse.yy" {(yyval.BinaryOperator_P) = new OpLogicalOr((yyvsp[(1) - (3)].Expression_P), (yyvsp[(3) - (3)].Expression_P));} break; case 185: /* Line 1813 of yacc.c */ #line 1053 "parse.yy" {(yyval.BinaryOperator_P) = new OpAbstractRange((yyvsp[(1) - (3)].Expression_P), (yyvsp[(3) - (3)].Expression_P));} break; case 186: /* Line 1813 of yacc.c */ #line 1057 "parse.yy" {(yyval.Expression_P)=(yyvsp[(1) - (1)].Expression_P);} break; case 187: /* Line 1813 of yacc.c */ #line 1058 "parse.yy" {(yyval.Expression_P) = new OpPlus((yyvsp[(2) - (2)].Expression_P));} break; case 188: /* Line 1813 of yacc.c */ #line 1059 "parse.yy" {(yyval.Expression_P) = new OpNegate((yyvsp[(2) - (2)].Expression_P));} break; case 189: /* Line 1813 of yacc.c */ #line 1060 "parse.yy" {(yyval.Expression_P) = new OpOnescomp((yyvsp[(2) - (2)].Expression_P));} break; case 190: /* Line 1813 of yacc.c */ #line 1061 "parse.yy" {(yyval.Expression_P) = new OpLogicalNot((yyvsp[(2) - (2)].Expression_P));} break; case 191: /* Line 1813 of yacc.c */ #line 1062 "parse.yy" {(yyval.Expression_P) = new OpIndirect((yyvsp[(2) - (2)].Expression_P));} break; case 192: /* Line 1813 of yacc.c */ #line 1063 "parse.yy" {(yyval.Expression_P) = new OpAddressOf((yyvsp[(2) - (2)].Expression_P));} break; case 193: /* Line 1813 of yacc.c */ #line 1064 "parse.yy" {(yyval.Expression_P)=(yyvsp[(2) - (3)].Expression_P);} break; case 194: /* Line 1813 of yacc.c */ #line 1067 "parse.yy" {(yyval.Expression_P) = new LiteralInteger((yyvsp[(1) - (1)].Integer_P));} break; case 195: /* Line 1813 of yacc.c */ #line 1068 "parse.yy" {(yyval.Expression_P) = new LiteralBoolean((yyvsp[(1) - (1)].Boolean_P));} break; case 196: /* Line 1813 of yacc.c */ #line 1069 "parse.yy" {(yyval.Expression_P) = new LiteralString((yyvsp[(1) - (1)].String_P));} break; case 197: /* Line 1813 of yacc.c */ #line 1070 "parse.yy" {(yyval.Expression_P) = new LiteralFloat((yyvsp[(1) - (1)].Float_P));} break; case 198: /* Line 1813 of yacc.c */ #line 1071 "parse.yy" {(yyval.Expression_P) = new LiteralSymbol((yyvsp[(1) - (1)].Symbol_P));} break; case 199: /* Line 1813 of yacc.c */ #line 1072 "parse.yy" {(yyval.Expression_P) = new IndexedSymbol((yyvsp[(1) - (4)].Symbol_P),(yyvsp[(3) - (4)].ExprList_P));} break; case 200: /* Line 1813 of yacc.c */ #line 1073 "parse.yy" {(yyval.Expression_P) = new LiteralArray((yyvsp[(1) - (1)].ExprList_P)); } break; /* Line 1813 of yacc.c */ #line 3314 "parse.cc" default: break; } /* User semantic actions sometimes alter yychar, and that requires that yytoken be updated with the new translation. We take the approach of translating immediately before every use of yytoken. One alternative is translating here after every semantic action, but that translation would be missed if the semantic action invokes YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an incorrect destructor might then be invoked immediately. In the case of YYERROR or YYBACKUP, subsequent parser actions might lead to an incorrect destructor call or verbose syntax error message before the lookahead is translated. */ YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); YYPOPSTACK (yylen); yylen = 0; YY_STACK_PRINT (yyss, yyssp); *++yyvsp = yyval; /* Now `shift' the result of the reduction. Determine what state that goes to, based on the state we popped back to and the rule number reduced by. */ yyn = yyr1[yyn]; yystate = yypgoto[yyn - YYNTOKENS] + *yyssp; if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp) yystate = yytable[yystate]; else yystate = yydefgoto[yyn - YYNTOKENS]; goto yynewstate; /*------------------------------------. | yyerrlab -- here on detecting error | `------------------------------------*/ yyerrlab: /* Make sure we have latest lookahead translation. See comments at user semantic actions for why this is necessary. */ yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar); /* If not already recovering from an error, report this error. */ if (!yyerrstatus) { ++yynerrs; #if ! YYERROR_VERBOSE yyerror (YY_("syntax error")); #else # define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \ yyssp, yytoken) { char const *yymsgp = YY_("syntax error"); int yysyntax_error_status; yysyntax_error_status = YYSYNTAX_ERROR; if (yysyntax_error_status == 0) yymsgp = yymsg; else if (yysyntax_error_status == 1) { if (yymsg != yymsgbuf) YYSTACK_FREE (yymsg); yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc); if (!yymsg) { yymsg = yymsgbuf; yymsg_alloc = sizeof yymsgbuf; yysyntax_error_status = 2; } else { yysyntax_error_status = YYSYNTAX_ERROR; yymsgp = yymsg; } } yyerror (yymsgp); if (yysyntax_error_status == 2) goto yyexhaustedlab; } # undef YYSYNTAX_ERROR #endif } if (yyerrstatus == 3) { /* If just tried and failed to reuse lookahead token after an error, discard it. */ if (yychar <= YYEOF) { /* Return failure if at end of input. */ if (yychar == YYEOF) YYABORT; } else { yydestruct ("Error: discarding", yytoken, &yylval); yychar = YYEMPTY; } } /* Else will try to reuse lookahead token after shifting the error token. */ goto yyerrlab1; /*---------------------------------------------------. | yyerrorlab -- error raised explicitly by YYERROR. | `---------------------------------------------------*/ yyerrorlab: /* Pacify compilers like GCC when the user code never invokes YYERROR and the label yyerrorlab therefore never appears in user code. */ if (/*CONSTCOND*/ 0) goto yyerrorlab; /* Do not reclaim the symbols of the rule which action triggered this YYERROR. */ YYPOPSTACK (yylen); yylen = 0; YY_STACK_PRINT (yyss, yyssp); yystate = *yyssp; goto yyerrlab1; /*-------------------------------------------------------------. | yyerrlab1 -- common code for both syntax error and YYERROR. | `-------------------------------------------------------------*/ yyerrlab1: yyerrstatus = 3; /* Each real token shifted decrements this. */ for (;;) { yyn = yypact[yystate]; if (!yypact_value_is_default (yyn)) { yyn += YYTERROR; if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) { yyn = yytable[yyn]; if (0 < yyn) break; } } /* Pop the current state because it cannot handle the error token. */ if (yyssp == yyss) YYABORT; yydestruct ("Error: popping", yystos[yystate], yyvsp); YYPOPSTACK (1); yystate = *yyssp; YY_STACK_PRINT (yyss, yyssp); } YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN *++yyvsp = yylval; YY_IGNORE_MAYBE_UNINITIALIZED_END /* Shift the error token. */ YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp); yystate = yyn; goto yynewstate; /*-------------------------------------. | yyacceptlab -- YYACCEPT comes here. | `-------------------------------------*/ yyacceptlab: yyresult = 0; goto yyreturn; /*-----------------------------------. | yyabortlab -- YYABORT comes here. | `-----------------------------------*/ yyabortlab: yyresult = 1; goto yyreturn; #if !defined yyoverflow || YYERROR_VERBOSE /*-------------------------------------------------. | yyexhaustedlab -- memory exhaustion comes here. | `-------------------------------------------------*/ yyexhaustedlab: yyerror (YY_("memory exhausted")); yyresult = 2; /* Fall through. */ #endif yyreturn: if (yychar != YYEMPTY) { /* Make sure we have latest lookahead translation. See comments at user semantic actions for why this is necessary. */ yytoken = YYTRANSLATE (yychar); yydestruct ("Cleanup: discarding lookahead", yytoken, &yylval); } /* Do not reclaim the symbols of the rule which action triggered this YYABORT or YYACCEPT. */ YYPOPSTACK (yylen); YY_STACK_PRINT (yyss, yyssp); while (yyssp != yyss) { yydestruct ("Cleanup: popping", yystos[*yyssp], yyvsp); YYPOPSTACK (1); } #ifndef yyoverflow if (yyss != yyssa) YYSTACK_FREE (yyss); #endif #if YYERROR_VERBOSE if (yymsg != yymsgbuf) YYSTACK_FREE (yymsg); #endif /* Make sure YYID is used. */ return YYID (yyresult); } /* Line 2076 of yacc.c */ #line 1076 "parse.yy" // parsing is over //-------------------------- // This initialization could be done by the compiler. However // it requires two passes through because the token values are // defined by the parser output (eg. y.tab.h) while at the same // time the parser depends on the .h files in which these classes // are defined. void initialize_commands(void) { static bool initialized = 0; if(initialized) return; if(verbose) cout << __FUNCTION__ << "()\n"; attach.token_value = ATTACH; c_break.token_value = BREAK; // c_bus.token_value = BUS; clear.token_value = CLEAR; disassemble.token_value = DISASSEMBLE; dump.token_value = DUMP; frequency.token_value = FREQUENCY; help.token_value = HELP; c_list.token_value = LIST; c_load.token_value = LOAD; c_log.token_value = LOG; c_macro.token_value = MACRO; c_module.token_value = MODULE; c_node.token_value = NODE; c_processor.token_value = PROCESSOR; quit.token_value = QUIT; reset.token_value = RESET; c_run.token_value = RUN; c_set.token_value = SET; step.token_value = STEP; c_stimulus.token_value = STIMULUS; c_symbol.token_value = SYMBOL; c_trace.token_value = TRACE; version.token_value = gpsim_VERSION; c_x.token_value = X; c_icd.token_value = ICD; c_shell.token_value = SHELL; initialized = 1; parser_spanning_lines = 0; parser_warnings = 1; // display parser warnings. } gpsim-0.27.0/cli/cmd_dump.cc0000664000076400007640000002172212163444266012534 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include #include #include "command.h" #include "cmd_dump.h" #include "input.h" #include "../src/value.h" #include "../src/pic-processor.h" #include "../src/14bit-processors.h" #include "../src/interface.h" #include "../src/eeprom.h" #include "../src/i2c-ee.h" cmd_dump dump; static cmd_options cmd_dump_options[] = { {"e", cmd_dump::DUMP_EEPROM, OPT_TT_BITFLAG}, {"r", cmd_dump::DUMP_RAM, OPT_TT_BITFLAG}, {"s", cmd_dump::DUMP_SFRS, OPT_TT_BITFLAG}, {0,0,0} }; cmd_dump::cmd_dump() : command("dump","du") { brief_doc = string("Display either the RAM or EEPROM"); long_doc = string ("dump [r | e [module_name [filename]] | s]\n" "\tdump r or dump with no options will display all of the file\n" "\t registers and special function registers.\n" "\tdump e will display the contents of the EEPROM (if the pic\n" "\t being simulated contains any)\n" "\tdump e module_name \n" "\t Display the contents of an EEPROM module where module_name\n" "\t can either be the name of a module or processor,\n" "\tdump e module_name filename \n" "\t dumps the contents of an EEPROM module\n" "\t to a file as Intel hex format. The 'load e' command \n" "\t can load the file generated by this command.\n" "\tdump s will display only the special function registers.\n" ); op = cmd_dump_options; } #define REGISTERS_PER_ROW 16 #define SFR_COLUMNS 3 #define MAX_SFR_NAME 10 void cmd_dump::dump_sfrs(void) { Processor * cpu = GetActiveCPU(); unsigned int reg_size = cpu->register_size(); unsigned int uToDisplayCount = 0; unsigned int uColumns = SFR_COLUMNS; vector RegListToDisplay; unsigned int auTopRowIndex[SFR_COLUMNS]; // Examine all registers this pic has to offer list :: iterator itPMA; itPMA = cpu->pma_context.begin(); for(; itPMA != cpu->pma_context.end(); itPMA++) { list::iterator itReg; for(itReg = (*itPMA)->SpecialRegisters.begin(); itReg != (*itPMA)->SpecialRegisters.end(); itReg++) { uToDisplayCount++; RegListToDisplay.push_back(*itReg); } } if(RegListToDisplay.size() == 0) { for (unsigned int i = 0; i < cpu->register_memory_size(); i++) { Register * pReg = cpu->registers[i]; if(pReg->isa() == Register::SFR_REGISTER && // Found an sfr. Display its contents only if not aliased // at some other address too. i == pReg->address) { uToDisplayCount++; RegListToDisplay.push_back(pReg); } } } // // All this is so we can have the reg number sequence go // from top to bottom of each column instead of across columns. unsigned int uMod = uToDisplayCount % uColumns; unsigned int uRowsPerColumn = uToDisplayCount / uColumns; auTopRowIndex[0] = 0; for (unsigned int i = 1; i < sizeof(auTopRowIndex) / sizeof(unsigned int); i++) { auTopRowIndex[i] = auTopRowIndex[i-1] + uRowsPerColumn + (uMod > i ? 1 : 0); } uRowsPerColumn += (uMod == 0 ? 0 : 1); putchar('\n'); unsigned int uRegCount = 0; for (unsigned int uRow = 0; uRow < uRowsPerColumn; uRow++) { for (unsigned int uColCurrent = 0; uColCurrent < uColumns; uColCurrent++) { unsigned int uIndex = auTopRowIndex[uColCurrent] + uRow; if(uRegCount > uToDisplayCount) break; // printf("%03d ", uIndex); // used for testings uRegCount++; Register *pReg = RegListToDisplay[uIndex]; printf("%03x %-7s = %0*x ", pReg->address, pReg->name().c_str(), reg_size * 2, pReg->get_value()); } putchar('\n'); } } int cmd_dump::dump(int bit_flag, gpsimObject* module, const char * filename) { Register **fr=0; unsigned int mem_size = 0; int reg_size = 1; int address_off = 0x0000; char s1[256]; pic_processor *pic; string symName; I2C_EE *eeprom; PromAddress *sym; FILE *fd = NULL; int iReturn; if ( bit_flag != DUMP_EEPROM) { printf("cmd_dump: invalid option\n"); return 0; } module->name(s1, sizeof(s1)); symName = s1; symName += ".eeprom"; fprintf(stdout, "cmd_dump module=%s file=%s\n", s1, filename); if (filename && (fd = fopen(filename, "w")) == NULL) { perror(filename); return 0; } if (( pic = dynamic_cast (module)) && pic->eeprom) { fr = pic->eeprom->get_rom(); mem_size = pic->eeprom->get_rom_size(); reg_size = pic->eeprom->register_size(); address_off = 0x0000; } else if ((sym = dynamic_cast(globalSymbolTable().find(symName)))) { sym->get(eeprom); fr = eeprom->get_rom(); mem_size = eeprom->get_rom_size(); reg_size = eeprom->register_size(); address_off = 0x0000; } else { cout << "*** Error cmd_dump module " << s1 << " not EEPROM" << endl; iReturn = 0; } if (fd) { if (reg_size == 1) { IntelHexProgramFileType::writeihex8(fr, mem_size, fd, address_off); iReturn = 1; } else { printf("cmd_dump: module EEPROM register size of %d not currently supported\n", reg_size); iReturn = 0; } fclose(fd); } else { gpsim_set_bulk_mode(1); dump_regs(fr, mem_size, reg_size, bit_flag); gpsim_set_bulk_mode(0); iReturn = 1; } return iReturn; } void cmd_dump::dump(int mem_type) { unsigned int mem_size=0; unsigned int reg_size=1; Register **fr=0; Processor *pCpu = GetActiveCPU(true); if(!pCpu) return; switch(mem_type) { case DUMP_EEPROM: { pic_processor *pic = dynamic_cast (pCpu); if(pic && pic->eeprom) { fr = pic->eeprom->get_rom(); mem_size = pic->eeprom->get_rom_size(); } else return; } break; case DUMP_RAM: mem_size = GetActiveCPU()->register_memory_size(); reg_size = GetActiveCPU()->register_size(); fr = GetActiveCPU()->registers; break; case DUMP_SFRS: dump_sfrs(); putchar('\n'); return; } if(mem_size == 0) return; gpsim_set_bulk_mode(1); dump_regs(fr, mem_size, reg_size, mem_type); // Now Dump the sfr's if(mem_type == DUMP_RAM) { dump_sfrs(); pic_processor *pic = dynamic_cast(pCpu); if(pic) printf("\n%s = %02x\n",pic->Wreg->name().c_str(), pic->Wreg->get_value()); printf("pc = 0x%x\n",GetActiveCPU()->pc->value); } gpsim_set_bulk_mode(0); } void cmd_dump::dump_regs(Register **fr, unsigned int mem_size, int reg_size, int mem_type) { unsigned int i, j, reg_num; unsigned int uRegPerRow = reg_size == 1 ? REGISTERS_PER_ROW : 8; unsigned int v; bool previous_row_is_invalid=false; bool all_invalid=false; if(reg_size == 1) { printf(" "); // Column labels for (i = 0; i < uRegPerRow; i++) printf(" %0*x", reg_size * 2, i); putchar('\n'); } reg_num = 0; for (i = 0; i < mem_size; i+=uRegPerRow) { /* First, see if there are any valid registers on this row */ all_invalid = true; for (j = 0; j < uRegPerRow; j++) { if(fr[i+j]->isa() != Register::INVALID_REGISTER) { all_invalid = false; break; } } if(!all_invalid) { previous_row_is_invalid = false; printf("%04x: ",i); for (j = 0; j < uRegPerRow; j++) { reg_num = i + j; if( (reg_num < mem_size) && fr[reg_num] && fr[reg_num]->isa() != Register::INVALID_REGISTER) { v = fr[reg_num]->get_value(); printf("%0*x ",reg_size * 2, v); } else { for (int i = 0; i < reg_size; i++) printf("--"); putchar(' '); } } if(reg_size == 1) { // don't bother with ASCII for > 8 bit registers printf(" "); for (j = 0; j < uRegPerRow; j++) { reg_num = i + j; v = fr[reg_num]->get_value(); if( (v >= ' ') && (v <= 'z')) putchar(v); else putchar('.'); } } putchar('\n'); } else { if(!previous_row_is_invalid) putchar('\n'); previous_row_is_invalid = true; reg_num += REGISTERS_PER_ROW; } } } gpsim-0.27.0/cli/cmd_reset.cc0000644000076400007640000000234110563700567012704 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "command.h" #include "cmd_reset.h" #include "../src/pic-processor.h" cmd_reset reset; static cmd_options cmd_reset_options[] = { {0,0,0} }; cmd_reset::cmd_reset() : command("reset",0) { brief_doc = string("Reset all or parts of the simulation"); long_doc = string ("Reset all or parts of the simulation\n"); op = cmd_reset_options; } void cmd_reset::reset(void) { if(GetActiveCPU()) GetActiveCPU()->reset(POR_RESET); } gpsim-0.27.0/cli/cmd_dump.h0000644000076400007640000000232510702523334012361 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_DUMP_H__ #define __CMD_DUMP_H__ #include "../src/hexutils.h" class cmd_dump : public command, IntelHexProgramFileType { public: enum { DUMP_EEPROM = 1, DUMP_RAM, DUMP_SFRS }; cmd_dump(void); // void dump(void); void dump(int bit_flag); int dump(int bit_flag, gpsimObject* module, const char * filename); private: void dump_sfrs(void); void dump_regs(Register **fr, unsigned int mem_size, int reg_size, int mem_type); }; extern cmd_dump dump; #endif gpsim-0.27.0/cli/cmd_node.h0000644000076400007640000000174410416273023012344 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_NODE_H__ #define __CMD_NODE_H__ #include "misc.h" #include using namespace std; class cmd_node : public command { public: cmd_node(void); void list_nodes(void); void add_nodes(list *); }; extern cmd_node c_node; #endif gpsim-0.27.0/cli/Makefile.in0000664000076400007640000006327612210742103012474 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ # gpsim cli VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = cli DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am parse.cc \ scan.cc $(top_srcdir)/depcomp $(top_srcdir)/ylwrap INSTALL \ README ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(libdir)" LTLIBRARIES = $(lib_LTLIBRARIES) libgpsimcli_la_DEPENDENCIES = ../eXdbm/libgpsim_eXdbm.la \ ../src/libgpsim.la am_libgpsimcli_la_OBJECTS = parse.lo scan.lo cmd_attach.lo \ cmd_break.lo cmd_bus.lo cmd_clear.lo cmd_disasm.lo cmd_dump.lo \ cmd_echo.lo cmd_frequency.lo cmd_help.lo cmd_icd.lo \ cmd_list.lo cmd_load.lo cmd_log.lo cmd_macro.lo cmd_module.lo \ cmd_node.lo cmd_processor.lo cmd_quit.lo cmd_reset.lo \ cmd_run.lo cmd_set.lo cmd_shell.lo cmd_step.lo cmd_stimulus.lo \ cmd_symbol.lo cmd_trace.lo cmd_version.lo cmd_x.lo command.lo \ input.lo socket.lo ui_gpsim.lo libgpsimcli_la_OBJECTS = $(am_libgpsimcli_la_OBJECTS) AM_V_lt = $(am__v_lt_@AM_V@) am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@) am__v_lt_0 = --silent am__v_lt_1 = AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/depcomp am__depfiles_maybe = depfiles am__mv = mv -f CXXCOMPILE = $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) LTCXXCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) \ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ $(AM_CXXFLAGS) $(CXXFLAGS) AM_V_CXX = $(am__v_CXX_@AM_V@) am__v_CXX_ = $(am__v_CXX_@AM_DEFAULT_V@) am__v_CXX_0 = @echo " CXX " $@; am__v_CXX_1 = CXXLD = $(CXX) CXXLINK = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CXXLD) $(AM_CXXFLAGS) \ $(CXXFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@ AM_V_CXXLD = $(am__v_CXXLD_@AM_V@) am__v_CXXLD_ = $(am__v_CXXLD_@AM_DEFAULT_V@) am__v_CXXLD_0 = @echo " CXXLD " $@; am__v_CXXLD_1 = @MAINTAINER_MODE_FALSE@am__skiplex = test -f $@ || LEXCOMPILE = $(LEX) $(AM_LFLAGS) $(LFLAGS) LTLEXCOMPILE = $(LIBTOOL) $(AM_V_lt) $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=compile $(LEX) $(AM_LFLAGS) $(LFLAGS) AM_V_LEX = $(am__v_LEX_@AM_V@) am__v_LEX_ = $(am__v_LEX_@AM_DEFAULT_V@) am__v_LEX_0 = @echo " LEX " $@; am__v_LEX_1 = YLWRAP = $(top_srcdir)/ylwrap @MAINTAINER_MODE_FALSE@am__skipyacc = test -f $@ || am__yacc_c2h = sed -e s/cc$$/hh/ -e s/cpp$$/hpp/ -e s/cxx$$/hxx/ \ -e s/c++$$/h++/ -e s/c$$/h/ YACCCOMPILE = $(YACC) $(AM_YFLAGS) $(YFLAGS) LTYACCCOMPILE = $(LIBTOOL) $(AM_V_lt) $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=compile $(YACC) $(AM_YFLAGS) $(YFLAGS) AM_V_YACC = $(am__v_YACC_@AM_V@) am__v_YACC_ = $(am__v_YACC_@AM_DEFAULT_V@) am__v_YACC_0 = @echo " YACC " $@; am__v_YACC_1 = COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) \ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ $(AM_CFLAGS) $(CFLAGS) AM_V_CC = $(am__v_CC_@AM_V@) am__v_CC_ = $(am__v_CC_@AM_DEFAULT_V@) am__v_CC_0 = @echo " CC " $@; am__v_CC_1 = CCLD = $(CC) LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ $(AM_LDFLAGS) $(LDFLAGS) -o $@ AM_V_CCLD = $(am__v_CCLD_@AM_V@) am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@) am__v_CCLD_0 = @echo " CCLD " $@; am__v_CCLD_1 = SOURCES = $(libgpsimcli_la_SOURCES) DIST_SOURCES = $(libgpsimcli_la_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) # Read a list of newline-separated strings from the standard input, # and print each of them once, without duplicates. Input order is # *not* preserved. am__uniquify_input = $(AWK) '\ BEGIN { nonempty = 0; } \ { items[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in items) print i; }; } \ ' # Make sure the list of sources is unique. This is necessary because, # e.g., the same source file might be shared among _SOURCES variables # for different programs/libraries. am__define_uniq_tagged_files = \ list='$(am__tagged_files)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | $(am__uniquify_input)` ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ AM_CPPFLAGS = @X_CFLAGS@ MAINTAINERCLEANFILES = parse.h parse.output lib_LTLIBRARIES = libgpsimcli.la libgpsimcli_la_SOURCES = \ parse.yy \ scan.ll \ cmd_attach.cc \ cmd_break.cc \ cmd_bus.cc \ cmd_clear.cc \ cmd_disasm.cc \ cmd_dump.cc \ cmd_echo.cc \ cmd_frequency.cc \ cmd_help.cc \ cmd_icd.cc \ cmd_list.cc \ cmd_load.cc \ cmd_log.cc \ cmd_macro.cc \ cmd_module.cc \ cmd_node.cc \ cmd_processor.cc \ cmd_quit.cc \ cmd_reset.cc \ cmd_run.cc \ cmd_set.cc \ cmd_shell.cc \ cmd_step.cc \ cmd_stimulus.cc \ cmd_symbol.cc \ cmd_trace.cc \ cmd_version.cc \ cmd_x.cc \ command.cc \ input.cc \ socket.cc \ ui_gpsim.cc \ cmd_attach.h cmd_bus.h cmd_dump.h cmd_load.h cmd_reset.h cmd_symbol.h \ command.h cmd_break.h cmd_echo.h cmd_log.h cmd_module.h cmd_node.h cmd_run.h \ cmd_shell.h cmd_trace.h \ input.h cmd_clear.h cmd_help.h cmd_processor.h cmd_set.h cmd_step.h \ cmd_version.h misc.h cmd_disasm.h cmd_list.h cmd_quit.h \ cmd_stimulus.h cmd_x.h symbol_t.h cmd_frequency.h cmd_icd.h \ cmd_macro.h ui_gpsim.h AM_YFLAGS = -dvt libgpsimcli_la_LIBADD = @X_LDFLAGS@ @LIBREADLINE@ ../eXdbm/libgpsim_eXdbm.la ../src/libgpsim.la EXTRA_DIST = scan.h parse.h makefile.mingw all: all-am .SUFFIXES: .SUFFIXES: .cc .h .ll .lo .o .obj .yy $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu cli/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu cli/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-libLTLIBRARIES: $(lib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \ } uninstall-libLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \ done clean-libLTLIBRARIES: -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) @list='$(lib_LTLIBRARIES)'; \ locs=`for p in $$list; do echo $$p; done | \ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ sort -u`; \ test -z "$$locs" || { \ echo rm -f $${locs}; \ rm -f $${locs}; \ } libgpsimcli.la: $(libgpsimcli_la_OBJECTS) $(libgpsimcli_la_DEPENDENCIES) $(EXTRA_libgpsimcli_la_DEPENDENCIES) $(AM_V_CXXLD)$(CXXLINK) -rpath $(libdir) $(libgpsimcli_la_OBJECTS) $(libgpsimcli_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_attach.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_break.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_bus.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_clear.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_disasm.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_dump.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_echo.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_frequency.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_help.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_icd.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_list.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_load.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_log.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_macro.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_module.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_node.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_processor.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_quit.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_reset.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_run.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_set.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_shell.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_step.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_stimulus.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_symbol.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_trace.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_version.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_x.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/command.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/input.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/parse.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/scan.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/socket.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/ui_gpsim.Plo@am__quote@ .cc.o: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(CXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(CXXCOMPILE) -c -o $@ $< .cc.obj: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(CXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(CXXCOMPILE) -c -o $@ `$(CYGPATH_W) '$<'` .cc.lo: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(LTCXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(LTCXXCOMPILE) -c -o $@ $< .ll.cc: $(AM_V_LEX)$(am__skiplex) $(SHELL) $(YLWRAP) $< $(LEX_OUTPUT_ROOT).c $@ -- $(LEXCOMPILE) mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs ID: $(am__tagged_files) $(am__define_uniq_tagged_files); mkid -fID $$unique tags: tags-am TAGS: tags tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) set x; \ here=`pwd`; \ $(am__define_uniq_tagged_files); \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: ctags-am CTAGS: ctags ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) $(am__define_uniq_tagged_files); \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" cscopelist: cscopelist-am cscopelist-am: $(am__tagged_files) list='$(am__tagged_files)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(LTLIBRARIES) installdirs: for dir in "$(DESTDIR)$(libdir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -rm -f parse.cc -rm -f scan.cc -test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES) clean: clean-am clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-libLTLIBRARIES install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-libLTLIBRARIES .MAKE: install-am install-strip .PHONY: CTAGS GTAGS TAGS all all-am check check-am clean clean-generic \ clean-libLTLIBRARIES clean-libtool cscopelist-am ctags \ ctags-am distclean distclean-compile distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-libLTLIBRARIES install-man install-pdf \ install-pdf-am install-ps install-ps-am install-strip \ installcheck installcheck-am installdirs maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-compile \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags tags-am uninstall uninstall-am uninstall-libLTLIBRARIES .yy.cc: $(am__skipyacc) $(SHELL) $(YLWRAP) $< y.tab.c $*.cc y.tab.h $*.h y.output $*.output -- $(YACCCOMPILE) .yy.h: $(am__skipyacc) $(SHELL) $(YLWRAP) $< y.tab.c $*.cc y.tab.h $*.h y.output $*.output -- $(YACCCOMPILE) # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/cli/Makefile.am0000664000076400007640000000265212177043163012466 00000000000000# gpsim cli AM_CPPFLAGS = @X_CFLAGS@ MAINTAINERCLEANFILES = parse.h parse.output lib_LTLIBRARIES = libgpsimcli.la libgpsimcli_la_SOURCES = \ parse.yy \ scan.ll \ cmd_attach.cc \ cmd_break.cc \ cmd_bus.cc \ cmd_clear.cc \ cmd_disasm.cc \ cmd_dump.cc \ cmd_echo.cc \ cmd_frequency.cc \ cmd_help.cc \ cmd_icd.cc \ cmd_list.cc \ cmd_load.cc \ cmd_log.cc \ cmd_macro.cc \ cmd_module.cc \ cmd_node.cc \ cmd_processor.cc \ cmd_quit.cc \ cmd_reset.cc \ cmd_run.cc \ cmd_set.cc \ cmd_shell.cc \ cmd_step.cc \ cmd_stimulus.cc \ cmd_symbol.cc \ cmd_trace.cc \ cmd_version.cc \ cmd_x.cc \ command.cc \ input.cc \ socket.cc \ ui_gpsim.cc \ cmd_attach.h cmd_bus.h cmd_dump.h cmd_load.h cmd_reset.h cmd_symbol.h \ command.h cmd_break.h cmd_echo.h cmd_log.h cmd_module.h cmd_node.h cmd_run.h \ cmd_shell.h cmd_trace.h \ input.h cmd_clear.h cmd_help.h cmd_processor.h cmd_set.h cmd_step.h \ cmd_version.h misc.h cmd_disasm.h cmd_list.h cmd_quit.h \ cmd_stimulus.h cmd_x.h symbol_t.h cmd_frequency.h cmd_icd.h \ cmd_macro.h ui_gpsim.h AM_YFLAGS = -dvt libgpsimcli_la_LIBADD = @X_LDFLAGS@ @LIBREADLINE@ ../eXdbm/libgpsim_eXdbm.la ../src/libgpsim.la .yy.cc: $(am__skipyacc) $(SHELL) $(YLWRAP) $< y.tab.c $*.cc y.tab.h $*.h y.output $*.output -- $(YACCCOMPILE) .yy.h: $(am__skipyacc) $(SHELL) $(YLWRAP) $< y.tab.c $*.cc y.tab.h $*.h y.output $*.output -- $(YACCCOMPILE) EXTRA_DIST = scan.h parse.h makefile.mingw gpsim-0.27.0/cli/cmd_frequency.h0000644000076400007640000000171210416273023013413 00000000000000/* Copyright (C) 2001 Salvador E. Tropea This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_FREQUENCY_H__ #define __CMD_FREQUENCY_H__ class Expression; class cmd_frequency : public command { public: cmd_frequency(void); void set(Expression *); void print(); }; extern cmd_frequency frequency; #endif gpsim-0.27.0/cli/cmd_icd.h0000644000076400007640000000171610416273023012155 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_ICD_H__ #define __CMD_ICD_H__ class cmd_icd : public command { public: cmd_icd(void); void icd(void); void icd(cmd_options_str *cos); virtual int is_repeatable(void) { return 0; }; }; extern cmd_icd c_icd; #endif gpsim-0.27.0/cli/cmd_processor.h0000644000076400007640000000200010416273023013420 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_PROCESSOR_H__ #define __CMD_PROCESSOR_H__ class cmd_processor : public command { public: cmd_processor(void); void processor(void); void processor(int bit_flag); void processor(const char *proc, const char *name); }; extern cmd_processor c_processor; #endif gpsim-0.27.0/cli/cmd_clear.cc0000644000076400007640000000364111116621771012646 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include #include "command.h" #include "cmd_clear.h" #include "../src/pic-processor.h" cmd_clear clear; static cmd_options cmd_clear_options[] = { {0,0,0} }; cmd_clear::cmd_clear() : command("clear", "cl") { brief_doc = string("Remove a break point"); long_doc = string ("clear bp_number\n\ where bp_number is the number assigned to the break point\n\ when it was created. (type \"break\" without any arguments to\n\ display the currently set break points.\n\ "); op = cmd_clear_options; } void cmd_clear::clear(Expression *expr) { if(expr) { Value *v = expr->evaluate(); if(v) { if (typeid(*v) == typeid(String)) { char szParam[20]; ((String*)v)->get(szParam, 20); if(strcmp(szParam, "all") == 0) { get_bp().clear_all(get_active_cpu()); } } else if (typeid(*v) == typeid(Integer)) { /* for now, assume that the expression evaluates to an integer (later, things like 'clear all' will be add) */ gint64 i; v->get(i); get_bp().clear((unsigned int)i); } delete v; } delete expr; } } gpsim-0.27.0/cli/cmd_macro.h0000644000076400007640000000330610416273023012514 00000000000000/* Copyright (C) 2004 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_MACRO_H__ #define __CMD_MACRO_H__ #include #include "../src/gpsim_object.h" typedef list StringList_t; class Macro :public gpsimObject { public: Macro(const char *new_name); StringList_t arguments; // declared when macro is defined StringList_t body; // what the macro contains. StringList_t parameters; // passed to macro during invocation void invoke(); void prepareForInvocation(); int substituteParameter(const string &s,string &replaced); int nParameters(); void add_argument(const char *new_arg); void add_parameter(const char *s); void add_body(const char *new_line); void print(void); }; class cmd_macro : public command { public: cmd_macro(void); void list(void); void define(const char *name); void add_parameter(const char *parameter); void add_body(const char *line); void end_define(const char *opt_name=0); virtual int is_repeatable(void) { return 1; }; }; extern cmd_macro c_macro; #endif gpsim-0.27.0/cli/cmd_load.h0000644000076400007640000000222410666765767012364 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_LOAD_H__ #define __CMD_LOAD_H__ #include "../src/hexutils.h" class cmd_load : public command, IntelHexProgramFileType { public: cmd_load(); int load(int bit_flag,const char *filename); int load(int bit_flag, gpsimObject* module, const char *filename); int load(gpsimObject *file, gpsimObject * pProcessorType = NULL); int load(const char *file, const char *pProcessorType); }; extern cmd_load c_load; #endif gpsim-0.27.0/cli/cmd_quit.h0000644000076400007640000000166510416273023012403 00000000000000/* Copyright (C) 1998,199 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_QUIT_H__ #define __CMD_QUIT_H__ class cmd_quit : public command { public: cmd_quit(void); void quit(void) { cout << "quit command\n";}; void quit(int); }; extern cmd_quit quit; #endif gpsim-0.27.0/cli/cmd_bus.h0000644000076400007640000000174010416273023012204 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_BUS_H__ #define __CMD_BUS_H__ #include "misc.h" #include using namespace std; class cmd_bus : public command { public: cmd_bus(void); void list_busses(void); void add_busses(list *); }; extern cmd_bus c_bus; #endif gpsim-0.27.0/cli/cmd_x.cc0000664000076400007640000001174212114365767012043 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include #include "command.h" #include "cmd_x.h" #include "cmd_dump.h" #include "../src/cmd_gpsim.h" #include "../src/pic-processor.h" #include "../src/symbol.h" cmd_x c_x; static cmd_options cmd_x_options[] = { {0,0,0} }; cmd_x::cmd_x() : command("x",0) { brief_doc = string("[deprecated] examine and/or modify memory"); long_doc = string ("\nx examine command -- deprecated\n\ \tInstead of the using a special command to examine and modify\n\ \tvariables, it's possible to directly access them using gpsim's\n\ \texpression parsing. For example, to examine a variable:\n\ gpsim> my_variable\n\ my_variable [0x27] = 0x00 = 0b00000000\n\ \tTo modify a variable\n\ gpsim> my_variable = 10\n\ \tIt's also possible to assign the value of register to another\n\ gpsim> my_variable = porta\n\ \tOr to assign the results of an expression:\n\ gpsim> my_variable = (porta ^ portc) & 0x0f\n"); /* long_doc = string ("\nx [file_register] [new_value]\n\ \toptions:\n\ \t\tfile_register - ram location to be examined or modified.\n\ \t\tnew_value - the new value written to the file_register.\n\ \t\tif no options are specified, then the entire contents\n\ \t\tof the file registers will be displayed (dump).\n\ "); */ op = cmd_x_options; } void cmd_x::x(void) { dump.dump(cmd_dump::DUMP_RAM); if(GetActiveCPU()) GetActiveCPU()->dump_registers(); } void cmd_x::x(int reg, Expression *pExpr) { if(!GetActiveCPU()) return; if(reg<0 || (reg >= (int)GetActiveCPU()->register_memory_size()) ) { GetUserInterface().DisplayMessage("bad file register\n"); return; } Register *pReg = GetActiveCPU()->registers[reg]; RegisterValue rvCurrent(pReg->getRVN()); if(pExpr == NULL) { char str[33]; // Display value const char * pAddr = GetUserInterface().FormatRegisterAddress( reg, GetActiveCPU()->m_uAddrMask); const char * pValue = GetUserInterface().FormatValue( rvCurrent.data, GetActiveCPU()->register_mask()); GetUserInterface().DisplayMessage("%s[%s] = %s = 0b%s\n", pReg->name().c_str(), pAddr, pValue, pReg->toBitStr(str,sizeof(str))); } else { // Assign value Value *pValue = pExpr->evaluate(); if(pValue != NULL) { Integer * pInt = dynamic_cast(pValue); if(pValue != NULL) { char str[33]; pReg->toBitStr(str,sizeof(str)); RegisterValue value( GetActiveCPU()->register_mask() & (unsigned int)pInt->getVal(), 0); pReg->putRV(value); // Notify listeners pReg->update(); // Display new value x(reg); // Display old value const char * pValue = GetUserInterface().FormatValue( (gint64)rvCurrent.get(), GetActiveCPU()->register_mask()); GetUserInterface().DisplayMessage("was %s = 0b%s\n", pValue, str); } else { GetUserInterface().DisplayMessage( "Error: the expression did not evaluate to on integer"); } delete pValue; } else { GetUserInterface().DisplayMessage("Error evaluating the expression"); } delete pExpr; } } void cmd_x::x(char *reg_name) { cout << "this command is deprecated. " << "Type '" << reg_name << "' at the command line to display the contents of a register.\n"; // get_symbol_table().dump_one(reg_name); } void cmd_x::x(char *reg_name, int val) { cout << "this command is deprecated. use: \n symbol_name = value\n\ninstead\n"; // update_symbol_value(reg_name,val); } void cmd_x::x(Expression *expr) { /* try { Value *v = toValue(expr); cout << v->toString() << endl; if(typeid(register_symbol) == typeid(*v) || (typeid(LiteralSymbol) == typeid(*expr) && !((LiteralSymbol*)expr)->toString().empty() )) { // v->toString() dumped the value to cout } else if(typeid(Integer) == typeid(*v)) { int i; v->get(i); x(i); } else if(typeid(AbstractRange) == typeid(*v)) { unsigned int i = v->get_leftVal(); while (i<=v->get_rightVal()) { x(i); i++; } } delete v; delete expr; } catch (Error *err) { if(err) cout << "ERROR:" << err->toString() << endl; delete err; } */ delete expr; } gpsim-0.27.0/cli/cmd_shell.h0000644000076400007640000000170610416273023012524 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_SHELL_H__ #define __CMD_SHELL_H__ #include using namespace std; class symbol; class cmd_shell : public command { public: cmd_shell(void); void shell(String *cmd); }; extern cmd_shell c_shell; #endif gpsim-0.27.0/cli/cmd_step.h0000644000076400007640000000176310416273023012373 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_STEP_H__ #define __CMD_STEP_H__ class Expression; class cmd_step : public command { public: cmd_step(void); void step(int); void step(Expression *); void over(void); virtual int is_repeatable(void) { return 1; }; }; extern cmd_step step; #endif gpsim-0.27.0/cli/parse.yy0000664000076400007640000007322712114364502012127 00000000000000 %{ /* Parser for gpsim Copyright (C) 1999 Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include #include #include #include #include #include using namespace std; #include "misc.h" #include "command.h" #include "cmd_attach.h" #include "cmd_break.h" #include "cmd_bus.h" #include "cmd_clear.h" #include "cmd_disasm.h" #include "cmd_dump.h" #include "cmd_frequency.h" #include "cmd_help.h" #include "cmd_list.h" #include "cmd_load.h" #include "cmd_log.h" #include "cmd_node.h" #include "cmd_macro.h" #include "cmd_module.h" #include "cmd_processor.h" #include "cmd_quit.h" #include "cmd_reset.h" #include "cmd_run.h" #include "cmd_set.h" #include "cmd_step.h" #include "cmd_shell.h" #include "cmd_stimulus.h" #include "cmd_symbol.h" #include "cmd_trace.h" #include "cmd_version.h" #include "cmd_x.h" #include "cmd_icd.h" #include "../src/expr.h" #include "../src/operator.h" #include "../src/symbol.h" #include "../src/stimuli.h" #include "../src/processor.h" extern void lexer_setMacroBodyMode(); extern void lexer_InvokeMacro(Macro *m); extern void lexer_setDeclarationMode(); #define YYERROR_VERBOSE extern char *yytext; int quit_parse=0; int abort_gpsim=0; int parser_warnings; int parser_spanning_lines=0; int gAbortParserOnSyntaxError=0; extern int use_gui; extern int quit_state; extern command *getLastKnownCommand(); extern void init_cmd_state(); extern const char * GetLastFullCommand(); // From scan.ll void FlushLexerBuffer(); void yyerror(const char *message) { printf("***ERROR: %s while parsing:\n'%s'\n",message, yytext); const char *last = GetLastFullCommand(); if (last) printf(" Last command: %s\n", last); init_cmd_state(); // JRH - I added this hoping that it is an appropriate // place to clear the lexer buffer. An example of // failed command where this is needed is to index // into an undefined symbol. (i.e. undefinedsymbol[0]) FlushLexerBuffer(); } int toInt(Expression *expr) { try { if(expr) { Value *v = expr->evaluate(); if (v) { int i; v->get(i); delete v; return i; } } } catch (Error *err) { if(err) cout << "ERROR:" << err->toString() << endl; delete err; } return -1; } %} /* The pure-parser mode is used to enable reentrancy */ %pure-parser /* Bison declarations */ %union { guint32 i; guint64 li; float f; char *s; cmd_options *co; cmd_options_num *con; cmd_options_str *cos; cmd_options_expr *coe; BinaryOperator* BinaryOperator_P; Boolean* Boolean_P; Expression* Expression_P; Float* Float_P; Integer* Integer_P; String* String_P; gpsimObject* Symbol_P; gpsimObject* gpsimObject_P; StringList_t *StringList_P; ExprList_t *ExprList_P; gpsimObjectList_t *gpsimObjectList_P; Macro *Macro_P; } %{ /* Define the interface to the lexer */ extern int yylex(YYSTYPE* lvalP); %} /* gpsim commands: */ %token ABORT %token ATTACH %token BREAK %token BUS %token CLEAR %token DISASSEMBLE %token DUMP %token ENDM %token FREQUENCY %token HELP %token LOAD %token LOG %token LIST %token NODE %token MACRO %token MODULE %token PROCESSOR %token QUIT %token RESET %token RUN %token SET %token SHELL %token STEP %token STIMULUS %token SYMBOL %token TRACE %token gpsim_VERSION %token X %token ICD %token END_OF_COMMAND %type mdef_body_ %type mdef_end %token MACROBODY_T %token MACROINVOCATION_T %type break_set %token
  • INDIRECT %token
  • END_OF_INPUT %token BIT_FLAG %token EXPRESSION_OPTION %token NUMERIC_OPTION %token STRING_OPTION %token CMD_SUBTYPE %token SYMBOL_OPTION /* Expression parsing stuff */ %type binary_expr %type expr %type literal %type unary_expr %type expr_list %type array %type gpsimObject_list %type gpsimObject %token LITERAL_INT_T %token LITERAL_BOOL_T %token LITERAL_FLOAT_T %token LITERAL_STRING_T %token LITERAL_ARRAY_T %token SYMBOL_T %token GPSIMOBJECT_T %token PORT_T %token EQU_T %token AND_T %token COLON_T %token COMMENT_T %token DIV_T %token EOLN_T %token MINUS_T %token MPY_T %token OR_T %token PLUS_T %token SHL_T %token SHR_T %token XOR_T %token INDEXERLEFT_T %token INDEXERRIGHT_T %token DECLARE_TYPE %token DECLARE_INT_T %token DECLARE_FLOAT_T %token DECLARE_BOOL_T %token DECLARE_CHAR_T %type opt_declaration_type //%type
  • _register %type bit_flag %type cmd_subtype %type numeric_option %type string_option %type expression_option %type string_list // Here are token definitions for expression operators %nonassoc COLON_T %left PLUS_T MINUS_T XOR_T OR_T AND_T %left MPY_T DIV_T %left SHL_T SHR_T %left LOR_T %left LAND_T %left EQ_T NE_T %left LT_T LE_T GT_T GE_T MIN_T MAX_T ABS_T %nonassoc IND_T %left BIT_T BITS_T %right LOW_T HIGH_T LADDR_T WORD_T %nonassoc INDEXED_T %right LNOT_T ONESCOMP_T UNARYOP_PREC %right POW_T %left REG_T %left GPSIMOBJECT_T %left PORT_T %% /* Grammar rules */ list_of_commands: cmd rol { init_cmd_state(); } | list_of_commands cmd rol { init_cmd_state(); } ; cmd: /* empty */ | aborting | attach_cmd | break_cmd | bus_cmd | call_cmd | clear_cmd | declaration_cmd | disassemble_cmd | dump_cmd | eval_cmd | frequency_cmd | help_cmd | list_cmd | log_cmd | load_cmd | node_cmd | macro_cmd | module_cmd | processor_cmd | quit_cmd | reset_cmd | run_cmd | set_cmd | step_cmd | shell_cmd | stimulus_cmd | symbol_cmd | trace_cmd | version_cmd | x_cmd | icd_cmd | END_OF_INPUT { //if(verbose&2) cout << "got an END_OF_INPUT\n"; /* If we're processing a command file then quit parsing * when we run out of input */ //if(Gcmd_file_ref_count) //quit_parse = 1; YYABORT; } | error { init_cmd_state(); yyclearin; // FIXME // In some cases we may wish to abort parsing while in others not. if (gAbortParserOnSyntaxError) { YYABORT; } } ; /***************************************************************** * All lines must terminate with a 'rol' (Rest Of Line) - even empty ones! */ rol : opt_comment EOLN_T ; opt_comment : /* empty */ | COMMENT_T ; aborting: ABORT { abort_gpsim = 1; quit_parse = 1; YYABORT; } ; attach_cmd : ATTACH SYMBOL_T gpsimObject_list { attach.attach($2,$3); } ; break_cmd : BREAK {c_break.list();} | BREAK LITERAL_INT_T {c_break.list($2->getVal());delete $2;} | break_set { } ; log_cmd : LOG {c_log.log();} | LOG bit_flag {c_log.log($2);} | LOG bit_flag expr_list {c_log.log($2,$3);} ; break_set : BREAK bit_flag expr_list {$$=c_break.set_break($2,$3);} | BREAK bit_flag {$$=c_break.set_break($2);} | BREAK SYMBOL_T {$$=c_break.set_break($2);} ; bus_cmd : BUS {c_bus.list_busses();} | BUS string_list {c_bus.add_busses($2); delete $2;} ; call_cmd : SYMBOL_T '(' expr_list ')' { cout << " call\n"; //$$ = $3; } clear_cmd: CLEAR expr {clear.clear($2);} ; disassemble_cmd : DISASSEMBLE {disassemble.disassemble(0);} | DISASSEMBLE expr {disassemble.disassemble($2);} ; dump_cmd: DUMP {dump.dump(2);} | DUMP bit_flag {dump.dump($2->value);} | DUMP bit_flag SYMBOL_T // dump m module_name { // key, module_name quit_parse = dump.dump($2->value, $3, NULL) == 0; } | DUMP bit_flag SYMBOL_T LITERAL_STRING_T // dump m module_name filename { // key, module_name, filename //quit_parse = dump.dump($2->value, $3, $4->getVal()) == 0; if (dump.dump($2->value, $3, $4->getVal()) == 0) cout << "dump to file failed\n"; delete $4; } ; eval_cmd: SYMBOL_T {c_symbol.dump_one($1);} /* // This would really be a nice feature to have, but unfortunately there's bison conflict. | expr { c_symbol.EvaluateAndDisplay($1); delete $1; } */ | '(' expr ')' { c_symbol.EvaluateAndDisplay($2); delete $2; } | SYMBOL_T EQU_T expr { Value *pValue = dynamic_cast($1); if (pValue) { try { pValue->set($3); } catch(Error Message) { GetUserInterface().DisplayMessage("%s (maybe missing quotes?)\n", Message.toString().c_str()); } pValue->update(); } delete $3; } | SYMBOL_T INDEXERLEFT_T expr_list INDEXERRIGHT_T { c_symbol.dump($1,$3); $3->clear(); delete $3; } | SYMBOL_T INDEXERLEFT_T expr_list INDEXERRIGHT_T EQU_T expr { c_symbol.Set($1, $3, $6); $3->clear(); delete $3; delete $6; } | REG_T '(' expr ')' { int i=toInt($3); if (i>=0) c_x.x(toInt($3)); delete $3; } | REG_T '(' expr ')' EQU_T expr { int i=toInt($3); if (i>=0) c_x.x(toInt($3), $6); delete $3; } ; frequency_cmd : FREQUENCY {frequency.print();} | FREQUENCY expr {frequency.set($2);} ; help_cmd : HELP {help.help(); } | HELP LITERAL_STRING_T {help.help($2->getVal()); delete $2;} | HELP SYMBOL_T {help.help($2);} ; list_cmd : LIST {c_list.list();} | LIST bit_flag {c_list.list($2);} ; load_cmd: LOAD bit_flag LITERAL_STRING_T { quit_parse = c_load.load($2->value,$3->getVal()) == 0; delete $3; if(quit_parse) { quit_parse = 0; YYABORT; } } | LOAD bit_flag SYMBOL_T LITERAL_STRING_T { quit_parse = c_load.load($2->value, $3, $4->getVal()) == 0; delete $4; if(quit_parse) { quit_parse = 0; YYABORT; } } | LOAD LITERAL_STRING_T // load [programname | cmdfile] { quit_parse = c_load.load($2->getVal(), (const char *)NULL) == 0; delete $2; quit_parse =0; if(quit_parse) { quit_parse = 0; YYABORT; } } | LOAD SYMBOL_T // load [programname | cmdfile] { quit_parse = c_load.load($2) == 0; quit_parse =0; if(quit_parse) { quit_parse = 0; YYABORT; } } | LOAD SYMBOL_T SYMBOL_T // load processor filename { // filename, processor quit_parse = c_load.load($3, $2) == 0; delete $2; delete $3; if(quit_parse) { quit_parse = 0; YYABORT; } } | LOAD LITERAL_STRING_T LITERAL_STRING_T // load processor filename // - OR - // load filename ReferenceDesignator_for_processor { // filename, processor quit_parse = c_load.load($3, $2) == 0; delete $2; delete $3; if(quit_parse) { quit_parse = 0; YYABORT; } } ; node_cmd : NODE {c_node.list_nodes();} | NODE string_list {c_node.add_nodes($2); delete $2;} ; module_cmd : MODULE {c_module.module();} | MODULE bit_flag {c_module.module($2);} | MODULE string_option { c_module.module($2,(list *)0); delete $2; } | MODULE string_option string_list { if ($2 != NULL && $3 != NULL) c_module.module($2, $3); if ($2 != NULL) delete $2; if ($3 != NULL) delete $3; } ; processor_cmd: PROCESSOR { c_processor.processor(); } | PROCESSOR bit_flag { c_processor.processor($2->value); } | PROCESSOR LITERAL_STRING_T { c_processor.processor($2->getVal(),0); delete $2; } | PROCESSOR LITERAL_STRING_T LITERAL_STRING_T { c_processor.processor($2->getVal(),$3->getVal()); delete $2; delete $3; } ; quit_cmd: QUIT { quit_parse = 1; YYABORT; } | QUIT expr { quit_parse = 1; //quit_state = $2; // FIXME need to evaluate expr YYABORT; } ; reset_cmd: RESET { reset.reset(); } ; run_cmd: RUN { c_run.run();} ; set_cmd : SET {c_set.set();} | SET bit_flag {c_set.set($2->value,0);} | SET bit_flag expr {c_set.set($2->value,$3);} ; step_cmd : STEP {step.step(1);} | STEP expr {step.step($2);} | STEP bit_flag {step.over();} ; shell_cmd : SHELL {c_shell.shell($1); delete $1;} ; stimulus_cmd: STIMULUS { c_stimulus.stimulus(); } | STIMULUS cmd_subtype { c_stimulus.stimulus($2->value); } | stimulus_cmd stimulus_opt { /* do nothing */ } | stimulus_cmd END_OF_COMMAND { if(verbose) cout << " end of stimulus command\n"; c_stimulus.end(); } ; stimulus_opt: expression_option { if(verbose) cout << "parser sees stimulus with numeric option\n"; c_stimulus.stimulus($1); } | stimulus_opt bit_flag { if(verbose) cout << "parser sees stimulus with bit flag: " << $2->value << '\n'; c_stimulus.stimulus($2->value); } | stimulus_opt string_option { if(verbose) cout << "parser sees stimulus with string option\n"; c_stimulus.stimulus($2); } | stimulus_opt array { if(verbose) cout << "parser sees stimulus with an array\n"; c_stimulus.stimulus($2); } ; symbol_cmd : SYMBOL {c_symbol.dump_all();} | SYMBOL LITERAL_STRING_T EQU_T literal { c_symbol.add_one($2->getVal(), $4); delete $2; delete $4; } | SYMBOL LITERAL_STRING_T {c_symbol.dump_one($2->getVal()); delete $2;} | SYMBOL SYMBOL_T {c_symbol.dump_one($2);} ; trace_cmd: TRACE { c_trace.trace(); } | TRACE expr { c_trace.trace($2); } | TRACE numeric_option { c_trace.trace($2); } | TRACE string_option { c_trace.trace($2); } | TRACE bit_flag { c_trace.trace($2); } | TRACE expression_option { c_trace.trace($2); } ; version_cmd: gpsim_VERSION {version.version();} ; x_cmd : X { c_x.x();} | X expr { c_x.x($2); } ; icd_cmd: ICD { c_icd.icd(); } | ICD string_option { c_icd.icd($2); } ; //------------------------------------------------------------ // macro definitions // // Syntax: // // name macro [arg1, arg2, ...] // macro body // endm // // 'name' is the macro name // 'macro' is a keyword // arg1,arg2,... are optional arguments // 'macro body' - any valid gpsim command // 'endm' is a keyword // macro_cmd: MACRO { c_macro.list();} | macrodef_directive { } | MACROINVOCATION_T { lexer_InvokeMacro($1); } ; macrodef_directive : LITERAL_STRING_T MACRO {c_macro.define($1->getVal()); delete $1;} opt_mdef_arglist rol {lexer_setMacroBodyMode();} mdef_body mdef_end ; opt_mdef_arglist : /* empty */ | LITERAL_STRING_T { c_macro.add_parameter($1->getVal()); delete $1; } | opt_mdef_arglist ',' LITERAL_STRING_T { c_macro.add_parameter($3->getVal()); delete $3; } ; mdef_body : /* empty */ | mdef_body_ {; } ; mdef_body_ : MACROBODY_T {c_macro.add_body($1);} | mdef_body_ MACROBODY_T {c_macro.add_body($2);} ; mdef_end : ENDM {c_macro.end_define();} | LITERAL_STRING_T ENDM {c_macro.end_define($1->getVal()); delete $1; } ; // Declarations // A declaration begins with the backslash delimeter: \ // and has the syntax: // // \ [type] name [= value] // // Where the optional type is // // bool, int, float, or char // // The name is of the form of a gpsim identifier and can be anything as long as a name // of the same type does not already exist. Also, if the name is suffixed with brackets [] // then this will designate an array. // // The optional assignment allows the newly declared type to be initialized. declaration_cmd: '\\' { cout << "declaration\n"; lexer_setDeclarationMode(); } opt_declaration_type { cout << " type:" << $3 << endl; } LITERAL_STRING_T { cout << "identifier: " << $5->getVal() << endl; delete $5; } ; opt_declaration_type : /* default type */ { $$=0; } | DECLARE_INT_T { $$ = 1; cout <<"int type\n";} | DECLARE_FLOAT_T { $$ = 2; cout <<"float type\n";} | DECLARE_BOOL_T { $$ = 3; cout <<"bool type\n";} | DECLARE_CHAR_T { $$ = 4; cout <<"char type\n";} ; // Indirect addressing is supported with the indirect // operator '*'. E.g. If register 0x20 contains 0x2e // then *0x20 means that the contents of register 0x2e // are referenced. // //indirect: INDIRECT _register // { // if(verbose) // printf(" indirect register *%d",(int)$2); // $$ = $2; // } // ; // //_register: NUMBER // { // if(verbose) // printf(" --- register %d\n", (int)$1); // } // ; bit_flag: BIT_FLAG { $$ = $1; } ; cmd_subtype: CMD_SUBTYPE { $$ = $1; } ; expression_option: EXPRESSION_OPTION expr { $$ = new cmd_options_expr($1,$2); } ; numeric_option: NUMERIC_OPTION expr { $$ = new cmd_options_num; $$->co = $1; } ; string_option: STRING_OPTION LITERAL_STRING_T { $$ = new cmd_options_str($2->getVal()); $$->co = $1; if(verbose&2) cout << " name " << $$->co->name << " value " << $$->str << " got a string option \n"; delete $2; } | STRING_OPTION SYMBOL_T { String *pValue = dynamic_cast($2); if(pValue != NULL) { $$ = new cmd_options_str(pValue->getVal()); $$->co = $1; if(verbose&2) cout << " name " << $$->co->name << " value " << $$->str << " got a symbol option \n"; } else { cout << " symbol option '" << $2->name() << "' is not a string" << endl; $$ = NULL; } //delete $2; } ; string_list : LITERAL_STRING_T {$$ = new StringList_t(); $$->push_back($1->getVal()); delete $1;} | string_list LITERAL_STRING_T {$1->push_back($2->getVal()); delete $2;} ; //---------------------------------------- // Expression parsing expr : binary_expr {$$=$1;} | unary_expr {$$=$1;} | REG_T '(' expr ')' {$$=new RegisterExpression(toInt($3)); delete $3; } ; array : '{' expr_list '}' {$$=$2;} ; gpsimObject : GPSIMOBJECT_T '(' SYMBOL_T ')' { // Ex: pin(MyVariable) -- where MyVariable is the name of a symbol // This allows one to programmatically select a particular pin number. // If Symbol has an integer type, assume it is a CPU pin number // otherwise assume it is a stimulus such as a pin name if (typeid(*$3) == typeid(Integer)) { $$ = toStimulus($3); } else $$ = $3; //$$=new Pin_t(Pin_t::ePackageBased | Pin_t::eActiveProc, $3); } | GPSIMOBJECT_T '(' LITERAL_INT_T ')' { // Ex: pin(8) -- select a particular pin in the package $$ = toStimulus($3->getVal()); delete $3; } | SYMBOL_T { // The symbol should be a stimulus. This is for the attach command. // Ex: attach Node1 portb0 // The scanner will find portb0 and return it to us here as a SYMBOL_T $$ = $1; //dynamic_cast($1); } /* | PIN_T '(' LITERAL_INT_T ')' {$$=new Pin_t(Pin_t::ePackageBased | Pin_t::eActiveProc, $3);} | PIN_T '(' SYMBOL_T ',' SYMBOL_T ')' {$$=new Pin_t(Pin_t::ePackageBased, $3,$5);} | PIN_T '(' SYMBOL_T ',' LITERAL_INT_T ')' {$$=new Pin_t(Pin_t::ePackageBased, $3,$5);} | PORT_T '(' SYMBOL_T ',' SYMBOL_T ')' {$$=new Pin_t(Pin_t::ePortBased | Pin_t::eActiveProc, NULL, $3, $5);} | PORT_T '(' SYMBOL_T ',' LITERAL_INT_T ')' {$$=new Pin_t(Pin_t::ePortBased | Pin_t::eActiveProc, NULL, $3, $5);} | PORT_T '(' SYMBOL_T ',' SYMBOL_T ',' SYMBOL_T ')' {$$=new Pin_t(Pin_t::ePortBased, $3,$5,$7);} | PORT_T '(' SYMBOL_T ',' SYMBOL_T ',' LITERAL_INT_T ')' {$$=new Pin_t(Pin_t::ePortBased, $3,$5,$7);} | SYMBOL_T {$$=new Pin_t(Pin_t::ePortBased, $1);} */ ; gpsimObject_list : gpsimObject {$$ = new gpsimObjectList_t(); $$->push_back($1);} | gpsimObject_list gpsimObject {if ($2) $1->push_back($2);} ; expr_list : expr {$$ = new ExprList_t(); $$->push_back($1);} | expr_list ',' expr {$1->push_back($3); } ; binary_expr : expr PLUS_T expr {$$ = new OpAdd($1, $3);} | expr MINUS_T expr {$$ = new OpSub($1, $3);} | expr MPY_T expr {$$ = new OpMpy($1, $3);} | expr DIV_T expr {$$ = new OpDiv($1, $3);} | expr AND_T expr {$$ = new OpAnd($1, $3);} | expr OR_T expr {$$ = new OpOr($1, $3);} | expr XOR_T expr {$$ = new OpXor($1, $3);} | expr SHL_T expr {$$ = new OpShl($1, $3);} | expr SHR_T expr {$$ = new OpShr($1, $3);} | expr EQ_T expr {$$ = new OpEq($1, $3);} | expr NE_T expr {$$ = new OpNe($1, $3);} | expr LT_T expr {$$ = new OpLt($1, $3);} | expr GT_T expr {$$ = new OpGt($1, $3);} | expr LE_T expr {$$ = new OpLe($1, $3);} | expr GE_T expr {$$ = new OpGe($1, $3);} | expr LAND_T expr {$$ = new OpLogicalAnd($1, $3);} | expr LOR_T expr {$$ = new OpLogicalOr($1, $3);} | expr COLON_T expr {$$ = new OpAbstractRange($1, $3);} ; unary_expr : literal {$$=$1;} | PLUS_T unary_expr %prec UNARYOP_PREC {$$ = new OpPlus($2);} | MINUS_T unary_expr %prec UNARYOP_PREC {$$ = new OpNegate($2);} | ONESCOMP_T unary_expr %prec UNARYOP_PREC {$$ = new OpOnescomp($2);} | LNOT_T unary_expr %prec UNARYOP_PREC {$$ = new OpLogicalNot($2);} | MPY_T unary_expr %prec UNARYOP_PREC {$$ = new OpIndirect($2);} | AND_T unary_expr %prec UNARYOP_PREC {$$ = new OpAddressOf($2);} | '(' expr ')' {$$=$2;} ; literal : LITERAL_INT_T {$$ = new LiteralInteger($1);} | LITERAL_BOOL_T {$$ = new LiteralBoolean($1);} | LITERAL_STRING_T {$$ = new LiteralString($1);} | LITERAL_FLOAT_T {$$ = new LiteralFloat($1);} | SYMBOL_T {$$ = new LiteralSymbol($1);} | SYMBOL_T INDEXERLEFT_T expr_list INDEXERRIGHT_T {$$ = new IndexedSymbol($1,$3);} | LITERAL_ARRAY_T {$$ = new LiteralArray($1); } ; %% // parsing is over //-------------------------- // This initialization could be done by the compiler. However // it requires two passes through because the token values are // defined by the parser output (eg. y.tab.h) while at the same // time the parser depends on the .h files in which these classes // are defined. void initialize_commands(void) { static bool initialized = 0; if(initialized) return; if(verbose) cout << __FUNCTION__ << "()\n"; attach.token_value = ATTACH; c_break.token_value = BREAK; // c_bus.token_value = BUS; clear.token_value = CLEAR; disassemble.token_value = DISASSEMBLE; dump.token_value = DUMP; frequency.token_value = FREQUENCY; help.token_value = HELP; c_list.token_value = LIST; c_load.token_value = LOAD; c_log.token_value = LOG; c_macro.token_value = MACRO; c_module.token_value = MODULE; c_node.token_value = NODE; c_processor.token_value = PROCESSOR; quit.token_value = QUIT; reset.token_value = RESET; c_run.token_value = RUN; c_set.token_value = SET; step.token_value = STEP; c_stimulus.token_value = STIMULUS; c_symbol.token_value = SYMBOL; c_trace.token_value = TRACE; version.token_value = gpsim_VERSION; c_x.token_value = X; c_icd.token_value = ICD; c_shell.token_value = SHELL; initialized = 1; parser_spanning_lines = 0; parser_warnings = 1; // display parser warnings. } gpsim-0.27.0/cli/cmd_echo.h0000644000076400007640000000226510416273023012334 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_ECHO_H__ #define __CMD_ECHO_H__ class cmd_echo : public command { public: cmd_echo(void); // The echo command is handled by the lexical analyzer (scan.l) // and not by this class. Note that this is different than the // other commands. The only reason the 'echo' class exists is to // provide a consistant way for displaying help text. void echo(void) { cout << "BUG: echo command does not execute!\n";}; }; extern cmd_echo echo; #endif gpsim-0.27.0/cli/parse.h0000664000076400007640000001556712177045220011722 00000000000000/* A Bison parser, made by GNU Bison 2.6.4. */ /* Bison interface for Yacc-like parsers in C Copyright (C) 1984, 1989-1990, 2000-2012 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 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, see . */ /* As a special exception, you may create a larger work that contains part or all of the Bison parser skeleton and distribute that work under terms of your choice, so long as that work isn't itself a parser generator using the skeleton or a modified version thereof as a parser skeleton. Alternatively, if you modify or redistribute the parser skeleton itself, you may (at your option) remove this special exception, which will cause the skeleton and the resulting Bison output files to be licensed under the GNU General Public License without this special exception. This special exception was added by the Free Software Foundation in version 2.2 of Bison. */ #ifndef YY_YY_PARSE_H_INCLUDED # define YY_YY_PARSE_H_INCLUDED /* Enabling traces. */ #ifndef YYDEBUG # define YYDEBUG 1 #endif #if YYDEBUG extern int yydebug; #endif /* Tokens. */ #ifndef YYTOKENTYPE # define YYTOKENTYPE /* Put the tokens into the symbol table, so that GDB and other debuggers know about them. */ enum yytokentype { ABORT = 258, ATTACH = 259, BREAK = 260, BUS = 261, CLEAR = 262, DISASSEMBLE = 263, DUMP = 264, ENDM = 265, FREQUENCY = 266, HELP = 267, LOAD = 268, LOG = 269, LIST = 270, NODE = 271, MACRO = 272, MODULE = 273, PROCESSOR = 274, QUIT = 275, RESET = 276, RUN = 277, SET = 278, SHELL = 279, STEP = 280, STIMULUS = 281, SYMBOL = 282, TRACE = 283, gpsim_VERSION = 284, X = 285, ICD = 286, END_OF_COMMAND = 287, MACROBODY_T = 288, MACROINVOCATION_T = 289, INDIRECT = 290, END_OF_INPUT = 291, BIT_FLAG = 292, EXPRESSION_OPTION = 293, NUMERIC_OPTION = 294, STRING_OPTION = 295, CMD_SUBTYPE = 296, SYMBOL_OPTION = 297, LITERAL_INT_T = 298, LITERAL_BOOL_T = 299, LITERAL_FLOAT_T = 300, LITERAL_STRING_T = 301, LITERAL_ARRAY_T = 302, SYMBOL_T = 303, GPSIMOBJECT_T = 304, PORT_T = 305, EQU_T = 306, AND_T = 307, COLON_T = 308, COMMENT_T = 309, DIV_T = 310, EOLN_T = 311, MINUS_T = 312, MPY_T = 313, OR_T = 314, PLUS_T = 315, SHL_T = 316, SHR_T = 317, XOR_T = 318, INDEXERLEFT_T = 319, INDEXERRIGHT_T = 320, DECLARE_TYPE = 321, DECLARE_INT_T = 322, DECLARE_FLOAT_T = 323, DECLARE_BOOL_T = 324, DECLARE_CHAR_T = 325, LOR_T = 326, LAND_T = 327, NE_T = 328, EQ_T = 329, ABS_T = 330, MAX_T = 331, MIN_T = 332, GE_T = 333, GT_T = 334, LE_T = 335, LT_T = 336, IND_T = 337, BITS_T = 338, BIT_T = 339, WORD_T = 340, LADDR_T = 341, HIGH_T = 342, LOW_T = 343, INDEXED_T = 344, UNARYOP_PREC = 345, ONESCOMP_T = 346, LNOT_T = 347, POW_T = 348, REG_T = 349 }; #endif /* Tokens. */ #define ABORT 258 #define ATTACH 259 #define BREAK 260 #define BUS 261 #define CLEAR 262 #define DISASSEMBLE 263 #define DUMP 264 #define ENDM 265 #define FREQUENCY 266 #define HELP 267 #define LOAD 268 #define LOG 269 #define LIST 270 #define NODE 271 #define MACRO 272 #define MODULE 273 #define PROCESSOR 274 #define QUIT 275 #define RESET 276 #define RUN 277 #define SET 278 #define SHELL 279 #define STEP 280 #define STIMULUS 281 #define SYMBOL 282 #define TRACE 283 #define gpsim_VERSION 284 #define X 285 #define ICD 286 #define END_OF_COMMAND 287 #define MACROBODY_T 288 #define MACROINVOCATION_T 289 #define INDIRECT 290 #define END_OF_INPUT 291 #define BIT_FLAG 292 #define EXPRESSION_OPTION 293 #define NUMERIC_OPTION 294 #define STRING_OPTION 295 #define CMD_SUBTYPE 296 #define SYMBOL_OPTION 297 #define LITERAL_INT_T 298 #define LITERAL_BOOL_T 299 #define LITERAL_FLOAT_T 300 #define LITERAL_STRING_T 301 #define LITERAL_ARRAY_T 302 #define SYMBOL_T 303 #define GPSIMOBJECT_T 304 #define PORT_T 305 #define EQU_T 306 #define AND_T 307 #define COLON_T 308 #define COMMENT_T 309 #define DIV_T 310 #define EOLN_T 311 #define MINUS_T 312 #define MPY_T 313 #define OR_T 314 #define PLUS_T 315 #define SHL_T 316 #define SHR_T 317 #define XOR_T 318 #define INDEXERLEFT_T 319 #define INDEXERRIGHT_T 320 #define DECLARE_TYPE 321 #define DECLARE_INT_T 322 #define DECLARE_FLOAT_T 323 #define DECLARE_BOOL_T 324 #define DECLARE_CHAR_T 325 #define LOR_T 326 #define LAND_T 327 #define NE_T 328 #define EQ_T 329 #define ABS_T 330 #define MAX_T 331 #define MIN_T 332 #define GE_T 333 #define GT_T 334 #define LE_T 335 #define LT_T 336 #define IND_T 337 #define BITS_T 338 #define BIT_T 339 #define WORD_T 340 #define LADDR_T 341 #define HIGH_T 342 #define LOW_T 343 #define INDEXED_T 344 #define UNARYOP_PREC 345 #define ONESCOMP_T 346 #define LNOT_T 347 #define POW_T 348 #define REG_T 349 #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED typedef union YYSTYPE { /* Line 2077 of yacc.c */ #line 140 "parse.yy" guint32 i; guint64 li; float f; char *s; cmd_options *co; cmd_options_num *con; cmd_options_str *cos; cmd_options_expr *coe; BinaryOperator* BinaryOperator_P; Boolean* Boolean_P; Expression* Expression_P; Float* Float_P; Integer* Integer_P; String* String_P; gpsimObject* Symbol_P; gpsimObject* gpsimObject_P; StringList_t *StringList_P; ExprList_t *ExprList_P; gpsimObjectList_t *gpsimObjectList_P; Macro *Macro_P; /* Line 2077 of yacc.c */ #line 272 "parse.h" } YYSTYPE; # define YYSTYPE_IS_TRIVIAL 1 # define yystype YYSTYPE /* obsolescent; will be withdrawn */ # define YYSTYPE_IS_DECLARED 1 #endif #ifdef YYPARSE_PARAM #if defined __STDC__ || defined __cplusplus int yyparse (void *YYPARSE_PARAM); #else int yyparse (); #endif #else /* ! YYPARSE_PARAM */ #if defined __STDC__ || defined __cplusplus int yyparse (void); #else int yyparse (); #endif #endif /* ! YYPARSE_PARAM */ #endif /* !YY_YY_PARSE_H_INCLUDED */ gpsim-0.27.0/cli/command.cc0000664000076400007640000001112712114365767012364 00000000000000/* Copyright (C) 1998,199 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include #include "../config.h" #include "../src/expr.h" #include "../src/pic-processor.h" #include "../src/sim_context.h" #include "../src/trace.h" #include "command.h" #include "cmd_attach.h" #include "cmd_break.h" #include "cmd_bus.h" #include "cmd_clear.h" #include "cmd_disasm.h" #include "cmd_dump.h" #include "cmd_echo.h" #include "cmd_frequency.h" #include "cmd_help.h" #include "cmd_list.h" #include "cmd_load.h" #include "cmd_log.h" #include "cmd_macro.h" #include "cmd_module.h" #include "cmd_node.h" #include "cmd_processor.h" #include "cmd_quit.h" #include "cmd_reset.h" #include "cmd_run.h" #include "cmd_set.h" #include "cmd_shell.h" #include "cmd_step.h" #include "cmd_stimulus.h" #include "cmd_symbol.h" #include "cmd_trace.h" #include "cmd_version.h" #include "cmd_x.h" #include "cmd_icd.h" int quit_gpsim = 0; command *command_list[] = { &c_shell, &attach, &c_break, // &c_bus, &clear, &disassemble, &dump, // &echo, &frequency, &help, &c_icd, &c_list, &c_load, &c_log, &c_macro, &c_module, &c_node, &c_processor, &quit, &reset, &c_run, &c_set, &step, &c_stimulus, &c_symbol, &c_trace, &version, &c_x }; command::command(const char *_name, const char *_abbr) : m_pName(_name), m_pAbbreviation(_abbr) { op = 0; token_value = 0; } /* command::command(struct cmd_options *options,int tv) { abbreviation = 0; op = options; token_value = tv; } */ int number_of_commands = sizeof(command_list) / sizeof(command *); command *search_commands(const string &s) { int i=0; while(iname(), s.c_str()) == 0 || (cmd->abbreviation() != 0 && strcmp(cmd->abbreviation(), s.c_str()) == 0 )) { return cmd; } i++; } return 0; } void execute_line(char *cmd) { if(verbose) cout << "Executing a line:\n " << cmd; } Processor *command::GetActiveCPU(bool bDisplayWarnings) { Processor *pCpu = CSimulationContext::GetContext()->GetActiveCPU(); if (bDisplayWarnings && !pCpu) cout << "No cpu has been selected\n"; return pCpu; } Value *command::toValue(Expression *expr) { if(expr) return expr->evaluate(); return new Integer(0); } double command::evaluate(Expression *expr) { double value = 0.0; try { if(expr) { Value *v = toValue(expr); v->get(value); delete v; delete expr; } } catch (Error *err) { if(err) cout << "ERROR:" << err->toString() << endl; delete err; } return value; } static gint64 evaluateToInt(Expression *expr) { gint64 value = 0; try { if(expr) { Value *v = expr->evaluate(); v->get(value); delete v; delete expr; } } catch (Error *err) { if(err) cout << "ERROR:" << err->toString() << endl; delete err; } return value; } void command::evaluate(ExprList_t *eList, guint64 *parameters, int *nParameters) { ExprList_itor ei; if (!eList) { if(nParameters) *nParameters = 0; return; } if ( !parameters || !nParameters || !*nParameters) return; int n = 0; for(ei = eList->begin(); (ei != eList->end()) && (n < *nParameters); ++ei, n++) { parameters[n] = evaluateToInt(*ei); cout << "p" << n << " = " << parameters[n] << endl; } *nParameters = n; } //======================================================================== // Command options cmd_options_str::cmd_options_str(const char *new_val) { if(new_val) str = strdup(new_val); else str = 0; } cmd_options_str::~cmd_options_str() { if(str) free (str); } cmd_options_expr::cmd_options_expr(cmd_options *_co, Expression *_expr) { co = _co; expr = _expr; } cmd_options_expr::~cmd_options_expr() { delete co; delete expr; } gpsim-0.27.0/cli/cmd_attach.cc0000644000076400007640000001305611146404512013020 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include #include "command.h" #include "../src/stimuli.h" #include "../src/processor.h" #include "cmd_attach.h" cmd_attach attach; static cmd_options cmd_attach_options[] = { {0,0,0} }; cmd_attach::cmd_attach() : command("attach", 0) { brief_doc = string("Attach stimuli to nodes"); long_doc = string ("attach node1 stimulus_1 [stimulus_2 stimulu_N]\n" "\tAttach is used to define connections between one or more stimulus\n" "\tand a node. One node and at least one stimulus must be specified, but\n" "\tin general two or more stimuli are used. Attach can be viewed as\n" "\twiring stimuli together, with the node acting as the wire. A stimulus\n" "\tis either a CPU or module I/O pin or a stimulus name.\n\n" "\tstimulus_n May be one of four forms:\n" "\tpin() or pin()\n" "\t This refers to a pin of the current active CPU.\n" "\t is the pin number\n" "\t is an integer symbol whose value is a pin number\n" "\n" "\t or pin()\n" "\t These two forms are treated exactly the same\n" "\t ( i.e. the pin() has no meaning).\n" "\t is a stimulus name or an I/O pin name.\n" "\t I/O pin name can be just the pin name for the CPU or\n" "\t .pin_name for a module\n" "\n" "\texample:\n" "\n" "\t**gpsim> load instructions_14bit.cod # load code\n" "\t**gpsim> module library libgpsim_modules #load module lib\n" "\t**gpsim> module load usart U1 # create USART\n" "\t**gpsim> node n1 # define a node\n" "\t**gpsim> node n2 #define another node\n" "\t**gpsim> symbol TWO=2 #define symbol with value 2\n" "\t**gpsim> attach n1 pin(1) pin(TWO) #attach CPU pins 1 and 2 to n1\n" "\t**gpsim> attach n1 U1.RXPIN #add usart pin to n1\n" "\t**gpsim> attach n2 portb0 pin(U1.TXPIN) #connect portb0 to UASRT TX pin\n" "\t**gpsim> node # show results\n" ); #ifdef Q long_doc = string ("attach node1 stimulus_1 [stimulus_2 stimulu_N]\n" "\t attach is used to define the connections between stimuli and nodes.\n" "\tAt least one node and one stimulus must be specified. If more stimuli\n" "\tare specified then they will all be attached to the node.\n\n" "\tstimulus_n May be one of four forms:\n" "\t pin() or pin()\n" "\t The single argument form refers to a pin of the currently\n" "\t active cpu. The argument defined the pin number\n" "\t of active cpu. The argument refers to the\n" "\t name of the pin. If the is scoped to a specific\n" "\t attribute (i.e. MyProc.PORTA0) the pin of the specified\n" "\t module will be attached.\n" "\t pin(, ) or pin(, )\n" "\t The dual argument form refers to the pin of the specified\n" "\t module.\n" "\t Name of the module or string variable that contains the\n" "\t module name.\n" "\t A symbolic integer constant representing the pin number.\n" "\t A literal integer value of the pin number.\n" "\n" "\texamples:\n" "\n" "\t processor p16f627 P16\n" "\t node pin2pin_test // Define a new node.\n" "\t attach pin2pin_test pin(porta4) pin(P16, portb0) // Different ways to \n" "\t attach pin2pin_test pin(4) pin(0) // connect two I/O\n" "\t attach pin2pin_test pin(P16,portb0) // pins to the node.\n" "\t attach pin2pin_test pin(P16,0)\n" "\t node // Display the new \"net list\".\n\n" "\tdeprecated:\n" "\t attach pin2pin_test porta4 portb0\n" ); #endif // Q op = cmd_attach_options; } extern void stimuli_attach(gpsimObject *pNode, gpsimObjectList_t *pPinList); void cmd_attach::attach(gpsimObject *pNode, gpsimObjectList_t *pPinList) { stimuli_attach(pNode, pPinList); //cout <<"deleting stimulus list\n"; pPinList->clear(); delete pPinList; } stimulus *toStimulus(int pinNumber) { Processor *pMod = attach.GetActiveCPU(); stimulus *pStim = pMod ? pMod->get_pin(pinNumber) : 0; if (!pStim) { cout << "unable to select pin " << pinNumber << "\n"; // GetUserInterface().DisplayMessage("unable to select pin\n"); } return pStim; } stimulus *toStimulus(gpsimObject *pObj) { Value *pVal = dynamic_cast(pObj); if (!pVal) { cout << (pObj?pObj->name():"") << " cannot be converted to a pin number\n"; return 0; } return toStimulus((gint64)*pVal); } gpsim-0.27.0/cli/symbol_t.h0000644000076400007640000000014410416273023012415 00000000000000#if !defined (__SYMBOL_H_) #define __SYMBOL_H_ extern int search_symbols(const string &s); #endif gpsim-0.27.0/cli/cmd_icd.cc0000644000076400007640000000407110563700567012323 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "command.h" #include "cmd_icd.h" #include "../src/icd.h" cmd_icd c_icd; #define ICD_OPEN_CMD 1 static cmd_options cmd_icd_options[] = { {"open", ICD_OPEN_CMD, OPT_TT_STRING}, {0,0,0} }; cmd_icd::cmd_icd() : command("icd",0) { brief_doc = string("ICD command."); long_doc = string ("\nicd [open ]\n\ \tThe open command is used to enable ICD mode and specify the serial\n\ \tport where the ICD is. (e.g. \"icd open /dev/ttyS0\").\n\ \tWithout options (and after the icd is enabled), it will print some\n\ \tinformation about the ICD.\n\ "); op = cmd_icd_options; } #include void cmd_icd::icd() { if(icd_detected()) { printf("ICD version \"%s\" was found.\n",icd_version()); printf("Target controller is %s.\n", icd_target()); printf("Vdd: %.1f\t",icd_vdd()); printf("Vpp: %.1f\n",icd_vpp()); if(icd_has_debug_module()) puts("Debug module is present"); else puts("Debug moudle is NOT present."); } else { printf("ICD has not been opened (use the \"icd open\" command)\n"); } } void cmd_icd::icd(cmd_options_str *cos) { switch(cos->co->value) { case ICD_OPEN_CMD: cout << "ICD open " << cos->str << endl; icd_connect(cos->str); break; default: cout << " Invalid set option\n"; } } gpsim-0.27.0/cli/cmd_run.cc0000644000076400007640000000266110644005165012363 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "command.h" #include "cmd_run.h" #include "../src/pic-processor.h" extern void redisplay_prompt(void); // in input.cc cmd_run c_run; static cmd_options cmd_run_options[] = { {0,0,0} }; cmd_run::cmd_run() : command("run",0) { brief_doc = string("Initiate the simulation"); long_doc = string ("run\n\ \tStart simulating and don't stop until a break is encountered.\n\ \tUse CTRL->C to halt the simulation execution.\n\ \n"); op = cmd_run_options; } void cmd_run::run() { Integer &verbosity = *globalSymbolTable().findInteger("sim.verbosity"); get_interface().start_simulation(); if((int)verbosity) redisplay_prompt(); } gpsim-0.27.0/cli/cmd_trace.cc0000644000076400007640000000733510563700567012670 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "command.h" #include "cmd_trace.h" //#include "../src/processor.h" #include "../src/trace.h" #include "../src/trace_orb.h" cmd_trace c_trace; #define TRACE_RAW_CMD 1 #define TRACE_MASK_CMD 2 #define TRACE_SAVE_CMD 3 #define TRACE_LOGON_CMD 4 #define TRACE_LOGOFF_CMD 5 #define TRACE_INFO_CMD 6 static cmd_options cmd_trace_options[] = { {"r", TRACE_RAW_CMD, OPT_TT_NUMERIC}, {"raw", TRACE_RAW_CMD, OPT_TT_NUMERIC}, {"mask", TRACE_MASK_CMD, OPT_TT_NUMERIC}, {"log", TRACE_LOGON_CMD, OPT_TT_STRING}, {"save", TRACE_SAVE_CMD, OPT_TT_STRING}, {"info", TRACE_INFO_CMD, OPT_TT_BITFLAG}, {"disable_log",TRACE_LOGOFF_CMD, OPT_TT_BITFLAG}, {0,0,0} }; cmd_trace::cmd_trace() : command("trace", "tr") { brief_doc = string("Dump the trace history"); long_doc = string ("\ntrace [dump_amount | raw | log fname | disable_log]\n" "\ttrace will print out the most recent \"dump_amount\" traces.\n" "\tIf no dump_amount is specified, then only the lat few trace\n" "\tevents will be displayed.\n\n" "\ttrace raw expr -- display the trace contents in a minimally decoded manner\n" "\ttrace log fname -- log all raw trace events to a file\n" "\ttrace save fname -- save the decode trace buffer to a file\n" "\ttrace disable_log -- stop all file logging\n" ); op = cmd_trace_options; } void cmd_trace::trace(void) { get_trace().dump(0,stdout); } void cmd_trace::trace(Expression *expr) { int n = (int)evaluate(expr); get_trace().dump(n,stdout); } void cmd_trace::trace(cmd_options *opt) { switch(opt->value) { case TRACE_LOGOFF_CMD: get_trace().disableLogging(); cout << "Logging to file disabled" << endl; break; case TRACE_INFO_CMD: get_trace().showInfo(); break; default: cout << " Invalid set option\n"; } } void cmd_trace::trace(cmd_options_expr *coe) { double dvalue = 0.0; if(coe->expr) dvalue = evaluate(coe->expr); int value = (int) dvalue; switch(coe->co->value) { case TRACE_RAW_CMD: get_trace().dump_raw(value); break; default: cout << " Invalid option\n"; } } void cmd_trace::trace(cmd_options_num *con) { switch(con->co->value) { case TRACE_RAW_CMD: get_trace().dump_raw(con->n); break; case TRACE_MASK_CMD: // trace_watch_register(con->n); cout << "THIS IS BROKEN.... logging register " << con->n << '\n'; break; default: cout << " Invalid trace option\n"; } } void cmd_trace::trace(cmd_options_str *cos) { switch(cos->co->value) { case TRACE_LOGON_CMD: get_trace().enableLogging(cos->str); break; case TRACE_SAVE_CMD: { FILE *fp = fopen(cos->str,"w"); if(fp) { get_trace().dump(-1,fp); fclose(fp); } } break; default: cout << " Invalid set option\n"; } } gpsim-0.27.0/cli/cmd_clear.h0000644000076400007640000000164110416273023012501 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_CLEAR_H__ #define __CMD_CLEAR_H__ class Expression; class cmd_clear : public command { public: cmd_clear(void); void clear(Expression *); }; extern cmd_clear clear; #endif gpsim-0.27.0/cli/cmd_processor.cc0000644000076400007640000001003111177746154013600 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "command.h" #include "cmd_processor.h" #include "../src/sim_context.h" cmd_processor c_processor; static cmd_options cmd_processor_options[] = { {"list",1, OPT_TT_BITFLAG}, {"pins",2, OPT_TT_BITFLAG}, {0,0,0} }; static void put_chars(char c, int number_of_chars) { for(int i=0; iget_pin_count(); if(number_of_pins <= 0) return; for(i=1; i<=number_of_pins/2; i++) { const char *s = cpu->get_pin_name(i).c_str(); if(s) if( (j=strlen(s)) > longest_name) longest_name = j; } printf(" +--+"); put_chars('-',longest_name+3); printf("\\/"); put_chars('-',longest_name+3); printf("+--+\n"); for(i=1; i<=number_of_pins/2; i++) { const char *s = cpu->get_pin_name(i).c_str(); if(s) { putchar( (cpu->get_pin_state(i)>0) ? 'H' : 'L'); printf(" |%2d| %s",i, s); put_chars(' ',longest_name - strlen(cpu->get_pin_name(i).c_str()) + 6 ); } else { printf(" |%2d| ", i); put_chars(' ',longest_name + 6); } j = number_of_pins-i+1; s = cpu->get_pin_name(j).c_str(); if(s) { printf("%s |%2d| ", s, j); putchar( (cpu->get_pin_state(j)>0) ? 'H' : 'L'); putchar('\n'); } else { put_chars(' ',longest_name); printf(" |%2d|\n", j); } } printf(" +--+"); put_chars('-',2*longest_name+8); printf("+--+\n"); } cmd_processor::cmd_processor() : command("processor", "proc") { brief_doc = string("Select & Display processors"); long_doc = string ("processor [new_processor_type [new_processor_name]] | [list] | [dump]\n" "\tIf no new processor is specified, then the currently defined processor(s)\n" "\twill be displayed. To see a list of the processors supported by gpsim,\n" "\ttype 'processor list'. To define a new processor, specify the processor\n" "\ttype and name. To display the state of the I/O processor, type 'processor\n" "\tdump' (For now, this will display the pin numbers and their current state.\n" "\n" "\texamples:\n" "\n" "\tprocessor // Display the processors you've already defined.\n" "\tprocessor list // Display the list of processors supported.\n" "\tprocessor pins // Display the processor package and pin state\n" "\tprocessor p16cr84 fred // Create a new processor.\n" "\tprocessor p16c74 wilma // and another.\n" "\tprocessor p16c65 // Create one with no name.\n"); op = cmd_processor_options; } void cmd_processor::processor(void) { if(verbose) cout << "cmd_processor: display processors\n"; CSimulationContext::GetContext()->dump_processor_list(); } void cmd_processor::processor(int bit_flag) { switch(bit_flag) { case 1: cout << ProcessorConstructorList::GetList()->DisplayString(); break; case 2: dump_pins(GetActiveCPU()); break; } } void cmd_processor::processor(const char * processor_type, const char * processor_new_name) { if(!CSimulationContext::GetContext()->SetDefaultProcessor( processor_type, processor_new_name)) cout << "Unable to find processor\n"; } gpsim-0.27.0/cli/cmd_bus.cc0000644000076400007640000000357610644005165012356 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "command.h" #include "cmd_bus.h" cmd_bus c_bus; //extern void dump_bus_list(void); //extern void add_bus(char *node_name); static cmd_options cmd_bus_options[] = { {0,0,0} }; cmd_bus::cmd_bus() : command("bus",0) { brief_doc = string("Add or display node busses"); long_doc = string ("bus [new_bus1 new_bus2 ...]\n" "\t If no new_bus is specified then all of the busses that have been\n" "\tdefined are displayed. If a new_bus is specified then it will be\n" "\tadded to the bus list. See the \"attach\" and \"stimulus\" commands\n" "\tto see how stimuli are added to the busses.\n" "\n" "\texamples:\n" "\n" "\tbus // display the bus list\n" "\tbus b1 b2 b3 // create and add 3 new busses to the list\n"); op = cmd_bus_options; } void cmd_bus::list_busses(void) { // dump_bus_list(); } void cmd_bus::add_busses(list * busses) { /* if(busses) { list :: iterator si; for (si = busses->begin(); si != busses->end(); ++si) { string s = *si; add_bus((char *)s.c_str()); } } */ } gpsim-0.27.0/cli/scan.h0000644000076400007640000000206510416273023011515 00000000000000/* Copyright (C) 1998,1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ // Portions of this were obtained from octave. #if !defined (__SCAN_H_) #define __SCAN_H_ int scan_read (char *buf, unsigned max_size); #ifdef YY_INPUT #undef YY_INPUT #endif #define YY_INPUT(buf,result,max_size) \ if ((result = scan_read (buf, max_size)) < 0) \ YY_FATAL_ERROR ("gpsim_read () in flex scanner failed"); #endif gpsim-0.27.0/cli/README0000644000076400007640000000253310416273023011300 00000000000000 gpsim - Gnu Pic Simulator, a simulator for Microchip's PIC microcontrollers. cli - Command Line Interface Obligatory GPL stuff: =========================================================================== Copyright (C) 1998,1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. =========================================================================== gpsim/cli provides the command line interface for gpsim. As of gpsim-0.0.13, lex & yacc (or actually flex & bison) are used as the parser and the lexical analyzer. Together, these provide gpsim's grammar. The gnu readline library provides command line editing like you find in most terminal programs. This textual interface is very similar to gdb. Scottgpsim-0.27.0/cli/cmd_load.cc0000664000076400007640000001600612160746027012502 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "command.h" #include "cmd_load.h" #include "input.h" #include "../src/sim_context.h" #include "../src/processor.h" #include "../src/fopen-path.h" #include "../src/hexutils.h" #include "../src/eeprom.h" #include "../src/pic-processor.h" #include "../src/i2c-ee.h" extern int parser_warnings; extern void redisplay_prompt(void); // in input.cc // instead of including the whole symbol.h file, just get what we need: void display_symbol_file_error(int); cmd_load c_load; #define CMD_LOAD_HEXFILE 1 #define CMD_LOAD_CMDFILE 2 #define CMD_LOAD_CODFILE 3 // s for Symbol file #define CMD_LOAD_INCLUDE_CMDFILE 4 // like load, but don't change directories. #define CMD_LOAD_EEPROM 5 static cmd_options cmd_load_options[] = { {"h",CMD_LOAD_HEXFILE, OPT_TT_BITFLAG}, {"c",CMD_LOAD_CMDFILE, OPT_TT_BITFLAG}, {"s",CMD_LOAD_CODFILE, OPT_TT_BITFLAG}, {"i",CMD_LOAD_INCLUDE_CMDFILE, OPT_TT_BITFLAG}, {"e",CMD_LOAD_EEPROM, OPT_TT_BITFLAG}, { 0,0,0} }; cmd_load::cmd_load() : command("load","ld") { brief_doc = string("Load either a program or command file"); long_doc = string ("load [processortype] programfile \ \nload [i] cmdfile.stc\ \n\n\tLoad either a program or command file. Program files may be in\ \n\thex or cod (symbol) file format.\ \n\t(Byte Craft's .cod files are the only program files with symbols\ \n\tthat are recognized.)\ \n\ \n\t processortype - (optional) Name of the processor type simulation\ \n\t to load the program file.\ \n\t Ignored if the processor command has been previous\ \n\t used.\ \n\t codfile - a hex or cod formatted file. Cod is often called\ \n\t a symbol file.\ \n\t cmdfile.stc - a gpsim command file. Must have an .stc extension.\ \n\ \n\t By default, .stc files residing in other directories will change\ \n\t the working directory. The 'i' option overides that behavior. \ \n\ \nload e module_name hexfile\ \n\ \n\t This command loads the contents of either a module or processor\ \n\t EEPROM from an Intel hex format file. The address of the first\ \n\t cell of the EEPROM is 0x0000. \ \n\t This command will load a file generated by the 'dump e' command and\ \n\t thus can be used to restore state of EEPROM from a previous run.\ \n\ \n\tdeprecated:\ \n\t load h | c | s file_name\ \n\t load s perfect_program.cod\ \n\t will load the symbol file perfect_program.cod\ \n\t note that the .cod file contains the hex stuff\ \n"); op = cmd_load_options; } //-------------------- // // #define MAX_LINE_LENGTH 256 extern void process_command_file(const char * file_name, bool bCanChangeDirectory); /** * cmd_load.load() * returns boolean */ int cmd_load::load(int bit_flag,const char *filename) { int iReturn = (int)TRUE; bool bCanChangeDirectories=true; switch(bit_flag){ case CMD_LOAD_HEXFILE: FILE *file; Processor *cpu; cout << "cmd_load::load hex file " << filename << '\n'; if ((cpu = get_active_cpu()) == NULL) { fprintf(stderr, "cmd_load:: load hex, Processor not defined\n"); iReturn = (int)FALSE; } else if ((file = fopen(filename, "r")) == NULL) { perror(filename); iReturn = (int)FALSE; } else { IntelHexProgramFileType::readihex16 (cpu, file); fclose(file); //cmd_cpu->regwin_eeprom->Update(); } break; case CMD_LOAD_CODFILE: if(verbose) { switch(bit_flag) { case CMD_LOAD_HEXFILE: cout << "cmd_load::load hex file " << filename << '\n'; break; case CMD_LOAD_CODFILE: cout << " cmd_load::load cod file " << filename << '\n'; break; } } iReturn = CSimulationContext::GetContext()->LoadProgram( filename); break; case CMD_LOAD_INCLUDE_CMDFILE: bCanChangeDirectories = false; // ... fall through case CMD_LOAD_CMDFILE: /* Don't display parser warnings will processing the command file */ parser_warnings = 0; process_command_file(filename,bCanChangeDirectories); parser_warnings = 1; break; default: cout << "Unknown option flag" << endl; iReturn = (int)FALSE; // as a boolean } // Most of the time diagnostic info will get printed while a processor // is being loaded. redisplay_prompt(); return iReturn; } int cmd_load::load(int bit_flag, gpsimObject* module, const char *filename) { Register ** fr=0; gint32 mem_size; char s1[256]; string symName; pic_processor *pic; I2C_EE *eeprom; FILE *fd; PromAddress *sym; int iReturn = (int)TRUE; module->name(s1, sizeof(s1)); symName = s1; symName += ".eeprom"; fprintf(stdout, "cmd_load module=%s file=%s\n", s1, filename); if (bit_flag != CMD_LOAD_EEPROM) { cout << "Unknown option flag with module, filename" << endl; return (int)FALSE; } if ((fd = fopen(filename, "r")) == NULL) { perror(filename); return (int)FALSE; } if (( pic = dynamic_cast (module)) && pic->eeprom) { fr = pic->eeprom->get_rom(); mem_size = pic->eeprom->get_rom_size(); iReturn = IntelHexProgramFileType::readihex8(fr, mem_size, fd, 0x0) == SUCCESS; } else if ((sym = dynamic_cast(globalSymbolTable().find(symName)))) { sym->get(eeprom); fr = eeprom->get_rom(); mem_size = eeprom->get_rom_size(); iReturn = IntelHexProgramFileType::readihex8(fr, mem_size, fd, 0x0000) == SUCCESS; } else { cout << "*** Error cmd_load module " << s1 << " not EEPROM" << endl; iReturn = (int)FALSE; } if (fd) fclose(fd); return iReturn; } //------------------------------------------------------------------------ // // load static int load1(const char *s1, const char *s2) { FILE *fp = fopen_path(s1,"rb"); if (fp) { fclose (fp); return gpsim_open(get_active_cpu(), s1, s2, 0); } if(!s2) // can be called s1=name s2=file perror(s1); return s2 ? gpsim_open(get_active_cpu(), s2, 0, s1) : 0; } int cmd_load::load(gpsimObject *file, gpsimObject *pProcessorType) { cout << endl; char s1[256]; file->toString(s1, sizeof(s1)); if (pProcessorType) { char s2[256]; pProcessorType->toString(s2, sizeof(s2)); return load1(s1, s2); } return load1(s1,0); } int cmd_load::load(const char *file, const char *pProcessorType) { return load1 (file, pProcessorType); } gpsim-0.27.0/cli/cmd_version.cc0000644000076400007640000000227210563700567013252 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "command.h" #include "cmd_version.h" cmd_version version; extern void gpsim_version(void); static cmd_options cmd_version_options[] = { {0,0,0} }; cmd_version::cmd_version() : command("version", "ver") { brief_doc = string("Display the gpsim's version"); long_doc = string("Display the gpsim's version"); op = cmd_version_options; } void cmd_version::version() { gpsim_version(); } gpsim-0.27.0/cli/INSTALL0000644000076400007640000000027110416273023011446 00000000000000 Installation instructions: NONE. The higher level subdirectory will invoke the make file in the cli subdirectory. The make file creates a library against which the simulator may link.gpsim-0.27.0/cli/cmd_list.cc0000644000076400007640000000454011116621771012532 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "command.h" #include "cmd_list.h" #include "../src/pic-processor.h" cmd_list c_list; static cmd_options cmd_list_options[] = { {"l",1, OPT_TT_BITFLAG}, {"s",2, OPT_TT_BITFLAG}, { 0,0,0} }; cmd_list::cmd_list() : command("list",0) { brief_doc = string("Display source and list files"); long_doc = string("list [[s | l] [*pc] [line_number1 [,line_number2]]]\n" "\n" "\tDisplay the contents of source and list files.\n" "\tWithout any options, list will use the last specified options.\n" "\tlist s will display lines in the source (or .asm) file.\n" "\tlist l will display lines in the .lst file\n" "\tlist *pc will display either .asm or .lst lines around the\n" "\t value specified by pc (e.g. list *20 will list lines around\n" "\t address 20)\n" "\tline_number1, line_number2 - specify the list range.\n" "\n" "\tExamples:\n" "\tlist s *0x3a -5 5\n" "\t will list 11 lines (5 before, 5 after, & 1 at) around addr 3a\n" "\tlist\n" "\t repeat the last list except use the current pc as the reference.\n" "\tlist l\n" "\t will list lines from .lst file around the current pc.\n"); op = cmd_list_options; file_id = 0; starting_line = -5; ending_line = +5; } void cmd_list::list(void) { Processor *pCpu = GetActiveCPU(true); if(pCpu) pCpu->list(file_id,pCpu->pc->value,starting_line,ending_line); } void cmd_list::list(cmd_options *opt) { switch(opt->value) { case 1: file_id = 1; break; case 2: file_id = 0; break; } list(); } gpsim-0.27.0/cli/command.h0000644000076400007640000000562211116621771012216 00000000000000/* Copyright (C) 1998,199 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #if !defined (__COMMAND_H_) #define __COMMAND_H_ #include #include using namespace std; #include #include #include "misc.h" #include "../src/errors.h" #include "../src/expr.h" #include "../src/gpsim_def.h" class Processor; enum COMMAND_MODES { NO_COMMAND, COMMAND_PENDING, COMMAND_ERROR }; // Token types for command options #define OPT_TT_BITFLAG 1 // #define OPT_TT_NUMERIC 2 // indicates that a numeric parameter // is associated with the option #define OPT_TT_STRING 3 // indicates that a string parameter // is associated with the option #define OPT_TT_SUBTYPE 4 // indicates that this command can // be subtyped (e.g. the stimulus command // is subtyped by the type of stimulus // that is being created). #define OPT_TT_SYMBOL 5 // A symbol is the option parameter class command { public: struct cmd_options *op; string brief_doc; string long_doc; int token_value; virtual bool can_span_lines() {return 0;}; command(const char *_name, const char *_abbr); virtual ~command() {} struct cmd_options *get_op() { return op; }; const char *name() { return m_pName; } const char *abbreviation() { return m_pAbbreviation; } static Processor * GetActiveCPU(bool bDisplayWarnings=false); int get_token() {return token_value;}; // Assume command is not repeatable virtual int is_repeatable() { return 0; }; virtual double evaluate(Expression *); virtual void evaluate(ExprList_t *eList,guint64 *, int *); virtual Value *toValue(Expression *expr); private: const char *m_pName; const char *m_pAbbreviation; }; class cmd_options_expr { public: cmd_options_expr(cmd_options *, Expression *); ~cmd_options_expr(); cmd_options *co; Expression *expr; }; extern command *command_list[]; extern int number_of_commands; extern command *search_commands(const string &s); extern int quit_gpsim; extern void execute_line(char *); #define DEBUG_PARSER 0 //======================================== // typedefs typedef list StringList_t; #endif gpsim-0.27.0/cli/input.h0000644000076400007640000000247311152573673011747 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __INPUT_H__ #define __INPUT_H__ #define CONTINUING_LINE 1 extern int gpsim_read (char *buf, unsigned max_size); extern void initialize_readline (void); extern void exit_cli(void); extern void exit_gpsim(int); extern void SetLastFullCommand(const char *pCmd); extern const char * GetLastFullCommand(); extern void EnableSTCEcho(bool bEnable); #ifndef HAVE_GUI extern char *gnu_readline (char *s, unsigned int force_readline); #endif class Processor; extern int gpsim_open(Processor *cpu, const char *file, const char *pProcessorType, const char *pProcessorName); #endif gpsim-0.27.0/cli/cmd_frequency.cc0000644000076400007640000000376211116621771013565 00000000000000/* Copyright (C) 2001 Salvador E. Tropea This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include #include "command.h" #include "cmd_frequency.h" #include "../src/pic-processor.h" static cmd_options cmd_frequency_options[] = { {0,0,0} }; cmd_frequency::cmd_frequency(void) : command("frequency", "freq") { brief_doc = string("Set the clock frequency"); long_doc = string ("\nfrequency [value]\n" "\tThis command sets the clock frequency. By default gpsim uses 4 MHz\n" "\tas clock. The clock frequency is used to compute time in seconds.\n" "\tUse this command to adjust this value.\n" "\tIf no value is provided this command prints the current clock.\n" "\tNote that PICs have an instruction clock that's a forth of the\n" "\texternal clock. This value is the external clock.\n"); op = cmd_frequency_options; } void cmd_frequency::set(Expression *expr) { Processor *pCpu = GetActiveCPU(true); if(!pCpu) return; double frequency = evaluate(expr); if(frequency <= 0.0) cout << "Error: the clock must be a positive value.\n"; else pCpu->set_frequency(frequency); } void cmd_frequency::print() { Processor *pCpu = GetActiveCPU(true); if(pCpu) cout << "Clock frequency: " << pCpu->get_frequency()/1e6 << " MHz.\n"; } cmd_frequency frequency; gpsim-0.27.0/cli/cmd_run.h0000644000076400007640000000166610416273023012226 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_RUN_H__ #define __CMD_RUN_H__ class cmd_run : public command { public: cmd_run(); void run(); virtual int is_repeatable() { return 1; }; }; extern cmd_run c_run; extern bool GbDoRun; #endif gpsim-0.27.0/cli/cmd_echo.cc0000644000076400007640000000222610563700567012502 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "command.h" #include "cmd_echo.h" // See cmd_echo.h for why this file is basically a skeleton cmd_echo echo; static cmd_options cmd_echo_options[] = { {0,0,0} }; cmd_echo::cmd_echo() : command("echo",0) { brief_doc = string("echo \"text\""); long_doc = string ("echo \"text\" - useful for command files\n"); token_value = 0; op = cmd_echo_options; } gpsim-0.27.0/cli/misc.h0000644000076400007640000000227611116621771011535 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __MISC_H__ #define __MISC_H__ #include "../src/cmd_gpsim.h" // miscellaneous definitions that are used struct cmd_options { const char *name; int value; int token_type; }; /* Command option with a numeric parameter */ struct cmd_options_num { cmd_options *co; int n; }; /* Command option with a string parameter */ class cmd_options_str { public: cmd_options *co; char *str; cmd_options_str(const char *); ~cmd_options_str(); }; #endif gpsim-0.27.0/cli/cmd_symbol.h0000644000076400007640000000230210644005165012716 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_SYMBOL_H__ #define __CMD_SYMBOL_H__ class Expression; class gpsimObject; class cmd_symbol : public command { public: cmd_symbol(); void dump_all(); void dump_one(const char *sym_name); void dump_one(gpsimObject *); void dump(gpsimObject *, ExprList_t*); void EvaluateAndDisplay(Expression *pExpr); void Set(gpsimObject *s, ExprList_t*e, Expression *pExpr); void add_one(const char *sym_name, Expression *); }; extern cmd_symbol c_symbol; #endif gpsim-0.27.0/cli/cmd_help.h0000644000076400007640000000177210644005165012353 00000000000000/* Copyright (C) 1998,199 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_HELP_H__ #define __CMD_HELP_H__ class gpsimObject; class cmd_help : public command { public: cmd_help(); void help(); void help(const char *cmd); void help(gpsimObject *); virtual int is_repeatable() { return 1; }; }; extern cmd_help help; #endif gpsim-0.27.0/cli/makefile.mingw0000664000076400007640000000354412202777764013265 00000000000000## Makefile for building the gpsim with gcc for mingw. The build ## uses tools running on cygwin, however. ## Use: make -f makefile.mingw TOP = ../.. include ../plat/win32/make.mingw ################################################################ # Nothing much configurable below INCLUDES = -I ../.. -I ../plat/win32 \ -I $(GLIB_PATH)/include/glib-2.0 -I $(GLIB_PATH)/lib/glib-2.0/include \ -I $(GTK_PATH)/include/gtk-2.0 -I $(GTK_PATH)/lib/gtk-2.0/include \ -I $(CAIRO_PATH)/include/cairo \ -I $(GDK_PIXBUF_PATH)/include/gdk-pixbuf-2.0 \ -I $(PANGO_PATH)/include/pango-1.0 \ -I $(READLINE_PATH)/include DEFINES += -DHAVE_READLINE -DHAVE_GUI -DHAVE_NSCLEAN_READLINE -DUSE_READLINE_DLL -DYYSTACK_USE_ALLOCA -DHAVE_SOCKETS # -DREADLINE_STATIC all : \ ../config.h \ libcli.a cli_OBJECTS = \ cmd_attach.o \ cmd_break.o \ cmd_bus.o \ cmd_clear.o \ cmd_disasm.o \ cmd_dump.o \ cmd_echo.o \ cmd_frequency.o \ cmd_help.o \ cmd_icd.o \ cmd_list.o \ cmd_load.o \ cmd_log.o \ cmd_macro.o \ cmd_module.o \ cmd_node.o \ cmd_processor.o \ cmd_quit.o \ cmd_reset.o \ cmd_run.o \ cmd_set.o \ cmd_shell.o \ cmd_step.o \ cmd_stimulus.o \ cmd_stopwatch.o \ cmd_symbol.o \ cmd_trace.o \ cmd_version.o \ cmd_x.o \ command.o \ fd2raw.o \ input.o \ parse.o \ scan.o \ socket.o \ ui_gpsim.o ../config.h : ../config_win32.h.in (cd .. ; $(AWK) -f plat/win32/configure_win32.awk config_win32.h.in > config.h) fd2raw.o : ../plat/win32/fd2raw.cpp $(CXX) $(CFLAGS) -c -o fd2raw.o ../plat/win32/fd2raw.cpp parse.o : parse.cc scan.o : scan.cc parse.h parse.cc : parse.yy $(BISON) -dt -o parse.cc parse.yy $(RM) -f parse.h $(MV) parse.hh parse.h scan.cc : scan.ll parse.h $(FLEX) -oscan.cc scan.ll ################ The libcli LIB libcli.a : $(cli_OBJECTS) $(RM) -f $@ $(AR) $(ARFLAGS) $@ $(cli_OBJECTS) gpsim-0.27.0/cli/cmd_list.h0000644000076400007640000000200110416273023012355 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_LIST_H__ #define __CMD_LIST_H__ class cmd_list : public command { public: int file_id, starting_line, ending_line; cmd_list(void); void list(void); void list(cmd_options *opt); virtual int is_repeatable(void) { return 1; }; }; extern cmd_list c_list; #endif gpsim-0.27.0/cli/cmd_stimulus.cc0000644000076400007640000002745410644005165013453 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include #include "command.h" #include "cmd_stimulus.h" #include "../src/pic-processor.h" #include "../src/stimuli.h" #include "../src/symbol.h" static ValueStimulus *last_stimulus=0; cmd_stimulus c_stimulus; #define ASYNCHRONOUS_STIMULUS 1 #define SYNCHRONOUS_STIMULUS 2 #define STIM_NOTHING 0 #define STIM_PERIOD (1 << 0) #define STIM_PHASE (1 << 1) #define STIM_HIGH_TIME (1 << 2) #define STIM_INITIAL_STATE (1 << 3) #define STIM_START_CYCLE (1 << 4) #define STIM_DATA (1 << 5) #define STIM_ASY (1 << 7) #define STIM_SQW (1 << 8) #define STIM_NAME (1 << 9) #define STIM_TRI (1 << 10) #define STIM_ATTRIBUTE (1 << 11) #define STIM_ANALOG (1 << 12) #define STIM_DIGITAL (1 << 13) #define STIM_DUMP (1 << 14) const unsigned int SQW_OPTIONS = STIM_SQW | STIM_PERIOD | STIM_PHASE | STIM_HIGH_TIME | STIM_START_CYCLE; const unsigned int ASY_OPTIONS = STIM_ASY | STIM_PERIOD | STIM_PHASE | STIM_HIGH_TIME | STIM_START_CYCLE | STIM_DATA; const unsigned int TRI_OPTIONS = STIM_TRI | STIM_PERIOD | STIM_PHASE | STIM_HIGH_TIME | STIM_START_CYCLE; const unsigned int ATTR_OPTIONS = STIM_ATTRIBUTE | STIM_PERIOD | STIM_PHASE | STIM_HIGH_TIME | STIM_START_CYCLE | STIM_DATA; static cmd_options cmd_stimulus_options[] = { {"asy", STIM_ASY, OPT_TT_SUBTYPE}, {"asynchronous_stimulus", STIM_ASY, OPT_TT_SUBTYPE}, {"attr", STIM_ATTRIBUTE, OPT_TT_SUBTYPE}, {"attribute_stimulus", STIM_ATTRIBUTE, OPT_TT_SUBTYPE}, {"period", STIM_PERIOD, OPT_TT_NUMERIC}, {"phase", STIM_PHASE, OPT_TT_NUMERIC}, {"high_time", STIM_HIGH_TIME, OPT_TT_NUMERIC}, {"initial_state", STIM_INITIAL_STATE, OPT_TT_NUMERIC}, {"start_cycle", STIM_START_CYCLE, OPT_TT_NUMERIC}, {"start", STIM_START_CYCLE, OPT_TT_NUMERIC}, {"name", STIM_NAME, OPT_TT_STRING}, {"digital", STIM_DIGITAL, OPT_TT_BITFLAG}, {"analog", STIM_ANALOG, OPT_TT_BITFLAG}, {"d", STIM_DUMP, OPT_TT_BITFLAG}, {"dump", STIM_DUMP, OPT_TT_BITFLAG}, {"sqw", STIM_SQW, OPT_TT_SUBTYPE}, {"square_wave", STIM_SQW, OPT_TT_SUBTYPE}, {"tri", STIM_TRI, OPT_TT_SUBTYPE}, {"triangle_wave", STIM_TRI, OPT_TT_SUBTYPE}, { 0,0,0} }; cmd_stimulus::cmd_stimulus() : command("stimulus","stim") { brief_doc = string("Create a stimulus"); long_doc = string ("\nstimulus [[type] options]\n" "\tstimulus will create a signal that can be tied to a node or an\n" "\attribute. Note that in most cases it is easier to create a\n" "\tstimulus file then to type this by hand.\n" "\n" "\t Supported stimuli:\n" "\n" //"\tsquare_wave | sqw [period p] [high_time h] [phase ph] [initial_state i]\n" //"\t port port_name bit_pos end\n" //"\t\t creates a square wave with a period of \"p\" cpu cycles.\n" //"\t\t If the high time is specified then that's the number of cycles\n" //"\t\t the square wave will be high.\n" //"\t\t The phase is with respect to the cpu's cycle counter.\n" //"\t\t The \"port_name\" and \"bit_pos\" describe where the stimulus\n" //"\t\t will be attached.\n" "\tasynchronous_stimulus | asy [period p] [phase ph] [initial_state i]\n" "\t { c0,e0 [,c1, e1, c2, e2, ... ,cn,en] } [name stim_name] end\n" "\t\t creates an asynchronous square wave with a period of \"p\" cpu\n" "\t\t cycles. The phase is with respect to the cpu's cycle counter.\n" "\t\t The data is specified as a pair of expressions. The first expression\n" "\t\t is for the cycle time and the second is the data. " "\n" "\texamples:\n" "\n" //"\t stimulus sqw period 200 high_time 20 phase 60 port portb 0 end\n" //"\t create a square wave stimulus that repeats every 200 cpu cycles,\n" //"\t is high for 20 cpu cycles (and low for 200-20=180 cycles). The\n" //"\t first rising edge will occur at cycle\n" //"\t 60, the second at 260, . . . Bit 0 of portb will receive the stimulus.\n" "\t # define a stimulus to generate two pulses every 1000 cycles\n" "\t \n" "\t stimulus asynchronous_stimulus \n" "\t \n" "\t # The initial state AND the state the stimulus is when\n" "\t # it rolls over\n" "\t \n" "\t initial_state 0\n" "\t start_cycle 0\n" "\t \n" "\t # the asynchronous stimulus will roll over in 'period'\n" "\t # cycles. Delete this line if you don't want a roll over.\n" "\t \n" "\t period 1000\n" "\t \n" "\t { 100, 1,\n" "\t 200, 0,\n" "\t 300, 1,\n" "\t 400, 0\n" "\t }\n" "\t \n" "\t # Give the stimulus a name:\n" "\t \n" "\t name two_pulse_repeat\n" "\t \n" "\t end\n" "\n"); op = cmd_stimulus_options; options_entered = 0; } void dumpStimulus(const SymbolEntry_t &sym) { stimulus *ps = dynamic_cast(sym.second); if (ps) { cout << ps->name(); ps->show(); cout << endl; } } void dumpStimuli(const SymbolTableEntry_t &st) { cout << " Symbol Table: " << st.first << endl; (st.second)->ForEachSymbolTable(dumpStimulus); } void cmd_stimulus::stimulus() { cout << "\nSymbol table\n"; globalSymbolTable().ForEachModule(dumpStimuli); } //------------------------------------------------------------------ // stimulus(int bit_flag) // // For the bit_flags of SQW, ASY, TRI: // A new stimulus is dynamically created and a pointer to it is // is assigned to 'last_stimulus'. The last_stimulus also acts like // a flag. If it is non-null then a stimulus is in the process of // being created. When the stimulus 'end' option is specified at the // cli, then 'last_stimulus' is set to NULL. Note the memory for // used by the last stimulus is created here, but destroyed by the // stimulus code in ../src/stimuli.cc . // void cmd_stimulus::stimulus(int bit_flag) { switch(bit_flag) { case STIM_SQW: if(verbose) cout << "creating sqw stimulus\n"; if(!last_stimulus) { //create_stimulus(NEW_SQW,stim_name); valid_options = SQW_OPTIONS; options_entered = STIM_SQW; //last_stimulus = new square_wave; } else cout << "warning: ignoring sqw stim creation"; break; case STIM_ASY: if(verbose) cout << "creating asy stimulus\n"; if(!last_stimulus) { //create_stimulus(NEW_ASY,stim_name); last_stimulus = new ValueStimulus; valid_options = ASY_OPTIONS; options_entered = STIM_ASY; }else cout << "warning: ignoring asy stim creation"; break; case STIM_ATTRIBUTE: if(verbose) cout << "creating asy stimulus\n"; if(!last_stimulus) { last_stimulus = new AttributeStimulus; valid_options = ATTR_OPTIONS; options_entered = STIM_ATTRIBUTE; }else cout << "warning: ignoring asy stim creation"; break; case STIM_TRI: if(verbose) cout << "creating tri stimulus\n"; if(!last_stimulus) { //create_stimulus(NEW_TRI,stim_name); //last_stimulus = new triangle_wave; valid_options = TRI_OPTIONS; options_entered = STIM_TRI; } else cout << "warning: ignoring tri stim creation"; break; case STIM_DUMP: stimulus(); // Display the list of stimuli. return; case STIM_DIGITAL: if(last_stimulus) last_stimulus->set_digital(); return; case STIM_ANALOG: if(last_stimulus) last_stimulus->set_analog(); return; default: cout << " Invalid stimulus option\n"; return; } } void cmd_stimulus::stimulus(cmd_options_expr *coe) { /* double dvalue = 0.0; if(coe->expr) dvalue = evaluate(coe->expr); int value = (int) dvalue; */ if (!coe || !coe->expr) return; Value *value = toValue(coe->expr); switch(coe->co->value) { case STIM_PHASE: if(verbose) cout << "stimulus command got the phase " << value << '\n'; if(last_stimulus) last_stimulus->put_phase(value); break; case STIM_PERIOD: if(verbose) cout << "stimulus command got the period " << value << '\n'; if(last_stimulus) last_stimulus->put_period(value); break; case STIM_HIGH_TIME: if(verbose) cout << "stimulus command got the high_time " << value << '\n'; if(last_stimulus) last_stimulus->put_duty(value); break; case STIM_INITIAL_STATE: if(verbose) cout << "stimulus command got the initial_state " << value << '\n'; if(last_stimulus) last_stimulus->put_initial_state(value); break; case STIM_START_CYCLE: if(verbose) cout << "stimulus command got the start_cycle " << value << '\n'; if(last_stimulus) last_stimulus->put_start_cycle(value); break; default: cout << " Invalid stimulus option\n"; return; } options_entered |= coe->co->value; delete coe->expr; delete value; } void cmd_stimulus::stimulus(cmd_options_str *cos) { if(!last_stimulus) { cout << "warning: Ignoring stimulus (string) option because there's no stimulus defined.\n"; return; } switch(cos->co->value) { case STIM_NAME: if(verbose) cout << "stimulus command got the name " << cos->str << '\n'; last_stimulus->new_name(cos->str); break; } options_entered |= cos->co->value; } void cmd_stimulus::stimulus(ExprList_t *eList) { ExprList_itor ei; bool bHaveSample=false; ValueStimulusData sample; sample.time = 0; sample.v = 0; if(last_stimulus) { for(ei = eList->begin(); ei != eList->end(); ++ei) { try { Value *v = (*ei)->evaluate(); if(!bHaveSample) { v->get(sample.time); delete v; bHaveSample = true; } else { sample.v = v; last_stimulus->put_data(sample); bHaveSample = false; have_data = 1; } } catch (Error *err) { if(err) cout << "ERROR:" << err->toString() << endl; delete err; } } } eList->clear(); delete eList; } //----------------- // end() // All of the stimulus' options have been entered. Now it's time // to create the stimulus. void cmd_stimulus::end() { if(!last_stimulus) { cout << "warning: Ignoring stimulus (string) option because there's no stimulus defined."; return; } switch( options_entered & (STIM_SQW | STIM_TRI | STIM_ASY | STIM_ATTRIBUTE)) { case STIM_SQW: if(verbose) cout << "created sqw stimulus\n"; break; case STIM_ASY: if(verbose) cout << "created asy stimulus\n"; last_stimulus->start(); break; case STIM_ATTRIBUTE: if(verbose) cout << "created attribute stimulus\n"; last_stimulus->start(); break; case STIM_TRI: if(verbose) cout << "creating tri stimulus\n"; break; } last_stimulus = 0; } gpsim-0.27.0/cli/cmd_help.cc0000644000076400007640000000440110705350056012501 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "command.h" #include "cmd_help.h" #include "../src/value.h" static cmd_options cmd_help_options[] = { { 0, 0, 0 } }; cmd_help help; cmd_help::cmd_help() : command("help",0) { brief_doc = string("Type help \"command\" for more help on a command"); long_doc = string ("\n\tgpsim is a software simulator for the Microchip PIC microcontrollers\n\ \tPlease refer to the distributed README files and the ./doc subdirectory\n\ \tfor more information\n\ \n\tTo get help on a command, type help \"command\"\n\ \n\tIn addition, help on most symbols can be obtained by help\"symbol name\"\n\ \n\t(Use the symbol command to see the currently defined symbols\n\ " ); op = cmd_help_options; } void cmd_help::help(void) { for(int i=0; iname(); int l = 16 - strlen(pCmd->name()); if(pCmd->abbreviation() != 0) { cout << ":" << pCmd->abbreviation(); l -= strlen(pCmd->abbreviation()) + 1; } for(int k=0; kbrief_doc << '\n'; } } void cmd_help::help(const char *cmd) { command * pCmd = search_commands(cmd); if(pCmd != 0) { cout << pCmd->long_doc << '\n'; return; } cout << cmd << " is not a valid gpsim command. Try these instead:\n"; help(); } void cmd_help::help(gpsimObject *s) { if(s) { cout << s->toString() << endl; cout << s->description() << endl; } } gpsim-0.27.0/cli/cmd_reset.h0000644000076400007640000000161010416273023012531 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_RESET_H__ #define __CMD_RESET_H__ class cmd_reset : public command { public: cmd_reset(void); void reset(void); }; extern cmd_reset reset; #endif gpsim-0.27.0/cli/cmd_disasm.cc0000644000076400007640000000544210563700567013047 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "command.h" #include "cmd_disasm.h" #include "../src/pic-processor.h" cmd_disassemble disassemble; static cmd_options cmd_disassemble_options[] = { {0,0,0} }; cmd_disassemble::cmd_disassemble() : command("disassemble", "da") { brief_doc = string("Disassemble the current cpu"); long_doc = string ("\ndisassemble [startCount : endCount] | [count]]\n\n\ \t startCount, endCount and count may all be expressions that evaluate\n\ \t to an integer value. The colon is used to indicate a range.\n\n\ \t startCount - Start list with the instruction startCount from the \n\ \t instruction at the PC.\n\ \t endCount - List instruction in the list is the endCount\n\ \t instruction from the PC.\n\ \t count - List count instructions from starting with the\n\ \t instruction at thePC.\n\n\ \t no arguments: disassembles 10 instructions before and 5 after the pc.\n\ \t one argument: disassemble [count] instructions after the pc.\n\ \t two arguments: disassemble from [startCount] to [endCount] relative\n\ \t to the PC.\n\ "); op = cmd_disassemble_options; } void cmd_disassemble::disassemble(Expression *expr) { Processor *cpu = GetActiveCPU(); if(cpu) { // Select a default range: int start = -10; int end = 5; if(expr) { try { Value *v = expr->evaluate(); AbstractRange *ar = dynamic_cast(v); if(ar) { start = ar->get_leftVal(); end = ar->get_rightVal(); } else if (v) { start = 0; gint64 i; v->get(i); end = (int) i; } } catch (Error *err) { if(err) cout << "ERROR:" << err->toString() << endl; delete err; } } if(cpu->pma) { int current_pc = cpu->pma->get_PC(); if(start<0) { start += current_pc; end += current_pc; } cout << hex << " current pc = 0x"<disassemble(start, end); } } } gpsim-0.27.0/cli/cmd_module.h0000644000076400007640000000221510416273023012676 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_MODULE_H__ #define __CMD_MODULE_H__ #include using namespace std; #include "command.h" class cmd_module : public command { public: cmd_module(void); void module(void); void module(cmd_options *opt); void module(cmd_options_str *cos, list *); private: void module(cmd_options_str *cos); void module(cmd_options_str *cos, const char *op1); }; extern cmd_module c_module; #endif gpsim-0.27.0/cli/scan.cc0000664000076400007640000023723712177045220011672 00000000000000 #line 3 "scan.cc" #define YY_INT_ALIGNED short int /* A lexical scanner generated by flex */ #define FLEX_SCANNER #define YY_FLEX_MAJOR_VERSION 2 #define YY_FLEX_MINOR_VERSION 5 #define YY_FLEX_SUBMINOR_VERSION 37 #if YY_FLEX_SUBMINOR_VERSION > 0 #define FLEX_BETA #endif /* First, we deal with platform-specific or compiler-specific issues. */ /* begin standard C headers. */ #include #include #include #include /* end standard C headers. */ /* flex integer type definitions */ #ifndef FLEXINT_H #define FLEXINT_H /* C99 systems have . Non-C99 systems may or may not. */ #if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L /* C99 says to define __STDC_LIMIT_MACROS before including stdint.h, * if you want the limit (max/min) macros for int types. */ #ifndef __STDC_LIMIT_MACROS #define __STDC_LIMIT_MACROS 1 #endif #include typedef int8_t flex_int8_t; typedef uint8_t flex_uint8_t; typedef int16_t flex_int16_t; typedef uint16_t flex_uint16_t; typedef int32_t flex_int32_t; typedef uint32_t flex_uint32_t; #else typedef signed char flex_int8_t; typedef short int flex_int16_t; typedef int flex_int32_t; typedef unsigned char flex_uint8_t; typedef unsigned short int flex_uint16_t; typedef unsigned int flex_uint32_t; /* Limits of integral types. */ #ifndef INT8_MIN #define INT8_MIN (-128) #endif #ifndef INT16_MIN #define INT16_MIN (-32767-1) #endif #ifndef INT32_MIN #define INT32_MIN (-2147483647-1) #endif #ifndef INT8_MAX #define INT8_MAX (127) #endif #ifndef INT16_MAX #define INT16_MAX (32767) #endif #ifndef INT32_MAX #define INT32_MAX (2147483647) #endif #ifndef UINT8_MAX #define UINT8_MAX (255U) #endif #ifndef UINT16_MAX #define UINT16_MAX (65535U) #endif #ifndef UINT32_MAX #define UINT32_MAX (4294967295U) #endif #endif /* ! C99 */ #endif /* ! FLEXINT_H */ #ifdef __cplusplus /* The "const" storage-class-modifier is valid. */ #define YY_USE_CONST #else /* ! __cplusplus */ /* C99 requires __STDC__ to be defined as 1. */ #if defined (__STDC__) #define YY_USE_CONST #endif /* defined (__STDC__) */ #endif /* ! __cplusplus */ #ifdef YY_USE_CONST #define yyconst const #else #define yyconst #endif /* Returned upon end-of-file. */ #define YY_NULL 0 /* Promotes a possibly negative, possibly signed char to an unsigned * integer for use as an array index. If the signed char is negative, * we want to instead treat it as an 8-bit unsigned char, hence the * double cast. */ #define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c) /* Enter a start condition. This macro really ought to take a parameter, * but we do it the disgusting crufty way forced on us by the ()-less * definition of BEGIN. */ #define BEGIN (yy_start) = 1 + 2 * /* Translate the current start state into a value that can be later handed * to BEGIN to return to the state. The YYSTATE alias is for lex * compatibility. */ #define YY_START (((yy_start) - 1) / 2) #define YYSTATE YY_START /* Action number for EOF rule of a given start state. */ #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1) /* Special action meaning "start processing a new file". */ #define YY_NEW_FILE yyrestart(yyin ) #define YY_END_OF_BUFFER_CHAR 0 /* Size of default input buffer. */ #ifndef YY_BUF_SIZE #define YY_BUF_SIZE 16384 #endif /* The state buf must be large enough to hold one state per character in the main buffer. */ #define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type)) #ifndef YY_TYPEDEF_YY_BUFFER_STATE #define YY_TYPEDEF_YY_BUFFER_STATE typedef struct yy_buffer_state *YY_BUFFER_STATE; #endif #ifndef YY_TYPEDEF_YY_SIZE_T #define YY_TYPEDEF_YY_SIZE_T typedef size_t yy_size_t; #endif extern yy_size_t yyleng; extern FILE *yyin, *yyout; #define EOB_ACT_CONTINUE_SCAN 0 #define EOB_ACT_END_OF_FILE 1 #define EOB_ACT_LAST_MATCH 2 #define YY_LESS_LINENO(n) /* Return all but the first "n" matched characters back to the input stream. */ #define yyless(n) \ do \ { \ /* Undo effects of setting up yytext. */ \ int yyless_macro_arg = (n); \ YY_LESS_LINENO(yyless_macro_arg);\ *yy_cp = (yy_hold_char); \ YY_RESTORE_YY_MORE_OFFSET \ (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \ YY_DO_BEFORE_ACTION; /* set up yytext again */ \ } \ while ( 0 ) #define unput(c) yyunput( c, (yytext_ptr) ) #ifndef YY_STRUCT_YY_BUFFER_STATE #define YY_STRUCT_YY_BUFFER_STATE struct yy_buffer_state { FILE *yy_input_file; char *yy_ch_buf; /* input buffer */ char *yy_buf_pos; /* current position in input buffer */ /* Size of input buffer in bytes, not including room for EOB * characters. */ yy_size_t yy_buf_size; /* Number of characters read into yy_ch_buf, not including EOB * characters. */ yy_size_t yy_n_chars; /* Whether we "own" the buffer - i.e., we know we created it, * and can realloc() it to grow it, and should free() it to * delete it. */ int yy_is_our_buffer; /* Whether this is an "interactive" input source; if so, and * if we're using stdio for input, then we want to use getc() * instead of fread(), to make sure we stop fetching input after * each newline. */ int yy_is_interactive; /* Whether we're considered to be at the beginning of a line. * If so, '^' rules will be active on the next match, otherwise * not. */ int yy_at_bol; int yy_bs_lineno; /**< The line count. */ int yy_bs_column; /**< The column count. */ /* Whether to try to fill the input buffer when we reach the * end of it. */ int yy_fill_buffer; int yy_buffer_status; #define YY_BUFFER_NEW 0 #define YY_BUFFER_NORMAL 1 /* When an EOF's been seen but there's still some text to process * then we mark the buffer as YY_EOF_PENDING, to indicate that we * shouldn't try reading from the input source any more. We might * still have a bunch of tokens to match, though, because of * possible backing-up. * * When we actually see the EOF, we change the status to "new" * (via yyrestart()), so that the user can continue scanning by * just pointing yyin at a new input file. */ #define YY_BUFFER_EOF_PENDING 2 }; #endif /* !YY_STRUCT_YY_BUFFER_STATE */ /* Stack of input buffers. */ static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */ static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */ static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */ /* We provide macros for accessing buffer states in case in the * future we want to put the buffer states in a more general * "scanner state". * * Returns the top of the stack, or NULL. */ #define YY_CURRENT_BUFFER ( (yy_buffer_stack) \ ? (yy_buffer_stack)[(yy_buffer_stack_top)] \ : NULL) /* Same as previous macro, but useful when we know that the buffer stack is not * NULL or when we need an lvalue. For internal use only. */ #define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)] /* yy_hold_char holds the character lost when yytext is formed. */ static char yy_hold_char; static yy_size_t yy_n_chars; /* number of characters read into yy_ch_buf */ yy_size_t yyleng; /* Points to current character in buffer. */ static char *yy_c_buf_p = (char *) 0; static int yy_init = 0; /* whether we need to initialize */ static int yy_start = 0; /* start state number */ /* Flag which is used to allow yywrap()'s to do buffer switches * instead of setting up a fresh yyin. A bit of a hack ... */ static int yy_did_buffer_switch_on_eof; void yyrestart (FILE *input_file ); void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer ); YY_BUFFER_STATE yy_create_buffer (FILE *file,int size ); void yy_delete_buffer (YY_BUFFER_STATE b ); void yy_flush_buffer (YY_BUFFER_STATE b ); void yypush_buffer_state (YY_BUFFER_STATE new_buffer ); void yypop_buffer_state (void ); static void yyensure_buffer_stack (void ); static void yy_load_buffer_state (void ); static void yy_init_buffer (YY_BUFFER_STATE b,FILE *file ); #define YY_FLUSH_BUFFER yy_flush_buffer(YY_CURRENT_BUFFER ) YY_BUFFER_STATE yy_scan_buffer (char *base,yy_size_t size ); YY_BUFFER_STATE yy_scan_string (yyconst char *yy_str ); YY_BUFFER_STATE yy_scan_bytes (yyconst char *bytes,yy_size_t len ); void *yyalloc (yy_size_t ); void *yyrealloc (void *,yy_size_t ); void yyfree (void * ); #define yy_new_buffer yy_create_buffer #define yy_set_interactive(is_interactive) \ { \ if ( ! YY_CURRENT_BUFFER ){ \ yyensure_buffer_stack (); \ YY_CURRENT_BUFFER_LVALUE = \ yy_create_buffer(yyin,YY_BUF_SIZE ); \ } \ YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \ } #define yy_set_bol(at_bol) \ { \ if ( ! YY_CURRENT_BUFFER ){\ yyensure_buffer_stack (); \ YY_CURRENT_BUFFER_LVALUE = \ yy_create_buffer(yyin,YY_BUF_SIZE ); \ } \ YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \ } #define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol) /* Begin user sect3 */ typedef unsigned char YY_CHAR; FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0; typedef int yy_state_type; extern int yylineno; int yylineno = 1; extern char *yytext; #define yytext_ptr yytext static yy_state_type yy_get_previous_state (void ); static yy_state_type yy_try_NUL_trans (yy_state_type current_state ); static int yy_get_next_buffer (void ); static void yy_fatal_error (yyconst char msg[] ); /* Done after the current pattern has been matched and before the * corresponding action - sets up yytext. */ #define YY_DO_BEFORE_ACTION \ (yytext_ptr) = yy_bp; \ yyleng = (size_t) (yy_cp - yy_bp); \ (yy_hold_char) = *yy_cp; \ *yy_cp = '\0'; \ (yy_c_buf_p) = yy_cp; #define YY_NUM_RULES 59 #define YY_END_OF_BUFFER 60 /* This struct is not used in this scanner, but its presence is necessary. */ struct yy_trans_info { flex_int32_t yy_verify; flex_int32_t yy_nxt; }; static yyconst flex_int16_t yy_accept[163] = { 0, 0, 0, 0, 0, 0, 0, 60, 58, 3, 4, 11, 58, 1, 58, 18, 58, 15, 13, 14, 57, 16, 32, 32, 10, 24, 7, 25, 57, 57, 28, 29, 17, 57, 57, 57, 57, 57, 57, 57, 19, 12, 11, 47, 46, 45, 47, 47, 59, 48, 59, 53, 53, 53, 53, 53, 3, 23, 0, 43, 1, 34, 8, 0, 43, 57, 57, 35, 35, 32, 0, 0, 0, 20, 26, 22, 27, 21, 0, 57, 57, 57, 57, 57, 57, 0, 57, 57, 9, 42, 23, 0, 0, 0, 53, 53, 53, 53, 53, 53, 57, 57, 35, 30, 0, 35, 33, 0, 57, 57, 56, 57, 39, 57, 5, 38, 57, 57, 0, 53, 53, 53, 49, 0, 57, 35, 31, 57, 57, 56, 41, 57, 40, 57, 36, 44, 51, 52, 53, 35, 57, 0, 55, 0, 37, 57, 50, 57, 0, 54, 0, 2, 57, 54, 57, 57, 57, 57, 57, 57, 57, 6, 0 } ; static yyconst flex_int32_t yy_ec[256] = { 0, 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 5, 6, 7, 8, 1, 9, 10, 1, 1, 11, 12, 1, 13, 14, 15, 16, 17, 18, 18, 18, 18, 18, 18, 18, 18, 19, 1, 20, 21, 22, 1, 1, 23, 24, 23, 25, 25, 23, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 27, 26, 26, 28, 1, 29, 30, 31, 1, 32, 33, 34, 35, 36, 37, 38, 39, 40, 26, 26, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 26, 51, 27, 26, 26, 1, 52, 1, 53, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 } ; static yyconst flex_int32_t yy_meta[54] = { 0, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 4, 4, 5, 5, 5, 1, 1, 1, 1, 6, 6, 6, 4, 4, 1, 1, 1, 4, 6, 6, 6, 6, 6, 6, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 1, 1 } ; static yyconst flex_int16_t yy_base[175] = { 0, 0, 424, 51, 54, 90, 0, 428, 430, 425, 430, 405, 419, 0, 0, 415, 143, 430, 430, 430, 43, 0, 183, 48, 430, 47, 402, 48, 0, 412, 430, 430, 430, 388, 29, 388, 31, 417, 382, 370, 364, 430, 394, 430, 430, 430, 196, 371, 430, 430, 0, 0, 369, 373, 370, 367, 407, 430, 402, 401, 0, 0, 430, 396, 395, 232, 0, 186, 210, 241, 60, 69, 0, 430, 430, 430, 430, 430, 62, 360, 364, 367, 360, 357, 352, 86, 168, 348, 430, 0, 0, 211, 354, 361, 0, 0, 339, 345, 326, 315, 285, 251, 263, 198, 207, 213, 0, 255, 305, 302, 207, 288, 0, 286, 430, 0, 284, 297, 290, 290, 283, 297, 0, 257, 284, 292, 430, 279, 314, 325, 0, 290, 0, 278, 0, 430, 0, 0, 275, 303, 272, 279, 430, 275, 0, 227, 0, 218, 308, 430, 319, 0, 205, 430, 200, 180, 170, 174, 103, 36, 23, 0, 430, 338, 344, 350, 352, 356, 362, 365, 369, 375, 381, 383, 389 } ; static yyconst flex_int16_t yy_def[175] = { 0, 162, 1, 163, 163, 162, 5, 162, 162, 162, 162, 162, 164, 165, 166, 162, 162, 162, 162, 162, 167, 167, 162, 162, 162, 162, 162, 162, 167, 167, 162, 162, 162, 167, 167, 167, 167, 167, 167, 167, 162, 162, 168, 162, 162, 162, 162, 162, 162, 162, 169, 170, 170, 170, 170, 170, 162, 162, 164, 164, 165, 166, 162, 171, 171, 172, 167, 167, 162, 162, 162, 162, 173, 162, 162, 162, 162, 162, 162, 167, 167, 167, 167, 167, 167, 162, 167, 167, 162, 168, 168, 162, 162, 162, 170, 170, 170, 170, 170, 170, 172, 167, 162, 162, 162, 162, 173, 162, 167, 167, 167, 167, 167, 167, 162, 167, 167, 167, 162, 170, 170, 170, 170, 162, 167, 167, 162, 167, 167, 162, 167, 167, 167, 167, 167, 162, 170, 170, 170, 162, 167, 174, 162, 162, 167, 167, 170, 167, 174, 162, 174, 167, 167, 162, 167, 167, 167, 167, 167, 167, 167, 167, 0, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162 } ; static yyconst flex_int16_t yy_nxt[484] = { 0, 8, 9, 10, 8, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 23, 24, 25, 26, 27, 28, 29, 28, 28, 28, 30, 31, 32, 28, 33, 29, 28, 28, 34, 35, 28, 28, 28, 28, 28, 28, 28, 36, 37, 38, 28, 39, 28, 28, 40, 41, 44, 45, 46, 44, 45, 67, 67, 67, 68, 80, 69, 69, 69, 73, 74, 76, 77, 83, 81, 71, 161, 84, 103, 103, 107, 107, 160, 104, 104, 71, 71, 105, 105, 105, 85, 114, 47, 48, 48, 49, 48, 48, 48, 48, 48, 48, 50, 48, 48, 48, 51, 51, 48, 48, 48, 48, 48, 48, 48, 51, 51, 51, 51, 51, 48, 48, 48, 51, 51, 52, 53, 51, 51, 54, 51, 51, 55, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 48, 48, 63, 63, 159, 63, 63, 63, 63, 63, 63, 64, 63, 63, 63, 65, 65, 63, 63, 63, 63, 63, 63, 63, 65, 65, 65, 65, 65, 63, 63, 63, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 63, 63, 68, 91, 69, 69, 69, 67, 67, 67, 158, 115, 70, 71, 129, 72, 101, 157, 91, 103, 103, 70, 116, 71, 71, 156, 101, 101, 105, 105, 105, 102, 102, 102, 105, 105, 105, 92, 63, 63, 71, 63, 63, 63, 63, 63, 63, 64, 63, 63, 71, 71, 92, 155, 130, 154, 63, 63, 63, 63, 68, 152, 69, 69, 69, 63, 63, 63, 123, 124, 126, 71, 125, 125, 125, 151, 107, 107, 139, 139, 139, 71, 71, 142, 102, 102, 102, 149, 150, 63, 63, 63, 63, 71, 63, 63, 63, 63, 63, 63, 64, 63, 63, 71, 71, 125, 125, 125, 147, 63, 63, 63, 63, 125, 125, 125, 149, 150, 63, 63, 63, 141, 142, 143, 139, 139, 139, 153, 150, 146, 145, 144, 129, 140, 138, 137, 136, 135, 134, 133, 132, 131, 63, 63, 43, 43, 43, 43, 43, 43, 58, 128, 58, 58, 58, 58, 60, 127, 60, 60, 60, 60, 61, 61, 66, 66, 66, 66, 89, 122, 89, 89, 89, 89, 94, 121, 94, 95, 95, 95, 95, 63, 120, 63, 63, 63, 63, 100, 119, 100, 100, 100, 100, 106, 106, 148, 148, 148, 148, 148, 148, 118, 93, 117, 113, 112, 111, 110, 109, 108, 64, 64, 59, 59, 56, 99, 98, 97, 96, 93, 90, 88, 87, 86, 85, 82, 79, 78, 75, 62, 59, 57, 56, 162, 42, 7, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162 } ; static yyconst flex_int16_t yy_chk[484] = { 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 4, 4, 4, 20, 20, 20, 23, 34, 23, 23, 23, 25, 25, 27, 27, 36, 34, 23, 160, 36, 70, 70, 78, 78, 159, 71, 71, 23, 23, 71, 71, 71, 85, 85, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 16, 16, 158, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 22, 46, 22, 22, 22, 67, 67, 67, 157, 86, 22, 22, 110, 22, 67, 156, 91, 103, 103, 22, 86, 22, 22, 155, 67, 67, 104, 104, 104, 68, 68, 68, 105, 105, 105, 46, 65, 65, 68, 65, 65, 65, 65, 65, 65, 65, 65, 65, 68, 68, 91, 154, 110, 152, 65, 65, 65, 65, 69, 147, 69, 69, 69, 65, 65, 65, 101, 101, 107, 69, 101, 101, 101, 145, 107, 107, 123, 123, 123, 69, 69, 143, 102, 102, 102, 141, 141, 65, 65, 100, 100, 102, 100, 100, 100, 100, 100, 100, 100, 100, 100, 102, 102, 124, 124, 124, 140, 100, 100, 100, 100, 125, 125, 125, 148, 148, 100, 100, 100, 128, 128, 128, 139, 139, 139, 150, 150, 138, 133, 131, 129, 127, 121, 120, 119, 118, 117, 116, 113, 111, 100, 100, 163, 163, 163, 163, 163, 163, 164, 109, 164, 164, 164, 164, 165, 108, 165, 165, 165, 165, 166, 166, 167, 167, 167, 167, 168, 99, 168, 168, 168, 168, 169, 98, 169, 170, 170, 170, 170, 171, 97, 171, 171, 171, 171, 172, 96, 172, 172, 172, 172, 173, 173, 174, 174, 174, 174, 174, 174, 93, 92, 87, 84, 83, 82, 81, 80, 79, 64, 63, 59, 58, 56, 55, 54, 53, 52, 47, 42, 40, 39, 38, 37, 35, 33, 29, 26, 15, 12, 11, 9, 7, 2, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, 162 } ; static yy_state_type yy_last_accepting_state; static char *yy_last_accepting_cpos; extern int yy_flex_debug; int yy_flex_debug = 0; /* The intent behind this definition is that it'll catch * any uses of REJECT which flex missed. */ #define REJECT reject_used_but_not_detected #define yymore() yymore_used_but_not_detected #define YY_MORE_ADJ 0 #define YY_RESTORE_YY_MORE_OFFSET char *yytext; #line 1 "scan.ll" #line 2 "scan.ll" /* Copyright (C) 1998 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include #include #include #ifdef _WIN32 /* declaration of isatty() */ #include #endif #include "../config.h" #include "../src/operator.h" #include "../src/symbol.h" #include "../src/stimuli.h" #include "../src/processor.h" #include "command.h" #include "cmd_macro.h" #include "parse.h" #include "input.h" #include "scan.h" /* Since our parser is reentrant, it needs to pass us a pointer * to the yylval that it would like us to use */ #ifdef YY_PROTO #define YY_DECL int yylex YY_PROTO(( YYSTYPE* yylvalP )) #else #define YY_DECL int yylex ( YYSTYPE* yylvalP ) #endif extern int yyparse(void); #define exit exit_gpsim /* This is the max length of a line within a macro definition */ static char macroBody[65536], *macroBodyPtr=0; static char* max_bodyPtr = ¯oBody[0] + sizeof(macroBody)-1; struct LexerStateStruct { struct cmd_options *options; command *cmd; int input_mode; int end_of_command; int have_parameters; int mode; struct LexerStateStruct *prev; struct LexerStateStruct *next; }; static char * m_pLastFullCommand = NULL; void SetLastFullCommand(const char *pCmd) { if (strlen(pCmd)>1) { if (m_pLastFullCommand) free (m_pLastFullCommand); m_pLastFullCommand = strdup(pCmd); } } const char * GetLastFullCommand() { return m_pLastFullCommand; } static LexerStateStruct *pLexerState = 0; static int sLevels=0; extern int quit_parse; extern int parser_spanning_lines; extern int last_command_is_repeatable; static string strip_trailing_whitespace (char *s); static int handle_identifier(YYSTYPE* yylvalP, string &tok, cmd_options **op ); static int process_intLiteral(YYSTYPE* yylvalP, char *buffer, int conversionBase); static int process_booleanLiteral(YYSTYPE* yylvalP, bool value); static int process_macroBody(YYSTYPE* yylvalP, const char *text); static int process_floatLiteral(YYSTYPE* yylvalP, char *buffer); static int process_stringLiteral(YYSTYPE* yylvalP, const char *buffer); static int process_quotedStringLiteral(YYSTYPE* yylvalP, char *buffer); static int process_shellLine(YYSTYPE* yylvalP, const char *buffer); static int recognize(int token,const char *); static void SetMode(int newmode); void scanPopMacroState(); int cli_corba_init (char *ior_id); extern Macro *isMacro(const string &s); static Macro *gCurrentMacro=0; #define YYDEBUG 1 //======================================================================== // MacroChain class // // class MacroChain { public: struct Link { Link *prev; Link *next; Macro *m; }; MacroChain() { head.prev = head.next =0; curr = &head; } void push(Macro *m) { if (verbose & 4 && m) { cout << "Pushing " << m->name() << " onto the macro chain\n"; } Link *pL = new Link(); pL->m = m; pL->prev = &head; pL->next = head.next; head.next = pL; param = pL; curr = &head; } void pop() { Link *pL = head.next; if (pL) { if (verbose & 4 && pL->m) { cout << "Popping " << pL->m->name() << " from the macro chain\n"; } head.next = pL->next; if (pL->next) pL->next->prev = &head; delete pL; } } Macro *nextParamSource() { if (curr) curr = curr->next; if (verbose & 4 && curr && curr->m ) { cout << " selecting parameter source " << curr->m->name() << endl; } if(curr) return curr->m; return 0; } void popParamSource() { if (verbose & 4 && curr && curr->m ) { cout << " popping parameter source " << curr->m->name() << endl; } if (curr) curr = curr->prev; } void resetParamSource() { if (verbose & 4) { cout << " resetparameter source\n"; } curr = &head; } private: Link *curr; Link head; Link *param; }; static MacroChain theMacroChain; #line 236 "scan.ll" /* Lexer States */ #line 242 "scan.ll" //************************************************************************ //************************************************************************ #line 826 "scan.cc" #define INITIAL 0 #define MACROBODY 1 #define DECLARATION 2 #ifndef YY_NO_UNISTD_H /* Special case for "unistd.h", since it is non-ANSI. We include it way * down here because we want the user's section 1 to have been scanned first. * The user has a chance to override it with an option. */ #include #endif #ifndef YY_EXTRA_TYPE #define YY_EXTRA_TYPE void * #endif static int yy_init_globals (void ); /* Accessor methods to globals. These are made visible to non-reentrant scanners for convenience. */ int yylex_destroy (void ); int yyget_debug (void ); void yyset_debug (int debug_flag ); YY_EXTRA_TYPE yyget_extra (void ); void yyset_extra (YY_EXTRA_TYPE user_defined ); FILE *yyget_in (void ); void yyset_in (FILE * in_str ); FILE *yyget_out (void ); void yyset_out (FILE * out_str ); yy_size_t yyget_leng (void ); char *yyget_text (void ); int yyget_lineno (void ); void yyset_lineno (int line_number ); /* Macros after this point can all be overridden by user definitions in * section 1. */ #ifndef YY_SKIP_YYWRAP #ifdef __cplusplus extern "C" int yywrap (void ); #else extern int yywrap (void ); #endif #endif static void yyunput (int c,char *buf_ptr ); #ifndef yytext_ptr static void yy_flex_strncpy (char *,yyconst char *,int ); #endif #ifdef YY_NEED_STRLEN static int yy_flex_strlen (yyconst char * ); #endif #ifndef YY_NO_INPUT #ifdef __cplusplus static int yyinput (void ); #else static int input (void ); #endif #endif /* Amount of stuff to slurp up with each read. */ #ifndef YY_READ_BUF_SIZE #define YY_READ_BUF_SIZE 8192 #endif /* Copy whatever the last rule matched to the standard output. */ #ifndef ECHO /* This used to be an fputs(), but since the string might contain NUL's, * we now use fwrite(). */ #define ECHO do { if (fwrite( yytext, yyleng, 1, yyout )) {} } while (0) #endif /* Gets input and stuffs it into "buf". number of characters read, or YY_NULL, * is returned in "result". */ #ifndef YY_INPUT #define YY_INPUT(buf,result,max_size) \ if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \ { \ int c = '*'; \ size_t n; \ for ( n = 0; n < max_size && \ (c = getc( yyin )) != EOF && c != '\n'; ++n ) \ buf[n] = (char) c; \ if ( c == '\n' ) \ buf[n++] = (char) c; \ if ( c == EOF && ferror( yyin ) ) \ YY_FATAL_ERROR( "input in flex scanner failed" ); \ result = n; \ } \ else \ { \ errno=0; \ while ( (result = fread(buf, 1, max_size, yyin))==0 && ferror(yyin)) \ { \ if( errno != EINTR) \ { \ YY_FATAL_ERROR( "input in flex scanner failed" ); \ break; \ } \ errno=0; \ clearerr(yyin); \ } \ }\ \ #endif /* No semi-colon after return; correct usage is to write "yyterminate();" - * we don't want an extra ';' after the "return" because that will cause * some compilers to complain about unreachable statements. */ #ifndef yyterminate #define yyterminate() return YY_NULL #endif /* Number of entries by which start-condition stack grows. */ #ifndef YY_START_STACK_INCR #define YY_START_STACK_INCR 25 #endif /* Report a fatal error. */ #ifndef YY_FATAL_ERROR #define YY_FATAL_ERROR(msg) yy_fatal_error( msg ) #endif /* end tables serialization structures and prototypes */ /* Default declaration of generated scanner - a define so the user can * easily add parameters. */ #ifndef YY_DECL #define YY_DECL_IS_OURS 1 extern int yylex (void); #define YY_DECL int yylex (void) #endif /* !YY_DECL */ /* Code executed at the beginning of each rule, after yytext and yyleng * have been set up. */ #ifndef YY_USER_ACTION #define YY_USER_ACTION #endif /* Code executed at the end of each rule. */ #ifndef YY_BREAK #define YY_BREAK break; #endif #define YY_RULE_SETUP \ if ( yyleng > 0 ) \ YY_CURRENT_BUFFER_LVALUE->yy_at_bol = \ (yytext[yyleng - 1] == '\n'); \ YY_USER_ACTION /** The main scanner function which does all the work. */ YY_DECL { register yy_state_type yy_current_state; register char *yy_cp, *yy_bp; register int yy_act; #line 246 "scan.ll" // Comments. Ignore all text after a comment character #line 1020 "scan.cc" if ( !(yy_init) ) { (yy_init) = 1; #ifdef YY_USER_INIT YY_USER_INIT; #endif if ( ! (yy_start) ) (yy_start) = 1; /* first start state */ if ( ! yyin ) yyin = stdin; if ( ! yyout ) yyout = stdout; if ( ! YY_CURRENT_BUFFER ) { yyensure_buffer_stack (); YY_CURRENT_BUFFER_LVALUE = yy_create_buffer(yyin,YY_BUF_SIZE ); } yy_load_buffer_state( ); } while ( 1 ) /* loops until end-of-file is reached */ { yy_cp = (yy_c_buf_p); /* Support of yytext. */ *yy_cp = (yy_hold_char); /* yy_bp points to the position in yy_ch_buf of the start of * the current run. */ yy_bp = yy_cp; yy_current_state = (yy_start); yy_current_state += YY_AT_BOL(); yy_match: do { register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)]; if ( yy_accept[yy_current_state] ) { (yy_last_accepting_state) = yy_current_state; (yy_last_accepting_cpos) = yy_cp; } while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) { yy_current_state = (int) yy_def[yy_current_state]; if ( yy_current_state >= 163 ) yy_c = yy_meta[(unsigned int) yy_c]; } yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c]; ++yy_cp; } while ( yy_base[yy_current_state] != 430 ); yy_find_action: yy_act = yy_accept[yy_current_state]; if ( yy_act == 0 ) { /* have to back up */ yy_cp = (yy_last_accepting_cpos); yy_current_state = (yy_last_accepting_state); yy_act = yy_accept[yy_current_state]; } YY_DO_BEFORE_ACTION; do_action: /* This label is used only to access EOF actions. */ switch ( yy_act ) { /* beginning of action switch */ case 0: /* must back up */ /* undo the effects of YY_DO_BEFORE_ACTION */ *yy_cp = (yy_hold_char); yy_cp = (yy_last_accepting_cpos); yy_current_state = (yy_last_accepting_state); goto yy_find_action; case 1: YY_RULE_SETUP #line 252 "scan.ll" YY_BREAK case 2: YY_RULE_SETUP #line 254 "scan.ll" recognize(COMMENT_T,"comment"); YY_BREAK case 3: YY_RULE_SETUP #line 258 "scan.ll" { /* ignore white space */ } YY_BREAK case 4: /* rule 4 can match eol */ YY_RULE_SETUP #line 260 "scan.ll" { if(verbose) cout << "got EOL\n"; pLexerState->input_mode = 0; // assume that this is not a multi-line command. if(pLexerState->cmd && pLexerState->cmd->can_span_lines() && pLexerState->have_parameters && !pLexerState->end_of_command ) pLexerState->input_mode = CONTINUING_LINE; else { pLexerState->cmd = 0; return recognize(EOLN_T, " end of line"); } } YY_BREAK { // Got an eol. if(verbose) cout << "got INITIAL\n"; pLexerState->input_mode = 0; // assume that this is not a multi-line command. if(pLexerState->cmd && pLexerState->cmd->can_span_lines() && pLexerState->have_parameters && !pLexerState->end_of_command ) pLexerState->input_mode = CONTINUING_LINE; //else // return recognize(EOLN_T, " end of line"); } case 5: /* rule 5 can match eol */ YY_RULE_SETUP #line 295 "scan.ll" { /* short cut for quiting */ quit_parse =1; return QUIT; } YY_BREAK case 6: YY_RULE_SETUP #line 300 "scan.ll" { /* a sure way to abort a script */ return ABORT; } YY_BREAK case 7: YY_RULE_SETUP #line 305 "scan.ll" {return(recognize(EQU_T, "="));} YY_BREAK case 8: YY_RULE_SETUP #line 306 "scan.ll" {return(recognize(LAND_T, "&&"));} YY_BREAK case 9: YY_RULE_SETUP #line 307 "scan.ll" {return(recognize(LOR_T, "||"));} YY_BREAK case 10: YY_RULE_SETUP #line 309 "scan.ll" {return(recognize(COLON_T, ":"));} YY_BREAK case 11: YY_RULE_SETUP #line 310 "scan.ll" {return(recognize(LNOT_T,"!"));} YY_BREAK case 12: YY_RULE_SETUP #line 311 "scan.ll" {return(recognize(ONESCOMP_T,"~"));} YY_BREAK case 13: YY_RULE_SETUP #line 312 "scan.ll" {return(recognize(PLUS_T,"+"));} YY_BREAK case 14: YY_RULE_SETUP #line 313 "scan.ll" {return(recognize(MINUS_T,"-"));} YY_BREAK case 15: YY_RULE_SETUP #line 314 "scan.ll" {return(recognize(MPY_T,"*"));} YY_BREAK case 16: YY_RULE_SETUP #line 315 "scan.ll" {return(recognize(DIV_T,"/"));} YY_BREAK case 17: YY_RULE_SETUP #line 316 "scan.ll" {return(recognize(XOR_T,"^"));} YY_BREAK case 18: YY_RULE_SETUP #line 317 "scan.ll" {return(recognize(AND_T,"&"));} YY_BREAK case 19: YY_RULE_SETUP #line 318 "scan.ll" {return(recognize(OR_T,"|"));} YY_BREAK case 20: YY_RULE_SETUP #line 319 "scan.ll" {return(recognize(SHL_T,"<<"));} YY_BREAK case 21: YY_RULE_SETUP #line 320 "scan.ll" {return(recognize(SHR_T,">>"));} YY_BREAK case 22: YY_RULE_SETUP #line 322 "scan.ll" {return(recognize(EQ_T, "=="));} YY_BREAK case 23: YY_RULE_SETUP #line 323 "scan.ll" {return(recognize(NE_T, "!="));} YY_BREAK case 24: YY_RULE_SETUP #line 324 "scan.ll" {return(recognize(LT_T, "<"));} YY_BREAK case 25: YY_RULE_SETUP #line 325 "scan.ll" {return(recognize(GT_T, ">"));} YY_BREAK case 26: YY_RULE_SETUP #line 326 "scan.ll" {return(recognize(LE_T, "<="));} YY_BREAK case 27: YY_RULE_SETUP #line 327 "scan.ll" {return(recognize(GE_T, ">="));} YY_BREAK case 28: YY_RULE_SETUP #line 329 "scan.ll" {return(recognize(INDEXERLEFT_T, "["));} YY_BREAK case 29: YY_RULE_SETUP #line 330 "scan.ll" {return(recognize(INDEXERRIGHT_T, "]"));} YY_BREAK case 30: YY_RULE_SETUP #line 332 "scan.ll" {return(process_intLiteral(yylvalP,&yytext[2], 2));} YY_BREAK case 31: YY_RULE_SETUP #line 333 "scan.ll" {return(process_intLiteral(yylvalP,&yytext[2], 2));} YY_BREAK case 32: YY_RULE_SETUP #line 334 "scan.ll" {return(process_intLiteral(yylvalP,&yytext[0], 10));} YY_BREAK case 33: YY_RULE_SETUP #line 335 "scan.ll" {return(process_intLiteral(yylvalP,&yytext[2], 16));} YY_BREAK case 34: YY_RULE_SETUP #line 336 "scan.ll" {return(process_intLiteral(yylvalP,&yytext[1], 16));} YY_BREAK case 35: YY_RULE_SETUP #line 337 "scan.ll" {return process_floatLiteral(yylvalP,yytext);} YY_BREAK case 36: YY_RULE_SETUP #line 338 "scan.ll" {return(process_booleanLiteral(yylvalP,true));} YY_BREAK case 37: YY_RULE_SETUP #line 339 "scan.ll" {return(process_booleanLiteral(yylvalP,false));} YY_BREAK case 38: YY_RULE_SETUP #line 340 "scan.ll" {return(recognize(REG_T,"reg"));} YY_BREAK case 39: YY_RULE_SETUP #line 341 "scan.ll" {return(recognize(GPSIMOBJECT_T, "pin")); /*return(recognize(STIMULUS_T, "pin"));*/} YY_BREAK case 40: YY_RULE_SETUP #line 342 "scan.ll" {return(recognize(PORT_T, "port"));} YY_BREAK case 41: YY_RULE_SETUP #line 344 "scan.ll" {scanPopMacroState();} YY_BREAK case 42: YY_RULE_SETUP #line 346 "scan.ll" {return(process_shellLine(yylvalP,&yytext[1]));} YY_BREAK case 43: YY_RULE_SETUP #line 347 "scan.ll" {return(process_quotedStringLiteral(yylvalP,&yytext[1]));} YY_BREAK //======================================================================== // Macro processing case 44: YY_RULE_SETUP #line 355 "scan.ll" {SetMode(INITIAL); return(recognize(ENDM,"endm")); } YY_BREAK case 45: YY_RULE_SETUP #line 357 "scan.ll" {/*discard CR's*/} YY_BREAK case 46: /* rule 46 can match eol */ YY_RULE_SETUP #line 358 "scan.ll" {*macroBodyPtr++ = '\n'; *macroBodyPtr = 0; macroBodyPtr = macroBody; return(process_macroBody(yylvalP,macroBody));} YY_BREAK case 47: YY_RULE_SETUP #line 364 "scan.ll" { *macroBodyPtr++ = *yytext; if(verbose&4) printf("adding [%c]\n", *yytext); if (macroBodyPtr > max_bodyPtr) { cout << "buffer overflow in macro definition\n"; exit_gpsim(0); } } YY_BREAK //======================================================================== // Declaration Processing case 48: /* rule 48 can match eol */ YY_RULE_SETUP #line 379 "scan.ll" {SetMode(INITIAL); return(recognize(EOLN_T, "end of declaration")); } YY_BREAK case 49: YY_RULE_SETUP #line 380 "scan.ll" {return recognize(DECLARE_INT_T, "int type"); } YY_BREAK case 50: YY_RULE_SETUP #line 381 "scan.ll" {return recognize(DECLARE_FLOAT_T,"float type"); } YY_BREAK case 51: YY_RULE_SETUP #line 382 "scan.ll" {return recognize(DECLARE_BOOL_T, "bool type"); } YY_BREAK case 52: YY_RULE_SETUP #line 383 "scan.ll" {return recognize(DECLARE_FLOAT_T,"char type"); } YY_BREAK case 53: YY_RULE_SETUP #line 384 "scan.ll" { return process_stringLiteral(yylvalP, yytext); } YY_BREAK // The 'echo' command is handled by the lexer instead of the // parser (like the other commands). All it does is just display // the contents of yytext beyond the "echo". case 54: /* rule 54 can match eol */ YY_RULE_SETUP #line 393 "scan.ll" { fprintf(yyout,"%s",&yytext[5]); return recognize(EOLN_T, " end of line"); } YY_BREAK case 55: /* rule 55 can match eol */ YY_RULE_SETUP #line 399 "scan.ll" { fprintf(yyout,"\n"); return recognize(EOLN_T, " end of line"); } YY_BREAK // Indirect register access.... this should be an expression operator. /* {INDIRECT} { return INDIRECT; } */ // If this is a command that is spanning more than one line // then the 'end' command will finish it. case 56: YY_RULE_SETUP #line 424 "scan.ll" { if (pLexerState->cmd && pLexerState->cmd->can_span_lines() ) { pLexerState->end_of_command = 1; return(END_OF_COMMAND); } printf("Warning: found \"end\" while not in multiline mode\n"); } YY_BREAK // Identifiers. These are either gpsim commands or user macros. case 57: YY_RULE_SETUP #line 436 "scan.ll" { string tok = strip_trailing_whitespace (yytext); int ret=0; if(strlen(tok.c_str())) ret = handle_identifier (yylvalP, tok, &pLexerState->options); else ret = recognize(0,"invalid identifier"); if(ret) return ret; } YY_BREAK /* Default is to recognize the character we are looking at as a single char */ case 58: YY_RULE_SETUP #line 453 "scan.ll" {return(recognize(*yytext,"Single character"));} YY_BREAK case 59: YY_RULE_SETUP #line 455 "scan.ll" ECHO; YY_BREAK #line 1515 "scan.cc" case YY_STATE_EOF(INITIAL): case YY_STATE_EOF(MACROBODY): case YY_STATE_EOF(DECLARATION): yyterminate(); case YY_END_OF_BUFFER: { /* Amount of text matched not including the EOB char. */ int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1; /* Undo the effects of YY_DO_BEFORE_ACTION. */ *yy_cp = (yy_hold_char); YY_RESTORE_YY_MORE_OFFSET if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW ) { /* We're scanning a new file or input source. It's * possible that this happened because the user * just pointed yyin at a new source and called * yylex(). If so, then we have to assure * consistency between YY_CURRENT_BUFFER and our * globals. Here is the right place to do so, because * this is the first action (other than possibly a * back-up) that will match for the new input source. */ (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars; YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin; YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL; } /* Note that here we test for yy_c_buf_p "<=" to the position * of the first EOB in the buffer, since yy_c_buf_p will * already have been incremented past the NUL character * (since all states make transitions on EOB to the * end-of-buffer state). Contrast this with the test * in input(). */ if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] ) { /* This was really a NUL. */ yy_state_type yy_next_state; (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text; yy_current_state = yy_get_previous_state( ); /* Okay, we're now positioned to make the NUL * transition. We couldn't have * yy_get_previous_state() go ahead and do it * for us because it doesn't know how to deal * with the possibility of jamming (and we don't * want to build jamming into it because then it * will run more slowly). */ yy_next_state = yy_try_NUL_trans( yy_current_state ); yy_bp = (yytext_ptr) + YY_MORE_ADJ; if ( yy_next_state ) { /* Consume the NUL. */ yy_cp = ++(yy_c_buf_p); yy_current_state = yy_next_state; goto yy_match; } else { yy_cp = (yy_c_buf_p); goto yy_find_action; } } else switch ( yy_get_next_buffer( ) ) { case EOB_ACT_END_OF_FILE: { (yy_did_buffer_switch_on_eof) = 0; if ( yywrap( ) ) { /* Note: because we've taken care in * yy_get_next_buffer() to have set up * yytext, we can now set up * yy_c_buf_p so that if some total * hoser (like flex itself) wants to * call the scanner after we return the * YY_NULL, it'll still work - another * YY_NULL will get returned. */ (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ; yy_act = YY_STATE_EOF(YY_START); goto do_action; } else { if ( ! (yy_did_buffer_switch_on_eof) ) YY_NEW_FILE; } break; } case EOB_ACT_CONTINUE_SCAN: (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text; yy_current_state = yy_get_previous_state( ); yy_cp = (yy_c_buf_p); yy_bp = (yytext_ptr) + YY_MORE_ADJ; goto yy_match; case EOB_ACT_LAST_MATCH: (yy_c_buf_p) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)]; yy_current_state = yy_get_previous_state( ); yy_cp = (yy_c_buf_p); yy_bp = (yytext_ptr) + YY_MORE_ADJ; goto yy_find_action; } break; } default: YY_FATAL_ERROR( "fatal flex scanner internal error--no action found" ); } /* end of action switch */ } /* end of scanning one token */ } /* end of yylex */ /* yy_get_next_buffer - try to read in a new buffer * * Returns a code representing an action: * EOB_ACT_LAST_MATCH - * EOB_ACT_CONTINUE_SCAN - continue scanning from current position * EOB_ACT_END_OF_FILE - end of file */ static int yy_get_next_buffer (void) { register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf; register char *source = (yytext_ptr); register int number_to_move, i; int ret_val; if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] ) YY_FATAL_ERROR( "fatal flex scanner internal error--end of buffer missed" ); if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 ) { /* Don't try to fill the buffer, so this is an EOF. */ if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 ) { /* We matched a single character, the EOB, so * treat this as a final EOF. */ return EOB_ACT_END_OF_FILE; } else { /* We matched some text prior to the EOB, first * process it. */ return EOB_ACT_LAST_MATCH; } } /* Try to read more data. */ /* First move last chars to start of buffer. */ number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr)) - 1; for ( i = 0; i < number_to_move; ++i ) *(dest++) = *(source++); if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING ) /* don't do the read, it's not guaranteed to return an EOF, * just force an EOF */ YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0; else { yy_size_t num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1; while ( num_to_read <= 0 ) { /* Not enough room in the buffer - grow it. */ /* just a shorter name for the current buffer */ YY_BUFFER_STATE b = YY_CURRENT_BUFFER_LVALUE; int yy_c_buf_p_offset = (int) ((yy_c_buf_p) - b->yy_ch_buf); if ( b->yy_is_our_buffer ) { yy_size_t new_size = b->yy_buf_size * 2; if ( new_size <= 0 ) b->yy_buf_size += b->yy_buf_size / 8; else b->yy_buf_size *= 2; b->yy_ch_buf = (char *) /* Include room in for 2 EOB chars. */ yyrealloc((void *) b->yy_ch_buf,b->yy_buf_size + 2 ); } else /* Can't grow it, we don't own it. */ b->yy_ch_buf = 0; if ( ! b->yy_ch_buf ) YY_FATAL_ERROR( "fatal error - scanner input buffer overflow" ); (yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset]; num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1; } if ( num_to_read > YY_READ_BUF_SIZE ) num_to_read = YY_READ_BUF_SIZE; /* Read in more data. */ YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]), (yy_n_chars), num_to_read ); YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); } if ( (yy_n_chars) == 0 ) { if ( number_to_move == YY_MORE_ADJ ) { ret_val = EOB_ACT_END_OF_FILE; yyrestart(yyin ); } else { ret_val = EOB_ACT_LAST_MATCH; YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_EOF_PENDING; } } else ret_val = EOB_ACT_CONTINUE_SCAN; if ((yy_size_t) ((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) { /* Extend the array by 50%, plus the number we really need. */ yy_size_t new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1); YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) yyrealloc((void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf,new_size ); if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf ) YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" ); } (yy_n_chars) += number_to_move; YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR; YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR; (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0]; return ret_val; } /* yy_get_previous_state - get the state just before the EOB char was reached */ static yy_state_type yy_get_previous_state (void) { register yy_state_type yy_current_state; register char *yy_cp; yy_current_state = (yy_start); yy_current_state += YY_AT_BOL(); for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp ) { register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1); if ( yy_accept[yy_current_state] ) { (yy_last_accepting_state) = yy_current_state; (yy_last_accepting_cpos) = yy_cp; } while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) { yy_current_state = (int) yy_def[yy_current_state]; if ( yy_current_state >= 163 ) yy_c = yy_meta[(unsigned int) yy_c]; } yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c]; } return yy_current_state; } /* yy_try_NUL_trans - try to make a transition on the NUL character * * synopsis * next_state = yy_try_NUL_trans( current_state ); */ static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state ) { register int yy_is_jam; register char *yy_cp = (yy_c_buf_p); register YY_CHAR yy_c = 1; if ( yy_accept[yy_current_state] ) { (yy_last_accepting_state) = yy_current_state; (yy_last_accepting_cpos) = yy_cp; } while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) { yy_current_state = (int) yy_def[yy_current_state]; if ( yy_current_state >= 163 ) yy_c = yy_meta[(unsigned int) yy_c]; } yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c]; yy_is_jam = (yy_current_state == 162); return yy_is_jam ? 0 : yy_current_state; } static void yyunput (int c, register char * yy_bp ) { register char *yy_cp; yy_cp = (yy_c_buf_p); /* undo effects of setting up yytext */ *yy_cp = (yy_hold_char); if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 ) { /* need to shift things up to make room */ /* +2 for EOB chars. */ register yy_size_t number_to_move = (yy_n_chars) + 2; register char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[ YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2]; register char *source = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]; while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf ) *--dest = *--source; yy_cp += (int) (dest - source); yy_bp += (int) (dest - source); YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_buf_size; if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 ) YY_FATAL_ERROR( "flex scanner push-back overflow" ); } *--yy_cp = (char) c; (yytext_ptr) = yy_bp; (yy_hold_char) = *yy_cp; (yy_c_buf_p) = yy_cp; } #ifndef YY_NO_INPUT #ifdef __cplusplus static int yyinput (void) #else static int input (void) #endif { int c; *(yy_c_buf_p) = (yy_hold_char); if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR ) { /* yy_c_buf_p now points to the character we want to return. * If this occurs *before* the EOB characters, then it's a * valid NUL; if not, then we've hit the end of the buffer. */ if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] ) /* This was really a NUL. */ *(yy_c_buf_p) = '\0'; else { /* need more input */ yy_size_t offset = (yy_c_buf_p) - (yytext_ptr); ++(yy_c_buf_p); switch ( yy_get_next_buffer( ) ) { case EOB_ACT_LAST_MATCH: /* This happens because yy_g_n_b() * sees that we've accumulated a * token and flags that we need to * try matching the token before * proceeding. But for input(), * there's no matching to consider. * So convert the EOB_ACT_LAST_MATCH * to EOB_ACT_END_OF_FILE. */ /* Reset buffer status. */ yyrestart(yyin ); /*FALLTHROUGH*/ case EOB_ACT_END_OF_FILE: { if ( yywrap( ) ) return EOF; if ( ! (yy_did_buffer_switch_on_eof) ) YY_NEW_FILE; #ifdef __cplusplus return yyinput(); #else return input(); #endif } case EOB_ACT_CONTINUE_SCAN: (yy_c_buf_p) = (yytext_ptr) + offset; break; } } } c = *(unsigned char *) (yy_c_buf_p); /* cast for 8-bit char's */ *(yy_c_buf_p) = '\0'; /* preserve yytext */ (yy_hold_char) = *++(yy_c_buf_p); YY_CURRENT_BUFFER_LVALUE->yy_at_bol = (c == '\n'); return c; } #endif /* ifndef YY_NO_INPUT */ /** Immediately switch to a different input stream. * @param input_file A readable stream. * * @note This function does not reset the start condition to @c INITIAL . */ void yyrestart (FILE * input_file ) { if ( ! YY_CURRENT_BUFFER ){ yyensure_buffer_stack (); YY_CURRENT_BUFFER_LVALUE = yy_create_buffer(yyin,YY_BUF_SIZE ); } yy_init_buffer(YY_CURRENT_BUFFER,input_file ); yy_load_buffer_state( ); } /** Switch to a different input buffer. * @param new_buffer The new input buffer. * */ void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer ) { /* TODO. We should be able to replace this entire function body * with * yypop_buffer_state(); * yypush_buffer_state(new_buffer); */ yyensure_buffer_stack (); if ( YY_CURRENT_BUFFER == new_buffer ) return; if ( YY_CURRENT_BUFFER ) { /* Flush out information for old buffer. */ *(yy_c_buf_p) = (yy_hold_char); YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p); YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); } YY_CURRENT_BUFFER_LVALUE = new_buffer; yy_load_buffer_state( ); /* We don't actually know whether we did this switch during * EOF (yywrap()) processing, but the only time this flag * is looked at is after yywrap() is called, so it's safe * to go ahead and always set it. */ (yy_did_buffer_switch_on_eof) = 1; } static void yy_load_buffer_state (void) { (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars; (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos; yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file; (yy_hold_char) = *(yy_c_buf_p); } /** Allocate and initialize an input buffer state. * @param file A readable stream. * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE. * * @return the allocated buffer state. */ YY_BUFFER_STATE yy_create_buffer (FILE * file, int size ) { YY_BUFFER_STATE b; b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) ); if ( ! b ) YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" ); b->yy_buf_size = size; /* yy_ch_buf has to be 2 characters longer than the size given because * we need to put in 2 end-of-buffer characters. */ b->yy_ch_buf = (char *) yyalloc(b->yy_buf_size + 2 ); if ( ! b->yy_ch_buf ) YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" ); b->yy_is_our_buffer = 1; yy_init_buffer(b,file ); return b; } /** Destroy the buffer. * @param b a buffer created with yy_create_buffer() * */ void yy_delete_buffer (YY_BUFFER_STATE b ) { if ( ! b ) return; if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */ YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0; if ( b->yy_is_our_buffer ) yyfree((void *) b->yy_ch_buf ); yyfree((void *) b ); } /* Initializes or reinitializes a buffer. * This function is sometimes called more than once on the same buffer, * such as during a yyrestart() or at EOF. */ static void yy_init_buffer (YY_BUFFER_STATE b, FILE * file ) { int oerrno = errno; yy_flush_buffer(b ); b->yy_input_file = file; b->yy_fill_buffer = 1; /* If b is the current buffer, then yy_init_buffer was _probably_ * called from yyrestart() or through yy_get_next_buffer. * In that case, we don't want to reset the lineno or column. */ if (b != YY_CURRENT_BUFFER){ b->yy_bs_lineno = 1; b->yy_bs_column = 0; } b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0; errno = oerrno; } /** Discard all buffered characters. On the next scan, YY_INPUT will be called. * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER. * */ void yy_flush_buffer (YY_BUFFER_STATE b ) { if ( ! b ) return; b->yy_n_chars = 0; /* We always need two end-of-buffer characters. The first causes * a transition to the end-of-buffer state. The second causes * a jam in that state. */ b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR; b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR; b->yy_buf_pos = &b->yy_ch_buf[0]; b->yy_at_bol = 1; b->yy_buffer_status = YY_BUFFER_NEW; if ( b == YY_CURRENT_BUFFER ) yy_load_buffer_state( ); } /** Pushes the new state onto the stack. The new state becomes * the current state. This function will allocate the stack * if necessary. * @param new_buffer The new state. * */ void yypush_buffer_state (YY_BUFFER_STATE new_buffer ) { if (new_buffer == NULL) return; yyensure_buffer_stack(); /* This block is copied from yy_switch_to_buffer. */ if ( YY_CURRENT_BUFFER ) { /* Flush out information for old buffer. */ *(yy_c_buf_p) = (yy_hold_char); YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p); YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); } /* Only push if top exists. Otherwise, replace top. */ if (YY_CURRENT_BUFFER) (yy_buffer_stack_top)++; YY_CURRENT_BUFFER_LVALUE = new_buffer; /* copied from yy_switch_to_buffer. */ yy_load_buffer_state( ); (yy_did_buffer_switch_on_eof) = 1; } /** Removes and deletes the top of the stack, if present. * The next element becomes the new top. * */ void yypop_buffer_state (void) { if (!YY_CURRENT_BUFFER) return; yy_delete_buffer(YY_CURRENT_BUFFER ); YY_CURRENT_BUFFER_LVALUE = NULL; if ((yy_buffer_stack_top) > 0) --(yy_buffer_stack_top); if (YY_CURRENT_BUFFER) { yy_load_buffer_state( ); (yy_did_buffer_switch_on_eof) = 1; } } /* Allocates the stack if it does not exist. * Guarantees space for at least one push. */ static void yyensure_buffer_stack (void) { yy_size_t num_to_alloc; if (!(yy_buffer_stack)) { /* First allocation is just for 2 elements, since we don't know if this * scanner will even need a stack. We use 2 instead of 1 to avoid an * immediate realloc on the next call. */ num_to_alloc = 1; (yy_buffer_stack) = (struct yy_buffer_state**)yyalloc (num_to_alloc * sizeof(struct yy_buffer_state*) ); if ( ! (yy_buffer_stack) ) YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" ); memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*)); (yy_buffer_stack_max) = num_to_alloc; (yy_buffer_stack_top) = 0; return; } if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){ /* Increase the buffer to prepare for a possible push. */ int grow_size = 8 /* arbitrary grow size */; num_to_alloc = (yy_buffer_stack_max) + grow_size; (yy_buffer_stack) = (struct yy_buffer_state**)yyrealloc ((yy_buffer_stack), num_to_alloc * sizeof(struct yy_buffer_state*) ); if ( ! (yy_buffer_stack) ) YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" ); /* zero only the new slots.*/ memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*)); (yy_buffer_stack_max) = num_to_alloc; } } /** Setup the input buffer state to scan directly from a user-specified character buffer. * @param base the character buffer * @param size the size in bytes of the character buffer * * @return the newly allocated buffer state object. */ YY_BUFFER_STATE yy_scan_buffer (char * base, yy_size_t size ) { YY_BUFFER_STATE b; if ( size < 2 || base[size-2] != YY_END_OF_BUFFER_CHAR || base[size-1] != YY_END_OF_BUFFER_CHAR ) /* They forgot to leave room for the EOB's. */ return 0; b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) ); if ( ! b ) YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" ); b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */ b->yy_buf_pos = b->yy_ch_buf = base; b->yy_is_our_buffer = 0; b->yy_input_file = 0; b->yy_n_chars = b->yy_buf_size; b->yy_is_interactive = 0; b->yy_at_bol = 1; b->yy_fill_buffer = 0; b->yy_buffer_status = YY_BUFFER_NEW; yy_switch_to_buffer(b ); return b; } /** Setup the input buffer state to scan a string. The next call to yylex() will * scan from a @e copy of @a str. * @param yystr a NUL-terminated string to scan * * @return the newly allocated buffer state object. * @note If you want to scan bytes that may contain NUL values, then use * yy_scan_bytes() instead. */ YY_BUFFER_STATE yy_scan_string (yyconst char * yystr ) { return yy_scan_bytes(yystr,strlen(yystr) ); } /** Setup the input buffer state to scan the given bytes. The next call to yylex() will * scan from a @e copy of @a bytes. * @param yybytes the byte buffer to scan * @param _yybytes_len the number of bytes in the buffer pointed to by @a bytes. * * @return the newly allocated buffer state object. */ YY_BUFFER_STATE yy_scan_bytes (yyconst char * yybytes, yy_size_t _yybytes_len ) { YY_BUFFER_STATE b; char *buf; yy_size_t n; int i; /* Get memory for full buffer, including space for trailing EOB's. */ n = _yybytes_len + 2; buf = (char *) yyalloc(n ); if ( ! buf ) YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" ); for ( i = 0; i < _yybytes_len; ++i ) buf[i] = yybytes[i]; buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR; b = yy_scan_buffer(buf,n ); if ( ! b ) YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" ); /* It's okay to grow etc. this buffer, and we should throw it * away when we're done. */ b->yy_is_our_buffer = 1; return b; } #ifndef YY_EXIT_FAILURE #define YY_EXIT_FAILURE 2 #endif static void yy_fatal_error (yyconst char* msg ) { (void) fprintf( stderr, "%s\n", msg ); exit( YY_EXIT_FAILURE ); } /* Redefine yyless() so it works in section 3 code. */ #undef yyless #define yyless(n) \ do \ { \ /* Undo effects of setting up yytext. */ \ int yyless_macro_arg = (n); \ YY_LESS_LINENO(yyless_macro_arg);\ yytext[yyleng] = (yy_hold_char); \ (yy_c_buf_p) = yytext + yyless_macro_arg; \ (yy_hold_char) = *(yy_c_buf_p); \ *(yy_c_buf_p) = '\0'; \ yyleng = yyless_macro_arg; \ } \ while ( 0 ) /* Accessor methods (get/set functions) to struct members. */ /** Get the current line number. * */ int yyget_lineno (void) { return yylineno; } /** Get the input stream. * */ FILE *yyget_in (void) { return yyin; } /** Get the output stream. * */ FILE *yyget_out (void) { return yyout; } /** Get the length of the current token. * */ yy_size_t yyget_leng (void) { return yyleng; } /** Get the current token. * */ char *yyget_text (void) { return yytext; } /** Set the current line number. * @param line_number * */ void yyset_lineno (int line_number ) { yylineno = line_number; } /** Set the input stream. This does not discard the current * input buffer. * @param in_str A readable stream. * * @see yy_switch_to_buffer */ void yyset_in (FILE * in_str ) { yyin = in_str ; } void yyset_out (FILE * out_str ) { yyout = out_str ; } int yyget_debug (void) { return yy_flex_debug; } void yyset_debug (int bdebug ) { yy_flex_debug = bdebug ; } static int yy_init_globals (void) { /* Initialization is the same as for the non-reentrant scanner. * This function is called from yylex_destroy(), so don't allocate here. */ (yy_buffer_stack) = 0; (yy_buffer_stack_top) = 0; (yy_buffer_stack_max) = 0; (yy_c_buf_p) = (char *) 0; (yy_init) = 0; (yy_start) = 0; /* Defined in main.c */ #ifdef YY_STDINIT yyin = stdin; yyout = stdout; #else yyin = (FILE *) 0; yyout = (FILE *) 0; #endif /* For future reference: Set errno on error, since we are called by * yylex_init() */ return 0; } /* yylex_destroy is for both reentrant and non-reentrant scanners. */ int yylex_destroy (void) { /* Pop the buffer stack, destroying each element. */ while(YY_CURRENT_BUFFER){ yy_delete_buffer(YY_CURRENT_BUFFER ); YY_CURRENT_BUFFER_LVALUE = NULL; yypop_buffer_state(); } /* Destroy the stack itself. */ yyfree((yy_buffer_stack) ); (yy_buffer_stack) = NULL; /* Reset the globals. This is important in a non-reentrant scanner so the next time * yylex() is called, initialization will occur. */ yy_init_globals( ); return 0; } /* * Internal utility routines. */ #ifndef yytext_ptr static void yy_flex_strncpy (char* s1, yyconst char * s2, int n ) { register int i; for ( i = 0; i < n; ++i ) s1[i] = s2[i]; } #endif #ifdef YY_NEED_STRLEN static int yy_flex_strlen (yyconst char * s ) { register int n; for ( n = 0; s[n]; ++n ) ; return n; } #endif void *yyalloc (yy_size_t size ) { return (void *) malloc( size ); } void *yyrealloc (void * ptr, yy_size_t size ) { /* The cast to (char *) in the following accommodates both * implementations that use char* generic pointers, and those * that use void* generic pointers. It works with the latter * because both ANSI C and C++ allow castless assignment from * any pointer type to void*, and deal with argument conversions * as though doing an assignment. */ return (void *) realloc( (char *) ptr, size ); } void yyfree (void * ptr ) { free( (char *) ptr ); /* see yyrealloc() for (char *) cast */ } #define YYTABLES_NAME "yytables" #line 455 "scan.ll" /* make it work with flex 2.5.31 */ #ifndef yytext_ptr #define yytext_ptr yytext #endif #define MAX_STACK_LEVELS 16 static int input_stack_index=0; YY_BUFFER_STATE input_stack[MAX_STACK_LEVELS]; /************************************************************************ * yywrap() * * Revert to an old input stream if there is one. If there is not an old * old stream, then the lexer will try to get data from YY_INPUT which * is a macro that calls gpsim_read() (see scan.h). * An 'old' stream is one that was interrupted by a macro expansion. * */ #ifdef yywrap #undef yywrap #endif int yywrap (void) { if(input_stack_index) { yy_delete_buffer(YY_CURRENT_BUFFER); yy_switch_to_buffer(input_stack[--input_stack_index]); return 0; } return 1; } /************************************************************************ * push_input_stack * * called when macros are being expanded. */ static void push_input_stack(void) { if(input_stack_indexname() << endl; else cout << " but there is no current macro\n"; } if(currentMacro && currentMacro->substituteParameter(s,replaced)) if(replaced != s) { if (verbose & 4) cout << " -- found it and replaced it with " << replaced << endl; if (bTryMacroParameterExpansion (replaced)) return true; push_input_stack(); yy_scan_string(replaced.c_str()); theMacroChain.resetParamSource(); return true; } theMacroChain.popParamSource(); return false; } /************************************************************************* * * handle_identifier * * input string &s * cmd_options **op * output int * * 1 - If `op' is NULL, then handle identifier hasn't been called * for the current command that's being processed. So, the * the string `s' is compared to all of the valid commands. * If it is valid, then `op' is assigned a pointer to the * options associated with the command. If the string is not * found, then that's a syntax error and the string is ignored. * 2 - If `op' is non-NULL, then handle_identifier has been called * at least once before for the command that's being processed. * So the string `s' is then compared to the options associated * with the command. If an option is not found, then the string * is returned to the parser (as a type STRING). This places the * burden of syntax checking on the parser and/or the individual * command. * */ int handle_identifier(YYSTYPE* yylvalP, string &s, cmd_options **op ) { int retval = 0; // If no command has been found so far, then the options (*op) // haven't been selected either (and consequently *op is null). if(! *op) { // If the first character in the string is a ' (single quote character) then // this means that the user is explicitly trying to access a user defined symbol // (e.g. if there is variable named "help" in the user's symbol table, then the // only way to get access to it is by using the single quote character: // 'help if(s[0] == '\'') // Strip away the quote, we won't treat this as a command and the parser // doesn't want to know about it. s=s.erase(0,1); else { // Search the commands pLexerState->cmd = search_commands(s); if(pLexerState->cmd) { if(verbose&2) cout << "\n *******\nprocessing command " << (pLexerState->cmd->name()) << "\n token value " << (pLexerState->cmd->get_token()) << "\n *******\n"; *op = pLexerState->cmd->get_op(); pLexerState->have_parameters = 0; retval = pLexerState->cmd->get_token(); // ugh. This is problem when the parser becomes re-entrant. last_command_is_repeatable = pLexerState->cmd->is_repeatable(); return recognize(retval,"good command"); } } // Search the macros yylvalP->Macro_P = isMacro(s); if(yylvalP->Macro_P) { return MACROINVOCATION_T; } if (bTryMacroParameterExpansion(s)) return 0; } else { if(verbose&2) cout << "search options for command '" << (pLexerState->cmd ? pLexerState->cmd->name() : "?") << "'\n"; if (bTryMacroParameterExpansion(s)) return 0; // We already have the command, so search the options. struct cmd_options *opt = *op; // We also have one or more parameters now (though they // may not be correct, but that's the parser's job to determine). pLexerState->have_parameters = 1; while(opt->name) if(strcmp(opt->name, s.c_str()) == 0) { if(verbose&2) cout << "found option '" << opt->name << "'\n"; yylvalP->co = opt; return recognize(translate_token(opt->token_type),"option"); } else opt++; } // If we get here, then the option was not found. // So let's check the symbols Processor *cpu; if(s[0] == '.' && (cpu = get_active_cpu()) != 0) s.insert(0,cpu->name()); string s1(s); gpsimObject *obj = globalSymbolTable().find(s1); if(obj) { yylvalP->Symbol_P = obj; if(verbose&2) cout << "found symbol '" << obj->name() << "'\n"; return recognize(SYMBOL_T,"symbol"); } //cout << "didn't find it in the symbol list\n"; // Either 1) there's a typo or 2) the command is creating // a new symbol or node or something along those lines. // In either case, let's let the parser deal with it. if(verbose&2) cout << " returning unknown string: " << s << endl; return process_stringLiteral(yylvalP,s.c_str()); return 0; } /***************************************************************** * Process an integer literal. This routine constructs the * YYSTYPE object. The caller is responsible from returning the * LITERAL_INT_T token identifer to the parser. */ static int process_intLiteral(YYSTYPE* yylvalP, char *buffer, int conversionBase) { char c; gint64 literalValue=0; gint64 nxtDigit; while (*buffer) { c = toupper(*buffer++); nxtDigit = (c) <= '9' ? c-'0' : c-'A'+10; if ((nxtDigit >= conversionBase) || (nxtDigit<0)) { /* If the next digit exceeds the base, then it's an error unless this is a binary conversion and the character is a single quote */ if(!(conversionBase == 2 && c == '\'')) literalValue = 0; break; } literalValue *= conversionBase; literalValue += nxtDigit; } yylvalP->Integer_P = new Integer(literalValue); return(recognize(LITERAL_INT_T,"literal int")); } /***************************************************************** * */ static int process_macroBody(YYSTYPE* yylvalP, const char *text) { yylvalP->s = strdup(text); return recognize(MACROBODY_T,"macro body"); } /***************************************************************** * */ static int process_booleanLiteral(YYSTYPE* yylvalP, bool value) { yylvalP->Boolean_P = new Boolean(value); return(recognize(LITERAL_BOOL_T, "boolean literal")); } /***************************************************************** * */ static int process_floatLiteral(YYSTYPE* yylvalP, char *buffer) { double floatValue; #if 0 errno = 0; floatValue = atof(buffer); if (errno != 0) { /* The conversion failed */ throw new Error("Bad floating point literal"); } #else char *endptr=0; floatValue = strtod(buffer, &endptr); if (endptr == buffer) throw new Error("Bad floating point literal"); #endif yylvalP->Float_P = new Float(floatValue); return(recognize(LITERAL_FLOAT_T, "float literal")); } /***************************************************************** * */ static int process_stringLiteral(YYSTYPE* yylvalP, const char *buffer) { yylvalP->String_P = new String(buffer); return(recognize(LITERAL_STRING_T, "string literal")); } static int process_quotedStringLiteral(YYSTYPE* yylvalP, char *buffer) { char * pCloseQuote = strchr(buffer, '\"'); if(pCloseQuote == NULL) pCloseQuote = strchr(buffer, '\''); *pCloseQuote = 0; yylvalP->String_P = new String(buffer); return(recognize(LITERAL_STRING_T, "string literal")); } /***************************************************************** * */ static int process_shellLine(YYSTYPE* yylvalP, const char *buffer) { yylvalP->String_P = new String(buffer); return(recognize(SHELL, "shell line")); } static string strip_trailing_whitespace (char *s) { string retval = s; size_t pos = retval.find_first_of (" \t"); if (pos != string::npos) retval.resize (pos); return retval; } //------------------------------------------------------------------------ static void SetMode(int newmode) { BEGIN(newmode); if(pLexerState) pLexerState->mode = newmode; } void initialize_commands(void); void init_cmd_state(void) { if(pLexerState) { if (verbose) cout << "scan: clearing lexer state and flushing buffer\n"; pLexerState->cmd = 0; pLexerState->options = 0; pLexerState->input_mode = 0; pLexerState->end_of_command = 0; pLexerState->have_parameters = 0; pLexerState->mode = 0; } } void FlushLexerBuffer() { #ifdef YY_FLUSH_BUFFER YY_FLUSH_BUFFER; #else yy_flush_buffer(YY_CURRENT_BUFFER ); #endif } static void pushLexerState() { if(verbose) cout << "pushing lexer state: from level " << sLevels << " to " << (sLevels+1) << endl; sLevels++; LexerStateStruct *pLS = new LexerStateStruct(); if(pLexerState) pLexerState->next = pLS; pLS->prev = pLexerState; pLexerState = pLS; pLS->next = 0; init_cmd_state(); } static void popLexerState() { if(verbose) cout << "popping lexer state: from level " << sLevels << " to " << (sLevels-1) << endl; sLevels--; if(pLexerState) { LexerStateStruct *pLS = pLexerState; pLexerState = pLS->prev; if(pLexerState) { pLexerState->next = 0; pLexerState->cmd = 0; pLexerState->options = 0; } SetMode(pLS->mode); delete pLS; } } int scan_read (char *buf, unsigned max_size) { static int lastRet = -1; // hack int ret = gpsim_read(buf,max_size); if (lastRet == ret && ret == 0) { *buf = '\n'; ret = 1; } lastRet = ret; return ret; } int init_parser() { pushLexerState(); int ret = yyparse(); popLexerState(); return ret; } // Tell us what the current buffer is. YY_BUFFER_STATE current_buffer (void) { return YY_CURRENT_BUFFER; } // Create a new buffer. YY_BUFFER_STATE create_buffer (FILE *f) { return yy_create_buffer (f, YY_BUF_SIZE); } // Start reading a new buffer. void switch_to_buffer (YY_BUFFER_STATE buf) { yy_switch_to_buffer (buf); } // Delete a buffer. void delete_buffer (YY_BUFFER_STATE buf) { yy_delete_buffer (buf); } // Restore a buffer (for unwind-prot). void restore_input_buffer (void *buf) { switch_to_buffer ((YY_BUFFER_STATE) buf); } // Delete a buffer (for unwind-prot). void delete_input_buffer (void *buf) { delete_buffer ((YY_BUFFER_STATE) buf); } //------------------------------------------------------------------------ // called by the parser error handler. command *getLastKnownCommand() { if(pLexerState) return pLexerState->cmd; return 0; } //---------------------------------------- // void lexer_setMacroBodyMode(void) { macroBodyPtr = ¯oBody[0]; if(verbose&4) cout << "setting lexer MACROBODY mode\n"; SetMode(MACROBODY); } //---------------------------------------- // void lexer_setDeclarationMode() { if(verbose&4) cout << "setting lexer DECLARATION mode\n"; SetMode(DECLARATION); } //---------------------------------------- static bool isWhiteSpace(char c) { return (c==' ' || c == '\t'); } //---------------------------------------- // getNextMacroParameter(char *s, int l) // // returns true if a macro parameter can be extracted // from yyinput buffer. If it does return true, then the // extracted macro parameter will get copied to // the string 's'. // // This routine will lexically analyze a character string // and split it up into chunks that can be passed to a // macro invocation. It might be possible to add a new // lex state and do this work in the lexer... // // If input stream looks something like: // // expression1, expression2, expression3, ... // // then this function will return true and copies 'expression1' // to 's'. static bool getNextMacroParameter(char *s, int l) { char c; // delete all leading white space. do { c = yyinput(); } while(isWhiteSpace(c)); if(c==',') goto done; unput(c); if(!c) return false; { int nParen=0; bool bDone = false; do { c = yyinput(); if(c == '(') nParen++; if(c == ')' && --nParen < 0 ) bDone = true; if(c==',') break; if(c==0 || c=='\n' ) { bDone=true; unput(c); } else *s++ = c; } while(--l>0 && !bDone); } done: *s=0; return true; } void lexer_InvokeMacro(Macro *m) { if(!m) return; if(verbose &4) cout << "Invoking macro: " << m->name() << endl; theMacroChain.push(m); m->prepareForInvocation(); int i=0; bool bValidParameter = false; do { i++; char s[256]; bValidParameter = getNextMacroParameter(s,sizeof(s)); if(bValidParameter) { m->add_parameter(s); if(verbose &4) cout << "macro param: " << s << endl; } } while (bValidParameter && inParameters()); m->invoke(); } void scanPushMacroState(Macro *m) { gCurrentMacro = m; } void scanPopMacroState() { theMacroChain.pop(); } gpsim-0.27.0/cli/cmd_module.cc0000644000076400007640000001651310644005165013045 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "command.h" #include "cmd_module.h" #include "../src/pic-processor.h" #include "../src/modules.h" #include "../src/symbol.h" #include "../src/cmd_manager.h" cmd_module c_module; #define CMD_MOD_LIST 1 #define CMD_MOD_LOAD 2 #define CMD_MOD_DUMP 3 #define CMD_MOD_LIB 4 #define CMD_MOD_PINS 5 static cmd_options cmd_module_options[] = { {"list", CMD_MOD_LIST, OPT_TT_BITFLAG}, {"load", CMD_MOD_LOAD, OPT_TT_STRING}, {"dump", CMD_MOD_DUMP, OPT_TT_BITFLAG}, {"pins", CMD_MOD_PINS, OPT_TT_STRING}, {"library", CMD_MOD_LIB , OPT_TT_STRING}, {"lib", CMD_MOD_LIB , OPT_TT_STRING}, {0,0,0} }; cmd_module::cmd_module() : command("module","mod") { brief_doc = string("Select & Display modules"); long_doc = string ( "module [ [load module_type [module_name]] | [lib lib_name] | [list] | \n" "[[dump | pins] module_name] ] \n" "\tIf no options are specified, then the currently defined module(s)\n" "\twill be displayed. This is the same as the `module list' command.\n" "\tThe `module load lib_name' tells gpsim to search for the module\n" "\tlibrary called `lib_name' and to load it. (Note that the format of\n" "\tmodule libraries is exactly the same as a Linux shared library. This\n" "\tmeans that the module library should reside in a path available to\n" "\tdlopen(). Please see the README.MODULES in the gpsim distribution.\n" "\tTo instantiate a new module, then type\n" "\t module module_type module_name\n" "\twhere module_type refers to a specific module in a module library\n" "\tand module_name is the user name assigned to it.\n" "\tInformation about a module can be displayed by the command\n" "\t module module_name [dump | pins]\n" "\twhere module_name is the name that you assigned when the module\n" "\twas instantiated. The optional dump and pins identifiers specify\n" "\tthe information you wish to display (dump is the default).\n" "\n" "\tDevelopers of gpsim and developers building libraries for use with\n" "\tgpsim may find it useful to set the GPSIM_MODULE_PATH environment variable\n" "\tto the target folder of the library module that is under development.\n" "\tMultiple folders may be delimited with a ':' for Linux and ';' for\n" "\tWindows.\n" "\n" "\texamples:\n" "\n" "\tmodule // Display the modules you've already defined.\n" "\tmodule lib my_mods.so // Load the module library called my_mods.\n" "\tmodule list // Display the list of modules supported.\n" "\tmodule load lcd my_lcd // Create an instance of an 'lcd'\n" "\tmodule pins my_lcd // Display the pin states of an instantiated module\n" "\tmodule load lcd lcd2x20 // Create a new module.\n" "\tmodule load pullup R1 // and another.\n" ); op = cmd_module_options; } static void dumpModules(const SymbolTableEntry_t &st) { cout << " Module: " << st.first << endl; } void cmd_module::module(void) { if(verbose) cout << "cmd_module: display modules\n"; #ifdef OLD_MODULE_LIBRARY cout << ModuleLibrary::DisplayModuleList(); #else globalSymbolTable().ForEachModule(dumpModules); #endif } void cmd_module::module(cmd_options *opt) { if(!opt) return; switch(opt->value) { case CMD_MOD_LIST: #ifdef OLD_MODULE_LIBRARY cout << ModuleLibrary::DisplayFileList(); #else ModuleLibrary::ListLoadableModules(); #endif break; default: cout << "cmd_module error:"; if(opt->name) cout << " no parameters with option: " << opt->name; cout << endl; } } void cmd_module::module(cmd_options_str *cos, list *strs) { // const int cMAX_PARAMETERS=2; // int nParameters=cMAX_PARAMETERS; // guint64 parameters[cMAX_PARAMETERS] = {0,0}; // evaluate(eList, parameters, &nParameters); list :: iterator si; string s1, s2; int nStrings = 0; if (strs) { nStrings = strs->size(); si = strs->begin(); if(strs->size() >= 1) { s1 = *si; if(strs->size() >= 2) { ++si; s2 = *si; } } } // Now choose the specific command based on the input parameters if(nStrings==0) module(cos); else if(nStrings==1) module(cos, s1.c_str()); //else if(nParameters==0 && nStrings==2) // module(cos, (char*)s1.c_str(), (char*)s2.c_str()); //else if(nParameters==1 && nStrings==1) // module(cos, (char*)s1.c_str(), parameters[0]); //else if(nParameters==2 && nStrings==0) // module(cos, parameters[0], parameters[1]); //else if(nParameters==1 && nStrings==2) // module(cos, (char*)s1.c_str(), (char*)s2.c_str(), parameters[0]); else cout << "module command error\n"; } void cmd_module::module(cmd_options_str *cos) { if(!cos) return; switch(cos->co->value) { case CMD_MOD_LIB: if(verbose) cout << "module command got the library " << cos->str << endl; try { string fname(cos->str); ModuleLibrary::LoadFile(fname); } catch(Error *pError) { cout << pError->get_errMsg(); } break; case CMD_MOD_LOAD: // Load a module from (an already loaded) library and let // gpsim assign the name. if(verbose) cout << "module command got the module " << cos->str << '\n'; #ifdef OLD_MODULE_LIBRARY if(ModuleLibrary::NewObject(cos->str) == NULL) { GetUserInterface().DisplayMessage("module type %s not created\n", cos->str); } #else { cout << "Fixme -- module NewObject\n"; } #endif break; case CMD_MOD_DUMP: cout << " is not supported yet\n"; break; case CMD_MOD_PINS: cout << "Fixme: display module pins is not supported...\n"; //ModuleLibrary::DisplayModulePins(cos->str); break; default: cout << "cmd_module error\n"; } } void cmd_module::module(cmd_options_str *cos, const char *op1) { switch(cos->co->value) { case CMD_MOD_LOAD: // Load a module from (an already loaded) library #ifdef OLD_MODULE_LIBRARY if(ModuleLibrary::NewObject(cos->str, op1) == NULL) { GetUserInterface().DisplayMessage("module type %s not created\n", cos->str); } #else { string mName(cos->str); string refDes(op1); if(!ModuleLibrary::InstantiateObject(mName,refDes)) GetUserInterface().DisplayMessage("module type %s not created\n", cos->str); } #endif break; default: cout << "Warning, ignoring module command\n"; } } gpsim-0.27.0/cli/socket.cc0000664000076400007640000007352612163701216012234 00000000000000/* Copyright (C) 2004 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #ifndef _WIN32 #include #endif #include #include #include #include //#include "../src/processor.h" #include "../src/symbol.h" #include "../src/protocol.h" #include "../src/gpsim_interface.h" #include "../src/breakpoints.h" #include "../src/gpsim_time.h" #ifndef _WIN32 #include #include #else #include #endif void exit_gpsim(int); //******** E X P E R I M E N T A L C O D E !!! ************************* // Here is an experimental attribute for testing the socket interface. // The purpose is to isolate socket testing from the rest of the simulator. // class TestInt32Array : public Value { public: TestInt32Array(const char *_name, int _sz) : Value(_name, " test array for testing sockets") { size = _sz; array = new int[size]; } ~TestInt32Array() { delete[] array; } virtual void set(const char *cP,int len=0) { std::cout << name() << " set\n"; } virtual void get(char *, int len) { std::cout << name() << " get\n"; } virtual string toString() { return name(); } private: int size; int *array; }; //************************* end of experimental code ******************** class SocketLink; class Socket; // in input.cc -- parse_string sends a string through the command parser extern int parse_string(const char * str); #ifdef WIN32 #define snprintf _snprintf #define socklen_t int bool server_started = false; void psocketerror(const char *str) { fprintf (stderr, "%s: %s\n", str, g_win32_error_message(WSAGetLastError())); } bool winsockets_init(void) { WSADATA wsaData; int err; if (0 != (err = WSAStartup( MAKEWORD( 2, 2 ), &wsaData ))) return false; /* Confirm that the WinSock DLL supports 2.2.*/ /* Note that if the DLL supports versions greater */ /* than 2.2 in addition to 2.2, it will still return */ /* 2.2 in wVersion since that is the version we */ /* requested. */ if (LOBYTE( wsaData.wVersion ) != 2 || HIBYTE( wsaData.wVersion ) != 2 ) { /* Tell the user that we could not find a usable */ /* WinSock DLL. */ WSACleanup( ); return false; } return true; } #else #define psocketerror(s) perror(s) #define closesocket(s) close(s) #define SOCKET int #define INVALID_SOCKET -1 #endif // /* gpsim sockets. The purpose of a socket interface into the simulator is to provide an external interface that only loosely depends upon gpsim's internals. Towards the bottom of this file is code that will start a server 'process' that will listen for clients. This 'process' is really a glib GIOChannel. The GIOChannel is a glib mechanism for handling things like sockets so that they work nicely when compiled for other platforms. Now, whenever a client connects to gpsim, another GIOChannel is created. This new channel has the client socket associated with it and is used to communicate with the client. Thus, like most socket server applications, gpsim creates a single socket to listen for clients. As clients come along, connections are established with them. gpsim uses GLIB's GIOChannels to facilitate the simultaneous multiple connections. Once a client has connected to gpsim, it can do just about everything a user sitting at a keyboard can do. In fact, the client can issue command line commands that are directed to the command line parser. Although, at the moment, the output of these commands still is sent to the terminal from which the gpsim executable was spawned (instead of being sent to the client socket...). Probably more powerful though is the ability for a client to establish 'links' to gpsim internal objects. These links are provide a client with an efficient access to gpsim's symbol table. There are two kinds of socket connection types that gpsim supports. I call them 'Simulator Source' and 'Simulator Sink' sockets. They're both similar in that they connect to a client through the normal mechanism. However, they're different in how they behave while the simulator is running. The Simulator Sink sockets are designed to be controlled by a GLIB GIOChannel. They are intended to receive unsolicited data from a client. In addition, since they're controlled by a GIOChannel, they can only be processed while the GTK main loop has control (which in the current implementation is all time except when the simulation is running). So the idea is that clients can send stuff to the simulator, and if the simulator is not running, the information is processed and a response is returned to the client. Simulator Sources are for sending unsolicited simulator data to a client. This is a blocking operation, i.e. it will not return until the client has sent a response. Now, the client is responsible for setting Simulator Source Sockets up. So during the socket connection and initialization the client specifies what it wants the simulator to send unsolicited. You might imagine a situation where a plugin module may be receiving data from a script. */ #define SIM_SINK_PORT 0x1234 #define SIM_SOURCE_PORT 0x1235 #define BUFSIZE 8192 //------------------------------------------------------------------------ bool ParseSocketLink(Packet *buffer, SocketLink **); //------------------------------------------------------------------------ //------------------------------------------------------------------------ // class SocketInterface : public Interface { private: Socket *sock; public: virtual void SimulationHasStopped (gpointer object); virtual void Update (gpointer object); virtual ~SocketInterface(); SocketInterface(Socket *); }; //------------------------------------------------------------------------ // Socket wrapper class // // This class is a simple wrapper around the standard BSD socket calls. // class SocketBase { public: SocketBase(SOCKET s); ~SocketBase(); SOCKET getSocket(); void Close(); bool Send(const char *); void Service(); void ParseObject(); Packet *packet; private: SOCKET socket; }; //------------------------------------------------------------------------ // Socket class // This class is responsible for listening to clients. // class Socket { public: Socket(); ~Socket(); void init(int port); void AssignChannel(gboolean (*server_func)(GIOChannel *,GIOCondition,void *)); void Close(SocketBase**); void Bind(); void Listen(); SocketBase * Accept(); SocketBase *my_socket; struct sockaddr_in addr; }; class SocketLink { public: SocketLink(unsigned int _handle, SocketBase *); virtual ~SocketLink() { } /// Send a response back to the link. /// if the bTimeStamp is true, then the cycle counter is sent too. bool Send(bool bTimeStamp=false); bool Receive(); virtual void set(Packet &)=0; virtual void get(Packet &)=0; unsigned int getHandle() { return handle; } void setBlocking(bool bBlocking) { bWaitForResponse = bBlocking; } bool bBlocking() { return bWaitForResponse; } private: unsigned int handle; SocketBase *parent; bool bWaitForResponse; }; ///======================================================================== /// AttributeLink /// An attribute link is a link associated with a gpsim attribute. /// Clients will establish attribute links by providing the name /// of the gpsim object with which they wish to link. The over head /// for parsing the link name and looking it up in the table only /// has to be done once. class AttributeLink : public SocketLink { public: AttributeLink(unsigned int _handle, SocketBase *, Value *); virtual ~AttributeLink() { } void set(Packet &); void get(Packet &); Value *getValue() { return v; } private: /// This is a pointer to the gpsim Value object associated with /// this link. Value *v; }; ///======================================================================== /// NotifyLink /// A notify link is a link designed to be a sort of cross reference. It /// is associated with a gpsim attribute in such a way that whenever the /// gpsim attribute changes, the notify link will notify a client socket. class NotifyLink : public Value { public: virtual void set(gint64); NotifyLink(AttributeLink *); private: AttributeLink *sl; }; ///======================================================================== /// CyclicCallBackLink /// A cyclic call back link is a link that periodically sends a message /// to the client. class CyclicCallBackLink : public TriggerObject { public: CyclicCallBackLink(guint64 , SocketBase *); virtual void callback(); virtual void callback_print(void); private: guint64 interval; SocketBase *sb; }; //======================================================================== #define nSOCKET_LINKS 16 SocketLink *links[nSOCKET_LINKS]; AttributeLink *gCreateSocketLink(unsigned int, Packet &, SocketBase *); unsigned int FindFreeHandle() { unsigned int i; static unsigned int sequence = 0; for(i=0; iDecodeUInt32(handle)) { unsigned int index = handle & 0xffff; *sl = links[index&0x0f]; if( (*sl) && (*sl)->getHandle() != handle) *sl = 0; return true; } return false; } //======================================================================== void CloseSocketLink(SocketLink *sl) { if(!sl) return; unsigned int handle = sl->getHandle(); std::cout << " closing link with handle 0x" << hex << handle << endl; if(links[handle&0x000f] == sl) links[handle&0x000f] = 0; } //======================================================================== Socket::Socket() { my_socket = 0; for(int i=0; igetSocket() > 0) { GIOChannel *channel = g_io_channel_unix_new(my_socket->getSocket()); GIOCondition condition = (GIOCondition)(G_IO_IN | G_IO_HUP | G_IO_ERR); #if GLIB_MAJOR_VERSION >= 2 GError *err = NULL; g_io_channel_set_encoding (channel, NULL, &err); #if !defined _WIN32 || defined _DEBUG g_io_channel_set_flags (channel, G_IO_FLAG_SET_MASK, &err); #endif #endif g_io_add_watch(channel, condition, server_function, (void*)this); } } void Socket::Close(SocketBase **sock) { if (sock && *sock) (*sock)->Close(); *sock = 0; } void Socket::Bind() { if(!my_socket) return; if (bind(my_socket->getSocket(), (struct sockaddr *) &addr, sizeof(addr)) != 0) { psocketerror("bind"); } } void Socket::Listen() { if(!my_socket) return; if (listen(my_socket->getSocket(), 5) != 0) { psocketerror("listen"); } } SocketBase *Socket::Accept() { socklen_t addrlen = sizeof(addr); SOCKET client_socket = accept(my_socket->getSocket(),(struct sockaddr *) &addr, &addrlen); if (client_socket == INVALID_SOCKET) { psocketerror("accept"); exit_gpsim(1); } return new SocketBase(client_socket); } bool SocketBase::Send(const char *b) { if(!socket) return false; //std::cout << "Sending sock="<DecodeObjectType(ObjectType)) return; switch (ObjectType) { case GPSIM_CMD_CREATE_SOCKET_LINK: { unsigned int handle = FindFreeHandle(); AttributeLink *sl = gCreateSocketLink(handle, *packet, this); if(sl) { links[handle&0x0f] = sl; packet->EncodeHeader(); packet->EncodeUInt32(handle); packet->txTerminate(); Send(packet->txBuff()); } } break; case GPSIM_CMD_CREATE_NOTIFY_LINK: { unsigned int handle = FindFreeHandle(); AttributeLink *sl = gCreateSocketLink(handle, *packet, this); if(sl) { unsigned int i=0; if(packet->DecodeUInt32(i) && i) sl->setBlocking(true); //NotifyLink *nl = new NotifyLink(sl); links[handle&0x0f] = sl; packet->EncodeHeader(); packet->EncodeUInt32(handle); packet->txTerminate(); Send(packet->txBuff()); } } break; case GPSIM_CMD_CREATE_CALLBACK_LINK: { unsigned int handle = FindFreeHandle(); guint64 interval=0; std::cout << "Creating callback link\n"; if(packet->DecodeUInt64(interval) && interval) { std::cout << "Creating callback link interval=" << interval << endl; //CyclicCallBackLink *cl = new CyclicCallBackLink(interval,this); //links[handle&0x0f] = sl; packet->EncodeHeader(); packet->EncodeUInt32(handle); packet->txTerminate(); Send(packet->txBuff()); } } break; case GPSIM_CMD_REMOVE_SOCKET_LINK: { SocketLink *sl=0; std::cout << "remove socket link command\n"; ParseSocketLink(packet, &sl); if(sl) CloseSocketLink(sl); Send("$"); } break; case GPSIM_CMD_QUERY_SOCKET_LINK: { SocketLink *sl=0; ParseSocketLink(packet, &sl); if(sl) sl->Send(); } break; case GPSIM_CMD_WRITE_TO_SOCKET_LINK: { SocketLink *sl=0; ParseSocketLink(packet, &sl); if(sl) { sl->set(*packet); Send("$"); } } break; case GPSIM_CMD_QUERY_SYMBOL: { char tmp[256]; if(packet->DecodeString(tmp,256)) { Value *sym = globalSymbolTable().findValue(tmp); if(sym) { packet->EncodeHeader(); sym->get(*packet); packet->txTerminate(); Send(packet->txBuff()); } else Send("-"); } } break; case GPSIM_CMD_WRITE_TO_SYMBOL: { // The client has requested to write directly to a symbol // (without using a SocketLink). So, we'll extract the symbol // name from the packet and look it up in the symbol table. // If the symbol is found then, it will get assigned the // value that's stored in the packet. char tmp[256]; if(packet->DecodeString(tmp,256)) { Value *sym = globalSymbolTable().findValue(tmp); if(sym) { // We'll define the response header before we decode // the rest of the packet. The reason for this is that // some symbols may wish to generate a response. packet->EncodeHeader(); sym->set(*packet); packet->txTerminate(); Send(packet->txBuff()); } else Send("-"); } } break; case GPSIM_CMD_RUN: { guint64 nCycles; guint64 startCycle = get_cycles().get(); // Extract from the packet the number of cycles we should run. // If the number of cycles is greater than 0, then we'll set // a cycle breakpoint; otherwise we'll run forever. if(packet->DecodeUInt64(nCycles)) { guint64 fc = startCycle + nCycles; if(nCycles) { get_bp().set_cycle_break(0,fc); } } // Start running... get_interface().start_simulation(); // The simulation has stopped. For the response (to the run // command) we'll send the current value of the cycle counter. // (A client can use this to determine if the break was due to // cycle break set above or to something else). packet->EncodeObjectType(GPSIM_CMD_RUN); packet->EncodeUInt64(get_cycles().get() - startCycle); packet->txTerminate(); Send(packet->txBuff()); } break; case GPSIM_CMD_RESET: get_interface().reset(); Send("-"); break; default: printf("Invalid object type: %d\n",ObjectType); Send("-"); } } //------------------------------------------------------------------------ // Service() // // A client has sent data to gpsim through the socket interface. It is here // where we validate that data and decide how to handle it. void SocketBase::Service() { if(packet->brxHasData()) { // If the data is a 'pure socket command', which is to say it begins // with a header as defined in ../src/protocol.h, then the data // will be further parsed by ParseObject(). If the data has an // invalid header, then we assume that the data is for the command // line and we let the CLI parse_string() function handle it. // FIXME gpsim poorly handles this CLI interface. We should send // the output of the CLI back to the client socket. if (packet->DecodeHeader()) { ParseObject(); } else { if(parse_string(packet->rxBuff()) >= 0) Send("+ACK"); else Send("+BUSY"); } } } //======================================================================== // Socket Interface SocketInterface::SocketInterface(Socket *new_socket) : sock(new_socket) { } void SocketInterface::SimulationHasStopped (gpointer object) { } void SocketInterface::Update (gpointer object) { /* if(sock) sock->Service(); printf("socket update\n"); */ } SocketInterface::~SocketInterface() { /* if(sock) sock->Service(); */ } //======================================================================== SocketLink::SocketLink(unsigned int _handle, SocketBase *sb) : handle(_handle), parent(sb), bWaitForResponse(false) { } bool SocketLink::Send(bool bTimeStamp) { if(parent) { parent->packet->prepare(); parent->packet->EncodeHeader(); get(*parent->packet); if(bTimeStamp) parent->packet->EncodeUInt64(get_cycles().get()); parent->packet->txTerminate(); /* std::cout << "SocketLink::Send() " << " socket=" << parent->getSocket() << " sending " << parent->packet->txBuff() << endl; */ if(bWaitForResponse) { //std::cout << "SocketLink::Send waiting for response\n"; if(parent->Send(parent->packet->txBuff())) return Receive(); } else return parent->Send(parent->packet->txBuff()); } return false; } bool SocketLink::Receive() { if(parent) { //cout << "SocketLink is waiting for a client response\n"; parent->packet->prepare(); int bytes= recv(parent->getSocket(), parent->packet->rxBuff(), parent->packet->rxSize(), 0); if (bytes == -1) { perror("recv"); exit_gpsim(1); } parent->packet->rxTerminate(bytes); /* cout << "SocketLink got client response: " << parent->packet->rxBuff() << endl; */ return true; } return false; } //======================================================================== AttributeLink::AttributeLink(unsigned int _handle, SocketBase *_sb, Value *_v) : SocketLink(_handle,_sb), v(_v) { } void AttributeLink::set(Packet &p) { if(v) v->set(p); } void AttributeLink::get(Packet &p) { if(v) v->get(p); } //======================================================================== NotifyLink::NotifyLink(AttributeLink *_sl) : Value(), sl(_sl) { new_name("notifylink"); std::cout<< "Creating a notify link \n"; if(sl && sl->getValue()) { Value *v = sl->getValue(); std::cout<< "Creating a notify link and asoc with "<< v->name()<getValue()->set_xref(this); } } void NotifyLink::set(gint64 i) { //std::cout << "notify link is sending data back to client\n"; if(sl) sl->Send(true); } //======================================================================== CyclicCallBackLink::CyclicCallBackLink(guint64 i, SocketBase *_sb) : interval(i), sb(_sb) { std::cout << " cyclic callback object\n "; get_cycles().set_break(get_cycles().get() + interval, this); } void CyclicCallBackLink::callback(void) { std::cout << " cyclic callback\n "; if(sb) { static bool bfirst = true; static char st[5]; static int seq=0; if(bfirst) { bfirst = false; st[0] = 'h'; st[1] = 'e'; st[2] = 'y'; st[3] = '0'; st[4] = 0; } if(++st[3] > '9') st[3] = '0'; if(sb->Send(st)) get_cycles().set_break(get_cycles().get() + interval, this); else std::cout << "socket callback failed seq:" << seq++ << endl; } } void CyclicCallBackLink::callback_print(void) { std::cout << " cyclic callback\n "; } //======================================================================== AttributeLink *gCreateSocketLink(unsigned int handle, Packet &p, SocketBase *sb) { char tmp[256]; if(p.DecodeString(tmp,256)) { Value *sym = globalSymbolTable().findValue(tmp); if(sym) return new AttributeLink(handle,sb,sym); } return 0; } ////////////////////////////////////////////////////////////////////////// #ifdef USE_THREADS_BUT_NOT_RECOMMENDED_BECAUSE_OF_CROSS_PLATFORM_ISSUES void *server_thread(void *ignored) { std::cout << "running....\n"; Socket s; while ( true ) { s.receive(); } return 0; } pthread_t thSocketServer; pthread_attr_t thAttribute; int something=1; void start_server(void) { std::cout << "starting server....\n"; pthread_attr_init(&thAttribute); pthread_attr_setdetachstate(&thAttribute, PTHREAD_CREATE_JOINABLE); pthread_create(&thSocketServer, &thAttribute, server_thread, (void *)&something); std::cout << " started server\n"; } #else // if USE_THREADS #if GLIB_MAJOR_VERSION >= 2 static void debugPrintChannelStatus(GIOStatus stat) { switch (stat) { case G_IO_STATUS_ERROR: std::cout << "G_IO_STATUS_ERROR\n"; break; case G_IO_STATUS_NORMAL: std::cout << "G_IO_STATUS_NORMAL\n"; break; case G_IO_STATUS_EOF: std::cout << "G_IO_STATUS_EOF\n"; break; case G_IO_STATUS_AGAIN: std::cout << "G_IO_STATUS_AGAIN\n"; break; } } #if 0 // defined but not used static void debugPrintCondition(GIOCondition cond) { if(cond & G_IO_IN) std::cout << " G_IO_IN\n"; if(cond & G_IO_OUT) std::cout << " G_IO_OUT\n"; if(cond & G_IO_PRI) std::cout << " G_IO_PRI\n"; if(cond & G_IO_ERR) std::cout << " G_IO_ERR\n"; if(cond & G_IO_HUP) std::cout << " G_IO_HUP\n"; if(cond & G_IO_NVAL) std::cout << " G_IO_NVAL\n"; } #endif #endif /*======================================================================== server_callback () This call back function is invoked from the GTK main loop whenever a client socket has sent something to send to gpsim. This callback will only be invoked for those clients that have already connected to gpsim. Those connected clients have associated with them a 'SocketBase' object. A pointer to that object is passed in the server_callback parameters. This function essentially will respond to the messages that clients send in much the same way the BSD socket command recv() does. Which is to say, the data that the clients send is read from the socket. The actual parsing of the data is done by the routine 'SocketBase::Service()'. */ static gboolean server_callback(GIOChannel *channel, GIOCondition condition, void *pSocketBase ) { SocketBase *s = (SocketBase *)pSocketBase; if(condition & G_IO_HUP) { std::cout<< "client has gone away\n"; #if GLIB_MAJOR_VERSION >= 2 GError *err=NULL; GIOStatus stat = g_io_channel_shutdown(channel, TRUE, &err); std::cout << "channel status " << hex << stat << " " ; debugPrintChannelStatus(stat); #endif delete s; return FALSE; } if(condition & G_IO_IN) { gsize bytes_read=0; s->packet->prepare(); memset(s->packet->rxBuff(), 0, 256); #if GLIB_MAJOR_VERSION >= 2 GError *err=NULL; gsize b; #if !defined _WIN32 || defined _DEBUG g_io_channel_set_flags (channel, G_IO_FLAG_NONBLOCK, &err); #endif g_io_channel_read_chars(channel, s->packet->rxBuff(), s->packet->rxSize(), &b, &err); bytes_read = b; s->packet->rxAdvance(bytes_read); if(err) { std::cout << "GError:" << err->message << endl; } #else g_io_channel_read(channel, s->packet->rxBuff(), BUFSIZE, &bytes_read); #endif if(bytes_read) { if(get_interface().bSimulating()) { std::cout << "setting a socket break point because sim is running \n"; get_bp().set_socket_break(); } else s->Service(); } else return FALSE; return TRUE; } return FALSE; } /*======================================================================== server_accept( ) This call back function is invoked from the GTK loop whenever a client is attempting to establish a socket connection to gpsim. The purpose of this function is to accept a socket connection and to create a GLIB GIOChannel associated with it. This GIOChannel will listen to the client socket and will invoke the server_callback() callback whenever the client sends data. In addition, a new 'SocketBase' object will be created when the connection is accepted. This SocketBase object wraps the BSD socket and provides additional support for simplifying the socket communication. */ static gboolean sink_server_accept(GIOChannel *channel, GIOCondition condition, void *d ) { Socket *s = (Socket *)d; std::cout << " SourceSink accepting new client connect\n"; SocketBase *client = s->Accept(); if(!client) return FALSE; GIOChannel *new_channel = g_io_channel_unix_new(client->getSocket()); GIOCondition new_condition = (GIOCondition)(G_IO_IN | G_IO_HUP | G_IO_ERR); #if GLIB_MAJOR_VERSION >= 2 GError *err = NULL; g_io_channel_set_encoding (channel, NULL, &err); #if !defined _WIN32 || defined _DEBUG //stat = g_io_channel_set_flags (channel, G_IO_FLAG_SET_MASK, &err); g_io_channel_set_flags (channel, G_IO_FLAG_NONBLOCK, &err); #endif #endif g_io_add_watch(new_channel, new_condition, server_callback, (void*)client); return TRUE; } static gboolean source_server_accept(GIOChannel *channel, GIOCondition condition, void *d ) { Socket *s = (Socket *)d; std::cout << " SourceServer accepting new client connect\n"; SocketBase *client = s->Accept(); std::cout << " SourceServer accepted connection\n"; if(!client) return FALSE; int bytes= recv(client->getSocket(), client->packet->rxBuff(), client->packet->rxSize(), 0); std::cout << " SourceServer received data" << client->packet->rxBuff() << endl; if (bytes == -1) { perror("recv"); exit_gpsim(1); } client->packet->rxAdvance(bytes); client->Service(); std::cout << " SourceServer serviced client\n"; return TRUE; } void start_server(void) { // TestInt32Array *test = new TestInt32Array("test",16); // symbol_table.add(test); std::cout << "starting server....\n"; #ifdef _WIN32 if (!winsockets_init()) { fprintf(stderr, "Could not find a usable WinSock DLL, sockets are disabled.\n"); server_started = false; return; } server_started = true; #endif // Create the Sink and Source servers static Socket sinkServer; sinkServer.init(SIM_SINK_PORT); sinkServer.AssignChannel(sink_server_accept); get_interface().add_interface(new SocketInterface(&sinkServer)); static Socket sourceServer; sourceServer.init(SIM_SOURCE_PORT); sourceServer.AssignChannel(source_server_accept); std::cout << " started server\n"; } void stop_server(void) { #ifdef _WIN32 if (server_started) WSACleanup(); #endif } #endif // if USE_THREADS gpsim-0.27.0/cli/cmd_symbol.cc0000644000076400007640000001075211116621771013066 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include #include "command.h" #include "cmd_symbol.h" #include "../src/cmd_gpsim.h" #include "../src/modules.h" #include "../src/symbol.h" #include "../src/ValueCollections.h" #include "../src/pic-instructions.h" cmd_symbol c_symbol; static cmd_options cmd_symbol_options[] = { {0,0,0} }; cmd_symbol::cmd_symbol() : command("symbol",0) { brief_doc = string("Add or display symbols"); long_doc = string ("symbol []\n" "symbol =\n" "\n" "\tIf no options are supplied, the entire symbol table will be\n" "\tdisplayed. If only the symbol_name is provided, then only\n" "\tthat symbol will be displayed.\n" "\tIf a symbol_name that does not currently exist is equated\n" "\tto a value, then a new symbol will be added to the symbol table.\n" "\tThe type of symbol will be derived. To force a string value double\n" "\tdouble quote the value.\n" "\n" "\tValid symbol types:\n" "\t Integer, Float, Boolean and String\n" "\n" "Examples:\n" "\tsymbol // display the symbol table\n" "\tsymbol GpsimIsGreat=true // create a new constant symbol\n" "\n"); op = cmd_symbol_options; } static string table; void dumpOneSymbol(const SymbolEntry_t &sym) { string out; Value *pVal = dynamic_cast(sym.second); if (pVal != NULL && typeid(*pVal) == typeid(LineNumberSymbol)) return; if (table != "__global__") out = table + "." + sym.second->name(); else out = sym.second->name(); printf("%-25s Type: %s\n", out.c_str(), sym.second->showType().c_str()); } void dumpSymbolTables(const SymbolTableEntry_t &st) { table = st.first; (st.second)->ForEachSymbolTable(dumpOneSymbol); } void cmd_symbol::dump_all() { cout << "\nSymbol table\n"; globalSymbolTable().ForEachModule(dumpSymbolTables); } void cmd_symbol::dump_one(const char *sym_name) { string sName(sym_name); Module *pM = globalSymbolTable().findModule(sName); if (pM) pM->getSymbolTable().ForEachSymbolTable(dumpOneSymbol); else dump_one(globalSymbolTable().find(sName)); //get_symbol_table().dump_filtered(sName); } void cmd_symbol::dump_one(gpsimObject *s) { if(s) { Module *pM = dynamic_cast(s); if (pM) pM->getSymbolTable().ForEachSymbolTable(dumpOneSymbol); else cout << s->toString() << endl; } } void cmd_symbol::add_one(const char *sym_name, Expression *expr) { Value * pVal = expr->evaluate(); if (pVal) { pVal->new_name(sym_name); //pVal->setClearableSymbol(false); pVal->set_description("Derived from the command line."); if (!globalSymbolTable().addSymbol(pVal)) delete pVal; } } void cmd_symbol::EvaluateAndDisplay(Expression *pExpr) { try { Value * pValue = pExpr->evaluate(); GetUserInterface().DisplayMessage("%s\n", pValue->toString().c_str()); } catch(Error *pMessage) { GetUserInterface().DisplayMessage("%s\n", pMessage->toString().c_str()); } } void cmd_symbol::dump(gpsimObject *s, ExprList_t*e) { Value *pValue = dynamic_cast(s); if (pValue) { IndexedSymbol sym(pValue, e); cout << sym.toString() << endl; } } void cmd_symbol::Set(gpsimObject *s, ExprList_t*e, Expression *pExpr) { Value *pValue = dynamic_cast(s); if (pValue) { try { IIndexedCollection *pCollection = dynamic_cast(s); if(pCollection == NULL) { GetUserInterface().DisplayMessage("%s is not an indexed symbol\n", s->name().c_str()); } else { pCollection->SetAt(e, pExpr); } } catch(Error Message) { GetUserInterface().DisplayMessage("%s\n", Message.toString().c_str()); } } } gpsim-0.27.0/cli/cmd_quit.cc0000644000076400007640000000220610563700567012544 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "command.h" #include "cmd_quit.h" cmd_quit quit; static struct cmd_options cmd_quit_options[] = { {0,0,0} }; cmd_quit::cmd_quit() : command("quit",0) { brief_doc = string("Quit gpsim"); long_doc = string ("Quit gpsim\n"); op = cmd_quit_options; } void cmd_quit::quit(int bit_flag) { cout << " cmd_quit::quit with bit flag\n"; } gpsim-0.27.0/cli/cmd_set.h0000644000076400007640000000167210416273023012212 00000000000000/* Copyright (C) 1999-2000 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_SET_H__ #define __CMD_SET_H__ class Expression; class cmd_set : public command { public: cmd_set(void); void set(void); void set(int bit_flag,Expression *); }; extern cmd_set c_set; #endif gpsim-0.27.0/cli/input.cc0000664000076400007640000005455112175377102012106 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include #include #include #include #include #include #ifdef _WIN32 #include #include "fd2raw.h" #define GETCWD _getcwd #else #include #include #if !defined(_MAX_PATH) #define _MAX_PATH 1024 #endif #define GETCWD getcwd // temp fix to over come 23jan05 changes to configure script that prevent // readline from being found on older systems. #define HAVE_READLINE #define HAVE_NSCLEAN_READLINE #endif #include "../config.h" #ifdef HAVE_GUI #include #include #include #endif #include "../src/exports.h" #include "../src/sim_context.h" #include "../src/gpsim_def.h" #include "../src/gpsim_classes.h" #include "../src/icd.h" #include "../src/pic-processor.h" #include "../src/breakpoints.h" #include "../src/cod.h" #include "command.h" #include "input.h" #include "cmd_macro.h" #include "cmd_run.h" #ifdef HAVE_LIBREADLINE #define HAVE_READLINE #endif #ifdef HAVE_READLINE /* See if we have namespace-clean readline or not */ #ifdef HAVE_RL_COMPLETION_MATCHES #define HAVE_NSCLEAN_READLINE #endif extern "C" { #include #include } static GIOChannel *channel; gint g_iWatchSourceID = 0; #endif /* HAVE_READLINE */ void simulation_cleanup(); extern const char *get_dir_delim(const char *path); int parse_string(const char * str); //------------------------------------------------------------------------ // LIBGPSIM_EXPORT bool gUsingThreads(); // in ../src/interface.cWatchSourceIDc void initialize_readline (void); void clear_input_buffer(void); #ifdef HAVE_GUI void quit_gui(void); #endif void redisplay_prompt(void); char *gnu_readline (char *s, unsigned int force_readline); int last_command_is_repeatable=0; //extern Macro *gCurrentMacro; extern void scanPushMacroState(Macro *); extern int quit_parse; #ifdef HAVE_SOCKETS extern void start_server(void); extern void stop_server(void); #endif // HAVE_SOCKETS static Boolean *s_bSTCEcho = 0; void EnableSTCEcho(bool bEnable) { *s_bSTCEcho = bEnable; } //------------------------------------------------------------------------ // Command Handler - create an interface to the CLI //------------------------------------------------------------------------ #include "../src/cmd_manager.h" //class ISimConsole; class CCliCommandHandler : public ICommandHandler { public: virtual const char *GetName(); virtual int Execute(const char * commandline, ISimConsole *out); virtual int ExecuteScript(list &script, ISimConsole *out); }; // This instantiation will get registered so that code // in ../src can get access to this class (and consequently the command line). static CCliCommandHandler sCliCommandHandler; //------------------------------------------------------------------------ // LLInput - A class for storing a command line command // This is private to input.cc //------------------------------------------------------------------------ class LLInput { public: LLInput(); LLInput(const char *,Macro *); ~LLInput(); Macro *macro; // macro generating this text char *data; LLInput *next_input; }; //------------------------------------------------------------------------ // LLStack - A class for storing a collection of command line commands. // This is private to input.cc //------------------------------------------------------------------------ class LLStack { public: LLStack(); ~LLStack(); void Push(); void Pop(); void Append(const char *, Macro *); LLInput *GetNext(); void print(); int level() { return msi_StackDepth; } LLInput *LLdata; LLStack *next_stack; private: static int msi_StackDepth; }; int LLStack::msi_StackDepth=0; //------------------------------------------------------------------------ // LLInput - linked list input for commands. LLInput::LLInput() : macro(0),data(0), next_input(0) { } LLInput::LLInput(const char *s,Macro *m) : macro(m), next_input(0) { data = strdup(s); } LLInput::~LLInput() { if(data) free(data); } //------------------------------------------------------------------------ // LLStack - linked list stack for commands. LLStack::LLStack() : LLdata(0), next_stack(0) { msi_StackDepth++; // cout << "Stack depth: " << level() << endl; } LLStack::~LLStack() { msi_StackDepth--; } static LLStack *Stack=0; //======================================================================== // // catch_control_c // // void catch_control_c(int sig) { #ifdef _WIN32 CSimulationContext::GetContext()->NotifyUserCanceled(); if(CSimulationContext::GetContext()->GetActiveCPU()->simulation_mode == eSM_RUNNING) { // If we get a CTRL->C while processing a command file // we should probably stop the command file processing. clear_input_buffer(); } ::signal(SIGINT, catch_control_c); #else // JRH - I'll let someone else try the above code under Linux. // The readline library appears to call ::signal() itself so // the call will not be needed here. I'm guessing that the CTRL->C // signal handling in readline did not work under Windows so // that is why it was originally ifdef'd out. //if(simulation_mode != STOPPED) // { cout << " break\n"; CSimulationContext::GetContext()->NotifyUserCanceled(); // } //else { // cout << "caught control c, but it doesn't seem gpsim was simulating\n"; // last_command_is_repeatable=0; // redisplay_prompt(); //} #endif } void initialize_threads(void) { #if GLIB_MAJOR_VERSION >= 2 if( !g_thread_supported() ) { #if GLIB_MINOR_VERSION < 32 g_thread_init(NULL); #endif #ifdef HAVE_GUI gdk_threads_init(); #endif } #endif } void initialize_signals(void) { #ifdef _WIN32 ::signal(SIGINT, catch_control_c); #else static struct sigaction action; action.sa_handler = catch_control_c; sigemptyset(&action.sa_mask); action.sa_flags=0; sigaction(SIGINT, &action, 0); #endif } void initialize_CLI() { CCommandManager::GetManager().Register(&sCliCommandHandler); } //============================================================== // initialize_gpsim // // Not much initialization is needed now. // void initialize_gpsim(void) { s_bSTCEcho = new Boolean("CliTrace", false, "Enable echoing commands from STC files to the console."); globalSymbolTable().addSymbol(s_bSTCEcho); initialize_CLI(); if(gUsingThreads()) initialize_threads(); initialize_signals(); #ifdef HAVE_SOCKETS start_server(); #endif } void LLStack::print(void) { if(verbose & 4) { LLStack *s = Stack; cout << "Current state of input buffer:\n"; int stack_number=0; while (s) { LLInput *h = s->LLdata; int depth =0; while(h) { cout << " " <data; depth++; h = h->next_input; } stack_number++; s = s->next_stack; } cout << "\n ---Leaving dump \n"; } } void LLStack::Push() { LLStack *s = new LLStack(); s->next_stack = Stack; Stack = s; print(); } void LLStack::Pop() { if (Stack ) { if(Stack->next_stack != NULL) { LLStack *next = Stack->next_stack; delete Stack; Stack = next; } } } void LLStack::Append(const char *s, Macro *m) { LLInput *d = new LLInput(s,m); LLInput *h = LLdata; if (h) { /* go to the end of the list */ while(h->next_input) h = h->next_input; /* add d to the end */ h->next_input = d; } else LLdata = d; } LLInput *LLStack::GetNext() { if (Stack) { if (Stack->LLdata) { LLInput *d = Stack->LLdata; // remove this item from the list if(d) Stack->LLdata = d->next_input; return d; } if(Stack->next_stack != NULL) { Pop(); return GetNext(); } } return 0; } /******************************************************* */ void add_string_to_input_buffer(const char *s, Macro *m=0) { if(!Stack) Stack = new LLStack(); Stack->Append(s,m); } /******************************************************* */ void start_new_input_stream() { if(!Stack) Stack = new LLStack(); else Stack->Push(); } /******************************************************* */ void clear_input_buffer(void) { LLInput * pLine; if (Stack) while((pLine = Stack->GetNext()) != NULL) delete pLine; } /******************************************************* * start_parse * * This routine will run a string through the command parser *this is useful if you want to execute a command but do not *wish to go through the readline stuff. */ extern int init_parser(); int start_parse(void) { int retval = init_parser(); if(quit_parse) exit_gpsim(0); return retval; } int parse_string(const char * str) { add_string_to_input_buffer(str); int iReturn = start_parse(); if(iReturn == 1) { // If the str was a 'load c x.stc' file and the parsing // was aborted we need to remove the remaining // strings. clear_input_buffer(); } return iReturn; } int parse_string_only(const char * str) { LLStack *OldStack= Stack; Stack = 0; int iRet = parse_string(str); delete Stack; Stack = OldStack; return iRet; } void process_command_file(const char * file_name, bool bCanChangeDirectory) { FILE *cmd_file; char directory[256]; const char *dir_path_end; if(verbose&4) cout << __FUNCTION__ <<"()\n"; dir_path_end = get_dir_delim(file_name); if(dir_path_end && bCanChangeDirectory) { strncpy(directory,file_name,dir_path_end-file_name); directory[dir_path_end-file_name]=0; printf("directory is \"%s\"\n",directory); chdir(directory); file_name=dir_path_end+1; printf("file_name is \"%s\"\n",file_name); } cmd_file = fopen(file_name,"r"); if(cmd_file) { if(verbose) cout << "processing a command file\n"; start_new_input_stream(); //Stack.Push(); char *s; char str[256]; while( (s = fgets(str, 256, cmd_file)) != 0) { if(str[0] == 0 || str[0] == '\n' || ((str[1] == '\n' && str[0] == '\r'))) { // skip the blank lines continue; } #ifndef WIN32 // Let us be compatible with Windows EOLs // on Linux. int iLast = strlen(str) - 1; if(iLast >= 2 && str[iLast] == '\n' && str[iLast-1] == '\r' ) { // Windows type EOL // convert to str[iLast] = '\000'; str[iLast-1] = '\n'; } #endif add_string_to_input_buffer(s); } fclose(cmd_file); } else { cout << "failed to open command file "; cout << file_name; cout << endl; char cw[_MAX_PATH]; GETCWD(cw, _MAX_PATH); cout << "current working directory is "; cout << cw; cout << endl; } if(Stack) Stack->print(); } /********************************************* Function: gpsim_open() Returns: 1 - success 0 - failure */ int gpsim_open(Processor *cpu, const char *pFileName, const char * pProcessorType, const char *pProcessorName) { if(!pFileName) return 0; if (verbose) printf (" gpsim_open file:%s proc name:%s\n", pFileName, (pProcessorName ? pProcessorName : "nil")); // Check for the command file, file extension. if(IsFileExtension(pFileName,"stc") || IsFileExtension(pFileName,"STC")) { process_command_file(pFileName,true); // A stc file could have any sequence of commands. // Just ignore the return value of parse_string(). parse_string("\n"); return 1; } else { // Assume a Program file return CSimulationContext::GetContext()->LoadProgram(pFileName, pProcessorType, 0, pProcessorName); } return 0; } //********************************************* // gpsim_read // // This function is called from the parser. It will either read // a line of text from a command file or from stdin -- depending // on the current source for data. Once a string is obtained, it // is copied into a buffer that the parser has passed to us. int gpsim_read (char *buf, unsigned max_size) { LLInput *d = Stack ? Stack->GetNext() : 0; if (!d || !d->data) { if(verbose&4) cout <<"gpsim_read -- no more data\n"; return 0; } scanPushMacroState(d->macro); //gCurrentMacro = d->macro; char *cPstr = d->data; unsigned int count = strlen(cPstr); count = (count < max_size) ? count : max_size; strncpy(buf, cPstr, count); buf[count] = 0; SetLastFullCommand(buf); if(*s_bSTCEcho) cout << cPstr; if(verbose&4) { cout <<"gpsim_read returning " << count << ":" << cPstr << endl; if (d->macro) { cout << " and it's a macro named:" << d->macro->name() << endl; } } delete (d); return count; } void have_line(char *); //************************************************** void cli_main(void) { do { #ifdef HAVE_READLINE #ifdef WIN32 if(channel->is_readable) { // Channel is not readable when a Windows // stdin is redirected. rl_callback_read_char (); } else { char line[256]; fgets(line, sizeof(line),stdin); have_line(line); } #else rl_callback_read_char (); #endif #else char line[256]; fgets(line, sizeof(line),stdin); have_line(line); #endif } while(!quit_parse); } /* **************************************************************** */ /* */ /* Interface to Readline Completion */ /* */ /* **************************************************************** */ /* Generator function for command completion. STATE lets us know whether to start from scratch; without any state (i.e. STATE == 0), then we start at the top of the list. */ char * command_generator (const char *text, int state) { //static char *empty=""; static int i = 0; const int cMaxStringLen = 64; /* If this is a new word to complete, initialize now. */ if (state == 0) i = 0; /* Return the next name which partially matches from the command list. */ while( iname(), text) == command_list[i]->name()) return(g_strndup(command_list[i++]->name(), cMaxStringLen)); i++; } // If no names matched, and this is the first item on a line (i.e. state==0) // then return a copy of the input text. (Note, it was emperically determined // that 'something' must be returned if there are no matches at all - // otherwise readline crashes on windows.) #ifdef _WIN32 if(state == 0) return g_strndup(text,cMaxStringLen); #endif return 0; } /* Attempt to complete on the contents of TEXT. START and END show the region of TEXT that contains the word to complete. We can use the entire line in case we want to do some simple parsing. Return the array of matches, or NULL if there aren't any. */ char ** gpsim_completion (const char *text, int start, int end) { char **matches; matches = 0; #ifdef HAVE_READLINE /* If this word is at the start of the line, then it is a command to complete. Otherwise it is the name of a file in the current directory. */ if (start == 0) #ifdef HAVE_NSCLEAN_READLINE matches = rl_completion_matches (text, command_generator); #else matches = completion_matches ((char *)text, (CPFunction *)command_generator); #endif #endif #if defined(_WIN32) || defined(WIN32) if (start) { char *empty = strdup(""); matches = (char **) malloc(2 * (sizeof(&empty))); matches[0] = empty; matches[1] = 0; } #endif return (matches); } //#ifdef HAVE_GUI //============================================================================ // // keypressed(). // // When the user presses a key, this function will get called. // If a simulation is running, then we'll pass the key to // the stimulus engine. static gboolean keypressed (GIOChannel *source, GIOCondition condition, gpointer data) { #ifdef HAVE_READLINE rl_callback_read_char (); #endif return TRUE; } //#endif //============================================================================ // // have_line // When is pressed at the command line, the text string on the command // is copied into a buffer and passed to the command parser. // void have_line(char *s) { if(!s) return; static char last_line[256] = {0}; if(strlen(s) == 0) { if(*last_line && last_command_is_repeatable) add_string_to_input_buffer(last_line); } else { // save a copy in the history buffer: strncpy(last_line,s,256); #ifdef HAVE_READLINE add_history (s); #endif add_string_to_input_buffer(s); } add_string_to_input_buffer("\n"); start_parse(); #if defined (_WIN32) || defined (HAS_RL_FREE) rl_free(s); #else free(s); #endif } /********************************************************************** **/ void exit_cli(void) { if(get_use_icd()) icd_disconnect(); #ifdef HAVE_GUI quit_gui(); #endif #ifdef HAVE_READLINE rl_callback_handler_remove(); #ifdef HAVE_GUI g_source_remove(g_iWatchSourceID); g_io_channel_unref(channel); #endif #endif CSimulationContext::GetContext()->GetContext()->Clear(); #ifdef HAVE_SOCKETS stop_server(); #endif globalSymbolTable().deleteSymbol("CliTrace"); cout << "Exiting gpsim\n"; simulation_cleanup(); } /* redisplay_prompt will redisplay the current data in the readline buffer. This function is used to restore a prompt that's been obliterated by diagnostic data. */ void redisplay_prompt(void) { #ifdef HAVE_READLINE rl_forced_update_display(); #endif } #if defined HAVE_READLINE && defined HAVE_GUI static int gpsim_rl_getc(FILE *in) { gchar buf[6]; gsize bytes_read; #if GLIB_MAJOR_VERSION >= 2 g_io_channel_read_chars(channel, buf, 1, &bytes_read, NULL); #else g_io_channel_read(channel, buf, 1, &bytes_read); #endif return buf[0]; // JRH, 7-1-2005 - I tried this but am not comfortable that it // is working as I intended. // return bytes_read == 0 ? EOF : (buf[0] & 0x000000ff); } #endif /* Tell the GNU Readline library how to complete. We want to try to complete on command names if this is the first word in the line, or on filenames if not. */ void initialize_readline (void) { const char *gpsim_prompt="gpsim> "; const char *gpsim_cli_prompt="**gpsim> "; const char *prompt = get_interface().bUsingGUI() ? gpsim_prompt : gpsim_cli_prompt; #ifdef HAVE_READLINE // Lets us have a gpsim section to .inputrc // JRH - not tested // rl_terminal_name = "gpsim"; #ifdef _WIN32 /* set console to raw mode */ win32_fd_to_raw(fileno(stdin)); #endif #if defined HAVE_READLINE && defined HAVE_GUI rl_getc_function = gpsim_rl_getc; channel = g_io_channel_unix_new (fileno(stdin)); #endif #ifdef _WIN32 #if GLIB_MAJOR_VERSION < 2 || (GLIB_MAJOR_VERSION == 2 && GLIB_MINOR_VERSION < 6) /* set console to raw mode */ win32_set_is_readable(channel); #endif // The channel is not readable if it is a redirected // standard input, in which case we will not be getting // any keypress events. if(channel->is_readable) { g_iWatchSourceID = g_io_add_watch (channel, G_IO_IN, keypressed, NULL); } #else #if defined HAVE_READLINE && defined HAVE_GUI g_iWatchSourceID = g_io_add_watch (channel, G_IO_IN, keypressed, NULL); #endif #endif rl_callback_handler_install (prompt, have_line); /* Tell the completer that we want a crack first. */ rl_attempted_completion_function = gpsim_completion; #endif //HAVE_READLINE } #if defined(HAVE_READLINE) && defined(HAVE_PERL) // JRH - An experiment void EnableKeypressHook(bool bEnable) { if(bEnable) { g_iWatchSourceID = g_io_add_watch (channel, G_IO_IN, keypressed, NULL); } else { // g_source_remove_by_funcs_user_data(keypressed, NULL); bEnable = g_source_remove(g_iWatchSourceID); g_io_channel_unref(channel); } } #endif //------------------------------------------------------------------------ // CLI command handler // // The command handler is an interface that gets 'registered' with gpsim. // This means that clients interested in gpsim's cli can look up this // registered handler and get access to the command line. This is primarily // used by symbol files that embed gpsim scripts. See src/modules.cc. // const char *CCliCommandHandler::GetName() { return "gpsimCLI"; } int CCliCommandHandler::Execute(const char * commandline, ISimConsole *out) { add_string_to_input_buffer("\n"); start_new_input_stream(); parse_string_only(commandline); add_string_to_input_buffer("\n"); return 1; } int CCliCommandHandler::ExecuteScript(list &script, ISimConsole *out) { if (verbose & 4) cout << "GCLICommandHandler::Execute Script:" << endl; if (script.size() == 0) return CMD_ERR_OK; // We need to execute the script now. There may be other commands // currently pending, so a new command stream is created and the // commands that are in this script are placed there. The current // command stream is temporarily disabled and then re-enabled at // the end of this function. LLStack *saveStack = Stack; Stack = 0; start_new_input_stream(); add_string_to_input_buffer("\n"); list :: iterator command_iterator; for (command_iterator = script.begin(); command_iterator != script.end(); ++command_iterator) { string *cmd = *command_iterator; add_string_to_input_buffer((char *) cmd->c_str()); } // Start parsing the script that we just placed into the command stream start_parse(); delete Stack; // Restore the original command stream. Stack = saveStack; return CMD_ERR_OK; } gpsim-0.27.0/cli/cmd_log.h0000644000076400007640000000176610464071373012213 00000000000000/* Copyright (C) 1999,2000,2001,2002 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_LOG_H__ #define __CMD_LOG_H__ #include #include "command.h" class cmd_log : public command { public: cmd_log(); void log(); void log(cmd_options *opt); void log(cmd_options *opt, ExprList_t *el); }; extern cmd_log c_log; #endif gpsim-0.27.0/cli/cmd_node.cc0000644000076400007640000000461510644005165012505 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "command.h" #include "cmd_node.h" #include "../src/stimuli.h" #include "../src/symbol.h" cmd_node c_node; static cmd_options cmd_node_options[] = { {0,0,0} }; cmd_node::cmd_node() : command("node",0) { brief_doc = string("Add or display stimulus nodes"); long_doc = string ("node [new_node1 new_node2 ...]\n" "\t If no new_node is specified then all of the nodes that have been\n" "\tdefined are displayed. If a new_node is specified then it will be\n" "\tadded to the node list. See the \"attach\" and \"stimulus\" commands\n" "\tto see how stimuli are added to the nodes.\n" "\n" "\texamples:\n" "\n" "\tnode // display the node list\n" "\tnode n1 n2 n3 // create and add 3 new nodes to the list\n"); op = cmd_node_options; } void dumpOneNode(const SymbolEntry_t &sym) { Stimulus_Node *psn = dynamic_cast(sym.second); if (psn) { cout << psn->name() << " voltage = " << psn->get_nodeVoltage() << "V\n"; if (psn->stimuli) { stimulus *s = psn->stimuli; while (s) { cout << '\t' << s->name() << '\n'; s=s->next; } } } } void dumpNodes(const SymbolTableEntry_t &st) { cout << " Node Table: " << st.first << endl; (st.second)->ForEachSymbolTable(dumpOneNode); } void cmd_node::list_nodes() { globalSymbolTable().ForEachModule(dumpNodes); } void cmd_node::add_nodes(list * nodes) { if(nodes) { list :: iterator si; for (si = nodes->begin(); si != nodes->end(); ++si) { string &s = *si; Stimulus_Node::construct((char *)s.c_str()); } } } gpsim-0.27.0/cli/cmd_x.h0000644000076400007640000000206510416273023011663 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_X_H__ #define __CMD_X_H__ class Expression; class cmd_x : public command { public: cmd_x(void); void x(void); void x(int reg, Expression *pExpr = NULL); void x(char *reg_name, int val); void x(char *reg_name); void x(Expression *); virtual int is_repeatable(void) { return 1; }; }; extern cmd_x c_x; #endif gpsim-0.27.0/cli/cmd_attach.h0000644000076400007640000000252210644005165012661 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_ATTACH_H__ #define __CMD_ATTACH_H__ #include using namespace std; class Stimulus_Node; class stimulus; class gpsimObject; class LiteralInteger; typedef list gpsimObjectList_t; class cmd_attach : public command { public: cmd_attach(); void attach(gpsimObject*, gpsimObjectList_t *); }; extern cmd_attach attach; // Here are some helper functions for the parser. // These convert the pin() and port() operators into stimuli. // The attach command is the only one that uses them, thus // the code goes here. stimulus *toStimulus(gpsimObject *); stimulus *toStimulus(int); #endif gpsim-0.27.0/cli/cmd_trace.h0000644000076400007640000000225210416273023012510 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __CMD_TRACE_H__ #define __CMD_TRACE_H__ #include "command.h" class cmd_trace : public command { public: cmd_trace(void); void trace(void); void trace(cmd_options *co); void trace(cmd_options_expr *coe); void trace(Expression *); void trace(cmd_options_num *con); void trace(cmd_options_str *cos); void trace(int bit_flag, int force_bit_test); virtual int is_repeatable(void) { return 1; }; }; extern cmd_trace c_trace; #endif gpsim-0.27.0/plat/0000775000076400007640000000000012210742351010667 500000000000000gpsim-0.27.0/plat/win32/0000775000076400007640000000000012210742352011632 500000000000000gpsim-0.27.0/plat/win32/gpsim.def0000644000076400007640000000001010416272176013346 00000000000000EXPORTS gpsim-0.27.0/plat/win32/gpsim.nsi0000664000076400007640000007430412203421144013407 00000000000000# gpsim.nsi - NSIS installer script for gpsim # # Copyright (c) 2004-2013 Borut Razem # # This file is part of gpsim. # # This software is provided 'as-is', without any express or implied # warranty. In no event will the authors be held liable for any damages # arising from the use of this software. # # Permission is granted to anyone to use this software for any purpose, # including commercial applications, and to alter it and redistribute it # freely, subject to the following restrictions: # # 1. The origin of this software must not be misrepresented; you must not # claim that you wrote the original software. If you use this software # in a product, an acknowledgment in the product documentation would be # appreciated but is not required. # 2. Altered source versions must be plainly marked as such, and must not be # misrepresented as being the original software. # 3. This notice may not be removed or altered from any source distribution. # # Borut Razem # borut.razem@siol.net ; Script generated by the HM NIS Edit Script Wizard. ; HM NIS Edit Wizard helper defines !define PRODUCT_NAME "gpsim" ; Version !ifdef VER_MAJOR & VER_MINOR & VER_REVISION & VER_BUILD !define PRODUCT_VERSION "${VER_MAJOR}.${VER_MINOR}.${VER_REVISION}" !else !define PRODUCT_VERSION "XX.XX.XX" !endif !ifndef PRODUCT_WEB_SITE !define PRODUCT_WEB_SITE "http://gpsim.sourceforge.net/gpsim.html" !endif !define PRODUCT_PUBLISHER "www.dattalo.com" !define PRODUCT_DIR_REGKEY "Software\Microsoft\Windows\CurrentVersion\App Paths\gpsim.bat" !define PRODUCT_UNINST_KEY "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}" !define GPSIM_ROOT "..\.." !ifndef SETUP_DIR !define SETUP_DIR "..\..\..\..\gpsim_snapshots" !endif !define PKG_ROOT "${SETUP_DIR}\gpsim_pkg" SetCompressor /SOLID lzma ;-------------------------------- ; Header Files !include "MUI2.nsh" !include "WordFunc.nsh" !include "WinVer.nsh" ;-------------------------------- ; Functions !ifdef VER_MAJOR & VER_MINOR & VER_REVISION & VER_BUILD !insertmacro VersionCompare !endif ;-------------------------------- ; Configuration ; MUI Settings !define MUI_ABORTWARNING ;!define MUI_ICON "${PKG_ROOT}\gpsim.ico" !define MUI_UNICON "${NSISDIR}\Contrib\Graphics\Icons\modern-uninstall.ico" ; Welcome page !insertmacro MUI_PAGE_WELCOME ; License page !insertmacro MUI_PAGE_LICENSE "${GPSIM_ROOT}\COPYING" ; Uninstall/reinstall page !ifdef VER_MAJOR & VER_MINOR & VER_REVISION & VER_BUILD Page custom PageReinstall PageLeaveReinstall !endif ; StartMenu page !define MUI_STARTMENUPAGE_DEFAULTFOLDER ${PRODUCT_NAME} !define MUI_STARTMENUPAGE_REGISTRY_ROOT "HKLM" !define MUI_STARTMENUPAGE_REGISTRY_KEY ${PRODUCT_UNINST_KEY} !define MUI_STARTMENUPAGE_REGISTRY_VALUENAME "NSIS:StartMenuDir" !define MUI_STARTMENUPAGE_NODISABLE Var MUI_STARTMENUPAGE_VARIABLE !insertmacro MUI_PAGE_STARTMENU Application $MUI_STARTMENUPAGE_VARIABLE ; Components page !define MUI_COMPONENTSPAGE_SMALLDESC !insertmacro MUI_PAGE_COMPONENTS ; Directory page !insertmacro MUI_PAGE_DIRECTORY ; Instfiles page !insertmacro MUI_PAGE_INSTFILES ; Finish page !define MUI_FINISHPAGE_RUN "$INSTDIR\gpsim.bat" !define MUI_FINISHPAGE_SHOWREADME "$INSTDIR\README.TXT" !insertmacro MUI_PAGE_FINISH ; Uninstaller pages !insertmacro MUI_UNPAGE_CONFIRM !insertmacro MUI_UNPAGE_INSTFILES ; Language files !insertmacro MUI_LANGUAGE "English" !ifndef DATE !define DATE "YYYYMMDD" !endif Name "${PRODUCT_NAME} ${PRODUCT_VERSION}" OutFile "${SETUP_DIR}\gpsim-${PRODUCT_VERSION}-${DATE}-setup.exe" InstallDir "$PROGRAMFILES\gpsim" InstallDirRegKey HKLM "${PRODUCT_DIR_REGKEY}" "" RequestExecutionLevel admin ;Require admin rights on NT6+ (When UAC is turned on) ;;;;ShowInstDetails show ;;;;ShowUnInstDetails show !ifndef VER_MAJOR & VER_MINOR & VER_REVISION & VER_BUILD ; Old unistallation method Function .onInit ;Uninstall the old version, if present ReadRegStr $R0 HKLM "${PRODUCT_UNINST_KEY}" "UninstallString" StrCmp $R0 "" inst MessageBox MB_OKCANCEL|MB_ICONEXCLAMATION \ "${PRODUCT_NAME} is already installed. $\n$\nClick 'OK' to remove the \ previous version or 'Cancel' to cancel this upgrade." \ IDOK uninst Abort uninst: ; Run the uninstaller ClearErrors ExecWait '$R0 _?=$INSTDIR' ;Do not copy the uninstaller to a temp file Goto done inst: ; Install the new version MessageBox MB_YESNO|MB_ICONQUESTION "This will install $(^Name). Do you wish to continue?" IDYES +2 Abort done: FunctionEnd !endif InstType "gpsim + extras modules" InstType "gpsim" Section "gpim" SEC01 SectionIn 1 2 RO SetOutPath "$INSTDIR\bin" SetOverwrite ifnewer File "${GPSIM_ROOT}\gpsim\gpsim.exe" File "${GPSIM_ROOT}\src\libgpsim.dll" File "${GPSIM_ROOT}\modules\libgpsim_modules.dll" File "${PKG_ROOT}\bin\freetype6.dll" File "${PKG_ROOT}\bin\gtkextra-win32-2.1.dll" File "${PKG_ROOT}\bin\iconv.dll" File "${PKG_ROOT}\bin\libatk-1.0-0.dll" File "${PKG_ROOT}\bin\libcairo-2.dll" File "${PKG_ROOT}\bin\libcairo-gobject-2.dll" File "${PKG_ROOT}\bin\libcairo-script-interpreter-2.dll" File "${PKG_ROOT}\bin\libgailutil-18.dll" File "${PKG_ROOT}\bin\libexpat-1.dll" File "${PKG_ROOT}\bin\libfontconfig-1.dll" File "${PKG_ROOT}\bin\libgcc_s_dw2-1.dll" File "${PKG_ROOT}\bin\libgdk-win32-2.0-0.dll" File "${PKG_ROOT}\bin\libgdk_pixbuf-2.0-0.dll" File "${PKG_ROOT}\bin\libgio-2.0-0.dll" File "${PKG_ROOT}\bin\libglib-2.0-0.dll" File "${PKG_ROOT}\bin\libgmodule-2.0-0.dll" File "${PKG_ROOT}\bin\libgobject-2.0-0.dll" File "${PKG_ROOT}\bin\libgthread-2.0-0.dll" File "${PKG_ROOT}\bin\libgtk-win32-2.0-0.dll" File "${PKG_ROOT}\bin\intl.dll" File "${PKG_ROOT}\bin\libpango-1.0-0.dll" File "${PKG_ROOT}\bin\libpangocairo-1.0-0.dll" File "${PKG_ROOT}\bin\libpangoft2-1.0-0.dll" File "${PKG_ROOT}\bin\libpangowin32-1.0-0.dll" File "${PKG_ROOT}\bin\libpng14-14.dll" File "${PKG_ROOT}\bin\libstdc++-6.dll" File "${PKG_ROOT}\bin\libpopt-0.dll" File "${PKG_ROOT}\bin\pthreadGC2.dll" File "${PKG_ROOT}\bin\readline5.dll" File "${PKG_ROOT}\bin\zlib1.dll" ; ============================================================================ ; Windows 2000 support ; ============================================================================ ${If} ${IsWin2000} ; Install the OldCigarettes Windows 2000 XP API Wrapper SetOutPath "$INSTDIR\bin" File "${PKG_ROOT}\bin\ws2_32.dll" CopyFiles "$SYSDIR\ws2_32.dll" "$INSTDIR\bin\ws2_32_org.dll" ${EndIf} SetOutPath "$INSTDIR\doc" File "${GPSIM_ROOT}\doc\gpsim.lyx" File "${GPSIM_ROOT}\doc\gpsim.ps" File "${GPSIM_ROOT}\doc\gpsim.pdf" SetOutPath "$INSTDIR\doc\screenshots" File "${GPSIM_ROOT}\doc\screenshots\*.png" SetOutPath "$INSTDIR\etc\gtk-2.0" File "${PKG_ROOT}\share\themes\MS-Windows\gtk-2.0\gtkrc" SetOutPath "$INSTDIR\etc\pango" File "${PKG_ROOT}\etc\pango\pango.modules" SetOutPath "$INSTDIR\lib\gtk-2.0\2.10.0" File /r "${PKG_ROOT}\lib\gtk-2.0\2.10.0\engines" SetOutPath "$INSTDIR" File /r "${PKG_ROOT}\share" SetOutPath "$INSTDIR\lib\gpsim" File "${GPSIM_ROOT}\src\libgpsim.a" File "${GPSIM_ROOT}\plat\win32\modules.def" SetOutPath "$INSTDIR\" File /oname=ChangeLog.txt "${GPSIM_ROOT}\ChangeLog" File "${GPSIM_ROOT}\plat\win32\gpsim.ico" File /oname=COPYING.TXT "${GPSIM_ROOT}\COPYING" File /oname=README.TXT "${GPSIM_ROOT}\README" SetOutPath "$INSTDIR\include\gpsim" File "${GPSIM_ROOT}\src\*.h" SetOutPath "$INSTDIR\examples\12bit" File "${GPSIM_ROOT}\examples\12bit\*.asm" File "${GPSIM_ROOT}\examples\12bit\*.inc" File "${GPSIM_ROOT}\examples\12bit\*.stc" SetOutPath "$INSTDIR\examples\14bit" File "${GPSIM_ROOT}\examples\14bit\*.asm" File "${GPSIM_ROOT}\examples\14bit\*.stc" SetOutPath "$INSTDIR\examples\16bit" File "${GPSIM_ROOT}\examples\16bit\*.asm" File "${GPSIM_ROOT}\examples\16bit\*.inc" SetOutPath "$INSTDIR\examples\modules\led_test" File "${GPSIM_ROOT}\examples\modules\led_test\README" File "${GPSIM_ROOT}\examples\modules\led_test\Makefile" File "${GPSIM_ROOT}\examples\modules\led_test\*.asm" File "${GPSIM_ROOT}\examples\modules\led_test\*.stc" SetOutPath "$INSTDIR\examples\modules\logic_test" File "${GPSIM_ROOT}\examples\modules\logic_test\README" File "${GPSIM_ROOT}\examples\modules\logic_test\Makefile" File "${GPSIM_ROOT}\examples\modules\logic_test\*.asm" File "${GPSIM_ROOT}\examples\modules\logic_test\*.stc" SetOutPath "$INSTDIR\examples\modules\mod_test" File "${GPSIM_ROOT}\examples\modules\mod_test\README" File "${GPSIM_ROOT}\examples\modules\mod_test\Makefile" File "${GPSIM_ROOT}\examples\modules\mod_test\*.asm" File "${GPSIM_ROOT}\examples\modules\mod_test\*.stc" SetOutPath "$INSTDIR\examples\modules\paraface_test" File "${GPSIM_ROOT}\examples\modules\paraface_test\Makefile" File "${GPSIM_ROOT}\examples\modules\paraface_test\*.asm" File "${GPSIM_ROOT}\examples\modules\paraface_test\*.stc" SetOutPath "$INSTDIR\examples\modules\usart_gui" File "${GPSIM_ROOT}\examples\modules\usart_gui\README" File "${GPSIM_ROOT}\examples\modules\usart_gui\Makefile" File "${GPSIM_ROOT}\examples\modules\usart_gui\*.asm" File "${GPSIM_ROOT}\examples\modules\usart_gui\*.stc" SetOutPath "$INSTDIR\examples\modules\usart_test" File "${GPSIM_ROOT}\examples\modules\usart_test\README" File "${GPSIM_ROOT}\examples\modules\usart_test\Makefile" File "${GPSIM_ROOT}\examples\modules\usart_test\*.asm" File "${GPSIM_ROOT}\examples\modules\usart_test\*.stc" SetOutPath "$INSTDIR\examples\projects" File "${GPSIM_ROOT}\examples\projects\README" SetOutPath "$INSTDIR\examples\projects\digital_stim" File "${GPSIM_ROOT}\examples\projects\digital_stim\Makefile" File "${GPSIM_ROOT}\examples\projects\digital_stim\ChangeLog" File "${GPSIM_ROOT}\examples\projects\digital_stim\README" File "${GPSIM_ROOT}\examples\projects\digital_stim\digital_stim.asm" File "${GPSIM_ROOT}\examples\projects\digital_stim\digital_stim.stc" SetOutPath "$INSTDIR\examples\projects\p16f628_test" File "${GPSIM_ROOT}\examples\projects\p16f628_test\ChangeLog" File "${GPSIM_ROOT}\examples\projects\p16f628_test\Makefile" File "${GPSIM_ROOT}\examples\projects\p16f628_test\README" File "${GPSIM_ROOT}\examples\projects\p16f628_test\f628.asm" File "${GPSIM_ROOT}\examples\projects\p16f628_test\f628.stc" SetOutPath "$INSTDIR\examples\projects\stack_test" File "${GPSIM_ROOT}\examples\projects\stack_test\ChangeLog" File "${GPSIM_ROOT}\examples\projects\stack_test\Makefile" File "${GPSIM_ROOT}\examples\projects\stack_test\README" File "${GPSIM_ROOT}\examples\projects\stack_test\stack_test.asm" File "${GPSIM_ROOT}\examples\projects\stack_test\stack_test.stc" SetOutPath "$INSTDIR\examples\scripts" File "${GPSIM_ROOT}\examples\scripts\makefile" File "${GPSIM_ROOT}\examples\scripts\README" File "${GPSIM_ROOT}\examples\scripts\*.cc" File "${GPSIM_ROOT}\examples\scripts\*.h" File "${GPSIM_ROOT}\examples\scripts\*.asm" File "${GPSIM_ROOT}\examples\scripts\*.py" SetOutPath "$INSTDIR\extras\lcd\examples" File "${GPSIM_ROOT}\extras\lcd\examples\Makefile.am" File "${GPSIM_ROOT}\extras\lcd\examples\README" File "${GPSIM_ROOT}\extras\lcd\examples\lcd.asm" File "${GPSIM_ROOT}\extras\lcd\examples\lcd.inc" File "${GPSIM_ROOT}\extras\lcd\examples\lcd_mod.asm" File "${GPSIM_ROOT}\extras\lcd\examples\lcd_mod.stc" File "${GPSIM_ROOT}\extras\lcd\examples\lcdmemtest.c" File "${GPSIM_ROOT}\extras\lcd\examples\lcdmemtest.stc" File "${GPSIM_ROOT}\extras\lcd\examples\p16c64.inc" File "${GPSIM_ROOT}\extras\lcd\examples\p16c84.inc" File "${GPSIM_ROOT}\extras\lcd\examples\screen.asm" File "${GPSIM_ROOT}\extras\lcd\examples\screen.inc" SetOutPath "$INSTDIR\extras\graphic_lcd" File "${GPSIM_ROOT}\extras\graphic_lcd\AUTHORS" File "${GPSIM_ROOT}\extras\graphic_lcd\COPYING" File "${GPSIM_ROOT}\extras\graphic_lcd\ChangeLog" File "${GPSIM_ROOT}\extras\graphic_lcd\INSTALL" File "${GPSIM_ROOT}\extras\graphic_lcd\Makefile.am" File "${GPSIM_ROOT}\extras\graphic_lcd\NEWS" File "${GPSIM_ROOT}\extras\graphic_lcd\README" SetOutPath "$INSTDIR\extras\graphic_lcd\examples\sed1520" File "${GPSIM_ROOT}\extras\graphic_lcd\examples\sed1520\18f452.lkr" File "${GPSIM_ROOT}\extras\graphic_lcd\examples\sed1520\Makefile" File "${GPSIM_ROOT}\extras\graphic_lcd\examples\sed1520\bitmaps.asm" File "${GPSIM_ROOT}\extras\graphic_lcd\examples\sed1520\glcd_test.asm" File "${GPSIM_ROOT}\extras\graphic_lcd\examples\sed1520\globalvars.inc" File "${GPSIM_ROOT}\extras\graphic_lcd\examples\sed1520\lcd100X32.asm" File "${GPSIM_ROOT}\extras\graphic_lcd\examples\sed1520\lcd100X32.inc" File "${GPSIM_ROOT}\extras\graphic_lcd\examples\sed1520\portdef.inc" File "${GPSIM_ROOT}\extras\graphic_lcd\examples\sed1520\processor.inc" File "${GPSIM_ROOT}\extras\graphic_lcd\examples\sed1520\sed1520.asm" File "${GPSIM_ROOT}\extras\graphic_lcd\examples\sed1520\sed1520.inc" SetOutPath "$INSTDIR\extras\graphic_lcd\examples\ssd0323" File "${GPSIM_ROOT}\extras\graphic_lcd\examples\ssd0323\18f452.lkr" File "${GPSIM_ROOT}\extras\graphic_lcd\examples\ssd0323\Makefile" File "${GPSIM_ROOT}\extras\graphic_lcd\examples\ssd0323\bitmaps.asm" File "${GPSIM_ROOT}\extras\graphic_lcd\examples\ssd0323\glcd_test.asm" File "${GPSIM_ROOT}\extras\graphic_lcd\examples\ssd0323\globalvars.inc" File "${GPSIM_ROOT}\extras\graphic_lcd\examples\ssd0323\osram128x64.asm" File "${GPSIM_ROOT}\extras\graphic_lcd\examples\ssd0323\osram128x64.inc" File "${GPSIM_ROOT}\extras\graphic_lcd\examples\ssd0323\portdef.inc" File "${GPSIM_ROOT}\extras\graphic_lcd\examples\ssd0323\processor.inc" File "${GPSIM_ROOT}\extras\graphic_lcd\examples\ssd0323\ssd0323.asm" File "${GPSIM_ROOT}\extras\graphic_lcd\examples\ssd0323\ssd0323.inc" SetOutPath "$INSTDIR\extras\graphic_lcd\src" File "${GPSIM_ROOT}\extras\graphic_lcd\src\Makefile.am" File "${GPSIM_ROOT}\extras\graphic_lcd\src\glcd_100X32_sed1520.cc" File "${GPSIM_ROOT}\extras\graphic_lcd\src\glcd_100X32_sed1520.h" File "${GPSIM_ROOT}\extras\graphic_lcd\src\gpsim_modules.cc" File "${GPSIM_ROOT}\extras\graphic_lcd\src\sed1520.cc" File "${GPSIM_ROOT}\extras\graphic_lcd\src\sed1520.h" SetOutPath "$INSTDIR\extras\graphic_lcd\utils" File "${GPSIM_ROOT}\extras\graphic_lcd\utils\README" File "${GPSIM_ROOT}\extras\graphic_lcd\utils\custom.png" File "${GPSIM_ROOT}\extras\graphic_lcd\utils\fontimage.png" File "${GPSIM_ROOT}\extras\graphic_lcd\utils\gpsim1.png" File "${GPSIM_ROOT}\extras\graphic_lcd\utils\konqueror.png" File "${GPSIM_ROOT}\extras\graphic_lcd\utils\konqueror16X16.png" File "${GPSIM_ROOT}\extras\graphic_lcd\utils\konqueror3.png" File "${GPSIM_ROOT}\extras\graphic_lcd\utils\pngtopic.c" SetOutPath "$INSTDIR\extras\graphic_lcd\doc" File "${GPSIM_ROOT}\extras\graphic_lcd\doc\*.pdf" SetOutPath "$INSTDIR\extras\lcd" File "${GPSIM_ROOT}\extras\lcd\AUTHORS" File "${GPSIM_ROOT}\extras\lcd\COPYING" File "${GPSIM_ROOT}\extras\lcd\ChangeLog" File "${GPSIM_ROOT}\extras\lcd\INSTALL" File "${GPSIM_ROOT}\extras\lcd\Makefile.am" File "${GPSIM_ROOT}\extras\lcd\makefile.mingw" File "${GPSIM_ROOT}\extras\lcd\NEWS" File "${GPSIM_ROOT}\extras\lcd\README" File "${GPSIM_ROOT}\extras\lcd\caps.pl" File "${GPSIM_ROOT}\extras\lcd\hd44780.cc" File "${GPSIM_ROOT}\extras\lcd\hd44780.h" File "${GPSIM_ROOT}\extras\lcd\lcd.cc" File "${GPSIM_ROOT}\extras\lcd\lcd.gif" File "${GPSIM_ROOT}\extras\lcd\lcd.h" File "${GPSIM_ROOT}\extras\lcd\lcd.xpm" File "${GPSIM_ROOT}\extras\lcd\lcdfont.h" File "${GPSIM_ROOT}\extras\lcd\lcdfont.inc" File "${GPSIM_ROOT}\extras\lcd\lcdgui.cc" File "${GPSIM_ROOT}\extras\lcd\module_manager.cc" File "${GPSIM_ROOT}\extras\lcd\t.gif" SetOutPath "$INSTDIR\extras\rs232-gen\example" File "${GPSIM_ROOT}\extras\rs232-gen\example\Makefile" File "${GPSIM_ROOT}\extras\rs232-gen\example\README" File "${GPSIM_ROOT}\extras\rs232-gen\example\example.asm" File "${GPSIM_ROOT}\extras\rs232-gen\example\example.stc" SetOutPath "$INSTDIR\extras\rs232-gen" File "${GPSIM_ROOT}\extras\rs232-gen\Makefile" File "${GPSIM_ROOT}\extras\rs232-gen\README" File "${GPSIM_ROOT}\extras\rs232-gen\rs232-gen.c" SetOutPath "$INSTDIR\extras\ds1307\examples" File "${GPSIM_ROOT}\extras\ds1307\examples\16f876a.lkr" File "${GPSIM_ROOT}\extras\ds1307\examples\ds1307.asm" File "${GPSIM_ROOT}\extras\ds1307\examples\i2c_low.inc" File "${GPSIM_ROOT}\extras\ds1307\examples\Makefile.am" File "${GPSIM_ROOT}\extras\ds1307\examples\README" SetOutPath "$INSTDIR\extras\ds1307" File "${GPSIM_ROOT}\extras\ds1307\ChangeLog" File "${GPSIM_ROOT}\extras\ds1307\ds1307.cc" File "${GPSIM_ROOT}\extras\ds1307\ds1307.h" File "${GPSIM_ROOT}\extras\ds1307\Makefile.am" File "${GPSIM_ROOT}\extras\ds1307\makefile.mingw" File "${GPSIM_ROOT}\extras\ds1307\module_manager.cc" SectionEnd Section "extras modules" SEC02 SectionIn 1 SetOutPath "$INSTDIR\bin" SetOverwrite ifnewer File "${GPSIM_ROOT}\extras\graphic_lcd\src\libgpsim_graphicLCD.dll" File "${GPSIM_ROOT}\extras\lcd\libgpsim_lcd.dll" File "${GPSIM_ROOT}\extras\ds1307\libgpsim_ds1307.dll" SectionEnd ;-------------------------------- ;Descriptions ;Language strings LangString DESC_SEC01 ${LANG_ENGLISH} "gpim" LangString DESC_SEC02 ${LANG_ENGLISH} "extras modules" ;Assign language strings to sections !insertmacro MUI_FUNCTION_DESCRIPTION_BEGIN !insertmacro MUI_DESCRIPTION_TEXT ${SEC01} $(DESC_SEC01) !insertmacro MUI_DESCRIPTION_TEXT ${SEC02} $(DESC_SEC02) !insertmacro MUI_FUNCTION_DESCRIPTION_END ;-------------------------------- Section -Icons Call CreateBatFile WriteIniStr "$INSTDIR\${PRODUCT_NAME}.url" "InternetShortcut" "URL" "${PRODUCT_WEB_SITE}" !insertmacro MUI_STARTMENU_WRITE_BEGIN Application CreateDirectory "$SMPROGRAMS\$MUI_STARTMENUPAGE_VARIABLE" CreateShortCut "$SMPROGRAMS\$MUI_STARTMENUPAGE_VARIABLE\${PRODUCT_NAME}.lnk" "$INSTDIR\${PRODUCT_NAME}.bat" "" "$INSTDIR\gpsim.ico" "" "" "" "" ; CreateShortCut "$DESKTOP\${PRODUCT_NAME}.lnk" "$INSTDIR\${PRODUCT_NAME}.bat" "" "$INSTDIR\gpsim.ico" "" "" "" "" CreateShortCut "$SMPROGRAMS\$MUI_STARTMENUPAGE_VARIABLE\${PRODUCT_NAME} on the Web.lnk" "$INSTDIR\${PRODUCT_NAME}.url" CreateShortCut "$SMPROGRAMS\$MUI_STARTMENUPAGE_VARIABLE\Documentation.lnk" "$INSTDIR\doc\gpsim.pdf" "" "$INSTDIR\gpsim.ico" "" "" "" "" CreateShortCut "$SMPROGRAMS\$MUI_STARTMENUPAGE_VARIABLE\Change Log.lnk" "$INSTDIR\ChangeLog.txt" "" "$INSTDIR\gpsim.ico" "" "" "" "" CreateShortCut "$SMPROGRAMS\$MUI_STARTMENUPAGE_VARIABLE\README.lnk" "$INSTDIR\README.TXT" "" "$INSTDIR\gpsim.ico" "" "" "" "" CreateShortCut "$SMPROGRAMS\$MUI_STARTMENUPAGE_VARIABLE\GPL 2 License.lnk" "$INSTDIR\COPYING.TXT" CreateShortCut "$SMPROGRAMS\$MUI_STARTMENUPAGE_VARIABLE\Uninstall.lnk" "$INSTDIR\uninstall.exe" !insertmacro MUI_STARTMENU_WRITE_END SectionEnd Section -Post WriteRegStr HKLM "Software\${PRODUCT_NAME}" "" $INSTDIR !ifdef VER_MAJOR & VER_MINOR & VER_REVISION & VER_BUILD WriteRegDword HKLM "Software\${PRODUCT_NAME}" "VersionMajor" "${VER_MAJOR}" WriteRegDword HKLM "Software\${PRODUCT_NAME}" "VersionMinor" "${VER_MINOR}" WriteRegDword HKLM "Software\${PRODUCT_NAME}" "VersionRevision" "${VER_REVISION}" WriteRegDword HKLM "Software\${PRODUCT_NAME}" "VersionBuild" "${VER_BUILD}" !endif WriteRegStr HKLM "${PRODUCT_DIR_REGKEY}" "" "$INSTDIR\gpsim.bat" WriteRegStr HKLM "${PRODUCT_DIR_REGKEY}" "Path" "$INSTDIR" WriteUninstaller "$INSTDIR\uninstall.exe" WriteRegStr HKLM "${PRODUCT_UNINST_KEY}" "DisplayName" "$(^Name)" WriteRegStr HKLM "${PRODUCT_UNINST_KEY}" "UninstallString" "$INSTDIR\uninstall.exe" ; WriteRegStr HKLM "${PRODUCT_UNINST_KEY}" "DisplayIcon" "$INSTDIR\bin\gpsim.exe" WriteRegStr HKLM "${PRODUCT_UNINST_KEY}" "DisplayVersion" "${PRODUCT_VERSION}" WriteRegStr HKLM "${PRODUCT_UNINST_KEY}" "URLInfoAbout" "${PRODUCT_WEB_SITE}" WriteRegStr HKLM "${PRODUCT_UNINST_KEY}" "Publisher" "${PRODUCT_PUBLISHER}" SectionEnd Section Uninstall ; Remove StartMenu !insertmacro MUI_STARTMENU_GETFOLDER Application $MUI_STARTMENUPAGE_VARIABLE Delete "$SMPROGRAMS\$MUI_STARTMENUPAGE_VARIABLE\${PRODUCT_NAME}.lnk" Delete "$SMPROGRAMS\$MUI_STARTMENUPAGE_VARIABLE\${PRODUCT_NAME} on the Web.lnk" Delete "$SMPROGRAMS\$MUI_STARTMENUPAGE_VARIABLE\Documentation.lnk" Delete "$SMPROGRAMS\$MUI_STARTMENUPAGE_VARIABLE\Change Log.lnk" Delete "$SMPROGRAMS\$MUI_STARTMENUPAGE_VARIABLE\README.lnk" Delete "$SMPROGRAMS\$MUI_STARTMENUPAGE_VARIABLE\GPL 2 License.lnk" Delete "$SMPROGRAMS\$MUI_STARTMENUPAGE_VARIABLE\Uninstall.lnk" RMDir "$SMPROGRAMS\$MUI_STARTMENUPAGE_VARIABLE" ; Remove installation directory Delete "$INSTDIR\${PRODUCT_NAME}.url" Delete "$INSTDIR\.gpsim" Delete "$INSTDIR\uninstall.exe" Delete "$INSTDIR\README.TXT" Delete "$INSTDIR\COPYING.TXT" Delete "$INSTDIR\gpsim.bat" Delete "$INSTDIR\gpsim.ico" Delete "$INSTDIR\ChangeLog.txt" Delete "$INSTDIR\bin\libgpsim_modules.dll" Delete "$INSTDIR\bin\libgpsim_graphicLCD.dll" Delete "$INSTDIR\bin\libgpsim_lcd.dll" Delete "$INSTDIR\bin\libgpsim_ds1307.dll" Delete "$INSTDIR\examples\12bit\*.*" Delete "$INSTDIR\examples\14bit\*.*" Delete "$INSTDIR\examples\16bit\*.*" Delete "$INSTDIR\examples\modules\led_test\*.*" Delete "$INSTDIR\examples\modules\logic_test\*.*" Delete "$INSTDIR\examples\modules\mod_test\*.*" Delete "$INSTDIR\examples\modules\paraface_test\*.*" Delete "$INSTDIR\examples\modules\usart_gui\*.*" Delete "$INSTDIR\examples\modules\usart_test\*.*" Delete "$INSTDIR\examples\projects\digital_stim\*.*" Delete "$INSTDIR\examples\projects\p16f628_test\*.*" Delete "$INSTDIR\examples\projects\stack_test\*.*" Delete "$INSTDIR\examples\projects\*.*" Delete "$INSTDIR\examples\scripts\*.*" Delete "$INSTDIR\extras\graphics_lcd\doc\*.*" Delete "$INSTDIR\extras\graphics_lcd\utils\*.*" Delete "$INSTDIR\extras\graphics_lcd\src\*.*" Delete "$INSTDIR\extras\graphics_lcd\examples\*.*" Delete "$INSTDIR\extras\graphics_lcd\*.*" Delete "$INSTDIR\extras\lcd\examples\*.*" Delete "$INSTDIR\extras\lcd\*.*" Delete "$INSTDIR\extras\rs232-gen\example\*.*" Delete "$INSTDIR\extras\rs232-gen\*.*" Delete "$INSTDIR\extras\ds1307\examples\*.*" Delete "$INSTDIR\extras\ds1307\*.*" Delete "$INSTDIR\lib\gpsim\libgpsim.a" Delete "$INSTDIR\lib\gpsim\modules.def" Delete "$INSTDIR\lib\pango\1.5.0\modules\pango-arabic-fc.dll" Delete "$INSTDIR\lib\pango\1.5.0\modules\pango-basic-fc.dll" Delete "$INSTDIR\lib\pango\1.5.0\modules\pango-basic-win32.dll" Delete "$INSTDIR\lib\pango\1.5.0\modules\pango-hangul-fc.dll" Delete "$INSTDIR\lib\pango\1.5.0\modules\pango-hebrew-fc.dll" Delete "$INSTDIR\lib\pango\1.5.0\modules\pango-indic-fc.dll" Delete "$INSTDIR\lib\pango\1.5.0\modules\pango-thai-fc.dll" Delete "$INSTDIR\etc\pango\pango.modules" Delete "$INSTDIR\etc\gtk-2.0\gtkrc" Delete "$INSTDIR\doc\gpsim.lyx" Delete "$INSTDIR\doc\gpsim.ps" Delete "$INSTDIR\doc\gpsim.pdf" Delete "$INSTDIR\doc\screenshots\*.png" Delete "$INSTDIR\bin\freetype6.dll" Delete "$INSTDIR\bin\gpsim.exe" Delete "$INSTDIR\bin\gtkextra-win32-2.1.dll" Delete "$INSTDIR\bin\iconv.dll" Delete "$INSTDIR\bin\libatk-1.0-0.dll" Delete "$INSTDIR\bin\libcairo-2.dll" Delete "$INSTDIR\bin\libcairo-gobject-2.dll" Delete "$INSTDIR\bin\libcairo-script-interpreter-2.dll" Delete "$INSTDIR\bin\libgailutil-18.dll" Delete "$INSTDIR\bin\libexpat-1.dll" Delete "$INSTDIR\bin\libfontconfig-1.dll" Delete "$INSTDIR\bin\libgcc_s_dw2-1.dll" Delete "$INSTDIR\bin\libgdk_pixbuf-2.0-0.dll" Delete "$INSTDIR\bin\libgdk-win32-2.0-0.dll" Delete "$INSTDIR\bin\libgio-2.0-0.dll" Delete "$INSTDIR\bin\libglib-2.0-0.dll" Delete "$INSTDIR\bin\libgmodule-2.0-0.dll" Delete "$INSTDIR\bin\libgobject-2.0-0.dll" Delete "$INSTDIR\bin\libgpsim.dll" Delete "$INSTDIR\bin\libgthread-2.0-0.dll" Delete "$INSTDIR\bin\libgtk-win32-2.0-0.dll" Delete "$INSTDIR\bin\intl.dll" Delete "$INSTDIR\bin\libpango-1.0-0.dll" Delete "$INSTDIR\bin\libpangocairo-1.0-0.dll" Delete "$INSTDIR\bin\libpangoft2-1.0-0.dll" Delete "$INSTDIR\bin\libpangowin32-1.0-0.dll" Delete "$INSTDIR\bin\libpng14-14.dll" Delete "$INSTDIR\bin\libstdc++-6.dll" Delete "$INSTDIR\bin\libpopt-0.dll" Delete "$INSTDIR\bin\pthreadGC2.dll" Delete "$INSTDIR\bin\readline5.dll" Delete "$INSTDIR\bin\zlib1.dll" ; ============================================================================ ; Windows 2000 support ; ============================================================================ ${If} ${IsWin2000} Delete "$INSTDIR\bin\ws2_32.dll" Delete "$INSTDIR\bin\ws2_32_org.dll" ${EndIf} Delete "$SMPROGRAMS\gpsim\Uninstall.lnk" Delete "$SMPROGRAMS\gpsim\Website.lnk" Delete "$DESKTOP\gpsim.lnk" Delete "$SMPROGRAMS\gpsim\gpsim.lnk" Delete "$INSTDIR\include\gpsim\*.h" RMDir "$SMPROGRAMS\gpsim" RMDir "$INSTDIR\lib\gpsim" RMDir "$INSTDIR\lib\pango\1.5.0\modules" RMDir "$INSTDIR\lib\pango\1.5.0" RMDir "$INSTDIR\lib\pango" RMDir /r "$INSTDIR\lib\gtk-2.0\2.10.0\engines" RMDir "$INSTDIR\lib\gtk-2.0\2.10.0" RMDir "$INSTDIR\lib\gtk-2.0" RMDir "$INSTDIR\lib" RMDir /r "$INSTDIR\share" RMDir "$INSTDIR\etc\pango" RMDir "$INSTDIR\etc\gtk-2.0" RMDir "$INSTDIR\etc" RMDir "$INSTDIR\doc\screenshots" RMDir "$INSTDIR\doc" RMDir "$INSTDIR\bin" RMDir "$INSTDIR\modules" RMDir "$INSTDIR\examples\12bit" RMDir "$INSTDIR\examples\14bit" RMDir "$INSTDIR\examples\16bit" RMDir "$INSTDIR\examples\modules\led_test" RMDir "$INSTDIR\examples\modules\logic_test" RMDir "$INSTDIR\examples\modules\mod_test" RMDir "$INSTDIR\examples\modules\paraface_test" RMDir "$INSTDIR\examples\modules\usart_gui" RMDir "$INSTDIR\examples\modules\usart_test" RMDir "$INSTDIR\examples\modules" RMDir "$INSTDIR\examples\projects\digital_stim" RMDir "$INSTDIR\examples\projects\p16f628_test" RMDir "$INSTDIR\examples\projects\stack_test" RMDir "$INSTDIR\examples\projects" RMDir "$INSTDIR\examples\scripts" RMDir "$INSTDIR\examples" RMDir /r "$INSTDIR\extras\graphic_lcd" RMDir "$INSTDIR\extras\lcd\examples" RMDir "$INSTDIR\extras\lcd" RMDir "$INSTDIR\extras\rs232-gen\example" RMDir "$INSTDIR\extras\rs232-gen" RMDir "$INSTDIR\extras\ds1307\examples" RMDir "$INSTDIR\extras\ds1307" RMDir "$INSTDIR\extras" RMDir "$INSTDIR\include\gpsim" RMDir "$INSTDIR\include" RMDir "$INSTDIR" ; Clean the registry DeleteRegValue HKLM ${PRODUCT_UNINST_KEY} "NSIS:StartMenuDir" DeleteRegKey HKLM "${PRODUCT_UNINST_KEY}" DeleteRegKey HKLM "${PRODUCT_DIR_REGKEY}" DeleteRegKey HKLM "Software\${PRODUCT_NAME}" ;;;; SetAutoClose true SectionEnd ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; Functions ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; !verbose 4 ; CreateBatFile - Create gpsim.bat. Function CreateBatFile Push $0 FileOpen $0 "$INSTDIR\${PRODUCT_NAME}.bat$\r$\n" w FileWrite $0 "@echo off$\r$\n" FileWrite $0 "set PATH=$INSTDIR\bin;%PATH%$\r$\n" FileWrite $0 "$\"$INSTDIR\bin\${PRODUCT_NAME}$\" %1 %2 %3 %4 %5 %6 %7 %8 %9$\r$\n" FileClose $0 Pop $0 FunctionEnd ; Uninstall/Reinstall page !ifdef VER_MAJOR & VER_MINOR & VER_REVISION & VER_BUILD Var ReinstallPageCheck Function PageReinstall ReadRegStr $R0 HKLM "Software\${PRODUCT_NAME}" "" ${If} $R0 == "" ReadRegStr $R0 HKLM "${PRODUCT_UNINST_KEY}" "UninstallString" ${If} $R0 == "" Abort ${EndIf} ${EndIf} ReadRegDWORD $R0 HKLM "Software\${PRODUCT_NAME}" "VersionMajor" ReadRegDWORD $R1 HKLM "Software\${PRODUCT_NAME}" "VersionMinor" ReadRegDWORD $R2 HKLM "Software\${PRODUCT_NAME}" "VersionRevision" ReadRegDWORD $R3 HKLM "Software\${PRODUCT_NAME}" "VersionBuild" StrCpy $R0 $R0.$R1.$R2.$R3 ${VersionCompare} ${VER_MAJOR}.${VER_MINOR}.${VER_REVISION}.${VER_BUILD} $R0 $R0 ${If} $R0 == 0 StrCpy $R1 "${PRODUCT_NAME} ${PRODUCT_VERSION} is already installed. Select the operation you want to perform and click Next to continue." StrCpy $R2 "Add/Reinstall components" StrCpy $R3 "Uninstall ${PRODUCT_NAME}" !insertmacro MUI_HEADER_TEXT "Already Installed" "Choose the maintenance option to perform." StrCpy $R0 "2" ${ElseIf} $R0 == 1 StrCpy $R1 "An older version of ${PRODUCT_NAME} is installed on your system. It's recommended that you uninstall the current version before installing. Select the operation you want to perform and click Next to continue." StrCpy $R2 "Uninstall before installing" StrCpy $R3 "Do not uninstall" !insertmacro MUI_HEADER_TEXT "Already Installed" "Choose how you want to install ${PRODUCT_NAME}." StrCpy $R0 "1" ${ElseIf} $R0 == 2 StrCpy $R1 "A newer version of ${PRODUCT_NAME} is already installed! It is not recommended that you install an older version. If you really want to install this older version, it's better to uninstall the current version first. Select the operation you want to perform and click Next to continue." StrCpy $R2 "Uninstall before installing" StrCpy $R3 "Do not uninstall" !insertmacro MUI_HEADER_TEXT "Already Installed" "Choose how you want to install ${PRODUCT_NAME}." StrCpy $R0 "1" ${Else} Abort ${EndIf} nsDialogs::Create /NOUNLOAD 1018 ${NSD_CreateLabel} 0 0 100% 24u $R1 Pop $R1 ${NSD_CreateRadioButton} 30u 50u -30u 8u $R2 Pop $R2 ${NSD_OnClick} $R2 PageReinstallUpdateSelection ${NSD_CreateRadioButton} 30u 70u -30u 8u $R3 Pop $R3 ${NSD_OnClick} $R3 PageReinstallUpdateSelection ${If} $ReinstallPageCheck != 2 SendMessage $R2 ${BM_SETCHECK} ${BST_CHECKED} 0 ${Else} SendMessage $R3 ${BM_SETCHECK} ${BST_CHECKED} 0 ${EndIf} nsDialogs::Show FunctionEnd Function PageReinstallUpdateSelection Pop $R1 ${NSD_GetState} $R2 $R1 ${If} $R1 == ${BST_CHECKED} StrCpy $ReinstallPageCheck 1 ${Else} StrCpy $ReinstallPageCheck 2 ${EndIf} FunctionEnd Function PageLeaveReinstall ${NSD_GetState} $R2 $R1 StrCmp $R0 "1" 0 +2 StrCmp $R1 "1" reinst_uninstall reinst_done StrCmp $R0 "2" 0 +3 StrCmp $R1 "1" reinst_done reinst_uninstall reinst_uninstall: ReadRegStr $R1 HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}" "UninstallString" ;Run uninstaller HideWindow ClearErrors ExecWait '$R1 _?=$INSTDIR' IfErrors no_remove_uninstaller IfFileExists "$INSTDIR\bin\${PRODUCT_NAME}.exe" no_remove_uninstaller Delete $R1 RMDir $INSTDIR no_remove_uninstaller: StrCmp $R0 "2" 0 +2 Quit BringToFront reinst_done: FunctionEnd !endif # VER_MAJOR & VER_MINOR & VER_REVISION & VER_BUILD gpsim-0.27.0/plat/win32/configure_win32.awk0000644000076400007640000000423510416272175015272 00000000000000#!/usr/bin/awk # configure_win32.awk - Genarate config.h using config_win32.h.in as template # and insert the version number definitions from configure.ac # # Written By - Borut Razem borut.razem@siol.net # # This file is part of gpsim. # # 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, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. BEGIN { # get the values from configure.ac while (getline <"configure.ac" > 0) { if ($0 ~ "^AC_INIT\\(.*\\)") { package = gensub("^AC_INIT\\(\\[([^]]*)\\].*", "\\1", "1", $0); version = gensub("^AC_INIT\\(\\[[^]]*\\], \\[([^]]*)\\].*", "\\1", "1", $0); bugreport = gensub("^AC_INIT\\(\\[[^]]*\\], \\[[^]]*\\], \\[([^]]*)\\].*", "\\1", "1", $0); } } print("/* config.h */"); print("/* Generated automatically by configure_win32.awk, DO NOT EDIT! */"); print("/* To make changes to config.h edit config_win32.h.in instead. */"); print(""); } /^#undef PACKAGE_BUGREPORT/ { print("#define PACKAGE_BUGREPORT \"" bugreport "\""); next; } /^#undef PACKAGE_NAME/ { print("#define PACKAGE_NAME \"" package "\""); next; } /^#undef PACKAGE_STRING/ { print("#define PACKAGE_STRING \"" package " " version "\""); next; } /^#undef PACKAGE_TARNAME/ { print("#define PACKAGE_TARNAME \"" package "\""); next; } /^#undef PACKAGE_VERSION/ { print("#define PACKAGE_VERSION \"" version "\""); next } /^#undef PACKAGE/ { print("#define PACKAGE \"" package "\""); next; } /^#undef VERSION/ { print("#define VERSION \"" version "\""); next; } { print; } gpsim-0.27.0/plat/win32/gpsim.ico0000644000076400007640000000206610416272175013376 00000000000000 č&(( @€€€€€€€€€ŔŔŔ€€€˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙( €€€€€€€€€€ŔŔŔ€€€˙˙˙˙˙˙˙˙˙˙˙˙xxxxxxxxwwwwwwwwuÝ×]]w]www]]]w]ww]×]]]]wu×w]]ŐÝww]Ý]]w]wwwwwwwwwww]×]wwwwu×]]ÝwwwuŐÝ]u×wwu×w]u×www]Ý]Ýwwwwwwwwwwxxxxxxxx˙˙gpsim-0.27.0/plat/win32/modules.def0000644000076400007640000000003110416272175013701 00000000000000EXPORTS get_mod_list gpsim-0.27.0/plat/win32/uxsleep.cc0000644000076400007640000000407410452446012013551 00000000000000/* Copyright (C) 2003-2006 Borut Razem This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Definitions, missing in MSVC libraries */ #include #include #include "uxtime.h" #ifdef __cplusplus extern "C" { #endif int nanosleep(const struct timespec *rqtp, struct timespec *rmtp) { int res = 0; HANDLE dummy_event; int rc; DWORD req, start_time, end_time, now, rem; if (rqtp->tv_sec < 0 || rqtp->tv_nsec < 0 || rqtp->tv_nsec > 999999999) { errno = EINVAL; return -1; } dummy_event = CreateEvent (NULL, TRUE, FALSE, NULL); req = rqtp->tv_sec * 1000 + (rqtp->tv_nsec + 500000) / 1000000; start_time = GetTickCount(); end_time = start_time + req; rc = WaitForSingleObject(dummy_event, req); now = GetTickCount(); CloseHandle(dummy_event); rem = (rc == WAIT_TIMEOUT || now >= end_time) ? 0 : end_time - now; if (rc == WAIT_OBJECT_0) { errno = EINTR; res = -1; } if (rmtp) { rmtp->tv_sec = rem / 1000; rmtp->tv_nsec = (rem % 1000) * 1000000; } return res; } unsigned int usleep(unsigned int useconds) { struct timespec req; req.tv_sec = useconds / 1000000; req.tv_nsec = (useconds % 1000000) * 1000; return nanosleep(&req, 0); } unsigned int sleep(unsigned int seconds) { Sleep(seconds * 1000); return 0; } #ifdef __cplusplus } #endif gpsim-0.27.0/plat/win32/fd2raw.h0000644000076400007640000000165510416272176013125 00000000000000/* Copyright (C) 2004 Borut Razem This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef _FD2RAW_H #define _FD2RAW_H #include #ifdef __cplusplus extern "C" { #endif bool win32_fd_to_raw(int fd); void win32_set_is_readable(GIOChannel *channel); #ifdef __cplusplus } #endif #endif gpsim-0.27.0/plat/win32/settings_reg.h0000644000076400007640000000236010416272175014426 00000000000000/* Copyright (C) 2004 Borut Razem This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef _SETTINGS_REG_H #define _SETTINGS_REG_H #include "settings.h" class SettingsReg: public Settings { public: SettingsReg(const char *appl_name); virtual bool set(const char *module, const char *entry, const char *str); virtual bool set(const char *module, const char *entry, int value); virtual bool get(const char *module, const char *entry, char **str); virtual bool get(const char *module, const char *entry, int *value); virtual bool remove(const char *module, const char *entry); }; #endif //_SETTINGS_REG_H gpsim-0.27.0/plat/win32/settings_reg.cpp0000644000076400007640000000606510416272176014770 00000000000000/* Copyright (C) 2004 Borut Razem This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include "settings_reg.h" #define REG_PATH_PREFIX_STR "Software\\" SettingsReg::SettingsReg(const char *appl_name) { name = string(REG_PATH_PREFIX_STR) + appl_name + "\\"; } bool SettingsReg::set(const char *module, const char *entry, const char *str) { HKEY key; bool ret = true; DWORD disposition; string reg_path = name + module; if (RegCreateKeyEx(HKEY_CURRENT_USER, reg_path.c_str(), 0, NULL, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, NULL, &key, &disposition) != ERROR_SUCCESS) return 0; if (RegSetValueEx(key, entry, 0, REG_SZ, (LPBYTE)str, strlen(str) + 1) != ERROR_SUCCESS) ret = 0; RegCloseKey(key); return ret; } bool SettingsReg::set(const char *module, const char *entry, int value) { HKEY key; bool ret = true; DWORD disposition; string reg_path = name + module; if (RegCreateKeyEx(HKEY_CURRENT_USER, reg_path.c_str(), 0, NULL, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, NULL, &key, &disposition) != ERROR_SUCCESS) return 0; if (RegSetValueEx(key, entry, 0, REG_BINARY, (LPBYTE)&value, sizeof value) != ERROR_SUCCESS) ret = 0; RegCloseKey(key); return ret; } bool SettingsReg::get(const char *module, const char *entry, char **str) { static char buf[256]; HKEY key; bool ret = true; DWORD size = sizeof buf; string reg_path = name + module; if (RegOpenKeyEx(HKEY_CURRENT_USER, reg_path.c_str(), 0, KEY_READ, &key) != ERROR_SUCCESS) return 0; if (RegQueryValueEx(key, entry, NULL, NULL, (LPBYTE)buf, &size) != ERROR_SUCCESS) ret = 0; else *str = buf; RegCloseKey(key); return ret; } bool SettingsReg::get(const char *module, const char *entry, int *value) { HKEY key; bool ret = true; DWORD size = sizeof *value; string reg_path = name + module; if (RegOpenKeyEx(HKEY_CURRENT_USER, reg_path.c_str(), 0, KEY_READ, &key) != ERROR_SUCCESS) return 0; if (RegQueryValueEx(key, entry, NULL, NULL, (LPBYTE)value, &size) != ERROR_SUCCESS) ret = 0; RegCloseKey(key); return ret; } bool SettingsReg::remove(const char *module, const char *entry) { HKEY key; bool ret = true; string reg_path = name + module; if (RegOpenKeyEx(HKEY_CURRENT_USER, reg_path.c_str(), 0, KEY_SET_VALUE, &key) != ERROR_SUCCESS) return 0; if (RegDeleteValue(key, entry) != ERROR_SUCCESS) ret = 0; RegCloseKey(key); return ret; } gpsim-0.27.0/plat/win32/unistd.h0000644000076400007640000000176110416272175013243 00000000000000/* Copyright (C) 2003 Borut Razem This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Declarations, missing in MSVC header files, normaly defined in */ #ifndef __UNISDT_H #define __UNISTD_H #ifdef __cplusplus extern "C" { #endif unsigned int usleep(unsigned int usec); unsigned int sleep(unsigned int seconds); #ifdef __cplusplus } #endif #endif gpsim-0.27.0/plat/win32/icd.cc0000644000076400007640000000325111116621771012624 00000000000000/* Copyright (C) 2003 BorutRazem This is based on the program icdprog 0.3 made by Geir Thomassen gpsim 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. gpsim 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 gpasm; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Dummy icd implementation for WIN32 platform. */ #include #include #include #include #include #include #include "icd.h" bool get_use_icd() { return false; } char *icd_target(void) { return "no target"; } char *icd_version(void) { return "%0.00.00"; } int icd_halt(void) { return 1; } float icd_vdd(void) { return 0.0; } float icd_vpp(void) { return 0.0; } int icd_clear_break(void) { return 1; } int icd_connect(const char *port) { return 1; } int icd_detected(void) { return 0; } int icd_disconnect(void) { return 1; } int icd_has_debug_module(void) { return 0; } int icd_reset(void) { return 1; } int icd_run(void) { return 1; } int icd_stopped(void) { return 0; } int icd_set_break(int address) { return 1; } int icd_step(void) { return 1; } void icd_set_bulk(int flag) { } gpsim-0.27.0/plat/win32/fd2raw.cpp0000644000076400007640000001126010436720232013442 00000000000000/* Copyright (C) 2004-2006 Borut Razem This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "fd2raw.h" #if defined _MSC_VER && _MSC_VER >= 1300 /* * a hack to call _setmode() from MSVCRT.DLL: * glib runtime uses MSVCRT.DLL, while gpsim executable uses MSVCR71.DLL. * To set the mode of file handle, which is used in glib, the _setmode() * from MSVCRT.DLL should be called. */ static int win32_setmode(int fd, int mode) { int ret = -1; HINSTANCE hinst; /* get a handle to the DLL module */ hinst = LoadLibrary("MSVCRT.DLL"); /* if the handle is valid, try to get the function address */ if (NULL == hinst) { gchar *emsg = g_win32_error_message(GetLastError()); g_error("Error loading library MSVCRT.DLL: %s", emsg); g_free(emsg); } else { int (*proc_add)(int, int); proc_add = (int (*)(int, int)) GetProcAddress(hinst, "_setmode"); /* if the function address is valid, call the function */ if (NULL == proc_add) { gchar *emsg = g_win32_error_message(GetLastError()); g_error("Error retriving address of function _setmode: %s", emsg); g_free(emsg); } else ret = (proc_add) (fd, mode); /* free the DLL module */ if (0 == FreeLibrary(hinst)) { gchar *emsg = g_win32_error_message(GetLastError()); g_error("Error freeing the DLL module: %s", emsg); g_free(emsg); } } return ret; } #endif /* * set file descriptor to raw mode */ bool win32_fd_to_raw(int fd) { HANDLE handle = (HANDLE)_get_osfhandle(fd); /* if a console */ if (0 != (GetFileType(handle) & FILE_TYPE_CHAR)) { DWORD orig_mode; /* set it to raw mode */ GetConsoleMode(handle, &orig_mode); SetConsoleMode(handle, orig_mode & ~(ENABLE_LINE_INPUT | ENABLE_ECHO_INPUT)); #if defined _MSC_VER && _MSC_VER >= 1300 win32_setmode(0, _O_BINARY); #else setmode(0, _O_BINARY); #endif return true; } return false; } #if GLIB_MAJOR_VERSION < 2 || (GLIB_MAJOR_VERSION == 2 && GLIB_MINOR_VERSION < 6) /* * set is_readable flag for character device channel * (this should be done in giowin32.c, g_io_win32_fd_get_flags_internal(); * submittd to glib team http://bugzilla.gnome.org/show_bug.cgi?id=145326) */ void win32_set_is_readable(GIOChannel *channel) { HANDLE handle = (HANDLE)_get_osfhandle(g_io_channel_unix_get_fd(channel)); if (0 != (GetFileType(handle) & FILE_TYPE_CHAR)) { /* find out the WIN32 OS version: * on MSC version >= 13.00, there is a global variable _osplatform * on others GetVersionEx() has to be called */ #if !defined _MSC_VER || _MSC_VER < 1300 OSVERSIONINFOA *posvi = (OSVERSIONINFOA *)alloca(sizeof(OSVERSIONINFOA)); posvi->dwOSVersionInfoSize = sizeof(OSVERSIONINFOA); GetVersionExA(posvi); if (_winmajor > 4 || VER_PLATFORM_WIN32_NT == posvi->dwPlatformId) #else if (_winmajor > 4 || VER_PLATFORM_WIN32_NT == _osplatform) #endif { /* on Windows NT/2000/XP/... we use a trick to set the device to raw mode, * read 0 bytes from it and examine if the read succeeded. */ DWORD orig_mode; char c; DWORD count; /* remember the original console mode */ GetConsoleMode(handle, &orig_mode); /* set console to raw mode */ SetConsoleMode(handle, orig_mode & ~(ENABLE_LINE_INPUT | ENABLE_ECHO_INPUT)); /* set is_readable flag (this should be done in giowin32.c, g_io_win32_fd_get_flags_internal()) */ channel->is_readable = (ReadConsole(handle, &c, 0, &count, NULL) != 0); /* restore the original mode */ SetConsoleMode(handle, orig_mode); } else { /* on Windows 95/98/Me the trick doesn't work :-( * but character devices (consoles, mostly) are usually * readable, so set it to TRUE */ channel->is_readable = TRUE; } } } #endif gpsim-0.27.0/plat/win32/uxtime.h0000644000076400007640000000267110452446012013242 00000000000000/* Copyright (C) 2003-2006 Borut Razem This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Declarations, missing in MSVC header files, normaly defined in and */ #ifndef _UXTIME_H #define _UXTIME_H #include #ifdef __cplusplus extern "C" { #endif /* * Structure returned by gettimeofday(2) system call */ #ifdef _MSC_VER #ifndef _WINSOCKAPI_ struct timeval { unsigned long tv_sec; /* seconds */ long tv_usec; /* and microseconds */ }; struct timezone { int tz_minuteswest; int tz_dsttime; }; #endif int gettimeofday(struct timeval *tv, struct timezone *tz); #endif struct timespec { time_t tv_sec; /* Seconds */ long tv_nsec; /* Nanoseconds */ }; int nanosleep(const struct timespec *rqtp, struct timespec *rmtp); #ifdef __cplusplus } #endif #endif gpsim-0.27.0/plat/win32/make.mingw0000664000076400007640000000572312202777764013561 00000000000000# Common makefile definitions for building gpsim with gcc # on Win32 for a mingw configuration (for a description of # what mingw is, see http://www.mingw.org) # The makefile.mingw files in the source directories (or # subdirectories) all include this file right at the top after # defining some macros used here. ifdef DEBUG ifndef OPTIMIZE OPTIMIZE = -O2 -g endif CLDFLAGS = DEFINES = -DDEBUG else ifndef OPTIMIZE OPTIMIZE = -O2 endif CLDFLAGS = -Wl,--strip-all # uncomment the following line to disable assertions # DEFINES = -DNDEBUG endif ifndef WARNINGS WARNINGS = -Wall -Wno-format endif ifndef TOP TOP = .. endif ################ # Paths to external libraries GTK_PATH = $(TOP)/gtk+ GLIB_PATH = $(TOP)/glib CAIRO_PATH = $(TOP)/cairo PANGO_PATH = $(TOP)/pango ATK_PATH = $(TOP)/atk POPT_PATH = $(TOP)/popt GTKEXTRA_PATH = $(TOP)/gtkextra-2 READLINE_PATH = $(TOP)/readline PTHREAD_PATH = $(TOP)/pthreads GDK_PIXBUF_PATH = $(TOP)/gdk-pixbuf ################ # Compiler to use. The -fnative-struct switch is important so that the # produced libraries are also callable from MSVC-compiled code. Only # gcc 2.95 or later for mingw (distributed by Mumit Khan) have the # -fnative-struct switch. # # ccache - Cache for gcc - saves time re-compiling # The ccache modifier is normally an empty string. However, if you # have ccache.exe install, then define # $ export CCACHE=ccache ## Cygwin / Mingw GCC 3.4.4 with -mno-cygwin support #CCOMPILER = $(CCACHE) gcc #CC = $(CCOMPILER) -mno-cygwin -mtune=pentium -mms-bitfields #CXXCOMPILER = $(CCACHE) c++ #CXX = $(CXXCOMPILER) -mno-cygwin -mtune=pentium -mms-bitfields # Mingw GCC 4.7.3 CCOMPILER = $(CCACHE) i686-pc-mingw32-gcc CC = $(CCOMPILER) -mtune=pentium -mms-bitfields CXXCOMPILER = $(CCACHE) i686-pc-mingw32-c++ CXX = $(CXXCOMPILER) -mtune=pentium -mms-bitfields ################ # Various other tools AR = ar ARFLAGS = rcs RM = rm -f MV = mv CP = cp AWK = gawk BISON = bison FLEX = flex ################ # The including makefile should define INCLUDES, DEFINES and # DEPCFLAGS. INCLUDES are the includes related to the module being # built. DEFINES similarly. DEPCFLAGS should be set to a set of # GLIB_CFLAGS, GTK_CFLAGS etc corresponding to what other modules we # depend on. CFLAGS = $(OPTIMIZE) $(INCLUDES) $(DEFINES) $(DEPCFLAGS) $(WARNINGS) ################ # name of auto-generated makefile MF=mf ################ # Useful rules .SUFFIXES: .c .cc .cpp .o .i .s .c.i: $(CC) $(CFLAGS) -E $< >$@ .c.s: $(CC) $(CFLAGS) -S $< -o $@ .cc.o: $(CXX) $(CFLAGS) -c $< -o $@ .cpp.o: $(CXX) $(CFLAGS) -c $< -o $@ # The default target should be "all" default: all clean:: -$(RM) *.o *.i *.exe *.dll *.a *.base *.exp *.lib *.def $(MF) depend: @echo Making dependencies @echo "# autogenerated dependency file" > depend $(CXX) $(CFLAGS) -E -MM *.cc >> depend @echo "# Automatically generated makefile" > ${MF} @echo "include makefile.mingw" >> ${MF} @echo "# dependency file" >> ${MF} @echo "include depend" >> ${MF} gpsim-0.27.0/plat/win32/makefile.mingw0000644000076400007640000000177711116621771014411 00000000000000## Makefile for building the gpsim setup executable on WIN32. ## The build uses tools running on cygwin. ## Use: make -f makefile.mingw MAKENSYS = "/cygdrive/c/Program Files/NSIS/makensis" DATE = $(shell date +%Y%m%d) VERSION = $(shell awk '/^AC_INIT\(\[[^]]*\], \[[^]]*\].*\).*/ {print(gensub("^AC_INIT\\(\\[[^]]*\\], \\[([^]]*)\\].*\\).*", "\\1", "1"))}' ../../configure.ac) VER_MAJOR = $(shell echo $(VERSION) | awk 'BEGIN { FS="."; getline; print $$1 }') VER_MINOR = $(shell echo $(VERSION) | awk 'BEGIN { FS="."; getline; print $$2 }') VER_REVISION = $(shell echo $(VERSION) | awk 'BEGIN { FS="."; getline; print $$3 }') VER_BUILD = 0 WEB_SITE = $(shell awk '/^AC_INIT\(\[[^]]*\], \[[^]]*\], \[<[^>]*>\].*\).*/ {print(gensub("^AC_INIT\\(\\[[^]]*\\], \\[[^]]*\\], \\[<([^>]*)>\\].*\\).*", "\\1", "1"))}' ../../configure.ac) all: $(MAKENSYS) /DDATE=$(DATE) /DVER_MAJOR=$(VER_MAJOR) /DVER_MINOR=$(VER_MINOR) /DVER_REVISION=$(VER_REVISION) /DVER_BUILD=$(VER_BUILD) /DPRODUCT_WEB_SITE=$(WEB_SITE) gpsim.nsi clean: gpsim-0.27.0/plat/win32/uxtime.cc0000644000076400007640000000254510452446012013400 00000000000000/* Copyright (C) 2003-2006 Borut Razem This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Definitions, missing in MSVC libraries */ #include #include "uxtime.h" #ifdef __cplusplus extern "C" { #endif int gettimeofday(struct timeval *tv, struct timezone *tz) { ULARGE_INTEGER curr_time; FILETIME curr_file_time; /* get current system time as file time */ GetSystemTimeAsFileTime(&curr_file_time); curr_time.HighPart = curr_file_time.dwHighDateTime; curr_time.LowPart = curr_file_time.dwLowDateTime; curr_time.QuadPart -= 0x19db1ded53e8000LL; tv->tv_sec = (long)(curr_time.QuadPart / 10000000); tv->tv_usec = (long)((curr_time.QuadPart / 10) % 1000000); return 0; } #ifdef __cplusplus } #endif gpsim-0.27.0/plat/win32/libgpsim.def0000664000076400007640000007740312201276457014063 00000000000000EXPORTS ??0AbstractRange@@QAE@II@Z ??0AliasedInstruction@@QAE@XZ ??0AttributeStimulus@@QAE@PBD@Z ??0Bit@@QAE@AAVRegisterValue@@I@Z ??0BoolEventLogger@@QAE@I@Z ??0Boolean@@QAE@PBD_N0@Z ??0Boolean@@QAE@_N@Z ??0Breakpoint_Instruction@@QAE@PAVProcessor@@II@Z ??0ByteLogger@gpsim@@QAE@H@Z ??0CommandAssertion@@QAE@PAVProcessor@@IIPBD_N@Z ??0Error@@QAE@V?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@Z ??0Float@@QAE@N@Z ??0Float@@QAE@PBDN0@Z ??0I2C_EE@@QAE@PAVProcessor@@IIIIII@Z ??0IIndexedCollection@@QAE@H@Z ??0IIndexedCollection@@QAE@PBD0H@Z ??0IOPIN@@QAE@PBDNNNN@Z ??0IO_bi_directional@@QAE@PBDNNNNNN@Z ??0IO_bi_directional_pu@@QAE@PBDNNNNNNN@Z ??0IO_open_collector@@QAE@PBD@Z ??0IndexedSymbol@@QAE@PAVgpsimObject@@PAV?$list@PAVExpression@@V?$allocator@PAVExpression@@@std@@@std@@@Z ??0Integer@@QAE@ABV0@@Z ??0Integer@@QAE@PBD_J0@Z ??0Integer@@QAE@_J@Z ??0IntelHexProgramFileType@@QAE@XZ ??0Interface@@QAE@PAX@Z ??0LiteralArray@@QAE@PAV?$list@PAVExpression@@V?$allocator@PAVExpression@@@std@@@std@@@Z ??0LiteralBoolean@@QAE@PAVBoolean@@@Z ??0LiteralFloat@@QAE@PAVFloat@@@Z ??0LiteralInteger@@QAE@PAVInteger@@@Z ??0LiteralString@@QAE@PAVString@@@Z ??0LiteralSymbol@@QAE@PAVgpsimObject@@@Z ??0Module@@QAE@PBD0@Z ??0ModuleTraceType@@QAE@PAVModule@@IPBD@Z ??0OpAbstractRange@@QAE@PAVExpression@@0@Z ??0OpAdd@@QAE@PAVExpression@@0@Z ??0OpAddressOf@@QAE@PAVExpression@@@Z ??0OpAnd@@QAE@PAVExpression@@0@Z ??0OpDiv@@QAE@PAVExpression@@0@Z ??0OpEq@@QAE@PAVExpression@@0@Z ??0OpGe@@QAE@PAVExpression@@0@Z ??0OpGt@@QAE@PAVExpression@@0@Z ??0OpIndirect@@QAE@PAVExpression@@@Z ??0OpLe@@QAE@PAVExpression@@0@Z ??0OpLogicalAnd@@QAE@PAVExpression@@0@Z ??0OpLogicalNot@@QAE@PAVExpression@@@Z ??0OpLogicalOr@@QAE@PAVExpression@@0@Z ??0OpLt@@QAE@PAVExpression@@0@Z ??0OpMpy@@QAE@PAVExpression@@0@Z ??0OpNe@@QAE@PAVExpression@@0@Z ??0OpNegate@@QAE@PAVExpression@@@Z ??0OpOnescomp@@QAE@PAVExpression@@@Z ??0OpOr@@QAE@PAVExpression@@0@Z ??0OpPlus@@QAE@PAVExpression@@@Z ??0OpShl@@QAE@PAVExpression@@0@Z ??0OpShr@@QAE@PAVExpression@@0@Z ??0OpSub@@QAE@PAVExpression@@0@Z ??0OpXor@@QAE@PAVExpression@@0@Z ??0PCTraceObject@@QAE@PAVProcessor@@I@Z ??0PCTraceType@@QAE@PAVProcessor@@I@Z ??0Package@@QAE@I@Z ??0Packet@@QAE@II@Z ??0PicLatchRegister@@QAE@PAVProcessor@@PBD1PAVPortRegister@@I@Z ??0PicPortRegister@@QAE@PAVProcessor@@PBD1II@Z ??0PicTrisRegister@@QAE@PAVProcessor@@PBD1PAVPicPortRegister@@_NI@Z ??0PinModule@@QAE@PAVPortModule@@IPAVIOPIN@@@Z ??0Processor@@QAE@PBD0@Z ??0ProcessorConstructor@@QAE@P6APAVProcessor@@PBD@Z0000@Z ??0ProgramFileBuf@@QAE@PAU_iobuf@@@Z ??0ProgramMemoryAccess@@QAE@PAVProcessor@@@Z ??0PromAddress@@QAE@PAVI2C_EE@@PBD1@Z ??0RegisterAssertion@@QAE@PAVProcessor@@IIIIII_N@Z ??0RegisterAssertion@@QAE@PAVProcessor@@IIIII_N@Z ??0RegisterCollection@@QAE@PAVProcessor@@PBDPAPAVRegister@@I@Z ??0RegisterExpression@@QAE@I@Z ??0RegisterReadTraceObject@@QAE@PAVProcessor@@PAVRegister@@VRegisterValue@@@Z ??0RegisterReadTraceType@@QAE@PAVProcessor@@I@Z ??0RegisterWriteTraceObject@@QAE@PAVProcessor@@PAVRegister@@VRegisterValue@@@Z ??0RegisterWriteTraceType@@QAE@PAVProcessor@@I@Z ??0Stimulus_Node@@QAE@PBD@Z ??0String@@QAE@PBD00@Z ??0String@@QAE@PBD@Z ??0ThreeStateEventLogger@@QAE@I@Z ??0Token@gpsim@@QAE@XZ ??0TraceFrame@@QAE@XZ ??0TriggerObject@@QAE@XZ ??0TypeMismatch@@QAE@V?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@00@Z ??0Value@@QAE@PBD0PAVModule@@@Z ??0Value@@QAE@XZ ??0ValueStimulus@@QAE@PBD@Z ??0gpsimObject@@QAE@XZ ??0instruction@@QAE@PAVProcessor@@II@Z ??0invalid_instruction@@QAE@PAVProcessor@@II@Z ??0sfr_register@@QAE@PAVModule@@PBD1@Z ??1AnError@@UAE@XZ ??1Boolean@@UAE@XZ ??1Error@@UAE@XZ ??1Float@@UAE@XZ ??1IOPIN@@UAE@XZ ??1IO_bi_directional_pu@@UAE@XZ ??1IndexedSymbol@@UAE@XZ ??1Integer@@UAE@XZ ??1Module@@UAE@XZ ??1OpNe@@UAE@XZ ??1PinMonitor@@UAE@XZ ??1PortModule@@UAE@XZ ??1Processor@@UAE@XZ ??1Register@@UAE@XZ ??1String@@UAE@XZ ??1TraceFrame@@UAE@XZ ??1TriggerObject@@UAE@XZ ??1Value@@UAE@XZ ??1gpsimObject@@UAE@XZ ??1stimulus@@UAE@XZ ??AFileContextList@@QAEPAVFileContext@@H@Z ??APortModule@@QAEAAVPinModule@@I@Z ??ARegisterMemoryAccess@@QAEAAVRegister@@I@Z ?AddModulePathFromFilePath@@YAXPAD@Z ?Clear@CSimulationContext@@QAEXXZ ?ConstructInvalidInstruction@Processor@@UAEPAVinstruction@@PAV1@II@Z ?Debug@Processor@@UAEXXZ ?DecodeHeader@Packet@@QAE_NXZ ?DecodeObjectType@Packet@@QAE_NAAI@Z ?DecodeString@Packet@@QAE_NPADH@Z ?DecodeUInt32@Packet@@QAE_NAAI@Z ?DecodeUInt64@Packet@@QAE_NAA_K@Z ?DisplayError@ProgramFileType@@UAEXHPBD0@Z ?DisplayString@ProcessorConstructorList@@SA?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@XZ ?ElementIndexedName@IIndexedCollection@@MAE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@I@Z ?EncodeHeader@Packet@@QAE_NXZ ?EncodeObjectType@Packet@@QAE_NI@Z ?EncodeUInt32@Packet@@QAE_NI@Z ?EncodeUInt64@Packet@@QAE_N_K@Z ?Execute@CCommandManager@@QAEHAAV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@PBD@Z ?Find@FileContextList@@QAEHAAV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@Z ?ForEachModule@SymbolTable@@QAEXP6AXABU?$pair@V?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@PAVSymbolTable_t@@@std@@@Z@Z ?GUIname@IOPIN@@UBEAAV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@XZ ?GetActiveCPU@CSimulationContext@@QAEPAVProcessor@@XZ ?GetBreakpoints@CSimulationContext@@QAEAAVBreakpoints@@XZ ?GetCapabilities@Processor@@QAEKXZ ?GetContext@CSimulationContext@@SAPAV1@XZ ?GetList@ProcessorConstructorList@@SAPAV1@XZ ?GetManager@CCommandManager@@SAAAV1@XZ ?GetSymbol@LiteralSymbol@@QAEPAVValue@@XZ ?Initialize@CSimulationContext@@QAEXXZ ?Initialize@Token@gpsim@@QAEXP6APAXPAX@Z0@Z ?InstantiateObject@ModuleLibrary@@SAHAAV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@0@Z ?ListLoadableModules@ModuleLibrary@@SAXXZ ?ListToConsole@CCommandManager@@QAEXXZ ?LoadFile@ModuleLibrary@@SAHAAV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@Z ?LoadProgramFile@IntelHexProgramFileType@@UAEHPAPAVProcessor@@PBDPAU_iobuf@@1@Z ?LoadProgram@CSimulationContext@@QAEHPBD0PAPAVProcessor@@0@Z ?ModuleLibraries@@3V?$map@V?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@PAVDynamicModuleLibraryInfo@@U?$less@V?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@2@V?$allocator@U?$pair@$$CBV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@PAVDynamicModuleLibraryInfo@@@std@@@2@@std@@A ?NewObject@Float@@SAPAV1@PBD00@Z ?NewObject@Integer@@SAPAV1@PBD00@Z ?NotifyUserCanceled@CSimulationContext@@QAEXXZ ?Parse@Boolean@@SA_NPBDAA_N@Z ?Parse@Float@@SA_NPBDAAN@Z ?Parse@Integer@@SA_NPBDAA_J@Z ?PushValue@IIndexedCollection@@IAEXHHPAVValue@@AAV?$vector@V?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@V?$allocator@V?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@2@@std@@1@Z ?ReadHLLLine@instruction@@UAEPADPADH@Z ?ReadLine@FileContextList@@QAEPADHHPADH@Z ?ReadLstLine@instruction@@UAEPADPADH@Z ?ReadSrcLine@instruction@@UAEPADPADH@Z ?Register@CCommandManager@@QAEHPAVICommandHandler@@@Z ?RegisterProgramFileType@@YAXPAVProgramFileType@@@Z ?Reset@CSimulationContext@@QAEXW4RESET_TYPE@@@Z ?Set@IIndexedCollection@@UAEXPAVValue@@@Z ?SetAddressRadix@IIndexedCollection@@QAEXH@Z ?SetAt@IIndexedCollection@@UAEXPAV?$list@PAVExpression@@V?$allocator@PAVExpression@@@std@@@std@@PAVExpression@@@Z ?SetAt@IIndexedCollection@@UAEXPAV?$list@PAVExpression@@V?$allocator@PAVExpression@@@std@@@std@@PAVExpression@@@Z ?SetDefaultProcessor@CSimulationContext@@QAE_NPBD0@Z ?SetProcessorByType@CSimulationContext@@QAEPAVProcessor@@PBD0@Z ?SetSourcePath@FileContextList@@QAEXPBD@Z ?TrimWhiteSpaceFromString@@YAPADPAD@Z ?add@TraceFrame@@UAEXPAVTraceObject@@@Z ?addFrame@Trace@@QAEXPAVTraceFrame@@@Z ?addPin@PortModule@@QAEPAVIOPIN@@PAV2@I@Z ?addPinModule@PortModule@@QAEXPAVPinModule@@I@Z ?addSink@PinMonitor@@QAEXPAVSignalSink@@@Z ?addSymbol@Module@@QAEHPAVgpsimObject@@PAV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@Z ?addSymbol@SymbolTable@@QAEHPAVgpsimObject@@@Z ?addToCurrentFrame@Trace@@QAEXPAVTraceObject@@@Z ?add_command@Module@@QAEXAAV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@0@Z ?add_interface@gpsimInterface@@QAEIPAVInterface@@@Z ?add_processor@CSimulationContext@@QAEPAVProcessor@@PAV2@@Z ?add_processor@CSimulationContext@@QAEPAVProcessor@@PBD0@Z ?add_xref@AliasedInstruction@@UAEXPAX@Z ?add_xref@Value@@UAEXPAX@Z ?address_has_break@ProgramMemoryAccess@@UAEHIW4INSTRUCTION_TYPES@instruction@@@Z ?address_has_notify@ProgramMemoryAccess@@UAEHI@Z ?address_has_profile_start@ProgramMemoryAccess@@UAEHI@Z ?address_has_profile_stop@ProgramMemoryAccess@@UAEHI@Z ?advance_simulation@gpsimInterface@@QAEXW4eAdvancementModes@1@@Z ?advanceIndex@PacketBuffer@@QAEXI@Z ?allocateTraceType@Trace@@QAEIPAVTraceType@@@Z ?assertValid@Integer@@SAPAV1@PAVValue@@V?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@_J2@Z ?assertValid@Integer@@SAPAV1@PAVValue@@V?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@_J@Z ?assign_pin@Module@@UAEXIPAVIOPIN@@@Z ?assign_pin@Package@@QAEXIPAVIOPIN@@_N@Z ?assign_xref@ProgramMemoryAccess@@QAEXIPAX@Z ?attach@IOPIN@@UAEXPAVStimulus_Node@@@Z ?attach_src_line@Processor@@QAEXIIII@Z ?attach_stimulus@Stimulus_Node@@QAEXPAVstimulus@@@Z ?bIsValid@Breakpoints@@QAE_NI@Z ?bSimulating@gpsimInterface@@QAE_NXZ ?bUsingGUI@gpsimInterface@@QAE_NXZ ?bp@@3VBreakpoints@@A ?breakpoint@Cycle_Counter@@AAEXXZ ?byte@ByteLogger@gpsim@@QAEXI@Z ?callback@ProgramMemoryAccess@@UAEXXZ ?callback@RealTimeBreakPoint@@UAEXXZ ?callback@TriggerObject@@UAEXXZ ?callback@source_stimulus@@UAEXXZ ?callback_print@TriggerObject@@UAEXXZ ?callback_print@source_stimulus@@UAEXXZ ?clear@Breakpoint_Instruction@@UAEXXZ ?clear@Breakpoints@@QAEXI@Z ?clear@TriggerObject@@UAEXXZ ?clear_all@Breakpoints@@QAEXPAVProcessor@@@Z ?clear_all_register@Breakpoints@@QAEXPAVProcessor@@I@Z ?clear_break@Cycle_Counter@@QAEXPAVTriggerObject@@@Z ?clear_break@Register@@UAEHXZ ?clear_break@gpsimObject@@UAEHXZ ?clear_break_at_address@ProgramMemoryAccess@@UAEHIPAVinstruction@@@Z ?clear_break_at_address@ProgramMemoryAccess@@UAEHIW4INSTRUCTION_TYPES@instruction@@@Z ?clear_break_at_line@ProgramMemoryAccess@@UAEXII@Z ?clear_notify_at_address@ProgramMemoryAccess@@UAEHI@Z ?clear_profile_start_at_address@ProgramMemoryAccess@@UAEHI@Z ?clear_profile_stop_at_address@ProgramMemoryAccess@@UAEHI@Z ?clear_trigger@TriggerObject@@UAEXXZ ?compare@Boolean@@UAE_NPAVComparisonOperator@@PAVValue@@@Z ?compare@Float@@UAE_NPAVComparisonOperator@@PAVValue@@@Z ?compare@Integer@@UAE_NPAVComparisonOperator@@PAVValue@@@Z ?compare@Value@@UAE_NPAVComparisonOperator@@PAV1@@Z ?computed_goto@Program_Counter@@UAEXI@Z ?construct@P12F1822@@SAPAVProcessor@@PBD@Z ?construct@P16F1823@@SAPAVProcessor@@PBD@Z ?construct@P16F631@@SAPAVProcessor@@PBD@Z ?construct@P16F631@@SAPAVProcessor@@PBD@Z ?construct@P16F677@@SAPAVProcessor@@PBD@Z ?construct@P16F677@@SAPAVProcessor@@PBD@Z ?construct@P16F684@@SAPAVProcessor@@PBD@Z ?construct@P16F684@@SAPAVProcessor@@PBD@Z ?construct@P16F685@@SAPAVProcessor@@PBD@Z ?construct@P16F685@@SAPAVProcessor@@PBD@Z ?construct@P16F687@@SAPAVProcessor@@PBD@Z ?construct@P16F687@@SAPAVProcessor@@PBD@Z ?construct@P16F689@@SAPAVProcessor@@PBD@Z ?construct@P16F689@@SAPAVProcessor@@PBD@Z ?construct@P16F690@@SAPAVProcessor@@PBD@Z ?construct@P16F690@@SAPAVProcessor@@PBD@Z ?construct@P16F882@@SAPAVProcessor@@PBD@Z ?construct@P16F882@@SAPAVProcessor@@PBD@Z ?construct@P16F883@@SAPAVProcessor@@PBD@Z ?construct@P16F883@@SAPAVProcessor@@PBD@Z ?construct@P16F884@@SAPAVProcessor@@PBD@Z ?construct@P16F884@@SAPAVProcessor@@PBD@Z ?construct@P16F886@@SAPAVProcessor@@PBD@Z ?construct@P16F886@@SAPAVProcessor@@PBD@Z ?construct@P16F887@@SAPAVProcessor@@PBD@Z ?construct@P16F887@@SAPAVProcessor@@PBD@Z ?construct@Stimulus_Node@@SAPAV1@PBD@Z ?convertToNew@PinGeometry@@QAEXXZ ?copy@Boolean@@UAEPAVValue@@XZ ?copy@Float@@UAEPAVValue@@XZ ?copy@Integer@@UAEPAVValue@@XZ ?copy@Register@@UAEPAVValue@@XZ ?copy@String@@UAEPAVValue@@XZ ?copy@Value@@UAEPAV1@XZ ?create@Processor@@UAEXXZ ?createProgramMemoryAccess@Processor@@UAEPAVProgramMemoryAccess@@PAV1@@Z ?create_invalid_registers@Processor@@QAEXXZ ?create_pkg@Module@@UAEXI@Z ?cycles@@3VCycle_Counter@@A ?cycles_used@Processor@@QAE_KI@Z ?debug@AliasedInstruction@@UAEXXZ ?decode@ModuleTraceType@@UAEPAVTraceObject@@I@Z ?decode@instruction@@QAEXPAVProcessor@@I@Z ?deleteSymbol@SymbolTable@@QAEHABV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@Z ?description@gpsimObject@@UAE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@XZ ?destroyProgramMemoryAccess@Processor@@UAEXPAVProgramMemoryAccess@@@Z ?detach@stimulus@@UAEXPAVStimulus_Node@@@Z ?detach_stimulus@Stimulus_Node@@QAEXPAVstimulus@@@Z ?disableLogging@Trace@@QAEXXZ ?disable_logging@TraceLog@@QAEXXZ ?disassemble@Processor@@UAEXHH@Z ?dump1@Breakpoints@@QAE_NIH@Z ?dump@Breakpoints@@QAEXH@Z ?dump@ThreeStateEventLogger@@QAEXHH@Z ?dump@Trace@@QAEHHPAU_iobuf@@@Z ?dump_ASCII_art@BoolEventLogger@@QAEX_K0H@Z ?dump_ASCII_art@ThreeStateEventLogger@@QAEX_K0H@Z ?dump_last_instruction@Trace@@QAEXXZ ?dump_processor_list@CSimulationContext@@QAEXXZ ?dump_raw@ModuleTraceType@@UAEHPAVTrace@@IPADH@Z ?dump_raw@PCTraceType@@UAEHPAVTrace@@IPADH@Z ?dump_raw@Trace@@QAEXH@Z ?dump_raw@TraceType@@UAEHPAVTrace@@IPADH@Z ?dump_registers@Processor@@UAEXXZ ?dump_stimulus_list@@YAXXZ ?enableLogging@Trace@@QAEXPBD@Z ?enable_logging@TraceLog@@QAEXPBDH@Z ?enable_profiling@ProfileKeeper@@QAEXXZ ?entriesUsed@TraceType@@UAEHPAVTrace@@I@Z ?eval_Expression@Breakpoint_Instruction@@UAE_NXZ ?eval_Expression@TriggerObject@@UAE_NXZ ?event@BoolEventLogger@@QAEX_N@Z ?event@ThreeStateEventLogger@@QAEXD@Z ?execute@AliasedInstruction@@UAEXXZ ?find@CCommandManager@@QAEPAVICommandHandler@@PBD@Z ?find@SymbolTable@@QAEPAVgpsimObject@@V?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@Z ?findInteger@SymbolTable@@QAEPAVInteger@@V?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@Z ?findModule@SymbolTable@@QAEPAVModule@@V?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@Z ?findSymbol@Module@@QAEPAVgpsimObject@@ABV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@Z ?findValue@SymbolTable@@QAEPAVValue@@V?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@Z ?find_address_from_line@ProgramMemoryAccess@@UAEHPAVFileContext@@H@Z ?find_closest_address_to_line@ProgramMemoryAccess@@UAEHHH@Z ?find_free@TriggerObject@@UAEHXZ ?find_instruction@ProgramMemoryAccess@@UAEPAVinstruction@@IW4INSTRUCTION_TYPES@2@@Z ?finish@ProgramMemoryAccess@@UAEXXZ ?forceDrivenState@IOPIN@@UAEXD@Z ?gUsingThreads@@YA_NXZ ?get@Boolean@@UAEXAAH@Z ?get@Boolean@@UAEXAAVPacket@@@Z ?get@Boolean@@UAEXAA_N@Z ?get@Boolean@@UAEXPADH@Z ?get@Float@@UAEXAAN@Z ?get@Float@@UAEXAAVPacket@@@Z ?get@Float@@UAEXAA_J@Z ?get@Float@@UAEXPADH@Z ?get@Integer@@UAEXAAN@Z ?get@Integer@@UAEXAAVPacket@@@Z ?get@Integer@@UAEXAA_J@Z ?get@Integer@@UAEXPADH@Z ?get@PortRegister@@UAEIXZ ?get@Register@@UAEIXZ ?get@Register@@UAEXAA_J@Z ?get@String@@UAEXAAVPacket@@@Z ?get@String@@UAEXPADH@Z ?get@Value@@UAEXAAH@Z ?get@Value@@UAEXAAN@Z ?get@Value@@UAEXAAVPacket@@@Z ?get@Value@@UAEXAA_J@Z ?get@Value@@UAEXAA_K@Z ?get@Value@@UAEXAA_N@Z ?get@Value@@UAEXPADH@Z ?getBitChar@IOPIN@@UAEDXZ ?getBitChar@IO_bi_directional@@UAEDXZ ?getBitChar@IO_bi_directional_pu@@UAEDXZ ?getBitChar@IO_open_collector@@UAEDXZ ?getDrivenState@IOPIN@@UAE_NXZ ?getDriving@PortRegister@@UAEIXZ ?getDrivingState@IOPIN@@UAE_NXZ ?getForcedDrivenState@IOPIN@@UAEDXZ ?getFromAddress@ProgramMemoryAccess@@QAEPAVinstruction@@I@Z ?getFromIndex@ProgramMemoryAccess@@QAEPAVinstruction@@I@Z ?getPin@PortModule@@QAEPAVIOPIN@@I@Z ?getPinGeometry@Package@@QAEPAUPinGeometry@@I@Z ?getReplaced@AliasedInstruction@@UAEPAVinstruction@@XZ ?getState@IOPIN@@UAE_NXZ ?getState@RegisterReadTraceObject@@UAEXPAVTraceFrame@@@Z ?getState@RegisterWriteTraceObject@@UAEXPAVTraceFrame@@@Z ?getState@TraceObject@@UAEXPAVTraceFrame@@@Z ?getThevenin@stimulus@@UAEXAAN00@Z ?getVal@String@@QAEPBDXZ ?get_OSCperiod@Processor@@UAENXZ ?get_PC@ProgramMemoryAccess@@UAEIXZ ?get_Vth@IOPIN@@UAENXZ ?get_Vth@IO_bi_directional@@UAENXZ ?get_Vth@IO_bi_directional_pu@@UAENXZ ?get_Vth@IO_open_collector@@UAENXZ ?get_Zth@IO_bi_directional@@UAENXZ ?get_Zth@IO_bi_directional_pu@@UAENXZ ?get_Zth@IO_open_collector@@UAENXZ ?get_active_cpu@@YAPAVProcessor@@XZ ?get_base_instruction@ProgramMemoryAccess@@QAEPAVinstruction@@I@Z ?get_bit@Register@@UAE_NI@Z ?get_bit_voltage@Register@@UAENI@Z ?get_bp@@YAAAVBreakpoints@@XZ ?get_cpu@Breakpoint_Instruction@@UAEPAVProcessor@@XZ ?get_cpu@MemoryAccess@@UAEPAVProcessor@@XZ ?get_cycles@@YAAAVCycle_Counter@@XZ ?get_dir_delim@@YAPBDPBD@Z ?get_errMsg@AnError@@QAE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@XZ ?get_file_id@AliasedInstruction@@UAEHXZ ?get_file_id@ProgramMemoryAccess@@QAEHI@Z ?get_frequency@Processor@@UAENXZ ?get_hll_file_id@AliasedInstruction@@UAEHXZ ?get_hll_src_line@AliasedInstruction@@UAEHXZ ?get_index@BoolEventLogger@@QAEI_K@Z ?get_index@ThreeStateEventLogger@@QAEI_K@Z ?get_interface@@YAAAVgpsimInterface@@XZ ?get_lst_line@AliasedInstruction@@UAEHXZ ?get_nEvents@ThreeStateEventLogger@@QAEIII@Z ?get_nodeVoltage@Stimulus_Node@@QAENXZ ?get_opcode@AliasedInstruction@@UAEIXZ ?get_opcode@ProgramMemoryAccess@@QAEII@Z ?get_opcode_name@ProgramMemoryAccess@@QAEPADIPADI@Z ?get_pin@Module@@UAEPAVIOPIN@@I@Z ?get_pin@Package@@QAEPAVIOPIN@@I@Z ?get_pin_count@Module@@UAEHXZ ?get_pin_name@Module@@UAEAAV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@I@Z ?get_pin_state@Module@@UAEHI@Z ?get_program_memory_at_address@Processor@@UAEII@Z ?get_src_line@AliasedInstruction@@UAEHXZ ?get_src_line@ProgramMemoryAccess@@QAEHI@Z ?get_trace@@YAAAVTrace@@XZ ?get_update_rate@gpsimInterface@@QAE_KXZ ?get_value@AliasedInstruction@@UAEIXZ ?get_value@PortRegister@@UAEIXZ ?get_value@gpsimObject@@UAEIXZ ?gets@FileContext@@QAEPADPADI@Z ?gpsim_set_bulk_mode@@YAXH@Z ?grab@Token@gpsim@@QAEXXZ ?halt@Breakpoints@@QAEXXZ ?hasBreak@RegisterMemoryAccess@@QAE_NI@Z ?hasValid_opcode_at_address@ProgramMemoryAccess@@QAE_NI@Z ?hasValid_opcode_at_index@ProgramMemoryAccess@@QAE_NI@Z ?icd_connect@@YAHPBD@Z ?icd_detected@@YAHXZ ?icd_disconnect@@YAHXZ ?icd_has_debug_module@@YAHXZ ?icd_target@@YAPADXZ ?icd_vdd@@YAMXZ ?icd_version@@YAPADXZ ?icd_vpp@@YAMXZ ?init@ProgramMemoryAccess@@QAEXPAVProcessor@@@Z ?init_program_memory@Processor@@UAEXI@Z ?init_program_memory@Processor@@UAEXII@Z ?init_program_memory_at_index@Processor@@UAEXII@Z ?init_program_memory_at_index@Processor@@UAEXIPBEH@Z ?init_register_memory@Processor@@UAEXI@Z ?initialize@AliasedInstruction@@UAEX_N@Z ?insertRegister@RegisterMemoryAccess@@QAE_NIPAVRegister@@@Z ?instruction_size@AliasedInstruction@@UAEHXZ ?interrupt@Program_Counter@@UAEXI@Z ?invokeAction@TriggerObject@@UAEXXZ ?isBase@AliasedInstruction@@UAE_NXZ ?isModified@ProgramMemoryAccess@@QAE_NI@Z ?isValid@TraceType@@UAE_NPAVTrace@@I@Z ?isa@AliasedInstruction@@UAE?AW4INSTRUCTION_TYPES@instruction@@XZ ?list@Processor@@UAEXIIHH@Z ?list_id@FileContextList@@QAEXH@Z ?load_state@Processor@@UAEXPAU_iobuf@@@Z ?log@TraceRawLog@@QAEXXZ ?name@AliasedInstruction@@UAEPADPADH@Z ?name@gpsimObject@@UAEPADPADH@Z ?name@gpsimObject@@UBEAAV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@XZ ?newGUIname@IOPIN@@UAEXPBD@Z ?new_address@Program_Counter@@UAEXI@Z ?new_message@TriggerObject@@UAEXAAV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@Z ?new_message@TriggerObject@@UAEXPBD@Z ?new_name@Register@@UAEXAAV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@Z ?new_name@Register@@UAEXPBD@Z ?new_name@gpsimObject@@UAEXAAV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@Z ?new_name@gpsimObject@@UAEXPBD@Z ?new_name@stimulus@@UAEXAAV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@_N@Z ?new_name@stimulus@@UAEXPBD_N@Z ?new_program@gpsimInterface@@QAEXPAVProcessor@@@Z ?open@FileContext@@QAEXPBD@Z ?passToChild@Token@gpsim@@QAEXXZ ?passToParent@Token@gpsim@@QAEXXZ ?preset@Cycle_Counter@@QAEX_K@Z ?print@Breakpoint_Instruction@@UAEXXZ ?print@TriggerObject@@UAEXXZ ?printExpression@TriggerObject@@UAEHPADH@Z ?printTraced@Breakpoint_Instruction@@UAEHPAVTrace@@IPADH@Z ?printTraced@TriggerObject@@UAEHPAVTrace@@IPADH@Z ?print_frame@TraceObject@@UAEXPAVTraceFrame@@PAU_iobuf@@@Z ?profile_keeper@@3VProfileKeeper@@A ?put@PortRegister@@UAEXI@Z ?putDrive@PortRegister@@UAEXI@Z ?putState@IOPIN@@UAEX_N@Z ?putState@PinModule@@UAEXD@Z ?putToAddress@ProgramMemoryAccess@@UAEXIPAVinstruction@@@Z ?putToIndex@ProgramMemoryAccess@@UAEXIPAVinstruction@@@Z ?put_opcode@ProgramMemoryAccess@@QAEXII@Z ?put_value@AliasedInstruction@@UAEXI@Z ?put_value@PortRegister@@UAEXI@Z ?put_value@Register@@UAEXI@Z ?readihex16@IntelHexProgramFileType@@QAEHPAVProcessor@@PAU_iobuf@@@Z ?readihexN@IntelHexProgramFileType@@AAEHHPAPAVRegister@@HPAU_iobuf@@H@Z ?read_src_files@Processor@@QAEXXZ ?reassign_break@Cycle_Counter@@QAE_N_K0PAVTriggerObject@@@Z ?refreshPinOnUpdate@PinModule@@QAEX_N@Z ?register_size@Register@@UBEIXZ ?removeRegister@RegisterMemoryAccess@@QAE_NIPAVRegister@@@Z ?removeSink@PinMonitor@@QAEXPAVSignalSink@@@Z ?removeSymbol@Module@@QAEHPAVgpsimObject@@@Z ?remove_interface@gpsimInterface@@QAEXI@Z ?remove_xref@AliasedInstruction@@UAEXPAX@Z ?remove_xref@Value@@UAEXPAX@Z ?reset@Module@@UAEXW4RESET_TYPE@@@Z ?reset@Program_Counter@@QAEXXZ ?reset@gpsimInterface@@QAEXW4RESET_TYPE@@@Z ?reset@sfr_register@@UAEXW4RESET_TYPE@@@Z ?rewind@FileContext@@QAEXXZ ?rts@ByteLogger@gpsim@@QAEX_K@Z ?run_script@Module@@QAEXAAV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@Z ?run_to_address@Processor@@UAEXI@Z ?save_state@Processor@@UAEXPAU_iobuf@@@Z ?save_state@Processor@@UAEXXZ ?set@Boolean@@UAEXAAVPacket@@@Z ?set@Boolean@@UAEXPAVValue@@@Z ?set@Boolean@@UAEXPBDH@Z ?set@Boolean@@UAEX_N@Z ?set@Float@@UAEXAAVPacket@@@Z ?set@Float@@UAEXN@Z ?set@Float@@UAEXPAVValue@@@Z ?set@Float@@UAEXPBDH@Z ?set@Float@@UAEX_J@Z ?set@Integer@@UAEXAAVPacket@@@Z ?set@Integer@@UAEXH@Z ?set@Integer@@UAEXN@Z ?set@Integer@@UAEXPAVValue@@@Z ?set@Integer@@UAEXPBDH@Z ?set@Integer@@UAEX_J@Z ?set@Register@@UAEXPAVValue@@@Z ?set@String@@UAEXAAVPacket@@@Z ?set@String@@UAEXPAVValue@@@Z ?set@String@@UAEXPBDH@Z ?set@Value@@UAEXAAVPacket@@@Z ?set@Value@@UAEXH@Z ?set@Value@@UAEXN@Z ?set@Value@@UAEXPAV1@@Z ?set@Value@@UAEXPAVExpression@@@Z ?set@Value@@UAEXPBDH@Z ?set@Value@@UAEX_J@Z ?set@Value@@UAEX_N@Z ?setBreakOnReset@Processor@@UAEX_N@Z ?setControl@PinModule@@QAEXPAVSignalControl@@@Z ?setDefaultBitmask@Integer@@SAX_J@Z ?setDefaultControl@PinModule@@QAEXPAVSignalControl@@@Z ?setDefaultPullupControl@PinModule@@QAEXPAVSignalControl@@@Z ?setDefaultSource@PinModule@@QAEXPAVSignalControl@@@Z ?setDirection@PinModule@@UAEXXZ ?setDrivenState@IOPIN@@UAEX_N@Z ?setDrivenState@PinModule@@UAEXD@Z ?setDrivingState@IOPIN@@UAEXD@Z ?setDrivingState@IOPIN@@UAEX_N@Z ?setDrivingState@PinModule@@UAEXD@Z ?setEnableMask@PortRegister@@UAEXI@Z ?setGUImode@gpsimInterface@@QAEX_N@Z ?setMonitor@IOPIN@@UAEXPAVPinMonitor@@@Z ?setPinGeometry@Package@@QAEXIMMH_N@Z ?setSafeMode@Processor@@UAEX_N@Z ?setUnknownMode@Processor@@UAEX_N@Z ?setWarnMode@Processor@@UAEX_N@Z ?set_Expression@TriggerObject@@UAEXPAVExpression@@@Z ?set_Expression@TriggerObject@@UAEXPAVExpression@@@Z ?set_PC@ProgramMemoryAccess@@UAEXI@Z ?set_break@Breakpoint_Instruction@@UAE_NXZ ?set_break@Cycle_Counter@@QAE_N_KPAVTriggerObject@@I@Z ?set_break@Integer@@UAEHW4ObjectBreakTypes@gpsimObject@@W4ObjectActionTypes@3@PAVExpression@@@Z ?set_break@Register@@UAEHW4ObjectBreakTypes@gpsimObject@@W4ObjectActionTypes@3@PAVExpression@@@Z ?set_break@gpsimObject@@UAEHW4ObjectBreakTypes@1@W4ObjectActionTypes@1@PAVExpression@@@Z ?set_break_at_address@ProgramMemoryAccess@@UAEII@Z ?set_break_at_line@ProgramMemoryAccess@@UAEXII@Z ?set_break_delta@Cycle_Counter@@QAE_N_KPAVTriggerObject@@I@Z ?set_change_break@Breakpoints@@QAEHPAVProcessor@@I@Z ?set_cpu@Value@@UAEXPAVProcessor@@@Z ?set_cycle_break@Breakpoints@@QAEHPAVProcessor@@_KPAVTriggerObject@@@Z ?set_description@gpsimObject@@QAEXPBD@Z ?set_execution_break@Breakpoints@@QAEHPAVProcessor@@IPAVExpression@@@Z ?set_expression@Breakpoints@@QAE_NIPAVExpression@@@Z ?set_frequency@Processor@@QAEXN@Z ?set_hll_mode@ProgramMemoryAccess@@QAEXI@Z ?set_is_analog@IO_bi_directional_pu@@UAEX_N@Z ?set_message@Breakpoints@@QAEXIAAV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@Z ?set_module@Value@@UAEXPAVModule@@@Z ?set_nodeVoltage@IOPIN@@UAEXN@Z ?set_nodeVoltage@IO_bi_directional@@UAEXN@Z ?set_nodeVoltage@PinModule@@UAEXN@Z ?set_nodeVoltage@Stimulus_Node@@QAEXN@Z ?set_notify_at_address@ProgramMemoryAccess@@UAEIIPAVTriggerObject@@@Z ?set_notify_read@Breakpoints@@QAEHPAVProcessor@@I@Z ?set_notify_read_value@Breakpoints@@QAEHPAVProcessor@@III@Z ?set_notify_write@Breakpoints@@QAEHPAVProcessor@@I@Z ?set_notify_write_value@Breakpoints@@QAEHPAVProcessor@@III@Z ?set_out_of_range_pm@Processor@@UAEXII@Z ?set_profile_start_at_address@ProgramMemoryAccess@@UAEIIPAVTriggerObject@@@Z ?set_profile_stop_at_address@ProgramMemoryAccess@@UAEIIPAVTriggerObject@@@Z ?set_read_break@Breakpoints@@QAEHPAVProcessor@@I@Z ?set_read_trace@Register@@UAEXAAVRegisterValue@@@Z ?set_read_value_break@Breakpoints@@QAEHPAVProcessor@@III@Z ?set_read_value_break@Breakpoints@@QAEHPAVProcessor@@IIII@Z ?set_stk_overflow_break@Breakpoints@@QAEHPAVProcessor@@@Z ?set_stk_underflow_break@Breakpoints@@QAEHPAVProcessor@@@Z ?set_update_rate@gpsimInterface@@QAEX_K@Z ?set_wdt_break@Breakpoints@@QAEHPAVProcessor@@@Z ?set_write_break@Breakpoints@@QAEHPAVProcessor@@I@Z ?set_write_trace@Register@@UAEXAAVRegisterValue@@@Z ?set_write_value_break@Breakpoints@@QAEHPAVProcessor@@III@Z ?set_write_value_break@Breakpoints@@QAEHPAVProcessor@@IIII@Z ?setbit@Register@@UAEXI_N@Z ?show@BinaryOperator@@QAE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@XZ ?show@IOPIN@@UAEXXZ ?show@gpsimObject@@QAE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@XZ ?showInfo@Trace@@QAEXXZ ?showType@BinaryOperator@@QAE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@XZ ?showType@gpsimObject@@QAE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@XZ ?simulation_cleanup@@YAXXZ ?simulation_has_stopped@gpsimInterface@@QAEXXZ ?simulation_start_cycle@@3_KA ?start@ByteLogger@gpsim@@QAEX_K@Z ?start_simulation@gpsimInterface@@QAEXN@Z ?status@TraceLog@@QAEXXZ ?step_over@Processor@@UAEX_N@Z ?step_simulation@gpsimInterface@@QAEXH@Z ?stimuli_attach@@YAXPAVgpsimObject@@PAV?$list@PAVgpsimObject@@V?$allocator@PAVgpsimObject@@@std@@@std@@@Z ?stop@ByteLogger@gpsim@@QAEX_K@Z ?stop@ProgramMemoryAccess@@UAEXXZ ?terminate@PacketBuffer@@QAEXXZ ?test_bits@@YAXXZ ?toBitStr@Boolean@@UAEPADPADH@Z ?toBitStr@Integer@@UAEPADPADH@Z ?toBitStr@Register@@UAEPADPADH@Z ?toBitStr@RegisterValue@@QBEPADPADHIPBD111@Z ?toBitStr@gpsimObject@@UAEPADPADH@Z ?toString@AnError@@UAE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@XZ ?toString@Boolean@@SA?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@_N@Z ?toString@Boolean@@UAE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@XZ ?toString@Boolean@@UAEPADPADH@Z ?toString@Float@@UAE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@XZ ?toString@Float@@UAEPADPADH@Z ?toString@IIndexedCollection@@MAE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@HAAV?$vector@V?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@V?$allocator@V?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@2@@3@0@Z ?toString@IIndexedCollection@@UAE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@PAV?$list@PAVExpression@@V?$allocator@PAVExpression@@@std@@@3@@Z ?toString@IIndexedCollection@@UAE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@XZ ?toString@IIndexedCollection@@UAEPADPADH@Z ?toString@IndexedSymbol@@UAE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@XZ ?toString@Integer@@QAE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@PBD@Z ?toString@Integer@@UAE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@XZ ?toString@Integer@@UAEPADPADH@Z ?toString@Register@@UAEPADPADH@Z ?toString@RegisterValue@@QBEPADPADHH@Z ?toString@String@@UAE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@XZ ?toString@String@@UAEPADPADH@Z ?toString@gpsimObject@@UAE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@XZ ?toString@gpsimObject@@UAEPADPADH@Z ?toString@stimulus@@UAE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@XZ ?toggle@IOPIN@@UAEXXZ ?toggle_break_at_address@ProgramMemoryAccess@@UAEXI@Z ?toggle_break_at_line@ProgramMemoryAccess@@UAEXII@Z ?toupper@@YAAAV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@AAV12@@Z ?trace_dump1@Processor@@UAEHHPADH@Z ?typeCheck@AbstractRange@@SAPAV1@PAVValue@@V?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@Z ?typeCheck@Boolean@@SAPAV1@PAVValue@@V?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@Z ?typeCheck@Float@@SAPAV1@PAVValue@@V?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@Z ?typeCheck@Integer@@SAPAV1@PAVValue@@V?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@Z ?update@AliasedInstruction@@UAEXXZ ?update@Stimulus_Node@@QAEXXZ ?update@Value@@UAEXXZ ?updatePin@PortModule@@UAEXI@Z ?updatePins@PortModule@@UAEXI@Z ?updatePort@PortModule@@UAEXXZ ?updateUI@PinModule@@UAEXXZ ?updateUI@PortRegister@@UAEXXZ ?update_direction@IO_bi_directional@@UAEXI_N@Z ?update_line_number@AliasedInstruction@@UAEXHHHHH@Z ?update_line_number@instruction@@UAEXHHHHH@Z ?update_pullup@IO_bi_directional_pu@@UAEXD_N@Z ?update_state@TraceFrame@@UAEXXZ ?verbose@@3VGlobalVerbosityAccessor@@A ?waitForChild@Token@gpsim@@QAEXXZ ?writeihexN@IntelHexProgramFileType@@AAEXHPAPAVRegister@@HPAU_iobuf@@H@Z GetUserInterface free_error_message free_library get_library_export load_library gpsim-0.27.0/plat/win32/glist.cpp0000644000076400007640000000517710416272175013417 00000000000000/* Copyright (C) 2003-2004 Borut Razem This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Minimal implementation of glib: only slist functionality and g_win32_error_message is needed by gpsim with --disable-gui */ #include "glib.h" #include gpointer g_malloc0 (gulong n_bytes) { if (n_bytes) { return calloc (1, n_bytes); } return NULL; } void g_free (gpointer mem) { if (mem) free (mem); } #define _g_slist_alloc g_slist_alloc GSList* g_slist_alloc (void) { GSList *list; list = g_new0 (GSList, 1); return list; } void g_slist_free_1 (GSList *list) { g_free (list); } GSList* g_slist_append (GSList *list, gpointer data) { GSList *new_list; GSList *last; new_list = _g_slist_alloc (); new_list->data = data; if (list) { last = g_slist_last (list); /* g_assert (last != NULL); */ last->next = new_list; return list; } else return new_list; } GSList* g_slist_remove (GSList *list, gconstpointer data) { GSList *tmp, *prev = NULL; tmp = list; while (tmp) { if (tmp->data == data) { if (prev) prev->next = tmp->next; else list = tmp->next; g_slist_free_1 (tmp); break; } prev = tmp; tmp = prev->next; } return list; } GSList* g_slist_last (GSList *list) { if (list) { while (list->next) list = list->next; } return list; } gchar * g_win32_error_message (gint error) { gchar *msg; gchar *retval; int nbytes; FormatMessage (FORMAT_MESSAGE_ALLOCATE_BUFFER |FORMAT_MESSAGE_IGNORE_INSERTS |FORMAT_MESSAGE_FROM_SYSTEM, NULL, error, 0, (LPTSTR) &msg, 0, NULL); nbytes = strlen (msg); if (nbytes > 2 && msg[nbytes-1] == '\n' && msg[nbytes-2] == '\r') msg[nbytes-2] = '\0'; retval = strdup (msg); if (msg != NULL) LocalFree (msg); return retval; } gpsim-0.27.0/TODO0000644000076400007640000000377510446060441010353 00000000000000 TODO - In no particular order: o Provide option to disable the nop portion of two-word 18cxxx instructions in assembly dumps. o Parallel stimuli o High frequency stimuli (currently, the cpu frequency is the maximum stimulation frequency) o Support different clock types like variable frequency oscillators. o Gui support - Add an 'architecture' command for querying a pic's architecture - Provide a means for obtaining the current simulation state, saving the current simulation state, and finding the difference between two simulation states. - Memory management. gpsim is very cavalier with memory. In a few instances, I check for insufficient memory, however I need to be more thorough. Fortunately, gpsim very seldom deletes instantiated objects. So I suspect there are no leaks... o I2C Peripheral Support o I2C EEPROM Modules o Module call support - Other than attributes, there is no real good way to interface with modules. So the idea is to create infrastructure that defines how a module can expose an API that the simulation call. o dsPic support o High Level source (C and Jal) o Extended Stimuli - These are stimuli that are implemented as modules. Currently the PulseGen stimulus can replace most of what an asynchronous stimulus does. This needs to be finished. - Add a PWL - Add a File Stimulus GUI --- o Source Browser: - Provide a way of selecting which break to clear if multiple breaks are set at one address o Breakpoint Window - Add this to manage breakpoints. o Symbol Window - It's pretty much useless at the moment. o Program Memory - This is still using the GTK-1.x api. o Breadboard window -- Needs a major overhaul -- Create addition package types (like TQFP). Cairo allows text to be drawn in any direction. -- Allow pins to be queried. o Waveform viewer - add. -- The waveform viewer should allow the users to view I/O pin state and Attribute states. gpsim-0.27.0/src/0000775000076400007640000000000012210742352010517 500000000000000gpsim-0.27.0/src/bitlog.h0000644000076400007640000001202611667605372012106 00000000000000/* Copyright (C) 1998-2003 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #if !defined(__BITLOG_H__) #define __BITLOG_H__ class Cycle_Counter; // include the absolute minimum portion of GLIB to get the definitions // for guint64, etc. #include /********************************************************************** * boolean event logging * * The boolean event logger is a simple class for logging the time * of boolean (i.e. 0/1) events. * * The event buffer is an array of 64-bit wide elements. Each element * stores the time at which an event occurs. The state of the event * is encoded in the position of the array. In other words, "high" * events are at the odd indices of the array and "low" ones at the * even ones. * * No effort is made to compress the 64-bit time entries into smaller * values. Consequently, a large amount of space is wasted. * * Repeated events are not logged. E.g.. if two 1's are logged, the * second one is ignored. * * The total number of events is defined when the class is instantiated. * The only requirement is that the number of events be an even power * of 2. A check for this is made, and */ class BoolEventLogger { private: Cycle_Counter *gcycles; // Point to gpsim's cycle counter. unsigned int index; // Index into the buffer guint64 *buffer; // Where the time is stored unsigned int max_events; // Size of the event buffer public: BoolEventLogger(unsigned int _max_events = 4096); void event(bool state); /* get_index - return the current index This is used by the callers to record where in the event buffer a specific event is stored. (e.g. The start bit of a usart bit stream.) */ inline unsigned int get_index() { return index; } /// mod_index - get the index modulo buffer size (this /// exposes an implementation detail...) unsigned int mod_index(unsigned int unmodded_index) { return unmodded_index & max_events; } unsigned int get_index(guint64 event_time); void dump(int start_index, int end_index=-1); void dump_ASCII_art(guint64 time_step, guint64 start_time, int end_index=-1); unsigned int get_event(int index) { return index & 1; } bool get_state(guint64 event_time) { return (get_index(event_time) & 1) ? true : false; } int get_edges(guint64 start_time, guint64 end_time) { return ( get_index(end_time) - get_index(start_time) ) & max_events; } guint64 get_time(unsigned int index) { return buffer[mod_index(index)]; } }; /********************************************************************** * ThreeState event logging * * The ThreeState event logger is a simple class for logging the time * of 3-state events. (FixMe - the bitlog and bytelog classes should * be deprecated and merged into this class). * * The event buffer stores both the event state and the 64-bit time * at which it occurred. Event states are 'chars' so it is up to the * client of this class to interpret what the events mean. * * Repeated events are not logged. E.g.. if two 1's are logged, the * second one is ignored. * */ class ThreeStateEventLogger { private: Cycle_Counter *gcycles; // Point to gpsim's cycle counter. unsigned int index; // Index into the buffer guint64 *pTimeBuffer; // Where the time is stored char *pEventBuffer; // Where the events are stored unsigned int max_events; // Size of the event buffer bool bHaveEvents; // True if any events have been acquired public: ThreeStateEventLogger(unsigned int _max_events = 4096); /// Log an Event void event(char state); inline unsigned int get_index() { return index; } unsigned int get_index(guint64 event_time); unsigned int get_nEvents(guint64 start_time,guint64 stop_time); unsigned int get_nEvents(unsigned int start_index, unsigned int stop_index); char get_state(unsigned int index) { return pEventBuffer[index & max_events]; } char get_state(guint64 event_time) { return get_state(get_index(event_time)); } guint64 get_time(unsigned int index) { return pTimeBuffer[index & max_events]; } void dump(int start_index, int end_index=-1); void dump_ASCII_art(guint64 time_step, guint64 start_time, int end_index=-1); }; #endif //!defined(__BITLOG_H__) gpsim-0.27.0/src/breakpoints.h0000664000076400007640000005132512163444266013151 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __BREAKPOINTS_H__ #define __BREAKPOINTS_H__ #include #include #include #include #include "trigger.h" #include "pic-instructions.h" #include "registers.h" #include "exports.h" #include "gpsim_object.h" // defines ObjectBreakTypes using namespace std; extern Integer *verbosity; // in ../src/init.cc class InvalidRegister; class TriggerGroup : public TriggerAction { public: protected: list triggerList; virtual ~TriggerGroup(){} }; #define MAX_BREAKPOINTS 0x400 #define BREAKPOINT_MASK (MAX_BREAKPOINTS-1) class Breakpoint_Instruction : public AliasedInstruction , public TriggerObject { public: unsigned int address; virtual bool set_break(); virtual Processor* get_cpu(); virtual void print(); virtual int printTraced(Trace *pTrace, unsigned int tbi, char *pBuf, int szBuf); virtual void clear(); virtual char const * bpName() { return "Execution"; } Breakpoint_Instruction(Processor *new_cpu, unsigned int new_address, unsigned int bp); virtual ~Breakpoint_Instruction(); virtual enum INSTRUCTION_TYPES isa() {return BREAKPOINT_INSTRUCTION;}; virtual void execute(); virtual bool isBase() { return false;} virtual bool eval_Expression(); }; class Notify_Instruction : public Breakpoint_Instruction { TriggerObject *callback; public: Notify_Instruction(Processor *cpu, unsigned int address, unsigned int bp, TriggerObject *cb); virtual ~Notify_Instruction(); virtual enum INSTRUCTION_TYPES isa() {return NOTIFY_INSTRUCTION;}; virtual void execute(); virtual char const * bpName() { return "Notify Execution"; } }; class Profile_Start_Instruction : public Notify_Instruction { public: Profile_Start_Instruction(Processor *cpu, unsigned int address, unsigned int bp, TriggerObject *cb); virtual enum INSTRUCTION_TYPES isa() {return PROFILE_START_INSTRUCTION;}; virtual char const * bpName() { return "Profile Start"; } }; class Profile_Stop_Instruction : public Notify_Instruction { public: Profile_Stop_Instruction(Processor *cpu, unsigned int address, unsigned int bp, TriggerObject *cb); virtual enum INSTRUCTION_TYPES isa() {return PROFILE_STOP_INSTRUCTION;}; virtual char const * bpName() { return "Profile Stop"; } }; // // Assertions // // Assertions are like breakpoints except that they're conditional. // For example, a user may wish to verify that the proper register // bank is selected while a variable is accessed. // class RegisterAssertion : public Breakpoint_Instruction { public: unsigned int regAddress; unsigned int regMask; unsigned int regValue; bool bPostAssertion; // True if assertion is checked after instruction simulates. typedef bool (*PFNISASSERTIONCONDITION)(unsigned int uRegValue, unsigned int uRegMask, unsigned int uRegTestValue); PFNISASSERTIONCONDITION m_pfnIsAssertionBreak; enum { eRAEquals, eRANotEquals, eRAGreaterThen, eRALessThen, eRAGreaterThenEquals, eRALessThenEquals, }; static bool IsAssertionEqualsBreakCondition(unsigned int uRegValue, unsigned int uRegMask, unsigned int uRegTestValue); static bool IsAssertionNotEqualsBreakCondition(unsigned int uRegValue, unsigned int uRegMask, unsigned int uRegTestValue); static bool IsAssertionGreaterThenBreakCondition(unsigned int uRegValue, unsigned int uRegMask, unsigned int uRegTestValue); static bool IsAssertionLessThenBreakCondition(unsigned int uRegValue, unsigned int uRegMask, unsigned int uRegTestValue); static bool IsAssertionGreaterThenEqualsBreakCondition(unsigned int uRegValue, unsigned int uRegMask, unsigned int uRegTestValue); static bool IsAssertionLessThenEqualsBreakCondition(unsigned int uRegValue, unsigned int uRegMask, unsigned int uRegTestValue); RegisterAssertion(Processor *new_cpu, unsigned int instAddress, unsigned int bp, unsigned int _regAddress, unsigned int _regMask, unsigned int _regValue, bool bPostAssertion=false ); RegisterAssertion(Processor *new_cpu, unsigned int instAddress, unsigned int bp, unsigned int _regAddress, unsigned int _regMask, unsigned int _operator, unsigned int _regValue, bool bPostAssertion=false ); virtual ~RegisterAssertion(); virtual void execute(); virtual void print(); virtual int printTraced(Trace *pTrace, unsigned int tbi, char *pBuf, int szBuf); virtual char const * bpName() { return "Register Assertion"; } }; class Breakpoints; #if defined(IN_MODULE) && defined(_WIN32) // we are in a module: don't access the Breakpoints object directly! LIBGPSIM_EXPORT Breakpoints & get_bp(); #else // we are in gpsim: use of get_bp() is recommended, // even if the bp object can be accessed directly. extern Breakpoints bp; inline Breakpoints &get_bp() { return bp; } #endif class Breakpoints { public: enum BREAKPOINT_TYPES { BREAK_DUMP_ALL = 0, BREAK_CLEAR = 0, BREAK_ON_EXECUTION = 1<<24, BREAK_ON_REG_READ = 2<<24, BREAK_ON_REG_WRITE = 3<<24, BREAK_ON_REG_READ_VALUE = 4<<24, BREAK_ON_REG_WRITE_VALUE = 5<<24, BREAK_ON_INVALID_FR = 6<<24, BREAK_ON_CYCLE = 7<<24, BREAK_ON_WDT_TIMEOUT = 8<<24, BREAK_ON_STK_OVERFLOW = 9<<24, BREAK_ON_STK_UNDERFLOW = 10<<24, NOTIFY_ON_EXECUTION = 11<<24, PROFILE_START_NOTIFY_ON_EXECUTION = 12<<24, PROFILE_STOP_NOTIFY_ON_EXECUTION = 13<<24, NOTIFY_ON_REG_READ = 14<<24, NOTIFY_ON_REG_WRITE = 15<<24, NOTIFY_ON_REG_READ_VALUE = 16<<24, NOTIFY_ON_REG_WRITE_VALUE = 17<<24, BREAK_ON_ASSERTION = 18<<24, BREAK_MASK = 0xff<<24 }; #define GLOBAL_CLEAR 0 #define GLOBAL_STOP_RUNNING (1<<0) #define GLOBAL_INTERRUPT (1<<1) #define GLOBAL_SLEEP (1<<2) #define GLOBAL_PM_WRITE (1<<3) #define GLOBAL_SOCKET (1<<4) #define GLOBAL_LOG (1<<5) struct BreakStatus { BREAKPOINT_TYPES type; Processor *cpu; unsigned int arg1; unsigned int arg2; TriggerObject *bpo; } break_status[MAX_BREAKPOINTS]; int m_iMaxAllocated; class iterator { public: iterator(int index) : iIndex(index) { } int iIndex; iterator & operator++(int) { iIndex++; return *this; } BreakStatus * operator*() { return &get_bp().break_status[iIndex]; } bool operator!=(iterator &it) { return iIndex != it.iIndex; } }; iterator begin() { return iterator(0); } iterator end() { return iterator(m_iMaxAllocated); } BreakStatus *get(int index) { return (index>=0 && index #include #include #include #include #include #include #include "expr.h" #include "operator.h" #include "errors.h" #include "symbol.h" #include "ValueCollections.h" #include "processor.h" using namespace std; //------------------------------------------------------------------------ Expression::Expression(void) { } Expression:: ~Expression(void) { } /***************************************************************** * The LiteralArray class. */ LiteralArray::LiteralArray(ExprList_t *pExprList) { m_pExprList = pExprList; } LiteralArray::~LiteralArray() { } Value *LiteralArray::evaluate() { return new Boolean(true); } string LiteralArray::toString() { return string("FixMe"); } /***************************************************************** * The LiteralBoolean class. */ LiteralBoolean::LiteralBoolean(Boolean* value_) { //if (value_==0) { // throw new Internal ("LiteralBoolean::LiteralBoolean(): NULL value ptr"); //} assert(value_ != 0); value = value_; } LiteralBoolean::~LiteralBoolean() { } Value* LiteralBoolean::evaluate() { bool b; value->get(b); return new Boolean(b); } string LiteralBoolean::toString() { return value->toString(); } //------------------------------------------------------------------------ LiteralInteger::LiteralInteger(Integer* newValue) : Expression() { assert(newValue != 0); value = newValue; } LiteralInteger::~LiteralInteger() { delete value; } Value* LiteralInteger::evaluate() { gint64 i; value->get(i); return new Integer(i); } string LiteralInteger::toString() { return value->toString(); } int LiteralInteger::set_break(ObjectBreakTypes bt, ObjectActionTypes at, Expression *expr) { return value ? value->set_break(bt,at,expr) : -1; } /***************************************************************** * The LiteralFloat class. */ LiteralFloat::LiteralFloat(Float* value_) { //if (value_==0) { // throw new Internal ("LiteralFloat::LiteralFloat(): NULL value ptr"); //} assert(value_ != 0); value = value_; } LiteralFloat::~LiteralFloat() { delete value; } Value* LiteralFloat::evaluate() { double d; value->get(d); return new Float(d); } string LiteralFloat::toString() { return value->toString(); } /***************************************************************** * The LiteralString class. */ LiteralString::LiteralString(String* value_) { //if (value_==0) { // throw new Internal ("LiteralString::LiteralString(): NULL value ptr"); //} value = value_; } LiteralString::~LiteralString() { delete value; } Value* LiteralString::evaluate() { return new String(value->getVal()); } string LiteralString::toString() { return value->toString(); } /***************************************************************** * The LiteralSymbol class * * The literal symbol is a thin 'literal' wrapper for the symbol class. * The command line parser uses LiteralSymbol whenever an expression * encounters a symbol. */ LiteralSymbol::LiteralSymbol(gpsimObject *_sym) { sym = dynamic_cast(_sym); assert(sym != 0); } LiteralSymbol::~LiteralSymbol() { } Value* LiteralSymbol::evaluate() { return sym->evaluate(); } Value *LiteralSymbol::GetSymbol() { return sym; } string LiteralSymbol::toString() { if(sym) return sym->name(); return string(""); } int LiteralSymbol::set_break(ObjectBreakTypes bt, ObjectActionTypes at, Expression *expr) { return sym ? sym->set_break(bt,at,expr) : -1; } int LiteralSymbol::clear_break() { return sym ? sym->clear_break() : -1; } /***************************************************************** * The LiteralSymbol class */ IndexedSymbol::IndexedSymbol(gpsimObject *pSymbol, ExprList_t*pExprList) : m_pExprList(pExprList) { m_pSymbol = dynamic_cast(pSymbol); assert(m_pSymbol != 0); assert(pExprList != 0); } IndexedSymbol::~IndexedSymbol() { } Value* IndexedSymbol::evaluate() { // Indexed symbols with more than one index expression // cannot be evaluated if(m_pExprList->size() > 1) { // Could return an AbstractRange throw Error("Indexed variable evaluates to more than one value"); } IIndexedCollection *pIndexedCollection = dynamic_cast(m_pSymbol); if (!pIndexedCollection) throw Error("Cannot index this variable"); else { Value *pV=m_pExprList->front()->evaluate(); unsigned int ui = *pV; return pIndexedCollection->GetAt(ui).copy(); } } string IndexedSymbol::toString() { IIndexedCollection *pIndexedCollection = dynamic_cast(m_pSymbol); if(pIndexedCollection == NULL) { return string("The symbol ") + m_pSymbol->name() + " is not an indexed variable"; } else { ostringstream sOut; sOut << pIndexedCollection->toString(m_pExprList) << ends; return sOut.str(); } return string("IndexedSymbol not initialized"); } /***************************************************************** * The RegisterExpression class * * The literal symbol is a thin 'literal' wrapper for the symbol class. * The command line parser uses RegisterExpression whenever an expression * encounters a symbol. */ RegisterExpression::RegisterExpression(unsigned int uAddress) : m_uAddress(uAddress) { } RegisterExpression::~RegisterExpression() { } Value* RegisterExpression::evaluate() { Register *pReg = get_active_cpu()->rma.get_register(m_uAddress); if(pReg) { return new Integer(pReg->get_value()); } else { static char sFormat[] = "reg(%d) is not a valid register"; char sBuffer[sizeof(sFormat) + 10]; sprintf(sBuffer, sFormat, m_uAddress); throw Error(string(sBuffer)); } } string RegisterExpression::toString() { char sBuffer[10]; sprintf(sBuffer, "%d", m_uAddress); return string(sBuffer); } gpsim-0.27.0/src/cmd_manager.cc0000644000076400007640000000267711401170177013216 00000000000000#include "cmd_manager.h" #include #include // // CCommandManager ////////////////////////////////////////////////// CCommandManager::CCommandManager() { } int CCommandManager::Execute(string &sName, const char *cmdline) { ICommandHandler *handler = find(sName.c_str()); if (handler != NULL) { return handler->Execute(cmdline, &GetConsole()); } return CMD_ERR_PROCESSORNOTDEFINED; } int CCommandManager::Register(ICommandHandler * ch) { List::iterator it = lower_bound(m_HandlerList.begin( ), m_HandlerList.end( ), ch, lessThan()); if (it != m_HandlerList.end() && strcmp((*it)->GetName(), ch->GetName()) == 0) { return CMD_ERR_PROCESSORDEFINED; } m_HandlerList.insert(it, ch); return CMD_ERR_OK; } ICommandHandler * CCommandManager::find(const char *name) { CommandHandlerKey key(name); List::iterator it = lower_bound(m_HandlerList.begin( ), m_HandlerList.end( ), (ICommandHandler*)&key, lessThan()); if (it != m_HandlerList.end() && strcmp((*it)->GetName(), name) == 0) { return *it; } return NULL; } CCommandManager CCommandManager::m_CommandManger; CCommandManager &CCommandManager::GetManager() { return m_CommandManger; } void CCommandManager::ListToConsole() { ISimConsole &console = GetConsole(); List::iterator it; List::iterator itEnd = m_HandlerList.end(); for(it = m_HandlerList.begin( ); it != itEnd; it++) { console.Printf("%s\n", (*it)->GetName()); } } gpsim-0.27.0/src/ValueCollections.h0000644000076400007640000002600511401131526014060 00000000000000/* Copyright (C) 1998-2004 Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ /* This file originated by J.R. Heisey */ #ifndef __VALUECOLLECTIONS_H__ #define __VALUECOLLECTIONS_H__ #include #include #include #include #include #include #include "value.h" #include "expr.h" #include "operator.h" #include "errors.h" /* The IIndexedCollection class is an abstract class used to expose an array of values of a given name to the command prompt interface. These arrays are not dynamically resizable. The scripting language does not provide a way of allocating an array at gpsim runtime. These arrays are only definable at gpsim compile time. Values based on the class Value type are implemented via the template class IndexedCollection. The first class Value based array is implemented by CIndexedIntegerCollection. The CIndexedIntegerCollection class provides its own storage for the Integer values and is best used for Integer array based attributes. To derive your own arrays you will primarily need to derive from IIndexedCollection and define implementations for all the pure virutal functions. I (JR) have provided an example of an array implementation as an example. The class RegisterCollection is declared in register.h and is an example of how to expose data values that are not based on the Value class. The RegisterCollection exposes a gpsim command prompt array variable called ramData that exposes the data value in simulated RAM memory. When you type 'ramData' from the command prompt, all memory contents will be displayed. To display one data value type 'ramData[expr]' were expr may be an integer value or and expression that evaluates to an integer value. (i.e. To see the contents of the RAM where X contains the value of the RAM address type 'ramData[X] at the command prompt.) You may also type 'ramData[expr_list]' where expr_list are one or more expressions delimited by commas. all of the ConsolidateValues() */ class IIndexedCollection : public Value { public: IIndexedCollection(const char *pName, const char *pDesc, int iAddressRadix = 10); IIndexedCollection(int iAddressRadix = 10); virtual unsigned int GetSize() = 0; virtual Value &GetAt(unsigned int uIndex, Value *pValue=0) = 0; virtual void SetAt(unsigned int uIndex, Value *pValue) = 0; virtual void Set(Value *pValue); virtual void SetAt(ExprList_t* pIndexers, Expression *pExpr); virtual unsigned int GetLowerBound() = 0; virtual unsigned int GetUpperBound() = 0; virtual bool bIsIndexInRange(unsigned int uIndex) { return uIndex >= GetLowerBound() && uIndex <= GetUpperBound(); } void SetAddressRadix(int iRadix); virtual string toString(ExprList_t* pIndexerExprs); virtual char * toString(char *pBuffer, int len); virtual string toString(); inline Value & operator[](unsigned int uIndex) { return GetAt(uIndex); } protected: virtual void ConsolidateValues(int &iColumnWidth, vector &aList, vector &aValue) = 0; template void ConsolidateValues(int &iColumnWidth, vector &aList, vector &aValue, _ValueType *_V = 0) { unsigned int uFirstIndex = GetLowerBound(); unsigned int uIndex; unsigned int uUpper = GetUpperBound() + 1; _ValueType LastValue((_ValueType&)GetAt(uFirstIndex)); for(uIndex = uFirstIndex + 1; uIndex < uUpper; uIndex++) { _ValueType &curValue = (_ValueType&)GetAt(uIndex); if(LastValue != curValue) { PushValue(uFirstIndex, uIndex - 1, &LastValue, aList, aValue); iColumnWidth = max(iColumnWidth, (int)aList.back().size()); uFirstIndex = uIndex; LastValue = curValue; } } uIndex--; // Record the last set of elements if(uFirstIndex <= uIndex) { PushValue(uFirstIndex, uIndex, &LastValue, aList, aValue); iColumnWidth = max(iColumnWidth, (int)aList.back().size()); } } void PushValue(int iFirstIndex, int iCurrentIndex, Value *pValue, vector &asIndexes, vector &asValue); virtual string toString(int iColumnWidth, vector &asIndexes, vector &asValue); // virtual string toString(ExprList_t* pIndexers, Expression *pExpr); virtual string ElementIndexedName(unsigned int iIndex); Integer * FindInteger(const char *s); protected: char m_szPrefix[3]; int m_iAddressRadix; }; template class IndexedCollection : public IIndexedCollection { protected: typedef vector<_CT*> VectorType; typedef _CT* _ElementType; public: explicit IndexedCollection( const char * pName = NULL, const char *pDesc = 0) { m_uLower = 0; if(pName == NULL) pName = "unnamed"; new_name(pName); set_description(pDesc); } explicit IndexedCollection(unsigned int uSize, _ST stDefValue, const char * pName = NULL, const char *pDesc = 0) { m_uLower = 0; if(pName == NULL) pName = "unnamed"; Value::new_name(pName); set_description(pDesc); m_Array.reserve(uSize); string sName; char szIndex[12]; for(unsigned int uIndex = 0; uIndex < uSize; uIndex++) { sName = pName; sprintf(szIndex, "[%d]", uIndex + m_uLower); sName.append(szIndex); // Hmm... Do we really want to create new object for every array entry? m_Array.push_back(new _CT(sName.c_str(), stDefValue, pDesc)); } } virtual unsigned int GetSize() { return (unsigned int)m_Array.size(); } // void SetSize(unsigned int) { // } virtual Value &GetAt(unsigned int uIndex, Value * /*placeholder*/) { return GetAt(uIndex); } _CT &GetAt(unsigned int uIndex) { if(uIndex <= GetUpperBound() && uIndex >= m_uLower) { return static_cast<_CT&>(*(m_Array.at(uIndex - m_uLower))); } else { throw Error(string("Error: index out of range")); } } virtual void SetAt(unsigned int uIndex, Value *pValue) { _CT * pCTValue = dynamic_cast<_CT*>(pValue); if(pCTValue != NULL) { SetAt(uIndex, pCTValue); } else { } } void SetAt(unsigned int uIndex, _CT *pValue) { if((uIndex + 1 - m_uLower) < m_Array.size() && uIndex >= m_uLower) { _ST stValue; pValue->get(stValue); _CT * pElement = static_cast<_CT*>(m_Array.at(uIndex - m_uLower)); if (pElement) pElement->set(stValue); } else { char szIndex[10]; sprintf(szIndex, "%d", uIndex); string sMsg("invalid array index of "); sMsg.append(szIndex); throw Error(sMsg); } } inline _CT & operator[](unsigned int uIndex) { return GetAt(uIndex); } _CT & operator[](Expression *pIndexExpr) { Value *pIndex = pIndexExpr->evaluate(); String *pStr; if((pStr = dynamic_cast(pIndex)) != NULL) { // pIndex = get_symbol_table().findInteger(pStr->getVal()); pIndex = FindInteger(pStr->getVal()); } if(dynamic_cast(pIndex) != NULL) { unsigned int uIndex = (unsigned int)*pIndex; return GetAt(uIndex); } // else if(dynamic_cast(pIndex) != NULL) { // Future: Implement a indexed collection that accepts // strings where the string is used for a hashed based // collection. // } else { string sMsg; sMsg = "Indexer expression does not evaluate to an Integer for " + name(); throw sMsg.c_str(); } } virtual void ConsolidateValues(int &iColumnWidth, vector &aList, vector &aValue) { typename VectorType::iterator it; typename VectorType::iterator itLastEqualed; typename VectorType::iterator itEnd = m_Array.end(); unsigned int iCurrentIndex = m_uLower, iFirstIndex = m_uLower; itLastEqualed = itEnd; // The purpose of the two loops it to collapse consecutive // elements of equal value onto one display line. // This loop examines every element's value and records // the value in aValue. aList is used to record an // appropriate label for one or more elements. for(it = itLastEqualed = m_Array.begin(); it != itEnd; ++it) { ostringstream sIndex; if(*(_CT*)(*itLastEqualed) != *(_CT*)(*it)) { PushValue(iFirstIndex, iCurrentIndex - 1, *itLastEqualed, aList, aValue); iFirstIndex = iCurrentIndex; iColumnWidth = max(iColumnWidth, (int)aList.back().size()); itLastEqualed = it; } iCurrentIndex++; } iCurrentIndex--; // Record the last set of elements if(iFirstIndex <= iCurrentIndex) { PushValue(iFirstIndex, iCurrentIndex, *itLastEqualed, aList, aValue); iColumnWidth = max(iColumnWidth, (int)aList.back().size()); } } unsigned int GetLowerBound() { return m_uLower; } unsigned int GetUpperBound() { return (unsigned int)m_Array.size(); } /* --- This isn't used and I (Scott) don't understand the intent... void SetLowerBound(unsigned int uIndex) { m_uLower = uIndex; // Now iterate through the elements and change // and pre-formatted element names. typename VectorType::iterator it; typename VectorType::iterator itEnd = m_Array.end(); unsigned int iNameBufferLen = 256; char *pNameBuffer = (char*)malloc(iNameBufferLen); unsigned int uLoopIndex = m_uLower; for(it = m_Array.begin(); it != itEnd; it++) { if(iNameBufferLen < (*it)->name().size() + 2) { pNameBuffer = (char*)realloc(pNameBuffer, iNameBufferLen += 100); } sprintf(pNameBuffer, "%s[%d]", name().c_str(), uLoopIndex); (*it)->new_name(pNameBuffer); uLoopIndex++; } free(pNameBuffer); } */ protected: void push_back(_CT *p) { m_Array.push_back(p); } unsigned int m_uLower; private: VectorType m_Array; }; class CIndexedIntegerCollection : public IndexedCollection { public: CIndexedIntegerCollection(unsigned int uSize, gint64 stDefValue, const char * pName = NULL, const char *pDesc = 0) : IndexedCollection(uSize, stDefValue, pName, pDesc ) { } }; #endif // __VALUECOLLECTIONS_H__ gpsim-0.27.0/src/stimuli.cc0000664000076400007640000012101512175377101012442 00000000000000/* Copyright (C) 1998 T. Scott Dattalo Copyright (C) 2006 Roy R Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include #include #include #include #include #include #include #include "../config.h" #include "pic-processor.h" #include "stimuli.h" #include "symbol.h" #include "interface.h" #include "errors.h" #include "cmd_gpsim.h" //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("%s:%d-%s() ",__FILE__,__LINE__,__FUNCTION__); printf arg; } #else #define Dprintf(arg) {} #endif static char num_nodes = 'a'; static char num_stimuli = 'a'; void gpsim_set_break_delta(guint64 delta, TriggerObject *f=0); extern Processor *active_cpu; /* * stimulus.cc * * This file contains some rudimentary infrastructure to support simulating * the environment outside of the pic. Simple net lists interconnecting pic * I/O pins and various signal generators may be created. * * Details: * There are two basic concepts behind the stimulus code: nodes and stimuli. * The nodes are like wires and the stimuli are like sources and loads. The * nodes define the interconnectivity between the stimuli. In most cases there * will be only two stimuli connected by one node. For example, you may wish * to simulate the effects of a clock input connected to porta.0 . In this case, * the stimuli would be the external clock and the pic I/O pin. */ //------------------------------------------------------------------ void Stimulus_Node::new_name(const char *cPname, bool bClearableSymbol) { cout << " Warning ignoring stimulus node name change from " << name() << " to " << cPname <getStimulus(); if(t) { cout << t->name(); //if(t->snode) // cout << " attached to " << t->snode->name(); t->show(); cout << '\n'; } } */ } //======================================================================== Stimulus_Node::Stimulus_Node(const char *n) : TriggerObject(0) { warned = 0; voltage = 0; Cth = 0.0; Zth = 0.0; current_time_constant = 0.0; delta_voltage = 0.0; minThreshold = 0.1; // volts cap_start_cycle = 0; future_cycle = 0; initial_voltage = 0.0; finalVoltage = 0.0; min_time_constant = 1000; // in cycles bSettling = false; stimuli = 0; nStimuli = 0; settlingTimeStep = 0; if(n) gpsimObject::new_name(n); else { char name_str[100]; snprintf(name_str,sizeof(name_str),"node%d",num_nodes); num_nodes++; // %%% FIX ME %%% gpsimObject::new_name(name_str); } globalSymbolTable().addSymbol(this); gi.node_configuration_changed(this); } Stimulus_Node::~Stimulus_Node() { //cout << "~Stimulus_Node\n"; stimulus *sptr; sptr = stimuli; while(sptr) { sptr->detach(this); sptr = sptr->next; } globalSymbolTable().removeSymbol(this); } Stimulus_Node * Stimulus_Node::construct(const char * psName) { gpsimObject *psn = globalSymbolTable().find(psName); //cout << "constructing stimulus node " << psName << endl; if(psn) { cout << "Warning ignoring node creation. A symbol with the name `" << psName << "' is already in the sybmol table.\n"; return 0; } return new Stimulus_Node(psName); } // // Add the stimulus 's' to the stimulus list for this node // void Stimulus_Node::attach_stimulus(stimulus *s) { if (!s) return; stimulus *sptr; warned = 0; if(stimuli) { sptr = stimuli; bool searching=1; int nTotalStimuliConnected = 1; while(searching) { if(s == sptr) return; // The stimulus is already attached to this node. nTotalStimuliConnected++; if(sptr->next == 0) { sptr->next = s; // s->next = 0; This is done below searching=0; } sptr = sptr->next; } nStimuli = nTotalStimuliConnected; } else { stimuli = s; // This is the first stimulus attached to this node. nStimuli = 1; } // If we reach this point, then it means that the stimulus that we're // trying to attach has just been placed at the end of the the stimulus // list for this node. So we need to 0 terminate the singly-linked list. s->next = 0; // Now tell the stimulus to attach itself to the node too // (If it hasn't already.) s->attach(this); gi.node_configuration_changed(this); } // // Search for the stimulus 's' in the stimulus list for this node. // If it is found, then remove it from the list. // void Stimulus_Node::detach_stimulus(stimulus *s) { stimulus *sptr; if(!s) // You can't remove a non-existant stimulus return; if(stimuli) { if(s == stimuli) { // This was the first stimulus in the list. stimuli = s->next; s->detach(this); nStimuli--; } else { sptr = stimuli; do { if(s == sptr->next) { sptr->next = s->next; s->detach(this); nStimuli--; //gi.node_configuration_changed(this); return; } sptr = sptr->next; } while(sptr); } } } //------------------------------------------------------------------------ // // Stimulus_Node::update(guint64 current_time) // // update() is called whenever a stimulus attached to this node changes // states. void Stimulus_Node::update(guint64 current_time) { // So far, 'update' only applies to the current time. update(); } //------------------------------------------------------------------------ // refresh() - compute the Thevenin voltage and Thevenin impedance // void Stimulus_Node::refresh() { if(stimuli) { stimulus *sptr = stimuli; initial_voltage = get_nodeVoltage(); switch (nStimuli) { case 0: // hmm, strange nStimuli is 0, but the stimuli pointer is non null. break; case 1: // Only one stimulus is attached. finalVoltage = sptr->get_Vth(); // RP - was just voltage Zth = sptr->get_Zth(); break; case 2: // 2 stimuli are attached to the node. This is the typical case // and we'll optimize for it. { stimulus *sptr2 = sptr ? sptr->next : 0; if(!sptr2) break; // error, nStimuli is two, but there aren't two stimuli double V1,Z1,C1; double V2,Z2,C2; sptr->getThevenin(V1,Z1,C1); sptr2->getThevenin(V2,Z2,C2); finalVoltage = (V1*Z2 + V2*Z1) / (Z1+Z2); Zth = Z1*Z2/(Z1+Z2); Cth = C1+C2; } break; default: { /* There are 3 or more stimuli connected to this node. Recall that these are all in parallel. The Thevenin voltage and impedance for this is: Thevenin impedance: Zt = 1 / sum(1/Zi) Thevenin voltage: Vt = sum( Vi / ( ((Zi - Zt)/Zt) + 1) ) = sum( Vi * Zt /Zi) = Zt * sum(Vi/Zi) */ double conductance=0.0; // Thevenin conductance. Cth=0; finalVoltage=0.0; //cout << "multi-node summing:\n"; while(sptr) { double V1,Z1,C1; sptr->getThevenin(V1,Z1,C1); /* cout << " N: " <name() << " V=" << V1 << " Z=" << Z1 << " C=" << C1 << endl; */ double Cs = 1 / Z1; finalVoltage += V1 * Cs; conductance += Cs; Cth += C1; sptr = sptr->next; } Zth = 1.0/conductance; finalVoltage *= Zth; } } current_time_constant = Cth * Zth; if(((guint64)(current_time_constant*get_cycles().instruction_cps()) < min_time_constant) || (fabs(finalVoltage - voltage) < minThreshold)) { if (verbose) cout << "Stimulus_Node::refresh " << name() << " use DC " << finalVoltage << " as current_time_constant=" << current_time_constant << endl; if (future_cycle) // callback is active { get_cycles().clear_break(this); } voltage = finalVoltage; future_cycle = 0; } else { settlingTimeStep = (guint64) (0.11 * get_cycles().instruction_cps() * current_time_constant); voltage = initial_voltage; if (verbose) cout << "Stimulus_Node::refresh " << name() << " settlingTimeStep=" << settlingTimeStep << " voltage=" << voltage << " Finalvoltage=" << finalVoltage << endl; /* If future_cycle is not 0 we are in the middle of an RC calculation, but an input condition has changed. */ if (future_cycle) { callback(); } else { cap_start_cycle = get_cycles().get(); future_cycle = cap_start_cycle + settlingTimeStep; get_cycles().set_break(future_cycle,this); } } } } //------------------------------------------------------------------------ // updateStimuli // // drive all the stimuli connected to this node. void Stimulus_Node::updateStimuli() { stimulus *sptr = stimuli; while(sptr) { sptr->set_nodeVoltage(voltage); sptr = sptr->next; } } void Stimulus_Node::update() { if(stimuli) { refresh(); updateStimuli(); } } void Stimulus_Node::set_nodeVoltage(double v) { voltage = v; updateStimuli(); } //------------------------------------------------------------------------ void Stimulus_Node::callback() { if (verbose) callback_print(); initial_voltage = voltage; double Time_Step; double expz; // // increase time step as capacitor charges more slowly as final // voltage is approached. // // // The following is an exact calculation, assuming no circuit // changes, regardless of time step. // Time_Step = (get_cycles().get() - cap_start_cycle)/ (get_cycles().instruction_cps()*current_time_constant); expz = exp(-Time_Step); voltage = finalVoltage* (1.-expz) + voltage * expz; if (verbose) cout << "\tVoltage was " << initial_voltage << "V now " << voltage << "V\n"; if (fabs(finalVoltage - voltage) < minThreshold) { voltage = finalVoltage; future_cycle = 0; if (verbose) cout << "\t" << name() << " Final voltage " << finalVoltage << " reached at " << get_cycles().get() << " cycles\n"; } else if(get_cycles().get() >= future_cycle) // got here via break { settlingTimeStep = (guint64) (1.5 * settlingTimeStep); cap_start_cycle = get_cycles().get(); future_cycle = cap_start_cycle + settlingTimeStep; get_cycles().set_break(future_cycle, this); if (verbose) cout << "\tBreak reached at " << cap_start_cycle << " cycles, next break set for " << future_cycle << " delta=" << settlingTimeStep << endl; } else // updating value before break don't increase step size { cap_start_cycle = get_cycles().get(); get_cycles().reassign_break(future_cycle, cap_start_cycle + settlingTimeStep, this); future_cycle = get_cycles().get() + settlingTimeStep; if (verbose) cout << "\tcallback called at " << cap_start_cycle << " cycles, next break set for " << future_cycle << " delta=" << settlingTimeStep << endl; } updateStimuli(); } //------------------------------------------------------------------------ void Stimulus_Node::callback_print() { cout << "Node: " << name() ; TriggerObject::callback_print(); } //------------------------------------------------------------------------ void Stimulus_Node::time_constant(double new_tc) { min_time_constant = (unsigned int)(new_tc*get_cycles().instruction_cps()); } //------------------------------------------------------------------------ stimulus::stimulus(const char *cPname,double _Vth, double _Zth) : Value(cPname, "", 0),snode(0), next(0), bDrivingState(false), bDriving(false), Vth(_Vth), Zth(_Zth), Cth(0.0), // Farads nodeVoltage(0.0) // volts { /* if(cPname && *cPname) new_name(cPname,false); */ globalSymbolTable().addSymbol(this); } void stimulus::new_name(const char *cPname, bool bClearableSymbol) { globalSymbolTable().removeSymbol(this); gpsimObject::new_name(cPname); globalSymbolTable().addSymbol(this); stimulus *psn = dynamic_cast(globalSymbolTable().find(name())); if (psn) { if (psn == this) ; //cout << "Successfully added " << name() << " to symbol table\n"; else cout << "Successfully added " << name() << " but it's not equal to this node\n"; } else cout << "Failed to add " << name() << " to symbol table\n"; /* const char *cPoldName = name().c_str(); if(name_str.empty() && cPname != NULL && *cPname != 0) { // Assume never in symbol table. // Every named stimulus goes into the symbol table. gpsimObject::new_name(cPname); symbol_table.add_stimulus(this,bClearableSymbol); return; } if(symbol_table.Exist(cPoldName)) { // The symbol is in the symbol table. Since the // symbol table is ordered we need to let the // symbol table rename the object to maintain // ordering. Yuk. // Note that rename() will call stimulus::new_name() // after the symbol is removed. This recursive // call will then enter the branch that calls // gpsimObject::new_name(). The simulus with // its new name is added into the symbol table. symbol_table.rename(cPoldName,cPname); } else { gpsimObject::new_name(cPname); } */ } void stimulus::new_name(string &rName, bool bClearableSymbol) { new_name(rName.c_str(),bClearableSymbol); } stimulus::~stimulus(void) { if(snode) snode->detach_stimulus(this); globalSymbolTable().removeSymbol(this); //cout << "Removing " << name() << " from ST\n"; } void stimulus::show() { GetUserInterface().DisplayMessage(toString().c_str()); } string stimulus::toString() { ostringstream s; s << " stimulus "; if(snode) s << " attached to " << snode->name(); s << endl << " Vth=" << get_Vth() << "V" << " Zth=" << get_Zth() << " ohms" << " Cth=" << get_Cth() << "F" << " nodeVoltage= " << get_nodeVoltage() << "V" << endl << " Driving=" << getDriving() << " drivingState=" << getDrivingState() << " drivenState=" << getDrivenState() << " bitState=" << getBitChar(); return s.str(); } void stimulus::attach(Stimulus_Node *s) { detach(snode); snode = s; } void stimulus::detach(Stimulus_Node *s) { if(snode == s) snode = 0; } void stimulus::getThevenin(double &v, double &z, double &c) { v = get_Vth(); z = get_Zth(); c = get_Cth(); } //======================================================================== // PinMonitor::PinMonitor() { } PinMonitor::~PinMonitor() { // Release all of the sinks: list :: iterator ssi = sinks.begin(); while (ssi != sinks.end()) { Dprintf(("release sink %p\n", *ssi)); fflush(stdout); (*ssi)->release(); ++ssi; } list :: iterator asi = analogSinks.begin(); while (asi != analogSinks.end()) { (*asi)->release(); ++asi; } } void PinMonitor::addSink(SignalSink *new_sink) { if(new_sink) { //cout << "Adding sink: " << new_sink << endl; sinks.push_back(new_sink); } } void PinMonitor::removeSink(SignalSink *pSink) { if(pSink) { sinks.remove(pSink); } } void PinMonitor::addSink(AnalogSink *new_sink) { if(new_sink) analogSinks.push_back(new_sink); } void PinMonitor::removeSink(AnalogSink *pSink) { if(pSink) analogSinks.remove(pSink); } //======================================================================== square_wave::square_wave(unsigned int p, unsigned int dc, unsigned int ph, const char *n) { //cout << "creating sqw stimulus\n"; if(n) new_name(n,false); else { char name_str[100]; snprintf(name_str,sizeof(name_str),"s%d_square_wave",num_stimuli); num_stimuli++; new_name(name_str, false); } period = p; // cycles duty = dc; // # of cycles over the period for which the sq wave is high phase = ph; // phase of the sq wave wrt the cycle counter time = 0; // simulation time snode = 0; next = 0; } double square_wave::get_Vth() { guint64 current_time = get_cycles().get(); if(verbose & 1) cout << "Getting new state of the square wave.\n"; if( ((current_time+phase) % period) <= duty) return Vth; else return 0.0; } //======================================================================== // // triangle_wave triangle_wave::triangle_wave(unsigned int p, unsigned int dc, unsigned int ph, const char *n) { //cout << "creating sqw stimulus\n"; if(n) new_name(n,false); else { char name_str[100]; snprintf(name_str,sizeof(name_str),"s%d_triangle_wave",num_stimuli); num_stimuli++; new_name(name_str,false); } if(p==0) //error p = 1; // copy the square wave stuff period = p; // cycles duty = dc; // # of cycles over the period for which the sq wave is high phase = ph; // phase of the sq wave wrt the cycle counter time = 0; // simulation time snode = 0; next = 0; //cout << "duty cycle " << dc << " period " << p << " drive " << drive << '\n'; // calculate the slope and the intercept for the two lines comprising // the triangle wave: if(duty) m1 = Vth/duty; else m1 = Vth/period; // m1 will not be used if the duty cycle is zero b1 = 0; if(period != duty) m2 = Vth/(duty - period); else m2 = Vth; b2 = -m2 * period; //cout << "m1 = " << m1 << " b1 = " << b1 << '\n'; //cout << "m2 = " << m2 << " b2 = " << b2 << '\n'; } double triangle_wave::get_Vth() { guint64 current_time = get_cycles().get(); //cout << "Getting new state of the triangle wave.\n"; guint64 t = (current_time+phase) % period; double ret_val; if( t <= duty) ret_val = b1 + m1 * t; else ret_val = b2 + m2 * t; // cout << "Triangle wave: t = " << t << " value = " << ret_val << '\n'; return ret_val; } //======================================================================== // // Event Event::Event(void) { current_state = 0; } //======================================================================== // void Event::callback(void) { // If there's a node attached to this stimulus, then update it. if(snode) snode->update(); // If the event is inactive. if(current_state == 0) { get_cycles().set_break_delta(1,this); current_state = 1; } else { current_state = 0; } } void source_stimulus::callback_print(void) { cout << "stimulus " << name() << " CallBack ID " << CallBackID << '\n'; } void source_stimulus::callback(void) { cout << "shouldn't be called\n"; } void source_stimulus::show() { stimulus::show(); } void source_stimulus::put_period(Value *pValue) { if (pValue) pValue->get(period); } void source_stimulus::put_duty(Value *pValue) { if (pValue) pValue->get(duty); } void source_stimulus::put_phase(Value *pValue) { if (pValue) pValue->get(phase); } void source_stimulus::put_initial_state(Value *pValue) { if (pValue) pValue->get(initial_state); } void source_stimulus::put_start_cycle(Value *pValue) { if (pValue) pValue->get(start_cycle); } //======================================================================== // IOPIN::IOPIN(const char *_name, double _Vth, double _Zth, double _ZthWeak, double _ZthFloating ) : stimulus(_name,_Vth, _Zth), gui_name_updated(false), bDrivenState(false), cForcedDrivenState('Z'), m_monitor(0), ZthWeak(_ZthWeak), ZthFloating(_ZthFloating), l2h_threshold(2.0), // PICs are CMOS and use CMOS-like thresholds h2l_threshold(1.0) { if(verbose) cout << "IOPIN default constructor\n"; is_analog = false; } void IOPIN::setMonitor(PinMonitor *new_pinMonitor) { if (m_monitor && new_pinMonitor) cout << "IOPIN already has a monitor!" << endl; else m_monitor = new_pinMonitor; } IOPIN::~IOPIN() { if (m_monitor) ((PinModule *)m_monitor)->clrPin(); } void IOPIN::attach(Stimulus_Node *s) { snode = s; } void IOPIN::show() { stimulus::show(); } //-------------------- // set_nodeVoltage() // // void IOPIN::set_nodeVoltage(double new_nodeVoltage) { if(verbose & 1) cout << name()<< " set_nodeVoltage old="<update(); } if(m_monitor) m_monitor->putState(new_state?'1':'0'); } //------------------------------------------------------------ bool IOPIN::getState() { return getDriving() ? getDrivingState() : getDrivenState(); } void IOPIN::setDrivingState(bool new_state) { bDrivingState = new_state; if(m_monitor) m_monitor->setDrivingState(bDrivingState?'1':'0'); if(verbose & 1) cout << name()<< " setDrivingState= " << (new_state ? "high" : "low") << endl; } void IOPIN::setDrivingState(char new3State) { bDrivingState = (new3State=='1' || new3State=='W'); if(m_monitor) m_monitor->setDrivingState(new3State); } bool IOPIN::getDrivingState(void) { return bDrivingState; } bool IOPIN::getDrivenState() { return bDrivenState; } //------------------------------------------------------------------------ // setDrivenState // // An stimulus attached to this pin is driving us to a new state. // This state will be recorded and propagate up to anything // monitoring this pin. void IOPIN::setDrivenState(bool new_state) { bDrivenState = new_state; if(verbose & 1) cout << name()<< " setDrivenState= " << (new_state ? "high" : "low") << endl; // Propagate the new state to those things monitoring this pin. // (note that the 3-state value is what's propagated). if(m_monitor && !is_analog) { m_monitor->setDrivenState(getBitChar()); if(verbose & 16) cout << name() << " setting state of monitor to " << getBitChar() << endl; } } //------------------------------------------------------------------------ // forceDrivenState() - allows the 'driven state' to be manipulated whenever // there is no snode attached. The primary purpose of this is to allow the // UI to toggle I/O pin states. // void IOPIN::forceDrivenState(char newForcedState) { if (cForcedDrivenState != newForcedState) { cForcedDrivenState = newForcedState; bDrivenState = cForcedDrivenState=='1' || cForcedDrivenState=='W'; if(m_monitor) { m_monitor->setDrivenState(getBitChar()); m_monitor->updateUI(); } } } char IOPIN::getForcedDrivenState() { return cForcedDrivenState; } void IOPIN::toggle() { putState(getState() ^ true); } /************************************* * int IOPIN::get_Vth() * * If this iopin has a stimulus attached to it then * the voltage will be dictated by the stimulus. Otherwise, * the voltage is determined by the state of the ioport register * that is inside the pic. For an input (like this), the pic code * that is being simulated can not change the state of the I/O pin. * However, the user has the ability to modify the state of * this register either by writing directly to it in the cli, * or by clicking in one of many places in the gui. */ double IOPIN::get_Vth() { return Vth; } char IOPIN::getBitChar() { if(!snode) return getForcedDrivenState(); // RCP - Changed to match IO_bi_directional // was return 'Z'; // High impedance - unknown state. if(snode->get_nodeZth() > ZthFloating) return 'Z'; if(snode->get_nodeZth() > ZthWeak) return getDrivenState() ? 'W' : 'w'; return getDrivenState() ? '1' : '0'; } void IOPIN::newGUIname(const char *s) { if(s) { gui_name_updated = true; gui_name = string(s); } } string &IOPIN::GUIname(void) const { return (string &)gui_name; } //======================================================================== // IO_bi_directional::IO_bi_directional(const char *_name, double _Vth, double _Zth, double _ZthWeak, double _ZthFloating, double _VthIn, double _ZthIn) : IOPIN(_name, _Vth, _Zth, _ZthWeak, _ZthFloating), ZthIn(_ZthIn), VthIn(_VthIn) { } void IO_bi_directional::set_nodeVoltage( double new_nodeVoltage) { IOPIN::set_nodeVoltage(new_nodeVoltage); } double IO_bi_directional::get_Vth() { if(getDriving()) return getDrivingState() ? Vth : 0; //return getDrivingState() ? VthIn : 0; return VthIn; } double IO_bi_directional::get_Zth() { return getDriving() ? Zth : ZthIn; } /* getBitChar() returns bit status as follows Input pin 1> Pin considered floating, return 'Z' 2> Weak Impedance on pin, return 'W" if high or 'w' if low 3> Pin being driven externally return '1' node voltage high '0' if low Output pin 1> Node voltage opposite driven value return 'X' if node voltage high or 'x' if inode voltage low 2> Node voltage same as driven value return '1' node voltage high '0' if low */ char IO_bi_directional::getBitChar() { if(!snode && !getDriving() ) return getForcedDrivenState(); if(snode) { if (!getDriving()) // input pin { if(snode->get_nodeZth() > ZthFloating) return 'Z'; if(snode->get_nodeZth() > ZthWeak) return getDrivenState() ? 'W' : 'w'; } else if(getDrivenState() != getDrivingState()) return getDrivenState() ? 'X' : 'x'; } return getDrivenState() ? '1' : '0'; } //--------------- //::update_direction(unsigned int new_direction) // // This is called when a new value is written to the tris register // with which this bi-direction pin is associated. void IO_bi_directional::update_direction(unsigned int new_direction, bool refresh) { setDriving(new_direction ? true : false); // If this pin is not associated with an IO Port, but it's tied // to a stimulus, then we need to update the stimulus. if(refresh && snode) snode->update(); } IO_bi_directional_pu::IO_bi_directional_pu(const char *_name, double _Vth, double _Zth, double _ZthWeak, double _ZthFloating, double _VthIn, double _ZthIn, double _Zpullup) : IO_bi_directional(_name, _Vth, _Zth, _ZthWeak, _ZthFloating, _VthIn, _ZthIn), Zpullup(_Zpullup) { Vpullup = Vth; bPullUp = false; } IO_bi_directional_pu::~IO_bi_directional_pu(void) { } void IO_bi_directional_pu::set_is_analog(bool flag) { if (is_analog != flag) { is_analog = flag; if (snode) snode->update(); else if (!getDriving()) setDrivenState(bPullUp && ! is_analog); } } void IO_bi_directional_pu::update_pullup(char new_state, bool refresh) { bool bNewPullupState = new_state == '1' || new_state == 'W'; if (bPullUp != bNewPullupState) { bPullUp = bNewPullupState; if (refresh) { // If there is a node attached to the pin, then we already // know the driven state. If there is no node attached and // this pin is configured as an input, then let the drivenState // be the same as the pullup state. if (snode) snode->update(); else if (!getDriving()) setDrivenState(bPullUp && ! is_analog); } } } double IO_bi_directional_pu::get_Zth() { return getDriving() ? Zth : ((bPullUp && ! is_analog)? Zpullup : ZthIn); } double IO_bi_directional_pu::get_Vth() { /**/ if(verbose & 1) cout << " " << name() << " get_Vth PU " << " driving=" << getDriving() << " DrivingState=" << getDrivingState() << " bDrivenState=" << bDrivenState << " Vth=" << Vth << " VthIn=" << VthIn << " bPullUp=" << bPullUp << " is_analog=" << is_analog << endl; /**/ // If the pin is configured as an output, then the driving voltage // depends on the pin state. If the pin is an input, and the pullup resistor // is enabled, then the pull-up resistor will 'drive' the output. The // open circuit voltage in this case will be Vth (the thevenin voltage, // which is assigned to be same as the processor's supply voltage). if(getDriving()) return getDrivingState() ? Vth : 0; else return (bPullUp && ! is_analog) ? Vpullup : VthIn; } /* getBitChar() returns bit status as follows Input pin 1> Pin considered floating, return 'Z' 2> Weak Impedance on pin, return 'W" if high or 'w' if low 3> Pin being driven externally return '1' node voltage high '0' if low Output pin 1> Node voltage opposite driven value return 'X' if node voltage high or 'x' if inode voltage low 2> Node voltage same as driven value return '1' node voltage high '0' if low */ char IO_bi_directional_pu::getBitChar() { if(!snode && !getDriving() ) { char cForced=getForcedDrivenState(); return (cForced=='Z' && bPullUp) ? 'W' : cForced; } if(snode) { if (!getDriving()) // input pin { if(snode->get_nodeZth() > ZthFloating) return 'Z'; if(snode->get_nodeZth() > ZthWeak) return getDrivenState() ? 'W' : 'w'; } else if(getDrivenState() != getDrivingState()) return getDrivenState() ? 'X' : 'x'; } return getDrivenState() ? '1' : '0'; } IO_open_collector::IO_open_collector(const char *_name) : IO_bi_directional_pu(_name) { } double IO_open_collector::get_Vth() { /**/ if(verbose & 1) cout << name() << " get_Vth OC" << " driving=" << getDriving() << " DrivingState=" << getDrivingState() << " bDrivenState=" << bDrivenState << " Vth=" << Vth << " VthIn=" << VthIn << " bPullUp=" << bPullUp << endl; /**/ if(getDriving() && !getDrivingState()) return 0.0; return bPullUp ? Vpullup : VthIn; } double IO_open_collector::get_Zth() { if(getDriving() && !getDrivingState()) return Zth; return bPullUp ? Zpullup : ZthIn; } char IO_open_collector::getBitChar() { if(!snode && !getDriving() ){ char cForced=getForcedDrivenState(); return (cForced=='Z' && bPullUp) ? 'W' : cForced; } if(snode) { if(snode->get_nodeZth() > ZthFloating) return bPullUp ? 'W' : 'Z'; if(getDriving() && getDrivenState() && !getDrivingState()) return 'X'; if(snode->get_nodeZth() > ZthWeak) return getDrivenState() ? 'W' : 'w'; else return getDrivenState() ? '1' : '0'; } return getDrivingState() ? 'W' : '0'; } //======================================================================== //======================================================================== // // ValueStimulus // // A Value stimulus is a stream of data that can change values at // arbitrary times. An array called 'transition_cycles' stores the times // and an array 'values' stores the values. // When first initialized, the stimulus is driven to its initial state. // A break point is set on the cycle counter for the next cpu cycle that // the stimulus is expected to change values. When the break occurs, // the current state is updated to the next value and then a break is set // for the next expect change. This cycle occurs until all of the values // have been generated. When the end is reached, the asynchronous stimulus // will restart from the beginning. The member variable 'period' describes // the magnitude of the rollover (if it's zero then there is no rollover). // ValueStimulus::ValueStimulus(const char *n) : source_stimulus() { initial.time = 0; initial.v = 0; current = 0; if(n) new_name(n,false); else { char name_str[100]; snprintf(name_str,sizeof(name_str),"s%d_asynchronous_stimulus",num_stimuli); num_stimuli++; new_name(name_str,false); } } ValueStimulus::~ValueStimulus() { delete initial.v; delete current; for(sample_iterator = samples.begin(); sample_iterator != samples.end(); ++sample_iterator) { delete (*sample_iterator).v; } } void ValueStimulus::show() { // print the electrical stuff stimulus::show(); cout << "\n states = " << samples.size() << '\n'; list::iterator si; for(si = samples.begin(); si != samples.end(); ++si) { //double d; //(*si).v->get(d); cout << " t=" << dec << (*si).time << ",v=" << (*si).v->toString() << '\n'; } if (initial.v) cout << " initial=" << initial.v->toString() << '\n'; cout << " period=" << period << '\n' << " start_cycle=" << start_cycle << '\n' << " Next break cycle=" << future_cycle << '\n'; } void ValueStimulus::callback() { guint64 current_cycle = future_cycle; current = next_sample.v; if(verbose & 1) cout << "asynchro cycle " << current_cycle << " state " << current->toString() << '\n'; // If there's a node attached to this stimulus, then update it. if(snode) snode->update(); ValueStimulusData *n = getNextSample(); if(n) { next_sample = *n; if(verbose & 1) { cout << " current_sample (" << next_sample.time << "," << next_sample.v->toString() << ")\n"; cout << " start cycle " << start_cycle << endl; } // get the cycle when the data will change next future_cycle = next_sample.time + start_cycle; if(future_cycle <= current_cycle) { // There's an error in the data. Set a break on the next simulation cycle // and see if it can be resolved. future_cycle = current_cycle+1; } get_cycles().set_break(future_cycle, this); } else future_cycle = 0; if(verbose & 1) cout <<" next transition = " << future_cycle << '\n'; } void ValueStimulus::put_initial_state(Value *pValue) { if (pValue && !initial.v) { initial.time = 0; initial.v = pValue->copy(); } } void ValueStimulus::put_data(ValueStimulusData &data_point) { ValueStimulusData *sample = new ValueStimulusData; sample->time = data_point.time; sample->v = data_point.v; samples.push_back(*sample); } double ValueStimulus::get_Vth() { double v=initial_state; if(current) { try { current->get(v); if(digital && v >0.0) v = 5.0; } catch (Error *err) { if(err) { cout << "Warning stimulus: " << name() << " failed on: "<< err->toString() << endl; delete err; } } } return v; } void ValueStimulus::start() { if(verbose & 1) cout << "Starting asynchronous stimulus\n"; if(period) { // Create a data point for the rollover condition. // If an initial value was supplied when the stimulus was created, then // that's what we'll use for the rollover. Otherwise, we'll create // a rollover based on 'initial_state' (which should be a default value). ValueStimulusData vSample; vSample.time = period; vSample.v = initial.v ? initial.v : new Float(initial_state); put_data(vSample); } sample_iterator = samples.begin(); if(sample_iterator != samples.end()) { if(digital) initial_state = (initial_state > 0.0) ? Vth : 0.0; current = initial.v; next_sample = *sample_iterator; future_cycle = next_sample.time;// + start_cycle; get_cycles().set_break(future_cycle, this); } if(verbose & 1) cout << "asy should've been started\n"; } ValueStimulusData *ValueStimulus::getNextSample() { ++sample_iterator; if(sample_iterator == samples.end()) { // We've gone through all of the data. Now let's try to start over sample_iterator = samples.begin(); // If the period is zero then we don't want to // regenerate the data stream. if(period == 0) return 0; start_cycle += period; if(verbose & 1) { cout << " asynchronous stimulus rolled over\n" << " next start_cycle " << start_cycle << " period " << period << '\n'; } } return &(*sample_iterator); } //------------------------------------------------------------------------ AttributeStimulus::AttributeStimulus(const char *n) : ValueStimulus(n), attr(0) { } /* AttributeStimulus::~AttributeStimulus() { ValueStimulus::~ValueStimulus(); } */ void AttributeStimulus::show() { if (attr) cout << "\nDriving Attribute:" << attr->name() << endl; ValueStimulus::show(); } void AttributeStimulus::callback() { guint64 current_cycle = future_cycle; current = next_sample.v; if(verbose & 1) cout << "asynchro cycle " << current_cycle << " state " << current->toString() << '\n'; // If there's a node attached to this stimulus, then update it. if(attr) attr->set(current); ValueStimulusData *n = getNextSample(); if(n) { next_sample = *n; if(verbose & 1) { cout << " current_sample (" << next_sample.time << "," << next_sample.v->toString() << ")\n"; cout << " start cycle " << start_cycle << endl; } // get the cycle when the data will change next future_cycle = next_sample.time + start_cycle; if(future_cycle <= current_cycle) { // There's an error in the data. Set a break on the next simulation cycle // and see if it can be resolved. future_cycle = current_cycle+1; } get_cycles().set_break(future_cycle, this); } else future_cycle = 0; if(verbose & 1) cout <<" next transition = " << future_cycle << '\n'; } void AttributeStimulus::setClientAttribute(Value *v) { if(attr) cout << "overwriting target attribute in AttributeStimulus\n"; attr = v; if((bool)verbose && v) cout << " attached " << name() << " to attribute: " << v->name() << endl; } //======================================================================== // // helper functions follow here void stimuli_attach(gpsimObject *pNode, gpsimObjectList_t *pPinList) { if (!pNode || !pPinList) return; if(verbose) cout << __FUNCTION__ << " pNode " << pNode->name() << "\n"; gpsimObjectList_t :: iterator si = pPinList->begin(); Stimulus_Node *psn = dynamic_cast(pNode); if (psn) { //cout << __FUNCTION__ << " pNode " << pNode->name() << " is a Stimulus_Node\n"; while (si != pPinList->end()) { stimulus *ps = dynamic_cast (*si); if (ps) psn->attach_stimulus(ps); ++si; } psn->update(); return; } AttributeStimulus *ast = dynamic_cast(pNode); if(ast) { Value *v = dynamic_cast(*si); if (v) ast->setClientAttribute(v); if (verbose) { cout << __FUNCTION__ << " pNode " << pNode->name() << " is an attribute stimulus\n"; if (v) cout << __FUNCTION__ << " connecting " << v->name() << endl; } } } gpsim-0.27.0/src/a2d_v2.h0000664000076400007640000001106612175377101011677 00000000000000/* Copyright (C) 2006 T. Scott Dattalo Copyright (C) 2008 Roy R Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ // For A2D modules which have ADCON0, ADCON1 and ADCON2 registers #ifndef __A2D_V2_H__ #define __A2D_v2_H__ #include "registers.h" #include "trigger.h" #include "intcon.h" #include "pir.h" class PinModule; class pic_processor; class ADCON0_V2; //--------------------------------------------------------- // ADCON1 // class ADCON1_V2 : public sfr_register { public: enum PCFG_bits { PCFG0 = 1<<0, PCFG1 = 1<<1, PCFG2 = 1<<2, PCFG3 = 1<<3, VCFG0 = 1<<4, VCFG1 = 1<<5, }; ADCON1_V2(Processor *pCpu, const char *pName, const char *pDesc); ~ADCON1_V2(); virtual void put(unsigned int new_value); void setChanTable( unsigned int m0, unsigned int m1, unsigned int m2, unsigned int m3, unsigned int m4, unsigned int m5, unsigned int m6, unsigned int m7, unsigned int m8, unsigned int m9, unsigned int m10, unsigned int m11, unsigned int m12, unsigned int m13, unsigned int m14, unsigned int m15); void setChannelConfiguration(unsigned int cfg, unsigned int bitMask); double getChannelVoltage(unsigned int channel); double getVrefHi(); double getVrefLo(); void setVrefHiChannel(unsigned int channel); void setVrefLoChannel(unsigned int channel); void setValidCfgBits(unsigned int m, unsigned int s); void setNumberOfChannels(unsigned int); void setIOPin(unsigned int, PinModule *); void setAdcon0(ADCON0_V2 *adcon0){ m_adcon0 = adcon0;} virtual unsigned int get_adc_configmask(unsigned int); private: PinModule **m_AnalogPins; unsigned int m_nAnalogChannels; unsigned int mValidCfgBits; unsigned int mCfgBitShift; int m_vrefHiChan; int m_vrefLoChan; unsigned int mIoMask; ADCON0_V2 *m_adcon0; // if set use to get VCFG0 and VCFG1 static const unsigned int cMaxConfigurations=16; /* configuration bits is an array of 8-bit masks definining whether or not * a given channel is analog or digital */ unsigned int m_configuration_bits[cMaxConfigurations]; }; //--------------------------------------------------------- // ADCON2 // class ADCON2_V2 : public sfr_register, public TriggerObject { public: enum { ADCS0 = 1<<0, ADCS1 = 1<<1, ADCS2 = 1<<2, ACQT0 = 1<<3, ACQT1 = 1<<4, ACQT2 = 1<<5, ADFM = 1<<7 }; ADCON2_V2(Processor *pCpu, const char *pName, const char *pDesc); char get_nacq(); char get_tad(); bool get_adfm(); private: }; //--------------------------------------------------------- // ADCON0 // class ADCON0_V2 : public sfr_register, public TriggerObject { public: enum { ADON = 1<<0, GO = 1<<1, CHS0 = 1<<2, CHS1 = 1<<3, CHS2 = 1<<4, CHS3 = 1<<5, VCFG0 = 1<<6, // for 18f1220 VCFG1 = 1<<7, // for 18f1220 }; enum AD_states { AD_IDLE, AD_ACQUIRING, AD_CONVERTING }; ADCON0_V2(Processor *pCpu, const char *pName, const char *pDesc); void start_conversion(); void stop_conversion(); virtual void set_interrupt(); virtual void callback(); void put(unsigned int new_value); void put_conversion(); void setAdres(sfr_register *); void setAdresLow(sfr_register *); void setAdcon1(ADCON1_V2 *); void setAdcon2(ADCON2_V2 *); void setIntcon(INTCON *); void setPir(PIR1v2 *); void setA2DBits(unsigned int); void setChannel_Mask(unsigned int ch_mask) { channel_mask = ch_mask; } void setRCtime(double); private: sfr_register *adres; sfr_register *adresl; ADCON1_V2 *adcon1; ADCON2_V2 *adcon2; INTCON *intcon; PIR1v2 *pir1v2; double m_dSampledVoltage; double m_dSampledVrefHi; double m_dSampledVrefLo; double m_RCtime; unsigned int m_A2DScale; unsigned int m_nBits; guint64 future_cycle; unsigned int ad_state; unsigned int Tad; unsigned int Tacq; unsigned int channel_mask; }; #endif // __A2D_V2_H__ gpsim-0.27.0/src/cmd_gpsim.h0000644000076400007640000000011211401131150012527 00000000000000 #ifndef __CMD_GPSIM_H__ #define __CMD_GPSIM_H__ #include "ui.h" #endif gpsim-0.27.0/src/pic-processor.cc0000664000076400007640000015576712176602260013567 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #ifdef _WIN32 #include "uxtime.h" #include "unistd.h" #else #include #endif #ifndef _MSC_VER #include #endif #include #include #include #include #include #include "../config.h" #include "exports.h" #include "gpsim_def.h" #include "pic-processor.h" #include "pic-registers.h" #include "picdis.h" #include "symbol.h" #include "stimuli.h" #include "p16x5x.h" #include "p16f62x.h" #include "p16f8x.h" #include "p16f88x.h" #include "p16x8x.h" #include "p16f87x.h" #include "p16x6x.h" #include "p16x7x.h" #include "p12x.h" #include "p12f6xx.h" #include "p12f182x.h" #ifdef P17C7XX // code no longer works #include "p17c75x.h" #endif #include "p18x.h" #include "icd.h" #include "fopen-path.h" guint64 simulation_start_cycle; #include "cod.h" #include "clock_phase.h" class phaseCaptureInterrupt : public ProcessorPhase { public: phaseCaptureInterrupt(Processor *pcpu); ~phaseCaptureInterrupt(); virtual ClockPhase *advance(); void firstHalf(); protected: ClockPhase *m_pCurrentPhase; ClockPhase *m_pNextNextPhase; }; ClockPhase *mCurrentPhase=0; phaseExecute1Cycle *mExecute1Cycle=0; phaseExecute2ndHalf *mExecute2ndHalf=0; // misnomer - should be 2-cycle phaseExecuteInterrupt *mExecuteInterrupt=0; phaseCaptureInterrupt *mCaptureInterrupt=0; phaseIdle *mIdle=0; void setCurrentPhase(ClockPhase *pPhase) { mCurrentPhase = pPhase; } const char* phaseDesc(ClockPhase *pPhase) { if (pPhase == mExecute1Cycle) return ("mExecute1Cycle"); if (pPhase == mExecute2ndHalf) return ("mExecute2ndHalf"); if (pPhase == mExecuteInterrupt) return ("mExecuteInterrupt"); if (pPhase == mCaptureInterrupt) return ("mCaptureInterrupt"); return "unknown phase"; } phaseCaptureInterrupt::phaseCaptureInterrupt(Processor *pcpu) : ProcessorPhase(pcpu) { } phaseCaptureInterrupt::~phaseCaptureInterrupt() {} #define Rprintf(arg) {printf("0x%06X %s() ",cycles.get(),__FUNCTION__); printf arg; } ClockPhase *phaseCaptureInterrupt::advance() { //Rprintf (("phaseCaptureInterrupt\n")); if (m_pNextPhase == mExecute2ndHalf) m_pNextPhase->advance(); m_pcpu->interrupt(); return m_pNextPhase; } void phaseCaptureInterrupt::firstHalf() { m_pCurrentPhase = mCurrentPhase; m_pNextPhase = this; m_pNextNextPhase = mCurrentPhase->getNextPhase(); mCurrentPhase->setNextPhase(this); mCurrentPhase = this; } //================================================================================ // Global Declarations // FIXME - move these global references somewhere else //================================================================================ // // pic_processor // // This file contains all (most?) of the code that simulates those features // common to all pic microcontrollers. // // ProcessorConstructor pP10F200(P10F200::construct , "__10F200", "pic10f200", "p10f200", "10f200"); ProcessorConstructor pP10F202(P10F202::construct , "__10F202", "pic10f202", "p10f202", "10f202"); ProcessorConstructor pP10F204(P10F204::construct , "__10F204", "pic10f204", "p10f204", "10f204"); ProcessorConstructor pP10F220(P10F220::construct , "__10F220", "pic10f220", "p10f220", "10f220"); ProcessorConstructor pP10F222(P10F222::construct , "__10F222", "pic10f222", "p10f222", "10f222"); ProcessorConstructor pP12C508(P12C508::construct , "__12C508", "pic12c508", "p12c508", "12c508"); ProcessorConstructor pP12C509(P12C509::construct , "__12C509", "pic12c509", "p12c509", "12c509"); ProcessorConstructor pP12CE518(P12CE518::construct , "__12ce518", "pic12ce518", "p12ce518", "12ce518"); ProcessorConstructor pP12CE519(P12CE519::construct , "__12ce519", "pic12ce519", "p12ce519", "12ce519"); ProcessorConstructor pP12F508(P12F508::construct , "__12F508", "pic12f508", "p12f508", "12f508"); ProcessorConstructor pP12F509(P12F509::construct , "__12F509", "pic12f509", "p12f509", "12f509"); ProcessorConstructor pP12F510(P12F510::construct , "__12F510", "pic12f510", "p12f510", "12f510"); ProcessorConstructor pP12F629(P12F629::construct , "__12F629", "pic12f629", "p12f629", "12f629"); ProcessorConstructor pP12F675(P12F675::construct , "__12F675", "pic12f675", "p12f675", "12f675"); ProcessorConstructor pP12F683(P12F683::construct , "__12F683", "pic12f683", "p12f683", "12f683"); ProcessorConstructor pP12F1822(P12F1822::construct , "__12F1822", "pic12f1822", "p12f1822", "12f1822"); ProcessorConstructor pP16C54(P16C54::construct , "__16C54", "pic16c54", "p16c54", "16c54"); ProcessorConstructor pP16C55(P16C55::construct , "__16C55", "pic16c55", "p16c55", "16c55"); ProcessorConstructor pP16C56(P16C56::construct , "__16C56", "pic16c56", "p16c56", "16c56"); ProcessorConstructor pP16C61(P16C61::construct , "__16C61", "pic16c61", "p16c61", "16c61"); ProcessorConstructor pP16C62(P16C62::construct , "__16C62", "pic16c62", "p16c62", "16c62"); ProcessorConstructor pP16C62A(P16C62::construct , "__16C62A", "pic16c62a", "p16c62a", "16c62a"); ProcessorConstructor pP16CR62(P16C62::construct , "__16CR62", "pic16cr62", "p16cr62", "16cr62"); ProcessorConstructor pP16C63(P16C63::construct , "__16C63", "pic16c63", "p16c63", "16c63"); ProcessorConstructor pP16C64(P16C64::construct , "__16C64", "pic16c64", "p16c64", "16c64"); ProcessorConstructor pP16C65(P16C65::construct , "__16C65", "pic16c65", "p16c65", "16c65"); ProcessorConstructor pP16C65A(P16C65::construct , "__16C65A", "pic16c65a", "p16c65a", "16c65a"); ProcessorConstructor pP16C71(P16C71::construct , "__16C71", "pic16c71", "p16c71", "16c71"); ProcessorConstructor pP16C712(P16C712::construct , "__16C712", "pic16c712", "p16c712", "16c712"); ProcessorConstructor pP16C716(P16C716::construct , "__16C716", "pic16c716", "p16c716", "16c716"); ProcessorConstructor pP16C72(P16C72::construct , "__16C72", "pic16c72", "p16c72", "16c72"); ProcessorConstructor pP16C73(P16C73::construct , "__16C73", "pic16c73", "p16c73", "16c73"); ProcessorConstructor pP16C74(P16C74::construct , "__16C74", "pic16c74", "p16c74", "16c74"); ProcessorConstructor pP16C84(P16C84::construct , "__16C84", "pic16c84", "p16c84", "16c84"); ProcessorConstructor pP16CR83(P16CR83::construct , "__16CR83", "pic16cr83", "p16cr83", "16cr83"); ProcessorConstructor pP16CR84(P16CR84::construct , "__16CR84", "pic16cr84", "p16cr84", "16cr84"); ProcessorConstructor pP16F73(P16F73::construct , "__16F73", "pic16f73", "p16f73", "16f73"); ProcessorConstructor pP16F74(P16F74::construct , "__16F74", "pic16f74", "p16f74", "16f74"); ProcessorConstructor pP16F83(P16F83::construct , "__16F83", "pic16f83", "p16f83", "16f83"); ProcessorConstructor pP16F84(P16F84::construct , "__16F84", "pic16f84", "p16f84", "16f84"); ProcessorConstructor pP16F87(P16F87::construct , "__16F87", "pic16f87", "p16f87", "16f87"); ProcessorConstructor pP16F88(P16F88::construct , "__16F88", "pic16f88", "p16f88", "16f88"); ProcessorConstructor pP16F882(P16F882::construct , "__16F882", "pic16f882", "p16f882", "16f882"); ProcessorConstructor pP16F883(P16F883::construct , "__16F883", "pic16f883", "p16f883", "16f883"); ProcessorConstructor pP16F884(P16F884::construct , "__16F884", "pic16f884", "p16f884", "16f884"); ProcessorConstructor pP16F886(P16F886::construct , "__16F886", "pic16f886", "p16f886", "16f886"); ProcessorConstructor pP16F887(P16F887::construct , "__16F887", "pic16f887", "p16f887", "16f887"); ProcessorConstructor pP16F627(P16F627::construct , "__16F627", "pic16f627", "p16f627", "16f627"); ProcessorConstructor pP16F627A(P16F627::construct , "__16F627A", "pic16f627a", "p16f627a", "16f627a"); ProcessorConstructor pP16F628(P16F628::construct , "__16F628", "pic16f628", "p16f628", "16f628"); ProcessorConstructor pP16F628A(P16F628::construct , "__16F628A", "pic16f628a", "p16f628a", "16f628a"); ProcessorConstructor pP16F630(P16F630::construct , "__16F630", "pic16f630", "p16f630", "16f630"); ProcessorConstructor pP16F631(P16F631::construct , "__16F631", "pic16f631", "p16f631", "16f631"); ProcessorConstructor pP16F648(P16F648::construct , "__16F648", "pic16f648", "p16f648", "16f648"); ProcessorConstructor pP16F648A(P16F648::construct , "__16F648A", "pic16f648a", "p16f648a", "16f648a"); ProcessorConstructor pP16F676(P16F676::construct , "__16F676", "pic16f676", "p16f676", "16f676"); ProcessorConstructor pP16F677(P16F677::construct , "__16F677", "pic16f677", "p16f677", "16f677"); ProcessorConstructor pP16F684(P16F684::construct , "__16F684", "pic16f684", "p16f684", "16f684"); ProcessorConstructor pP16F685(P16F685::construct , "__16F685", "pic16f685", "p16f685", "16f685"); ProcessorConstructor pP16F687(P16F687::construct , "__16F687", "pic16f687", "p16f687", "16f687"); ProcessorConstructor pP16F689(P16F689::construct , "__16F689", "pic16f689", "p16f689", "16f689"); ProcessorConstructor pP16F690(P16F690::construct , "__16F690", "pic16f690", "p16f690", "16f690"); ProcessorConstructor pP16F818(P16F818::construct , "__16F818", "pic16f818", "p16f818", "16f818"); ProcessorConstructor pP16F819(P16F819::construct , "__16F819", "pic16f819", "p16f819", "16f819"); ProcessorConstructor pP16F871(P16F871::construct , "__16F871", "pic16f871", "p16f871", "16f871"); ProcessorConstructor pP16F873(P16F873::construct , "__16F873", "pic16f873", "p16f873", "16f873"); ProcessorConstructor pP16F874(P16F874::construct , "__16F874", "pic16f874", "p16f874", "16f874"); ProcessorConstructor pP16F876(P16F876::construct , "__16F876", "pic16f876", "p16f876", "16f876"); ProcessorConstructor pP16F877(P16F877::construct , "__16F877", "pic16f877", "p16f877", "16f877"); ProcessorConstructor pP16F873A(P16F873A::construct , "__16F873a", "pic16f873a", "p16f873a", "16f873a"); ProcessorConstructor pP16F874A(P16F874A::construct , "__16F874a", "pic16f874a", "p16f874a", "16f874a"); ProcessorConstructor pP16F876A(P16F876A::construct , "__16F876a", "pic16f876a", "p16f876a", "16f876a"); ProcessorConstructor pP16F877A(P16F877A::construct , "__16F877a", "pic16f877a", "p16f877a", "16f877a"); ProcessorConstructor pP16F1823(P16F1823::construct , "__16F1823", "pic16f1823", "p16f1823", "16f1823"); #ifdef P17C7XX // code no longer works ProcessorConstructor pP17C7xx(P17C7xx::construct , "__17C7xx", "pic17c7xx", "p17c7xx", "17c7xx"); ProcessorConstructor pP17C75x(P17C75x::construct , "__17C75x", "pic17c75x", "p17c75x", "17c75x"); ProcessorConstructor pP17C752(P17C752::construct , "__17C752", "pic17c752", "p17c752", "17c752"); ProcessorConstructor pP17C756(P17C756::construct , "__17C756", "pic17c756", "p17c756", "17c756"); ProcessorConstructor pP17C756A(P17C756A::construct , "__17C756A", "pic17c756a", "p17c756a", "17c756a"); ProcessorConstructor pP17C762(P17C762::construct , "__17C762", "pic17c762", "p17c762", "17c762"); ProcessorConstructor pP17C766(P17C766::construct , "__17C766", "pic17c766", "p17c766", "17c766"); #endif // P17C7XX ProcessorConstructor pP18C242(P18C242::construct , "__18C242", "pic18c242", "p18c242", "18c242"); ProcessorConstructor pP18C252(P18C252::construct , "__18C252", "pic18c252", "p18c252", "18c252"); ProcessorConstructor pP18C442(P18C442::construct , "__18C442", "pic18c442", "p18c442", "18c442"); ProcessorConstructor pP18C452(P18C452::construct , "__18C452", "pic18c452", "p18c452", "18c452"); ProcessorConstructor pP18F242(P18F242::construct , "__18F242", "pic18f242", "p18f242", "18f242"); ProcessorConstructor pP18F248(P18F248::construct , "__18F248", "pic18f248", "p18f248", "18f248"); ProcessorConstructor pP18F252(P18F252::construct , "__18F252", "pic18f252", "p18f252", "18f252"); ProcessorConstructor pP18F442(P18F442::construct , "__18F442", "pic18f442", "p18f442", "18f442"); ProcessorConstructor pP18F448(P18F448::construct , "__18F448", "pic18f448", "p18f448", "18f448"); ProcessorConstructor pP18F452(P18F452::construct, "__18F452", "pic18f452", "p18f452", "18f452"); ProcessorConstructor pP18F1220(P18F1220::construct, "__18F1220", "pic18f1220", "p18f1220", "18f1220"); ProcessorConstructor pP18F1320(P18F1320::construct, "__18F1320", "pic18f1320", "p18f1320", "18f1320"); ProcessorConstructor pP18F2221(P18F2221::construct, "__18F2221", "pic18f2221", "p18f2221", "18f2221"); ProcessorConstructor pP18F2321(P18F2321::construct, "__18F2321", "pic18f2321", "p18f2321", "18f2321"); ProcessorConstructor pP18F2420(P18F2420::construct, "__18F2420", "pic18f2420", "p18f2420", "18f2420"); ProcessorConstructor pP18F2520(P18F2520::construct, "__18F2520", "pic18f2520", "p18f2520", "18f2520"); ProcessorConstructor pP18F2455(P18F2455::construct, "__18F2455", "pic18f2455", "p18f2455", "18f2455"); ProcessorConstructor pP18F4221(P18F4221::construct, "__18F4221", "pic18f4221", "p18f4221", "18f4221"); ProcessorConstructor pP18F4321(P18F4321::construct, "__18F4321", "pic18f4321", "p18f4321", "18f4321"); ProcessorConstructor pP18F4420(P18F4420::construct, "__18F4420", "pic18f4420", "p18f4420", "18f4420"); ProcessorConstructor pP18F4520(P18F4520::construct, "__18F4520", "pic18f4520", "p18f4520", "18f4520"); ProcessorConstructor pP18F4455(P18F4455::construct, "__18F4455", "pic18f4455", "p18f4455", "18f4455"); ProcessorConstructor pP18F4620(P18F4620::construct, "__18F4620", "pic18f4620", "p18f4620", "18f4620"); ProcessorConstructor pP18F6520(P18F6520::construct, "__18F6520", "pic18f6520", "p18f6520", "18f6520"); //======================================================================== // Trace Type for Resets class InterruptTraceObject : public ProcessorTraceObject { public: InterruptTraceObject(Processor *_cpu); virtual void print(FILE *fp); }; class InterruptTraceType : public ProcessorTraceType { public: InterruptTraceType(Processor *_cpu); TraceObject *decode(unsigned int tbi); void record(); int dump_raw(Trace *pTrace,unsigned int tbi, char *buf, int bufsize); unsigned int m_uiTT; }; //------------------------------------------------------------ InterruptTraceObject::InterruptTraceObject(Processor *_cpu) : ProcessorTraceObject(_cpu) { } void InterruptTraceObject::print(FILE *fp) { fprintf(fp, " %s *** Interrupt ***\n", (cpu ? cpu->name().c_str() : "")); } //------------------------------------------------------------ InterruptTraceType::InterruptTraceType(Processor *_cpu) : ProcessorTraceType(_cpu,1,"Interrupt") { m_uiTT = trace.allocateTraceType(this); } TraceObject *InterruptTraceType::decode(unsigned int tbi) { //unsigned int tv = trace.get(tbi); return new InterruptTraceObject(cpu); } void InterruptTraceType::record() { trace.raw(m_uiTT); } int InterruptTraceType::dump_raw(Trace *pTrace,unsigned int tbi, char *buf, int bufsize) { if (!pTrace) return 0; int n = TraceType::dump_raw(pTrace, tbi,buf,bufsize); buf += n; bufsize -= n; int m = snprintf(buf, bufsize, " %s *** Interrupt ***", (cpu ? cpu->name().c_str() : "")); return m > 0 ? (m+n) : n; } //------------------------------------------------------------------- void pic_processor::set_eeprom(EEPROM *e) { eeprom = e; if (e) ema.set_Registers(e->rom, e->rom_size); } //------------------------------------------------------------------- void pic_processor::BP_set_interrupt() { m_pInterruptTT->record(); mCaptureInterrupt->firstHalf(); } //------------------------------------------------------------------- // // sleep - Begin sleeping and stay asleep until something causes a wake // void pic_processor::sleep () { } //------------------------------------------------------------------- // // enter_sleep - The processor is about to go to sleep, so update // the status register. void pic_processor::enter_sleep() { status->put_TO(1); status->put_PD(0); wdt.update(); pc->increment(); mCurrentPhase->setNextPhase(mIdle); mCurrentPhase = mIdle; mCurrentPhase->setNextPhase(mIdle); m_ActivityState = ePASleeping; } //------------------------------------------------------------------- // // exit_sleep void pic_processor::exit_sleep() { m_ActivityState = ePAActive; mCurrentPhase->setNextPhase(mExecute1Cycle); } //------------------------------------------------------------------- // // is_sleeping bool pic_processor::is_sleeping() { return m_ActivityState == ePASleeping; } //------------------------------------------------------------------- // // pm_write - program memory write // void pic_processor::pm_write () { m_ActivityState = ePAPMWrite; do get_cycles().increment(); // burn cycles until we're through writing while(bp.have_pm_write()); simulation_mode = eSM_RUNNING; } static bool realtime_mode = false; static bool realtime_mode_with_gui = false; void EnableRealTimeMode(bool bEnable) { realtime_mode = bEnable; } void EnableRealTimeModeWithGui(bool bEnable) { realtime_mode_with_gui = bEnable; } extern void update_gui(); class RealTimeBreakPoint : public TriggerObject { public: Processor *cpu; struct timeval tv_start; guint64 cycle_start; guint64 future_cycle; int warntimer; guint64 period; // callback period in us //#define REALTIME_DEBUG guint64 diffmax; guint64 diffsum; int diffsumct; struct timeval stat_start; RealTimeBreakPoint() { cpu = 0; warntimer = 1; period = 1; future_cycle = 0; diffsum=0; diffsumct=0; diffmax=0; } void start(Processor *active_cpu) { if(!active_cpu) return; diffsum=0; diffsumct=0; diffmax=0; // Grab the system time and record the simulated pic's time. // We'll then set a break point a short time in the future // and compare how the two track. cpu = active_cpu; gettimeofday(&tv_start,0); stat_start=tv_start; cycle_start=get_cycles().get(); guint64 fc = cycle_start+100; //cout << "real time start : " << cycle_start << '\n'; if(future_cycle) get_cycles().reassign_break(future_cycle, fc, this); else get_cycles().set_break(fc, this); future_cycle = fc; } void stop() { //cout << "real time stop : " << future_cycle << '\n'; #ifdef REALTIME_DEBUG dump_stats(); #endif // Clear any pending break point. if(future_cycle) { cout << " real time clearing\n"; get_cycles().clear_break(this); future_cycle = 0; if(realtime_mode_with_gui) { update_gui(); } } } #ifdef REALTIME_DEBUG void dump_stats(void) { struct timeval tv; gettimeofday(&tv,0); double simulation_time = (tv.tv_sec-stat_start.tv_sec)+(tv.tv_usec-stat_start.tv_usec)/1000000.0; // in seconds if(diffsumct>0 && simulation_time>0) { cout << dec << "Average realtime error: " << diffsum/diffsumct << " microseconds. Max: "<get_OSCperiod()); if( simulation_time > system_time) { // we are simulating too fast diff_us = simulation_time - system_time; if(period > diff_us) period -= diff_us; else period=1; usleep((unsigned int)diff_us); } else { diff_us = system_time - simulation_time; period+=diff_us; if(period>1000000) period=1000000; // limit to a one second callback period if(diff_us>1000000) { // we are simulating too slow if(warntimer<10) warntimer++; else { warntimer=0; puts("Processor is too slow for realtime mode!"); } } else warntimer=0; } guint64 delta_cycles= (guint64)(period*cpu->get_frequency()/4000000); if(delta_cycles<1) delta_cycles=1; // Look at realtime_mode_with_gui and update the gui if true if(realtime_mode_with_gui) { update_gui(); } #ifdef REALTIME_DEBUG if(tv.tv_secdiffmax) diffmax=diff_us; static guint64 oldtime = 0; //cout<advance(); while(!bp.global_break); if(realtime_mode) realtime_cbp.stop(); /* FIXME if(bp.have_pm_write()) pm_write(); */ /* if(bp.have_socket_break()) { cout << " socket break point \n"; Interface *i = gi.get_socket_interface(); if (i) i->Update(0); bp.clear_socket_break(); } */ //} while(!bp.global_break); bp.clear_global(); trace.cycle_counter(get_cycles().get()); simulation_mode = eSM_STOPPED; } //------------------------------------------------------------------- // // step - Simulate one (or more) instructions. If a breakpoint is set // at the current PC-> 'step' will go right through it. (That's supposed // to be a feature.) // void pic_processor::step (unsigned int steps, bool refresh) { if(!steps) return; if(get_use_icd()) { if(steps!=1) { cout << "Can only step one step in ICD mode"<get_value(); disassemble((signed int)pc->value, (signed int)pc->value); // FIXME, don't want this in HLL ICD mode. if(refresh) gi.simulation_has_stopped(); return; } if(simulation_mode != eSM_STOPPED) { if(verbose) cout << "Ignoring step request because simulation is not stopped\n"; return; } simulation_mode = eSM_SINGLE_STEPPING; mCurrentPhase = mCurrentPhase ? mCurrentPhase : mExecute1Cycle; do { mCurrentPhase = mCurrentPhase->advance(); } while(!bp.have_halt() && --steps>0); // complete the step if this is a multi-cycle instruction. if (mCurrentPhase == mExecute2ndHalf) while (mCurrentPhase != mExecute1Cycle) mCurrentPhase = mCurrentPhase->advance(); get_trace().cycle_counter(get_cycles().get()); if(refresh) trace_dump(0,1); bp.clear_halt(); simulation_mode = eSM_STOPPED; if(refresh) get_interface().simulation_has_stopped(); } //------------------------------------------------------------------- void pic_processor::step_cycle() { mCurrentPhase = mCurrentPhase->advance(); } // //------------------------------------------------------------------- // // step_over - In most cases, step_over will simulate just one instruction. // However, if the next instruction is a branching one (e.g. goto, call, // return, etc.) then a break point will be set after it and gpsim will // begin 'running'. This is useful for stepping over time-consuming calls. // void pic_processor::step_over (bool refresh) { if(simulation_mode != eSM_STOPPED) { if(verbose) cout << "Ignoring step-over request because simulation is not stopped\n"; return; } unsigned int saved_pc = pma->get_PC(); instruction *nextInstruction = pma->getFromAddress(saved_pc); if (!nextInstruction) { // this is really fatal... return; } unsigned int nextExpected_pc = saved_pc + map_pm_index2address(nextInstruction->instruction_size()); step(1,false); // Try one step -- without refresh // if the pc did not advance just one instruction, then some kind of branch occurred. unsigned int current_pc = pma->get_PC(); if( ! (current_pc >= saved_pc && current_pc <= nextExpected_pc)) { // If the branch is not a skip instruction then we'll set a break point and run. // (note, the test that's performed will treat a goto $+2 as a skip. instruction *nextNextInstruction = pma->getFromAddress(nextExpected_pc); unsigned int nextNextExpected_pc = nextExpected_pc + (nextNextInstruction ? map_pm_index2address(nextNextInstruction->instruction_size()) : 0); if (! (current_pc >= saved_pc && current_pc <= nextNextExpected_pc)) { unsigned int bp_num = pma->set_break_at_address(nextExpected_pc); if (bp_num != INVALID_VALUE) { run(); bp.clear(bp_num); } } } // note that we don't need to tell the gui to update its windows since // that is already done by step() or run(). if(refresh) get_interface().simulation_has_stopped(); } //------------------------------------------------------------------- // // finish // // this method really only applies to processors with stacks. void pic_processor::finish() { if(!stack) return; run_to_address( stack->contents[(stack->pointer-1) & stack->stack_mask]); get_interface().simulation_has_stopped(); } //------------------------------------------------------------------- // // reset - reset the pic based on the desired reset type. // void pic_processor::reset (RESET_TYPE r) { bool bHaltSimulation = getBreakOnReset(); if(get_use_icd()) { puts("RESET"); icd_reset(); disassemble((signed int)pc->get_value(), (signed int)pc->get_value()); gi.simulation_has_stopped(); return; } m_pResetTT->record(r); rma.reset(r); stack->reset(r); wdt.reset(r); pc->reset(); bp.clear_global(); switch (r) { case POR_RESET: if(verbose) { cout << "POR\n"; if(config_modes) config_modes->print(); } bHaltSimulation = false; mCurrentPhase = mCurrentPhase ? mCurrentPhase : mExecute1Cycle; m_ActivityState = ePAActive; break; case SOFT_RESET: cout << "Reset due to Software reset instruction\n"; mCurrentPhase = mExecute1Cycle; mCurrentPhase->setNextPhase(mExecute1Cycle); m_ActivityState = ePAActive; break; case MCLR_RESET: cout << "MCLR reset\n"; mCurrentPhase = mIdle; mCurrentPhase->setNextPhase(mIdle); m_ActivityState = ePAIdle; break; case IO_RESET: mCurrentPhase = mExecute1Cycle; mCurrentPhase->setNextPhase(mExecute1Cycle); m_ActivityState = ePAActive; break; case WDT_RESET: cout << "Reset on Watch Dog Timer expire\n"; mCurrentPhase = mCurrentPhase ? mCurrentPhase : mExecute1Cycle; mCurrentPhase->setNextPhase(mExecute1Cycle); m_ActivityState = ePAActive; break; case EXIT_RESET: // MCLR reset has cleared cout <<"MCLR low, resume execution\n"; mCurrentPhase = mCurrentPhase ? mCurrentPhase : mExecute1Cycle; mCurrentPhase->setNextPhase(mExecute1Cycle); m_ActivityState = ePAActive; return; break; case STKOVF_RESET: cout << "Reset on Stack overflow\n"; mCurrentPhase = mCurrentPhase ? mCurrentPhase : mIdle; mCurrentPhase->setNextPhase(mIdle); m_ActivityState = ePAActive; // mCurrentPhase->setNextPhase(mExecute1Cycle); // m_ActivityState = ePAActive; break; case STKUNF_RESET: cout << "Reset on Stack undeflow\n"; mCurrentPhase = mCurrentPhase ? mCurrentPhase : mIdle; mCurrentPhase->setNextPhase(mIdle); m_ActivityState = ePAActive; break; default: printf("pic_processor::reset unknow reset type %d\n", r); m_ActivityState = ePAActive; break; } if(bHaltSimulation || getBreakOnReset()) { bp.halt(); gi.simulation_has_stopped(); } } //------------------------------------------------------------------- // // pic_processor -- constructor // pic_processor::pic_processor(const char *_name, const char *_desc) : Processor(_name,_desc), wdt(this, 18.0e-3),indf(0),fsr(0), stack(0), status(0), Wreg(0), pcl(0), pclath(0),m_PCHelper(0), tmr0(this,"tmr0","Timer 0"), m_configMemory(0), m_MCLR(0), m_MCLR_Save(0), m_MCLRMonitor(0) { mExecute1Cycle = new phaseExecute1Cycle(this); mExecute2ndHalf = new phaseExecute2ndHalf(this); mExecuteInterrupt = new phaseExecuteInterrupt(this); mCaptureInterrupt = new phaseCaptureInterrupt(this); mIdle = new phaseIdle(this); mCurrentPhase = mExecute1Cycle; m_Capabilities = eSTACK | eWATCHDOGTIMER; if(verbose) cout << "pic_processor constructor\n"; eeprom = 0; config_modes = create_ConfigMode(); pll_factor = 0; Integer::setDefaultBitmask(0xff); // Test code for logging to disk: GetTraceLog().switch_cpus(this); m_pResetTT = new ResetTraceType(this); m_pInterruptTT = new InterruptTraceType(this); } //------------------------------------------------------------------- pic_processor::~pic_processor() { delete m_pResetTT; delete m_pInterruptTT; delete_sfr_register(Wreg); delete_sfr_register(pcl); delete_sfr_register(pclath); delete_sfr_register(status); delete_sfr_register(indf); delete m_PCHelper; delete stack; delete mExecute1Cycle; delete mExecute2ndHalf; delete mExecuteInterrupt; delete mCaptureInterrupt; delete mIdle; delete config_modes; delete m_configMemory; if (m_MCLR) m_MCLR->setMonitor(0); if (m_MCLR_Save) m_MCLR_Save->setMonitor(0); if (m_MCLRMonitor) delete m_MCLRMonitor; } //------------------------------------------------------------------- // // // create // // The purpose of this member function is to 'create' a pic processor. // Since this is a base class member function, only those things that // are common to all pics are created. void pic_processor::create () { init_program_memory (program_memory_size()); init_register_memory (register_memory_size()); // Now, initialize the core stuff: pc->set_cpu(this); Wreg = new WREG(this,"W","Working Register"); pcl = new PCL(this,"pcl", "Program Counter Low"); pclath = new PCLATH(this,"pclath", "Program Counter Latch High"); status = new Status_register(this,"status", "Processor status"); indf = new INDF(this,"indf","Indirect register"); register_bank = ®isters[0]; // Define the active register bank Vdd = 5.0; // Assume 5.0 volt power supply if(pma) { m_PCHelper = new PCHelper(this,pma); rma.SpecialRegisters.push_back(m_PCHelper); rma.SpecialRegisters.push_back(status); rma.SpecialRegisters.push_back(Wreg); pma->SpecialRegisters.push_back(m_PCHelper); pma->SpecialRegisters.push_back(status); pma->SpecialRegisters.push_back(Wreg); } create_config_memory(); } //------------------------------------------------------------------- // // add_sfr_register // // The purpose of this routine is to add one special function register // to the file registers. If the sfr has a physical address (like the // status or tmr0 registers) then a pointer to that register will be // placed in the file register map. // FIXME It doesn't make any sense to initialize the por_value here! // FIXME The preferred way is to initialize all member data in their // FIXME parent's constructor. void pic_processor::add_sfr_register(Register *reg, unsigned int addr, RegisterValue por_value, const char *new_name) { reg->set_cpu(this); if(addr < register_memory_size()) { if (registers[addr]) { if (registers[addr]->isa() == Register::INVALID_REGISTER) delete registers[addr]; else printf("%s 0x%x Already register %s\n", __FUNCTION__, addr, registers[addr]->name().c_str()); } #ifdef DEBUG if (addr == 0xfa1) { printf("DEBUG trace 0x%x\n", addr); } #endif registers[addr] = reg; registers[addr]->address = addr; registers[addr]->alias_mask = 0; if(new_name) registers[addr]->new_name(new_name); RegisterValue rv = getWriteTT(addr); registers[addr]->set_write_trace(rv); rv = getReadTT(addr); registers[addr]->set_read_trace(rv); } reg->value = por_value; reg->por_value = por_value; /// FIXME why are we doing this? reg->initialize(); } //------------------------------------------------------------------- // // delete_sfr_register // This both deletes the register from the registers array, // but also deletes the register class. // void pic_processor::delete_sfr_register(Register *pReg) { if (pReg) { unsigned int a = pReg->getAddress(); if (0) cout << __FUNCTION__ << " addr = 0x"<name()<getAddress(); if (a == AN_INVALID_ADDRESS) return; if (registers[a] == ppReg) delete_file_registers(a,a,true); } } //------------------------------------------------------------------- // // init_program_memory // // The purpose of this member function is to allocate memory for the // pic's code space. The 'memory_size' parameter tells how much memory // is to be allocated AND it should be an integer of the form of 2^n. // If the memory size is not of the form of 2^n, then this routine will // round up to the next integer that is of the form 2^n. // Once the memory has been allocated, this routine will initialize // it with the 'bad_instruction'. The bad_instruction is an instantiation // of the instruction class that chokes gpsim if it is executed. Note that // each processor owns its own 'bad_instruction' object. void pic_processor::init_program_memory (unsigned int memory_size) { if(verbose) cout << "Initializing program memory: 0x"<memory_size = memory_size; Processor::init_program_memory(memory_size); } void pic_processor::create_symbols () { if(verbose) cout << __FUNCTION__ << " register memory size = " << register_memory_size() << '\n'; for(unsigned int i = 0; iisa()) { case Register::SFR_REGISTER: //if(!symbol_table.find((char *)registers[i]->name().c_str())) // symbol_table.add_register(registers[i]); // addSymbol(registers[i]); break; default: break; } } pc->set_description("Program Counter"); // Fixme put this in the pc constructor. addSymbol(pc); addSymbol(&wdt); } //------------------------------------------------------------------- bool pic_processor::set_config_word(unsigned int address,unsigned int cfg_word) { int i = get_config_index(address); if ( i >= 0) { m_configMemory->getConfigWord(i)->set((int)cfg_word); if (i == 0 && config_modes) { config_word = cfg_word; config_modes->config_mode = (config_modes->config_mode & ~7) | (cfg_word & 7); } return true; } return false; } unsigned int pic_processor::get_config_word(unsigned int address) { int i; if ((i = get_config_index(address)) >= 0) return m_configMemory->getConfigWord(i)->getVal(); return 0xffffffff; } int pic_processor::get_config_index(unsigned int address) { if (m_configMemory) { for(int i = 0; i < m_configMemory->getnConfigWords(); i++) { if (m_configMemory->getConfigWord(i)) { if (m_configMemory->getConfigWord(i)->ConfigWordAdd() == address) { return i; } } } } return -1; } //------------------------------------------------------------------- // // load_hex // bool pic_processor::LoadProgramFile(const char *pFilename, FILE *pFile, const char *pProcessorName) { Processor * pProcessor = this; // Tries the file type based on the file extension first. // If it fails tries the other type. This code will need // to change if pic_processor is moved to its own module // because then we cannot garrentee that these file types // will be the first two in the list. ProgramFileType * aFileTypes[] = { ProgramFileTypeList::GetList()[0], // IntelHexProgramFileType ProgramFileTypeList::GetList()[1] // PicCodProgramFileType }; if(IsFileExtension(pFilename,"cod")) { // If 'cod' file extension, try PicCodProgramFileType first swap(aFileTypes[0], aFileTypes[1]); } int iReturn = aFileTypes[0]->LoadProgramFile(&pProcessor, pFilename, pFile, pProcessorName); if (iReturn != ProgramFileType::SUCCESS) { fseek(pFile, 0, SEEK_SET); iReturn = aFileTypes[1]->LoadProgramFile(&pProcessor, pFilename, pFile, pProcessorName); } cout << "Leaving pic_processor::LoadProgramFile\n"; return iReturn == ProgramFileType::SUCCESS; } //------------------------------------------------------------------- //------------------------------------------------------------------- // ConfigMode // void ConfigMode::print() { if(config_mode & CM_FOSC1x) { // Internal Oscillator type processor switch(config_mode& (CM_FOSC0 | CM_FOSC1)) { // Lower two bits are the clock type case 0: cout << "LP"; break; case CM_FOSC0: cout << "XT"; break; case CM_FOSC1: cout << "Internal RC"; break; case (CM_FOSC0|CM_FOSC1): cout << "External RC"; break; } }else { switch(config_mode& (CM_FOSC0 | CM_FOSC1)) { // Lower two bits are the clock type case 0: cout << "LP"; break; case CM_FOSC0: cout << "XT"; break; case CM_FOSC1: cout << "HS"; break; case (CM_FOSC0|CM_FOSC1): cout << "RC"; break; } } cout << " oscillator\n"; if(valid_bits & CM_WDTE) cout << " WDT is " << (get_wdt() ? "enabled\n" : "disabled\n"); if(valid_bits & CM_MCLRE) cout << "MCLR is " << (get_mclre() ? "enabled\n" : "disabled\n"); if(valid_bits & CM_CP0) { if(valid_bits & CM_CP1) { cout << "CP0 is " << (get_cp0() ? "high\n" : "low\n"); cout << "CP1 is " << (get_cp1() ? "high\n" : "low\n"); } else { cout << "code protection is " << (get_cp0() ? "enabled\n" : "disabled\n"); } } } //------------------------------------------------------------------- //------------------------------------------------------------------- void ProgramMemoryAccess::callback() { if(_state) { _state = 0; //cout << __FUNCTION__ << " address= " << address << ", opcode= " << opcode << '\n'; //cpu->program_memory[address]->opcode = opcode; put_opcode(_address,_opcode); // FIXME trace.opcode_write(_address,_opcode); bp.clear_pm_write(); } } //-------------------------------------------------- WDT::WDT(pic_processor *p_cpu, double _timeout) : gpsimObject("WDT","Watch Dog Timer"), cpu(p_cpu), breakpoint(0),prescale(1), postscale(128), future_cycle(0), timeout(_timeout), wdte(false), cfgw_enable(false) { } //-------------------------------------------------- void WDT::update() { if(wdte) { // FIXME - the WDT should not be tied to the instruction counter... guint64 delta_cycles; delta_cycles = (guint64)(postscale*prescale*timeout/get_cycles().seconds_per_cycle()); if (verbose) { cout << "WDT::update timeout in " << (postscale*prescale*timeout); cout << " seconds (" << dec << delta_cycles << " cycles), "; cout << "CPU frequency " << (cpu->get_frequency()) << endl; } guint64 fc = get_cycles().get() + delta_cycles ; if(future_cycle) { if(verbose) cout << "WDT::update: moving break from " << future_cycle << " to " << fc << '\n'; get_cycles().reassign_break(future_cycle, fc, this); } else { get_cycles().set_break(fc, this); } future_cycle = fc; } } //-------------------------------------------------- // WDT::put - shouldn't be called? // void WDT::put(unsigned int new_value) { cout << "WDT::put should not be called\n"; } void WDT::set_timeout( double _timeout) { timeout = _timeout; update(); } // TMR0 prescale is WDT postscale void WDT::set_postscale(unsigned int newPostscale) { unsigned int value = 1<< newPostscale; if (verbose) cout << "WDT::set_postscale postscale = " << dec << value << endl; if (value != postscale) { postscale = value; update(); } } void WDT::swdten(bool enable) { if (cfgw_enable) return; if (wdte != enable) { wdte = enable; warned = 0; if(verbose) cout << " WDT swdten " << ( (enable) ? "enabling\n" : ", but disabling WDT\n"); if (wdte) { update(); } else { if (future_cycle) { cout << "Disabling WDT\n"; get_cycles().clear_break(this); future_cycle = 0; } } } } // For WDT period select 0-11 void WDT::set_prescale(unsigned int newPrescale) { unsigned int value = 1<< (5 + newPrescale); if (verbose) cout << "WDT::set_prescale prescale = " << dec << value << endl; if (value != prescale) { prescale = value; update(); } } void WDT::initialize(bool enable) { wdte = enable; cfgw_enable = enable; warned = 0; if(verbose) cout << " WDT init called "<< ( (enable) ? "enabling\n" :", but disabling WDT\n"); if(wdte) { update(); } else { if (future_cycle) { cout << "Disabling WDT\n"; get_cycles().clear_break(this); future_cycle = 0; } } } void WDT::reset(RESET_TYPE r) { switch (r) { case POR_RESET: case EXIT_RESET: update(); break; case MCLR_RESET: if (future_cycle) get_cycles().clear_break(this); future_cycle = 0; break; default: ; } } void WDT::set_breakpoint(unsigned int bpn) { breakpoint = bpn; } void WDT::callback() { if(wdte) { if(verbose) cout<<"WDT timeout: " << hex << get_cycles().get() << '\n'; if(breakpoint) bp.halt(); else if (cpu->is_sleeping() && cpu->exit_wdt_sleep()) { cout << "WDT expired during sleep\n"; update(); cpu->exit_sleep(); cpu->status->put_TO(0); } else { // The TO bit gets cleared when the WDT times out. cout << "WDT expired reset\n"; update(); cpu->status->put_TO(0); cpu->reset(WDT_RESET); } } } void WDT::clear() { if(wdte) update(); else if(!warned) { warned = 1; cout << "The WDT is not enabled - clrwdt has no effect!\n"; } } void WDT::callback_print() { cout << "WDT\n"; } //------------------------------------------------------------------------ // ConfigMemory - Base class ConfigWord::ConfigWord(const char *_name, unsigned int default_val, const char *desc, pic_processor *pCpu, unsigned int addr, bool EEw) : Integer(_name, default_val, desc), m_pCpu(pCpu), m_addr(addr), EEWritable(EEw) { /* if (m_pCpu) m_pCpu->addSymbol(this); */ } // this get controls the display format in the symbols window void ConfigWord::get(char *buffer, int buf_size) { if(buffer) { gint64 i; get(i); long long int j = i; snprintf(buffer,buf_size,"0x%" PRINTF_INT64_MODIFIER "x",j); } } void ConfigWord::get(gint64 &i) { Integer::get(i); } //------------------------------------------------------------------------ ConfigMemory::ConfigMemory(pic_processor *pCpu, unsigned int nWords) : m_pCpu(pCpu), m_nConfigWords(nWords) { if (nWords > 0 && nWords < 100) { m_ConfigWords = new ConfigWord *[nWords]; for (unsigned int i = 0; i < nWords; i++) m_ConfigWords[i] = 0; } } ConfigMemory::~ConfigMemory() { for (unsigned int i = 0; i < m_nConfigWords; i++) if (m_ConfigWords[i]) m_pCpu->deleteSymbol(m_ConfigWords[i]); delete [] m_ConfigWords; } int ConfigMemory::addConfigWord(unsigned int addr, ConfigWord *pConfigWord) { if (addr < m_nConfigWords) { if (m_ConfigWords[addr]) m_pCpu->deleteSymbol(m_ConfigWords[addr]); m_ConfigWords[addr] = pConfigWord; m_pCpu->addSymbol(pConfigWord); return 1; } delete pConfigWord; return 0; } ConfigWord *ConfigMemory::getConfigWord(unsigned int addr) { return addr < m_nConfigWords ? m_ConfigWords[addr] : 0; } //------------------------------------------------------------------- class MCLRPinMonitor : public PinMonitor { public: MCLRPinMonitor(pic_processor *pCpu); ~MCLRPinMonitor() {} virtual void setDrivenState(char); virtual void setDrivingState(char) {} virtual void set_nodeVoltage(double) {} virtual void putState(char) {} virtual void setDirection() {} private: pic_processor *m_pCpu; char m_cLastResetState; }; MCLRPinMonitor::MCLRPinMonitor(pic_processor *pCpu) : m_pCpu(pCpu), m_cLastResetState('I') // I is not a valid state. It's used here for 'I'nitialization { } void MCLRPinMonitor::setDrivenState(char newState) { if (newState =='0' || newState =='w') { m_cLastResetState = '0'; m_pCpu->reset(MCLR_RESET); } if (newState =='1' || newState =='W') { if (m_cLastResetState == '0') m_pCpu->reset(EXIT_RESET); m_cLastResetState = '1'; } } //------------------------------------------------------------------- void pic_processor::createMCLRPin(int pkgPinNumber) { if (m_MCLR) { cout << "BUG?: assigning multiple MCLR pins: " << __FILE__ << dec << " " << __LINE__ << endl; } if(package) { m_MCLR = new IO_open_collector("MCLR"); package->assign_pin(pkgPinNumber,m_MCLR); m_MCLRMonitor = new MCLRPinMonitor(this); m_MCLR->setMonitor(m_MCLRMonitor); } } //------------------------------------------------------------------- // This function is called instead of createMCLRPin where the pin // is already defined, but the configuration word has set the function // to MCLR void pic_processor::assignMCLRPin(int pkgPinNumber) { if (package) { if (m_MCLR == NULL) { m_MCLR_pin = pkgPinNumber; m_MCLR = new IO_open_collector("MCLR"); m_MCLR_Save = package->get_pin(pkgPinNumber); package->assign_pin(pkgPinNumber,m_MCLR, false); m_MCLRMonitor = new MCLRPinMonitor(this); m_MCLR->setMonitor(m_MCLRMonitor); m_MCLR->newGUIname("MCLR"); } else if (m_MCLR != package->get_pin(pkgPinNumber)) { cout << "BUG?: assigning multiple MCLR pins: " << dec << pkgPinNumber << " " << __FILE__ << " " << __LINE__ << endl; } } } //------------------------------------------------------------------- // This function sets the pin currently set as MCLR back to its original function void pic_processor::unassignMCLRPin() { if (package && m_MCLR_Save) { package->assign_pin(m_MCLR_pin,m_MCLR_Save, false); m_MCLR_Save->newGUIname(m_MCLR_Save->name().c_str()); if (m_MCLR) { m_MCLR->setMonitor(0); delete m_MCLR; m_MCLR = NULL; if (m_MCLRMonitor) { delete m_MCLRMonitor; m_MCLRMonitor = NULL; } } } } //-------------------------------------------------- // class IO_SignalControl : public SignalControl { public: IO_SignalControl(char _dir){ direction = _dir; } ~IO_SignalControl(){} virtual char getState() { return direction; } virtual void release() {delete this;} void setState(char _dir) { direction = _dir; } private: char direction; }; // This function sets a label on a pin and if PinMod is defined // removes its control from it's port register // void pic_processor::set_clk_pin(unsigned int pkg_Pin_Number, PinModule *PinMod, const char * name, bool in, PicPortRegister *m_port, PicTrisRegister *m_tris, PicLatchRegister *m_lat) { IO_SignalControl *clksource; IO_SignalControl *clkcontrol; IOPIN *m_pin = package->get_pin(pkg_Pin_Number); if (name) m_pin->newGUIname(name); else m_pin->newGUIname(package->get_pin_name(pkg_Pin_Number).c_str()); if (PinMod) { if (m_port) { unsigned int mask = m_port->getEnableMask(); mask &= ~(1<< PinMod->getPinNumber()); m_port->setEnableMask(mask); if (m_tris) m_tris->setEnableMask(mask); if (m_lat) m_lat->setEnableMask(mask); } clksource = new IO_SignalControl('0'); clkcontrol = new IO_SignalControl(in ? '1' : '0'); PinMod->setSource(clksource); PinMod->setControl(clkcontrol); PinMod->updatePinModule(); } } // This function reverses the effects of the previous function void pic_processor::clr_clk_pin(unsigned int pkg_Pin_Number, PinModule *PinMod, PicPortRegister *m_port, PicTrisRegister *m_tris, PicLatchRegister *m_lat) { IOPIN *m_pin = package->get_pin(pkg_Pin_Number); m_pin->newGUIname(package->get_pin_name(pkg_Pin_Number).c_str()); if (PinMod) { if (m_port) { unsigned int mask = m_port->getEnableMask(); mask |= (1<< PinMod->getPinNumber()); m_port->setEnableMask(mask); if (m_tris) m_tris->setEnableMask(mask); if (m_lat) m_lat->setEnableMask(mask); } if (PinMod->getActiveSource()) delete (PinMod->getActiveSource()); PinMod->setSource(0); if (PinMod->getActiveControl()) delete (PinMod->getActiveControl()); PinMod->setControl(0); PinMod->updatePinModule(); } } void pic_processor::osc_mode(unsigned int value) { IOPIN *m_pin; unsigned int pin_Number = get_osc_pin_Number(0); if (pin_Number < 253) { m_pin = package->get_pin(pin_Number); } if ( (pin_Number = get_osc_pin_Number(1)) < 253 && (m_pin = package->get_pin(pin_Number))) { pll_factor = 0; if (value < 5) { set_clk_pin(pin_Number, m_osc_Monitor[1], "OSC2", true); } else if(value == 6 ) { pll_factor = 2; set_clk_pin(pin_Number, m_osc_Monitor[1], "CLKO", false); } else { clr_clk_pin(pin_Number, m_osc_Monitor[1]); } } } void pic_processor::Wput(unsigned int value) { Wreg->put(value); } unsigned int pic_processor::Wget() { return Wreg->get(); } gpsim-0.27.0/src/14bit-tmrs.cc0000664000076400007640000020733512175377101012674 00000000000000/* Copyright (C) 1998 T. Scott Dattalo Copyright (C) 2006,2009,2010,2013 Roy R Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include #include #include "../config.h" #include "14bit-tmrs.h" #include "stimuli.h" #include "a2dconverter.h" // // 14bit-tmrs.cc // // Timer 1&2 modules for the 14bit core pic processors. // //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("%s:%d ",__FILE__,__LINE__); printf arg; } #else #define Dprintf(arg) {} #endif //-------------------------------------------------- // CCPRL //-------------------------------------------------- CCPRL::CCPRL(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), ccprh(0), ccpcon(0), tmrl(0) { } bool CCPRL::test_compare_mode() { return tmrl && ccpcon && ccpcon->test_compare_mode(); } void CCPRL::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value); if(test_compare_mode()) start_compare_mode(); // Actually, re-start with new capture value. } void CCPRL::capture_tmr() { tmrl->get_low_and_high(); trace.raw(write_trace.get() | value.get()); //trace.register_write(address,value.get()); value.put(tmrl->value.get()); trace.raw(ccprh->write_trace.get() | ccprh->value.get()); //trace.register_write(ccprh->address,ccprh->value.get()); ccprh->value.put(tmrl->tmrh->value.get()); int c = value.get() + 256*ccprh->value.get(); if(verbose & 4) cout << "CCPRL captured: " << c << '\n'; } void CCPRL::start_compare_mode(CCPCON *ref) { int capture_value = value.get() + 256*ccprh->value.get(); if(verbose & 4) cout << "start compare mode with capture value = " << capture_value << '\n'; if ( ref ) { ccpcon = ref; } if ( ccpcon ) tmrl->set_compare_event ( capture_value, ccpcon ); else cout << "CPRL: Attempting to set a compare callback with no CCPCON\n"; } void CCPRL::stop_compare_mode() { // If this CCP is in the compare mode, then change to non-compare and cancel // the tmr breakpoint. if(test_compare_mode()) { tmrl->clear_compare_event ( ccpcon ); } ccpcon = 0; } void CCPRL::start_pwm_mode() { //cout << "CCPRL: starting pwm mode\n"; ccprh->pwm_mode = 1; } void CCPRL::stop_pwm_mode() { //cout << "CCPRL: stopping pwm mode\n"; ccprh->pwm_mode = 0; } //-------------------------------------------------- // assign_tmr - assign a new timer to the capture compare module // // This was created for the 18f family where it's possible to dynamically // choose which clock is captured during an event. // void CCPRL::assign_tmr(TMRL *ptmr) { if(ptmr) { cout << "Reassigning CCPRL clock source\n"; tmrl = ptmr; } } //-------------------------------------------------- // CCPRH //-------------------------------------------------- CCPRH::CCPRH(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), ccprl(0),pwm_mode(0),pwm_value(0) { } // put_value allows PWM code to put data void CCPRH::put_value(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value); } void CCPRH::put(unsigned int new_value) { //cout << "CCPRH put \n"; if(pwm_mode == 0) // In pwm_mode, CCPRH is a read-only register. { put_value(new_value); if(ccprl && ccprl->test_compare_mode()) ccprl->start_compare_mode(); // Actually, re-start with new capture value. } } unsigned int CCPRH::get() { //cout << "CCPRH get\n"; trace.raw(read_trace.get() | value.get()); //trace.register_read(address, read_value); return value.get(); } //-------------------------------------------------- // //-------------------------------------------------- class CCPSignalSource : public SignalControl { public: CCPSignalSource(CCPCON *_ccp, int _index) : m_ccp(_ccp), state('?'), index(_index) { assert(m_ccp); } virtual ~CCPSignalSource() { } void setState(char m_state) { state = m_state; } virtual char getState() { return state; } virtual void release() { m_ccp->releasePins(index); } private: CCPCON *m_ccp; char state; int index; }; //-------------------------------------------------- // //-------------------------------------------------- class CCPSignalSink : public SignalSink { public: CCPSignalSink(CCPCON *_ccp, int _index) : m_ccp(_ccp), index(_index) { assert(_ccp); } virtual ~CCPSignalSink(){} virtual void release() { m_ccp->releaseSink(); } void setSinkState(char new3State) { m_ccp->new_edge( new3State=='1' || new3State=='W'); } private: CCPCON *m_ccp; int index; }; class Tristate : public SignalControl { public: Tristate() { } ~Tristate() { } char getState() { return '1'; } // set port to high impedance by setting it to input virtual void release() { } }; //-------------------------------------------------- // CCPCON //-------------------------------------------------- CCPCON::CCPCON(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), pstrcon(0), pwm1con(0), eccpas(0), m_sink(0), m_tristate(0), m_bInputEnabled(false), m_bOutputEnabled(false), m_cOutputState('?'), edges(0), bridge_shutdown(false), ccprl(0), pir(0), tmr2(0), adcon0(0) { for(int i=0; i<4; i++) { m_PinModule[i] = 0; m_source[i] = 0; source_active[i] = false; } mValidBits = 0x3f; } CCPCON::~CCPCON() { for(int i = 0; i<4; i++) { if (m_source[i]) { if ( source_active[i] && m_PinModule[i] ) { m_PinModule[i]->setSource(0); } delete m_source[i]; } } if (m_tristate) delete m_tristate; if (m_PinModule[0] && m_sink) m_PinModule[0]->removeSink(m_sink); if (m_sink) delete m_sink; } void CCPCON::setIOPin1(PinModule *p1) { if (p1 && &(p1->getPin())) { if (m_PinModule[0]) { if (m_PinModule[0] != p1) { m_PinModule[0]->removeSink(m_sink); m_PinModule[0] = p1; p1->addSink(m_sink); } } else { m_PinModule[0] = p1; m_sink = new CCPSignalSink(this, 0); m_tristate = new Tristate(); m_source[0] = new CCPSignalSource(this, 0); p1->addSink(m_sink); } } } void CCPCON::setIOPin2(PinModule *p2) { if (p2) { m_PinModule[1] = p2; if (!m_source[1]) m_source[1] = new CCPSignalSource(this, 1); } else { if (m_source[1]) { delete m_source[1]; m_source[1] = 0; } m_PinModule[1] = 0; } } // EPWM has four outputs PWM 1 void CCPCON::setIOpin(PinModule *p1, PinModule *p2, PinModule *p3, PinModule *p4) { Dprintf(("%s::setIOpin %s\n", name().c_str(), (p1 && &(p1->getPin())) ? p1->getPin().name().c_str():"unknown")); if (!&(p1->getPin())) { Dprintf(("FIXME %s::setIOpin called where p1 has unassigned pin\n", name().c_str())); return; } setIOPin1(p1); setIOPin2(p2); if (p3) { m_PinModule[2] = p3; if (!m_source[2]) m_source[2] = new CCPSignalSource(this, 2); } else { if (m_source[2]) { delete m_source[2]; m_source[2] = 0; } m_PinModule[2] = 0; } if (p4) { m_PinModule[3] = p4; if (!m_source[3]) m_source[3] = new CCPSignalSource(this, 3); } else { if (m_source[3]) { delete m_source[3]; m_source[3] = 0; } } } void CCPCON::setCrosslinks ( CCPRL *_ccprl, PIR *_pir, unsigned int _mask, TMR2 *_tmr2, ECCPAS *_eccpas ) { ccprl = _ccprl; pir = _pir; tmr2 = _tmr2; eccpas = _eccpas; pir_mask = _mask; } void CCPCON::setADCON(ADCON0 *_adcon0) { adcon0 = _adcon0; } char CCPCON::getState() { return m_bOutputEnabled ? m_cOutputState : '?'; } void CCPCON::new_edge(unsigned int level) { Dprintf(("%s::new_edge() level=%d\n",name().c_str(), level)); switch(value.get() & (CCPM3 | CCPM2 | CCPM1 | CCPM0)) { case ALL_OFF0: case ALL_OFF1: case ALL_OFF2: case ALL_OFF3: Dprintf(("--CCPCON not enabled\n")); return; case CAP_FALLING_EDGE: if (level == 0 && ccprl) { ccprl->capture_tmr(); pir->set(pir_mask); Dprintf(("--CCPCON caught falling edge\n")); } break; case CAP_RISING_EDGE: if (level && ccprl) { ccprl->capture_tmr(); pir->set(pir_mask); Dprintf(("--CCPCON caught rising edge\n")); } break; case CAP_RISING_EDGE4: if (level && --edges <= 0) { ccprl->capture_tmr(); pir->set(pir_mask); edges = 4; Dprintf(("--CCPCON caught 4th rising edge\n")); } //else cout << "Saw rising edge, but skipped\n"; break; case CAP_RISING_EDGE16: if (level && --edges <= 0) { ccprl->capture_tmr(); pir->set(pir_mask); edges = 16; Dprintf(("--CCPCON caught 4th rising edge\n")); } //else cout << "Saw rising edge, but skipped\n"; break; case COM_SET_OUT: case COM_CLEAR_OUT: case COM_INTERRUPT: case COM_TRIGGER: case PWM0: case PWM1: case PWM2: case PWM3: //cout << "CCPCON is set up as an output\n"; return; } } void CCPCON::compare_match() { Dprintf(("%s::compare_match()\n", name().c_str())); switch(value.get() & (CCPM3 | CCPM2 | CCPM1 | CCPM0)) { case ALL_OFF0: case ALL_OFF1: case ALL_OFF2: case ALL_OFF3: Dprintf(("-- CCPCON not enabled\n")); return; case CAP_FALLING_EDGE: case CAP_RISING_EDGE: case CAP_RISING_EDGE4: case CAP_RISING_EDGE16: Dprintf(("-- CCPCON is programmed for capture. bug?\n")); break; case COM_SET_OUT: m_cOutputState = '1'; m_source[0]->setState('1'); m_PinModule[0]->updatePinModule(); if (pir) pir->set(pir_mask); Dprintf(("-- CCPCON setting compare output to 1\n")); break; case COM_CLEAR_OUT: m_cOutputState = '0'; m_source[0]->setState('0'); m_PinModule[0]->updatePinModule(); if (pir) pir->set(pir_mask); Dprintf(("-- CCPCON setting compare output to 0\n")); break; case COM_INTERRUPT: if (pir) pir->set(pir_mask); Dprintf(("-- CCPCON setting interrupt\n")); break; case COM_TRIGGER: if (ccprl) ccprl->tmrl->clear_timer(); if (pir) pir->set(pir_mask); if(adcon0) adcon0->start_conversion(); Dprintf(("-- CCPCON triggering an A/D conversion ccprl %p\n", ccprl)); break; case PWM0: case PWM1: case PWM2: case PWM3: //cout << "CCPCON is set up as an output\n"; return; } } // handle dead-band delay in half-bridge mode void CCPCON::callback() { if(delay_source0) { m_source[0]->setState('1'); m_PinModule[0]->updatePinModule(); delay_source0 = false; } if(delay_source1) { m_source[1]->setState('1'); m_PinModule[1]->updatePinModule(); delay_source1 = false; } } void CCPCON::releaseSink() { delete m_sink; m_sink = 0; } void CCPCON::releasePins(int i) { if (m_PinModule[i]) { if (m_source[i]) { delete m_source[i]; m_source[i] = 0; } m_PinModule[i] = 0; } } void CCPCON::pwm_match(int level) { unsigned int new_value = value.get(); Dprintf(("%s::pwm_match() level=%d\n", name().c_str(), level)); // if the level is 1, then tmr2 == pr2 and the pwm cycle // is starting over. In which case, we need to update the duty // cycle by reading ccprl and the ccp X & Y and caching them // in ccprh's pwm slave register. if(level == 1) { // Auto shutdown comes off at start of PWM if ECCPASE clear if (bridge_shutdown && (!eccpas || !(eccpas->get_value() & ECCPAS::ECCPASE))) { Dprintf(("bridge_shutdown=%d eccpas=%p ECCPAS=%x\n", bridge_shutdown, eccpas, eccpas ? eccpas->get_value() & ECCPAS::ECCPASE: 0)); for(int i = 0; i < 4; i++) { if(m_PinModule[i]) { m_PinModule[i]->setControl(0); //restore default pin direction m_PinModule[i]->updatePinModule(); } } bridge_shutdown = false; } ccprl->ccprh->pwm_value = ((value.get()>>4) & 3) | 4*ccprl->value.get(); tmr2->pwm_dc(ccprl->ccprh->pwm_value, address); ccprl->ccprh->put_value(ccprl->value.get()); } if( !pwm1con) { // simple PWM if (bridge_shutdown == false) // some processors use shutdown and simple PWM { m_cOutputState = level ? '1' : '0'; m_source[0]->setState(level ? '1' : '0'); m_PinModule[0]->setSource(m_source[0]); source_active[0] = true; if(level && !ccprl->ccprh->pwm_value) // if duty cycle == 0 output stays low m_source[0]->setState('0'); m_PinModule[0]->updatePinModule(); //cout << "iopin should change\n"; } } else // EPWM { if (!bridge_shutdown) drive_bridge(level, new_value); } } // // Drive PWM bridge // void CCPCON::drive_bridge(int level, int new_value) { unsigned int pstrcon_value; // pstrcon allows port steering for "single output" // if it is not defined, just use the first port if (pstrcon) pstrcon_value = pstrcon->value.get(); else pstrcon_value = 1; int pwm_width; int delay = pwm1con->value.get() & ~PWM1CON::PRSEN; bool active_high[4]; switch (new_value & (CCPM3|CCPM2|CCPM1|CCPM0)) { case PWM0: //P1A, P1C, P1B, P1D active high active_high[0] = true; active_high[1] = true; active_high[2] = true; active_high[3] = true; break; case PWM1: // P1A P1C active high P1B P1D active low active_high[0] = true; active_high[1] = false; active_high[2] = true; active_high[3] = false; break; case PWM2: // P1A P1C active low P1B P1D active high active_high[0] = false; active_high[1] = true; active_high[2] = false; active_high[3] = true; break; case PWM3: // //P1A, P1C, P1B, P1D active low active_high[0] = false; active_high[1] = false; active_high[2] = false; active_high[3] = false; break; default: cout << "not pwm mode. bug?\n"; return; break; } switch((new_value & (P1M1|P1M0))>>6) // ECCP bridge mode { case 0: // Single Dprintf(("Single bridge pstrcon=0x%x\n", pstrcon_value)); for (int i = 0; i <4; i++) { if (pstrcon_value & (1<setSource(m_source[i]); source_active[i] = true; // follow level except where duty cycle = 0 if (level && ccprl->ccprh->pwm_value) m_source[i]->setState(active_high[i]?'1':'0'); else m_source[i]->setState(active_high[i]?'0':'1'); m_PinModule[i]->updatePinModule(); } else if (m_PinModule[i]) { m_PinModule[i]->setSource(0); source_active[i] = false; } } break; case 2: // Half-Bridge Dprintf(("half-bridge\n")); m_PinModule[0]->setSource(m_source[0]); source_active[0] = true; m_PinModule[1]->setSource(m_source[1]); source_active[1] = true; m_PinModule[2]->setSource(0); source_active[2] = false; m_PinModule[3]->setSource(0); source_active[3] = false; delay_source0 = false; delay_source1 = false; // FIXME need to add deadband // follow level except where duty cycle = 0 pwm_width = level ? ccprl->ccprh->pwm_value : ((tmr2->pr2->value.get()+1)*4)-ccprl->ccprh->pwm_value; if (!(level^active_high[0]) && ccprl->ccprh->pwm_value) { // No delay, change state if (delay == 0) m_source[0]->setState('1'); else if (delay < pwm_width) // there is a delay { future_cycle = get_cycles().get() + delay; get_cycles().set_break(future_cycle, this); delay_source0 = true; } } else { m_source[0]->setState('0'); } if (!(level^active_high[1]) && ccprl->ccprh->pwm_value) { m_source[1]->setState('0'); } else { // No delay, change state if (delay == 0) m_source[1]->setState('1'); else if (delay < pwm_width) // there is a delay { future_cycle = get_cycles().get() + delay; get_cycles().set_break(future_cycle, this); delay_source1 = true; } } m_PinModule[0]->updatePinModule(); m_PinModule[1]->updatePinModule(); break; case 1: // Full bidge Forward Dprintf(("full-bridge, forward\n")); m_PinModule[0]->setSource(m_source[0]); m_PinModule[1]->setSource(m_source[1]); m_PinModule[2]->setSource(m_source[2]); m_PinModule[3]->setSource(m_source[3]); source_active[0] = true; source_active[1] = true; source_active[2] = true; source_active[3] = true; // P1D toggles if (level && ccprl->ccprh->pwm_value) m_source[3]->setState(active_high[3]?'1':'0'); else m_source[3]->setState(active_high[3]?'0':'1'); // P1A High (if active high) m_source[0]->setState(active_high[0]?'1':'0'); // P1B, P1C low (if active high) m_source[1]->setState(active_high[1]?'0':'1'); m_source[2]->setState(active_high[2]?'0':'1'); m_PinModule[0]->updatePinModule(); m_PinModule[1]->updatePinModule(); m_PinModule[2]->updatePinModule(); m_PinModule[3]->updatePinModule(); break; case 3: // Full bridge reverse Dprintf(("full-bridge reverse\n")); m_PinModule[0]->setSource(m_source[0]); m_PinModule[1]->setSource(m_source[1]); m_PinModule[2]->setSource(m_source[2]); m_PinModule[3]->setSource(m_source[3]); source_active[0] = true; source_active[1] = true; source_active[2] = true; source_active[3] = true; // P1B toggles if (level && ccprl->ccprh->pwm_value) m_source[1]->setState(active_high[1]?'1':'0'); else m_source[1]->setState(active_high[1]?'0':'1'); // P1C High (if active high) m_source[2]->setState(active_high[2]?'1':'0'); // P1A, P1D low (if active high) m_source[0]->setState(active_high[0]?'0':'1'); m_source[3]->setState(active_high[3]?'0':'1'); m_PinModule[0]->updatePinModule(); m_PinModule[1]->updatePinModule(); m_PinModule[2]->updatePinModule(); m_PinModule[3]->updatePinModule(); break; default: printf("%s::pwm_match impossible ECCP bridge mode\n", name().c_str()); break; } } // // Set PWM bridge into shutdown mode // void CCPCON::shutdown_bridge(int eccpas) { bridge_shutdown = true; Dprintf(("eccpas=0x%x\n", eccpas)); switch(eccpas & (ECCPAS::PSSBD0 | ECCPAS::PSSBD1)) { case 0: // B D output 0 if (m_source[1]) m_source[1]->setState('0'); if (m_source[3]) m_source[3]->setState('0'); break; case 1: // B, D output 1 if (m_source[1]) m_source[1]->setState('1'); if (m_source[3]) m_source[3]->setState('1'); break; default: // Tristate B & D if(m_PinModule[1]) m_PinModule[1]->setControl(m_tristate); if(m_PinModule[3]) m_PinModule[3]->setControl(m_tristate); break; } switch(eccpas & ((ECCPAS::PSSAC0 | ECCPAS::PSSAC1) >> 2)) { case 0: // A, C output 0 m_source[0]->setState('0'); if (m_source[2]) m_source[2]->setState('0'); break; case 1: // A, C output 1 m_source[0]->setState('1'); if (m_source[2]) m_source[2]->setState('1'); break; default: // Tristate A & C m_PinModule[0]->setControl(m_tristate); if(m_PinModule[2]) m_PinModule[2]->setControl(m_tristate); break; } m_PinModule[0]->updatePinModule(); if (m_PinModule[1]) m_PinModule[1]->updatePinModule(); if (m_PinModule[2]) m_PinModule[2]->updatePinModule(); if (m_PinModule[3]) m_PinModule[3]->updatePinModule(); } void CCPCON::put(unsigned int new_value) { unsigned int old_value = value.get(); new_value &= mValidBits; Dprintf(("%s::put() new_value=0x%x\n",name().c_str(), new_value)); trace.raw(write_trace.get() | value.get()); value.put(new_value); if (!ccprl || !tmr2) return; bool oldbInEn = m_bInputEnabled; bool oldbOutEn = m_bOutputEnabled; switch(value.get() & (CCPM3 | CCPM2 | CCPM1 | CCPM0)) { case ALL_OFF0: case ALL_OFF1: case ALL_OFF2: case ALL_OFF3: if (ccprl) { ccprl->stop_compare_mode(); ccprl->stop_pwm_mode(); } if (tmr2) tmr2->stop_pwm(address); m_bInputEnabled = false; m_bOutputEnabled = false; // RP - According to 16F87x data sheet section 8.2.1 clearing CCPxCON also clears the latch m_cOutputState = '0'; m_source[0]->setState('0'); break; case CAP_FALLING_EDGE: case CAP_RISING_EDGE: edges = 0; ccprl->stop_compare_mode(); ccprl->stop_pwm_mode(); tmr2->stop_pwm(address); m_bInputEnabled = true; m_bOutputEnabled = false; break; case CAP_RISING_EDGE4: edges &= 3; ccprl->stop_compare_mode(); ccprl->stop_pwm_mode(); tmr2->stop_pwm(address); m_bInputEnabled = true; m_bOutputEnabled = false; break; case CAP_RISING_EDGE16: ccprl->stop_compare_mode(); ccprl->stop_pwm_mode(); tmr2->stop_pwm(address); m_bInputEnabled = true; m_bOutputEnabled = false; break; case COM_SET_OUT: case COM_CLEAR_OUT: m_bOutputEnabled = true; case COM_INTERRUPT: case COM_TRIGGER: ccprl->start_compare_mode(this); ccprl->stop_pwm_mode(); tmr2->stop_pwm(address); // RP - just writing CCP2CON doesn't trigger the ADC; that only happens on a match //if(adcon0) // adcon0->start_conversion(); m_bInputEnabled = false; //if(adcon0) cout << "CCP triggering an A/D\n"; break; case PWM0: case PWM1: case PWM2: case PWM3: ccprl->stop_compare_mode(); /* do this when TMR2 == PR2 ccprl->start_pwm_mode(); tmr2->pwm_dc( ccprl->ccprh->pwm_value, address); */ m_bInputEnabled = false; m_bOutputEnabled = false; // this is done in pwm_match m_cOutputState = '0'; if ((old_value & P1M0) && (new_value & P1M0)) // old and new full-bridge { // need to adjust timer if P1M1 also changed Dprintf(("full bridge repeat old=0x%x new=%x\n", old_value, new_value)); } else pwm_match(2); return; break; } if (oldbOutEn != m_bOutputEnabled && m_PinModule) { if (m_bOutputEnabled) { m_PinModule[0]->setSource(m_source[0]); source_active[0] = true; } else { m_PinModule[0]->setSource(0); m_source[0]->setState('?'); source_active[0] = false; } } if ((oldbInEn != m_bInputEnabled || oldbOutEn != m_bOutputEnabled) && m_PinModule[0]) m_PinModule[0]->updatePinModule(); } bool CCPCON::test_compare_mode() { switch(value.get() & (CCPM3 | CCPM2 | CCPM1 | CCPM0)) { case ALL_OFF0: case ALL_OFF1: case ALL_OFF2: case ALL_OFF3: case CAP_FALLING_EDGE: case CAP_RISING_EDGE: case CAP_RISING_EDGE4: case CAP_RISING_EDGE16: case PWM0: case PWM1: case PWM2: case PWM3: return false; break; case COM_SET_OUT: case COM_CLEAR_OUT: case COM_INTERRUPT: case COM_TRIGGER: return true; break; } return false; } // Attribute for frequency of external Timer1 oscillator class TMR1_Freq_Attribute : public Float { public: TMR1_Freq_Attribute(Processor * _cpu, double freq); virtual void set(double d); double get_freq(); private: Processor * cpu; }; TMR1_Freq_Attribute::TMR1_Freq_Attribute(Processor * _cpu, double freq) : Float("tmr1_freq",freq, " Tmr1 oscillator frequency."), cpu(_cpu) { } double TMR1_Freq_Attribute::get_freq() { double d; Float::get(d); return(d); } void TMR1_Freq_Attribute::set(double d) { Float::set ( d ); } //-------------------------------------------------- // T1CON //-------------------------------------------------- T1CON::T1CON(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), tmrl(0) { pCpu->addSymbol(freq_attribute = new TMR1_Freq_Attribute(pCpu, 32768.)); new_name("T1CON"); } T1CON::~T1CON() { delete freq_attribute; } void T1CON::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); //trace.register_write(address,value.get()); unsigned int diff = value.get() ^ new_value; value.put(new_value); if (!tmrl) return; // First, check the tmr1 clock source bit to see if we are changing from // internal to external (or vice versa) clocks. if( diff & (TMR1CS | T1OSCEN)) tmrl->new_clock_source(); if( diff & TMR1ON) tmrl->on_or_off(value.get() & TMR1ON); else if( diff & (T1CKPS0 | T1CKPS1 | TMR1GE | T1GINV)) tmrl->update(); } unsigned int T1CON::get() { trace.raw(read_trace.get() | value.get()); //trace.register_read(address,value.get()); return(value.get()); } unsigned int T1CON::get_prescale() { return( ((value.get() &(T1CKPS0 | T1CKPS1)) >> 4) ); } //-------------------------------------------------- // //-------------------------------------------------- // // Signal T1GCon on change of state of Gate pin // class T1GCon_GateSignalSink : public SignalSink { public: T1GCon_GateSignalSink(T1GCON *_t1gcon) : m_t1gcon(_t1gcon) { assert(_t1gcon); } virtual ~T1GCon_GateSignalSink() { } virtual void release() { } virtual void setSinkState(char new3State) { m_t1gcon->IO_gate( new3State=='1' || new3State=='W'); } private: T1GCON *m_t1gcon; }; T1GCON::T1GCON(Processor *pCpu, const char *pName, const char *pDesc, T1CON_G *_t1con_g) : sfr_register(pCpu, pName, pDesc), sink(0), write_mask(0xfb), tmrl(0), t1con_g(_t1con_g), IO_gate_state(false), T0_gate_state(false), CM1_gate_state(false), CM2_gate_state(false), last_t1g_in(false), gate_pin(0) { } T1GCON::~T1GCON() { if(sink) { delete sink; } } void T1GCON::put(unsigned int new_value) { unsigned int old_value = value.get(); new_value = (new_value & write_mask) | (old_value & ~write_mask); unsigned int diff = new_value ^ old_value; bool t1ggo = new_value & T1GGO; assert(pir_set); assert(tmrl); if (!diff) return; trace.raw(write_trace.get() | value.get()); value.put(new_value); if (diff & (T1GSS1 | T1GSS0 | T1GPOL)) { switch(new_value & (T1GSS1 | T1GSS0)) { case 0: IO_gate(IO_gate_state); break; case 1: T0_gate(T0_gate_state); break; case 2: CM1_gate(CM1_gate_state); break; case 3: CM2_gate(CM2_gate_state); break; } // Dont't allow gate change to clear new T1GG0 if((diff & T1GGO) && t1ggo) value.put(value.get() | T1GGO); } if (diff & T1GTM) { if ((value.get() & T1GTM) && t1con_g->get_tmr1on()) // T1GTM going high, set t1g_in to 0 { if(value.get() & T1GVAL) { value.put(value.get() & ~(T1GVAL|T1GGO)); pir_set->set_tmr1gif(); tmrl->IO_gate(false); // Counting should be stopped } } } tmrl->update(); } void T1GCON::setGatepin(PinModule *pin) { if (pin != gate_pin) { if(sink) { gate_pin->removeSink(sink); } else sink = new T1GCon_GateSignalSink(this); gate_pin = pin; Dprintf(("T1GCON::setGatepin %s\n", pin->getPin().name().c_str())); pin->addSink(sink); } } // The following 4 functions are called on a state change. // They pass the state to new_gate if that input is selected. void T1GCON::IO_gate(bool state) { IO_gate_state = state; if((value.get() & (T1GSS0|T1GSS1)) == 0) new_gate(state); } void T1GCON::T0_gate(bool state) { T0_gate_state = state; if((value.get() & (T1GSS0|T1GSS1)) == 1) new_gate(state); } void T1GCON::CM1_gate(bool state) { CM1_gate_state = state; if((value.get() & (T1GSS0|T1GSS1)) == 2) new_gate(state); } void T1GCON::CM2_gate(bool state) { CM2_gate_state = state; if((value.get() & (T1GSS0|T1GSS1)) == 3) new_gate(state); } void T1GCON::new_gate(bool state) { // TMR1 counts when state low (unless t1gpol is set) // t1g_in is inverted as per XOR in spec sheet flow chart bool t1g_in = (!get_t1GPOL()) ^ state ; bool t1g_val = value.get() & T1GVAL; unsigned int reg_value = value.get(); if (t1g_in == last_t1g_in) // no state change, do nothing { // tmrl->IO_gate(t1g_val); return; } last_t1g_in = t1g_in; if ( reg_value & T1GTM) // Toggle mode { t1g_val = reg_value & T1GVAL; if (t1g_in) // rising edge { t1g_val = ! t1g_val; // t1gval changes state } t1g_in = !t1g_val; } else // Gate directly in control { t1g_val = t1g_in; } if (reg_value & T1GSPM) // Single pulse mode { if (!(reg_value & T1GGO)) // do nothing if T1GGO clear return; if (!t1g_in) // End of gate { reg_value &= ~T1GGO; //set done } t1g_val = t1g_in; } if (t1g_val) { reg_value |= T1GVAL; } else { if (reg_value & T1GVAL) // interrupt on T1GVAL negative edge { pir_set->set_tmr1gif(); } reg_value &= ~T1GVAL; } value.put(reg_value); // get_t1GINV is set to true so t1g_val active high works OK tmrl->IO_gate(t1g_val); } //-------------------------------------------------- // T1CON_G //-------------------------------------------------- T1CON_G::T1CON_G(Processor *pCpu, const char *pName, const char *pDesc) //: sfr_register(pCpu, pName, pDesc), : T1CON(pCpu, pName, pDesc), tmrl(0), t1gcon(pCpu, "t1gcon", "TM1 Gate Control Register", this) { pCpu->addSymbol(freq_attribute = new TMR1_Freq_Attribute(pCpu, 32768.)); new_name("T1CON"); } T1CON_G::~T1CON_G() { delete freq_attribute; } void T1CON_G::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); //trace.register_write(address,value.get()); unsigned int diff = value.get() ^ new_value; value.put(new_value); if (!tmrl) return; // First, check the tmr1 clock source bit to see if we are changing from // internal to external (or vice versa) clocks. if( diff & (TMR1CS0 | TMR1CS1 | T1OSCEN)) tmrl->new_clock_source(); if( diff & TMR1ON) tmrl->on_or_off(value.get() & TMR1ON); else if( diff & (T1CKPS0 | T1CKPS1 )) tmrl->update(); } // If Cap. sensing oscillator T1 clock source, pass to T1 void T1CON_G::t1_cap_increment() { if (get_tmr1cs() == 3) // T1 input Cap. sensing oscillator tmrl->increment(); } //-------------------------------------------------- // member functions for the TMRH base class //-------------------------------------------------- TMRH::TMRH(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), tmrl(0) { value.put(0); new_name("TMRH"); } void TMRH::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); //trace.register_write(address,value.get()); if(!tmrl) { value.put(new_value & 0xff); return; } tmrl->set_ext_scale(); value.put(new_value & 0xff); tmrl->synchronized_cycle = get_cycles().get(); tmrl->last_cycle = tmrl->synchronized_cycle - (gint64)((tmrl->value.get() + (value.get()<<8) * tmrl->prescale * tmrl->ext_scale) +0.5); if(tmrl->t1con->get_tmr1on()) tmrl->update(); } unsigned int TMRH::get() { trace.raw(read_trace.get() | value.get()); return get_value(); } // For the gui and CLI unsigned int TMRH::get_value() { // If the TMR1 is being read immediately after being written, then // it hasn't had enough time to synchronize with the PIC's clock. if(get_cycles().get() <= tmrl->synchronized_cycle) return value.get(); // If the TMR is not running then return. if(!tmrl->t1con->get_tmr1on()) return value.get(); tmrl->current_value(); return(value.get()); } //-------------------------------------------------- // //-------------------------------------------------- class TMRl_GateSignalSink : public SignalSink { public: TMRl_GateSignalSink(TMRL *_tmr1l) : m_tmr1l(_tmr1l) { assert(_tmr1l); } virtual void release() { delete this; } void setSinkState(char new3State) { m_tmr1l->IO_gate( new3State=='1' || new3State=='W'); } private: TMRL *m_tmr1l; }; //-------------------------------------------------- // trivial class to represent a compare event reference //-------------------------------------------------- class TMR1CapComRef { public: TMR1CapComRef * next; CCPCON * ccpcon; unsigned int value; TMR1CapComRef ( CCPCON * c, unsigned int v ) : ccpcon(c), value(v) {}; }; //-------------------------------------------------- // member functions for the TMRL base class //-------------------------------------------------- TMRL::TMRL(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), m_cState('?'), m_GateState(false), m_compare_GateState(true), m_io_GateState(true), m_bExtClkEnabled(false), m_sleeping(false), m_t1gss(true), m_Interrupt(0) { value.put(0); synchronized_cycle=0; prescale_counter=prescale=1; break_value = 0x10000; last_cycle = 0; future_cycle = 0; ext_scale = 1.; tmrh = 0; t1con = 0; compare_queue = 0; } TMRL::~TMRL() { if (m_Interrupt) m_Interrupt->release(); } /* * If we are similating an external RTC crystal for timer1, * compute scale factor between crsytal speed and processor * instruction cycle rate * * If tmr1cs = 1 Fosc is 4 x normal speed so reduce ticks by 1/4 */ void TMRL::set_ext_scale() { current_value(); if (t1con->get_t1oscen() && (t1con->get_tmr1cs() == 2)) // external clock { ext_scale = get_cycles().instruction_cps()/ t1con->freq_attribute->get_freq(); } else if (t1con->get_tmr1cs() == 1) // Fosc ext_scale = 0.25; else ext_scale = 1.; if (future_cycle) { last_cycle = get_cycles().get() - (gint64)(value_16bit *( prescale * ext_scale) + 0.5); } } void TMRL::release() { } void TMRL::setIOpin(PinModule *extClkSource) { Dprintf(("%s::setIOpin %s\n", name().c_str(), extClkSource?extClkSource->getPin().name().c_str():"")); Dprintf(("TMRL::setIOpin\n")); if (extClkSource) extClkSource->addSink(this); } void TMRL::setSinkState(char new3State) { if (new3State != m_cState) { m_cState = new3State; if (m_bExtClkEnabled && (m_cState == '1' || m_cState == 'W')) increment(); } } void TMRL::set_compare_event ( unsigned int value, CCPCON *host ) { TMR1CapComRef * event = compare_queue; if ( host ) { while ( event ) { if ( event->ccpcon == host ) { event->value = value; update(); return; } event = event->next; } event = new TMR1CapComRef ( host, value ); event->next = compare_queue; compare_queue = event; update(); } else cout << "TMRL::set_compare_event called with no CAPCOM\n"; } void TMRL::clear_compare_event ( CCPCON *host ) { TMR1CapComRef * event = compare_queue; TMR1CapComRef * * eptr = &compare_queue; while ( event ) { if ( event->ccpcon == host ) { *eptr = event->next; delete event; update(); return; } eptr = &event->next; event = event->next; } } void TMRL::setGatepin(PinModule *extGateSource) { Dprintf(("TMRL::setGatepin\n")); if (extGateSource) extGateSource->addSink(new TMRl_GateSignalSink(this)); } void TMRL::set_T1GSS(bool arg) { m_t1gss = arg; if (m_t1gss) IO_gate(m_io_GateState); else compare_gate(m_compare_GateState); } void TMRL::compare_gate(bool state) { m_compare_GateState = state; if (!m_t1gss && m_GateState != state) { m_GateState = state; Dprintf(("TMRL::compare_gate state %d \n", state)); if (t1con->get_tmr1GE()) { update(); } } } void TMRL::IO_gate(bool state) { m_io_GateState = state; if (m_t1gss && (m_GateState != state)) { m_GateState = state; Dprintf(("TMRL::IO_gate state %d \n", state)); if (t1con->get_tmr1GE()) { update(); } } } //------------------------------------------------------------ // setInterruptSource() // // This Timer can be an interrupt source. When the interrupt // needs to be generated, then the InterruptSource object will // direct the interrupt to where it needs to go (usually this // is the Peripheral Interrupt Register). void TMRL::setInterruptSource(InterruptSource *_int) { m_Interrupt = _int; } void TMRL::increment() { Dprintf(("TMRL increment because of external clock\n")); if(--prescale_counter == 0) { prescale_counter = prescale; // In synchronous counter mode prescaler works but rest of tmr1 does not if (t1con->get_t1sync() == 0 && m_sleeping) return; // prescaler works but rest of timer turned off if (!t1con->get_tmr1on()) return; // If TMRH/TMRL have been manually changed, we'll want to // get the up-to-date values; trace.raw(write_trace.get() | value.get()); //trace.register_write(address,value.get()); current_value(); value_16bit = 0xffff & ( value_16bit + 1); tmrh->value.put((value_16bit >> 8) & 0xff); value.put(value_16bit & 0xff); if(value_16bit == 0 && m_Interrupt) { if (verbose & 4) cout << "TMRL:increment interrupt now=" << dec << get_cycles().get() << " value_16bit " << value_16bit << endl; m_Interrupt->Trigger(); } } } void TMRL::on_or_off(int new_state) { if(new_state) { Dprintf(("TMR1 is being turned on\n")); // turn on the timer // Effective last cycle // Compute the "effective last cycle", i.e. the cycle // at which TMR1 was last 0 had it always been counting. last_cycle = (gint64)(get_cycles().get() - (value.get() + (tmrh->value.get()<<8)) * prescale * ext_scale + 0.5); update(); } else { Dprintf(("TMR1 is being turned off\n")); // turn off the timer and save the current value current_value(); if (future_cycle) { get_cycles().clear_break(this); future_cycle = 0; } } } // // If anything has changed to affect when the next TMR1 break point // will occur, this routine will make sure the break point is moved // correctly. // void TMRL::update() { Dprintf(("TMR1 update 0x%"PRINTF_GINT64_MODIFIER"x\n",get_cycles().get())); // The second part of the if will always be true unless TMR1 Gate enable // pin has been defined by a call to TMRL::setGatepin() // bool gate = t1con->get_t1GINV() ? m_GateState : !m_GateState; Dprintf(("TMRL::update gate %d GateState %d inv %d get_tmr1on %x tmr1GE %x tmr1cs %x t1oscen %x\n", gate, m_GateState, t1con->get_t1GINV(), t1con->get_tmr1on(), t1con->get_tmr1GE(), t1con->get_tmr1cs(), t1con->get_t1oscen())); if(t1con->get_tmr1on() && (t1con->get_tmr1GE() ? gate : true)) { switch(t1con->get_tmr1cs()) { case 0: // internal clock Fosc/4 if(verbose & 0x4) cout << "Tmr1 Internal clock\n"; break; case 1: // internal clock Fosc break; case 2: // External clock if (t1con->get_t1oscen()) // External clock enabled { /* external timer1 clock runs off a crystal which is typically 32768 Hz and is independant on the instruction clock, but gpsim runs on the instruction clock. Ext_scale is the ratio of these two clocks so the breakpoint can be adjusted to be triggered at the correct time. */ if(verbose & 0x4) cout << "Tmr1 External clock\n"; } else // External stimuli(pin) { prescale = 1 << t1con->get_prescale(); prescale_counter = prescale; set_ext_scale(); return; } break; case 3: // Cap. sensing oscillator prescale = 1 << t1con->get_prescale(); prescale_counter = prescale; set_ext_scale(); return; break; default: cout << "TMR1SC reserved value " << t1con->get_tmr1cs() << endl; break; } set_ext_scale(); // Note, unlike TMR0, anytime something is written to TMRL, the // prescaler is unaffected on the P18 processors. However, it is // reset on the p16f88 processor, which is how the current code // works. This only effects the external drive mode. prescale = 1 << t1con->get_prescale(); prescale_counter = prescale; if(verbose & 0x4) cout << "TMRL: Current prescale " << prescale << ", ext scale " << ext_scale << '\n'; // synchronized_cycle = cycles.get() + 2; synchronized_cycle = get_cycles().get(); last_cycle = synchronized_cycle - (gint64)(value_16bit *( prescale * ext_scale) + 0.5); break_value = 0x10000; // Assume that a rollover will happen first. for ( TMR1CapComRef * event = compare_queue; event; event = event->next ) { if(verbose & 0x4) cout << "compare mode on " << event->ccpcon << ", value = " << event->value << '\n'; if ( event->value > value_16bit && event->value < break_value ) { // A compare interrupt is going to happen before the timer // will rollover. break_value = event->value; } } if(verbose & 0x4) cout << "TMR1 now at " << value_16bit << ", next event at " << break_value << '\n'; guint64 fc = get_cycles().get() + (guint64)((break_value - value_16bit) * prescale * ext_scale); if(future_cycle) get_cycles().reassign_break(future_cycle, fc, this); else get_cycles().set_break(fc, this); future_cycle = fc; } else { // turn off the timer and save the current value if (future_cycle) { current_value(); get_cycles().clear_break(this); future_cycle = 0; } } } void TMRL::put(unsigned int new_value) { set_ext_scale(); trace.raw(write_trace.get() | value.get()); //trace.register_write(address,value.get()); value.put(new_value & 0xff); if (!tmrh || !t1con) return; synchronized_cycle = get_cycles().get(); last_cycle = synchronized_cycle - (gint64)(( value.get() + (tmrh->value.get()<<8)) * prescale * ext_scale + 0.5); current_value(); if(t1con->get_tmr1on()) update(); } unsigned int TMRL::get() { trace.raw(read_trace.get() | value.get()); return get_value(); } // For the gui and CLI unsigned int TMRL::get_value() { // If the TMRL is being read immediately after being written, then // it hasn't had enough time to synchronize with the PIC's clock. if(get_cycles().get() <= synchronized_cycle) return value.get(); // If TMRL is not on, then return the current value if(!t1con->get_tmr1on()) return value.get(); current_value(); return(value.get()); } //%%%FIXME%%% inline this // if break inactive (future_cycle == 0), just read the TMR1H and TMR1L // registers otherwise compute what the register should be and then // update TMR1H and TMR1L. // RP: Using future_cycle here is not strictly right. What we really want is // the condition "TMR1 is running on a GPSIM-generated clock" (as opposed // to being off, or externally clocked by a stimulus). The presence of a // breakpoint is _usually_ a good indication of this, but not while we're // actually processing that breakpoint. For the time being, we work around // this by calling current_value "redundantly" in callback() // void TMRL::current_value() { if(future_cycle == 0) value_16bit = tmrh->value.get() * 256 + value.get(); else { value_16bit = (guint64)((get_cycles().get() - last_cycle)/ (prescale* ext_scale)) & 0xffff; value.put(value_16bit & 0xff); tmrh->value.put((value_16bit>>8) & 0xff); } } unsigned int TMRL::get_low_and_high() { // If the TMRL is being read immediately after being written, then // it hasn't had enough time to synchronize with the PIC's clock. if(get_cycles().get() <= synchronized_cycle) return value.get(); current_value(); trace.raw(read_trace.get() | value.get()); trace.raw(tmrh->read_trace.get() | tmrh->value.get()); return(value_16bit); } // set m_bExtClkEnable is tmr1 is being clocked by an external stimulus void TMRL::new_clock_source() { m_bExtClkEnabled = false; current_value(); switch(t1con->get_tmr1cs()) { case 0: // Fosc/4 if(verbose & 0x4) cout << "Tmr1 Fosc/4 \n"; put(value.get()); break; case 1: // Fosc if(verbose & 0x4) cout << "Tmr1 Fosc \n"; put(value.get()); break; case 2: // External pin or crystal if(t1con->get_t1oscen()) // External crystal, simulate { if(verbose & 0x4) cout << "Tmr1 External Crystal\n"; put(value.get()); // let TMRL::put() set a cycle counter break point } else // external pin { if(verbose & 0x4) cout << "Tmr1 External Stimuli\n"; if (future_cycle) { // Compute value_16bit with old prescale and ext_scale current_value(); get_cycles().clear_break(this); future_cycle = 0; } prescale = 1 << t1con->get_prescale(); prescale_counter = prescale; set_ext_scale(); m_bExtClkEnabled = true; } break; case 3: // Capacitor sense oscillator if(verbose & 0x4) cout << "Tmr1 Cap. sensing oscillator\n"; if (future_cycle) { // Compute value_16bit with old prescale and ext_scale current_value(); get_cycles().clear_break(this); future_cycle = 0; } prescale = 1 << t1con->get_prescale(); prescale_counter = prescale; set_ext_scale(); break; } } // // clear_timer - This is called by either the CCP or PWM modules to // reset the timer to zero. This is rather easy since the current TMR // value is always referenced to the cpu cycle counter. // void TMRL::clear_timer() { synchronized_cycle = get_cycles().get(); last_cycle = synchronized_cycle; value.put(0); tmrh->value.put(0); if(verbose & 0x4) cout << "TMR1 has been cleared\n"; } // TMRL callback is called when the cycle counter hits the break point that // was set in TMRL::put. The cycle counter will clear the break point, so // we don't need to worry about it. At this point, TMRL is rolling over. void TMRL::callback() { if(verbose & 4) cout << "TMRL::callback\n"; // If TMRL is being clocked by the external clock, then at some point // the simulate code must have switched from the internal clock to // external clock. The cycle break point was still set, so just ignore it. if((t1con->get_tmr1cs() == 2) && ! t1con->get_t1oscen()) { if(verbose & 4) cout << "TMRL:callback No oscillator\n"; value.put(0); tmrh->value.put(0); future_cycle = 0; // indicates that TMRL no longer has a break point return; } current_value(); // Because this relies on future_cycle, we must call it before clearing that future_cycle = 0; // indicate that there's no break currently set if(break_value < 0x10000) { // The break was due to a "compare" if ( value_16bit != break_value ) cout << "TMR1 compare break: value=" << value_16bit << " but break_value=" << break_value << '\n'; if(verbose & 4) cout << "TMR1 break due to compare " << hex << get_cycles().get() << '\n'; for ( TMR1CapComRef * event = compare_queue; event; event = event->next ) { if ( event->value == break_value ) { // This CCP channel has a compare at this time event->ccpcon->compare_match(); } } } else { // The break was due to a roll-over //cout<<"TMRL rollover: " << hex << cycles.get() << '\n'; if (m_Interrupt) m_Interrupt->Trigger(); // Reset the timer to 0. synchronized_cycle = get_cycles().get(); last_cycle = synchronized_cycle; value.put(0); tmrh->value.put(0); } update(); } //--------------------------- void TMRL::callback_print() { cout << "TMRL " << name() << " CallBack ID " << CallBackID << '\n'; } //--------------------------- void TMRL::sleep() { m_sleeping = true; Dprintf(("TMRL::sleep t1sysc %d\n", t1con->get_t1sync())); // If tmr1 is running off Fosc/4 or Fosc this assumes Fosc stops during sleep if ( t1con->get_tmr1on() && t1con->get_tmr1cs() < 2) { if (future_cycle) { current_value(); get_cycles().clear_break(this); future_cycle = 0; } } } //--------------------------- void TMRL::wake() { m_sleeping = false; Dprintf(("TMRL::wake\n")); if ( t1con->get_tmr1on() && t1con->get_tmr1cs() < 2) { update(); } } //-------------------------------------------------- // member functions for the PR2 base class //-------------------------------------------------- PR2::PR2(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), tmr2(0) { } void PR2::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); //trace.register_write(address,value.get()); Dprintf(("PR2:: put %x\n", new_value)); if(value.get() != new_value) { if (tmr2) tmr2->new_pr2(new_value); value.put(new_value); } else value.put(new_value); } //-------------------------------------------------- // member functions for the T2CON base class //-------------------------------------------------- T2CON::T2CON(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), tmr2(0) { } void T2CON::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); unsigned int diff = value.get() ^ new_value; value.put(new_value); if (tmr2) { tmr2->new_pre_post_scale(); if( diff & TMR2ON) tmr2->on_or_off(value.get() & TMR2ON); } } //-------------------------------------------------- // member functions for the TMR2 base class //-------------------------------------------------- TMR2::TMR2(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), pwm_mode(0), update_state(TMR2_ANY_PWM_UPDATE | TMR2_PR2_UPDATE), last_update(0), prescale(1), prescale_counter(0), last_cycle(0), pr2(0), pir_set(0), t2con(0), ssp_module(0) { value.put(0); future_cycle = 0; for ( int cc=0; ccaddress ) ) { //cout << "TMR2: pwm mode with ccp1. duty cycle = " << hex << dc << '\n'; duty_cycle[cc] = dc; // Update the cycle break if this is the first time to go into pwm mode if ( (pwm_mode & modeMask) == 0 ) { pwm_mode |= modeMask; //wait for next TMR2 update update(); } found = true; } modeMask <<= 1; } if ( ! found ) { cout << "TMR2: error bad ccpxcon address while in pwm_dc()\n"; cout << "ccp_address = " << ccp_address << " expected one of"; for ( cc=0; ccaddress; cout << '\n'; } } // // stop_pwm // void TMR2::stop_pwm(unsigned int ccp_address) { int modeMask = TMR2_PWM1_UPDATE; int cc; int old_pwm = pwm_mode; for ( cc=0; ccaddress ) ) { // cout << "TMR2: stopping pwm mode with ccp" << cc+1 << ".\n"; pwm_mode &= ~modeMask; if(last_update & modeMask) update_state &= (~modeMask); } modeMask <<= 1; } if((pwm_mode ^ old_pwm) && future_cycle && t2con->get_tmr2on()) update(update_state); } // // update // This member function will determine if/when there is a TMR2 break point // that needs to be set and will set/move it if so. // There are two different types of break sources: // 1) TMR2 matching PR2 // 2) TMR2 matching one of the ccp registers in pwm mode // void TMR2::update(int ut) { int modeMask = TMR2_PWM1_UPDATE; int cc; //cout << "TMR2 update. cpu cycle " << hex << cycles.get() <<'\n'; if(t2con->get_tmr2on()) { if(future_cycle) { // If TMR2 is enabled (i.e. counting) then 'future_cycle' is non-zero, // which means there's a cycle break point set on TMR2 that needs to // be moved to a new cycle. current_value(); // Assume that we are not in pwm mode (and hence the next break will // be due to tmr2 matching pr2) break_value = 1 + pr2->value.get(); guint64 fc = get_cycles().get() + (break_value - value.get()) * prescale; last_update = TMR2_PR2_UPDATE; // RP - I strongly suspect this is now entirely redundant, as I think the // result comes out the same as above. if (pwm_mode) { fc = last_cycle + break_value * prescale; } for ( cc=0; cc (value.get()*4) ) && ( duty_cycle[cc] < break_value*4 ) ) { guint64 nc = last_cycle + ( duty_cycle[cc] * prescale ) / 4; // cout << "TMR2:PWM" << cc+1 << " update at " << hex << nc << // ", dc=" << duty_cycle[cc] << "\n"; if ( nc < fc ) /// @bug not robust against wrap-around of guint64 { last_update = modeMask; fc = nc; } else if ( nc == fc ) { last_update |= modeMask; } } } modeMask <<= 1; } if(fc < future_cycle) cout << "TMR2: update note: new breakpoint=" << hex << fc << " before old breakpoint " << future_cycle << endl; if (fc != future_cycle) { // cout << "TMR2: update new break at cycle "< TMR2 is still before the next break point. Adjust the breakpoint to occur at correct TMR2 value 2> TMR2 is now greater the PR2 Assume TMR2 must count up to 0xff, roll-over and then we are back in business. High CCP outputs stay high. 3> TMR2 is now less than PR2 but greater than a CCP duty cycle point. The CCP output stays as the duty cycle comparator does not match on this cycle. */ if (now < delta) // easy case, just shift break. { fc = last_cycle + delta; // printf ( " now < delta (0x%X), set future_cycle to 0x%" PRINTF_INT64_MODIFIER "X\n", delta, fc ); get_cycles().reassign_break(future_cycle, fc, this); future_cycle = fc; } else if (now >= break_value * prescale) // TMR2 now greater than PR2 { // set break to when TMR2 will overflow last_update |= TMR2_WRAP; fc = last_cycle + 0x100 * prescale; // printf ( " now > break (0x%X), set future_cycle to 0x%" PRINTF_INT64_MODIFIER "X\n", break_value * prescale, fc ); get_cycles().reassign_break(future_cycle, fc, this); future_cycle = fc; } else // new break < PR2 but > duty cycle break { // printf ( " new break < PR2 but > duty cycle\n" ); update(update_state); } /* 'clear' the post scale counter. (I've actually implemented the post scale counter as a count-down counter, so 'clearing it' means resetting it to the starting point. */ if (t2con) post_scale = t2con->get_post_scale(); } } unsigned int TMR2::get() { if(t2con->get_tmr2on()) { current_value(); } trace.raw(read_trace.get() | value.get()); // trace.register_read(address, value.get()); return(value.get()); } unsigned int TMR2::get_value() { if(t2con->get_tmr2on()) { current_value(); } return(value.get()); } void TMR2::new_pre_post_scale() { //cout << "T2CON was written to, so update TMR2 " << t2con->get_tmr2on() << "\n"; if(!t2con->get_tmr2on()) { // TMR2 is not on. If has just been turned off, clear the callback breakpoint. if(future_cycle) { get_cycles().clear_break(this); future_cycle = 0; } return; } unsigned int old_prescale = prescale; prescale = t2con->get_pre_scale(); post_scale = t2con->get_post_scale(); if(future_cycle) { // If TMR2 is enabled (i.e. counting) then 'future_cycle' is non-zero, // which means there's a cycle break point set on TMR2 that needs to // be moved to a new cycle. // Get the current value of TMR2 ///value = (cycles.value - last_cycle)/prescale; current_value(); //cout << "cycles " << cycles.value.lo << " old prescale " << prescale; //cout << " prescale " << prescale; if (prescale != old_prescale) // prescaler value change { // togo is number of cycles to next callback based on new prescaler. guint64 togo = (future_cycle - get_cycles().get()) * prescale / old_prescale; if (!togo) // I am not sure this can happen RRR callback(); else { guint64 fc = togo + get_cycles().get(); get_cycles().reassign_break(future_cycle, fc, this); future_cycle = fc; } } } else { //cout << "TMR2 was off, but now it's on.\n"; if (value.get() == pr2->value.get()) // TMR2 == PR2 { future_cycle = get_cycles().get(); get_cycles().set_break(future_cycle, this); callback(); } else if (value.get() > pr2->value.get()) // TMR2 > PR2 { cout << "Warning TMR2 turned on with TMR2 greater than PR2\n"; // this will cause TMR2 to wrap future_cycle = get_cycles().get() + (1 + pr2->value.get() + (0x100 - value.get())) * prescale; get_cycles().set_break(future_cycle, this); } else { future_cycle = get_cycles().get() + 1; get_cycles().set_break(future_cycle, this); last_cycle = get_cycles().get() - value.get(); update(update_state); } } } void TMR2::new_pr2(unsigned int new_value) { Dprintf(("TMR2::new_pr2 on=%d\n", t2con->get_tmr2on())); if(t2con->get_tmr2on()) { Dprintf(( "TMR2::new_pr2(0x%02X) with timer at 0x%02X -\n", new_value, value.get() )); unsigned int cur_break = (future_cycle - last_cycle)/prescale; unsigned int new_break = 1 + new_value; unsigned int now_cycle = (get_cycles().get() - last_cycle) / prescale; guint64 fc = last_cycle; Dprintf(( " cur_break = 0x%X, new_break = 0x%X, now = 0x%X\n", cur_break, new_break, now_cycle )); Dprintf(( " last_cycle = 0x%" PRINTF_INT64_MODIFIER "X\n", fc )); /* PR2 change cases 1> TMR2 greater than new PR2 TMR2 wraps through 0xff 2> New PR2 breakpoint less than current breakpoint or current break point due to PR2 Change breakpoint to new value based on PR2 3> Other breakpoint < PR2 breakpoint No need to do anything. */ if (now_cycle > new_break) // TMR2 > PR2 do wrap { // set break to when TMR2 will overflow last_update |= TMR2_WRAP; fc += 0x100 * prescale; Dprintf(( " now > new, set future_cycle to 0x%" PRINTF_INT64_MODIFIER "X\n", fc )); get_cycles().reassign_break(future_cycle, fc, this); future_cycle = fc; } else if (cur_break == break_value || // breakpoint due to pr2 new_break < cur_break) // new break less than current { fc += new_break * prescale; Dprintf(( " new 0x100) // Can get to 0x100 during transition { cout << "TMR2 BUG!! value = " << tmr2_val << " which is greater than 0xff\n"; } } // TMR2 callback is called when the cycle counter hits the break point that // was set in TMR2::put. The cycle counter will clear the break point, so // we don't need to worry about it. At this point, TMR2 is equal to PR2. void TMR2::callback() { int cc; //cout<<"TMR2 callback cycle: " << hex << cycles.value << '\n'; // If tmr2 is still enabled, then set up for the next break. // If tmr2 was disabled then ignore this break point. if(t2con->get_tmr2on()) { // What caused the callback: PR2 match or duty cyle match ? if (last_update & TMR2_WRAP) // TMR2 > PR2 { last_update &= ~TMR2_WRAP; // This (implicitly) resets the timer to zero: last_cycle = get_cycles().get(); } else if ( last_update & TMR2_ANY_PWM_UPDATE ) { int modeMask = TMR2_PWM1_UPDATE; for ( cc=0; ccpwm_match(0); else cout << "TMR2::callback() found update of non-existent CCP\n"; } modeMask <<= 1; } } else { // matches PR2 //cout << "TMR2: PR2 match. pwm_mode is " << pwm_mode <<'\n'; // This (implicitly) resets the timer to zero: last_cycle = get_cycles().get(); if (ssp_module) ssp_module->tmr2_clock(); for ( cc=0; ccvalue.get() & CCPCON::PWM0 ) == CCPCON::PWM0 ) { ccp[cc]->pwm_match(1); } } if(--post_scale < 0) { //cout << "setting IF\n"; pir_set->set_tmr2if(); post_scale = t2con->get_post_scale(); } update_state = TMR2_ANY_PWM_UPDATE | TMR2_PR2_UPDATE; } update(update_state); } else future_cycle = 0; } //------------------------------------------------------------------------ // TMR2_MODULE // // TMR2_MODULE::TMR2_MODULE() { t2con = 0; pr2 = 0; tmr2 = 0; cpu = 0; name_str = 0; } void TMR2_MODULE::initialize(T2CON *t2con_, PR2 *pr2_, TMR2 *tmr2_) { t2con = t2con_; pr2 = pr2_; tmr2 = tmr2_; } //-------------------------------------------------- // //-------------------------------------------------- class INT_SignalSink : public SignalSink { public: INT_SignalSink(ECCPAS *_eccpas, int _index) : m_eccpas(_eccpas), m_index(_index) { assert(_eccpas); } virtual void release() { delete this; } void setSinkState(char new3State) { m_eccpas->set_trig_state( m_index, new3State=='0' || new3State=='w'); } private: ECCPAS *m_eccpas; int m_index; }; //-------------------------------------------------- // ECCPAS //-------------------------------------------------- ECCPAS::ECCPAS(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), pwm1con(0), ccp1con(0), m_PinModule(0) { trig_state[0] = trig_state[1] = trig_state[2] = false; mValidBits = 0xff; } ECCPAS::~ECCPAS() { } void ECCPAS::link_registers(PWM1CON *_pwm1con, CCPCON *_ccp1con) { pwm1con = _pwm1con; ccp1con = _ccp1con; } void ECCPAS::put(unsigned int new_value) { Dprintf(("ECCPAS::put() new_value=0x%x\n",new_value)); trace.raw(write_trace.get() | value.get()); put_value(new_value); } void ECCPAS::put_value(unsigned int new_value) { int old_value = value.get(); new_value &= mValidBits; // Auto-shutdown trigger active // make sure ECCPASE is set // if change in shutdown status, drive bridge outputs as per current flags if (shutdown_trigger(new_value)) { new_value |= ECCPASE; if ((new_value ^ old_value) & (ECCPASE|PSSAC1|PSSAC0|PSSBD1|PSSBD0)) ccp1con->shutdown_bridge(new_value); } else // no Auto-shutdown triggers active { if (pwm1con->value.get() & PWM1CON::PRSEN) // clear ECCPASE bit new_value &= ~ ECCPASE; } value.put(new_value); } // Return true is shutdown trigger is active bool ECCPAS::shutdown_trigger(int key) { if ((key & ECCPAS0) && trig_state[0]) return true; if ((key & ECCPAS1) && trig_state[1]) return true; if ((key & ECCPAS2) && trig_state[2]) return true; return false; } // connect IO pins to shutdown trigger source void ECCPAS::setIOpin(PinModule *p0, PinModule *p1, PinModule *p2) { if (p0) { m_PinModule = p0; m_sink = new INT_SignalSink(this, 0); p0->addSink(m_sink); } if (p1) { m_PinModule = p1; m_sink = new INT_SignalSink(this, 1); p1->addSink(m_sink); } if (p2) { m_PinModule = p2; m_sink = new INT_SignalSink(this, 2); p2->addSink(m_sink); } } // set shutdown trigger states void ECCPAS::set_trig_state(int index, bool state) { if (trig_state[index] != state) { Dprintf(("index=%d state=%d old=%d\n", index, state, trig_state[index])); trig_state[index] = state; put_value(value.get()); } } // Trigger state from comparator 1 void ECCPAS::c1_output(int state) { set_trig_state(0, state); } // Trigger state from comparator 2 void ECCPAS::c2_output(int state) { set_trig_state(1, state); } //-------------------------------------------------- // PWM1CON //-------------------------------------------------- PWM1CON::PWM1CON(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc) { mValidBits = 0xff; } PWM1CON::~PWM1CON() { } void PWM1CON::put(unsigned int new_value) { new_value &= mValidBits; Dprintf(("PWM1CON::put() new_value=0x%x\n",new_value)); trace.raw(write_trace.get() | value.get()); value.put(new_value); } //-------------------------------------------------- // PSTRCON //-------------------------------------------------- PSTRCON::PSTRCON(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc) { } PSTRCON::~PSTRCON() { } void PSTRCON::put(unsigned int new_value) { Dprintf(("PSTRCON::put() new_value=0x%x\n",new_value)); new_value &= STRSYNC|STRD|STRC|STRB|STRA; trace.raw(write_trace.get() | value.get()); value.put(new_value); } gpsim-0.27.0/src/pir.cc0000664000076400007640000002752712127371554011566 00000000000000/* Copyright (C) 1998-2003 Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include "trace.h" #include "pir.h" #include "intcon.h" #include "processor.h" PIR::PIR(Processor *pCpu, const char *pName, const char *pDesc,INTCON *_intcon, PIE *_pie, int _valid_bits) : sfr_register(pCpu,pName,pDesc), intcon(_intcon),pie(_pie),ipr(0),valid_bits(_valid_bits),writable_bits(0) { } void PIR::put(unsigned int new_value) { // Only the "writable bits" can be written with put. // The "read-only" ones (such as TXIF) are written // through the set_/clear_ member functions. trace.raw(write_trace.get() | value.get()); //trace.register_write(address,value.get()); value.put((new_value & writable_bits) | (value.get() & ~writable_bits)); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR::set_intcon(INTCON *_intcon) { intcon = _intcon; } void PIR::set_pie(PIE *_pie) { pie = _pie; } void PIR::set_ipr(sfr_register *_ipr) { ipr = _ipr; } void PIR::setInterrupt(unsigned int bitMask) { put(value.get() | bitMask); } void PIR::setPeripheralInterrupt() { if (intcon) intcon->peripheral_interrupt ( ipr && (value.get() & valid_bits & ipr->value.get() & pie->value.get()) ); } int PIR::interrupt_status() { assert(pie); if ( ipr ) { int result = 0; if ( value.get() & valid_bits & pie->value.get() & ~(ipr->value.get()) ) result |= 1; if ( value.get() & valid_bits & pie->value.get() & ipr->value.get() ) result |= 2; return result; } else return ( value.get() & valid_bits & pie->value.get() ) ? 1 : 0; } //======================================================================== InterruptSource::InterruptSource(PIR *_pir, unsigned int bitMask) : m_pir(_pir), m_bitMask(bitMask) { assert(m_pir); // Only one bit in the bit mask should be set. assert(m_bitMask && ((m_bitMask & (m_bitMask-1)) == 0)); } void InterruptSource::Trigger() { m_pir->setInterrupt(m_bitMask); } void InterruptSource::release() { delete this; } //------------------------------------------------------------------------ PIR1v1::PIR1v1(Processor *pCpu, const char *pName, const char *pDesc,INTCON *_intcon, PIE *_pie) : PIR(pCpu,pName,pDesc,_intcon, _pie,0) { // Even though TXIF is a valid bit, it can't be written by the PIC // source code. Its state reflects whether the usart txreg is full // or not. Similarly for RCIF valid_bits = TMR1IF | TMR2IF | CCP1IF | SSPIF | TXIF | RCIF | CMIF | EEIF; writable_bits = TMR1IF | TMR2IF | CCP1IF | SSPIF | CMIF | EEIF; } void PIR1v1::clear_sspif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() & ~SSPIF); } void PIR1v1::set_txif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | TXIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR1v1::clear_txif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() & ~TXIF); } void PIR1v1::set_rcif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | RCIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR1v1::clear_rcif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() & ~RCIF); } void PIR1v1::set_cmif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | CMIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR1v1::set_eeif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | EEIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } //------------------------------------------------------------------------ // PIR1v2::PIR1v2(Processor *pCpu, const char *pName, const char *pDesc,INTCON *_intcon, PIE *_pie) : PIR(pCpu,pName,pDesc,_intcon, _pie,0) { // Even though TXIF is a valid bit, it can't be written by the PIC // source code. Its state reflects whether the usart txreg is full // or not. Similarly for RCIF valid_bits = TMR1IF | TMR2IF | CCP1IF | SSPIF | TXIF | RCIF | ADIF | PSPIF; writable_bits = TMR1IF | TMR2IF | CCP1IF | SSPIF | ADIF | PSPIF; } void PIR1v2::clear_sspif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() & ~SSPIF); } void PIR1v2::set_txif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | TXIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR1v2::set_pspif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | PSPIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR1v2::set_sspif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | SSPIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR1v2::clear_txif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() & ~TXIF); } void PIR1v2::set_rcif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | RCIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR1v2::clear_rcif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() & ~RCIF); } //------------------------------------------------------------------------ PIR1v3::PIR1v3(Processor *pCpu, const char *pName, const char *pDesc,INTCON *_intcon, PIE *_pie) : PIR(pCpu,pName,pDesc,_intcon, _pie,0) { valid_bits = TMR1IF | ADIF | CMIF | EEIF; writable_bits = TMR1IF | ADIF | CMIF | EEIF; } void PIR1v3::set_tmr1if(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | TMR1IF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR1v3::set_tmr2if(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | TMR2IF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR1v3::set_cmif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | CMIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR1v3::set_eeif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | EEIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR1v3::set_adif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | ADIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR1v3::set_c1if(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | C1IF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR1v3::set_c2if(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | C2IF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } //------------------------------------------------------------------------ PIR2v1::PIR2v1(Processor *pCpu, const char *pName, const char *pDesc,INTCON *_intcon, PIE *_pie) : PIR(pCpu,pName,pDesc,_intcon, _pie,0) { valid_bits = CCP2IF; writable_bits = valid_bits; } //------------------------------------------------------------------------ PIR2v2::PIR2v2(Processor *pCpu, const char *pName, const char *pDesc,INTCON *_intcon, PIE *_pie) : PIR(pCpu,pName,pDesc,_intcon, _pie,0) { valid_bits = ECCP1IF | TMR3IF | LVDIF | BCLIF | EEIF | CMIF; writable_bits = valid_bits; } void PIR2v2::set_cmif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | CMIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR2v2::set_eeif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | EEIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR2v2::set_bclif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | BCLIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } //------------------------------------------------------------------------ PIR2v3::PIR2v3(Processor *pCpu, const char *pName, const char *pDesc,INTCON *_intcon, PIE *_pie) : PIR(pCpu,pName,pDesc,_intcon, _pie,0) { valid_bits = CCP2IF | ULPWUIF | BCLIF | EEIF | C1IF | C2IF | OSFIF; writable_bits = valid_bits; } void PIR2v3::set_c1if(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | C1IF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR2v3::set_c2if(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | C2IF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR2v3::set_eeif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | EEIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR2v3::set_bclif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | BCLIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } PIR2v4::PIR2v4(Processor *pCpu, const char *pName, const char *pDesc,INTCON *_intcon, PIE *_pie) : PIR(pCpu,pName,pDesc,_intcon, _pie,0) { valid_bits = OSCFIF | CMIF | USBIF | EEIF | BCLIF | HLVDIF | TMR3IF | CCP2IF; writable_bits = valid_bits; } void PIR2v4::set_usbif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | USBIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR2v4::set_cmif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | CMIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR2v4::set_eeif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | EEIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR2v4::set_bclif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | BCLIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } //------------------------------------------------------------------------ PIR3v1::PIR3v1(Processor *pCpu, const char *pName, const char *pDesc,INTCON *_intcon, PIE *_pie) : PIR(pCpu,pName,pDesc,_intcon, _pie,0) { // Even though TXIF is a valid bit, it can't be written by the PIC // source code. Its state reflects whether the usart txreg is full // or not. Similarly for RCIF valid_bits = CCP3IF | CCP4IF | CCP5IF | TMR4IF | TXIF | RCIF; writable_bits = CCP3IF | CCP4IF | CCP5IF | TMR4IF; } void PIR3v1::set_txif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | TXIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR3v1::clear_txif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() & ~TXIF); } void PIR3v1::set_rcif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | RCIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void PIR3v1::clear_rcif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() & ~RCIF); } //------------------------------------------------------------------------ PIR3v2::PIR3v2(Processor *pCpu, const char *pName, const char *pDesc,INTCON *_intcon, PIE *_pie) : PIR(pCpu,pName,pDesc,_intcon, _pie,0) { valid_bits = RXB0IF | RXB1IF | TXB0IF | TXB1IF | TXB2IF | ERRIF | WAKIF | IRXIF; writable_bits = valid_bits; } gpsim-0.27.0/src/modules.cc0000644000076400007640000003276611401170177012433 00000000000000/* Copyright (C) 1998,1999,2000 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include "modules.h" #include #include #include #include #include #include #include #include #include "../config.h" #ifndef _WIN32 #include #if !defined(_MAX_PATH) #define _MAX_PATH 1024 #endif #include // for getcwd #else #include #include /* * interface is a Module class member variable in gpsim, * in WIN32 Platform SDK it is a macro, defined in BaseTypes.h * the WIN32 Platform SDK definition should be undefined */ #undef interface #endif #include "pic-processor.h" #include "stimuli.h" #include "symbol.h" #include "xref.h" #include "value.h" #include "packages.h" #include "cmd_manager.h" // When a new library is loaded, all of the module types // it supports are placed into the ModuleTypes map. This // object is private to this file. typedef map ModuleTypeInfo_t; ModuleTypeInfo_t ModuleTypes; //------------------------------------------------------------------------ // Add a new type to the ModuleTypes map if the name for that type // does not exist already. static void AddModuleType(const char *pName, Module_Types *pType) { string sName(pName); ModuleTypeInfo_t::iterator mti = ModuleTypes.find(sName); if (mti == ModuleTypes.end()) ModuleTypes[sName] = pType; } DynamicModuleLibraryInfo::DynamicModuleLibraryInfo(string &sCanonicalName, string &sUserSuppliedName, void *pHandle) : m_sCanonicalName(sCanonicalName), m_sUserSuppliedName(sUserSuppliedName), m_pHandle(pHandle), get_mod_list(0) { const char * error; if (m_pHandle) get_mod_list = (Module_Types_FPTR)get_library_export("get_mod_list", m_pHandle, &error); if (!get_mod_list) { cout << "WARNING: non-conforming module library\n" << " gpsim libraries should have the get_mod_list() function defined\n"; fprintf(stderr, "%s\n",error); free_error_message(error); } else { // Get a pointer to the list of modules that this library file supports. Module_Types *pLibModList = get_mod_list(); // Loop through the list of modules supported by the library and an entry // ModuleTypes map for each one. if(pLibModList) for(Module_Types *pModTypes = pLibModList; pModTypes->names[0]; pModTypes++) { AddModuleType(pModTypes->names[0], pModTypes); AddModuleType(pModTypes->names[1], pModTypes); } // If the module has an "initialize" function, then call it now. typedef void * (*void_FPTR)(void); void * (*initialize)(void) = (void_FPTR)get_library_export("initialize", m_pHandle, NULL); if(initialize) initialize(); /* ICommandHandler * pCliHandler = ml->GetCli(); if (pCliHandler != NULL) CCommandManager::GetManager().Register(pCliHandler); */ } } ModuleLibraries_t ModuleLibraries; //======================================================================== void MakeCanonicalName(string &sPath, string &sName) { #ifdef _WIN32 sName = sPath; #else GetFileName(sPath, sName); #endif } int ModuleLibrary::LoadFile(string &fName) { void *handle; const char *pszError; bool bReturn = false; string sPath= fName; FixupLibraryName(sPath); string sName; MakeCanonicalName(sPath, sName); ModuleLibraries_t::iterator mli = ModuleLibraries.find(sName); if (mli == ModuleLibraries.end()) { if ((handle = ::load_library(sPath.c_str(), &pszError)) == NULL) { #ifdef THROW ostringstream stream; stream << "failed to open library module "; stream << sPath; stream << ": "; stream << pszError; stream << endl; char cw[_MAX_PATH]; getcwd(cw, sizeof(cw)); stream << "current working directory is "; stream << cw; stream << endl << ends; free_error_message(pszError); throw new Error(stream.str()); #endif //THROW } else { ModuleLibraries[sName] = new DynamicModuleLibraryInfo(fName, sName, handle); bReturn = true; } } /* if(verbose) DisplayFileList(); */ return bReturn; } int ModuleLibrary::InstantiateObject(string &sObjectName, string &sInstantiatedName) { ModuleTypeInfo_t::iterator mti = ModuleTypes.find(sObjectName); if (mti != ModuleTypes.end()) { Module *pModule = mti->second->module_constructor(sInstantiatedName.c_str()); pModule->set_module_type(sObjectName); globalSymbolTable().addModule(pModule); // Tell the gui or any modules that are interfaced to gpsim // that a new module has been added. gi.new_module(pModule); return pModule!=0; } return 0; } void ModuleLibrary::ListLoadableModules() { ModuleTypeInfo_t::iterator mti = ModuleTypes.begin(); while (mti != ModuleTypes.end()) { cout << " " << mti->first << endl; ++mti; } } /***************************************************************************** * * Module.cc * * Here's where much of the infrastructure of gpsim is defined. * * A Module is define to be something that gpsim knows how to simulate. * When gpsim was originally designed, a module was simple a pic processor. * This concept was expanded to accomodate devices like LEDs, switches, * LCDs and so on. */ Module::Module(const char *_name, const char *desc) : gpsimObject(_name, desc) { package = 0; interface = 0; // Derived modules should assign more reasonable values for this. version = 0; xref = new XrefObject; simulation_mode = eSM_STOPPED; widget = 0; if (_name) { // If there is a module symbol already with this // name, then print a warning before deleting. gpsimObject *pOldModule = globalSymbolTable().find(name()); if (pOldModule) { cout << "Warning: There already is a symbol in the symbol table named " << _name << endl; return; } } globalSymbolTable().addModule(this); // Create position attribute place holders if we're not using the gui if(!get_interface().bUsingGUI()) { addSymbol(new Float("xpos",80.0)); addSymbol(new Float("ypos",80.0)); } } #if 0 // warning: 'void dumpOneSymbol(const SymbolEntry_t&)' defined but not used static void dumpOneSymbol(const SymbolEntry_t &sym) { cout << " " << sym.second << " stored as " << sym.first << endl; } #endif Module::~Module(void) { map::iterator si; for (si = m_scripts.begin(); si != m_scripts.end(); ++si) { ModuleScript *pMS = (*si).second; delete pMS; } m_scripts.clear(); deleteSymbol("xpos"); deleteSymbol("ypos"); /* cout << "Stuff still in the symbol table:\n"; mSymbolTable.ForEachSymbolTable(dumpOneSymbol); */ delete package; delete xref; globalSymbolTable().removeModule(this); } void Module::reset(RESET_TYPE r) { cout << " resetting module " << name() << endl; } //------------------------------------------------------------------- //------------------------------------------------------------------- int Module::addSymbol(gpsimObject *pSym, string *ps_AliasedName) { return mSymbolTable.addSymbol(pSym, ps_AliasedName); } //------------------------------------------------------------------- //------------------------------------------------------------------- int Module::removeSymbol(gpsimObject *pSym) { return mSymbolTable.removeSymbol(pSym); } //------------------------------------------------------------------- //------------------------------------------------------------------- int Module::removeSymbol(const string &s) { return mSymbolTable.removeSymbol(s); } //------------------------------------------------------------------- //------------------------------------------------------------------- int Module::deleteSymbol(const string &s) { return mSymbolTable.deleteSymbol(s); } //------------------------------------------------------------------- //------------------------------------------------------------------- int Module::deleteSymbol(gpsimObject *pSym) { if (!pSym) return 0; if (!removeSymbol(pSym)) return 0; delete pSym; return 1; } //------------------------------------------------------------------- //------------------------------------------------------------------- gpsimObject *Module::findSymbol(const string &searchString) { return mSymbolTable.findSymbol(searchString); } //------------------------------------------------------------------- //------------------------------------------------------------------- void Module::create_pkg(unsigned int number_of_pins) { if(package) delete package; package = new Package(number_of_pins); } //------------------------------------------------------------------- //------------------------------------------------------------------- void Module::assign_pin(unsigned int pin_number, IOPIN *pin) { if(package) package->assign_pin(pin_number, pin); } //------------------------------------------------------------------- //------------------------------------------------------------------- int Module::get_pin_count(void) { if(package) return package->get_pin_count(); return 0; } //------------------------------------------------------------------- //------------------------------------------------------------------- string &Module::get_pin_name(unsigned int pin_number) { static string invalid(""); if(package) return package->get_pin_name(pin_number); return invalid; //FIXME } //------------------------------------------------------------------- //------------------------------------------------------------------- int Module::get_pin_state(unsigned int pin_number) { if(package) return package->get_pin_state(pin_number); return 0; } //------------------------------------------------------------------- //------------------------------------------------------------------- IOPIN *Module::get_pin(unsigned int pin_number) { if(package) return package->get_pin(pin_number); return 0; } //------------------------------------------------------------------- // Module Scripts // // Module command line scripts are named scripts created by symbol // files. For example, with PIC cod files, it's possible to // create assertions and simulation commands using the '.assert' // and '.sim' directives. These commands are ASCII strings that // are collected together. // //------------------------------------------------------------------- // Module::add_command // // Add a command line command to a Module Script. //------------------------------------------------------------------- void Module::add_command(string &script_name, string &command) { ModuleScript *script = m_scripts[script_name]; if (!script) { script = new ModuleScript(script_name); m_scripts[script_name] = script; } script->add_command(command); } //------------------------------------------------------------------- // Module::run_script - execute a gpsim command line script // //------------------------------------------------------------------- void Module::run_script(string &script_name) { ModuleScript *script = m_scripts[script_name]; if (script) { ICommandHandler *pCli = CCommandManager::GetManager().find("gpsimCLI"); if(pCli) { script->run(pCli); } } } //------------------------------------------------------------------- //------------------------------------------------------------------- Module::ModuleScript::ModuleScript(string &name_) : name(name_) { } //------------------------------------------------------------------- //------------------------------------------------------------------- Module::ModuleScript::~ModuleScript() { list :: iterator command_iterator; for (command_iterator = m_commands.begin(); command_iterator != m_commands.end(); ++command_iterator) delete *command_iterator; m_commands.clear(); } //------------------------------------------------------------------- //------------------------------------------------------------------- void Module::ModuleScript::add_command(string &command) { string *new_command = new string(command); m_commands.push_back(new_command); } //------------------------------------------------------------------- //------------------------------------------------------------------- void Module::ModuleScript::run(ICommandHandler *pCommandHandler) { if (!pCommandHandler) return; pCommandHandler->ExecuteScript(m_commands,0); } //------------------------------------------------------------------- //------------------------------------------------------------------- void Module::ModuleScript::concatenate(ModuleScript *pOtherScript) { if (!pOtherScript) return; list :: iterator command_iterator; for (command_iterator = pOtherScript->m_commands.begin(); command_iterator != pOtherScript->m_commands.end(); ++command_iterator) m_commands.push_back(*command_iterator); } gpsim-0.27.0/src/pthread-wrap.h0000644000076400007640000000241711401131150013175 00000000000000 /* Copyright (C) 2004 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #if !defined(__PTHREAD_WRAP_H__) #define __PTHREAD_WRAP_H__ #include namespace gpsim { /// ThreadWrapper /// a private implementation of pthread variables for the /// Token class. This is not intended to be used directly /// by modules. struct ThreadWrapper { /// pthread variables. pthread_t thHostInterface; pthread_attr_t thAttribute; pthread_mutex_t mutex; pthread_cond_t cvWaitOnParent; pthread_cond_t cvWaitOnChild; }; } // end of namespace gpsim #endif // !defined(__PTHREAD_WRAP_H__) gpsim-0.27.0/src/12bit-instructions.h0000644000076400007640000003204511401131147014270 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __12BIT_INSTRUCTIONS_H__ #define __12BIT_INSTRUCTIONS_H__ #include "pic-instructions.h" //--------------------------------------------------------- class ADDWF : public Register_op { public: ADDWF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new ADDWF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class ANDLW : public Literal_op { public: ANDLW(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new ANDLW(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class ANDWF : public Register_op { public: ANDWF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new ANDWF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class BCF : public Bit_op { public: BCF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode,unsigned int address) {return new BCF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class BSF : public Bit_op { public: BSF(Processor *new_cpu, unsigned int new_opcode,unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode,unsigned int address) {return new BSF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class BTFSC : public Bit_op { public: BTFSC(Processor *new_cpu, unsigned int new_opcode,unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode,unsigned int address) {return new BTFSC(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class BTFSS : public Bit_op { public: BTFSS(Processor *new_cpu, unsigned int new_opcode,unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode,unsigned int address) {return new BTFSS(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class CALL : public instruction { public: unsigned int destination; CALL(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual char *name(char *str,int len); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new CALL(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class CLRF : public Register_op { public: CLRF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual char *name(char *str,int len); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new CLRF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class CLRW : public instruction { public: CLRW(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new CLRW(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class CLRWDT : public instruction { public: CLRWDT(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new CLRWDT(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class COMF : public Register_op { public: COMF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new COMF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class DECF : public Register_op { public: DECF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new DECF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class DECFSZ : public Register_op { public: DECFSZ(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new DECFSZ(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class GOTO : public instruction { public: unsigned int destination; GOTO(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual bool isBase() { return true;} virtual char *name(char *str,int len); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new GOTO(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class INCF : public Register_op { public: INCF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new INCF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class INCFSZ : public Register_op { public: INCFSZ(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new INCFSZ(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class IORLW : public Literal_op { public: IORLW(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new IORLW(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class IORWF : public Register_op { public: IORWF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new IORWF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class MOVF : public Register_op { public: MOVF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual void debug(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new MOVF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class MOVLW : public Literal_op { public: MOVLW(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new MOVLW(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class MOVWF : public Register_op { public: MOVWF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual char *name(char *str,int len); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new MOVWF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class NOP : public instruction { public: NOP(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new NOP(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class OPTION : public instruction { public: OPTION(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new OPTION(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class RETLW : public Literal_op { public: RETLW(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new RETLW(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class RLF : public Register_op { public: RLF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new RLF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class RRF : public Register_op { public: RRF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new RRF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class SLEEP : public instruction { public: SLEEP(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new SLEEP(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class SUBWF : public Register_op { public: SUBWF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new SUBWF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class SWAPF : public Register_op { public: SWAPF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new SWAPF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class TRIS : public Register_op { public: Register *reg; TRIS(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual char *name(char *str,int len); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new TRIS(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class XORLW : public Literal_op { public: XORLW(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new XORLW(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class XORWF : public Register_op { public: XORWF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new XORWF(new_cpu,new_opcode,address);} }; #endif /* __12BIT_INSTRUCTIONS_H__ */ gpsim-0.27.0/src/14bit-hexdecode.cc0000664000076400007640000001165412153555713013637 00000000000000/* Copyright (C) 1998 T. Scott Dattalo Copyright (C) 2013 Roy R Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ // T. Scott Dattalo 14bit core routines // Portions of this file are from: // /* pic14.c - pic 14bit core routines */ /* version 0.1 */ /* (c) I.King 1994 */ #include #include "../config.h" #include "14bit-processors.h" #include "14bit-instructions.h" struct instruction_constructor op_16ext[] = { { 0x3f00, 0x3d00, ADDWFC::construct }, { 0x3f00, 0x3700, ASRF::construct }, { 0x3e00, 0x3200, BRA::construct }, { 0x3fff, 0x000b, BRW::construct }, { 0x3fff, 0x000a, CALLW::construct }, { 0x3ff8, 0x0010, MOVIW::construct }, { 0x3f80, 0x3f00, MOVIW::construct }, { 0x3fe0, 0x0020, MOVLB::construct }, { 0x3f80, 0x3180, MOVLP::construct }, { 0x3ff8, 0x0018, MOVWI::construct }, { 0x3f80, 0x3f80, MOVWI::construct }, { 0x3f00, 0x3500, LSLF::construct }, { 0x3f00, 0x3600, LSRF::construct }, { 0x3fff, 0x0001, RESET::construct }, { 0x3f00, 0x3b00, SUBWFB::construct }, }; struct instruction_constructor op_16cxx[] = { { 0x3f00, 0x3e00, ADDLW::construct }, { 0x3f00, 0x3f00, ADDLW::construct }, // Accomdate don't care bit { 0x3f00, 0x0700, ADDWF::construct }, { 0x3f00, 0x3900, ANDLW::construct }, { 0x3f00, 0x0500, ANDWF::construct }, { 0x3c00, 0x1000, BCF::construct }, { 0x3c00, 0x1400, BSF::construct }, { 0x3c00, 0x1800, BTFSC::construct }, { 0x3c00, 0x1c00, BTFSS::construct }, { 0x3800, 0x2000, CALL::construct }, { 0x3f80, 0x0180, CLRF::construct }, { 0x3fff, 0x0103, CLRW::construct }, { 0x3fff, 0x0064, CLRWDT::construct }, { 0x3f00, 0x0900, COMF::construct }, { 0x3f00, 0x0300, DECF::construct }, { 0x3f00, 0x0b00, DECFSZ::construct }, { 0x3800, 0x2800, GOTO::construct }, { 0x3f00, 0x0a00, INCF::construct }, { 0x3f00, 0x0f00, INCFSZ::construct }, { 0x3f00, 0x3800, IORLW::construct }, { 0x3f00, 0x0400, IORWF::construct }, { 0x3f00, 0x0800, MOVF::construct }, { 0x3f00, 0x3000, MOVLW::construct }, { 0x3f00, 0x3100, MOVLW::construct }, { 0x3f00, 0x3200, MOVLW::construct }, { 0x3f00, 0x3300, MOVLW::construct }, { 0x3f80, 0x0080, MOVWF::construct }, { 0x3fff, 0x0000, NOP::construct }, { 0x3fff, 0x0020, NOP::construct }, { 0x3fff, 0x0040, NOP::construct }, { 0x3fff, 0x0060, NOP::construct }, { 0x3fff, 0x0062, OPTION::construct }, { 0x3fff, 0x0009, RETFIE::construct }, { 0x3f00, 0x3400, RETLW::construct }, { 0x3f00, 0x3500, RETLW::construct }, { 0x3f00, 0x3600, RETLW::construct }, { 0x3f00, 0x3700, RETLW::construct }, { 0x3fff, 0x0008, RETURN::construct }, { 0x3f00, 0x0d00, RLF::construct }, { 0x3f00, 0x0c00, RRF::construct }, { 0x3fff, 0x0063, SLEEP::construct }, { 0x3f00, 0x3c00, SUBLW::construct }, { 0x3f00, 0x3d00, SUBLW::construct }, { 0x3f00, 0x0200, SUBWF::construct }, { 0x3fff, 0x0065, TRIS::construct }, { 0x3fff, 0x0066, TRIS::construct }, { 0x3fff, 0x0067, TRIS::construct }, { 0x3f00, 0x0e00, SWAPF::construct }, { 0x3f00, 0x3a00, XORLW::construct }, { 0x3f00, 0x0600, XORWF::construct }, }; const int NUM_OP_16CXX = sizeof(op_16cxx) / sizeof(op_16cxx[0]); const int NUM_OP_16EXT = sizeof(op_16ext) / sizeof(op_16ext[0]); instruction * disasm14 (_14bit_processor *cpu, unsigned int addr, unsigned int inst) { instruction *pi; pi = 0; for(int i =0; i. */ #include #include #include #include "symbol.h" #include "../config.h" #include "p17c75x.h" #if 0 void _68pins::create_iopin_map(void) { // ---- This is probably going to be moved: porta = new PORTA; portb = new PORTB; portc = new PORTC; portd = new PORTD; porte = new PORTE; portf = new PORTF; portg = new PORTG; if(verbose) cout << "Create i/o pin map\n"; // Build the links between the I/O Ports and their tris registers. porta->tris = &ddra; portb->tris = &ddrb; ddrb.port = portb; portc->tris = &ddrc; ddrc.port = portc; portd->tris = &ddrd; ddrd.port = portd; porte->tris = &ddre; ddre.port = porte; portf->tris = &ddrf; ddrf.port = portf; portg->tris = &ddrg; ddrg.port = portg; // And give them a more meaningful name. ddrb.new_name("ddrb"); ddrc.new_name("ddrc"); ddrd.new_name("ddrd"); ddre.new_name("ddre"); ddrf.new_name("ddrf"); ddrg.new_name("ddrg"); // Define the valid I/O pins. porta->valid_iopins = 0x3f; portb->valid_iopins = 0xff; portc->valid_iopins = 0xff; portd->valid_iopins = 0xff; porte->valid_iopins = 0x0f; portf->valid_iopins = 0xff; portg->valid_iopins = 0xff; // Now Create the package and place the I/O pins create_pkg(68); // Vdd and Vss pins assign_pin(2, 0); assign_pin(20, 0); assign_pin(37, 0); assign_pin(49, 0); assign_pin(19, 0); assign_pin(36, 0); assign_pin(53, 0); assign_pin(68, 0); // AVdd and AVss pins assign_pin(29, 0); assign_pin(30, 0); // NC pins assign_pin(1, 0); assign_pin(18, 0); assign_pin(35, 0); assign_pin(52, 0); // Test pin assign_pin(17, 0); // Reset pin assign_pin(16, 0); // Oscillator pins assign_pin(50, 0); assign_pin(51, 0); assign_pin(60, new IOPIN(porta, 0)); assign_pin(44, new IOPIN(porta, 1)); assign_pin(45, new IO_bi_directional_pu(porta, 2)); assign_pin(46, new IO_bi_directional_pu(porta, 3)); assign_pin(43, new IO_bi_directional(porta, 4)); assign_pin(42, new IO_bi_directional(porta, 5)); assign_pin(59, new IO_bi_directional(portb, 0)); assign_pin(58, new IO_bi_directional(portb, 1)); assign_pin(54, new IO_bi_directional(portb, 2)); assign_pin(57, new IO_bi_directional(portb, 3)); assign_pin(56, new IO_bi_directional(portb, 4)); assign_pin(55, new IO_bi_directional(portb, 5)); assign_pin(47, new IO_bi_directional(portb, 6)); assign_pin(48, new IO_bi_directional(portb, 7)); assign_pin(3, new IO_bi_directional(portc, 0)); assign_pin(67, new IO_bi_directional(portc, 1)); assign_pin(66, new IO_bi_directional(portc, 2)); assign_pin(65, new IO_bi_directional(portc, 3)); assign_pin(64, new IO_bi_directional(portc, 4)); assign_pin(63, new IO_bi_directional(portc, 5)); assign_pin(62, new IO_bi_directional(portc, 6)); assign_pin(61, new IO_bi_directional(portc, 7)); assign_pin(11, new IO_bi_directional(portd, 0)); assign_pin(10, new IO_bi_directional(portd, 1)); assign_pin(9, new IO_bi_directional(portd, 2)); assign_pin(8, new IO_bi_directional(portd, 3)); assign_pin(7, new IO_bi_directional(portd, 4)); assign_pin(6, new IO_bi_directional(portd, 5)); assign_pin(5, new IO_bi_directional(portd, 6)); assign_pin(4, new IO_bi_directional(portd, 7)); assign_pin(12, new IO_bi_directional(porte, 0)); assign_pin(13, new IO_bi_directional(porte, 1)); assign_pin(14, new IO_bi_directional(porte, 2)); assign_pin(15, new IO_bi_directional(porte, 3)); assign_pin(28, new IO_bi_directional(portf, 0)); assign_pin(27, new IO_bi_directional(portf, 1)); assign_pin(26, new IO_bi_directional(portf, 2)); assign_pin(25, new IO_bi_directional(portf, 3)); assign_pin(24, new IO_bi_directional(portf, 4)); assign_pin(23, new IO_bi_directional(portf, 5)); assign_pin(22, new IO_bi_directional(portf, 6)); assign_pin(21, new IO_bi_directional(portf, 7)); assign_pin(34, new IO_bi_directional(portg, 0)); assign_pin(33, new IO_bi_directional(portg, 1)); assign_pin(32, new IO_bi_directional(portg, 2)); assign_pin(31, new IO_bi_directional(portg, 3)); assign_pin(38, new IO_bi_directional(portg, 4)); assign_pin(39, new IO_bi_directional(portg, 5)); assign_pin(41, new IO_bi_directional(portg, 6)); assign_pin(40, new IO_bi_directional(portg, 7)); } #endif //======================================================================== // // Pic 17C7xx // Processor * P17C7xx::construct(const char *name) { P17C7xx *p = new P17C7xx; cout << " 17c7xx construct\n"; p->create(0x1fff); p->create_invalid_registers (); p->pic_processor::create_symbols(); p->new_name("p17c7xx"); return p; } P17C7xx::P17C7xx() : cpusta(this,"cpusta","") { if(verbose) cout << "17c7xx constructor, type = " << isa() << '\n'; //_16bit_processor::create(); // create_iopins(iopin_map, num_of_iopins); name_str = "p17c7xx"; } void P17C7xx::create(int ram_top) { cout << "p17c7xx create\n"; create_iopin_map(); //_16bit_processor::create(); // FIXME - TSD the 17c7xx is derived from the 16bit_processor, // but it can call the _16bit_processor::create member function // (because it assumes the 16bit processor is an 18cxxx device) pic_processor::create(); fast_stack.init(this); /* ind0.init(this); ind1.init(this); ind2.init(this); */ tmr0l.initialize(); intcon.initialize(); //usart.initialize(this); //tbl.initialize(this); //tmr0l.start(0); // create_iopin_map(); // create_sfr_map(); add_file_registers(0x0, ram_top, 0); } void P17C7xx::create_symbols() { } void P17C7xx::create_sfr_map() { if(verbose) cout << "creating 17c7xx common registers\n"; cout << "create_sfr_map P17C7xx\n"; } //======================================================================== // // Pic 17C75x // Processor * P17C75x::construct(const char *name) { cout << " 17c75x construct\n"; P17C75x *p = new P17C75x; p->create(0x1fff); p->create_invalid_registers (); p->pic_processor::create_symbols(); p->new_name("p17c75x"); return p; } void P17C75x::create(int ram_top) { cout << "p17c75x create\n"; P17C7xx::create(ram_top); // create_iopin_map(); // _16bit_processor::create(); cout << "p17c75x parent created\n"; P17C75x::create_sfr_map(); cout << "p17c75x sfr map created\n"; P17C75x::create_symbols(); cout << "p17c75x parent created\n"; } P17C75x::P17C75x() { //if(verbose) cout << "17c75x constructor, type = " << isa() << '\n'; } void P17C75x::create_symbols() { if(verbose) cout << "p17c75x create symbols\n"; return; /* symbol_table.add_ioport(portb->cpu, portb); symbol_table.add_ioport(porta->cpu, porta); symbol_table.add_ioport(portc->cpu, portc); symbol_table.add_ioport(portd->cpu, portd); symbol_table.add_ioport(porte->cpu, porte); symbol_table.add_ioport(portf->cpu, portf); symbol_table.add_ioport(portg->cpu, portg); */ } void P17C75x::create_sfr_map() { #if 0 if (verbose) cout << "creating p17c75x common registers\n"; add_file_registers(0x01A, 0x01f, 0x100); alias_file_registers(0x1A, 0x1f, 0x200); alias_file_registers(0x1A, 0x1f, 0x300); alias_file_registers(0x1A, 0x1f, 0x400); alias_file_registers(0x1A, 0x1f, 0x500); alias_file_registers(0x1A, 0x1f, 0x600); alias_file_registers(0x1A, 0x1f, 0x700); add_file_registers(0x020, 0x0ff, 0); add_file_registers(0x120, 0x1ff, 0); add_file_registers(0x220, 0x2ff, 0); add_file_registers(0x320, 0x3ff, 0); //Unbanked registers add_sfr_register(&ind0.indf, 0x00, 0, "indf0"); add_sfr_register(&ind0.fsrl, 0x01, 0, "fsr0"); // Indirect addressing add_sfr_register(&pcl, 0x02, 0, "pcl"); add_sfr_register(&pclath, 0x03, 0, "pclath"); // Program counter add_sfr_register(&status, 0x04, 0xf0, "alusta"); // ALU status // add_sfr_register(&t0sta, 0x05, 0, "t0sta"); // Timer0 Status add_sfr_register(&cpusta, 0x06, 0x3C, "cpusta"); // CPU status // add_sfr_register(&intsta, 0x07, 0, "intsta"); add_sfr_register(&ind1.indf, 0x08, 0, "indf1"); add_sfr_register(&ind1.fsrl, 0x09, 0, "fsr1"); add_sfr_register(&W, 0x0a, 0, "wreg"); // add_sfr_register(&tmr0l, 0x0b, 0, "tmr0l"); // Timer0 registers // add_sfr_register(&tmr0h, 0x0c, 0, "tmr0h"); // add_sfr_register(&tblptrl, 0x0d, 0, "tblptrl"); // Program memory table pointer // add_sfr_register(&tblptrh, 0x0e, 0, "tblptrh"); add_sfr_register(&bsr, 0x0f, 0, "bsr"); // Bank select register add_sfr_register(&prodl, 0x18, 0, "prodl"); // 16 bit product registers add_sfr_register(&prodh, 0x19, 0, "prodh"); alias_file_registers(0x18, 0x19, 0x100); alias_file_registers(0x18, 0x19, 0x200); alias_file_registers(0x18, 0x19, 0x300); alias_file_registers(0x18, 0x19, 0x400); alias_file_registers(0x18, 0x19, 0x500); alias_file_registers(0x18, 0x19, 0x600); alias_file_registers(0x18, 0x19, 0x700); // Bank 0 add_sfr_register(porta, 0x10, 0, "porta"); // PortA bits add_sfr_register(&ddrb, 0x11, 0xff, "ddrb"); // Data direction register of portA add_sfr_register(portb, 0x12, 0, "portb"); /* add_sfr_register(&rcsta1, 0x13, 0, "rcsta1"); // Serial port 1 rec. status register add_sfr_register(&rcreg1, 0x14, 0, "rcreg1"); // Serial port 1 receive register add_sfr_register(&txsta1, 0x15, 0, "txsta1"); add_sfr_register(&txreg1, 0x16, 0, "txreg1"); add_sfr_register(&spbrg1, 0x17, 0, "spbrg1"); */ // Bank 1 add_sfr_register(&ddrc, 0x110, 0xff, "ddrc"); add_sfr_register(portc, 0x111, 0, "portc"); add_sfr_register(&ddrd, 0x112, 0xff, "ddrd"); add_sfr_register(portd, 0x113, 0, "portd"); add_sfr_register(&ddre, 0x114, 0x0f, "ddre"); add_sfr_register(porte, 0x115, 0, "porte"); add_sfr_register(&pir1, 0x116, 0x02, "pir1"); add_sfr_register(&pie1, 0x117, 0, "pie1"); // Bank 2 /* add_sfr_register(&tmr1, 0x210, 0, "tmr1"); add_sfr_register(&tmr2, 0x211, 0, "tmr2"); add_sfr_register(&tmr3l, 0x212, 0, "tmr3l"); add_sfr_register(&tmr3h, 0x213, 0, "tmr3h"); add_sfr_register(&pr1, 0x214, 0, "pr1"); // Timer1's period register add_sfr_register(&pr2, 0x215, 0, "pr2"); // Timer2's period register add_sfr_register(&pr3l, 0x216, 0, "pr3l"); // Timer3's period registers add_sfr_register(&pr3h, 0x217, 0, "pr3h"); // Bank 3 add_sfr_register(&pw1dcl, 0x310, 0, "pw1dcl"); add_sfr_register(&pw2dcl, 0x311, 0, "pw2dcl"); add_sfr_register(&pw1dch, 0x312, 0, "pw1dch"); add_sfr_register(&pw2dch, 0x313, 0, "pw2dch"); add_sfr_register(&ca2l, 0x314, 0, "ca2l"); // Capture2 registers add_sfr_register(&ca2h, 0x315, 0, "ca2h"); add_sfr_register(&tcon1, 0x316, 0, "tcon1"); add_sfr_register(&tcon2, 0x317, 0, "tcon2"); */ // Bank 4 add_sfr_register(&pir2, 0x410, 0, "pir2"); add_sfr_register(&pie2, 0x411, 0, "pie2"); //add_sfr_register(& , 0x412); /* add_sfr_register(&rcsta2, 0x413, 0, "rcsta2"); add_sfr_register(&rcreg2, 0x414, 0, "rcreg2"); add_sfr_register(&txsta2, 0x415, 0x02, "txsta2"); add_sfr_register(&txreg2, 0x416, 0, "txreg2"); add_sfr_register(&spbrg2, 0x417, 0, "spbrg2"); */ // Bank 5 add_sfr_register(&ddrf, 0x510, 0xff, "ddrf"); add_sfr_register(portf, 0x511, 0, "portf"); add_sfr_register(&ddrg, 0x512, 0xff, "ddrg"); add_sfr_register(portg, 0x513, 0, "portg"); /* add_sfr_register(&adcon0, 0x514, 0, "adcon0"); add_sfr_register(&adcon1, 0x515, 0, "adcon1"); add_sfr_register(&adresl, 0x516, 0, "adresl"); add_sfr_register(&adresh, 0x517, 0, "adresh"); */ // Bank 6 /* add_sfr_register(&sspadd, 0x610, 0, "sspadd"); // Synchronous serial port registers add_sfr_register(&sspcon1, 0x611, 0, "sspcon1"); add_sfr_register(&sspcon2, 0x612, 0, "sspcon2"); add_sfr_register(&sspstat, 0x613, 0, "sspstat"); add_sfr_register(&sspbuf, 0x614, 0, "sspbuf"); */ //add_sfr_register(& 0x615); //add_sfr_register(& 0x616); //add_sfr_register(& 0x617); // Bank 7 /* add_sfr_register(&pw3dcl, 0x710, 0, "pw3dcl"); add_sfr_register(&pw3dch, 0x711, 0, "pw3dch"); add_sfr_register(&ca3l, 0x712, 0, "ca3l"); add_sfr_register(&ca3h, 0x713, 0, "ca3h"); add_sfr_register(&ca4l, 0x714, 0, "ca4l"); add_sfr_register(&ca4h, 0x715, 0, "ca4h"); add_sfr_register(&tcon3, 0x716, 0, "tcon3"); //add_sfr_register(& 0x717); */ // Initialize all of the register cross linkages // All of the status bits on the 16bit core are writable status.write_mask = 0xff; #endif } //======================================================================== // // Pic 17C756 // Processor * P17C756::construct(const char *name) { P17C756 *p = new P17C756; cout << " 17c756 construct\n"; p->P17C7xx::create(0x1fff); p->create_invalid_registers (); p->pic_processor::create_symbols(); p->new_name("p17c756"); return p; } void P17C756::create() { create_iopin_map(); P17C756::create_sfr_map(); // create_iopin_map(&iopin_map, &num_of_iopins); _16bit_processor::create(); // create_iopins(iopin_map, num_of_iopins); } void P17C756::create_sfr_map() { cout << "create_sfr_map P17C756\n"; } void P17C756::create_symbols() { cout << "P17C756 create symbols\n"; } P17C756::P17C756() { if(verbose) cout << "17c756 constructor, type = " << isa() << '\n'; } //------------------------------------------------------------------------ // // P17C756A // Processor * P17C756A::construct(const char *name) { P17C756A *p = new P17C756A; cout << " 17c756a construct\n"; p->P17C7xx::create(0x1fff); //p->create_invalid_registers (); p->pic_processor::create_symbols(); p->new_name("p17c756a"); return p; } P17C756A::P17C756A() { if(verbose) cout << "17c756a constructor, type = " << isa() << '\n'; } void P17C756A::create() { create_iopin_map(); P17C756A::create_sfr_map(); // create_iopin_map(&iopin_map, &num_of_iopins); _16bit_processor::create(); // create_iopins(iopin_map, num_of_iopins); cout << " 17c756a create \n"; } void P17C756A::create_sfr_map() { cout << "create_sfr_map P17C756A\n"; } void P17C756A::create_symbols() { cout << "P17C756A create symbols\n"; } //======================================================================== // // Pic 17C752 // Processor * P17C752::construct(const char *name) { P17C752 *p = new P17C752; cout << " 17c752 construct\n"; p->P17C7xx::create(0x1fff); p->create_invalid_registers (); p->pic_processor::create_symbols(); p->new_name("p17c752"); return p; } void P17C752::create() { create_iopin_map(); P17C752::create_sfr_map(); // create_iopin_map(&iopin_map, &num_of_iopins); _16bit_processor::create(); // create_iopins(iopin_map, num_of_iopins); } void P17C752::create_sfr_map() { cout << "create_sfr_map P17C752\n"; } void P17C752::create_symbols() { cout << "P17C752 create symbols\n"; } P17C752::P17C752() { if(verbose) cout << "17c752 constructor, type = " << isa() << '\n'; } //======================================================================== // // Pic 17C762 // Processor * P17C762::construct(const char *name) { P17C762 *p = new P17C762; cout << " 17c762 construct\n"; p->P17C7xx::create(0x1fff); p->create_invalid_registers (); p->pic_processor::create_symbols(); p->new_name("p17c762"); return p; } void P17C762::create() { create_iopin_map(); P17C762::create_sfr_map(); // create_iopin_map(&iopin_map, &num_of_iopins); _16bit_processor::create(); // create_iopins(iopin_map, num_of_iopins); } void P17C762::create_sfr_map() { cout << "create_sfr_map P17C762\n"; } void P17C762::create_symbols() { cout << "P17C762 create symbols\n"; } P17C762::P17C762() { if(verbose) cout << "17c762 constructor, type = " << isa() << '\n'; } //======================================================================== // // Pic 17C766 // Processor * P17C766::construct(const char *name) { P17C766 *p = new P17C766; cout << " 17c75x construct\n"; p->P17C7xx::create(0x1fff); p->create_invalid_registers (); p->pic_processor::create_symbols(); p->new_name("p17c766"); return p; } void P17C766::create() { create_iopin_map(); P17C766::create_sfr_map(); // create_iopin_map(&iopin_map, &num_of_iopins); _16bit_processor::create(); // create_iopins(iopin_map, num_of_iopins); } void P17C766::create_sfr_map() { cout << "create_sfr_map P17C766\n"; } void P17C766::create_symbols() { cout << "P17C766 create symbols\n"; } P17C766::P17C766() { if(verbose) cout << "17c766 constructor, type = " << isa() << '\n'; } gpsim-0.27.0/src/bytelog.cc0000644000076400007640000000377411401170177012425 00000000000000/* Copyright (C) 1998-2003 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include "bytelog.h" namespace gpsim { ByteLogger::ByteLogger(int _bufsize) : bufsize(_bufsize) { index = 0; buffer = (TimedByte *) new char[bufsize * sizeof(TimedByte)]; } int ByteLogger::modIndex(int i) { if(i<0) { i+=bufsize; if(i<0) return index; } else if(i>=bufsize) return index; return i; } void ByteLogger::start(unsigned long long t) { buffer[index].start = t; } void ByteLogger::stop(unsigned long long t) { buffer[index].stop = t; if(++index > bufsize) index = 0; } void ByteLogger::byte(unsigned int b) { buffer[index].b = b&0xff; } void ByteLogger::rts(unsigned long long r) { buffer[index].rts = r; } /* void ByteLogger::statistics(int i=-1) { i = modIndex(i+index); unsigned long long t = (buffer[i].stop-buffer[i].start); double td= t/2.0; cout << "0x" << hex << buffer[i].b << " start time: 0x" << buffer[i].start << " byte time: 0x" << t << " cycles = " << td << " uS\n"; } */ unsigned long long ByteLogger::getStart(int i) { return buffer[modIndex(i+index)].start; } void ByteLogger::get(int i, TimedByte &b) { b = buffer[modIndex(i+index)]; } } // end of namespace gpsim gpsim-0.27.0/src/gpsim_interface.h0000644000076400007640000001657511401131150013750 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __GPSIM_INTERFACE_H__ #define __GPSIM_INTERFACE_H__ #include "gpsim_classes.h" #include "interface.h" #include "trigger.h" class Stimulus; class Stimulus_Node; class ISimConsole; //--------------------------------------------------------------------------- // // struct Interface // // Here's a structure containing all of the information for gpsim // and an external interface like the GUI to communicate. There are // two major functions. First, a GUI can provide pointers to callback // functions that the simulator can invoke upon certain conditions. // For example, if the contents of a register change, the simulator // can notify the GUI and thus save the gui having to continuously // poll. (This may occur when the command line interface changes // something; such changes need to be propogated up to the gui.) // // FIXME -- shouldn't this be a pure virtual class? class Interface { public: unsigned int interface_id; gpointer objectPTR; /* * UpdateObject - Invoked when an object changes * * If an object, like the contents of a register, changes then this function * will be called. There are two parameters: * xref - this is a pointer to some structure in the client's data space. * new_value - this is the new value to which the object has changed. * */ virtual void UpdateObject (gpointer xref,int new_value){}; /* * remove_object - Invoked when gpsim has removed something. * * If an object, like a register, is deleted then this function * will be called. There is one parameter: * xref - this is a pointer to some structure in the client's data space. * */ virtual void RemoveObject (gpointer xref) {}; /* * simulation_has_stopped - invoked when gpsim has stopped simulating (e.g. * when a breakpoint is encountered). * * Some interfaces have more than one instance, so the 'object' parameter * allows the interface to uniquely identify the particular one. */ virtual void SimulationHasStopped (gpointer object) {}; /* * new_processor - Invoked when a new processor is added to gpsim */ virtual void NewProcessor (Processor *new_cpu) {}; /* * new_module - Invoked when a new module is instantiated. * */ virtual void NewModule (Module *module) {}; /* * node_configuration_changed - invoked when stimulus configuration has changed */ virtual void NodeConfigurationChanged (Stimulus_Node *node) {}; /* * new_program - Invoked when a new program is loaded into gpsim * */ virtual void NewProgram (Processor *new_cpu) { }; /* * Update - Invoked when the interface should update itself */ virtual void Update (gpointer object) {}; /* * destructor - called when the interface is destroyed - this gives * the interface object a chance to save state information. */ virtual ~Interface() { } unsigned int get_id(void) { return interface_id;}; void set_id(unsigned int new_id) { interface_id = new_id;}; Interface(gpointer new_object=NULL); }; class gpsimInterface : public TriggerObject { public: gpsimInterface(); /* * start_simulation -begin simulating. Simulation stops whenever * a breakpoint is encountered or the specified duration has expired. */ void start_simulation (double duration=0.0); /* * step_simulation - run the simulation for one or more simulation cycles. */ void step_simulation(int nSteps); /* * advance_simulation - run simulation until advancement condition is met. */ enum eAdvancementModes { eAdvanceNextInstruction, // processors - step over call instructions eAdvanceNextCycle, // system - eAdvanceNextCall, // processors - run until call instruction eAdvanceNextReturn, // processors - run until next return }; void advance_simulation(eAdvancementModes nAdvancement); void reset (RESET_TYPE resetType=SIM_RESET); void simulation_has_stopped (); bool bSimulating(); bool bUsingGUI(); void setGUImode(bool); // gpsim will call these functions to notify gui and/or modules // that something has changed. void update_object (gpointer xref,int new_value); void remove_object (gpointer xref); void update (); void new_processor (Processor *); void new_module (Module *module); void node_configuration_changed (Stimulus_Node *node); void new_program (Processor *); void set_update_rate(guint64 rate); guint64 get_update_rate(); unsigned int add_interface(Interface *new_interface); unsigned int add_socket_interface(Interface *new_interface); Interface *get_socket_interface() { return socket_interface;} void remove_interface(unsigned int interface_id); virtual bool set_break() {return false;} virtual void callback(); virtual void callback_print(); virtual void print(); virtual void clear(); virtual char const * bpName() { return "gpsim interface"; } virtual ISimConsole &GetConsole(); private: GSList *interfaces; Interface *socket_interface; unsigned int interface_seq_number; guint64 update_rate; guint64 future_cycle; bool mbSimulating; // Set true if the simulation is running. bool mbUseGUI; // Set true if gui is being used. }; #if defined(IN_MODULE) && defined(_WIN32) // we are in a module: don't access gi object directly! LIBGPSIM_EXPORT gpsimInterface & get_interface(); #else // we are in gpsim: use of get_interface() is recommended, // even if gi object can be accessed directly. extern gpsimInterface gi; inline gpsimInterface &get_interface() { return gi; } #endif //------------------------------------------------------------------------ class Module; class ModuleInterface { public: Module *module; // The module we're interfacing with. ModuleInterface(Module *new_module); }; //------------------------------------------------------------------------ class Processor; class ProcessorInterface : public ModuleInterface { public: ProcessorInterface(Processor *cpu); }; class ISimConsole; #define CMD_ERR_OK 0 #define CMD_ERR_ABORTED 1 #define CMD_ERR_ERROR 2 #define CMD_ERR_PROCESSORDEFINED 3 #define CMD_ERR_PROCESSORNOTDEFINED 4 #define CMD_ERR_COMMANDNOTDEFINED 5 #define CMD_ERR_NOTIMPLEMENTED 6 #define GPSIM_GETCOMMANDHANDLER "GetCommandHandler" typedef ICommandHandler * (*PFNGETCOMMANDHANDLER)(void); class ICommandHandler { public: virtual ~ICommandHandler() { } virtual const char *GetName(void) = 0; // Fixme: should Execute be renamed ExecuteCommand? virtual int Execute(const char * commandline, ISimConsole *out) = 0; virtual int ExecuteScript(list &script, ISimConsole *out) = 0; }; #endif // __GPSIM_INTERFACE_H__ gpsim-0.27.0/src/symbol.h0000644000076400007640000001326411401131150012106 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ // // symbol.h // // gpsim Symbol Table // // The symbol table provides an interface to all named gpsim objects. // Symbols can be added either automatically (i.e. gpsim adds global // symbols for its own use), by Modules and Processors, or by users. // In all cases, symbols placed into the symbol table are available // for expressions, breakpoints, or querying. // // Implementation details: // // The gpsim symbol table relies heavily on the STL map. A map is // created for each gpsim Module. An additional map is created for the // global symbols. Each one of these maps can be accessed via the // Module or via the Module name. The global symbols belong to no // Module, however the map holding them is named '__global__'. // // In addition, there is another map for holding all of the // Modules. This map together with all of the Module symbol tables // form a two-level hierarchical symbol table. // // At the global scope (e.g. the command line), symbols are referred // to by: // // ModuleName.ModuleSymbolName // // For example, p16f873.foo refers to the symbol 'foo' in the p16f873 // module. // // A notion of a 'current module' exists. This feature is not fully // implemented, but currently the most recently loaded Processor is // designated as the current module. Symbols in the current module can // be referenced with just the '.' scoping operator. For example, if // p16f873 is the current module, then typing '.foo' will display // p16f873.foo. // // The symbol table avoids interpreting or operating on the data it // stores. For example, only the object's name is ever // referenced. Clients wishing for specialized symbol manipulation are // required to do the appropriate type casting. A mechanism based on // the STL 'for_each' algorithm is provided to assist iterating // through all of the symbols. #ifndef __SYMBOL_H__ #define __SYMBOL_H__ #include #include #include #include "exports.h" using namespace std; // Forward definitions class gpsimObject; class Integer; class Value; class Module; class SymbolTable_t; class SymbolTable; typedef map ModuleList_t; typedef map MSymbolTable_t; typedef void (*PFN_ForEachModule)(const pair &st); typedef void (*PFN_ForEachSymbol)(const pair &sym); typedef pair SymbolTableEntry_t; typedef pair SymbolEntry_t; //************************************************************************ // SymbolTable_t // // A gpsim symbol table is an STL map of gpsimObject pointers that are keyed with // by the object's name. // class SymbolTable_t : protected map { // The SymbolTable class has access to all map<>'s methods. friend class SymbolTable; public: int addSymbol(gpsimObject *, string *AliasedName=0); int removeSymbol(gpsimObject *); int removeSymbol(const string &); int deleteSymbol(const string &); gpsimObject *findSymbol(const string &); /// ForEachModuleSymbolTable -- thin wrapper around map<>'s for_each() algorithm. /// The pointer to the function passed must be declared like: /// void MyForEach(const SymbolEntry_t &sym) { /* do something with sym */ } /// Then invoked the algorithm by: /// ASymbolTable.ForEachModuleSymbolTable(MyForEach); inline void ForEachSymbolTable(PFN_ForEachSymbol forEach) { for_each(begin(), end(), forEach); } protected: // stiFound an iterator that points to the most recently found symbol. SymbolTable_t::iterator stiFound; }; //************************************************************************ // class SymbolTable { public: SymbolTable(); ~SymbolTable(); /// Globally scoped symbols are added and removed here int addSymbol(gpsimObject *); int removeSymbol(gpsimObject *); int removeSymbol(const string &); int deleteSymbol(const string &); /// Each Module maintains its own symbol table. If the module wants /// its symbols to be accessed at the global scope, then the module /// has to add itself to the table. void addModule(Module *); void removeModule(Module *); void listModules(); // ugh /// find - search for a particular symbol gpsimObject *find(string); gpsimObject *findObject(gpsimObject *); /// void ForEachModule(PFN_ForEachModule forEach); /// Convenience functions for finding a symbol of a particular type: Value *findValue(string); Integer *findInteger(string); Module *findModule(string); protected: MSymbolTable_t MSymbolTables; }; #if defined(_WIN32) #if !defined(IN_MODULE) extern SymbolTable gSymbolTable; #endif // we are in Windows: don't access the symbol table object directly! LIBGPSIM_EXPORT SymbolTable & globalSymbolTable(); #else // we are in gpsim: use of getSymbolTable() is recommended, // even if it can be accessed directly. extern SymbolTable gSymbolTable; inline SymbolTable &globalSymbolTable() { return gSymbolTable; } #endif #endif // __SYMBOL_H__ gpsim-0.27.0/src/p12f6xx.h0000775000076400007640000000637312175377101012050 00000000000000/* Copyright (C) 2009 Roy R. Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __P12F629_H__ #define __P12F629_H__ #include "14bit-processors.h" #include "14bit-tmrs.h" #include "intcon.h" #include "pir.h" #include "pie.h" #include "eeprom.h" #include "comparator.h" #include "a2dconverter.h" class WPU; class IOC; class PicPortGRegister; class P12F629 : public _14bit_processor { public: INTCON_14_PIR intcon_reg; ComparatorModule comparator; PIR_SET_1 pir_set_def; PIE pie1; PIR *pir1; T1CON t1con; TMRL tmr1l; TMRH tmr1h; PCON pcon; OSCCAL osccal; EEPROM_PIR *e; PicPortGRegister *m_gpio; PicTrisRegister *m_trisio; WPU *m_wpu; IOC *m_ioc; virtual PIR *get_pir2() { return (NULL); } virtual PIR *get_pir1() { return (pir1); } virtual PIR_SET *get_pir_set() { return (&pir_set_def); } virtual PROCESSOR_TYPE isa(){return _P12F629_;}; P12F629(const char *_name=0, const char *desc=0); ~P12F629(); static Processor *construct(const char *name); virtual void create_sfr_map(); virtual void create_symbols(); virtual void set_out_of_range_pm(unsigned int address, unsigned int value); virtual void create_iopin_map(); virtual void create(int ram_top, int eeprom_size); virtual unsigned int register_memory_size () const { return 0x100; } virtual void option_new_bits_6_7(unsigned int bits); virtual unsigned int program_memory_size() const { return 0x400; } virtual void create_config_memory(); virtual bool set_config_word(unsigned int address,unsigned int cfg_word); virtual void enter_sleep(); virtual void exit_sleep(); }; class P12F675 : public P12F629 { public: ANSEL_12F ansel; ADCON0_12F adcon0; ADCON1 adcon1; sfr_register adresh; sfr_register adresl; virtual PROCESSOR_TYPE isa(){return _P12F675_;}; virtual void create(int ram_top, int eeprom_size); virtual unsigned int program_memory_size() const { return 0x400; }; P12F675(const char *_name=0, const char *desc=0); ~P12F675(); static Processor *construct(const char *name); virtual void create_sfr_map(); }; class P12F683 : public P12F675 { public: T2CON t2con; PR2 pr2; TMR2 tmr2; CCPCON ccp1con; CCPRL ccpr1l; CCPRH ccpr1h; WDTCON wdtcon; OSCCON osccon; OSCTUNE osctune; virtual PROCESSOR_TYPE isa(){return _P12F683_;}; virtual void create(int ram_top, int eeprom_size); virtual unsigned int program_memory_size() const { return 0x800; }; P12F683(const char *_name=0, const char *desc=0); ~P12F683(); static Processor *construct(const char *name); virtual void create_sfr_map(); }; #endif gpsim-0.27.0/src/p16x6x.cc0000664000076400007640000010650712175377101012041 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ // // p16x6x // // This file supports: // P16C61 #include #include #include #include "packages.h" #include "stimuli.h" #include "symbol.h" #include "p16x6x.h" #include "pic-ioports.h" #include "intcon.h" void P16C61::create(void) { create_iopin_map(); _14bit_processor::create(); add_file_registers(0x0c, 0x2f, 0x80); Pic14Bit::create_sfr_map(); } Processor * P16C61::construct(const char *name) { P16C61 *p = new P16C61(name); if(verbose) cout << " c61 construct\n"; p->create(); p->create_invalid_registers (); p->create_symbols(); return p; } P16C61::P16C61(const char *_name, const char *desc) : P16X8X(_name,desc) { ram_top = 0x2f; } P16C61::~P16C61() { if (verbose) cout << __FUNCTION__ << endl; } //------------------------------------------------------------------------ // // void P16C62::create_iopin_map(void) { package = new Package(28); if(!package) return; package->assign_pin(1, 0); package->assign_pin( 2, m_porta->addPin(new IO_bi_directional("porta0"),0)); package->assign_pin( 3, m_porta->addPin(new IO_bi_directional("porta1"),1)); package->assign_pin( 4, m_porta->addPin(new IO_bi_directional("porta2"),2)); package->assign_pin( 5, m_porta->addPin(new IO_bi_directional("porta3"),3)); package->assign_pin( 6, m_porta->addPin(new IO_open_collector("porta4"),4)); package->assign_pin( 7, m_porta->addPin(new IO_bi_directional("porta5"),5)); package->assign_pin(8, 0); //VSS package->assign_pin(9, 0); // OSC package->assign_pin(10, 0); // OSC package->assign_pin(11, m_portc->addPin(new IO_bi_directional("portc0"),0)); package->assign_pin(12, m_portc->addPin(new IO_bi_directional("portc1"),1)); package->assign_pin(13, m_portc->addPin(new IO_bi_directional("portc2"),2)); package->assign_pin(14, m_portc->addPin(new IO_bi_directional("portc3"),3)); package->assign_pin(15, m_portc->addPin(new IO_bi_directional("portc4"),4)); package->assign_pin(16, m_portc->addPin(new IO_bi_directional("portc5"),5)); package->assign_pin(17, m_portc->addPin(new IO_bi_directional("portc6"),6)); package->assign_pin(18, m_portc->addPin(new IO_bi_directional("portc7"),7)); package->assign_pin(19, 0); //VSS package->assign_pin(20, 0); //VDD package->assign_pin(21, m_portb->addPin(new IO_bi_directional_pu("portb0"),0)); package->assign_pin(22, m_portb->addPin(new IO_bi_directional_pu("portb1"),1)); package->assign_pin(23, m_portb->addPin(new IO_bi_directional_pu("portb2"),2)); package->assign_pin(24, m_portb->addPin(new IO_bi_directional_pu("portb3"),3)); package->assign_pin(25, m_portb->addPin(new IO_bi_directional_pu("portb4"),4)); package->assign_pin(26, m_portb->addPin(new IO_bi_directional_pu("portb5"),5)); package->assign_pin(27, m_portb->addPin(new IO_bi_directional_pu("portb6"),6)); package->assign_pin(28, m_portb->addPin(new IO_bi_directional_pu("portb7"),7)); if (hasSSP()) { ssp.initialize( get_pir_set(), // PIR &(*m_portc)[3], // SCK &(*m_porta)[5], // SS &(*m_portc)[5], // SDO &(*m_portc)[4], // SDI m_trisc, // I2C port SSP_TYPE_BSSP ); } tmr1l.setIOpin(&(*m_portc)[0]); } //------------------------------------------------------------------------ // // void P16C64::create_iopin_map(void) { package = new Package(40); if(!package) return; // Now Create the package and place the I/O pins package->assign_pin(1, 0); package->assign_pin( 2, m_porta->addPin(new IO_bi_directional("porta0"),0)); package->assign_pin( 3, m_porta->addPin(new IO_bi_directional("porta1"),1)); package->assign_pin( 4, m_porta->addPin(new IO_bi_directional("porta2"),2)); package->assign_pin( 5, m_porta->addPin(new IO_bi_directional("porta3"),3)); package->assign_pin( 6, m_porta->addPin(new IO_open_collector("porta4"),4)); package->assign_pin( 7, m_porta->addPin(new IO_bi_directional("porta5"),5)); package->assign_pin( 8, m_porte->addPin(new IO_bi_directional("porte0"),0)); package->assign_pin( 9, m_porte->addPin(new IO_bi_directional("porte1"),1)); package->assign_pin(10, m_porte->addPin(new IO_bi_directional("porte2"),2)); package->assign_pin(11, 0); package->assign_pin(12, 0); package->assign_pin(13, 0); package->assign_pin(14, 0); package->assign_pin(15, m_portc->addPin(new IO_bi_directional("portc0"),0)); package->assign_pin(16, m_portc->addPin(new IO_bi_directional("portc1"),1)); package->assign_pin(17, m_portc->addPin(new IO_bi_directional("portc2"),2)); package->assign_pin(18, m_portc->addPin(new IO_bi_directional("portc3"),3)); package->assign_pin(23, m_portc->addPin(new IO_bi_directional("portc4"),4)); package->assign_pin(24, m_portc->addPin(new IO_bi_directional("portc5"),5)); package->assign_pin(25, m_portc->addPin(new IO_bi_directional("portc6"),6)); package->assign_pin(26, m_portc->addPin(new IO_bi_directional("portc7"),7)); package->assign_pin(19, m_portd->addPin(new IO_bi_directional("portd0"),0)); package->assign_pin(20, m_portd->addPin(new IO_bi_directional("portd1"),1)); package->assign_pin(21, m_portd->addPin(new IO_bi_directional("portd2"),2)); package->assign_pin(22, m_portd->addPin(new IO_bi_directional("portd3"),3)); package->assign_pin(27, m_portd->addPin(new IO_bi_directional("portd4"),4)); package->assign_pin(28, m_portd->addPin(new IO_bi_directional("portd5"),5)); package->assign_pin(29, m_portd->addPin(new IO_bi_directional("portd6"),6)); package->assign_pin(30, m_portd->addPin(new IO_bi_directional("portd7"),7)); package->assign_pin(31, 0); package->assign_pin(32, 0); package->assign_pin(33, m_portb->addPin(new IO_bi_directional_pu("portb0"),0)); package->assign_pin(34, m_portb->addPin(new IO_bi_directional_pu("portb1"),1)); package->assign_pin(35, m_portb->addPin(new IO_bi_directional_pu("portb2"),2)); package->assign_pin(36, m_portb->addPin(new IO_bi_directional_pu("portb3"),3)); package->assign_pin(37, m_portb->addPin(new IO_bi_directional_pu("portb4"),4)); package->assign_pin(38, m_portb->addPin(new IO_bi_directional_pu("portb5"),5)); package->assign_pin(39, m_portb->addPin(new IO_bi_directional_pu("portb6"),6)); package->assign_pin(40, m_portb->addPin(new IO_bi_directional_pu("portb7"),7)); if (hasSSP()) { ssp.initialize( get_pir_set(), // PIR &(*m_portc)[3], // SCK &(*m_porta)[5], // SS &(*m_portc)[5], // SDO &(*m_portc)[4], // SDI m_trisc, // I2C port SSP_TYPE_BSSP ); } psp.initialize(get_pir_set(), // PIR m_portd, // Parallel port m_trisd, // Parallel tris m_trise, // Control tris &(*m_porte)[0], // NOT RD &(*m_porte)[1], // NOT WR &(*m_porte)[2]); // NOT CS tmr1l.setIOpin(&(*m_portc)[0]); } //--------------------------------------------------------- // // P16x6x::create_sfr_map(void) - Here's where all of the // registers are defined for a p16c63 and greater... void P16X6X_processor::create_sfr_map() { if(verbose) cout << "P16X6X_processor::create_sfr_map\n"; Pic14Bit::create_sfr_map(); // P16x63 and higher have porta5 m_porta->setEnableMask(0x3f); m_porta->setTris(m_trisa); // The 16c62,c64 have general purpose registers // at addresses 20-7f and a0-bf add_file_registers(0x20, 0x7f, 0); add_file_registers(0xa0, 0xbf, 0); add_sfr_register(pir1, 0x0c, RegisterValue(0,0),"pir1"); add_sfr_register(&pie1, 0x8c, RegisterValue(0,0)); add_sfr_register(&tmr1l, 0x0e, RegisterValue(0,0),"tmr1l"); add_sfr_register(&tmr1h, 0x0f, RegisterValue(0,0),"tmr1h"); add_sfr_register(&pcon, 0x8e, RegisterValue(0,0),"pcon"); add_sfr_register(&t1con, 0x10, RegisterValue(0,0)); add_sfr_register(&tmr2, 0x11, RegisterValue(0,0)); add_sfr_register(&t2con, 0x12, RegisterValue(0,0)); add_sfr_register(&pr2, 0x92, RegisterValue(0xff,0)); if( hasSSP() ) { add_sfr_register(&ssp.sspbuf, 0x13, RegisterValue(0,0),"sspbuf"); add_sfr_register(&ssp.sspcon, 0x14, RegisterValue(0,0),"sspcon"); add_sfr_register(&ssp.sspadd, 0x93, RegisterValue(0,0),"sspadd"); add_sfr_register(&ssp.sspstat, 0x94, RegisterValue(0,0),"sspstat"); tmr2.ssp_module = &ssp; } add_sfr_register(&ccpr1l, 0x15, RegisterValue(0,0)); add_sfr_register(&ccpr1h, 0x16, RegisterValue(0,0)); add_sfr_register(&ccp1con, 0x17, RegisterValue(0,0)); // get_pir_set()->set_pir1(get_pir1()); pir_set_def.set_pir1(pir1); intcon = &intcon_reg; intcon_reg.set_pir_set(get_pir_set()); // Maybe there's a better place for this, but let's go ahead and link all // of the registers together (there's probably a better way too) : tmr1l.tmrh = &tmr1h; tmr1l.t1con = &t1con; // FIXME -- can't delete this new'd item tmr1l.setInterruptSource(new InterruptSource(pir1, PIR1v1::TMR1IF)); // tmr1l.ccpcon = &ccp1con; tmr1h.tmrl = &tmr1l; t1con.tmrl = &tmr1l; t2con.tmr2 = &tmr2; tmr2.pir_set = get_pir_set(); tmr2.pr2 = &pr2; tmr2.t2con = &t2con; tmr2.add_ccp ( &ccp1con ); tmr2.add_ccp ( &ccp2con ); pr2.tmr2 = &tmr2; ccp1con.setCrosslinks(&ccpr1l, pir1, PIR1v1::CCP1IF, &tmr2); ccp1con.setIOpin(&((*m_portc)[2])); ccpr1l.ccprh = &ccpr1h; ccpr1l.tmrl = &tmr1l; ccpr1h.ccprl = &ccpr1l; // portc->ccp1con = &ccp1con; ccpr1l.new_name("ccpr1l"); ccpr1h.new_name("ccpr1h"); ccp1con.new_name("ccp1con"); if (pir1) { pir1->set_intcon(&intcon_reg); pir1->set_pie(&pie1); } pie1.setPir(pir1); } //-------------------------------------------------- void P16X6X_processor::create_symbols() { Pic14Bit::create_symbols(); } //-------------------------------------------------- P16X6X_processor::P16X6X_processor(const char *_name, const char *_desc) : Pic14Bit(_name,_desc), t1con(this, "t1con", "TMR1 Control"), pie1(this,"PIE1", "Peripheral Interrupt Enable"), pie2(this,"PIE2", "Peripheral Interrupt Enable"), t2con(this, "t2con", "TMR2 Control"), pr2(this, "pr2", "TMR2 Period Register"), tmr2(this, "tmr2", "TMR2 Register"), tmr1l(this, "tmr1l", "TMR1 Low"), tmr1h(this, "tmr1h", "TMR1 High"), ccp1con(this, "ccp1con", "Capture Compare Control"), ccpr1l(this, "ccpr1l", "Capture Compare 1 Low"), ccpr1h(this, "ccpr1h", "Capture Compare 1 High"), ccp2con(this, "ccp2con", "Capture Compare Control"), ccpr2l(this, "ccpr2l", "Capture Compare 2 Low"), ccpr2h(this, "ccpr2h", "Capture Compare 2 High"), pcon(this, "pcon", "pcon"), ssp(this) { if(verbose) cout << "generic 16X6X constructor, type = " << isa() << '\n'; m_portc = new PicPortRegister(this,"portc","",8,0xff); m_trisc = new PicTrisRegister(this,"trisc","",m_portc, false); pir1 = new PIR1v1(this,"pir1","Peripheral Interrupt Register",&intcon_reg, &pie1); pir2 = new PIR2v1(this,"pir2","Peripheral Interrupt Register",&intcon_reg, &pie2); } P16X6X_processor::~P16X6X_processor() { remove_sfr_register(&tmr1l); remove_sfr_register(&tmr1h); remove_sfr_register(&pcon); remove_sfr_register(&t1con); remove_sfr_register(&tmr2); remove_sfr_register(&t2con); remove_sfr_register(&pr2); if( hasSSP()) { remove_sfr_register(&ssp.sspbuf); remove_sfr_register(&ssp.sspcon); remove_sfr_register(&ssp.sspadd); remove_sfr_register(&ssp.sspstat); } remove_sfr_register(&ccpr1l); remove_sfr_register(&ccpr1h); remove_sfr_register(&ccp1con); remove_sfr_register(&pie1); delete_file_registers(0x20,0x7f); delete_file_registers(0xa0,0xbf); delete_sfr_register(m_portc); delete_sfr_register(m_trisc); if(verbose) cout << "deleting PIR2:\n"; delete_sfr_register(pir2); if(verbose) cout << "deleting PIR1:\n"; delete_sfr_register(pir1); } /******************************************************************* * * Definitions for the various P16x6x processors * */ P16C62::P16C62(const char *_name, const char *desc) : P16X6X_processor(_name,desc) { if(verbose) cout << "c62 constructor, type = " << isa() << '\n'; set_hasSSP(); } void P16C62::create_sfr_map() { if(verbose) cout << "creating c62 registers\n"; P16X6X_processor::create_sfr_map(); add_sfr_register(m_portc, 0x07); add_sfr_register(m_trisc, 0x87, RegisterValue(0xff,0)); //1((PORTC*)portc)->ccp1con = &ccp1con; } void P16C62::create_symbols(void) { if(verbose) cout << "creating c62 symbols\n"; P16X6X_processor::create_symbols(); } void P16C62::create(void) { if(verbose) cout << " c62 create \n"; create_iopin_map(); _14bit_processor::create(); P16C62::create_sfr_map(); // Build the links between the I/O Pins and the internal peripherals //1ccp1con.iopin = portc->pins[2]; } Processor * P16C62::construct(const char *name) { P16C62 *p = new P16C62(name); cout << " c62 construct\n"; p->create(); p->create_invalid_registers (); p->create_symbols(); return p; } //------------------------------------------------------------------------ // // void P16C63::create_sfr_map(void) { if(verbose) cout << "creating c63 registers\n"; add_file_registers(0xc0, 0xff, 0); add_sfr_register(pir2, 0x0d, RegisterValue(0,0),"pir2"); add_sfr_register(&pie2, 0x8d, RegisterValue(0,0)); add_sfr_register(&ccpr2l, 0x1b, RegisterValue(0,0)); add_sfr_register(&ccpr2h, 0x1c, RegisterValue(0,0)); add_sfr_register(&ccp2con, 0x1d, RegisterValue(0,0)); // get_pir_set()->set_pir2(get_pir2()); pir_set_def.set_pir2(pir2); ccp2con.setCrosslinks(&ccpr2l, pir2, PIR2v1::CCP2IF, &tmr2); ccp2con.setIOpin(&((*m_portc)[1])); ccpr2l.ccprh = &ccpr2h; ccpr2l.tmrl = &tmr1l; ccpr2h.ccprl = &ccpr2l; usart.initialize(pir1,&(*m_portc)[6], &(*m_portc)[7], new _TXREG(this,"txreg", "USART Transmit Register", &usart), new _RCREG(this,"rcreg", "USART Receiver Register", &usart)); add_sfr_register(&usart.rcsta, 0x18, RegisterValue(0,0),0); add_sfr_register(&usart.txsta, 0x98, RegisterValue(2,0),"txsta"); add_sfr_register(&usart.spbrg, 0x99, RegisterValue(0,0),"spbrg"); add_sfr_register(usart.txreg, 0x19, RegisterValue(0,0),"txreg"); add_sfr_register(usart.rcreg, 0x1a, RegisterValue(0,0),"rcreg"); if (pir2) { pir2->set_intcon(&intcon_reg); pir2->set_pie(&pie2); } pie2.setPir(get_pir2()); } void P16C63::create_symbols(void) { if(verbose) cout << "creating c63 symbols\n"; // There's nothing to create... } //------------------------------------------------------------------------ // // P16C63 constructor // // Note: Since the 'C63 is derived from the 'C62. So before this constructor // is called, the C62 constructor will be called. Most of the initialization // is done within the 'C62 constructor. P16C63::P16C63(const char *_name, const char *desc) : P16C62(_name,desc), usart(this) { if(verbose) cout << "c63 constructor, type = " << isa() << '\n'; } P16C63::~P16C63() { if (verbose) cout << __FUNCTION__ << endl; remove_sfr_register(&pie2); remove_sfr_register(&ccpr2l); remove_sfr_register(&ccpr2h); remove_sfr_register(&ccp2con); if (registers[0xf0]->alias_mask & 0x80) delete_file_registers(0xc0, 0xef); else delete_file_registers(0xc0, 0xff); remove_sfr_register(&usart.rcsta); remove_sfr_register(&usart.txsta); remove_sfr_register(&usart.spbrg); delete_sfr_register(usart.txreg); delete_sfr_register(usart.rcreg); //delete_sfr_register(pir2,0x0d); } void P16C63::create(void) { if(verbose) cout << " c63 create \n"; P16C62::create(); P16C63::create_sfr_map(); // Build the links between the I/O Pins and the internal peripherals //1ccp2con.iopin = portc->pins[1]; } Processor * P16C63::construct(const char *name) { P16C63 *p = new P16C63(name); if(verbose) cout << " c63 construct\n"; p->create(); p->create_invalid_registers (); p->create_symbols(); return p; } //---------------------------------------------------------- // // void P16C64::create_sfr_map(void) { if(verbose) cout << "creating c64 registers\n"; pir_set_2_def.set_pir1(pir1_2_reg); P16X6X_processor::create_sfr_map(); add_sfr_register(m_portc, 0x07); add_sfr_register(m_trisc, 0x87, RegisterValue(0xff,0)); add_sfr_register(m_portd, 0x08); add_sfr_register(m_trisd, 0x88, RegisterValue(0xff,0)); add_sfr_register(m_porte, 0x09); add_sfr_register(m_trise, 0x89, RegisterValue(0x07,0)); //1((PORTC*)portc)->ccp1con = &ccp1con; } void P16C64::create_symbols(void) { if(verbose) cout << "creating c64 symbols\n"; P16X6X_processor::create_symbols(); addSymbol(m_portd); addSymbol(m_porte); addSymbol(m_trisd); addSymbol(m_trise); } void P16C64::create(void) { if(verbose) cout << " c64 create \n"; create_iopin_map(); _14bit_processor::create(); //P16X6X_processor::create_sfr_map(); P16C64::create_sfr_map(); // Build the links between the I/O Pins and the internal peripherals //1ccp1con.iopin = portc->pins[2]; } Processor * P16C64::construct(const char *name) { P16C64 *p = new P16C64(name); p->create(); p->create_invalid_registers (); p->create_symbols(); return p; } P16C64::P16C64(const char *_name, const char *desc) : P16X6X_processor(_name,desc) { if(verbose) cout << "c64 constructor, type = " << isa() << '\n'; set_hasSSP(); pir1_2_reg = new PIR1v2(this,"pir1","Peripheral Interrupt Register",&intcon_reg,&pie1); delete pir1; pir1 = pir1_2_reg; m_portd = new PicPSP_PortRegister(this,"portd","",8,0xff); m_trisd = new PicTrisRegister(this,"trisd","",(PicPortRegister *)m_portd, false); m_porte = new PicPortRegister(this,"porte","",8,0x07); m_trise = new PicPSP_TrisRegister(this,"trise","",m_porte, false); } P16C64::~P16C64() { if (verbose) cout << __FUNCTION__ << endl; cout << __FUNCTION__ << endl; delete_sfr_register(m_portd); delete_sfr_register(m_trisd); delete_sfr_register(m_porte); delete_sfr_register(m_trise); } //------------------------------------------------------------------------ // // void P16C65::create_sfr_map(void) { if(verbose) cout << "creating c65 registers\n"; //P16C64::create_sfr_map(); add_file_registers(0xc0, 0xff, 0); add_sfr_register(pir2, 0x0d, RegisterValue(0,0),"pir2"); add_sfr_register(&pie2, 0x8d, RegisterValue(0,0)); add_sfr_register(&ccpr2l, 0x1b, RegisterValue(0,0)); add_sfr_register(&ccpr2h, 0x1c, RegisterValue(0,0)); add_sfr_register(&ccp2con, 0x1d, RegisterValue(0,0)); // get_pir_set()->set_pir2(&get_pir2()); pir_set_def.set_pir2(pir2); ccp2con.setCrosslinks(&ccpr2l, pir2, PIR2v2::CCP2IF, &tmr2); ccp2con.setIOpin(&((*m_portc)[1])); ccpr2l.ccprh = &ccpr2h; ccpr2l.tmrl = &tmr1l; ccpr2h.ccprl = &ccpr2l; usart.initialize(pir1,&(*m_portc)[6], &(*m_portc)[7], new _TXREG(this,"txreg", "USART Transmit Register", &usart), new _RCREG(this,"rcreg", "USART Receiver Register", &usart)); add_sfr_register(&usart.rcsta, 0x18, RegisterValue(0,0),"rcsta"); add_sfr_register(&usart.txsta, 0x98, RegisterValue(2,0),"txsta"); add_sfr_register(&usart.spbrg, 0x99, RegisterValue(0,0),"spbrg"); add_sfr_register(usart.txreg, 0x19, RegisterValue(0,0),"txreg"); add_sfr_register(usart.rcreg, 0x1a, RegisterValue(0,0),"rcreg"); if (pir2) { pir2->set_intcon(&intcon_reg); pir2->set_pie(&pie2); } pie2.setPir(get_pir2()); } void P16C65::create_symbols(void) { if(verbose) cout << "creating c65 symbols\n"; // There's nothing to create... } //------------------------------------------------------------------------ // // P16C65 constructor // // Note: Since the 'C65 is derived from the 'C64. So before this constructor // is called, the C64 constructor will be called. Most of the initialization // is done within the 'C64 constructor. P16C65::P16C65(const char *_name, const char *desc) : P16C64(_name,desc), usart(this) { if(verbose) cout << "c65 constructor, type = " << isa() << '\n'; } P16C65::~P16C65() { if (verbose) cout << __FUNCTION__ << endl; if (registers[0xf0]->alias_mask & 0x80) delete_file_registers(0xc0, 0xef); else delete_file_registers(0xc0, 0xff); remove_sfr_register(&ccpr2l); remove_sfr_register(&ccpr2h); remove_sfr_register(&ccp2con); remove_sfr_register(&pie2); remove_sfr_register(&usart.rcsta); remove_sfr_register(&usart.txsta); remove_sfr_register(&usart.spbrg); delete_sfr_register(usart.txreg); delete_sfr_register(usart.rcreg); } void P16C65::create(void) { if(verbose) cout << " c65 create \n"; P16C64::create(); P16C65::create_sfr_map(); // Build the links between the I/O Pins and the internal peripherals // ccp1con.iopin = portc.pins[2]; //1ccp2con.iopin = portc->pins[1]; } Processor * P16C65::construct(const char *name) { P16C65 *p = new P16C65(name); if(verbose) cout << " c65 construct\n"; p->create(); p->create_invalid_registers (); p->create_symbols(); return p; } //======================================================================== // // Configuration Memory for 16F630/676 class ConfigF630 : public ConfigWord { public: ConfigF630(P16F630 *pCpu) : ConfigWord("CONFIG", 0x3fff, "Configuration Word", pCpu, 0x2007) { //Dprintf(("ConfigF630::ConfigF630 %p\n", m_pCpu)); if (m_pCpu) { m_pCpu->set_config_word(0x2007, 0x3fff); } } enum { FOSC0 = 1<<0, FOSC1 = 1<<1, FOSC2 = 1<<2, WDTEN = 1<<3, PWRTEN = 1<<4, MCLRE = 1<<5, BODEN = 1<<6, CP = 1<<7, CPD = 1<<8 }; string toString() { gint64 i64; get(i64); int i = i64 &0xfff; char buff[356]; const char *OSCdesc[8] = { "LP oscillator", "XT oscillator", "HS oscillator", "EC oscillator w/ OSC2 configured as I/O", "INTOSC oscillator: I/O on RA4 pin, I/O on RA5", "INTOSC oscillator: CLKOUT on RA4 pin, I/O on RA5", "RC oscillator: I/O on RA4 pin, RC on RA5", "RC oscillator: CLKOUT on RA4 pin, RC on RA5" }; snprintf(buff,sizeof(buff), " $%04x\n" " FOSC=%d - Clk source = %s\n" " WDTEN=%d - WDT is %s\n" " PWRTEN=%d - Power up timer is %s\n" " MCLRE=%d - RA3 Pin %s\n" " BODEN=%d - Brown-out Detect %s\n" " CP=%d - Code Protection %s\n" " CPD=%d - Data Code Protection %s\n", i, i&(FOSC0|FOSC1|FOSC2), OSCdesc[i&(FOSC0|FOSC1|FOSC2)], ((i&WDTE) ? 1 : 0), ((i&WDTE) ? "enabled" : "disabled"), ((i&PWRTEN) ? 1 : 0), ((i&PWRTEN) ? "disabled" : "enabled"), ((i&MCLRE) ? 1 : 0), ((i&MCLRE) ? "MCLR" : "Input"), ((i&BODEN) ? 1 : 0), ((i&BODEN) ? "enabled" : "disabled"), ((i&CP) ? 1 : 0), ((i&CP) ? "disabled" : "enabled"), ((i&CPD) ? 1 : 0), ((i&CPD) ? "disabled" : "enabled") ); return string(buff); } }; //------------------------------------------------------------------------ // // P16F630::P16F630(const char *_name, const char *desc) : _14bit_processor(_name, desc), t1con(this, "t1con", "TMR1 Control"), pie1(this,"PIE1", "Peripheral Interrupt Enable"), tmr1l(this, "tmr1l", "TMR1 Low"), tmr1h(this, "tmr1h", "TMR1 High"), osccal(this, "osccal", "Oscillator Calibration Register", 0xfc), intcon_reg(this,"intcon","Interrupt Control"), comparator(this) { if(verbose) cout << "P16F630 constructor, type = " << isa() << '\n'; pir1_3_reg = new PIR1v3(this,"pir1","Peripheral Interrupt Register",&intcon_reg,&pie1); pir1 = pir1_3_reg; m_ioc = new IOC(this, "ioc", "Interrupt-On-Change GPIO Register"); m_porta = new PicPortGRegister(this,"porta","",&intcon_reg, m_ioc, 8,0x3f); m_trisa = new PicTrisRegister(this,"trisa","", m_porta, false); m_wpu = new WPU(this, "wpu", "Weak Pull-up Register", m_porta, 0x37); tmr0.set_cpu(this, m_porta, 4, option_reg); tmr0.start(0); m_portc = new PicPortRegister(this,"portc","",8,0x3f); m_trisc = new PicTrisRegister(this,"trisc","", m_portc, false); } P16F630::~P16F630() { if (verbose) cout << __FUNCTION__ << endl; unassignMCLRPin(); delete_file_registers(0x20, 0x5f); delete_sfr_register(m_portc); delete_sfr_register(m_trisc); delete_sfr_register(m_porta); delete_sfr_register(m_trisa); delete_sfr_register(m_ioc); delete_sfr_register(m_wpu); delete_sfr_register(pir1_3_reg); remove_sfr_register(&tmr0); remove_sfr_register(&intcon_reg); remove_sfr_register(&tmr1l); remove_sfr_register(&tmr1h); remove_sfr_register(&t1con); remove_sfr_register(&comparator.cmcon); remove_sfr_register(&comparator.vrcon); remove_sfr_register(&osccal); remove_sfr_register(&pie1); delete e; } void P16F630::create_iopin_map(void) { package = new Package(14); if(!package) return; package->assign_pin(1, 0); // Vdd package->assign_pin( 2, m_porta->addPin(new IO_bi_directional_pu("porta5"),5)); package->assign_pin( 3, m_porta->addPin(new IO_bi_directional_pu("porta4"),4)); package->assign_pin( 4, m_porta->addPin(new IOPIN("porta3"),3)); package->assign_pin( 5, m_portc->addPin(new IO_bi_directional_pu("portc5"),5)); package->assign_pin( 6, m_portc->addPin(new IO_bi_directional("portc4"),4)); package->assign_pin( 7, m_portc->addPin(new IO_bi_directional("portc3"),3)); package->assign_pin( 8, m_portc->addPin(new IO_bi_directional("portc2"),2)); package->assign_pin( 9, m_portc->addPin(new IO_bi_directional("portc1"),1)); package->assign_pin(10, m_portc->addPin(new IO_bi_directional("portc0"),0)); package->assign_pin(11, m_porta->addPin(new IO_bi_directional_pu("porta2"),2)); package->assign_pin(12, m_porta->addPin(new IO_bi_directional_pu("porta1"),1)); package->assign_pin(13, m_porta->addPin(new IO_bi_directional_pu("porta0"),0)); package->assign_pin(14, 0); //VSS tmr1l.setIOpin(&(*m_portc)[0]); } Processor * P16F630::construct(const char *name) { P16F630 *p = new P16F630(name); if(verbose) cout << " P16F630 construct\n"; p->create(128); p->create_invalid_registers (); p->create_symbols(); return p; } void P16F630::create(int eesize) { create_iopin_map(); _14bit_processor::create(); e = new EEPROM_WIDE(this,pir1); e->initialize(eesize); e->set_intcon(&intcon_reg); set_eeprom_wide(e); P16F630::create_sfr_map(); } void P16F630::create_symbols() { pic_processor::create_symbols(); addSymbol(Wreg); } //------------------------------------------------------------------- void P16F630::create_sfr_map() { pir_set_def.set_pir1(pir1); add_file_registers(0x20, 0x5f, 0); alias_file_registers(0x20, 0x5f, 0x80); add_sfr_register(indf, 0x00); alias_file_registers(0x00,0x00,0x80); add_sfr_register(&tmr0, 0x01); add_sfr_register(option_reg, 0x81, RegisterValue(0xff,0)); add_sfr_register(pcl, 0x02, RegisterValue(0,0)); add_sfr_register(status, 0x03, RegisterValue(0x18,0)); add_sfr_register(fsr, 0x04); alias_file_registers(0x02,0x04,0x80); add_sfr_register(m_porta, 0x05); add_sfr_register(m_trisa, 0x85, RegisterValue(0x3f,0)); add_sfr_register(m_portc, 0x07); add_sfr_register(m_trisc, 0x87, RegisterValue(0xff,0)); add_sfr_register(pclath, 0x0a, RegisterValue(0,0)); add_sfr_register(&intcon_reg, 0x0b, RegisterValue(0,0)); alias_file_registers(0x0a,0x0b,0x80); add_sfr_register(pir1, 0x0c, RegisterValue(0,0)); add_sfr_register(&tmr1l, 0x0e, RegisterValue(0,0), "tmr1l"); add_sfr_register(&tmr1h, 0x0f, RegisterValue(0,0), "tmr1h"); add_sfr_register(&t1con, 0x10, RegisterValue(0,0)); intcon = &intcon_reg; intcon_reg.set_pir_set(get_pir_set()); tmr1l.tmrh = &tmr1h; tmr1l.t1con = &t1con; // FIXME -- can't delete this new'd item tmr1l.setInterruptSource(new InterruptSource(pir1, PIR1v3::TMR1IF)); tmr1h.tmrl = &tmr1l; t1con.tmrl = &tmr1l; tmr1l.setIOpin(&(*m_porta)[5]); tmr1l.setGatepin(&(*m_porta)[4]); add_sfr_register(&pie1, 0x8c, RegisterValue(0,0)); if (pir1) { pir1->set_intcon(&intcon_reg); pir1->set_pie(&pie1); } pie1.setPir(pir1); // Link the comparator and voltage ref to porta comparator.initialize(get_pir_set(), NULL, &(*m_porta)[0], &(*m_porta)[1], NULL, NULL, &(*m_porta)[2], NULL); comparator.cmcon.set_configuration(1, 0, AN0, AN1, AN0, AN1, ZERO); comparator.cmcon.set_configuration(1, 1, AN0, AN1, AN0, AN1, OUT0); comparator.cmcon.set_configuration(1, 2, AN0, AN1, AN0, AN1, NO_OUT); comparator.cmcon.set_configuration(1, 3, AN1, VREF, AN1, VREF, OUT0); comparator.cmcon.set_configuration(1, 4, AN1, VREF, AN1, VREF, NO_OUT); comparator.cmcon.set_configuration(1, 5, AN1, VREF, AN0, VREF, OUT0); comparator.cmcon.set_configuration(1, 6, AN1, VREF, AN0, VREF, NO_OUT); comparator.cmcon.set_configuration(1, 7, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 0, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 1, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 2, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 3, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 4, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 5, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 6, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 7, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); add_sfr_register(&comparator.cmcon, 0x19, RegisterValue(0,0),"cmcon"); add_sfr_register(&comparator.vrcon, 0x99, RegisterValue(0,0),"cvrcon"); add_sfr_register(get_eeprom()->get_reg_eedata(), 0x9a); add_sfr_register(get_eeprom()->get_reg_eeadr(), 0x9b); add_sfr_register(get_eeprom()->get_reg_eecon1(), 0x9c, RegisterValue(0,0)); add_sfr_register(get_eeprom()->get_reg_eecon2(), 0x9d); add_sfr_register(m_wpu, 0x95, RegisterValue(0x37,0),"wpua"); add_sfr_register(m_ioc, 0x96, RegisterValue(0,0),"ioca"); add_sfr_register(&osccal, 0x90, RegisterValue(0x80,0)); } //------------------------------------------------------------------- void P16F630::option_new_bits_6_7(unsigned int bits) { m_wpu->set_wpu_pu( (bits & OPTION_REG::BIT7) != OPTION_REG::BIT7); m_porta->setIntEdge((bits & OPTION_REG::BIT6) == OPTION_REG::BIT6); } //------------------------------------------------------------------- void P16F630::create_config_memory() { m_configMemory = new ConfigMemory(this,1); m_configMemory->addConfigWord(0,new ConfigF630(this)); }; //------------------------------------------------------------------- bool P16F630::set_config_word(unsigned int address, unsigned int cfg_word) { enum { CFG_FOSC0 = 1<<0, CFG_FOSC1 = 1<<1, CFG_FOSC2 = 1<<2, CFG_WDTE = 1<<3, CFG_MCLRE = 1<<5, }; if(address == config_word_address()) { unsigned int valid_pins = m_porta->getEnableMask(); if ((cfg_word & CFG_MCLRE) == CFG_MCLRE) { assignMCLRPin(4); } else { unassignMCLRPin(); } wdt.initialize((cfg_word & CFG_WDTE) == CFG_WDTE); set_int_osc(false); // AnalogReq is used so ADC does not change clock names // set_config_word is first called with default and then // often called a second time. the following call is to // reset porta so next call to AnalogReq sill set the pin name // (&(*m_porta)[4])->AnalogReq((Register *)this, false, "porta4"); valid_pins |= 0x20; switch(cfg_word & (CFG_FOSC0 | CFG_FOSC1 | CFG_FOSC2)) { case 0: // LP oscillator: low power crystal is on RA4 and RA5 case 1: // XT oscillator: crystal/resonator is on RA4 and RA5 case 2: // HS oscillator: crystal/resonator is on RA4 and RA5 (&(*m_porta)[4])->AnalogReq((Register *)this, true, "OSC2"); (m_porta->getPin(5))->newGUIname("OSC1"); valid_pins &= 0xcf; break; case 3: // EC I/O on RA4 pin, CLKIN on RA5 (m_porta->getPin(5))->newGUIname("CLKIN"); valid_pins &= 0xef; break; case 5: // INTOSC CLKOUT on RA4 pin (&(*m_porta)[4])->AnalogReq((Register *)this, true, "CLKOUT"); case 4: // INTOSC (m_porta->getPin(5))->newGUIname("porta5"); set_int_osc(true); osccal.set_freq(4e6); break; case 6: //RC oscillator: I/O on RA4 pin, RC on RA5 (m_porta->getPin(5))->newGUIname("RC"); valid_pins &= 0xdf; break; case 7: // RC oscillator: CLKOUT on RA4 pin, RC on RA5 (&(*m_porta)[4])->AnalogReq((Register *)this, true, "CLKOUT"); (m_porta->getPin(5))->newGUIname("RC"); valid_pins &= 0xdf; break; }; if (valid_pins != m_porta->getEnableMask()) // enable new pins for IO { m_porta->setEnableMask(valid_pins); m_trisa->setEnableMask(valid_pins); } return(true); } return false; } //------------------------------------------------------------------------ // // P16F676::P16F676(const char *_name, const char *desc) : P16F630(_name, desc), ansel(this,"ansel", "Analog Select"), adcon0(this,"adcon0", "A2D Control 0"), adcon1(this,"adcon1", "A2D Control 1"), adresh(this,"adresh", "A2D Result High"), adresl(this,"adresl", "A2D Result Low") { } P16F676::~P16F676() { if (verbose) cout << __FUNCTION__ << endl; remove_sfr_register(&adresl); remove_sfr_register(&adresh); remove_sfr_register(&adcon0); remove_sfr_register(&adcon1); remove_sfr_register(&ansel); } Processor * P16F676::construct(const char *name) { P16F676 *p = new P16F676(name); if(verbose) cout << " P16F676 construct\n"; p->create(128); p->create_invalid_registers (); p->create_symbols(); return p; } void P16F676::create(int ram_top) { P16F630::create(ram_top); create_sfr_map(); } void P16F676::create_sfr_map() { add_sfr_register(&adresl, 0x9e, RegisterValue(0,0)); add_sfr_register(&adresh, 0x1e, RegisterValue(0,0)); add_sfr_register(&adcon0, 0x1f, RegisterValue(0,0)); add_sfr_register(&adcon1, 0x9f, RegisterValue(0,0)); add_sfr_register(&ansel, 0x91, RegisterValue(0xff,0)); ansel.setAdcon1(&adcon1); // ansel.setAdcon0(&adcon0); adcon0.setAdresLow(&adresl); adcon0.setAdres(&adresh); adcon0.setAdcon1(&adcon1); adcon0.setIntcon(&intcon_reg); adcon0.setA2DBits(10); adcon0.setPir(pir1); adcon0.setChannel_Mask(7); adcon0.setChannel_shift(2); adcon1.setAdcon0(&adcon0); adcon1.setNumberOfChannels(8); adcon1.setIOPin(0, &(*m_porta)[0]); adcon1.setIOPin(1, &(*m_porta)[1]); adcon1.setIOPin(2, &(*m_porta)[2]); adcon1.setIOPin(3, &(*m_porta)[4]); adcon1.setIOPin(4, &(*m_portc)[0]); adcon1.setIOPin(5, &(*m_portc)[1]); adcon1.setIOPin(6, &(*m_portc)[2]); adcon1.setIOPin(7, &(*m_portc)[3]); adcon1.setVrefHiConfiguration(2, 1); /* Channel Configuration done dynamiclly based on ansel */ } gpsim-0.27.0/src/p16f88x.cc0000664000076400007640000021430512175377101012105 00000000000000/* * Copyright (C) 2010 Roy R. Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ // // p16f88x // // This file supports: // PIC16F882 // PIC16F883 // PIC16F884 // PIC16F885 // PIC16F886 // PIC16F887 // #include #include #include //#include "../config.h" #include "stimuli.h" #include "p16f88x.h" #include "pic-ioports.h" #include "packages.h" #include "symbol.h" //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("%s:%d-%s() ",__FILE__,__LINE__, __FUNCTION__); printf arg; } #else #define Dprintf(arg) {} #endif //======================================================================== // // Configuration Memory for the 16F8X devices. class Config188x : public ConfigWord { public: Config188x(P16F88x *pCpu) : ConfigWord("CONFIG188x", 0x3fff, "Configuration Word", pCpu, 0x2007) { } enum { FOSC0 = 1<<0, FOSC1 = 1<<1, FOSC2 = 1<<2, WDTEN = 1<<3, PWRTEN = 1<<4, MCLRE = 1<<5, BOREN = 1<<8, BOREN1 = 1<<9, LVP = 1<<12, CPD = 1<<8, WRT0 = 1<<9, WRT1 = 1<<10, NOT_DEBUG = 1<<11, }; virtual void set(gint64 v) { Integer::set(v); Dprintf(("Config188x set %x\n", (int)v)); if (m_pCpu) { m_pCpu->wdt.initialize((v & WDTEN) == WDTEN); } } }; //======================================================================== P16F88x::P16F88x(const char *_name, const char *desc) : _14bit_processor(_name,desc), intcon_reg(this,"intcon","Interrupt Control"), t1con(this, "t1con", "TMR1 Control"), pie1(this,"PIE1", "Peripheral Interrupt Enable"), pie2(this,"PIE2", "Peripheral Interrupt Enable"), t2con(this, "t2con", "TMR2 Control"), pr2(this, "pr2", "TMR2 Period Register"), tmr2(this, "tmr2", "TMR2 Register"), tmr1l(this, "tmr1l", "TMR1 Low"), tmr1h(this, "tmr1h", "TMR1 High"), ccp1con(this, "ccp1con", "Capture Compare Control"), ccpr1l(this, "ccpr1l", "Capture Compare 1 Low"), ccpr1h(this, "ccpr1h", "Capture Compare 1 High"), ccp2con(this, "ccp2con", "Capture Compare Control"), ccpr2l(this, "ccpr2l", "Capture Compare 2 Low"), ccpr2h(this, "ccpr2h", "Capture Compare 2 High"), pcon(this, "pcon", "pcon"), ssp(this), osccon(this, "osccon", "OSC Control"), osctune(this, "osctune", "OSC Tune"), wdtcon(this, "wdtcon", "WDT Control", 1), usart(this), cm1con0(this, "cm1con0", "Comparator 1 Control Register"), cm2con0(this, "cm2con0", "Comparator 2 Control Register"), cm2con1(this, "cm2con1", "Comparator 2 Control Register"), vrcon(this, "vrcon", "Voltage Reference Control Register"), srcon(this, "srcon", "SR Latch Control Resgister"), ansel(this,"ansel", "Analog Select"), anselh(this,"anselh", "Analog Select high"), adcon0(this,"adcon0", "A2D Control 0"), adcon1(this,"adcon1", "A2D Control 1"), eccpas(this, "eccpas", "ECCP Auto-Shutdown Control Register"), pwm1con(this, "pwm1con", "Enhanced PWM Control Register"), pstrcon(this, "pstrcon", "Pulse Sterring Control Register"), adresh(this,"adresh", "A2D Result High"), adresl(this,"adresl", "A2D Result Low") { m_porta = new PicPortRegister(this,"porta","", 8,0x1f); m_trisa = new PicTrisRegister(this,"trisa","", m_porta, false); m_ioc = new IOC(this, "iocb", "Interrupt-On-Change B Register"); m_portb = new PicPortGRegister(this,"portb","", &intcon_reg, m_ioc,8,0xff); m_trisb = new PicTrisRegister(this,"trisb","", m_portb, false); m_portc = new PicPortRegister(this,"portc","",8,0xff); m_trisc = new PicTrisRegister(this,"trisc","",m_portc, false); m_porte = new PicPortRegister(this,"porte","",8,0x0f); m_trise = new PicPSP_TrisRegister(this,"trise","",m_porte, false); pir1_2_reg = new PIR1v2(this,"pir1","Peripheral Interrupt Register",&intcon_reg,&pie1); pir2_2_reg = new PIR2v3(this,"pir2","Peripheral Interrupt Register",&intcon_reg,&pie2); pir1 = pir1_2_reg; pir2 = pir2_2_reg; m_wpu = new WPU(this, "wpub", "Weak Pull-up Register", m_portb, 0xff); tmr0.set_cpu(this, m_porta, 4, option_reg); tmr0.start(0); } P16F88x::~P16F88x() { unassignMCLRPin(); delete_file_registers(0x20, 0x7f); delete_file_registers(0xa0, 0xbf); remove_sfr_register(&tmr0); remove_sfr_register(&intcon_reg); remove_sfr_register(&pie2); remove_sfr_register(&pie1); remove_sfr_register(&tmr1l); remove_sfr_register(&tmr1h); remove_sfr_register(&pcon); remove_sfr_register(&t1con); remove_sfr_register(&tmr2); remove_sfr_register(&t2con); remove_sfr_register(&pr2); remove_sfr_register(get_eeprom()->get_reg_eedata()); remove_sfr_register(get_eeprom()->get_reg_eeadr()); remove_sfr_register(get_eeprom()->get_reg_eedatah()); remove_sfr_register(get_eeprom()->get_reg_eeadrh()); remove_sfr_register(get_eeprom()->get_reg_eecon1()); remove_sfr_register(get_eeprom()->get_reg_eecon2()); delete get_eeprom(); remove_sfr_register(&intcon_reg); remove_sfr_register(&osccon); remove_sfr_register(&osctune); remove_sfr_register(&usart.rcsta); remove_sfr_register(&usart.txsta); remove_sfr_register(&usart.spbrg); remove_sfr_register(&usart.spbrgh); remove_sfr_register(&usart.baudcon); remove_sfr_register(&cm1con0); remove_sfr_register(&cm2con0); remove_sfr_register(&cm2con1); remove_sfr_register(&vrcon); remove_sfr_register(&srcon); remove_sfr_register(&wdtcon); remove_sfr_register(&ccpr2l); remove_sfr_register(&ccpr2h); remove_sfr_register(&ccp2con); remove_sfr_register(&adresl); remove_sfr_register(&adresh); remove_sfr_register(&ansel); remove_sfr_register(&anselh); remove_sfr_register(&adcon0); remove_sfr_register(&adcon1); remove_sfr_register(&ccpr1l); remove_sfr_register(&ccpr1h); remove_sfr_register(&ccp1con); remove_sfr_register(&ccpr2l); remove_sfr_register(&ccpr2h); remove_sfr_register(&ccp2con); remove_sfr_register(&pwm1con); remove_sfr_register(&pstrcon); remove_sfr_register(&eccpas); remove_sfr_register(&ssp.sspcon2); if (hasSSP()) { remove_sfr_register(&ssp.sspbuf); remove_sfr_register(&ssp.sspcon); remove_sfr_register(&ssp.sspadd); remove_sfr_register(&ssp.sspstat); } delete_sfr_register(usart.txreg); delete_sfr_register(usart.rcreg); delete_sfr_register(m_porta); delete_sfr_register(m_trisa); delete_sfr_register(m_portb); delete_sfr_register(m_trisb); delete_sfr_register(m_porte); delete_sfr_register(m_trise); delete_sfr_register(m_portc); delete_sfr_register(m_trisc); delete_sfr_register(pir1); delete_sfr_register(pir2); delete_sfr_register(m_wpu); delete_sfr_register(m_ioc); } void P16F88x::create_iopin_map() { fprintf(stderr, "%s should be defined at a higer level\n", __FUNCTION__); } void P16F88x::create_sfr_map() { add_sfr_register(indf, 0x00); alias_file_registers(0x00,0x00,0x80); add_sfr_register(&tmr0, 0x01); add_sfr_register(option_reg, 0x81, RegisterValue(0xff,0)); add_sfr_register(pcl, 0x02, RegisterValue(0,0)); add_sfr_register(status, 0x03, RegisterValue(0x18,0)); add_sfr_register(fsr, 0x04); alias_file_registers(0x02,0x04,0x80); add_sfr_register(m_porta, 0x05); add_sfr_register(m_trisa, 0x85, RegisterValue(0x3f,0)); add_sfr_register(m_portb, 0x06); add_sfr_register(m_trisb, 0x86, RegisterValue(0xff,0)); add_sfr_register(pclath, 0x0a, RegisterValue(0,0)); add_sfr_register(&intcon_reg, 0x0b, RegisterValue(0,0)); //alias_file_registers(0x0a,0x0b,0x80); //Already donw intcon = &intcon_reg; pir_set_2_def.set_pir1(pir1); pir_set_2_def.set_pir2(pir2); add_sfr_register(m_porte, 0x09); add_sfr_register(m_trise, 0x89, RegisterValue(0xff,0)); add_sfr_register(m_portc, 0x07); add_sfr_register(m_trisc, 0x87, RegisterValue(0xff,0)); add_file_registers(0x20, 0x7f, 0); add_file_registers(0xa0, 0xbf, 0); alias_file_registers(0x70,0x7f,0x80); alias_file_registers(0x70,0x7f,0x100); alias_file_registers(0x70,0x7f,0x180); add_sfr_register(get_pir2(), 0x0d, RegisterValue(0,0),"pir2"); add_sfr_register(&pie2, 0x8d, RegisterValue(0,0)); pir_set_2_def.set_pir2(pir2); pie2.setPir(get_pir2()); alias_file_registers(0x00,0x04,0x100); alias_file_registers(0x80,0x84,0x100); alias_file_registers(0x06,0x06,0x100); alias_file_registers(0x86,0x86,0x100); add_sfr_register(pir1, 0x0c, RegisterValue(0,0),"pir1"); add_sfr_register(&pie1, 0x8c, RegisterValue(0,0)); add_sfr_register(&tmr1l, 0x0e, RegisterValue(0,0),"tmr1l"); add_sfr_register(&tmr1h, 0x0f, RegisterValue(0,0),"tmr1h"); add_sfr_register(&pcon, 0x8e, RegisterValue(0,0),"pcon"); add_sfr_register(&t1con, 0x10, RegisterValue(0,0)); add_sfr_register(&tmr2, 0x11, RegisterValue(0,0)); add_sfr_register(&t2con, 0x12, RegisterValue(0,0)); add_sfr_register(&pr2, 0x92, RegisterValue(0xff,0)); add_sfr_register(get_eeprom()->get_reg_eedata(), 0x10c); add_sfr_register(get_eeprom()->get_reg_eeadr(), 0x10d); add_sfr_register(get_eeprom()->get_reg_eedatah(), 0x10e); add_sfr_register(get_eeprom()->get_reg_eeadrh(), 0x10f); add_sfr_register(get_eeprom()->get_reg_eecon1(), 0x18c, RegisterValue(0,0)); add_sfr_register(get_eeprom()->get_reg_eecon2(), 0x18d); alias_file_registers(0x0a,0x0b,0x080); alias_file_registers(0x0a,0x0b,0x100); alias_file_registers(0x0a,0x0b,0x180); intcon_reg.set_pir_set(get_pir_set()); add_sfr_register(&osccon, 0x8f, RegisterValue(0,0),"osccon"); add_sfr_register(&osctune, 0x90, RegisterValue(0,0),"osctune"); osccon.set_osctune(&osctune); osctune.set_osccon(&osccon); usart.initialize(pir1,&(*m_portc)[6], &(*m_portc)[7], new _TXREG(this,"txreg", "USART Transmit Register", &usart), new _RCREG(this,"rcreg", "USART Receiver Register", &usart)); add_sfr_register(&usart.rcsta, 0x18, RegisterValue(0,0),"rcsta"); add_sfr_register(&usart.txsta, 0x98, RegisterValue(2,0),"txsta"); add_sfr_register(&usart.spbrg, 0x99, RegisterValue(0,0),"spbrg"); add_sfr_register(&usart.spbrgh, 0x9a, RegisterValue(0,0),"spbrgh"); add_sfr_register(&usart.baudcon, 0x187,RegisterValue(0x40,0),"baudctl"); add_sfr_register(usart.txreg, 0x19, RegisterValue(0,0),"txreg"); add_sfr_register(usart.rcreg, 0x1a, RegisterValue(0,0),"rcreg"); usart.set_eusart(true); cm1con0.setpins( &(*m_porta)[0], &(*m_porta)[1], &(*m_portb)[3], &(*m_portb)[1], &(*m_porta)[3], &(*m_porta)[4]); cm2con0.setpins( &(*m_porta)[0], &(*m_porta)[1], &(*m_portb)[3], &(*m_portb)[1], &(*m_porta)[2], &(*m_porta)[5]); cm1con0.link_registers(get_pir_set(), &cm2con1, &vrcon, &srcon, &eccpas); cm2con0.link_registers(get_pir_set(), &cm2con1, &vrcon, &srcon, &eccpas); cm2con0.set_tmrl(&tmr1l); cm2con1.link_cm12con0(&cm1con0, &cm2con0); add_sfr_register(&cm1con0, 0x107, RegisterValue(0,0),"cm1con0"); add_sfr_register(&cm2con0, 0x108, RegisterValue(0,0),"cm2con0"); add_sfr_register(&cm2con1, 0x109, RegisterValue(0,0),"cm2con1"); add_sfr_register(&vrcon, 0x97, RegisterValue(0,0),"vrcon"); add_sfr_register(&srcon, 0x185, RegisterValue(0,0),"srcon"); add_sfr_register(&wdtcon, 0x105, RegisterValue(0x08,0),"wdtcon"); add_sfr_register(&adresl, 0x9e, RegisterValue(0,0)); add_sfr_register(&adresh, 0x1e, RegisterValue(0,0)); add_sfr_register(&ansel, 0x188, RegisterValue(0xff,0)); add_sfr_register(&anselh, 0x189, RegisterValue(0xff,0)); add_sfr_register(&adcon0, 0x1f, RegisterValue(0,0)); add_sfr_register(&adcon1, 0x9f, RegisterValue(0,0)); add_sfr_register(m_wpu, 0x95, RegisterValue(0xff,0)); add_sfr_register(m_ioc, 0x96, RegisterValue(0,0)); ansel.setAdcon1(&adcon1); ansel.setAnselh(&anselh); anselh.setAdcon1(&adcon1); anselh.setAnsel(&ansel); adcon0.setAdresLow(&adresl); adcon0.setAdres(&adresh); adcon0.setAdcon1(&adcon1); adcon0.setIntcon(&intcon_reg); adcon0.setA2DBits(10); adcon0.setPir(pir1); adcon0.setChannel_Mask(0xf); adcon0.setChannel_shift(2); adcon0.setGo(1); adcon1.setValidBits(0xb0); adcon1.setNumberOfChannels(14); adcon1.setValidCfgBits(ADCON1::VCFG0 | ADCON1::VCFG1 , 4); adcon1.setIOPin(0, &(*m_porta)[0]); adcon1.setIOPin(1, &(*m_porta)[1]); adcon1.setIOPin(2, &(*m_porta)[2]); adcon1.setIOPin(3, &(*m_porta)[3]); adcon1.setIOPin(4, &(*m_porta)[4]); adcon1.setIOPin(8, &(*m_portb)[2]); adcon1.setIOPin(9, &(*m_portb)[3]); adcon1.setIOPin(10, &(*m_portb)[1]); adcon1.setIOPin(11, &(*m_portb)[4]); adcon1.setIOPin(12, &(*m_portb)[0]); adcon1.setIOPin(13, &(*m_portb)[5]); // set a2d modes where an3 is Vref+ adcon1.setVrefHiConfiguration(1, 3); adcon1.setVrefHiConfiguration(3, 3); // set a2d modes where an2 is Vref- adcon1.setVrefLoConfiguration(2, 2); adcon1.setVrefLoConfiguration(3, 2); vrcon.setValidBits(0xff); // All bits settable add_sfr_register(&ccpr1l, 0x15, RegisterValue(0,0)); add_sfr_register(&ccpr1h, 0x16, RegisterValue(0,0)); add_sfr_register(&ccp1con, 0x17, RegisterValue(0,0)); add_sfr_register(&ccpr2l, 0x1b, RegisterValue(0,0)); add_sfr_register(&ccpr2h, 0x1c, RegisterValue(0,0)); add_sfr_register(&ccp2con, 0x1d, RegisterValue(0,0)); add_sfr_register(&pwm1con, 0x9b, RegisterValue(0,0)); add_sfr_register(&pstrcon, 0x9d, RegisterValue(1,0)); add_sfr_register(&eccpas, 0x9c, RegisterValue(0,0)); eccpas.setIOpin(0, 0, &(*m_portb)[0]); eccpas.link_registers(&pwm1con, &ccp1con); add_sfr_register(&ssp.sspcon2, 0x91, RegisterValue(0,0) ,"sspcon2"); if (hasSSP()) { add_sfr_register(&ssp.sspbuf, 0x13, RegisterValue(0,0),"sspbuf"); add_sfr_register(&ssp.sspcon, 0x14, RegisterValue(0,0),"sspcon"); add_sfr_register(&ssp.sspadd, 0x93, RegisterValue(0,0),"sspadd"); add_sfr_register(&ssp.sspstat, 0x94, RegisterValue(0,0),"sspstat"); tmr2.ssp_module = &ssp; ssp.initialize( get_pir_set(), // PIR &(*m_portc)[3], // SCK &(*m_porta)[5], // SS &(*m_portc)[5], // SDO &(*m_portc)[4], // SDI m_trisc, // i2c tris port SSP_TYPE_SSP ); } tmr1l.tmrh = &tmr1h; tmr1l.t1con = &t1con; tmr1h.tmrl = &tmr1l; t1con.tmrl = &tmr1l; t2con.tmr2 = &tmr2; tmr2.pir_set = get_pir_set(); tmr2.pr2 = &pr2; tmr2.t2con = &t2con; tmr2.add_ccp ( &ccp1con ); tmr2.add_ccp ( &ccp2con ); pr2.tmr2 = &tmr2; tmr1l.setIOpin(&(*m_portc)[0]); ccp1con.setBitMask(0xff); ccp1con.pstrcon = &pstrcon; ccp1con.pwm1con = &pwm1con; ccp1con.setCrosslinks(&ccpr1l, pir1, PIR1v2::CCP1IF, &tmr2, &eccpas); ccpr1l.ccprh = &ccpr1h; ccpr1l.tmrl = &tmr1l; ccpr1h.ccprl = &ccpr1l; ccp2con.setIOpin(&(*m_portc)[1]); ccp2con.setCrosslinks(&ccpr2l, pir2, PIR2v3::CCP2IF, &tmr2); ccpr2l.ccprh = &ccpr2h; ccpr2l.tmrl = &tmr1l; ccpr2h.ccprl = &ccpr2l; if (pir1) { pir1->set_intcon(&intcon_reg); pir1->set_pie(&pie1); } pie1.setPir(pir1); } //------------------------------------------------------------------- void P16F88x::option_new_bits_6_7(unsigned int bits) { Dprintf(("P18F88x::option_new_bits_6_7 bits=%x\n", bits)); m_portb->setIntEdge ( (bits & OPTION_REG::BIT6) == OPTION_REG::BIT6); m_wpu->set_wpu_pu ( (bits & OPTION_REG::BIT7) != OPTION_REG::BIT7); } void P16F88x::create_symbols() { if(verbose) cout << "88x create symbols\n"; pic_processor::create_symbols(); addSymbol(Wreg); } void P16F88x::set_out_of_range_pm(unsigned int address, unsigned int value) { if( (address>= 0x2100) && (address < 0x2100 + get_eeprom()->get_rom_size())) { get_eeprom()->change_rom(address - 0x2100, value); } } //======================================================================== bool P16F88x::set_config_word(unsigned int address, unsigned int cfg_word) { enum { CFG_FOSC0 = 1<<0, CFG_FOSC1 = 1<<1, CFG_FOSC2 = 1<<4, CFG_MCLRE = 1<<5, CFG_CCPMX = 1<<12 }; // Let the base class do most of the work: if (address == 0x2007) { pic_processor::set_config_word(address, cfg_word); if (verbose) cout << "p16f88 0x" << hex << address << " setting config word 0x" << cfg_word << '\n'; unsigned int valid_pins = m_porta->getEnableMask(); set_int_osc(false); // Careful these bits not adjacent switch(cfg_word & (CFG_FOSC0 | CFG_FOSC1 | CFG_FOSC2)) { case 0: // LP oscillator: low power crystal is on RA6 and RA7 case 1: // XT oscillator: crystal/resonator is on RA6 and RA7 case 2: // HS oscillator: crystal/resonator is on RA6 and RA7 (m_porta->getPin(6))->newGUIname("OSC2"); (m_porta->getPin(7))->newGUIname("OSC1"); break; case 0x13: // ER oscillator: RA6 is CLKOUT, resistor (?) on RA7 (m_porta->getPin(6))->newGUIname("CLKOUT"); (m_porta->getPin(7))->newGUIname("OSC1"); break; case 3: // EC: RA6 is an I/O, RA7 is a CLKIN case 0x12: // ER oscillator: RA6 is an I/O, RA7 is a CLKIN (m_porta->getPin(6))->newGUIname("porta6"); (m_porta->getPin(7))->newGUIname("CLKIN"); valid_pins = (valid_pins & 0x7f)|0x40; break; case 0x10: // INTRC: Internal Oscillator, RA6 and RA7 are I/O's set_int_osc(true); (m_porta->getPin(6))->newGUIname("porta6"); (m_porta->getPin(7))->newGUIname("porta7"); valid_pins |= 0xc0; break; case 0x11: // INTRC: Internal Oscillator, RA7 is an I/O, RA6 is CLKOUT set_int_osc(true); (m_porta->getPin(6))->newGUIname("CLKOUT"); (m_porta->getPin(7))->newGUIname("porta7"); valid_pins = (valid_pins & 0xbf)|0x80; break; } // If the /MCLRE bit is set then RE3 is the MCLR pin, otherwise it's // a general purpose I/O pin. if ((cfg_word & CFG_MCLRE)) { assignMCLRPin(1); } else { unassignMCLRPin(); } if (valid_pins != m_porta->getEnableMask()) // enable new pins for IO { m_porta->setEnableMask(valid_pins); m_porta->setTris(m_trisa); } return true; } else if (address == 0x2008 ) { //cout << "p16f88x 0x" << hex << address << " config word2 0x" << cfg_word << '\n'; } return false; } //======================================================================== void P16F88x::create_config_memory() { m_configMemory = new ConfigMemory(this,2); m_configMemory->addConfigWord(0,new Config188x(this)); m_configMemory->addConfigWord(1,new ConfigWord("CONFIG2", 0,"Configuration Word",this,0x2008)); wdt.initialize(true); // default WDT enabled wdt.set_timeout(0.000035); set_config_word(0x2007, 0x3fff); } //======================================================================== void P16F88x::create(int eesize) { create_iopin_map(); _14bit_processor::create(); EEPROM_WIDE *e; e = new EEPROM_WIDE(this,pir2); e->initialize(eesize); e->set_intcon(&intcon_reg); set_eeprom_wide(e); status->rp_mask = 0x60; // rp0 and rp1 are valid. indf->base_address_mask1 = 0x80; // used for indirect accesses above 0x100 indf->base_address_mask2 = 0x1ff; // used for indirect accesses above 0x100 P16F88x::create_sfr_map(); } //======================================================================== // // Pic 16F882 // Processor * P16F882::construct(const char *name) { P16F882 *p = new P16F882(name); p->P16F88x::create(128); p->P16F882::create_sfr_map(); p->create_invalid_registers (); p->create_symbols(); return p; } P16F882::P16F882(const char *_name, const char *desc) : P16F88x(_name,desc) { if(verbose) cout << "f882 constructor, type = " << isa() << '\n'; m_porta->setEnableMask(0xff); } //------------------------------------------------------------------------ // // void P16F882::create_iopin_map(void) { package = new Package(28); if(!package) return; // Now Create the package and place the I/O pins package->assign_pin(1, m_porte->addPin(new IO_bi_directional("porte3"),3)); package->assign_pin( 2, m_porta->addPin(new IO_bi_directional("porta0"),0)); package->assign_pin( 3, m_porta->addPin(new IO_bi_directional("porta1"),1)); package->assign_pin( 4, m_porta->addPin(new IO_bi_directional("porta2"),2)); package->assign_pin( 5, m_porta->addPin(new IO_bi_directional("porta3"),3)); package->assign_pin( 6, m_porta->addPin(new IO_open_collector("porta4"),4)); package->assign_pin( 7, m_porta->addPin(new IO_bi_directional("porta5"),5)); package->assign_pin(8, 0); package->assign_pin( 9, m_porta->addPin(new IO_bi_directional("porta7"),7)); package->assign_pin( 10, m_porta->addPin(new IO_bi_directional("porta6"),6)); package->assign_pin(11, m_portc->addPin(new IO_bi_directional("portc0"),0)); package->assign_pin(12, m_portc->addPin(new IO_bi_directional("portc1"),1)); package->assign_pin(13, m_portc->addPin(new IO_bi_directional("portc2"),2)); package->assign_pin(14, m_portc->addPin(new IO_bi_directional("portc3"),3)); package->assign_pin(15, m_portc->addPin(new IO_bi_directional("portc4"),4)); package->assign_pin(16, m_portc->addPin(new IO_bi_directional("portc5"),5)); package->assign_pin(17, m_portc->addPin(new IO_bi_directional("portc6"),6)); package->assign_pin(18, m_portc->addPin(new IO_bi_directional("portc7"),7)); package->assign_pin(19, 0); package->assign_pin(20, 0); package->assign_pin(21, m_portb->addPin(new IO_bi_directional_pu("portb0"),0)); package->assign_pin(22, m_portb->addPin(new IO_bi_directional_pu("portb1"),1)); package->assign_pin(23, m_portb->addPin(new IO_bi_directional_pu("portb2"),2)); package->assign_pin(24, m_portb->addPin(new IO_bi_directional_pu("portb3"),3)); package->assign_pin(25, m_portb->addPin(new IO_bi_directional_pu("portb4"),4)); package->assign_pin(26, m_portb->addPin(new IO_bi_directional_pu("portb5"),5)); package->assign_pin(27, m_portb->addPin(new IO_bi_directional_pu("portb6"),6)); package->assign_pin(28, m_portb->addPin(new IO_bi_directional_pu("portb7"),7)); } void P16F882::create_symbols(void) { if(verbose) cout << "creating f882 symbols\n"; P16F88x::create_symbols(); addSymbol(m_porte); addSymbol(m_trise); } void P16F882::create_sfr_map() { ccp1con.setIOpin(&(*m_portc)[2], &(*m_portb)[2], &(*m_portb)[1], &(*m_portb)[4]); } //======================================================================== // // Pic 16F883 // Processor * P16F883::construct(const char *name) { P16F883 *p = new P16F883(name); p->P16F88x::create(256); p->P16F883::create_sfr_map(); p->create_invalid_registers (); p->create_symbols(); return p; } P16F883::P16F883(const char *_name, const char *desc) : P16F882(_name,desc) { if(verbose) cout << "f883 constructor, type = " << isa() << '\n'; m_porta->setEnableMask(0xff); } P16F883::~P16F883() { delete_file_registers(0xc0,0xef); delete_file_registers(0x120,0x16f); } void P16F883::create_symbols(void) { if(verbose) cout << "creating f883 symbols\n"; P16F88x::create_symbols(); addSymbol(m_porte); addSymbol(m_trise); } void P16F883::create_sfr_map() { add_file_registers(0xc0,0xef,0); add_file_registers(0x120,0x16f,0); ccp1con.setIOpin(&(*m_portc)[2], &(*m_portb)[2], &(*m_portb)[1], &(*m_portb)[4]); } //======================================================================== // // Pic 16F886 // Processor * P16F886::construct(const char *name) { P16F886 *p = new P16F886(name); p->P16F88x::create(256); p->P16F886::create_sfr_map(); p->create_invalid_registers (); p->create_symbols(); return p; } P16F886::P16F886(const char *_name, const char *desc) : P16F882(_name,desc) { if(verbose) cout << "f886 constructor, type = " << isa() << '\n'; m_porta->setEnableMask(0xff); } P16F886::~P16F886() { delete_file_registers(0xc0,0xef); delete_file_registers(0x120,0x16f); delete_file_registers(0x190,0x1ef); } void P16F886::create_symbols(void) { if(verbose) cout << "creating f886 symbols\n"; P16F88x::create_symbols(); addSymbol(m_porte); addSymbol(m_trise); } void P16F886::create_sfr_map() { add_file_registers(0xc0,0xef,0); add_file_registers(0x120,0x16f,0); add_file_registers(0x190,0x1ef,0); ccp1con.setIOpin(&(*m_portc)[2], &(*m_portb)[2], &(*m_portb)[1], &(*m_portb)[4]); } //======================================================================== // // Pic 16F887 // Processor * P16F887::construct(const char *name) { P16F887 *p = new P16F887(name); p->P16F88x::create(256); p->P16F887::create_sfr_map(); p->create_invalid_registers (); p->create_symbols(); return p; } P16F887::P16F887(const char *_name, const char *desc) : P16F884(_name,desc) { if(verbose) cout << "f887 constructor, type = " << isa() << '\n'; } P16F887::~P16F887() { delete_file_registers(0x110,0x11f); delete_file_registers(0x190,0x1ef); } void P16F887::create_symbols(void) { if(verbose) cout << "creating f887 symbols\n"; P16F88x::create_symbols(); addSymbol(m_portd); addSymbol(m_trisd); } void P16F887::create_sfr_map() { add_file_registers(0xc0,0xef,0); add_file_registers(0x110,0x16f,0); //add_file_registers(0x110,0x11f,0); add_file_registers(0x190,0x1ef,0); add_sfr_register(m_portd, 0x08); add_sfr_register(m_trisd, 0x88, RegisterValue(0xff,0)); ccp1con.setIOpin(&(*m_portc)[2], &(*m_portd)[5], &(*m_portd)[6], &(*m_portd)[7]); adcon1.setIOPin(5, &(*m_porte)[0]); adcon1.setIOPin(6, &(*m_porte)[1]); adcon1.setIOPin(7, &(*m_porte)[2]); } //======================================================================== // // Pic 16F884 // Processor * P16F884::construct(const char *name) { P16F884 *p = new P16F884(name); p->P16F88x::create(256); p->P16F884::create_sfr_map(); p->create_invalid_registers (); p->create_symbols(); return p; } P16F884::P16F884(const char *_name, const char *desc) : P16F88x(_name,desc) { if(verbose) cout << "f884 constructor, type = " << isa() << '\n'; m_porta->setEnableMask(0xff); // trisa5 is an input only pin m_trisa->setEnableMask(0xdf); m_portd = new PicPSP_PortRegister(this,"portd","",8,0xff); m_trisd = new PicTrisRegister(this,"trisd","",(PicPortRegister *)m_portd, false); } P16F884::~P16F884() { delete_file_registers(0xc0,0xef); delete_file_registers(0x120,0x16f); delete_sfr_register(m_portd); delete_sfr_register(m_trisd); } //------------------------------------------------------------------------ // // void P16F884::create_iopin_map(void) { package = new Package(40); if(!package) return; // Now Create the package and place the I/O pins package->assign_pin(1, m_porte->addPin(new IO_bi_directional("porte3"),3)); package->assign_pin( 2, m_porta->addPin(new IO_bi_directional("porta0"),0)); package->assign_pin( 3, m_porta->addPin(new IO_bi_directional("porta1"),1)); package->assign_pin( 4, m_porta->addPin(new IO_bi_directional("porta2"),2)); package->assign_pin( 5, m_porta->addPin(new IO_bi_directional("porta3"),3)); package->assign_pin( 6, m_porta->addPin(new IO_open_collector("porta4"),4)); package->assign_pin( 7, m_porta->addPin(new IO_bi_directional("porta5"),5)); package->assign_pin( 8, m_porte->addPin(new IO_bi_directional("porte0"),0)); package->assign_pin( 9, m_porte->addPin(new IO_bi_directional("porte1"),1)); package->assign_pin(10, m_porte->addPin(new IO_bi_directional("porte2"),2)); package->assign_pin(11, 0); package->assign_pin(12, 0); package->assign_pin( 13, m_porta->addPin(new IO_bi_directional("porta7"),7)); package->assign_pin( 14, m_porta->addPin(new IO_bi_directional("porta6"),6)); package->assign_pin(15, m_portc->addPin(new IO_bi_directional("portc0"),0)); package->assign_pin(16, m_portc->addPin(new IO_bi_directional("portc1"),1)); package->assign_pin(17, m_portc->addPin(new IO_bi_directional("portc2"),2)); package->assign_pin(18, m_portc->addPin(new IO_bi_directional("portc3"),3)); package->assign_pin(23, m_portc->addPin(new IO_bi_directional("portc4"),4)); package->assign_pin(24, m_portc->addPin(new IO_bi_directional("portc5"),5)); package->assign_pin(25, m_portc->addPin(new IO_bi_directional("portc6"),6)); package->assign_pin(26, m_portc->addPin(new IO_bi_directional("portc7"),7)); package->assign_pin(19, m_portd->addPin(new IO_bi_directional("portd0"),0)); package->assign_pin(20, m_portd->addPin(new IO_bi_directional("portd1"),1)); package->assign_pin(21, m_portd->addPin(new IO_bi_directional("portd2"),2)); package->assign_pin(22, m_portd->addPin(new IO_bi_directional("portd3"),3)); package->assign_pin(27, m_portd->addPin(new IO_bi_directional("portd4"),4)); package->assign_pin(28, m_portd->addPin(new IO_bi_directional("portd5"),5)); package->assign_pin(29, m_portd->addPin(new IO_bi_directional("portd6"),6)); package->assign_pin(30, m_portd->addPin(new IO_bi_directional("portd7"),7)); package->assign_pin(31, 0); package->assign_pin(32, 0); package->assign_pin(33, m_portb->addPin(new IO_bi_directional_pu("portb0"),0)); package->assign_pin(34, m_portb->addPin(new IO_bi_directional_pu("portb1"),1)); package->assign_pin(35, m_portb->addPin(new IO_bi_directional_pu("portb2"),2)); package->assign_pin(36, m_portb->addPin(new IO_bi_directional_pu("portb3"),3)); package->assign_pin(37, m_portb->addPin(new IO_bi_directional_pu("portb4"),4)); package->assign_pin(38, m_portb->addPin(new IO_bi_directional_pu("portb5"),5)); package->assign_pin(39, m_portb->addPin(new IO_bi_directional_pu("portb6"),6)); package->assign_pin(40, m_portb->addPin(new IO_bi_directional_pu("portb7"),7)); } void P16F884::create_symbols(void) { if(verbose) cout << "creating f884 symbols\n"; P16F88x::create_symbols(); addSymbol(m_portd); addSymbol(m_trisd); } void P16F884::create_sfr_map() { add_file_registers(0xc0,0xef,0); add_file_registers(0x120,0x16f,0); add_sfr_register(m_portd, 0x08); add_sfr_register(m_trisd, 0x88, RegisterValue(0xff,0)); ccp1con.setIOpin(&(*m_portc)[2], &(*m_portd)[5], &(*m_portd)[6], &(*m_portd)[7]); adcon1.setIOPin(5, &(*m_porte)[0]); adcon1.setIOPin(6, &(*m_porte)[1]); adcon1.setIOPin(7, &(*m_porte)[2]); } //------------------------------------------------------------------------ // // class ConfigF631 : public ConfigWord { public: ConfigF631(P16F631 *pCpu) : ConfigWord("CONFIG", 0x3fff, "Configuration Word", pCpu, 0x2007) { Dprintf(("ConfigF631::ConfigF631 %p\n", m_pCpu)); } enum { FOSC0 = 1<<0, FOSC1 = 1<<1, FOSC2 = 1<<2, WDTEN = 1<<3, PWRTEN = 1<<4, MCLRE = 1<<5, BODEN = 1<<6, CP = 1<<7, CPD = 1<<8 }; string toString() { gint64 i64; get(i64); int i = i64 &0xfff; char buff[356]; const char *OSCdesc[8] = { "LP oscillator", "XT oscillator", "HS oscillator", "EC oscillator w/ OSC2 configured as I/O", "INTOSC oscillator: I/O on RA4 pin, I/O on RA5", "INTOSC oscillator: CLKOUT on RA4 pin, I/O on RA5", "RC oscillator: I/O on RA4 pin, RC on RA5", "RC oscillator: CLKOUT on RA4 pin, RC on RA5" }; snprintf(buff,sizeof(buff), " $%04x\n" " FOSC=%d - Clk source = %s\n" " WDTEN=%d - WDT is %s\n" " PWRTEN=%d - Power up timer is %s\n" " MCLRE=%d - RA3 Pin %s\n" " BODEN=%d - Brown-out Detect %s\n" " CP=%d - Code Protection %s\n" " CPD=%d - Data Code Protection %s\n", i, i&(FOSC0|FOSC1|FOSC2), OSCdesc[i&(FOSC0|FOSC1|FOSC2)], ((i&WDTE) ? 1 : 0), ((i&WDTE) ? "enabled" : "disabled"), ((i&PWRTEN) ? 1 : 0), ((i&PWRTEN) ? "disabled" : "enabled"), ((i&MCLRE) ? 1 : 0), ((i&MCLRE) ? "MCLR" : "Input"), ((i&BODEN) ? 1 : 0), ((i&BODEN) ? "enabled" : "disabled"), ((i&CP) ? 1 : 0), ((i&CP) ? "disabled" : "enabled"), ((i&CPD) ? 1 : 0), ((i&CPD) ? "disabled" : "enabled") ); return string(buff); } }; P16F631::P16F631(const char *_name, const char *desc) : _14bit_processor(_name, desc), t1con(this, "t1con", "TMR1 Control"), pie1(this,"pie1", "Peripheral Interrupt Enable"), pie2(this,"pie2", "Peripheral Interrupt Enable"), tmr1l(this, "tmr1l", "TMR1 Low"), tmr1h(this, "tmr1h", "TMR1 High"), osctune(this, "osctune", "OSC Tune"), pcon(this, "pcon", "pcon"), wdtcon(this, "wdtcon", "WDT Control", 0x1f), osccon(this, "osccon", "OSC Control"), vrcon(this, "vrcon", "Voltage Reference Control Register"), srcon(this, "srcon", "SR Latch Control Resgister"), ansel(this,"ansel", "Analog Select"), cm1con0(this, "cm1con0", "Comparator 1 Control Register"), cm2con0(this, "cm2con0", "Comparator 2 Control Register"), cm2con1(this, "cm2con1", "Comparator 2 Control Register"), adcon0(this,"adcon0", "A2D Control 0"), adcon1(this,"adcon1", "A2D Control 1"), intcon_reg(this,"intcon","Interrupt Control") { if(verbose) cout << "P16F631 constructor, type = " << isa() << '\n'; pir1_2_reg = new PIR1v2(this,"pir1","Peripheral Interrupt Register",&intcon_reg,&pie1); pir1 = pir1_2_reg; pir2_3_reg = new PIR2v3(this,"pir2","Peripheral Interrupt Register",&intcon_reg,&pie2); pir2 = pir2_3_reg; m_ioca = new IOC(this, "ioca", "Interrupt-On-Change GPIO Register"); m_iocb = new IOC(this, "iocb", "Interrupt-On-Change GPIO Register"); m_porta = new PicPortGRegister(this,"porta","",&intcon_reg, m_ioca, 8,0x3f); m_trisa = new PicTrisRegister(this,"trisa","", m_porta, false, 0x37); m_portb = new PicPortGRegister(this,"portb","",&intcon_reg, m_iocb, 8,0xf0); m_trisb = new PicTrisRegister(this,"trisb","", m_portb, false); m_wpua = new WPU(this, "wpua", "Weak Pull-up Register", m_porta, 0x37); m_wpub = new WPU(this, "wpub", "Weak Pull-up Register", m_portb, 0xf0); tmr0.set_cpu(this, m_porta, 4, option_reg); tmr0.start(0); m_portc = new PicPortRegister(this,"portc","",8,0xff); m_trisc = new PicTrisRegister(this,"trisc","", m_portc, false); } P16F631::~P16F631() { if (verbose) cout << __FUNCTION__ << endl; unassignMCLRPin(); delete_file_registers(0x40, 0x7f); remove_sfr_register(get_eeprom()->get_reg_eedata()); remove_sfr_register(get_eeprom()->get_reg_eeadr()); remove_sfr_register(get_eeprom()->get_reg_eecon1()); remove_sfr_register(get_eeprom()->get_reg_eecon2()); remove_sfr_register(&tmr0); remove_sfr_register(&vrcon); remove_sfr_register(&cm1con0); remove_sfr_register(&cm2con0); remove_sfr_register(&cm2con1); remove_sfr_register(&ansel); remove_sfr_register(&srcon); remove_sfr_register(&tmr1l); remove_sfr_register(&tmr1h); remove_sfr_register(&t1con); remove_sfr_register(&pcon); remove_sfr_register(&wdtcon); remove_sfr_register(&osccon); remove_sfr_register(&pie1); remove_sfr_register(&pie2); remove_sfr_register(&intcon_reg); remove_sfr_register(&osctune); delete_sfr_register(pir2); delete_sfr_register(m_portc); delete_sfr_register(m_trisc); delete_sfr_register(m_portb); delete_sfr_register(m_trisb); delete_sfr_register(m_porta); delete_sfr_register(m_trisa); delete_sfr_register(m_ioca); delete_sfr_register(m_iocb); delete_sfr_register(m_wpua); delete_sfr_register(m_wpub); delete_sfr_register(pir1_2_reg); delete e; } void P16F631::create_iopin_map(void) { package = new Package(20); if(!package) return; package->assign_pin(1, 0); // Vdd package->assign_pin( 2, m_porta->addPin(new IO_bi_directional_pu("porta5"),5)); package->assign_pin( 3, m_porta->addPin(new IO_bi_directional_pu("porta4"),4)); package->assign_pin( 4, m_porta->addPin(new IOPIN("porta3"),3)); package->assign_pin( 5, m_portc->addPin(new IO_bi_directional_pu("portc5"),5)); package->assign_pin( 6, m_portc->addPin(new IO_bi_directional("portc4"),4)); package->assign_pin( 7, m_portc->addPin(new IO_bi_directional("portc3"),3)); package->assign_pin( 8, m_portc->addPin(new IO_bi_directional("portc6"),6)); package->assign_pin( 9, m_portc->addPin(new IO_bi_directional("portc7"),7)); package->assign_pin(10, m_portb->addPin(new IO_bi_directional("portb7"),7)); package->assign_pin(11, m_portb->addPin(new IO_bi_directional_pu("portb6"),6)); package->assign_pin(12, m_portb->addPin(new IO_bi_directional_pu("portb5"),5)); package->assign_pin(13, m_portb->addPin(new IO_bi_directional_pu("portb4"),4)); package->assign_pin(14, m_portc->addPin(new IO_bi_directional_pu("portc2"),2)); package->assign_pin(15, m_portc->addPin(new IO_bi_directional_pu("portc1"),1)); package->assign_pin(16, m_portc->addPin(new IO_bi_directional_pu("portc0"),0)); package->assign_pin(17, m_porta->addPin(new IO_bi_directional_pu("porta2"),2)); package->assign_pin(18, m_porta->addPin(new IO_bi_directional_pu("porta1"),1)); package->assign_pin(19, m_porta->addPin(new IO_bi_directional_pu("porta0"),0)); package->assign_pin(20, 0); //VSS tmr1l.setIOpin(&(*m_portc)[0]); } Processor * P16F631::construct(const char *name) { P16F631 *p = new P16F631(name); if(verbose) cout << " P16F631 construct\n"; p->create(128); p->create_invalid_registers (); p->create_symbols(); return p; } void P16F631::create(int eesize) { create_iopin_map(); _14bit_processor::create(); e = new EEPROM_WIDE(this,pir2); e->initialize(eesize); e->set_intcon(&intcon_reg); set_eeprom_wide(e); status->rp_mask = 0x60; // rp0 and rp1 are valid. indf->base_address_mask1 = 0x80; // used for indirect accesses above 0x100 indf->base_address_mask2 = 0x1ff; // used for indirect accesses above 0x100 P16F631::create_sfr_map(); } void P16F631::create_symbols() { pic_processor::create_symbols(); addSymbol(Wreg); } //------------------------------------------------------------------- void P16F631::create_sfr_map() { pir_set_2_def.set_pir1(pir1); pir_set_2_def.set_pir2(pir2); add_file_registers(0x40, 0x7f, 0); alias_file_registers(0x70, 0x7f, 0x80); alias_file_registers(0x70, 0x7f, 0x100); alias_file_registers(0x70, 0x7f, 0x180); add_sfr_register(indf, 0x00); alias_file_registers(0x00,0x00,0x80); alias_file_registers(0x00,0x00,0x100); alias_file_registers(0x00,0x00,0x180); add_sfr_register(&tmr0, 0x01); alias_file_registers(0x01,0x01,0x100); add_sfr_register(option_reg, 0x81, RegisterValue(0xff,0)); alias_file_registers(0x81,0x81,0x100); add_sfr_register(pcl, 0x02, RegisterValue(0,0)); add_sfr_register(status, 0x03, RegisterValue(0x18,0)); add_sfr_register(fsr, 0x04); alias_file_registers(0x02,0x04,0x80); alias_file_registers(0x02,0x04,0x100); alias_file_registers(0x02,0x04,0x180); add_sfr_register(m_porta, 0x05); add_sfr_register(m_trisa, 0x85, RegisterValue(0x3f,0)); add_sfr_register(m_portb, 0x06); add_sfr_register(m_trisb, 0x86, RegisterValue(0xf0,0)); add_sfr_register(m_portc, 0x07); add_sfr_register(m_trisc, 0x87, RegisterValue(0xff,0)); alias_file_registers(0x05,0x07,0x100); alias_file_registers(0x85,0x87,0x100); add_sfr_register(pclath, 0x0a, RegisterValue(0,0)); add_sfr_register(&intcon_reg, 0x00b, RegisterValue(0,0)); alias_file_registers(0x0a,0x0b,0x80); alias_file_registers(0x0a,0x0b,0x100); alias_file_registers(0x0a,0x0b,0x180); add_sfr_register(pir1, 0x0c, RegisterValue(0,0)); add_sfr_register(pir2, 0x0d, RegisterValue(0,0)); add_sfr_register(&tmr1l, 0x0e, RegisterValue(0,0), "tmr1l"); add_sfr_register(&tmr1h, 0x0f, RegisterValue(0,0), "tmr1h"); add_sfr_register(&t1con, 0x10, RegisterValue(0,0)); add_sfr_register(&pcon, 0x8e, RegisterValue(0,0)); add_sfr_register(&wdtcon, 0x97, RegisterValue(0x08,0)); add_sfr_register(&osccon, 0x8f, RegisterValue(0,0)); cm1con0.setpins( &(*m_porta)[1], &(*m_portc)[1], &(*m_portc)[2], &(*m_portc)[3], &(*m_porta)[0], &(*m_porta)[2]); cm2con0.setpins( &(*m_porta)[1], &(*m_portc)[1], &(*m_portc)[2], &(*m_portc)[3], &(*m_portc)[0], &(*m_portc)[4]); cm1con0.link_registers(get_pir_set(), &cm2con1, (VRCON *)&vrcon, &srcon, NULL); cm2con0.link_registers(get_pir_set(), &cm2con1, (VRCON *)&vrcon, &srcon, NULL); cm2con0.set_tmrl(&tmr1l); cm2con1.link_cm12con0((CM1CON0 *)&cm1con0, (CM2CON0 *)&cm2con0); add_sfr_register(&vrcon, 0x118, RegisterValue(0,0),"vrcon"); add_sfr_register(&cm1con0, 0x119, RegisterValue(0,0),"cm1con0"); add_sfr_register(&cm2con0, 0x11a, RegisterValue(0,0),"cm2con0"); add_sfr_register(&cm2con1, 0x11b, RegisterValue(0,0),"cm2con1"); add_sfr_register(&ansel, 0x11e, RegisterValue(0xff,0)); add_sfr_register(&srcon, 0x19e, RegisterValue(0,0),"srcon"); ansel.setAdcon1(&adcon1); ansel.setValidBits(0xff); adcon1.setNumberOfChannels(12); adcon1.setIOPin(0, &(*m_porta)[0]); adcon1.setIOPin(1, &(*m_porta)[1]); adcon1.setIOPin(4, &(*m_portc)[0]); adcon1.setIOPin(5, &(*m_portc)[1]); adcon1.setIOPin(6, &(*m_portc)[2]); adcon1.setIOPin(7, &(*m_portc)[3]); intcon = &intcon_reg; intcon_reg.set_pir_set(get_pir_set()); tmr1l.tmrh = &tmr1h; tmr1l.t1con = &t1con; // FIXME -- can't delete this new'd item tmr1l.setInterruptSource(new InterruptSource(pir1, PIR1v3::TMR1IF)); tmr1h.tmrl = &tmr1l; t1con.tmrl = &tmr1l; tmr1l.setIOpin(&(*m_porta)[5]); tmr1l.setGatepin(&(*m_porta)[4]); add_sfr_register(&pie1, 0x8c, RegisterValue(0,0)); add_sfr_register(&pie2, 0x8d, RegisterValue(0,0)); if (pir1) { pir1->set_intcon(&intcon_reg); pir1->set_pie(&pie1); } pie1.setPir(pir1); pie2.setPir(pir2); add_sfr_register(get_eeprom()->get_reg_eedata(), 0x10c); add_sfr_register(get_eeprom()->get_reg_eeadr(), 0x10d); add_sfr_register(get_eeprom()->get_reg_eecon1(), 0x18c, RegisterValue(0,0)); add_sfr_register(get_eeprom()->get_reg_eecon2(), 0x18d); add_sfr_register(m_wpua, 0x95, RegisterValue(0x37,0),"wpua"); add_sfr_register(m_wpub, 0x115, RegisterValue(0xf0,0),"wpub"); add_sfr_register(m_ioca, 0x96, RegisterValue(0,0),"ioca"); add_sfr_register(m_iocb, 0x116, RegisterValue(0,0),"iocb"); add_sfr_register(&osctune, 0x90, RegisterValue(0,0),"osctune"); osccon.set_osctune(&osctune); osctune.set_osccon(&osccon); } //------------------------------------------------------------------- void P16F631::option_new_bits_6_7(unsigned int bits) { m_wpua->set_wpu_pu( (bits & OPTION_REG::BIT7) != OPTION_REG::BIT7); m_wpub->set_wpu_pu( (bits & OPTION_REG::BIT7) != OPTION_REG::BIT7); m_porta->setIntEdge((bits & OPTION_REG::BIT6) == OPTION_REG::BIT6); } //------------------------------------------------------------------- void P16F631::create_config_memory() { m_configMemory = new ConfigMemory(this,1); m_configMemory->addConfigWord(0,new ConfigF631(this)); wdt.initialize(true); // default WDT enabled wdt.set_timeout(0.000035); set_config_word(0x2007, 0x3fff); }; //------------------------------------------------------------------- bool P16F631::set_config_word(unsigned int address, unsigned int cfg_word) { enum { CFG_FOSC0 = 1<<0, CFG_FOSC1 = 1<<1, CFG_FOSC2 = 1<<2, CFG_WDTE = 1<<3, CFG_MCLRE = 1<<5, }; if(address == config_word_address()) { unsigned int valid_pins = m_porta->getEnableMask(); if ((cfg_word & CFG_MCLRE) == CFG_MCLRE) { assignMCLRPin(4); } else { unassignMCLRPin(); } wdt.initialize((cfg_word & CFG_WDTE) == CFG_WDTE); set_int_osc(false); // AnalogReq is used so ADC does not change clock names // set_config_word is first called with default and then // often called a second time. the following call is to // reset porta so next call to AnalogReq sill set the pin name // (&(*m_porta)[4])->AnalogReq((Register *)this, false, "porta4"); valid_pins |= 0x20; switch(cfg_word & (CFG_FOSC0 | CFG_FOSC1 | CFG_FOSC2)) { case 0: // LP oscillator: low power crystal is on RA4 and RA5 case 1: // XT oscillator: crystal/resonator is on RA4 and RA5 case 2: // HS oscillator: crystal/resonator is on RA4 and RA5 (&(*m_porta)[4])->AnalogReq((Register *)this, true, "OSC2"); (m_porta->getPin(5))->newGUIname("OSC1"); valid_pins &= 0xcf; break; case 3: // EC I/O on RA4 pin, CLKIN on RA5 (m_porta->getPin(5))->newGUIname("CLKIN"); valid_pins &= 0xef; break; case 5: // INTOSC CLKOUT on RA4 pin (&(*m_porta)[4])->AnalogReq((Register *)this, true, "CLKOUT"); case 4: // INTOSC (m_porta->getPin(5))->newGUIname("porta5"); set_int_osc(true); osccon.set_rc_frequency(); break; case 6: //RC oscillator: I/O on RA4 pin, RC on RA5 (m_porta->getPin(5))->newGUIname("RC"); valid_pins &= 0xdf; break; case 7: // RC oscillator: CLKOUT on RA4 pin, RC on RA5 (&(*m_porta)[4])->AnalogReq((Register *)this, true, "CLKOUT"); (m_porta->getPin(5))->newGUIname("RC"); valid_pins &= 0xdf; break; }; if (valid_pins != m_porta->getEnableMask()) // enable new pins for IO { m_porta->setEnableMask(valid_pins); m_trisa->setEnableMask(valid_pins & 0xf7); } return(true); } return false; } //======================================================================== // // Pic 16F684 // P16F684::P16F684(const char *_name, const char *desc) : _14bit_processor(_name, desc), comparator(this), t1con(this, "t1con", "TMR1 Control"), t2con(this, "t2con", "TMR2 Control"), pie1(this,"pie1", "Peripheral Interrupt Enable"), pr2(this, "pr2", "TMR2 Period Register"), tmr2(this, "tmr2", "TMR2 Register"), tmr1l(this, "tmr1l", "TMR1 Low"), tmr1h(this, "tmr1h", "TMR1 High"), osctune(this, "osctune", "OSC Tune"), pcon(this, "pcon", "pcon"), wdtcon(this, "wdtcon", "WDT Control", 0x1f), osccon(this, "osccon", "OSC Control"), ansel(this,"ansel", "Analog Select"), adcon0(this,"adcon0", "A2D Control 0"), adcon1(this,"adcon1", "A2D Control 1"), adresh(this,"adresh", "A2D Result High"), adresl(this,"adresl", "A2D Result Low"), ccp1con(this, "ccp1con", "Capture Compare Control"), ccpr1l(this, "ccpr1l", "Capture Compare 1 Low"), ccpr1h(this, "ccpr1h", "Capture Compare 1 High"), eccpas(this, "eccpas", "ECCP Auto-Shutdown Control Register"), pwm1con(this, "pwm1con", "Enhanced PWM Control Register"), pstrcon(this, "pstrcon", "Pulse Sterring Control Register"), intcon_reg(this,"intcon","Interrupt Control") { if(verbose) cout << "P16F684 constructor, type = " << isa() << '\n'; pir1_3_reg = new PIR1v3(this,"pir1","Peripheral Interrupt Register",&intcon_reg,&pie1); pir1 = pir1_3_reg; pir1->valid_bits = pir1->writable_bits = 0xff; m_ioca = new IOC(this, "ioca", "Interrupt-On-Change GPIO Register"); m_porta = new PicPortGRegister(this,"porta","",&intcon_reg, m_ioca, 8,0x3f); m_trisa = new PicTrisRegister(this,"trisa","", m_porta, false); m_wpua = new WPU(this, "wpua", "Weak Pull-up Register", m_porta, 0x37); tmr0.set_cpu(this, m_porta, 4, option_reg); tmr0.start(0); m_portc = new PicPortRegister(this,"portc","",8,0x3f); m_trisc = new PicTrisRegister(this,"trisc","", m_portc, false); } P16F684::~P16F684() { if (verbose) cout << __FUNCTION__ << endl; unassignMCLRPin(); delete_file_registers(0x20, 0x7f); delete_file_registers(0xa0, 0xbf); remove_sfr_register(&tmr0); remove_sfr_register(&intcon_reg); remove_sfr_register(pir1); remove_sfr_register(&tmr1l); remove_sfr_register(&tmr1h); remove_sfr_register(&t1con); remove_sfr_register(&tmr2); remove_sfr_register(&t2con); remove_sfr_register(&ccpr1l); remove_sfr_register(&ccpr1h); remove_sfr_register(&ccp1con); remove_sfr_register(&pwm1con); remove_sfr_register(&eccpas); remove_sfr_register(&wdtcon); remove_sfr_register(&comparator.cmcon); remove_sfr_register(&comparator.cmcon1); remove_sfr_register(&adresh); remove_sfr_register(&adcon0); remove_sfr_register(&pie1); remove_sfr_register(&pcon); remove_sfr_register(&osccon); remove_sfr_register(&osctune); remove_sfr_register(&ansel); remove_sfr_register(&pr2); remove_sfr_register(&comparator.vrcon); remove_sfr_register(get_eeprom()->get_reg_eedata()); remove_sfr_register(get_eeprom()->get_reg_eeadr()); remove_sfr_register(get_eeprom()->get_reg_eecon1()); remove_sfr_register(get_eeprom()->get_reg_eecon2()); remove_sfr_register(&adresl); remove_sfr_register(&adcon1); delete_sfr_register(m_portc); delete_sfr_register(m_trisc); delete_sfr_register(m_porta); delete_sfr_register(m_trisa); delete_sfr_register(m_ioca); delete_sfr_register(m_wpua); delete_sfr_register(pir1_3_reg); delete e; } void P16F684::create_iopin_map(void) { package = new Package(14); if(!package) return; package->assign_pin(1, 0); // Vdd package->assign_pin( 2, m_porta->addPin(new IO_bi_directional_pu("porta5"),5)); package->assign_pin( 3, m_porta->addPin(new IO_bi_directional_pu("porta4"),4)); package->assign_pin( 4, m_porta->addPin(new IOPIN("porta3"),3)); package->assign_pin( 5, m_portc->addPin(new IO_bi_directional_pu("portc5"),5)); package->assign_pin( 6, m_portc->addPin(new IO_bi_directional("portc4"),4)); package->assign_pin( 7, m_portc->addPin(new IO_bi_directional("portc3"),3)); package->assign_pin( 8, m_portc->addPin(new IO_bi_directional("portc2"),2)); package->assign_pin( 9, m_portc->addPin(new IO_bi_directional("portc1"),1)); package->assign_pin(10, m_portc->addPin(new IO_bi_directional("portc0"),0)); package->assign_pin(11, m_porta->addPin(new IO_bi_directional_pu("porta2"),2)); package->assign_pin(12, m_porta->addPin(new IO_bi_directional_pu("porta1"),1)); package->assign_pin(13, m_porta->addPin(new IO_bi_directional_pu("porta0"),0)); package->assign_pin(14, 0); //VSS tmr1l.setIOpin(&(*m_portc)[0]); } Processor * P16F684::construct(const char *name) { P16F684 *p = new P16F684(name); if(verbose) cout << " P16F684 construct\n"; p->create(256); p->create_invalid_registers (); p->create_symbols(); return p; } void P16F684::create(int eesize) { create_iopin_map(); _14bit_processor::create(); e = new EEPROM_WIDE(this,pir1); e->initialize(eesize); e->set_intcon(&intcon_reg); set_eeprom_wide(e); status->rp_mask = 0x60; // rp0 and rp1 are valid. indf->base_address_mask1 = 0x80; // used for indirect accesses above 0x100 indf->base_address_mask2 = 0x1ff; // used for indirect accesses above 0x100 P16F684::create_sfr_map(); } void P16F684::create_symbols() { pic_processor::create_symbols(); addSymbol(Wreg); } //------------------------------------------------------------------- void P16F684::create_sfr_map() { pir_set_def.set_pir1(pir1); add_file_registers(0x20, 0x7f, 0); add_file_registers(0xa0, 0xbf, 0); alias_file_registers(0x70, 0x7f, 0x80); add_sfr_register(indf, 0x00); alias_file_registers(0x00,0x00,0x80); add_sfr_register(&tmr0, 0x01); add_sfr_register(option_reg, 0x81, RegisterValue(0xff,0)); add_sfr_register(pcl, 0x02, RegisterValue(0,0)); add_sfr_register(status, 0x03, RegisterValue(0x18,0)); add_sfr_register(fsr, 0x04); alias_file_registers(0x02,0x04,0x80); add_sfr_register(m_porta, 0x05); add_sfr_register(m_trisa, 0x85, RegisterValue(0x3f,0)); add_sfr_register(m_portc, 0x07); add_sfr_register(m_trisc, 0x87, RegisterValue(0xff,0)); add_sfr_register(pclath, 0x0a, RegisterValue(0,0)); add_sfr_register(&intcon_reg, 0x00b, RegisterValue(0,0)); alias_file_registers(0x0a,0x0b,0x80); add_sfr_register(pir1, 0x0c, RegisterValue(0,0)); add_sfr_register(&tmr1l, 0x0e, RegisterValue(0,0), "tmr1l"); add_sfr_register(&tmr1h, 0x0f, RegisterValue(0,0), "tmr1h"); add_sfr_register(&t1con, 0x10, RegisterValue(0,0)); add_sfr_register(&tmr2, 0x11, RegisterValue(0,0)); add_sfr_register(&t2con, 0x12, RegisterValue(0,0)); add_sfr_register(&ccpr1l, 0x13, RegisterValue(0,0)); add_sfr_register(&ccpr1h, 0x14, RegisterValue(0,0)); add_sfr_register(&ccp1con, 0x15, RegisterValue(0,0)); add_sfr_register(&pwm1con, 0x16, RegisterValue(0,0)); add_sfr_register(&eccpas, 0x17, RegisterValue(0,0)); add_sfr_register(&wdtcon, 0x18, RegisterValue(0x08,0)); add_sfr_register(&comparator.cmcon, 0x19, RegisterValue(0,0), "cmcon0"); add_sfr_register(&comparator.cmcon1, 0x1a, RegisterValue(0,0), "cmcon1"); add_sfr_register(&adresh, 0x1e, RegisterValue(0,0)); add_sfr_register(&adcon0, 0x1f, RegisterValue(0,0)); add_sfr_register(&pie1, 0x8c, RegisterValue(0,0)); add_sfr_register(&pcon, 0x8e, RegisterValue(0,0)); add_sfr_register(&osccon, 0x8f, RegisterValue(0,0)); add_sfr_register(&osctune, 0x90, RegisterValue(0,0),"osctune"); add_sfr_register(&ansel, 0x91, RegisterValue(0xff,0)); add_sfr_register(&pr2, 0x92, RegisterValue(0xff,0)); add_sfr_register(m_wpua, 0x95, RegisterValue(0x37,0),"wpua"); add_sfr_register(m_ioca, 0x96, RegisterValue(0,0),"ioca"); add_sfr_register(&comparator.vrcon, 0x99, RegisterValue(0,0),"vrcon"); add_sfr_register(get_eeprom()->get_reg_eedata(), 0x9a); add_sfr_register(get_eeprom()->get_reg_eeadr(), 0x9b); add_sfr_register(get_eeprom()->get_reg_eecon1(), 0x9c, RegisterValue(0,0)); add_sfr_register(get_eeprom()->get_reg_eecon2(), 0x9d); add_sfr_register(&adresl, 0x9e, RegisterValue(0,0)); add_sfr_register(&adcon1, 0x9f, RegisterValue(0,0)); ansel.setAdcon1(&adcon1); ansel.setValidBits(0xff); // Link the comparator and voltage ref to porta comparator.initialize(&pir_set_def, NULL, &(*m_porta)[0], &(*m_porta)[1], &(*m_portc)[0], &(*m_portc)[1], &(*m_porta)[2], &(*m_portc)[4]); comparator.cmcon.set_tmrl(&tmr1l); comparator.cmcon1.set_tmrl(&tmr1l); comparator.cmcon.set_configuration(1, 0, AN0, AN1, AN0, AN1, ZERO); comparator.cmcon.set_configuration(2, 0, AN2, AN3, AN2, AN3, ZERO); comparator.cmcon.set_configuration(1, 1, AN0, AN3, AN1, AN3, NO_OUT); comparator.cmcon.set_configuration(2, 1, AN2, AN3, AN2, AN3, NO_OUT); comparator.cmcon.set_configuration(1, 2, AN1, VREF, AN0, VREF, NO_OUT); comparator.cmcon.set_configuration(2, 2, AN3, VREF, AN2, VREF, NO_OUT); comparator.cmcon.set_configuration(1, 3, AN0, AN3, AN0, AN3, NO_OUT); comparator.cmcon.set_configuration(2, 3, AN2, AN3, AN2, AN3, NO_OUT); comparator.cmcon.set_configuration(1, 4, AN0, AN1, AN0, AN1, NO_OUT); comparator.cmcon.set_configuration(2, 4, AN2, AN3, AN2, AN3, NO_OUT); comparator.cmcon.set_configuration(1, 5, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 5, AN2, AN3, AN2, AN3, NO_OUT); comparator.cmcon.set_configuration(1, 6, AN0, AN3, AN0, AN3, OUT0); comparator.cmcon.set_configuration(2, 6, AN2, AN3, AN2, AN3, OUT1); comparator.cmcon.set_configuration(1, 7, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 7, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.vrcon.setValidBits(0xaf); adcon0.setAdresLow(&adresl); adcon0.setAdres(&adresh); adcon0.setAdcon1(&adcon1); adcon0.setIntcon(&intcon_reg); adcon0.setA2DBits(10); adcon0.setPir(pir1); adcon0.setChannel_Mask(7); adcon0.setChannel_shift(2); adcon1.setAdcon0(&adcon0); // VCFG0, VCFG1 in adcon0 adcon1.setNumberOfChannels(8); adcon1.setIOPin(0, &(*m_porta)[0]); adcon1.setIOPin(1, &(*m_porta)[1]); adcon1.setIOPin(2, &(*m_porta)[2]); adcon1.setIOPin(3, &(*m_porta)[4]); adcon1.setIOPin(4, &(*m_portc)[0]); adcon1.setIOPin(5, &(*m_portc)[1]); adcon1.setIOPin(6, &(*m_portc)[2]); adcon1.setIOPin(7, &(*m_portc)[3]); adcon1.setVrefHiConfiguration(2, 1); intcon = &intcon_reg; intcon_reg.set_pir_set(get_pir_set()); tmr1l.tmrh = &tmr1h; tmr1l.t1con = &t1con; // FIXME -- can't delete this new'd item tmr1l.setInterruptSource(new InterruptSource(pir1, PIR1v3::TMR1IF)); tmr1h.tmrl = &tmr1l; t1con.tmrl = &tmr1l; tmr1l.setIOpin(&(*m_porta)[5]); tmr1l.setGatepin(&(*m_porta)[4]); if (pir1) { pir1->set_intcon(&intcon_reg); pir1->set_pie(&pie1); } pie1.setPir(pir1); t2con.tmr2 = &tmr2; tmr2.pir_set = get_pir_set(); tmr2.pr2 = &pr2; tmr2.t2con = &t2con; tmr2.add_ccp ( &ccp1con ); pr2.tmr2 = &tmr2; eccpas.setIOpin(0, 0, &(*m_portc)[5]); eccpas.link_registers(&pwm1con, &ccp1con); ccp1con.setIOpin(&(*m_portc)[5], &(*m_portc)[4], &(*m_portc)[3], &(*m_portc)[2]); ccp1con.setBitMask(0xff); ccp1con.pstrcon = &pstrcon; ccp1con.pwm1con = &pwm1con; ccp1con.setCrosslinks(&ccpr1l, pir1, PIR1v2::CCP1IF, &tmr2, &eccpas); ccpr1l.ccprh = &ccpr1h; ccpr1l.tmrl = &tmr1l; ccpr1h.ccprl = &ccpr1l; osccon.set_osctune(&osctune); osctune.set_osccon(&osccon); } //------------------------------------------------------------------- void P16F684::option_new_bits_6_7(unsigned int bits) { m_wpua->set_wpu_pu( (bits & OPTION_REG::BIT7) != OPTION_REG::BIT7); m_porta->setIntEdge((bits & OPTION_REG::BIT6) == OPTION_REG::BIT6); } //------------------------------------------------------------------- void P16F684::create_config_memory() { m_configMemory = new ConfigMemory(this,1); m_configMemory->addConfigWord(0,new ConfigF631((P16F631*)this)); wdt.initialize(true); // default WDT enabled wdt.set_timeout(0.000035); set_config_word(0x2007, 0x3fff); }; //------------------------------------------------------------------- bool P16F684::set_config_word(unsigned int address, unsigned int cfg_word) { enum { CFG_FOSC0 = 1<<0, CFG_FOSC1 = 1<<1, CFG_FOSC2 = 1<<2, CFG_WDTE = 1<<3, CFG_MCLRE = 1<<5, }; if(address == config_word_address()) { unsigned int valid_pins = m_porta->getEnableMask(); if ((cfg_word & CFG_MCLRE) == CFG_MCLRE) { assignMCLRPin(4); } else { unassignMCLRPin(); } wdt.initialize((cfg_word & CFG_WDTE) == CFG_WDTE); set_int_osc(false); // AnalogReq is used so ADC does not change clock names // set_config_word is first called with default and then // often called a second time. the following call is to // reset porta so next call to AnalogReq sill set the pin name // (&(*m_porta)[4])->AnalogReq((Register *)this, false, "porta4"); valid_pins |= 0x20; switch(cfg_word & (CFG_FOSC0 | CFG_FOSC1 | CFG_FOSC2)) { case 0: // LP oscillator: low power crystal is on RA4 and RA5 case 1: // XT oscillator: crystal/resonator is on RA4 and RA5 case 2: // HS oscillator: crystal/resonator is on RA4 and RA5 (&(*m_porta)[4])->AnalogReq((Register *)this, true, "OSC2"); (m_porta->getPin(5))->newGUIname("OSC1"); valid_pins &= 0xcf; break; case 3: // EC I/O on RA4 pin, CLKIN on RA5 (m_porta->getPin(5))->newGUIname("CLKIN"); valid_pins &= 0xef; break; case 5: // INTOSC CLKOUT on RA4 pin (&(*m_porta)[4])->AnalogReq((Register *)this, true, "CLKOUT"); case 4: // INTOSC (m_porta->getPin(5))->newGUIname("porta5"); set_int_osc(true); osccon.set_rc_frequency(); break; case 6: //RC oscillator: I/O on RA4 pin, RC on RA5 (m_porta->getPin(5))->newGUIname("RC"); valid_pins &= 0xdf; break; case 7: // RC oscillator: CLKOUT on RA4 pin, RC on RA5 (&(*m_porta)[4])->AnalogReq((Register *)this, true, "CLKOUT"); (m_porta->getPin(5))->newGUIname("RC"); valid_pins &= 0xdf; break; }; if (valid_pins != m_porta->getEnableMask()) // enable new pins for IO { m_porta->setEnableMask(valid_pins); m_trisa->setEnableMask(valid_pins); } return(true); } return false; } //======================================================================== // // Pic 16F677 // Processor * P16F677::construct(const char *name) { P16F677 *p = new P16F677(name); p->create(256); p->set_hasSSP(); p->create_sfr_map(); p->create_invalid_registers (); p->create_symbols(); return p; } P16F677::P16F677(const char *_name, const char *desc) : P16F631(_name,desc), ssp(this), anselh(this,"anselh", "Analog Select high"), adresh(this,"adresh", "A2D Result High"), adresl(this,"adresl", "A2D Result Low") { if(verbose) cout << "f677 constructor, type = " << isa() << '\n'; } P16F677::~P16F677() { delete_file_registers(0x20,0x3f); delete_file_registers(0xa0,0xbf); remove_sfr_register(&anselh); if (hasSSP()) { remove_sfr_register(&ssp.sspbuf); remove_sfr_register(&ssp.sspcon); remove_sfr_register(&ssp.sspadd); remove_sfr_register(&ssp.sspstat); } remove_sfr_register(&adresl); remove_sfr_register(&adresh); remove_sfr_register(&adcon0); remove_sfr_register(&adcon1); delete m_cvref; delete m_v06ref; } void P16F677::create_symbols(void) { if(verbose) cout << "creating f677 symbols\n"; P16F631::create_symbols(); } void P16F677::create_sfr_map() { ansel.setAdcon1(&adcon1); ansel.setAnselh(&anselh); anselh.setAdcon1(&adcon1); anselh.setAnsel(&ansel); anselh.setValidBits(0x0f); ansel.setValidBits(0xff); adcon0.setAdresLow(&adresl); adcon0.setAdres(&adresh); adcon0.setAdcon1(&adcon1); adcon0.setIntcon(&intcon_reg); adcon0.setA2DBits(10); adcon0.setPir(pir1); adcon0.setChannel_Mask(0xf); adcon0.setChannel_shift(2); adcon0.setGo(1); adcon0.setValidBits(0xff); adcon1.setValidBits(0xb0); adcon1.setAdcon0(&adcon0); adcon1.setNumberOfChannels(14); adcon1.setValidCfgBits(ADCON1::VCFG0 , 6); adcon1.setIOPin(2, &(*m_porta)[2]); adcon1.setIOPin(3, &(*m_porta)[4]); adcon1.setIOPin(8, &(*m_portc)[6]); adcon1.setIOPin(9, &(*m_portc)[7]); adcon1.setIOPin(10, &(*m_portb)[4]); adcon1.setIOPin(11, &(*m_portb)[5]); adcon1.setVoltRef(12, 0.0); adcon1.setVoltRef(13, 0.0); m_cvref = new a2d_stimulus(&adcon1, 12, "a2d_cvref"); m_v06ref = new a2d_stimulus(&adcon1, 13, "a2d_v06ref"); ((Processor *)this)->CVREF->attach_stimulus(m_cvref); ((Processor *)this)->V06REF->attach_stimulus(m_v06ref); // set a2d modes where an1 is Vref+ adcon1.setVrefHiConfiguration(2, 1); add_sfr_register(&anselh, 0x11f, RegisterValue(0x0f,0)); add_file_registers(0x20,0x3f,0); add_file_registers(0xa0,0xbf,0); // ccp1con.setIOpin(&(*m_portc)[2], &(*m_portb)[2], &(*m_portb)[1], &(*m_portb)[4]); if (hasSSP()) { add_sfr_register(&ssp.sspbuf, 0x13, RegisterValue(0,0),"sspbuf"); add_sfr_register(&ssp.sspcon, 0x14, RegisterValue(0,0),"sspcon"); add_sfr_register(&ssp.sspadd, 0x93, RegisterValue(0,0),"sspadd"); add_sfr_register(&ssp.sspstat, 0x94, RegisterValue(0,0),"sspstat"); ssp.initialize( get_pir_set(), // PIR &(*m_portb)[6], // SCK &(*m_portc)[6], // SS &(*m_portc)[7], // SDO &(*m_portb)[4], // SDI m_trisb, // i2c tris port SSP_TYPE_SSP ); } add_sfr_register(&adresl, 0x9e, RegisterValue(0,0)); add_sfr_register(&adresh, 0x1e, RegisterValue(0,0)); add_sfr_register(&adcon0, 0x1f, RegisterValue(0,0)); add_sfr_register(&adcon1, 0x9f, RegisterValue(0,0)); } //======================================================================== // // Pic 16F685 // Processor * P16F685::construct(const char *name) { P16F685 *p = new P16F685(name); p->create(256); p->create_sfr_map(); p->create_invalid_registers (); p->create_symbols(); return p; } P16F685::P16F685(const char *_name, const char *desc) : P16F677(_name,desc), t2con(this, "t2con", "TMR2 Control"), pr2(this, "pr2", "TMR2 Period Register"), tmr2(this, "tmr2", "TMR2 Register"), tmr1l(this, "tmr1l", "TMR1 Low"), tmr1h(this, "tmr1h", "TMR1 High"), ccp1con(this, "ccp1con", "Capture Compare Control"), ccpr1l(this, "ccpr1l", "Capture Compare 1 Low"), ccpr1h(this, "ccpr1h", "Capture Compare 1 High"), pcon(this, "pcon", "pcon"), eccpas(this, "eccpas", "ECCP Auto-Shutdown Control Register"), pwm1con(this, "pwm1con", "Enhanced PWM Control Register"), pstrcon(this, "pstrcon", "Pulse Sterring Control Register") { if(verbose) cout << "f685 constructor, type = " << isa() << '\n'; set_hasSSP(); } P16F685::~P16F685() { delete_file_registers(0xc0,0xef); delete_file_registers(0x120,0x16f); remove_sfr_register(&pstrcon); remove_sfr_register(&tmr2); remove_sfr_register(&t2con); remove_sfr_register(&pr2); remove_sfr_register(&ccpr1l); remove_sfr_register(&ccpr1h); remove_sfr_register(&ccp1con); remove_sfr_register(&pwm1con); remove_sfr_register(&eccpas); } void P16F685::create_symbols(void) { if(verbose) cout << "creating f685 symbols\n"; P16F677::create_symbols(); } void P16F685::create_sfr_map() { P16F677::create_sfr_map(); add_sfr_register(get_eeprom()->get_reg_eedatah(), 0x10e); add_sfr_register(get_eeprom()->get_reg_eeadrh(), 0x10f); add_sfr_register(&tmr2, 0x11, RegisterValue(0,0)); add_sfr_register(&t2con, 0x12, RegisterValue(0,0)); add_sfr_register(&pr2, 0x92, RegisterValue(0xff,0)); t2con.tmr2 = &tmr2; tmr2.pir_set = get_pir_set(); tmr2.pr2 = &pr2; tmr2.t2con = &t2con; tmr2.add_ccp ( &ccp1con ); pr2.tmr2 = &tmr2; eccpas.setIOpin(0, 0, &(*m_portb)[0]); eccpas.link_registers(&pwm1con, &ccp1con); add_sfr_register(&pstrcon, 0x19d, RegisterValue(1,0)); ccp1con.setIOpin(&(*m_portc)[5], &(*m_portc)[4], &(*m_portc)[3], &(*m_portc)[2]); ccp1con.setBitMask(0xff); ccp1con.pstrcon = &pstrcon; ccp1con.pwm1con = &pwm1con; ccp1con.setCrosslinks(&ccpr1l, pir1, PIR1v2::CCP1IF, &tmr2, &eccpas); ccpr1l.ccprh = &ccpr1h; ccpr1l.tmrl = &tmr1l; ccpr1h.ccprl = &ccpr1l; add_sfr_register(&ccpr1l, 0x15, RegisterValue(0,0)); add_sfr_register(&ccpr1h, 0x16, RegisterValue(0,0)); add_sfr_register(&ccp1con, 0x17, RegisterValue(0,0)); add_sfr_register(&pwm1con, 0x1c, RegisterValue(0,0)); add_sfr_register(&eccpas, 0x1d, RegisterValue(0,0)); // add_file_registers(0x20,0x3f,0); // add_file_registers(0xa0,0xef,0); add_file_registers(0xc0,0xef,0); add_file_registers(0x120,0x16f,0); } //======================================================================== // // Pic 16F687 // Processor * P16F687::construct(const char *name) { P16F687 *p = new P16F687(name); p->create(256); p->create_sfr_map(); p->create_invalid_registers (); p->create_symbols(); return p; } P16F687::P16F687(const char *_name, const char *desc) : P16F677(_name,desc), tmr1l(this, "tmr1l", "TMR1 Low"), tmr1h(this, "tmr1h", "TMR1 High"), pcon(this, "pcon", "pcon"), usart(this) { if(verbose) cout << "f687 constructor, type = " << isa() << '\n'; set_hasSSP(); } P16F687::~P16F687() { remove_sfr_register(&usart.rcsta); remove_sfr_register(&usart.txsta); remove_sfr_register(&usart.spbrg); remove_sfr_register(&usart.spbrgh); remove_sfr_register(&usart.baudcon); delete_sfr_register(usart.txreg); delete_sfr_register(usart.rcreg); } void P16F687::create_symbols(void) { if(verbose) cout << "creating f687 symbols\n"; P16F677::create_symbols(); } void P16F687::create_sfr_map() { P16F677::create_sfr_map(); add_sfr_register(get_eeprom()->get_reg_eedatah(), 0x10e); add_sfr_register(get_eeprom()->get_reg_eeadrh(), 0x10f); // add_file_registers(0x20,0x3f,0); // add_file_registers(0xa0,0xbf,0); usart.initialize(pir1,&(*m_portb)[7], &(*m_portb)[5], new _TXREG(this,"txreg", "USART Transmit Register", &usart), new _RCREG(this,"rcreg", "USART Receiver Register", &usart)); add_sfr_register(&usart.rcsta, 0x18, RegisterValue(0,0),"rcsta"); add_sfr_register(&usart.txsta, 0x98, RegisterValue(2,0),"txsta"); add_sfr_register(&usart.spbrg, 0x99, RegisterValue(0,0),"spbrg"); add_sfr_register(&usart.spbrgh, 0x9a, RegisterValue(0,0),"spbrgh"); add_sfr_register(&usart.baudcon, 0x9b,RegisterValue(0x40,0),"baudctl"); add_sfr_register(usart.txreg, 0x19, RegisterValue(0,0),"txreg"); add_sfr_register(usart.rcreg, 0x1a, RegisterValue(0,0),"rcreg"); usart.set_eusart(true); } //======================================================================== // // Pic 16F689 // Processor * P16F689::construct(const char *name) { P16F689 *p = new P16F689(name); p->create(256); p->create_sfr_map(); p->create_invalid_registers (); p->create_symbols(); return p; } P16F689::P16F689(const char *_name, const char *desc) : P16F687(_name,desc) { if(verbose) cout << "f689 constructor, type = " << isa() << '\n'; set_hasSSP(); } //======================================================================== // // Pic 16F690 // Processor * P16F690::construct(const char *name) { P16F690 *p = new P16F690(name); p->create(256); p->create_sfr_map(); p->create_invalid_registers (); p->create_symbols(); return p; } P16F690::P16F690(const char *_name, const char *desc) : P16F685(_name,desc), ccp2con(this, "ccp2con", "Capture Compare Control"), ccpr2l(this, "ccpr2l", "Capture Compare 2 Low"), ccpr2h(this, "ccpr2h", "Capture Compare 2 High"), usart(this) { if(verbose) cout << "f690 constructor, type = " << isa() << '\n'; set_hasSSP(); } P16F690::~P16F690() { remove_sfr_register(&usart.rcsta); remove_sfr_register(&usart.txsta); remove_sfr_register(&usart.spbrg); remove_sfr_register(&usart.spbrgh); remove_sfr_register(&usart.baudcon); delete_sfr_register(usart.txreg); delete_sfr_register(usart.rcreg); } void P16F690::create_symbols(void) { if(verbose) cout << "creating f690 symbols\n"; P16F685::create_symbols(); } void P16F690::create_sfr_map() { P16F685::create_sfr_map(); tmr2.ssp_module = &ssp; eccpas.setIOpin(0, 0, &(*m_portb)[0]); eccpas.link_registers(&pwm1con, &ccp1con); usart.initialize(pir1,&(*m_portb)[7], &(*m_portb)[5], new _TXREG(this,"txreg", "USART Transmit Register", &usart), new _RCREG(this,"rcreg", "USART Receiver Register", &usart)); add_sfr_register(&usart.rcsta, 0x18, RegisterValue(0,0),"rcsta"); add_sfr_register(&usart.txsta, 0x98, RegisterValue(2,0),"txsta"); add_sfr_register(&usart.spbrg, 0x99, RegisterValue(0,0),"spbrg"); add_sfr_register(&usart.spbrgh, 0x9a, RegisterValue(0,0),"spbrgh"); add_sfr_register(&usart.baudcon, 0x9b,RegisterValue(0x40,0),"baudctl"); add_sfr_register(usart.txreg, 0x19, RegisterValue(0,0),"txreg"); add_sfr_register(usart.rcreg, 0x1a, RegisterValue(0,0),"rcreg"); usart.set_eusart(true); // add_sfr_register(&pstrcon, 0x19d, RegisterValue(1,0)); } gpsim-0.27.0/src/14bit-tmrs.h0000664000076400007640000004045012175377101012527 00000000000000/* Copyright (C) 1998 T. Scott Dattalo Copyright (C) 2009,2010,2013 Roy R. Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __14_BIT_TMRS_H__ #define __14_BIT_TMRS_H__ #include "gpsim_classes.h" #include "registers.h" #include "breakpoints.h" #include "ioports.h" #include "ssp.h" class TMRL; class TMRH; class TMR2; class CCPRL; class CCPCON; class PWM1CON; class ADCON0; class PIR_SET; class InterruptSource; class _14bit_processor; //--------------------------------------------------------- // Todo // // The timer base classes need to be abstracted one more // layer. The 18fxxx parts have a new timer, TMR3, that's // almost but not quite, identical to the 16fxx's TMR1. //--------------------------------------------------------- // CCPCON - Capture and Compare registers //--------------------------------------------------------- class CCPRH : public sfr_register { public: CCPRL *ccprl; bool pwm_mode; unsigned int pwm_value; CCPRH(Processor *pCpu, const char *pName, const char *pDesc=0); void put(unsigned int new_value); void put_value(unsigned int new_value); unsigned int get(); }; class CCPRL : public sfr_register { public: CCPRH *ccprh; CCPCON *ccpcon; TMRL *tmrl; void put(unsigned int new_value); void capture_tmr(); void start_compare_mode(CCPCON *ref=0); void stop_compare_mode(); bool test_compare_mode(); void start_pwm_mode(); void stop_pwm_mode(); void assign_tmr(TMRL *ptmr); CCPRL(Processor *pCpu, const char *pName, const char *pDesc=0); }; class INT_SignalSink; // I/O pin interface class PinModule; // // Enhanced Capture/Compare/PWM Auto-Shutdown control register // class ECCPAS : public sfr_register { public: /* Bit definitions for the register */ enum { PSSBD0 = 1 << 0, // Pins P1B and P1D Shutdown control bits PSSBD1 = 1 << 1, PSSAC0 = 1 << 2, // Pins P1A and P1C Shutdown control bits PSSAC1 = 1 << 3, ECCPAS0 = 1 << 4, // ECCP Auto-shutdown Source Select bits ECCPAS1 = 1 << 5, ECCPAS2 = 1 << 6, ECCPASE = 1 << 7 // ECCP Auto-Shutdown Event Status bit }; ECCPAS(Processor *pCpu, const char *pName, const char *pDesc=0); ~ECCPAS(); void put(unsigned int new_value); void put_value(unsigned int new_value); void setBitMask(unsigned int bm) { mValidBits = bm; } void setIOpin(PinModule *p0, PinModule *p1, PinModule *p2); void c1_output(int value); void c2_output(int value); void set_trig_state(int index, bool state); bool shutdown_trigger(int); void link_registers(PWM1CON *_pwm1con, CCPCON *_ccp1con); private: PWM1CON *pwm1con; CCPCON *ccp1con; PinModule *m_PinModule; INT_SignalSink *m_sink; bool trig_state[3]; int c1_state; int c2_state; int int_state; }; // // Enhanced PWM control register // class PWM1CON : public sfr_register { public: /* Bit definitions for the register */ enum { PDC0 = 1 << 0, // PWM delay count bits PDC1 = 1 << 1, PDC2 = 1 << 2, PDC3 = 1 << 3, PDC4 = 1 << 4, PDC5 = 1 << 5, PDC6 = 1 << 6, PRSEN = 1 << 7 // PWM Restart Enable bit }; PWM1CON(Processor *pCpu, const char *pName, const char *pDesc=0); ~PWM1CON(); void put(unsigned int new_value); void setBitMask(unsigned int bm) { mValidBits = bm; } private: }; // // Enhanced PWM Pulse Steering control register // class PSTRCON : public sfr_register { public: /* Bit definitions for the register */ enum { STRA = 1 << 0, // Steering enable bit A STRB = 1 << 1, // Steering enable bit B STRC = 1 << 2, // Steering enable bit C STRD = 1 << 3, // Steering enable bit D STRSYNC = 1 << 4, // Steering Sync bit }; PSTRCON(Processor *pCpu, const char *pName, const char *pDesc=0); ~PSTRCON(); void put(unsigned int new_value); private: }; //--------------------------------------------------------- // CCPCON - Capture and Compare Control register //--------------------------------------------------------- class CCPSignalSource; // I/O pin interface class CCPSignalSink; // I/O pin interface class Tristate; // I/O pin high impedance class CCP12CON; class CCPCON : public sfr_register, public TriggerObject { public: /* Bit definitions for the register */ enum { CCPM0 = 1 << 0, CCPM1 = 1 << 1, CCPM2 = 1 << 2, CCPM3 = 1 << 3, CCPY = 1 << 4, CCPX = 1 << 5, P1M0 = 1 << 6, // CCP1 EPWM Output config bits 16f88x P1M1 = 1 << 7 }; /* Define the Modes (based on the CCPM bits) */ enum { ALL_OFF0 = 0, ALL_OFF1 = 1, ALL_OFF2 = 2, ALL_OFF3 = 3, CAP_FALLING_EDGE = 4, CAP_RISING_EDGE = 5, CAP_RISING_EDGE4 = 6, CAP_RISING_EDGE16 = 7, COM_SET_OUT = 8, COM_CLEAR_OUT = 9, COM_INTERRUPT = 10, COM_TRIGGER = 11, PWM0 = 12, PWM1 = 13, PWM2 = 14, PWM3 = 15 }; void setBitMask(unsigned int bv) { mValidBits = bv; } void new_edge(unsigned int level); void compare_match(); void pwm_match(int new_state); void drive_bridge(int level, int new_value); void shutdown_bridge(int eccpas); void put(unsigned int new_value); char getState(); bool test_compare_mode(); void callback(); void releasePins(int); void releaseSink(); void setCrosslinks(CCPRL *, PIR *, unsigned int _mask, TMR2 *, ECCPAS *_eccpas=0); void setADCON(ADCON0 *); CCPCON(Processor *pCpu, const char *pName, const char *pDesc=0); ~CCPCON(); void setIOpin(PinModule *p1, PinModule *p2=0, PinModule *p3=0, PinModule *p4=0); void setIOPin1(PinModule *p1); void setIOPin2(PinModule *p2); PSTRCON *pstrcon; PWM1CON *pwm1con; ECCPAS *eccpas; protected: PinModule *m_PinModule[4]; CCPSignalSource *m_source[4]; bool source_active[4]; CCPSignalSink *m_sink; Tristate *m_tristate; bool m_bInputEnabled; // Input mode for capture/compare bool m_bOutputEnabled; // Output mode for PWM char m_cOutputState; int edges; guint64 future_cycle; bool delay_source0, delay_source1; bool bridge_shutdown; CCPRL *ccprl; PIR *pir; TMR2 *tmr2; ADCON0 *adcon0; unsigned int pir_mask; }; class TMR1_Freq_Attribute; //--------------------------------------------------------- // T1CON - Timer 1 control register class T1CON : public sfr_register { public: enum { TMR1ON = 1<<0, TMR1CS = 1<<1, T1SYNC = 1<<2, T1OSCEN = 1<<3, T1CKPS0 = 1<<4, T1CKPS1 = 1<<5, T1RD16 = 1<<6, TMR1GE = 1<<6, // TMR1 Gate Enable used if TMR1L::setGatepin() has been called T1GINV = 1<<7 }; TMRL *tmrl; TMR1_Freq_Attribute *freq_attribute; T1CON(Processor *pCpu, const char *pName, const char *pDesc=0); ~T1CON(); unsigned int get(); // For (at least) the 18f family, there's a 4X PLL that effects the // the relative timing between gpsim's cycle counter (which is equivalent // to the cumulative instruction count) and the external oscillator. In // all parts, the clock source for the timer is fosc, the external oscillator. // However, for the 18f parts, the instructions execute 4 times faster when // the PLL is selected. virtual unsigned int get_prescale(); virtual unsigned int get_tmr1cs() { return((value.get() & TMR1CS)?2:0); } virtual bool get_tmr1on() { return(value.get() & TMR1ON); } virtual bool get_t1oscen() { return(value.get() & T1OSCEN); } virtual bool get_tmr1GE() { return(value.get() & TMR1GE); } virtual bool get_t1GINV() { return(value.get() & T1GINV); } virtual bool get_t1sync() { return(value.get() & T1SYNC); } virtual void put(unsigned int new_value); }; class T1GCon_GateSignalSink; class T1CON_G; // Timer 1 gate control Register class T1GCON : public sfr_register { public: enum { T1GSS0 = 1<<0, // Gate source select bits T1GSS1 = 1<<1, T1GVAL = 1<<2, // Current state bit T1GGO = 1<<3, // Gate Single-Pulse Acquisition Status bit T1GSPM = 1<<4, // Gate Single-Pulse Mode bit T1GTM = 1<<5, // Gate Toggle Mode bit T1GPOL = 1<<6, // Gate Polarity bit TMR1GE = 1<<7, // Gate Enable bit }; void put(unsigned int new_value); virtual void setGatepin(PinModule *); virtual void IO_gate(bool); virtual void T0_gate(bool); virtual void CM1_gate(bool); virtual void CM2_gate(bool); virtual void new_gate(bool); void set_WRmask(unsigned int mask) { write_mask = mask;} void set_tmrl(TMRL *_tmrl) { tmrl = _tmrl;} void set_pir_set(PIR_SET *_pir_set) { pir_set = _pir_set;} virtual bool get_tmr1GE() { return(value.get() & TMR1GE); } bool get_t1GPOL() { return (value.get() & T1GPOL); } T1GCON(Processor *pCpu, const char *pName, const char *pDesc=0, T1CON_G *t1con_g=0); ~T1GCON(); private: T1GCon_GateSignalSink *sink; unsigned int write_mask; TMRL *tmrl; T1CON_G *t1con_g; PIR_SET *pir_set; bool IO_gate_state; bool T0_gate_state; bool CM1_gate_state; bool CM2_gate_state; bool last_t1g_in; PinModule *gate_pin; }; // // T1CON_G combines T1CON and T1GCON into one virtual register // class T1CON_G : public T1CON { public: enum { TMR1ON = 1<<0, T1SYNC = 1<<2, T1OSCEN = 1<<3, T1CKPS0 = 1<<4, T1CKPS1 = 1<<5, TMR1CS0 = 1<<6, TMR1CS1 = 1<<7, }; TMRL *tmrl; TMR1_Freq_Attribute *freq_attribute; T1CON_G(Processor *pCpu, const char *pName, const char *pDesc=0); ~T1CON_G(); void t1_cap_increment(); // RRR unsigned int get(); // For (at least) the 18f family, there's a 4X PLL that effects the // the relative timing between gpsim's cycle counter (which is equivalent // to the cumulative instruction count) and the external oscillator. In // all parts, the clock source for the timer is fosc, the external oscillator. // However, for the 18f parts, the instructions execute 4 times faster when // the PLL is selected. virtual unsigned int get_prescale() { return( ((value.get() &(T1CKPS0 | T1CKPS1)) >> 4) );} virtual unsigned int get_tmr1cs() { return((value.get() & (TMR1CS1 | TMR1CS0))>>6); } virtual bool get_tmr1on() { return(value.get() & TMR1ON); } virtual bool get_t1oscen() { return(value.get() & T1OSCEN); } virtual bool get_t1sync() { return(value.get() & T1SYNC); } virtual void put(unsigned int new_value); virtual bool get_tmr1GE() { return t1gcon.get_tmr1GE(); } virtual bool get_t1GINV() { return true;} T1GCON t1gcon; }; //--------------------------------------------------------- // TMRL & TMRH - Timer 1 class TMRH : public sfr_register { public: TMRL *tmrl; void put(unsigned int new_value); unsigned int get(); virtual unsigned int get_value(); TMRH(Processor *pCpu, const char *pName, const char *pDesc=0); }; class TMR1CapComRef; class TMRL : public sfr_register, public TriggerObject, public SignalSink { public: TMRH *tmrh; T1CON *t1con; unsigned int prescale, prescale_counter, break_value, value_16bit; /* Low and high concatenated */ double ext_scale; TMR1CapComRef * compare_queue; guint64 synchronized_cycle, future_cycle; gint64 last_cycle; // last_cycle can be negative for small cycle counts virtual void callback(); virtual void callback_print(); TMRL(Processor *pCpu, const char *pName, const char *pDesc=0); ~TMRL(); void set_ext_scale(); virtual void release(); virtual void put(unsigned int new_value); virtual unsigned int get(); virtual unsigned int get_value(); virtual unsigned int get_low_and_high(); virtual void on_or_off(int new_state); virtual void current_value(); virtual void new_clock_source(); virtual void update(); virtual void clear_timer(); virtual void setSinkState(char); virtual void setIOpin(PinModule *); virtual void setGatepin(PinModule *); virtual void IO_gate(bool); virtual void compare_gate(bool); virtual void setInterruptSource(InterruptSource *); virtual InterruptSource * getInterruptSource() { return m_Interrupt; } virtual void sleep(); virtual void wake(); void set_compare_event ( unsigned int value, CCPCON *host ); void clear_compare_event ( CCPCON *host ); void set_T1GSS(bool arg); virtual void increment(); // Used when TMR1 is attached to an external clock private: char m_cState; bool m_GateState; // Only changes state if setGatepin() has been called bool m_compare_GateState; bool m_io_GateState; bool m_bExtClkEnabled; bool m_sleeping; bool m_t1gss; // T1 gate source // true - IO pin controls gate, // false - compare controls gate InterruptSource *m_Interrupt; }; class PR2 : public sfr_register { public: TMR2 *tmr2; PR2(Processor *pCpu, const char *pName, const char *pDesc=0); void put(unsigned int new_value); }; //--------------------------------------------------------- // T2CON - Timer 2 control register class T2CON : public sfr_register { public: enum { T2CKPS0 = 1<<0, T2CKPS1 = 1<<1, TMR2ON = 1<<2, TOUTPS0 = 1<<3, TOUTPS1 = 1<<4, TOUTPS2 = 1<<5, TOUTPS3 = 1<<6 }; TMR2 *tmr2; T2CON(Processor *pCpu, const char *pName, const char *pDesc=0); inline unsigned int get_t2ckps0() { return(value.get() & T2CKPS0); } inline unsigned int get_t2ckps1() { return(value.get() & T2CKPS1); } inline unsigned int get_tmr2on() { return(value.get() & TMR2ON); } inline unsigned int get_post_scale() { return( (value.get() & (TOUTPS0 | TOUTPS1 | TOUTPS2 | TOUTPS3)) >> 3 ); } inline unsigned int get_pre_scale() { // ps1:ps0 prescale // 0 0 1 // 0 1 4 // 1 x 16 if(value.get() & T2CKPS1) return 16; else if(value.get() & T2CKPS0) return 4; else return 1; } void put(unsigned int new_value); }; #define MAX_PWM_CHANS 5 //--------------------------------------------------------- // TMR2 - Timer class TMR2 : public sfr_register, public TriggerObject { protected: CCPCON * ccp[MAX_PWM_CHANS]; public: /* Define the way in which the tmr2 callback function may be updated. */ enum TMR2_UPDATE_TYPES { TMR2_WRAP = 1<<0, // wrap TMR2 TMR2_PR2_UPDATE = 1<<1, // update pr2 match TMR2_PWM1_UPDATE = 1<<2, // wrt ccp1 // TMR2_PWM2_UPDATE = 1<<3, // wrt ccp2 // PWM must be last as a variable number of channels follows TMR2_ANY_PWM_UPDATE = 0xfc, // up to six PWM channels TMR2_DONTCARE_UPDATE = 0xff // whatever comes next }; int pwm_mode; int update_state; int last_update; unsigned int prescale, prescale_counter, break_value, duty_cycle[MAX_PWM_CHANS]; /* for ccp channels */ int post_scale; guint64 last_cycle, future_cycle; PR2 *pr2; PIR_SET *pir_set; T2CON *t2con; SSP_MODULE *ssp_module; virtual void callback(); virtual void callback_print(); TMR2(Processor *pCpu, const char *pName, const char *pDesc=0); void put(unsigned int new_value); unsigned int get(); void on_or_off(int new_state); void start(); void new_pre_post_scale(); void new_pr2(unsigned int new_value); void current_value(); void update(int ut = TMR2_DONTCARE_UPDATE); void pwm_dc(unsigned int dc, unsigned int ccp_address); void stop_pwm(unsigned int ccp_address); virtual unsigned int get_value(); bool add_ccp ( CCPCON * _ccp ); }; //--------------------------------------------------------- // // TMR2_MODULE // // class TMR2_MODULE { public: _14bit_processor *cpu; char * name_str; T2CON *t2con; PR2 *pr2; TMR2 *tmr2; TMR2_MODULE(); void initialize(T2CON *t2con, PR2 *pr2, TMR2 *tmr2); }; //--------------------------------------------------------- // // TMR1_MODULE // // class TMR1_MODULE { public: _14bit_processor *cpu; char * name_str; T1CON *t1con; PIR_SET *pir_set; TMR1_MODULE(); void initialize(T1CON *t1con, PIR_SET *pir_set); }; #endif gpsim-0.27.0/src/lxt_write.h0000644000076400007640000001075011401131150012617 00000000000000/* * Copyright (c) 2001 Tony Bybell. * * Permission is hereby granted, free of charge, to any person obtaining a * copy of this software and associated documentation files (the "Software"), * to deal in the Software without restriction, including without limitation * the rights to use, copy, modify, merge, publish, distribute, sublicense, * and/or sell copies of the Software, and to permit persons to whom the * Software is furnished to do so, subject to the following conditions: * * The above copyright notice and this permission notice shall be included in * all copies or substantial portions of the Software. * * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER * DEALINGS IN THE SOFTWARE. */ #ifndef DEFS_LXT_H #define DEFS_LXT_H #include #include #include #include #include #define LT_HDRID (0x0138) #define LT_VERSION (0x0001) #define LT_TRLID (0xB4) #define LT_CLKPACK (4) #define LT_MVL_2 (1<<0) #define LT_MVL_4 (1<<1) #define LT_MVL_9 (1<<2) struct lt_timetrail { struct lt_timetrail *next; int timeval; unsigned int position; }; #define LT_SYMPRIME 65519 #define LT_SECTION_END (0) #define LT_SECTION_CHG (1) #define LT_SECTION_SYNC_TABLE (2) #define LT_SECTION_FACNAME (3) #define LT_SECTION_FACNAME_GEOMETRY (4) #define LT_SECTION_TIMESCALE (5) #define LT_SECTION_TIME_TABLE (6) #define LT_SECTION_INITIAL_VALUE (7) #define LT_SECTION_DOUBLE_TEST (8) struct lt_trace { FILE *handle; unsigned int position; struct lt_symbol *sym[LT_SYMPRIME]; struct lt_symbol **sorted_facs; struct lt_symbol *symchain; int numfacs; int numfacbytes; int longestname; int mintime, maxtime; int timescale; int initial_value; struct lt_timetrail *timehead, *timecurr, *timebuff; int timechangecount; char double_used; char do_strip_brackets; char clock_compress; unsigned int change_field_offset; unsigned int facname_offset; unsigned int facgeometry_offset; unsigned int time_table_offset; unsigned int sync_table_offset; unsigned int initial_value_offset; unsigned int timescale_offset; unsigned int double_test_offset; char *compress_fac_str; int compress_fac_len; int timeval; /* for clock induction */ }; struct lt_symbol { struct lt_symbol *next; struct lt_symbol *symchain; char *name; int namlen; int facnum; struct lt_symbol *aliased_to; unsigned int rows; int msb, lsb; int len; int flags; unsigned int last_change; int clk_delta; int clk_prevtrans; int clk_numtrans; char clk_prevval; }; #define LT_SYM_F_BITS (0) #define LT_SYM_F_INTEGER (1<<0) #define LT_SYM_F_DOUBLE (1<<1) #define LT_SYM_F_STRING (1<<2) #define LT_SYM_F_ALIAS (1<<3) struct lt_trace * lt_init(const char *name); void lt_close(struct lt_trace *lt); struct lt_symbol * lt_symbol_find(struct lt_trace *lt, const char *name); struct lt_symbol * lt_symbol_add(struct lt_trace *lt, const char *name, unsigned int rows, int msb, int lsb, int flags); struct lt_symbol * lt_symbol_alias(struct lt_trace *lt, const char *existing_name, const char *alias, int msb, int lsb); void lt_symbol_bracket_stripping(struct lt_trace *lt, int doit); void lt_set_timescale(struct lt_trace *lt, int timescale); void lt_set_initial_value(struct lt_trace *lt, char value); int lt_set_time(struct lt_trace *lt, int timeval); void lt_set_clock_compress(struct lt_trace *lt); /* * value change functions..note that if the value string len for * lt_emit_value_bit_string() is shorter than the symbol length * it will be left justified with the rightmost character used as * a repeat value that will be propagated to pad the value string out: * * "10x" for 8 bits becomes "10xxxxxx" * "z" for 8 bits becomes "zzzzzzzz" */ int lt_emit_value_int(struct lt_trace *lt, struct lt_symbol *s, unsigned int row, int value); int lt_emit_value_double(struct lt_trace *lt, struct lt_symbol *s, unsigned int row, double value); int lt_emit_value_string(struct lt_trace *lt, struct lt_symbol *s, unsigned int row, char *value); int lt_emit_value_bit_string(struct lt_trace *lt, struct lt_symbol *s, unsigned int row, char *value); #endif gpsim-0.27.0/src/tmr0.h0000664000076400007640000000507312162224370011500 00000000000000/* Copyright (C) 1998,1999,2000 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __TMR0_H__ #define __TMR0_H__ #include "ioports.h" class T1GCON; //--------------------------------------------------------- // TMR0 - Timer class TMR0 : public sfr_register, public TriggerObject, public SignalSink { public: unsigned int prescale, prescale_counter, old_option, // Save option register contents here. state; // Either on or off right now. guint64 synchronized_cycle, future_cycle; gint64 last_cycle; // can be negative ... OPTION_REG *m_pOptionReg; virtual void callback(); TMR0(Processor *, const char *pName, const char *pDesc=0); virtual void release(); virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); virtual unsigned int get(); virtual unsigned int get_value(); virtual void start(int new_value,int sync=0); virtual void stop(); virtual void increment(); // Used when tmr0 is attached to an external clock virtual void new_prescale(); virtual unsigned int get_prescale(); virtual unsigned int max_counts() {return 256;}; virtual bool get_t0cs(); virtual bool get_t0se(); virtual void set_t0if(); virtual void set_t0xcs(bool _t0xcs){t0xcs = _t0xcs;} virtual bool get_t0xcs() {return t0xcs;} virtual void reset(RESET_TYPE r); virtual void callback_print(); virtual void clear_trigger(); virtual void set_cpu(Processor *, PortRegister *, unsigned int pin,OPTION_REG *); virtual void set_cpu(Processor *new_cpu, PinModule *pin,OPTION_REG *); virtual void setSinkState(char); virtual void sleep(); virtual void wake(); void set_t1gcon(T1GCON *_t1gcon) { m_t1gcon = _t1gcon; } enum { STOPPED = 0, RUNNING = 1, SLEEPING = 2 }; private: bool m_bLastClockedState; T1GCON *m_t1gcon; bool t0xcs; // clock source is the capacitive sensing oscillator }; #endif gpsim-0.27.0/src/ui.h0000644000076400007640000001066711401131150011222 00000000000000 #ifndef __UI_H__ #define __UI_H__ #include #include #include "exports.h" #include "glib.h" #ifndef __REGISTERS_H__ #include "registers.h" #endif #include "value.h" class ISimConsole { public: virtual ~ISimConsole() { } virtual void Printf(const char *fmt, ...) = 0; virtual void VPrintf(const char *fmt, va_list argptr) = 0; virtual void Puts(const char*) = 0; virtual void Putc(const char) = 0; virtual const char* Gets(char *, int) = 0; }; class IUserInterface { public: enum { eHex, eDec, eOct, }; virtual ~IUserInterface() { } virtual ISimConsole &GetConsole() = 0; virtual void SetConsole(ISimConsole *pConsole) = 0; virtual void DisplayMessage(unsigned int uStringID, ...) = 0; virtual void DisplayMessage(FILE * pOut, unsigned int uStringID, ...) = 0; virtual void DisplayMessage(const char *fmt, ...) = 0; virtual void DisplayMessage(FILE * pOut, const char *fmt, ...) = 0; // To be implemented to test on GetVerbosity() // virtual void TraceMessage(unsigned int uStringID, ...) = 0; // virtual void TraceMessage(const char *fmt, ...) = 0; virtual const char * FormatProgramAddress(unsigned int uAddress, unsigned int uMask) = 0; virtual const char * FormatProgramAddress(unsigned int uAddress, unsigned int uMask, int iRadix) = 0; virtual const char * FormatRegisterAddress(unsigned int uAddress, unsigned int uMask) = 0; virtual const char * FormatRegisterAddress(Register *) = 0; virtual const char * FormatLabeledValue(const char * pLabel, unsigned int uValue) = 0; virtual const char * FormatValue(unsigned int uValue) = 0; virtual const char * FormatValue(gint64 uValue) = 0; virtual const char * FormatValue(gint64 uValue, guint64 uMask) = 0; virtual const char * FormatValue(gint64 uValue, guint64 uMask, int iRadix) = 0; virtual const char * FormatValue(char *str, int len, int iRegisterSize, RegisterValue value) = 0; virtual void SetProgramAddressRadix(int iRadix) = 0; virtual void SetRegisterAddressRadix(int iRadix) = 0; virtual void SetValueRadix(int iRadix) = 0; virtual void SetProgramAddressMask(unsigned int uMask) = 0; virtual void SetRegisterAddressMask(unsigned int uMask) = 0; virtual void SetValueMask(unsigned int uMask) = 0; typedef void (*FNNOTIFYEXITONBREAK)(int); virtual void SetExitOnBreak(FNNOTIFYEXITONBREAK) = 0; virtual void NotifyExitOnBreak(int iExitCode) = 0; FNNOTIFYEXITONBREAK m_pfnNotifyOnExit; inline void SetVerbosity(unsigned int uVerbose) { m_uVerbose = uVerbose; } inline unsigned int GetVerbosity() { return m_uVerbose; } inline unsigned int &GetVerbosityReference() { return m_uVerbose; } private: unsigned int m_uVerbose; }; // extern "C" IUserInterface & GetUserInterface(void); LIBGPSIM_EXPORT IUserInterface & GetUserInterface(void); LIBGPSIM_EXPORT void SetUserInterface(IUserInterface * rGpsimUI); LIBGPSIM_EXPORT void SetUserInterface(std::streambuf* pOutStreamBuf); class GlobalVerbosityAccessor { public: GlobalVerbosityAccessor() { } inline operator unsigned int() { return GetUserInterface().GetVerbosity(); } // This gives the statements if(verbose) access inline operator bool() { return GetUserInterface().GetVerbosity() != 0; } friend unsigned int operator&(const GlobalVerbosityAccessor& rVerbosity, int iValue); }; // This gives the statements if(verbose & 4) access inline unsigned int operator&(const GlobalVerbosityAccessor& rVerbosity, int iValue) { return (GetUserInterface().GetVerbosity() & iValue) != 0; } extern GlobalVerbosityAccessor verbose; /// /// Gpsim string IDs #define IDS_BREAK_READING_REG 1 #define IDS_BREAK_READING_REG_VALUE 2 #define IDS_BREAK_READING_REG_OP_VALUE 3 #define IDS_BREAK_WRITING_REG 4 #define IDS_BREAK_WRITING_REG_VALUE 5 #define IDS_BREAK_WRITING_REG_OP_VALUE 6 #define IDS_BREAK_ON_EXEC_ADDRESS 7 #define IDS_PROGRAM_FILE_PROCESSOR_NOT_KNOWN 8 #define IDS_FILE_NAME_TOO_LONG 9 #define IDS_FILE_NOT_FOUND 10 #define IDS_FILE_BAD_FORMAT 11 #define IDS_NO_PROCESSOR_SPECIFIED 12 #define IDS_PROCESSOR_INIT_FAILED 13 #define IDS_FILE_NEED_PROCESSOR_SPECIFIED 14 #define IDS_LIST_FILE_NOT_FOUND 15 #define IDS_HIT_BREAK 16 #define IDS_LAST_VALID_GPSIM_ID 17 #endif gpsim-0.27.0/src/16bit-tmrs.h0000644000076400007640000000152511401131150012506 00000000000000/* Copyright (C) 2000 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __16_BIT_TMRS_H__ #define __16_BIT_TMRS_H__ #include "14bit-tmrs.h" #endif // __16_BIT_TMRS_H__ gpsim-0.27.0/src/tmr0.cc0000664000076400007640000002613412162224370011637 00000000000000/* Copyright (C) 1998 Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include #include "../config.h" #include "14bit-processors.h" #include "14bit-tmrs.h" #include "interface.h" #include #include "stimuli.h" #include "xref.h" //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("%s:%d-%s() ",__FILE__,__LINE__,__FUNCTION__); printf arg; } #else #define Dprintf(arg) {} #endif //-------------------------------------------------- // member functions for the TMR0 base class //-------------------------------------------------- TMR0::TMR0(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc), m_pOptionReg(0), m_t1gcon(0), t0xcs(false) { value.put(0); synchronized_cycle=0; future_cycle=0; last_cycle=0; state=STOPPED; // start disabled (will change to enabled by other init code) prescale=1; m_bLastClockedState=false; new_name("tmr0"); } //------------------------------------------------------------------------ void TMR0::release() { } //------------------------------------------------------------------------ // setSinkState // // Called when the I/O pin driving TMR0 changes states. void TMR0::setSinkState(char new3State) { bool bNewState = new3State == '1'; if (m_bLastClockedState != bNewState) { m_bLastClockedState = bNewState; if ( verbose & 2 ) printf("TMR0::setSinkState:%d cs:%d se:%d\n",bNewState,get_t0cs(),get_t0se()); if (get_t0cs() && !get_t0xcs() && bNewState != get_t0se()) increment(); } } void TMR0::set_cpu(Processor *new_cpu, PortRegister *reg, unsigned int pin, OPTION_REG *pOption) { cpu = new_cpu; m_pOptionReg = pOption; reg->addSink(this,pin); } // RCP - add an alternate way to connect to a CPU void TMR0::set_cpu(Processor *new_cpu, PinModule *pin,OPTION_REG *pOption) { cpu = new_cpu; m_pOptionReg = pOption; pin->addSink(this); } //------------------------------------------------------------ // Stop the tmr. // void TMR0::stop() { Dprintf(("\n")); // If tmr0 is running, then stop it: if (state & RUNNING) { // refresh the current value. get_value(); state &= (~RUNNING); // the timer is disabled. clear_trigger(); } } void TMR0::start(int restart_value, int sync) { Dprintf(("restart_value=%d sync=%d\n",restart_value, sync)); state |= RUNNING; // the timer is on value.put(restart_value&0xff); //old_option = cpu_pic->option_reg.value.get(); old_option = m_pOptionReg->get_value(); prescale = 1 << get_prescale(); prescale_counter = prescale; if(get_t0cs()) { Dprintf(("External clock\n")); } else { synchronized_cycle = get_cycles().get() + sync; last_cycle = (restart_value % max_counts()) * prescale; last_cycle = synchronized_cycle - last_cycle; guint64 fc = last_cycle + max_counts() * prescale; if(future_cycle) get_cycles().reassign_break(future_cycle, fc, this); else get_cycles().set_break(fc, this); future_cycle = fc; Dprintf(("last_cycle:0x%"PRINTF_GINT64_MODIFIER"x future_cycle:0x%"PRINTF_GINT64_MODIFIER"x\n",last_cycle,future_cycle)); } } void TMR0::clear_trigger() { Dprintf(("\n")); if (future_cycle) { future_cycle = 0; get_cycles().clear_break(this); } last_cycle = 0; } unsigned int TMR0::get_prescale() { Dprintf(("OPTION::PSA=%d\n", m_pOptionReg->get_psa())); //return (cpu_pic->option_reg.get_psa() ? 0 : (1+cpu_pic->option_reg.get_prescale())); return (m_pOptionReg->get_psa() ? 0 : (1+m_pOptionReg->get_prescale())); } // This is used to drive timer ias counter of IO port if T0CS is true // void TMR0::increment() { Dprintf(("\n")); if((state & RUNNING) == 0) return; if(--prescale_counter == 0) { trace.raw(write_trace.get() | value.get()); prescale_counter = prescale; if(value.get() == 255) { //cout << "TMR0 rollover because of external clock "; value.put(0); set_t0if(); } else value.put(value.get() + 1); } // cout << "TMR0 value ="< 255) { cout << "TMR0: bug TMR0 is larger than 255...\n"; cout << "cycles.value = " << get_cycles().get() << " last_cycle = " << last_cycle << " prescale = " << prescale << " calculated value = " << new_value << '\n'; // cop out. tmr0 has a bug. So rather than annoy // the user with an infinite number of messages, // let's just go ahead and reset the logic. new_value &= 0xff; last_cycle = new_value*prescale; last_cycle = get_cycles().get() - last_cycle; synchronized_cycle = last_cycle; } value.put(new_value); return(value.get()); } unsigned int TMR0::get() { value.put(get_value()); trace.raw(read_trace.get() | value.get()); return value.get(); } void TMR0::new_prescale() { Dprintf(("\n")); unsigned int new_value; int option_diff = old_option ^ m_pOptionReg->get_value(); old_option ^= option_diff; // save old option value. ( (a^b) ^b = a) if(option_diff & OPTION_REG::T0CS) { // TMR0's clock source has changed. if(verbose) cout << "T0CS has changed to "; if(m_pOptionReg->get_t0cs()) { // External clock if(verbose) cout << "external clock\n"; if (future_cycle) { future_cycle = 0; get_cycles().clear_break(this); } } else { // Internal Clock if(verbose) cout << "internal clock\n"; } start(value.get()); } else { // Refresh the current tmr0 value. The current tmr0 value is used // below to recompute the value for 'last_cycle' get_value(); if(get_t0cs() || ((state & RUNNING)==0)) { prescale = 1 << get_prescale(); prescale_counter = prescale; } else { if(last_cycle < (gint64)get_cycles().get()) new_value = (unsigned int)((get_cycles().get() - last_cycle)/prescale); else new_value = 0; if(new_value>=max_counts()) { cout << "TMR0 bug (new_prescale): exceeded max count"<< max_counts() <<'\n'; cout << " last_cycle = 0x" << hex << last_cycle << endl; cout << " cpu cycle = 0x" << hex << (get_cycles().get()) << endl; cout << " prescale = 0x" << hex << prescale << endl; } // Get the current value of TMR0 // cout << "cycles " << cycles.value << " old prescale " << prescale; prescale = 1 << get_prescale(); prescale_counter = prescale; // cout << " new prescale " << prescale; // Now compute the 'last_cycle' as though if TMR0 had been running on the // new prescale all along. Recall, 'last_cycle' records the value of the cpu's // cycle counter when tmr0 last rolled over. /* last_cycle = value.get() * prescale; last_cycle = synchronized_cycle - last_cycle; if(get_cycles().get() <= synchronized_cycle) last_cycle += (synchronized_cycle - get_cycles().get()); */ last_cycle = value.get() * prescale; last_cycle = get_cycles().get() - last_cycle; synchronized_cycle = last_cycle; guint64 fc = last_cycle + max_counts() * prescale; // cout << "moving break from " << future_cycle << " to " << fc << '\n'; get_cycles().reassign_break(future_cycle, fc, this); future_cycle = fc; } } } bool TMR0::get_t0cs() { //return cpu_pic->option_reg.get_t0cs() != 0; return m_pOptionReg->get_t0cs() != 0; } bool TMR0::get_t0se() { //return cpu_pic->option_reg.get_t0se() != 0; return m_pOptionReg->get_t0se() != 0; } void TMR0::set_t0if() { if(cpu_pic->base_isa() == _14BIT_PROCESSOR_ || cpu_pic->base_isa() == _14BIT_E_PROCESSOR_) { cpu14->intcon->set_t0if(); } if (m_t1gcon) { m_t1gcon->T0_gate(true); // Spec sheet does not indicate when the overflow signal // is cleared, so I am assuming it is just a pulse. RRR m_t1gcon->T0_gate(false); } } // TMR0 callback is called when the cycle counter hits the break point that // was set in TMR0::put. The cycle counter will clear the break point, so // we don't need to worry about it. At this point, TMR0 is rolling over. void TMR0::callback() { Dprintf(("now=0x%"PRINTF_GINT64_MODIFIER"x\n",get_cycles().get())); if((state & RUNNING) == 0) { cout << "TMR0 callback ignored because timer is disabled\n"; } // If tmr0 is being clocked by the external clock, then at some point // the simulate code must have switched from the internal clock to // external clock. The cycle break point was still set, so just ignore it. if(get_t0cs()) { future_cycle = 0; // indicates that tmr0 no longer has a break point return; } value.put(0); synchronized_cycle = get_cycles().get(); last_cycle = synchronized_cycle; future_cycle = last_cycle + max_counts()*prescale; get_cycles().set_break(future_cycle, this); set_t0if(); } void TMR0::reset(RESET_TYPE r) { switch(r) { case POR_RESET: value = por_value; break; default: break; } } void TMR0::callback_print() { cout << "TMR0\n"; } // Suspend TMR0 for sleep void TMR0::sleep() { if(verbose) printf("TMR0::sleep state=%d\n", state); if((state & RUNNING)) { stop(); state = SLEEPING; } } // wake up TMR0 when sleep command terminates void TMR0::wake() { if(verbose) printf("TMR0::wake state=%d\n", state); if ((state & SLEEPING)) { if (! (state & RUNNING)) { state = STOPPED; start(value.get(), 0); } else state &= ~SLEEPING; } } gpsim-0.27.0/src/sim_context.h0000644000076400007640000000716011401131150013133 00000000000000/* Copyright (C) 1998-2000 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __SIM_CONTEXT_H__ #define __SIM_CONTEXT_H__ #include #include #include "processor.h" class Processor; //------------------------------------------------------------------- // // Define a list for keeping track of the processors being simulated. // (Recall, gpsim can simultaneously simulate more than one processor.) class CSimulationContext { class CProcessorList : public map { public: iterator findByType(const key_type& _Keyval); }; public: CSimulationContext(); ~CSimulationContext(); Processor * add_processor( const char * processor_type, const char * processor_new_name = NULL); Processor * add_processor( ProcessorConstructor *pc, const char * processor_new_name = NULL); Processor * SetProcessorByType( const char * processor_type, const char * processor_new_name); Processor * add_processor( Processor * p); int LoadProgram( const char *filename, const char *pProcessorType = NULL, Processor **ppProcessor = NULL, const char * processor_new_name=NULL); void dump_processor_list(void); bool SetDefaultProcessor( const char * processor_type, const char * processor_new_name); void Clear(); void Reset(RESET_TYPE r); void Initialize(); SymbolTable & GetSymbolTable(); Breakpoints & GetBreakpoints(); Processor * GetActiveCPU(); Cycle_Counter * GetCycleCounter(); bool IsSourceEnabled() { return m_bEnableLoadSource; } void NotifyUserCanceled(); void SetUserCanceledFlag(bool *pbUserCanceled) { m_pbUserCanceled = pbUserCanceled ; } static CSimulationContext *GetContext(); protected: CProcessorList processor_list; string m_DefProcessorName; string m_DefProcessorNameNew; bool * m_pbUserCanceled; // active_cpu_id is the id of the currently active cpu. In other words: // active_cpu_id == active_cpu->processor_id // It's redundant to define this id in addition to the *active_cpu pointer. // However, if there ever comes a day when the cli is truely separate from // the simulator, then it would be more convenient to deal with ints than // pointers. int active_cpu_id; // cpu_ids is a counter that increments everytime a processor is added by the // user. If the user deletes a processor, this counter will not be affected. // The value of this counter will be assigned to the processor's id when a // new processor is added. It's purpose is to uniquely identifier user // processors. int cpu_ids; Boolean &m_bEnableLoadSource; // deleted by Symbol_Table static CSimulationContext *s_SimulationContext; }; #endif gpsim-0.27.0/src/icd.h0000644000076400007640000000554411401131150011342 00000000000000#ifndef __ICD_H__ #define __ICD_H__ #include "gpsim_classes.h" #include "exports.h" #define ID_LOC_ADDR 0x2000 #define DEVICE_ID_ADDR 0x2006 #define CONF_WORD_ADDR 0x2007 #define ID_LOC_LEN 8 #define MAX_PROG_MEM_SIZE 0x2000 /* 16F877 has 8K word flash */ #define MAX_MEM_SIZE (MAX_PROG_MEM_SIZE + 0x200) /* + ID location + EEPROM */ #define UNINITIALIZED -1 /* Used to flag that a memory location isn't used */ LIBGPSIM_EXPORT bool get_use_icd(); int icd_connect(const char *dev); int icd_reconnect(void); int icd_disconnect(void); int icd_detected(void); char *icd_version(void); char *icd_target(void); float icd_vdd(void); float icd_vpp(void); int icd_reset(void); int icd_erase(void); int icd_prog(int *mem); int icd_has_debug_module(void); int icd_step(void); int icd_run(void); int icd_halt(void); int icd_stopped(void); int icd_get_state(); int icd_get_file(); int icd_set_break(int address); int icd_clear_break(void); int icd_read_file(int address); int icd_write_file(int address, int data); void icd_set_bulk(int flag); int icd_read_eeprom(int address); int icd_write_eeprom(int address, int data); /* class icd_Register : public file_register { public: file_register *replaced; // A pointer to the register that this break replaces int is_stale; icd_Register(); virtual REGISTER_TYPES isa(void) {return replaced->isa();}; virtual char *name(void) {return replaced->name();}; virtual void put_value(unsigned int new_value); virtual void put(unsigned int new_value); virtual unsigned int get_value(void); virtual unsigned int get(void); }; class icd_statusReg : public Status_register { public: Status_register *replaced; // A pointer to the register that this break replaces int is_stale; icd_statusReg(); virtual REGISTER_TYPES isa(void) {return replaced->isa();}; virtual char *name(void) {return replaced->name();}; virtual void put_value(unsigned int new_value); virtual void put(unsigned int new_value); virtual unsigned int get_value(void); virtual unsigned int get(void); }; class icd_WREG : public WREG { public: WREG *replaced; // A pointer to the register that this break replaces int is_stale; icd_WREG(); virtual REGISTER_TYPES isa(void) {return replaced->isa();}; virtual char *name(void) {return replaced->name();}; virtual void put_value(unsigned int new_value); virtual void put(unsigned int new_value); virtual unsigned int get_value(void); virtual unsigned int get(void); }; class icd_PC : public Program_Counter { Program_Counter *replaced; int is_stale; icd_PC(); virtual void put_value(unsigned int new_value); virtual unsigned int get_value(void); }; */ #endif gpsim-0.27.0/src/gpsim_object.h0000644000076400007640000000670311401131150013246 00000000000000 /* Copyright (C) 2004 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __GPSIM_OBJECT_H__ #define __GPSIM_OBJECT_H__ #include using namespace std; class BreakType; class Expression; /// gpsimObject - base class for most of gpsim's objects /// class gpsimObject { public: gpsimObject(); gpsimObject(const char *_name, const char *desc=0); virtual ~gpsimObject(); /// Get the name of the object virtual string &name(void) const; /// copy the name to a user char array virtual char *name(char *, int len); /// copy the object value to a user char array virtual char *toString(char *, int len); virtual char *toBitStr(char *, int len); /// Assign a new name to the object /// FIXME why have two ways of naming ??? virtual void new_name(const char *); virtual void new_name(string &); /// TEMPORARY -- remove after gpsimValue and Value have been merged. virtual unsigned int get_value(); /// description - get a description of this object. If the object has /// a name, then 'help value_name' at the command line will display /// the description. virtual string description(); void set_description(const char *); /// Access object-specific information string show(); string showType(); virtual string toString(); // Breakpoint types supported by Value enum ObjectBreakTypes { eBreakAny, // ??? eBreakWrite, // Register write eBreakRead, // Register read eBreakChange, // Register change eBreakExecute // Program memory execute }; // Breakpoint types supported by Value enum ObjectActionTypes { eActionHalt, eActionLog, }; /// breakpoints /// set a break point on a gpsim object. The BreakType specifies the /// the condition for which the break will trigger when this value /// is accessed. In addition, the optional expr is a boolean expression /// that is evaluated when the Object is accessed. The expression must /// evaluate to true for the break to trigger. If the break is successfully /// set then a non-negative number (the break point number) will be returned. /// If the break fails, then -1 is returned. /// The ActionType specifies the action to take when the break is triggered. virtual int set_break(ObjectBreakTypes bt=eBreakAny, ObjectActionTypes at=eActionHalt, Expression *expr=0); virtual int clear_break(); protected: string name_str; // A unique name to describe the object const char *cpDescription; // A desciption of the object }; //------------------------------------------------------------------------ // BreakTypes // class BreakType { public: BreakType(int _type) : m_type(_type) { } virtual ~BreakType() { } virtual int type() { return m_type; } protected: int m_type; }; #endif // __GPSIM_OBJECT_H__ gpsim-0.27.0/src/14bit-processors.h0000664000076400007640000001531612175377101013747 00000000000000/* Copyright (C) 1998 T. Scott Dattalo Copyright (C) 2009,2013 Roy R. Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include "pic-processor.h" #include "intcon.h" #include "uart.h" #include "ssp.h" #ifndef __14_BIT_PROCESSORS_H__ #define __14_BIT_PROCESSORS_H__ // forward references class _14bit_processor; class _14bit_e_processor; class PicPortRegister; class PicTrisRegister; class PicPortBRegister; class PicTrisRegister; class PortBSink; class IOPIN; class IO_open_collector; class PinMonitor; extern instruction *disasm14 (_14bit_processor *cpu,unsigned int inst, unsigned int address); extern instruction *disasm14E (_14bit_e_processor *cpu,unsigned int inst, unsigned int address); class _14bit_processor : public pic_processor { public: #define EEPROM_SIZE 0x40 #define INTERRUPT_VECTOR 4 #define WDTE 4 unsigned int eeprom_size; INTCON *intcon; virtual void interrupt(); virtual void save_state(); virtual void create(); virtual PROCESSOR_TYPE isa(){return _14BIT_PROCESSOR_;}; virtual PROCESSOR_TYPE base_isa(){return _14BIT_PROCESSOR_;}; virtual instruction * disasm (unsigned int address, unsigned int inst) { return disasm14(this, address, inst); } // Declare a set of functions that will allow the base class to // get information about the derived classes. NOTE, the values returned here // will cause errors if they are used -- the derived classes must define their // parameters appropriately. virtual void create_sfr_map()=0; virtual void option_new_bits_6_7(unsigned int)=0; virtual void put_option_reg(unsigned int); virtual void create_symbols()=0; virtual bool set_config_word(unsigned int address, unsigned int cfg_word); virtual void create_config_memory(); // Return the portion of pclath that is used during branching instructions virtual unsigned int get_pclath_branching_jump() { return ((pclath->value.get() & 0x18)<<8); } // Return the portion of pclath that is used during modify PCL instructions virtual unsigned int get_pclath_branching_modpcl() { return((pclath->value.get() & 0x1f)<<8); } virtual unsigned int map_fsr_indf ( void ) { return ( this->fsr->value.get() ); } virtual unsigned int eeprom_get_size() {return 0;}; virtual unsigned int eeprom_get_value(unsigned int address) {return 0;}; virtual void eeprom_put_value(unsigned int value, unsigned int address) {return;} virtual unsigned int program_memory_size() const = 0; virtual unsigned int get_program_memory_at_address(unsigned int address); virtual void enter_sleep(); virtual void exit_sleep(); virtual bool hasSSP() {return has_SSP;} virtual void set_hasSSP() { has_SSP = true;} _14bit_processor(const char *_name=0, const char *desc=0); virtual ~_14bit_processor(); protected: bool has_SSP; OPTION_REG *option_reg; unsigned int ram_top; }; #define cpu14 ( (_14bit_processor *)cpu) /*************************************************************************** * * Include file for: P16C84, P16F84, P16F83, P16CR83, P16CR84 * * The x84 processors have a 14-bit core, eeprom, and are in an 18-pin * package. The class taxonomy is: * * pic_processor * |-> 14bit_processor * | * |----------\ * | * |- P16C8x * |->P16C84 * |->P16F84 * |->P16C83 * |->P16CR83 * |->P16CR84 * ***************************************************************************/ class PortBSink; class Pic14Bit : public _14bit_processor { public: Pic14Bit(const char *_name=0, const char *desc=0); virtual ~Pic14Bit(); INTCON_14_PIR intcon_reg; PicPortRegister *m_porta; PicTrisRegister *m_trisa; PicPortBRegister *m_portb; PicTrisRegister *m_trisb; virtual PROCESSOR_TYPE isa(){return _14BIT_PROCESSOR_;}; virtual void create_symbols(); virtual void create_sfr_map(); virtual void option_new_bits_6_7(unsigned int bits); }; class CPU_Temp : public Float { public: CPU_Temp(const char *_name, double temp, const char *desc) : Float(_name, temp, desc) {} }; // 14 bit processors with extended instructions // class _14bit_e_processor : public _14bit_processor { public: INTCON_14_PIR intcon_reg; BSR bsr; PCON pcon; WDTCON wdtcon; Indirect_Addressing14 ind0; Indirect_Addressing14 ind1; sfr_register status_shad; sfr_register wreg_shad; sfr_register bsr_shad; sfr_register pclath_shad; sfr_register fsr0l_shad; sfr_register fsr0h_shad; sfr_register fsr1l_shad; sfr_register fsr1h_shad; CPU_Temp *m_cpu_temp; virtual PROCESSOR_TYPE isa(){return _14BIT_PROCESSOR_;}; virtual PROCESSOR_TYPE base_isa(){return _14BIT_E_PROCESSOR_;}; virtual instruction * disasm (unsigned int address, unsigned int inst) { return disasm14E(this, address, inst); } _14bit_e_processor(const char *_name=0, const char *desc=0); virtual ~_14bit_e_processor(); virtual void create_symbols(); virtual void create_sfr_map(); virtual void interrupt(); virtual bool exit_wdt_sleep() {return wdt_sleep;} virtual void reset(RESET_TYPE r); virtual void create_config_memory(); virtual bool set_config_word(unsigned int address,unsigned int cfg_word); virtual void oscillator_select(unsigned int mode, bool clkout); virtual void program_memory_wp(unsigned int mode); // Return the portion of pclath that is used during branching instructions virtual unsigned int get_pclath_branching_jump() { return ((pclath->value.get() & 0x18)<<8); } // Return the portion of pclath that is used during modify PCL instructions virtual unsigned int get_pclath_branching_modpcl() { return((pclath->value.get() & 0x1f)<<8); } virtual void Wput(unsigned int); virtual unsigned int Wget(); protected: bool wdt_sleep; // if true wdt will interupt in sleep }; #define cpu14e ( (_14bit_e_processor *)cpu) #endif gpsim-0.27.0/src/pie.h0000644000076400007640000000063611401131150011355 00000000000000#ifndef PIE_H #define PIE_H class PIR; #include "registers.h" //--------------------------------------------------------- // PIE Peripheral Interrupt Enable register base class // for PIE1 & PIE2 class PIE : public sfr_register { public: PIE(Processor *pCpu, const char *pName, const char *pDesc); void put(unsigned int new_value); void setPir(PIR *pPir); protected: PIR *pir; }; #endif /* PIE_H */ gpsim-0.27.0/src/fopen-path.h0000644000076400007640000000216311401131150012636 00000000000000/* -*- Mode: C++; c-file-style: "bsd"; comment-column: 40 -*- */ /* Copyright (C) 2000 Daniel Christian, T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include "exports.h" #ifdef __cplusplus extern "C" { #endif /* __cplusplus */ LIBGPSIM_EXPORT void InitSourceSearchAsSymbol(); LIBGPSIM_EXPORT void set_search_path (const char *path); LIBGPSIM_EXPORT FILE *fopen_path (const char *filename, const char *perms); #ifdef __cplusplus } #endif /* __cplusplus */ gpsim-0.27.0/src/p12f182x.h0000664000076400007640000000701212162224370012004 00000000000000#ifndef __P12F182x_H__ #define __P12F182x_H__ #include "14bit-processors.h" #include "14bit-tmrs.h" #include "intcon.h" #include "pir.h" #include "pie.h" #include "eeprom.h" #include "comparator.h" #include "a2dconverter.h" #include "pic-ioports.h" #define FOSC0 (1<<0) #define FOSC1 (1<<1) #define FOSC2 (1<<2) #define IESO (1<<12) class APFCON : public sfr_register { public: void put(unsigned int new_value); void set_pins(unsigned int bit, PinModule *pin0, PinModule *pin1) { m_bitPin[0][bit] = pin0; m_bitPin[1][bit] = pin1; } void set_usart(USART_MODULE *_usart) { m_usart = _usart;}; void set_ssp(SSP1_MODULE *_ssp) { m_ssp = _ssp;}; void set_t1gcon(T1GCON *_t1gcon) { m_t1gcon = _t1gcon;}; void set_ccpcon(CCPCON *_ccpcon) { m_ccpcon = _ccpcon;}; void set_ValidBits(unsigned int _mask){mValidBits = _mask;} APFCON(Processor *pCpu, const char *pName, const char *pDesc); private: PinModule *m_bitPin[2][8]; USART_MODULE *m_usart; SSP1_MODULE *m_ssp; T1GCON *m_t1gcon; CCPCON *m_ccpcon; }; class P12F1822 : public _14bit_e_processor { public: ComparatorModule2 comparator; PIR_SET_2 pir_set_2_def; PIE pie1; PIR *pir1; PIE pie2; PIR *pir2; T2CON t2con; PR2 pr2; TMR2 tmr2; T1CON_G t1con_g; TMRL tmr1l; TMRH tmr1h; CCPCON ccp1con; CCPRL ccpr1l; CCPRH ccpr1h; FVRCON fvrcon; BORCON borcon; ANSEL_P ansela; ADCON0 adcon0; ADCON1_16F adcon1; sfr_register adresh; sfr_register adresl; OSCCON_2 osccon; OSCTUNE osctune; OSCSTAT oscstat; //OSCCAL osccal; WDTCON wdtcon; USART_MODULE usart; SSP1_MODULE ssp; APFCON apfcon; PWM1CON pwm1con; ECCPAS ccp1as; PSTRCON pstr1con; CPSCON0 cpscon0; CPSCON1 cpscon1; SR_MODULE sr_module; EEPROM_EXTND *e; WPU *m_wpua; IOC *m_iocap; IOC *m_iocan; IOC *m_iocaf; PicPortIOCRegister *m_porta; PicTrisRegister *m_trisa; PicLatchRegister *m_lata; DACCON0 *m_daccon0; DACCON1 *m_daccon1; virtual PIR *get_pir2() { return (NULL); } virtual PIR *get_pir1() { return (pir1); } virtual PIR_SET *get_pir_set() { return (&pir_set_2_def); } virtual EEPROM_EXTND *get_eeprom() { return ((EEPROM_EXTND *)eeprom); } virtual PROCESSOR_TYPE isa(){return _P12F1822_;}; P12F1822(const char *_name=0, const char *desc=0); ~P12F1822(); static Processor *construct(const char *name); virtual void create_sfr_map(); virtual void create_symbols(); virtual void set_out_of_range_pm(unsigned int address, unsigned int value); virtual void create_iopin_map(); virtual void create(int ram_top, int eeprom_size); virtual unsigned int register_memory_size () const { return 0x1000; } virtual void option_new_bits_6_7(unsigned int bits); virtual unsigned int program_memory_size() const { return 2048; } virtual void enter_sleep(); virtual void exit_sleep(); virtual void oscillator_select(unsigned int mode, bool clkout); virtual void program_memory_wp(unsigned int mode); }; class P16F1823 : public P12F1822 { public: ANSEL_P anselc; virtual PROCESSOR_TYPE isa(){return _P16F1823_;}; P16F1823(const char *_name=0, const char *desc=0); ~P16F1823(); static Processor *construct(const char *name); virtual void create_sfr_map(); virtual void create_iopin_map(); virtual void create(int ram_top, int eeprom_size); PicPortBRegister *m_portc; PicTrisRegister *m_trisc; PicLatchRegister *m_latc; WPU *m_wpuc; }; #endif //__P12F182x_H__ gpsim-0.27.0/src/bit.h0000644000076400007640000000515511401131150011357 00000000000000/* Copyright (C) 1998-2003 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #if !defined(__BIT_H__) #define __BIT_H__ // Function to test the Bit Class: extern void test_bits(); // Bit // // The Bit object is like a bool except that it supports 3-state // logic. class RegisterValue; class Bit { public: Bit(RegisterValue &rv, unsigned int bit_mask); Bit(bool nd=false, bool ni=false) : d(nd), i(ni) { } inline void operator = (const Bit &bv) { d = bv.d; i = bv.i; } inline bool operator == (const Bit &bv) const { return d==bv.d && i==bv.i; } inline void operator |= (const Bit &bv) { i = (i&bv.i) || (i&d) || (bv.d&bv.i); d |= bv.d; } inline void operator &= (const Bit &bv) { i = i&bv.i || (i&!bv.d) || (!d&bv.i); d &= bv.d; } inline void operator ^= (const Bit &bv) { d ^= bv.d; i &= bv.i; } inline Bit operator & (const Bit &r) { Bit bLv = *this; bLv.i = bLv.i&r.i || (r.i&!r.d) || (!bLv.d&bLv.i); bLv.d &= r.d; return bLv; } inline Bit operator | (const Bit &bv) { Bit bLv = *this; bLv |= bv; return bLv; } inline Bit operator ^ (const Bit &bv) { Bit bLv = *this; bLv ^= bv; return bLv; } inline bool isZero() { return d==false && i==true; } inline bool isOne() { return d==true && i==true; } inline bool isKnown() { return i==true; } inline bool isUnKnown() { return i==false; } inline void set(bool nd, bool ni) { d = nd; i = ni; } inline void clear() { d=false; i=true; } inline void set() { d = true; i = true; } inline void setUnknown() { i = false; } inline char val() { return !isKnown() ? '?' : (isOne() ? '1' : '0'); } friend Bit operator ! (Bit b); private: bool d; // The data bool i; // i=true if d is valid }; inline Bit operator ! (Bit b) { Bit bLv = b; bLv.d = !bLv.d; return bLv; } #endif gpsim-0.27.0/src/14bit-processors.cc0000664000076400007640000004077412201276457014115 00000000000000/* Copyright (C) 1998 T. Scott Dattalo Copyright (C) 2009,2013 Roy R. Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include #include "../config.h" #include "14bit-processors.h" #include "pic-ioports.h" #include "pic-registers.h" #include #include "stimuli.h" #include "packages.h" //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("0x%06X %s() ",cycles.get(),__FUNCTION__); printf arg; } #else #define Dprintf(arg) {} #endif //======================================================================== // Generic Configuration word for the midrange family. class Generic14bitConfigWord : public ConfigWord { public: Generic14bitConfigWord(_14bit_processor *pCpu) : ConfigWord("CONFIG", 0x3fff, "Configuration Word", pCpu, 0x2007) { assert(pCpu); pCpu->wdt.initialize(true); } enum { FOSC0 = 1<<0, FOSC1 = 1<<1, WDTEN = 1<<2, PWRTEN = 1<<3 }; virtual void set(gint64 v) { gint64 oldV = getVal(); Integer::set(v); if (m_pCpu) { gint64 diff = oldV ^ v; if (diff & WDTEN) m_pCpu->wdt.initialize((v & WDTEN) == WDTEN); m_pCpu->config_modes->set_fosc01(v & (FOSC0 | FOSC1)); m_pCpu->config_modes->set_wdte((v&WDTEN)==WDTEN); m_pCpu->config_modes->set_pwrte((v&PWRTEN)==PWRTEN); } } virtual string toString() { gint64 i64; get(i64); int i = i64 &0xfff; char buff[256]; snprintf(buff,sizeof(buff), "$%3x\n" " FOSC=%d - Clk source = %s\n" " WDTEN=%d - WDT is %s\n" " PWRTEN=%d - Power up timer is %s\n", i, i&(FOSC0|FOSC1), (i&FOSC0 ? (i&FOSC1 ? "EXTRC":"XT"):(i&FOSC1 ? "INTRC":"LP")), (i&WDTEN?1:0), ((i&WDTEN) ? "enabled" : "disabled"), (i&PWRTEN?1:0), ((i&PWRTEN) ? "disabled" : "enabled")); return string(buff); } }; //------------------------------------------------------------------- _14bit_processor::_14bit_processor(const char *_name, const char *_desc) : pic_processor(_name,_desc), intcon(0), has_SSP(false) { pc = new Program_Counter("pc", "Program Counter", this); pc->set_trace_command(); //trace.allocateTraceType(new PCTraceType(this,1))); option_reg = new OPTION_REG(this,"option_reg"); stack = new Stack(this); } _14bit_processor::~_14bit_processor() { unassignMCLRPin(); delete_sfr_register(fsr); delete_sfr_register(option_reg); delete pc; pc=0; } //------------------------------------------------------------------- // // // create // // The purpose of this member function is to 'create' those things // that are unique to the 14-bit core processors. void _14bit_processor :: create () { if(verbose) cout << "_14bit_processor create, type = " << isa() << '\n'; pic_processor::create(); fsr = new FSR(this, "fsr", "File Select Register for indirect addressing"); } //------------------------------------------------------------------- void _14bit_processor::interrupt () { bp.clear_interrupt(); if (bp.have_sleep()) { bp.clear_sleep(); stack->push(pc->value+1); } else { stack->push(pc->value); } intcon->clear_gie(); pc->interrupt(INTERRUPT_VECTOR); } //------------------------------------------------------------------- void _14bit_processor::save_state() { pic_processor::save_state(); option_reg->put_trace_state(option_reg->value); } //------------------------------------------------------------------- void _14bit_processor::option_new_bits_6_7(unsigned int bits) { cout << "14bit, option bits 6 and/or 7 changed\n"; } //------------------------------------------------------------------- void _14bit_processor::put_option_reg(unsigned int val) { option_reg->put(val); } //------------------------------------------------------------------ // Fetch the rom contents at a particular address. unsigned int _14bit_processor::get_program_memory_at_address(unsigned int address) { unsigned int uIndex = map_pm_address2index(address); if (uIndex < program_memory_size()) return program_memory[uIndex] ? program_memory[uIndex]->get_opcode() : 0xffffffff; return get_config_word(address); } //------------------------------------------------------------------- void _14bit_processor::create_config_memory() { m_configMemory = new ConfigMemory(this,1); m_configMemory->addConfigWord(0,new Generic14bitConfigWord(this)); } //------------------------------------------------------------------- bool _14bit_processor::set_config_word(unsigned int address,unsigned int cfg_word) { if((address == config_word_address()) && config_modes) { config_word = cfg_word; if (m_configMemory && m_configMemory->getConfigWord(0)) m_configMemory->getConfigWord(0)->set((int)cfg_word); return true; } return false; } //------------------------------------------------------------------- void _14bit_processor::enter_sleep() { tmr0.sleep(); pic_processor::enter_sleep(); } //------------------------------------------------------------------- void _14bit_processor::exit_sleep() { if (m_ActivityState == ePASleeping) { tmr0.wake(); pic_processor::exit_sleep(); } } //------------------------------------------------------------------- Pic14Bit::Pic14Bit(const char *_name, const char *_desc) : _14bit_processor(_name,_desc), intcon_reg(this,"intcon","Interrupt Control") { m_porta = new PicPortRegister(this,"porta","", 8,0x1f); m_trisa = new PicTrisRegister(this,"trisa","", m_porta, false); tmr0.set_cpu(this, m_porta, 4, option_reg); tmr0.start(0); m_portb = new PicPortBRegister(this,"portb","",&intcon_reg,8,0xff); m_trisb = new PicTrisRegister(this,"trisb","", m_portb, false); } //------------------------------------------------------------------- Pic14Bit::~Pic14Bit() { unassignMCLRPin(); remove_sfr_register(&tmr0); remove_sfr_register(&intcon_reg); delete_sfr_register(m_portb); delete_sfr_register(m_trisb); delete_sfr_register(m_porta); delete_sfr_register(m_trisa); } //------------------------------------------------------------------- void Pic14Bit::create_symbols() { pic_processor::create_symbols(); addSymbol(Wreg); } //------------------------------------------------------------------- void Pic14Bit::create_sfr_map() { add_sfr_register(indf, 0x00); alias_file_registers(0x00,0x00,0x80); add_sfr_register(&tmr0, 0x01); add_sfr_register(option_reg, 0x81, RegisterValue(0xff,0)); add_sfr_register(pcl, 0x02, RegisterValue(0,0)); add_sfr_register(status, 0x03, RegisterValue(0x18,0)); add_sfr_register(fsr, 0x04); alias_file_registers(0x02,0x04,0x80); add_sfr_register(m_porta, 0x05); add_sfr_register(m_trisa, 0x85, RegisterValue(0x3f,0)); add_sfr_register(m_portb, 0x06); add_sfr_register(m_trisb, 0x86, RegisterValue(0xff,0)); add_sfr_register(pclath, 0x0a, RegisterValue(0,0)); //add_sfr_register(pclath, 0x8a, RegisterValue(0,0)); add_sfr_register(&intcon_reg, 0x0b, RegisterValue(0,0)); //add_sfr_register(&intcon_reg, 0x8b, RegisterValue(0,0)); alias_file_registers(0x0a,0x0b,0x80); intcon = &intcon_reg; } //------------------------------------------------------------------- void Pic14Bit::option_new_bits_6_7(unsigned int bits) { //1 ((PORTB *)portb)->rbpu_intedg_update(bits); m_portb->setRBPU( (bits & (1<<7)) == (1<<7)); m_portb->setIntEdge((bits & (1<<6)) == (1<<6)); } _14bit_e_processor::_14bit_e_processor(const char *_name, const char *_desc) : _14bit_processor(_name,_desc), intcon_reg(this,"intcon","Interrupt Control"), bsr(this, "bsr", "Bank Select Register"), pcon(this, "pcon", "Power Control Register", 0xcf), wdtcon(this, "wdtcon", "WDT Control", 0x3f), ind0(this,string("0")), ind1(this,string("1")), status_shad(this, "status_shad", "Status shadow register"), wreg_shad(this, "wreg_shad", "wreg shadow register"), bsr_shad(this, "bsr_shad", "bsr shadow register"), pclath_shad(this, "pclath_shad", "pclath shadow register"), fsr0l_shad(this, "fsr0l_shad", "fsr0l shadow register"), fsr0h_shad(this, "fsr0h_shad", "fsr0h shadow register"), fsr1l_shad(this, "fsr1l_shad", "fsr1l shadow register"), fsr1h_shad(this, "fsr1h_shad", "fsr1h shadow register"), m_cpu_temp(0) { delete stack; stack = new Stack14E(this); stack->stack_mask = 0xf; // ehanced has stack 16 high intcon = &intcon_reg; }; _14bit_e_processor::~_14bit_e_processor() { remove_sfr_register(&ind0.indf); remove_sfr_register(&ind1.indf); remove_sfr_register(&ind0.fsrl); remove_sfr_register(&ind0.fsrh); remove_sfr_register(&ind1.fsrl); remove_sfr_register(&ind1.fsrh); remove_sfr_register(&bsr); remove_sfr_register(&intcon_reg); remove_sfr_register(&pcon); remove_sfr_register(&wdtcon); // These are copies taken at an interrupt remove_sfr_register(&status_shad); remove_sfr_register(&wreg_shad); remove_sfr_register(&bsr_shad); remove_sfr_register(&pclath_shad); remove_sfr_register(&fsr0l_shad); remove_sfr_register(&fsr0h_shad); remove_sfr_register(&fsr1l_shad); remove_sfr_register(&fsr1h_shad); Stack14E *stack14E = static_cast(stack); remove_sfr_register(&stack14E->stkptr); remove_sfr_register(&stack14E->tosl); remove_sfr_register(&stack14E->tosh); } void _14bit_e_processor::create_symbols() { pic_processor::create_symbols(); addSymbol(Wreg); } void _14bit_e_processor::create_sfr_map() { int bank; add_sfr_register(&ind0.indf, 0x00, RegisterValue(0,0), "indf0"); add_sfr_register(&ind1.indf, 0x01, RegisterValue(0,0), "indf1"); add_sfr_register(pcl, 0x02, RegisterValue(0,0)); add_sfr_register(status, 0x03, RegisterValue(0x18,0)); add_sfr_register(&ind0.fsrl, 0x04, RegisterValue(0,0), "fsr0l"); add_sfr_register(&ind0.fsrh, 0x05, RegisterValue(0,0), "fsr0h"); add_sfr_register(&ind1.fsrl, 0x06, RegisterValue(0,0), "fsr1l"); add_sfr_register(&ind1.fsrh, 0x07, RegisterValue(0,0), "fsr1h"); add_sfr_register(&bsr, 0x08); add_sfr_register(Wreg, 0x09); add_sfr_register(pclath, 0x0a, RegisterValue(0,0)); add_sfr_register(&intcon_reg, 0x0b, RegisterValue(0,0)); add_sfr_register(&pcon, 0x96, RegisterValue(0x0c,0),"pcon"); add_sfr_register(&wdtcon, 0x97, RegisterValue(0x16,0),"wdtcon"); // These are copies taken at an interrupt add_sfr_register(&status_shad, 0xfe4); add_sfr_register(&wreg_shad, 0xfe5); add_sfr_register(&bsr_shad, 0xfe6); add_sfr_register(&pclath_shad, 0xfe7); add_sfr_register(&fsr0l_shad, 0xfe8); add_sfr_register(&fsr0h_shad, 0xfe9); add_sfr_register(&fsr1l_shad, 0xfea); add_sfr_register(&fsr1h_shad, 0xfeb); Stack14E *stack14E = static_cast(stack); add_sfr_register(&stack14E->stkptr, 0xfed,RegisterValue(0,0),"stkptr"); add_sfr_register(&stack14E->tosl, 0xfee,RegisterValue(0,0),"tosl"); add_sfr_register(&stack14E->tosh, 0xfef,RegisterValue(0,0),"tosh"); for (bank = 1; bank < 32; bank++) { alias_file_registers(0x00,0x0b,bank*0x80); // Duplicate core registers alias_file_registers(0x70,0x7f,bank*0x80); // Duplicate shadow ram } stack->stack_mask = 15; // ehanced has stack 16 high } //------------------------------------------------------------------- // Similar to pic_processoer version except sets PCON flags // void _14bit_e_processor::reset (RESET_TYPE r) { switch(r) { case POR_RESET: pcon.put(0x0d); break; case SOFT_RESET: pcon.put(pcon.get() & ~PCON::RI); break; case MCLR_RESET: cout << "Reset due to MCLR\n"; pcon.put(pcon.get() & ~PCON::RMCLR); break; case STKOVF_RESET: pcon.put(pcon.get() | PCON::STKOVF); break; case STKUNF_RESET: pcon.put(pcon.get() | PCON::STKUNF); break; default: break; }; pic_processor::reset(r); return; } //------------------------------------------------------------------- // The enhanced processors save a number of registers into // their shadow registers on interrupt // void _14bit_e_processor::interrupt () { bp.clear_interrupt(); if (bp.have_sleep()) { bp.clear_sleep(); stack->push(pc->value+1); } else { stack->push(pc->value); } status_shad.value = status->value; wreg_shad.value = Wreg->value; bsr_shad.value = bsr.value; pclath_shad.value = pclath->value; fsr0l_shad.value = ind0.fsrl.value; fsr0h_shad.value = ind0.fsrh.value; fsr1l_shad.value = ind1.fsrl.value; fsr1h_shad.value = ind1.fsrh.value; intcon->clear_gie(); pc->interrupt(INTERRUPT_VECTOR); } //======================================================================== // // Configuration Memory word 1for the enhanced 14 bit processors class Config_E : public ConfigWord { public: Config_E(_14bit_e_processor *pCpu, const char *name, unsigned int address, bool EEw=false) : ConfigWord(name, 0x3fff, "Configuration Word", pCpu, address, EEw) { if (m_pCpu) { m_pCpu->set_config_word(address, 0x3fff); } } }; void _14bit_e_processor::create_config_memory() { m_configMemory = new ConfigMemory(this,9); m_configMemory->addConfigWord(0,new Config_E(this, "UserID1", 0x8000, true)); m_configMemory->addConfigWord(1,new Config_E(this, "UserID2", 0x8001, true)); m_configMemory->addConfigWord(2,new Config_E(this, "UserID3", 0x8002, true)); m_configMemory->addConfigWord(3,new Config_E(this, "UserID4", 0x8003, true)); m_configMemory->addConfigWord(6,new Config_E(this, "DeviceID", 0x8006)); m_configMemory->addConfigWord(7,new Config_E(this, "ConfigW1", 0x8007)); m_configMemory->addConfigWord(8,new Config_E(this, "ConfigW2", 0x8008)); }; bool _14bit_e_processor::set_config_word(unsigned int address,unsigned int cfg_word) { enum { FOSC0 = 1<<0, FOSC1 = 1<<1, FOSC2 = 1<<2, WDTEN0 = 1<<3, WDTEN1 = 1<<4, PWRTEN = 1<<5, MCLRE = 1<<6, CP = 1<<7, CPD = 1<<8, BOREN0 = 1<<9, BOREN1 = 1<<10, NOT_CLKOUTEN = 1<<11, // IESO = 1<<12, // Config word 2 WRT0 = 1<<0, WRT1 = 1<<1, PLLEN = 1<<8, STVREN = 1<<9, }; Dprintf((" add %x word %x\n", address, cfg_word)); if(address == 0x8007) // Config Word 1 { unsigned int wdt_flag = (cfg_word & (WDTEN0|WDTEN1)); Dprintf((" cfg_word %x MCLRE %x\n", cfg_word, cfg_word & MCLRE)); if ((cfg_word & MCLRE) == MCLRE) assignMCLRPin(4); // package pin 4 else unassignMCLRPin(); wdt_sleep = (wdt_flag == WDTEN1)?false:true; // will WDT interrupt sleep wdt.initialize(wdt_flag & WDTEN1); oscillator_select(cfg_word, (cfg_word & NOT_CLKOUTEN) != NOT_CLKOUTEN); } else if (address == 0x8008) { // stack over/under reset flag stack->STVREN = ((cfg_word & STVREN) == STVREN); Dprintf((" STVREN %x flag %d\n", cfg_word&STVREN, stack->STVREN)); // Program memory write protect (eeprom) program_memory_wp(cfg_word & (WRT1|WRT0)); set_pplx4_osc(cfg_word & PLLEN); } return(pic_processor::set_config_word(address, cfg_word)); } // The working version of oscillator_select should be called at a higher level // where the IO pins are defined // void _14bit_e_processor::oscillator_select(unsigned int mode, bool not_clkout) { printf("Error _14bit_e_processor::oscillator_select called\n"); } // The working version of program_memory_wp should be called at a higher level // where the eeprom is defined // void _14bit_e_processor::program_memory_wp(unsigned int mode) { printf("Error _14bit_e_processor::program_memory_wp called\n"); } // This function routes Wreg put requests through registers (if possible) // for breaking and logging void _14bit_e_processor::Wput(unsigned int value) { if(Wreg->address) registers[Wreg->address]->put(value); else Wreg->put(value); } // This function routes Wreg get requests through registers (if possible) // for breaking and logging unsigned int _14bit_e_processor::Wget() { if(Wreg->address) return registers[Wreg->address]->get(); else return Wreg->get(); } gpsim-0.27.0/src/processor.cc0000664000076400007640000021557012201276457013007 00000000000000/* Copyright (C) 1998-2003 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ /* stuff that needs to be fixed: Register aliasing The "invalid instruction" in program memory. */ #include #ifdef _WIN32 #include "uxtime.h" #else #include #endif #include #include #include #include #include #include "../config.h" #include "gpsim_def.h" #include #include "gpsim_classes.h" #include "modules.h" #include "processor.h" #include "pic-processor.h" #include "xref.h" #include "attributes.h" #include "fopen-path.h" #include "cmd_gpsim.h" #include "sim_context.h" #include "clock_phase.h" #include //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("%s:%d-%s() ",__FILE__,__LINE__,__FUNCTION__); printf arg; } #else #define Dprintf(arg) {} #endif //------------------------------------------------------------------------ // active_cpu is a pointer to the pic processor that is currently 'active'. // 'active' means that it's the one currently being simulated or the one // currently being manipulated by the user (e.g. register dumps, break settings) Processor *active_cpu = 0; // create instances of inline get_active_cpu() and set_active_cpu() methods // by taking theirs address Processor *(*dummy_get_active_cpu)(void) = get_active_cpu; void (*dummy_set_active_cpu)(Processor *act_cpu) = set_active_cpu; static char pkg_version[] = PACKAGE_VERSION; class CPU_Freq : public Float { public: CPU_Freq(Processor * _cpu, double freq); //const char *_name, double newValue, const char *desc); virtual void set(double d); private: Processor * cpu; }; CPU_Freq::CPU_Freq(Processor * _cpu, double freq) : Float("frequency",freq, " oscillator frequency."), cpu(_cpu) { } void CPU_Freq::set(double d) { pic_processor *pCpu = dynamic_cast(cpu); Float::set ( d ); if ( cpu ) cpu->update_cps(); if ( pCpu ) pCpu->wdt.update(); } //------------------------------------------------------------------------ // // Processor - Constructor // Processor::Processor(const char *_name, const char *_desc) : Module(_name, _desc), pma(0), rma(this), ema(this), pc(0), bad_instruction(0, 0x3fff, 0) { registers = 0; m_pConstructorObject = 0; m_Capabilities = 0; if(verbose) cout << "processor constructor\n"; addSymbol(mFrequency = new CPU_Freq(this,20e6)); set_ClockCycles_per_Instruction(4); update_cps(); set_Vdd(5.0); setWarnMode(true); setSafeMode(true); setUnknownMode(true); setBreakOnReset(true); // derived classes need to override these values m_uPageMask = 0x00; m_uAddrMask = 0xff; readTT = 0; writeTT = 0; interface = new ProcessorInterface(this); // let the processor version number simply be gpsim's version number. version = &pkg_version[0]; get_trace().cycle_counter(get_cycles().get()); addSymbol(m_pWarnMode = new WarnModeAttribute(this)); addSymbol(m_pSafeMode = new SafeModeAttribute(this)); addSymbol(m_pUnknownMode = new UnknownModeAttribute(this)); addSymbol(m_pBreakOnReset = new BreakOnResetAttribute(this)); m_pbBreakOnInvalidRegisterRead = new Boolean("BreakOnInvalidRegisterRead", true, "Halt simulation when an invalid register is read from."); addSymbol(m_pbBreakOnInvalidRegisterRead); m_pbBreakOnInvalidRegisterWrite = new Boolean("BreakOnInvalidRegisterWrite", true, "Halt simulation when an invalid register is written to."); addSymbol(m_pbBreakOnInvalidRegisterWrite); } static unsigned int m_ProgramMemoryAllocationSize = 0; //------------------------------------------------------------------- Processor::~Processor() { deleteSymbol(m_pbBreakOnInvalidRegisterRead); deleteSymbol(m_pbBreakOnInvalidRegisterWrite); deleteSymbol(m_pWarnMode); deleteSymbol(m_pSafeMode); deleteSymbol(m_pUnknownMode); deleteSymbol(m_pBreakOnReset); deleteSymbol(mFrequency); delete interface; delete_invalid_registers(); delete m_UiAccessOfRegisters; delete []registers; delete readTT; delete writeTT; destroyProgramMemoryAccess(pma); for (unsigned int i = 0; i < m_ProgramMemoryAllocationSize; i++) if (program_memory[i] != &bad_instruction) delete program_memory[i]; delete []program_memory; } unsigned long Processor::GetCapabilities() { return m_Capabilities; } //------------------------------------------------------------------- // Simulation modes: void Processor::setWarnMode(bool newWarnMode) { bWarnMode = newWarnMode; } void Processor::setSafeMode(bool newSafeMode) { bSafeMode = newSafeMode; } void Processor::setUnknownMode(bool newUnknownMode) { bUnknownMode = newUnknownMode; } void Processor::setBreakOnReset(bool newBreakOnReset) { bBreakOnReset = newBreakOnReset; } //------------------------------------------------------------------------ // Attributes void Processor::set_frequency(double f) { if(mFrequency) mFrequency->set(f); update_cps(); } double Processor::get_frequency() { double d=0.0; if(mFrequency) mFrequency->get(d); return d; } void Processor::update_cps(void) { get_cycles().set_instruction_cps((guint64)(get_frequency()/clocks_per_inst)); } double Processor::get_OSCperiod() { double f = get_frequency(); if(f>0.0) return 1/f; else return 0.0; } /* void Processor::set(const char *cP,int len) { } void Processor::get(char *cP, int len) { cP[0] = 0; } */ //------------------------------------------------------------------- // // init_register_memory (unsigned int memory_size) // // Allocate an array for holding register objects. // void Processor::init_register_memory (unsigned int memory_size) { if(verbose) cout << __FUNCTION__ << " memory size: " << memory_size << '\n'; registers = new Register *[memory_size]; m_UiAccessOfRegisters = new RegisterCollection(this, "ramData", registers, memory_size); if (registers == 0) { throw new FatalError("Out of memory - PIC register space"); } // For processors with banked memory, the register_bank corresponds to the // active bank. Let this point to the beginning of the register array for // now. register_bank = registers; rma.set_Registers(registers, memory_size); // Make all of the file registers 'undefined' (each processor derived from this base // class defines its own register mapping). for (unsigned int i = 0; i < memory_size; i++) registers[i] = 0; } //------------------------------------------------------------------- // // // create_invalid_registers // // The purpose of this function is to complete the initialization // of the file register memory by placing an instance of an 'invalid // file register' at each 'invalid' memory location. Most of PIC's // do not use the entire address space available, so this routine // fills the voids. // void Processor::create_invalid_registers () { unsigned int addr; if(verbose) cout << "Creating invalid registers " << register_memory_size()<<"\n"; // Now, initialize any undefined register as an 'invalid register' // Note, each invalid register is given its own object. This enables // the simulation code to efficiently capture any invalid register // access. Furthermore, it's possible to set break points on // individual invalid file registers. By default, gpsim halts whenever // there is an invalid file register access. for (addr = 0; addr < register_memory_size(); addr+=map_rm_index2address(1)) { unsigned int index = map_rm_address2index(addr); if (!registers[index]) { char nameBuff[100]; snprintf(nameBuff,sizeof(nameBuff), "INVREG_%X",addr); registers[index] = new InvalidRegister(this, nameBuff); registers[index]->setAddress(addr); } } } //------------------------------------------------------------------- // // Delete invalid registers // void Processor::delete_invalid_registers () { unsigned int i=0; for (i = 0; i < rma.get_size(); i++) { // cout << __FUNCTION__ << " reg: 0x"< (registers[i]); if (pReg) { delete registers[i]; registers[i]= 0; } else if (registers[i]) { char reg_name[11]; cout << __FUNCTION__ << " reg: 0x"<name().c_str(), 10); reg_name[10] = 0; cout << " " << reg_name <isa() == Register::INVALID_REGISTER)) delete registers[j]; else if (registers[j]) cout << __FUNCTION__ << " Already register " << registers[j]->name() << " at 0x" << hex << j <alias_mask = alias_offset; } else registers[j]->alias_mask = 0; registers[j]->setAddress(j); RegisterValue rv = getWriteTT(j); registers[j]->set_write_trace(rv); rv = getReadTT(j); registers[j]->set_read_trace(rv); } } //------------------------------------------------------------------- // delete_file_registers // // The purpose of this member function is to delete file registers // void Processor::delete_file_registers(unsigned int start_address, unsigned int end_address, bool bRemoveWithoutDelete) { #define DFR_DEBUG 0 if (DFR_DEBUG) cout << __FUNCTION__ << " start:" << hex << start_address << " end:" << hex << end_address << endl; // FIXME - this function is bogus. // The aliased registers do not need to be searched for - the alias mask // can tell at what addresses a register is aliased. #define SMALLEST_ALIAS_DISTANCE 32 #define ALIAS_MASK (SMALLEST_ALIAS_DISTANCE-1) unsigned int i,j; if (start_address != end_address) Dprintf(("from 0x%x to 0x%x\n", start_address, end_address)); for (j = start_address; j <= end_address; j++) { if(registers[j]) { Register *thisReg = registers[j]; Register *replaced = thisReg->getReplaced(); if(thisReg->alias_mask) { // This register appears in more than one place. Let's find all // of its aliases. for(i=j&ALIAS_MASK; iname().c_str(), j, j+alias_offset); } else { delete registers[j + alias_offset]; } } registers[j + alias_offset] = registers[j]; if (registers[j]) registers[j]->alias_mask = alias_offset; } } } //------------------------------------------------------------------- // // init_program_memory(unsigned int memory_size) // // The purpose of this member function is to allocate memory for the // pic's code space. The 'memory_size' parameter tells how much memory // is to be allocated // // The following is not correct for 18f2455 and 18f4455 processors // so test has been disabled (RRR) // // AND it should be an integer of the form of 2^n. // If the memory size is not of the form of 2^n, then this routine will // round up to the next integer that is of the form 2^n. // // Once the memory has been allocated, this routine will initialize // it with the 'bad_instruction'. The bad_instruction is an instantiation // of the instruction class that chokes gpsim if it is executed. Note that // each processor owns its own 'bad_instruction' object. void Processor::init_program_memory (unsigned int memory_size) { if(verbose) cout << "Initializing program memory: 0x"<name(); } ProgramMemoryAccess * Processor::createProgramMemoryAccess(Processor *processor) { return new ProgramMemoryAccess(processor); } void Processor::destroyProgramMemoryAccess(ProgramMemoryAccess *pma) { delete pma; } //------------------------------------------------------------------- // init_program_memory(int address, int value) // // The purpose of this member fucntion is to instantiate an Instruction // object in the program memory. If the opcode is invalid, then a 'bad_instruction' // is inserted into the program memory instead. If the address is beyond // the program memory address space, then it may be that the 'opcode' is // is in fact a configuration word. // void Processor::init_program_memory(unsigned int address, unsigned int value) { unsigned int uIndex = map_pm_address2index(address); if (!program_memory) { std::stringstream buf; buf << "ERROR: internal bug " << __FILE__ << ":" << __LINE__; throw new FatalError(buf.str()); } if(uIndex < program_memory_size()) { if(program_memory[uIndex] != 0 && program_memory[uIndex]->isa() != instruction::INVALID_INSTRUCTION) { // this should not happen delete program_memory[uIndex]; } program_memory[uIndex] = disasm(address,value); if(program_memory[uIndex] == 0) program_memory[uIndex] = &bad_instruction; //program_memory[uIndex]->add_line_number_symbol(); } else if (set_config_word(address, value)) ; else set_out_of_range_pm(address,value); // could be e2prom } //------------------------------------------------------------------- //erase_program_memory(unsigned int address) // // Checks if a program memory location contains an instruction // and deletes it if it does. // void Processor::erase_program_memory(unsigned int address) { unsigned int uIndex = map_pm_address2index(address); if (!program_memory) { std::stringstream buf; buf << "ERROR: internal bug " << __FILE__ << ":" << __LINE__; throw new FatalError(buf.str()); } if(uIndex < program_memory_size()) { if(program_memory[uIndex] != 0 && program_memory[uIndex]->isa() != instruction::INVALID_INSTRUCTION) { delete program_memory[uIndex]; program_memory[uIndex] = &bad_instruction; } } else { cout << "Erase Program memory\n"; cout << "Warning::Out of range address " << hex << address << endl; cout << "Max allowed address is 0x" << hex << (program_address_limit()-1) << '\n'; } } void Processor::init_program_memory_at_index(unsigned int uIndex, unsigned int value) { init_program_memory(map_pm_index2address(uIndex), value); } void Processor::init_program_memory_at_index(unsigned int uIndex, const unsigned char *bytes, int nBytes) { for (int i =0; iget_opcode() : 0xffffffff; } //------------------------------------------------------------------- // build_program_memory - given an array of opcodes this function // will convert them into instructions and insert them into the // simulated program memory. // void Processor::build_program_memory(unsigned int *memory, unsigned int minaddr, unsigned int maxaddr) { for (unsigned int i = minaddr; i <= maxaddr; i++) if(memory[i] != 0xffffffff) init_program_memory(i, memory[i]); } //------------------------------------------------------------------- /** @brief Write a word of data into memory outside flash * * This method is called when loading data from the COD or HEX file * and the address is not in the program ROM or normal config space. * In this base class, there is no such memory. Real processors, * particularly those with EEPROM, will need to override this method. * * @param address Memory address to set. Byte address on 18F * @param value Word data to write in. */ void Processor::set_out_of_range_pm(unsigned int address, unsigned int value) { cout << "Warning::Out of range address " << address << " value " << value << endl; cout << "Max allowed address is 0x" << hex << (program_address_limit()-1) << '\n'; } //------------------------------------------------------------------- // // attach_src_line - This member function establishes the one-to-one link // between instructions and the source code that create them. void Processor::attach_src_line(unsigned int address, unsigned int file_id, unsigned int sline, unsigned int lst_line) { unsigned int uIndex = map_pm_address2index(address); if(uIndex < program_memory_size()) program_memory[uIndex]->update_line_number(file_id,sline,lst_line,-1,-1); else printf ( "%s:Address %03X out of range\n", __FUNCTION__, uIndex ); } //------------------------------------------------------------------- // read_src_files - this routine will open all of the source files // associated with the project and associate their line numbers // with the addresses of the opcodes they generated. // void Processor::read_src_files(void) { int i; // Are there any src files ? for(i=0; imax_line() > 0) { // Create an array whose index corresponds to the // line number of a source file line and whose data // is the offset (in bytes) from the beginning of the // file. (e.g. files[3].line_seek[20] references the // 20th line of the third source file.) fc->ReadSource(); } } // Associate source files with the instructions they generated. unsigned int addr; for(addr = 0; addrisa() != instruction::INVALID_INSTRUCTION)) { FileContext *fc = files[program_memory[addr]->get_file_id()]; if(fc) fc->put_address(program_memory[addr]->get_src_line(), map_pm_index2address(addr)); } } // Associate the list file with if (files.list_id() >= 0) { // Parse the list file. //printf("read_src_files List file:%d %d\n",files.list_id(),files.nsrc_files()); FileContext *fc = files[files.list_id()]; if (!fc) return; fc->ReadSource(); fc->rewind(); char buf[256]; int line = 1; while(fc->gets(buf,sizeof(buf))) { int address; int opcode; if (sscanf(buf,"%x %x",&address, &opcode) == 2) { unsigned int uIndex = map_pm_address2index(address); if (uIndex < program_memory_size()) { program_memory[uIndex]->update_line_number(-1,-1,line,-1,-1); fc->put_address(line,address); } } line++; } } } //------------------------------------------------------------------- // // processor -- list // // Display the contents of either a source or list file // void Processor::list(unsigned int file_id, unsigned int pc_val, int start_line, int end_line) { if(files.nsrc_files() == 0) return; if(pc_val > program_memory_size()) return; if(program_memory[pc_val]->isa() == instruction::INVALID_INSTRUCTION) { cout << "There's no code at address 0x" << hex << pc_val << '\n'; return; } unsigned int line,pc_line; if(file_id) { file_id = files.list_id(); line = program_memory[pc_val]->get_lst_line(); pc_line = program_memory[pc->value]->get_lst_line(); } else { file_id = program_memory[pc_val]->get_file_id(); line = program_memory[pc_val]->get_src_line(); pc_line = program_memory[pc->value]->get_src_line(); } start_line += line; end_line += line; FileContext *fc = files[file_id]; if(fc == NULL) return; start_line = (start_line < 0) ? 0 : start_line; end_line = (end_line <= start_line) ? (start_line + 5) : end_line; end_line = (end_line > (int)fc->max_line()) ? fc->max_line() : end_line; cout << " listing " << fc->name() << " Starting line " << start_line << " Ending line " << end_line << '\n'; if (end_line == start_line) return; for(unsigned int i=start_line; i<=(unsigned int)end_line; i++) { char buf[256]; fc->ReadLine(i, buf, sizeof(buf)); if (pc_line == i) cout << "==>"; else cout << " "; cout << buf; } } static void trim(char * pBuffer) { size_t iPos = 0; char * pChar = pBuffer; while(*pChar != 0 && ::isspace(*pChar)) { pChar++; } if(pBuffer != pChar) { memmove(pBuffer, pChar, strlen(pBuffer) - iPos); } iPos = strlen(pBuffer); pChar = pBuffer + iPos - 1; while( pChar > pBuffer && ::isspace(*pChar)) { *pChar = 0; pChar--; } } //------------------------------------------------------------------- // // disassemble - Disassemble the contents of program memory from // 'start_address' to 'end_address'. The instruction at the current // PC is marked with an arrow '==>'. If an instruction has a break // point set on it then it will be marked with a 'B'. The instruction // mnemonics come from the class declarations for each instruction. // However, it is possible to modify this on a per instruction basis. // In other words, each instruction in the program memory has it's // own instantiation. So a MOVWF at address 0x20 is different than // one at address 0x21. It is possible to change the mnemonic of // one without affecting the other. As of version 0.0.7 though, this // is not implemented. // void Processor::disassemble (signed int s, signed int e) { instruction *inst; int use_src_to_disasm = 0; if(s > e) return; unsigned int start_PMindex = map_pm_address2index(s); unsigned int end_PMindex = map_pm_address2index(e); if(start_PMindex >= program_memory_size()) { if(s <0) start_PMindex = 0; else return; } if(end_PMindex >= program_memory_size()) { if(e<0) return; else end_PMindex = program_memory_size()-1; } const int iConsoleWidth = 80; char str[iConsoleWidth]; char str2[iConsoleWidth]; if (!pc) { std::stringstream buf; buf << "ERROR: internal bug " << __FILE__ << ":" << __LINE__; throw new FatalError(buf.str()); } unsigned uPCAddress = pc->get_value(); const char *pszPC; char cBreak; ISimConsole &Console = GetUserInterface().GetConsole(); int iLastFileId = -1; FileContext *fc = NULL; for(unsigned int PMindex = start_PMindex; PMindex<=end_PMindex; PMindex++) { unsigned int uAddress = map_pm_index2address(PMindex); str[0] = 0; pszPC = (uPCAddress == uAddress) ? "==>" : " "; inst = program_memory[PMindex]; // If this is not a "base" instruction then it has been replaced // with something like a break point. cBreak = ' '; if(!inst->isBase()) { cBreak = 'B'; inst = pma->get_base_instruction(PMindex); } if(inst->get_file_id() != -1) { fc = files[inst->get_file_id()]; if(iLastFileId != inst->get_file_id()) Console.Printf("%s\n", fc->name().c_str()); iLastFileId = inst->get_file_id(); } else fc = 0; //const char *pLabel = get_symbol_table().findProgramAddressLabel(uAddress); //if(*pLabel != 0) // cout << pLabel << ":" << endl; AddressSymbol *pAddr = dynamic_cast(inst->getLineSymbol()); if (pAddr) cout << pAddr->name() << ':' << endl; if(files.nsrc_files() && use_src_to_disasm) { char buf[256]; files.ReadLine(inst->get_file_id(), inst->get_src_line() - 1, buf, sizeof(buf)); cout << buf; } else { if(fc != NULL && inst->get_src_line() != -1) { if(fc->ReadLine(inst->get_src_line(), str2, iConsoleWidth - 33) != NULL) { trim(str2); } else { str2[0] = 0; } } else { str2[0] = 0; } inst->name(str, sizeof(str)); char *pAfterNumonic = strchr(str, '\t'); int iNumonicWidth = pAfterNumonic ? pAfterNumonic - str : 5; int iOperandsWidth = 14; int iSrc = iOperandsWidth - (strlen(str) - iNumonicWidth - 1); // Console.Printf("0.........1.........2.........3.........4.........5.........6.........7........."); // Console.Printf("%d, strlen(str)=%d\n", iNumonicWidth, strlen(str)); const char *pFormat = (opcode_size() <=2) ? "% 3s%c%04x %04x %s %*s%s\n" : "% 3s%c%04x %06x %s %*s%s\n"; Console.Printf(pFormat, pszPC, cBreak, uAddress, inst->get_opcode(), str, iSrc, "", str2); } } } //------------------------------------------------------------------- void Processor::save_state(FILE *fp) { if(!fp) return; unsigned int i; fprintf(fp,"PROCESSOR:%s\n",name().c_str()); for(i=1; iisa() != Register::INVALID_REGISTER) { fprintf(fp,"R:%X:%s:(%X,%X)\n", reg->address, reg->name().c_str(), reg->value.get(), reg->value.geti()); } } if(pc) fprintf(fp,"P:0:PC:%X\n",pc->value); } //------------------------------------------------------------------- void Processor::save_state(void) { unsigned int i; for(i=0; iisa() != Register::INVALID_REGISTER) { reg->put_trace_state(reg->getRV_notrace()); } } if(pc) pc->put_trace_state(pc->value); } //------------------------------------------------------------------- void Processor::load_state(FILE *fp) { if(!fp) return; cout << "Not implemented\n"; } //------------------------------------------------------------------- int ProgramMemoryAccess::find_closest_address_to_line(int file_id, int src_line) { int closest_address = -1; if(!cpu) return closest_address; FileContext *fc = cpu->files[file_id]; if(fc) { int offset=0; while((unsigned int)(src_line+offset)max_line()) { closest_address = fc->get_address(src_line+offset); if(closest_address>=0) return closest_address; offset++; } offset=-1; while(src_line+offset>=0) { closest_address = fc->get_address(src_line+offset); if(closest_address>=0) return closest_address; offset--; } } return closest_address; } //------------------------------------------------------------------- int ProgramMemoryAccess::find_address_from_line(FileContext *fc, int src_line) { return (cpu && fc) ? fc->get_address(src_line) : -1; } //-------------------------------------------------------------------------- // // temporary - this could is going to get deleted as soon as file related // stuff gets put into its own object/class. void ProgramMemoryAccess::set_hll_mode(unsigned int new_hll_mode) { switch(new_hll_mode) { case ASM_MODE: hll_mode = ASM_MODE; break; case HLL_MODE: hll_mode = HLL_MODE; } } //-------------------------------------------------------------------------- int ProgramMemoryAccess::get_src_line(unsigned int address) { unsigned int line=0; if(!cpu || !cpu->IsAddressInRange(address)) return INVALID_VALUE; switch(get_hll_mode()) { case ASM_MODE: line = getFromAddress(address)->get_src_line(); break; case HLL_MODE: line = getFromAddress(address)->get_hll_src_line(); break; } return line; } //-------------------------------------------------------------------------- int ProgramMemoryAccess::get_file_id(unsigned int address) { if(!cpu) return INVALID_VALUE; switch(get_hll_mode()) { case ASM_MODE: return getFromAddress(address)->get_file_id(); break; case HLL_MODE: return getFromAddress(address)->get_hll_file_id(); break; } return INVALID_VALUE; } //------------------------------------------------------------------- unsigned int ProgramMemoryAccess::set_break_at_address(unsigned int address) { if(hasValid_opcode_at_address(address)) return bp.set_execution_break(cpu, address); return INVALID_VALUE; } //------------------------------------------------------------------- unsigned int ProgramMemoryAccess::set_notify_at_address(unsigned int address, TriggerObject *cb) { if(hasValid_opcode_at_address(address)) return bp.set_notify_break(cpu, address, cb); return INVALID_VALUE; } //------------------------------------------------------------------- unsigned int ProgramMemoryAccess::set_profile_start_at_address(unsigned int address, TriggerObject *cb) { unsigned int pm_index = cpu->map_pm_address2index(address); if(pm_indexprogram_memory_size()) if (cpu->program_memory[pm_index]->isa() != instruction::INVALID_INSTRUCTION) return bp.set_profile_start_break(cpu, address, cb); return INVALID_VALUE; } //------------------------------------------------------------------- unsigned int ProgramMemoryAccess::set_profile_stop_at_address(unsigned int address, TriggerObject *cb) { if(hasValid_opcode_at_address(address)) return bp.set_profile_stop_break(cpu, address, cb); return INVALID_VALUE; } //------------------------------------------------------------------- int ProgramMemoryAccess::clear_break_at_address(unsigned int address, enum instruction::INSTRUCTION_TYPES type = instruction::BREAKPOINT_INSTRUCTION) { unsigned int uIndex = cpu->map_pm_address2index(address); if ( uIndexprogram_memory_size() ) { instruction *instr = find_instruction(address,type); if(instr!=0) { int b = ((Breakpoint_Instruction *)instr)->bpn & BREAKPOINT_MASK; // this actually removes the object bp.clear( b ); return 1; } } return 0; } //------------------------------------------------------------------- int ProgramMemoryAccess::clear_break_at_address(unsigned int address, instruction * pInstruction) { if(!cpu || !cpu->IsAddressInRange(address)) return -1; instruction **ppAddressLocation = &cpu->program_memory[cpu->map_pm_address2index(address)]; Breakpoint_Instruction *br = dynamic_cast(*ppAddressLocation); if (br == pInstruction) { // at the head of the chain *ppAddressLocation = br->getReplaced(); br->setReplaced(0); } else { Breakpoint_Instruction *pLast = br; // Find myself in the chain while(br != NULL) { if (br == pInstruction) { // found -- remove from the chain pLast->setReplaced(br->getReplaced()); br->setReplaced(0); return 1; } else { pLast = br; br = dynamic_cast(br->getReplaced()); } } } return 0; } //------------------------------------------------------------------- int ProgramMemoryAccess::clear_notify_at_address(unsigned int address) { return clear_break_at_address(address,instruction::NOTIFY_INSTRUCTION); } //------------------------------------------------------------------- int ProgramMemoryAccess::clear_profile_start_at_address(unsigned int address) { return clear_break_at_address(address,instruction::PROFILE_START_INSTRUCTION); } //------------------------------------------------------------------- int ProgramMemoryAccess::clear_profile_stop_at_address(unsigned int address) { return clear_break_at_address(address,instruction::PROFILE_STOP_INSTRUCTION); } //------------------------------------------------------------------- int ProgramMemoryAccess::address_has_break(unsigned int address, enum instruction::INSTRUCTION_TYPES type) { if(find_instruction(address,type)!=0) return 1; return 0; } //------------------------------------------------------------------- int ProgramMemoryAccess::address_has_notify(unsigned int address) { return address_has_break(address,instruction::NOTIFY_INSTRUCTION); } //------------------------------------------------------------------- int ProgramMemoryAccess::address_has_profile_start(unsigned int address) { return address_has_break(address,instruction::PROFILE_START_INSTRUCTION); } //------------------------------------------------------------------- int ProgramMemoryAccess::address_has_profile_stop(unsigned int address) { return address_has_break(address,instruction::PROFILE_STOP_INSTRUCTION); } //------------------------------------------------------------------- void ProgramMemoryAccess::toggle_break_at_address(unsigned int address) { if(address_has_break(address)) clear_break_at_address(address); else set_break_at_address(address); } //------------------------------------------------------------------- void ProgramMemoryAccess::set_break_at_line(unsigned int file_id, unsigned int src_line) { int address; if( (address = find_closest_address_to_line(file_id, src_line)) >= 0) set_break_at_address(address); } void ProgramMemoryAccess::clear_break_at_line(unsigned int file_id, unsigned int src_line) { int address; if( (address = find_closest_address_to_line(file_id, src_line)) >= 0) clear_break_at_address(address); } void ProgramMemoryAccess::toggle_break_at_line(unsigned int file_id, unsigned int src_line) { toggle_break_at_address(find_closest_address_to_line(file_id, src_line)); } //------------------------------------------------------------------- // Processor * Processor::construct(void) { cout << " Can't create a generic processor\n"; return 0; } //------------------------------------------------------------------- void Processor::trace_dump(int type, int amount) { trace.dump(amount, stdout); } //------------------------------------------------------------------- // Decode a single trace item int Processor::trace_dump1(int type, char *buffer, int bufsize) { snprintf(buffer, bufsize,"*** INVALID TRACE *** 0x%x",type); return 1; } //------------------------------------------------------------------- // getWriteTT // // For devices with more than 64k of registers (which are not supported // at the moment), we can enhance this function to return different Trace // type objects base on the upper address bits. RegisterValue Processor::getWriteTT(unsigned int j) { if(!writeTT) { writeTT = new RegisterWriteTraceType(this,2); trace.allocateTraceType(writeTT); } // The upper 8-bits define the dynamically allocated trace type // The lower 8-bits will record the register value that is written. // The middle 16-bits are the register address unsigned int tt = (writeTT->type() & 0xff000000) | ((j & 0xffff) << 8); return RegisterValue(tt, tt + (1<<24) ); } RegisterValue Processor::getReadTT(unsigned int j) { if(!readTT) { readTT = new RegisterReadTraceType(this,2); trace.allocateTraceType(readTT); } // The upper 8-bits define the dynamically allocated trace type // The lower 8-bits will record the register value that is written. // The middle 16-bits are the register address unsigned int tt = (readTT->type() & 0xff000000) | ((j & 0xffff) << 8); return RegisterValue(tt, tt + (1<<24) ); } //------------------------------------------------------------------- // // step_over - In most cases, step_over will simulate just one instruction. // However, if the next instruction is a branching one (e.g. goto, call, // return, etc.) then a break point will be set after it and gpsim will // begin 'running'. This is useful for stepping over time-consuming calls. // void Processor::step_over (bool refresh) { step(1,refresh); // Try one step } //------------------------------------------------------------------- void Processor::run_to_address (unsigned int destination) { if(simulation_mode != eSM_STOPPED) { if(verbose) cout << "Ignoring run-to-address request because simulation is not stopped\n"; return; } // Set a temporary break point unsigned int bp_num = bp.set_execution_break(this, destination); run(); bp.clear(bp_num); } //------------------------------------------------------------------- // // // create // // The purpose of this member function is to 'create' a pic processor. // Since this is a base class member function, only those things that // are common to all pics are created. void Processor::create (void) { std::stringstream buf; buf << " a generic processor cannot be created " << __FILE__ << ":" << __LINE__; throw new FatalError(buf.str()); } //------------------------------------------------------------------- void Processor::dump_registers (void) { // parse_string("dump"); } //------------------------------------------------------------------- void Processor::Debug() { cout << " === Debug === \n"; if(pc) cout << "PC=0x"<value << endl; } //------------------------------------------------------------------- instruction *ProgramMemoryAccess::find_instruction(unsigned int address, enum instruction::INSTRUCTION_TYPES type) { unsigned int uIndex = cpu->map_pm_address2index(address); if(cpu->program_memory_size()<=uIndex) return 0; instruction *p = getFromIndex(uIndex); if(p->isa()==instruction::INVALID_INSTRUCTION) return 0; for(;;) { if(p->isa()==type) return p; switch(p->isa()) { case instruction::MULTIWORD_INSTRUCTION: case instruction::INVALID_INSTRUCTION: case instruction::NORMAL_INSTRUCTION: return 0; case instruction::BREAKPOINT_INSTRUCTION: case instruction::NOTIFY_INSTRUCTION: case instruction::PROFILE_START_INSTRUCTION: case instruction::PROFILE_STOP_INSTRUCTION: case instruction::ASSERTION_INSTRUCTION: p=((Breakpoint_Instruction *)p)->getReplaced(); break; } } return 0; } //------------------------------------------------------------------- guint64 Processor::cycles_used(unsigned int address) { return program_memory[address]->getCyclesUsed(); } //------------------------------------------------------------------- MemoryAccess::MemoryAccess(Processor *new_cpu) { cpu = new_cpu; } MemoryAccess::~MemoryAccess() { } Processor *MemoryAccess::get_cpu(void) { return cpu; } //------------------------------------------------------------------- //------------------------------------------------------------------- // Program memory interface used by the command line class ProgramMemoryCollection : public IIndexedCollection { public: ProgramMemoryCollection(Processor *pProcessor, const char *collection_name, ProgramMemoryAccess *pPma); ~ProgramMemoryCollection(); virtual unsigned int GetSize(); virtual Value &GetAt(unsigned int uAddress, Value *pValue=0); virtual void SetAt(unsigned int uAddress, Value *pValue); virtual void ConsolidateValues(int &iColumnWidth, vector &aList, vector &aValue); virtual unsigned int GetLowerBound(); virtual unsigned int GetUpperBound(); virtual bool bIsIndexInRange(unsigned int uIndex); private: Processor * m_pProcessor; ProgramMemoryAccess *m_pPma; Integer m_ReturnValue; }; ProgramMemoryCollection::ProgramMemoryCollection (Processor *pProcessor, const char *pC_collection_name, ProgramMemoryAccess *pPma) : IIndexedCollection(16), m_ReturnValue(0) { m_pProcessor = pProcessor; Value::new_name(pC_collection_name); m_pPma = pPma; pProcessor->addSymbol(this); } ProgramMemoryCollection::~ProgramMemoryCollection() { if (m_pProcessor) m_pProcessor->removeSymbol(this); } unsigned int ProgramMemoryCollection::GetSize() { return m_pProcessor->program_memory_size(); } Value &ProgramMemoryCollection::GetAt(unsigned int uAddress, Value *) { //m_pProcessor->map_pm_address2index m_ReturnValue.set((int)m_pPma->get_rom(uAddress)); m_ReturnValue.setBitmask( (1<<(m_pProcessor->opcode_size()*8)) - 1); ostringstream sIndex; sIndex << Value::name() << "[" << hex << m_szPrefix << uAddress << "]" << '\000'; m_ReturnValue.new_name(sIndex.str().c_str()); return m_ReturnValue; } void ProgramMemoryCollection::SetAt(unsigned int uAddress, Value *pValue) { Integer *pInt = dynamic_cast(pValue); if(pInt == NULL) { throw new Error("rValue is not an Integer"); } else { m_pPma->put_rom(uAddress, (unsigned int)(int)*pInt); } } void ProgramMemoryCollection::ConsolidateValues(int &iColumnWidth, vector &aList, vector &aValue) { unsigned int uFirstAddress = 0; unsigned int uAddress; //Register * pReg = m_ppRegisters[0]; //Integer uLastValue(pReg->getRV_notrace().data); Integer uLastValue(m_pPma->get_opcode(0)); uLastValue.setBitmask((1<<(m_pProcessor->opcode_size()*8)) - 1); unsigned int uSize = GetSize(); for(uAddress = 0; uAddress < uSize; uAddress++) { ostringstream sIndex; unsigned int ui_opcode = m_pPma->get_opcode(uAddress); if((unsigned int)uLastValue != ui_opcode) { PushValue(uFirstAddress, uAddress, &uLastValue, aList, aValue); iColumnWidth = max(iColumnWidth, (int)aList.back().size()); uFirstAddress = uAddress; uLastValue = ui_opcode; } } uAddress--; // Record the last set of elements if(uFirstAddress <= uAddress) { PushValue(uFirstAddress, uAddress, &uLastValue, aList, aValue); iColumnWidth = max(iColumnWidth, (int)aList.back().size()); } } //void RegisterCollection::SetAt(ExprList_t* pIndexers, Expression *pExpr) { // throw Error("RegisterCollection::SetAt() not implemented"); //} unsigned int ProgramMemoryCollection::GetLowerBound() { return 0; } unsigned int ProgramMemoryCollection::GetUpperBound() { return GetSize() - 1; } bool ProgramMemoryCollection::bIsIndexInRange(unsigned int uAddress) { return m_pPma->get_rom(uAddress) != 0xffffffff; // (uIndex >= GetLowerBound() && uIndex <= GetUpperBound()) || } //------------------------------------------------------------------- //------------------------------------------------------------------- // // ProgramMemoryAccess // // The ProgramMemoryAccess class provides an interface to the processor's // program memory. On Pic processors, this is the memory where instructions // are stored. // ProgramMemoryAccess::ProgramMemoryAccess(Processor *new_cpu) : MemoryAccess(new_cpu) { init(new_cpu); m_pRomCollection = new ProgramMemoryCollection(new_cpu, "romData", this); } ProgramMemoryAccess::~ProgramMemoryAccess() { delete m_pRomCollection; } void ProgramMemoryAccess::init(Processor *new_cpu) { _address = _opcode = _state = 0; hll_mode = ASM_MODE; // add the 'main' pma to the list pma context's. Processors may // choose to add multiple pma's to the context list. The gui // will build a source browser for each one of these. The purpose // is to provide more than one way of debugging the code. (e.g. // this is useful for debugging interrupt versus non-interrupt code). if(cpu) cpu->pma_context.push_back(this); } /* void ProgramMemoryAccess::name(string & new_name) { name_str = new_name; } */ void ProgramMemoryAccess::putToAddress(unsigned int address, instruction *new_instruction) { putToIndex(cpu->map_pm_address2index(address), new_instruction); } void ProgramMemoryAccess::putToIndex(unsigned int uIndex, instruction *new_instruction) { if(!new_instruction) return; cpu->program_memory[uIndex] = new_instruction; new_instruction->update(); } void ProgramMemoryAccess::remove(unsigned int address, instruction *bp_instruction) { if(!bp_instruction) return; instruction *instr = cpu->program_memory[cpu->map_pm_address2index(address)]; if (typeid(Breakpoint_Instruction) == typeid(*instr) || typeid(RegisterAssertion) == typeid(*instr)) { Breakpoint_Instruction* toRemove = (Breakpoint_Instruction*)bp_instruction; Breakpoint_Instruction *last = (Breakpoint_Instruction*)instr; if (toRemove == last) { cpu->program_memory[cpu->map_pm_address2index(address)] = last->getReplaced(); return; } do { if(typeid(Breakpoint_Instruction) != typeid(*last->getReplaced()) && typeid(RegisterAssertion) != typeid(*last->getReplaced())) // not found return; Breakpoint_Instruction *replaced = (Breakpoint_Instruction*)last->getReplaced(); if(toRemove == replaced) { // remove from the chain last->setReplaced(replaced->getReplaced()); return; } last = replaced; } while(typeid(Breakpoint_Instruction) != typeid(*last)); } // if we get here the object was not in the list or was // not a Breakpoint_Instruction // assert(typeid(*instr) != typeid(Breakpoint_Instruction)); } instruction *ProgramMemoryAccess::getFromAddress(unsigned int address) { if(!cpu || !cpu->IsAddressInRange(address)) return &cpu->bad_instruction; unsigned int uIndex = cpu->map_pm_address2index(address); return getFromIndex(uIndex); } instruction *ProgramMemoryAccess::getFromIndex(unsigned int uIndex) { if(uIndex < cpu->program_memory_size()) return cpu->program_memory[uIndex]; else return 0; } // like get, but will ignore instruction break points instruction *ProgramMemoryAccess::get_base_instruction(unsigned int uIndex) { instruction *p; p=getFromIndex(uIndex); if(p==0) return 0; for(;;) { switch(p->isa()) { case instruction::MULTIWORD_INSTRUCTION: case instruction::INVALID_INSTRUCTION: case instruction::NORMAL_INSTRUCTION: return p; case instruction::BREAKPOINT_INSTRUCTION: case instruction::NOTIFY_INSTRUCTION: case instruction::PROFILE_START_INSTRUCTION: case instruction::PROFILE_STOP_INSTRUCTION: case instruction::ASSERTION_INSTRUCTION: p=((Breakpoint_Instruction *)p)->getReplaced(); break; } } return 0; } //---------------------------------------- // get_rom - return the rom contents from program memory // If the address is normal program memory, then the opcode // of the instruction at that address is returned. // If the address is some other special memory (like configuration // memory in a PIC) then that data is returned instead. unsigned int ProgramMemoryAccess::get_rom(unsigned int addr) { return cpu->get_program_memory_at_address(addr); } //---------------------------------------- // put_rom - write new data to the program memory. // If the address is in normal program memory, then a new instruction // will be generated (if possible). If the address is some other // special memory (like configuration memory), then that area will // be updated. // void ProgramMemoryAccess::put_rom(unsigned int addr,unsigned int value) { return cpu->init_program_memory(addr,value); } //---------------------------------------- // get_opcode - return an opcode from program memory. // If the address is out of range return 0. unsigned int ProgramMemoryAccess::get_opcode(unsigned int addr) { instruction * pInstr = getFromAddress(addr); if(pInstr != 0) return pInstr->get_opcode(); else return 0; } //---------------------------------------- // get_opcode_name - return an opcode name from program memory. // If the address is out of range return 0; char *ProgramMemoryAccess::get_opcode_name(unsigned int addr, char *buffer, unsigned int size) { unsigned int uIndex = cpu->map_pm_address2index(addr); if(uIndex < cpu->program_memory_size()) return cpu->program_memory[uIndex]->name(buffer,size); *buffer = 0; return 0; } //---------------------------------------- // Get the current value of the program counter. unsigned int ProgramMemoryAccess::get_PC(void) { if(cpu && cpu->pc) return cpu->pc->get_value(); return 0; } //---------------------------------------- // Get the current value of the program counter. void ProgramMemoryAccess::set_PC(unsigned int new_pc) { if(cpu && cpu->pc) return cpu->pc->put_value(new_pc); } Program_Counter *ProgramMemoryAccess::GetProgramCounter(void) { if(cpu) return cpu->pc; return 0; } void ProgramMemoryAccess::put_opcode_start(unsigned int addr, unsigned int new_opcode) { unsigned int uIndex = cpu->map_pm_address2index(addr); if( (uIndex < cpu->program_memory_size()) && (_state == 0)) { _state = 1; _address = addr; _opcode = new_opcode; get_cycles().set_break_delta(40000, this); bp.set_pm_write(); } } void ProgramMemoryAccess::put_opcode(unsigned int addr, unsigned int new_opcode) { unsigned int uIndex = cpu->map_pm_address2index(addr); if(uIndex >= cpu->program_memory_size()) return; instruction *old_inst = get_base_instruction(uIndex); instruction *new_inst = cpu->disasm(addr,new_opcode); if(new_inst==0) { puts("FIXME, in ProgramMemoryAccess::put_opcode"); return; } if(!old_inst) { putToIndex(uIndex,new_inst); return; } if(old_inst->isa() == instruction::INVALID_INSTRUCTION) { putToIndex(uIndex,new_inst); return; } // Now we need to make sure that the instruction we are replacing is // not a multi-word instruction. The 12 and 14 bit cores don't have // multi-word instructions, but the 16 bit cores do. If we are replacing // the second word of a multiword instruction, then we only need to // 'uninitialize' it. // if there was a breakpoint set at addr, save a pointer to the breakpoint. Breakpoint_Instruction *b=bpi; instruction *prev = get_base_instruction(cpu->map_pm_address2index(addr-1)); if(prev) prev->initialize(false); new_inst->update_line_number(old_inst->get_file_id(), old_inst->get_src_line(), old_inst->get_lst_line(), old_inst->get_hll_src_line(), old_inst->get_hll_file_id()); //new_inst->xref = old_inst->xref; if(b) b->setReplaced(new_inst); else cpu->program_memory[uIndex] = new_inst; cpu->program_memory[uIndex]->setModified(true); //if(cpu->program_memory[addr]->xref) cpu->program_memory[uIndex]->update(); delete(old_inst); } //-------------------------------------------------------------------------- void ProgramMemoryAccess::assign_xref(unsigned int address, gpointer xref) { instruction &q = *getFromAddress(address); if(q.isa()==instruction::INVALID_INSTRUCTION) return; q.add_xref(xref); } //-------------------------------------------------------------------------- void ProgramMemoryAccess::step(unsigned int steps,bool refresh) { if(!cpu) return; switch(get_hll_mode()) { case ASM_MODE: cpu->step(steps,refresh); break; case HLL_MODE: unsigned int initial_pc = cpu->pc->get_value(); int initial_line = cpu->pma->get_src_line(initial_pc); int initial_file = cpu->pma->get_file_id(initial_pc); while(1) { cpu->step(1,false); unsigned int current_pc = cpu->pc->get_value(); int current_line = cpu->pma->get_src_line(current_pc); int current_file = cpu->pma->get_file_id(current_pc); if(current_line<0 || current_file<0) continue; if(current_pc == initial_pc || current_line != initial_line || current_file != initial_file) { if(refresh) get_interface().simulation_has_stopped(); break; } } break; } } //-------------------------------------------------------------------------- void ProgramMemoryAccess::step_over(bool refresh) { if(!cpu) return; switch(get_hll_mode()) { case ASM_MODE: cpu->step_over(refresh); break; case HLL_MODE: pic_processor *pic = dynamic_cast(cpu); if(!pic) { cout << "step-over is not supported for non-PIC processors\n"; return; } unsigned int initial_pc = cpu->pc->get_value(); int initial_line = cpu->pma->get_src_line(initial_pc); int initial_file = cpu->pma->get_file_id(initial_pc); unsigned int initial_stack_depth = pic->stack->pointer&pic->stack->stack_mask; while(1) { cpu->step(1,false); if(initial_stack_depth < (pic->stack->pointer&pic->stack->stack_mask)) cpu->finish(); unsigned int current_pc = cpu->pc->get_value(); int current_line = cpu->pma->get_src_line(current_pc); int current_file = cpu->pma->get_file_id(current_pc); if(current_line<0 || current_file<0) continue; if(current_pc == initial_pc || current_line != initial_line || current_file != initial_file) { if(refresh) get_interface().simulation_has_stopped(); break; } } break; } } //-------------------------------------------------------------------------- void ProgramMemoryAccess::run(bool refresh) { cpu->run(refresh); } //-------------------------------------------------------------------------- void ProgramMemoryAccess::stop(void) { bp.halt(); } //-------------------------------------------------------------------------- void ProgramMemoryAccess::finish(void) { cpu->finish(); } //-------------------------------------------------------------------------- bool ProgramMemoryAccess::hasValid_opcode_at_address(unsigned int address) { if(getFromAddress(address)->isa() != instruction::INVALID_INSTRUCTION) return true; return false; } bool ProgramMemoryAccess::hasValid_opcode_at_index(unsigned int uIndex) { if((getFromIndex(uIndex))->isa() != instruction::INVALID_INSTRUCTION) return true; return false; } //-------------------------------------------------------------------------- bool ProgramMemoryAccess::isModified(unsigned int address) // ***FIXME*** - address or index? { unsigned int uIndex = cpu->map_pm_address2index(address); if((uIndex < cpu->program_memory_size()) && cpu->program_memory[uIndex]->bIsModified()) return true; return false; } //======================================================================== // Register Memory Access RegisterMemoryAccess::RegisterMemoryAccess(Processor *new_cpu) : MemoryAccess(new_cpu) { registers = 0; nRegisters = 0; } RegisterMemoryAccess::~RegisterMemoryAccess() { } //-------------------------------------------------------------------------- Register *RegisterMemoryAccess::get_register(unsigned int address) { if(!cpu || !registers || nRegisters<=address) return 0; Register *reg = registers[address]; // If there are breakpoints set on the register, then drill down // through them until we get to the real register. return reg ? reg->getReg() : 0; } //-------------------------------------------------------------------------- void RegisterMemoryAccess::set_Registers(Register **_registers, int _nRegisters) { nRegisters = _nRegisters; registers = _registers; } //------------------------------------------------------------------------ // insertRegister - Each register address may contain a linked list of registers. // The top most register is the one that is referenced whenever a processor // accesses the register memory. The primary purpose of the linked list is to // support register breakpoints. For example, a write breakpoint is implemented // with a breakpoint class derived from the register class. Setting a write // breakpoint involves creating the write breakpoint object and placing it // at the top of the register linked list. Then, when a processor attempts // to write to this register, the breakpoint object will capture this and // halt the simulation. bool RegisterMemoryAccess::insertRegister(unsigned int address, Register *pReg) { if(!cpu || !registers || nRegisters <= address ||!pReg) return false; Register *ptop = registers[address]; pReg->setReplaced(ptop); registers[address] = pReg; return true; } //------------------------------------------------------------------------ // removeRegister - see comment on insertRegister. This method removes // a register object from the breakpoint linked list. bool RegisterMemoryAccess::removeRegister(unsigned int address, Register *pReg) { if(!cpu || !registers || nRegisters <= address ||!pReg) return false; Register *ptop = registers[address]; if (ptop == pReg && pReg->getReplaced()) registers[address] = pReg->getReplaced(); else while (ptop) { Register *pNext = ptop->getReplaced(); if (pNext == pReg) { ptop->setReplaced(pNext->getReplaced()); return true; } ptop = pNext; } return false; } //------------------------------------------------------------------- bool RegisterMemoryAccess::hasBreak(unsigned int address) { if(!cpu || !registers || nRegisters <= address) return false; return registers[address]->isa() == Register::BP_REGISTER; } static InvalidRegister AnInvalidRegister(0,"AnInvalidRegister"); //------------------------------------------------------------------- Register &RegisterMemoryAccess::operator [] (unsigned int address) { if(!registers || get_size() <= address) return AnInvalidRegister; return *registers[address]; } void RegisterMemoryAccess::reset (RESET_TYPE r) { for(unsigned int i=0; ipush_back(this); } //------------------------------------------------------------ Processor * ProcessorConstructor::ConstructProcessor(const char *opt_name) { // Instantiate a specific processor. If a name is provided, then that // will be used. Otherwise, the third name in the list of aliases for // this processor will be used instead. (Why 3rd?... Before optional // processor names were allowed, the default name matched what is now // the third alias; this maintains a backward compatibility). if (opt_name && strlen(opt_name)) return cpu_constructor(opt_name); return cpu_constructor(names[2]); } ProcessorConstructorList * ProcessorConstructor::processor_list; ProcessorConstructorList * ProcessorConstructor::GetList() { if(processor_list == NULL) { processor_list = new ProcessorConstructorList(); } return processor_list; } //------------------------------------------------------------ // findByType -- search through the list of supported processors for // the one matching 'name'. ProcessorConstructor *ProcessorConstructorList::findByType(const char *name) { ProcessorConstructorList::iterator processor_iterator; ProcessorConstructorList *pl = ProcessorConstructor::GetList(); for (processor_iterator = pl->begin(); processor_iterator != pl->end(); ++processor_iterator) { ProcessorConstructor *p = *processor_iterator; for(int j=0; jnames[j] && strcmp(name,p->names[j]) == 0) return p; } return 0; } //------------------------------------------------------------ // dump() -- Print out a list of all of the processors // string ProcessorConstructorList::DisplayString(void) { ostringstream stream; list :: iterator processor_iterator; const int nPerRow = 4; // Number of names to print per row. int i,j,k,longest; ProcessorConstructorList *pl = ProcessorConstructor::GetList(); ProcessorConstructor *p; // loop through all of the processors and find the // one with the longest name longest = 0; for (processor_iterator = pl->begin(); processor_iterator != pl->end(); processor_iterator++) { p = *processor_iterator; k = strlen(p->names[1]); if(k>longest) longest = k; } // Print the name of each processor. for (processor_iterator = pl->begin(); processor_iterator != pl->end(); ) { for(i=0; iend(); i++) { p = *processor_iterator++; stream << p->names[1]; if(inames[1]); for(j=0; j line_number) return pm_address[line_number]; return -1; } //---------------------------------------- void FileContext::put_address(unsigned int line_number, unsigned int address) { if(line_number <= max_line() && pm_address.size() > line_number && pm_address[line_number]<0) pm_address[line_number] = address; } //------------------------------------------------------------------------ FileContextList::FileContextList() { lastFile=0; list_file_id = -1; // assume that no list file is present. } FileContextList::~FileContextList(void) { FileContextList::iterator it; FileContextList::iterator itEnd = end(); for (it = begin(); it != itEnd; it++) it->close(); } static bool EndsWith(string &sSubject, string &sSubstring) { if(sSubject.size() < sSubstring.size()) { return false; } else { string sSubjectEnding = sSubject.substr(sSubject.size() - sSubstring.size()); return sSubjectEnding == sSubstring; } } int FileContextList::Find(string &fname) { if(lastFile) { for (int i = 0; i < lastFile; i++) { if(EndsWith((*this)[i]->name(), fname)) { return i; } } } return -1; } extern bool bHasAbsolutePath(string &fname); int FileContextList::Add(string &new_name, bool hll) { string sFull = bHasAbsolutePath(new_name) ? new_name : (sSourcePath + new_name); // Check that the file is available. // FIXME stat() would be better, but would need some stat_path() I guess. FILE *f=fopen_path(sFull.c_str(), "r"); if(f==NULL) return -1; fclose(f); push_back(FileContext(sFull)); back().setHLLId(hll); lastFile++; if(CSimulationContext::GetContext()->IsSourceEnabled()) { back().open("r"); if(verbose) cout << "Added new file named: " << new_name << " id = " << lastFile << endl; } return lastFile-1; } int FileContextList::Add(const char *new_name, bool hll) { string sNewName(new_name); return Add (sNewName, hll); } FileContext *FileContextList::operator [] (int file_id) { if(file_id<0 || file_id >= lastFile) return 0; return &this->_Myt::at(file_id); } char *FileContextList::ReadLine(int file_id, int line_number, char *buf, int nBytes) { FileContext *fc = operator[](file_id); if(fc) return fc->ReadLine(line_number, buf, nBytes); return 0; } //---------------------------------------- // char *FileContextList::gets(int file_id, char *buf, int nBytes) { FileContext *fc = operator[](file_id); if(fc) return fc->gets(buf, nBytes); return 0; } //---------------------------------------- void FileContextList::rewind(int file_id) { FileContext *fc = operator[](file_id); if(fc) return fc->rewind(); } extern void EnsureTrailingFolderDelimiter(string &sPath); extern void SplitPathAndFile(string &sSource, string &sFolder, string &sFile); //---------------------------------------- void FileContextList::SetSourcePath(const char *pPath) { string sPath(pPath); string sFolder, sFile; SplitPathAndFile(sPath, sSourcePath, sFile); EnsureTrailingFolderDelimiter(sSourcePath); } //---------------------------------------- // void FileContextList::list_id(int new_list_id) { FileContext *fc = operator[](list_file_id); if (fc) fc->setListId(false); list_file_id = new_list_id; fc = operator[](list_file_id); if (fc) fc->setListId(true); } gpsim-0.27.0/src/Makefile.in0000664000076400007640000011067512210742105012512 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = src DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am \ $(top_srcdir)/depcomp $(gpsiminclude_HEADERS) ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(libdir)" "$(DESTDIR)$(gpsimincludedir)" LTLIBRARIES = $(lib_LTLIBRARIES) libgpsim_la_DEPENDENCIES = am_libgpsim_la_OBJECTS = 12bit-hexdecode.lo 12bit-processors.lo \ 14bit-instructions.lo 14bit-processors.lo 14bit-registers.lo \ 14bit-tmrs.lo 14bit-hexdecode.lo 16bit-instructions.lo \ 16bit-processors.lo 16bit-registers.lo 16bit-hexdecode.lo \ 16bit-tmrs.lo attributes.lo a2dconverter.lo a2d_v2.lo \ bitlog.lo bit.lo bytelog.lo breakpoints.lo clock_phase.lo \ cod.lo comparator.lo cmd_manager.lo eeprom.lo errors.lo \ i2c-ee.lo fopen-path.lo gpsim_object.lo gpsim_time.lo \ hexutils.lo init.lo intcon.lo interface.lo ioports.lo \ lxt_write.lo modules.lo os_dependent.lo p12f182x.lo p12f6xx.lo \ p12x.lo p16f62x.lo p16x8x.lo p16f8x.lo p16f88x.lo p16f87x.lo \ p16x7x.lo p16x5x.lo p16x6x.lo p17c75x.lo p18x.lo packages.lo \ pic-processor.lo pic-registers.lo pic-instructions.lo \ pic-ioports.lo pie.lo pir.lo pm_rd.lo processor.lo \ program_files.lo protocol.lo registers.lo sim_context.lo \ stimuli.lo symbol.lo tmr0.lo trace.lo trigger.lo ttoken.lo \ uart.lo ssp.lo psp.lo xref.lo icd.lo expr.lo operator.lo ui.lo \ value.lo ValueCollections.lo libgpsim_la_OBJECTS = $(am_libgpsim_la_OBJECTS) AM_V_lt = $(am__v_lt_@AM_V@) am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@) am__v_lt_0 = --silent am__v_lt_1 = libgpsim_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CXXLD) $(AM_CXXFLAGS) \ $(CXXFLAGS) $(libgpsim_la_LDFLAGS) $(LDFLAGS) -o $@ AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) \ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ $(AM_CFLAGS) $(CFLAGS) AM_V_CC = $(am__v_CC_@AM_V@) am__v_CC_ = $(am__v_CC_@AM_DEFAULT_V@) am__v_CC_0 = @echo " CC " $@; am__v_CC_1 = CCLD = $(CC) LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ $(AM_LDFLAGS) $(LDFLAGS) -o $@ AM_V_CCLD = $(am__v_CCLD_@AM_V@) am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@) am__v_CCLD_0 = @echo " CCLD " $@; am__v_CCLD_1 = CXXCOMPILE = $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) LTCXXCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) \ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ $(AM_CXXFLAGS) $(CXXFLAGS) AM_V_CXX = $(am__v_CXX_@AM_V@) am__v_CXX_ = $(am__v_CXX_@AM_DEFAULT_V@) am__v_CXX_0 = @echo " CXX " $@; am__v_CXX_1 = CXXLD = $(CXX) CXXLINK = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CXXLD) $(AM_CXXFLAGS) \ $(CXXFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@ AM_V_CXXLD = $(am__v_CXXLD_@AM_V@) am__v_CXXLD_ = $(am__v_CXXLD_@AM_DEFAULT_V@) am__v_CXXLD_0 = @echo " CXXLD " $@; am__v_CXXLD_1 = SOURCES = $(libgpsim_la_SOURCES) DIST_SOURCES = $(libgpsim_la_SOURCES) RECURSIVE_TARGETS = all-recursive check-recursive cscopelist-recursive \ ctags-recursive dvi-recursive html-recursive info-recursive \ install-data-recursive install-dvi-recursive \ install-exec-recursive install-html-recursive \ install-info-recursive install-pdf-recursive \ install-ps-recursive install-recursive installcheck-recursive \ installdirs-recursive pdf-recursive ps-recursive \ tags-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac HEADERS = $(gpsiminclude_HEADERS) RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive am__recursive_targets = \ $(RECURSIVE_TARGETS) \ $(RECURSIVE_CLEAN_TARGETS) \ $(am__extra_recursive_targets) AM_RECURSIVE_TARGETS = $(am__recursive_targets:-recursive=) TAGS CTAGS \ distdir am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) # Read a list of newline-separated strings from the standard input, # and print each of them once, without duplicates. Input order is # *not* preserved. am__uniquify_input = $(AWK) '\ BEGIN { nonempty = 0; } \ { items[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in items) print i; }; } \ ' # Make sure the list of sources is unique. This is necessary because, # e.g., the same source file might be shared among _SOURCES variables # for different programs/libraries. am__define_uniq_tagged_files = \ list='$(am__tagged_files)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | $(am__uniquify_input)` ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ AM_CPPFLAGS = @X_CFLAGS@ lib_LTLIBRARIES = libgpsim.la gpsimincludedir = $(includedir)/gpsim libgpsim_la_SOURCES = \ 12bit-hexdecode.cc \ 12bit-processors.cc \ 14bit-instructions.cc \ 14bit-processors.cc \ 14bit-registers.cc \ 14bit-tmrs.cc \ 14bit-hexdecode.cc \ 16bit-instructions.cc \ 16bit-processors.cc \ 16bit-registers.cc \ 16bit-hexdecode.cc \ 16bit-tmrs.cc \ attributes.cc \ a2dconverter.cc \ a2d_v2.cc \ bitlog.cc \ bit.cc \ bytelog.cc \ breakpoints.cc \ clock_phase.cc \ cod.cc \ comparator.cc \ cmd_manager.cc \ eeprom.cc \ errors.cc \ i2c-ee.cc \ fopen-path.cc \ gpsim_object.cc \ gpsim_time.cc \ hexutils.cc \ init.cc \ intcon.cc \ interface.cc \ ioports.cc \ lxt_write.c \ modules.cc \ os_dependent.cc \ p12f182x.cc \ p12f6xx.cc \ p12x.cc \ p16f62x.cc \ p16x8x.cc \ p16f8x.cc \ p16f88x.cc \ p16f87x.cc \ p16x7x.cc \ p16x5x.cc \ p16x6x.cc \ p17c75x.cc \ p18x.cc \ packages.cc \ pic-processor.cc \ pic-registers.cc \ pic-instructions.cc \ pic-ioports.cc \ pie.cc \ pir.cc \ pm_rd.cc \ processor.cc \ program_files.cc \ protocol.cc \ registers.cc \ sim_context.cc \ stimuli.cc \ symbol.cc \ tmr0.cc \ trace.cc \ trigger.cc \ ttoken.cc \ uart.cc \ ssp.cc \ psp.cc \ xref.cc \ icd.cc \ expr.cc \ operator.cc \ ui.cc \ value.cc \ ValueCollections.cc gpsiminclude_HEADERS = \ 12bit-instructions.h \ 12bit-processors.h \ 14bit-instructions.h \ 14bit-processors.h \ 14bit-registers.h \ 14bit-tmrs.h \ 16bit-instructions.h \ 16bit-processors.h \ 16bit-registers.h \ 16bit-tmrs.h \ a2dconverter.h \ a2d_v2.h \ attributes.h \ bit.h \ bitlog.h \ breakpoints.h \ bytelog.h \ clock_phase.h \ cmd_gpsim.h \ cmd_manager.h \ cod.h \ comparator.h \ eeprom.h \ exports.h \ hexutils.h \ i2c-ee.h \ fopen-path.h \ gpsim_classes.h \ gpsim_def.h \ gpsim_interface.h \ gpsim_object.h \ gpsim_time.h \ intcon.h \ interface.h \ ioports.h \ lxt_write.h \ modules.h \ operator.h \ p12f6xx.h \ p12x.h \ p12f182x.h \ p16x5x.h \ p16f62x.h \ p16x6x.h \ p16x7x.h \ p16x8x.h \ p16f8x.h \ p16f88x.h \ p16f87x.h \ p17c75x.h \ p18x.h \ packages.h \ pic-instructions.h \ pic-packages.h \ pic-processor.h \ pic-registers.h \ pic-ioports.h \ picdis.h \ pie.h \ pir.h \ pm_rd.h \ processor.h \ program_files.h \ protocol.h \ pthread-wrap.h \ registers.h \ rcon.h \ sim_context.h \ stimuli.h \ symbol.h \ tmr0.h \ trace.h \ trigger.h \ trace_orb.h \ ttoken.h \ uart.h \ xref.h \ icd.h \ ssp.h \ psp.h \ errors.h \ expr.h \ ui.h \ value.h \ ValueCollections.h #libgpsim_la_LDFLAGS = $(shell gtk-config --libs) libgpsim_la_LIBADD = @X_LDFLAGS@ libgpsim_la_LDFLAGS = -lpthread SUBDIRS = dspic EXTRA_DIST = makefile.mingw all: all-recursive .SUFFIXES: .SUFFIXES: .c .cc .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu src/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu src/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-libLTLIBRARIES: $(lib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \ } uninstall-libLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \ done clean-libLTLIBRARIES: -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) @list='$(lib_LTLIBRARIES)'; \ locs=`for p in $$list; do echo $$p; done | \ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ sort -u`; \ test -z "$$locs" || { \ echo rm -f $${locs}; \ rm -f $${locs}; \ } libgpsim.la: $(libgpsim_la_OBJECTS) $(libgpsim_la_DEPENDENCIES) $(EXTRA_libgpsim_la_DEPENDENCIES) $(AM_V_CXXLD)$(libgpsim_la_LINK) -rpath $(libdir) $(libgpsim_la_OBJECTS) $(libgpsim_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/12bit-hexdecode.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/12bit-processors.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/14bit-hexdecode.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/14bit-instructions.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/14bit-processors.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/14bit-registers.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/14bit-tmrs.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/16bit-hexdecode.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/16bit-instructions.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/16bit-processors.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/16bit-registers.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/16bit-tmrs.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/ValueCollections.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/a2d_v2.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/a2dconverter.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/attributes.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/bit.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/bitlog.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/breakpoints.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/bytelog.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/clock_phase.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmd_manager.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cod.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/comparator.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/eeprom.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/errors.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/expr.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/fopen-path.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gpsim_object.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gpsim_time.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hexutils.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/i2c-ee.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/icd.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/init.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/intcon.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/interface.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/ioports.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/lxt_write.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/modules.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/operator.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/os_dependent.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/p12f182x.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/p12f6xx.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/p12x.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/p16f62x.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/p16f87x.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/p16f88x.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/p16f8x.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/p16x5x.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/p16x6x.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/p16x7x.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/p16x8x.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/p17c75x.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/p18x.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/packages.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pic-instructions.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pic-ioports.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pic-processor.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pic-registers.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pie.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pir.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pm_rd.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/processor.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/program_files.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/protocol.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/psp.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/registers.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/sim_context.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/ssp.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stimuli.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/symbol.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tmr0.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/trace.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/trigger.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/ttoken.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/uart.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/ui.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/value.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xref.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(AM_V_CC)$(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LTCOMPILE) -c -o $@ $< .cc.o: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(CXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(CXXCOMPILE) -c -o $@ $< .cc.obj: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(CXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(CXXCOMPILE) -c -o $@ `$(CYGPATH_W) '$<'` .cc.lo: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(LTCXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(LTCXXCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-gpsimincludeHEADERS: $(gpsiminclude_HEADERS) @$(NORMAL_INSTALL) @list='$(gpsiminclude_HEADERS)'; test -n "$(gpsimincludedir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(gpsimincludedir)'"; \ $(MKDIR_P) "$(DESTDIR)$(gpsimincludedir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(gpsimincludedir)'"; \ $(INSTALL_HEADER) $$files "$(DESTDIR)$(gpsimincludedir)" || exit $$?; \ done uninstall-gpsimincludeHEADERS: @$(NORMAL_UNINSTALL) @list='$(gpsiminclude_HEADERS)'; test -n "$(gpsimincludedir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(gpsimincludedir)'; $(am__uninstall_files_from_dir) # This directory's subdirectories are mostly independent; you can cd # into them and run 'make' without going through this Makefile. # To change the values of 'make' variables: instead of editing Makefiles, # (1) if the variable is set in 'config.status', edit 'config.status' # (which will cause the Makefiles to be regenerated when you run 'make'); # (2) otherwise, pass the desired values on the 'make' command line. $(am__recursive_targets): @fail=; \ if $(am__make_keepgoing); then \ failcom='fail=yes'; \ else \ failcom='exit 1'; \ fi; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" ID: $(am__tagged_files) $(am__define_uniq_tagged_files); mkid -fID $$unique tags: tags-recursive TAGS: tags tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ $(am__define_uniq_tagged_files); \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: ctags-recursive CTAGS: ctags ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) $(am__define_uniq_tagged_files); \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" cscopelist: cscopelist-recursive cscopelist-am: $(am__tagged_files) list='$(am__tagged_files)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile $(LTLIBRARIES) $(HEADERS) installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(libdir)" "$(DESTDIR)$(gpsimincludedir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-recursive -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-gpsimincludeHEADERS install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-libLTLIBRARIES install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: uninstall-gpsimincludeHEADERS uninstall-libLTLIBRARIES .MAKE: $(am__recursive_targets) install-am install-strip .PHONY: $(am__recursive_targets) CTAGS GTAGS TAGS all all-am check \ check-am clean clean-generic clean-libLTLIBRARIES \ clean-libtool cscopelist-am ctags ctags-am distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am \ install-gpsimincludeHEADERS install-html install-html-am \ install-info install-info-am install-libLTLIBRARIES \ install-man install-pdf install-pdf-am install-ps \ install-ps-am install-strip installcheck installcheck-am \ installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-compile \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags tags-am uninstall uninstall-am \ uninstall-gpsimincludeHEADERS uninstall-libLTLIBRARIES # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/src/p16f62x.h0000664000076400007640000000603712175377101011740 00000000000000/* Copyright (C) 1998-2002 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __P16F62X_H__ #define __P16F62X_H__ #include "p16x6x.h" #include "eeprom.h" #include "comparator.h" /*************************************************************************** * * Include file for: P16F627, P16F628, P16F648 * * * The F62x devices are quite a bit different from the other PICs. The class * heirarchy is similar to the 16F84. * * ***************************************************************************/ class P16F62x : public P16X6X_processor { public: P16F62x(const char *_name=0, const char *desc=0); ~P16F62x(); USART_MODULE usart; ComparatorModule comparator; virtual void set_out_of_range_pm(unsigned int address, unsigned int value); virtual PROCESSOR_TYPE isa(){return _P16F627_;}; virtual void create_symbols(); virtual unsigned int register_memory_size () const { return 0x200;}; virtual unsigned int program_memory_size() { return 0; }; virtual void create_sfr_map(); // The f628 (at least) I/O pins depend on the Fosc Configuration bits. virtual bool set_config_word(unsigned int address, unsigned int cfg_word); virtual void create(int ram_top, unsigned int eeprom_size); virtual void create_iopin_map(); virtual void set_eeprom(EEPROM *ep) { // Use set_eeprom_pir as P16F62x expects to have a PIR capable EEPROM assert(0); } virtual void set_eeprom_pir(EEPROM_PIR *ep) { eeprom = ep; } virtual EEPROM_PIR *get_eeprom() { return ((EEPROM_PIR *)eeprom); } }; class P16F627 : public P16F62x { public: virtual PROCESSOR_TYPE isa(){return _P16F627_;}; virtual unsigned int program_memory_size() const { return 0x400; }; P16F627(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); }; class P16F628 : public P16F627 { public: virtual PROCESSOR_TYPE isa(){return _P16F628_;}; virtual unsigned int program_memory_size() const { return 0x800; }; P16F628(const char *_name=0, const char *desc=0); ~P16F628(); static Processor *construct(const char *name); }; class P16F648 : public P16F628 { public: virtual PROCESSOR_TYPE isa(){return _P16F648_;}; virtual unsigned int program_memory_size() const { return 0x1000; }; virtual void create_sfr_map(); P16F648(const char *_name=0, const char *desc=0); ~P16F648(); static Processor *construct(const char *name); }; #endif gpsim-0.27.0/src/protocol.cc0000644000076400007640000001437711401170177012622 00000000000000/* Copyright (C) 2004 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include #include "../config.h" #include "protocol.h" unsigned int a2i(char b) { if( b>='0' && b<='9') return b-'0'; if( b>='A' && b<='F') return b-'A'+10; if( b>='a' && b<='f') return b-'a'+10; return 0; } char i2a(unsigned int i) { i &= 0x0f; if(i < 10) return '0' + i; return 'A'+ i- 10; } unsigned int ascii2uint(char **buffer, int digits) { unsigned int ret = 0; char *b = *buffer; for(int i=0; i (size - index)) { ulen = size-index; } if(ulen) { memcpy(&buffer[index],s, ulen); index += ulen; } } void PacketBuffer::advanceIndex(unsigned int amount) { if(index + amount < size) index += amount; else index = size-1; } void PacketBuffer::terminate() { if(index < size) buffer[index]=0; } //======================================================================== Packet::Packet(unsigned int rxsize, unsigned int txsize) { rxBuffer = new PacketBuffer(rxsize); txBuffer = new PacketBuffer(txsize); } bool Packet::DecodeHeader() { if(*rxBuffer->buffer == '$') { rxBuffer->index = 1; return true; } rxBuffer->index = 0; return false; } bool Packet::DecodeChar(char c) { if(*rxBuffer->getBuffer() == c) { rxBuffer->index++; return true; } return false; } bool Packet::DecodeUInt32(unsigned int &i) { char *b = rxBuffer->getBuffer(); if(ascii2uint(&b,2) == eGPSIM_TYPE_UINT32) { i = ascii2uint(b,8); rxBuffer->index += 2+8; return true; } return false; } bool Packet::DecodeUInt64(guint64 &i) { char *b = rxBuffer->getBuffer(); if(ascii2uint(&b,2) == eGPSIM_TYPE_UINT64) { i = ascii2uint64(b,16); rxBuffer->index += 2+16; return true; } return false; } bool Packet::DecodeBool(bool &b) { char *buff = rxBuffer->getBuffer(); if(ascii2uint(&buff,2) == eGPSIM_TYPE_BOOLEAN) { if(*buff == '0') b = false; else if(*buff == '1') b = true; else return false; rxBuffer->index += 2+1; return true; } return false; } bool Packet::DecodeFloat(double &d) { char *b = rxBuffer->getBuffer(); if(ascii2uint(&b,2) == eGPSIM_TYPE_FLOAT) { double dtry = strtod(b, &b); unsigned int len = b - rxBuffer->buffer; if( len < rxBuffer->size - rxBuffer->index) { rxBuffer->index += len; d = dtry; return true; } } return false; } bool Packet::DecodeObjectType(unsigned int &i) { i = ascii2uint(rxBuffer->getBuffer(),2); rxBuffer->index += 2; return true; } bool Packet::DecodeString(char *retStr, int maxLen) { char *b = rxBuffer->getBuffer(); if(ascii2uint(&b,2) == eGPSIM_TYPE_STRING) { int length = ascii2uint(&b,2); maxLen--; // reserve space for a terminating 0. length = (maxLen < length) ? maxLen : length; strncpy(retStr, b, length); retStr[length] = 0; //*buffer = b + length; rxBuffer->index += 2+2+length; return true; } return false; } bool Packet::EncodeHeader() { txBuffer->putc('$'); txBuffer->terminate(); return true; } bool Packet::EncodeUInt32(unsigned int i) { txBuffer->putc(i2a(eGPSIM_TYPE_UINT32 /16)); txBuffer->putc(i2a(eGPSIM_TYPE_UINT32 )); for(int j=7; j>=0; j--) txBuffer->putc ( i2a ( i>> (4*j))); return true; } bool Packet::EncodeUInt64(guint64 i) { txBuffer->putc(i2a(eGPSIM_TYPE_UINT64 /16)); txBuffer->putc(i2a(eGPSIM_TYPE_UINT64 )); for(int j=15; j>=0; j--) txBuffer->putc ( i2a ( i>> (4*j))); return true; } bool Packet::EncodeObjectType(unsigned int i) { EncodeHeader(); //txBuffer->putc(i2a(eGPSIM_TYPE_OBJECT /16)); //txBuffer->putc(i2a(eGPSIM_TYPE_OBJECT )); txBuffer->putc ( i2a ( i>> (4*1))); txBuffer->putc ( i2a ( i>> (4*0))); return true; } bool Packet::EncodeBool(bool b) { txBuffer->putc(i2a(eGPSIM_TYPE_BOOLEAN /16)); txBuffer->putc(i2a(eGPSIM_TYPE_BOOLEAN )); if(b) txBuffer->putc('1'); else txBuffer->putc('0'); return true; } bool Packet::EncodeFloat(double d) { txBuffer->putc(i2a(eGPSIM_TYPE_FLOAT /16)); txBuffer->putc(i2a(eGPSIM_TYPE_FLOAT )); char buff[256]; snprintf(buff,sizeof(buff),"%8E~",d); txBuffer->puts(buff,strlen(buff)); return true; } bool Packet::EncodeString(const char *str, int len) { if(!str) return false; txBuffer->putc(i2a(eGPSIM_TYPE_STRING /16)); txBuffer->putc(i2a(eGPSIM_TYPE_STRING )); if(len < 0) len = strlen(str); txBuffer->putc(i2a(len>>4)); txBuffer->putc(i2a(len)); txBuffer->puts(str, len); return true; } bool Packet::EncodeCustom(const char *str, int len) { if(!str) return false; txBuffer->putc(i2a(eGPSIM_TYPE_CUSTOM /16)); txBuffer->putc(i2a(eGPSIM_TYPE_CUSTOM )); txBuffer->putc(i2a(len>>4)); txBuffer->putc(i2a(len)); txBuffer->puts(str, len); return true; } gpsim-0.27.0/src/Makefile.am0000664000076400007640000000540612177043162012505 00000000000000## Process this file with automake to produce Makefile.in AM_CPPFLAGS = @X_CFLAGS@ lib_LTLIBRARIES = libgpsim.la gpsimincludedir = $(includedir)/gpsim libgpsim_la_SOURCES = \ 12bit-hexdecode.cc \ 12bit-processors.cc \ 14bit-instructions.cc \ 14bit-processors.cc \ 14bit-registers.cc \ 14bit-tmrs.cc \ 14bit-hexdecode.cc \ 16bit-instructions.cc \ 16bit-processors.cc \ 16bit-registers.cc \ 16bit-hexdecode.cc \ 16bit-tmrs.cc \ attributes.cc \ a2dconverter.cc \ a2d_v2.cc \ bitlog.cc \ bit.cc \ bytelog.cc \ breakpoints.cc \ clock_phase.cc \ cod.cc \ comparator.cc \ cmd_manager.cc \ eeprom.cc \ errors.cc \ i2c-ee.cc \ fopen-path.cc \ gpsim_object.cc \ gpsim_time.cc \ hexutils.cc \ init.cc \ intcon.cc \ interface.cc \ ioports.cc \ lxt_write.c \ modules.cc \ os_dependent.cc \ p12f182x.cc \ p12f6xx.cc \ p12x.cc \ p16f62x.cc \ p16x8x.cc \ p16f8x.cc \ p16f88x.cc \ p16f87x.cc \ p16x7x.cc \ p16x5x.cc \ p16x6x.cc \ p17c75x.cc \ p18x.cc \ packages.cc \ pic-processor.cc \ pic-registers.cc \ pic-instructions.cc \ pic-ioports.cc \ pie.cc \ pir.cc \ pm_rd.cc \ processor.cc \ program_files.cc \ protocol.cc \ registers.cc \ sim_context.cc \ stimuli.cc \ symbol.cc \ tmr0.cc \ trace.cc \ trigger.cc \ ttoken.cc \ uart.cc \ ssp.cc \ psp.cc \ xref.cc \ icd.cc \ expr.cc \ operator.cc \ ui.cc \ value.cc \ ValueCollections.cc gpsiminclude_HEADERS = \ 12bit-instructions.h \ 12bit-processors.h \ 14bit-instructions.h \ 14bit-processors.h \ 14bit-registers.h \ 14bit-tmrs.h \ 16bit-instructions.h \ 16bit-processors.h \ 16bit-registers.h \ 16bit-tmrs.h \ a2dconverter.h \ a2d_v2.h \ attributes.h \ bit.h \ bitlog.h \ breakpoints.h \ bytelog.h \ clock_phase.h \ cmd_gpsim.h \ cmd_manager.h \ cod.h \ comparator.h \ eeprom.h \ exports.h \ hexutils.h \ i2c-ee.h \ fopen-path.h \ gpsim_classes.h \ gpsim_def.h \ gpsim_interface.h \ gpsim_object.h \ gpsim_time.h \ intcon.h \ interface.h \ ioports.h \ lxt_write.h \ modules.h \ operator.h \ p12f6xx.h \ p12x.h \ p12f182x.h \ p16x5x.h \ p16f62x.h \ p16x6x.h \ p16x7x.h \ p16x8x.h \ p16f8x.h \ p16f88x.h \ p16f87x.h \ p17c75x.h \ p18x.h \ packages.h \ pic-instructions.h \ pic-packages.h \ pic-processor.h \ pic-registers.h \ pic-ioports.h \ picdis.h \ pie.h \ pir.h \ pm_rd.h \ processor.h \ program_files.h \ protocol.h \ pthread-wrap.h \ registers.h \ rcon.h \ sim_context.h \ stimuli.h \ symbol.h \ tmr0.h \ trace.h \ trigger.h \ trace_orb.h \ ttoken.h \ uart.h \ xref.h \ icd.h \ ssp.h \ psp.h \ errors.h \ expr.h \ ui.h \ value.h \ ValueCollections.h #libgpsim_la_LDFLAGS = $(shell gtk-config --libs) libgpsim_la_LIBADD = @X_LDFLAGS@ libgpsim_la_LDFLAGS = -lpthread SUBDIRS = dspic EXTRA_DIST = makefile.mingw gpsim-0.27.0/src/psp.cc0000664000076400007640000001274012175377101011562 00000000000000/* Copyright (C) 2006 Roy R Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include "../config.h" #include "stimuli.h" #include "psp.h" //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("%s:%d-%s() ",__FILE__,__LINE__,__FUNCTION__); printf arg; } #else #define Dprintf(arg) {} #endif //-------------------------------------------------- // //-------------------------------------------------- class CS_SignalSink : public SignalSink { public: CS_SignalSink(PSP *_psp) : m_psp(_psp) { assert(_psp); } virtual void release(){ delete this;} void setSinkState(char new3State) { m_psp->setCS_State(new3State); } private: PSP *m_psp; }; class RD_SignalSink : public SignalSink { public: RD_SignalSink(PSP *_psp) : m_psp(_psp) { assert(_psp); } virtual void release(){ delete this;} void setSinkState(char new3State) { m_psp->setRD_State(new3State); } private: PSP *m_psp; }; class WR_SignalSink : public SignalSink { public: WR_SignalSink(PSP *_psp) : m_psp(_psp) { assert(_psp); } virtual void release(){delete this;} void setSinkState(char new3State) { m_psp->setWR_State(new3State); } private: PSP *m_psp; }; /* * Some devices use high bits of a TRIS register, but others * have a dedicated PSPCON register which is defined here */ PSPCON::PSPCON(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc) { } void PSPCON::put(unsigned int new_value) { unsigned int mask = (PSP::OBF | PSP::IBF | 0x0f); unsigned int fixed; trace.raw(write_trace.get() | value.data); if (! (new_value & PSP::PSPMODE)) fixed = 0; else fixed = value.data & mask; value.data = (new_value & ~mask) | fixed; } void PSPCON::put_value(unsigned int new_value) { trace.raw(write_trace.get() | value.data); value.data = new_value; } // // setup information for PSP module // void PSP::initialize( PIR_SET *_pir_set, PicPSP_PortRegister *_port_set, PicTrisRegister *_port_tris, sfr_register *_pspcon, PinModule *pin_RD, PinModule *pin_WR, PinModule *pin_CS) { if (verbose & 2) cout << "PSP::initialize called\n"; pir_set = _pir_set; parallel_port = _port_set; parallel_port->setPSP(this); parallel_tris = _port_tris; cntl_tris = _pspcon; // // The rest of this function allows catching of changes to PSP contol signals // if (!m_rd_sink) { m_rd_sink = new RD_SignalSink(this); Not_RD = pin_RD; if (Not_RD) Not_RD->addSink(m_rd_sink); } if (!m_cs_sink) { m_cs_sink = new CS_SignalSink(this); Not_CS = pin_CS; if (Not_CS) Not_CS->addSink(m_cs_sink); } if (!m_wr_sink) { m_wr_sink = new WR_SignalSink(this); Not_WR = pin_WR; if (Not_WR) Not_WR->addSink(m_wr_sink); } } // // process changes on the control pins // void PSP::state_control() { if (! pspmode()) return; if (verbose & 2) cout << "PSP state change cs=" << cs << " wr=" << wr << " rd=" << rd <put(0xff); state = ST_INACTIVE; return; } else if (cs && rd) { parallel_tris->put(0); parallel_port->put_value(put_value); cntl_tris->put_value(cntl_tris->get() & ~OBF); state = ST_READ; } else if (cs && wr) { parallel_tris->put(0xff); get_value = parallel_port->get_value(); state = ST_WRITE; } else { if (state != ST_INACTIVE) { pir_set->set_pspif(); } // // On first bus write set IBF flag. // if a second bus write occurs prior to read of pic port (portd) // IBOV flag is also set. // if (state == ST_WRITE) { unsigned int trise_val = cntl_tris->get(); if (trise_val & IBF) cntl_tris->put_value(trise_val | IBOV); else cntl_tris->put_value(trise_val | IBF); } parallel_tris->put(0xff); state = ST_INACTIVE; } return; } // // The next three functions are called when their control pin change state // The control pins are active low which is converted to active high signals void PSP::setRD_State(char new3State) { rd = new3State == '0'; state_control(); } void PSP::setCS_State(char new3State) { cs = new3State == '0'; state_control(); } void PSP::setWR_State(char new3State) { wr = new3State == '0'; state_control(); } // // psp_put is called on write to portd when pspmode is active // set OBF register bit and save value for next bus read // void PSP::psp_put(unsigned int new_value) { cntl_tris->put_value(cntl_tris->get() | OBF); put_value = new_value; } // // psp_get is called on read of portd when pspmode is active so // we can clear the IBF flag // unsigned int PSP::psp_get(void) { cntl_tris->put_value(cntl_tris->get() & ~IBF); return(get_value); } gpsim-0.27.0/src/os_dependent.cc0000664000076400007640000002421312175377101013425 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ /* os_dependent.cc - */ /* version 0.1 */ #include #include #include #include #include #include #include #include "../config.h" #include "exports.h" #include "modules.h" #ifdef _WIN32 #define G_PLATFORM_WIN32 #define G_OS_WIN32 #include #include #include #include #define STRICMP stricmp #else #include #include #define STRICMP strcasecmp #endif // _WIN32 using namespace std; #ifdef _WIN32 #define MODULE_EXT ".dll" #define FOLDERDELIMITER '\\' #define FOLDERDELIMITERALTERNATIVE '/' #define PATHDELIMITER ";" #else #ifdef __APPLE__ #define MODULE_EXT ".dylib" #else #define MODULE_EXT ".so" #endif #define MODULE_VER ".0" #define FOLDERDELIMITER '/' #define FOLDERDELIMITERALTERNATIVE '\\' #define PATHDELIMITER ":" #endif #ifdef _WIN32 #define OS_E_FILENOTFOUND 0x0000007E #define OS_E_MEMORYACCESS 0x000003E6 #else // JRH - just made a guess #define OS_E_FILENOTFOUND ENOENT #define OS_E_MEMORYACCESS EADDRNOTAVAIL #include #endif //------------------------------------------------------------------------ // Convert forward slashes and backslashes into the os-dependent // slash void translatePath(string &sPath) { string::size_type nPos; while ( (nPos = sPath.find(FOLDERDELIMITERALTERNATIVE)) != string::npos) sPath[nPos] = FOLDERDELIMITER; } //------------------------------------------------------------------------ // EnsureTrailingFolderDelimiter -- append a directory delimeter (slash) // to the string if one is not present already. void EnsureTrailingFolderDelimiter(string &sPath) { string::reference rLast = sPath.at(sPath.size() - 1); if(rLast == FOLDERDELIMITERALTERNATIVE) rLast = FOLDERDELIMITER; else if(rLast != FOLDERDELIMITER) sPath.push_back(FOLDERDELIMITER); } //------------------------------------------------------------------------ bool LIBGPSIM_EXPORT IsFileExtension(const char *pszFile, const char *pFileExt) { string s(pszFile); string::size_type i = s.rfind('.') ; return (i != string::npos) && (s.substr(i+1)==pFileExt); } //------------------------------------------------------------------------ /// SplitPathAndFile() /// Note this function does not verify whether the trailing /// is actually a file component. void SplitPathAndFile(string &sSource, string &sFolder, string &sFile) { translatePath(sSource); string::size_type LastDelimiter = sSource.find_last_of(FOLDERDELIMITER); if (LastDelimiter == string::npos) { // sFolder.erase(); // JRH - I'm not sure this is a good assumption. // It will do for the one place it is currently being used. static char sCurrentFolder[] = { '.', FOLDERDELIMITER }; sFolder.append(sCurrentFolder); sFile = sSource; } else { string sNewFolder; sFolder = sSource.substr(0, LastDelimiter + 1); sFile = sSource.substr(LastDelimiter + 1); } } const char * CFileSearchPath::Find(string &path) { const_iterator it = find(begin(), end(), path); if (it != end()) { return (*it).c_str(); } return NULL; } static CFileSearchPath asDllSearchPath; #if defined(_DEBUG) static bool bAltPaths = false; #endif //void AddModulePathFromFilePath(string &sFolder) { void AddModulePathFromFilePath(char *arg) { string sFile; string sFolder = arg; asDllSearchPath.AddPathFromFilePath(sFolder, sFile); char * pszGpsimModulePath; if((pszGpsimModulePath = getenv("GPSIM_MODULE_PATH")) != NULL) { char * pLast = pszGpsimModulePath; char * pChar = strchr(pszGpsimModulePath, PATHDELIMITER[0]); string sFolder; while(true) { if(pChar != NULL) { *pChar = '\0'; } if(*pLast != '\0') { // only add non empty folders sFolder = pLast; translatePath(sFolder); if(sFolder[sFolder.size() - 1] != FOLDERDELIMITER) { sFolder.push_back(FOLDERDELIMITER); } asDllSearchPath.push_back(sFolder); } if(pChar == NULL) { break; } pChar++; pLast = pChar; pChar = strchr(pChar, PATHDELIMITER[0]); } } #if defined(_DEBUG) if(!bAltPaths) { bAltPaths = true; string sPath; int iPos = sFolder.find_last_of(FOLDERDELIMITER); if(iPos != string::npos) { char szLine[1024]; sPath = sFolder.substr(0, iPos + 1); sPath.append("altpaths.txt"); FILE *pFile = fopen(sPath.c_str(), "r"); if(pFile) { while(fgets(szLine, 1024, pFile) != NULL) { char *pChar = &szLine[strlen(szLine) - 1]; while((*pChar == '\n' || *pChar == '\n') && pChar != szLine) *pChar-- = 0; if(*pChar != FOLDERDELIMITER) { pChar++; *pChar = FOLDERDELIMITER; pChar++; *pChar = 0; } asDllSearchPath.push_back(string(szLine)); } fclose(pFile); } } } #endif } void CFileSearchPath::AddPathFromFilePath(string &sFolder, string &sFile) { string::size_type LastDelimiter = sFolder.find_last_of(FOLDERDELIMITER); if (LastDelimiter == string::npos) { sFile = sFolder; } else { string sNewFolder; sNewFolder = sFolder.substr(0, LastDelimiter + 1); sFile = sFolder.substr(LastDelimiter + 1); iterator it = find(asDllSearchPath.begin(), asDllSearchPath.end(), sNewFolder); if (it == asDllSearchPath.end()) { asDllSearchPath.insert(asDllSearchPath.begin(), sNewFolder); } } } //------------------------------------------------------------------------ bool bHasAbsolutePath(string &fname) { return fname[0] == FOLDERDELIMITER; } //--------------------------- //OS agnostic library loader static void * sLoad(const char *library_name) { if(!library_name) return 0; void *handle; #ifdef _WIN32 handle = (void *)LoadLibrary((LPCSTR)library_name); #else // According to the man page for dlopen, the RTLD_GLOBAL flag can // be or'd with the second pararmeter of the function call. However, // under Linux at least, this apparently cause *all* symbols to // disappear. handle = dlopen (library_name, RTLD_NOW); // | RTLD_GLOBAL); #endif return handle; } void FixupLibraryName(string &sPath) { translatePath(sPath); } void GetFileName(string &sPath, string &sName) { string::size_type pos = sPath.find_last_of(FOLDERDELIMITER); if(pos != string::npos) { sName = sPath.substr(pos + 1); } else if(&sName != &sPath) { sName = sPath; } } void GetFileNameBase(string &sPath, string &sName) { GetFileName(sPath, sName); string::size_type pos = sName.find_last_of('.'); if(pos != string::npos) { sName = sName.substr(0, sName.size() - pos + 1); } else { sName = sPath; } } const char * get_error_message() { #ifdef _WIN32 return g_win32_error_message(GetLastError()); #else return dlerror(); #endif } void free_error_message(const char * pszError) { #ifdef _WIN32 g_free((char *) pszError); #endif } unsigned long get_error(const char *err_str) { #ifdef _WIN32 return GetLastError(); #else /* ** In Linux and likely all Unix like OSs, dlopen leaves errno as 0 ** even after failure, If so, look in error string returned by dlerror ** to try to determine if file was not found. RRR */ unsigned long ret = errno; // in Linux errno is 0 if (! ret && err_str && strstr(err_str, "No such file")) ret = OS_E_FILENOTFOUND; return ret; #endif } void * load_library(const char *library_name, const char **pszError) { void *handle; string sFile; string sPath(library_name); FixupLibraryName(sPath); asDllSearchPath.AddPathFromFilePath(sPath, sFile); // loop twice: first time take the file name as is, // the second time append the os-dependent library extension. for (int i=0; i<2; i++) { // First, see if we can load the library from where ever the // system thinks libraries are located. if( (handle = sLoad(sPath.c_str())) != 0) return handle; *pszError = get_error_message(); unsigned long uError = get_error(*pszError); if (uError == OS_E_FILENOTFOUND) { // Failed to find the library in the system paths, so try to load // from one of our paths. free_error_message(*pszError); CFileSearchPath::iterator itSearchPath; for (itSearchPath = asDllSearchPath.begin(); itSearchPath != asDllSearchPath.end(); itSearchPath++) { sPath = *itSearchPath + sFile; handle = sLoad(sPath.c_str()); if (NULL != handle) { return handle; } *pszError = get_error_message(); } } // Append the module extension and try again. string::size_type nPos = sFile.find(MODULE_EXT,0); if( nPos == string::npos) { sFile.append(MODULE_EXT); } #ifndef _WIN32 else if( sFile.find(MODULE_VER, nPos) == string::npos) { i--; sFile.append(MODULE_VER); } #endif sPath = sFile; } // Should there be a free? if (*pszError) printf("Failed loading %s: %s\n", sPath.c_str(), *pszError); return NULL; } void free_library(void *handle) { #ifdef _WIN32 FreeLibrary((HMODULE)handle); #else dlclose (handle); #endif } void * get_library_export(const char *name, void *library_handle, const char ** pszError) { void * pExport; #ifdef _WIN32 pExport = (void*)GetProcAddress((HMODULE)library_handle, name); #else dlerror(); // Clear possible previous errors pExport = dlsym(library_handle, name); #endif if (NULL == pExport && pszError != NULL) { *pszError = get_error_message(); } return pExport; } gpsim-0.27.0/src/14bit-instructions.cc0000664000076400007640000001765112163476456014465 00000000000000/* Copyright (C) 1998 T. Scott Dattalo Copyright (C) 2013 Roy R. Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include #include "../config.h" #include "14bit-processors.h" #include "14bit-instructions.h" //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("0x%06X %s() ",cycles.get(),__FUNCTION__); printf arg; } #else #define Dprintf(arg) {} #endif //--------------------------------------------------------- ADDFSR::ADDFSR(Processor *new_cpu, unsigned int new_opcode, const char *pName, unsigned int address) : instruction(new_cpu, new_opcode,address) { m_fsr = (opcode>>6)&1; m_lit = opcode & 0x3f; switch(m_fsr) { case 0: ia = &cpu14e->ind0; break; case 1: ia = &cpu14e->ind1; break; } new_name(pName); } char *ADDFSR::name(char *return_str,int len) { snprintf(return_str,len,"%s\t%d,0x%x", gpsimObject::name().c_str(), m_fsr, m_lit); return(return_str); } void ADDFSR::execute() { ia->put_fsr(ia->get_fsr_value() + m_lit); //ADDFSR cpu_pic->pc->increment(); } //-------------------------------------------------- ADDLW::ADDLW (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Literal_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("addlw"); } void ADDLW::execute(void) { unsigned int old_value,new_value; new_value = (old_value = cpu14->Wget()) + L; cpu14->Wput(new_value & 0xff); cpu14->status->put_Z_C_DC(new_value, old_value, L); cpu14->pc->increment(); } //--------------------------------------------------------- MOVIW::MOVIW(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu, new_opcode,address) { if (opcode & 0x3f00) // Index indirect { m_fsr = (opcode>>6)&1; m_lit = opcode & 0x3f; if (m_lit & 0x20) m_lit -= 0x40; m_op = DELTA; Dprintf((" shift op %x fsr %d data %d raw %d\n", opcode>>6, m_fsr, m_lit, opcode &0x3f)); } else { m_fsr = (opcode>>2)&1; m_op = opcode & 0x3; } switch(m_fsr) { case 0: ia = &cpu14e->ind0; break; case 1: ia = &cpu14e->ind1; break; } new_name("moviw"); } char *MOVIW::name(char *return_str,int len) { switch(m_op) { case PREINC: snprintf(return_str,len,"%s\t++FSR%d", gpsimObject::name().c_str(), m_fsr); break; case PREDEC: snprintf(return_str,len,"%s\t--FSR%d", gpsimObject::name().c_str(), m_fsr); break; case POSTINC: snprintf(return_str,len,"%s\tFSR%d++", gpsimObject::name().c_str(), m_fsr); break; case POSTDEC: snprintf(return_str,len,"%s\tFSR%d--", gpsimObject::name().c_str(), m_fsr); break; case DELTA: snprintf(return_str,len,"%s\t%d[FSR%d]", gpsimObject::name().c_str(), m_lit, m_fsr); break; } return(return_str); } void MOVIW::execute() { if (m_op == PREINC) { ia->put_fsr(ia->fsr_value + 1); cpu14->Wput(ia->indf.get()); } else if (m_op == PREDEC) { ia->put_fsr(ia->fsr_value - 1); cpu14->Wput(ia->indf.get()); } else if (m_op == POSTINC) { cpu14->Wput(ia->indf.get()); ia->put_fsr(ia->fsr_value + 1); } else if (m_op == POSTDEC) { cpu14->Wput(ia->indf.get()); ia->put_fsr(ia->fsr_value - 1); } else if (m_op == DELTA) { ia->fsr_delta = m_lit; cpu14->Wput(ia->indf.get()); } cpu_pic->pc->increment(); } //--------------------------------------------------------- MOVWI::MOVWI(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu, new_opcode,address) { if (opcode & 0x3f00) // Index indirect { m_fsr = (opcode>>6)&1; m_lit = opcode & 0x3f; if (m_lit & 0x20) m_lit -= 0x40; m_op = DELTA; Dprintf((" shift op %x fsr %d data %d\n", opcode>>6, m_fsr, m_lit)); } else { m_fsr = (opcode>>2)&1; m_op = opcode & 0x3; } switch(m_fsr) { case 0: ia = &cpu14e->ind0; break; case 1: ia = &cpu14e->ind1; break; } new_name("movwi"); } char *MOVWI::name(char *return_str,int len) { switch(m_op) { case PREINC: snprintf(return_str,len,"%s\t++FSR%d", gpsimObject::name().c_str(), m_fsr); break; case PREDEC: snprintf(return_str,len,"%s\t--FSR%d", gpsimObject::name().c_str(), m_fsr); break; case POSTINC: snprintf(return_str,len,"%s\tFSR%d++", gpsimObject::name().c_str(), m_fsr); break; case POSTDEC: snprintf(return_str,len,"%s\tFSR%d--", gpsimObject::name().c_str(), m_fsr); break; case DELTA: snprintf(return_str,len,"%s\t%d[FSR%d]", gpsimObject::name().c_str(), m_lit, m_fsr); break; } return(return_str); } void MOVWI::execute() { if (m_op == PREINC) { ia->put_fsr(ia->fsr_value + 1); ia->indf.put(cpu14->Wget()); } else if (m_op == PREDEC) { ia->put_fsr(ia->fsr_value - 1); ia->indf.put(cpu14->Wget()); } else if (m_op == POSTINC) { ia->indf.put(cpu14->Wget()); ia->put_fsr(ia->fsr_value + 1); } else if (m_op == POSTDEC) { ia->indf.put(cpu14->Wget()); ia->put_fsr(ia->fsr_value - 1); } else if (m_op == DELTA) { Dprintf((" DELTA fsr %d delta %d\n", m_fsr, m_lit)); ia->fsr_delta = m_lit; ia->indf.put(cpu14->Wget()); } cpu_pic->pc->increment(); } //-------------------------------------------------- MOVLB::MOVLB (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Literal_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("movlb"); } void MOVLB::execute() { cpu_pic->registers[cpu14e->bsr.address]->put(L); cpu_pic->pc->increment(); } char *MOVLB::name(char *return_str,int len) { snprintf(return_str,len,"%s\t0x%02x", gpsimObject::name().c_str(),L&0x1f); return(return_str); } //-------------------------------------------------- RETFIE::RETFIE (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu,new_opcode,address) { decode(new_cpu, new_opcode); new_name("retfie"); } void RETFIE::execute(void) { cpu14->pc->new_address(cpu14->stack->pop()); cpu14->intcon->set_gie(); if(cpu_pic->base_isa() == _14BIT_E_PROCESSOR_) { cpu14e->status->put(cpu14e->status_shad.get()); cpu14e->Wput(cpu14e->wreg_shad.get()); cpu14e->bsr.put(cpu14e->bsr_shad.get()); cpu14e->pclath->put(cpu14e->pclath_shad.get()); cpu14e->ind0.fsrl.put(cpu14e->fsr0l_shad.get()); cpu14e->ind0.fsrh.put(cpu14e->fsr0h_shad.get()); cpu14e->ind1.fsrl.put(cpu14e->fsr1l_shad.get()); cpu14e->ind1.fsrh.put(cpu14e->fsr1h_shad.get()); } } //-------------------------------------------------- RETURN::RETURN (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu,new_opcode,address) { decode(new_cpu, new_opcode); new_name("return"); } void RETURN::execute(void) { cpu14->pc->new_address(cpu14->stack->pop()); } //-------------------------------------------------- SUBLW::SUBLW (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Literal_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("sublw"); } void SUBLW::execute(void) { unsigned int old_value,new_value; new_value = L - (old_value = cpu14->Wget()); cpu14->Wput(new_value & 0xff); cpu14->status->put_Z_C_DC_for_sub(new_value, old_value, L); cpu14->pc->increment(); } gpsim-0.27.0/src/init.cc0000644000076400007640000000262311401170177011713 00000000000000/* Copyright (C) 1998,1999 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include "../config.h" #include "trace.h" #include "gpsim_interface.h" #include "sim_context.h" // in attribute.cc: extern void init_attributes(); extern void destroy_attributes(); //============================================================== // simulation_cleanup() // // Called just before gpsim exits. // void simulation_cleanup(void) { // Flush the log file (if there is one). GetTraceLog().close_logfile(); destroy_attributes(); } //======================================================================== // initialize_gpsim_core() // int initialize_gpsim_core() { init_attributes(); CSimulationContext::GetContext()->Initialize(); return 0; } gpsim-0.27.0/src/pic-instructions.cc0000664000076400007640000011732612175373613014307 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include #include #include "../config.h" #include "pic-processor.h" #include "14bit-instructions.h" #include "registers.h" #include "symbol.h" #include "xref.h" //------------------------------------------------------------------------ AddressSymbol::AddressSymbol(Processor *pCpu, const char *_name, unsigned int _val) : Integer(_val) { new_name(_name); cpu = pCpu; } string AddressSymbol::toString() { char buf[256]; int i = (int)getVal(); snprintf(buf,sizeof(buf), " at address %d = 0x%X",i,i); return string(buf); } Value* AddressSymbol::evaluate() { return copy(); } int AddressSymbol::set_break(ObjectBreakTypes bt, ObjectActionTypes at, Expression *pExpr) { if (bt == gpsimObject::eBreakExecute && cpu) return get_bp().set_execution_break((Processor*)cpu,getVal(),pExpr); return -1; } LineNumberSymbol::LineNumberSymbol(Processor *pCpu, const char *_name, unsigned int _val) : AddressSymbol(pCpu,_name,_val) { if(!_name) { char buf[64]; snprintf(buf,sizeof(buf), "line_%04x",_val); new_name(buf); } } instruction::instruction(Processor *pProcessor, unsigned int uOpCode, unsigned int uAddrOfInstr) : Value("","",pProcessor), m_bIsModified(false), cycle_count(0), opcode(uOpCode), m_uAddrOfInstr(uAddrOfInstr), pLineSymbol(0), file_id(-1), hll_file_id(-1), src_line(-1), lst_line(-1), hll_src_line(-1) { if (cpu) { pLineSymbol = new LineNumberSymbol((Processor*)cpu,0, m_uAddrOfInstr); if (!cpu->addSymbol(pLineSymbol)) { delete pLineSymbol; pLineSymbol = 0; } } } instruction::~instruction() { // cout << __FUNCTION__<deleteSymbol(pLineSymbol); } void instruction::decode(Processor *new_cpu, unsigned int new_opcode) { cpu = new_cpu; opcode = new_opcode; } int instruction::set_break(ObjectBreakTypes bt, ObjectActionTypes at, Expression *pExpr) { if (bt == gpsimObject::eBreakExecute) return get_bp().set_execution_break(get_cpu(),m_uAddrOfInstr,pExpr); return -1; } void instruction::addLabel(string &rLabel) { if (cpu) { addName(rLabel); cpu->addSymbol(this, &rLabel); } } //------------------------------------------------------------------------ invalid_instruction::invalid_instruction(Processor *new_cpu,unsigned int new_opcode, unsigned int address) : instruction(new_cpu,new_opcode,address) { new_name("INVALID"); } void invalid_instruction::execute() { //cout << "*** INVALID INSTRUCTION ***\n"; #ifdef __DEBUG_VERBOSE__ debug(); #endif /* Don't know what to do, so just plow through like nothing happened */ if(cpu_pic) cpu_pic->pc->increment(); }; void invalid_instruction::addLabel(string &rLabel) { cout << "*** WARNING: adding label '"<files.ReadLine(file_id,src_line,buf,nBytes); return buf; } char *instruction::ReadHLLLine(char *buf, int nBytes) { if (buf && nBytes && cpu) return ((Processor *)cpu)->files.ReadLine(hll_file_id,hll_src_line,buf,nBytes); return buf; } char *instruction::ReadLstLine(char *buf, int nBytes) { if (buf && nBytes && cpu) return ((Processor *)cpu)->files.ReadLine(((Processor *)cpu)->files.list_id(),lst_line,buf,nBytes); return buf; } //------------------------------------------------------------------------ AliasedInstruction::AliasedInstruction(instruction *_replaced) : instruction(0,0,0), m_replaced(_replaced) { } AliasedInstruction::AliasedInstruction() : instruction(0,0,0), m_replaced(0) { } AliasedInstruction::AliasedInstruction(Processor *pProcessor, unsigned int uOpCode, unsigned int uAddrOfInstr) : instruction(pProcessor, uOpCode, uAddrOfInstr), m_replaced(0) { } AliasedInstruction::~AliasedInstruction() { } void AliasedInstruction::setReplaced(instruction *_replaced) { m_replaced = _replaced; } instruction * AliasedInstruction::getReplaced() { return m_replaced ? m_replaced : &dynamic_cast(cpu)->bad_instruction; } void AliasedInstruction::execute() { getReplaced()->execute(); } void AliasedInstruction::debug() { getReplaced()->debug(); } int AliasedInstruction::instruction_size() { return getReplaced()->instruction_size(); } unsigned int AliasedInstruction::get_opcode() { return getReplaced()->get_opcode(); } unsigned int AliasedInstruction::get_value() { return getReplaced()->get_value(); } void AliasedInstruction::put_value(unsigned int new_value) { getReplaced()->put_value(new_value); } int AliasedInstruction::get_src_line() { return getReplaced()->get_src_line(); } int AliasedInstruction::get_hll_src_line() { return getReplaced()->get_hll_src_line(); } void AliasedInstruction::update_line_number(int file, int sline, int lline, int hllfile, int hllsline) { if (m_replaced) m_replaced->update_line_number(file, sline, lline, hllfile, hllsline); } int AliasedInstruction::get_lst_line() { return getReplaced()->get_lst_line(); } int AliasedInstruction::get_file_id() { return getReplaced()->get_file_id(); } int AliasedInstruction::get_hll_file_id() { return getReplaced()->get_hll_file_id(); } enum instruction::INSTRUCTION_TYPES AliasedInstruction::isa() { return getReplaced()->isa(); } void AliasedInstruction::initialize(bool init_state) { getReplaced()->initialize(init_state); } char *AliasedInstruction::name(char *cPtr,int len) { return getReplaced()->name(cPtr,len); } void AliasedInstruction::update() { getReplaced()->update(); } void AliasedInstruction::add_xref(void *an_xref) { getReplaced()->add_xref(an_xref); } void AliasedInstruction::remove_xref(void *an_xref) { getReplaced()->remove_xref(an_xref); } bool AliasedInstruction::isBase() { return getReplaced()->isBase(); } //------------------------------------------------------------------------ Literal_op::Literal_op(Processor *pProcessor, unsigned int uOpCode, unsigned int uAddrOfInstr) : instruction(pProcessor, uOpCode, uAddrOfInstr), L(uOpCode&0xff) { } char *Literal_op::name(char *return_str,int len) { snprintf(return_str,len,"%s\t0x%02x", gpsimObject::name().c_str(),L); return(return_str); } void Literal_op::decode(Processor *new_cpu, unsigned int new_opcode) { opcode = new_opcode; cpu = new_cpu; L = opcode & 0xff; } Bit_op::Bit_op(Processor *pProcessor, unsigned int uOpCode, unsigned int uAddrOfInstr) : instruction(pProcessor, uOpCode, uAddrOfInstr), mask(0),register_address(0), access(false), reg(0) { } void Bit_op::decode(Processor *new_cpu, unsigned int new_opcode) { opcode = new_opcode; cpu = new_cpu; switch(cpu_pic->base_isa()) { case _PIC17_PROCESSOR_: mask = 1 << ((opcode >> 8) & 7); register_address = opcode & REG_MASK_16BIT; access = 0; break; case _PIC18_PROCESSOR_: mask = 1 << ((opcode >> 9) & 7); register_address = opcode & REG_MASK_16BIT; access = (opcode & ACCESS_MASK_16BIT) ? true : false; if((!access) && (register_address >= cpu_pic->access_gprs())) // some 18f devices split at 0x60 register_address |= 0xf00; break; case _14BIT_PROCESSOR_: case _14BIT_E_PROCESSOR_: mask = 1 << ((opcode >> 7) & 7); register_address = opcode & REG_MASK_14BIT; access = 1; break; case _12BIT_PROCESSOR_: mask = 1 << ((opcode >> 5) & 7); register_address = opcode & REG_MASK_12BIT; access = 1; break; default: cout << "ERROR: (Bit_op) the processor has a bad base type\n"; } } char * Bit_op::name(char *return_str,int len) { // %%% FIX ME %%% Actually just a slight dilemma - the source register will always be in // the lower bank of memory... reg = get_cpu()->registers[register_address]; unsigned int bit; switch(cpu_pic->base_isa()) { case _PIC17_PROCESSOR_: cout << "Bit_op::name %%% FIX ME %%% treating 17x as 18x\n"; case _PIC18_PROCESSOR_: bit = ((opcode >> 9) & 7); snprintf(return_str,len,"%s\t%s,%d,%c", gpsimObject::name().c_str(), reg->name().c_str(), bit, access ? '1' : '0'); return(return_str); break; case _14BIT_E_PROCESSOR_: case _14BIT_PROCESSOR_: if(access) reg = get_cpu()->register_bank[register_address]; bit = ((opcode >> 7) & 7); break; case _12BIT_PROCESSOR_: bit = ((opcode >> 5) & 7); break; default: bit = 0; } snprintf(return_str,len,"%s\t%s,%d", gpsimObject::name().c_str(), reg->name().c_str(), bit); return(return_str); } //---------------------------------------------------------------- Register_op::Register_op(Processor *pProcessor, unsigned int uOpCode, unsigned int uAddrOfInstr) : instruction(pProcessor, uOpCode, uAddrOfInstr), register_address(0), destination(false), access(false) { } //---------------------------------------------------------------- // // Register_op::name // char * Register_op::name(char *return_str,int len) { // %%% FIX ME %%% Actually just a slight dilemma - the source register will always be in // the lower bank of memory (for the 12 and 14 bit cores). source = get_cpu()->registers[register_address]; if ( cpu_pic->base_isa() == _14BIT_E_PROCESSOR_ || cpu_pic->base_isa() == _14BIT_PROCESSOR_ ) { if (access) source = cpu_pic->register_bank[register_address]; snprintf(return_str,len,"%s\t%s,%c", gpsimObject::name().c_str(), source->name().c_str(), destination ? 'f' : 'w'); } else if ( cpu_pic->base_isa() != _PIC18_PROCESSOR_ ) { snprintf(return_str,len,"%s\t%s,%c", gpsimObject::name().c_str(), source->name().c_str(), destination ? 'f' : 'w'); } else snprintf(return_str,len,"%s\t%s,%c,%c", gpsimObject::name().c_str(), source->name().c_str(), destination ? 'f' : 'w', access ? '1' : '0'); return(return_str); } //---------------------------------------------------------------- // // Register_op::decode // // Base class to decode all 'register' type instructions. The main thing // it does is obtains the register's address from the opcode. Note that this // is processor dependent: in the 12-bit core processors, the register address // is the lower 5 bits while in the 14-bit core it's the lower 7. void Register_op::decode(Processor *new_cpu, unsigned int new_opcode) { opcode = new_opcode; cpu = new_cpu; switch(cpu_pic->base_isa()) { case _PIC17_PROCESSOR_: cout << "Register_op::decode %%% FIXME %%% - PIC17 core is not the same as PIC18\n"; case _PIC18_PROCESSOR_: destination = (opcode & DESTINATION_MASK_16BIT) ? true : false; access = (opcode & ACCESS_MASK_16BIT) ? true : false; register_address = opcode & REG_MASK_16BIT; if((!access) && (register_address >= cpu_pic->access_gprs())) // some 18f devices split at 0x60 register_address |= 0xf00; break; case _14BIT_PROCESSOR_: case _14BIT_E_PROCESSOR_: register_address = opcode & REG_MASK_14BIT; destination = (opcode & DESTINATION_MASK_14BIT) ? true : false; access = 1; break; case _12BIT_PROCESSOR_: register_address = opcode & REG_MASK_12BIT; destination = (opcode & DESTINATION_MASK_12BIT) ? true : false; access = 1; break; default: cout << "ERROR: (Register_op) the processor has a bad base type\n"; } } Register * Register_op::source = 0; //-------------------------------------------------- ADDWF::ADDWF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("addwf"); } void ADDWF::execute() { unsigned int new_value,src_value,w_value; if(!access) source = cpu_pic->registers[register_address]; else source = cpu_pic->register_bank[register_address]; new_value = (src_value = source->get()) + (w_value = cpu_pic->Wget()); // Store the result if(destination) source->put(new_value & 0xff); // Result goes to source else cpu_pic->Wput(new_value & 0xff); cpu_pic->status->put_Z_C_DC(new_value, src_value, w_value); cpu_pic->pc->increment(); } //-------------------------------------------------- ADDWFC::ADDWFC (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("addwfc"); } void ADDWFC::execute() { unsigned int new_value,src_value,w_value; source = ((!access) ? cpu_pic->registers[register_address] : cpu_pic->register_bank[register_address] ); new_value = (src_value = source->get()) + (w_value = cpu_pic->Wget()) + ((cpu_pic->status->value.get() & STATUS_C) ? 1 : 0); // Store the result if(destination) source->put(new_value & 0xff); // Result goes to source else cpu_pic->Wput(new_value & 0xff); cpu_pic->status->put_Z_C_DC(new_value, src_value, w_value); cpu_pic->pc->increment(); } //-------------------------------------------------- ANDLW::ANDLW (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Literal_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("andlw"); } void ANDLW::execute() { unsigned int new_value; new_value = cpu_pic->Wget() & L; cpu_pic->Wput(new_value); cpu_pic->status->put_Z(0==new_value); cpu_pic->pc->increment(); } //-------------------------------------------------- ANDWF::ANDWF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("andwf"); } void ANDWF::execute() { unsigned int new_value; if(!access) source = cpu_pic->registers[register_address]; else source = cpu_pic->register_bank[register_address]; new_value = source->get() & cpu_pic->Wget(); if(destination) source->put(new_value); // Result goes to source else cpu_pic->Wput(new_value); cpu_pic->status->put_Z(0==new_value); cpu_pic->pc->increment(); } //-------------------------------------------------- ASRF::ASRF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("asrf"); } void ASRF::execute() { unsigned int new_value,src_value, carry, msb; source = ((!access) ? cpu_pic->registers[register_address] : cpu_pic->register_bank[register_address] ); carry = (src_value = source->get()) & 1; msb = src_value & 0x80; new_value = ((src_value & 0xff) >> 1) | msb; // Store the result if(destination) source->put(new_value); // Result goes to source else cpu_pic->Wput(new_value); cpu_pic->status->put_Z(new_value==0); cpu_pic->status->put_C(carry); cpu_pic->pc->increment(); } //-------------------------------------------------- BCF::BCF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Bit_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); mask ^= 0xff; // decode initializes the mask to 1<registers[register_address]; else reg = cpu_pic->register_bank[register_address]; reg->put(reg->get_value() & mask); // Must not use reg->value.get() as it breaks indirects cpu_pic->pc->increment(); } //-------------------------------------------------- BRA::BRA (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu, new_opcode, address) { destination_index = (new_opcode & 0x1ff)+1; absolute_destination_index = (address + destination_index) & 0xfffff; if(new_opcode & 0x100) { absolute_destination_index -= 0x200; destination_index = 0x200 - destination_index; } new_name("bra"); } void BRA::execute() { cpu_pic->pc->jump(absolute_destination_index); } char * BRA::name(char *return_str,int len) { sprintf(return_str,"%s\t$%c0x%x\t;(0x%05x)", gpsimObject::name().c_str(), (opcode & 0x100) ? '-' : '+', (destination_index & 0x1ff)<<1, absolute_destination_index<<1); return(return_str); } //-------------------------------------------------- BRW::BRW (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu, new_opcode, address) { destination_index = cpu_pic->Wget(); absolute_destination_index = address + destination_index; new_name("brw"); } void BRW::execute() { cpu_pic->pc->jump(absolute_destination_index); } char * BRW::name(char *return_str,int len) { sprintf(return_str,"%s\t$%c0x%x\t;(0x%05x)", gpsimObject::name().c_str(), (opcode & 0x100) ? '-' : '+', (destination_index & 0x1ff)<<1, absolute_destination_index<<1); return(return_str); } //-------------------------------------------------- BSF::BSF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Bit_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("bsf"); } void BSF::execute() { if(!access) reg = cpu_pic->registers[register_address]; else reg = cpu_pic->register_bank[register_address]; reg->put(reg->get_value() | mask); // Must not use reg->value.get() as it breaks indirects cpu_pic->pc->increment(); } //-------------------------------------------------- BTFSC::BTFSC (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Bit_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("btfsc"); } void BTFSC::execute() { if(!access) reg = cpu_pic->registers[register_address]; else reg = cpu_pic->register_bank[register_address]; unsigned int result = mask & reg->get(); if(!result) cpu_pic->pc->skip(); // Skip next instruction else cpu_pic->pc->increment(); } //-------------------------------------------------- BTFSS::BTFSS (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Bit_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("btfss"); } void BTFSS::execute() { if(!access) reg = cpu_pic->registers[register_address]; else reg = cpu_pic->register_bank[register_address]; unsigned int result = mask & reg->get(); if(result) cpu_pic->pc->skip(); // Skip next instruction else cpu_pic->pc->increment(); } //-------------------------------------------------- CALL::CALL (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu, new_opcode, address) { switch(cpu_pic->base_isa()) { case _14BIT_PROCESSOR_: case _14BIT_E_PROCESSOR_: destination = opcode&0x7ff; break; case _12BIT_PROCESSOR_: destination = opcode&0xff; break; default: cout << "ERROR: (Bit_op) the processor has a bad base type\n"; } new_name("call"); } void CALL::execute() { // do not jump if the push fails if (cpu_pic->stack->push(cpu_pic->pc->get_next())) cpu_pic->pc->jump(cpu_pic->get_pclath_branching_jump() | destination); } char * CALL::name(char *return_str,int len) { snprintf(return_str,len,"%s\t0x%04x", gpsimObject::name().c_str(), destination); return(return_str); } //-------------------------------------------------- CALLW::CALLW(Processor *new_cpu, unsigned int new_opcode, unsigned int address) :instruction (new_cpu, new_opcode, address) { new_name("callw"); } char *CALLW::name(char *return_str,int len) { snprintf(return_str,len,"%s", gpsimObject::name().c_str()); return(return_str); } void CALLW::execute() { if (cpu_pic->stack->push(cpu_pic->pc->get_next())) { cpu_pic->pcl->put(cpu_pic->Wget()); cpu_pic->pc->increment(); } } //-------------------------------------------------- CLRF::CLRF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("clrf"); } void CLRF::execute() { if(!access) cpu_pic->registers[register_address]->put(0); else cpu_pic->register_bank[register_address]->put(0); cpu_pic->status->put_Z(1); cpu_pic->pc->increment(); } char * CLRF::name(char *return_str,int len) { source = get_cpu()->registers[register_address]; if (access) source = cpu_pic->register_bank[register_address]; snprintf(return_str,len,"%s\t%s", gpsimObject::name().c_str(), source->name().c_str()); return(return_str); } //-------------------------------------------------- CLRW::CLRW (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("clrw"); } void CLRW::execute() { cpu_pic->Wput(0); cpu_pic->status->put_Z(1); cpu_pic->pc->increment(); } //-------------------------------------------------- CLRWDT::CLRWDT (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("clrwdt"); } void CLRWDT::execute() { cpu_pic->wdt.clear(); cpu_pic->status->put_TO(1); cpu_pic->status->put_PD(1); cpu_pic->pc->increment(); } //-------------------------------------------------- COMF::COMF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("comf"); } void COMF::execute() { unsigned int new_value; if(!access) source = cpu_pic->registers[register_address]; else source = cpu_pic->register_bank[register_address]; new_value = source->get() ^ 0xff; if(destination) source->put(new_value); // Result goes to source else cpu_pic->Wput(new_value); cpu_pic->status->put_Z(0==new_value); cpu_pic->pc->increment(); } //-------------------------------------------------- DECF::DECF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("decf"); } void DECF::execute() { unsigned int new_value; if(!access) source = cpu_pic->registers[register_address]; else source = cpu_pic->register_bank[register_address]; new_value = (source->get() - 1)&0xff; if(destination) source->put(new_value); // Result goes to source else cpu_pic->Wput(new_value); cpu_pic->status->put_Z(0==new_value); cpu_pic->pc->increment(); } //-------------------------------------------------- DECFSZ::DECFSZ (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("decfsz"); } void DECFSZ::execute() { unsigned int new_value; if(!access) source = cpu_pic->registers[register_address]; else source = cpu_pic->register_bank[register_address]; new_value = (source->get() - 1)&0xff; if(destination) source->put(new_value); // Result goes to source else cpu_pic->Wput(new_value); if(0==new_value) cpu_pic->pc->skip(); // Skip next instruction else cpu_pic->pc->increment(); } //-------------------------------------------------- GOTO::GOTO (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu, new_opcode, address) { switch(cpu_pic->base_isa()) { case _14BIT_PROCESSOR_: case _14BIT_E_PROCESSOR_: destination = opcode&0x7ff; break; case _12BIT_PROCESSOR_: destination = opcode&0x1ff; break; default: cout << "ERROR: (Bit_op) the processor has a bad base type\n"; } new_name("goto"); } void GOTO::execute() { cpu_pic->pc->jump(cpu_pic->get_pclath_branching_jump() | destination); } char * GOTO::name(char *return_str,int len) { snprintf(return_str,len,"%s\t0x%04x", gpsimObject::name().c_str(),destination); return(return_str); } //-------------------------------------------------- INCF::INCF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("incf"); } void INCF::execute() { unsigned int new_value; if(!access) source = cpu_pic->registers[register_address]; else source = cpu_pic->register_bank[register_address]; new_value = (source->get() + 1)&0xff; // Store the result if(destination) source->put(new_value); else cpu_pic->Wput(new_value); cpu_pic->status->put_Z(0==new_value); cpu_pic->pc->increment(); } //-------------------------------------------------- INCFSZ::INCFSZ (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("incfsz"); } void INCFSZ::execute() { unsigned int new_value; if(!access) source = cpu_pic->registers[register_address]; else source = cpu_pic->register_bank[register_address]; new_value = (source->get() + 1)&0xff; if(destination) source->put(new_value); // Result goes to source else cpu_pic->Wput(new_value); if(0==new_value) cpu_pic->pc->skip(); // Skip next instruction else cpu_pic->pc->increment(); } //-------------------------------------------------- IORLW::IORLW (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Literal_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("iorlw"); } void IORLW::execute() { unsigned int new_value; new_value = cpu_pic->Wget() | L; cpu_pic->Wput(new_value); cpu_pic->status->put_Z(0==new_value); cpu_pic->pc->increment(); } //-------------------------------------------------- IORWF::IORWF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("iorwf"); } void IORWF::execute() { unsigned int new_value; if(!access) source = cpu_pic->registers[register_address]; else source = cpu_pic->register_bank[register_address]; new_value = source->get() | cpu_pic->Wget(); if(destination) source->put(new_value); // Result goes to source else cpu_pic->Wput(new_value); cpu_pic->status->put_Z(0==new_value); cpu_pic->pc->increment(); } //-------------------------------------------------- LSLF::LSLF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("lslf"); } void LSLF::execute() { unsigned int new_value,src_value, carry; source = ((!access) ? cpu_pic->registers[register_address] : cpu_pic->register_bank[register_address] ); carry = (src_value = source->get()) & 0x80; new_value = (src_value << 1) & 0xff; // Store the result if(destination) source->put(new_value); // Result goes to source else cpu_pic->Wput(new_value); cpu_pic->status->put_Z(new_value==0); cpu_pic->status->put_C(carry); cpu_pic->pc->increment(); } //-------------------------------------------------- LSRF::LSRF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("lsrf"); } void LSRF::execute() { unsigned int new_value,src_value, carry; source = ((!access) ? cpu_pic->registers[register_address] : cpu_pic->register_bank[register_address] ); carry = (src_value = source->get()) & 1; new_value = (src_value & 0xff) >> 1; // Store the result if(destination) source->put(new_value); // Result goes to source else cpu_pic->Wput(new_value); cpu_pic->status->put_Z(new_value==0); cpu_pic->status->put_C(carry); cpu_pic->pc->increment(); } //-------------------------------------------------- MOVLP::MOVLP (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Literal_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("movlp"); } void MOVLP::execute() { if (cpu_pic->pclath->address) cpu_pic->registers[cpu_pic->pclath->address]->put(L); else cpu_pic->pclath->put(L); cpu_pic->pc->increment(); } char * MOVLP::name(char *return_str, int len) { snprintf(return_str,len,"%s\t%d", gpsimObject::name().c_str(), L&0x7f); return(return_str); } //-------------------------------------------------- MOVLW::MOVLW (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Literal_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("movlw"); } void MOVLW::execute() { cpu_pic->Wput(L); cpu_pic->pc->increment(); } //-------------------------------------------------- MOVF::MOVF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("movf"); } void MOVF::execute() { unsigned int source_value; if(!access) source = cpu_pic->registers[register_address]; else source = cpu_pic->register_bank[register_address]; source_value = source->get(); // Store the result if(destination) source->put(source_value); else cpu_pic->Wput(source_value); cpu_pic->status->put_Z(0==source_value); cpu_pic->pc->increment(); } void MOVF::debug() { cout << "MOVF: "; } //-------------------------------------------------- MOVWF::MOVWF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("movwf"); } void MOVWF::execute() { if(!access) cpu_pic->registers[register_address]->put(cpu_pic->Wget()); else cpu_pic->register_bank[register_address]->put(cpu_pic->Wget()); cpu_pic->pc->increment(); } char * MOVWF::name(char *return_str, int len) { source = get_cpu()->registers[register_address]; if (access) source = cpu_pic->register_bank[register_address]; snprintf(return_str,len,"%s\t%s", gpsimObject::name().c_str(), source->name().c_str()); return(return_str); } //-------------------------------------------------- NOP::NOP (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu,new_opcode,address) { decode(new_cpu,new_opcode); new_name("nop"); // For the 18cxxx family, this 'nop' may in fact be the // 2nd word in a 2-word opcode. So just to be safe, let's // initialize the cross references to the source file. // (Subsequent initialization code will overwrite this, // but there is a chance that this info will be accessed // before that occurs). /* file_id = 0; src_line = 0; lst_line = 0; */ } void NOP::execute() { cpu_pic->pc->increment(); } //-------------------------------------------------- OPTION::OPTION (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu,new_opcode,address) { decode(new_cpu, new_opcode); new_name("option"); } void OPTION::execute() { cpu_pic->put_option_reg(cpu_pic->Wget()); cpu_pic->pc->increment(); } //-------------------------------------------------- RESET::RESET (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("reset"); } void RESET::execute() { cpu_pic->reset(SOFT_RESET); } //-------------------------------------------------- RETLW::RETLW (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Literal_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("retlw"); } void RETLW::execute() { cpu_pic->Wput(L); cpu_pic->pc->new_address(cpu_pic->stack->pop()); } //-------------------------------------------------- RLF::RLF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("rlf"); } void RLF::execute() { unsigned int new_value; if(!access) source = cpu_pic->registers[register_address]; else source = cpu_pic->register_bank[register_address]; new_value = (source->get() << 1) | cpu_pic->status->get_C(); if(destination) source->put(new_value&0xff); // Result goes to source else cpu_pic->Wput(new_value&0xff); cpu_pic->status->put_C(new_value>0xff); cpu_pic->pc->increment(); } //-------------------------------------------------- RRF::RRF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("rrf"); } void RRF::execute() { unsigned int new_value,old_value; if(!access) source = cpu_pic->registers[register_address]; else source = cpu_pic->register_bank[register_address]; old_value = source->get(); new_value = (old_value >> 1) | (cpu_pic->status->get_C() ? 0x80 : 0); if(destination) source->put(new_value&0xff); // Result goes to source else cpu_pic->Wput(new_value&0xff); cpu_pic->status->put_C(old_value&0x01); cpu_pic->pc->increment(); } //-------------------------------------------------- SLEEP::SLEEP (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu,new_opcode,address) { decode(new_cpu, new_opcode); new_name("sleep"); } void SLEEP::execute() { cpu_pic->enter_sleep(); } //-------------------------------------------------- SUBWF::SUBWF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("subwf"); } void SUBWF::execute() { unsigned int new_value,src_value,w_value; if(!access) source = cpu_pic->registers[register_address]; else source = cpu_pic->register_bank[register_address]; new_value = (src_value = source->get()) - (w_value = cpu_pic->Wget()); // Store the result if(destination) source->put(new_value & 0xff); // Result goes to source else cpu_pic->Wput(new_value & 0xff); cpu_pic->status->put_Z_C_DC_for_sub(new_value, src_value, w_value); cpu_pic->pc->increment(); } //-------------------------------------------------- SUBWFB::SUBWFB (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("subwfb"); } void SUBWFB::execute() { unsigned int new_value,src_value,w_value; source = ((!access) ? cpu_pic->registers[register_address] : cpu_pic->register_bank[register_address] ); new_value = (src_value = source->get()) - (w_value = cpu_pic->Wget()) - (1 - cpu_pic->status->get_C()); if(destination) source->put(new_value & 0xff); else cpu_pic->Wput(new_value & 0xff); cpu_pic->status->put_Z_C_DC_for_sub(new_value, src_value, w_value); cpu_pic->pc->increment(); } //-------------------------------------------------- SWAPF::SWAPF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("swapf"); } void SWAPF::execute() { unsigned int src_value; if(!access) source = cpu_pic->registers[register_address]; else source = cpu_pic->register_bank[register_address]; src_value = source->get(); if(destination) source->put( ((src_value >> 4) & 0x0f) | ( (src_value << 4) & 0xf0) ); else cpu_pic->Wput( ((src_value >> 4) & 0x0f) | ( (src_value << 4) & 0xf0) ); cpu_pic->pc->increment(); } //-------------------------------------------------- TRIS::TRIS (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); // The TRIS instruction only uses the lower three bits to determine // the destination register register_address &= 7; // Furthermore, those three bits can only be 5,6, or 7 if( (register_address > 7) || (register_address < 5)) { cout << "Warning: TRIS address '" << register_address << "' is out of range\n"; // set the address to a 'bad value' that's // easy to detect at run time: register_address = 0; } else { if(cpu_pic->base_isa() == _14BIT_PROCESSOR_ || cpu_pic->base_isa() == _14BIT_PROCESSOR_) register_address |= 0x80; // The destination register is the TRIS } new_name("tris"); } void TRIS::execute() { if(register_address) { // Execute the instruction only if the register is valid. if(cpu_pic->base_isa() == _14BIT_PROCESSOR_ || cpu_pic->base_isa() == _14BIT_PROCESSOR_) cpu_pic->registers[register_address]->put(cpu_pic->Wget()); else cpu_pic->tris_instruction(register_address); } cpu_pic->pc->increment(); } char * TRIS::name(char *return_str,int len) { source = get_cpu()->registers[register_address]; snprintf(return_str,len,"%s\t%s", gpsimObject::name().c_str(), source->name().c_str()); return(return_str); } //-------------------------------------------------- XORLW::XORLW (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Literal_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("xorlw"); } void XORLW::execute() { unsigned int new_value; new_value = cpu_pic->Wget() ^ L; cpu_pic->Wput(new_value); cpu_pic->status->put_Z(0==new_value); cpu_pic->pc->increment(); } //-------------------------------------------------- XORWF::XORWF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("xorwf"); } void XORWF::execute() { unsigned int new_value; if(!access) source = cpu_pic->registers[register_address]; else source = cpu_pic->register_bank[register_address]; new_value = source->get() ^ cpu_pic->Wget(); if(destination) source->put(new_value); // Result goes to source else cpu_pic->Wput(new_value); cpu_pic->status->put_Z(0==new_value); cpu_pic->pc->increment(); } gpsim-0.27.0/src/attributes.h0000644000076400007640000000335411401131150012766 00000000000000/* Copyright (C) 1998-2005 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #if !defined(__ATTRIBUTES_H__) #define __ATTRIBUTES_H__ #include "value.h" class Processor; /// gpsim attributes /// /// WarnModeAttribute class WarnModeAttribute : public Boolean { protected: Processor *cpu; public: WarnModeAttribute(Processor *_cpu); virtual void set(Value *v); virtual void get(bool &b); }; /// SafeModeAttribute class SafeModeAttribute : public Boolean { protected: Processor *cpu; public: SafeModeAttribute(Processor *_cpu); ~SafeModeAttribute(); virtual void set(Value *v); virtual void get(bool &b); }; /// UnknownModeAttribute class UnknownModeAttribute : public Boolean { protected: Processor *cpu; public: UnknownModeAttribute(Processor *_cpu); virtual void set(Value *v); virtual void get(bool &b); }; /// BreakOnResetAttribute class BreakOnResetAttribute : public Boolean { protected: Processor *cpu; public: BreakOnResetAttribute(Processor *_cpu); virtual void set(Value *v); virtual void get(bool &b); }; #endif //if !defined(__ATTRIBUTES_H__) gpsim-0.27.0/src/14bit-registers.cc0000664000076400007640000013636312175377101013720 00000000000000/* Copyright (C) 1998-2000 Scott Dattalo Copyright (C) 2013 Roy R. Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include #include #include "../config.h" #include "14bit-processors.h" #include "14bit-registers.h" #include "psp.h" // needed for operator[] on WPU::wpu_gpio (not sure why) #include "14bit-tmrs.h" #include #include "stimuli.h" #include "xref.h" #define PCLATH_MASK 0x1f //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("0x%06X %s() ",cycles.get(),__FUNCTION__); printf arg; } #else #define Dprintf(arg) {} #endif pic_processor *temp_cpu; // FIXME file_register::put_value has a useful feature... // #if 0 //----------------------------------------------------------- // void file_register::put_value(unsigned int new_value) // // put_value is used by the gui to change the contents of // file registers. We could've let the gui use the normal // 'put' member function to change the contents, however // there are instances where 'put' has a cascading affect. // For example, changing the value of an i/o port's tris // could cause i/o pins to change states. In these cases, // we'd like the gui to be notified of all of the cascaded // changes. So rather than burden the real-time simulation // with notifying the gui, I decided to create the 'put_value' // function instead. // Since this is a virtual function, derived classes have // the option to override the default behavior. // // inputs: // unsigned int new_value - The new value that's to be // written to this register // returns: // nothing // //----------------------------------------------------------- void file_register::put_value(unsigned int new_value) { // go ahead and use the regular put to write the data. // note that this is a 'virtual' function. Consequently, // all objects derived from a file_register should // automagically be correctly updated. put(new_value); // Even though we just wrote a value to this register, // it's possible that the register did not get fully // updated (e.g. porta on many pics has only 5 valid // pins, so the upper three bits of a write are meaningless) // So we should explicitly tell the gui (if it's // present) to update its display. if(xref) { xref->update(); if(cpu && address == cpu_pic->fsr->value) { if(cpu_pic->indf->xref) cpu_pic->indf->xref->update(); } } } #endif //-------------------------------------------------- // member functions for the BORCON class // currently does not do anything //-------------------------------------------------- // BORCON::BORCON(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc) { } void BORCON::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value & 0x80); } void BORCON::put_value(unsigned int new_value) { put(new_value&0x80); } //-------------------------------------------------- // member functions for the BSR class //-------------------------------------------------- // BSR::BSR(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc), register_page_bits(0) { } void BSR::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value & 0x01f); //value.put(new_value & 0x01f); if(cpu_pic->base_isa() == _14BIT_E_PROCESSOR_) cpu_pic->register_bank = &cpu_pic->registers[ value.get() << 7 ]; else cpu_pic->register_bank = &cpu_pic->registers[ value.get() << 8 ]; } void BSR::put_value(unsigned int new_value) { put(new_value); update(); cpu_pic->indf->update(); } // Adjust internal RC oscillator frequency as per 12f675/629 // Spec sheet does not give range so assume +/- 12.5% as per 16f88 // The fact that base_freq is not 0. indicates the RC oscillator is being used // and thus an adjustment should be made. // // This will work for any number of adjustment bits in byte but must be left justified // and 1000000 centre frequency and 11111111 highest frequency void OSCCAL::put(unsigned int new_value) { int adj = new_value & mValidBits; float tune; trace.raw(write_trace.get() | value.get()); value.put(adj); if (base_freq > 0.) { adj = adj - 0x80; tune = (1. + 0.125 * adj / 0x80) * base_freq; cpu_pic->set_frequency(tune); } } void OSCCAL::set_freq(float new_base_freq) { base_freq = new_base_freq; put(value.get()); } void OSCTUNE::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value); osccon->set_rc_frequency(); } // Clock is stable void OSCCON::callback() { value.put(value.get() | IOFS); } bool OSCCON::set_rc_frequency() { double base_frequency = 31.25e3; if (!cpu_pic->get_int_osc()) return false; unsigned int new_IRCF = (value.get() & ( IRCF0 | IRCF1 | IRCF2)) >> 4; switch (new_IRCF) { case 0: base_frequency = 31.25e3; break; case 1: base_frequency = 125e3; break; case 2: base_frequency = 250e3; break; case 3: base_frequency = 500e3; break; case 4: base_frequency = 1e6; break; case 5: base_frequency = 2e6; break; case 6: base_frequency = 4e6; break; case 7: base_frequency = 8e6; break; } if (osctune) { int tune; unsigned int osctune_value = osctune->value.get(); tune = osctune_value & (OSCTUNE::TUN5-1); tune = (OSCTUNE::TUN5 & osctune_value) ? -tune : tune; base_frequency *= 1. + 0.125 * tune / 31.; } cpu_pic->set_frequency(base_frequency); if ((bool)verbose) { cout << "set_rc_frequency() : osccon=" << hex << value.get(); if (osctune) cout << " osctune=" << osctune->value.get(); cout << " new frequency=" << base_frequency << endl; } return true; } void OSCCON::put(unsigned int new_value) { unsigned int new_IRCF = (new_value & ( IRCF0 | IRCF1 | IRCF2)) >> 4; unsigned int old_IRCF = (value.get() & ( IRCF0 | IRCF1 | IRCF2)) >> 4; trace.raw(write_trace.get() | value.get()); value.put(new_value); if (set_rc_frequency()) // using internal RC Oscillator { if (old_IRCF == 0 && new_IRCF != 0) // Allow 4 ms to stabalise { guint64 settle; settle = (guint64) (get_cycles().instruction_cps() * 4e-3); get_cycles().set_break(get_cycles().get() + settle, this); new_value &= ~ IOFS; } else new_value |= IOFS; } } // Clock is stable void OSCCON_2::callback() { unsigned int mask = 0; unsigned int val; if (!oscstat) return; val = oscstat->value.get(); switch(mode) { case LF: mask = OSCSTAT::LFIOFR; break; case MF: mask = OSCSTAT::MFIOFR; break; case HF: mask = OSCSTAT::HFIOFL | OSCSTAT::HFIOFR; break; case PLL: mask = OSCSTAT::PLLR; break; case T1OSC: break; } val |= mask; oscstat->value.put(val); } bool OSCCON_2::set_rc_frequency() { double base_frequency = 31.25e3; unsigned int sys_clock = value.get() & (SCS0 | SCS1); bool osccon_pplx4 = value.get() & SPLLEN; bool config_pplx4 = cpu_pic->get_pplx4_osc(); if (sys_clock == 0 && config_fosc != 4) // Not internal oscillator { if (config_fosc >= 3) // always run at full speed { unsigned int oscstat_reg = (oscstat->value.get() & 0x1f); oscstat->value.put(oscstat_reg | OSCSTAT::OSTS); mode = EC; } else if (config_ieso) // internal/external switchover { mode = OST; } } if((osccon_pplx4 && !config_pplx4) && sys_clock == 0)\ { mode |= PLL; return true; } if (!cpu_pic->get_int_osc() && (sys_clock == 0)) return false; if (sys_clock == 1) // T1OSC { base_frequency = 32.e3; mode = T1OSC; } else if (sys_clock > 1 || config_fosc == 4) { unsigned int new_IRCF = (value.get() & ( IRCF0 | IRCF1 | IRCF2 |IRCF3)) >> 3; switch (new_IRCF) { case 0: case 1: base_frequency = 30.e3; mode = LF; break; case 2: mode = MF; base_frequency = 31.25e3; break; case 3: mode = HF; base_frequency = 31.25e3; break; case 4: mode = MF; base_frequency = 62.5e3; break; case 5: mode = MF; base_frequency = 125e3; break; case 6: mode = MF; base_frequency = 250e3; break; case 7: mode = MF; base_frequency = 500e3; break; case 8: mode = HF; base_frequency = 125e3; break; case 9: mode = HF; base_frequency = 250e3; break; case 10: mode = HF; base_frequency = 500e3; break; case 11: mode = HF; base_frequency = 1e6; break; case 12: mode = HF; base_frequency = 2e6; break; case 13: mode = HF; base_frequency = 4e6; break; case 14: // The treatment for PPL based on Fig 5-1 of P12f1822 ref manual if (osccon_pplx4 || config_pplx4) { mode = PLL; base_frequency = 32e6; } else { mode = HF; base_frequency = 8e6; } break; case 15: mode = HF; base_frequency = 16e6; break; } if (osctune) { int tune; unsigned int osctune_value = osctune->value.get(); tune = osctune_value & (OSCTUNE::TUN5-1); tune = (OSCTUNE::TUN5 & osctune_value) ? -tune : tune; base_frequency *= 1. + 0.125 * tune / 31.; } } cpu_pic->set_frequency(base_frequency); if ((bool)verbose) { cout << "set_rc_frequency() : osccon=" << hex << value.get(); if (osctune) cout << " osctune=" << osctune->value.get(); cout << " new frequency=" << base_frequency << endl; } return true; } void OSCCON_2::put_value(unsigned int new_value) { value.put(new_value); } void OSCCON_2::put(unsigned int new_value) { unsigned int old_value = value.get(); unsigned int oscstat_reg = 0; unsigned int oscstat_new = 0; trace.raw(write_trace.get() | value.get()); value.put(new_value); if (old_value == new_value) return; assert(oscstat); oscstat_reg = oscstat->value.get(); oscstat_new = oscstat_reg; if (((new_value & (SCS0 | SCS1))==0) && !cpu_pic->get_int_osc()) oscstat_new |= OSCSTAT::OSTS; else oscstat_new &= ~OSCSTAT::OSTS; if (set_rc_frequency()) // using internal RC Oscillator set_callback(); } void OSCCON_2::set_config(unsigned int cfg_fosc, bool cfg_ieso) { config_fosc = cfg_fosc; config_ieso = cfg_ieso; } void OSCCON_2::wake() { } void OSCCON_2::set_callback() { unsigned int oscstat_reg = oscstat->value.get();; unsigned int oscstat_new = oscstat_reg; guint64 settle = 0; switch(mode&~PLL) { case LF: oscstat_new &= ~(OSCSTAT::OSTS | OSCSTAT::PLLR | OSCSTAT::T1OSCR); settle = get_cycles().get() + 2; break; case MF: oscstat_new &= ~(OSCSTAT::OSTS | OSCSTAT::PLLR | OSCSTAT::T1OSCR); settle = get_cycles().get(2e-6); // 2us settle time break; case HF: oscstat_new &= ~(OSCSTAT::OSTS | OSCSTAT::PLLR | OSCSTAT::T1OSCR); settle = get_cycles().get(2e-6); // 2us settle time break; case T1OSC: settle = get_cycles().get() + 1024/4; break; } if((mode & PLL) && (oscstat_reg & OSCSTAT::PLLR) == 0) settle = get_cycles().get(2e-3); // 2ms if (settle) { if (next_callback > get_cycles().get()) get_cycles().clear_break(next_callback); get_cycles().set_break(settle, this); next_callback = settle; } if(oscstat && (oscstat_new != oscstat_reg)) oscstat->put(oscstat_new); } void WDTCON::put(unsigned int new_value) { unsigned int masked_value = new_value & valid_bits; trace.raw(write_trace.get() | value.get()); value.put(masked_value); if (valid_bits > 1) cpu_pic->wdt.set_prescale(masked_value >> 1); cpu_pic->wdt.swdten((masked_value & SWDTEN) == SWDTEN); } void WDTCON::reset(RESET_TYPE r) { putRV(por_value); } // //-------------------------------------------------- // member functions for the FSR class //-------------------------------------------------- // FSR::FSR(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc) {} void FSR::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value); } void FSR::put_value(unsigned int new_value) { put(new_value); update(); cpu_pic->indf->update(); } unsigned int FSR::get() { trace.raw(read_trace.get() | value.get()); return(value.get()); } unsigned int FSR::get_value() { return(value.get()); } // //-------------------------------------------------- // member functions for the FSR_12 class //-------------------------------------------------- // FSR_12::FSR_12(Processor *pCpu, const char *pName, unsigned int _rpb, unsigned int _valid_bits) : FSR(pCpu, pName, ""), valid_bits(_valid_bits), register_page_bits(_rpb) {} void FSR_12::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value); /* The 12-bit core selects the register page using the fsr */ cpu_pic->register_bank = &cpu_pic->registers[ value.get() & register_page_bits ]; } void FSR_12::put_value(unsigned int new_value) { put(new_value); update(); cpu_pic->indf->update(); } unsigned int FSR_12::get() { unsigned int v = get_value(); trace.raw(read_trace.get() | value.get()); return(v); } unsigned int FSR_12::get_value() { // adjust for missing bits //cout << "FSR_12:get_value - valid_bits 0x" << hex << valid_bits << endl; return ((value.get() & valid_bits) | (~valid_bits & 0xff)); } // //-------------------------------------------------- // member functions for the Status_register class //-------------------------------------------------- // //-------------------------------------------------- Status_register::Status_register(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc) { rcon = NULL; break_point = 0; break_on_z =0; break_on_c =0; address = 3; rp_mask = RP_MASK; write_mask = 0xff & ~STATUS_TO & ~STATUS_PD; new_name("status"); } //-------------------------------------------------- void Status_register::reset(RESET_TYPE r) { switch (r) { case POR_RESET: putRV(por_value); put_TO(1); put_PD(1); break; case WDT_RESET: put_TO(0); break; default: break; } } //-------------------------------------------------- // put void Status_register::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put((value.get() & ~write_mask) | (new_value & write_mask)); if(cpu_pic->base_isa() == _14BIT_PROCESSOR_) { cpu_pic->register_bank = &cpu_pic->registers[(value.get() & rp_mask) << 2]; } } //-------------------------------------------------- // get //unsigned int Status_register::get() //-------------------------------------------------- // put_Z //void Status_register::put_Z(unsigned int new_z) //-------------------------------------------------- // get_Z //unsigned int Status_register::get_Z() //-------------------------------------------------- // put_C //void Status_register::put_C(unsigned int new_c) //-------------------------------------------------- // get_C //unsigned int Status_register::get_C() //-------------------------------------------------- // put_Z_C_DC //-------------------------------------------------- // member functions for the INDF class //-------------------------------------------------- INDF::INDF(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc) { fsr_mask = 0x7f; // assume a 14bit core base_address_mask1 = 0; // " " base_address_mask2 = 0xff; // " " } void INDF::initialize() { switch(cpu_pic->base_isa()) { case _12BIT_PROCESSOR_: fsr_mask = 0x1f; base_address_mask1 = 0x0; base_address_mask2 = 0x1f; break; case _14BIT_PROCESSOR_: fsr_mask = 0x7f; break; case _PIC17_PROCESSOR_: case _PIC18_PROCESSOR_: cout << "BUG: INDF::"<<__FUNCTION__<<". 16bit core uses a different class for indf."; break; default: cout << " BUG - invalid processor type INDF::initialize\n"; } } void INDF::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); //trace.register_write(address,value.get()); int reg = (cpu_pic->fsr->get_value() + //cpu_pic->fsr->value + ((cpu_pic->status->value.get() & base_address_mask1)<<1) ) & base_address_mask2; // if the fsr is 0x00 or 0x80, then it points to the indf if(reg & fsr_mask){ cpu_pic->registers[reg]->put(new_value); //(cpu_pic->fsr->value & base_address_mask2) + ((cpu_pic->status->value & base_address_mask1)<<1) } } void INDF::put_value(unsigned int new_value) { // go ahead and use the regular put to write the data. // note that this is a 'virtual' function. Consequently, // all objects derived from a file_register should // automagically be correctly updated (which isn't // necessarily true if we just write new_value on top // of the current register value). put(new_value); update(); int r = (cpu_pic->fsr->get_value() + //cpu_pic->fsr->value + (((cpu_pic->status->value.get() & base_address_mask1)<<1)& base_address_mask2)); if(r & fsr_mask) cpu_pic->registers[r]->update(); } unsigned int INDF::get() { trace.raw(read_trace.get() | value.get()); //trace.register_read(address,value.get()); int reg = (cpu_pic->fsr->get_value() + ((cpu_pic->status->value.get() & base_address_mask1)<<1) ) & base_address_mask2; if(reg & fsr_mask) return(cpu_pic->registers[reg]->get()); else return(0); // avoid infinite loop if fsr points to the indf } unsigned int INDF::get_value() { int reg = (cpu_pic->fsr->get_value() + ((cpu_pic->status->value.get() & base_address_mask1)<<1) ) & base_address_mask2; if(reg & fsr_mask) return(cpu_pic->registers[reg]->get_value()); else return(0); // avoid infinite loop if fsr points to the indf } //-------------------------------------------------- // member functions for the PCL base class //-------------------------------------------------- PCL::PCL(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc) { por_value = RegisterValue(0,0); } // %%% FIX ME %%% breaks are different void PCL::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); cpu_pic->pc->computed_goto(new_value); //trace.register_write(address,value.get()); } void PCL::put_value(unsigned int new_value) { value.put(new_value & 0xff); cpu_pic->pc->put_value( (cpu_pic->pc->get_value() & 0xffffff00) | value.get()); // The gui (if present) will be updated in the pc->put_value call. } unsigned int PCL::get() { return((value.get()+1) & 0xff); } unsigned int PCL::get_value() { value.put(cpu_pic->pc->get_value() & 0xff); return(value.get()); } //------------------------------------------------------------ // PCL reset // void PCL::reset(RESET_TYPE r) { trace.raw(write_trace.get() | value.get()); putRV_notrace(por_value); } //-------------------------------------------------- // member functions for the PCLATH base class //-------------------------------------------------- PCLATH::PCLATH(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc) { mValidBits = PCLATH_MASK; } void PCLATH::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); //trace.register_write(address,value.get()); value.put(new_value & mValidBits); } void PCLATH::put_value(unsigned int new_value) { cout << "PCLATH::put_value(" << new_value << ")\n"; value.put(new_value & mValidBits); // RP - I cannot think of a single possible reason I'd want to affect the real PC here! // cpu_pic->pc->put_value( (cpu_pic->pc->get_value() & 0xffff00ff) | (value.get()<<8) ); // The gui (if present) will be updated in the pc->put_value call. } unsigned int PCLATH::get() { trace.raw(read_trace.get() | value.get()); //trace.register_read(address,value.get()); return(value.get() & mValidBits); } //-------------------------------------------------- // member functions for the PCON base class //-------------------------------------------------- // PCON::PCON(Processor *pCpu, const char *pName, const char *pDesc, unsigned int bitMask) : sfr_register(pCpu, pName, pDesc) { valid_bits = bitMask; } void PCON::put(unsigned int new_value) { Dprintf((" value %x add %x\n", new_value, new_value&valid_bits)); trace.raw(write_trace.get() | value.get()); //trace.register_write(address,value.get()); value.put(new_value&valid_bits); } //------------------------------------------------ Indirect_Addressing14::Indirect_Addressing14(pic_processor *pCpu, const string &n) : fsrl(pCpu, (string("fsrl")+n).c_str(), "FSR Low", this), fsrh(pCpu, (string("fsrh")+n).c_str(), "FSR High", this), indf(pCpu, (string("indf")+n).c_str(), "Indirect Register", this) { current_cycle = (guint64)(-1); // Not zero! See bug #3311944 fsr_value = 0; fsr_state = 0; fsr_delta = 0; cpu = pCpu; } /* * put - Each of the indirect registers associated with this * indirect addressing class will call this routine to indirectly * write data. */ void Indirect_Addressing14::put(unsigned int new_value) { unsigned int fsr_adj = fsr_value + fsr_delta; if (fsr_adj < 0x1000) // Traditional Data Memory { if(is_indirect_register(fsr_adj)) return; cpu_pic->registers[fsr_adj]->put(new_value); } else if (fsr_adj >= 0x2000 && fsr_adj < 0x29b0) // Linear GPR region { unsigned int bank = (fsr_adj & 0xfff) / 0x50; unsigned int low_bits = ((fsr_adj & 0xfff) % 0x50) + 0x20; Dprintf(("fsr_adj %x bank %x low_bits %x add %x\n", fsr_adj, bank, low_bits, (bank*0x80 + low_bits))); cpu_pic->registers[bank * 0x80 + low_bits]->put(new_value); } else if (fsr_adj >= 0x8000 && fsr_adj <= 0xffff) // program memory { cout << "WARNING cannot write via FSR/INDF to program memory address 0x" <registers[fsr_adj]->get(); } else if (fsr_adj >= 0x2000 && fsr_adj < 0x29b0) // Linear GPR region { unsigned int bank = (fsr_adj & 0xfff) / 0x50; unsigned int low_bits = ((fsr_adj & 0xff) % 0x50) + 0x20; return(cpu_pic->registers[bank * 0x80 + low_bits]->get()); } else if (fsr_adj >= 0x8000 && fsr_adj <= 0xffff) // program memory { unsigned int pm; unsigned address = fsr_adj - 0x8000; if (address <= cpu_pic->program_memory_size()) { pm = cpu_pic->get_program_memory_at_address(address); Dprintf((" address %x max %x value %x\n",address, cpu_pic->program_memory_size(), pm)); return pm & 0xff; } } return 0; } /* * get - Each of the indirect registers associated with this * indirect addressing class will call this routine to indirectly * retrieve data. */ unsigned int Indirect_Addressing14::get_value() { unsigned int fsr_adj = fsr_value + fsr_delta; if (fsr_adj < 0x1000) // Traditional Data Memory { if(is_indirect_register(fsr_adj)) return 0; return cpu_pic->registers[fsr_adj]->get_value(); } else if (fsr_adj >= 0x2000 && fsr_adj < 0x29b0) // Linear GPR region { unsigned int bank = (fsr_adj & 0xfff) / 0x50; unsigned int low_bits = ((fsr_adj & 0xfff) % 0x50) + 0x20; return(cpu_pic->registers[bank * 0x80 + low_bits]->get_value()); } else if (fsr_adj >= 0x8000 && fsr_adj <= 0xffff) // program memory { unsigned int pm; unsigned address = fsr_adj - 0x8000; if (address <= cpu_pic->program_memory_size()) { pm = cpu_pic->get_program_memory_at_address(address); return pm & 0xff; } } return 0; } void Indirect_Addressing14::put_fsr(unsigned int new_fsr) { fsrl.put(new_fsr & 0xff); fsrh.put((new_fsr>>8) & 0xff); } /* * update_fsr_value - This routine is called by the FSRL and FSRH * classes. It's purpose is to update the 16-bit * address formed by the concatenation of FSRL and FSRH. * */ void Indirect_Addressing14::update_fsr_value() { if(current_cycle != get_cycles().get()) { fsr_value = (fsrh.value.get() << 8) | fsrl.value.get(); fsr_delta = 0; } } //-------------------------------------------------- // member functions for the FSR class //-------------------------------------------------- // FSRL14::FSRL14(Processor *pCpu, const char *pName, const char *pDesc, Indirect_Addressing14 *pIAM) : sfr_register(pCpu,pName,pDesc), iam(pIAM) { } void FSRL14::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value & 0xff); iam->fsr_delta = 0; iam->update_fsr_value(); } void FSRL14::put_value(unsigned int new_value) { value.put(new_value & 0xff); iam->fsr_delta = 0; iam->update_fsr_value(); update(); cpu14->indf->update(); } FSRH14::FSRH14(Processor *pCpu, const char *pName, const char *pDesc, Indirect_Addressing14 *pIAM) : sfr_register(pCpu,pName,pDesc), iam(pIAM) { } void FSRH14::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value & 0xff); iam->update_fsr_value(); } void FSRH14::put_value(unsigned int new_value) { value.put(new_value & 0xff); iam->update_fsr_value(); update(); cpu14->indf->update(); } // INDF14 used by 14bit enhanced indirect addressing INDF14::INDF14(Processor *pCpu, const char *pName, const char *pDesc, Indirect_Addressing14 *pIAM) : sfr_register(pCpu,pName,pDesc), iam(pIAM) { } void INDF14::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); if(iam->fsr_value & 0x8000) // extra cycle for program memory access get_cycles().increment(); iam->put(new_value); iam->fsr_delta = 0; } void INDF14::put_value(unsigned int new_value) { iam->put(new_value); iam->fsr_delta = 0; update(); } unsigned int INDF14::get() { unsigned int ret; Dprintf((" get val %x delta %x \n", iam->fsr_value, iam->fsr_delta)); trace.raw(read_trace.get() | value.get()); if(iam->fsr_value & 0x8000) get_cycles().increment(); ret = iam->get(); iam->fsr_delta = 0; return ret; } unsigned int INDF14::get_value() { return(iam->get_value()); } //-------------------------------------------------- Stack::Stack(Processor *pCpu) : cpu(pCpu) { stack_warnings_flag = 0; // Do not display over/under flow stack warnings break_on_overflow = 0; // Do not break if the stack over flows break_on_underflow = 0; // Do not break if the stack under flows stack_mask = 7; // Assume a 14 bit core. pointer = 0; for(int i=0; i<31; i++) contents[i] = 0; STVREN = 0; } // // Stack::push // // push the passed address onto the stack by storing it at the current // bool Stack::push(unsigned int address) { Dprintf(("pointer=%d address0x%x\n",pointer,address)); // Write the address at the current point location. Note that the '& stack_mask' // implicitly handles the stack wrap around. contents[pointer & stack_mask] = address; // If the stack pointer is too big, then the stack has definitely over flowed. // However, some pic programs take advantage of this 'feature', so provide a means // for them to ignore the warnings. if(pointer++ >= (int)stack_mask) { stack_overflow(); return false; } return true; } bool Stack::stack_overflow() { if(stack_warnings_flag || break_on_overflow) cout << "stack overflow "; if(break_on_overflow) bp.halt(); return true; } // // Stack::pop // unsigned int Stack::pop() { // First decrement the stack pointer. if(--pointer < 0) { stack_underflow(); return 0; } Dprintf(("pointer=%d address0x%x\n",pointer,contents[pointer & stack_mask])); return(contents[pointer & stack_mask]); } bool Stack::stack_underflow() { pointer = 0; if(stack_warnings_flag || break_on_underflow) cout << "stack underflow "; if(break_on_underflow) bp.halt(); return true; } // // bool Stack::set_break_on_overflow(bool clear_or_set) // // Set or clear the break on overflow flag bool Stack::set_break_on_overflow(bool clear_or_set) { if(break_on_overflow == clear_or_set) return 0; break_on_overflow = clear_or_set; return 1; } // // bool Stack::set_break_on_underflow(bool clear_or_set) // // Set or clear the break on underflow flag bool Stack::set_break_on_underflow(bool clear_or_set) { if(break_on_underflow == clear_or_set) return 0; break_on_underflow = clear_or_set; return 1; } // Read value at top of stack // unsigned int Stack::get_tos() { if (pointer > 0) return (contents[pointer-1]); else return (0); } // Modify value at top of stack; // void Stack::put_tos(unsigned int new_tos) { if (pointer > 0) contents[pointer-1] = new_tos; } // Stack14E for extended 14bit processors // This stack implementation differs from both the other 14bit // and 16bit stacks as a dummy empty location is used so a // stack with 16 slots can hold 16 values. The other implementaion // of the stack hold n-1 values for an n slot stack. // This stack also supports stkptr, tosl, and tosh like the 16bit // (p18) processors Stack14E::Stack14E(Processor *pCpu) : Stack(pCpu), stkptr(pCpu, "stkptr", "Stack pointer"), tosl(pCpu, "tosl", "Top of Stack low byte"), tosh(pCpu, "tosh", "Top of Stack high byte") { stkptr.stack = this; tosl.stack = this; tosh.stack = this; STVREN = 1; } Stack14E::~Stack14E() { pic_processor *pCpu = dynamic_cast(cpu); if (pCpu) { pCpu->remove_sfr_register(&stkptr); pCpu->remove_sfr_register(&tosl); pCpu->remove_sfr_register(&tosh); } } void Stack14E::reset(RESET_TYPE r) { pointer = NO_ENTRY; if (STVREN) contents[stack_mask] = 0; else contents[pointer-1] = contents[stack_mask]; Dprintf((" pointer %x\n", pointer)); stkptr.put(pointer-1); } bool Stack14E::push(unsigned int address) { Dprintf(("pointer=%d address 0x%x\n",pointer,address)); // Write the address at the current point location. Note that the '& stack_mask' // implicitly handles the stack wrap around. if(pointer == NO_ENTRY) pointer = 0; contents[pointer & stack_mask] = address; // If the stack pointer is too big, then the stack has definitely over flowed. // However, some pic programs take advantage of this 'feature', so provide a means // for them to ignore the warnings. if(pointer++ > (int)stack_mask) { return stack_overflow(); } stkptr.put(pointer-1); return true; } unsigned int Stack14E::pop() { unsigned int ret = 0; if (pointer == NO_ENTRY) { return stack_underflow(); } pointer--; ret = contents[pointer]; if (pointer <= 0) pointer = NO_ENTRY; stkptr.put(pointer-1); return(ret); } bool Stack14E::stack_overflow() { cpu14e->pcon.put(cpu14e->pcon.get() | PCON::STKOVF); if(STVREN) { cpu->reset(STKOVF_RESET); return false; } else { cout << "Stack overflow\n"; } return true; } bool Stack14E::stack_underflow() { Dprintf((" cpu %p STVREN %d\n", cpu, STVREN)); cpu14e->pcon.put(cpu14e->pcon.get() | PCON::STKUNF); if(STVREN) { cpu->reset(STKUNF_RESET); return false; } else { cout << "Stack underflow\n"; } return true; } //------------------------------------------------ // TOSL TOSL::TOSL(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc) {} unsigned int TOSL::get() { value.put(stack->get_tos() & 0xff); trace.raw(read_trace.get() | value.get()); return(value.get()); } unsigned int TOSL::get_value() { value.put(stack->get_tos() & 0xff); return(value.get()); } void TOSL::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); stack->put_tos( (stack->get_tos() & 0xffffff00) | (new_value & 0xff)); value.put(new_value & 0xff); } void TOSL::put_value(unsigned int new_value) { stack->put_tos( (stack->get_tos() & 0xffffff00) | (new_value & 0xff)); value.put(new_value & 0xff); update(); } //------------------------------------------------ // TOSH TOSH::TOSH(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc) {} unsigned int TOSH::get() { value.put((stack->get_tos() >> 8) & 0xff); trace.raw(read_trace.get() | value.get()); return(value.get()); } unsigned int TOSH::get_value() { value.put((stack->get_tos() >> 8) & 0xff); return(value.get()); } void TOSH::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); stack->put_tos( (stack->get_tos() & 0xffff00ff) | ( (new_value & 0xff) << 8)); value.put(new_value & 0xff); } void TOSH::put_value(unsigned int new_value) { stack->put_tos( (stack->get_tos() & 0xffff00ff) | ( (new_value & 0xff) << 8)); value.put(new_value & 0xff); update(); } STKPTR::STKPTR(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc) {} void STKPTR::put_value(unsigned int new_value) { stack->pointer = (new_value & 0x1f) + 1; value.put(new_value); update(); } void STKPTR::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); put_value(new_value); } //======================================================================== class WReadTraceObject : public RegisterReadTraceObject { public: WReadTraceObject(Processor *_cpu, RegisterValue trv); virtual void print(FILE *fp); }; class WWriteTraceObject : public RegisterWriteTraceObject { public: WWriteTraceObject(Processor *_cpu, RegisterValue trv); virtual void print(FILE *fp); }; class WTraceType : public ProcessorTraceType { public: WTraceType(Processor *_cpu, unsigned int s) : ProcessorTraceType(_cpu,s,"W reg") {} TraceObject *decode(unsigned int tbi); }; //======================================================================== WWriteTraceObject::WWriteTraceObject(Processor *_cpu, RegisterValue trv) : RegisterWriteTraceObject(_cpu,0,trv) { pic_processor *pcpu = dynamic_cast(cpu); if(pcpu) { to = cpu_pic->Wreg->trace_state; cpu_pic->Wreg->trace_state = from; } } void WWriteTraceObject::print(FILE *fp) { char sFrom[16]; char sTo[16]; fprintf(fp, " Wrote: 0x%s to W was 0x%s\n", to.toString(sTo,sizeof(sTo)), from.toString(sFrom,sizeof(sFrom))); } //======================================================================== WReadTraceObject::WReadTraceObject(Processor *_cpu, RegisterValue trv) : RegisterReadTraceObject(_cpu,0,trv) { pic_processor *pcpu = dynamic_cast(cpu); if(pcpu) { to = cpu_pic->Wreg->trace_state; cpu_pic->Wreg->trace_state = from; } } void WReadTraceObject::print(FILE *fp) { char sFrom[16]; fprintf(fp, " Read: 0x%s from W\n", from.toString(sFrom,sizeof(sFrom))); } //======================================================================== TraceObject * WTraceType::decode(unsigned int tbi) { unsigned int tv = trace.get(tbi); RegisterValue rv = RegisterValue(tv & 0xff,0); TraceObject *wto; if (tv & (1<<22)) wto = new WReadTraceObject(cpu, rv); else wto = new WWriteTraceObject(cpu, rv); return wto; } WREG::WREG(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc) { if(cpu) { unsigned int trace_command = trace.allocateTraceType(m_tt = new WTraceType(get_cpu(),1)); RegisterValue rv(trace_command+(0<<22), trace_command+(2<<22)); set_write_trace(rv); rv = RegisterValue(trace_command+(1<<22), trace_command+(3<<22)); set_read_trace (rv); } } WREG::~WREG() { delete m_tt; } void WPU::put(unsigned int new_value) { unsigned int masked_value = new_value & mValidBits; int i; trace.raw(write_trace.get() | value.get()); value.put(masked_value); for(i = 0; i < 8; i++) { if((1<getPin().update_pullup((((1<set_t0xcs(masked_value & T0XCS); calculate_freq(); } #define p_cpu ((Processor *)cpu) void CPSCON0::calculate_freq() { if (!(value.get() & CPSON)) // not active, return return; if (!pin[chan] || !pin[chan]->getPin().snode) { return; } double cap = pin[chan]->getPin().snode->Cth; double current = 0; double deltat; switch((value.get() & (CPSRNG0 | CPSRNG1)) >> 2) { case 1: current = (value.get() & CPSRM) ? 9e-6 : 0.1e-6; break; case 2: current = (value.get() & CPSRM) ? 30e-6 : 1.2e-6; break; case 3: current = (value.get() & CPSRM) ? 100e-6 : 18e-6; break; }; if (current < 1e-12) return; // deltat is the time required to charge the capacitance on the pin // from a constant current source for the specified voltage swing. // The voltage swing for the internal reference is not specified // and it is just a guess that it is Vdd - 2 diode drops. // // This implimentation does not work if capacitor oscillator // runs faster than Fosc/4 // if (value.get() & CPSRM) { deltat = (FVR_voltage - DAC_voltage)*cap/current; if (deltat <= 0.) { cout << "CPSCON FVR must be greater than DAC for high range to work\n"; return; } } else { deltat = (p_cpu->get_Vdd() - 1.2) * cap / current; } period = (p_cpu->get_frequency() * deltat + 2) / 4; if (period <= 0) { cout << "CPSCON Oscillator > Fosc/4, setting to Fosc/4\n"; period = 1; } guint64 fc = get_cycles().get() + period; if (future_cycle > get_cycles().get()) { get_cycles().reassign_break(future_cycle, fc, this); } else get_cycles().set_break(fc, this); future_cycle = fc; } void CPSCON0::callback() { Dprintf(("now=0x%"PRINTF_GINT64_MODIFIER"x\n",get_cycles().get())); if (!(value.get() & CPSON)) return; if (value.get() & CPSOUT) // High to low transition { value.put(value.get() & ~CPSOUT); if (m_tmr0 && (value.get() & T0XCS) && m_tmr0->get_t0se() && m_tmr0->get_t0cs()) { m_tmr0->increment(); } } else // Low to high transition { value.put(value.get() | CPSOUT); if (m_tmr0 && (value.get() & T0XCS) && !m_tmr0->get_t0se() && m_tmr0->get_t0cs()) { m_tmr0->increment(); } if (m_t1con_g) m_t1con_g->t1_cap_increment(); } calculate_freq(); } void CPSCON0::set_chan(unsigned int _chan) { if (_chan == chan) return; if (!pin[_chan]) { cout << "CPSCON Channel " << _chan << " reserved\n"; return; } if (!pin[_chan]->getPin().snode) { cout << "CPSCON Channel " << pin[_chan]->getPin().name() << " requires a node attached\n"; chan = _chan; return; } if (!cps_stimulus) cps_stimulus = new CPS_stimulus(this, "cps_stimulus"); else if (pin[_chan]->getPin().snode) { (pin[_chan]->getPin().snode)->detach_stimulus(cps_stimulus); } chan = _chan; (pin[_chan]->getPin().snode)->attach_stimulus(cps_stimulus); calculate_freq(); } void CPSCON0::set_DAC_volt(double volt) { DAC_voltage = volt; if ((value.get() & (CPSON|CPSRM)) == (CPSON|CPSRM)) calculate_freq(); } void CPSCON0::set_FVR_volt(double volt) { FVR_voltage = volt; if ((value.get() & (CPSON|CPSRM)) == (CPSON|CPSRM)) calculate_freq(); } CPS_stimulus::CPS_stimulus(CPSCON0 * arg, const char *cPname,double _Vth, double _Zth) : stimulus(cPname, _Vth, _Zth) { m_cpscon0 = arg; } // Thisvis also called when the capacitance chages, // not just when the voltage changes void CPS_stimulus::set_nodeVoltage(double v) { Dprintf(("set_nodeVoltage =%.1f\n", v)); nodeVoltage = v;; m_cpscon0->calculate_freq(); } void CPSCON1::put(unsigned int new_value) { unsigned int masked_value = new_value & mValidBits; trace.raw(write_trace.get() | value.get()); value.put(masked_value); assert(m_cpscon0); m_cpscon0->set_chan(masked_value); } SRCON0::SRCON0(Processor *pCpu, const char *pName, const char *pDesc, SR_MODULE *_sr_module) : sfr_register(pCpu, pName, pDesc), m_sr_module(_sr_module) { } void SRCON0::put(unsigned int new_value) { unsigned int diff = new_value ^ value.get(); if (!diff) return; trace.raw(write_trace.get() | value.get()); value.put(new_value & ~(SRPR|SRPS)); // SRPR AND SRPS not saved if ((diff & SRPS) && (new_value & SRPS)) m_sr_module->pulse_set(); if ((diff & SRPR) && (new_value & SRPR)) m_sr_module->pulse_reset(); if (diff & CLKMASK) m_sr_module->clock_diff((new_value & CLKMASK) >> CLKSHIFT); if (diff & (SRQEN | SRLEN)) m_sr_module->Qoutput(); if (diff & (SRNQEN | SRLEN)) m_sr_module->NQoutput(); m_sr_module->update(); } SRCON1::SRCON1(Processor *pCpu, const char *pName, const char *pDesc, SR_MODULE *_sr_module) : sfr_register(pCpu, pName, pDesc), m_sr_module(_sr_module), mValidBits(0xdd) { } void SRCON1::put(unsigned int new_value) { unsigned int masked_value = new_value & mValidBits; unsigned int diff = masked_value ^ value.get(); trace.raw(write_trace.get() | value.get()); value.put(masked_value); if (!diff) return; if (diff & (SRRCKE | SRSCKE)) { if (!(new_value & (SRRCKE | SRSCKE))) // all clocks off m_sr_module->clock_disable(); // turn off clock else m_sr_module->clock_enable(); // turn on clock } m_sr_module->update(); } class SRinSink : public SignalSink { public: SRinSink(SR_MODULE *_sr_module) : sr_module(_sr_module) {} virtual void setSinkState(char new3State) { sr_module->setState(new3State); } virtual void release() { delete this; } private: SR_MODULE *sr_module; }; SR_MODULE::SR_MODULE(Processor *_cpu) : srcon0(_cpu, "srcon0", "SR Latch Control 0 Register", this), srcon1(_cpu, "srcon1", "SR Latch Control 1 Register", this), cpu(_cpu), future_cycle(0), state_set(false), state_reset(false), state_Q(false), srclk(0), syncc1out(false), syncc2out(false), SRI_pin(0), SRQ_pin(0), SRNQ_pin(0), m_SRinSink(0), m_SRQsource(0), m_SRNQsource(0) { } SR_MODULE::~SR_MODULE() { if ( m_SRQsource) delete m_SRQsource; if ( m_SRNQsource) delete m_SRNQsource; } // determine output state of RS flip-flop // If both state_set and state_reset are true, Q output is 0 // SPR[SP] and clocked inputs maybe set outside the update // function prior to its call. void SR_MODULE::update() { if ((srcon1.value.get() & SRCON1::SRSC1E) && syncc1out) state_set = true; if ((srcon1.value.get() & SRCON1::SRSC2E) && syncc2out) state_set = true; if ((srcon1.value.get() & SRCON1::SRSPE) && SRI_pin->getPin().getState()) state_set = true; if ((srcon1.value.get() & SRCON1::SRRC1E) && syncc1out) state_reset = true; if ((srcon1.value.get() & SRCON1::SRRC2E) && syncc2out) state_reset = true; if ((srcon1.value.get() & SRCON1::SRRPE) && SRI_pin->getPin().getState()) state_reset = true; if (state_set) state_Q = true; // reset overrides a set if (state_reset) state_Q = false; state_set = state_reset = false; if (!(srcon0.value.get() & SRCON0::SRLEN)) return; if ((srcon0.value.get() & SRCON0::SRQEN)) m_SRQsource->putState(state_Q ? '1' : '0'); if ((srcon0.value.get() & SRCON0::SRNQEN)) m_SRNQsource->putState(!state_Q ? '1' : '0'); } // Stop clock if currently running void SR_MODULE::clock_disable() { if (future_cycle> get_cycles().get()) { get_cycles().clear_break(this); future_cycle = 0; } future_cycle = 0; } // Start clock if not running // As break works on instruction cycles, clock runs every 1-128 // instructions which is 1 << srclk // void SR_MODULE::clock_enable() { if (!future_cycle) { future_cycle = get_cycles().get() + (1 << srclk); get_cycles().set_break(future_cycle, this); } } // Called for clock rate change void SR_MODULE::clock_diff(unsigned int _srclk) { srclk = _srclk; clock_disable(); if (srcon1.value.get() & (SRCON1::SRSCKE | SRCON1::SRRCKE)) { clock_enable(); } } void SR_MODULE::callback() { bool active = false; if (srcon1.value.get() & (SRCON1::SRSCKE)) //Set clock enabled { active = true; pulse_set(); } if (srcon1.value.get() & (SRCON1::SRRCKE)) //Reset clock enabled { active = true; pulse_reset(); } if (active) { future_cycle = 0; clock_enable(); } update(); } void SR_MODULE::setPins(PinModule *sri, PinModule *srq, PinModule *srnq) { if(!SRI_pin) { m_SRinSink = new SRinSink(this); sri->addSink(m_SRinSink); } else if (SRI_pin != sri) { SRI_pin->removeSink(m_SRinSink); sri->addSink(m_SRinSink); } SRI_pin = sri; SRQ_pin = srq; SRNQ_pin = srnq; } // If pin chnages and we are looking at it, call update void SR_MODULE::setState(char IOin) { if (srcon1.value.get() & (SRCON1::SRSPE | SRCON1::SRRPE)) update(); } void SR_MODULE::syncC1out(bool val) { if (syncc1out != val) { syncc1out = val; if (srcon1.value.get() & (SRCON1::SRSC1E | SRCON1::SRRC1E)) { update(); } } } void SR_MODULE::syncC2out(bool val) { if (syncc2out != val) { syncc2out = val; if (srcon1.value.get() & (SRCON1::SRSC2E | SRCON1::SRRC2E)) { update(); } } } // Setup or tear down RSQ output pin // This is only call if SRLEN OR SRQEN has changed void SR_MODULE::Qoutput() { if ((srcon0.value.get() & (SRCON0::SRLEN | SRCON0::SRQEN)) == (SRCON0::SRLEN | SRCON0::SRQEN)) { if (!m_SRQsource) m_SRQsource = new PeripheralSignalSource(SRQ_pin); SRQ_pin->setSource(m_SRQsource); SRQ_pin->getPin().newGUIname("SRQ"); } else { SRQ_pin->setSource(0); if (strcmp("SRQ", SRQ_pin->getPin().GUIname().c_str()) == 0) { SRQ_pin->getPin().newGUIname(SRQ_pin->getPin().name().c_str()); } } } // Setup or tear down RSNQ output pin // This is only call if SRLEN OR SRNQEN has changed void SR_MODULE::NQoutput() { if ((srcon0.value.get() & (SRCON0::SRLEN | SRCON0::SRNQEN)) == (SRCON0::SRLEN | SRCON0::SRNQEN)) { if (!m_SRNQsource) m_SRNQsource = new PeripheralSignalSource(SRNQ_pin); SRNQ_pin->setSource(m_SRNQsource); SRNQ_pin->getPin().newGUIname("SRNQ"); } else { SRNQ_pin->setSource(0); if (strcmp("SRNQ", SRNQ_pin->getPin().GUIname().c_str()) == 0) { SRNQ_pin->getPin().newGUIname(SRNQ_pin->getPin().name().c_str()); } } } gpsim-0.27.0/src/p16f62x.cc0000664000076400007640000002661512175377101012102 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ // // p16f62x // // This file supports: // PIC16F627 // PIC16F628 // PIC16F648 // #include #include #include //#include "../config.h" #include "stimuli.h" #include "p16f62x.h" #include "pic-ioports.h" #include "packages.h" #include "symbol.h" P16F62x::P16F62x(const char *_name, const char *desc) : P16X6X_processor(_name,desc), usart(this), comparator(this) { } P16F62x::~P16F62x() { delete_file_registers(0xc0, 0xef); delete_file_registers(0x120,0x14f); remove_sfr_register(&usart.rcsta); remove_sfr_register(&usart.txsta); remove_sfr_register(&usart.spbrg); remove_sfr_register(&comparator.cmcon); remove_sfr_register(&comparator.vrcon); delete_sfr_register(usart.txreg); delete_sfr_register(usart.rcreg); delete eeprom; eeprom = 0; } void P16F62x::create_iopin_map() { package = new Package(18); if(!package) return; // Now Create the package and place the I/O pins package->assign_pin(17, m_porta->addPin(new IO_bi_directional("porta0"),0)); package->assign_pin(18, m_porta->addPin(new IO_bi_directional("porta1"),1)); package->assign_pin( 1, m_porta->addPin(new IO_bi_directional("porta2"),2)); package->assign_pin( 2, m_porta->addPin(new IO_bi_directional("porta3"),3)); package->assign_pin( 3, m_porta->addPin(new IO_open_collector("porta4"),4)); package->assign_pin( 4, m_porta->addPin(new IO_bi_directional("porta5"),5)); package->assign_pin(15, m_porta->addPin(new IO_bi_directional("porta6"),6)); package->assign_pin(16, m_porta->addPin(new IO_bi_directional("porta7"),7)); package->assign_pin(5, 0); // Vss package->assign_pin( 6, m_portb->addPin(new IO_bi_directional_pu("portb0"),0)); package->assign_pin( 7, m_portb->addPin(new IO_bi_directional_pu("portb1"),1)); package->assign_pin( 8, m_portb->addPin(new IO_bi_directional_pu("portb2"),2)); package->assign_pin( 9, m_portb->addPin(new IO_bi_directional_pu("portb3"),3)); package->assign_pin(10, m_portb->addPin(new IO_bi_directional_pu("portb4"),4)); package->assign_pin(11, m_portb->addPin(new IO_bi_directional_pu("portb5"),5)); package->assign_pin(12, m_portb->addPin(new IO_bi_directional_pu("portb6"),6)); package->assign_pin(13, m_portb->addPin(new IO_bi_directional_pu("portb7"),7)); package->assign_pin(14, 0); // Vdd } void P16F62x::create_sfr_map() { add_file_registers(0xc0, 0xef, 0); // 0xa0 - 0xbf are created in the P16X6X_processor class add_file_registers(0x120,0x14f,0); alias_file_registers(0x70,0x7f,0x80); alias_file_registers(0x70,0x7f,0x100); alias_file_registers(0x70,0x7f,0x180); alias_file_registers(0x0,0x0,0x100); // INDF exists in all four pages, 16x6x did the first two alias_file_registers(0x0,0x0,0x180); alias_file_registers(0x01,0x04,0x100); alias_file_registers(0x81,0x84,0x100); remove_sfr_register(m_trisa); add_sfr_register(m_trisa, 0x85, RegisterValue(0xff,0)); alias_file_registers(0x06,0x06,0x100); alias_file_registers(0x86,0x86,0x100); add_sfr_register(get_eeprom()->get_reg_eedata(), 0x9a); add_sfr_register(get_eeprom()->get_reg_eeadr(), 0x9b); add_sfr_register(get_eeprom()->get_reg_eecon1(), 0x9c, RegisterValue(0,0)); add_sfr_register(get_eeprom()->get_reg_eecon2(), 0x9d); // PCLATH alias_file_registers(0x0a,0x0a,0x100); alias_file_registers(0x0a,0x0a,0x180); alias_file_registers(0x0b,0x0b,0x100); alias_file_registers(0x0b,0x0b,0x180); usart.initialize(pir1,&(*m_portb)[2], &(*m_portb)[1], new _TXREG(this,"txreg", "USART Transmit Register", &usart), new _RCREG(this,"rcreg", "USART Receiver Register", &usart)); add_sfr_register(&usart.rcsta, 0x18, RegisterValue(0,0),"rcsta"); add_sfr_register(&usart.txsta, 0x98, RegisterValue(2,0),"txsta"); add_sfr_register(&usart.spbrg, 0x99, RegisterValue(0,0),"spbrg"); add_sfr_register(usart.txreg, 0x19, RegisterValue(0,0),"txreg"); add_sfr_register(usart.rcreg, 0x1a, RegisterValue(0,0),"rcreg"); intcon = &intcon_reg; intcon_reg.set_pir_set(get_pir_set()); // Link the comparator and voltage ref to porta comparator.initialize(get_pir_set(), &(*m_porta)[2], &(*m_porta)[0], &(*m_porta)[1], &(*m_porta)[2], &(*m_porta)[3], &(*m_porta)[3], &(*m_porta)[4]); comparator.cmcon.set_configuration(1, 0, AN0, AN3, AN0, AN3, ZERO); comparator.cmcon.set_configuration(2, 0, AN1, AN2, AN1, AN2, ZERO); comparator.cmcon.set_configuration(1, 1, AN0, AN2, AN3, AN2, NO_OUT); comparator.cmcon.set_configuration(2, 1, AN1, AN2, AN1, AN2, NO_OUT); comparator.cmcon.set_configuration(1, 2, AN0, VREF, AN3, VREF, NO_OUT); comparator.cmcon.set_configuration(2, 2, AN1, VREF, AN2, VREF, NO_OUT); comparator.cmcon.set_configuration(1, 3, AN0, AN2, AN0, AN2, NO_OUT); comparator.cmcon.set_configuration(2, 3, AN1, AN2, AN1, AN3, NO_OUT); comparator.cmcon.set_configuration(1, 4, AN0, AN3, AN0, AN3, NO_OUT); comparator.cmcon.set_configuration(2, 4, AN1, AN2, AN1, AN2, NO_OUT); comparator.cmcon.set_configuration(1, 5, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 5, AN1, AN2, AN1, AN2, NO_OUT); comparator.cmcon.set_configuration(1, 6, AN0, AN2, AN0, AN2, OUT0); comparator.cmcon.set_configuration(2, 6, AN1, AN2, AN1, AN2, OUT1); comparator.cmcon.set_configuration(1, 7, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 7, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); add_sfr_register(&comparator.cmcon, 0x1f, RegisterValue(0,0),"cmcon"); add_sfr_register(&comparator.vrcon, 0x9f, RegisterValue(0,0),"vrcon"); comparator.cmcon.put(0); // Link ccp1 onto portb ccp1con.setIOpin(&((*m_portb)[3])); } void P16F62x::create_symbols() { if(verbose) cout << "62x create symbols\n"; Pic14Bit::create_symbols(); } void P16F62x::set_out_of_range_pm(unsigned int address, unsigned int value) { if( (address>= 0x2100) && (address < 0x2100 + get_eeprom()->get_rom_size())) { get_eeprom()->change_rom(address - 0x2100, value); } } //======================================================================== bool P16F62x::set_config_word(unsigned int address, unsigned int cfg_word) { enum { CFG_FOSC0 = 1<<0, CFG_FOSC1 = 1<<1, CFG_FOSC2 = 1<<4, CFG_MCLRE = 1<<5 }; // Let the base class do most of the work: if (pic_processor::set_config_word(address, cfg_word)) { if (verbose) cout << "p16f628 setting config word 0x" << hex << cfg_word << '\n'; unsigned int valid_pins = m_porta->getEnableMask(); set_int_osc(false); // Careful these bits not adjacent switch(cfg_word & (CFG_FOSC0 | CFG_FOSC1 | CFG_FOSC2)) { case 0: // LP oscillator: low power crystal is on RA6 and RA7 case 1: // XT oscillator: crystal/resonator is on RA6 and RA7 case 2: // HS oscillator: crystal/resonator is on RA6 and RA7 (m_porta->getPin(6))->newGUIname("OSC2"); (m_porta->getPin(7))->newGUIname("OSC1"); break; case 0x13: // ER oscillator: RA6 is CLKOUT, resistor (?) on RA7 (m_porta->getPin(6))->newGUIname("CLKOUT"); (m_porta->getPin(7))->newGUIname("OSC1"); break; case 3: // EC: RA6 is an I/O, RA7 is a CLKIN case 0x12: // ER oscillator: RA6 is an I/O, RA7 is a CLKIN (m_porta->getPin(7))->newGUIname("CLKIN"); valid_pins = (valid_pins & 0x7f)|0x40; break; case 0x10: // INTRC: Internal Oscillator, RA6 and RA7 are I/O's set_int_osc(true); (m_porta->getPin(6))->newGUIname("porta6"); (m_porta->getPin(7))->newGUIname("porta7"); valid_pins |= 0xc0; break; case 0x11: // INTRC: Internal Oscillator, RA7 is an I/O, RA6 is CLKOUT set_int_osc(true); (m_porta->getPin(6))->newGUIname("CLKOUT"); (m_porta->getPin(7))->newGUIname("porta7"); valid_pins = (valid_pins & 0xbf)|0x80; break; } // If the /MCLRE bit is set then RA5 is the MCLR pin, otherwise it's // a general purpose I/O pin. if (! (cfg_word & CFG_MCLRE)) { unassignMCLRPin(); valid_pins |= ( 1<< 5); // porta5 IO port } else { assignMCLRPin(4); // pin 4 } //cout << " porta valid_iopins " << porta->valid_iopins << // " tris valid io " << trisa.valid_iopins << '\n'; if (valid_pins != m_porta->getEnableMask()) // enable new pins for IO { m_porta->setEnableMask(valid_pins); m_porta->setTris(m_trisa); } return true; } return false; } //======================================================================== void P16F62x::create(int ram_top, unsigned int eeprom_size) { EEPROM_PIR *e; create_iopin_map(); _14bit_processor::create(); e = new EEPROM_PIR(this,pir1); e->initialize(eeprom_size); //e->set_pir_set(get_pir_set()); e->set_intcon(&intcon_reg); // assign this eeprom to the processor set_eeprom_pir(e); P16X6X_processor::create_sfr_map(); status->rp_mask = 0x60; // rp0 and rp1 are valid. indf->base_address_mask1 = 0x80; // used for indirect accesses above 0x100 indf->base_address_mask2 = 0x1ff; // used for indirect accesses above 0x100 P16F62x::create_sfr_map(); // Build the links between the I/O Pins and the internal peripherals //1ccp1con.iopin = portb->pins[3]; } //======================================================================== // // Pic 16F627 // Processor * P16F627::construct(const char *name) { P16F627 *p = new P16F627(name); p->P16F62x::create(0x2f, 128); p->create_invalid_registers (); p->create_symbols(); return p; } P16F627::P16F627(const char *_name, const char *desc) : P16F62x(_name,desc) { if(verbose) cout << "f627 constructor, type = " << isa() << '\n'; } //======================================================================== // // Pic 16F628 // Processor * P16F628::construct(const char *name) { P16F628 *p = new P16F628(name); p->P16F62x::create(0x2f, 128); p->create_invalid_registers (); p->create_symbols(); return p; } P16F628::P16F628(const char *_name, const char *desc) : P16F627(_name,desc) { if(verbose) cout << "f628 constructor, type = " << isa() << '\n'; } P16F628::~P16F628() { if (verbose) cout << "'628 destructor\n"; } //======================================================================== // // Pic 16F648 // Processor * P16F648::construct(const char *name) { P16F648 *p = new P16F648(name); p->P16F62x::create(0x2f, 256); p->create_sfr_map(); p->create_invalid_registers (); p->create_symbols(); return p; } P16F648::P16F648(const char *_name, const char *desc) : P16F628(_name,desc) { if(verbose) cout << "f648 constructor, type = " << isa() << '\n'; } P16F648::~P16F648() { delete_file_registers(0x150,0x16f); } void P16F648::create_sfr_map() { add_file_registers(0x150,0x16f,0); } gpsim-0.27.0/src/trace.cc0000664000076400007640000014752512175377101012070 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include #include #include "../config.h" #include "pic-processor.h" #include "14bit-processors.h" #include "trace.h" #include "trace_orb.h" #include "xref.h" #define NEWTRACE //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("%s:%d-%s() ",__FILE__,__LINE__,__FUNCTION__); printf arg; } #else #define Dprintf(arg) {} #endif #define MODE "0x" << hex Trace trace; /* Instantiate the trace buffer class. * This is where *everything* including the * kitchen sink gets stored in a trace buffer. * Since everything is stored here, it gets * rather difficult to post process traced info * efficiently. So this buffer is primarily used * to record program flow that the user may post * analyze by dumping its contents. */ // create an instance of inline get_trace() method by taking its address Trace &(*dummy_trace)() = get_trace; TraceLog trace_log; ProfileKeeper profile_keeper; #if defined(_WIN32) TraceLog &GetTraceLog() { return trace_log; } #endif //======================================================================== traceValue::traceValue() { } unsigned int traceValue::get_value() { return trace.trace_index; } /**************************************************************************** * * gpsim Trace * General: gpsim traces almost everything simulated: instructions executed, register reads/writes, clock cycles, special register accesses break points, instruction skips, external modules, and a few other miscellaneous things. The tracing subsystem is implemented as a C++ class. In theory, multiple traces could be instantiated, but (currently) there is one global trace instantiated and all the pieces of gpsim make direct references to it. How can gpsim trace every thing and still be the fastest microcontroller simulator? Well, gpsim writes trace information into a giant circular buffer. So one optimization is that there are no array bounds to check. Another optimization is that most of the trace operations are C++ inline functions. A third optimization is that the trace operations are efficiently encoded into 32-bit words. The one exception is the cycle counter trace, it takes two 32-bit words (see the cycle counter trace comment below). The upper 8-bits of the trace word are reserved for describing the trace type. The upper two bits of these 8-bits are reservered for encoding the cycle counter. The lower 6-bits allow 64 enumerated types to be encoded. Only a small portion of these are currently used. The lower 24-bits of the 32-bit trace word store the information we wish to trace. For example, for register reads and writes, there are 8-bits of data and (upto) 16-bits of address. Details Each trace takes exactly one 32-bit word. The upper 8-bits define the trace type and the lower 24 are the trace value. For example, a register write will get traced with a 32 bit encoded like: TTAAAAVV TT - Register write trace type AAAA - 4-hexdigit address VV - 2-hexdigit (8-bit) value The cycle counter is treated slightly differently. Since it is a 64-bit object, it has to be split across at least two trace entries. The upper few bits of the cycle counter aren't traced. (This is a bug for simulations that run for several centuries!) The trace member function is_cycle_trace() describes the cycle counter encoding in detail. Trace Types. gpsim differentiates individually traced items by the TT field (upper 8 bits of the 32-bit trace word). Except for the cycle counter trace, these trace types are dynamically allocated whenever a TraceType class is instantiated. As described above, the other gpsim classes use this dynamically allocated 32-bit trace word as a handle for efficiently storing information into the trace buffer. In addition to allocating the 32-bit word for tracing, the TraceType class will use it as a hash index into the 'trace_map'. The trace_map is a locally (to trace.cc) instantiated STL map that cross references the 32-bit trace types to the instantiated TraceType class that create them. When the trace buffer is decoded, the trace type (upper 8-bits) of the 32-bit trace word is extracted and used to look up the TraceType object in the trace_map map. The lower 24-bits of the trace word are then passed to the TraceType object's decode() method. Continuing with the example from above, TTAAAAVV TT - Used to look up the TraceType object in the trace_map AAAAVV - Passed to the decode() method of the object. The TraceType decode() method will usually create a TraceObject and place it on a TraceFrame. Trace Frames and Trace Objects A trace frame is defined to be the decoded contents of the trace buffer corresponding to a single time quantum (i.e. single simulation cycle). Each frame has an STL list to hold the TraceObjects. The TraceObjects are created by the TraceType classes. This happens when the 32-bit trace word is decoded by the TraceType class. The TraceObject has several purposes. First, unique TraceObjects are created for the variety of things gpsim traces. For example, when the simulated processor writes to a register, a corresponding RegisterWriteTraceObject will get created when the trace buffer is decoded. Another purpose of the TraceObject is to record the system state. Take for example the register write trace. When a register write occurs, the register has a value before the write and a value after the write. When the register write is traced, only the value *before* the write is recorded. When the trace buffer is decoded, the simulation is effectively run backwards. The current state is known before trace decoding commences. Then as the decoding steps backwards through the trace history, the state change at each trace event is recorded in the trace object. So the register write trace event gets decoded into a TraceObject. This trace object knows the current state of the register; that's simply the register's current contents. The trace object knows the contents of the register prior to the register write operation; that's stored in the trace buffer. ****************************************************************************/ /* Trace Logging gpsim supports two modes of trace logging. The first mode is the "log all" mode. In this mode, the entire trace buffer is periodically written to a file. The second mode is a "log selective". In this mode individual trace operations are written to a file. */ TraceRawLog::TraceRawLog() { log_filename = 0; log_file = 0; } TraceRawLog::~TraceRawLog() { if(log_file) { log(); fclose(log_file); } } void TraceRawLog::log() { if(log_file) { unsigned int i; for(i=0; isave_state(log_file); if(log_filename) { free(log_filename); log_filename = 0; } if (log_file != NULL) fclose(log_file); log_file = NULL; cout << "Trace logging disabled\n"; trace.bLogging = false; } //======================================================================== // TraceFrame // // A TraceFrame is a collection of traced items that belong to a single // simulation cycle. The TraceFrame is only built up whenever the user // requests trace history. Each frame contains a list of traceObjects // that describe the specific information that the simulation has traced. TraceFrame::TraceFrame( ) { cycle_time = 0; } TraceFrame::~TraceFrame() { list :: iterator toIter; toIter = traceObjects.begin(); while(toIter != traceObjects.end()) { delete *toIter; ++toIter; } } void TraceFrame::add(TraceObject *to) { traceObjects.push_back(to); } void TraceFrame::print(FILE *fp) { list :: iterator toIter; for(toIter = traceObjects.begin(); toIter != traceObjects.end(); ++toIter) (*toIter)->print_frame(this,fp); } void TraceFrame::update_state() { list :: iterator toIter; for(toIter = traceObjects.begin(); toIter != traceObjects.end(); ++toIter) (*toIter)->getState(this); } //============================================================ // Trace::addFrame // // The Trace class maintains a list of traceFrames. Here is where // a new one gets added. Note that traceFrames are created only // when a user requests to see the trace history. void Trace::addFrame(TraceFrame *newFrame) { current_frame = newFrame; traceFrames.push_back(newFrame); } void Trace::addToCurrentFrame(TraceObject *to) { if(current_frame) current_frame->add(to); else delete to; } void Trace::deleteTraceFrame() { if (!current_frame) return; list :: iterator tfIter; list :: reverse_iterator toIter; for(tfIter = traceFrames.begin(); tfIter != traceFrames.end(); ++tfIter) { TraceFrame *tf = *tfIter; delete tf; } traceFrames.clear(); current_frame = 0; current_cycle_time = 0; } void Trace::printTraceFrame(FILE *fp) { list :: reverse_iterator tfIter; for(tfIter = traceFrames.rbegin(); tfIter != traceFrames.rend(); ++tfIter) { (*tfIter)->print(fp); } } //======================================================================== // TraceObject // // A TraceObject is a base class for decoded traces. TraceObjects are only // created when the user requests to see the TraceHistory. // TraceObject::TraceObject() { } void TraceObject::print_frame(TraceFrame *tf,FILE *fp) { // by default, a trace object doesn't know how to print a frame // special trace objects derived from this class will be designated // printers. } void TraceObject::getState(TraceFrame *tf) { // Provide an opportunity for derived classes to copy specific state // information to the TraceFrame. } //======================================================================== // InvalidTraceObject // InvalidTraceObject::InvalidTraceObject(int type) : mType(type) { } void InvalidTraceObject::print(FILE *fp) { fprintf(fp, " Invalid Trace entry: 0x%x\n",mType); } //======================================================================== // ModuleTraceObject void ModuleTraceObject::print(FILE *fp) { fprintf(fp, " Module Trace: "); if (pModule) fprintf(fp, "%s ", pModule->name().c_str()); if (pModuleTraceType && pModuleTraceType->cpDescription()) fprintf(fp, "%s ", pModuleTraceType->cpDescription()); fprintf (fp, "0x%x\n", mTracedData & 0xffffff); } //======================================================================== // RegisterTraceObject // RegisterWriteTraceObject::RegisterWriteTraceObject(Processor *_cpu, Register *_reg, RegisterValue trv) : ProcessorTraceObject(_cpu), reg(_reg), from(trv) { if(reg) { to = reg->get_trace_state(); reg->put_trace_state(from); } } void RegisterWriteTraceObject::getState(TraceFrame *tf) { } void RegisterWriteTraceObject::print(FILE *fp) { char sFrom[16]; char sTo[16]; if(reg) fprintf(fp, " Wrote: 0x%s to %s(0x%04X) was 0x%s\n", to.toString(sTo,sizeof(sTo)), reg->name().c_str(), reg->address, from.toString(sFrom,sizeof(sFrom))); } RegisterReadTraceObject::RegisterReadTraceObject(Processor *_cpu, Register *_reg, RegisterValue trv) : RegisterWriteTraceObject(_cpu, _reg, trv) { if(reg) { reg->put_trace_state(from); } } void RegisterReadTraceObject::print(FILE *fp) { char sFrom[16]; if(reg) fprintf(fp, " Read: 0x%s from %s(0x%04X)\n", from.toString(sFrom,sizeof(sFrom)), reg->name().c_str(), reg->address); } void RegisterReadTraceObject::getState(TraceFrame *tf) { } //======================================================================== PCTraceObject::PCTraceObject(Processor *_cpu, unsigned int _address) : ProcessorTraceObject(_cpu), address(_address) { } void PCTraceObject::print(FILE *fp) { char a_string[200]; unsigned addr = cpu->map_pm_index2address(address &0xffff); fprintf(fp,"0x%04X 0x%04X %s\n", addr, (cpu->pma->getFromAddress(addr))->get_opcode(), (cpu->pma->getFromAddress(addr))->name(a_string,sizeof(a_string))); instruction * pInstr = cpu->pma->getFromAddress(addr); int srcLine = pInstr->get_src_line(); if (srcLine >=0) fprintf(fp,"%d: %s", srcLine, cpu->files.ReadLine(pInstr->get_file_id(), pInstr->get_src_line(), a_string,sizeof(a_string))); } void PCTraceObject::print_frame(TraceFrame *tf,FILE *fp) { if(!tf) return; list :: reverse_iterator toIter; fprintf(fp,"0x%016" PRINTF_GINT64_MODIFIER "X %s ", tf->cycle_time,cpu->name().c_str()); print(fp); for(toIter = tf->traceObjects.rbegin(); toIter != tf->traceObjects.rend(); ++toIter) if(*toIter != this) (*toIter)->print(fp); } //======================================================================== // Trace Type for Resets //------------------------------------------------------------------------ const char * resetName(RESET_TYPE r) { switch (r) { case POR_RESET: return "POR_RESET"; case WDT_RESET: return "WDT_RESET"; case IO_RESET: return "IO_RESET"; case MCLR_RESET: return "MCLR_RESET"; case SOFT_RESET: return "SOFT_RESET"; case BOD_RESET: return "BOD_RESET"; case SIM_RESET: return "SIM_RESET"; case EXIT_RESET: return "EXIT_RESET"; case STKUNF_RESET: return "STKUNF_RESET"; case STKOVF_RESET: return "STKOVF_RESET"; case OTHER_RESET: return "OTHER_RESET"; } return "unknown reset"; } //------------------------------------------------------------ ResetTraceObject::ResetTraceObject(Processor *_cpu, RESET_TYPE r) : ProcessorTraceObject(_cpu), m_reset(r) { } void ResetTraceObject::print(FILE *fp) { fprintf(fp, " Reset: %s\n", resetName(m_reset)); } //======================================================================== TraceType::TraceType(unsigned int nTraceEntries, const char *desc) : mType(0), mSize(nTraceEntries), mpDescription(desc) { } void TraceType::showInfo() { cout << cpDescription() << endl; cout << " Type: 0x" << hex << mType << endl << " Size: " << mSize << endl; } const char *TraceType::cpDescription() { return mpDescription ? mpDescription : "No Description"; } //---------------------------------------- // // isValid // // If the trace record starting at the trace buffer index 'tbi' is of the // same type as this trace object, then return true. // bool TraceType::isValid(Trace *pTrace, unsigned int tbi) { if (!pTrace) return false; unsigned int i; // The upper 8-bits of the 'type' specify the trace type for this object. // This is assigned whenever Trace::allocateTraceType() is called. Multi- // sized trace records occupy consecutive types. for(i=0; itype(tbi + i) != (type() + (i<<24))) if(!isValid(pTrace->get(tbi+i))) return false; } return true; } int TraceType::dump_raw(Trace *pTrace,unsigned int tbi, char *buf, int bufsize) { if (!pTrace || !buf) return 0; int total_chars=0; int iUsed = entriesUsed(pTrace,tbi); for(int i = 0; i < iUsed; i++) { int n = snprintf(buf,bufsize," %08X:", pTrace->get(tbi+i)); if(n < 0) break; total_chars += n; buf += n; bufsize -= n; } return total_chars; } //============================================================ // // entriesUsed // // given a trace buffer and an index into it, return the number // of trace buffer entries at that point that match the type of // this trace. int TraceType::entriesUsed(Trace *pTrace,unsigned int tbi) { int iUsed=0; if (pTrace) while (pTrace->type(tbi+iUsed) == (mType + (iUsed<<24))) iUsed++; return iUsed; } //======================================================================== ModuleTraceType::ModuleTraceType(Module *_pModule, unsigned int nTraceEntries, const char *desc) : TraceType(nTraceEntries,desc), pModule(_pModule) { } TraceObject *ModuleTraceType::decode(unsigned int tbi) { ModuleTraceObject *mto = new ModuleTraceObject(pModule, this, trace.get(tbi)&0xffffff); return mto; } int ModuleTraceType::dump_raw(Trace *pTrace,unsigned int tbi, char *buf, int bufsize) { if (!pTrace) return 0; int n = TraceType::dump_raw(pTrace, tbi,buf,bufsize); buf += n; bufsize -= n; unsigned int tv = pTrace->get(tbi); int m = snprintf(buf, bufsize, " Module: %s 0x%x", (pModule ? pModule->name().c_str() : "no name"), (tv & 0xffffff)); return m > 0 ? (m+n) : n; } //======================================================================== CycleTraceType::CycleTraceType(unsigned int s) : TraceType(s, "Cycle") { } TraceObject *CycleTraceType::decode(unsigned int tbi) { return 0; } bool CycleTraceType::isFrameBoundary() { return false; } int CycleTraceType::dump_raw(Trace *pTrace,unsigned tbi, char *buf, int bufsize) { int n = TraceType::dump_raw(pTrace, tbi,buf,bufsize); buf += n; bufsize -= n; int m=0; if (pTrace) { guint64 cycle; if (pTrace->is_cycle_trace(tbi,&cycle) == 2) m = snprintf(buf,bufsize," Cycle 0x%016" PRINTF_GINT64_MODIFIER "X",cycle); } return m > 0 ? (m+n) : n; } int CycleTraceType::entriesUsed(Trace *pTrace,unsigned int tbi) { return pTrace ? pTrace->is_cycle_trace(tbi,0) : 0; } //======================================================================== ProcessorTraceType::ProcessorTraceType(Processor *_cpu, unsigned int nTraceEntries, const char *pDesc) : TraceType(nTraceEntries,pDesc), cpu(_cpu) { } //======================================================================== RegisterWriteTraceType::RegisterWriteTraceType(Processor *_cpu, unsigned int s) : ProcessorTraceType(_cpu,s,"Reg Write") { } TraceObject *RegisterWriteTraceType::decode(unsigned int tbi) { unsigned int tv = trace.get(tbi); RegisterValue rv = RegisterValue(tv & 0xff, 0); unsigned int address = (tv >> 8) & 0xfff; RegisterWriteTraceObject *rto = new RegisterWriteTraceObject(cpu, cpu->rma.get_register(address), rv); return rto; } int RegisterWriteTraceType::dump_raw(Trace *pTrace,unsigned int tbi, char *buf, int bufsize) { unsigned int val = 0; if (!pTrace) return 0; int n = TraceType::dump_raw(pTrace, tbi,buf,bufsize); buf += n; bufsize -= n; unsigned int tv = pTrace->get(tbi); unsigned int address = (tv >> 8) & 0xfff; Register *reg = cpu->rma.get_register(address); if(reg) val = reg->get_value(); int m = snprintf(buf, bufsize, " Reg Write: 0x%0x to %s(0x%04X) was 0x%0X ", val&0xff, (reg ? reg->name().c_str() : ""), address, tv & 0xff); Dprintf(("dump_raw %s %x\n", buf, tv&0xff)); if(m>0) n += m; return n; } //======================================================================== RegisterReadTraceType::RegisterReadTraceType(Processor *_cpu, unsigned int s) : ProcessorTraceType(_cpu,s,"Reg Read") { } TraceObject *RegisterReadTraceType::decode(unsigned int tbi) { unsigned int tv = trace.get(tbi); RegisterValue rv = RegisterValue(tv & 0xff, 0); unsigned int address = (tv >> 8) & 0xfff; RegisterReadTraceObject *rto = new RegisterReadTraceObject(cpu, cpu->rma.get_register(address), rv); return rto; } int RegisterReadTraceType::dump_raw(Trace *pTrace, unsigned int tbi, char *buf, int bufsize) { if (!pTrace) return 0; int n = TraceType::dump_raw(pTrace, tbi,buf,bufsize); buf += n; bufsize -= n; unsigned int tv = pTrace->get(tbi); unsigned int address = (tv >> 8) & 0xfff; Register *reg = cpu->rma.get_register(address); int m = snprintf(buf, bufsize, " Reg Read: %s(0x%04X) was 0x%0X", (reg ? reg->name().c_str() : ""), address, tv & 0xff); if(m>0) n += m; return n; } //======================================================================== PCTraceType::PCTraceType(Processor *_cpu, unsigned int s) : ProcessorTraceType(_cpu,s,"PC") { } TraceObject *PCTraceType::decode(unsigned int tbi) { unsigned int tv = trace.get(tbi); trace.addFrame(new TraceFrame( )); PCTraceObject *pcto = new PCTraceObject(cpu, tv); if((tv & (3<<22)) == (1<<22)) trace.current_cycle_time -= 2; else trace.current_cycle_time -= 1; trace.current_frame->cycle_time = trace.current_cycle_time; return pcto; } int PCTraceType::dump_raw(Trace *pTrace, unsigned int tbi, char *buf, int bufsize) { if (!pTrace) return 0; int n = TraceType::dump_raw(pTrace,tbi,buf,bufsize); buf += n; bufsize -= n; int m = snprintf(buf, bufsize,"FRAME ============== PC: %04X", cpu->map_pm_index2address(pTrace->get(tbi) & 0xffff)); if(m>0) n += m; return n; } //------------------------------------------------------------ ResetTraceType::ResetTraceType(Processor *_cpu) : ProcessorTraceType(_cpu,1,"Reset") { m_uiTT = trace.allocateTraceType(this); } TraceObject *ResetTraceType::decode(unsigned int tbi) { unsigned int tv = trace.get(tbi); return new ResetTraceObject(cpu, (RESET_TYPE) (tv&0xff)); } void ResetTraceType::record(RESET_TYPE r) { trace.raw(m_uiTT | r); } int ResetTraceType::dump_raw(Trace *pTrace,unsigned int tbi, char *buf, int bufsize) { if (!pTrace) return 0; int n = TraceType::dump_raw(pTrace, tbi,buf,bufsize); buf += n; bufsize -= n; RESET_TYPE r = (RESET_TYPE) (pTrace->get(tbi) & 0xff); int m = snprintf(buf, bufsize, " %s Reset: %s", (cpu ? cpu->name().c_str() : ""), resetName(r)); return m > 0 ? (m+n) : n; } //======================================================================== #define TRACE_ALL (0xffffffff) // // The trace_map is an STL map object that associates dynamically // created trace types with a unique number. The simulation engine // uses the number as a 'command' for tracing information of a // specific type. This number along with information specific to // to the trace type is written into the trace buffer. When the // simulation is halted and the trace buffer is parsed, the // trace type can be extracted. This can then be used as an input // to the trace_map to access an object that can further process // the traced information. // // Here's an example: // // The pic_processor class during construction will request a trace // type for tracing 8-bit register writes. // map trace_map; CycleTraceType *pCycleTrace=0; Trace::Trace() : cpu(0), current_frame(0), lastTraceType(LAST_TRACE_TYPE), lastSubTraceType(1<<16) { for(trace_index = 0; trace_index < TRACE_BUFFER_SIZE; trace_index++) trace_buffer[trace_index] = NOTHING; trace_index = 0; string_cycle = 0; traceFrames.clear(); xref = new XrefObject(&trace_value); } Trace::~Trace() { if(xref) delete xref; } //-------------------------------------------------------------- // void Trace::showInfo() { map::iterator tti; for (unsigned int index=0; index<0x3f000000; index+=0x1000000) { tti = trace_map.find(index); if(tti != trace_map.end()) { TraceType *tt = (*tti).second; tt->showInfo(); } } } //-------------------------------------------------------------- // unsigned int Trace::type(unsigned int index) { unsigned int traceType = operator[](index) & TYPE_MASK; unsigned int cycleType = traceType & (CYCLE_COUNTER_LO | CYCLE_COUNTER_HI); return cycleType ? cycleType : traceType; } //-------------------------------------------------------------- // is_cycle_trace(unsigned int index) // // Given an index into the trace buffer, this function determines // if the trace is a cycle counter trace. // // INPUT: index - index into the trace buffer // *cvt_cycle - a pointer to where the cycle will be decoded // if the trace entry is a cycle trace. // RETURN: 0 - trace is not a cycle counter // 1 - trace is the high integer of a cycle trace // 2 - trace is the low integer of a cycle trace int Trace::is_cycle_trace(unsigned int index, guint64 *cvt_cycle) { if(!(get(index) & (CYCLE_COUNTER_LO | CYCLE_COUNTER_HI))) return 0; // Cycle counter // A cycle counter occupies two consecutive trace buffer entries. // We have to determine if the current entry (pointed to by index) is // the high or low integer of the cycle counter. // // The upper two bits of the trace are used to decode the two 32-bit // integers that comprise the cycle counter. The encoding algorithm is // optimized for speed: // CYCLE_COUNTER_LO is defined as 1<<31 // CYCLE_COUNTER_HI is defined as 1<<30 // // trace[i] = low 32 bits of cycle counter | CYCLE_COUNTER_LO // trace[i+1] = upper 32 bits of " " | CYCLE_COUNTER_HI | bit 31 of cycle counter // // The low 32-bits are always saved in the trace buffer with the msb (CYCLE_COUNTER_LO) // set. However, notice that this bit may've already been set prior to calling trace(). // So we need to make sure that we don't lose it. This is done by copying it along // with the high 32-bits of the cycle counter into the next trace buffer location. The // upper 2 bits of the cycle counter are assumed to always be zero (if they're not, gpsim // has been running for a loooonnnggg time!). Bit 30 (CYCLE_COUNTER_HIGH) is always // set in the high 32 bit trace. While bit 31 gets the copy of bit 31 that was over // written in the low 32 bit trace. // // Here are some examples: // upper 2 bits // cycle counter | trace[i] trace[i+1] [i] [i+1] //---------------------+---------------------------------------- // 0x12345678 | 0x92345678 0x40000000 10 01 // 0x44445555 | 0xc4445555 0x40000000 11 01 // 0x1111222233334444 | 0xb3334444 0x51112222 10 01 // 0x9999aaaa | 0x9999aaaa 0xc0000000 10 11 // 0xccccdddd | 0xccccdddd 0xc0000000 11 11 // 0xccccddde | 0xccccddde 0xc0000000 11 11 // // Looking at the upper two bits of trace buffer, we can make these // observations: // // 00 - not a cycle counter trace // 10 - current index points at the low int of a cycle counter // 01 - current index points at the high int of a cycle counter // 11 - if traces on either side of the current index are the same // then the current index points to a low int else it points to a high int int j = index; // Assume that the index is pointing to the low int. int k = (j + 1) & TRACE_BUFFER_MASK; // and that the next entry is the high int. if( (get(j) & CYCLE_COUNTER_LO) && (get(k) & CYCLE_COUNTER_HI) ) { if(get(j) & CYCLE_COUNTER_HI) { // The upper two bits of the current trace are set. This means that // the trace is either the high 32 bits or the low 32 bits of the cycle // counter. This ambiguity is resolved by examining the trace buffer on // either side of the current index. If the entry immediately proceeding // this one is not a cycle counter trace, then we know that we're pointing // at the low 32 bits. If the proceeding entry IS a cycle counter trace then // we have two consecutive cycle traces (we already know that the entry // immediately following the current trace index is a cycle counter trace). // Now we know that if have consecutive cycle traces, then they differ by one // count. We only need to look at the low 32 bits of these consecutive // traces to ascertain this. int i = (index - 1) & TRACE_BUFFER_MASK; // previous index if( (get(i) & (CYCLE_COUNTER_HI | CYCLE_COUNTER_LO)) && (((get(k) - get(i)) & 0x7fffffff) == 1) ) return 1; } // The current index points to the low int and the next entry is // the high int. // extract the ~64bit cycle counter from the trace buffer. if(cvt_cycle) { *cvt_cycle = get(k)&0x3fffffff; *cvt_cycle = (*cvt_cycle << 32) | ((get(j)&0x7fffffff) | (get(k)&0x80000000 )); } return 2; } //printf("trace error??? in cycle trace\n"); return 1; } //------------------------------------------------------------------------ // // dump1 - decode a single trace buffer item. // // // RETURNS 2 if the trace item takes two trace entries, otherwise returns 1. int Trace::dump1(unsigned index, char *buffer, int bufsize) { guint64 cycle; int return_value = is_cycle_trace(index,&cycle); if(bufsize) buffer[0] = 0; // 0 terminate just in case no string is created if(return_value == 2) return(return_value); return_value = 1; switch (type(index)) { case NOTHING: snprintf(buffer, bufsize," empty trace cycle"); break; /* case WRITE_TRIS: snprintf(buffer, bufsize," wrote: 0x%02x to TRIS", get(index)&0xff); break; case BREAKPOINT: snprintf(buffer, bufsize,"BREAK: "); bp.dump_traced(get(index) & 0xffffff); break; case _RESET: switch( (RESET_TYPE) (get(index)&0xff)) { case POR_RESET: snprintf(buffer, bufsize," POR"); break; case WDT_RESET: snprintf(buffer, bufsize," WDT reset"); break; case SOFT_RESET: snprintf(buffer, bufsize,"SOFT reset"); break; default: snprintf(buffer, bufsize,"unknown reset"); } break; case OPCODE_WRITE: if(type(index-1) == OPCODE_WRITE) snprintf(buffer, bufsize," wrote opcode: 0x%04x to pgm memory: 0x%05x", get(index)&0xffff, get(index - 1) & 0xffffff); break; */ default: if(type(index) != CYCLE_COUNTER_HI) { map::iterator tti = trace_map.find(type(index)); if(tti != trace_map.end()) { TraceType *tt = (*tti).second; if(tt) { tt->dump_raw(this,index,buffer,bufsize); return_value = tt->entriesUsed(this, index); } break; } if(cpu) return_value = cpu->trace_dump1(get(index),buffer,bufsize); } } return return_value; } //------------------------------------------------------------------ void Trace::enableLogging(const char *fname) { if(fname) logger.enable(fname); } void Trace::disableLogging() { logger.disable(); } //------------------------------------------------------------------ // int Trace::dump(int n, FILE *out_stream) // int Trace::dump(int n, FILE *out_stream) { if(!cpu) return 0; if(n<0) n = TRACE_BUFFER_SIZE-1; if(!n) n = 5; if(!out_stream) return 0; if (!pCycleTrace) { // ugh // the trace_map needs to be a member of Trace, other wise // there's a global constructor initialization race condition. pCycleTrace = new CycleTraceType(2); trace_map[CYCLE_COUNTER_LO] = pCycleTrace; trace_map[CYCLE_COUNTER_HI] = pCycleTrace; } unsigned int frames = n+1; unsigned int frame_start = tbi(trace_index-2); guint64 cycle=0; if(trace.is_cycle_trace(frame_start,&cycle) != 2) return 0; unsigned int frame_end = trace_index; unsigned int k = frame_start; // Save the state of the CPU here. cpu->save_state(); // // Decode the trace buffer // // Starting at the end of the trace buffer, step backwards // and count 'n' trace frames. A trace frame describes a // boundary. All of the traced information between frames // describe what happened at the boundary. For example, // when a movf temp,W executes, the Program counter creates // the frame boundary and the write to temp and read from W // are stored in it. The frame boundary is recorded at the // end of the frame. current_frame = 0; while(traceFrames.size()::iterator tti = trace_map.find(type(k)); if(tti != trace_map.end()) { // The trace type was found in the trace map // Now decode it. Note that this is where things // like trace frames are created (e.g. for PCTraceType // decode() creates a new trace frame). // If we're on the last frame, and this trace type is a // new frame, then we're done. TraceType *tt = (*tti).second; if(tt) { if (tt->isFrameBoundary() && traceFrames.size()==frames-1) break; // We're done! TraceObject *pTO = tt->decode(k); if (pTO) { addToCurrentFrame(pTO); } } if(is_cycle_trace(k,&cycle) == 2) current_cycle_time = cycle; } else if (get(k) != NOTHING) { cout << " could not decode trace type: 0x" << hex << get(k) << endl; addToCurrentFrame(new InvalidTraceObject(get(k))); } k = tbi(k-1); } printTraceFrame(out_stream); deleteTraceFrame(); fflush(out_stream); return n; } //------------------------------------------------------------------------ // allocateTraceType - allocate one or more trace commands // // unsigned int Trace::allocateTraceType(TraceType *tt) { if(tt) { unsigned int i; unsigned int *ltt = &lastTraceType; unsigned int n = 1<<24; if(tt->bitsTraced() < 24) { if(lastSubTraceType == 0) { lastSubTraceType = lastTraceType; lastTraceType += n; } ltt = &lastSubTraceType; n = 1<<16; } tt->setType(*ltt);; for(i=0; isize(); i++) { trace_map[*ltt] = tt; *ltt += n; } return tt->type(); } return 0; } //--------------------------------------------------------- // dump_raw // mostly for debugging, void Trace::dump_raw(int n) { if(!n) return; FILE *out_stream = stdout; const int BUFFER_SIZE = 256; char buffer[BUFFER_SIZE]; unsigned int i = (trace_index - n) & TRACE_BUFFER_MASK; trace_flag = TRACE_ALL; do { fprintf(out_stream,"%04X:",i); map::iterator tti = trace_map.find(type(i)); unsigned int tSize = 1; TraceType *tt = tti != trace_map.end() ? (*tti).second : 0; buffer[0]=0; tSize = 0; if(tt) { tSize = tt->entriesUsed(this,i); /* fprintf(out_stream, "%02X:",tSize); for (unsigned int ii=0; iidump_raw(this,i,buffer,sizeof(buffer)); } if(!tSize) fprintf(out_stream, "%08X: ??",get(i)); if(buffer[0]) fprintf(out_stream,"%s",buffer); tSize = tSize ? tSize : 1; i = (i + tSize) & TRACE_BUFFER_MASK; putc('\n',out_stream); } while((i!=trace_index) && (i!=((trace_index+1)&TRACE_BUFFER_MASK))); putc('\n',out_stream); putc('\n',out_stream); } // // dump_last_instruction() void Trace::dump_last_instruction() { if (trace_log.log_file) dump(1, trace_log.log_file); dump(1,stdout); } /***************************************************************** * * Logging */ TraceLog::TraceLog() { logging = 0; log_filename = 0; cpu = 0; log_file = 0; lxtp=0; last_trace_index = 0; items_logged = 0; buffer.trace_flag = TRACE_ALL; } TraceLog::~TraceLog() { disable_logging(); close_logfile(); } void TraceLog::callback() { /* int n = 0; get_trace().cycle_counter(get_cycles().get()); if((log_file||lxtp) && logging) { if(last_trace_index < get_trace().trace_index) { for (unsigned int c=last_trace_index; cregisters[address]->name().c_str(); items_logged++; lt_set_time(lxtp, (int)(get_cycles().get()*4.0e8*cpu->get_OSCperiod())); symp=lt_symbol_find(lxtp, name); if(symp==0) { symp=lt_symbol_add(lxtp, name, // name 0, // rows 7, // msb 0, // lsb LT_SYM_F_BITS //flags ); assert(symp!=0); } lt_emit_value_int(lxtp, symp, 0, value); } void TraceLog::register_read(Register *pReg, guint64 cc) { if (!pReg) return; switch(file_format) { case TRACE_FILE_FORMAT_ASCII: Dprintf(("cycle=%lx %s(0x%02x) value 0x%02x\n", cc, pReg->name().c_str(), pReg->getAddress(), pReg->get_value())); #ifdef NEWTRACE bp.set_logging(); return; #else buffer.cycle_counter(cc); buffer.raw(pReg->read_trace.get() | pReg->get_value()); if(buffer.near_full()) write_logfile(); #endif //NEWTRACE break; case TRACE_FILE_FORMAT_LXT: Dprintf(("LXT cycle=%lx %s(0x%02x) value 0x%02x\n", cc, pReg->name().c_str(), pReg->getAddress(), pReg->get_value())); lxt_trace(pReg->getAddress(), pReg->get_value(), cc); break; } } void TraceLog::register_write(Register *pReg, guint64 cc) { if (!pReg) return; switch(file_format) { case TRACE_FILE_FORMAT_ASCII: Dprintf(("cycle=%lx %s(0x%02x) value 0x%02x\n", cc, pReg->name().c_str(), pReg->getAddress(), pReg->get_value())); #ifdef NEWTRACE bp.set_logging(); return; #else buffer.cycle_counter(cc); buffer.raw(pReg->write_trace.get() | pReg->get_value()); if(buffer.near_full()) write_logfile(); #endif //NEWTRACE break; case TRACE_FILE_FORMAT_LXT: Dprintf(("LXT cycle=%lx %s(0x%02x) value 0x%02x\n", cc, pReg->name().c_str(), pReg->getAddress(), pReg->get_value())); lxt_trace(pReg->getAddress(), pReg->get_value(), cc); break; } } void TraceLog::register_read_value(Register *pReg, guint64 cc) { if (!pReg) return; switch(file_format) { case TRACE_FILE_FORMAT_ASCII: Dprintf(("cycle=%lx %s(0x%02x) value 0x%02x\n", cc, pReg->name().c_str(), pReg->getAddress(), pReg->get_value())); #ifdef NEWTRACE bp.set_logging(); return; #else buffer.cycle_counter(cc); buffer.raw(pReg->read_trace.get() | pReg->get_value()); if(buffer.near_full()) write_logfile(); #endif //NEWTRACE break; case TRACE_FILE_FORMAT_LXT: Dprintf(("LXT cycle=%lx %s(0x%02x) value 0x%02x\n", cc, pReg->name().c_str(), pReg->getAddress(), pReg->get_value())); lxt_trace(pReg->getAddress(), pReg->get_value(), cc); break; } } void TraceLog::register_write_value(Register *pReg, guint64 cc) { if (!pReg) return; switch(file_format) { case TRACE_FILE_FORMAT_ASCII: Dprintf(("cycle=%lx %s(0x%x) value %x\n", cc, pReg->name().c_str(), pReg->getAddress(), pReg->get_value())); #ifdef NEWTRACE bp.set_logging(); return; #else buffer.cycle_counter(cc); buffer.raw(pReg->write_trace.get() | pReg->get_value()); if(buffer.near_full()) write_logfile(); #endif //NEWTRACE break; case TRACE_FILE_FORMAT_LXT: Dprintf(("LXT cycle=%lx %s(0x%x) value %x\n", cc, pReg->name().c_str(), pReg->getAddress(), pReg->get_value())); lxt_trace(pReg->getAddress(), pReg->get_value(), cc); break; } } /***************************************************************** * * Profiling */ ProfileKeeper::ProfileKeeper() { enabled = 0; cpu = 0; last_trace_index = 0; } ProfileKeeper::~ProfileKeeper() { disable_profiling(); } void ProfileKeeper::catchup() { //Register *r; if(!enabled) return; for(unsigned int i=last_trace_index; i!=trace.trace_index; i = (i+1)& TRACE_BUFFER_MASK) { /* switch (trace.trace_buffer[i] & 0xff000000) { case Trace::INSTRUCTION: instruction_address=trace_pc_value; cpu->program_memory[instruction_address]->cycle_count++; trace_pc_value++; break; case Trace::PROGRAM_COUNTER: case Trace::PC_SKIP: trace_pc_value=trace.trace_buffer[i]&0xffff; break; case Trace::CYCLE_INCREMENT: cpu->program_memory[instruction_address]->cycle_count++; break; case Trace::REGISTER_READ: r = cpu->registers[(trace.trace_buffer[i]>>8) & 0xfff]; if(r->isa() == Register::FILE_REGISTER) { r->read_access_count++; } break; case Trace::REGISTER_WRITE: r = cpu->registers[(trace.trace_buffer[i]>>8) & 0xfff]; if(r->isa() == Register::FILE_REGISTER) { r->write_access_count++; } break; break; } */ } last_trace_index = trace.trace_index; } void ProfileKeeper::callback() { if(enabled) { catchup(); get_cycles().set_break(get_cycles().get() + 1000,this); } } void ProfileKeeper::enable_profiling() { if(enabled) return; if(!cpu) { if(get_active_cpu()) cpu = get_active_cpu(); else cout << "Warning: Profiling can't be enabled until a cpu has been selected."; } last_trace_index = trace.trace_index; get_cycles().set_break(get_cycles().get() + 1000,this); enabled = 1; } void ProfileKeeper::disable_profiling() { if(!enabled) return; enabled = 0; } void ProfileKeeper::switch_cpus(Processor *pcpu) { cpu = pcpu; } //***************************************************************** // *** KNOWN CHANGE *** // Support functions that will get replaced by the CORBA interface. // //-------------------------------------------- void trace_dump_all() { trace.dump(0, stdout); } //-------------------------------------------- void trace_dump_n(int numberof) { trace.dump(numberof,stdout); } //-------------------------------------------- void trace_dump_raw(int numberof) { trace.dump_raw(numberof); } //-------------------------------------------- void trace_enable_logging(char *file, int format) { if (file) trace_log.enable_logging(file, format); else trace_log.disable_logging(); } void trace_watch_register(int reg) { //trace_log.watch_reg = reg; } //-------------------------------------------------- // BoolEventBuffer::event(bool state) // // Record a 0/1 event (e.g. the state of an I/O line). // returns false if this event has filled the buffer // or if the buffer is full. Note, an event will get lost // if the callee attempts to save it in a full buffer. inline bool BoolEventBuffer::event(bool state) { // If the new event is different than the most recently logged one // then we need to log this event. (Note that the event is implicitly // logged in the "index". I.e. 1 events are at odd indices. if(state ^ (index & 1) ^ !bInitialState) { if(index < max_events) { buffer[index++] = get_cycles().get() - start_time; return true; } return false; } return true; } //-------------------------------------------------- // // BoolEventBuffer::get_index // // given an event time, get_index will perform a binary // search for it in the event buffer. // unsigned int BoolEventBuffer::get_index(guint64 event_time) { guint32 start_index, search_index, bstep; guint64 time_offset; start_index = 0; bstep = (max_events+1) >> 1; search_index = start_index + bstep; bstep >>= 1; time_offset = event_time - start_time; // Binary search for the event time: do { if(time_offset == buffer[search_index]) return search_index; if(time_offset < buffer[search_index]) search_index = search_index - bstep; else search_index = search_index + bstep; //cout << hex << "search index "<< search_index << " buffer[search_index] " << buffer[search_index] << '\n'; bstep >>= 1; } while(bstep); if(time_offset >= buffer[search_index]) return search_index; else return (--search_index); } //-------------------------------------------------- // // BoolEventBuffer::activate // // void BoolEventBuffer::activate(bool _initial_state) { // If the buffer is activated already or the buffer is full, // then we can't activate it. if(isActive() || isFull()) return; // Save the time for this initial event start_time = get_cycles().get(); bInitialState = _initial_state; index = 0; // next state gets stored at the first position in the buffer. bActive = true; future_cycle = start_time + (1<<31); get_cycles().set_break(future_cycle, this); } //-------------------------------------------------- void BoolEventBuffer::deactivate() { bActive = false; if(future_cycle) get_cycles().clear_break(this); future_cycle = 0; } //-------------------------------------------------- void BoolEventBuffer::callback() { future_cycle = 0; if(isActive()) deactivate(); } void BoolEventBuffer::callback_print() { cout << "BoolEventBuffer\n"; } //-------------------------------------------------- // BoolEventBuffer -- constructor // BoolEventBuffer::BoolEventBuffer(bool _initial_state, guint32 _max_events) { max_events = _max_events; // Make sure that max_events is an even power of 2 if(max_events & (max_events - 1)) { max_events <<= 1; while(1) { if(max_events && (max_events & (max_events-1))) max_events &= max_events - 1; else break; } } else if(!max_events) max_events = 4096; max_events--; // make the max_events a mask buffer = new guint64[max_events]; activate(_initial_state); } BoolEventBuffer::~BoolEventBuffer() { delete [] buffer; } gpsim-0.27.0/src/stimuli.h0000664000076400007640000004366612160746027012324 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __STIMULI_H__ #define __STIMULI_H__ #include #include #include using namespace std; #include #include "gpsim_classes.h" #include "breakpoints.h" /* forward references: */ class Stimulus_Node; class stimulus; class IOPIN; class symbol; /* typedefs */ typedef list SymbolList_t; typedef list StringList_t; typedef list StimulusList_t; typedef list gpsimObjectList_t; /* Support functions */ extern void dump_stimulus_list(void); /**************************************************************************** * * Include file support stimuli. * * stimulus TriggerObject * | \ / * | -----------------+---- * | | * |- IOPIN |- source_stimulus * | | * |- IO_input |- square_wave * | |- triangle_wave * |- IO_open_collector |- asynchronous_stimulus * |- IO_bi_directional |- dc_supply * | |- open_collector * |- IO_bi_directional_pu * * A stimulus is used to stimulate stimuli. What's that mean? Well, * in gpsim, the pic I/O pins are derived from the stimulus base class * (as can be seen from above). The I/O pins are what interface to the * 'external' world. In some cases, I/O pins are inputs and others they're * outputs. The stimulus base class defines the basic functionality of * a stimulus and how this interface to the outside world is to occur. * */ #define MAX_DRIVE 0x100000 #define MAX_ANALOG_DRIVE 0x1000 class Stimulus_Node : public gpsimObject, public TriggerObject { public: bool warned; // keeps track of node warnings (e.g. floating node, contention) double voltage; // The most recent target voltage of this node double Cth; // The most recent capacitance (to ground) measured on this node. double Zth; // The most recent thevenin resistance computed on this node. double current_time_constant; // The most recent time constant for the attached stimuli. double delta_voltage; // Amplitude of initial change double minThreshold; // Use DC value when voltage this close guint64 cap_start_cycle; // cycles when RC value last calculated guint64 future_cycle; // cycles when next callback expected double initial_voltage; // node voltage at the instant of change double finalVoltage; // Target voltage when settling unsigned int min_time_constant; // time constant(in cycles) longer than this induce settling bool bSettling; // true when the voltage is settling stimulus *stimuli; // Pointer to the first stimulus connected to this node. int nStimuli; // number of stimuli attached to this node. Stimulus_Node(const char *n = 0); virtual ~Stimulus_Node(); void set_nodeVoltage(double v); double get_nodeVoltage(); double get_nodeZth() { return Zth;} double get_nodeCth() { return Cth; } void update(); void attach_stimulus(stimulus *); void detach_stimulus(stimulus *); void time_constant(double new_tc); // When a node is given a name, it is also added to the symbol // table. If bClearableSymbol is true, then the symbol can be // automatically removed when the symbol table is cleared. virtual void new_name(const char *, bool bClearableSymbol=false); virtual void new_name(string &, bool bClearableSymbol=false); // When the node is settling (due to RC charging/discharging) // it's voltage is periodically updated by invoking callback() virtual void callback(void); virtual void callback_print(void); // factory function static Stimulus_Node * construct(const char * psName); protected: void update(guint64 current_time); // deprecated void refresh(); void updateStimuli(); guint64 settlingTimeStep; }; //======================================================================== // // stimulus // // The stimulus class is the base class for all of the analog interfaces // between modules. A stimulus is a 1-node device that has a characteristic // impedance and voltage. If you're familiar with circuit analysis, these // are the Thevenin voltage and impedance. // // gpsim is not a spice simulator. So complex devices like transistors or // opamps are not modeled. In fact, even simple devices like capacitors and // inductors are not modeled. // class stimulus : public Value { public: Stimulus_Node *snode; // Node to which this stimulus is attached stimulus *next; // next stimulus that's on the snode stimulus(const char *n=0, double _Vth=5.0, double _Zth=1e3 ); virtual ~stimulus(); // When a stimulus is given a name, it is also added to the symbol // table. If bClearableSymbol is true, then the symbol can be // automatically removed when the symbol table is cleared. virtual void new_name(const char *, bool bClearableSymbol=true); virtual void new_name(string &, bool bClearableSymbol=true); // Functions for accessing/manipulating the thevenin voltage and impedance. virtual void getThevenin(double &v, double &z, double &c); virtual double get_Vth() { return Vth; } virtual void set_Vth(double v) { Vth = v; } virtual double get_Zth() { return Zth; } virtual void set_Zth(double z) { Zth = z; } virtual double get_Cth() { return Cth; } virtual void set_Cth(double c) { Cth = c; } virtual double get_nodeVoltage() { return nodeVoltage; } virtual void set_nodeVoltage(double v) { nodeVoltage = v; } virtual bool getDriving() { return bDriving; } virtual void setDriving(bool bNewDriving) { bDriving=bNewDriving; } // Functions for accessing/manipulating the stimulus state // Control the driving state, i.e. the state this stimulus wishes to drive virtual bool getDrivingState(void) {return bDrivingState;}; virtual void setDrivingState(bool new_dstate) { bDrivingState = new_dstate;}; virtual void setDrivingState(char new3State) { bDrivingState = new3State=='1';}; // Control the driven state, i.e. the state some external node wishes to // drive this stimulus. virtual bool getDrivenState(void) { return getDrivingState(); } virtual void setDrivenState(bool new_dstate) { setDrivingState(new_dstate);} // Control the 'state' of the node. virtual bool getState() { return getDrivingState(); } virtual void putState(bool new_dstate) { setDrivingState(new_dstate);} // getBitChar - this complements the Register class' getBitStr function virtual char getBitChar() { return getState() ? '1':'0'; } virtual void attach(Stimulus_Node *s); virtual void detach(Stimulus_Node *s); // If a stimulus changes its state, it can signal this change to // any other stimuli that are connected to it. virtual void updateNode(void) { if(snode) snode->update();} // Display info about the stimulus. virtual void show(); virtual string toString(); protected: bool bDrivingState; // 0/1 digitization of the analog state we're driving bool bDriving; // True if this stimulus is a driver double Vth; // Open-circuit or Thevenin voltage double Zth; // Input or Thevenin resistance double Cth; // Stimulus capacitance. double nodeVoltage; // The voltage driven on to this stimulus by the snode // These are only here because they're pure virtual functions in the parent class. virtual unsigned int get_value(void) { return 0;} virtual void put_value(unsigned int new_value) {} // factory function static stimulus * construct(const char * psName); }; class source_stimulus : public stimulus, public TriggerObject { public: enum SOURCE_TYPE { DC, SQW, ASY, TRI, RESISTOR, OPEN_COLLECTOR, EVENT }; source_stimulus() { period = 0; duty = 0; phase = 0; initial_state = 0; start_cycle = 0; time = 0; digital = true; }; virtual void callback(void); virtual void callback_print(void); virtual void put_period(Value *); virtual void put_duty(Value *); virtual void put_phase(Value *); virtual void put_initial_state(Value *); virtual void put_start_cycle(Value *); virtual void set_digital(void) { digital = true;} virtual void set_analog(void) { digital = false;} virtual void start(void) { }; virtual void show(); protected: bool digital; guint64 start_cycle, time, period, duty, phase; double initial_state; }; ///------------------------------------------------------------ /// /// SignalSink - A pure virtual class that allows signals driven by external /// stimuli to be routed to one or more objects monitoring them (e.g. one /// sink may be a bit in a port register while another may be a peripheral) class SignalSink { public: virtual ~SignalSink() { } virtual void setSinkState(char)=0; virtual void release()=0; }; ///------------------------------------------------------------- /// /// AnalogSink - An analog sink is similar to a digital sink. The primary /// difference is that an analog sink redirects an analog signal to one /// or more objects. A signal sink only redirects digital signals. class AnalogSink { public: virtual ~AnalogSink() { } virtual void setSinkState(double)=0; virtual void release()=0; }; ///------------------------------------------------------------ /// The PinMonitor class allows other objects to be notified whenever /// a Pin changes states. /// (Note: In older versions of gpsim, iopins notified the Port registers /// in which they were contained by direcly calling the register setbit() /// method. This is deprecated - and eventually will cause compile time errors.) class PinMonitor { public: PinMonitor(); virtual ~PinMonitor(); void addSink(SignalSink *); void removeSink(SignalSink *); void addSink(AnalogSink *); void removeSink(AnalogSink *); virtual void setDrivenState(char)=0; virtual void setDrivingState(char)=0; virtual void set_nodeVoltage(double)=0; virtual void putState(char)=0; virtual void setDirection()=0; virtual void updateUI() {} // FIXME - make this pure virtual too. protected: /// The SignalSink list is a list of all sinks that can receive digital data list sinks; /// The AnalogSink list is a list of all sinks that can receive analog data list analogSinks; }; class IOPIN : public stimulus { public: enum IOPIN_TYPE { INPUT_ONLY, // e.g. MCLR BI_DIRECTIONAL, // most iopins BI_DIRECTIONAL_PU, // same as bi_directional, but with pullup resistor. e.g. portb OPEN_COLLECTOR // bit4 in porta on the 18 pin midrange devices. }; enum IOPIN_DIRECTION { DIR_INPUT, DIR_OUTPUT }; IOPIN(const char *n=0, double _Vth=5.0, double _Zth=1e8, double _ZthWeak = 1e6, double _ZthFloating = 1e7 ); ~IOPIN(); virtual void setMonitor(PinMonitor *); virtual PinMonitor *getMonitor() { return m_monitor; } virtual void set_nodeVoltage(double v); virtual bool getDrivingState(void); virtual void setDrivingState(bool new_dstate); virtual void setDrivingState(char); virtual bool getDrivenState(void); virtual void setDrivenState(bool new_dstate); virtual void forceDrivenState(char); virtual char getForcedDrivenState(); virtual bool getState(); virtual void putState(bool new_dstate); virtual void set_ZthWeak(double Z) { ZthWeak=Z;} virtual double get_ZthWeak() { return ZthWeak;} virtual void set_ZthFloating(double Z) { ZthFloating=Z;} virtual double get_ZthFloating() { return ZthFloating;} virtual void set_l2h_threshold(double V) {l2h_threshold=V;} virtual double get_l2h_threshold() { return l2h_threshold;} virtual void set_h2l_threshold(double V) {h2l_threshold=V;} virtual double get_h2l_threshold() { return h2l_threshold;} virtual void toggle(void); virtual void attach(Stimulus_Node *s); // These functions don't apply to Inputs, but provide an // interface for the derived classes. virtual void update_direction(unsigned int x, bool refresh){ }; virtual IOPIN_DIRECTION get_direction(void) {return DIR_INPUT; }; virtual void update_pullup(char new_state, bool refresh) {} virtual void set_is_analog(bool flag) {} virtual double get_Vth(); virtual char getBitChar(); virtual void show(); /// Change object name without affecting stimulus virtual void newGUIname(const char *); virtual string &GUIname(void) const; virtual bool is_newGUIname(void) { return gui_name_updated; } virtual void clr_is_newGUIname(void) { gui_name_updated = false; } protected: bool is_analog; // Pin is in analog mode bool gui_name_updated; // True if object name has changed string gui_name; // bool bDrivenState; // binary state we're being driven to char cForcedDrivenState; // forced state when no snode is attached. PinMonitor *m_monitor; // When connected to a node, these are thresholds used to determine whether // we're being driven by a weak driver or not. double ZthWeak; double ZthFloating; // These are the low to high and high to low input thresholds. The // units are volts. double l2h_threshold; double h2l_threshold; }; class IO_bi_directional : public IOPIN { public: IO_bi_directional(const char *n=0, double _Vth=5.0, double _Zth=150, double _ZthWeak = 1e6, double _ZthFloating = 1e7, double _VthIn = 0.3, double _ZthIn = 1e8); virtual double get_Zth(); virtual double get_Vth(); virtual double get_VthIn() { return VthIn;} virtual double get_ZthIn() { return ZthIn;} virtual void set_VthIn(double _VthIn) { VthIn = _VthIn;} virtual void set_ZthIn(double _ZthIn) { ZthIn = _ZthIn;} virtual char getBitChar(); virtual void set_nodeVoltage(double new_nodeVoltage); virtual void update_direction(unsigned int,bool refresh); virtual IOPIN_DIRECTION get_direction(void) {return ((getDriving()) ? DIR_OUTPUT : DIR_INPUT);} protected: /// Impedance of the IOPIN when it's not driving. double ZthIn; /// Voltage of the IOPIN when it's not driving /// (this is the voltage the I/O pin floats to when there's /// nothing connected to it) double VthIn; }; class IO_bi_directional_pu : public IO_bi_directional { public: IO_bi_directional_pu(const char *n=0, double _Vth=5.0, double _Zth=150, double _ZthWeak = 1e6, double _ZthFloating = 1e7, double _VthIn = 0.3, double _ZthIn = 1e8, double _Zpullup = 20e3 ); ~IO_bi_directional_pu(); virtual double get_Vth(); virtual double get_Zth(); virtual void set_Zpullup(double Z) { Zpullup = Z; } virtual double get_Zpullup() { return Zpullup; } virtual void set_Vpullup(double V) { Vpullup = V; } virtual double get_Vpullup() { return Vpullup; } virtual char getBitChar(); virtual void update_pullup(char new3State, bool refresh); virtual void set_is_analog(bool flag); protected: bool bPullUp; // True when pullup is enabled double Zpullup; // resistance of the pullup double Vpullup; // Voltage the pullup resistor is tied to. }; class IO_open_collector : public IO_bi_directional_pu { public: IO_open_collector(const char *n=0); virtual double get_Vth(); virtual double get_Zth(); virtual char getBitChar(); }; class square_wave : public source_stimulus { public: square_wave(unsigned int _period, unsigned int _duty, unsigned int _phase, const char *n=0); virtual double get_Vth(); }; class triangle_wave : public source_stimulus { public: double m1,b1,m2,b2; triangle_wave(unsigned int _period, unsigned int _duty, unsigned int _phase, const char *n=0); virtual double get_Vth(); }; class StimulusData { public: guint64 time; double value; }; class ValueStimulusData { public: guint64 time; Value *v; }; /// ValueStimulus /// class ValueStimulus : public source_stimulus { protected: ValueStimulusData initial; Value *current; guint64 future_cycle; ValueStimulusData next_sample; list samples; list::iterator sample_iterator; public: virtual void callback(); virtual void put_data(ValueStimulusData &data_point); virtual void put_initial_state(Value *); virtual double get_Vth(); virtual void start(); ValueStimulus(const char*n=0); virtual ~ValueStimulus(); virtual void show(); protected: ValueStimulusData *getNextSample(); }; class AttributeStimulus : public ValueStimulus { Value *attr; public: AttributeStimulus(const char *n=0); // virtual ~AttributeStimulus(); virtual void callback(); void setClientAttribute(Value *); virtual void show(); }; /* * An "Event" is a special stimulus that will assert for a single clock * cycle. * * Since Events are derived from the source_stimulus class, they can * be either single shot or repetitive. * */ class Event : public source_stimulus { public: unsigned int current_state; virtual void callback(void); Event(void); }; #endif // __STIMULI_H__ gpsim-0.27.0/src/12bit-hexdecode.cc0000644000076400007640000000714111401170177013617 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ // T. Scott Dattalo 12bit core routines /* pic12.c - pic 12bit core routines */ /* version 0.1 */ /* (c) I.King 1994 */ #include #include "../config.h" #include "12bit-processors.h" #include "12bit-instructions.h" instruction * disasm12 (pic_processor *cpu, unsigned int address, unsigned int inst) { unsigned char topnibble; unsigned char midnibble; unsigned char lownibble; unsigned char bbyte; unsigned char bits6and7; topnibble = (inst & 0x0f00) >> 8; midnibble = (inst & 0x00f0) >> 4; lownibble = (inst & 0x000f); bbyte = (inst & 0x00ff); bits6and7 = (unsigned char)((int) (bbyte & 0xc0) >> 6); switch(topnibble) { case 0x00: if (midnibble == 0) switch(lownibble) { case 0x00: return(new NOP(cpu,inst,address)); case 0x02: return(new OPTION(cpu,inst,address)); case 0x03: return(new SLEEP(cpu,inst,address)); case 0x04: return(new CLRWDT(cpu,inst,address)); default: return(new TRIS(cpu,inst,address)); } else switch(bits6and7) { case 0x00: return(new MOVWF(cpu,inst,address)); case 0x01: if(midnibble & 0x02) return(new CLRF(cpu,inst,address)); else return(new CLRW(cpu,inst,address)); case 0x02: return(new SUBWF(cpu,inst,address)); case 0x03: return(new DECF(cpu,inst,address)); } break; case 0x01: switch(bits6and7) { case 0x00: return(new IORWF(cpu,inst,address)); case 0x01: return(new ANDWF(cpu,inst,address)); case 0x02: return(new XORWF(cpu,inst,address)); case 0x03: return(new ADDWF(cpu,inst,address)); } break; case 0x02: switch(bits6and7) { case 0x00: return(new MOVF(cpu,inst,address)); case 0x01: return(new COMF(cpu,inst,address)); case 0x02: return(new INCF(cpu,inst,address)); case 0x03: return(new DECFSZ(cpu,inst,address)); } break; case 0x03: switch(bits6and7) { case 0x00: return(new RRF(cpu,inst,address)); case 0x01: return(new RLF(cpu,inst,address)); case 0x02: return(new SWAPF(cpu,inst,address)); case 0x03: return(new INCFSZ(cpu,inst,address)); } break; case 0x04: return(new BCF(cpu,inst,address)); case 0x05: return(new BSF(cpu,inst,address)); case 0x06: return(new BTFSC(cpu,inst,address)); case 0x07: return(new BTFSS(cpu,inst,address)); case 0x08: return(new RETLW(cpu,inst,address)); case 0x09: return(new CALL(cpu,inst,address)); case 0x0a: case 0x0b: return(new GOTO(cpu,inst,address)); case 0x0c: return(new MOVLW(cpu,inst,address)); case 0x0d: return(new IORLW(cpu,inst,address)); case 0x0e: return(new ANDLW(cpu,inst,address)); case 0x0f: return(new XORLW(cpu,inst,address)); } // shouldn't get here return 0; } /* ... The End ... */ gpsim-0.27.0/src/16bit-instructions.cc0000664000076400007640000015055012163476456014463 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include #include #include #include "../config.h" #include "pic-processor.h" #include "14bit-registers.h" //#include "symbol.h" #include "pic-instructions.h" #include "12bit-instructions.h" #include "16bit-instructions.h" #include "16bit-processors.h" #include "16bit-registers.h" //-------------------------------------------------- Branching::Branching(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu, new_opcode,address), destination_index(0), absolute_destination_index(0) { } void Branching::decode(Processor *new_cpu, unsigned int new_opcode) { opcode = new_opcode; cpu = new_cpu; switch(cpu16->base_isa()) { case _PIC18_PROCESSOR_: destination_index = (new_opcode & 0xff)+1; absolute_destination_index = (cpu16->getCurrentDisasmIndex() + destination_index) & 0xfffff; if(new_opcode & 0x80) { absolute_destination_index -= 0x100; destination_index = 0x100 - destination_index; } break; case _PIC17_PROCESSOR_: cout << "Which instructions go here?\n"; break; default: cout << "ERROR: (Branching) the processor is not defined\n"; break; } } char *Branching::name(char *return_str, int len) { snprintf(return_str, len,"%s\t$%c0x%x\t;(0x%x)", gpsimObject::name().c_str(), (opcode & 0x80) ? '-' : '+', (destination_index & 0x7f)<<1, absolute_destination_index<<1); return(return_str); } //-------------------------------------------------- multi_word_instruction::multi_word_instruction(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu, new_opcode,address), word2_opcode(0), PMaddress(0), PMindex(0), initialized(false) { } multi_word_branch::multi_word_branch(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : multi_word_instruction(new_cpu, new_opcode, address), destination_index(0) { } void multi_word_branch::runtime_initialize() { if(cpu16->program_memory[PMindex+1] != &cpu16->bad_instruction) { word2_opcode = cpu16->program_memory[PMindex+1]->get_opcode(); if((word2_opcode & 0xf000) != 0xf000) { cout << "16bit-instructions.cc multiword instruction error\n"; return; } cpu16->program_memory[PMindex+1]->update_line_number( file_id, src_line, lst_line, 0, 0); // extract the destination address from the two-word opcode destination_index = ((word2_opcode & 0xfff)<<8) | (opcode & 0xff); initialized = true; } } char * multi_word_branch::name(char *return_str,int len) { if(!initialized) runtime_initialize(); snprintf(return_str,len,"%s\t0x%05x", gpsimObject::name().c_str(), destination_index<<1); return(return_str); } //--------------------------------------------------------- ADDULNK::ADDULNK(Processor *new_cpu, unsigned int new_opcode, const char *pName, unsigned int address) : instruction(new_cpu, new_opcode,address) { m_lit = opcode & 0x3f; new_name(pName); } char *ADDULNK::name(char *return_str,int len) { snprintf(return_str,len,"%s\t0x%x", gpsimObject::name().c_str(), m_lit); return(return_str); } void ADDULNK::execute() { if (cpu16->extended_instruction()) { if (opcode & 0x100) cpu16->ind2.put_fsr(cpu16->ind2.get_fsr_value() - m_lit); // SUBULNK else cpu16->ind2.put_fsr(cpu16->ind2.get_fsr_value() + m_lit); // ADDULNK } else { printf("Error %s extended instruction not supported, check XINST\n", (opcode&0x100)?"SUBULNK":"ADDULNK"); bp.halt(); } cpu16->pc->new_address(cpu16->stack->pop()); } //--------------------------------------------------------- ADDFSR16::ADDFSR16(Processor *new_cpu, unsigned int new_opcode, const char *pName, unsigned int address) : instruction(new_cpu, new_opcode,address) { m_fsr = (opcode>>6)&3; m_lit = opcode & 0x3f; switch(m_fsr) { case 0: ia = &cpu16->ind0; break; case 1: ia = &cpu16->ind1; break; case 2: ia = &cpu16->ind2; break; case 3: ia = &cpu16->ind2; } new_name(pName); } char *ADDFSR16::name(char *return_str,int len) { snprintf(return_str,len,"%s\t%d,0x%x", gpsimObject::name().c_str(), m_fsr, m_lit); return(return_str); } void ADDFSR16::execute() { if (cpu16->extended_instruction()) { if (opcode & 0x100) ia->put_fsr(ia->get_fsr_value() - m_lit); //SUBFSR else ia->put_fsr(ia->get_fsr_value() + m_lit); //ADDFSR } else { printf("Error %s extended instruction not supported, check XINST\n", (opcode&0x100)?"SUBFSR":"ADDFSR"); bp.halt(); } cpu16->pc->increment(); } //-------------------------------------------------- void CALLW16::execute() { if (cpu16->extended_instruction()) { if(cpu16->stack->push(cpu16->pc->get_next())) { cpu16->pcl->put(cpu16->Wget()); cpu16->pc->increment(); } else // stack overflow reset { cpu16->pc->jump(0); } } else { printf("Error %s extended instruction not supported, check XINST\n", "CALLW"); bp.halt(); } } //-------------------------------------------------- PUSHL::PUSHL(Processor *new_cpu, unsigned int new_opcode, unsigned int address) :instruction (new_cpu, new_opcode, address), m_lit(new_opcode & 0xff) { new_name("pushl"); } char *PUSHL::name(char *return_str,int len) { snprintf(return_str,len,"%s\t0x%x", gpsimObject::name().c_str(),m_lit); return(return_str); } void PUSHL::execute() { // cpu16->ind2.put(m_lit); // cpu16->ind2.put_fsr(cpu16->ind2.get_fsr_value() -1); if (cpu16->extended_instruction()) { cpu16->ind2.postdec.put(m_lit); } else { printf("Error %s extended instruction not supported, check XINST\n", "PUSHL"); bp.halt(); } cpu16->pc->increment(); } //-------------------------------------------------- MOVSF::MOVSF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : multi_word_instruction(new_cpu, new_opcode,address) { opcode = new_opcode; cpu = new_cpu; PMaddress = cpu16->getCurrentDisasmAddress(); PMindex = cpu16->getCurrentDisasmIndex(); initialized = false; destination = 0; source = opcode & 0x7f; if (opcode & 0x80) new_name("movss"); else new_name("movsf"); } void MOVSF::runtime_initialize() { if(cpu_pic->program_memory[PMindex+1]) { word2_opcode = cpu_pic->program_memory[PMindex+1]->get_opcode(); if((word2_opcode & 0xf000) != 0xf000) { cout << "16bit-instructions.cc MOVSF error\n"; return; } cpu_pic->program_memory[PMindex+1]->update_line_number( file_id, src_line, lst_line, 0, 0); destination = word2_opcode & ((opcode & 0x80) ? 0x7f : 0xfff); initialized = true; } } char *MOVSF::name(char *return_str,int len) { if(!initialized) runtime_initialize(); if (opcode & 0x80) snprintf(return_str,len,"%s\t[0x%x],[0x%x]", gpsimObject::name().c_str(), source, destination); else snprintf(return_str,len,"%s\t[0x%x],%s", gpsimObject::name().c_str(), source, cpu_pic->registers[destination]->name().c_str()); return(return_str); } void MOVSF::execute() { if (cpu16->extended_instruction()) { if(!initialized) runtime_initialize(); unsigned int source_addr = cpu16->ind2.plusk_fsr_value(source); unsigned int r = cpu_pic->registers[source_addr]->get(); cpu16->pc->skip(); unsigned int destination_addr = (opcode & 0x80) ? cpu16->ind2.plusk_fsr_value(destination) : destination; cpu_pic->registers[destination_addr]->put(r); } else { printf("Error %s extended instruction not supported, check XINST\n", (opcode & 0x80)?"MOVSS":"MOVSF"); bp.halt(); } //cpu16->pc->increment(); } //-------------------------------------------------- void ADDLW16::execute() { unsigned int old_value,new_value; new_value = (old_value = cpu16->Wget()) + L; cpu16->Wput(new_value & 0xff); cpu16->status->put_Z_C_DC_OV_N(new_value, old_value, L); cpu16->pc->increment(); } //-------------------------------------------------- void ADDWF16::execute() { unsigned int new_value,src_value,w_value; if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; new_value = (src_value = source->get()) + (w_value = cpu16->Wget()); // Store the result if(destination) { source->put(new_value & 0xff); // Result goes to source cpu16->status->put_Z_C_DC_OV_N(new_value, src_value, w_value); } else { cpu16->Wput(new_value & 0xff); cpu16->status->put_Z_C_DC_OV_N(new_value, w_value, src_value); } cpu16->pc->increment(); } //-------------------------------------------------- void ADDWFC16::execute() { unsigned int new_value,src_value,w_value; if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; new_value = (src_value = source->get()) + (w_value = cpu16->Wget()) + ((cpu16->status->value.get() & STATUS_C) ? 1 : 0); // Store the result if(destination) source->put(new_value & 0xff); // Result goes to source else cpu16->Wput(new_value & 0xff); cpu16->status->put_Z_C_DC_OV_N(new_value, src_value, w_value); cpu16->pc->increment(); } //-------------------------------------------------- void ANDLW16::execute() { unsigned int new_value; new_value = cpu16->Wget() & L; cpu16->Wput(new_value); cpu16->status->put_N_Z(new_value); cpu16->pc->increment(); } //-------------------------------------------------- void ANDWF16::execute() { unsigned int new_value; if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; new_value = source->get() & cpu16->Wget(); if(destination) source->put(new_value); // Result goes to source else cpu16->Wput(new_value); cpu16->status->put_N_Z(new_value); cpu16->pc->increment(); } //-------------------------------------------------- BC::BC (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Branching(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("bc"); } void BC::execute() { if(cpu16->status->value.get() & STATUS_C) cpu16->pc->jump(absolute_destination_index); else cpu16->pc->increment(); } //-------------------------------------------------- BN::BN (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Branching(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("bn"); } void BN::execute() { if(cpu16->status->value.get() & STATUS_N) cpu16->pc->jump(absolute_destination_index); else cpu16->pc->increment(); } //-------------------------------------------------- BNC::BNC (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Branching(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("bnc"); } void BNC::execute() { if(cpu16->status->value.get() & STATUS_C) cpu16->pc->increment(); else cpu16->pc->jump(absolute_destination_index); } //-------------------------------------------------- BNN::BNN (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Branching(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("bnn"); } void BNN::execute() { if(cpu16->status->value.get() & STATUS_N) cpu16->pc->increment(); else cpu16->pc->jump(absolute_destination_index); } //-------------------------------------------------- BNOV::BNOV (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Branching(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("bnov"); } void BNOV::execute() { if(cpu16->status->value.get() & STATUS_OV) cpu16->pc->increment(); else cpu16->pc->jump(absolute_destination_index); } //-------------------------------------------------- BNZ::BNZ (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Branching(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("bnz"); } void BNZ::execute() { if(cpu16->status->value.get() & STATUS_Z) cpu16->pc->increment(); else cpu16->pc->jump(absolute_destination_index); } //-------------------------------------------------- BOV::BOV (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Branching(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("bov"); } void BOV::execute() { if(cpu16->status->value.get() & STATUS_OV) cpu16->pc->jump(absolute_destination_index); else cpu16->pc->increment(); } //-------------------------------------------------- BRA16::BRA16 (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu, new_opcode, address) { destination_index = (new_opcode & 0x7ff)+1; absolute_destination_index = (cpu16->getCurrentDisasmIndex() + destination_index) & 0xfffff; if(new_opcode & 0x400) { absolute_destination_index -= 0x800; destination_index = 0x800 - destination_index; } new_name("bra"); } void BRA16::execute() { cpu16->pc->jump(absolute_destination_index); } char * BRA16::name(char *return_str,int len) { sprintf(return_str,"%s\t$%c0x%x\t;(0x%05x)", gpsimObject::name().c_str(), (opcode & 0x400) ? '-' : '+', (destination_index & 0x7ff)<<1, absolute_destination_index<<1); return(return_str); } //-------------------------------------------------- void BSF16::execute() { if (access) reg = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) reg = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else reg = cpu_pic->registers[register_address]; reg->put(reg->get_value() | mask); // Must not use reg->value.get() as it breaks indirects cpu16->pc->increment(); } //-------------------------------------------------- void BCF16::execute() { if (access) reg = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) reg = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else reg = cpu_pic->registers[register_address]; reg->put(reg->get_value() & mask); // Must not use reg->value.get() as it breaks indirects cpu16->pc->increment(); } //-------------------------------------------------- void BTFSC16::execute() { if (access) reg = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) reg = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else reg = cpu_pic->registers[register_address]; unsigned int result = mask & reg->get(); if(!result) cpu_pic->pc->skip(); // Skip next instruction else cpu_pic->pc->increment(); } //-------------------------------------------------- void BTFSS16::execute() { if (access) reg = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) reg = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else reg = cpu_pic->registers[register_address]; unsigned int result = mask & reg->get(); if(result) cpu_pic->pc->skip(); // Skip next instruction else cpu_pic->pc->increment(); } //-------------------------------------------------- BTG::BTG (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Bit_op(new_cpu, new_opcode,address) { decode(new_cpu, new_opcode); new_name("btg"); } void BTG::execute() { if (access) reg = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) reg = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else reg = cpu_pic->registers[register_address]; reg->put(reg->get() ^ mask); cpu16->pc->increment(); } //-------------------------------------------------- BZ::BZ (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Branching(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("bz"); } void BZ::execute() { if(cpu16->status->value.get() & STATUS_Z) cpu16->pc->jump(absolute_destination_index); else cpu16->pc->increment(); } //-------------------------------------------------- CALL16::CALL16 (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : multi_word_branch(new_cpu, new_opcode, address) { fast = (new_opcode & 0x100) ? true : false; cpu = new_cpu; PMaddress = cpu16->getCurrentDisasmAddress(); PMindex = cpu16->getCurrentDisasmIndex(); initialized = false; new_name("call"); } void CALL16::execute() { if(!initialized) runtime_initialize(); if (cpu16->stack->push(cpu16->pc->get_next())) { if(fast) cpu16->fast_stack.push(); cpu16->pc->jump(destination_index); } else // stack overflow reset cpu16->pc->jump(0); } char *CALL16::name(char *return_str,int len) { if(!initialized) runtime_initialize(); snprintf(return_str,len,"call\t0x%05x%s", destination_index<<1, ((fast) ? ",f" : " ")); return(return_str); } //-------------------------------------------------- void COMF16::execute() { unsigned int new_value; if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; new_value = source->get() ^ 0xff; // Store the result if(destination) source->put(new_value); // Result goes to source else cpu16->Wput(new_value); cpu16->status->put_N_Z(new_value); cpu16->pc->increment(); } //-------------------------------------------------- CPFSEQ::CPFSEQ (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("cpfseq"); } void CPFSEQ::execute() { if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; if(source->get() == cpu16->Wget()) cpu16->pc->skip(); // Skip next instruction else cpu16->pc->increment(); } //-------------------------------------------------- CPFSGT::CPFSGT (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("cpfsgt"); } void CPFSGT::execute() { if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; if(source->get() > cpu16->Wget()) cpu16->pc->skip(); // Skip next instruction else cpu16->pc->increment(); } //-------------------------------------------------- CPFSLT::CPFSLT (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("cpfslt"); } void CPFSLT::execute() { if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; if(source->get() < cpu16->Wget()) cpu16->pc->skip(); // Skip next instruction else cpu16->pc->increment(); } void CLRF16::execute() { if (access) cpu_pic->register_bank[register_address]->put(0); else if (cpu16->extended_instruction() && register_address < 0x60) cpu_pic->registers[register_address + cpu16->ind2.fsr_value]->put(0); else cpu_pic->registers[register_address]->put(0); cpu16->status->put_Z(1); cpu16->pc->increment(); } //-------------------------------------------------- DAW::DAW (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("daw"); } void DAW::execute() { unsigned int new_value; new_value = cpu16->Wget(); if(((new_value & 0x0f) > 0x9) || (cpu16->status->value.get() & STATUS_DC)) new_value += 0x6; if(((new_value & 0xf0) > 0x90) || (cpu16->status->value.get() & STATUS_C)) new_value += 0x60; cpu16->Wput(new_value & 0xff); if ( new_value>0xff ) cpu16->status->put_C(1); else if ( cpu16->bugs() & BUG_DAW ) cpu16->status->put_C(0); cpu16->pc->increment(); } //-------------------------------------------------- void DECF16::execute() { if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; unsigned int src_value = source->get(); unsigned int new_value = src_value - 1; if(destination) source->put(new_value & 0xff); // Result goes to source else cpu16->Wput(new_value & 0xff); // cpu16->status->put_N_Z(new_value); cpu16->status->put_Z_C_DC_OV_N_for_sub(new_value,src_value,1); cpu16->pc->increment(); } //-------------------------------------------------- void DECFSZ16::execute() { unsigned int new_value; if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; new_value = (source->get() - 1)&0xff; if(destination) source->put(new_value); // Result goes to source else cpu16->Wput(new_value); if(0==new_value) cpu16->pc->skip(); // Skip next instruction else cpu16->pc->increment(); } //-------------------------------------------------- DCFSNZ::DCFSNZ (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("dcfsnz"); } void DCFSNZ::execute() { unsigned int new_value; if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; new_value = (source->get() - 1)&0xff; if(destination) source->put(new_value); // Result goes to source else cpu16->Wput(new_value); if(0!=new_value) cpu16->pc->skip(); // Skip next instruction else cpu16->pc->increment(); } //-------------------------------------------------- GOTO16::GOTO16 (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : multi_word_branch(new_cpu, new_opcode, address) { PMaddress = cpu16->getCurrentDisasmAddress(); PMindex = cpu16->getCurrentDisasmIndex(); initialized = false; new_name("goto"); } void GOTO16::execute() { if(!initialized) runtime_initialize(); cpu16->pc->jump(destination_index); } //-------------------------------------------------- void INCF16::execute() { unsigned int new_value, src_value; if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; src_value = source->get(); new_value = (src_value + 1); if(destination) { source->put(new_value & 0xff); // Result goes to source cpu16->status->put_Z_C_DC_OV_N(new_value, src_value, 1); } else { cpu16->Wput(new_value & 0xff); cpu16->status->put_Z_C_DC_OV_N(new_value, 1, src_value); } cpu16->pc->increment(); } //-------------------------------------------------- void INCFSZ16::execute() { unsigned int new_value; if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; new_value = (source->get() + 1)&0xff; if(destination) source->put(new_value); // Result goes to source else cpu16->Wput(new_value); if(0==new_value) cpu16->pc->skip(); // Skip next instruction else cpu16->pc->increment(); } //-------------------------------------------------- INFSNZ::INFSNZ (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("infsnz"); } void INFSNZ::execute() { unsigned int new_value; if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; new_value = (source->get() + 1)&0xff; if(destination) source->put(new_value); // Result goes to source else cpu16->Wput(new_value); if(0!=new_value) cpu16->pc->skip(); // Skip next instruction else cpu16->pc->increment(); } //-------------------------------------------------- void IORLW16::execute() { unsigned int new_value; new_value = cpu16->Wget() | L; cpu16->Wput(new_value); cpu16->status->put_N_Z(new_value); cpu16->pc->increment(); } //-------------------------------------------------- void IORWF16::execute() { unsigned int new_value; if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; new_value = source->get() | cpu16->Wget(); if(destination) source->put(new_value); // Result goes to source else cpu16->Wput(new_value); cpu16->status->put_N_Z(new_value); cpu16->pc->increment(); } //-------------------------------------------------- LCALL16::LCALL16 (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : multi_word_branch(new_cpu, new_opcode, address) { // opcode = new_opcode; // fast = new_opcode & 0x100; // cpu = new_cpu; // address = cpu16->current_disasm_address; // initialized = 0; new_name("lcall"); } void LCALL16::execute() { // if(!initialized) // runtime_initialize(); // cpu16->stack->push(cpu16->pc->get_next()); // if(fast) // cpu16->fast_stack.push(); // cpu16->pc->jump(destination); } char *LCALL16::name(char *return_str,int len) { // if(!initialized) // runtime_initialize(); snprintf(return_str,len,"lcall\t0x%05x%s", destination_index<<1, ((fast) ? ",f" : " ")); return(return_str); } //-------------------------------------------------- LFSR::LFSR (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : multi_word_instruction(new_cpu, new_opcode, address) { PMaddress = cpu16->getCurrentDisasmAddress(); PMindex = cpu16->getCurrentDisasmIndex(); initialized = false; fsr = (opcode & 0x30)>>4; switch(fsr) { case 0: ia = &cpu16->ind0; break; case 1: ia = &cpu16->ind1; break; case 2: ia = &cpu16->ind2; break; case 3: cout << "LFSR decode error, fsr is 3 and should only be 0,1, or 2\n"; ia = &cpu16->ind0; } new_name("lfsr"); } void LFSR::runtime_initialize() { if(cpu_pic->program_memory[PMindex+1]) { word2_opcode = cpu_pic->program_memory[PMindex+1]->get_opcode(); if((word2_opcode & 0xff00) != 0xf000) { cout << "16bit-instructions.cc LFSR error\n"; return; } cpu_pic->program_memory[PMindex+1]->update_line_number( file_id, src_line, lst_line, 0, 0); k = ( (opcode & 0xf)<<8) | (word2_opcode & 0xff); initialized = true; } } char *LFSR::name(char *return_str,int len) { if(!initialized) runtime_initialize(); snprintf(return_str,len,"%s\t%d,0x%x", gpsimObject::name().c_str(), fsr, k); return(return_str); } void LFSR::execute() { if(!initialized) runtime_initialize(); ia->put_fsr(k); cpu16->pc->skip(); //cpu16->pc->increment(); } //-------------------------------------------------- void MOVF16::execute() { unsigned int source_value; if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; source_value = source->get(); // Store the result if(destination) source->put(source_value); else cpu16->Wput(source_value); cpu16->status->put_N_Z(source_value); cpu16->pc->increment(); } //-------------------------------------------------- MOVFF::MOVFF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : multi_word_instruction(new_cpu, new_opcode, address) { PMaddress = cpu16->getCurrentDisasmAddress(); PMindex = cpu16->getCurrentDisasmIndex(); initialized = false; destination = 0; source = opcode & 0xfff; new_name("movff"); } void MOVFF::runtime_initialize() { if(cpu_pic->program_memory[PMindex+1]) { word2_opcode = cpu_pic->program_memory[PMindex+1]->get_opcode(); if((word2_opcode & 0xf000) != 0xf000) { cout << "16bit-instructions.cc MOVFF error\n"; return; } cpu_pic->program_memory[PMindex+1]->update_line_number( file_id, src_line, lst_line, 0, 0); destination = word2_opcode & 0xfff; initialized = true; } } char *MOVFF::name(char *return_str,int len) { if(!initialized) runtime_initialize(); snprintf(return_str,len,"%s\t%s,%s", gpsimObject::name().c_str(), cpu_pic->registers[source]->name().c_str(), cpu_pic->registers[destination]->name().c_str()); return(return_str); } void MOVFF::execute() { if(!initialized) runtime_initialize(); unsigned int r = cpu_pic->registers[source]->get(); cpu_pic->registers[destination]->put(r); cpu16->pc->skip(); //cpu16->pc->increment(); } //-------------------------------------------------- MOVFP::MOVFP (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : multi_word_instruction(new_cpu, new_opcode, address) { new_name("movfp"); } void MOVFP::runtime_initialize() { // if(cpu_pic->program_memory[address+1]) // { // word2_opcode = cpu_pic->program_memory[address+1]->get_opcode(); // if((word2_opcode & 0xf000) != 0xf000) // { // cout << "16bit-instructions.cc MOVFP error\n"; // return; // } // cpu_pic->program_memory[address+1]->update_line_number( file_id, src_line, lst_line); // destination = word2_opcode & 0xfff; // initialized = 1; // } } char *MOVFP::name(char *return_str, int len) { // if(!initialized) // runtime_initialize(); snprintf(return_str,len,"%s\t%s,%s", gpsimObject::name().c_str(), cpu_pic->registers[source]->name().c_str(), cpu_pic->registers[destination]->name().c_str()); return(return_str); } void MOVFP::execute() { // if(!initialized) // runtime_initialize(); // unsigned int r = cpu_pic->registers[source]->get(); // cpu_pic->pc->skip(); // cpu_pic->registers[destination]->put(r); // cpu_pic->pc->increment(); } //-------------------------------------------------- MOVLB16::MOVLB16 (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Literal_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("movlb"); } void MOVLB16::execute() { cpu16->registers[cpu16->bsr.address]->put(L); cpu16->pc->increment(); } //-------------------------------------------------- MOVLR::MOVLR (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Literal_op(new_cpu, new_opcode, address) { // decode(new_cpu, new_opcode); new_name("movlr"); } void MOVLR::execute() { // unsigned int source_value; // cpu16->bsr.put(L); // cpu_pic->pc->increment(); } //-------------------------------------------------- MOVPF::MOVPF (Processor *new_cpu, unsigned int new_opcode,unsigned int address) : multi_word_instruction(new_cpu, new_opcode,address) { // opcode = new_opcode; // cpu = new_cpu; // address = cpu16->current_disasm_address; // initialized = 0; // destination = 0; // source = opcode & 0xfff; new_name("movpf"); } void MOVPF::runtime_initialize() { // if(cpu_pic->program_memory[address+1]) // { // word2_opcode = cpu_pic->program_memory[address+1]->get_opcode(); // if((word2_opcode & 0xf000) != 0xf000) // { // cout << "16bit-instructions.cc MOVFP error\n"; // return; // } // cpu_pic->program_memory[address+1]->update_line_number( file_id, src_line, lst_line); // destination = word2_opcode & 0xfff; // initialized = 1; // } } char *MOVPF::name(char *return_str,int len) { // if(!initialized) // runtime_initialize(); snprintf(return_str,len,"%s\t%s,%s", gpsimObject::name().c_str(), cpu_pic->registers[source]->name().c_str(), cpu_pic->registers[destination]->name().c_str()); return(return_str); } void MOVPF::execute() { // if(!initialized) // runtime_initialize(); // unsigned int r = cpu_pic->registers[source]->get(); // cpu_pic->pc->skip(); // cpu_pic->registers[destination]->put(r); // cpu_pic->pc->increment(); } //-------------------------------------------------- MOVWF16::MOVWF16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : MOVWF(new_cpu,new_opcode, address) { } void MOVWF16::execute() { if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; source->put(cpu16->Wget()); cpu16->pc->increment(); } #ifdef RRR //-------------------------------------------------- MOVWF16a::MOVWF16a(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : MOVWF(new_cpu,new_opcode, address) { // pic_processor * cpu = (pic_processor*) new_cpu; register_address = (new_opcode & 0xff); if ( register_address >= (cpu_pic->access_gprs()) ) // some 18f devices split at 0x60 register_address |= 0xf00; } void MOVWF16a::execute() { source = cpu_pic->registers[register_address]; source->put(cpu16->Wget()); cpu16->pc->increment(); } #endif //RRR //-------------------------------------------------- MULLW::MULLW (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Literal_op(new_cpu, new_opcode,address) { decode(new_cpu, new_opcode); new_name("mullw"); } void MULLW::execute() { unsigned int value; value = (0xff & cpu16->Wget()) * L; cpu16->prodl.put(value &0xff); cpu16->prodh.put((value>>8) &0xff); cpu16->pc->increment(); } //-------------------------------------------------- MULWF::MULWF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("mulwf"); } void MULWF::execute() { unsigned int value; if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; //It's not necessary to '&' the get()'s with 0xff, but it doesn't //hurt either. value = (0xff & cpu16->Wget()) * (0xff & source->get()); cpu16->prodl.put(value &0xff); cpu16->prodh.put((value>>8) &0xff); cpu16->pc->increment(); } //-------------------------------------------------- NEGF::NEGF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("negf"); } void NEGF::execute() { unsigned int new_value,src_value; if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; src_value = source->get(); new_value = 1 + ~src_value; // two's complement source->put(new_value&0xff); cpu16->status->put_Z_C_DC_OV_N_for_sub(new_value,0,src_value); cpu16->pc->increment(); } //-------------------------------------------------- NEGW::NEGW (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode,address) { // decode(new_cpu, new_opcode); new_name("negw"); } void NEGW::execute() { cout << "negw is not implemented???"; } //-------------------------------------------------- POP::POP (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("pop"); } void POP::execute() { cpu16->stack->pop(); // discard TOS cpu16->pc->increment(); } //-------------------------------------------------- PUSH::PUSH (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("push"); } void PUSH::execute() { if (cpu16->stack->push(cpu16->pc->get_next())) cpu16->pc->increment(); else // stack overflow reset cpu16->pc->jump(0); } //-------------------------------------------------- RCALL::RCALL (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu, new_opcode, address) { destination_index = (new_opcode & 0x7ff)+1; if(new_opcode & 0x400) destination_index -= 0x800; absolute_destination_index = (cpu16->getCurrentDisasmIndex() + destination_index) & 0xfffff; new_name("rcall"); } void RCALL::execute() { if(cpu16->stack->push(cpu16->pc->get_next())) cpu16->pc->jump(absolute_destination_index); else // stack overflow reset cpu16->pc->jump(0); } char * RCALL::name(char *return_str,int len) { snprintf(return_str,len,"%s\t$%c0x%x\t;(0x%05x)", gpsimObject::name().c_str(), (destination_index < 0) ? '-' : '+', (destination_index & 0x7ff)<<1, absolute_destination_index<<1); return(return_str); } //-------------------------------------------------- void RETFIE16::execute() { cpu16->pc->new_address(cpu16->stack->pop()); if(fast) cpu16->fast_stack.pop(); //cout << "retfie: need to enable interrupts\n"; cpu16->intcon.set_gies(); // re-enable the appropriate interrupt } char *RETFIE16::name(char *return_str,int len) { if(fast) snprintf(return_str,len,"retfie\tfast"); else snprintf(return_str,len,"retfie"); return(return_str); } //-------------------------------------------------- void RETURN16::execute() { cpu16->pc->new_address(cpu16->stack->pop()); if(fast) cpu16->fast_stack.pop(); } char *RETURN16::name(char *return_str,int len) { if(fast) snprintf(return_str,len,"return\tfast"); else snprintf(return_str,len,"return"); return(return_str); } //-------------------------------------------------- RLCF::RLCF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("rlcf"); } void RLCF::execute() { unsigned int new_value; if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; new_value = (source->get() << 1) | cpu16->status->get_C(); if(destination) source->put(new_value&0xff); // Result goes to source else cpu16->Wput(new_value&0xff); cpu16->status->put_Z_C_N(new_value); cpu16->pc->increment(); } //-------------------------------------------------- RLNCF::RLNCF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("rlncf"); } void RLNCF::execute() { unsigned int new_value,src_value; if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; src_value = source->get(); new_value = (src_value << 1) | ( (src_value & 0x80) ? 1 : 0); if(destination) source->put(new_value&0xff); // Result goes to source else cpu16->Wput(new_value&0xff); cpu16->status->put_N_Z(new_value); cpu16->pc->increment(); } //-------------------------------------------------- RRCF::RRCF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("rrcf"); } void RRCF::execute() { unsigned int new_value,src_value; if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; src_value = source->get() & 0xff; new_value = (src_value >> 1) | (cpu16->status->get_C() ? 0x80 : 0); if(destination) source->put(new_value&0xff); // Result goes to source else cpu16->Wput(new_value&0xff); cpu16->status->put_Z_C_N(new_value | ((src_value & 1) ? 0x100 : 0) ); cpu16->pc->increment(); } //-------------------------------------------------- RRNCF::RRNCF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("rrncf"); } void RRNCF::execute() { unsigned int new_value,src_value; if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; src_value = source->get() & 0xff; new_value = (src_value >> 1) | ( (src_value & 1) ? 0x80 : 0); if(destination) source->put(new_value&0xff); // Result goes to source else cpu16->Wput(new_value&0xff); cpu16->status->put_N_Z(new_value | ((src_value & 1) ? 0x100 : 0) ); cpu16->pc->increment(); } //-------------------------------------------------- SETF::SETF (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("setf"); } void SETF::execute() { if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; source->put(0xff); cpu16->pc->increment(); } //-------------------------------------------------- void SLEEP16::execute() { cpu_pic->enter_sleep(); } //-------------------------------------------------- void SUBLW16::execute() { unsigned int new_value,old_value; new_value = L - (old_value = cpu16->Wget()); cpu16->Wput(new_value & 0xff); cpu16->status->put_Z_C_DC_OV_N_for_sub(new_value, L, old_value); cpu16->pc->increment(); } //-------------------------------------------------- SUBFWB::SUBFWB (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("subfwb"); } void SUBFWB::execute() { unsigned int new_value,src_value,w_value; if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; new_value = (w_value = cpu16->Wget()) - (src_value = source->get()) - (1 - cpu16->status->get_C()); if(destination) source->put(new_value & 0xff); else cpu16->Wput(new_value & 0xff); cpu16->status->put_Z_C_DC_OV_N_for_sub(new_value, w_value, src_value); cpu16->pc->increment(); } //-------------------------------------------------- void SUBWF16::execute() { unsigned int new_value,src_value,w_value; if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; new_value = (src_value = source->get()) - (w_value = cpu16->Wget()); if(destination) source->put(new_value & 0xff); else cpu16->Wput(new_value & 0xff); cpu16->status->put_Z_C_DC_OV_N_for_sub(new_value, src_value, w_value); cpu16->pc->increment(); } //-------------------------------------------------- void SUBWFB16::execute() { unsigned int new_value,src_value,w_value; if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; new_value = (src_value = source->get()) - (w_value = cpu16->Wget()) - (1 - cpu16->status->get_C()); if(destination) source->put(new_value & 0xff); else cpu16->Wput(new_value & 0xff); cpu16->status->put_Z_C_DC_OV_N_for_sub(new_value, src_value, w_value); cpu16->pc->increment(); } //-------------------------------------------------- void SWAPF16::execute() { unsigned int src_value; if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; src_value = source->get(); if(destination) source->put( ((src_value >> 4) & 0x0f) | ( (src_value << 4) & 0xf0) ); else cpu_pic->Wput( ((src_value >> 4) & 0x0f) | ( (src_value << 4) & 0xf0) ); cpu16->pc->increment(); } //-------------------------------------------------- TBLRD::TBLRD (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("tblrd"); } char *TBLRD::name(char *return_str,int len) { const char *index_modes[4] = {"*","*+","*-","+*"}; snprintf(return_str,len,"%s\t%s", gpsimObject::name().c_str(), index_modes[opcode&0x3]); return(return_str); } void TBLRD::execute() { if((opcode & 3)==3) cpu16->tbl.increment(); cpu16->tbl.read(); if((opcode & 3)==1) cpu16->tbl.increment(); else if((opcode & 3)==2) cpu16->tbl.decrement(); cpu16->pc->increment(); } //-------------------------------------------------- TBLWT::TBLWT (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("tblwt"); } char *TBLWT::name(char *return_str,int len) { const char *index_modes[4] = {"*","*+","*-","+*"}; snprintf(return_str,len,"%s\t%s", gpsimObject::name().c_str(), index_modes[opcode&0x3]); return(return_str); } void TBLWT::execute() { if((opcode & 3)==3) cpu16->tbl.increment(); cpu16->tbl.write(); if((opcode & 3)==1) cpu16->tbl.increment(); else if((opcode & 3)==2) cpu16->tbl.decrement(); cpu16->pc->increment(); } //-------------------------------------------------- TLRD::TLRD (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu, new_opcode, address) { // decode(new_cpu, new_opcode); new_name("tlrd"); } char *TLRD::name(char *return_str,int len) { const char *index_modes[4] = {"*","*+","*-","+*"}; snprintf(return_str,len,"%s\t%s", gpsimObject::name().c_str(), index_modes[opcode&0x3]); return(return_str); } void TLRD::execute() { // unsigned int pm_opcode; // if((opcode & 3)==3) // cpu16->tbl.increment(); // cpu16->tbl.read(); // if((opcode & 3)==1) // cpu16->tbl.increment(); // else if((opcode & 3)==2) // cpu16->tbl.decrement(); // cpu_pic->pc->increment(); } //-------------------------------------------------- TLWT::TLWT (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : instruction(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("tlwt"); } char *TLWT::name(char *return_str,int len) { const char *index_modes[4] = {"*","*+","*-","+*"}; snprintf(return_str,len,"%s\t%s", gpsimObject::name().c_str(), index_modes[opcode&0x3]); return(return_str); } void TLWT::execute() { // unsigned int pm_opcode; // if((opcode & 3)==3) // cpu16->tbl.increment(); // cpu16->tbl.write(); // if((opcode & 3)==1) // cpu16->tbl.increment(); // else if((opcode & 3)==2) // cpu16->tbl.decrement(); // cpu_pic->pc->increment(); } //-------------------------------------------------- TSTFSZ::TSTFSZ (Processor *new_cpu, unsigned int new_opcode, unsigned int address) : Register_op(new_cpu, new_opcode, address) { decode(new_cpu, new_opcode); new_name("tstfsz"); } void TSTFSZ::execute() { if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; if( 0 == (source->get() & 0xff) ) cpu16->pc->skip(); // Skip next instruction else cpu16->pc->increment(); } //-------------------------------------------------- void XORLW16::execute() { unsigned int new_value; new_value = cpu16->Wget() ^ L; cpu16->Wput(new_value); cpu16->status->put_N_Z(new_value); cpu16->pc->increment(); } //-------------------------------------------------- void XORWF16::execute() { unsigned int new_value; if (access) source = cpu_pic->register_bank[register_address]; else if (cpu16->extended_instruction() && register_address < 0x60) source = cpu_pic->registers[register_address + cpu16->ind2.fsr_value]; else source = cpu_pic->registers[register_address]; new_value = source->get() ^ cpu16->Wget(); if(destination) source->put(new_value); // Result goes to source else cpu16->Wput(new_value); cpu16->status->put_N_Z(new_value); cpu16->pc->increment(); } gpsim-0.27.0/src/gpsim_classes.h0000664000076400007640000000332112135431722013445 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ /* * gpsim_classes.h * * This include file contains most of the class names defined in gpsim * It's used to define forward references to classes and help alleviate * include file dependencies. */ #ifndef __GPSIM_CLASSES_H__ #define __GPSIM_CLASSES_H__ /*================================================================== * * Here are a few enum definitions */ /* * Define all of the different types of reset conditions: */ enum RESET_TYPE { POR_RESET, // Power-on reset WDT_RESET, // Watch Dog timer timeout reset IO_RESET, // I/O pin reset MCLR_RESET, // MCLR (Master Clear) reset SOFT_RESET, // Software initiated reset BOD_RESET, // Brown out detection reset SIM_RESET, // Simulation Reset EXIT_RESET, // Leaving Reset, resuming normal execution. OTHER_RESET, // STKUNF_RESET, // Stack undeflow reset STKOVF_RESET // Statck overflow reset }; #endif // __GPSIM_CLASSES_H__ gpsim-0.27.0/src/pic-ioports.h0000664000076400007640000001345112175377101013072 00000000000000/* Copyright (C) 1998 T. Scott Dattalo Copyright (C) 2009 Roy R. Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __PIC_IOPORTS_H__ #define __PIC_IOPORTS_H__ #include "ioports.h" ///------------------------------------------------------------ class PicTrisRegister; class PicPortRegister : public PortRegister { public: PicPortRegister(Processor *pCpu, const char *pName, const char *pDesc, /*const char *port_name, */ unsigned int numIopins, unsigned int enableMask=0xff); void setTris(PicTrisRegister *new_tris); Register *getTris(); protected: PicTrisRegister *m_tris; }; class PicTrisRegister : public sfr_register { public: PicTrisRegister(Processor *pCpu, const char *pName, const char *pDesc, /*const char *tris_name, */ PicPortRegister *,bool bIgnoreWDTResets, unsigned int nEnableMask=0xff); virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); virtual unsigned int get(); virtual char get3StateBit(unsigned int bitMask); void setEnableMask(unsigned int); unsigned int getEnableMask() { return m_EnableMask; } void reset(RESET_TYPE r); protected: PicPortRegister *m_port; unsigned int m_EnableMask; bool m_bIgnoreWDTResets; }; class INTCON; class INTCON2; class INTCON3; // PicPortBRegister is usually used for portb and interrupts on selected edge // of bit 0 and sleep wakeup and interrupt on level changes for bits 4-7. class PicPortBRegister : public PicPortRegister { public: PicPortBRegister(Processor *pCpu, const char *pName, const char *pDesc, INTCON *pIntcon, unsigned int numIopins, unsigned int enableMask=0xff, INTCON2 *pIntcon2 = NULL, INTCON3 *pIntcon3 = NULL ); ~PicPortBRegister(); virtual void put(unsigned int new_value); virtual unsigned int get(); virtual void setbit(unsigned int bit_number, char new_value); void setRBPU(bool); void setIntEdge(bool); void assignRBPUSink(unsigned int bitPos, sfr_register *); protected: enum { eIntEdge = 1<<6, eRBPU = 1<<7 }; bool m_bRBPU; bool m_bIntEdge; BitSink *m_bsRBPU; INTCON *m_pIntcon; INTCON2 *m_pIntcon2; INTCON3 *m_pIntcon3; }; class IOC; // Like PicPortBRegister, PicPortGRegister allows wakeup from sleep // and interrupt on pin level change. However, PicPortGRegister // uses IOC to determine which of any of the bits will do this. // Note: as GPIF,GPIE are the same bits as RBIF,RBIE in INTCON we can // use the existing set_rbif function to set the GPIF bit. // // class PicPortGRegister : public PicPortBRegister { public: INTCON *m_pIntcon; IOC *m_pIoc; PicPortGRegister(Processor *pCpu, const char *pName, const char *pDesc, INTCON *pIntcon, IOC *pIoc, unsigned int numIopins, unsigned int enableMask=0x3f) : PicPortBRegister(pCpu, pName, pDesc, pIntcon, numIopins, enableMask), m_pIntcon(pIntcon), m_pIoc(pIoc) { } virtual void setbit(unsigned int bit_number, char new3State); }; class PicPortIOCRegister : public PicPortBRegister { public: INTCON *m_pIntcon; IOC *m_Iocap; IOC *m_Iocan; IOC *m_Iocaf; PicPortIOCRegister(Processor *pCpu, const char *pName, const char *pDesc, INTCON *pIntcon, IOC *pIocap, IOC *pIocan, IOC *pIocaf, unsigned int numIopins, unsigned int enableMask=0x3f) : PicPortBRegister(pCpu, pName, pDesc, pIntcon, numIopins, enableMask), m_pIntcon(pIntcon), m_Iocap(pIocap), m_Iocan(pIocan), m_Iocaf(pIocaf) { } virtual void setbit(unsigned int bit_number, char new3State); }; class PSP; class PicPSP_PortRegister : public PortRegister { public: PicPSP_PortRegister(Processor *pCpu, const char *pName, const char *pDesc, /*const char *port_name, */ unsigned int numIopins, unsigned int enableMask); virtual void put(unsigned int new_value); virtual unsigned int get(); void setPSP(PSP *pspReg) { m_psp = pspReg;} void setTris(PicTrisRegister *new_tris); Register *getTris(); protected: PicTrisRegister *m_tris; PSP *m_psp; }; class PicPSP_TrisRegister : public PicTrisRegister { public: PicPSP_TrisRegister(Processor *pCpu, const char *pName, const char *pDesc, /*const char *tris_name, */ PicPortRegister *,bool bIgnoreWDTResets); virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); virtual unsigned int get(); }; //------------------------------------------------------------------------ // PicLatchRegister - 16bit-core devices class PicLatchRegister : public sfr_register { public: virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); virtual unsigned int get(); virtual void setbit(unsigned int bit_number, char new_value); virtual void setEnableMask(unsigned int nEnableMask); PicLatchRegister(Processor *pCpu, const char *pName, const char *pDesc, /*const char *, */ PortRegister *,unsigned int nEnableMask=0xff); protected: PortRegister *m_port; unsigned int m_EnableMask; }; #endif // __PIC_IOPORTS_H__ gpsim-0.27.0/src/sim_context.cc0000644000076400007640000002372511403155662013316 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #ifdef _WIN32 #include "uxtime.h" #endif #ifndef _MSC_VER #include #endif #include #include #include #include #include #ifndef _WIN32 #if !defined(_MAX_PATH) #define _MAX_PATH 1024 #endif #include #else #include #endif #include "../config.h" #include "errors.h" #include "fopen-path.h" #include "program_files.h" #include "sim_context.h" #include "breakpoints.h" #include "trace.h" #include "symbol.h" //================================================================================ // Global Declarations // FIXME - move these global references somewhere else // don't print out a bunch of garbage while initializing //================================================================================ // // pic_processor // // This file contains all (most?) of the code that simulates those features // common to all pic microcontrollers. // // CSimulationContext::CSimulationContext() : m_bEnableLoadSource(*new Boolean("EnableSourceLoad", true, "Enables and disables loading of source code")) { active_cpu_id = 0; cpu_ids = 0; m_pbUserCanceled = NULL; globalSymbolTable().addSymbol(&m_bEnableLoadSource); } CSimulationContext::~CSimulationContext() { globalSymbolTable().deleteSymbol("EnableSourceLoad"); } void CSimulationContext::Initialize() { } //------------------------------------------------------------ // The static pointer 's_SimulationContext' in CSimulationContext // is initialized to 0 here, but initialized to something valid // when GetContext is called. CSimulationContext *CSimulationContext::s_SimulationContext = 0; CSimulationContext *CSimulationContext::GetContext() { // Declare static CSimulationContext and return a pointer to it. // Note, we could 'new' an object, but there's no way to call the // destructor in that case. static CSimulationContext sContext; s_SimulationContext = &sContext; return s_SimulationContext; } bool CSimulationContext::SetDefaultProcessor(const char * processor_type, const char * processor_new_name) { if (processor_type) { ProcessorConstructor *pc = ProcessorConstructorList::GetList()->findByType(processor_type); if (pc) { m_DefProcessorName = processor_type; if(processor_new_name == NULL) m_DefProcessorNameNew.clear(); else m_DefProcessorNameNew = processor_new_name; return true; } } else { m_DefProcessorNameNew = processor_new_name; } return false; } //------------------------------------------------------------------- Processor * CSimulationContext::SetProcessorByType(const char * processor_type, const char * processor_new_name) { Processor *p; CProcessorList::iterator it = processor_list.findByType(string(processor_type)); GetBreakpoints().clear_all(GetActiveCPU()); cout << __FUNCTION__ << " FIXME \n"; // GetSymbolTable().Reinitialize(); if(processor_list.end() == it) { p = add_processor(processor_type,processor_new_name); } else { p = it->second; delete p; p = add_processor(processor_type,processor_new_name); // p->init } return p; } //------------------------------------------------------------------- Processor * CSimulationContext::add_processor(const char * processor_type, const char * processor_new_name) { if(verbose) cout << "Trying to add new processor '" << processor_type << "' named '" << processor_new_name << "'\n"; ProcessorConstructor *pc = ProcessorConstructorList::GetList()->findByType(processor_type); if(pc) { return add_processor(pc,processor_new_name ? processor_new_name : m_DefProcessorNameNew.c_str()); } else cout << processor_type << " is not a valid processor.\n" "(try 'processor list' to see a list of valid processors.\n"; return 0; } Processor * CSimulationContext::add_processor(ProcessorConstructor *pc, const char * processor_new_name) { Processor * p = pc->ConstructProcessor(processor_new_name); if(p) { add_processor(p); p->m_pConstructorObject = pc; } else cout << " unable to add a processor (BUG?)\n"; return p; } Processor * CSimulationContext::add_processor(Processor *p) { processor_list.insert(CProcessorList::value_type(p->name(), p)); //p->initializeAttributes(); active_cpu = p; //p->processor_id = active_cpu_id = ++cpu_ids; if(verbose) { cout << p->name() << '\n'; cout << "Program Memory size " << p->program_memory_size() << " words\n"; cout << "Register Memory size " << p->register_memory_size() << '\n'; } trace.switch_cpus(p); // Tell the gui or any modules that are interfaced to gpsim // that a new processor has been declared. gi.new_processor(p); return p; return 0; } int CSimulationContext::LoadProgram(const char *filename, const char *pProcessorType, Processor **ppProcessor, const char *pProcessorName) { bool bReturn = false; Processor *pProcessor; FILE * pFile = fopen_path (filename, "rb"); if(pFile == NULL) { char cw[_MAX_PATH]; perror((string("failed to open program file ") + filename).c_str()); getcwd(cw, sizeof(cw)); cerr << "current working directory is "; cerr << cw; cerr << endl; return false; } if(pProcessorType != NULL) { pProcessor = SetProcessorByType(pProcessorType, NULL); if(pProcessor != NULL) { bReturn = pProcessor->LoadProgramFile(filename, pFile, pProcessorName); } } else if(!m_DefProcessorName.empty()) { pProcessor = SetProcessorByType(m_DefProcessorName.c_str(), NULL); if(pProcessor != NULL) { bReturn = pProcessor->LoadProgramFile(filename, pFile, pProcessorName); } } else { pProcessor = NULL; if (!m_DefProcessorNameNew.empty()) pProcessorName = m_DefProcessorNameNew.c_str(); // use processor defined in program file bReturn = ProgramFileTypeList::GetList().LoadProgramFile( &pProcessor, filename, pFile, pProcessorName); } fclose(pFile); if(bReturn) { // Tell all of the interfaces that a new program exists. gi.new_program(pProcessor); } if(ppProcessor != NULL) { *ppProcessor = pProcessor; } return bReturn; } //------------------------------------------------------------------------ // dump_processor_list - print out all of the processors a user is // simulating. void CSimulationContext::dump_processor_list(void) { cout << "Processor List\n"; bool have_processors = 0; CProcessorList::iterator processor_iterator; for (processor_iterator = processor_list.begin(); processor_iterator != processor_list.end(); processor_iterator++) { CProcessorList::value_type vt = *processor_iterator; Processor *p = vt.second; cout << p->name() << '\n'; have_processors = 1; } if(!have_processors) cout << "(empty)\n"; } void CSimulationContext::Clear() { CProcessorList::iterator processor_iterator; for (processor_iterator = processor_list.begin(); processor_iterator != processor_list.end(); ++processor_iterator) { CProcessorList::value_type vt = *processor_iterator; Processor *p = vt.second; GetBreakpoints().clear_all(p); delete p; } processor_list.clear(); } void CSimulationContext::Reset(RESET_TYPE r) { /* Symbol_Table &ST = get_symbol_table(); Symbol_Table::module_symbol_iterator it; Symbol_Table::module_symbol_iterator itEnd = ST.endModuleSymbol(); for(it = ST.beginModuleSymbol(); it != itEnd; it++) { Module *m = (*it)->get_module(); if(m) { m->reset(r); } } */ cout << __FUNCTION__ << " FIXME \n"; } void CSimulationContext::NotifyUserCanceled() { if(m_pbUserCanceled != NULL) { *m_pbUserCanceled = true; m_pbUserCanceled = NULL; return; } if(CSimulationContext::GetContext()->GetActiveCPU()->simulation_mode == eSM_RUNNING) { // If we get a CTRL->C while processing a command file // we should probably stop the command file processing. CSimulationContext::GetContext()->GetBreakpoints().halt(); } } SymbolTable & CSimulationContext::GetSymbolTable() { return gSymbolTable; } Breakpoints & CSimulationContext::GetBreakpoints() { return get_bp(); } Processor * CSimulationContext::GetActiveCPU() { return get_active_cpu(); } Cycle_Counter * CSimulationContext::GetCycleCounter() { return &cycles; } CSimulationContext::CProcessorList::iterator CSimulationContext::CProcessorList::findByType(const key_type& _Keyval) { // First find a ProcessorConstructor that matches the // processor type we are looking for. This should handle // naming variations. ProcessorConstructorList * pcl = ProcessorConstructorList::GetList(); ProcessorConstructor * pc = pcl->findByType(_Keyval.c_str()); if(pc == NULL) return end(); // Now find the specific allocated processor that // was created with the ProcessorConstructor object // we found above. iterator it; iterator itEnd = end(); for(it = begin(); it != itEnd; it++) { if(it->second->m_pConstructorObject == pc) { return it; } } return itEnd; } gpsim-0.27.0/src/p12f6xx.cc0000775000076400007640000003712712175377101012207 00000000000000/* Copyright (C) 2009 Roy R. Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ // // p12f6xx // // This file supports: // PIC12F629 // PIC12F675 // PIC12F683 // //Note: unlike most other 12F processors these have 14bit instructions #include #include #include #include "../config.h" #include "symbol.h" #include "stimuli.h" #include "eeprom.h" #include "p12f6xx.h" #include "pic-ioports.h" #include "packages.h" //#define DEBUG #if defined(DEBUG) #include "../config.h" #define Dprintf(arg) {printf("%s:%d ",__FILE__,__LINE__); printf arg; } #else #define Dprintf(arg) {} #endif //======================================================================== // // Configuration Memory for the 12F6XX devices. class Config12F6 : public ConfigWord { public: Config12F6(P12F629 *pCpu) : ConfigWord("CONFIG12F6", 0x3fff, "Configuration Word", pCpu, 0x2007) { Dprintf(("Config12F6::Config12F6 %p\n", m_pCpu)); if (m_pCpu) { m_pCpu->set_config_word(0x2007, 0x3fff); } } }; // Does not match any of 3 versions in pir.h, pir.cc // If required by any other porcessors should be moved there // class PIR1v12f : public PIR { public: enum { TMR1IF = 1 << 0, CMIF = 1 << 3, ADIF = 1 << 6, EEIF = 1 << 7 }; //------------------------------------------------------------------------ PIR1v12f(Processor *pCpu, const char *pName, const char *pDesc,INTCON *_intcon, PIE *_pie) : PIR(pCpu,pName,pDesc,_intcon, _pie,0) { valid_bits = TMR1IF | CMIF | ADIF | EEIF; writable_bits = TMR1IF | CMIF | ADIF | EEIF; } virtual void set_tmr1if() { put(get() | TMR1IF); } virtual void set_cmif() { trace.raw(write_trace.get() | value.get()); value.put(value.get() | CMIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } virtual void set_c1if() { set_cmif(); } virtual void set_eeif() { trace.raw(write_trace.get() | value.get()); value.put(value.get() | EEIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } virtual void set_adif() { trace.raw(write_trace.get() | value.get()); value.put(value.get() | ADIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } }; //======================================================================== void P12F629::create_config_memory() { m_configMemory = new ConfigMemory(this,1); m_configMemory->addConfigWord(0,new Config12F6(this)); }; class MCLRPinMonitor; bool P12F629::set_config_word(unsigned int address,unsigned int cfg_word) { enum { FOSC0 = 1<<0, FOSC1 = 1<<1, FOSC2 = 1<<2, WDTEN = 1<<3, PWRTEN = 1<<4, MCLRE = 1<<5, BOREN = 1<<6, CP = 1<<7, CPD = 1<<8, BG0 = 1<<12, BG1 = 1<<13 }; if(address == config_word_address()) { if ((cfg_word & MCLRE) == MCLRE) assignMCLRPin(4); // package pin 4 else unassignMCLRPin(); wdt.initialize((cfg_word & WDTEN) == WDTEN); if ((cfg_word & (FOSC2 | FOSC1 )) == 0x04) // internal RC OSC osccal.set_freq(4e6); return(_14bit_processor::set_config_word(address, cfg_word)); } return false; } P12F629::P12F629(const char *_name, const char *desc) : _14bit_processor(_name,desc), intcon_reg(this,"intcon","Interrupt Control"), comparator(this), pie1(this,"PIE1", "Peripheral Interrupt Enable"), t1con(this, "t1con", "TMR1 Control"), tmr1l(this, "tmr1l", "TMR1 Low"), tmr1h(this, "tmr1h", "TMR1 High"), pcon(this, "pcon", "pcon"), osccal(this, "osccal", "Oscillator Calibration Register", 0xfc) { m_ioc = new IOC(this, "ioc", "Interrupt-On-Change GPIO Register"); m_gpio = new PicPortGRegister(this,"gpio","", &intcon_reg, m_ioc,8,0x3f); m_trisio = new PicTrisRegister(this,"trisio","", m_gpio, false); m_wpu = new WPU(this, "wpu", "Weak Pull-up Register", m_gpio, 0x37); pir1 = new PIR1v12f(this,"pir1","Peripheral Interrupt Register",&intcon_reg, &pie1); tmr0.set_cpu(this, m_gpio, 4, option_reg); tmr0.start(0); if(config_modes) config_modes->valid_bits = ConfigMode::CM_FOSC0 | ConfigMode::CM_FOSC1 | ConfigMode::CM_FOSC1x | ConfigMode::CM_WDTE | ConfigMode::CM_PWRTE; } P12F629::~P12F629() { delete_file_registers(0x20, ram_top); remove_sfr_register(&tmr0); remove_sfr_register(&tmr1l); remove_sfr_register(&tmr1h); remove_sfr_register(&pcon); remove_sfr_register(&t1con); remove_sfr_register(&intcon_reg); remove_sfr_register(&pie1); remove_sfr_register(&comparator.cmcon); remove_sfr_register(&comparator.vrcon); remove_sfr_register(get_eeprom()->get_reg_eedata()); remove_sfr_register(get_eeprom()->get_reg_eeadr()); remove_sfr_register(get_eeprom()->get_reg_eecon1()); remove_sfr_register(get_eeprom()->get_reg_eecon2()); remove_sfr_register(&osccal); delete_sfr_register(m_gpio); delete_sfr_register(m_trisio); delete_sfr_register(m_wpu); delete_sfr_register(m_ioc); delete_sfr_register(pir1); delete e; } Processor * P12F629::construct(const char *name) { P12F629 *p = new P12F629(name); p->create(0x5f, 128); p->create_invalid_registers (); p->create_symbols(); return p; } void P12F629::create_symbols() { pic_processor::create_symbols(); addSymbol(Wreg); } void P12F629::create_sfr_map() { pir_set_def.set_pir1(pir1); add_sfr_register(indf, 0x00); alias_file_registers(0x00,0x00,0x80); add_sfr_register(&tmr0, 0x01, RegisterValue(0xff,0)); add_sfr_register(option_reg, 0x81, RegisterValue(0xff,0)); add_sfr_register(pcl, 0x02, RegisterValue(0,0)); add_sfr_register(status, 0x03, RegisterValue(0x18,0)); add_sfr_register(fsr, 0x04); alias_file_registers(0x02,0x04,0x80); add_sfr_register(&tmr1l, 0x0e, RegisterValue(0,0),"tmr1l"); add_sfr_register(&tmr1h, 0x0f, RegisterValue(0,0),"tmr1h"); add_sfr_register(&pcon, 0x8e, RegisterValue(0,0),"pcon"); add_sfr_register(&t1con, 0x10, RegisterValue(0,0)); add_sfr_register(m_gpio, 0x05); add_sfr_register(m_trisio, 0x85, RegisterValue(0x3f,0)); add_sfr_register(pclath, 0x0a, RegisterValue(0,0)); add_sfr_register(&intcon_reg, 0x0b, RegisterValue(0,0)); alias_file_registers(0x0a,0x0b,0x80); intcon = &intcon_reg; intcon_reg.set_pir_set(get_pir_set()); add_sfr_register(pir1, 0x0c, RegisterValue(0,0),"pir1"); tmr1l.tmrh = &tmr1h; tmr1l.t1con = &t1con; tmr1l.setInterruptSource(new InterruptSource(pir1, PIR1v1::TMR1IF)); tmr1h.tmrl = &tmr1l; t1con.tmrl = &tmr1l; tmr1l.setIOpin(&(*m_gpio)[5]); tmr1l.setGatepin(&(*m_gpio)[4]); add_sfr_register(&pie1, 0x8c, RegisterValue(0,0)); if (pir1) { pir1->set_intcon(&intcon_reg); pir1->set_pie(&pie1); } pie1.setPir(pir1); // Link the comparator and voltage ref to porta comparator.initialize(get_pir_set(), NULL, &(*m_gpio)[0], &(*m_gpio)[1], NULL, NULL, &(*m_gpio)[2], NULL); comparator.cmcon.set_configuration(1, 0, AN0, AN1, AN0, AN1, ZERO); comparator.cmcon.set_configuration(1, 1, AN0, AN1, AN0, AN1, OUT0); comparator.cmcon.set_configuration(1, 2, AN0, AN1, AN0, AN1, NO_OUT); comparator.cmcon.set_configuration(1, 3, AN1, VREF, AN1, VREF, OUT0); comparator.cmcon.set_configuration(1, 4, AN1, VREF, AN1, VREF, NO_OUT); comparator.cmcon.set_configuration(1, 5, AN1, VREF, AN0, VREF, OUT0); comparator.cmcon.set_configuration(1, 6, AN1, VREF, AN0, VREF, NO_OUT); comparator.cmcon.set_configuration(1, 7, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 0, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 1, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 2, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 3, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 4, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 5, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 6, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 7, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); add_sfr_register(&comparator.cmcon, 0x19, RegisterValue(0,0),"cmcon"); add_sfr_register(&comparator.vrcon, 0x99, RegisterValue(0,0),"cvrcon"); add_sfr_register(get_eeprom()->get_reg_eedata(), 0x9a); add_sfr_register(get_eeprom()->get_reg_eeadr(), 0x9b); add_sfr_register(get_eeprom()->get_reg_eecon1(), 0x9c, RegisterValue(0,0)); add_sfr_register(get_eeprom()->get_reg_eecon2(), 0x9d); add_sfr_register(m_wpu, 0x95, RegisterValue(0x37,0),"wpu"); add_sfr_register(m_ioc, 0x96, RegisterValue(0,0),"ioc"); add_sfr_register(&osccal, 0x90, RegisterValue(0x80,0)); } //------------------------------------------------------------------- void P12F629::set_out_of_range_pm(unsigned int address, unsigned int value) { if( (address>= 0x2100) && (address < 0x2100 + get_eeprom()->get_rom_size())) get_eeprom()->change_rom(address - 0x2100, value); } void P12F629::create_iopin_map() { package = new Package(8); if(!package) return; // Now Create the package and place the I/O pins package->assign_pin( 7, m_gpio->addPin(new IO_bi_directional_pu("gpio0"),0)); package->assign_pin( 6, m_gpio->addPin(new IO_bi_directional_pu("gpio1"),1)); package->assign_pin( 5, m_gpio->addPin(new IO_bi_directional_pu("gpio2"),2)); package->assign_pin( 4, m_gpio->addPin(new IOPIN("gpio3"),3)); package->assign_pin( 3, m_gpio->addPin(new IO_bi_directional_pu("gpio4"),4)); package->assign_pin( 2, m_gpio->addPin(new IO_bi_directional_pu("gpio5"),5)); package->assign_pin( 1, 0); package->assign_pin( 8, 0); } void P12F629::create(int _ram_top, int eeprom_size) { ram_top = _ram_top; create_iopin_map(); _14bit_processor::create(); e = new EEPROM_PIR(this, pir1); e->initialize(eeprom_size); e->set_intcon(&intcon_reg); set_eeprom(e); add_file_registers(0x20, ram_top, 0x80); P12F629::create_sfr_map(); } //------------------------------------------------------------------- void P12F629::enter_sleep() { tmr1l.sleep(); _14bit_processor::enter_sleep(); } //------------------------------------------------------------------- void P12F629::exit_sleep() { tmr1l.wake(); _14bit_processor::exit_sleep(); } //------------------------------------------------------------------- void P12F629::option_new_bits_6_7(unsigned int bits) { Dprintf(("P12F629::option_new_bits_6_7 bits=%x\n", bits)); m_gpio->setIntEdge ( (bits & OPTION_REG::BIT6) == OPTION_REG::BIT6); m_wpu->set_wpu_pu ( (bits & OPTION_REG::BIT7) != OPTION_REG::BIT7); } //======================================================================== // // Pic 16F675 // Processor * P12F675::construct(const char *name) { P12F675 *p = new P12F675(name); p->create(0x5f, 128); p->create_invalid_registers (); p->create_symbols(); return p; } P12F675::P12F675(const char *_name, const char *desc) : P12F629(_name,desc), ansel(this,"ansel", "Analog Select"), adcon0(this,"adcon0", "A2D Control 0"), adcon1(this,"adcon1", "A2D Control 1"), adresh(this,"adresh", "A2D Result High"), adresl(this,"adresl", "A2D Result Low") { } P12F675::~P12F675() { remove_sfr_register(&adresl); remove_sfr_register(&adresh); remove_sfr_register(&adcon0); remove_sfr_register(&ansel); } void P12F675::create(int ram_top, int eeprom_size) { P12F629::create(ram_top, eeprom_size); create_sfr_map(); } void P12F675::create_sfr_map() { // // adcon1 is not a register on the 12f675, but it is used internally // to perform the ADC conversions // add_sfr_register(&adresl, 0x9e, RegisterValue(0,0)); add_sfr_register(&adresh, 0x1e, RegisterValue(0,0)); add_sfr_register(&adcon0, 0x1f, RegisterValue(0,0)); add_sfr_register(&ansel, 0x9f, RegisterValue(0x0f,0)); ansel.setAdcon1(&adcon1); ansel.setAdcon0(&adcon0); adcon0.setAdresLow(&adresl); adcon0.setAdres(&adresh); adcon0.setAdcon1(&adcon1); adcon0.setIntcon(&intcon_reg); adcon0.setA2DBits(10); adcon0.setPir(pir1); adcon0.setChannel_Mask(3); adcon0.setChannel_shift(2); adcon1.setNumberOfChannels(4); adcon1.setIOPin(0, &(*m_gpio)[0]); adcon1.setIOPin(1, &(*m_gpio)[1]); adcon1.setIOPin(2, &(*m_gpio)[2]); adcon1.setIOPin(3, &(*m_gpio)[4]); adcon1.setVrefHiConfiguration(2, 1); /* Channel Configuration done dynamiclly based on ansel */ adcon1.setValidCfgBits(ADCON1::VCFG0 | ADCON1::VCFG1 , 4); } //======================================================================== // // Pic 16F683 // Processor * P12F683::construct(const char *name) { P12F683 *p = new P12F683(name); p->create(0x7f, 256); p->create_invalid_registers (); p->create_symbols(); return p; } P12F683::P12F683(const char *_name, const char *desc) : P12F675(_name,desc), t2con(this, "t2con", "TMR2 Control"), pr2(this, "pr2", "TMR2 Period Register"), tmr2(this, "tmr2", "TMR2 Register"), ccp1con(this, "ccp1con", "Capture Compare Control"), ccpr1l(this, "ccpr1l", "Capture Compare 1 Low"), ccpr1h(this, "ccpr1h", "Capture Compare 1 High"), wdtcon(this, "wdtcon", "WDT Control", 0x1f), osccon(this, "osccon", "OSC Control"), osctune(this, "osctune", "OSC Tune") { internal_osc = false; } P12F683::~P12F683() { delete_file_registers(0x20, 0x7f); delete_file_registers(0xa0, 0xbf); remove_sfr_register(&tmr2); remove_sfr_register(&t2con); remove_sfr_register(&pr2); remove_sfr_register(&ccpr1l); remove_sfr_register(&ccpr1h); remove_sfr_register(&ccp1con); remove_sfr_register(&wdtcon); remove_sfr_register(&osccon); remove_sfr_register(&osctune); remove_sfr_register(&comparator.cmcon1); } void P12F683::create(int _ram_top, int eeprom_size) { P12F629::create(0, eeprom_size); add_file_registers(0x20, 0x6f, 0); add_file_registers(0xa0, 0xbf, 0); add_file_registers(0x70, 0x7f, 0x80); create_sfr_map(); } void P12F683::create_sfr_map() { P12F675::create_sfr_map(); add_sfr_register(&tmr2, 0x11, RegisterValue(0,0)); add_sfr_register(&t2con, 0x12, RegisterValue(0,0)); add_sfr_register(&pr2, 0x92, RegisterValue(0xff,0)); add_sfr_register(&ccpr1l, 0x13, RegisterValue(0,0)); add_sfr_register(&ccpr1h, 0x14, RegisterValue(0,0)); add_sfr_register(&ccp1con, 0x15, RegisterValue(0,0)); add_sfr_register(&wdtcon, 0x18, RegisterValue(0x08,0),"wdtcon"); add_sfr_register(&osccon, 0x8f, RegisterValue(0,0),"osccon"); remove_sfr_register(&osccal); add_sfr_register(&osctune, 0x90, RegisterValue(0,0),"osctune"); osccon.set_osctune(&osctune); osctune.set_osccon(&osccon); t2con.tmr2 = &tmr2; tmr2.pir_set = get_pir_set(); tmr2.pr2 = &pr2; tmr2.t2con = &t2con; tmr2.add_ccp ( &ccp1con ); pr2.tmr2 = &tmr2; ccp1con.setCrosslinks(&ccpr1l, pir1, PIR1v1::CCP1IF, &tmr2); ccp1con.setIOpin(&((*m_gpio)[2])); ccpr1l.ccprh = &ccpr1h; ccpr1l.tmrl = &tmr1l; ccpr1h.ccprl = &ccpr1l; comparator.cmcon.new_name("cmcon0"); comparator.cmcon.set_tmrl(&tmr1l); comparator.cmcon1.set_tmrl(&tmr1l); add_sfr_register(&comparator.cmcon1, 0x1a, RegisterValue(2,0),"cmcon1"); wdt.set_timeout(1./31000.); } gpsim-0.27.0/src/uart.h0000664000076400007640000001647712175377101011610 00000000000000/* Copyright (C) 1998,1999 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include class InvalidRegister; // Forward reference #ifndef __USART_H__ #define __USART_H__ #include "pic-processor.h" #include "14bit-registers.h" #include "pir.h" class _TXSTA; // Forward references class _SPBRG; class _RCSTA; class _SPBRGH; class _BAUDCON; class _14bit_processor; class RXSignalSink; class TXSignalSource; class TXSignalControl; class USART_MODULE; class _TXREG : public sfr_register { public: _TXREG(Processor *pCpu, const char *pName, const char *pDesc,USART_MODULE *); virtual void put(unsigned int); virtual void put_value(unsigned int); virtual void assign_txsta(_TXSTA *new_txsta) { m_txsta = new_txsta; }; private: _TXSTA *m_txsta; USART_MODULE *mUSART; }; class _TXSTA : public sfr_register, public TriggerObject { public: _TXREG *txreg; _SPBRG *spbrg; unsigned int tsr; unsigned int bit_count; enum { TX9D = 1<<0, TRMT = 1<<1, BRGH = 1<<2, SENDB = 1<<3, SYNC = 1<<4, TXEN = 1<<5, TX9 = 1<<6, CSRC = 1<<7 }; _TXSTA(Processor *pCpu, const char *pName, const char *pDesc,USART_MODULE *); ~_TXSTA(); virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); virtual void transmit_a_bit(); virtual void start_transmitting(); virtual void stop_transmitting(); virtual void transmit_break(); virtual void callback(); virtual void callback_print(); virtual char getState(); virtual void setIOpin(PinModule *); virtual void putTXState(char newTXState); bool bTXEN() { return (value.get() & TXEN) != 0; } void set_pin_pol ( bool invert ) { bInvertPin = invert; }; void releasePin(); protected: USART_MODULE *mUSART; PinModule *m_PinModule; TXSignalSource *m_source; TXSignalControl *m_control; bool SourceActive; char m_cTxState; bool bInvertPin; }; class _RCREG : public sfr_register { public: unsigned int oldest_value; /* rcreg has a 2-deep fifo. The oldest received * value is stored here, while the most recent * is stored in sfr_register.value . */ unsigned int fifo_sp; /* fifo stack pointer */ _RCREG(Processor *pCpu, const char *pName, const char *pDesc,USART_MODULE *); virtual unsigned int get(); virtual unsigned int get_value(); virtual void push(unsigned int); virtual void pop(); virtual void assign_rcsta(_RCSTA *new_rcsta) { m_rcsta = new_rcsta; }; private: USART_MODULE *mUSART; _RCSTA *m_rcsta; }; class _RCSTA : public sfr_register, public TriggerObject { public: enum { RX9D = 1<<0, OERR = 1<<1, FERR = 1<<2, ADDEN = 1<<3, CREN = 1<<4, SREN = 1<<5, RX9 = 1<<6, SPEN = 1<<7 }; enum { RCSTA_DISABLED, RCSTA_WAITING_FOR_START, RCSTA_MAYBE_START, RCSTA_WAITING_MID1, RCSTA_WAITING_MID2, RCSTA_WAITING_MID3, RCSTA_RECEIVING }; // The usart samples the middle of the bit three times and // produces a sample based on majority averaging. // #define TOTAL_SAMPLE_STATES 16 #define BRGH_FIRST_MID_SAMPLE 4 #define BRGH_SECOND_MID_SAMPLE 8 #define BRGH_THIRD_MID_SAMPLE 12 #define BRGL_FIRST_MID_SAMPLE 7 #define BRGL_SECOND_MID_SAMPLE 8 #define BRGL_THIRD_MID_SAMPLE 9 _RCREG *rcreg; _SPBRG *spbrg; _TXSTA *txsta; unsigned int rsr; unsigned int bit_count; unsigned int rx_bit; unsigned int sample,state, sample_state; guint64 future_cycle, last_cycle; _RCSTA(Processor *pCpu, const char *pName, const char *pDesc, USART_MODULE *); ~_RCSTA(); virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); void receive_a_bit(unsigned); void receive_start_bit(); virtual void start_receiving(); virtual void stop_receiving(); virtual void overrun(); virtual void callback(); virtual void callback_print(); void setState(char new_RxState); bool bSPEN() { return (value.get() & SPEN) != 0; } virtual void setIOpin(PinModule *); bool rc_is_idle(void) { return ( state <= RCSTA_WAITING_FOR_START ); }; protected: void set_callback_break(unsigned int spbrg_edge); USART_MODULE *mUSART; PinModule *m_PinModule; RXSignalSink *m_sink; char m_cRxState; }; class _BAUDCON : public sfr_register { public: enum { ABDEN = 1<<0, WUE = 1<<1, BRG16 = 1<<3, TXCKP = 1<<4, SCKP = 1<<4, // synchronous clock polarity Select bit (16f88x) RXDTP = 1<<5, RCIDL = 1<<6, ABDOVF = 1<<7 }; _TXSTA *txsta; _RCSTA *rcsta; _BAUDCON(Processor *pCpu, const char *pName, const char *pDesc); virtual void put(unsigned int); virtual void put_value(unsigned int); bool brg16(void) { return ( value.get() & BRG16 ) != 0; }; // private: }; class _SPBRGH : public sfr_register { public: _SPBRGH(Processor *pCpu, const char *pName, const char *pDesc); virtual void assign_spbrg(_SPBRG *new_spbrg) { m_spbrg = new_spbrg; }; virtual void put(unsigned int); virtual void put_value(unsigned int); private: _SPBRG *m_spbrg; }; class _SPBRG : public sfr_register, public TriggerObject { public: _TXSTA *txsta; _RCSTA *rcsta; _SPBRGH *brgh; _BAUDCON *baudcon; guint64 start_cycle, // The cycle the SPBRG was started last_cycle, // The cycle when the spbrg clock last changed future_cycle; // The next cycle spbrg is predicted to change _SPBRG(Processor *pCpu, const char *pName, const char *pDesc); virtual void callback(); virtual void callback_print() { cout << "_SPBRG " << name() << " CallBack ID " << CallBackID << '\n'; } virtual void start(); virtual void get_next_cycle_break(); virtual guint64 get_cpu_cycle(unsigned int edges_from_now); virtual guint64 get_last_cycle(); virtual void put(unsigned int); virtual void put_value(unsigned int); void set_start_cycle(); // protected: virtual unsigned int get_cycles_per_tick(); private: guint64 skip; }; //--------------------------------------------------------------- //--------------------------------------------------------------- class USART_MODULE { public: _TXSTA txsta; _RCSTA rcsta; _SPBRG spbrg; _TXREG *txreg; _RCREG *rcreg; PIR *pir; // Extra registers for when it's an EUSART _SPBRGH spbrgh; _BAUDCON baudcon; USART_MODULE(Processor *pCpu); void initialize(PIR *, PinModule *tx_pin, PinModule *rx_pin, _TXREG *, _RCREG *); void set_TXpin(PinModule *tx_pin); void set_RXpin(PinModule *rx_pin); bool bIsTXempty(); void emptyTX(); void full(); void set_rcif(); void clear_rcif(); bool IsEUSART ( void ) { return is_eusart; }; void set_eusart ( bool is_it ); private: bool is_eusart; }; #endif gpsim-0.27.0/src/bit.cc0000644000076400007640000000646411401170177011535 00000000000000 /* Copyright (C) 1998-2003 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include "bit.h" #include "registers.h" Bit::Bit(RegisterValue &rv, unsigned int bit_mask) { d = rv.get() & bit_mask ? true : false; i = rv.geti() & bit_mask ? false : true; } static void pr(const char *s,Bit &bv) { printf("%s:%d,%d\n",s,bv.isOne(), bv.isKnown()); } ///-- Class test void test_bits() { static bool tested =false; if(tested) return; tested = true; Bit bOne(true,true); pr("one",bOne); Bit a = bOne; Bit b = bOne; Bit c = bOne; b.clear(); pr("a",a); pr("b",b); for (int i=0; i < 4; i++) { switch (i) { case 0: printf("Both known\n"); a.set(true,true); b.set(false,true); break; case 1: printf("a is unknown\n"); a.set(true,false); b.set(false,true); break; case 2: printf("b is unknown\n"); a.set(true,true); b.set(false,false); break; case 3: printf("a and b are unknown\n"); a.set(true,false); b.set(false,false); break; } pr("a",a); pr("b",b); c = a; pr("c=a ->c",c); c = b; pr("c=b ->c",c); c |= a; pr("c|=a ->c",c); c &= a; pr("c&=a ->c",c); c |= b; pr("c|=b ->c",c); c &= b; pr("c&=b ->c",c); c = b; if (c == b) pr("c=b ->c",c); else pr("assignment failed c=b ->c",c); c = a; if (c == a) pr("c=a ->c",c); else pr("assignment failed c=a ->c",c); c = a | a; pr("c=a|a ->c",c); c = a | b; pr("c=a|b ->c",c); c = b | a; pr("c=b|a ->c",c); c = b | b; pr("c=b|b ->c",c); c = !b; pr("c=!b ->c",c); pr(" ->b",b); c = a & a; pr("c=a&a ->c",c); c = a & b; pr("c=a&b ->c",c); c = b & a; pr("c=b&a ->c",c); c = b & b; pr("c=b&b ->c",c); c = a & !a; pr("c=a&!a ->c",c); c = a & !b; pr("c=a&!b ->c",c); c = b & !a; pr("c=b&!a ->c",c); c = b & !b; pr("c=b&!b ->c",c); } Bit d(false,true); a.set(false,false); b.set(false,false); c = a & b & d; pr("a",a); pr("b",b); pr("d",d); pr("c=a&b&d ->c",c); c = !a & !b; pr("c=!a & !b ->c",c); a.set(true,false); b.set(false,true); Bit e = a & !b; pr("a",a); pr("b",b); pr("e=a & !b ->e",e); a.set(false,false); b.set(false,true); e = a & !b; pr("a",a); pr("b",b); pr("e=a & !b ->e",e); a.set(false,false); b.set(true,true); e = a & !b; pr("a",a); pr("b",b); pr("e=a & !b ->e",e); a.set(true,false); b.set(true,true); e = a & !b; pr("a",a); pr("b",b); pr("e=a & !b ->e",e); } gpsim-0.27.0/src/ssp.h0000664000076400007640000002625512175377101011435 00000000000000/* Copyright (C) 1998,1999 T. Scott Dattalo 2006 Roy R Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include class InvalidRegister; // Forward reference #ifndef __SSP_H__ #define __SSP_H__ #include "pic-processor.h" #include "14bit-registers.h" #include "ioports.h" #include "pir.h" class PinModule; class PIR1; class PIR_SET; class _14bit_processor; class PicTrisRegister; class _SSPBUF; class _SSPSTAT; class SDI_SignalSink; class SCL_SignalSink; class SS_SignalSink; class SDO_SignalSource; class SDI_SignalSource; class SCK_SignalSource; enum SSP_TYPE { SSP_TYPE_BSSP = 1, SSP_TYPE_SSP, SSP_TYPE_MSSP, SSP_TYPE_MSSP1 }; class SSP_MODULE; class SSP1_MODULE; class _SSPCON : public sfr_register, public TriggerObject { public: enum { SSPM_SPImaster4 = 0x0, // SPI master mode, clock = FOSC/4 SSPM_SPImaster16 = 0x1, // SPI master mode, clock = FOSC/16 SSPM_SPImaster64 = 0x2, // SPI master mode, clock = FOSC/64 SSPM_SPImasterTMR2 = 0x3, // SPI master mode, clock = TMR2/2 SSPM_SPIslaveSS = 0x4, // SPI slave mode, clock = SCK, /SS controlled SSPM_SPIslave = 0x5, // SPI slave mode, clock = SCK, not /SS controlled SSPM_SPImasterAdd = 0xa, // SPI master mode, clock = FOSC/4*(sspadd+1) SSPM_I2Cslave_7bitaddr = 0x6, SSPM_I2Cslave_10bitaddr = 0x7, SSPM_MSSPI2Cmaster = 0x8, SSPM_I2Cfirmwaremaster = 0xb, SSPM_I2Cslave_7bitaddr_ints = 0xe, SSPM_I2Cslave_10bitaddr_ints = 0xf, /* None of the documentation I have seen show these, but Scott? thought they were the good name RRR SSPM_I2Cfirmwaremultimaster_7bitaddr_ints = 0xe, SSPM_I2Cfirmwaremaster_10bitaddr_ints = 0xf, */ }; _SSPCON(Processor *pCpu, SSP_MODULE *); // Register bit definitions enum { SSPM0 = 1<<0, SSPM1 = 1<<1, SSPM2 = 1<<2, SSPM3 = 1<<3, CKP = 1<<4, SSPEN = 1<<5, SSPOV = 1<<6, WCOL = 1<<7 }; static const unsigned int SSPM_mask = (SSPM0|SSPM1|SSPM2|SSPM3); virtual void put(unsigned int); virtual void put_value(unsigned int); bool isSSPEnabled() { return (value.get() & SSPEN) == SSPEN; } bool isI2CActive(unsigned int); bool isI2CSlave(unsigned int); bool isI2CMaster(unsigned int); bool isSPIActive(unsigned int); bool isSPIMaster(); void setWCOL(); void setSSPOV() { put_value(value.get() | SSPOV);} void setSSPMODULE(SSP_MODULE *); private: SSP_MODULE *m_sspmod; }; class _SSPCON2 : public sfr_register { public: enum { SEN = 1<<0, // Start or Stretch enable RSEN = 1<<1, // Repeated Start PEN = 1<<2, // Stop condition enable RCEN = 1<<3, // Receive enable bit ACKEN = 1<<4, // Acknowledge Sequence enable bit ACKDT = 1<<5, // Acknowledge Data bit ACKSTAT = 1<<6, // Acknowledge status bit GCEN = 1<<7 // General call enable }; void put(unsigned int new_value); void put_value(unsigned int new_value); _SSPCON2(Processor *pCpu, SSP_MODULE *); private: SSP_MODULE *m_sspmod; }; class _SSP1CON3 : public sfr_register { public: enum { DHEN = 1<<0, // Data hold enable AHEN = 1<<1, // Address hold enable SBCDE = 1<<2, // Slave Mode Bus Collision Detect Enable bit SDAHT = 1<<3, // SDA Hold Time Selection bit BOEN = 1<<4, // Buffer Overwrite Enable bit SCIE = 1<<5, // Start Condition Interrupt Enable bit PCIE = 1<<6, // Stop Condition Interrupt Enable bit ACKTIM = 1<<7 // Acknowledge Time Status bit }; void put(unsigned int new_value); void put_value(unsigned int new_value); _SSP1CON3(Processor *pCpu, SSP1_MODULE *); private: SSP1_MODULE *m_sspmod; }; class _SSP1MSK : public sfr_register { public: void put(unsigned int new_value); void put_value(unsigned int new_value); _SSP1MSK(Processor *pCpu, SSP1_MODULE *); private: SSP1_MODULE *m_sspmod; }; class _SSPSTAT : public sfr_register { public: // Register bit definitions enum { BF = 1<<0, // Buffer Full UA = 1<<1, // Update Address RW = 1<<2, // Read/Write info S = 1<<3, // Start bit (I2C mode) P = 1<<4, // Stop bit (I2C mode) DA = 1<<5, // Data/Address bit (I2C mode) // below are SSP and MSSP only. This class will force them to // always be 0 if ssptype == SSP_TYPE_BSSP. This will give the // corrent behavior. CKE = 1<<6, // SPI clock edge select SMP = 1<<7 // SPI data input sample phase }; _SSPSTAT(Processor *pCpu, SSP_MODULE *); virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); private: SSP_MODULE *m_sspmod; }; class _SSPBUF : public sfr_register { public: SSP_TYPE ssptype; _SSPBUF(Processor *pCpu, SSP_MODULE *); virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); virtual unsigned int get(); virtual unsigned int get_value(); bool isFull() { return m_bIsFull; } void setFullFlag(bool bNewFull) { m_bIsFull = bNewFull; } private: SSP_MODULE *m_sspmod; bool m_bIsFull; }; class _SSPADD : public sfr_register { public: _SSPADD(Processor *pCpu, SSP_MODULE *); virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); private: SSP_MODULE *m_sspmod; }; class SPI: public TriggerObject { public: SSP_MODULE *m_sspmod; _SSPBUF *m_sspbuf; _SSPCON *m_sspcon; _SSPSTAT *m_sspstat; SPI(SSP_MODULE *, _SSPCON *, _SSPSTAT *, _SSPBUF *); bool isIdle() { return m_state==eIDLE;} virtual void clock(bool); virtual void start_transfer(); virtual void stop_transfer(); virtual void set_halfclock_break(); virtual void callback(); void newSSPBUF(unsigned int); virtual void startSPI(); protected: unsigned int m_SSPsr; // internal Shift Register enum SSPStateMachine { eIDLE, eACTIVE, eWAITING_FOR_LAST_SMP } m_state; int bits_transfered; }; class SPI_1: public SPI { public: _SSP1CON3 *m_ssp1con3; _SSPADD *m_sspadd; SPI_1(SSP1_MODULE *, _SSPCON *, _SSPSTAT *, _SSPBUF *, _SSP1CON3 *, _SSPADD *); virtual void stop_transfer(); virtual void set_halfclock_break(); }; class I2C: public TriggerObject { public: SSP_MODULE *m_sspmod; _SSPBUF *m_sspbuf; _SSPCON *m_sspcon; _SSPSTAT *m_sspstat; _SSPCON2 *m_sspcon2; _SSPADD *m_sspadd; I2C(SSP_MODULE *, _SSPCON *, _SSPSTAT *, _SSPBUF *, _SSPCON2 *, _SSPADD *); virtual void clock(bool); virtual void sda(bool); virtual void callback(); virtual void set_idle(); virtual void newSSPBUF(unsigned int value); virtual void newSSPADD(unsigned int value); virtual void start_bit(); virtual void rstart_bit(); virtual void stop_bit(); virtual void master_rx(); virtual void ack_bit(); virtual bool isIdle(); virtual void setBRG(); virtual void clrBRG(); virtual bool rx_byte(); virtual void bus_collide(); virtual void slave_command(); virtual bool end_ack(); protected: unsigned int m_SSPsr; // internal Shift Register enum I2CStateMachine { eIDLE, RX_CMD, RX_CMD2, RX_DATA, TX_DATA, CLK_TX_BYTE, CLK_RX_BYTE, CLK_ACKEN, CLK_RSTART, CLK_STOP, CLK_START } i2c_state; int bits_transfered; int phase; guint64 future_cycle; }; class I2C_1: public I2C { public: SSP_MODULE *m_sspmod; _SSP1CON3 *m_sspcon3; _SSP1MSK *m_ssp1msk; virtual void clock(bool); virtual void sda(bool); virtual void bus_collide(); I2C_1(SSP_MODULE *, _SSPCON *, _SSPSTAT *, _SSPBUF *, _SSPCON2 *, _SSPADD *, _SSP1CON3 *,_SSP1MSK *); }; class SSP_MODULE { public: _SSPBUF sspbuf; _SSPCON sspcon; _SSPSTAT sspstat; _SSPCON2 sspcon2; // MSSP // set to NULL for BSSP (It doesn't have this register) _SSPADD sspadd; SSP_MODULE(Processor *); virtual ~SSP_MODULE(); virtual void initialize(PIR_SET *ps, PinModule *_SckPin, PinModule *_SdiPin, PinModule *_SdoPin, PinModule *_SsPin, PicTrisRegister *_i2ctris, SSP_TYPE ssptype = SSP_TYPE_BSSP); virtual void SDI_SinkState(char); virtual void SS_SinkState(char); virtual void SCL_SinkState(char); virtual bool get_SDI_State() { return m_SDI_State;} virtual bool get_SCL_State() { return m_SCL_State;} virtual bool get_SS_State() { return m_SS_State;} virtual void Sck_toggle(); virtual void putStateSDO(char _state); virtual void putStateSCK(char _state); virtual void set_sspif() { m_pirset->set_sspif();} virtual void set_bclif() { m_pirset->set_bclif();} virtual void startSSP(unsigned int value); virtual void stopSSP(unsigned int value); virtual void changeSSP(unsigned int new_value, unsigned int old_value); virtual void ckpSPI(unsigned int value); virtual void newSSPBUF(unsigned int value); virtual void newSSPADD(unsigned int value); virtual void newSSPCON2(unsigned int value); virtual void rdSSPBUF(); virtual void tmr2_clock(); virtual SSP_TYPE ssp_type() { return m_ssptype; } virtual void setSCL(bool); virtual void setSDA(bool); virtual bool SaveSSPsr(unsigned int value); virtual bool isI2CIdle() { return m_i2c->isIdle();} virtual bool isI2CMaster() { return sspcon.isI2CMaster(sspcon.value.get());} virtual bool isI2CSlave() { return sspcon.isI2CSlave(sspcon.value.get());} virtual void releaseSDIpin(); virtual void releaseSDOpin(); virtual void releaseSCLpin(); virtual void releaseSSpin(); virtual void releaseSCKpin(); protected: PIR_SET *m_pirset; SPI *m_spi; I2C *m_i2c; PinModule *m_sck; PinModule *m_ss; PinModule *m_sdo; PinModule *m_sdi; PicTrisRegister *m_i2c_tris; SSP_TYPE m_ssptype; bool m_SDI_State; bool m_SCL_State; bool m_SS_State; SCK_SignalSource *m_SckSource; SDO_SignalSource *m_SdoSource; SDI_SignalSource *m_SdiSource; SDI_SignalSink *m_SDI_Sink; SCL_SignalSink *m_SCL_Sink; SS_SignalSink *m_SS_Sink; bool m_sink_set; bool m_sdo_active; bool m_sdi_active; bool m_sck_active; }; class SSP1_MODULE : public SSP_MODULE //MSSP1 { public: SSP1_MODULE(Processor *); ~SSP1_MODULE(){}; _SSP1CON3 ssp1con3; _SSP1MSK ssp1msk; virtual void initialize(PIR_SET *ps, PinModule *_SckPin, PinModule *_SdiPin, PinModule *_SdoPin, PinModule *_SsPin, PicTrisRegister *_i2ctris, SSP_TYPE ssptype = SSP_TYPE_MSSP1); void set_sckPin(PinModule *_sckPin); void set_sdiPin(PinModule *_sdiPin); void set_sdoPin(PinModule *_sdoPin); void set_ssPin(PinModule *_ssPin); void set_tris(PicTrisRegister *_i2ctris) { m_i2c_tris = _i2ctris;} virtual void changeSSP(unsigned int new_value, unsigned int old_value); virtual bool SaveSSPsr(unsigned int value); }; #endif // __SSP_H__ gpsim-0.27.0/src/p16x8x.h0000664000076400007640000000476612175377101011711 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __P16X8X_H__ #define __P16X8X_H__ #include "14bit-processors.h" #include "intcon.h" class P16X8X : public Pic14Bit { public: P16X8X(const char *_name=0, const char *desc=0); ~P16X8X(); virtual void create_sfr_map(); virtual void set_out_of_range_pm(unsigned int address, unsigned int value); virtual void create_iopin_map(); virtual void create(int ram_top); virtual unsigned int register_memory_size () const { return 0x100; } protected: unsigned int ram_top; }; class P16C84 : public P16X8X { public: P16C84(const char *_name=0, const char *desc=0); virtual PROCESSOR_TYPE isa(){return _P16C84_;}; virtual void create(int ram_top); virtual unsigned int program_memory_size() const { return 0x400; } static Processor *construct(const char *name); }; class P16F84 : public P16X8X { public: virtual PROCESSOR_TYPE isa(){return _P16F84_;}; virtual void create(int ram_top); virtual unsigned int program_memory_size() const { return 0x400; }; P16F84(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); }; class P16CR84 : public P16F84 { public: virtual PROCESSOR_TYPE isa(){return _P16CR84_;}; P16CR84(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); }; class P16F83 : public P16X8X { public: virtual PROCESSOR_TYPE isa(){return _P16F83_;}; virtual unsigned int program_memory_size() const { return 0x200; }; virtual void create(int ram_top); P16F83(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); }; class P16CR83 : public P16F83 { public: virtual PROCESSOR_TYPE isa(){return _P16CR83_;}; P16CR83(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); }; #endif gpsim-0.27.0/src/registers.cc0000664000076400007640000003761712201276457013003 00000000000000/* Copyright (C) 1998-2003 Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include #include "../config.h" #include "xref.h" #include "processor.h" #include "registers.h" #include "trace.h" unsigned int count_bits(unsigned int ui) { unsigned int bits=0; while (ui) { ui &= (ui-1); bits++; } return bits; } //======================================================================== // toString // // Convert a RegisterValue type to a string. // // A RegisterValue type allows the bits of a register to take on three // values: High, Low, or undefined. If all of the bits are defined, // then this routine will convert register value to a hexadecimal string. // Any undefined bits within a nibble will cause the associated nibble to // be undefined and will get converted to a question mark. // char * RegisterValue::toString(char *str, int len, int regsize) const { if(str && len) { RegisterValue rv = *this; char hex2ascii[] = "0123456789ABCDEF"; char undefNibble = '?'; int i; int m = regsize * 2 + 1; if(len < m) m = len; m--; for(i=0; i < m; i++) { if(rv.init & 0x0f) str[m-i-1] = undefNibble; else str[m-i-1] = hex2ascii[rv.data & 0x0f]; rv.init >>= 4; rv.data >>= 4; } str[m] = 0; } return str; } //======================================================================== // SplitBitString // // The purpose of this routine is to convert a string of bitnames into // an array of names. The string is formatted like: // // b1.b2.b3 // // In other words, a period is the delimeter between the names. // This gets converted to: // // b1 // b2 // b2 // // INPUTS // n - number of names // in - input string formatted as described // in2 - if 'in' is NULL, then all 'n' names will be 'in2' // // OUTPUTS // out - an array to hold the strings. // // Note, the input string 'in' will be modified such that all of the '.'s will // get turned into string terminating 0's. // static void SplitBitString(int n, const char **out, char *in, const char *in2) { if(!in) { for(int i=0; i " << out[i] << endl; } } } //======================================================================== // toBitStr // // Convert a RegisterValue type to a bit string // // Given a pointer to a string, this function will convert a register // value into a string of ASCII characters. If no names are given // for the bits, then the default values of 'H', 'L', and '?' are // used for high, low and undefined. // // The input 'BitPos' is a bit mask that has a bit set for each bit that // the user wishes to display. // char * RegisterValue::toBitStr(char *s, int len, unsigned int BitPos, const char *cByteSeparator, const char *HiBitNames, const char *LoBitNames, const char *UndefBitNames) const { unsigned int i,mask,max; if(!s || len<=0) return 0; max = 32; unsigned int nBits = count_bits(BitPos); if(nBits >= max) nBits = max; const char *HiNames[32]; const char *LoNames[32]; const char *UndefNames[32]; char *cHi = HiBitNames ? strdup(HiBitNames) : 0; char *cLo = LoBitNames ? strdup(LoBitNames) : 0; char *cUn = UndefBitNames ? strdup(UndefBitNames) : 0; SplitBitString(nBits, HiNames, cHi, "1"); SplitBitString(nBits, LoNames, cLo, "0"); SplitBitString(nBits, UndefNames, cUn, "?"); char *dest = s; int bitNumber=31; for(i=0,mask=1<<31; mask; mask>>=1,bitNumber--) { if(BitPos & mask) { const char *H = HiNames[i]; const char *L = LoNames[i]; const char *U = UndefNames[i]; const char *c = (init & mask) ? U : ((data & mask) ? H : L); strncpy(dest, c, len); int l = strlen(c); len -= l; dest += l; *dest = 0; if(i++>nBits || len < 0) break; if(cByteSeparator && bitNumber && ((bitNumber%8)==0)) { strncpy(dest, cByteSeparator, len); int l = strlen(cByteSeparator); len -= l; dest += l; *dest = 0; if(len < 0) break; } } } free(cHi); free(cLo); free(cUn); return s; } //-------------------------------------------------- // Member functions for the file_register base class //-------------------------------------------------- // Register::Register(Module *_cpu, const char *pName, const char *pDesc) : Value(pName,pDesc,_cpu), address(AN_INVALID_ADDRESS), alias_mask(0), m_replaced(0) { // For now, initialize the register with valid data and set that data equal to 0. // Eventually, the initial value will be marked as 'uninitialized. value = RegisterValue(0,0); por_value = RegisterValue(0,0); xref().assign_data(this); read_access_count=0; write_access_count=0; mValidBits = 0xFF; } Register::~Register() { if (cpu) { //cout << "Removing register from ST:" << name_str << " addr "<< this << endl; cpu->removeSymbol(this); } } //------------------------------------------------------------ int Register::set_break(ObjectBreakTypes bt, ObjectActionTypes at, Expression *expr) { return get_bp().set_break(bt, at, this, expr); } int Register::clear_break() { return -1; } //------------------------------------------------------------ // get() // // Return the contents of the file register. // (note - breakpoints on file register reads // are not checked here. Instead, a breakpoint // object replaces those instances of file // registers for which we wish to monitor. // So a file_register::get call will invoke // the breakpoint::get member function. Depending // on the type of break point, this get() may // or may not get called). unsigned int Register::get() { trace.raw(read_trace.get() | value.get()); return(value.get()); } //------------------------------------------------------------ // put() // // Update the contents of the register. // See the comment above in file_register::get() // with respect to break points // void Register::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value); } bool Register::get_bit(unsigned int bit_number) { return (value.get() & (1<register_size(); } //----------------------------------------------------------- // set_write_trace // set_read_trace // // These functions initialize the trace type to be used for // register reads and writes. // void Register::set_write_trace(RegisterValue &rv) { write_trace = rv; } void Register::set_read_trace(RegisterValue &rv) { read_trace = rv; } //------------------------------------------------------------ char * Register::toString(char *str, int len) { return getRV_notrace().toString(str, len, register_size()*2); } char * Register::toBitStr(char *s, int len) { unsigned int bit_length = register_size() * 8; unsigned int bits = (1<addSymbol(this, &new_name); } } } //------------------------------------------------------------------------ // set -- assgin the value of some other object to this Register // // This is used (primarily) during Register stimuli processing. If // a register stimulus is attached to this register, then it will // call ::set() and supply a Value pointer. void Register::set(Value * pVal) { Register *pReg = dynamic_cast(pVal); if (pReg) { putRV(pReg->getRV()); return; } if (pVal) { put_value( (unsigned int)*pVal); } } //------------------------------------------------------------------------ // copy - create a new Value object that's a 'copy' of this object // // We really don't perform a true copy. Instead, an Integer object // is created containing the same numeric value of this object. // This code is called during expression parsing. *NOTE* this copied // object can be assigned a new value, however that value will not // propagate to the Register! Value *Register::copy() { Value *val = new ValueWrapper(this); return val; } void Register::get(gint64 &i) { i = get_value(); } //-------------------------------------------------- //-------------------------------------------------- //-------------------------------------------------- sfr_register::sfr_register(Module *pCpu, const char *pName, const char *pDesc) : Register(pCpu,pName,pDesc), wdtr_value(0,0) {} void sfr_register::reset(RESET_TYPE r) { switch (r) { case POR_RESET: putRV(por_value); break; case WDT_RESET: // Most registers simply retain their value across WDT resets. //putRV(wdtr_value); break; default: break; } } //-------------------------------------------------- //-------------------------------------------------- //-------------------------------------------------- // member functions for the InvalidRegister class //-------------------------------------------------- void InvalidRegister::put(unsigned int new_value) { cout << "attempt write to invalid file register\n"; if (address != AN_INVALID_ADDRESS) cout << " address 0x" << hex << address << ','; cout << " value 0x" << hex << new_value << endl; if(((Processor*)cpu)->getBreakOnInvalidRegisterWrite()) { bp.halt(); } trace.raw(write_trace.get() | value.get()); return; } unsigned int InvalidRegister::get() { cout << "attempt read from invalid file register\n"; if (address != AN_INVALID_ADDRESS) cout << " address 0x" << hex << address << endl; trace.raw(read_trace.get() | value.get()); if(((Processor*)cpu)->getBreakOnInvalidRegisterRead()) { bp.halt(); } return(0); } InvalidRegister::InvalidRegister(Processor *pCpu, const char *pName, const char *pDesc) : Register(pCpu,pName,pDesc) {} RegisterCollection::RegisterCollection (Processor *pProcessor, const char *pC_collection_name, Register **ppRegisters, unsigned int uiSize) : IIndexedCollection(16), m_ReturnValue(0) { m_pProcessor = pProcessor; gpsimObject::new_name(pC_collection_name); m_ppRegisters = ppRegisters; m_uSize = uiSize; pProcessor->addSymbol(this); } RegisterCollection:: ~RegisterCollection() { if (m_pProcessor) m_pProcessor->removeSymbol(this); } unsigned int RegisterCollection::GetSize() { return m_uSize; } Value &RegisterCollection::GetAt(unsigned int uIndex, Value *) { if(uIndex > m_uSize) { throw Error("index is out of range"); } m_ReturnValue.set((int)m_ppRegisters[uIndex]->get_value()); m_ReturnValue.setBitmask(m_pProcessor->register_mask()); ostringstream sIndex; if (m_pProcessor) sIndex << m_pProcessor->name() << "." ; sIndex << Value::name() << "[" << hex << m_szPrefix << uIndex << "]" << '\000'; m_ReturnValue.new_name(sIndex.str().c_str()); return m_ReturnValue; } void RegisterCollection::SetAt(unsigned int uIndex, Value *pValue) { if(uIndex > m_uSize) { throw Error("index is out of range"); } Integer *pInt = dynamic_cast(pValue); if(pInt == NULL) { throw Error("rValue is not an Integer"); } else { m_ppRegisters[uIndex]->put((unsigned int)(int)*pInt); } } void RegisterCollection::ConsolidateValues(int &iColumnWidth, vector &aList, vector &aValue) { unsigned int uFirstIndex = 0; unsigned int uIndex; Register * pReg = m_ppRegisters[0]; Integer uLastValue(pReg->getRV_notrace().data); uLastValue.setBitmask(m_pProcessor->register_mask()); for(uIndex = 0; uIndex < m_uSize; uIndex++) { ostringstream sIndex; pReg = m_ppRegisters[uIndex]; RegisterValue rvValue = pReg->getRV_notrace(); if((unsigned int)uLastValue != rvValue.data) { PushValue(uFirstIndex, uIndex, &uLastValue, aList, aValue); iColumnWidth = max(iColumnWidth, (int)aList.back().size()); uFirstIndex = uIndex; uLastValue = rvValue.data; } } uIndex--; // Record the last set of elements if(uFirstIndex <= uIndex) { PushValue(uFirstIndex, uIndex, &uLastValue, aList, aValue); iColumnWidth = max(iColumnWidth, (int)aList.back().size()); } } //void RegisterCollection::SetAt(ExprList_t* pIndexers, Expression *pExpr) { // throw Error("RegisterCollection::SetAt() not implemented"); //} unsigned int RegisterCollection::GetLowerBound() { return 0; } unsigned int RegisterCollection::GetUpperBound() { return m_uSize - 1; } gpsim-0.27.0/src/uart.cc0000664000076400007640000007343612175377101011744 00000000000000/* Copyright (C) 1998,1999 Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include "../config.h" #include "stimuli.h" #include "uart.h" #include "14bit-processors.h" #include "14bit-tmrs.h" #define p_cpu ((Processor *)cpu) //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("%s:%d-%s() ",__FILE__,__LINE__,__FUNCTION__); printf arg; } #else #define Dprintf(arg) {} #endif //-------------------------------------------------- // //-------------------------------------------------- class TXSignalSource : public SignalControl { public: TXSignalSource(_TXSTA *_txsta) : m_txsta(_txsta) { assert(m_txsta); } ~TXSignalSource() { } virtual char getState() { return m_txsta->getState(); } virtual void release() { delete this; } private: _TXSTA *m_txsta; }; class TXSignalControl : public SignalControl { public: TXSignalControl(_TXSTA *_txsta) : m_txsta(_txsta) { } ~TXSignalControl() { } virtual char getState() { return '0'; } virtual void release() { m_txsta->releasePin(); delete this; } private: _TXSTA *m_txsta; }; //-------------------------------------------------- // //-------------------------------------------------- class RXSignalSink : public SignalSink { public: RXSignalSink(_RCSTA *_rcsta) : m_rcsta(_rcsta) { assert(_rcsta); } virtual void setSinkState(char new3State) { m_rcsta->setState(new3State); } virtual void release() { delete this; } private: _RCSTA *m_rcsta; }; //----------------------------------------------------------- _RCSTA::_RCSTA(Processor *pCpu, const char *pName, const char *pDesc, USART_MODULE *pUSART) : sfr_register(pCpu, pName, pDesc), rcreg(0), spbrg(0), txsta(0), state(_RCSTA::RCSTA_DISABLED), mUSART(pUSART), m_PinModule(0), m_sink(0), m_cRxState('?') { assert(mUSART); } _RCSTA::~_RCSTA() { } //----------------------------------------------------------- _TXSTA::_TXSTA(Processor *pCpu, const char *pName, const char *pDesc, USART_MODULE *pUSART) : sfr_register(pCpu, pName, pDesc), txreg(0), spbrg(0), mUSART(pUSART), m_PinModule(0), m_source(0), m_control(0), SourceActive(false), m_cTxState('?'), bInvertPin(0) { assert(mUSART); } _TXSTA::~_TXSTA() { if (SourceActive && m_PinModule) { m_PinModule->setSource(0); m_PinModule->setControl(0); } if (m_control) { delete m_source; delete m_control; } } //----------------------------------------------------------- _RCREG::_RCREG(Processor *pCpu, const char *pName, const char *pDesc, USART_MODULE *pUSART) : sfr_register(pCpu, pName, pDesc), fifo_sp(0), mUSART(pUSART), m_rcsta(0) { assert(mUSART); } _TXREG::_TXREG(Processor *pCpu, const char *pName, const char *pDesc, USART_MODULE *pUSART) : sfr_register(pCpu, pName, pDesc), m_txsta(0), mUSART(pUSART) { assert(mUSART); } _BAUDCON::_BAUDCON(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc) { } _SPBRG::_SPBRG(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), txsta(0), rcsta(0), brgh(0), baudcon(0), start_cycle(0), last_cycle(0), future_cycle(0), skip(0) { } _SPBRGH::_SPBRGH(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), m_spbrg(0) { } //----------------------------------------------------------- // TXREG - USART Transmit Register void _TXREG::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value & 0xff); Dprintf(("txreg just got a new value:0x%x\n",new_value)); // The transmit register has data, // so clear the TXIF flag mUSART->full(); if(m_txsta && ( (m_txsta->value.get() & (_TXSTA::TRMT | _TXSTA::TXEN)) == (_TXSTA::TRMT | _TXSTA::TXEN))) { // If the transmit buffer is empty and the transmitter is enabled // then transmit this new data now... if ( m_txsta->value.get() & _TXSTA::SENDB ) // %%%FIXME - better in start_transmitting? m_txsta->transmit_break(); else m_txsta->start_transmitting(); } } void _TXREG::put_value(unsigned int new_value) { put(new_value); update(); } //----------------------------------------------------------- // TXSTA - setIOpin - assign the I/O pin associated with the // the transmitter. void _TXSTA::setIOpin(PinModule *newPinModule) { if (!m_source) { m_source = new TXSignalSource(this); m_control = new TXSignalControl(this); m_PinModule = newPinModule; } } void _TXSTA::releasePin() { m_PinModule = 0; m_control = 0; m_source = 0; } //----------------------------------------------------------- // TXSTA - putTXState - update the state of the TX output pin // void _TXSTA::putTXState(char newTXState) { m_cTxState = bInvertPin ? newTXState ^ 1 : newTXState; if (m_PinModule) m_PinModule->updatePinModule(); } //----------------------------------------------------------- // TXSTA - Transmit Register Status and Control void _TXSTA::put_value(unsigned int new_value) { put(new_value); update(); } void _TXSTA::put(unsigned int new_value) { unsigned int old_value = value.get(); trace.raw(write_trace.get() | value.get()); if ( ! mUSART->IsEUSART() ) new_value &= ~SENDB; // send break only supported on EUSART // The TRMT bit is controlled entirely by hardware. // It is high if the TSR has any data. value.put((new_value & ~TRMT) | ( (bit_count) ? 0 : TRMT)); Dprintf((" TXSTA value=0x%x\n",value.get())); if( (old_value ^ value.get()) & TXEN) { // The TXEN bit has changed states. // // If transmitter is being enabled and the transmit register // has some data that needs to be sent, then start a // transmission. // If the transmitter is being disabled, then abort any // transmission. if(value.get() & TXEN) { Dprintf(("TXSTA - enabling transmitter\n")); if (m_PinModule) { m_PinModule->setSource(m_source); // all set diection ? RRR if(mUSART->IsEUSART()) // EUSART can configure input as output for transmit m_PinModule->setControl(m_control); SourceActive = true; } mUSART->emptyTX(); } else { stop_transmitting(); if (m_PinModule) { m_PinModule->setSource(0); SourceActive = false; if(mUSART->IsEUSART()) m_PinModule->setControl(0); } } } } //------------------------------------------------------------ // char _TXSTA::getState() { return m_cTxState; } // _TXSTA::stop_transmitting() // void _TXSTA::stop_transmitting() { Dprintf(("stopping a USART transmission\n")); bit_count = 0; value.put(value.get() | TRMT); // It's not clear from the documentation as to what happens // to the TXIF when we are aborting a transmission. According // to the documentation, the TXIF is set when the TXEN bit // is set. In other words, when the Transmitter is enabled // the txreg is emptied (and hence TXIF set). But what happens // when TXEN is cleared? Should we clear TXIF too? // // There is one sentence that says when the transmitter is // disabled that the whole transmitter is reset. So I interpret // this to mean that the TXIF gets cleared. I could be wrong // (and I don't have a way to test it on a real device). // // Another interpretation is that TXIF retains it state // through changing TXEN. However, when SPEN (serial port) is // set then the whole usart is reinitialized and TXIF will // get set. // // txreg->full(); // Clear TXIF } void _TXSTA::start_transmitting() { Dprintf(("starting a USART transmission\n")); // Build the serial byte that's about to be transmitted. // I doubt the pic really does this way, but gpsim builds // the entire bit stream including the start bit, 8 data // bits, optional 9th data bit and the stop, and places // this into the tsr register. But since the contents of // the tsr are inaccessible, I guess we'll never know. // // (BTW, if you look carefully you may puzzle over why // there appear to be 2 stop bits in the packet built // below. Well, it's because the way gpsim implements // the transmit logic. The second stop bit doesn't // actually get transmitted - it merely causes the first // stop bit to get transmitted before the TRMT bit is set. // // RRR I believe the above paragraph is a mis-understanding // The tsr register becomes empty, and the TRMT flag goes high, // when we start to transmit the stop bit. Note that transmision // is synchronous with the baud clock, so the start of transmision // of a new character waits for the next callback. This delay maybe, // in fact, the stop bit of the previous transmision, // // [Recall that the TRMT bit indicates when the tsr // {transmit shift register} is empty. It's not tied to // an interrupt pin, so the pic application software // most poll this bit. // // RRR Also The following is wrong: // This bit is set after the STOP // bit is transmitted.] This is a cheap trick that saves // one comparison in the callback code.) // The start bit, which is always low, occupies bit position // zero. The next 8 bits come from the txreg. if(!txreg) return; tsr = txreg->value.get() << 1; // Is this a 9-bit data transmission? if(value.get() & TX9) { // Copy the stop bit and the 9th data bit to the tsr. // (See note above for the reason why two stop bits // are appended to the packet.) tsr |= ( (value.get() & TX9D) ? (3<<9) : (2<<9)); bit_count = 11; // 1 start, 9 data, 1 stop } else { // The stop bit is always high. (See note above // for the reason why two stop bits are appended to // the packet.) tsr |= (1<<9); bit_count = 10; // 1 start, 8 data, 1 stop } // Set a callback breakpoint at the next SPBRG edge if(cpu) get_cycles().set_break(spbrg->get_cpu_cycle(1), this); // The TSR now has data, so clear the Transmit Shift // Register Status bit. trace.raw(write_trace.get() | value.get()); value.put(value.get() & ~TRMT); // Tell the TXREG that its data has been consumed. mUSART->emptyTX(); } void _TXSTA::transmit_break() { Dprintf(("starting a USART sync-break transmission\n")); // A sync-break is 13 consecutive low bits and one stop bit. Use the // standard transmit logic to achieve this if(!txreg) return; tsr = 1<<13; bit_count = 14; // 13 break, 1 stop // The TSR now has data, so clear the Transmit Shift // Register Status bit. trace.raw(write_trace.get() | value.get()); value.put(value.get() & ~TRMT); // Tell the TXREG that its data has been consumed. mUSART->emptyTX(); callback(); // sent start bit } void _TXSTA::transmit_a_bit() { if(bit_count) { Dprintf(("Transmit bit #%x: bit val:%d time:0x%"PRINTF_GINT64_MODIFIER"x\n",bit_count, (tsr&1), get_cycles().get())); putTXState(tsr&1 ? '1' : '0'); tsr >>= 1; --bit_count; } } void _TXSTA::callback() { Dprintf(("TXSTA callback - time:%"PRINTF_GINT64_MODIFIER"x\n",get_cycles().get())); transmit_a_bit(); if(!bit_count) { value.put(value.get() & ~SENDB); // tsr is empty. // If there is any more data in the TXREG, then move it to // the tsr and continue transmitting other wise set the TRMT bit // (See the note above about the 'extra' stop bit that was stuffed // into the tsr register. if(mUSART->bIsTXempty()) value.put(value.get() | TRMT); else start_transmitting(); } else { // bit_count is non zero which means there is still // data in the tsr that needs to be sent. if(cpu) { get_cycles().set_break(spbrg->get_cpu_cycle(1),this); } } } void _TXSTA::callback_print() { cout << "TXSTA " << name() << " CallBack ID " << CallBackID << '\n'; } //----------------------------------------------------------- // Receiver portion of the USART //----------------------------------------------------------- // // First RCSTA -- Receiver Control and Status // The RCSTA class controls the usart reception. The PIC usarts have // two modes: synchronous and asynchronous. // Asynchronous reception: // Asynchronous reception means that there is no external clock // available for telling the usart when to sample the data. Sampling // timing is all based upon the PIC's oscillator. The SPBRG divides // this clock down to a frequency that's appropriate to the data // being received. (e.g. 9600 baud defines the rate at which data // will be sent to the pic - 9600 bits per second.) The start bit, // which is a high to low transition on the receive line, defines // when the usart should start sampling the incoming data. // The pic usarts sample asynchronous data three times in "approximately // the middle" of each bit. The data sheet is not exactly specific // on what's the middle. Consequently, gpsim takes a stab/ educated // guess on when these three samples are to be taken. Once the // three samples are taken, then simple majority summing determines // the sample e.g. if two out of three of the samples are high, then // then the data bit is considered high. // //----------------------------------------------------------- // RCSTA::put // void _RCSTA::put(unsigned int new_value) { unsigned int diff; diff = new_value ^ value.get(); trace.raw(write_trace.get() | value.get()); value.put( ( value.get() & (RX9D | OERR | FERR) ) | (new_value & ~(RX9D | OERR | FERR))); if(!txsta || !txsta->txreg) return; // First check whether or not the serial port is being enabled if(diff & SPEN) { if(value.get() & SPEN) { spbrg->start(); // Make the tx line high when the serial port is enabled. txsta->putTXState('1'); mUSART->emptyTX(); } else { // Completely disable the usart: txsta->stop_transmitting(); mUSART->full(); // Turn off TXIF stop_receiving(); return; } } if(!(txsta->value.get() & _TXSTA::SYNC)) { // Asynchronous receive. if( (value.get() & (SPEN | CREN)) == (SPEN | CREN) ) { // The receiver is enabled. Now check to see if that just happened if(diff & (SPEN | CREN)) { // The serial port has just been enabled. start_receiving(); // If the rx line is low, then go ahead and start receiving now. //if(uart_port && !uart_port->get_bit(rx_bit)) if (m_cRxState == '0' || m_cRxState == 'w') receive_start_bit(); } // Clear overrun error on CREN enabling if ( diff & CREN ) value.put( value.get() & (~OERR) ); } else { // The serial port is not enabled. state = RCSTA_DISABLED; } } else cout << "not doing syncronous receptions yet\n"; } void _RCSTA::put_value(unsigned int new_value) { put(new_value); update(); } //----------------------------------------------------------- // RCSTA - setIOpin - assign the I/O pin associated with the // the receiver. void _RCSTA::setIOpin(PinModule *newPinModule) { if (!m_sink) { m_sink = new RXSignalSink(this); m_PinModule = newPinModule; if (m_PinModule) m_PinModule->addSink(m_sink); } } //----------------------------------------------------------- // RCSTA - setState // This gets called whenever there's a change detected on the RX pin. // The usart is only interested in those changes when it is waiting // for the start bit. Otherwise, the rcsta callback function will sample // the rx pin (if we're receiving). void _RCSTA::setState(char new_RxState) { Dprintf((" setState:%c\n",new_RxState)); m_cRxState = new_RxState; if( (state == RCSTA_WAITING_FOR_START) && (m_cRxState =='0' || m_cRxState=='w')) receive_start_bit(); } //----------------------------------------------------------- // RCSTA::receive_a_bit(unsigned int bit) // // A new bit needs to be copied to the the Receive Shift Register. // If the receiver is receiving data, then this routine will copy // the incoming bit to the rsr. If this is the last bit, then a // check will be made to see if we need to set up for the next // serial byte. // If this is not the last bit, then the receive state machine. void _RCSTA::receive_a_bit(unsigned int bit) { // If we're waiting for the start bit and this isn't it then // we don't need to look any further Dprintf(("receive_a_bit state:%d bit:%d time:0x%"PRINTF_GINT64_MODIFIER"x\n",state,bit,get_cycles().get())); if( state == RCSTA_MAYBE_START) { if (bit) state = RCSTA_WAITING_FOR_START; else state = RCSTA_RECEIVING; return; } if (bit_count == 0) { // we should now have the stop bit if (bit) { // got the stop bit // If the rxreg has data from a previous reception then // we have a receiver overrun error. // cout << "rcsta.rsr is full\n"; if((value.get() & RX9) == 0) rsr >>= 1; // Clear any framing error value.put(value.get() & (~FERR) ); // copy the rsr to the fifo if(rcreg) rcreg->push( rsr & 0xff); Dprintf(("_RCSTA::receive_a_bit received 0x%02X\n",rsr & 0xff)); } else { //no stop bit; framing error value.put(value.get() | FERR); // copy the rsr to the fifo if(rcreg) rcreg->push( rsr & 0xff); } // If we're continuously receiving, then set up for the next byte. // FIXME -- may want to set a half bit delay before re-starting... if(value.get() & CREN) start_receiving(); else state = RCSTA_DISABLED; return; } // Copy the bit into the Receive Shift Register if(bit) rsr |= 1<<9; //cout << "Receive bit #" << bit_count << ": " << (rsr&(1<<9)) << '\n'; rsr >>= 1; bit_count--; } void _RCSTA::stop_receiving() { rsr = 0; bit_count = 0; state = RCSTA_DISABLED; } void _RCSTA::start_receiving() { Dprintf(("The USART is starting to receive data\n")); rsr = 0; sample = 0; // Is this a 9-bit data reception? bit_count = (value.get() & RX9) ? 9 : 8; state = RCSTA_WAITING_FOR_START; } void _RCSTA::overrun() { value.put(value.get() | _RCSTA::OERR); } void _RCSTA::set_callback_break(unsigned int spbrg_edge) { unsigned int time_to_event; if(cpu && spbrg) { time_to_event = ( spbrg->get_cycles_per_tick() * spbrg_edge ) / TOTAL_SAMPLE_STATES; get_cycles().set_break(get_cycles().get() + time_to_event, this); } } void _RCSTA::receive_start_bit() { Dprintf(("USART received a start bit\n")); if((value.get() & (CREN | SREN)) == 0) { Dprintf((" but not enabled\n")); return; } if(txsta && (txsta->value.get() & _TXSTA::BRGH)) set_callback_break(BRGH_FIRST_MID_SAMPLE); else set_callback_break(BRGL_FIRST_MID_SAMPLE); sample = 0; sample_state = RCSTA_WAITING_MID1; state = RCSTA_MAYBE_START; } //------------------------------------------------------------ void _RCSTA::callback() { Dprintf(("RCSTA callback. time:0x%"PRINTF_GINT64_MODIFIER"x\n",get_cycles().get())); // A bit is sampled 3 times. switch(sample_state) { case RCSTA_WAITING_MID1: if (m_cRxState == '1' || m_cRxState == 'W') sample++; if(txsta && (txsta->value.get() & _TXSTA::BRGH)) set_callback_break(BRGH_SECOND_MID_SAMPLE - BRGH_FIRST_MID_SAMPLE); else set_callback_break(BRGL_SECOND_MID_SAMPLE - BRGL_FIRST_MID_SAMPLE); sample_state = RCSTA_WAITING_MID2; break; case RCSTA_WAITING_MID2: if (m_cRxState == '1' || m_cRxState == 'W') sample++; if(txsta && (txsta->value.get() & _TXSTA::BRGH)) set_callback_break(BRGH_THIRD_MID_SAMPLE - BRGH_SECOND_MID_SAMPLE); else set_callback_break(BRGL_THIRD_MID_SAMPLE - BRGL_SECOND_MID_SAMPLE); sample_state = RCSTA_WAITING_MID3; break; case RCSTA_WAITING_MID3: if (m_cRxState == '1' || m_cRxState == 'W') sample++; receive_a_bit( (sample>=2)); sample = 0; // If this wasn't the last bit then go ahead and set a break for the next bit. if(state==RCSTA_RECEIVING) { if(txsta && (txsta->value.get() & _TXSTA::BRGH)) set_callback_break(TOTAL_SAMPLE_STATES -(BRGH_THIRD_MID_SAMPLE - BRGH_FIRST_MID_SAMPLE)); else set_callback_break(TOTAL_SAMPLE_STATES -(BRGL_THIRD_MID_SAMPLE - BRGL_FIRST_MID_SAMPLE)); sample_state = RCSTA_WAITING_MID1; } break; default: //cout << "Error RCSTA callback with bad state\n"; // The receiver was probably disabled in the middle of a reception. ; } } //----------------------------------------------------------- void _RCSTA::callback_print() { cout << "RCSTA " << name() << " CallBack ID " << CallBackID << '\n'; } //----------------------------------------------------------- // RCREG // void _RCREG::push(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); if(fifo_sp >= 2) { if (m_rcsta) m_rcsta->overrun(); Dprintf(("receive overrun\n")); } else { Dprintf(("pushing uart reception onto rcreg stack, value received=0x%x\n",new_value)); fifo_sp++; oldest_value = value.get(); value.put(new_value); } mUSART->set_rcif(); } void _RCREG::pop() { if(fifo_sp == 0) return; if(--fifo_sp == 1) value.put(oldest_value); if(fifo_sp == 0) mUSART->clear_rcif(); } unsigned int _RCREG::get_value() { return value.get(); } unsigned int _RCREG::get() { pop(); trace.raw(read_trace.get() | value.get()); return value.get(); } //----------------------------------------------------------- // SPBRG - Serial Port Baud Rate Generator // // The SPBRG is essentially a continuously running programmable // clock. (Note that this will slow the simulation down if the // serial port is not used. Perhaps gpsim needs some kind of // pragma type thing to disable cpu intensive peripherals...) void _SPBRG::get_next_cycle_break() { future_cycle = last_cycle + get_cycles_per_tick(); if(cpu) { if (future_cycle <= get_cycles().get()) { Dprintf(("future %"PRINTF_GINT64_MODIFIER"d <= now %"PRINTF_GINT64_MODIFIER"d\n", future_cycle, get_cycles().get())); last_cycle = get_cycles().get(); future_cycle = last_cycle + get_cycles_per_tick(); } get_cycles().set_break(future_cycle, this); } //Dprintf(("SPBRG::callback next break at 0x%"PRINTF_GINT64_MODIFIER"x\n",future_cycle)); } unsigned int _SPBRG::get_cycles_per_tick() { unsigned int cpi = (cpu) ? p_cpu->get_ClockCycles_per_Instruction() : 4; unsigned int brgval, cpt; if ( baudcon && baudcon->brg16() ) { brgval = ( brgh ? brgh->value.get() * 256 : 0 ) + value.get(); cpt = 4; // hi-speed divisor in 16-bit mode is 4 } else { brgval = value.get(); cpt = 16; // hi-speed divisor in 8-bit mode is 16 } if ( txsta && (txsta->value.get() & _TXSTA::SYNC) ) { // Synchronous mode - divisor is always 4 cpt = 4; } else { // Asynchronous mode if(txsta && !(txsta->value.get() & _TXSTA::BRGH)) { cpt *= 4; // lo-speed divisor is 4 times hi-speed } } return ((brgval+1)*cpt)/cpi; } void _SPBRG::start() { if(! skip || get_cycles().get() >= skip) { if(cpu) last_cycle = get_cycles().get(); skip = 0; } start_cycle = last_cycle; get_next_cycle_break(); Dprintf((" SPBRG::start last_cycle:0x%"PRINTF_GINT64_MODIFIER"x: future_cycle:0x%"PRINTF_GINT64_MODIFIER"x\n",last_cycle,future_cycle)); } void _SPBRG::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value); Dprintf((" SPBRG value=0x%x\n",value.get())); //Prevent updating last_cycle until all current breakpoints have expired //Otehrwise we see that rx/tx persiods get screwed up from now until future_cycle future_cycle = last_cycle + get_cycles_per_tick(); skip = future_cycle; Dprintf((" SPBRG value=0x%x skip=0x%"PRINTF_GINT64_MODIFIER"x last=0x%"PRINTF_GINT64_MODIFIER"x cycles/tick=0x%x\n",value.get(), skip, last_cycle, get_cycles_per_tick())); } void _SPBRG::put_value(unsigned int new_value) { put(new_value); update(); } void _SPBRGH::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value); if(m_spbrg) m_spbrg->set_start_cycle(); } void _SPBRG::set_start_cycle() { //Prevent updating last_cycle until all current breakpoints have expired //Otherwise we see that rx/tx persiods get screwed up from now until future_cycle future_cycle = last_cycle + get_cycles_per_tick(); skip = future_cycle; } void _SPBRGH::put_value(unsigned int new_value) { put(new_value); update(); } //-------------------------- //guint64 _SPBRG::get_last_cycle() // // Get the cpu cycle corresponding to the last edge of the SPBRG // guint64 _SPBRG::get_last_cycle() { // There's a chance that a SPBRG break point exists on the current // cpu cycle, but has not yet been serviced. if(cpu) return( (get_cycles().get() == future_cycle) ? future_cycle : last_cycle); else return 0; } //-------------------------- //guint64 _SPBRG::get_cpu_cycle(unsigned int edges_from_now) // // When the SPBRG is enabled, it becomes a free running counter // that's synchronous with the cpu clock. The frequency of the // counter depends on the mode of the usart: // // Synchronous mode: // baud = cpu frequency / 4 / (spbrg.value + 1) // // Asynchronous mode: // high frequency: // baud = cpu frequency / 16 / (spbrg.value + 1) // low frequency: // baud = cpu frequency / 64 / (spbrg.value + 1) // // What this routine will do is return the cpu cycle corresponding // to a (rising) edge of the spbrg clock. guint64 _SPBRG::get_cpu_cycle(unsigned int edges_from_now) { // There's a chance that a SPBRG break point exists on the current // cpu cycle, but has not yet been serviced. guint64 cycle = (get_cycles().get() == future_cycle) ? future_cycle : last_cycle; return ( edges_from_now * get_cycles_per_tick() + cycle ); } void _SPBRG::callback() { if (skip) { Dprintf((" SPBRG skip=0x%"PRINTF_GINT64_MODIFIER"x, cycle=0x%"PRINTF_GINT64_MODIFIER"x\n", skip, get_cycles().get())); } if(! skip || get_cycles().get() >= skip) { last_cycle = get_cycles().get(); skip = 0; } //Dprintf(("SPBRG rollover at cycle:0x%"PRINTF_GINT64_MODIFIER"x\n",last_cycle)); if(rcsta && (rcsta->value.get() & _RCSTA::SPEN)) { // If the serial port is enabled, then set another // break point for the next clock edge. get_next_cycle_break(); } } //----------------------------------------------------------- // TXSTA - Transmit Register Status and Control void _BAUDCON::put_value(unsigned int new_value) { put(new_value); update(); } void _BAUDCON::put(unsigned int new_value) { unsigned int old_value = value.get(); trace.raw(write_trace.get() | value.get()); // The RCIDL bit is controlled entirely by hardware. new_value &= ~RCIDL; if ( rcsta->rc_is_idle() ) new_value |= RCIDL; value.put(new_value); Dprintf((" BAUDCON value=0x%x\n",value.get())); if( (old_value ^ value.get()) & TXCKP) { // The TXCKP bit has changed states. // txsta->set_pin_pol ((value.get() & TXCKP) ? true : false); } } //-------------------------------------------------- // member functions for the USART //-------------------------------------------------- void USART_MODULE::initialize(PIR *_pir, PinModule *tx_pin, PinModule *rx_pin, _TXREG *_txreg, _RCREG *_rcreg) { assert(_txreg && _rcreg); pir = _pir; spbrg.txsta = &txsta; spbrg.rcsta = &rcsta; txreg = _txreg; txreg->assign_txsta(&txsta); rcreg = _rcreg; rcreg->assign_rcsta(&rcsta); txsta.txreg = txreg; txsta.spbrg = &spbrg; txsta.bit_count = 0; txsta.setIOpin(tx_pin); rcsta.rcreg = rcreg; rcsta.spbrg = &spbrg; rcsta.txsta = &txsta; rcsta.setIOpin(rx_pin); } void USART_MODULE::set_TXpin(PinModule *tx_pin) { txsta.setIOpin(tx_pin); } void USART_MODULE::set_RXpin(PinModule *rx_pin) { rcsta.setIOpin(rx_pin); } bool USART_MODULE::bIsTXempty() { return pir ? pir->get_txif() : true; } void USART_MODULE::emptyTX() { Dprintf(("usart::empty - setting TXIF\n")); if (rcsta.bSPEN() && txsta.bTXEN() && pir) pir->set_txif(); } void USART_MODULE::full() { Dprintf(("txreg::full - clearing TXIF\n")); if(pir) pir->clear_txif(); } void USART_MODULE::set_rcif() { Dprintf((" - setting RCIF\n")); if(pir) pir->set_rcif(); } void USART_MODULE::clear_rcif() { Dprintf((" - clearing RCIF\n")); if(pir) pir->clear_rcif(); } //-------------------------------------------------- USART_MODULE::USART_MODULE(Processor *pCpu) : txsta(pCpu,"","USART Transmit Status",this), // Don't set names incase there are two UARTS rcsta(pCpu,"","USART Receive Status",this), spbrg(pCpu,"","Serial Port Baud Rate Generator"), spbrgh(pCpu,"spbrgh","Serial Port Baud Rate high byte"), baudcon(pCpu,"baudcon","Serial Port Baud Rate Control"), is_eusart(false) { baudcon.txsta = &txsta; baudcon.rcsta = &rcsta; } //-------------------------------------------------- void USART_MODULE::set_eusart ( bool is_it ) { if ( is_it ) { spbrgh.assign_spbrg ( &spbrg ); spbrg.baudcon = &baudcon; spbrg.brgh = &spbrgh; is_eusart = true; } else { spbrgh.assign_spbrg ( 0 ); spbrg.baudcon = 0; spbrg.brgh = 0; is_eusart = false; } } gpsim-0.27.0/src/dspic/0000775000076400007640000000000012210742352011621 500000000000000gpsim-0.27.0/src/dspic/dspic-registers.cc0000755000076400007640000001477211407267702015203 00000000000000/* Copyright (C) 2006 T. Scott Dattalo This file is part of the libgpsim_dspic library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include "dspic-registers.h" #include "dspic-processors.h" #include "../trace.h" #if defined(PROPAGATE_UNKNOWNS) bool gbPropagateUnknown=false; #endif namespace dspic { extern Trace *gTrace; // Points to gpsim's global trace object. extern Cycle_Counter *gCycles; // Points to gpsim's global cycle counter. } namespace dspic_registers { //------------------------------------------------------------------------ // dsPicRegister unsigned int dsPicRegister::iMask = 0xffff; //-------------------------------------------------- bool dsPicRegister::get_bit(unsigned int bit_number) { return( ((value.get() >> (bit_number & 0x0f)) & 1 ) ? true : false); } dsPicRegister::dsPicRegister(Processor *pCpu, const char *pName, const char *pDesc) : Register(pCpu, pName, pDesc) { value.data = 0; value.init = 0xffff; por_value.data = 0; por_value.init = 0xffff; } //-------------------------------------------------- // PCL - low word of program counter. //-------------------------------------------------- PCL::PCL(Processor *pCpu, const char *pName, const char *pDesc) : dsPicRegister(pCpu,pName,pDesc) { value = RegisterValue(0,0); por_value = value; } void PCL::put(unsigned int new_value) { dspic::gTrace->raw(write_trace.get() | value.get()); cpu_dsPic->pc->computed_goto(new_value); } void PCL::put_value(unsigned int new_value) { value.put(new_value & 0xffff); cpu_dsPic->pc->put_value( (cpu_dsPic->pc->get_value() & 0xffff0000) | value.get()); } unsigned int PCL::get() { return((value.get()+1) & 0xffff); } unsigned int PCL::get_value() { value.put(cpu_dsPic->pc->get_value() & 0xffff); return(value.get()); } //------------------------------------------------------------------------ // // Program Counter // dsPicProgramCounter::dsPicProgramCounter(dspic::dsPicProcessor *pcpu, PCL *pPCL) : Program_Counter("pc", "Program Counter", pcpu), m_pcl(pPCL), m_cpu(pcpu) { printf("dspic program counter.\n"); set_trace_command(); //dspic::gTrace->allocateTraceType(new PCTraceType(pcpu,1))); } //-------------------------------------------------- // jump - update the program counter. All branching instructions // except computed gotos and returns go through here. void dsPicProgramCounter::jump(unsigned int new_address) { dspic::gTrace->raw(trace_other | (value<<1)); value = new_address; value = (value >= memory_size) ? value - memory_size : value; m_pcl->value.put(value & 0xffff); dspic::gCycles->increment(); dspic::gCycles->increment(); } void dsPicProgramCounter::computed_goto(unsigned int new_address) { printf("dspic %s.\n",__FUNCTION__); dspic::gTrace->raw(trace_other | (value<<1)); // Use the new_address and the cached pclath (or page select bits // for 12 bit cores) to generate the destination address: value = (new_address >>1); value = (value >= memory_size) ? value - memory_size : value; // see Update pcl comment in Program_Counter::increment() m_pcl->value.put((value<<1) & 0xffff); // The instruction modifying the PCL will also increment the // program counter. So, pre-compensate the increment with a // decrement: value--; dspic::gCycles->increment(); } void dsPicProgramCounter::put_value(unsigned int new_value) { printf("dspic program counter::%s. (0x%x)\n",__FUNCTION__,new_value); dspic::gTrace->raw(trace_other | (value<<1)); value = new_value; value = (value >= memory_size) ? value - memory_size : value; m_pcl->value.put(value & 0xff); //m_cpu->pclath->value.put((value >> 8) & 0xff); m_pcl->update(); //cpu_pic->pclath->update(); update(); } unsigned int dsPicProgramCounter::get_value() { printf("dspic program counter::%s.\n",__FUNCTION__); return value*2; } //-------------------------------------------------- // increment - update the program counter. All non-branching // instructions pass through here. void dsPicProgramCounter::increment() { // Trace the value of the program counter before it gets changed. dspic::gTrace->raw(trace_increment | value); value = (value + 1); value = (value >= memory_size) ? value - memory_size : value; // Update pcl. Note that we don't want to pcl.put() because that // will trigger a break point if there's one set on pcl. (A read/write // break point on pcl should not be triggered by advancing the program // counter). m_pcl->value.put(value & 0xffff); dspic::gCycles->increment(); } //---------------------------------------------------------------------- // Stack //---------------------------------------------------------------------- Stack::Stack(dspic::dsPicProcessor *pCpu) : m_cpu(pCpu) { } void Stack::push() { unsigned int pc = m_cpu->pc->get_value(); unsigned int rm_size = m_cpu->register_memory_size()>>1; unsigned int tos = m_cpu->W[15].get_value(); unsigned int tos_index = tos>>1; // Push the current PC onto the stack m_cpu->registers[tos_index %rm_size]->put(pc & 0xffff); m_cpu->registers[(tos_index+1)%rm_size]->put((pc>>16) & 0xffff); m_cpu->W[15].put(tos + 4); } void Stack::pop() { } //---------------------------------------------------------------------- // Status //---------------------------------------------------------------------- Status::Status(Processor *pCpu, const char *pName, const char *pDesc) : dsPicRegister(pCpu,pName,pDesc) { } //---------------------------------------------------------------------- // WRegister //---------------------------------------------------------------------- WRegister::WRegister() : dsPicRegister(0, 0, 0) { } } gpsim-0.27.0/src/dspic/Makefile.in0000664000076400007640000005240412210742105013607 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = src/dspic DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am \ $(top_srcdir)/depcomp ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(libdir)" LTLIBRARIES = $(lib_LTLIBRARIES) libgpsim_dspic_la_LIBADD = am_libgpsim_dspic_la_OBJECTS = gpsim_modules.lo dspic-processors.lo \ dspic-instructions.lo dspic-registers.lo libgpsim_dspic_la_OBJECTS = $(am_libgpsim_dspic_la_OBJECTS) AM_V_lt = $(am__v_lt_@AM_V@) am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@) am__v_lt_0 = --silent am__v_lt_1 = libgpsim_dspic_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CXX \ $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CXXLD) \ $(AM_CXXFLAGS) $(CXXFLAGS) $(libgpsim_dspic_la_LDFLAGS) \ $(LDFLAGS) -o $@ AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/depcomp am__depfiles_maybe = depfiles am__mv = mv -f CXXCOMPILE = $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) LTCXXCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) \ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ $(AM_CXXFLAGS) $(CXXFLAGS) AM_V_CXX = $(am__v_CXX_@AM_V@) am__v_CXX_ = $(am__v_CXX_@AM_DEFAULT_V@) am__v_CXX_0 = @echo " CXX " $@; am__v_CXX_1 = CXXLD = $(CXX) CXXLINK = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CXXLD) $(AM_CXXFLAGS) \ $(CXXFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@ AM_V_CXXLD = $(am__v_CXXLD_@AM_V@) am__v_CXXLD_ = $(am__v_CXXLD_@AM_DEFAULT_V@) am__v_CXXLD_0 = @echo " CXXLD " $@; am__v_CXXLD_1 = COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) \ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ $(AM_CFLAGS) $(CFLAGS) AM_V_CC = $(am__v_CC_@AM_V@) am__v_CC_ = $(am__v_CC_@AM_DEFAULT_V@) am__v_CC_0 = @echo " CC " $@; am__v_CC_1 = CCLD = $(CC) LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ $(AM_LDFLAGS) $(LDFLAGS) -o $@ AM_V_CCLD = $(am__v_CCLD_@AM_V@) am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@) am__v_CCLD_0 = @echo " CCLD " $@; am__v_CCLD_1 = SOURCES = $(libgpsim_dspic_la_SOURCES) DIST_SOURCES = $(libgpsim_dspic_la_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) # Read a list of newline-separated strings from the standard input, # and print each of them once, without duplicates. Input order is # *not* preserved. am__uniquify_input = $(AWK) '\ BEGIN { nonempty = 0; } \ { items[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in items) print i; }; } \ ' # Make sure the list of sources is unique. This is necessary because, # e.g., the same source file might be shared among _SOURCES variables # for different programs/libraries. am__define_uniq_tagged_files = \ list='$(am__tagged_files)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | $(am__uniquify_input)` ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ AM_CPPFLAGS = @X_CFLAGS@ lib_LTLIBRARIES = libgpsim_dspic.la libgpsim_dspic_la_SOURCES = \ gpsim_modules.cc \ dspic-processors.cc dspic-processors.h \ dspic-instructions.cc dspic-instructions.h \ dspic-registers.cc dspic-registers.h libgpsim_dspic_la_LDFLAGS = @X_LDFLAGS@ EXTRA_DIST = makefile.mingw all: all-am .SUFFIXES: .SUFFIXES: .cc .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu src/dspic/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu src/dspic/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-libLTLIBRARIES: $(lib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \ } uninstall-libLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \ done clean-libLTLIBRARIES: -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) @list='$(lib_LTLIBRARIES)'; \ locs=`for p in $$list; do echo $$p; done | \ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ sort -u`; \ test -z "$$locs" || { \ echo rm -f $${locs}; \ rm -f $${locs}; \ } libgpsim_dspic.la: $(libgpsim_dspic_la_OBJECTS) $(libgpsim_dspic_la_DEPENDENCIES) $(EXTRA_libgpsim_dspic_la_DEPENDENCIES) $(AM_V_CXXLD)$(libgpsim_dspic_la_LINK) -rpath $(libdir) $(libgpsim_dspic_la_OBJECTS) $(libgpsim_dspic_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dspic-instructions.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dspic-processors.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dspic-registers.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gpsim_modules.Plo@am__quote@ .cc.o: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(CXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(CXXCOMPILE) -c -o $@ $< .cc.obj: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(CXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(CXXCOMPILE) -c -o $@ `$(CYGPATH_W) '$<'` .cc.lo: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(LTCXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(LTCXXCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs ID: $(am__tagged_files) $(am__define_uniq_tagged_files); mkid -fID $$unique tags: tags-am TAGS: tags tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) set x; \ here=`pwd`; \ $(am__define_uniq_tagged_files); \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: ctags-am CTAGS: ctags ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) $(am__define_uniq_tagged_files); \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" cscopelist: cscopelist-am cscopelist-am: $(am__tagged_files) list='$(am__tagged_files)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(LTLIBRARIES) installdirs: for dir in "$(DESTDIR)$(libdir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-libLTLIBRARIES install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-libLTLIBRARIES .MAKE: install-am install-strip .PHONY: CTAGS GTAGS TAGS all all-am check check-am clean clean-generic \ clean-libLTLIBRARIES clean-libtool cscopelist-am ctags \ ctags-am distclean distclean-compile distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-libLTLIBRARIES install-man install-pdf \ install-pdf-am install-ps install-ps-am install-strip \ installcheck installcheck-am installdirs maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-compile \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags tags-am uninstall uninstall-am uninstall-libLTLIBRARIES # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/src/dspic/Makefile.am0000664000076400007640000000056512177043162013610 00000000000000## Process this file with automake to produce Makefile.in AM_CPPFLAGS = @X_CFLAGS@ lib_LTLIBRARIES = libgpsim_dspic.la libgpsim_dspic_la_SOURCES = \ gpsim_modules.cc \ dspic-processors.cc dspic-processors.h \ dspic-instructions.cc dspic-instructions.h \ dspic-registers.cc dspic-registers.h libgpsim_dspic_la_LDFLAGS = @X_LDFLAGS@ EXTRA_DIST = makefile.mingw gpsim-0.27.0/src/dspic/dspic-processors.cc0000755000076400007640000001412511407267702015366 00000000000000/* Copyright (C) 2006 T. Scott Dattalo This file is part of the libgpsim_dspic library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include "dspic-processors.h" #include "dspic-registers.h" #include #include "../symbol.h" #include "../program_files.h" #include "../packages.h" #include "../trace.h" //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ // // Globals // using namespace dspic; using namespace dspic_registers; ProcessorConstructor pdsPic30F6010(dsPic30F6010::construct , "__30f6010", "dspic30f6010", "30f6010", "30f610"); namespace dspic { Trace *gTrace=0; // Points to gpsim's global trace object. Cycle_Counter *gCycles=0; // Points to gpsim's global cycle counter. //------------------------------------------------------------------- // // dsPicProcessor -- constructor. dsPicProcessor::dsPicProcessor(const char *_name, const char *desc) : Processor(_name, desc), m_stack(this), m_status(this, "status") { gTrace = &get_trace(); gCycles = &get_cycles(); pcl = new PCL(this, "PCL"); pc = new dsPicProgramCounter(this,pcl); } //------------------------------------------------------------------- // // create // // Build the basic dsPicProcessor elements. void dsPicProcessor::create() { init_program_memory (program_memory_size()); init_register_memory (register_memory_size()/2); create_sfr_map(); create_invalid_registers(); } //------------------------------------------------------------------- // void dsPicProcessor::add_sfr_register(dspic_registers::dsPicRegister *pReg, unsigned int addr, const char *pName, RegisterValue *rv ) { if (!pReg) return; printf("adding sfr %s\n",pReg->name().c_str()); pReg->set_cpu(this); if (addr < register_memory_size()) { registers[map_rm_address2index(addr)] = pReg; if (pName) pReg->new_name(pName); pReg->address = addr; pReg->alias_mask = 0; addSymbol(pReg); if (rv) { pReg->value = *rv; pReg->por_value = *rv; } RegisterValue rv = getWriteTT(addr); pReg->set_write_trace(rv); rv = getReadTT(addr); pReg->set_read_trace(rv); } } //------------------------------------------------------------------- // // load_hex // bool dsPicProcessor::LoadProgramFile(const char *pFilename, FILE *pFile, const char *pProcessorName) { Processor * pProcessor = this; ProgramFileType *pPFT = ProgramFileTypeList::GetList()[0]; // IntelHexProgramFileType if (pPFT) return pPFT->LoadProgramFile(&pProcessor, pFilename, pFile, pProcessorName); return false; } //------------------------------------------------------------------------ void dsPicProcessor::create_sfr_map() { unsigned int j; // Initialize the General Purpose Registers: //add_file_registers(0xf80, 0xf7f, 0); unsigned int start_address = 0x0800/2; unsigned int end_address = 0x27ff/2; char str[100]; for (j = start_address; j <= end_address; j++) { //The default register name is simply its address snprintf (str, sizeof(str), "R%03X", j); registers[j] = new dsPicRegister(this,str); registers[j]->address = j; RegisterValue rv = getWriteTT(j); registers[j]->set_write_trace(rv); rv = getReadTT(j); registers[j]->set_read_trace(rv); } RegisterValue porv(0,0); for (j=0; j<16; j++) { char buff[16]; snprintf(buff, 16, "W%d",j); // add_sfr_register(&W[j], j*2, buff,&porv); } add_sfr_register(pcl, 0x02e); } //------------------------------------------------------------------------ void dsPicProcessor::init_program_memory_at_index(unsigned int uIndex, const unsigned char *bytes, int nBytes) { unsigned int unBytes = nBytes; for (unsigned int i =0; ivalue]->execute(); } void dsPicProcessor::step(unsigned int, bool refresh) { program_memory[pc->value]->execute(); } void dsPicProcessor::run(bool refresh) { } void dsPicProcessor::finish() { } void dsPicProcessor::step_cycle() { } void dsPicProcessor::interrupt() { } unsigned int dsPicProcessor::get_config_word(unsigned int) { return 0xffffffff; } void dsPicProcessor::reset(RESET_TYPE r) { } //------------------------------------------------------------------------ // dsPIC30F6010 //------------------------------------------------------------------------ dsPic30F6010::dsPic30F6010(const char *_name, const char *desc) { } Processor * dsPic30F6010::construct(const char *name) { dsPic30F6010 *p = new dsPic30F6010(name); printf ("Constructing a dspic 6010\n"); p->create(); globalSymbolTable().addModule(p); return p; } //------------------------------------------------------------ // void dsPic30F6010::create() { create_iopin_map(); dsPicProcessor::create(); } //------------------------------------------------------------ // void dsPic30F6010::create_iopin_map() { package = new Package(80); if(!package) return; } }; gpsim-0.27.0/src/dspic/dspic-registers.h0000755000076400007640000001366611401132302015023 00000000000000/* Copyright (C) 2006 T. Scott Dattalo This file is part of the libgpsim_dspic library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #if !defined(__DSPIC_REGISTERS_H__) #define __DSPIC_REGISTERS_H__ #include "../registers.h" #include "../trace.h" namespace dspic { extern Trace *gTrace; class dsPicProcessor; }; namespace dspic_registers { //------------------------------------------------------------ // dspic Registers // // The dspic registers are natively 16-bit wide. We'll overide // most of the Register base class methods because of this. class dsPicRegister : public Register { public: /// The 'iMask' member is used to inhibit/enable three state logic /// (the i in iMask stands for init, which is the name of the variable /// holding the stated of the initialized bits). static unsigned int iMask; dsPicRegister(Processor *, const char *pName, const char *pDesc=0); /* dsPicRegister() { value.data = 0; value.init = 0xffff; por_value.data = 0; por_value.init = 0xffff; } dsPicRegister(RegisterValue &rv) { value = rv; } */ virtual bool get_bit(unsigned int bit_number); virtual void put(unsigned int new_value) { RegisterValue rv = getRV_notrace(); rv.data = new_value&0xffff; putRV(rv); } virtual unsigned int get() { RegisterValue rv = getRV(); return rv.data; } virtual unsigned int get_value() { RegisterValue rv = getRV_notrace(); return rv.data; } virtual void putRV_notrace(RegisterValue rv) { #if defined(PROPAGATE_UNKNOWNS) if(gbPropagateUnknown) { unsigned int diff = value.data ^ rv.data; value.init |= (rv.init | diff); value.data &= ~diff; } else #endif { value.data = rv.data; value.init = (rv.init & iMask); } } virtual void putRV(RegisterValue rv) { dspic::gTrace->raw(write_trace.get() | value.get()); dspic::gTrace->raw( write_trace.geti() | value.geti()); putRV_notrace(rv); } virtual RegisterValue getRV(void) { dspic::gTrace->raw(read_trace.get() | value.get()); dspic::gTrace->raw(read_trace.geti() | value.geti()); return getRV_notrace(); } virtual RegisterValue getRV_notrace(void) { return RegisterValue(value.get(),value.geti()&iMask); } // getRVN is the same as getRV and is only overidden by the // status register(s). This method is used by certain instructions // that might have the status register as the destination. // The 'N' means that the flags will be cleared. virtual RegisterValue getRVN(void) { dspic::gTrace->raw(read_trace.get() | value.get()); dspic::gTrace->raw(read_trace.geti() | value.geti()); return getRVN_notrace(); } virtual RegisterValue getRVN_notrace(void) { return getRV_notrace(); } virtual unsigned int register_size () const { return 2; // bytes } }; //------------------------------------------------------------ // class Status : public dsPicRegister { public: enum { eC = 1<<0, eZ = 1<<1, eOV = 1<<2, eN = 1<<3, eRA = 1<<4, eIPLD = 1<<5, eIPL1 = 1<<6, eIPL2 = 1<<7, eDC = 1<<8, eDA = 1<<9, eSAB = 1<<10, eOAB = 1<<11, eSB = 1<<12, eSA = 1<<13, eOB = 1<<14, eOA = 1<<15 }; Status(Processor *, const char *pName, const char *pDesc=0); inline void traceWrite() { dspic::gTrace->raw(write_trace.get() | value.get()); dspic::gTrace->raw(write_trace.geti() | value.geti()); } inline void putFlags(unsigned int flags, unsigned int mask, unsigned int uninit) { traceWrite(); value.data = (value.data & ~mask) | flags; value.init &= ~mask; value.init |= uninit; } }; //------------------------------------------------------------ // class WRegister : public dsPicRegister { public: WRegister(); }; //------------------------------------------------------------ // class PCL : public dsPicRegister { public: virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); virtual unsigned int get(); virtual unsigned int get_value(); PCL(Processor *, const char *pName, const char *pDesc=0); }; //------------------------------------------------------------ // dspic Program Counter // class dsPicProgramCounter : public Program_Counter { public: dsPicProgramCounter(dspic::dsPicProcessor *, PCL *); virtual void increment(); //virtual void skip(); virtual void jump(unsigned int new_address); //virtual void interrupt(unsigned int new_value); virtual void computed_goto(unsigned int new_value); //virtual void new_address(unsigned int new_value); virtual void put_value(unsigned int new_value); virtual unsigned int get_value(); //virtual unsigned int get_next(); protected: PCL *m_pcl; dspic::dsPicProcessor *m_cpu; }; //------------------------------------------------------------ // dspic Stack // class Stack { public: Stack(dspic::dsPicProcessor *pCpu); void push(); void pop(); protected: dspic::dsPicProcessor *m_cpu; }; } #endif // !defined(__DSPIC_REGISTERS_H__) gpsim-0.27.0/src/dspic/dspic-instructions.h0000755000076400007640000010462611401132302015555 00000000000000/* Copyright (C) 2006 T. Scott Dattalo This file is part of the libgpsim_dspic library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #if !defined(__DSPIC_INSTRUCTIONS_H__) #define __DSPIC_INSTRUCTIONS_H__ #include "../pic-instructions.h" namespace dspic { class dsPicProcessor; }; namespace dspic_instructions { // Fix me - duplicate of the status register bit definitions. enum { eC = 1<<0, eZ = 1<<1, eOV = 1<<2, eN = 1<<3, eRA = 1<<4, eIPLD = 1<<5, eIPL1 = 1<<6, eIPL2 = 1<<7, eDC = 1<<8, eDA = 1<<9, eSAB = 1<<10, eOAB = 1<<11, eSB = 1<<12, eSA = 1<<13, eOB = 1<<14, eOA = 1<<15 }; //--------------------------------------------------------- class MultiWordInstruction : public instruction { public: MultiWordInstruction(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual int instruction_size(void) { return 2;} virtual enum INSTRUCTION_TYPES isa(void) {return MULTIWORD_INSTRUCTION;}; virtual bool isBase() { return true;} virtual void initialize(bool init_state) { initialized = init_state; } protected: unsigned int word2_opcode; unsigned int PMaddress; unsigned int PMindex; bool initialized; }; //--------------------------------------------------------- class MultiWordBranch : public MultiWordInstruction { public: MultiWordBranch(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); unsigned int destination_index; void runtime_initialize(void); virtual void execute(void){}; virtual char *name(char *,int); }; //--------------------------------------------------------- class LiteralBranch : public instruction { public: LiteralBranch(Processor *new_cpu, unsigned int new_opcode, unsigned int addr, const char *_name); virtual bool isBase() { return true;} virtual char *name(char *,int); protected: unsigned int m_destination; const char *mcP_conditionName; }; //---------------------------------------------------------------------- class ImmediateInstruction : public instruction { public: ImmediateInstruction(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual char *name(char *,int len); virtual bool isBase() { return true;} protected: unsigned int m_L; }; //---------------------------------------------------------------------- class AddressingMode { public: AddressingMode(dspic::dsPicProcessor *cpu, unsigned int addr); virtual ~AddressingMode() { } virtual RegisterValue get()=0; virtual void put(RegisterValue &)=0; virtual char *name(char *buff, int len)=0; /**/ static AddressingMode *construct(dspic::dsPicProcessor *new_cpu, unsigned int new_mode, unsigned int addr); /**/ enum { eDirect = 0, eIndirect, eIndirectPostDec, eIndirectPostInc, eIndirectPreDec, eIndirectPreInc, eIndirectRegOffset, eIndirectRegOffset_, eLiteral=6, eLiteral_=7, }; protected: dspic::dsPicProcessor *m_cpu; unsigned int m_mode; unsigned int m_addr; static const RegisterValue m_unknown; }; //---------------------------------------------------------------------- class LiteralAddressingMode : public AddressingMode { public: LiteralAddressingMode(dspic::dsPicProcessor *cpu, unsigned int addr); virtual ~LiteralAddressingMode() { } virtual RegisterValue get() {return m_rv;} virtual void put(RegisterValue &) {} // maybe we should throw an error? virtual char *name(char *buff, int len); private: RegisterValue m_rv; }; //---------------------------------------------------------------------- class RegisterAddressingMode : public AddressingMode { public: RegisterAddressingMode(dspic::dsPicProcessor *cpu, unsigned int addr, const char *format); virtual ~RegisterAddressingMode() { } virtual char *name(char *buff, int len); protected: const char *m_cPformat; }; //---------------------------------------------------------------------- class RegDirectAddrMode : public RegisterAddressingMode { public: RegDirectAddrMode(dspic::dsPicProcessor *cpu, unsigned int addr); virtual ~RegDirectAddrMode() { } virtual RegisterValue get(); virtual void put(RegisterValue &); }; //---------------------------------------------------------------------- class RegIndirectAddrMode : public RegisterAddressingMode { public: RegIndirectAddrMode(dspic::dsPicProcessor *cpu, unsigned int addr); virtual ~RegIndirectAddrMode() { } virtual RegisterValue get(); virtual void put(RegisterValue &); }; //---------------------------------------------------------------------- class RegIndirectPostDecAddrMode : public RegisterAddressingMode { public: RegIndirectPostDecAddrMode(dspic::dsPicProcessor *cpu, unsigned int addr); virtual ~RegIndirectPostDecAddrMode() { } virtual RegisterValue get(); virtual void put(RegisterValue &); }; //---------------------------------------------------------------------- class RegIndirectPostIncAddrMode : public RegisterAddressingMode { public: RegIndirectPostIncAddrMode(dspic::dsPicProcessor *cpu, unsigned int addr); virtual ~RegIndirectPostIncAddrMode() { } virtual RegisterValue get(); virtual void put(RegisterValue &); }; //---------------------------------------------------------------------- class RegIndirectPreDecAddrMode : public RegisterAddressingMode { public: RegIndirectPreDecAddrMode(dspic::dsPicProcessor *cpu, unsigned int addr); virtual ~RegIndirectPreDecAddrMode() { } virtual RegisterValue get(); virtual void put(RegisterValue &); }; //---------------------------------------------------------------------- class RegIndirectPreIncAddrMode : public RegisterAddressingMode { public: RegIndirectPreIncAddrMode(dspic::dsPicProcessor *cpu, unsigned int addr); virtual ~RegIndirectPreIncAddrMode() { } virtual RegisterValue get(); virtual void put(RegisterValue &); }; //---------------------------------------------------------------------- class RegisterInstruction : public instruction { public: RegisterInstruction(Processor *new_cpu, unsigned int new_opcode, unsigned int addr, const char *_name); virtual bool isBase() { return true;} protected: bool m_bByteOperation; AddressingMode *m_base; AddressingMode *m_source; AddressingMode *m_destination; }; //++++++++++++++++++++++++++++++++++++++++ enum eAddressingModes { eRegisterDirect, eRegisterIndirect }; //---------------------------------------------------------------------- class RegisterToRegisterInstruction : public RegisterInstruction { public: RegisterToRegisterInstruction(Processor *new_cpu, unsigned int new_opcode, unsigned int addr, const char *new_name, eAddressingModes addrMode); virtual char *name(char *,int len); protected: eAddressingModes m_addrMode; //bool m_bHasBase; // true for instructions with 3 operands. }; //---------------------------------------------------------------------- class ADDR : public RegisterToRegisterInstruction { public: ADDR(Processor *new_cpu, unsigned int new_opcode, unsigned int addr, eAddressingModes addrMode); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) { if ((new_opcode & 0xf00000) == 0x400000) return new ADDR(new_cpu,new_opcode,addr,eRegisterIndirect); return new ADDR(new_cpu,new_opcode,addr,eRegisterDirect); } }; //---------------------------------------------------------------------- class ADD : public instruction { public: ADD(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new ADD(new_cpu,new_opcode,addr);} }; //---------------------------------------------------------------------- class ADDC : public instruction { public: ADDC(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new ADDC(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class AND : public instruction { public: AND(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new AND(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class ASR : public instruction { public: ASR(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new ASR(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class BCLR : public instruction { public: BCLR(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new BCLR(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class BRA : public LiteralBranch { public: BRA(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new BRA(new_cpu,new_opcode, addr);} protected: unsigned int m_condition; enum eConditions { OV=0, // Overflow C, // Carry and GEU Z, // Zero N, // Negative LE, // Less than or equal to LT, // Less than LEU, // Less than or equal unsigned UN, // Unconditionally NOV, // No overflow NC, // No Carry and LTU (less than unsigned) NZ, // Not zero NN, // Not Negative GT, // Greater than GE, // Greater than or equal GTU, // Greater than unsigned NU // not used... }; }; //---------------------------------------------------------------------- class BSET : public instruction { public: BSET(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new BSET(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class BSW : public instruction { public: BSW(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new BSW(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class BTG : public instruction { public: BTG(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new BTG(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class BTS : public instruction { public: BTS(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new BTS(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class BTST : public instruction { public: BTST(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new BTST(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class BTSTS : public instruction { public: BTSTS(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new BTSTS(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class CALL : public instruction { public: CALL(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new CALL(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class CLR : public instruction { public: CLR(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new CLR(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class CLRWDT : public instruction { public: CLRWDT(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new CLRWDT(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class COM : public instruction { public: COM(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new COM(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class CP : public instruction { public: CP(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new CP(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class CP0 : public instruction { public: CP0(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new CP0(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class CPB : public instruction { public: CPB(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new CPB(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class CPS : public instruction { public: CPS(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new CPS(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class DAW : public instruction { public: DAW(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new DAW(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class DEC : public instruction { public: DEC(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new DEC(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class DISI : public instruction { public: DISI(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new DISI(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class DIV : public instruction { public: DIV(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new DIV(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class DO : public instruction { public: DO(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new DO(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class ED : public instruction { public: ED(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new ED(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class EXCH : public instruction { public: EXCH(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new EXCH(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class FB : public instruction { public: FB(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new FB(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class GOTO : public MultiWordBranch { public: GOTO(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new GOTO(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class INC : public instruction { public: INC(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new INC(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class IOR : public instruction { public: IOR(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new IOR(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class LAC : public instruction { public: LAC(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new LAC(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class LNK : public ImmediateInstruction { public: LNK(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new LNK(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class LSR : public instruction { public: LSR(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new LSR(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class MAC : public instruction { public: MAC(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new MAC(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- //---------------------------------------------------------------------- class MOV : public RegisterToRegisterInstruction { public: MOV(Processor *new_cpu, unsigned int new_opcode, unsigned int addr, eAddressingModes addrMode); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) { if ((new_opcode & 0xf78000) == 0xb78000) return new MOV(new_cpu,new_opcode,addr,eRegisterDirect); return new MOV(new_cpu,new_opcode,addr,eRegisterIndirect); } }; //---------------------------------------------------------------------- class MOVSAC : public instruction { public: MOVSAC(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new MOVSAC(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class MPY : public instruction { public: MPY(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new MPY(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class MUL : public instruction { public: MUL(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new MUL(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class NEG : public instruction { public: NEG(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new NEG(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class NOP : public instruction { public: NOP(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new NOP(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class POP : public instruction { public: POP(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new POP(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class PUSH : public instruction { public: PUSH(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new PUSH(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class PWRSAV : public instruction { public: PWRSAV(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new PWRSAV(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class RCALL : public LiteralBranch { public: RCALL(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new RCALL(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class REPEAT : public instruction { public: REPEAT(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new REPEAT(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class RESET : public instruction { public: RESET(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new RESET(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class RET : public instruction { public: RET(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new RET(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class ROT : public instruction { public: ROT(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new ROT(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class SAC : public instruction { public: SAC(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new SAC(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class SE : public instruction { public: SE(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new SE(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class SETM : public instruction { public: SETM(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new SETM(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class SFTAC : public instruction { public: SFTAC(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new SFTAC(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class SL : public instruction { public: SL(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new SL(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class SUB : public instruction { public: SUB(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new SUB(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class SWAP : public instruction { public: SWAP(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new SWAP(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class TBLRD : public instruction { public: TBLRD(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new TBLRD(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class TBLWT : public instruction { public: TBLWT(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new TBLWT(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class ULNK : public instruction { public: ULNK(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new ULNK(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class XOR : public instruction { public: XOR(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new XOR(new_cpu,new_opcode, addr);} }; //---------------------------------------------------------------------- class ZE : public instruction { public: ZE(Processor *new_cpu, unsigned int new_opcode, unsigned int addr); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) {return new ZE(new_cpu,new_opcode, addr);} }; }; #endif // __DSPIC_INSTRUCTIONS_H__ gpsim-0.27.0/src/dspic/dspic-processors.h0000755000076400007640000000705211401132302015206 00000000000000/* Copyright (C) 2006 T. Scott Dattalo This file is part of the libgpsim_dspic library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __DSPIC_PROCESSOR_H__ #define __DSPIC_PROCESSOR_H__ #include "../processor.h" #include "dspic-registers.h" /* namespace dspic_registers { class PCL; class dsPicRegister; }; */ namespace dspic { class dsPicProcessor : public Processor { public: dsPicProcessor(const char *_name=0, const char *desc=0); // create - build the dsPic virtual void create (); virtual void create_sfr_map(); virtual unsigned int program_memory_size() const { return 0x1000; }; virtual unsigned int register_memory_size () const { return 0x2800;}; virtual int map_pm_address2index(int address) {return address/2;} virtual int map_pm_index2address(int index) {return index*2;} // Register details virtual unsigned int register_size () const { return 2;} virtual unsigned int register_mask () const { return 0xffff;} virtual unsigned int YDataRamEnd () const { return 0x27ff;} virtual int map_rm_address2index(int address) {return address/2;} virtual int map_rm_index2address(int index) {return index*2;} void add_sfr_register(dspic_registers::dsPicRegister *reg, unsigned int addr, const char*pName=0, RegisterValue *rv=0); // opcode_size - number of bytes for an opcode. // The opcode's are really only 3 bytes, however in // hex files they're encoded in 4 bytes. virtual int opcode_size() { return 4;} // Load a hex file: bool LoadProgramFile(const char *pFilename, FILE *pFile, const char *pProcessorName); virtual void init_program_memory_at_index(unsigned int address, const unsigned char *, int nBytes); // disasm -- turn an opcode into an instruction // (this function resides dspic-instructions.cc) virtual instruction * disasm ( unsigned int address,unsigned int inst); // Execution control virtual void step_one(bool refresh=true); virtual void step(unsigned int steps,bool refresh=true); virtual void step_cycle(); virtual void interrupt(); virtual void run(bool refresh=true); virtual void finish(); // Configuration control virtual unsigned int get_config_word(unsigned int); // Reset control // por = Power On Reset virtual void reset(RESET_TYPE r); // Public Data members: dspic_registers::WRegister W[16]; dspic_registers::Stack m_stack; dspic_registers::Status m_status; protected: unsigned int m_current_disasm_address; // Used only when .hex files are loaded dspic_registers::PCL *pcl; }; class dsPic30F6010 : public dsPicProcessor { public: dsPic30F6010(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); virtual void create (); void create_iopin_map(); }; } // end of namespace dspic #define cpu_dsPic ((dspic::dsPicProcessor *)cpu) #endif // __DSPIC_PROCESSOR_H__ gpsim-0.27.0/src/dspic/makefile.mingw0000755000076400007640000000177010416271730014372 00000000000000## Makefile for building the gpsim with gcc for mingw. The build ## uses tools running on cygwin, however. ## Use: make -f makefile.mingw TOP = ../../.. include ../../plat/win32/make.mingw ################################################################ # Nothing much configurable below INCLUDES = -I ../../.. -I ../../plat/win32 \ -I $(GLIB_PATH)/include/glib-2.0 -I $(GLIB_PATH)/lib/glib-2.0/include \ -I $(GTK_PATH)/include/gtk-2.0 -I $(GTK_PATH)/lib/gtk-2.0/include \ -I $(PANGO_PATH)/include/pango-1.0 DEFINES += -DHAVE_READLINE -DHAVE_GUI -DHAVE_NSCLEAN_READLINE # -DREADLINE_STATIC all : \ ../../config.h \ libgpsim_dspic.a dspic_OBJECTS = \ gpsim_modules.o \ dspic-processors.o \ dspic-instructions.o \ dspic-registers.o ../../config.h : ../../config_win32.h.in (cd ../.. ; $(AWK) -f plat/win32/configure_win32.awk config_win32.h.in > config.h) ################ The libgpsim_dspic LIB libgpsim_dspic.a : $(dspic_OBJECTS) $(RM) -f $@ $(AR) $(ARFLAGS) $@ $(dspic_OBJECTS) gpsim-0.27.0/src/dspic/dspic-instructions.cc0000755000076400007640000012557611401132302015722 00000000000000/* Copyright (C) 2006 T. Scott Dattalo This file is part of the libgpsim_dspic library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include "../pic-instructions.h" #include "dspic-processors.h" #include "dspic-instructions.h" using namespace dspic; using namespace dspic_instructions; namespace dspic { extern Trace *gTrace; // Points to gpsim's global trace object. extern Cycle_Counter *gCycles; // Points to gpsim's global cycle counter. } struct dsPicInstructionConstructor { unsigned int inst_mask; unsigned int opcode; instruction * (*inst_constructor) (Processor *cpu, unsigned int inst,unsigned int addr); }; struct dsPicInstructionConstructor op_dsPic[] = { { 0xff8000, 0xb00000, ADDR::construct }, // Lit { 0xf80000, 0x400000, ADDR::construct }, // Wb + Lit -> Wd { 0xff7fff, 0xcb0000, ADD::construct }, // add accumulators { 0xff8000, 0xb48000, ADDC::construct }, // f to W { 0xff8000, 0xb08000, ADDC::construct }, // Lit { 0xf80000, 0x480000, ADDC::construct }, // Wb + Lit -> Wd { 0xff8000, 0xb60000, AND::construct }, // f to W { 0xff8000, 0xb20000, AND::construct }, // Lit { 0xf80000, 0x600060, AND::construct }, // Wb + Lit -> Wd { 0xf80000, 0x600000, AND::construct }, { 0xff8000, 0xd58000, ASR::construct }, // f to W { 0xff8000, 0xd18000, ASR::construct }, // Lit { 0xff8070, 0xde8000, ASR::construct }, // Wb + Lit -> Wd { 0xff0000, 0xa90000, BCLR::construct }, { 0xff0b80, 0xa10000, BCLR::construct }, { 0xf00000, 0x300000, BRA::construct }, // branch literal offset { 0xfffff0, 0x016000, BRA::construct }, // computed branch { 0xfc0000, 0x0c0000, BRA::construct }, // branch on accumulator state { 0xff0000, 0xa80000, BSET::construct }, { 0xff0b80, 0xa00000, BSET::construct }, { 0xff0780, 0xad0000, BSW::construct }, { 0xff0000, 0xaa0000, BTG::construct }, { 0xff0000, 0xaf0000, BTS::construct }, { 0xff0000, 0xab0000, BTST::construct }, { 0xff0780, 0xa30000, BTST::construct }, { 0xff0780, 0xa50000, BTST::construct }, { 0xff0000, 0xac0000, BTSTS::construct }, { 0xff0780, 0xa40000, BTSTS::construct }, { 0xff0001, 0x020000, CALL::construct }, { 0xfffff0, 0x010000, CALL::construct }, { 0xff8000, 0xef0000, CLR::construct }, { 0xff807f, 0xeb0000, CLR::construct }, { 0xff4000, 0xc30000, CLR::construct }, { 0xffffff, 0xfe6000, CLRWDT::construct }, { 0xff8000, 0xee8000, COM::construct }, { 0xff8000, 0xea8000, COM::construct }, { 0xffa000, 0xe30000, CP::construct }, { 0xff83e0, 0xe10060, CP::construct }, { 0xff8380, 0xe10000, CP::construct }, { 0xffa000, 0xe20000, CP0::construct }, { 0xfffb80, 0xe00000, CP0::construct }, { 0xffa000, 0xe38000, CPB::construct }, { 0xff83e0, 0xe18060, CPB::construct }, { 0xff8380, 0xe18000, CPB::construct }, { 0xfe03f0, 0xe60000, CPS::construct }, { 0xfffff0, 0xfd4000, DAW::construct }, { 0xff8000, 0xed0000, DEC::construct }, { 0xff8000, 0xe90000, DEC::construct }, { 0xff8000, 0xed8000, DEC::construct }, // DEC2 { 0xff8000, 0xe98000, DEC::construct }, // DEC2 { 0xffc000, 0xfc0000, DISI::construct }, { 0xff8030, 0xd80000, DIV::construct }, { 0xff8030, 0xd88000, DIV::construct }, { 0xff87f0, 0xd90000, DIV::construct }, { 0xffc000, 0x080000, DO::construct }, { 0xfffff0, 0x088000, DO::construct }, { 0xfc4c03, 0xf04003, ED::construct }, { 0xfc4c03, 0xf04002, ED::construct }, { 0xfff870, 0xfd0000, EXCH::construct }, { 0xfff800, 0xdf0000, FB::construct }, // FBCL { 0xfff800, 0xcf8000, FB::construct }, // FF1L { 0xfff800, 0xcf0000, FB::construct }, // FF1R { 0xff0000, 0x040000, GOTO::construct }, { 0xfffff0, 0x014000, GOTO::construct }, { 0xff8000, 0xec0000, DEC::construct }, { 0xff8000, 0xe80000, DEC::construct }, { 0xff8000, 0xec8000, DEC::construct }, // INC2 { 0xff8000, 0xe88000, DEC::construct }, // DEC2 { 0xff8000, 0xb70000, IOR::construct }, // f to W { 0xff8000, 0xb30000, IOR::construct }, // Lit { 0xf80000, 0x700000, IOR::construct }, // Wb + Lit -> Wd { 0xff0000, 0xca0000, LAC::construct }, { 0xffc001, 0xfa0000, LNK::construct }, { 0xff8000, 0xd50000, LSR::construct }, // Note LSR is similar to ASR { 0xff8000, 0xd10000, LSR::construct }, // Lit { 0xff8070, 0xde0000, LSR::construct }, // Wb + Lit -> Wd { 0xf84000, 0xc00000, MAC::construct }, { 0xfc4003, 0xf00000, MAC::construct }, { 0xff8000, 0xbf8000, MOV::construct }, { 0xffa000, 0xb7a000, MOV::construct }, { 0xf80000, 0x800000, MOV::construct }, { 0xf80000, 0x880000, MOV::construct }, { 0xfff000, 0xb3c000, MOV::construct }, //MOV.B { 0xf00000, 0x200000, MOV::construct }, { 0xf80000, 0x900000, MOV::construct }, { 0xf80000, 0x980000, MOV::construct }, { 0xf80000, 0x780000, MOV::construct }, { 0xfff880, 0xbe0000, MOV::construct }, //MOV.D { 0xffc071, 0xbe8000, MOV::construct }, //MOV.D { 0xff4000, 0xc70000, MOVSAC::construct }, { 0xf84003, 0xc00003, MPY::construct }, // degenerate to MAC { 0xf84003, 0xc04003, MPY::construct }, // MPY.N and MSC { 0xffa000, 0xbc0000, MUL::construct }, { 0xff8000, 0xb98000, MUL::construct }, //MUL.SS { 0xff8060, 0xb90000, MUL::construct }, //MUL.SU { 0xff8000, 0xb88000, MUL::construct }, //MUL.US { 0xff8060, 0xb80000, MUL::construct }, //MUL.UU { 0xff8000, 0xee0000, NEG::construct }, { 0xff8000, 0xea0000, NEG::construct }, { 0xff7fff, 0xcb1000, NEG::construct }, { 0xff0000, 0x000000, NOP::construct }, { 0xff0000, 0xff0000, NOP::construct }, { 0xff0001, 0xf90000, POP::construct }, { 0xf8407f, 0x78004f, POP::construct }, { 0xfff8ff, 0xbe004f, POP::construct }, { 0xffffff, 0xfe8000, POP::construct }, // POP.S { 0xff0001, 0xf80000, PUSH::construct }, { 0xf87f80, 0x781f80, PUSH::construct }, { 0xfffff1, 0xbe9f80, PUSH::construct }, { 0xffffff, 0xfea000, PUSH::construct }, // PUSH.S { 0xfffffe, 0xfe4000, PWRSAV::construct }, { 0xff0000, 0x070000, RCALL::construct }, { 0xfffff0, 0x012000, RCALL::construct }, { 0xffc000, 0x090000, REPEAT::construct }, { 0xfffff0, 0x098000, REPEAT::construct }, { 0xffffff, 0xfe0000, RESET::construct }, { 0xffffff, 0x064000, RET::construct }, // RETFIE { 0xff8000, 0x050000, RET::construct }, // RETLW { 0xffffff, 0x060000, RET::construct }, // RETURN { 0xff8000, 0xd68000, ROT::construct }, // RLC { 0xff8000, 0xd28000, ROT::construct }, // RLC { 0xff8000, 0xd60000, ROT::construct }, // RLNC { 0xff8000, 0xd20000, ROT::construct }, // RLNC { 0xff8000, 0xd78000, ROT::construct }, // RRC { 0xff8000, 0xd38000, ROT::construct }, // RRC { 0xff8000, 0xd70000, ROT::construct }, // RNC { 0xff8000, 0xd30000, ROT::construct }, // RNC { 0xff0000, 0xcc0000, SAC::construct }, { 0xff0000, 0xcd0000, SAC::construct }, // SAC.R { 0xfff800, 0xfb0000, SE::construct }, { 0xff8000, 0xef8000, SETM::construct }, { 0xff807f, 0xeb8000, SETM::construct }, { 0xff7fc0, 0xc80040, SFTAC::construct }, { 0xff7ff0, 0xc80000, SFTAC::construct }, { 0xff8000, 0xd40000, SL::construct }, { 0xff8000, 0xd00000, SL::construct }, { 0xff8070, 0xdd0040, SL::construct }, { 0xff8070, 0xdd0000, SL::construct }, { 0xff8000, 0xb50000, SUB::construct }, { 0xff8000, 0xb10000, SUB::construct }, { 0xf80000, 0x500000, SUB::construct }, { 0xff7fff, 0xcb3000, SUB::construct }, { 0xff8000, 0xb58000, SUB::construct }, //SUBB { 0xff8000, 0xb18000, SUB::construct }, { 0xf80000, 0x580000, SUB::construct }, { 0xff8000, 0xbd8000, SUB::construct }, //SUBBR { 0xf80000, 0x180000, SUB::construct }, { 0xff8000, 0xbd0000, SUB::construct }, //SUBR { 0xf80000, 0x100000, SUB::construct }, { 0xffbff0, 0xfd8000, SWAP::construct }, { 0xff8000, 0xba8000, TBLRD::construct }, //TBLRDH { 0xff8000, 0xba0000, TBLRD::construct }, //TBLRDL { 0xff8000, 0xbb8000, TBLWT::construct }, //TBLWTH { 0xff8000, 0xbb0000, TBLWT::construct }, //TBLWTL { 0xffffff, 0xfa8000, ULNK::construct }, { 0xff8000, 0xb68000, XOR::construct }, // f to W { 0xff8000, 0xb28000, XOR::construct }, // Lit { 0xf80000, 0x680000, XOR::construct }, // Wb + Lit -> Wd { 0xffc000, 0xfb8000, ZE::construct } }; const int NUM_OP_DSPIC = sizeof(op_dsPic) / sizeof(op_dsPic[0]); instruction * dsPicProcessor::disasm (unsigned int address, unsigned int inst) { //printf("dspic disasm addr 0x%x, opcode 0x%x\n",address,inst); instruction *pi; pi = 0; for(int i =0; iregisters[m_addr]->name().c_str()); return buff; } //-------------------------------------------------- RegDirectAddrMode::RegDirectAddrMode(dspic::dsPicProcessor *cpu, unsigned int addr) : RegisterAddressingMode(cpu, addr,"%s") { } RegisterValue RegDirectAddrMode::get() { return m_cpu->registers[m_addr]->getRV(); } void RegDirectAddrMode::put(RegisterValue &n_rv) { m_cpu->registers[m_addr]->putRV(n_rv); } //-------------------------------------------------- RegIndirectAddrMode::RegIndirectAddrMode(dspic::dsPicProcessor *cpu, unsigned int addr) : RegisterAddressingMode(cpu, addr,"[%s]") { } RegisterValue RegIndirectAddrMode::get() { RegisterValue rv = m_cpu->registers[m_addr]->getRV(); return rv.init ? m_unknown : m_cpu->registers[rv.data]->getRV(); } void RegIndirectAddrMode::put(RegisterValue &n_rv) { RegisterValue rv = m_cpu->registers[m_addr]->getRV(); if (rv.init == 0) m_cpu->registers[rv.data]->putRV(n_rv); } //-------------------------------------------------- RegIndirectPostDecAddrMode::RegIndirectPostDecAddrMode(dspic::dsPicProcessor *cpu, unsigned int addr) : RegisterAddressingMode(cpu, addr,"[%s--]") { } RegisterValue RegIndirectPostDecAddrMode::get() { RegisterValue rv = m_cpu->registers[m_addr]->getRV(); RegisterValue retRV = rv.init ? m_unknown : m_cpu->registers[rv.data]->getRV(); rv.data = (rv.data-2) & 0xffff; m_cpu->registers[m_addr]->putRV(rv); return retRV; } void RegIndirectPostDecAddrMode::put(RegisterValue &n_rv) { RegisterValue rv = m_cpu->registers[m_addr]->getRV(); if (rv.init == 0) m_cpu->registers[rv.data]->putRV(n_rv); rv.data = (rv.data-2) & 0xffff; m_cpu->registers[m_addr]->putRV(rv); } //-------------------------------------------------- RegIndirectPostIncAddrMode::RegIndirectPostIncAddrMode(dspic::dsPicProcessor *cpu, unsigned int addr) : RegisterAddressingMode(cpu, addr,"[%s++]") { } RegisterValue RegIndirectPostIncAddrMode::get() { RegisterValue rv = m_cpu->registers[m_addr]->getRV(); RegisterValue retRV = rv.init ? m_unknown : m_cpu->registers[rv.data]->getRV(); rv.data = (rv.data+2) & 0xffff; m_cpu->registers[m_addr]->putRV(rv); return retRV; } void RegIndirectPostIncAddrMode::put(RegisterValue &n_rv) { RegisterValue rv = m_cpu->registers[m_addr]->getRV(); if (rv.init == 0) m_cpu->registers[rv.data]->putRV(n_rv); rv.data = (rv.data+2) & 0xffff; m_cpu->registers[m_addr]->putRV(rv); } //-------------------------------------------------- RegIndirectPreDecAddrMode::RegIndirectPreDecAddrMode(dspic::dsPicProcessor *cpu, unsigned int addr) : RegisterAddressingMode(cpu, addr,"[--%s]") { } RegisterValue RegIndirectPreDecAddrMode::get() { RegisterValue rv = m_cpu->registers[m_addr]->getRV(); rv.data = (rv.data-2) & 0xffff; m_cpu->registers[m_addr]->putRV(rv); RegisterValue retRV = rv.init ? m_unknown : m_cpu->registers[rv.data]->getRV(); return retRV; } void RegIndirectPreDecAddrMode::put(RegisterValue &n_rv) { RegisterValue rv = m_cpu->registers[m_addr]->getRV(); rv.data = (rv.data-2) & 0xffff; m_cpu->registers[m_addr]->putRV(rv); if (rv.init == 0) m_cpu->registers[rv.data]->putRV(n_rv); } //-------------------------------------------------- RegIndirectPreIncAddrMode::RegIndirectPreIncAddrMode(dspic::dsPicProcessor *cpu, unsigned int addr) : RegisterAddressingMode(cpu, addr,"[++%s]") { } RegisterValue RegIndirectPreIncAddrMode::get() { RegisterValue rv = m_cpu->registers[m_addr]->getRV(); rv.data = (rv.data+2) & 0xffff; m_cpu->registers[m_addr]->putRV(rv); RegisterValue retRV = rv.init ? m_unknown : m_cpu->registers[rv.data]->getRV(); return retRV; } void RegIndirectPreIncAddrMode::put(RegisterValue &n_rv) { RegisterValue rv = m_cpu->registers[m_addr]->getRV(); rv.data = (rv.data+2) & 0xffff; m_cpu->registers[m_addr]->putRV(rv); if (rv.init == 0) m_cpu->registers[rv.data]->putRV(n_rv); } //-------------------------------------------------- MultiWordInstruction::MultiWordInstruction(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr), word2_opcode(0), PMaddress(addr), PMindex(addr/2), initialized(false) { } //-------------------------------------------------- MultiWordBranch::MultiWordBranch(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : MultiWordInstruction(new_cpu, new_opcode, addr) { } void MultiWordBranch::runtime_initialize() { if(cpu_dsPic->program_memory[PMindex+1] != &cpu_dsPic->bad_instruction) { word2_opcode = cpu_dsPic->program_memory[PMindex+1]->get_opcode(); cpu_dsPic->program_memory[PMindex+1]-> update_line_number(file_id,src_line, lst_line, 0, 0); // extract the destination address from the two-word opcode destination_index = ((word2_opcode & 0x7f)<<15) | ((opcode>>1) & 0x7fff); initialized = true; } } char * MultiWordBranch::name(char *return_str,int len) { if(!initialized) runtime_initialize(); snprintf(return_str,len,"%s\t0x%05x", gpsimObject::name().c_str(), destination_index<<1); return(return_str); } //-------------------------------------------------- LiteralBranch::LiteralBranch(Processor *new_cpu, unsigned int new_opcode, unsigned int addr, const char *_name) : instruction(new_cpu, new_opcode, addr), mcP_conditionName("") { new_name(_name); unsigned int signExtendedOffset = ((new_opcode&0xffff)<<1) | ((new_opcode & (1<<15)) ? 0xfffe0000 : 0); m_destination = (addr + 2 + signExtendedOffset) & 0xfffffe; } char *LiteralBranch::name(char *buff,int len) { if (buff) { char sign = (opcode & (1<<15)) ? '-' : '+'; int offset= (((sign=='-') ? ((opcode^0xffff)+1) : opcode) << 1) & 0x1fffe; snprintf(buff, len, "%s\t%s#0x%06x\t; $%c0x%x", instruction::name().c_str(), mcP_conditionName, m_destination, sign, offset); } return buff; } //-------------------------------------------------- ImmediateInstruction::ImmediateInstruction(Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr), m_L(new_opcode & 0xfffe) { } char *ImmediateInstruction::name(char *buff,int len) { if (buff) { snprintf(buff, len, "%s\t#0x%04x", instruction::name().c_str(),m_L); } return buff; } //-------------------------------------------------- RegisterInstruction::RegisterInstruction(Processor *new_cpu, unsigned int new_opcode, unsigned int addr, const char *_name) : instruction(new_cpu, new_opcode, addr), m_bByteOperation((new_opcode & (1<<14)) != 0), m_base(0), m_source(0), m_destination(0) { new_name(_name); } //-------------------------------------------------- //-------------------------------------------------- RegisterToRegisterInstruction::RegisterToRegisterInstruction (Processor *new_cpu, unsigned int new_opcode, unsigned int addr, const char *_name, eAddressingModes addrMode ) : RegisterInstruction(new_cpu, new_opcode, addr, _name), m_addrMode(addrMode) { switch(m_addrMode) { case eRegisterDirect: m_base = new RegDirectAddrMode(cpu_dsPic,opcode & 0xf); m_destination = new RegDirectAddrMode(cpu_dsPic,opcode & 0xf); m_source = new LiteralAddressingMode(cpu_dsPic, (opcode>>4) & (opcode & (1<<14) ? 0xff: 0x3ff)); break; case eRegisterIndirect: m_base = new RegDirectAddrMode(cpu_dsPic, (opcode>>15) & 0xf); m_source = AddressingMode::construct(cpu_dsPic, (opcode >> 4) & 0x7, opcode & 0x1f); m_destination = AddressingMode::construct(cpu_dsPic, (opcode >> 11) & 0x7, (opcode >> 7) & 0xf); break; default: assert(0); } } char *RegisterToRegisterInstruction::name(char *buff,int len) { if (!buff) return buff; char cpBase[256]; char cpSource[256]; char cpDestination[256]; switch(m_addrMode) { case eRegisterDirect: snprintf(buff, len, "%s%s\t%s, %s", instruction::name().c_str(), (m_bByteOperation ? ".b" :""), m_source->name(cpBase,sizeof(cpBase)), m_destination->name(cpDestination,sizeof(cpDestination)) ); break; case eRegisterIndirect: snprintf(buff, len, "%s%s\t%s,%s,%s", instruction::name().c_str(), (m_bByteOperation ? ".b" :""), m_base->name(cpBase,sizeof(cpBase)), m_source->name(cpSource,sizeof(cpSource)), m_destination->name(cpDestination,sizeof(cpDestination)) ); break; default: break; } return buff; } //-------------------------------------------------- ADDR::ADDR (Processor *new_cpu, unsigned int new_opcode, unsigned int addr, eAddressingModes addrMode) : RegisterToRegisterInstruction(new_cpu, new_opcode, addr,"add",addrMode) { } void ADDR::execute() { RegisterValue baseRV(m_base ? m_base->get() : m_destination->get()); RegisterValue srcRV (m_source->get()); RegisterValue resRV (srcRV); resRV.data += baseRV.data; resRV.init |= baseRV.init; m_destination->put(resRV); unsigned flags = ((resRV.data & 0xffff ) ? 0 : eZ) | ((resRV.data & 0x10000 ) ? eC : 0) | (((resRV.data ^ baseRV.data ^ srcRV.data)&0x10) ? eDC : 0) | ((((resRV.data & ~baseRV.data & ~srcRV.data) | (~resRV.data & baseRV.data & srcRV.data)) & 0x8000) ? eOV : 0) | ((resRV.data & 0x8000 ) ? eN : 0); cpu_dsPic->m_status.putFlags(flags, eC|eZ|eOV|eN|eDC, 0); cpu_dsPic->pc->increment(); } //-------------------------------------------------- /* ADDL::ADDL (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : RegisterDirectLiteralInstruction(new_cpu, new_opcode, addr,"add") { } void ADDL::execute() { cpu_dsPic->pc->increment(); } */ //-------------------------------------------------- ADD::ADD (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("add"); printf("constructing a ADD\n"); } void ADD::execute() { cpu_dsPic->pc->increment(); } //-------------------------------------------------- ADDC::ADDC (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("addc"); printf("constructing a ADDC\n"); } void ADDC::execute() { } //-------------------------------------------------- AND::AND (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("and"); printf("constructing a AND\n"); } void AND::execute() { } //-------------------------------------------------- ASR::ASR (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("asr"); printf("constructing a ASR\n"); } void ASR::execute() { } //-------------------------------------------------- BCLR::BCLR (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("bclr"); printf("constructing a BCLR\n"); } void BCLR::execute() { } //-------------------------------------------------- BRA::BRA (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : LiteralBranch(new_cpu, new_opcode, addr, "bra") { new_name("bra"); switch ((opcode>>16) & 0x0f) { case OV: // Overflow mcP_conditionName = "OV,"; break; case C: // Carry and GEU mcP_conditionName = "C,"; break; case Z: // Zero mcP_conditionName = "Z,"; break; case N: // Negative mcP_conditionName = "N,"; break; case LE: // Less than or equal to mcP_conditionName = "LE,"; break; case LT: // Less than mcP_conditionName = "LT,"; break; case LEU: // Less than or equal unsigned mcP_conditionName = "LEU,"; break; case UN: // Unconditionally mcP_conditionName = ""; break; case NOV: // No overflow mcP_conditionName = "NOV,"; break; case NC: // No Carry and LTU (less than unsigned) mcP_conditionName = "NC,"; break; case NZ: // Not zero mcP_conditionName = "NZ,"; break; case NN: // Not Negative mcP_conditionName = "NN,"; break; case GT: // Greater than mcP_conditionName = "GT,"; break; case GE: // Greater than or equal mcP_conditionName = "GE,"; break; case GTU: // Greater than unsigned mcP_conditionName = "GTU,"; break; case NU: // not used... default: break; } } void BRA::execute() { if (m_condition) cpu_dsPic->pc->jump(m_destination>>1); else cpu_dsPic->pc->increment(); } //-------------------------------------------------- BSET::BSET (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("bset"); printf("constructing a BSET\n"); } void BSET::execute() { } //-------------------------------------------------- BSW::BSW (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("bsw "); printf("constructing a BSW\n"); } void BSW::execute() { } //-------------------------------------------------- BTG::BTG (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("btg "); printf("constructing a BTG\n"); } void BTG::execute() { } //-------------------------------------------------- BTS::BTS (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("bts"); printf("constructing a BTS\n"); } void BTS::execute() { } //-------------------------------------------------- BTST::BTST (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("btst"); printf("constructing a BTST\n"); } void BTST::execute() { } //-------------------------------------------------- BTSTS::BTSTS (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("btsts"); printf("constructing a BTSTS\n"); } void BTSTS::execute() { } //-------------------------------------------------- CALL::CALL (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("call"); printf("constructing a CALL\n"); } void CALL::execute() { } //-------------------------------------------------- CLR::CLR (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("clr"); printf("constructing a CLR\n"); } void CLR::execute() { } //-------------------------------------------------- CLRWDT::CLRWDT (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("clrwdt"); printf("constructing a CLRWDT\n"); } void CLRWDT::execute() { } //-------------------------------------------------- COM::COM (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("com"); printf("constructing a COM\n"); } void COM::execute() { } //-------------------------------------------------- CP::CP (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("cp"); printf("constructing a CP\n"); } void CP::execute() { } //-------------------------------------------------- CP0::CP0 (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("cp0"); printf("constructing a CP0\n"); } void CP0::execute() { } //-------------------------------------------------- CPB::CPB (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("cpb"); printf("constructing a CPB\n"); } void CPB::execute() { } //-------------------------------------------------- CPS::CPS (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("cps"); printf("constructing a CPS\n"); } void CPS::execute() { } //-------------------------------------------------- DAW::DAW (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("daw"); printf("constructing a DAW\n"); } void DAW::execute() { } //-------------------------------------------------- DEC::DEC (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("dec"); printf("constructing a DEC\n"); } void DEC::execute() { } //-------------------------------------------------- DISI::DISI (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("disi"); printf("constructing a DISI\n"); } void DISI::execute() { } //-------------------------------------------------- DIV::DIV (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("div"); printf("constructing a DIV\n"); } void DIV::execute() { } //-------------------------------------------------- DO::DO (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("do"); printf("constructing a DO\n"); } void DO::execute() { } //-------------------------------------------------- ED::ED (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("ed"); printf("constructing a ED\n"); } void ED::execute() { } //-------------------------------------------------- EXCH::EXCH (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("exch"); printf("constructing a EXCH\n"); } void EXCH::execute() { } //-------------------------------------------------- FB::FB (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("fb"); printf("constructing a FB\n"); } void FB::execute() { } //-------------------------------------------------- GOTO::GOTO (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : MultiWordBranch(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("goto"); printf("constructing a GOTO\n"); } void GOTO::execute() { if(!initialized) runtime_initialize(); cpu_dsPic->pc->jump(destination_index); } //-------------------------------------------------- INC::INC (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("inc"); printf("constructing a INC\n"); } void INC::execute() { } //-------------------------------------------------- IOR::IOR (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("ior"); printf("constructing a IOR\n"); } void IOR::execute() { } //-------------------------------------------------- LAC::LAC (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("lac"); printf("constructing a LAC\n"); } void LAC::execute() { } //-------------------------------------------------- LNK::LNK (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : ImmediateInstruction(new_cpu, new_opcode, addr) { new_name("lnk"); } void LNK::execute() { unsigned int tos = cpu_dsPic->W[15].get_value(); unsigned int tos_index = tos>>1; cpu_dsPic->registers[tos_index]->put(cpu_dsPic->W[14].get()); cpu_dsPic->W[14].put(tos+2); cpu_dsPic->W[15].put(tos+2+m_L); cpu_dsPic->pc->increment(); } //-------------------------------------------------- LSR::LSR (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("lsr"); printf("constructing a LSR\n"); } void LSR::execute() { } //-------------------------------------------------- MAC::MAC (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("mac"); printf("constructing a MAC\n"); } void MAC::execute() { } //-------------------------------------------------- MOV::MOV (Processor *new_cpu, unsigned int new_opcode, unsigned int addr, eAddressingModes addrMode) : RegisterToRegisterInstruction(new_cpu, new_opcode, addr,"mov",addrMode) { printf("MOV instruction opcode:0x%x mode=%d\n",opcode,m_addrMode); } void MOV::execute() { RegisterValue baseRV(m_base ? m_base->get() : m_destination->get()); RegisterValue srcRV (m_source->get()); RegisterValue resRV (srcRV); resRV.data += baseRV.data; resRV.init |= baseRV.init; m_destination->put(resRV); unsigned flags = ((resRV.data & 0xffff ) ? 0 : eZ) | ((resRV.data & 0x10000 ) ? eC : 0) | (((resRV.data ^ baseRV.data ^ srcRV.data)&0x10) ? eDC : 0) | ((((resRV.data & ~baseRV.data & ~srcRV.data) | (~resRV.data & baseRV.data & srcRV.data)) & 0x8000) ? eOV : 0) | ((resRV.data & 0x8000 ) ? eN : 0); cpu_dsPic->m_status.putFlags(flags, eC|eZ|eOV|eN|eDC, 0); cpu_dsPic->pc->increment(); } //-------------------------------------------------- MOVSAC::MOVSAC (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("movsac"); printf("constructing a MOVSAC\n"); } void MOVSAC::execute() { } //-------------------------------------------------- MPY::MPY (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("mpy"); printf("constructing a MPY\n"); } void MPY::execute() { } //-------------------------------------------------- MUL::MUL (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("mul"); printf("constructing a MUL\n"); } void MUL::execute() { } //-------------------------------------------------- NEG::NEG (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("neg"); printf("constructing a NEG\n"); } void NEG::execute() { } //-------------------------------------------------- NOP::NOP (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("nop"); // For the 18cxxx family, this 'nop' may in fact be the // 2nd word in a 2-word opcode. So just to be safe, let's // initialize the cross references to the source file. // (Subsequent initialization code will overwrite this, // but there is a chance that this info will be accessed // before that occurs). //printf("constructing a NOP\n"); } void NOP::execute() { //cpu_pic->pc->increment(); } //-------------------------------------------------- POP::POP (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("pop"); printf("constructing a POP\n"); } void POP::execute() { } //-------------------------------------------------- PUSH::PUSH (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("push"); printf("constructing a PUSH\n"); } void PUSH::execute() { } //-------------------------------------------------- PWRSAV::PWRSAV (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("pwrsav"); printf("constructing a PWRSAV\n"); } void PWRSAV::execute() { } //-------------------------------------------------- RCALL::RCALL (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : LiteralBranch(new_cpu, new_opcode, addr,"rcall") { } void RCALL::execute() { cpu_dsPic->m_stack.push(); cpu_dsPic->pc->jump(m_destination>>1); } //-------------------------------------------------- REPEAT::REPEAT (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("repeat"); printf("constructing a REPEAT\n"); } void REPEAT::execute() { } //-------------------------------------------------- RESET::RESET (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("reset"); printf("constructing a RESET\n"); } void RESET::execute() { } //-------------------------------------------------- RET::RET (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("ret"); printf("constructing a RET\n"); } void RET::execute() { } //-------------------------------------------------- ROT::ROT (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("rot"); printf("constructing a ROT\n"); } void ROT::execute() { } //-------------------------------------------------- SAC::SAC (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("sac"); printf("constructing a SAC\n"); } void SAC::execute() { } //-------------------------------------------------- SE::SE (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("se"); printf("constructing a SE\n"); } void SE::execute() { } //-------------------------------------------------- SETM::SETM (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("setm"); printf("constructing a SETM\n"); } void SETM::execute() { } //-------------------------------------------------- SFTAC::SFTAC (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("sftac"); printf("constructing a SFTAC\n"); } void SFTAC::execute() { } //-------------------------------------------------- SL::SL (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("sl"); printf("constructing a SL\n"); } void SL::execute() { } //-------------------------------------------------- SUB::SUB (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("sub"); printf("constructing a SUB\n"); } void SUB::execute() { } //-------------------------------------------------- SWAP::SWAP (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("swap"); printf("constructing a SWAP\n"); } void SWAP::execute() { } //-------------------------------------------------- TBLRD::TBLRD (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("tblrd"); printf("constructing a TBLRD\n"); } void TBLRD::execute() { } //-------------------------------------------------- TBLWT::TBLWT (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("tblwt"); printf("constructing a TBLWT\n"); } void TBLWT::execute() { } //-------------------------------------------------- ULNK::ULNK (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("ulnk"); printf("constructing a ULNK\n"); } void ULNK::execute() { } //-------------------------------------------------- XOR::XOR (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("xor"); printf("constructing a XOR\n"); } void XOR::execute() { } //-------------------------------------------------- ZE::ZE (Processor *new_cpu, unsigned int new_opcode, unsigned int addr) : instruction(new_cpu, new_opcode, addr) { decode(new_cpu,new_opcode); new_name("ZE"); printf("constructing a ZE\n"); } void ZE::execute() { } }; gpsim-0.27.0/src/dspic/gpsim_modules.cc0000755000076400007640000000504511401132302014711 00000000000000/* Copyright (C) 2006 T. Scott Dattalo This file is part of the libgpsim_dspic library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ /* IN_MODULE should be defined for modules */ #define IN_MODULE #include #include #include "../../config.h" // get the definition for HAVE_GUI #include "../modules.h" //#include "dspic-processors.h" /* class Module_Types { public: char *names[2]; Module * (*module_constructor) (void); }; */ Module_Types available_modules[] = { // No more modules { {0,0},0} }; #ifdef __cplusplus extern "C" { #endif /* __cplusplus */ /******************************************************************************** * mod_list - Display all of the modules in this library. * * This is a required function for gpsim compliant libraries. */ Module_Types * get_mod_list(void) { return available_modules; } /******************************************************************************** * mod_list - Display all of the modules in this library. * * This is a required function for gpsim compliant libraries. */ void mod_list(void) { unsigned int number_of = sizeof(available_modules) / sizeof(Module_Types); unsigned int i,j,l; unsigned int k,longest; for(i=0,longest=0; ilongest) longest = k; } k=0; do { for(i=0; (i<4) && (k. */ #ifndef __P16X6X_H__ #define __P16X6X_H__ #include "14bit-processors.h" #include "p16x8x.h" #include "14bit-tmrs.h" #include "intcon.h" #include "pir.h" #include "ssp.h" #include "psp.h" #include "eeprom.h" #include "comparator.h" #include "a2dconverter.h" class P16C61 : public P16X8X { public: P16C61(const char *_name=0, const char *desc=0); virtual ~P16C61(); virtual PROCESSOR_TYPE isa(){return _P16C61_;}; virtual unsigned int program_memory_size() const { return 0x400; }; virtual void create(); static Processor *construct(const char *name); }; // // -- Define a class to contain most of the registers/peripherals // of a 16x6x device (where the second `x' is >= 3 // class P16X6X_processor : public Pic14Bit { public: PicPortRegister *m_portc; PicTrisRegister *m_trisc; T1CON t1con; PIR *pir1; PIE pie1; PIR *pir2; PIE pie2; T2CON t2con; PR2 pr2; TMR2 tmr2; TMRL tmr1l; TMRH tmr1h; CCPCON ccp1con; CCPRL ccpr1l; CCPRH ccpr1h; CCPCON ccp2con; CCPRL ccpr2l; CCPRH ccpr2h; PCON pcon; PIR_SET_1 pir_set_def; SSP_MODULE ssp; virtual unsigned int program_memory_size() const { return 0x800; }; virtual unsigned int register_memory_size () const { return 0x100; } virtual void create_symbols(); virtual void create_sfr_map(); virtual PIR *get_pir2() { return (pir2); } virtual PIR *get_pir1() { return (pir1); } virtual PIR_SET *get_pir_set() { return (&pir_set_def); } P16X6X_processor(const char *_name=0, const char *desc=0); virtual ~P16X6X_processor(); }; /********************************************************************* * class definitions for the 16c6x family of processors */ class P16C62 : public P16X6X_processor { public: P16C62(const char *_name=0, const char *desc=0); virtual ~P16C62() { } static Processor *construct(const char *name); TMR2_MODULE tmr2_module; virtual PROCESSOR_TYPE isa(){return _P16C62_;}; virtual void create_symbols(); virtual void create_sfr_map(); virtual unsigned int program_memory_size() const { return 0x800; }; virtual void create_iopin_map(); virtual void create(); }; class P16C63 : public P16C62 { public: USART_MODULE usart; virtual PROCESSOR_TYPE isa(){return _P16C63_;}; virtual void create_symbols(); virtual unsigned int program_memory_size() const { return 0x1000; }; P16C63(const char *_name=0, const char *desc=0); virtual ~P16C63(); static Processor *construct(const char *name); void create(); void create_sfr_map(); }; class P16C64 : public P16X6X_processor { public: // XXX // This pir1_2, pir2_2 stuff is not particularly pretty. It would be // better to just tell C++ to redefine pir1 and pir2 and PIR1v2 and // PIR2v2, but C++ only supports covariance in member function return // values. PIR1v2 *pir1_2_reg; PIR_SET_2 pir_set_2_def; virtual PIR *get_pir1() { return (pir1_2_reg); } virtual PIR_SET *get_pir_set() { return (&pir_set_2_def); } PicPSP_PortRegister *m_portd; PicTrisRegister *m_trisd; PicPortRegister *m_porte; PicPSP_TrisRegister *m_trise; PSP psp; P16C64(const char *_name=0, const char *desc=0); virtual ~P16C64(); static Processor *construct(const char *name); TMR2_MODULE tmr2_module; virtual PROCESSOR_TYPE isa(){return _P16C64_;}; virtual void create_symbols(); void create_sfr_map(); virtual unsigned int program_memory_size() const { return 0x800; }; virtual void create(); virtual void create_iopin_map(); virtual bool hasSPS() {return false;} }; class P16C65 : public P16C64 { public: USART_MODULE usart; virtual PROCESSOR_TYPE isa(){return _P16C65_;}; virtual void create_symbols(); virtual unsigned int program_memory_size() const { return 0x1000; }; P16C65(const char *_name=0, const char *desc=0); virtual ~P16C65(); static Processor *construct(const char *name); void create(); void create_sfr_map(); }; class P16F630 : public _14bit_processor { public: P16F630(const char *_name=0, const char *desc=0); virtual ~P16F630(); T1CON t1con; PIR *pir1; PIE pie1; TMRL tmr1l; TMRH tmr1h; OSCCAL osccal; EEPROM_WIDE *e; PIR1v3 *pir1_3_reg; INTCON_14_PIR intcon_reg; ComparatorModule comparator; PIR_SET_1 pir_set_def; WPU *m_wpu; IOC *m_ioc; virtual PIR *get_pir2() { return (NULL); } virtual PIR *get_pir1() { return (pir1); } virtual PIR_SET *get_pir_set() { return (&pir_set_def); } PicPortGRegister *m_porta; PicTrisRegister *m_trisa; PicPortRegister *m_portc; PicTrisRegister *m_trisc; virtual PROCESSOR_TYPE isa(){return _P16F630_;} static Processor *construct(const char *name); void create(int); virtual void create_symbols(); virtual void create_sfr_map(); virtual void create_iopin_map(); virtual void option_new_bits_6_7(unsigned int bits); virtual unsigned int program_memory_size() const { return 0x400; }; virtual unsigned int register_memory_size () const { return 0x100; } virtual void set_eeprom_wide(EEPROM_WIDE *ep) { eeprom = ep; } virtual void create_config_memory(); virtual bool set_config_word(unsigned int address, unsigned int cfg_word); }; class P16F676 : public P16F630 { public: ANSEL ansel; ADCON0_12F adcon0; ADCON1_16F adcon1; sfr_register adresh; sfr_register adresl; P16F676(const char *_name=0, const char *desc=0); virtual ~P16F676(); virtual PROCESSOR_TYPE isa(){return _P16F676_;} static Processor *construct(const char *name); virtual void create(int); virtual void create_sfr_map(); }; #endif gpsim-0.27.0/src/comparator.h0000664000076400007640000003075412175377101012776 00000000000000/* Copyright (C) 1998-2002 T. Scott Dattalo Copyright (C) 2006,2010,2013 Roy R. Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __COMPARATOR_H__ #define __COMPARATOR_H__ #include "14bit-tmrs.h" /*************************************************************************** * * Include file for: Processors with dual comparators and Voltage Refarence * * * ***************************************************************************/ #define CFG_MASK 0x7 #define CFG_SHIFT 3 class CMSignalSource; class VRSignalSource; class CMCON; class TMRL; enum compare_inputs { AN0 = 0, AN1, AN2, AN3, VREF = 6, // use reference voltage NO_IN = 7 // no input port }; enum compare_outputs { OUT0 = 0, OUT1, ZERO = 6, // register value == 0 NO_OUT = 7 // no ouput port }; class VRCON : public sfr_register { public: CMCON *_cmcon; enum VRCON_bits { VR0 = 1<<0, // VR0-3 Value selection VR1 = 1<<1, VR2 = 1<<2, VR3 = 1<<3, VRSS = 1<<4, // Use external references (16f88x) VRR = 1<<5, // Range select VROE = 1<<6, // Output Reference to external pin VREN = 1<<7 // Enable Vref }; VRCON(Processor *pCpu, const char *pName, const char *pDesc); ~VRCON(); virtual void put(unsigned int new_value); virtual void setIOpin(PinModule *); virtual double get_Vref(); void setValidBits(unsigned int mask) { valid_bits = mask;} protected: unsigned int valid_bits; PinModule *vr_PinModule; double vr_Vref; stimulus *vr_pu; stimulus *vr_pd; stimulus *vr_06v; double vr_Rhigh; double vr_Rlow; double Vref_high; // usually VDD double Vref_low; // usually VSS char *pin_name; // original name of pin }; // VSCOM class with two comparators as per 16f690 // class VRCON_2 : public sfr_register { public: CMCON *_cmcon; enum VRCON_bits { VR0 = 1<<0, // VR0-3 Value selection VR1 = 1<<1, VR2 = 1<<2, VR3 = 1<<3, VP6EN = 1<<4, // 0.6V reference enable VRR = 1<<5, // Range select C2VREN = 1<<6, // Comparator 2 Reference enable C1VREN = 1<<7 // Comparator 1 Reference enable }; VRCON_2(Processor *pCpu, const char *pName, const char *pDesc); ~VRCON_2(); virtual void put(unsigned int new_value); protected: unsigned int valid_bits; PinModule *vr_PinModule; double vr_Vref; stimulus *vr_pu; stimulus *vr_pd; stimulus *vr_06v; char *pin_name; // original name of pin }; class CM_stimulus : public stimulus { public: CM_stimulus(CMCON *arg, const char *n=0, double _Vth=0.0, double _Zth=1e12 ); ~CM_stimulus(); CMCON *_cmcon; virtual void set_nodeVoltage(double v); }; class CMCON1 : public sfr_register { public: enum CMCON1_bits { CMSYNC = 1<<0, T1GSS = 1<<1 }; virtual void put(unsigned int); void set_tmrl(TMRL *arg) { m_tmrl = arg; } CMCON1(Processor *pCpu, const char *pName, const char *pDesc); ~CMCON1(); private: TMRL *m_tmrl; }; class CMCON : public sfr_register { public: VRCON *_vrcon; enum CMCON_bits { CM0 = 1<<0, CM1 = 1<<1, CM2 = 1<<2, CIS = 1<<3, C1INV = 1<<4, C2INV = 1<<5, C1OUT = 1<<6, C2OUT = 1<<7, }; virtual void setINpin(int i, PinModule *); virtual void setOUTpin(int i, PinModule *); virtual void assign_pir_set(PIR_SET *new_pir_set); virtual unsigned int get(); virtual void rename_pins(unsigned int) { cout << "CMCON::rename_pins() should not be called\n";} virtual void put(unsigned int); virtual void set_configuration(int comp, int mode, int il1, int ih1, int il2, int ih2, int out); virtual double comp_voltage(int ind, int invert); void releasePin(int); void set_tmrl(TMRL *arg) { m_tmrl = arg; } void set_eccpas(ECCPAS *_eccpas) { m_eccpas = _eccpas; } CMCON(Processor *pCpu, const char *pName, const char *pDesc); ~CMCON(); protected: PinModule *cm_input[4]; PinModule *cm_output[2]; char *cm_input_pin[4]; char *cm_output_pin[2]; CMSignalSource *cm_source[2]; unsigned int m_CMval[2]; PIR_SET *pir_set; TMRL *m_tmrl; CM_stimulus *cm_stimulus[4]; ECCPAS *m_eccpas; static const int cMaxConfigurations=8; static const int cMaxComparators=2; unsigned int m_configuration_bits[cMaxComparators][cMaxConfigurations]; }; class ComparatorModule { public: ComparatorModule(Processor *); void initialize( PIR_SET *pir_set, PinModule *pin_vr0, PinModule *pin_cm0, PinModule *pin_cm1, PinModule *pin_cm2, PinModule *pin_cm3, PinModule *pin_cm4, PinModule *pin_cm5); //protected: CMCON cmcon; CMCON1 cmcon1; VRCON vrcon; }; /* * Compare module for 16f88x processors */ class CM1CON0; class CM1CON0_2; class CM2CON0; /* * SRCON SR Latch Control Register */ class SRCON : public sfr_register { public: enum SRCON_bits { FVREN = 1<<0, // Fixed Voltage Reference Enable PULSR = 1<<2, // Pulse Reset of SR latch PULSS = 1<<3, // Pulse set of SR Latch C2REN = 1<<4, // C2OUT resets SR latch C1SEN = 1<<5, // C1OUT sets SR latch SR0 = 1<<6, // MUX SR Q out and C1OUT SR1 = 1<<7 // MUX SR -Q out and C2OUT }; int writable_bits; bool SR_Q; bool set; bool reset; virtual void put(unsigned int new_value); SRCON(Processor *pCpu, const char *pName, const char *pDesc); ~SRCON(){} }; /* * CM2CON1 Comparator control register 1 */ class CM2CON1 : public sfr_register { public: enum CM2CON1_bits { C2SYNC = 1<<0, //C2 Output sync bit T1GSS = 1<<1, // Timer1 Gate Source Select bit C2RSEL = 1<<4, // C2 Reference Select bit C1RSEL = 1<<5, // C1 Reference Select bit MC2OUT = 1<<6, // Mirror C2OUT bit MC1OUT = 1<<7 // Mirror C1OUT bit }; int writable_bits; CM1CON0 *m_cm1con0; CM2CON0 *m_cm2con0; virtual void put(unsigned int new_value); void link_cm12con0(CM1CON0 *_cm1con0, CM2CON0 *_cm2con0); CM2CON1(Processor *pCpu, const char *pName, const char *pDesc); ~CM2CON1(){} }; class CM12SignalSource; /* * CM12CON0 is common support for CM1CON0 AND CM2CON0 */ class CM12CON0 : public sfr_register { public: VRCON *m_vrcon; enum CM12CON0_bits { CH0 = 1<<0, // Channel select bit 0 CH1 = 1<<1, // Channel select bit 1 R = 1<<2, // Reference select bit (non-inverting input) POL = 1<<4, // Output polarity select bit OE = 1<<5, // Output enable OUT = 1<<6, // Output bit ON = 1<<7, // Enable bit }; virtual void put(unsigned int); virtual unsigned int get(); virtual void setpins(PinModule * c12in0, PinModule * c12in1, PinModule * c12in2, PinModule * c12in3, PinModule * cinPlus, PinModule * cout); virtual void state_change(unsigned int cmcon_val) { cout << "CM12CON:state_change should not be called\n"; } virtual double CVref() { cout << "CM12CON:CVref should not be called\n"; return(0.);} virtual void link_registers(PIR_SET *new_pir_set, CM2CON1 *_cm2con1, VRCON *_vrcon, SRCON *_srcon, ECCPAS *_eccpas); void set_tmrl(TMRL *arg) { m_tmrl = arg; } void releasePin(); CM12CON0(Processor *pCpu, const char *pName, const char *pDesc); ~CM12CON0(); protected: friend class CM1CON0_2; friend class CM1CON0; friend class CM2CON1; friend class CM2CON0; PinModule *cm_input[5]; PinModule *cm_output; CM12SignalSource *cm_source; CM2CON1 *m_cm2con1; SRCON *m_srcon; PIR_SET *pir_set; TMRL *m_tmrl; CM_stimulus *cm_stimulus[2]; Stimulus_Node *cm_snode[2]; ECCPAS *m_eccpas; CM_stimulus *cm_cvref; CM_stimulus *cm_v06ref; }; class CM1CON0 : public CM12CON0 { public: CM1CON0(Processor *pCpu, const char *pName, const char *pDesc) : CM12CON0(pCpu, pName, pDesc) {} ~CM1CON0(){} virtual void state_change(unsigned int cmcon_val); virtual double CVref(); }; class CM2CON0 : public CM12CON0 { public: CM2CON0(Processor *pCpu, const char *pName, const char *pDesc) : CM12CON0(pCpu, pName, pDesc) {} ~CM2CON0() {} virtual void state_change(unsigned int cmcon_val); virtual double CVref(); }; class CM1CON0_2 : public CM12CON0 { public: CM1CON0_2(Processor *pCpu, const char *pName, const char *pDesc) : CM12CON0(pCpu, pName, pDesc) {} ~CM1CON0_2(); virtual void state_change(unsigned int cmcon_val); virtual double CVref(); }; class CM2CON0_2 : public CM12CON0 { public: CM2CON0_2(Processor *pCpu, const char *pName, const char *pDesc) : CM12CON0(pCpu, pName, pDesc) {} ~CM2CON0_2() {} virtual void state_change(unsigned int cmcon_val); virtual double CVref(); }; // The following classes are for comparators which have 3 registers // class CMxCON1; class ComparatorModule2; class CMxCON0 : public sfr_register { public: enum { CxSYNC = 1<<0, // Output Synchronous Mode bit CxHYS = 1<<1, // Hysteresis Enable bit CxSP = 1<<2, // Speed/Power Select bit CxZLF = 1<<3, // Zero Latency Filter Enable bit CxPOL = 1<<4, // Output polarity select bit CxOE = 1<<5, // Output enable CxOUT = 1<<6, // Output bit CxON = 1<<7, // Enable bit }; CMxCON0(Processor *pCpu, const char *pName, const char *pDesc, unsigned int x, ComparatorModule2 *); ~CMxCON0(); void put(unsigned int); unsigned int get(); void setBitMask(unsigned int bm) { mValidBits = bm; } protected: unsigned int cm; // comparator number CMxCON1 *m_cmxcon1; ComparatorModule2 *m_cmModule; PeripheralSignalSource *cm_source; }; // CMxCON1 only uses 1 0r 2 of Negative select bits and 2 Positive select bits class CMxCON1 : public sfr_register { public: enum { CxNCH0 = 1<<0, // Negative Input Channel Select bits CxNCH1 = 1<<1, // Negative Input Channel Select bits CxNCH2 = 1<<2, // Negative Input Channel Select bits CxPCH0 = 1<<3, // Positive Input Channel Select bits CxPCH1 = 1<<4, // Positive Input Channel Select bits CxPCH2 = 1<<5, // Positive Input Channel Select bits CxINTN = 1<<6, // Interrupt on Negative Going Edge Enable bits CxINTP = 1<<7, // Interrupt on Positive Going Edge Enable bits CxNMASK = (CxNCH0 | CxNCH1 | CxNCH2), CxPMASK = (CxPCH0 | CxPCH1 | CxPCH2), NEG = 0, POS = 1, }; CMxCON1(Processor *pCpu, const char *pName, const char *pDesc, unsigned int _x, ComparatorModule2 *); ~CMxCON1(); void setBitMask(unsigned int bm) { mValidBits = bm; } void put(unsigned int new_value); double get_Vpos(); double get_Vneg(); void setPinStimulus(PinModule *, bool); void set_INpinNeg(PinModule *pin_cm0, PinModule *pin_cm1, PinModule *pin_cm2=0, PinModule *pin_cm3=0, PinModule *pin_cm4=0); void set_OUTpin(PinModule *pin_cm0); void set_INpinPos(PinModule *pin_cm0, PinModule *pin_cm1=0); PinModule *output_pin() { return cm_output; } protected: unsigned int cm; // comparator number CM_stimulus *cm_stimulus[2]; PinModule *stimulus_pin[2]; PinModule *cm_inputNeg[5]; PinModule *cm_inputPos[2]; PinModule *cm_output; ComparatorModule2 *m_cmModule; }; class CMOUT : public sfr_register { public: void put(unsigned int val) { return;} // Read only by user CMOUT(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc) {} }; // uses CMxCON0, CMxCON1, CMOUT class ComparatorModule2 { public: ComparatorModule2(Processor *); ~ComparatorModule2(); void run_get(unsigned int comp) { cmxcon0[comp]->get();} void set_DAC_volt(double); void set_FVR_volt(double); void set_cmout(unsigned int bit, bool value); void set_if(unsigned int); void assign_pir_set(PIR_SET *new_pir_set){ pir_set = new_pir_set;} void assign_t1gcon(T1GCON *_t1gcon) { t1gcon = _t1gcon;} void assign_sr_module(SR_MODULE *_sr_module) { sr_module = _sr_module;} CMxCON0 *cmxcon0[4]; CMxCON1 *cmxcon1[4]; CMOUT *cmout; //protected: double DAC_voltage; double FVR_voltage; PIR_SET *pir_set; T1GCON *t1gcon; SR_MODULE *sr_module; }; #endif // __COMPARATOR_H__ gpsim-0.27.0/src/xref.h0000644000076400007640000000234311401131150011541 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __XREF_H__ #define __XREF_H__ //------------------------------------------------------------------- #include using namespace std; class gpsimObject; class XrefObject { private: gpsimObject *data; list xrefs; public: XrefObject(); XrefObject(gpsimObject *value); virtual ~XrefObject(); virtual void _add(void *xref); virtual void clear(void *xref); virtual void _update(); virtual int get_val(void); virtual void assign_data(gpsimObject *); }; #endif gpsim-0.27.0/src/a2d_v2.cc0000664000076400007640000003427012175377101012037 00000000000000/* Copyright (C) 2008 Roy R Rankin Copyright (C) 2006 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include "ioports.h" #include "trace.h" #include "gpsim_time.h" #include "ui.h" #include "pic-processor.h" #include "a2d_v2.h" #define p_cpu ((Processor *)cpu) static PinModule AnInvalidAnalogInput; //#define DEBUG #if defined(DEBUG) #include "../config.h" #define Dprintf(arg) {printf("%s:%d ",__FILE__,__LINE__); printf arg; } #else #define Dprintf(arg) {} #endif //------------------------------------------------------ // ADCON0 // ADCON0_V2::ADCON0_V2(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), adres(0), adresl(0), adcon1(0), adcon2(0), intcon(0), pir1v2(0), ad_state(AD_IDLE), channel_mask(15) { } /* * Link PIC register for High Byte A/D result */ void ADCON0_V2::setAdres(sfr_register *new_adres) { adres = new_adres; } /* * Link PIC register for Low Byte A/D result */ void ADCON0_V2::setAdresLow(sfr_register *new_adresl) { adresl = new_adresl; } /* * Link PIC register for ADCON1 */ void ADCON0_V2::setAdcon1(ADCON1_V2 *new_adcon1) { adcon1 = new_adcon1; } /* * Link PIC register for ADCON2 */ void ADCON0_V2::setAdcon2(ADCON2_V2 *new_adcon2) { adcon2 = new_adcon2; } /* * Link PIC register for PIR1 */ void ADCON0_V2::setPir(PIR1v2 *new_pir1) { pir1v2 = new_pir1; } /* * Link PIC register for INTCON */ void ADCON0_V2::setIntcon(INTCON *new_intcon) { intcon = new_intcon; } /* * Set Tad time for RC source */ void ADCON0_V2::setRCtime(double time) { m_RCtime = time; } /* * Set resolution of A2D converter */ void ADCON0_V2::setA2DBits(unsigned int nBits) { m_A2DScale = (1<get_tad(); Tacq = adcon2->get_nacq(); Dprintf(("\tTad = %d Tacq = %d\n", Tad, Tacq)); if (Tad == 0) // RC time source { if (cpu) { Tad = (m_RCtime * p_cpu->get_frequency()); Tad = Tad < 2 ? 2 : Tad; } else Tad = 6; } if (Tacq == 0) fc += 1; // if Tacq is 0, go to acqusition on next clock cycle else fc += (Tacq * Tad) / p_cpu->get_ClockCycles_per_Instruction(); if(ad_state != AD_IDLE) { // The A/D converter is either 'converting' or 'acquiring' // in either case, there is callback break that needs to be moved. stop_conversion(); get_cycles().reassign_break(future_cycle, fc, this); } else get_cycles().set_break(fc, this); future_cycle = fc; ad_state = AD_ACQUIRING; } void ADCON0_V2::stop_conversion(void) { Dprintf(("stopping A/D conversion\n")); ad_state = AD_IDLE; } void ADCON0_V2::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); unsigned int old_value=value.get(); // SET: Reflect it first! value.put(new_value); if(new_value & ADON) { // The A/D converter is being turned on (or maybe left on) if((new_value & ~old_value) & GO) { if (verbose) printf("starting A2D conversion\n"); // The 'GO' bit is being turned on, which is request to initiate // and A/D conversion start_conversion(); } } else stop_conversion(); } void ADCON0_V2::put_conversion(void) { double dRefSep = m_dSampledVrefHi - m_dSampledVrefLo; double dNormalizedVoltage; dNormalizedVoltage = (dRefSep>0.0) ? (m_dSampledVoltage - m_dSampledVrefLo)/dRefSep : 0.0; dNormalizedVoltage = dNormalizedVoltage>1.0 ? 1.0 : dNormalizedVoltage; unsigned int converted = (unsigned int)(m_A2DScale*dNormalizedVoltage + 0.5); Dprintf(("put_conversion: Vrefhi:%g Vreflo:%g conversion:%d normV:%g\n", m_dSampledVrefHi,m_dSampledVrefLo,converted,dNormalizedVoltage)); if (verbose) printf ("result=0x%02x\n", converted); Dprintf(("%d-bit result 0x%x\n", m_nBits, converted)); if(adresl) { // non-null for more than 8 bit conversion if(adcon2->value.get() & ADCON2_V2::ADFM) { adresl->put(converted & 0xff); adres->put( (converted >> 8) & 0x3); } else { adresl->put((converted << 6) & 0xc0); adres->put( (converted >> 2) & 0xff); } } else { adres->put((converted ) & 0xff); } } // ADCON0_V2 callback is called when the cycle counter hits the break point that // was set in ADCON0_V2::put. void ADCON0_V2::callback(void) { int channel; Dprintf((" ADCON0_V2 Callback: 0x%"PRINTF_INT64_MODIFIER"x\n",get_cycles().get())); // // The a/d converter is simulated with a state machine. // switch(ad_state) { case AD_IDLE: Dprintf(("ignoring ad callback since ad_state is idle\n")); break; case AD_ACQUIRING: channel = (value.get() >> 2) & channel_mask; m_dSampledVoltage = adcon1->getChannelVoltage(channel); m_dSampledVrefHi = adcon1->getVrefHi(); m_dSampledVrefLo = adcon1->getVrefLo(); Dprintf(("Acquiring channel:%d V=%g reflo=%g refhi=%g\n", channel,m_dSampledVoltage,m_dSampledVrefLo,m_dSampledVrefHi)); future_cycle = get_cycles().get() + ((m_nBits + 1) * Tad)/p_cpu->get_ClockCycles_per_Instruction(); get_cycles().set_break(future_cycle, this); if (verbose) printf("A/D %d bits channel:%d Vin=%g Refhi=%g Reflo=%g ", m_nBits, channel,m_dSampledVoltage,m_dSampledVrefHi,m_dSampledVrefLo); ad_state = AD_CONVERTING; break; case AD_CONVERTING: put_conversion(); // Clear the GO/!DONE flag. value.put(value.get() & (~GO)); set_interrupt(); ad_state = AD_IDLE; } } //------------------------------------------------------ // void ADCON0_V2::set_interrupt(void) { pir1v2->set_adif(); intcon->peripheral_interrupt(); } //------------------------------------------------------ // ADCON1 // ADCON1_V2::ADCON1_V2(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), m_AnalogPins(0), m_nAnalogChannels(0), mValidCfgBits(0), mCfgBitShift(0), m_vrefHiChan(-1), m_vrefLoChan(-1), mIoMask(0), m_adcon0(0) { for (int i=0; i<(int)cMaxConfigurations; i++) { setChannelConfiguration(i, 0); } } ADCON1_V2::~ADCON1_V2() { delete [] m_AnalogPins; } void ADCON1_V2::put(unsigned int new_value) { unsigned int new_mask = get_adc_configmask(new_value); unsigned int diff = mIoMask ^ new_mask; Dprintf (( "ADCON1_V2::put ( %02X ) - new_mask %02X\n", new_value, new_mask )); trace.raw(write_trace.get() | value.get()); char newname[20]; for(unsigned int i = 0; i < m_nAnalogChannels; i++) { if ((diff & (1 << i)) && m_AnalogPins[i] != &AnInvalidAnalogInput) { if (new_mask & (1<AnalogReq(this, true, newname); } else { m_AnalogPins[i]->AnalogReq(this, false, m_AnalogPins[i]->getPin().name().c_str()); } } } mIoMask = new_mask; value.put(new_value); } /* * Set the channel used for Vref+ when VCFG0 is set */ void ADCON1_V2::setVrefHiChannel(unsigned int channel) { m_vrefHiChan = channel; } /* * Set the channel used for Vref- when VCFG1 is set */ void ADCON1_V2::setVrefLoChannel(unsigned int channel) { m_vrefLoChan = channel; } /* * If A2D uses PCFG, call for each PCFG value (cfg 0 to 15) with * each set bit of bitMask indicating port is an analog port * (either A2D input port or Vref). Processors which use an A2D * method that uses ANSEL register will not call this. * * As an example, for the following Port Configuration Control bit: * PCFG AN7 AN6 AN5 AN4 AN3 AN2 AN1 AN0 * ---- ---- ----- ----- ----- ----- ----- ----- ----- * 1100 D D D A Vref+ Vref- A A * * then call setChannelConfiguration with cfg = 12 , bitMask = 0x1f * */ void ADCON1_V2::setChannelConfiguration(unsigned int cfg, unsigned int bitMask) { if (cfg < cMaxConfigurations) m_configuration_bits[cfg] = bitMask; } /* * Performs same function as setChannelConfiguration, but defines * all entiries in configuration table in one call. */ void ADCON1_V2::setChanTable( unsigned int m0, unsigned int m1, unsigned int m2, unsigned int m3, unsigned int m4, unsigned int m5, unsigned int m6, unsigned int m7, unsigned int m8, unsigned int m9, unsigned int m10, unsigned int m11, unsigned int m12, unsigned int m13, unsigned int m14, unsigned int m15) { m_configuration_bits[0] = m0; m_configuration_bits[1] = m1; m_configuration_bits[2] = m2; m_configuration_bits[3] = m3; m_configuration_bits[4] = m4; m_configuration_bits[5] = m5; m_configuration_bits[6] = m6; m_configuration_bits[7] = m7; m_configuration_bits[8] = m8; m_configuration_bits[9] = m9; m_configuration_bits[10] = m10; m_configuration_bits[11] = m11; m_configuration_bits[12] = m12; m_configuration_bits[13] = m13; m_configuration_bits[14] = m14; m_configuration_bits[15] = m15; } /* * Number of A2D channels processor supports */ void ADCON1_V2::setNumberOfChannels(unsigned int nChannels) { PinModule **save = NULL; if (!nChannels || nChannels <= m_nAnalogChannels) return; if (m_nAnalogChannels && nChannels > m_nAnalogChannels ) save = m_AnalogPins; m_AnalogPins = new PinModule *[nChannels]; for (unsigned int i=0; i> mCfgBitShift) & mValidCfgBits]); } else // register directly gives Analog ports (18f1220) { return (~(reg >> mCfgBitShift) & mValidCfgBits); } } /* * Associate a processor I/O pin with an A2D channel */ void ADCON1_V2::setIOPin(unsigned int channel, PinModule *newPin) { if (channel < m_nAnalogChannels && m_AnalogPins[channel] == &AnInvalidAnalogInput && newPin!=0) { m_AnalogPins[channel] = newPin; } else { printf("WARNING %s channel %d, cannot set IOpin\n",__FUNCTION__, channel); if (m_AnalogPins[channel] != &AnInvalidAnalogInput) printf("Pin Already assigned\n"); else if (channel > m_nAnalogChannels) printf("channel %d >= number of channels %d\n", channel, m_nAnalogChannels); } } //------------------------------------------------------ double ADCON1_V2::getChannelVoltage(unsigned int channel) { double voltage=0.0; if(channel <= m_nAnalogChannels) { if ( (1<getPin().get_nodeVoltage(); else { cout << "ADCON1_V2::getChannelVoltage channel " << channel << " not a valid pin\n"; voltage = 0.; } } else { cout << "ADCON1_V2::getChannelVoltage channel " << channel << " not analog\n"; } } else { cout << "ADCON1_V2::getChannelVoltage channel " << channel << " > m_nAnalogChannels " << m_nAnalogChannels << "\n"; } return voltage; } double ADCON1_V2::getVrefHi() { assert(m_vrefHiChan >= 0); // m_vrefHiChan has not been set if ( (m_adcon0 && (m_adcon0->value.data & ADCON0_V2::VCFG0)) || ( !m_adcon0 && (value.data & VCFG0))) // Use Vref+ return(getChannelVoltage(m_vrefHiChan)); return ((Processor *)cpu)->get_Vdd(); } double ADCON1_V2::getVrefLo() { assert(m_vrefLoChan >= 0); // m_vrefLoChan has not been set if ( (m_adcon0 && (m_adcon0->value.data & ADCON0_V2::VCFG1)) || ( !m_adcon0 && (value.data & VCFG1))) // Use Vref- return getChannelVoltage(m_vrefLoChan); return 0.0; } //------------------------------------------------------ // ADCON0 // ADCON2_V2::ADCON2_V2(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc) { } char ADCON2_V2::get_nacq() { static char acq_tab[8] = { 0, 2, 4, 6, 8, 12, 16, 20}; return(acq_tab[((value.get() & (ACQT2 | ACQT1 | ACQT0)) >> 3) ]); } char ADCON2_V2::get_tad() { static char adcs_tab[8] = { 2, 8, 32, 0, 4, 16, 64, 0}; return(adcs_tab[(value.get() & (ADCS2 | ADCS1 | ADCS0)) ]); } bool ADCON2_V2::get_adfm() { return((value.get() & ADFM) == ADFM); } gpsim-0.27.0/src/operator.h0000644000076400007640000002134011401131150012426 00000000000000/* Parser for gpsim Copyright (C) 2004 Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #if !defined(__OPERATOR_H__) #define __OPERATOR_H__ #include "expr.h" using namespace std; class Operator : public Expression { public: Operator(string newOpString) { opString = newOpString; } virtual ~Operator(void) { } string showOp() { return(opString); } private: string opString; }; class BinaryOperator : public Operator { public: BinaryOperator(string opString, Expression* leftExpr, Expression* rightExpr); virtual ~BinaryOperator(); virtual Value* shortCircuit(Value* leftValue); virtual Value* applyOp(Value* leftValue, Value* rightValue)=0; virtual Value* evaluate(); virtual Expression *getLeft(); virtual Expression *getRight(); string show(); string showType(); string toString(); protected: Expression* leftExpr; Expression* rightExpr; Value* value; }; class UnaryOperator : public Operator { public: UnaryOperator(string opString, Expression* expr); virtual ~UnaryOperator(); virtual Value* applyOp(Value* value)=0; virtual Value* evaluate(); string show(); string showType(); string toString(); protected: Expression* expr; Value* value; }; class ComparisonOperator : public BinaryOperator { public: enum ComparisonTypes { eOpEq, eOpGe, eOpGt, eOpLe, eOpLt, eOpNe }; ComparisonOperator(string opString, Expression*, Expression*); virtual ~ComparisonOperator(); virtual Value* applyOp(Value* leftValue, Value* rightValue); bool less() { return bLess;} bool equal() { return bEqual;} bool greater() { return bGreater;} virtual ComparisonTypes isa()=0; virtual int set_break(ObjectBreakTypes bt=eBreakAny, ObjectActionTypes at=eActionHalt, Expression *expr=0); protected: bool bLess; bool bEqual; bool bGreater; }; //----------------------------------------------------------------- class OpAbstractRange : public BinaryOperator { public: OpAbstractRange(Expression *leftExpr, Expression *rightExpr); virtual ~OpAbstractRange(); Value* applyOp(Value* leftValue, Value* rightValue); }; //----------------------------------------------------------------- class OpAdd : public BinaryOperator { public: OpAdd(Expression* leftExpr, Expression* rightExpr); virtual ~OpAdd(); virtual Value* applyOp(Value* leftValue, Value* rightValue); }; //----------------------------------------------------------------- class OpAnd : public BinaryOperator { public: OpAnd(Expression* leftExpr, Expression* rightExpr); virtual ~OpAnd(); Value* applyOp(Value* leftValue, Value* rightValue); }; //----------------------------------------------------------------- class OpDiv : public BinaryOperator { public: OpDiv(Expression* leftExpr, Expression* rightExpr); virtual ~OpDiv(); Value* applyOp(Value* leftValue, Value* rightValue); }; //----------------------------------------------------------------- class OpEq : public ComparisonOperator { public: OpEq(Expression* leftExpr, Expression* rightExpr); virtual ~OpEq(); ComparisonOperator::ComparisonTypes isa() {return ComparisonOperator::eOpEq;} }; //----------------------------------------------------------------- class OpGe : public ComparisonOperator { public: OpGe(Expression* leftExpr, Expression* rightExpr); virtual ~OpGe(); ComparisonOperator::ComparisonTypes isa() {return ComparisonOperator::eOpGe;} }; //----------------------------------------------------------------- class OpGt : public ComparisonOperator { public: OpGt(Expression* leftExpr, Expression* rightExpr); virtual ~OpGt(); ComparisonOperator::ComparisonTypes isa() {return ComparisonOperator::eOpGt;} }; //----------------------------------------------------------------- class OpLe : public ComparisonOperator { public: OpLe(Expression* leftExpr, Expression* rightExpr); virtual ~OpLe(); ComparisonOperator::ComparisonTypes isa() {return ComparisonOperator::eOpLe;} }; //----------------------------------------------------------------- class OpLogicalAnd : public BinaryOperator { public: OpLogicalAnd(Expression* leftExpr, Expression* rightExpr); virtual ~OpLogicalAnd(); Value* applyOp(Value* leftValue, Value* rightValue); }; //----------------------------------------------------------------- class OpLogicalOr : public BinaryOperator { public: OpLogicalOr(Expression* leftExpr, Expression* rightExpr); virtual ~OpLogicalOr(); Value* applyOp(Value* leftValue, Value* rightValue); }; //----------------------------------------------------------------- class OpLt : public ComparisonOperator { public: OpLt(Expression* leftExpr, Expression* rightExpr); virtual ~OpLt(); ComparisonOperator::ComparisonTypes isa() {return ComparisonOperator::eOpLt;} }; //----------------------------------------------------------------- class OpMpy : public BinaryOperator { public: OpMpy(Expression* leftExpr, Expression* rightExpr); virtual ~OpMpy(); Value* applyOp(Value* leftValue, Value* rightValue); }; //----------------------------------------------------------------- class OpNe : public ComparisonOperator { public: OpNe(Expression* leftExpr, Expression* rightExpr); virtual ~OpNe(); ComparisonOperator::ComparisonTypes isa() {return ComparisonOperator::eOpNe;} }; //----------------------------------------------------------------- class OpOr : public BinaryOperator { public: OpOr(Expression* leftExpr, Expression* rightExpr); virtual ~OpOr(); Value* applyOp(Value* leftValue, Value* rightValue); }; //----------------------------------------------------------------- class OpShl : public BinaryOperator { public: OpShl(Expression* leftExpr, Expression* rightExpr); virtual ~OpShl(); Value* applyOp(Value* leftValue, Value* rightValue); }; //----------------------------------------------------------------- class OpShr : public BinaryOperator { public: OpShr(Expression* leftExpr, Expression* rightExpr); virtual ~OpShr(); Value* applyOp(Value* leftValue, Value* rightValue); }; //----------------------------------------------------------------- class OpSub : public BinaryOperator { public: OpSub(Expression* leftExpr, Expression* rightExpr); virtual ~OpSub(); Value* applyOp(Value* leftValue, Value* rightValue); }; //----------------------------------------------------------------- class OpXor : public BinaryOperator { public: OpXor(Expression* leftExpr, Expression* rightExpr); virtual ~OpXor(); Value* applyOp(Value* leftValue, Value* rightValue); }; //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% // Unary objects //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% // ----------------------------------------------------------------- class OpLogicalNot : public UnaryOperator { public: OpLogicalNot(Expression* expr); virtual ~OpLogicalNot(); Value* applyOp(Value* value); }; // ----------------------------------------------------------------- class OpNegate : public UnaryOperator { public: OpNegate(Expression* expr); virtual ~OpNegate(); Value* applyOp(Value* value); }; // ----------------------------------------------------------------- class OpOnescomp : public UnaryOperator { public: OpOnescomp(Expression* expr); virtual ~OpOnescomp(); Value* applyOp(Value* value); }; // ----------------------------------------------------------------- class OpPlus : public UnaryOperator { public: OpPlus(Expression* expr); virtual ~OpPlus(); Value* applyOp(Value* value); }; // ----------------------------------------------------------------- class OpIndirect : public UnaryOperator { public: OpIndirect(Expression* expr); virtual ~OpIndirect(); Value* applyOp(Value* value); }; // ----------------------------------------------------------------- class OpAddressOf : public UnaryOperator { public: OpAddressOf(Expression* expr); virtual ~OpAddressOf(); Value* evaluate(); Value* applyOp(Value* value); }; #endif // __OPERATOR_H__ gpsim-0.27.0/src/symbol.cc0000644000076400007640000002155611401170177012263 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ // // symbol.cc // // The file contains the code that controls all of the symbol // stuff for gpsim. Most of the work is handled by the C++ map // container class. // #include "symbol.h" #include #include #include #include #include #include #include "value.h" #include "modules.h" SymbolTable gSymbolTable; SymbolTable_t globalSymbols; static SymbolTable_t *currentSymbolTable=0; #define DEBUG 0 #if defined(_WIN32) SymbolTable &globalSymbolTable() { return gSymbolTable; } #endif //------------------------------------------------------------------- //------------------------------------------------------------------- int SymbolTable_t::addSymbol(gpsimObject *pSym, string *ps_AliasedName) { if (pSym) { ps_AliasedName = (ps_AliasedName && !ps_AliasedName->empty()) ? ps_AliasedName : &pSym->name(); SymbolTable_t::iterator sti = find(*ps_AliasedName); if (sti == end()) { operator[](*ps_AliasedName) = pSym; return 1; } } return 0; } static gpsimObject *pSearchObject=0; static gpsimObject *pFoundObject=0; static bool spred(const SymbolEntry_t &se) { pFoundObject = se.second == pSearchObject ? pSearchObject : 0; return pFoundObject != 0; } int SymbolTable_t::removeSymbol(gpsimObject *pSym) { if (pSym) { pSearchObject = pSym; pFoundObject = 0; SymbolTable_t::iterator it = find_if (begin(), end(), spred); if (it != end()) { if (DEBUG) { cout << __FUNCTION__ <<':' << __LINE__ << " removing symbol "; if (pSym) cout << pSym->name() << endl; } erase (it); return 1; } } return 0; } int SymbolTable_t::removeSymbol(const string &s) { SymbolTable_t::iterator sti = find(s); if (sti != end()) { if (DEBUG) cout << __FUNCTION__ <<':' << __LINE__ << " Removing symbol " << s << endl; erase(sti); return 1; } return 0; } int SymbolTable_t::deleteSymbol(const string &s) { SymbolTable_t::iterator sti = find(s); if (sti != end()) { if (DEBUG) cout << __FUNCTION__ <<':' << __LINE__ << " Deleting symbol " << s << endl; delete sti->second; erase(sti); return 1; } return 0; } gpsimObject *SymbolTable_t::findSymbol(const string &searchString) { stiFound = find(searchString); return stiFound != end() ? stiFound->second : 0; } //------------------------------------------------------------------- //------------------------------------------------------------------- SymbolTable::SymbolTable() { MSymbolTables[string("__global__")] = &globalSymbols; currentSymbolTable = &globalSymbols; } static void dumpOneSymbol(const SymbolEntry_t &sym) { cout << " " //<< sym.second->name() // name may not be valid. << " stored as " << sym.first << " pointer:" << sym.second << " Type:" << sym.second->showType() << endl; } static void dumpSymbolTables(const SymbolTableEntry_t &st) { cout << " Symbol Table: " << st.first << endl; (st.second)->ForEachSymbolTable(dumpOneSymbol); } SymbolTable::~SymbolTable() { if (DEBUG) { cout << "Deleting the symbol table, here's what is still left in it:\n"; ForEachModule(dumpSymbolTables); } } int SymbolTable::addSymbol(gpsimObject *pSym) { /* if (pSym) cout << "Adding " << pSym->name() << " to the global symbol table\n"; */ return globalSymbols.addSymbol(pSym); } int SymbolTable::removeSymbol(gpsimObject *pSym) { /* cout << __FUNCTION__ <<':' << __LINE__ << " Removing symbol "; if (pSym) cout << " -- " << pSym->name() << " from the global symbol table\n"; */ return globalSymbols.removeSymbol(pSym); } void SymbolTable::addModule(Module *pModule) { if (pModule) { MSymbolTables[pModule->name()] = &pModule->getSymbolTable(); globalSymbols.addSymbol(pModule); } } void SymbolTable::removeModule(Module *pModule) { if (pModule) { //cout << "Removing " << pModule->name() << " from the global symbol table\n"; MSymbolTable_t::iterator mi = MSymbolTables.find(pModule->name()); if (mi != MSymbolTables.end()) MSymbolTables.erase(mi); globalSymbols.removeSymbol(pModule); } } /* class SymbolFinder { string searchString; public: gpsimObject *pFound; SymbolFinder(string s) : searchString(s) {} bool tpred(const pair &st) { cout << "searching " << st.first << endl; SymbolTable_t::iterator sti = st.second->find(searchString); pFound = sti != st.second->end() ? sti->second : 0; return pFound != 0; } }; */ static SymbolTable_t *searchTable=0; static string searchString; static gpsimObject *pFound=0; bool tpred(const pair &st) { //cout << "searching " << st.first << endl; pFound = st.second->findSymbol(searchString); return pFound != 0; } gpsimObject *SymbolTable::find(string s) { // First check scoping // // SymbolTableName.SymbolName // ^ // | // +--- scoping operator // // If the search string contains the scoping operator (i.e. '.') // then the symbol table specified by the scope. In other words, // if the search string begins with a period, then search the // current symbol table. // If the search string contains a period, then search for the // symbol table named with the string to the left of the period // and if that table is found search in it for the string to // the right of the period. const char scopeOperator = '.'; size_t scopeOperatorPosition = s.find_first_of(scopeOperator); if (scopeOperatorPosition != string::npos) { searchTable = &globalSymbols; if (scopeOperatorPosition == 0) { // Select the current symbol table searchTable = currentSymbolTable; scopeOperatorPosition++; } else { // Find the symbol table with the scoped name: string moduleName = s.substr(0, scopeOperatorPosition); //,string::npos); MSymbolTable_t::iterator mti = MSymbolTables.find(moduleName); if (mti != MSymbolTables.end()) { searchTable = mti->second; scopeOperatorPosition++; } } SymbolTable_t::iterator sti = searchTable->find(s.substr(scopeOperatorPosition,string::npos)); if (sti != searchTable->end()) return sti->second; } pFound = 0; // assume the symbol is not found. searchString = s; MSymbolTable_t::iterator mti = find_if (MSymbolTables.begin(), MSymbolTables.end(), tpred); if (mti != MSymbolTables.end()) searchTable = mti->second; return pFound; } int SymbolTable::removeSymbol(const string &s) { gpsimObject *pObj = find(s); if (pObj && searchTable) { if (searchTable->stiFound != searchTable->end()) { //cout << "Removing symbol " << s << endl; searchTable->erase(searchTable->stiFound); return 1; } } return 0; } int SymbolTable::deleteSymbol(const string &s) { gpsimObject *pObj = find(s); if (pObj && searchTable) { if (searchTable->stiFound != searchTable->end()) { //cout << "Deleting symbol " << s << endl; searchTable->erase(searchTable->stiFound); delete pObj; return 1; } } /* gpsimObject *pObj = find(s); if (pObj && searchTable) { if (*stiFound != searchTable->end()) { searchTable->erase(*stiFound); delete pObj; return 1; } } */ return 0; } //------------------------------------------------------------------------ // Convenience find functions // All these do is call SymbolTable::find and cast the found symbol into // another type gpsimObject *SymbolTable::findObject(gpsimObject *pObj) { return pObj ? find(pObj->name()) : 0; } Integer *SymbolTable::findInteger(string s) { return dynamic_cast(find(s)); } Value *SymbolTable::findValue(string s) { return dynamic_cast(find(s)); } Module *SymbolTable::findModule(string s) { return dynamic_cast(find(s)); } static void dumpModules(const SymbolTableEntry_t &st) { cout << " Module: " << st.first << endl; } void SymbolTable::listModules() { ForEachModule(dumpModules); } void SymbolTable::ForEachModule(PFN_ForEachModule forEach) { for_each(MSymbolTables.begin(), MSymbolTables.end(), forEach); } gpsim-0.27.0/src/interface.cc0000664000076400007640000003311712177133234012720 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ //------------------------------------------------------------------- // interface.cc // // interface.cc provides a layer of code on top of the simulator // portion of gpsim. It's purpose is to provide an abstract interface // that hides the details of the simulator. Currently only the gui // interfaces to gpsim through this layer. However, since the simulator // 'engine' is built as a library, it's possible for other code to // interface through here as well. // //------------------------------------------------------------------- #include #include "../config.h" #define GPSIM_VERSION VERSION #include "gpsim_def.h" #include "sim_context.h" #include "processor.h" #include "xref.h" #include "interface.h" #include "trace.h" #include "eeprom.h" #include "icd.h" #include "cmd_manager.h" #include "clock_phase.h" extern Integer *verbosity; // in ../src/init.cc // Flag to tell us when all of the init stuff is done. unsigned int gpsim_is_initialized = 0; /************************************************************************** * * Here's the gpsim interface class instantiation. It's through this class * that gpsim will notify the gui and/or modules of internal gpsim changes. * **************************************************************************/ gpsimInterface gi; // create an instance of inline get_interface() method by taking its address gpsimInterface &(*dummy_gi)(void) = get_interface; //------------------------------------------------------------------------ // Temporary -- provide a flag to inihibit multithreaded support. bool gUsingThreads() { return false; } //--------------------------------------------------------------------------- // void gpsim_set_bulk_mode(int flag) //--------------------------------------------------------------------------- void gpsim_set_bulk_mode(int flag) { if(get_use_icd()) { icd_set_bulk(flag); } } void initialization_is_complete(void) { gpsim_is_initialized = 1; } //======================================================================== //======================================================================== //--------------------------------------------------------------------------- //--------------------------------------------------------------------------- /* * Module Interface * * */ //--------------------------------------------------------------------------- //--------------------------------------------------------------------------- ModuleInterface::ModuleInterface(Module *new_module) { module = new_module; } //--------------------------------------------------------------------------- //--------------------------------------------------------------------------- /* * Processor Interface * * */ //--------------------------------------------------------------------------- //--------------------------------------------------------------------------- ProcessorInterface::ProcessorInterface(Processor *new_cpu) : ModuleInterface(new_cpu) { } //-------------------------------------------------------------------------- // // callback registration functions // // //-------------------------------------------------------------------------- Interface::Interface(gpointer new_object) { objectPTR = new_object; } //-------------------------------------------------------------------------- // // gpsimInterface // // Here are where the member functions for the gpsimInterface class are // defined. // // The gpsimInterface class contains a singly-linked-list of Interface objects. // Interface objects are structures that primarily contain pointers to a whole // bunch of functions. The purpose is to have some external entity, like the // gui code, define where these functions point. gpsim will then use these // functions as a means of notifying the gui when something has changed. // In addition to the gui, this class also provides the support for interfacing // to modules. When a module is loaded from a module library, a new Interface // object is created for it. The module will be given the opportunity to // register functions (e.g. provide pointers to functions) that gpsim can // then call. // //-------------------------------------------------------------------------- void gpsimInterface::update (void) { GSList *external_interfaces = interfaces; while(external_interfaces) { if(external_interfaces->data) { Interface *an_interface = (Interface *)(external_interfaces->data); an_interface->Update(an_interface->objectPTR); } external_interfaces = external_interfaces->next; } } void gpsimInterface::callback(void) { if(update_rate) { future_cycle = get_cycles().get() + update_rate; get_cycles().set_break(future_cycle, this); } update(); } void gpsimInterface::clear(void) { } void gpsimInterface::print(void) { cout << "Interface update rate " << update_rate << endl; } void gpsimInterface::callback_print(void) { cout << "gpsim Interface callback\n"; } void update_gui(void) { gi.update(); } gpsimInterface::gpsimInterface (void ) { interfaces = 0; future_cycle = 0; interface_seq_number = 0; socket_interface = 0; mbSimulating = false; mbUseGUI = false; } ISimConsole & gpsimInterface::GetConsole() { // The static ISimConsole object is currently in the // CCommandManger class because it initially was used // to enable external modules to write to the console. // We may want to put it somewhere else someday. return CCommandManager::m_CommandManger.GetConsole(); } //-------------------------------------------------------------------------- // // A xref, or cross reference, object is an arbitrary thing that gpsim // will pass back to the gui or module. The gui (or module) will then // interpret the contents of the xref and possibly update some state // with 'new_value'. An example is when one of the pic registers changes; // if there's a xref object associated with the register gpsim will // then notify the gui (or module) through the xref. void gpsimInterface::update_object (gpointer xref,int new_value) { GSList *interface_list = interfaces; while(interface_list) { if(interface_list->data) { Interface *an_interface = (Interface *)(interface_list->data); an_interface->UpdateObject(xref, new_value); } interface_list = interface_list->next; } } void gpsimInterface::remove_object (gpointer xref) { GSList *interface_list = interfaces; while(interface_list) { if(interface_list->data) { Interface *an_interface = (Interface *)(interface_list->data); an_interface->RemoveObject(xref); } interface_list = interface_list->next; } } void gpsimInterface::simulation_has_stopped (void) { GSList *interface_list = interfaces; profile_keeper.catchup(); // FIXME: remove this! while(interface_list) { if(interface_list->data) { Interface *an_interface = (Interface *)(interface_list->data); an_interface->SimulationHasStopped(an_interface->objectPTR); } interface_list = interface_list->next; } } #if GLIB_MAJOR_VERSION >= 2 // This code is not used anywhere, but uses currently depreciated calls RRR #ifdef GPSIM_THREAD GMutex *muRunMutex; GCond *cvRunCondition; static Processor *tcpu=0; static void run_thread( void *ptr ) { printf("run thread\n"); while(1) { g_mutex_lock(muRunMutex); printf("running waiting for condition\n"); g_cond_wait(cvRunCondition, muRunMutex); if(tcpu) { printf("running\n"); tcpu->run(); printf("stopped running\n"); } g_mutex_unlock(muRunMutex); } } void start_run_thread(void) { std::cout << "starting run thread....\n"; muRunMutex = g_mutex_new (); cvRunCondition = g_cond_new (); g_mutex_lock (muRunMutex); GError *err = NULL ; if( g_thread_create((GThreadFunc)run_thread, (void *)0, TRUE, &err) == NULL) { printf("Thread create failed: %s!!\n", err->message ); g_error_free ( err ) ; } g_mutex_unlock (muRunMutex); std::cout << " started thread\n"; } #endif //GPSIM_THREAD #endif //GLIB_MAJOR_VERSION >= 2 //======================================================================== // void gpsimInterface::start_simulation (double duration) { Processor *cpu = get_active_cpu(); if (cpu) { mbSimulating = true; cout << "running...\n"; cpu->run(true); mbSimulating = false; trace.dump_last_instruction(); simulation_has_stopped(); } } void gpsimInterface::step_simulation (int nSteps) { Processor *cpu = get_active_cpu(); if (cpu) cpu->step(nSteps); } void gpsimInterface::advance_simulation(eAdvancementModes nAdvancement) { switch (nAdvancement) { case eAdvanceNextInstruction: { Processor *cpu = get_active_cpu(); if (cpu) cpu->step_over(); } break; case eAdvanceNextCycle: case eAdvanceNextCall: case eAdvanceNextReturn: break; } } void gpsimInterface::reset (RESET_TYPE resetType) { CSimulationContext::GetContext()->Reset(resetType); } bool gpsimInterface::bSimulating() { return mbSimulating; } bool gpsimInterface::bUsingGUI() { return mbUseGUI; } void gpsimInterface::setGUImode(bool bnewGUImode) { // We can only turn the gui on we can't turn it off. mbUseGUI |= bnewGUImode; } void gpsimInterface::new_processor (Processor *new_cpu) { GSList *interface_list = interfaces; while(interface_list) { if(interface_list->data) { Interface *an_interface = (Interface *)(interface_list->data); an_interface->NewProcessor(new_cpu); } interface_list = interface_list->next; } } void gpsimInterface::new_module (Module *module) { GSList *interface_list = interfaces; while(interface_list) { if(interface_list->data) { Interface *an_interface = (Interface *)(interface_list->data); an_interface->NewModule(module); } interface_list = interface_list->next; } } void gpsimInterface::node_configuration_changed (Stimulus_Node *node) { GSList *interface_list = interfaces; while(interface_list) { if(interface_list->data) { Interface *an_interface = (Interface *)(interface_list->data); an_interface->NodeConfigurationChanged(node); } interface_list = interface_list->next; } } void gpsimInterface::new_program (Processor *cpu) { GSList *interface_list = interfaces; while(interface_list) { if(interface_list->data) { Interface *an_interface = (Interface *)(interface_list->data); an_interface->NewProgram(cpu); } interface_list = interface_list->next; } } unsigned int gpsimInterface::add_interface (Interface *new_interface) { interface_seq_number++; new_interface->set_id(interface_seq_number); gi.interfaces = g_slist_append(gi.interfaces, new_interface); return interface_seq_number; } unsigned int gpsimInterface::add_socket_interface (Interface *new_interface) { if(!socket_interface) return add_interface(new_interface); return 0; } void gpsimInterface::remove_interface (unsigned int interface_id) { GSList *interface_list = interfaces; while(interface_list) { if(interface_list->data) { Interface *an_interface = (Interface *)(interface_list->data); if(an_interface->get_id()==interface_id) { gi.interfaces = g_slist_remove(gi.interfaces, an_interface); if(an_interface == socket_interface) socket_interface = 0; delete an_interface; return; } } interface_list = interface_list->next; } return; } void gpsimInterface::set_update_rate (guint64 _update_rate) { update_rate = _update_rate; if(update_rate) { guint64 fc = get_cycles().get() + _update_rate; if(fc) { if(future_cycle) get_cycles().reassign_break(future_cycle, fc, this); else get_cycles().set_break(fc, this); future_cycle = fc; } } } guint64 gpsimInterface::get_update_rate() { return update_rate; } const char *get_dir_delim(const char *path) { #ifdef _WIN32 const char *p = path + strlen(path); do { if (--p < path) return 0; } while (*p != '/' && *p != '\\'); return p; #else return strrchr(path, '/'); #endif } // For libgpsim.dll // The console now owns the verbose flags. At some point as set // of functions called TraceDisplayXXX() the conditionally // display message depending on the verbose flags. // I'll leave this it as it for now because I'm in the middle // of making the src project its own DLL on windows and I have // enough changes for now. // Replaced the int verbose = 0; with GlobalVerbosityAccessor verbose. // GlobalVerbosityAccessor that has overridden operators for 'if(verbose)' // and 'if(verbose&4)' to still work as desired. // The purpose was to decouple verbose from cli and gui. Now these // modules (acutally gpsim.exe) will allocate there own // GlobalVerbosityAccessor verbose object to gain access to the // verbose flags and for the overridden operators. GlobalVerbosityAccessor verbose; gpsim-0.27.0/src/lxt_write.c0000755000076400007640000007043310416272152012636 00000000000000/* * Copyright (c) 2001 Tony Bybell. * * Permission is hereby granted, free of charge, to any person obtaining a * copy of this software and associated documentation files (the "Software"), * to deal in the Software without restriction, including without limitation * the rights to use, copy, modify, merge, publish, distribute, sublicense, * and/or sell copies of the Software, and to permit persons to whom the * Software is furnished to do so, subject to the following conditions: * * The above copyright notice and this permission notice shall be included in * all copies or substantial portions of the Software. * * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER * DEALINGS IN THE SOFTWARE. */ #include "lxt_write.h" /* * functions which emit various big endian * data to a file */ static int lt_emit_u8(struct lt_trace *lt, int value) { unsigned char buf[1]; int nmemb; buf[0] = value & 0xff; nmemb=fwrite(buf, sizeof(char), 1, lt->handle); lt->position+=nmemb; return(nmemb); } static int lt_emit_u16(struct lt_trace *lt, int value) { unsigned char buf[2]; int nmemb; buf[0] = (value>>8) & 0xff; buf[1] = value & 0xff; nmemb = fwrite(buf, sizeof(char), 2, lt->handle); lt->position+=nmemb; return(nmemb); } static int lt_emit_u24(struct lt_trace *lt, int value) { unsigned char buf[3]; int nmemb; buf[0] = (value>>16) & 0xff; buf[1] = (value>>8) & 0xff; buf[2] = value & 0xff; nmemb=fwrite(buf, sizeof(char), 3, lt->handle); lt->position+=nmemb; return(nmemb); } static int lt_emit_u32(struct lt_trace *lt, int value) { unsigned char buf[4]; int nmemb; buf[0] = (value>>24) & 0xff; buf[1] = (value>>16) & 0xff; buf[2] = (value>>8) & 0xff; buf[3] = value & 0xff; nmemb=fwrite(buf, sizeof(char), 4, lt->handle); lt->position+=nmemb; return(nmemb); } #if 0 //warning: 'lt_emit_u64' defined but not used static int lt_emit_u64(struct lt_trace *lt, int valueh, int valuel) { int rc; if((rc=lt_emit_u32(lt, valueh))) { rc=lt_emit_u32(lt, valuel); } return(rc); } #endif static int lt_emit_double(struct lt_trace *lt, double value) { int nmemb; nmemb=fwrite(&value, sizeof(char), sizeof(double)/sizeof(char), lt->handle); lt->position+=nmemb; return(nmemb); } static int lt_emit_string(struct lt_trace *lt, char *value) { int rc=1; do { rc&=lt_emit_u8(lt, *value); } while(*(value++)); return(rc); } /* * hash/symtable manipulation */ static int lt_hash(const char *s) { const char *p; char ch; unsigned int h=0, h2=0, pos=0, g; for(p=s;*p;p++) { ch=*p; h2<<=3; h2-=((unsigned int)ch+(pos++)); /* this handles stranded vectors quite well.. */ h=(h<<4)+ch; if((g=h&0xf0000000)) { h=h^(g>>24); h=h^g; } } h^=h2; /* combine the two hashes */ return(h%LT_SYMPRIME); } static struct lt_symbol *lt_symadd(struct lt_trace *lt, const char *name, int hv) { struct lt_symbol *s; s=(struct lt_symbol *)calloc(1,sizeof(struct lt_symbol)); strcpy(s->name=(char *)malloc((s->namlen=strlen(name))+1),name); s->next=lt->sym[hv]; lt->sym[hv]=s; return(s); } static struct lt_symbol *lt_symfind(struct lt_trace *lt, const char *s) { int hv; struct lt_symbol *temp; hv=lt_hash(s); if(!(temp=lt->sym[hv])) return(NULL); /* no hash entry, add here wanted to add */ while(temp) { if(!strcmp(temp->name,s)) { return(temp); /* in table already */ } if(!temp->next) break; temp=temp->next; } return(NULL); /* not found, add here if you want to add*/ } /* * compress facs to a prefix count + string + 0x00 */ static void lt_compress_fac(struct lt_trace *lt, char *str) { int i; int len = strlen(str); int minlen = (lencompress_fac_len) ? len : lt->compress_fac_len; if(minlen>65535) minlen=65535; /* keep in printable range--most hierarchies won't be this big anyway */ if(lt->compress_fac_str) { for(i=0;icompress_fac_str[i]!=str[i]) break; } lt_emit_u16(lt, i); lt_emit_string(lt, str+i); free(lt->compress_fac_str); } else { lt_emit_u16(lt, 0); lt_emit_string(lt, str); } lt->compress_fac_str = (char *) malloc((lt->compress_fac_len=len)+1); strcpy(lt->compress_fac_str, str); } /* * emit facs in sorted order along with geometry * and sync table info */ static int lt_compare(const void *v1, const void *v2) { struct lt_symbol *s1 = *(struct lt_symbol **)v1; struct lt_symbol *s2 = *(struct lt_symbol **)v2; int rc = strcmp(s1->name, s2->name); if(rc) { return(rc); } else { return(s1->msb - s2->msb); } } static void strip_brack(struct lt_symbol *s) { char *lastch = s->name+s->namlen - 1; if(*lastch!=']') return; if(s->namlen<3) return; lastch--; while(lastch!=s->name) { if(*lastch=='[') { *lastch=0x00; return; } lastch--; } return; } static void lt_emitfacs(struct lt_trace *lt) { int i; if((lt)&&(lt->numfacs)) { struct lt_symbol *s = lt->symchain; if((lt->sorted_facs = (struct lt_symbol **)calloc(lt->numfacs, sizeof(struct lt_symbol *)))) { if(lt->do_strip_brackets) for(i=0;inumfacs;i++) { lt->sorted_facs[i] = s; strip_brack(s); s=s->symchain; } else for(i=0;inumfacs;i++) { lt->sorted_facs[i] = s; s=s->symchain; } qsort((void *)lt->sorted_facs, lt->numfacs, sizeof(struct lt_symbol *), lt_compare); lt->facname_offset=lt->position; lt_emit_u32(lt, lt->numfacs); lt_emit_u32(lt, lt->numfacbytes); for(i=0;inumfacs;i++) { lt->sorted_facs[i]->facnum = i; lt_compress_fac(lt, lt->sorted_facs[i]->name); } free(lt->compress_fac_str); lt->compress_fac_str=NULL; lt->compress_fac_len=0; lt->facgeometry_offset = lt->position; for(i=0;inumfacs;i++) { if((lt->sorted_facs[i]->flags<_SYM_F_ALIAS)==0) { lt_emit_u32(lt, lt->sorted_facs[i]->rows); lt_emit_u32(lt, lt->sorted_facs[i]->msb); lt_emit_u32(lt, lt->sorted_facs[i]->lsb); lt_emit_u32(lt, lt->sorted_facs[i]->flags); } else { lt_emit_u32(lt, lt->sorted_facs[i]->aliased_to->facnum); lt_emit_u32(lt, lt->sorted_facs[i]->msb); lt_emit_u32(lt, lt->sorted_facs[i]->lsb); lt_emit_u32(lt, LT_SYM_F_ALIAS); } } lt->sync_table_offset = lt->position; for(i=0;inumfacs;i++) { lt_emit_u32(lt, lt->sorted_facs[i]->last_change); } } } } /* * initialize the trace and get back and lt context */ struct lt_trace *lt_init(const char *name) { struct lt_trace *lt=(struct lt_trace *)calloc(1, sizeof(struct lt_trace)); if(!(lt->handle=fopen(name, "wb"))) { free(lt); lt=NULL; } else { lt_emit_u16(lt, LT_HDRID); lt_emit_u16(lt, LT_VERSION); lt->change_field_offset = lt->position; lt->initial_value = -1; /* if a user sets this it will have a different POSITIVE val */ lt->timescale = -256; /* will be in range of -128<=x<=127 if set */ } return(lt); } /* * clock flushing.. */ static void lt_flushclock(struct lt_trace *lt, struct lt_symbol *s) { unsigned int last_change_delta = lt->position - s->last_change - 2; unsigned int start_position = lt->position; int tag; int numbytes, numbytes_trans; int numtrans = s->clk_numtrans - LT_CLKPACK - 1; if(numtrans<0) { /* it never got around to caching */ fprintf(stderr, "Possible Problem with %s with %d?\n", s->name, s->clk_numtrans); return; } if(last_change_delta >= 256*65536) { numbytes = 3; } else if(last_change_delta >= 65536) { numbytes = 2; } else if(last_change_delta >= 256) { numbytes = 1; } else { numbytes = 0; } if(numtrans >= 256*65536) { numbytes_trans = 3; } else if(numtrans >= 65536) { numbytes_trans = 2; } else if(numtrans >= 256) { numbytes_trans = 1; } else { numbytes_trans = 0; } tag = (numbytes<<4) + 0xC + numbytes_trans; /* yields xC..xF */ lt_emit_u8(lt, tag); switch(numbytes&3) { case 0: lt_emit_u8(lt, last_change_delta); break; case 1: lt_emit_u16(lt, last_change_delta); break; case 2: lt_emit_u24(lt, last_change_delta); break; case 3: lt_emit_u32(lt, last_change_delta); break; } s->last_change = start_position; /* s->clk_prevval CAN BE INFERRED! */ /* s->clk_prevtrans CAN BE INFERRED! */ /* s->clk_delta CAN BE INFERRED! */ switch(numbytes_trans&3) { case 0: lt_emit_u8(lt, numtrans); break; case 1: lt_emit_u16(lt, numtrans); break; case 2: lt_emit_u24(lt, numtrans); break; case 3: lt_emit_u32(lt, numtrans); break; } /* printf("Clock finish for '%s' at %d ending with '%c' for %d repeats over a switch delta of %d\n", s->name, lt->timeval, s->clk_prevval, s->clk_numtrans - LT_CLKPACK, s->clk_delta); */ s->clk_prevtrans = -1; s->clk_numtrans = 0; } /* * close out the trace and fixate it */ void lt_close(struct lt_trace *lt) { int lasttime=0; int lastposition=0; if(lt) { struct lt_symbol *s = lt->symchain; if(lt->clock_compress) while(s) { if((s->clk_prevtrans!=-1)&&(s->clk_numtrans > LT_CLKPACK)) lt_flushclock(lt, s); s=s->symchain; } lt_emitfacs(lt); if(lt->timebuff) { free(lt->timebuff); lt->timebuff=NULL; } if(lt->timehead) { struct lt_timetrail *t=lt->timehead; struct lt_timetrail *t2; lt->time_table_offset = lt->position; lt_emit_u32(lt, lt->timechangecount); lt_emit_u32(lt, lt->mintime); lt_emit_u32(lt, lt->maxtime); while(t) { lt_emit_u32(lt, t->position - lastposition); lastposition = t->position; t=t->next; } t=lt->timehead; while(t) { lt_emit_u32(lt, t->timeval - lasttime); lasttime = t->timeval; t2=t->next; free(t); t=t2; } lt->timehead = lt->timecurr = NULL; } if(lt->initial_value>=0) { lt->initial_value_offset = lt->position; lt_emit_u8(lt, lt->initial_value); } if((lt->timescale>-129)&(lt->timescale<128)) { lt->timescale_offset = lt->position; lt_emit_u8(lt, lt->timescale); } if(lt->double_used) { lt->double_test_offset = lt->position; lt_emit_double(lt, 3.14159); } lt_emit_u8(lt, LT_SECTION_END); if(lt->change_field_offset) { lt_emit_u32(lt, lt->change_field_offset); lt_emit_u8(lt, LT_SECTION_CHG); } if(lt->sync_table_offset) { lt_emit_u32(lt, lt->sync_table_offset); lt_emit_u8(lt, LT_SECTION_SYNC_TABLE); } if(lt->facname_offset) { lt_emit_u32(lt, lt->facname_offset); lt_emit_u8(lt, LT_SECTION_FACNAME); } if(lt->facgeometry_offset) { lt_emit_u32(lt, lt->facgeometry_offset); lt_emit_u8(lt, LT_SECTION_FACNAME_GEOMETRY); } if(lt->timescale_offset) { lt_emit_u32(lt, lt->timescale_offset); lt_emit_u8(lt, LT_SECTION_TIMESCALE); } if(lt->time_table_offset) { lt_emit_u32(lt, lt->time_table_offset); lt_emit_u8(lt, LT_SECTION_TIME_TABLE); } if(lt->initial_value_offset) { lt_emit_u32(lt, lt->initial_value_offset); lt_emit_u8(lt, LT_SECTION_INITIAL_VALUE); } if(lt->double_test_offset) { lt_emit_u32(lt, lt->double_test_offset); lt_emit_u8(lt, LT_SECTION_DOUBLE_TEST); } lt_emit_u8(lt, LT_TRLID); if(lt->symchain) { struct lt_symbol *s = lt->symchain; struct lt_symbol *s2; while(s) { free(s->name); s2=s->next; free(s); s=s2; } } fclose(lt->handle); free(lt); } } /* * maint function for finding a symbol if it exists */ struct lt_symbol *lt_symbol_find(struct lt_trace *lt, const char *name) { struct lt_symbol *s=NULL; if((lt)&&(name)) s=lt_symfind(lt, name); return(s); } /* * add a trace (if it doesn't exist already) */ struct lt_symbol *lt_symbol_add(struct lt_trace *lt, const char *name, unsigned int rows, int msb, int lsb, int flags) { struct lt_symbol *s; int len; int flagcnt; flagcnt = ((flags<_SYM_F_INTEGER)!=0) + ((flags<_SYM_F_DOUBLE)!=0) + ((flags<_SYM_F_STRING)!=0); if((flagcnt>1)||(!lt)||(!name)||(lt_symfind(lt, name))) return (NULL); lt->double_used |= ((flags<_SYM_F_DOUBLE)!=0); s=lt_symadd(lt, name, lt_hash(name)); s->rows = rows; s->flags = flags&(~LT_SYM_F_ALIAS); /* aliasing makes no sense here.. */ if(!flagcnt) { s->msb = msb; s->lsb = lsb; s->len = (msblen==1)&&(s->rows==0)) s->clk_prevtrans = -1; } s->symchain = lt->symchain; lt->symchain = s; lt->numfacs++; if((len=strlen(name)) > lt->longestname) lt->longestname = len; lt->numfacbytes += (len+1); return(s); } /* * add an alias trace (if it doesn't exist already and orig is found) */ struct lt_symbol *lt_symbol_alias(struct lt_trace *lt, const char *existing_name, const char *alias, int msb, int lsb) { struct lt_symbol *s, *sa; int len; int bitlen; int flagcnt; if((!lt)||(!existing_name)||(!alias)||(!(s=lt_symfind(lt, existing_name)))||(lt_symfind(lt, alias))) return (NULL); while(s->aliased_to) /* find root alias */ { s=s->aliased_to; } flagcnt = ((s->flags<_SYM_F_INTEGER)!=0) + ((s->flags<_SYM_F_DOUBLE)!=0) + ((s->flags<_SYM_F_STRING)!=0); bitlen = (msblen)) return(NULL); sa=lt_symadd(lt, alias, lt_hash(alias)); sa->flags = LT_SYM_F_ALIAS; /* only point this can get set */ sa->aliased_to = s; if(!flagcnt) { sa->msb = msb; sa->lsb = lsb; sa->len = bitlen; } sa->symchain = lt->symchain; lt->symchain = sa; lt->numfacs++; if((len=strlen(alias)) > lt->longestname) lt->longestname = len; lt->numfacbytes += (len+1); return(sa); } /* * set current time */ int lt_set_time(struct lt_trace *lt, int timeval) { int rc=0; if(timeval>=0) if(lt) { struct lt_timetrail *trl=(struct lt_timetrail *)calloc(1, sizeof(struct lt_timetrail)); if(trl) { trl->timeval = timeval; trl->position = lt->position; if((lt->timecurr)||(lt->timebuff)) { if((timeval>lt->mintime)&&(timeval>lt->maxtime)) { lt->maxtime = timeval; } else { free(trl); goto bail; } } else { lt->mintime = lt->maxtime = timeval; } if(lt->timebuff) { free(lt->timebuff); } lt->timebuff = trl; lt->timeval = timeval; rc=1; } } bail: return(rc); } /* * sets trace timescale as 10**x seconds */ void lt_set_timescale(struct lt_trace *lt, int timescale) { if(lt) { lt->timescale = timescale; } } /* * sets clock compression heuristic */ void lt_set_clock_compress(struct lt_trace *lt) { if(lt) { lt->clock_compress = 1; } } /* * sets trace initial value */ void lt_set_initial_value(struct lt_trace *lt, char value) { if(lt) { int tag; switch(value) { case '0': tag = 0; break; case '1': tag = 1; break; case 'Z': case 'z': tag = 2; break; case 'X': case 'x': tag = 3; break; case 'H': case 'h': tag = 4; break; case 'U': case 'u': tag = 5; break; case 'W': case 'w': tag = 6; break; case 'L': case 'l': tag = 0x7; break; case '-': tag = 0x8; break; default: tag = -1; break; } lt->initial_value = tag; } } /* * Sets bracket stripping (useful for VCD conversions of * bitblasted nets) */ void lt_symbol_bracket_stripping(struct lt_trace *lt, int doit) { if(lt) { lt->do_strip_brackets = (doit!=0); } } /* * emission for trace values.. */ static int lt_optimask[]= { 0x00000000, 0x00000001, 0x00000003, 0x00000007, 0x0000000f, 0x0000001f, 0x0000003f, 0x0000007f, 0x000000ff, 0x000001ff, 0x000003ff, 0x000007ff, 0x00000fff, 0x00001fff, 0x00003fff, 0x00007fff, 0x0000ffff, 0x0001ffff, 0x0003ffff, 0x0007ffff, 0x000fffff, 0x001fffff, 0x003fffff, 0x007fffff, 0x00ffffff, 0x01ffffff, 0x03ffffff, 0x07ffffff, 0x0fffffff, 0x1fffffff, 0x3fffffff, 0x7fffffff, 0xffffffff }; int lt_emit_value_int(struct lt_trace *lt, struct lt_symbol *s, unsigned int row, int value) { int rc=0; if((!lt)||(!s)) return(rc); while(s->aliased_to) /* find root alias if exists */ { s=s->aliased_to; } if(!(s->flags&(LT_SYM_F_DOUBLE|LT_SYM_F_STRING))) { int numbytes; /* number of bytes to store value minus one */ int len = ((s->flags)<_SYM_F_INTEGER) ? 32 : s->len; unsigned int last_change_delta; if(lt->clock_compress) if((s->len==1)&&(s->rows==0)) /* possible clock handling */ { int ivalue = value&1; if(((s->clk_prevval == '1') && (ivalue==0)) || ((s->clk_prevval == '0') && (ivalue==1))) { if(s->clk_prevtrans==-1) { s->clk_prevtrans = lt->timeval; s->clk_numtrans = 0; } else if(s->clk_numtrans == 0) { s->clk_delta = lt->timeval - s->clk_prevtrans; s->clk_prevtrans = lt->timeval; s->clk_numtrans++; } else { if(s->clk_delta == (lt->timeval - s->clk_prevtrans)) { s->clk_numtrans++; s->clk_prevtrans = lt->timeval; if(s->clk_numtrans > LT_CLKPACK) { s->clk_prevval = ivalue + '0'; /* printf("Clock value '%d' for '%s' at %d (#%d)\n", ivalue, s->name, lt->timeval, s->clk_numtrans); */ return(1); } } else { if(s->clk_numtrans > LT_CLKPACK) { lt_flushclock(lt, s); /* flush clock then continue below! */ } else { s->clk_prevtrans=-1; } } } } else { if(s->clk_numtrans > LT_CLKPACK) { lt_flushclock(lt, s); /* flush clock then continue below! */ } else { s->clk_prevtrans=-1; } } s->clk_prevval = ivalue + '0'; } /* normal trace handling */ last_change_delta = lt->position - s->last_change - 2; if(last_change_delta >= 256*65536) { numbytes = 3; } else if(last_change_delta >= 65536) { numbytes = 2; } else if(last_change_delta >= 256) { numbytes = 1; } else { numbytes = 0; } if(len<=32) { int start_position = lt->position; int tag; int optimized0 = ((value<_optimask[len])==0); int optimized1 = ((value<_optimask[len])==lt_optimask[len]); int optimized = optimized0|optimized1; if(optimized) { tag = (numbytes<<4) | (3+optimized1); /* for x3 and x4 cases */ } else { tag = (numbytes<<4); } lt_emit_u8(lt, tag); switch(numbytes&3) { case 0: lt_emit_u8(lt, last_change_delta); break; case 1: lt_emit_u16(lt, last_change_delta); break; case 2: lt_emit_u24(lt, last_change_delta); break; case 3: lt_emit_u32(lt, last_change_delta); break; } s->last_change = start_position; if(s->rows>0) { if(s->rows >= 256*65536) { numbytes = 3; } else if(s->rows >= 65536) { numbytes = 2; } else if(s->rows >= 256) { numbytes = 1; } else { numbytes = 0; } switch(numbytes&3) { case 0: lt_emit_u8(lt, row); break; case 1: lt_emit_u16(lt, row); break; case 2: lt_emit_u24(lt, row); break; case 3: lt_emit_u32(lt, row); break; } } if(!optimized) { if(len<9) { value <<= (8-len); rc=lt_emit_u8(lt, value); } else if(len<17) { value <<= (16-len); rc=lt_emit_u16(lt, value); } else if(len<25) { value <<= (24-len); rc=lt_emit_u24(lt, value); } else { value <<= (32-len); rc=lt_emit_u32(lt, value); } } } if(lt->timebuff) { lt->timechangecount++; if(lt->timecurr) { lt->timecurr->next = lt->timebuff; lt->timecurr = lt->timebuff; } else { lt->timehead = lt->timecurr = lt->timebuff; } lt->timebuff=NULL; } } return(rc); } int lt_emit_value_double(struct lt_trace *lt, struct lt_symbol *s, unsigned int row, double value) { int rc=0; int start_position; int tag; if((!lt)||(!s)) return(rc); while(s->aliased_to) /* find root alias if exists */ { s=s->aliased_to; } if((s->flags)<_SYM_F_DOUBLE) { int numbytes; /* number of bytes to store value minus one */ unsigned int last_change_delta = lt->position - s->last_change - 2; if(last_change_delta >= 256*65536) { numbytes = 3; } else if(last_change_delta >= 65536) { numbytes = 2; } else if(last_change_delta >= 256) { numbytes = 1; } else { numbytes = 0; } start_position = lt->position; tag = (numbytes<<4); lt_emit_u8(lt, tag); switch(numbytes&3) { case 0: lt_emit_u8(lt, last_change_delta); break; case 1: lt_emit_u16(lt, last_change_delta); break; case 2: lt_emit_u24(lt, last_change_delta); break; case 3: lt_emit_u32(lt, last_change_delta); break; } s->last_change = start_position; if(s->rows>0) { if(s->rows >= 256*65536) { numbytes = 3; } else if(s->rows >= 65536) { numbytes = 2; } else if(s->rows >= 256) { numbytes = 1; } else { numbytes = 0; } switch(numbytes&3) { case 0: lt_emit_u8(lt, row); break; case 1: lt_emit_u16(lt, row); break; case 2: lt_emit_u24(lt, row); break; case 3: lt_emit_u32(lt, row); break; } } rc=lt_emit_double(lt, value); if(lt->timebuff) { lt->timechangecount++; if(lt->timecurr) { lt->timecurr->next = lt->timebuff; lt->timecurr = lt->timebuff; } else { lt->timehead = lt->timecurr = lt->timebuff; } lt->timebuff=NULL; } } return(rc); } int lt_emit_value_string(struct lt_trace *lt, struct lt_symbol *s, unsigned int row, char *value) { int rc=0; int start_position; int tag; if((!lt)||(!s)||(!value)) return(rc); while(s->aliased_to) /* find root alias if exists */ { s=s->aliased_to; } if((s->flags)<_SYM_F_STRING) { int numbytes; /* number of bytes to store value minus one */ unsigned int last_change_delta = lt->position - s->last_change - 2; if(last_change_delta >= 256*65536) { numbytes = 3; } else if(last_change_delta >= 65536) { numbytes = 2; } else if(last_change_delta >= 256) { numbytes = 1; } else { numbytes = 0; } start_position = lt->position; tag = (numbytes<<4); lt_emit_u8(lt, tag); switch(numbytes&3) { case 0: lt_emit_u8(lt, last_change_delta); break; case 1: lt_emit_u16(lt, last_change_delta); break; case 2: lt_emit_u24(lt, last_change_delta); break; case 3: lt_emit_u32(lt, last_change_delta); break; } s->last_change = start_position; if(s->rows>0) { if(s->rows >= 256*65536) { numbytes = 3; } else if(s->rows >= 65536) { numbytes = 2; } else if(s->rows >= 256) { numbytes = 1; } else { numbytes = 0; } switch(numbytes&3) { case 0: lt_emit_u8(lt, row); break; case 1: lt_emit_u16(lt, row); break; case 2: lt_emit_u24(lt, row); break; case 3: lt_emit_u32(lt, row); break; } } rc=lt_emit_string(lt, value); if(lt->timebuff) { lt->timechangecount++; if(lt->timecurr) { lt->timecurr->next = lt->timebuff; lt->timecurr = lt->timebuff; } else { lt->timehead = lt->timecurr = lt->timebuff; } lt->timebuff=NULL; } } return(rc); } int lt_emit_value_bit_string(struct lt_trace *lt, struct lt_symbol *s, unsigned int row, char *value) { int rc=0; int start_position; int tag, tagadd; if((!lt)||(!s)||(!value)) return(rc); while(s->aliased_to) /* find root alias if exists */ { s=s->aliased_to; } if(!(s->flags&(LT_SYM_F_DOUBLE|LT_SYM_F_STRING))) { int numbytes; /* number of bytes to store value minus one */ char *pnt; int mvl=0; char ch; char prevch; unsigned int last_change_delta; if(lt->clock_compress) if((s->len==1)&&(s->rows==0)) /* possible clock handling */ { if(((s->clk_prevval == '1') && (value[0]=='0')) || ((s->clk_prevval == '0') && (value[0]=='1'))) { if(s->clk_prevtrans==-1) { s->clk_prevtrans = lt->timeval; s->clk_numtrans = 0; } else if(s->clk_numtrans == 0) { s->clk_delta = lt->timeval - s->clk_prevtrans; s->clk_prevtrans = lt->timeval; s->clk_numtrans++; } else { if(s->clk_delta == (lt->timeval - s->clk_prevtrans)) { s->clk_numtrans++; s->clk_prevtrans = lt->timeval; if(s->clk_numtrans > LT_CLKPACK) { s->clk_prevval = value[0]; /* printf("Clock value '%c' for '%s' at %d (#%d)\n", value[0], s->name, lt->timeval, s->clk_numtrans); */ return(1); } } else { if(s->clk_numtrans > LT_CLKPACK) { lt_flushclock(lt, s); /* flush clock then continue below! */ } else { s->clk_prevtrans=-1; } } } } else { if(s->clk_numtrans > LT_CLKPACK) { lt_flushclock(lt, s); /* flush clock then continue below! */ } else { s->clk_prevtrans=-1; } } s->clk_prevval = value[0]; } /* normal trace handling */ last_change_delta = lt->position - s->last_change - 2; if(last_change_delta >= 256*65536) { numbytes = 3; } else if(last_change_delta >= 65536) { numbytes = 2; } else if(last_change_delta >= 256) { numbytes = 1; } else { numbytes = 0; } pnt = value; prevch = *pnt; while((ch=*(pnt++))) { switch(ch) { case '0': case '1': mvl|=LT_MVL_2; break; case 'Z': case 'z': case 'X': case 'x': mvl|=LT_MVL_4; break; default: mvl|=LT_MVL_9; break; } if(prevch!=ch) prevch = 0; } switch(prevch) { case 0x00: tagadd = 0; break; case '0': tagadd = 3; break; case '1': tagadd = 4; break; case 'Z': case 'z': tagadd = 5; break; case 'X': case 'x': tagadd = 6; break; case 'H': case 'h': tagadd = 7; break; case 'U': case 'u': tagadd = 8; break; case 'W': case 'w': tagadd = 9; break; case 'L': case 'l': tagadd = 0xa; break; default: tagadd = 0xb; break; } if(mvl) { start_position = lt->position; if(tagadd) { tag = (numbytes<<4) + tagadd; } else { tag = (numbytes<<4) + ((mvl<_MVL_9)? 2 : ((mvl<_MVL_4)? 1 : 0)); } lt_emit_u8(lt, tag); switch(numbytes&3) { case 0: lt_emit_u8(lt, last_change_delta); break; case 1: lt_emit_u16(lt, last_change_delta); break; case 2: lt_emit_u24(lt, last_change_delta); break; case 3: lt_emit_u32(lt, last_change_delta); break; } s->last_change = start_position; if(s->rows>0) { if(s->rows >= 256*65536) { numbytes = 3; } else if(s->rows >= 65536) { numbytes = 2; } else if(s->rows >= 256) { numbytes = 1; } else { numbytes = 0; } switch(numbytes&3) { case 0: lt_emit_u8(lt, row); break; case 1: lt_emit_u16(lt, row); break; case 2: lt_emit_u24(lt, row); break; case 3: lt_emit_u32(lt, row); break; } } if(!tagadd) { int len = ((s->flags)<_SYM_F_INTEGER) ? 32 : s->len; if((mvl & (LT_MVL_2|LT_MVL_4|LT_MVL_9)) == LT_MVL_2) { int i; int bitpos = 7; int outval = 0; int thisval= 0; pnt = value; for(i=0;itimebuff) { lt->timechangecount++; if(lt->timecurr) { lt->timecurr->next = lt->timebuff; lt->timecurr = lt->timebuff; } else { lt->timehead = lt->timecurr = lt->timebuff; } lt->timebuff=NULL; } } return(rc); } gpsim-0.27.0/src/pic-ioports.cc0000664000076400007640000004074112175377101013232 00000000000000/* Copyright (C) 1998 Scott Dattalo Copyright (C) 2009 Roy R. Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include #include #include "../config.h" #include "pic-processor.h" #include "14bit-processors.h" // %%% FIXME %%% remove the dependencies on this #include "pic-ioports.h" #include "interface.h" #include "psp.h" #include "xref.h" //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("%s:%d ",__FILE__,__LINE__); printf arg; } #else #define Dprintf(arg) {} #endif //------------------------------------------------------------------- // // ioports.cc // // The ioport infrastructure for gpsim is provided here. The class // taxonomy for the IOPORT class is: // // file_register // |-> sfr_register // |-> IOPORT // |-> PORTA // |-> PORTB // |-> PORTC // |-> PORTD // |-> PORTE // |-> PORTF // // Each I/O port has an associated array of I/O pins which provide an // interface to the virtual external world of the stimuli. // //------------------------------------------------------------------- class PicSignalSource : public SignalControl { public: PicSignalSource(PortRegister *_reg, unsigned int bitPosition) : m_register(_reg), m_bitMask(1<getDriving()&m_bitMask)!=0)?'1':'0') : 'Z'; /**/ Dprintf(("PicSignalSource::getState() %s bitmask:0x%x state:%c\n", (m_register?m_register->name().c_str():"NULL"), m_bitMask,r)); /**/ return r; } void release() { delete this; } private: PortRegister *m_register; unsigned int m_bitMask; }; //------------------------------------------------------------------------ PicPortRegister::PicPortRegister(Processor *pCpu, const char *pName, const char *pDesc, /*const char *port_name,*/ unsigned int numIopins, unsigned int enableMask) : PortRegister(pCpu, pName, pDesc,numIopins, false), m_tris(0) { setEnableMask(enableMask); } class PicSignalControl : public SignalControl { public: PicSignalControl(PicTrisRegister *_reg, unsigned int bitPosition) : m_register(_reg), m_bitMask(1<get3StateBit(m_bitMask) : '?'; } virtual void release() { delete this; } private: PicTrisRegister *m_register; unsigned int m_bitMask; }; void PicPortRegister::setTris(PicTrisRegister *new_tris) { if (!m_tris) m_tris = new_tris; unsigned int mask = getEnableMask(); for (unsigned int i=0, m = 1; isetTris(this); } void PicTrisRegister::put(unsigned int new_value) { trace.raw(write_trace.get() | value.data); value.put((value.get() & ~m_EnableMask) | (new_value & m_EnableMask)); if (m_port) m_port->updatePort(); } void PicTrisRegister::put_value(unsigned int new_value) { value.put(new_value & m_EnableMask); if (m_port) m_port->updatePort(); } unsigned int PicTrisRegister::get() { trace.raw(read_trace.get() | value.data); return value.data; } void PicTrisRegister::setEnableMask(unsigned int enableMask) { m_EnableMask = enableMask; } char PicTrisRegister::get3StateBit(unsigned int bitMask) { RegisterValue rv = getRV_notrace(); unsigned int enabled = bitMask & m_EnableMask; if (!enabled) return '1'; return (rv.init&enabled) ? '?' : (rv.data&enabled ? '1': '0'); } void PicTrisRegister::reset(RESET_TYPE r) { if (!(m_bIgnoreWDTResets && r==WDT_RESET)) putRV(por_value); } //------------------------------------------------------------------------ PicPSP_TrisRegister::PicPSP_TrisRegister(Processor *pCpu, const char *pName, const char *pDesc, /*const char *tris_name, */ PicPortRegister *_port, bool bIgnoreWDTResets) : PicTrisRegister(pCpu, pName, pDesc,_port,bIgnoreWDTResets) { } // If not in PSPMODE, OBF and IBF are always clear // When in PSPMODE, OBF and IBF can only be cleared by reading and writing // to the PSP parallel port and are set by bus transfers. // void PicPSP_TrisRegister::put(unsigned int new_value) { unsigned int mask = (PSP::OBF | PSP::IBF); unsigned int fixed; trace.raw(write_trace.get() | value.data); if (! (new_value & PSP::PSPMODE)) fixed = 0; else fixed = value.data & mask; value.data = (new_value & ~mask) | fixed; if (m_port) m_port->updatePort(); } // used by gpsim to change register value void PicPSP_TrisRegister::put_value(unsigned int new_value) { trace.raw(write_trace.get() | value.data); value.data = new_value; if (m_port) m_port->updatePort(); } unsigned int PicPSP_TrisRegister::get(void) { return value.data; } //------------------------------------------------------------------------ PicPortBRegister::PicPortBRegister(Processor *pCpu, const char *pName, const char *pDesc, INTCON *pIntcon, unsigned int numIopins, unsigned int enableMask, INTCON2 *pIntcon2, INTCON3 *pIntcon3) : PicPortRegister(pCpu, pName, pDesc, numIopins, enableMask), m_bRBPU(false), m_bIntEdge(true), m_bsRBPU(0), m_pIntcon(pIntcon), m_pIntcon2(pIntcon2), m_pIntcon3(pIntcon3) { assert(m_pIntcon); } PicPortBRegister::~PicPortBRegister() { delete m_bsRBPU; } //------------------------------------------------------------------------ void PicPortBRegister::put(unsigned int new_value) { trace.raw(write_trace.get() | value.data); m_pIntcon->set_rbif(false); // unsigned int diff = mEnableMask & (new_value ^ value.data); //RRR if(diff) { drivingValue = new_value & mEnableMask; value.data = drivingValue; // If no stimuli are connected to the Port pins, then the driving // value and the driven value are the same. If there are external // stimuli (or perhaps internal peripherals) overdriving or overriding // this port, then the call to updatePort() will update 'drivenValue' // to its proper value. updatePort(); //RRR } } unsigned int PicPortBRegister::get() { m_pIntcon->set_rbif(false); return mOutputMask & rvDrivenValue.data; } //------------------------------------------------------------------------ // setbit // FIXME - a sink should be created for the intf and rbif functions. void PicPortBRegister::setbit(unsigned int bit_number, char new3State) { Dprintf(("PicPortBRegister::setbit() bit=%d,val=%c bIntEdge=%d\n",bit_number,new3State, m_bIntEdge)); // interrupt bit 0 on specified edge bool bNewValue = new3State=='1' || new3State=='W'; RegisterValue lastDrivenValue = rvDrivenValue; PortRegister::setbit(bit_number, new3State); if (m_pIntcon3) { bool drive = (lastDrivenValue.data&(1 << bit_number)) ; bool level; int intcon2 = m_pIntcon2->value.get(); int intcon3 = m_pIntcon3->value.get(); switch(bit_number) { case 0: level = intcon2 & INTCON2::INTEDG0; if ((drive != level) && (bNewValue == level)) { cpu_pic->exit_sleep(); m_pIntcon->set_intf(true); // if (((intcon3 & INTCON::INTE) == 0) || // (m_pIntcon->value.get() & INTCON_16::GIEH) == 0) // return; // Interrupts are disabled // ((INTCON_16 *)m_pIntcon)->set_interrupt_vector(INTERRUPT_VECTOR_HI); // cpu_pic->BP_set_interrupt(); } return; break; case 1: level = intcon2 & INTCON2::INTEDG1; if ((drive != level) && (bNewValue == level)) { cpu_pic->exit_sleep(); m_pIntcon3->set_int1f(true); if (((intcon3 & INTCON3::INT1IE) == 0) || (m_pIntcon->value.get() & INTCON_16::GIEH) == 0) return; // Interrupts are disabled if (intcon3 & INTCON3::INT1IP) //priority interrupt { ((INTCON_16 *)m_pIntcon)->set_interrupt_vector(INTERRUPT_VECTOR_HI); cpu_pic->BP_set_interrupt(); } else if ((m_pIntcon->value.get() & INTCON_16::GIEL) != 0) { ((INTCON_16 *)m_pIntcon)->set_interrupt_vector(INTERRUPT_VECTOR_LO); cpu_pic->BP_set_interrupt(); } } return; break; case 2: level = intcon2 & INTCON2::INTEDG2; if ((drive != level) && (bNewValue == level)) { cpu_pic->exit_sleep(); m_pIntcon3->set_int2f(true); if (((intcon3 & INTCON3::INT2IE) == 0) || (m_pIntcon->value.get() & INTCON_16::GIEH) == 0) return; // Interrupts are disabled if (intcon3 & INTCON3::INT2IP) //priority interrupt { ((INTCON_16 *)m_pIntcon)->set_interrupt_vector(INTERRUPT_VECTOR_HI); cpu_pic->BP_set_interrupt(); } else if ((m_pIntcon->value.get() & INTCON_16::GIEL) != 0) { ((INTCON_16 *)m_pIntcon)->set_interrupt_vector(INTERRUPT_VECTOR_LO); cpu_pic->BP_set_interrupt(); } } return; break; case 3: level = intcon2 & INTCON2::INTEDG3; if ((drive != level) && (bNewValue == level)) { cpu_pic->exit_sleep(); m_pIntcon3->set_int3f(true); if (((intcon3 & INTCON3::INT3IE) == 0) || (m_pIntcon->value.get() & INTCON_16::GIEH) == 0) return; // Interrupts are disabled if (intcon2 & INTCON2::INT3IP) //priority interrupt { ((INTCON_16 *)m_pIntcon)->set_interrupt_vector(INTERRUPT_VECTOR_HI); cpu_pic->BP_set_interrupt(); } else if ((m_pIntcon->value.get() & INTCON_16::GIEL) != 0) { ((INTCON_16 *)m_pIntcon)->set_interrupt_vector(INTERRUPT_VECTOR_LO); cpu_pic->BP_set_interrupt(); } } return; break; } } if (bit_number == 0 && (((lastDrivenValue.data&1)==1)!=m_bIntEdge) && (bNewValue == m_bIntEdge)) { cpu_pic->exit_sleep(); m_pIntcon->set_intf(true); } // interrupt and exit sleep level change top 4 bits on input unsigned int bitMask = (1<get_value() & bitMask ) { cpu_pic->exit_sleep(); m_pIntcon->set_rbif(true); } } class RBPUBitSink : public BitSink { PicPortBRegister *m_pPortB; public: RBPUBitSink(PicPortBRegister *pPortB) : m_pPortB(pPortB) {} void setSink(bool b) { if (m_pPortB) m_pPortB->setRBPU(b); } }; void PicPortBRegister::assignRBPUSink(unsigned int bitPos, sfr_register *pSFR) { if (pSFR && !m_bsRBPU) { m_bsRBPU = new RBPUBitSink(this); if (!pSFR->assignBitSink(bitPos, m_bsRBPU)) { delete m_bsRBPU; m_bsRBPU = 0; } } } void PicPortBRegister::setRBPU(bool bNewRBPU) { m_bRBPU = !bNewRBPU; Dprintf(("PicPortBRegister::setRBPU() =%d\n",(m_bRBPU?1:0))); unsigned int mask = getEnableMask(); for (unsigned int i=0, m=1; mask; i++, m<<= 1) if (mask & m) { mask ^= m; operator[](i).getPin().update_pullup(m_bRBPU ? '1' : '0',true); } } void PicPortBRegister::setIntEdge(bool bNewIntEdge) { m_bIntEdge = bNewIntEdge; } // set_rbif involves RBIF,RBIE in INTCON which are the same bits as GPIF,GPIE void PicPortGRegister::setbit(unsigned int bit_number, char new3State) { // interrupt bit 2 on specified edge bool bNewValue = new3State=='1' || new3State=='W'; if (bit_number == 2 && (((rvDrivenValue.data&4)==4)!=m_bIntEdge) && (bNewValue == m_bIntEdge)) m_pIntcon->set_intf(true); RegisterValue lastDrivenValue = rvDrivenValue; PortRegister::setbit(bit_number, new3State); // interrupt and exit sleep for level change on bits where IOC set bool bitMask = m_pIoc->get_value() & (1 << bit_number); if (verbose) printf("PicPortGRegister::setbit() bit=%d,val=%c IOC_bit=%x\n",bit_number,new3State, bitMask); if ( (lastDrivenValue.data ^ rvDrivenValue.data) & m_tris->get_value() & bitMask ) { cpu_pic->exit_sleep(); m_pIntcon->set_rbif(true); } } void PicPortIOCRegister::setbit(unsigned int bit_number, char new3State) { int lastDrivenValue = rvDrivenValue.data & (1 << bit_number); PortRegister::setbit(bit_number, new3State); int newDrivenValue = rvDrivenValue.data & (1 << bit_number); if (verbose) printf("PicPortIOCRegister::setbit() bit=%d,val=%c IOC_+=%x IOC_-=%x\n",bit_number,new3State, m_Iocap->get_value() & (1<get_value() & (1< lastDrivenValue) // positive edge { if ( m_tris->get_value() & (m_Iocap->get_value() & (1 << bit_number))) { cpu_pic->exit_sleep(); m_pIntcon->set_rbif(true); m_Iocaf->put(m_Iocaf->get_value() | (1 << bit_number)); } } else if ( newDrivenValue < lastDrivenValue) // negative edge { if ( m_tris->get_value() & (m_Iocan->get_value() & (1 << bit_number))) { cpu_pic->exit_sleep(); m_pIntcon->set_rbif(true); m_Iocaf->put(m_Iocaf->get_value() | (1 << bit_number)); } } } PicPSP_PortRegister::PicPSP_PortRegister(Processor *pCpu, const char *pName, const char *pDesc, /*const char *port_name,*/ unsigned int numIopins, unsigned int enableMask) : PortRegister(pCpu, pName, pDesc,numIopins, false), m_tris(0), m_psp(0) { setEnableMask(enableMask); } void PicPSP_PortRegister::put(unsigned int new_value) { trace.raw(write_trace.get() | value.data); unsigned int diff = mEnableMask & (new_value ^ value.data); if (m_psp && m_psp->pspmode()) { m_psp->psp_put(new_value); } else if(diff) { drivingValue = new_value & mEnableMask; value.data = drivingValue; // If no stimuli are connected to the Port pins, then the driving // value and the driven value are the same. If there are external // stimuli (or perhaps internal peripherals) overdriving or overriding // this port, then the call to updatePort() will update 'drivenValue' // to its proper value. updatePort(); } } unsigned int PicPSP_PortRegister::get() { if (m_psp && m_psp->pspmode()) return(m_psp->psp_get()); return rvDrivenValue.data; } void PicPSP_PortRegister::setTris(PicTrisRegister *new_tris) { if (!m_tris) m_tris = new_tris; unsigned int mask = getEnableMask(); for (unsigned int i=0, m = 1; iput_value(value.data); } void PicLatchRegister::put_value(unsigned int new_value) { value.data = new_value & m_EnableMask; m_port->put_value(value.data); } unsigned int PicLatchRegister::get() { value.data = m_port->getDriving(); trace.raw(read_trace.get() | value.data); trace.raw(read_trace.geti() | value.init); return value.data; } void PicLatchRegister::setbit(unsigned int bit_number, char new_value) { printf("PicLatchRegister::setbit() -- shouldn't be called\n"); } void PicLatchRegister::setEnableMask(unsigned int nEnableMask) { m_EnableMask = nEnableMask; } gpsim-0.27.0/src/p16f87x.h0000664000076400007640000001505612175377101011750 00000000000000/* Copyright (C) 1998-2000 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __P16F87X_H__ #define __P16F87X_H__ #include "p16x7x.h" #include "eeprom.h" #include "comparator.h" class IOPORT; class P16F871 : public P16C64 // The 74 has too much RAM and too many CCPs { public: // XXX // This pir1_2, pir2_2 stuff is not particularly pretty. It would be // better to just tell C++ to redefine pir1 and pir2 and PIR1v2 and // PIR2v2, but C++ only supports covariance in member function return // values. PIR2v2 *pir2_2_reg; virtual PIR *get_pir2() { return (pir2_2_reg); } ADCON0 adcon0; ADCON1 adcon1; sfr_register adres; sfr_register adresl; USART_MODULE usart; // That now brings us up to spec with the 74 as far as we need to be virtual void set_out_of_range_pm(unsigned int address, unsigned int value); virtual PROCESSOR_TYPE isa(){return _P16F871_;}; virtual unsigned int program_memory_size() const { return 0x0800; }; virtual void create_symbols(); void create_sfr_map(); void create(); virtual unsigned int register_memory_size () const { return 0x200;}; P16F871(const char *_name=0, const char *desc=0); ~P16F871(); static Processor *construct(const char *name); virtual void set_eeprom(EEPROM *ep) { // use set_eeprom_wide as P16F871 expect a wide EEPROM assert(0); } virtual void set_eeprom_wide(EEPROM_WIDE *ep) { eeprom = ep; } virtual EEPROM_WIDE *get_eeprom() { return ((EEPROM_WIDE *)eeprom); } private: }; class P16F873 : public P16C73 { public: sfr_register adresl; virtual void set_out_of_range_pm(unsigned int address, unsigned int value); virtual PROCESSOR_TYPE isa(){return _P16F873_;}; virtual unsigned int program_memory_size() const { return 0x1000; }; virtual void create_symbols(); void create_sfr_map(); void create(); virtual unsigned int register_memory_size () const { return 0x200;}; P16F873(const char *_name=0, const char *desc=0); ~P16F873(); virtual void set_eeprom(EEPROM *ep) { // use set_eeprom_wide as P16F873 expect a wide EEPROM assert(0); } virtual void set_eeprom_wide(EEPROM_WIDE *ep) { eeprom = ep; } virtual EEPROM_WIDE *get_eeprom() { return ((EEPROM_WIDE *)eeprom); } static Processor *construct(const char *name); private: }; class P16F873A : public P16F873 { public: ComparatorModule comparator; virtual PROCESSOR_TYPE isa(){return _P16F873A_;}; void create_sfr_map(); void create(); P16F873A(const char *_name=0, const char *desc=0); ~P16F873A(); static Processor *construct(const char *name); }; class P16F876 : public P16C73 { public: sfr_register adresl; virtual void set_out_of_range_pm(unsigned int address, unsigned int value); virtual PROCESSOR_TYPE isa(){return _P16F876_;}; virtual unsigned int program_memory_size() const { return 0x2000; }; virtual void create_symbols(); void create_sfr_map(); void create(); virtual unsigned int register_memory_size () const { return 0x200;}; P16F876(const char *_name=0, const char *desc=0); ~P16F876(); static Processor *construct(const char *name); virtual void set_eeprom(EEPROM *ep) { // use set_eeprom_wide as P16F873 expect a wide EEPROM assert(0); } virtual void set_eeprom_wide(EEPROM_WIDE *ep) { eeprom = ep; } virtual EEPROM_WIDE *get_eeprom() { return ((EEPROM_WIDE *)eeprom); } }; class P16F876A : public P16F873A { public: ComparatorModule comparator; virtual PROCESSOR_TYPE isa(){return _P16F876A_;}; virtual unsigned int program_memory_size() const { return 0x2000; }; void create_sfr_map(); void create(); virtual unsigned int register_memory_size () const { return 0x200;}; P16F876A(const char *_name=0, const char *desc=0); ~P16F876A(); static Processor *construct(const char *name); }; class P16F874 : public P16C74 { public: ComparatorModule comparator; sfr_register adresl; virtual void set_out_of_range_pm(unsigned int address, unsigned int value); virtual PROCESSOR_TYPE isa(){return _P16F874_;}; virtual unsigned int program_memory_size() const { return 0x1000; }; virtual void create_symbols(); void create_sfr_map(); void create(); virtual unsigned int register_memory_size () const { return 0x200;}; P16F874(const char *_name=0, const char *desc=0); ~P16F874(); static Processor *construct(const char *name); virtual void set_eeprom(EEPROM *ep) { // use set_eeprom_wide as P16F873 expect a wide EEPROM assert(0); } virtual void set_eeprom_wide(EEPROM_WIDE *ep) { eeprom = ep; } virtual EEPROM_WIDE *get_eeprom() { return ((EEPROM_WIDE *)eeprom); } //virtual bool hasSSP() { return true;} }; class P16F877 : public P16F874 { public: virtual PROCESSOR_TYPE isa(){return _P16F877_;}; virtual unsigned int program_memory_size() const { return 0x2000; }; virtual void create_symbols(); void create_sfr_map(); void create(); P16F877(const char *_name=0, const char *desc=0); ~P16F877(); static Processor *construct(const char *name); }; class P16F874A : public P16F874 { public: ComparatorModule comparator; virtual void set_out_of_range_pm(unsigned int address, unsigned int value); virtual PROCESSOR_TYPE isa(){return _P16F874A_;}; virtual unsigned int program_memory_size() const { return 0x1000; }; virtual void create_symbols(); void create_sfr_map(); void create(); virtual unsigned int register_memory_size () const { return 0x200;}; P16F874A(const char *_name=0, const char *desc=0); ~P16F874A(); static Processor *construct(const char *name); }; class P16F877A : public P16F874A { public: ComparatorModule comparator; virtual PROCESSOR_TYPE isa(){return _P16F877A_;}; virtual unsigned int program_memory_size() const { return 0x2000; }; virtual void create_symbols(); void create_sfr_map(); void create(); P16F877A(const char *_name=0, const char *desc=0); ~P16F877A(); static Processor *construct(const char *name); }; #endif gpsim-0.27.0/src/gpsim_object.cc0000644000076400007640000001027211401170177013414 00000000000000 /* Copyright (C) 2004 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include #include #include "../config.h" #include "gpsim_object.h" //======================================================================== gpsimObject::gpsimObject() : cpDescription(0) { } gpsimObject::gpsimObject(const char *_name, const char *desc) : cpDescription(desc) { if (_name) name_str = _name; } gpsimObject::~gpsimObject() { name_str.clear(); cpDescription = 0; } // The 'type' of any Viewable object is equivalent to the class name. string gpsimObject::showType() { const char* name; name = typeid(*this).name(); /* Unfortunately, the class name string returned by typeid() is * implementation-specific. If a particular compiler produces * ugly output, this is your chance to clean it up. */ #if defined __GNUC__ /* GNU C++ puts the length of the class name in front of the actual class name. We will skip over it for clarity. */ if (*name == 'N') // Class names with format N nn name nn name E { char buf[256]; int cnt; name++; buf[0] = 0; while (isdigit(*name)) { for(cnt = 0; isdigit(*name); name++) cnt = cnt * 10 + *name - '0'; strncat(buf, name, cnt); name += cnt; if (isdigit(*name)) strcat(buf, "::"); } name = buf; } else // just nn name { while (isdigit(*name)) name++; } #elif defined _MSC_VER /* From Visual C++ on line documentation The type_info::name member function returns a const char* to a null-terminated string representing the human-readable name of the type. The memory pointed to is cached and should never be directly deallocated. */ // Skip over the word 'class '. name += 6; #else #warning --->You might want to clean up the result of typeid() here... #endif return string(name); } string gpsimObject::show() { return showType() + ":" + toString(); } void gpsimObject::new_name(const char *s) { if(s) name_str = string(s); } void gpsimObject::new_name(string &new_name) { name_str = new_name; } char *gpsimObject::name(char *return_str, int len) { if(return_str) snprintf(return_str,len,"%s",name_str.c_str()); return return_str; } /// TEMPORARY -- remove after gpsimValue and Value have been merged. unsigned int gpsimObject::get_value() { return 0; } char *gpsimObject::toString(char *return_str, int len) { if(return_str) snprintf(return_str,len,"%s",toString().c_str()); return return_str; } char *gpsimObject::toBitStr(char *return_str, int len) { if(return_str) *return_str = 0; return return_str; } string &gpsimObject::name(void) const { return (string &)name_str; } string gpsimObject::toString() { //return showType(); char buff[64]; snprintf(buff,sizeof(buff), " = 0x%x",get_value()); string s = name() + string(buff); return s; } // If derived classes don't redefine set_break and clear_break then // the default behavior is to not support these capabilities. int gpsimObject::set_break(ObjectBreakTypes bt, ObjectActionTypes at, Expression *expr) { //cout << showType() << " objects do not support break points\n"; return -1; } int gpsimObject::clear_break() { //cout << showType() << " objects do not support break points\n"; return -1; } string gpsimObject::description() { if(cpDescription) return string(cpDescription); else return string("no description"); } void gpsimObject::set_description(const char *new_description) { cpDescription = new_description; } gpsim-0.27.0/src/ValueCollections.cc0000644000076400007640000001606011407760707014235 00000000000000/* Copyright (C) 1998-2004 Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include "ValueCollections.h" #include "symbol.h" #include "registers.h" IIndexedCollection::IIndexedCollection(const char *pName, const char *pDesc, int iAddressRadix) : Value(pName, pDesc) { SetAddressRadix(iAddressRadix); } IIndexedCollection::IIndexedCollection(int iAddressRadix) { SetAddressRadix(iAddressRadix); } void IIndexedCollection::SetAddressRadix(int iRadix) { m_iAddressRadix = iRadix; if(iRadix == 16) { strcpy(m_szPrefix, "$"); } else { m_szPrefix[0] = 0; } } void IIndexedCollection::Set(Value * pValue) { unsigned int uUpper = GetUpperBound() + 1; for(unsigned int uIndex = GetLowerBound(); uIndex < uUpper; uIndex++) { SetAt(uIndex, pValue); } } void IIndexedCollection::SetAt(ExprList_t* pIndexers, Expression *pExpr) { ExprList_t::iterator it; ExprList_t::iterator itEnd = pIndexers->end(); Value * pValue = pExpr->evaluate(); // _CT * pCTValue = dynamic_cast<_CT*>(pValue); // if(pCTValue != NULL) { for(it = pIndexers->begin(); it != itEnd; it++) { Value * pIndex = (*it)->evaluate(); Integer *pIntIndex = dynamic_cast(pIndex); if(pIntIndex != NULL) { SetAt(int(*pIntIndex), pValue); } else { AbstractRange *pRange = dynamic_cast(pIndex); if(pRange) { unsigned uEnd = pRange->get_rightVal() + 1; for(unsigned int uIndex = pRange->get_leftVal(); uIndex < uEnd; uIndex++) { SetAt(uIndex, pValue); } } else { /* register_symbol *pReg = dynamic_cast(pIndex); if(pReg) { SetAt(pReg->getReg()->address, pValue); } else { throw Error("indexer not valid"); } */ Register *pReg = dynamic_cast(pIndex); if (pReg) SetAt(pReg->getAddress(), pValue); else throw Error("indexer not valid"); } } if(pIndex != NULL) { delete pIndex; } } // } // else { // } delete pValue; } char *IIndexedCollection::toString(char *pBuffer, int len) { return strncpy(pBuffer, toString().c_str(), len); } string IIndexedCollection::toString() { int iColumnWidth = 0; vector asIndexes; vector asValue; ConsolidateValues(iColumnWidth, asIndexes, asValue); return toString(iColumnWidth, asIndexes, asValue); } string IIndexedCollection::toString(ExprList_t* pIndexerExprs) { try { ostringstream sOut; if(pIndexerExprs==NULL) { sOut << toString() << ends; return sOut.str(); } else { ExprList_t::iterator it; ExprList_t::iterator itEnd = pIndexerExprs->end(); for(it = pIndexerExprs->begin(); it != itEnd; it++) { Value * pIndex = (*it)->evaluate(); AbstractRange *pRange = dynamic_cast(pIndex); if(pRange) { unsigned uEnd = pRange->get_rightVal() + 1; for(unsigned int uIndex = pRange->get_leftVal(); uIndex < uEnd; uIndex++) { Value &Value = GetAt(uIndex); sOut << Value.name() << " = " << Value.toString() << endl; } continue; } String *pName = dynamic_cast(pIndex); Integer *pInt = pName ? globalSymbolTable().findInteger(pName->getVal()) : dynamic_cast(pIndex); Integer temp(0); if(pInt == NULL) { // This is a temp workaround. I (JR) would expect a register symbol // evaluate to an Integer object containing the value of the // register. It currently returns an object that is a copy // of the register_symbol object. /* register_symbol *pReg = dynamic_cast(pIndex); if(pReg) { gint64 i; pReg->get(i); temp.set(i); pInt = &temp; } */ Register *pReg = dynamic_cast(pIndex); if(pReg) { gint64 i = pReg->get_value(); temp.set(i); pInt = &temp; } } if(pInt) { unsigned int uIndex = (unsigned int)pInt->getVal(); if(bIsIndexInRange(uIndex)) { Value &Value = GetAt(uIndex); sOut << Value.name() << " = " << Value.toString() << endl; } else { sOut << "Error: Index " << uIndex << " is out of range" << endl; } } else { sOut << "Error: The index specified for '" << name() << "' does not contain a valid index." << endl; } delete pIndex; } } sOut << ends; return sOut.str(); } catch(Error e) { return e.toString(); } } void IIndexedCollection::PushValue(int iFirstIndex, int iCurrentIndex, Value *pValue, vector &asIndexes, vector &asValue) { ostringstream sIndex; if(m_iAddressRadix == 16) { sIndex << hex; } sIndex << Value::name() << "[" << m_szPrefix << iFirstIndex; if(iFirstIndex != iCurrentIndex) { sIndex << ".." << m_szPrefix << iCurrentIndex; } sIndex << "]" << ends; asIndexes.push_back(string(sIndex.str())); asValue.push_back(pValue->toString()); } string IIndexedCollection::ElementIndexedName(unsigned int iIndex) { ostringstream sIndex; if(m_iAddressRadix == 16) { sIndex << hex; } sIndex << Value::name() << "[" << m_szPrefix << iIndex; sIndex << "]" << ends; return sIndex.str(); } string IIndexedCollection::toString(int iColumnWidth, vector &asIndexes, vector &asValue) { ostringstream sOut; vector::iterator itValue; vector::iterator itElement; vector::iterator itElementEnd = asIndexes.end(); // Dump the consolidated element list for(itElement = asIndexes.begin(), itValue = asValue.begin(); itElement != itElementEnd; itElement++, itValue++) { sOut.width(iColumnWidth); sOut.setf(ios_base::left); sOut << (*itElement); sOut << " = "; sOut << (*itValue); if(itElement + 1 != itElementEnd) sOut << endl; } sOut << ends; return sOut.str(); } Integer * IIndexedCollection::FindInteger(const char *s) { return globalSymbolTable().findInteger(s); } gpsim-0.27.0/src/eeprom.h0000664000076400007640000001762412162224370012112 00000000000000/* Copyright (C) 1998-2003 Scott Dattalo 2003 Mike Durian 2013 Roy Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef EEPROM_H #define EEPROM_H #include #include "gpsim_classes.h" #include "registers.h" #include "breakpoints.h" class pic_processor; class EEPROM; class PIR_SET; class INTCON; class PIR; //--------------------------------------------------------- // EECON1 - EE control register 1 // class EECON1 : public sfr_register { public: enum { RD = (1<<0), WR = (1<<1), WREN = (1<<2), WRERR = (1<<3), EEIF = (1<<4), FREE = (1<<4), // 14 bit Extended LWLO = (1<<5), // "" CFGS = (1<<6), // "" EEPGD = (1<<7) }; EECON1(Processor *pCpu, const char *pName, const char *pDesc); void put(unsigned int new_value); unsigned int get(); inline void set_eeprom(EEPROM *ee) { eeprom = ee; } inline void set_valid_bits(unsigned int vb) { valid_bits = vb; } inline unsigned int get_valid_bits() { return (valid_bits); } inline void set_bits(unsigned int b) { valid_bits |= b; } inline void clear_bits(unsigned int b) { valid_bits &= ~b; } //private: unsigned int valid_bits; EEPROM *eeprom; }; const unsigned int EECON1_VALID_BITS = (EECON1::RD | EECON1::WR | EECON1::WREN | EECON1::EEIF); // // EECON2 - EE control register 2 // class EECON2 : public sfr_register { public: enum EE_STATES { EENOT_READY, EEHAVE_0x55, EEREADY_FOR_WRITE, EEWRITE_IN_PROGRESS, EEUNARMED, EEREAD }; EECON2(Processor *pCpu, const char *pName, const char *pDesc); void put(unsigned int new_value); unsigned int get(); void ee_reset() { eestate = EENOT_READY;}; inline virtual void set_eeprom(EEPROM *ee) { eeprom = ee; } inline enum EE_STATES get_eestate() { return (eestate); } inline void unarm() { eestate = EEUNARMED; } inline void unready() { eestate = EENOT_READY; } inline void read() { eestate = EEREAD; } inline void start_write() { eestate = EEWRITE_IN_PROGRESS; } inline bool is_unarmed() { return (eestate == EEUNARMED); } inline bool is_not_ready() { return (eestate == EENOT_READY); } inline bool is_ready_for_write() { return (eestate == EEREADY_FOR_WRITE); } inline bool is_writing() { return (eestate == EEWRITE_IN_PROGRESS); } //private: EEPROM *eeprom; enum EE_STATES eestate; }; // // EEDATA - EE data register // class EEDATA : public sfr_register { public: EEDATA(Processor *pCpu, const char *pName, const char *pDesc); void put(unsigned int new_value); unsigned int get(); virtual void set_eeprom(EEPROM *ee) { eeprom = ee; } //private: EEPROM *eeprom; }; // // EEADR - EE address register // class EEADR : public sfr_register { public: EEADR(Processor *pCpu, const char *pName, const char *pDesc); void put(unsigned int new_value); unsigned int get(); virtual void set_eeprom(EEPROM *ee) { eeprom = ee; } //private: EEPROM *eeprom; }; //------------------------------------------------------------------------ //------------------------------------------------------------------------ const int EPROM_WRITE_TIME = 20; class EEPROM : public TriggerObject { public: EEPROM(Processor *pCpu); ~EEPROM(); void reset(RESET_TYPE); virtual void set_intcon(INTCON *ic); virtual void callback(); virtual void callback_print(){ cout << " EEPROM\n";} virtual void start_write(); virtual void write_is_complete(); virtual void start_program_memory_read(); virtual void initialize(unsigned int new_rom_size); virtual Register *get_register(unsigned int address); virtual void save_state(); inline virtual void change_rom(unsigned int offset, unsigned int val) { assert(offset < rom_size); rom[offset]->value.put(val); } inline int register_size() { return (rom_data_size); } inline void set_resister_size(int bytes) { rom_data_size = bytes; } inline virtual unsigned int get_rom_size() { return (rom_size); } // XXX might want to make get_rom a friend only to cli_dump inline virtual Register **get_rom() { return (rom); } inline virtual EECON1 *get_reg_eecon1() { return (&eecon1); } inline virtual EECON2 *get_reg_eecon2() { return (&eecon2); } inline virtual EEDATA *get_reg_eedata() { return (&eedata); } inline virtual EEADR *get_reg_eeadr() { return (&eeadr); } inline virtual EEADR *get_reg_eeadrh() { return 0; } // No eeadrh on basic EEPROM void dump(); //protected: char *name_str; Processor *cpu; INTCON *intcon; EECON1 eecon1; // The EEPROM consists of 4 control registers EECON2 eecon2; // on the F84 and 6 on the F877 EEDATA eedata; EEADR eeadr; Register **rom; // and the data area. RegisterCollection *m_UiAccessOfRom; // User access to the rom. int rom_data_size; // data width in bytes unsigned int rom_size; unsigned int wr_adr,wr_data; // latched adr and data for eewrites. unsigned int rd_adr; // latched adr for eereads. unsigned int abp; // break point number that's set during eewrites protected: virtual unsigned int get_address(void) { return eeadr.value.get(); }; }; /** * A class for the EEPROM in later devices with PIR-mapped status. Some of * these devices (e.g. 18F4620) have more than 256 bytes of EEPROM so this * class implements the eeadrh register too. This will not be used if the * EEPROM size is 256 or less. */ class EEPROM_PIR : public EEPROM { public: EEPROM_PIR(Processor *pCpu, PIR *); ~EEPROM_PIR(); // the 16f628 eeprom is identical to the 16f84 eeprom except // for the size and the location of EEIF. The size is taken // care of when the '628 is constructed, the EEIF is taken // care of here: virtual void start_write(); virtual void write_is_complete(); virtual void callback(); inline virtual EEADR *get_reg_eeadrh() { return (rom_size>256) ? (&eeadrh) : 0; } virtual void initialize(unsigned int new_rom_size); virtual void callback_print(){ cout << " EEPROM_PIR\n";} protected: PIR *m_pir; EEADR eeadrh; virtual unsigned int get_address(void) { return (rom_size <= 256 ) ? eeadr.value.get() : (eeadrh.value.get()<<8)+eeadr.value.get(); }; }; class EEPROM_WIDE : public EEPROM_PIR { public: EEPROM_WIDE(Processor *pCpu, PIR *); ~EEPROM_WIDE(); virtual void start_write(); virtual void callback(); virtual void callback_print(){ cout << " EEPROM_WIDE\n";} virtual void start_program_memory_read(); virtual void initialize(unsigned int new_rom_size); inline virtual EEADR *get_reg_eeadrh() { return (&eeadrh); } inline virtual EEDATA *get_reg_eedatah() { return (&eedatah); } //protected: EEDATA eedatah; }; class EEPROM_EXTND : public EEPROM_WIDE { public: EEPROM_EXTND(Processor *pCpu, PIR *); ~EEPROM_EXTND(); virtual void start_write(); virtual void start_program_memory_read(); virtual void callback(); virtual void callback_print(){ cout << " EEPROM_EXTND\n";} void initialize(unsigned int new_rom_size, int block_size, int num_latches, unsigned int cfg_word_base); void set_prog_wp(unsigned int adr) { prog_wp = adr;} #define LATCH_MT 0x7fff protected: int erase_block_size; int num_write_latches; unsigned int *write_latches; unsigned int config_word_base; unsigned int prog_wp; // program memory below this address is write protected }; #endif /* EEPROM_H */ gpsim-0.27.0/src/interface.h0000644000076400007640000000276411401131150012544 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __INTERFACE_H__ #define __INTERFACE_H__ /* * interface.h */ #include #include #include "modules.h" #include "symbol.h" typedef enum _REGISTER_TYPE { REGISTER_RAM, REGISTER_EEPROM } REGISTER_TYPE; struct file_context { char *name; /* file name */ FILE *file_ptr; int *line_seek; /* an array of offsets into the file that point to * the start of the source lines. */ int max_line; }; #include "cmd_gpsim.h" extern unsigned int gpsim_is_initialized; LIBGPSIM_EXPORT void initialization_is_complete(void); #define INVALID_VALUE 0xffffffff void gpsim_set_bulk_mode(int flag); extern const char *get_dir_delim(const char *path); LIBGPSIM_EXPORT int initialize_gpsim_core(); #endif /* __INTERFACE_H__ */ gpsim-0.27.0/src/ttoken.h0000644000076400007640000000401011401131150012072 00000000000000/* Copyright (C) 2004 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #if !defined(__TTOKEN_H__) #define __TTOKEN_H__ namespace gpsim { /// Token - a class used to synchronize two threads. /// Token will spawn a new thread and keep it synchronized /// with the thread that called it. In gpsim, the simulation /// engine is a single thread application. However, it's /// sometimes quite difficult to implement modules within the /// context of this thread. So modules that are instantiated /// from within the context of the simulator can use the Token /// class to spawn a new thread. /// /// Note - the underlying implementation depends on pthreads. /// However, that implementation is completely hidden with an /// opaque pointer to the PThreadWrapper object. This way, /// if it turns out that pthreads are not installed or there's /// another implementation preferred for the synchronization /// then it's easy to change with impacting the whole system. struct ThreadWrapper; class Token { public: Token(); /// Initialize - a wrapper for pthread create. void Initialize(void *(*child) (void *), void *data); /// void waitForChild(); void passToChild(); void passToParent(); void grab(); private: ThreadWrapper *thread; }; } // end of namespace gpsim #endif // !defined(__TTOKEN_H__) gpsim-0.27.0/src/pic-registers.cc0000664000076400007640000003036512123671772013547 00000000000000/* Copyright (C) 1998-2000 Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include #include "../config.h" #include "14bit-processors.h" #include "interface.h" #include "pic-registers.h" #include "clock_phase.h" //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("0x%06"PRINTF_GINT64_MODIFIER"X %s() ",cycles.get(),__FUNCTION__); printf arg; } #else #define Dprintf(arg) {} #endif //------------------------------------------------------------------------ // member functions for the Program_Counter base class //------------------------------------------------------------------------ // //-------------------------------------------------- Program_Counter::Program_Counter(const char *name, const char *desc, Module *pM) : Value(name,desc,pM) { if(verbose) cout << "pc constructor\n"; reset_address = 0; value = 0; pclath_mask = 0x1800; // valid pclath bits for branching in 14-bit cores instruction_phase = 0; xref().assign_data(this); trace_state = 0; trace_increment = 0; trace_branch = 0; trace_skip = 0; trace_other = 0; } Program_Counter::~Program_Counter() { if (cpu) cpu->removeSymbol(this); delete m_pPCTraceType; } //-------------------------------------------------- void Program_Counter::set_trace_command() { m_pPCTraceType = new PCTraceType(get_cpu(),1); unsigned int new_command = trace.allocateTraceType(m_pPCTraceType); trace_increment = new_command | (0<<16); trace_branch = new_command | (1<<16); trace_skip = new_command | (2<<16); trace_other = new_command | (3<<16); } //-------------------------------------------------- // increment - update the program counter. All non-branching instructions pass through here. // void Program_Counter::increment() { Dprintf(("PC=0x%x\n",value)); // Trace the value of the program counter before it gets changed. trace.raw(trace_increment | value); value = (value + 1); if (value == memory_size) // Some processors start at highest memory and roll over { printf("%s PC=0x%x >= memory size 0x%x\n", __FUNCTION__, value, memory_size); value = 0; } else if (value > memory_size) // assume this is a mistake { printf("%s PC=0x%x >= memory size 0x%x\n", __FUNCTION__, value, memory_size); bp.halt(); } // Update pcl. Note that we don't want to pcl.put() because that // will trigger a break point if there's one set on pcl. (A read/write // break point on pcl should not be triggered by advancing the program // counter). cpu_pic->pcl->value.put(value & 0xff); mCurrentPhase->setNextPhase(mExecute1Cycle); } //-------------------------------------------------- // skip - Does the same thing that increment does, except that it records the operation // in the trace buffer as a 'skip' instead of a 'pc update'. // void Program_Counter::skip() { Dprintf(("PC=0x%x\n",value)); // Trace the value of the program counter before it gets changed. trace.raw(trace_skip | value); if ((value + 2) >= memory_size) { printf("%s PC=0x%x >= memory size 0x%x\n", __FUNCTION__, value, memory_size); bp.halt(); } else mExecute2ndHalf->firstHalf( value + 2); } //-------------------------------------------------- // start_skip - The next instruction is going to be skipped // void Program_Counter::start_skip() { } //-------------------------------------------------- // set - The next instruction is at an arbitrary location. This method is used // by the command line parser--the GUI uses put_value directly. // void Program_Counter::set(Value *v) { int i; v->get(i); //printf ( "Assign %d to PC\n", i ); put_value ( i ); } //======================================================================== phaseExecute2ndHalf::phaseExecute2ndHalf(Processor *pcpu) : ProcessorPhase(pcpu), m_uiPC(0) { } phaseExecute2ndHalf::~phaseExecute2ndHalf() { } ClockPhase *phaseExecute2ndHalf::firstHalf(unsigned int uiPC) { Dprintf(("first half of 2 cycle instruction new PC=0x%x\n",uiPC)); ((pic_processor *)m_pcpu)->pc->value = uiPC; ((pic_processor *)m_pcpu)->pcl->value.put(uiPC&0xff); mCurrentPhase->setNextPhase(this); return this; } ClockPhase *phaseExecute2ndHalf::advance() { Dprintf(("second half of 2 cycle instruction\n")); mCurrentPhase->setNextPhase(mExecute1Cycle); get_cycles().increment(); return m_pNextPhase; } phaseExecuteInterrupt::phaseExecuteInterrupt(Processor *pcpu) : ProcessorPhase(pcpu), m_uiPC(0) { } phaseExecuteInterrupt::~phaseExecuteInterrupt() { } ClockPhase *phaseExecuteInterrupt::firstHalf(unsigned int uiPC) { Dprintf(("first half of Interrupt new PC=0x%x\n",uiPC)); ((pic_processor *)m_pcpu)->pc->value = uiPC; ((pic_processor *)m_pcpu)->pcl->value.put(uiPC&0xff); mCurrentPhase->setNextPhase(this); return this; } ClockPhase *phaseExecuteInterrupt::advance() { Dprintf(("second half of Interrupt\n")); mCurrentPhase->setNextPhase(mExecute1Cycle); get_cycles().increment(); return m_pNextPhase; } //-------------------------------------------------- // jump - update the program counter. All branching instructions except computed gotos // and returns go through here. void Program_Counter::jump(unsigned int new_address) { Dprintf(("PC=0x%x new 0x%x\n",value,new_address)); // Trace the value of the program counter before it gets changed. trace.raw(trace_branch | value); // Use the new_address and the cached pclath (or page select bits for 12 bit cores) // to generate the destination address: // see Update pcl comment in Program_Counter::increment() if (new_address >= memory_size) { printf("%s PC=0x%x >= memory size 0x%x\n", __FUNCTION__, new_address, memory_size); bp.halt(); } else mExecute2ndHalf->firstHalf(new_address); } //-------------------------------------------------- // interrupt - update the program counter. Like a jump, except pclath is ignored. // void Program_Counter::interrupt(unsigned int new_address) { Dprintf(("PC=0x%x 0x%x\n",value,new_address)); // Trace the value of the program counter before it gets changed. trace.raw(trace_branch | value); if (new_address >= memory_size) { printf("%s PC=0x%x >= memory size 0x%x\n", __FUNCTION__, new_address, memory_size); bp.halt(); } else mExecute2ndHalf->firstHalf(new_address); } //-------------------------------------------------- // computed_goto - update the program counter. Anytime the pcl register is written to // by the source code we'll pass through here. // void Program_Counter::computed_goto(unsigned int new_address) { Dprintf(("PC=0x%x new=0x%x\n",value,new_address)); // Trace the value of the program counter before it gets changed. trace.raw(trace_other | value); // Use the new_address and the cached pclath (or page select bits for 12 bit cores) // to generate the destination address: value = new_address | cpu_pic->get_pclath_branching_modpcl() ; if (value >= memory_size) { printf("%s PC=0x%x >= memory size 0x%x\n", __FUNCTION__, value, memory_size); bp.halt(); } // see Update pcl comment in Program_Counter::increment() cpu_pic->pcl->value.put(value & 0xff); // The instruction modifying the PCL will also increment the program counter. // So, pre-compensate the increment with a decrement: value--; // The computed goto is a 2-cycle operation. The first cycle occurs within // the instruction (i.e. via the ::increment() method). The second cycle occurs // here: mExecute2ndHalf->advance(); } //-------------------------------------------------- // new_address - write a new value to the program counter. All returns pass through here. // void Program_Counter::new_address(unsigned int new_address) { Dprintf(("PC=0x%x new 0x%x\n",value, new_address&0xffff)); // Trace the value of the program counter before it gets changed. trace.raw(trace_branch | value); if (new_address >= memory_size) { printf("%s PC=0x%x >= memory size 0x%x\n", __FUNCTION__, new_address, memory_size); bp.halt(); } else mExecute2ndHalf->firstHalf(new_address); } //-------------------------------------------------- // get_next - get the next address that is just pass the current one // (used by 'call' to obtain the return address) unsigned int Program_Counter::get_next() { unsigned int new_address = value + cpu_pic->program_memory[value]->instruction_size(); if (new_address >= memory_size) { printf("%s PC=0x%x >= memory size 0x%x\n", __FUNCTION__, new_address, memory_size); bp.halt(); } return( new_address); } //-------------------------------------------------- // put_value - Change the program counter without affecting the cycle counter // (This is what's called if the user changes the pc.) void Program_Counter::put_value(unsigned int new_value) { // FIXME #define PCLATH_MASK 0x1f Dprintf(("PC=0x%x new 0x%x\n",value, new_value&0xffff)); trace.raw(trace_other | value); if (new_value >= memory_size) { printf("%s PC=0x%x >= memory size 0x%x\n", __FUNCTION__, new_value, memory_size); bp.halt(); } value = new_value; cpu_pic->pcl->value.put(value & 0xff); cpu_pic->pclath->value.put((new_value >> 8) & PCLATH_MASK); cpu_pic->pcl->update(); cpu_pic->pclath->update(); update(); } void Program_Counter::reset() { //trace.program_counter(value); //FIXME value = reset_address; value = (value >= memory_size) ? value - memory_size : value; mExecute2ndHalf->firstHalf(value); } //======================================================================== // // Helper registers // PCHelper::PCHelper(Processor *pCpu,ProgramMemoryAccess *new_pma) : Register(pCpu, "PC", "Program Counter"), pma(new_pma) { assert(pma); } void PCHelper::put_value(unsigned int new_value) { // if(pma) pma->set_PC(new_value); } unsigned int PCHelper::get_value() { // if(pma) return pma->get_PC(); //return 0; } //-------------------------------------------------- // member functions for the OPTION base class //-------------------------------------------------- OPTION_REG::OPTION_REG(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc) { por_value = RegisterValue(0xff,0); wdtr_value = RegisterValue(0xff,0); // The chip reset will place the proper value here. value = RegisterValue(0,0); // por_value; } // make sure intial por_value does it's stuff void OPTION_REG::initialize() { cpu_pic->tmr0.new_prescale(); cpu_pic->wdt.set_postscale( (value.get() & PSA) ? (value.get() & ( PS2 | PS1 | PS0 )) : 0); cpu_pic->option_new_bits_6_7(value.get() & (T0CS | BIT6 | BIT7)); } void OPTION_REG::put(unsigned int new_value) { //FIXME trace OPTION for 12bit processors is broken. trace.raw(write_trace.get() | value.get()); unsigned int old_value = value.get(); value.put(new_value); // First, check the tmr0 clock source bit to see if we are changing from // internal to external (or vice versa) clocks. //if( (value ^ old_value) & T0CS) // cpu_pic->tmr0.new_clock_source(); // %%%FIX ME%%% - can changing the state of TOSE cause the timer to // increment if tmr0 is being clocked by an external clock? // Now check the rest of the tmr0 bits. if( (value.get() ^ old_value) & (T0CS | T0SE | PSA | PS2 | PS1 | PS0)) cpu_pic->tmr0.new_prescale(); if( (value.get() ^ old_value) & (PSA | PS2 | PS1 | PS0)) cpu_pic->wdt.set_postscale( (value.get() & PSA) ? (value.get() & ( PS2 | PS1 | PS0 )) : 0); if( (value.get() ^ old_value) & (T0CS | BIT6 | BIT7)) cpu_pic->option_new_bits_6_7(value.get() & (T0CS | BIT6 | BIT7)); } void OPTION_REG::reset(RESET_TYPE r) { putRV(por_value); } gpsim-0.27.0/src/14bit-instructions.h0000664000076400007640000002122512160746027014306 00000000000000/* Copyright (C) 1998 T. Scott Dattalo 2013 Roy R. Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ class instruction; // forward declaration for the include files that follow #ifndef __14BIT_INSTRUCTIONS_H__ #define __14BIT_INSTRUCTIONS_H__ #define REG_IN_INSTRUCTION_MASK 0x7f #define DESTINATION_MASK 0x80 #include "pic-instructions.h" #include "12bit-instructions.h" #include "14bit-registers.h" //--------------------------------------------------------- class ADDFSR : public instruction { public: ADDFSR(Processor *new_cpu, unsigned int new_opcode,const char *, unsigned int address); virtual bool isBase() { return true;} virtual void execute(); virtual char *name(char *,int); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) { return new ADDFSR(new_cpu,new_opcode,"addfsr", address); } protected: unsigned int m_fsr; unsigned int m_lit; Indirect_Addressing14 *ia; }; //--------------------------------------------------------- class ADDLW : public Literal_op { public: ADDLW(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(void); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new ADDLW(new_cpu,new_opcode, address);} }; //--------------------------------------------------------- class ADDWFC : public Register_op { public: ADDWFC(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new ADDWFC(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class BRA : public instruction { public: int destination_index; unsigned int absolute_destination_index; BRA(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual char *name(char *,int); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new BRA(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class BRW : public instruction { public: int destination_index; unsigned int absolute_destination_index; BRW(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual char *name(char *,int); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new BRW(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class ASRF : public Register_op { public: ASRF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new ASRF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class CALLW : public instruction { public: CALLW(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual bool isBase() { return true;} virtual void execute(); virtual char *name(char *,int); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) { return new CALLW(new_cpu,new_opcode,address); } }; //--------------------------------------------------------- class LSLF : public Register_op { public: LSLF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new LSLF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class LSRF : public Register_op { public: LSRF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new LSRF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class MOVIW : public instruction { public: MOVIW(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new MOVIW(new_cpu,new_opcode,address);} virtual char *name(char *,int); enum { PREINC, PREDEC, POSTINC, POSTDEC, DELTA }; protected: unsigned int m_fsr; int m_lit; unsigned int m_op; Indirect_Addressing14 *ia; }; //--------------------------------------------------------- class MOVWI : public instruction { public: MOVWI(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new MOVWI(new_cpu,new_opcode,address);} virtual char *name(char *,int); enum { PREINC, PREDEC, POSTINC, POSTDEC, DELTA }; protected: unsigned int m_fsr; int m_lit; unsigned int m_op; Indirect_Addressing14 *ia; }; //--------------------------------------------------------- class MOVLB : public Literal_op { public: MOVLB(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual char *name(char *return_str,int len); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new MOVLB(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class MOVLP : public Literal_op { public: MOVLP(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual char *name(char *return_str,int len); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new MOVLP(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class RESET : public instruction { public: RESET(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new RESET(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class RETFIE : public instruction { public: RETFIE(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(void); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new RETFIE(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class RETURN : public instruction { public: RETURN(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(void); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new RETURN(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class SUBLW : public Literal_op { public: SUBLW(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(void); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new SUBLW(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class SUBWFB : public Register_op { public: SUBWFB(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new SUBWFB(new_cpu,new_opcode,address);} }; #endif // __14BIT_INSTRUCTIONS_H__ gpsim-0.27.0/src/pic-registers.h0000644000076400007640000000453111401131150013356 00000000000000 /* Copyright (C) 1998-2000 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __PIC_REGISTERS_H__ #define __PIC_REGISTERS_H__ #include "gpsim_classes.h" #include "registers.h" #include "breakpoints.h" //------------------------------------------------------------------------ // // PCHelper // // The purpose of this class is to provide a register wrapper around the // program counter. On the low and mid range pics, the program counter spans // two registers. On the high end ones it spans 3. This class allows the // gui to treat the program counter as though if it's a single register. class PCHelper : public Register { public: PCHelper(Processor *pCpu, ProgramMemoryAccess *); virtual void put_value(unsigned int new_value); virtual unsigned int get_value(); virtual unsigned int register_size () const { return 2; } ProgramMemoryAccess *pma; }; //--------------------------------------------------------- // OPTION_REG - class OPTION_REG : public sfr_register { public: enum { PS0 = 1<<0, PS1 = 1<<1, PS2 = 1<<2, PSA = 1<<3, T0SE = 1<<4, T0CS = 1<<5, BIT6 = 1<<6, BIT7 = 1<<7 }; unsigned int prescale; OPTION_REG(Processor *pCpu, const char *pName, const char *pDesc=0); inline unsigned int get_prescale() { return value.get() & (PS0 | PS1 | PS2); } inline unsigned int get_psa() { return value.get() & PSA; } inline unsigned int get_t0cs() { return value.get() & T0CS; } inline unsigned int get_t0se() { return value.get() & T0SE; } virtual void put(unsigned int new_value); virtual void reset(RESET_TYPE r); virtual void initialize(); }; #endif gpsim-0.27.0/src/protocol.h0000644000076400007640000001006411401131150012435 00000000000000/* Copyright (C) 2004 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ // // protocol.h // #include #ifndef __PROTCOL_H__ #define __PROTCOL_H__ #ifdef putc #undef putc #endif /// gpsim protocol /// /// gpsim's protocol interface is designed to provide a way for clients /// that are not linked with gpsim to interface with gpsim. /// Basic types /// These are the fundamental types the protocol interface /// supports. enum eGPSIMObjectTypes { eGPSIM_TYPE_CHAR = 1, eGPSIM_TYPE_STRING, eGPSIM_TYPE_UINT32, eGPSIM_TYPE_UCHAR, eGPSIM_TYPE_BOOLEAN, eGPSIM_TYPE_INT32, eGPSIM_TYPE_INT64, eGPSIM_TYPE_UINT64, eGPSIM_TYPE_FLOAT, eGPSIM_TYPE_DOUBLE, eGPSIM_TYPE_OBJECT, eGPSIM_TYPE_CUSTOM, }; /// Socket Commands /// FIXME - document how these are used. /// enum eGPSIMSocketCommands { GPSIM_CMD_CREATE_NOTIFY_LINK = 0xE0, GPSIM_CMD_CREATE_CALLBACK_LINK = 0xE1, GPSIM_CMD_CREATE_SOCKET_LINK = 0xF0, GPSIM_CMD_REMOVE_SOCKET_LINK = 0xF1, GPSIM_CMD_QUERY_SOCKET_LINK = 0xF2, GPSIM_CMD_WRITE_TO_SOCKET_LINK = 0xF3, GPSIM_CMD_QUERY_SYMBOL = 0xF4, GPSIM_CMD_WRITE_TO_SYMBOL = 0xF5, GPSIM_CMD_RUN = 0xF6, GPSIM_CMD_RESET = 0xF7, }; /// PacketBuffer /// A packet buffer is an area of memory that gpsim and a client /// use to exchange information. The buffer consists of a sequence /// encoded GPSIMObjectTypes. Member functions for encoding and /// decoding each type. class PacketBuffer { public: PacketBuffer(unsigned int _size); ~PacketBuffer(); char * getBuffer() { return &buffer[index]; } unsigned int getSize() { return size-index; } void terminate(); void putc(char c) { if(index < size) buffer[index++] = c; } void putAt(int pos, char c) { if(pos >=0 && pos < (int) size) buffer[pos] = c; } void puts(const char *, int); /// advanceIndex() will move the index pointer forward void advanceIndex(unsigned int amount); bool bHasData() { return index!=0; } //private: char *buffer; unsigned int index; unsigned int size; }; class Packet { public: Packet(unsigned int rxsize, unsigned int txsize); bool DecodeHeader(); bool DecodeObjectType(unsigned int &); bool DecodeChar(char); bool DecodeUInt32(unsigned int &); bool DecodeUInt64(guint64 &); bool DecodeString(char *, int); bool DecodeBool(bool &); bool DecodeFloat(double &); bool EncodeHeader(); bool EncodeUInt32(unsigned int); bool EncodeUInt64(guint64); bool EncodeObjectType(unsigned int); bool EncodeString(const char *str, int len=-1); bool EncodeCustom(const char *str, int len); bool EncodeBool(bool); bool EncodeFloat(double); char *rxBuff() { return rxBuffer->getBuffer(); } unsigned int rxSize() { return rxBuffer->getSize(); } void rxTerminate(int pos) { rxBuffer->putAt(pos,0); } void rxAdvance(unsigned int amount) { rxBuffer->advanceIndex(amount); } bool brxHasData() { return rxBuffer->bHasData(); } char *txBuff() { return txBuffer->buffer; } unsigned int txBytesBuffered() { return txBuffer->index; } void txTerminate() { txBuffer->terminate(); } void prepare() { rxBuffer->index = 0; txBuffer->index = 0; } private: PacketBuffer *rxBuffer; PacketBuffer *txBuffer; }; #endif gpsim-0.27.0/src/p12f182x.cc0000664000076400007640000007416412175377101012163 00000000000000/* Copyright (C) 2013 Roy R. Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ // // p12f182x // // This file supports: // PIC12F1822 // PIC16F1823 // //Note: unlike most other 12F processors these have extended 14bit instructions #include #include #include #include "../config.h" #include "symbol.h" #include "stimuli.h" #include "eeprom.h" #include "p12f182x.h" #include "pic-ioports.h" #include "packages.h" //#define DEBUG #if defined(DEBUG) #include "../config.h" #define Dprintf(arg) {printf("%s:%d ",__FILE__,__LINE__); printf arg; } #else #define Dprintf(arg) {} #endif APFCON::APFCON(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc), m_usart(0), m_ssp(0), m_t1gcon(0) { int j; mValidBits=0xef; for(j =0; j <8; j++) { m_bitPin[0][j] = NULL; m_bitPin[1][j] = NULL; } } void APFCON::put(unsigned int new_value) { unsigned int old_value = value.get(); unsigned int diff = (new_value ^ old_value) & mValidBits; trace.raw(write_trace.get() | value.get()); new_value &= mValidBits; value.put(new_value); for(int i = 0; i < 8; i++) { unsigned int bit = 1<setIOPin1(m_bitPin[(new_value & bit)== bit][i]); break; case 1: assert(m_ccpcon); m_ccpcon->setIOPin2(m_bitPin[(new_value & bit)== bit][i]); break; case 2: assert(m_usart); m_usart->set_TXpin(m_bitPin[(new_value & bit)== bit][i]); break; case 3: assert(m_t1gcon); m_t1gcon->setGatepin(m_bitPin[(new_value & bit)== bit][i]); break; case 4: // not used break; case 5: assert(m_ssp); m_ssp->set_ssPin(m_bitPin[(new_value & bit)== bit][i]); break; case 6: assert(m_ssp); m_ssp->set_sdoPin(m_bitPin[(new_value & bit)== bit][i]); break; case 7: assert(m_usart); m_usart->set_RXpin(m_bitPin[(new_value & bit)== bit][i]); break; } } } } // Does not match any of 3 versions in pir.h, pir.cc // If required by any other porcessors should be moved there // class PIR1v1822 : public PIR { public: enum { TMR1IF = 1<<0, TMR2IF = 1<<1, CCP1IF = 1<<2, SSPIF = 1<<3, TXIF = 1<<4, RCIF = 1<<5, ADIF = 1<<6, TMR1GIF = 1<<7 }; //------------------------------------------------------------------------ PIR1v1822(Processor *pCpu, const char *pName, const char *pDesc,INTCON *_intcon, PIE *_pie) : PIR(pCpu,pName,pDesc,_intcon, _pie,0) { valid_bits = TMR1IF | TMR2IF | CCP1IF | SSPIF | TXIF | RCIF | ADIF | TMR1GIF; writable_bits = TMR1IF | TMR2IF | CCP1IF | SSPIF | ADIF | TMR1GIF; } virtual void set_tmr1if() { trace.raw(write_trace.get() | value.get()); value.put(value.get() | TMR1IF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } virtual void set_tmr1gif() { trace.raw(write_trace.get() | value.get()); value.put(value.get() | TMR1GIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } virtual void set_tmr2if() { trace.raw(write_trace.get() | value.get()); value.put(value.get() | TMR2IF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void set_sspif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | SSPIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } }; class PIR2v1822 : public PIR { public: enum { BCLIF = 1<<3, EEIF = 1<<4, C1IF = 1<<5, C2IF = 1<<6, // not 12f1822 OSFIF = 1<<7 }; //------------------------------------------------------------------------ PIR2v1822(Processor *pCpu, const char *pName, const char *pDesc,INTCON *_intcon, PIE *_pie) : PIR(pCpu,pName,pDesc,_intcon, _pie,0) { valid_bits = BCLIF | EEIF | C1IF | OSFIF; writable_bits = BCLIF | EEIF | C1IF | OSFIF; } void set_bclif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | BCLIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } virtual void set_eeif() { trace.raw(write_trace.get() | value.get()); value.put(value.get() | EEIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void set_c1if(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | C1IF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void set_c2if(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | C2IF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } void set_osfif(void) { trace.raw(write_trace.get() | value.get()); value.put(value.get() | OSFIF); if( value.get() & pie->value.get() ) setPeripheralInterrupt(); } }; //======================================================================== P12F1822::P12F1822(const char *_name, const char *desc) : _14bit_e_processor(_name,desc), comparator(this), pie1(this,"PIE1", "Peripheral Interrupt Enable"), pie2(this,"PIE2", "Peripheral Interrupt Enable"), t2con(this, "t2con", "TMR2 Control"), pr2(this, "pr2", "TMR2 Period Register"), tmr2(this, "tmr2", "TMR2 Register"), t1con_g(this, "t1con", "TMR1 Control Register"), tmr1l(this, "tmr1l", "TMR1 Low"), tmr1h(this, "tmr1h", "TMR1 High"), ccp1con(this, "ccp1con", "Capture Compare Control"), ccpr1l(this, "ccpr1l", "Capture Compare 1 Low"), ccpr1h(this, "ccpr1h", "Capture Compare 1 High"), fvrcon(this, "fvrcon", "Voltage reference control register", 0xbf, 0x40), borcon(this, "borcon", "Brown-out reset control register"), ansela(this, "ansela", "Analog Select"), adcon0(this,"adcon0", "A2D Control 0"), adcon1(this,"adcon1", "A2D Control 1"), adresh(this,"adresh", "A2D Result High"), adresl(this,"adresl", "A2D Result Low"), osccon(this, "osccon", "Oscillator Control Register"), osctune(this, "osctune", "Oscillator Tunning Register"), oscstat(this, "oscstat", "Oscillator Status Register"), wdtcon(this, "wdtcon", "Watch dog timer control", 0x3f), usart(this), ssp(this), apfcon(this, "apfcon", "Alternate Pin Function Control Register"), pwm1con(this, "pwm1con", "Enhanced PWM Control Register"), ccp1as(this, "ccp1as", "CCP1 Auto-Shutdown Control Register"), pstr1con(this, "pstr1con", "Pulse Sterring Control Register"), cpscon0(this, "cpscon0", " Capacitive Sensing Control Register 0"), cpscon1(this, "cpscon1", " Capacitive Sensing Control Register 1"), sr_module(this) { m_iocaf = new IOC(this, "iocaf", "Interrupt-On-Change flag Register"); m_iocap = new IOC(this, "iocap", "Interrupt-On-Change positive edge"); m_iocan = new IOC(this, "iocan", "Interrupt-On-Change negative edge"); m_porta = new PicPortIOCRegister(this,"porta","", intcon, m_iocap, m_iocan, m_iocaf, 8,0x3f); m_trisa = new PicTrisRegister(this,"trisa","", m_porta, false, 0x37); m_lata = new PicLatchRegister(this,"lata","",m_porta, 0x37); m_daccon0 = new DACCON0(this, "daccon0", "DAC Voltage reference register 0", 0xec, 32); m_daccon1 = new DACCON1(this, "daccon1", "DAC Voltage reference register 1", 0x1f, m_daccon0); m_cpu_temp = new CPU_Temp("cpu_temperature", 30., "CPU die temperature"); tmr0.set_cpu(this, m_porta, 4, option_reg); tmr0.start(0); tmr0.set_t1gcon(&t1con_g.t1gcon); cpscon1.m_cpscon0 = &cpscon0; cpscon0.m_tmr0 = &tmr0; cpscon0.m_t1con_g = &t1con_g; m_wpua = new WPU(this, "wpua", "Weak Pull-up Register", m_porta, 0x37); pir1 = new PIR1v1822(this,"pir1","Peripheral Interrupt Register",intcon, &pie1); pir2 = new PIR2v1822(this,"pir2","Peripheral Interrupt Register",intcon, &pie2); comparator.cmxcon0[0] = new CMxCON0(this, "cm1con0", " Comparator C1 Control Register 0", 0, &comparator); comparator.cmxcon1[0] = new CMxCON1(this, "cm1con1", " Comparator C1 Control Register 1", 0, &comparator); comparator.cmout = new CMOUT(this, "cmout", "Comparator Output Register"); } P12F1822::~P12F1822() { unassignMCLRPin(); delete_file_registers(0x20, 0x7f); delete_file_registers(0xa0, 0xbf); delete_sfr_register(m_iocap); delete_sfr_register(m_iocan); delete_sfr_register(m_iocaf); delete_sfr_register(m_daccon0); delete_sfr_register(m_daccon1); delete_sfr_register(m_trisa); delete_sfr_register(m_porta); delete_sfr_register(m_lata); delete_sfr_register(m_wpua); remove_sfr_register(&tmr0); remove_sfr_register(&tmr1l); remove_sfr_register(&tmr1h); remove_sfr_register(&t1con_g); remove_sfr_register(&t1con_g.t1gcon); remove_sfr_register(&tmr2); remove_sfr_register(&pr2); remove_sfr_register(&t2con); remove_sfr_register(&cpscon0); remove_sfr_register(&cpscon1); remove_sfr_register(&ssp.sspbuf); remove_sfr_register(&ssp.sspadd); remove_sfr_register(&ssp.ssp1msk); remove_sfr_register(&ssp.sspstat); remove_sfr_register(&ssp.sspcon); remove_sfr_register(&ssp.sspcon2); remove_sfr_register(&ssp.ssp1con3); remove_sfr_register(&ccpr1l); remove_sfr_register(&ccpr1h); remove_sfr_register(&ccp1con); remove_sfr_register(&pwm1con); remove_sfr_register(&ccp1as); remove_sfr_register(&pstr1con); remove_sfr_register(&pie1); remove_sfr_register(&pie2); remove_sfr_register(&adresl); remove_sfr_register(&adresh); remove_sfr_register(&adcon0); remove_sfr_register(&adcon1); remove_sfr_register(&borcon); remove_sfr_register(&fvrcon); remove_sfr_register(&sr_module.srcon0); remove_sfr_register(&sr_module.srcon1); remove_sfr_register(&apfcon ); remove_sfr_register(&ansela); remove_sfr_register(get_eeprom()->get_reg_eeadr()); remove_sfr_register(get_eeprom()->get_reg_eeadrh()); remove_sfr_register(get_eeprom()->get_reg_eedata()); remove_sfr_register(get_eeprom()->get_reg_eedatah()); remove_sfr_register(get_eeprom()->get_reg_eecon1()); remove_sfr_register(get_eeprom()->get_reg_eecon2()); remove_sfr_register(&usart.spbrg); remove_sfr_register(&usart.spbrgh); remove_sfr_register(&usart.rcsta); remove_sfr_register(&usart.txsta); remove_sfr_register(&usart.baudcon); remove_sfr_register(&ssp.sspbuf); remove_sfr_register(&ssp.sspadd); remove_sfr_register(&ssp.ssp1msk); remove_sfr_register(&ssp.sspstat); remove_sfr_register(&ssp.sspcon); remove_sfr_register(&ssp.sspcon2); remove_sfr_register(&ssp.ssp1con3); remove_sfr_register(&ccpr1l); remove_sfr_register(&ccpr1h); remove_sfr_register(&ccp1con); remove_sfr_register(&pwm1con); remove_sfr_register(&ccp1as); remove_sfr_register(&pstr1con); remove_sfr_register(&osctune); remove_sfr_register(&osccon); remove_sfr_register(&oscstat); remove_sfr_register(comparator.cmxcon0[0]); remove_sfr_register(comparator.cmxcon1[0]); remove_sfr_register(comparator.cmout); delete_sfr_register(usart.rcreg); delete_sfr_register(usart.txreg); delete_sfr_register(pir1); delete_sfr_register(pir2); delete e; delete m_cpu_temp; } Processor * P12F1822::construct(const char *name) { P12F1822 *p = new P12F1822(name); p->create(0x7f, 256); p->create_invalid_registers (); p->create_symbols(); return p; } void P12F1822::create_symbols() { pic_processor::create_symbols(); addSymbol(Wreg); addSymbol(m_cpu_temp); } void P12F1822::create_sfr_map() { pir_set_2_def.set_pir1(pir1); pir_set_2_def.set_pir2(pir2); //add_sfr_register(indf, 0x00); add_file_registers(0xa0, 0xbf, 0x00); add_sfr_register(m_porta, 0x0c); add_sfr_register(pir1, 0x11, RegisterValue(0,0),"pir1"); add_sfr_register(pir2, 0x12, RegisterValue(0,0),"pir2"); add_sfr_register(&tmr0, 0x15); add_sfr_register(&tmr1l, 0x16, RegisterValue(0,0),"tmr1l"); add_sfr_register(&tmr1h, 0x17, RegisterValue(0,0),"tmr1h"); add_sfr_register(&t1con_g, 0x18, RegisterValue(0,0)); add_sfr_register(&t1con_g.t1gcon, 0x19, RegisterValue(0,0)); add_sfr_register(&tmr2, 0x1a, RegisterValue(0,0)); add_sfr_register(&pr2, 0x1b, RegisterValue(0,0)); add_sfr_register(&t2con, 0x1c, RegisterValue(0,0)); add_sfr_register(&cpscon0, 0x1e, RegisterValue(0,0)); add_sfr_register(&cpscon1, 0x1f, RegisterValue(0,0)); add_sfr_register(m_trisa, 0x8c, RegisterValue(0x3f,0)); pcon.valid_bits = 0xcf; add_sfr_register(option_reg, 0x95, RegisterValue(0xff,0)); add_sfr_register(&osctune, 0x98, RegisterValue(0,0)); add_sfr_register(&osccon, 0x99, RegisterValue(0x38,0)); add_sfr_register(&oscstat, 0x9a, RegisterValue(0,0)); intcon_reg.set_pir_set(get_pir_set()); tmr1l.tmrh = &tmr1h; tmr1l.t1con = &t1con_g; tmr1l.setInterruptSource(new InterruptSource(pir1, PIR1v1::TMR1IF)); tmr1h.tmrl = &tmr1l; t1con_g.tmrl = &tmr1l; t1con_g.t1gcon.set_tmrl(&tmr1l); t1con_g.t1gcon.set_pir_set(get_pir_set()); tmr1l.setIOpin(&(*m_porta)[5]); t1con_g.t1gcon.setGatepin(&(*m_porta)[3]); add_sfr_register(&pie1, 0x91, RegisterValue(0,0)); add_sfr_register(&pie2, 0x92, RegisterValue(0,0)); add_sfr_register(&adresl, 0x9b); add_sfr_register(&adresh, 0x9c); add_sfr_register(&adcon0, 0x9d, RegisterValue(0x00,0)); add_sfr_register(&adcon1, 0x9e, RegisterValue(0x00,0)); usart.initialize(pir1, &(*m_porta)[0], // TX pin &(*m_porta)[1], // RX pin new _TXREG(this,"txreg", "USART Transmit Register", &usart), new _RCREG(this,"rcreg", "USART Receiver Register", &usart)); usart.set_eusart(true); add_sfr_register(m_lata, 0x10c); add_sfr_register(comparator.cmxcon0[0], 0x111, RegisterValue(0x04,0)); add_sfr_register(comparator.cmxcon1[0], 0x112, RegisterValue(0x00,0)); add_sfr_register(comparator.cmout, 0x115, RegisterValue(0x00,0)); add_sfr_register(&borcon, 0x116, RegisterValue(0x80,0)); add_sfr_register(&fvrcon, 0x117, RegisterValue(0x00,0)); add_sfr_register(m_daccon0, 0x118, RegisterValue(0x00,0)); add_sfr_register(m_daccon1, 0x119, RegisterValue(0x00,0)); add_sfr_register(&sr_module.srcon0, 0x11a, RegisterValue(0x00,0)); add_sfr_register(&sr_module.srcon1, 0x11b, RegisterValue(0x00,0)); add_sfr_register(&apfcon , 0x11d, RegisterValue(0x00,0)); add_sfr_register(&ansela, 0x18c, RegisterValue(0x17,0)); add_sfr_register(get_eeprom()->get_reg_eeadr(), 0x191); add_sfr_register(get_eeprom()->get_reg_eeadrh(), 0x192); add_sfr_register(get_eeprom()->get_reg_eedata(), 0x193); add_sfr_register(get_eeprom()->get_reg_eedatah(), 0x194); add_sfr_register(get_eeprom()->get_reg_eecon1(), 0x195, RegisterValue(0,0)); add_sfr_register(get_eeprom()->get_reg_eecon2(), 0x196); add_sfr_register(usart.rcreg, 0x199, RegisterValue(0,0),"rcreg"); add_sfr_register(usart.txreg, 0x19a, RegisterValue(0,0),"txreg"); add_sfr_register(&usart.spbrg, 0x19b, RegisterValue(0,0),"spbrgl"); add_sfr_register(&usart.spbrgh, 0x19c, RegisterValue(0,0),"spbrgh"); add_sfr_register(&usart.rcsta, 0x19d, RegisterValue(0,0),"rcsta"); add_sfr_register(&usart.txsta, 0x19e, RegisterValue(2,0),"txsta"); add_sfr_register(&usart.baudcon, 0x19f,RegisterValue(0x40,0),"baudcon"); add_sfr_register(m_wpua, 0x20c, RegisterValue(0x3f,0),"wpua"); add_sfr_register(&ssp.sspbuf, 0x211, RegisterValue(0,0),"ssp1buf"); add_sfr_register(&ssp.sspadd, 0x212, RegisterValue(0,0),"ssp1add"); add_sfr_register(&ssp.ssp1msk, 0x213, RegisterValue(0xff,0),"ssp1msk"); add_sfr_register(&ssp.sspstat, 0x214, RegisterValue(0,0),"ssp1stat"); add_sfr_register(&ssp.sspcon, 0x215, RegisterValue(0,0),"ssp1con"); add_sfr_register(&ssp.sspcon2, 0x216, RegisterValue(0,0),"ssp1con2"); add_sfr_register(&ssp.ssp1con3, 0x217, RegisterValue(0,0),"ssp1con3"); add_sfr_register(&ccpr1l, 0x291, RegisterValue(0,0)); add_sfr_register(&ccpr1h, 0x292, RegisterValue(0,0)); add_sfr_register(&ccp1con, 0x293, RegisterValue(0,0)); add_sfr_register(&pwm1con, 0x294, RegisterValue(0,0)); add_sfr_register(&ccp1as, 0x295, RegisterValue(0,0)); add_sfr_register(&pstr1con, 0x296, RegisterValue(1,0)); add_sfr_register(m_iocap, 0x391, RegisterValue(0,0),"iocap"); add_sfr_register(m_iocan, 0x392, RegisterValue(0,0),"iocan"); add_sfr_register(m_iocaf, 0x393, RegisterValue(0,0),"iocaf"); tmr2.ssp_module = &ssp; ssp.initialize( get_pir_set(), // PIR &(*m_porta)[1], // SCK &(*m_porta)[3], // SS &(*m_porta)[0], // SDO &(*m_porta)[2], // SDI m_trisa, // i2c tris port SSP_TYPE_MSSP1 ); apfcon.set_usart(&usart); apfcon.set_ssp(&ssp); apfcon.set_t1gcon(&t1con_g.t1gcon); apfcon.set_pins(0, &(*m_porta)[2], &(*m_porta)[5]); //CCP1/P1A apfcon.set_pins(1, &(*m_porta)[0], &(*m_porta)[4]); //P1B apfcon.set_pins(2, &(*m_porta)[0], &(*m_porta)[4]); //USART TX Pin apfcon.set_pins(3, &(*m_porta)[4], &(*m_porta)[3]); //tmr1 gate apfcon.set_pins(5, &(*m_porta)[3], &(*m_porta)[0]); //SSP SS apfcon.set_pins(6, &(*m_porta)[0], &(*m_porta)[4]); //SSP SDO apfcon.set_pins(7, &(*m_porta)[1], &(*m_porta)[5]); //USART RX Pin if (pir1) { pir1->set_intcon(intcon); pir1->set_pie(&pie1); } pie1.setPir(pir1); pie2.setPir(pir2); t2con.tmr2 = &tmr2; tmr2.pir_set = get_pir_set(); tmr2.pr2 = &pr2; tmr2.t2con = &t2con; tmr2.add_ccp ( &ccp1con ); // tmr2.add_ccp ( &ccp2con ); pr2.tmr2 = &tmr2; ccp1as.setIOpin(0, 0, &(*m_porta)[2]); ccp1as.link_registers(&pwm1con, &ccp1con); ccp1con.setIOpin(&(*m_porta)[2], &(*m_porta)[0]); ccp1con.pstrcon = &pstr1con; ccp1con.pwm1con = &pwm1con; ccp1con.setCrosslinks(&ccpr1l, pir1, PIR1v1822::CCP1IF, &tmr2, &ccp1as); ccpr1l.ccprh = &ccpr1h; ccpr1l.tmrl = &tmr1l; ccpr1h.ccprl = &ccpr1l; ansela.config(0x17, 0); ansela.setValidBits(0x17); ansela.setAdcon1(&adcon1); adcon0.setAdresLow(&adresl); adcon0.setAdres(&adresh); adcon0.setAdcon1(&adcon1); adcon0.setIntcon(intcon); adcon0.setA2DBits(10); adcon0.setPir(pir1); adcon0.setChannel_Mask(0x1f); adcon0.setChannel_shift(2); adcon0.setGo(1); adcon1.setAdcon0(&adcon0); adcon1.setNumberOfChannels(32); // not all channels are used adcon1.setIOPin(0, &(*m_porta)[0]); adcon1.setIOPin(1, &(*m_porta)[1]); adcon1.setIOPin(2, &(*m_porta)[2]); adcon1.setIOPin(3, &(*m_porta)[4]); adcon1.setValidBits(0xf3); adcon1.setVrefHiConfiguration(0, 1); adcon1.set_FVR_chan(0x1f); comparator.cmxcon1[0]->set_OUTpin(&(*m_porta)[2]); comparator.cmxcon1[0]->set_INpinNeg(&(*m_porta)[1], &(*m_porta)[4]); comparator.cmxcon1[0]->set_INpinPos(&(*m_porta)[0]); comparator.cmxcon0[0]->setBitMask(0xf7); comparator.cmxcon1[0]->setBitMask(0xf1); comparator.assign_pir_set(get_pir_set()); comparator.assign_t1gcon(&t1con_g.t1gcon); comparator.assign_sr_module(&sr_module); fvrcon.set_adcon1(&adcon1); fvrcon.set_cpscon0(&cpscon0); fvrcon.set_daccon0(m_daccon0); fvrcon.set_cmModule(&comparator); fvrcon.set_VTemp_AD_chan(0x1d); fvrcon.set_FVRAD_AD_chan(0x1f); m_daccon0->set_adcon1(&adcon1); m_daccon0->set_cpscon0(&cpscon0); m_daccon0->set_cmModule(&comparator); m_daccon0->set_FVRCDA_AD_chan(0x1e); m_daccon0->setDACOUT(&(*m_porta)[0]); cpscon0.set_pin(0, &(*m_porta)[0]); cpscon0.set_pin(1, &(*m_porta)[1]); cpscon0.set_pin(2, &(*m_porta)[2]); cpscon0.set_pin(3, &(*m_porta)[4]); sr_module.setPins(&(*m_porta)[1], &(*m_porta)[2], &(*m_porta)[5]); osccon.set_osctune(&osctune); osccon.set_oscstat(&oscstat); osctune.set_osccon((OSCCON *)&osccon); } //------------------------------------------------------------------- void P12F1822::set_out_of_range_pm(unsigned int address, unsigned int value) { if( (address>= 0x2100) && (address < 0x2100 + get_eeprom()->get_rom_size())) get_eeprom()->change_rom(address - 0x2100, value); } void P12F1822::create_iopin_map() { package = new Package(8); if(!package) return; // Now Create the package and place the I/O pins package->assign_pin(7, m_porta->addPin(new IO_bi_directional_pu("porta0"),0)); package->assign_pin(6, m_porta->addPin(new IO_bi_directional_pu("porta1"),1)); package->assign_pin(5, m_porta->addPin(new IO_bi_directional_pu("porta2"),2)); package->assign_pin(4, m_porta->addPin(new IO_bi_directional_pu("porta3"),3)); package->assign_pin(3, m_porta->addPin(new IO_bi_directional_pu("porta4"),4)); package->assign_pin(2, m_porta->addPin(new IO_bi_directional_pu("porta5"),5)); package->assign_pin( 1, 0); // Vdd package->assign_pin( 8, 0); // Vss } void P12F1822::create(int ram_top, int eeprom_size) { create_iopin_map(); e = new EEPROM_EXTND(this, pir2); set_eeprom(e); pic_processor::create(); e->initialize(eeprom_size, 16, 16, 0x8000); e->set_intcon(intcon); e->get_reg_eecon1()->set_valid_bits(0xff); add_file_registers(0x20, ram_top, 0x00); _14bit_e_processor::create_sfr_map(); P12F1822::create_sfr_map(); // Set DeviceID if (m_configMemory && m_configMemory->getConfigWord(6)) m_configMemory->getConfigWord(6)->set(0x2700); } //------------------------------------------------------------------- void P12F1822::enter_sleep() { tmr0.sleep(); tmr1l.sleep(); pic_processor::enter_sleep(); } //------------------------------------------------------------------- void P12F1822::exit_sleep() { if (m_ActivityState == ePASleeping) { tmr0.wake(); tmr1l.wake(); osccon.wake(); pic_processor::exit_sleep(); } } //------------------------------------------------------------------- void P12F1822::option_new_bits_6_7(unsigned int bits) { Dprintf(("P12F1822::option_new_bits_6_7 bits=%x\n", bits)); m_porta->setIntEdge ( (bits & OPTION_REG::BIT6) == OPTION_REG::BIT6); m_wpua->set_wpu_pu ( (bits & OPTION_REG::BIT7) != OPTION_REG::BIT7); } void P12F1822::oscillator_select(unsigned int cfg_word1, bool clkout) { unsigned int mask = 0x1f; osccon.set_config(cfg_word1 & (FOSC0|FOSC1|FOSC2), cfg_word1 & IESO); set_int_osc(false); switch(cfg_word1 & (FOSC0|FOSC1|FOSC2)) { case 0: //LP oscillator: low power crystal case 1: //XT oscillator: Crystal/resonator case 2: //HS oscillator: High-speed crystal/resonator (m_porta->getPin(4))->newGUIname("OSC2"); (m_porta->getPin(5))->newGUIname("OSC1"); mask = 0x0f; break; case 3: //EXTRC oscillator External RC circuit connected to CLKIN pin (m_porta->getPin(5))->newGUIname("CLKIN"); mask = 0x1f; if(clkout) { (m_porta->getPin(4))->newGUIname("CLKOUT"); mask = 0x0f; } break; case 4: //INTOSC oscillator: I/O function on CLKIN pin set_int_osc(true); mask = 0x3f; if(clkout) { (m_porta->getPin(4))->newGUIname("CLKOUT"); mask = 0x2f; } (m_porta->getPin(5))->newGUIname((m_porta->getPin(5))->name().c_str()); break; case 5: //ECL: External Clock, Low-Power mode (0-0.5 MHz): on CLKIN pin mask = 0x1f; if(clkout) { (m_porta->getPin(4))->newGUIname("CLKOUT"); mask = 0x0f; } (m_porta->getPin(5))->newGUIname("CLKIN"); break; case 6: //ECM: External Clock, Medium-Power mode (0.5-4 MHz): on CLKIN pin mask = 0x1f; if(clkout) { (m_porta->getPin(4))->newGUIname("CLKOUT"); mask = 0x0f; } (m_porta->getPin(5))->newGUIname("CLKIN"); break; case 7: //ECH: External Clock, High-Power mode (4-32 MHz): on CLKIN pin mask = 0x1f; if(clkout) { (m_porta->getPin(4))->newGUIname("CLKOUT"); mask = 0x0f; } (m_porta->getPin(5))->newGUIname("CLKIN"); break; }; ansela.setValidBits(0x17 & mask); m_porta->setEnableMask(mask); } void P12F1822::program_memory_wp(unsigned int mode) { switch(mode) { case 3: // no write protect get_eeprom()->set_prog_wp(0x0); break; case 2: // write protect 0000-01ff get_eeprom()->set_prog_wp(0x0200); break; case 1: // write protect 0000-03ff get_eeprom()->set_prog_wp(0x0400); break; case 0: // write protect 0000-07ff get_eeprom()->set_prog_wp(0x0800); break; default: printf("%s unexpected mode %d\n", __FUNCTION__, mode); break; } } //======================================================================== P16F1823::P16F1823(const char *_name, const char *desc) : P12F1822(_name,desc), anselc(this, "anselc", "Analog Select port c") { m_portc = new PicPortBRegister(this,"portc","", intcon, 8,0x3f); m_trisc = new PicTrisRegister(this,"trisc","", m_portc, false, 0x3f); m_latc = new PicLatchRegister(this,"latc","",m_portc, 0x3f); m_wpuc = new WPU(this, "wpuc", "Weak Pull-up Register", m_portc, 0x3f); comparator.cmxcon0[1] = new CMxCON0(this, "cm2con0", " Comparator C2 Control Register 0", 1, &comparator); comparator.cmxcon1[1] = new CMxCON1(this, "cm2con1", " Comparator C2 Control Register 1", 1, &comparator); cpscon1.mValidBits = 0x0f; } P16F1823::~P16F1823() { delete_sfr_register(m_portc); delete_sfr_register(m_trisc); delete_sfr_register(m_latc); remove_sfr_register(comparator.cmxcon0[1]); remove_sfr_register(comparator.cmxcon1[1]); delete_sfr_register(m_wpuc); remove_sfr_register(&anselc); } void P16F1823::create_iopin_map() { package = new Package(14); if(!package) return; // Now Create the package and place the I/O pins package->assign_pin(13, m_porta->addPin(new IO_bi_directional_pu("porta0"),0)); package->assign_pin(12, m_porta->addPin(new IO_bi_directional_pu("porta1"),1)); package->assign_pin(11, m_porta->addPin(new IO_bi_directional_pu("porta2"),2)); package->assign_pin(4, m_porta->addPin(new IO_bi_directional_pu("porta3"),3)); package->assign_pin(3, m_porta->addPin(new IO_bi_directional_pu("porta4"),4)); package->assign_pin(2, m_porta->addPin(new IO_bi_directional_pu("porta5"),5)); package->assign_pin(10, m_portc->addPin(new IO_bi_directional_pu("portc0"),0)); package->assign_pin(9, m_portc->addPin(new IO_bi_directional_pu("portc1"),1)); package->assign_pin(8, m_portc->addPin(new IO_bi_directional_pu("portc2"),2)); package->assign_pin(7, m_portc->addPin(new IO_bi_directional_pu("portc3"),3)); package->assign_pin(6, m_portc->addPin(new IO_bi_directional_pu("portc4"),4)); package->assign_pin(5, m_portc->addPin(new IO_bi_directional_pu("portc5"),5)); package->assign_pin( 1, 0); // Vdd package->assign_pin( 14, 0); // Vss } Processor * P16F1823::construct(const char *name) { P16F1823 *p = new P16F1823(name); p->create(0x7f, 256); p->create_invalid_registers (); p->create_symbols(); return p; } void P16F1823::create(int ram_top, int eeprom_size) { create_iopin_map(); e = new EEPROM_EXTND(this, pir2); set_eeprom(e); pic_processor::create(); e->initialize(eeprom_size, 16, 16, 0x8000); e->set_intcon(intcon); e->get_reg_eecon1()->set_valid_bits(0xff); add_file_registers(0x20, ram_top, 0x00); _14bit_e_processor::create_sfr_map(); P12F1822::create_sfr_map(); P16F1823::create_sfr_map(); // Set DeviceID if (m_configMemory && m_configMemory->getConfigWord(6)) m_configMemory->getConfigWord(6)->set(0x2720); } void P16F1823::create_sfr_map() { add_sfr_register(m_portc, 0x0e); add_sfr_register(m_trisc, 0x8e, RegisterValue(0x3f,0)); add_sfr_register(m_latc, 0x10e); add_sfr_register(comparator.cmxcon0[1], 0x113, RegisterValue(0x04,0)); add_sfr_register(comparator.cmxcon1[1], 0x114, RegisterValue(0x00,0)); add_sfr_register(&anselc, 0x18e, RegisterValue(0x0f,0)); add_sfr_register(m_wpuc, 0x20e, RegisterValue(0x3f,0),"wpuc"); anselc.config(0x0f, 4); anselc.setValidBits(0x0f); anselc.setAdcon1(&adcon1); ansela.setAnsel(&anselc); anselc.setAnsel(&ansela); adcon1.setIOPin(4, &(*m_portc)[0]); adcon1.setIOPin(5, &(*m_portc)[1]); adcon1.setIOPin(6, &(*m_portc)[2]); adcon1.setIOPin(7, &(*m_portc)[3]); ssp.set_sckPin(&(*m_portc)[0]); ssp.set_sdiPin(&(*m_portc)[1]); ssp.set_sdoPin(&(*m_portc)[2]); ssp.set_ssPin(&(*m_portc)[3]); ssp.set_tris(m_trisc); // Pin values for default APFCON usart.set_TXpin(&(*m_portc)[4]); // TX pin usart.set_RXpin(&(*m_portc)[5]); // RX pin ccp1con.setIOpin(&(*m_portc)[5], &(*m_portc)[4], &(*m_portc)[3], &(*m_portc)[2]); apfcon.set_ValidBits(0xec); // pins 0,1 not used for p16f1823 apfcon.set_pins(2, &(*m_portc)[4], &(*m_porta)[0]); //USART TX Pin // pin 3 defined in p12f1822 apfcon.set_pins(5, &(*m_portc)[3], &(*m_porta)[3]); //SSP SS apfcon.set_pins(6, &(*m_portc)[2], &(*m_porta)[4]); //SSP SDO apfcon.set_pins(7, &(*m_portc)[5], &(*m_porta)[1]); //USART RX Pin comparator.cmxcon1[0]->set_INpinNeg(&(*m_porta)[1], &(*m_portc)[1], &(*m_portc)[2], &(*m_portc)[3]); comparator.cmxcon1[1]->set_INpinNeg(&(*m_porta)[1], &(*m_portc)[1], &(*m_portc)[2], &(*m_portc)[3]); comparator.cmxcon1[1]->set_INpinPos(&(*m_portc)[0]); comparator.cmxcon1[0]->set_OUTpin(&(*m_porta)[2]); comparator.cmxcon1[1]->set_OUTpin(&(*m_portc)[4]); comparator.cmxcon0[0]->setBitMask(0xf7); comparator.cmxcon0[1]->setBitMask(0xf7); comparator.cmxcon1[0]->setBitMask(0xf3); comparator.cmxcon1[1]->setBitMask(0xf3); cpscon0.set_pin(4, &(*m_portc)[0]); cpscon0.set_pin(5, &(*m_portc)[1]); cpscon0.set_pin(6, &(*m_portc)[2]); cpscon0.set_pin(7, &(*m_portc)[3]); sr_module.srcon1.set_ValidBits(0xff); sr_module.setPins(&(*m_porta)[1], &(*m_porta)[2], &(*m_portc)[4]); } gpsim-0.27.0/src/16bit-processors.h0000664000076400007640000002047612175377101013754 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __16_BIT_PROCESSORS_H__ #define __16_BIT_PROCESSORS_H__ #include "pic-processor.h" #include "pic-ioports.h" #include "intcon.h" #include "16bit-registers.h" #include "16bit-tmrs.h" #include "pir.h" #include "uart.h" #include "a2dconverter.h" #include "a2d_v2.h" #include "value.h" // forward references extern instruction *disasm16 (pic_processor *cpu, unsigned int address, unsigned int inst); class ConfigMemory; //------------------------------------------------------------------------ // // pic_processor // | // \__ _16bit_processor // // Base class for the 16bit PIC processors // class _16bit_processor : public pic_processor { public: static const unsigned int CONFIG1L = 0x300000; static const unsigned int CONFIG1H = 0x300001; static const unsigned int CONFIG2L = 0x300002; static const unsigned int CONFIG2H = 0x300003; static const unsigned int CONFIG3L = 0x300004; static const unsigned int CONFIG3H = 0x300005; static const unsigned int CONFIG4L = 0x300006; static const unsigned int CONFIG4H = 0x300007; static const unsigned int CONFIG5L = 0x300008; static const unsigned int CONFIG5H = 0x300009; static const unsigned int CONFIG6L = 0x30000A; static const unsigned int CONFIG6H = 0x30000B; static const unsigned int CONFIG7L = 0x30000C; static const unsigned int CONFIG7H = 0x30000D; // The early 18xxx parts all contain ports A,B,C PicPortRegister *m_porta; PicTrisRegister *m_trisa; PicLatchRegister *m_lata; PicPortBRegister *m_portb; PicTrisRegister *m_trisb; PicLatchRegister *m_latb; PicPortRegister *m_portc; PicTrisRegister *m_trisc; PicLatchRegister *m_latc; sfr_register adresl; sfr_register adresh; INTCON_16 intcon; INTCON2 intcon2; INTCON3 intcon3; BSR bsr; TMR0_16 tmr0l; TMR0H tmr0h; T0CON t0con; RCON rcon; PIR1v2 pir1; sfr_register ipr1; sfr_register ipr2; T1CON t1con; PIE pie1; PIR2v2 pir2; PIE pie2; T2CON t2con; PR2 pr2; TMR2 tmr2; TMRL tmr1l; TMRH tmr1h; CCPCON ccp1con; CCPRL ccpr1l; CCPRH ccpr1h; CCPCON ccp2con; CCPRL ccpr2l; CCPRH ccpr2h; TMRL tmr3l; TMRH tmr3h; T3CON t3con; PIR_SET_2 pir_set_def; OSCCON osccon; LVDCON lvdcon; WDTCON wdtcon; sfr_register prodh,prodl; sfr_register pclatu; Fast_Stack fast_stack; Indirect_Addressing ind0; Indirect_Addressing ind1; Indirect_Addressing ind2; USART_MODULE usart; //Stack16 stack16; TBL_MODULE tbl; TMR2_MODULE tmr2_module; TMR3_MODULE tmr3_module; SSP_MODULE ssp; // Some configuration stuff for stripping down where needed virtual bool HasPortC(void) { return true; }; virtual bool HasCCP2(void) { return true; }; virtual void create_symbols(); void interrupt(); virtual void create();// {return;}; virtual PROCESSOR_TYPE isa(){return _PIC17_PROCESSOR_;}; virtual PROCESSOR_TYPE base_isa(){return _PIC17_PROCESSOR_;}; virtual unsigned int access_gprs() { return 0x80; }; virtual instruction * disasm (unsigned int address, unsigned int inst) { return disasm16(this, address, inst); } virtual void create_sfr_map(); virtual void delete_sfr_map(); virtual void create_config_memory(); // Return the portion of pclath that is used during branching instructions virtual unsigned int get_pclath_branching_jump() { return ((pclatu.value.get()<<16) | ((pclath->value.get() & 0xf8)<<8)); } // Return the portion of pclath that is used during modify PCL instructions virtual unsigned int get_pclath_branching_modpcl() { return ((pclatu.value.get()<<16) | ((pclath->value.get() & 0xff)<<8)); } virtual void option_new_bits_6_7(unsigned int); // Declare a set of functions that will allow the base class to // get information about the derived classes. NOTE, the values returned here // will cause errors if they are used (in some cases) // -- the derived classes must define their parameters appropriately. virtual unsigned int register_memory_size () const { return 0x1000;}; virtual unsigned int last_actual_register () const { return 0x0F7F;}; virtual void set_out_of_range_pm(unsigned int address, unsigned int value); virtual void create_iopin_map(); virtual int map_pm_address2index(int address) const {return address/2;}; virtual int map_pm_index2address(int index) const {return index*2;}; virtual unsigned int get_program_memory_at_address(unsigned int address); virtual unsigned int get_config_word(unsigned int address); virtual bool set_config_word(unsigned int address, unsigned int cfg_word); virtual unsigned int configMemorySize() { return CONFIG7H-CONFIG1L+1; } virtual unsigned int IdentMemorySize() const { return 4; } // four words default (18F) virtual void enter_sleep(); virtual void exit_sleep(); virtual void osc_mode(unsigned int ); virtual void set_extended_instruction(bool); virtual bool extended_instruction() {return extended_instruction_flag;} static pic_processor *construct(); _16bit_processor(const char *_name=0, const char *desc=0); virtual ~_16bit_processor(); unsigned int getCurrentDisasmAddress() { return m_current_disasm_address;} unsigned int getCurrentDisasmIndex() { return m_current_disasm_address/2;} void setCurrentDisasmAddress(unsigned a) { m_current_disasm_address =a; } protected: unsigned int m_current_disasm_address; // Used only when .hex/.cod files are loaded unsigned int idloc[4]; ///< ID locations - not all 16-bit CPUs have 8 bytes bool extended_instruction_flag; // Instruction set extension and Indexed Addressing unsigned int last_register; }; class _16bit_compat_adc : public _16bit_processor { public: ADCON0 *adcon0; ADCON1 *adcon1; _16bit_compat_adc(const char *_name=0, const char *desc=0); ~_16bit_compat_adc(); virtual void create_symbols(); virtual void create(); virtual void create_sfr_map(); virtual void a2d_compat(); }; class _16bit_v2_adc : public _16bit_processor { public: ADCON0_V2 *adcon0; ADCON1_V2 *adcon1; ADCON2_V2 *adcon2; _16bit_v2_adc(const char *_name=0, const char *desc=0); ~_16bit_v2_adc(); virtual void create(int nChannels); }; #define cpu16 ( (_16bit_processor *)cpu) #define FOSC0 (1<<0) #define FOSC1 (1<<1) #define FOSC2 (1<<2) // FOSC3 may not be used #define FOSC3 (1<<3) #define OSCEN (1<<5) //------------------------------------------------------------------------ // Config1H - default 3 bits FOSC class Config1H : public ConfigWord { #define CONFIG1H_default (OSCEN | FOSC2 | FOSC1 | FOSC0) public: Config1H(_16bit_processor *pCpu, unsigned int addr) : ConfigWord("CONFIG1H", CONFIG1H_default, "Oscillator configuration", pCpu, addr) { set(CONFIG1H_default); } virtual void set(gint64 v) { Integer::set(v); if (m_pCpu) { m_pCpu->osc_mode(v & ( FOSC2 | FOSC1 | FOSC0)); } } virtual string toString(); }; //------------------------------------------------------------------------ // Config1H - 4 bits FOSC class Config1H_4bits : public ConfigWord { public: Config1H_4bits(_16bit_processor *pCpu, unsigned int addr, unsigned int def_val) : ConfigWord("CONFIG1H", def_val, "Oscillator configuration", pCpu, addr) { set(def_val); } virtual void set(gint64 v) { Integer::set(v); if (m_pCpu) { m_pCpu->osc_mode(v & ( FOSC3 | FOSC2 | FOSC1 | FOSC0)); } } virtual string toString(); }; #endif gpsim-0.27.0/src/12bit-processors.cc0000664000076400007640000001476612163444266014117 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include #include "../config.h" #include "12bit-processors.h" #include #include "stimuli.h" #include "trace.h" extern unsigned int config_word; //======================================================================== // class OptionTraceObject : public RegisterWriteTraceObject { public: OptionTraceObject(Processor *_cpu, OPTION_REG *pOptionReg, RegisterValue trv) : RegisterWriteTraceObject(_cpu, pOptionReg, trv) { } void print(FILE *fp) { char sFrom[16]; char sTo[16]; if(reg) fprintf(fp, " Option: from 0x%s to 0x%s\n", from.toString(sFrom,sizeof(sFrom)), to.toString(sTo,sizeof(sTo))); } }; //======================================================================== class OptionTraceType : public TraceType { public: OptionTraceType(Processor *_cpu, OPTION_REG *pOptionReg) : TraceType(1,"Option reg"), m_cpu(_cpu),m_pOptionReg(pOptionReg) { } TraceObject *decode(unsigned int tbi) { unsigned int tv = trace.get(tbi); RegisterValue rv = RegisterValue(tv&0xff,0); OptionTraceObject *oto = new OptionTraceObject(m_cpu, m_pOptionReg, rv); return oto; } int dump_raw(Trace *pTrace, unsigned int tbi, char *buf, int bufsize) { if (!pTrace) return 0; int n = TraceType::dump_raw(pTrace, tbi,buf,bufsize); buf += n; bufsize -= n; unsigned int tv = pTrace->get(tbi); //unsigned int subtype = (tv >> 8) & 0xfff; int m = snprintf(buf, bufsize, " Option Reg: was 0x%0X ", tv & 0xff); return m>0 ? (m+n) : n; } protected: Processor *m_cpu; OPTION_REG *m_pOptionReg; }; //------------------------------------------------------------------- _12bit_processor::_12bit_processor(const char *_name, const char *desc) : pic_processor(_name, desc) { pc = new Program_Counter("pc", "Program Counter", this); pc->set_trace_command();// trace.allocateTraceType(new PCTraceType(this,1))); option_reg = new OPTION_REG(this, "option_reg"); mOptionTT = new OptionTraceType(this,option_reg); trace.allocateTraceType(mOptionTT); RegisterValue rv( (mOptionTT->type() & 0xff000000) | 0, 0); option_reg->set_write_trace(rv); option_reg->set_read_trace(rv); stack = new Stack(this); } _12bit_processor::~_12bit_processor() { delete pc; delete mOptionTT; delete_sfr_register(fsr); delete_sfr_register(option_reg); } void _12bit_processor::create_symbols() { pic_processor::create_symbols(); addSymbol(option_reg); // Create an alias for the option_reg option_reg->new_name("option"); addSymbol(Wreg); } void _12bit_processor::reset(RESET_TYPE r) { option_reg->reset(r); pic_processor::reset(r); } //------------------------------------------------------------------- void _12bit_processor::save_state() { pic_processor::save_state(); option_reg->put_trace_state(option_reg->value); } //------------------------------------------------------------------- bool _12bit_processor::set_config_word(unsigned int address,unsigned int cfg_word) { // Clear all of the configuration bits in config_modes and then // reset each of them based on the config bits in cfg_word: //config_modes &= ~(CM_WDTE); //config_modes |= ( (cfg_word & WDTE) ? CM_WDTE : 0); //cout << " setting cfg_word and cfg_modes " << hex << config_word << " " << config_modes << '\n'; if((address == config_word_address()) && config_modes) { config_word = cfg_word; if (m_configMemory && m_configMemory->getConfigWord(0)) m_configMemory->getConfigWord(0)->set((int)cfg_word); /* config_modes->config_mode = (config_modes->config_mode & ~7) | (cfg_word & 7); config_word = cfg_word; if((bool)verbose && config_modes) config_modes->print(); */ return true; } return false; } void _12bit_processor::create() { if(verbose) cout << "_12bit_processor create, type = " << isa() << '\n'; pa_bits = 0; // Assume only one code page (page select bits in status) pic_processor::create(); fsr = new FSR_12(this,"fsr",fsr_register_page_bits(), fsr_valid_bits()); // Sigh. Hack, hack,... manually assign indf bits indf->fsr_mask = 0x1f; indf->base_address_mask1 = 0x0; indf->base_address_mask2 = 0x1f; stack->stack_mask = 1; // The 12bit core only has 2 stack positions //1 tmr0.set_cpu(this); //1 tmr0.start(0); } //------------------------------------------------------------------- void _12bit_processor::create_config_memory() { m_configMemory = new ConfigMemory(this,1); m_configMemory->addConfigWord(0,new ConfigWord("CONFIG", 0xfff,"Configuration Word",this,0xfff)); /* m_configMemory = new ConfigMemory *[1]; *m_configMemory = new ConfigMemory("CONFIG", 0xfff,"Configuration Word",this,0xfff); addSymbol(*m_configMemory); */ } //------------------------------------------------------------------- void _12bit_processor::option_new_bits_6_7(unsigned int bits) { //portb.rbpu_intedg_update(bits); cout << "12bit, option bits 6 and/or 7 changed\n"; } //------------------------------------------------------------------- void _12bit_processor::put_option_reg(unsigned int val) { option_reg->put(val); } //------------------------------------------------------------------- void _12bit_processor::dump_registers () { pic_processor::dump_registers(); cout << "option = " << option_reg->value.get() << '\n'; } //------------------------------------------------------------------- void _12bit_processor::enter_sleep() { tmr0.sleep(); pic_processor::enter_sleep(); } //------------------------------------------------------------------- void _12bit_processor::exit_sleep() { if (m_ActivityState == ePASleeping) { tmr0.wake(); pic_processor::exit_sleep(); } } gpsim-0.27.0/src/errors.cc0000644000076400007640000000335111401170177012263 00000000000000 #include "errors.h" /***************************************************************** * The primordial Assembler Error class. */ AnError::AnError(string severity, string errMsg) { // Pretty gross, but the lexer makes sure that this global // always describes the current source line. //this->sourceRef = thisLine; this->severity = severity; this->errMsg = errMsg; } AnError::~AnError() { } string AnError::toString() { return string("\"" + errMsg + "\""); } string AnError::get_errMsg() { return errMsg; } /***************************************************************** * Generate assembler errors of severity "ERROR" */ int Error::count; Error::Error(string errMsg) : AnError(string("ERROR"), errMsg) { } Error::~Error() { } /***************************************************************** * Generate assembler errors of severity "FATAL_ERROR" */ FatalError::FatalError(string errMsg) : AnError(string("FATAL_ERROR"), errMsg) { } FatalError::~FatalError() { } /***************************************************************** * Generate a generic Type Mismatch error of the "expected xx, * observed yy" variety. */ TypeMismatch::TypeMismatch(string theOperator, string expectedType, string observedType) : Error(" Type mismatch for " + theOperator + " operator. Type expected " + expectedType + ", found " + observedType) { } /***************************************************************** * Generate a generic Type Mismatch error of the "operator x * cannot be applied to type y" variety. */ TypeMismatch::TypeMismatch(string theOperator, string observedType) : Error("Operator <" + theOperator + "> cannot be applied to type " + observedType) { } TypeMismatch::~TypeMismatch() { } gpsim-0.27.0/src/pic-processor.h0000664000076400007640000003527112175377101013416 00000000000000/* Copyright (C) 1998-2000 T. Scott Dattalo Copyright (C) 2013 Roy R. Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __PIC_PROCESSORS_H__ #define __PIC_PROCESSORS_H__ #include #include #include "gpsim_classes.h" #include "modules.h" #include "processor.h" #include "program_files.h" #include "pic-registers.h" #include "14bit-registers.h" #include "trigger.h" class EEPROM; class instruction; class Register; class sfr_register; class pic_register; class ConfigMemory; class ResetTraceType; class InterruptTraceType; enum PROCESSOR_TYPE { _PIC_PROCESSOR_, _14BIT_PROCESSOR_, _14BIT_E_PROCESSOR_, // 14bit enhanced processor _12BIT_PROCESSOR_, _PIC17_PROCESSOR_, _PIC18_PROCESSOR_, _P10F200_, _P10F202_, _P10F204_, _P10F206_, _P10F220_, _P10F222_, _P12C508_, _P12C509_, _P12F508_, _P12F509_, _P12F510_, _P12F629_, _P12F675_, _P12F683_, _P12F1822_, _P16C84_, _P16CR83_, _P16CR84_, _P12CE518_, _P12CE519_, _P16F83_, _P16F84_, _P16C71_, _P16C712_, _P16C716_, _P16C54_, _P16C55_, _P16C56_, _P16C61_, _P16C62_, _P16C62A_, _P16CR62_, _P16F627_, _P16F628_, _P16F630_, _P16F631_, _P16F648_, _P16F676_, _P16F677_, _P16F684_, _P16F685_, _P16F687_, _P16F689_, _P16F690_, _P16C63_, _P16C64_, _P16C64A_, _P16CR64_, _P16C65_, _P16C65A_, _P16C72_, _P16C73_, _P16C74_, _P16F73_, _P16F74_, _P16F87_, _P16F88_, _P16F818_, _P16F819_, _P16F871_, _P16F873_, _P16F873A_, _P16F874_, _P16F874A_, _P16F876_, _P16F876A_, _P16F877_, _P16F877A_, _P16F882_, _P16F883_, _P16F884_, _P16F886_, _P16F887_, _P16F1823_, _P17C7xx_, _P17C75x_, _P17C752_, _P17C756_, _P17C756A_, _P17C762_, _P17C766_, _P18Cxx2_, _P18C2x2_, _P18C242_, _P18F242_, _P18F248_, _P18F448_, _P18C252_, _P18F252_, _P18C442_, _P18C452_, _P18F442_, _P18F452_, _P18F1220_, _P18F1320_, _P18F2221_, _P18F2321_, _P18F2420_, _P18F2520_, _P18F2455_, _P18F4221_, _P18F4321_, _P18F4420_, _P18F4520_, _P18F4455_, _P18F4620_, _P18F6520_, }; // Configuration modes. DELETE THIS... // The configuration mode bits are the config word bits remapped. // The remapping removes processor dependent bit definitions. class ConfigMode { public: enum { CM_FOSC0 = 1<<0, // FOSC0 and FOSC1 together define the PIC clock CM_FOSC1 = 1<<1, // All PICs todate have these two bits, but the // ones with internal oscillators use them differently CM_WDTE = 1<<2, // Watch dog timer enable CM_CP0 = 1<<3, // Code Protection CM_CP1 = 1<<4, CM_PWRTE = 1<<5, // Power on/Reset timer enable CM_BODEN = 1<<6, // Brown out detection enable CM_CPD = 1<<7, CM_MCLRE = 1<<8, // MCLR enable CM_FOSC1x = 1<<31, // Hack for internal oscillators }; int config_mode; int valid_bits; ConfigMode() { config_mode = 0xffff; valid_bits = CM_FOSC0 | CM_FOSC1 | CM_WDTE; }; virtual ~ConfigMode() { } virtual void set_config_mode(int new_value) { config_mode = new_value & valid_bits;}; virtual void set_valid_bits(int new_value) { valid_bits = new_value;}; void set_fosc0(){config_mode |= CM_FOSC0;}; void clear_fosc0(){config_mode &= ~CM_FOSC0;}; bool get_fosc0(){return (config_mode & CM_FOSC0);}; void set_fosc1(){config_mode |= CM_FOSC1;}; void clear_fosc1(){config_mode &= ~CM_FOSC1;}; bool get_fosc1(){return (0 != (config_mode & CM_FOSC1));}; bool get_fosc1x(){return (0 != (config_mode & CM_FOSC1x));}; void set_fosc01(int v) { config_mode = (config_mode & ~(CM_FOSC0 | CM_FOSC1)) | (v & (CM_FOSC0 | CM_FOSC1)); } void set_cp0() {config_mode |= CM_CP0; valid_bits |= CM_CP0;}; void clear_cp0(){config_mode &= ~CM_CP0; valid_bits |= CM_CP0;}; bool get_cp0() {return (0 != (config_mode & CM_CP0));}; void set_cp1() {config_mode |= CM_CP1; valid_bits |= CM_CP1;}; void clear_cp1(){config_mode &= ~CM_CP1; valid_bits |= CM_CP1;}; bool get_cp1() {return (0 != (config_mode & CM_CP1));}; void enable_wdt() {config_mode |= CM_WDTE;}; void disable_wdt() {config_mode &= ~CM_WDTE;}; void set_wdte(bool b) { config_mode = b ? (config_mode | CM_WDTE) : (config_mode & ~CM_WDTE); } bool get_wdt() {return (0 != (config_mode & CM_WDTE));}; void set_mclre(bool b) { config_mode = b ? (config_mode | CM_MCLRE) : (config_mode & ~CM_MCLRE); } bool get_mclre() {return (0 != (config_mode & CM_MCLRE));}; void enable_pwrte() {config_mode |= CM_PWRTE; valid_bits |= CM_PWRTE;}; void disable_pwrte() {config_mode &= ~CM_PWRTE; valid_bits |= CM_PWRTE;}; void set_pwrte(bool b) { config_mode = b ? (config_mode | CM_PWRTE) : (config_mode & ~CM_PWRTE); } bool get_pwrte() {return (0 != (config_mode & CM_PWRTE));}; bool is_valid_pwrte() {return (0 != (valid_bits & CM_PWRTE));}; virtual void print(); }; //--------------------------------------------------------- // Watch Dog Timer // class WDT : public TriggerObject, public gpsimObject { public: WDT(pic_processor *, double _timeout); void put(unsigned int new_value); virtual void initialize(bool enable); virtual void swdten(bool enable); void set_timeout(double); virtual void set_prescale(unsigned int); virtual void set_postscale(unsigned int); virtual void reset(RESET_TYPE r); void clear(); virtual void callback(); virtual void update(); virtual void callback_print(); void set_breakpoint(unsigned int bpn); bool hasBreak() { return breakpoint != 0;} protected: pic_processor *cpu; // The cpu to which this wdt belongs. unsigned int breakpoint, prescale, postscale; guint64 future_cycle; double timeout; // When no prescaler is assigned bool wdte; bool warned; bool cfgw_enable; // Enabled from Configureation word }; /*================================================================== * FIXME - move these global references somewhere else */ #include "cmd_gpsim.h" extern guint64 gui_update_rate; // The rate (in simulation cycles) at which the gui is updated /*================================================================== * * Here are the base class declarations for the pic processors */ /* * First, forward-declare a few class references */ enum IOPIN_TYPES { INPUT_ONLY, // e.g. MCLR BI_DIRECTIONAL, // most iopins BI_DIRECTIONAL_PU, // same as bi_directional, but with pullup resistor. e.g. portb OPEN_COLLECTOR // bit4 in porta on the 18 pin midrange devices. }; /* * Define a base class processor for the pic processor family * * All pic processors are derived from this class. */ class PicTrisRegister; class PicLatchRegister; class IO_SignalControl; class pic_processor : public Processor { public: unsigned int config_word; // as read from hex or cod file ConfigMode *config_modes; // processor dependent configuration bits. unsigned int pll_factor; // 2^pll_factor is the speed boost the PLL adds // to the instruction execution rate. WDT wdt; INDF *indf; FSR *fsr; Stack *stack; Status_register *status; WREG *Wreg; // Used when W is a normal register PCL *pcl; PCLATH *pclath; PCHelper *m_PCHelper; TMR0 tmr0; int num_of_gprs; EEPROM *eeprom; // set to NULL for PIC's that don't have a data EEPROM bool LoadProgramFile(const char *pFilename, FILE *pFile, const char *pProcessorName ); void add_sfr_register(Register *reg, unsigned int addr, RegisterValue por_value=RegisterValue(0,0),const char *new_name=0); void delete_sfr_register(Register *pReg); void remove_sfr_register(Register *pReg); void init_program_memory(unsigned int memory_size); void build_program_memory(int *memory,int minaddr, int maxaddr); virtual instruction * disasm ( unsigned int address,unsigned int inst)=0; virtual void create_config_memory() = 0; virtual void tris_instruction(unsigned int tris_register) {return;}; virtual void create_symbols(); virtual void run(bool refresh=true); virtual void finish(); void sleep(); virtual void enter_sleep(); virtual void exit_sleep(); virtual bool exit_wdt_sleep() { return true; } // WDT wakes sleep bool is_sleeping(); virtual void step(unsigned int steps,bool refresh=true); virtual void step_over(bool refresh=true); virtual void step_cycle(); virtual void step_one(bool refresh=true) { if (pc->value >= 0 && pc->value < program_memory_size()) program_memory[pc->value]->execute(); else { cout << "Program counter not valid " << hex << pc->value << endl; get_bp().halt(); } } // Take a snap shot of the internal state. virtual void save_state(); virtual void interrupt() { return; }; //// TEMPORARY - consolidate the various bp.set_interrupt() calls to one function: void BP_set_interrupt(); void pm_write(); virtual ConfigMemory * getConfigMemory(){ return m_configMemory;} virtual bool set_config_word(unsigned int address, unsigned int cfg_word); virtual unsigned int get_config_word(unsigned int address); virtual int get_config_index(unsigned int address); virtual unsigned int config_word_address() const {return 0x2007;}; virtual ConfigMode *create_ConfigMode() { return new ConfigMode; }; virtual void reset(RESET_TYPE r); virtual void create(); virtual PROCESSOR_TYPE isa(){return _PIC_PROCESSOR_;}; virtual PROCESSOR_TYPE base_isa(){return _PIC_PROCESSOR_;}; virtual unsigned int access_gprs() { return 0; }; virtual unsigned int bugs() { return 0; }; // default is no errata /* The program_counter class calls these two functions to get the upper bits of the PC * for branching (e.g. goto) or modify PCL instructions (e.g. addwf pcl,f) */ virtual unsigned int get_pclath_branching_jump()=0; virtual unsigned int get_pclath_branching_modpcl()=0; virtual void option_new_bits_6_7(unsigned int)=0; virtual void put_option_reg(unsigned int) {} virtual void set_eeprom(EEPROM *e); virtual EEPROM *get_eeprom() { return (eeprom); } virtual void createMCLRPin(int pkgPinNumber); virtual void assignMCLRPin(int pkgPinNumber); virtual void unassignMCLRPin(); virtual void osc_mode(unsigned int ); // Activity States reflect what the processor is currently doing // (The breakpoint class formally implemented this functionality). enum eProcessorActivityStates { ePAActive, // Normal state ePAIdle, // Processor is held in reset ePASleeping, // Processor is sleeping ePAInterrupt, // do we need this? ePAPMWrite // Processor is busy performing a program memory write }; eProcessorActivityStates getActivityState() { return m_ActivityState; } pic_processor(const char *_name=0, const char *desc=0); virtual ~pic_processor(); void set_osc_pin_Number(unsigned int i, unsigned int val, PinModule *pm) {osc_pin_Number[i] = val; m_osc_Monitor[i] = pm;} unsigned char get_osc_pin_Number(unsigned int i) {return osc_pin_Number[i];} PinModule * get_osc_PinMonitor(unsigned int i) { return m_osc_Monitor[i]; } void set_clk_pin(unsigned int pkg_Pin_Number, PinModule *PinMod, const char * name, bool in, PicPortRegister *m_port = 0, PicTrisRegister *m_tris = 0, PicLatchRegister *m_lat = 0 ); void clr_clk_pin(unsigned int pkg_Pin_Number, PinModule *PinMod, PicPortRegister *m_port = 0, PicTrisRegister *m_tris = 0, PicLatchRegister *m_lat = 0 ); virtual void set_int_osc(bool val){ internal_osc = val;} virtual bool get_int_osc(){ return internal_osc; } virtual void set_pplx4_osc(bool val){ PPLx4 = val;} virtual bool get_pplx4_osc(){ return PPLx4; } virtual void Wput(unsigned int); virtual unsigned int Wget(); protected: ConfigMemory *m_configMemory; eProcessorActivityStates m_ActivityState; ResetTraceType *m_pResetTT; InterruptTraceType *m_pInterruptTT; // Most midrange PIC's have a dedicated MCLR pin. // For the ones that don't, m_MCLR will be null. IOPIN *m_MCLR; IOPIN *m_MCLR_Save; int m_MCLR_pin; PinMonitor *m_MCLRMonitor; string m_mclr_pin_name; unsigned char osc_pin_Number[2]; PinModule *m_osc_Monitor[2]; bool internal_osc; // internal RC oscilator enabled on Config Word bool PPLx4; // 4x PPL enabled on Config Word }; #define cpu_pic ( (pic_processor *)cpu) // Bit field of known silicon bugs #define BUG_NONE 0 #define BUG_DAW 0x00000001 //------------------------------------------------------------------------ // Base Class for configuration memory // // The configuration memory is only a tiny portion of the overall processor // program memory space (only 1-word on the mid range devices). So, explicit // attributes are created for each memory configuration word. Since the meaning // of configuration memory varies from processor to processor, it is up to // each process to derive from this class. class ConfigWord : public Integer { public: ConfigWord(const char *_name, unsigned int default_val, const char *desc, pic_processor *pCpu, unsigned int addr, bool EEw=true); virtual void get(char *buffer, int buf_size); virtual void get(gint64 &i); unsigned int ConfigWordAdd() { return m_addr; } bool isEEWritable() { return EEWritable;} protected: pic_processor *m_pCpu; unsigned int m_addr; bool EEWritable; }; class ConfigMemory { public: ConfigMemory(pic_processor *pCpu, unsigned int nWords); ~ConfigMemory(); int addConfigWord(unsigned int addr, ConfigWord *); ConfigWord *getConfigWord(unsigned int addr); int getnConfigWords() { return m_nConfigWords; } protected: pic_processor *m_pCpu; ConfigWord **m_ConfigWords; unsigned int m_nConfigWords; }; /* class ConfigMemory : public Integer { public: ConfigMemory(const char *_name, unsigned int default_val, const char *desc, pic_processor *pCpu, unsigned int addr); protected: pic_processor *m_pCpu; unsigned int m_addr; }; */ #endif gpsim-0.27.0/src/p18x.h0000664000076400007640000003700712175377101011425 00000000000000/* Copyright (C) 1998 T. Scott Dattalo Copyright (C) 2010 Roy R Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __P18X_H__ #define __P18X_H__ #include "16bit-processors.h" #include "eeprom.h" #include "psp.h" #include "pir.h" #include "comparator.h" class PicPortRegister; class PicTrisRegister; class PicLatchRegister; class ADCON0_V2; class ADCON1_V2; class ADCON2_V2; class P18C2x2 : public _16bit_compat_adc { public: P18C2x2(const char *_name=0, const char *desc=0); void create(); virtual PROCESSOR_TYPE isa(){return _P18Cxx2_;}; virtual PROCESSOR_TYPE base_isa(){return _PIC18_PROCESSOR_;}; virtual void create_symbols(); virtual unsigned int program_memory_size() const { return 0x400; }; virtual unsigned int IdentMemorySize() const { return 2; } // only two words on 18C virtual void create_iopin_map(); }; class P18C242 : public P18C2x2 { public: virtual PROCESSOR_TYPE isa(){return _P18C242_;}; P18C242(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); void create(); virtual unsigned int program_memory_size() const { return 0x2000; }; virtual unsigned int last_actual_register () const { return 0x02FF;}; }; class P18C252 : public P18C242 { public: virtual PROCESSOR_TYPE isa(){return _P18C252_;}; P18C252(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); void create(); virtual unsigned int program_memory_size() const { return 0x4000; }; virtual unsigned int last_actual_register () const { return 0x05FF;}; }; /********************************************************************* * class definitions for the 18C4x2 family */ //class P18C4x2 : public _16bit_processor class P18C4x2 : public _16bit_compat_adc { public: PicPSP_PortRegister *m_portd; PicTrisRegister *m_trisd; PicLatchRegister *m_latd; PicPortRegister *m_porte; PicPSP_TrisRegister *m_trise; PicLatchRegister *m_late; PSP psp; P18C4x2(const char *_name=0, const char *desc=0); ~P18C4x2(); void create(); virtual PROCESSOR_TYPE isa(){return _P18Cxx2_;}; virtual PROCESSOR_TYPE base_isa(){return _PIC18_PROCESSOR_;}; virtual void create_symbols(); virtual unsigned int program_memory_size() const { return 0x400; }; virtual unsigned int IdentMemorySize() const { return 2; } // only two words on 18C virtual void create_sfr_map(); virtual void create_iopin_map(); }; class P18C442 : public P18C4x2 { public: virtual PROCESSOR_TYPE isa(){return _P18C442_;}; P18C442(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); void create(); virtual unsigned int program_memory_size() const { return 0x2000; }; virtual unsigned int last_actual_register () const { return 0x02FF;}; }; class P18C452 : public P18C442 { public: virtual PROCESSOR_TYPE isa(){return _P18C452_;}; P18C452(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); void create(); virtual unsigned int program_memory_size() const { return 0x4000; }; virtual unsigned int last_actual_register () const { return 0x05FF;}; }; class P18F242 : public P18C242 { public: virtual PROCESSOR_TYPE isa(){return _P18F242_;}; P18F242(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); void create(); virtual unsigned int program_memory_size() const { return 0x2000; }; virtual unsigned int IdentMemorySize() const { return 4; } virtual void set_eeprom(EEPROM *ep) { // Use set_eeprom_pir as the 18Fxxx devices use an EEPROM with PIR assert(0); } virtual void set_eeprom_pir(EEPROM_PIR *ep) { eeprom = ep; } virtual EEPROM_PIR *get_eeprom() { return ((EEPROM_PIR *)eeprom); } }; class P18F252 : public P18F242 { public: virtual PROCESSOR_TYPE isa(){return _P18F252_;}; P18F252(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); void create(); virtual unsigned int program_memory_size() const { return 0x4000; }; }; class P18F442 : public P18C442 { public: virtual PROCESSOR_TYPE isa(){return _P18F442_;}; P18F442(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); void create(); virtual unsigned int program_memory_size() const { return 0x2000; }; virtual unsigned int IdentMemorySize() const { return 4; } virtual void set_eeprom(EEPROM *ep) { // Use set_eeprom_pir as the 18Fxxx devices use an EEPROM with PIR assert(0); } virtual void set_eeprom_pir(EEPROM_PIR *ep) { eeprom = ep; } virtual EEPROM_PIR *get_eeprom() { return ((EEPROM_PIR *)eeprom); } }; // // The P18F248 is the same as the P18F242 except it has CAN, one fewer // CCP module and a 5/10 ADC. For now just assume it is identical. class P18F248 : public P18F242 { public: virtual PROCESSOR_TYPE isa(){return _P18F248_;}; P18F248(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); void create(); }; // // The P18F448 is the same as the P18F442 except it has CAN, one fewer // CCP module and a 5/10 ADC. For now just assume it is identical. class P18F448 : public P18F442 { public: virtual PROCESSOR_TYPE isa(){return _P18F448_;}; P18F448(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); void create(); }; class P18F452 : public P18F442 { public: virtual PROCESSOR_TYPE isa(){return _P18F452_;}; P18F452(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); void create(); virtual unsigned int program_memory_size() const { return 0x4000; }; virtual unsigned int last_actual_register () const { return 0x05FF;}; }; class P18Fxx20 : public _16bit_v2_adc { public: P18Fxx20(const char *_name=0, const char *desc=0); virtual PROCESSOR_TYPE base_isa(){return _PIC18_PROCESSOR_;}; virtual unsigned int last_actual_register () const { return 0x00FF;}; // Strip down from base class virtual bool HasPortC(void) { return false; }; virtual bool HasCCP2(void) { return false; }; }; class P18F1220 : public P18Fxx20 { public: OSCTUNE osctune; ECCPAS eccpas; PWM1CON pwm1con; virtual PROCESSOR_TYPE isa(){return _P18F1220_;}; P18F1220(const char *_name=0, const char *desc=0); ~P18F1220(); static Processor *construct(const char *name); void create(); virtual void create_iopin_map(); virtual unsigned int program_memory_size() const { return 0x1000; }; virtual void osc_mode(unsigned int value); virtual void set_eeprom(EEPROM *ep) { // Use set_eeprom_pir as the 18Fxxx devices use an EEPROM with PIR assert(0); } virtual void set_eeprom_pir(EEPROM_PIR *ep) { eeprom = ep; } virtual EEPROM_PIR *get_eeprom() { return ((EEPROM_PIR *)eeprom); } }; class P18F1320 : public P18F1220 { public: virtual PROCESSOR_TYPE isa(){return _P18F1320_;}; P18F1320(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); void create(); virtual unsigned int program_memory_size() const { return 0x2000; }; }; class P18F2x21 : public _16bit_v2_adc { public: PicPortRegister *m_porte; PicPSP_TrisRegister *m_trise; PicLatchRegister *m_late; ECCPAS eccpas; PWM1CON pwm1con; OSCTUNE osctune; ComparatorModule comparator; P18F2x21(const char *_name=0, const char *desc=0); ~P18F2x21(); void create(); virtual PROCESSOR_TYPE isa(){return _P18Cxx2_;}; virtual PROCESSOR_TYPE base_isa(){return _PIC18_PROCESSOR_;}; virtual void create_symbols(); virtual unsigned int program_memory_size() const { return 0x400; }; virtual unsigned int eeprom_memory_size() const { return 0x100; }; // Setting the correct register memory size breaks things // virtual unsigned int register_memory_size () const { return 0x200;}; virtual unsigned int last_actual_register () const { return 0x01FF;}; virtual void create_iopin_map(); virtual void create_sfr_map(); virtual void set_eeprom(EEPROM *ep) { // Use set_eeprom_pir as the 18Fxxx devices use an EEPROM with PIR assert(0); } virtual void set_eeprom_pir(EEPROM_PIR *ep) { eeprom = ep; } virtual EEPROM_PIR *get_eeprom() { return ((EEPROM_PIR *)eeprom); } virtual void osc_mode(unsigned int value); }; class P18F2221 : public P18F2x21 { public: virtual PROCESSOR_TYPE isa(){return _P18F2221_;}; P18F2221(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); virtual unsigned int program_memory_size() const { return 0x800; }; }; class P18F2321 : public P18F2x21 { public: virtual PROCESSOR_TYPE isa(){return _P18F2321_;}; P18F2321(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); virtual unsigned int program_memory_size() const { return 0x1000; }; }; class P18F2420 : public P18F2x21 { public: virtual PROCESSOR_TYPE isa(){return _P18F2420_;}; P18F2420(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); virtual unsigned int program_memory_size() const { return 0x2000; }; }; class P18F2455 : public P18F2x21 { public: sfr_register ufrml, ufrmh, uir, uie, ueir, ueie, ustat, ucon, uaddr, ucfg, uep0, uep1, uep2, uep3, uep4, uep5, uep6, uep7, uep8, uep9, uep10, uep11, uep12, uep13, uep14, uep15; PIR2v4 pir2; virtual PROCESSOR_TYPE isa(){return _P18F2455_;}; P18F2455(const char *_name=0, const char *desc=0); ~P18F2455(); static Processor *construct(const char *name); void create_sfr_map(); virtual unsigned int access_gprs() { return 0x60; }; // USB peripheral moves access split virtual unsigned int program_memory_size() const { return 0x3000; }; virtual unsigned int last_actual_register () const { return 0x07FF;}; }; class P18F2520 : public P18F2x21 { public: virtual PROCESSOR_TYPE isa(){return _P18F2520_;}; P18F2520(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); virtual unsigned int program_memory_size() const { return 0x4000; }; }; class P18F4x21 : public P18F2x21 { public: PicPSP_PortRegister *m_portd; PicTrisRegister *m_trisd; PicLatchRegister *m_latd; PSP psp; P18F4x21(const char *_name=0, const char *desc=0); ~P18F4x21(); void create(); virtual void create_symbols(); virtual void create_iopin_map(); virtual void create_sfr_map(); }; class P18F4221 : public P18F4x21 { public: virtual PROCESSOR_TYPE isa(){return _P18F4221_;}; P18F4221(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); virtual unsigned int program_memory_size() const { return 0x800; }; }; class P18F4321 : public P18F4x21 { public: virtual PROCESSOR_TYPE isa(){return _P18F4321_;}; P18F4321(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); virtual unsigned int program_memory_size() const { return 0x1000; }; }; class P18F4420 : public P18F4x21 { public: virtual PROCESSOR_TYPE isa(){return _P18F4420_;}; P18F4420(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); virtual unsigned int program_memory_size() const { return 0x2000; }; }; class P18F4455 : public P18F4x21 { public: sfr_register ufrml, ufrmh, uir, uie, ueir, ueie, ustat, ucon, uaddr, ucfg, uep0, uep1, uep2, uep3, uep4, uep5, uep6, uep7, uep8, uep9, uep10, uep11, uep12, uep13, uep14, uep15; PIR2v4 pir2; virtual PROCESSOR_TYPE isa(){return _P18F4455_;}; P18F4455(const char *_name=0, const char *desc=0); ~P18F4455(); static Processor *construct(const char *name); void create(); virtual unsigned int access_gprs() { return 0x60; }; // USB peripheral moves access split virtual unsigned int program_memory_size() const { return 0x3000; }; virtual unsigned int last_actual_register () const { return 0x07FF;}; }; class P18F4520 : public P18F4x21 { public: virtual PROCESSOR_TYPE isa(){return _P18F4520_;}; P18F4520(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); virtual unsigned int program_memory_size() const { return 0x4000; }; }; /*** PIC18F4620 Not implemented: OSCFIF bit in peripheral interrupt register 2 (PIR2v2 pir2)(And Enable Bit) ***/ class P18F4620 : public P18F4x21 { public: virtual PROCESSOR_TYPE isa(){return _P18F4620_;}; P18F4620(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); virtual unsigned int program_memory_size() const { return 0x8000; }; virtual unsigned int eeprom_memory_size() const { return 1024; }; virtual unsigned int last_actual_register () const { return 0x0F7F;}; }; class P18F6x20 : public _16bit_v2_adc { public: PicPSP_PortRegister *m_portd; PicTrisRegister *m_trisd; PicLatchRegister *m_latd; PicPortRegister *m_porte; //RRRPicPSP_TrisRegister *m_trise; PicTrisRegister *m_trise; PicLatchRegister *m_late; PicPortRegister *m_portf; PicTrisRegister *m_trisf; PicLatchRegister *m_latf; PicPortRegister *m_portg; PicTrisRegister *m_trisg; PicLatchRegister *m_latg; PSP psp; PSPCON *pspcon; // ECCPAS eccpas; // PWM1CON pwm1con; T2CON t4con; PR2 pr4; TMR2 tmr4; PIR3v1 pir3; PIE pie3; sfr_register ipr3; CCPCON ccp3con; CCPRL ccpr3l; CCPRH ccpr3h; CCPCON ccp4con; CCPRL ccpr4l; CCPRH ccpr4h; CCPCON ccp5con; CCPRL ccpr5l; CCPRH ccpr5h; USART_MODULE usart2; // OSCTUNE osctune; ComparatorModule comparator; P18F6x20(const char *_name=0, const char *desc=0); ~P18F6x20(); void create(); virtual PROCESSOR_TYPE isa(){return _P18Cxx2_;}; virtual PROCESSOR_TYPE base_isa(){return _PIC18_PROCESSOR_;}; virtual unsigned int access_gprs() { return 0x60; }; virtual void create_symbols(); virtual unsigned int program_memory_size() const { return 0x4000; }; virtual unsigned int eeprom_memory_size() const { return 1024; }; // Setting the correct register memory size breaks things // virtual unsigned int register_memory_size () const { return 0x800;}; virtual unsigned int last_actual_register () const { return 0x07FF;}; virtual void create_iopin_map(); virtual void create_sfr_map(); virtual void set_eeprom(EEPROM *ep) { // Use set_eeprom_pir as the 18Fxxx devices use an EEPROM with PIR assert(0); } virtual void set_eeprom_pir(EEPROM_PIR *ep) { eeprom = ep; } virtual EEPROM_PIR *get_eeprom() { return ((EEPROM_PIR *)eeprom); } }; class P18F6520 : public P18F6x20 { public: virtual PROCESSOR_TYPE isa(){return _P18F6520_;}; P18F6520(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); // virtual unsigned int program_memory_size() const { return 0x4000; }; virtual unsigned int bugs() { return BUG_DAW; }; }; #endif gpsim-0.27.0/src/ssp.cc0000664000076400007640000016760712175377101011602 00000000000000/* Copyright (C) 1998,1999,2000,2001,2002 Scott Dattalo 2006,2011 Roy R Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include "../config.h" #include "ssp.h" #include "pic-ioports.h" #include "stimuli.h" #include "14bit-processors.h" #include "14bit-tmrs.h" #include "xref.h" //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("%s:%d-%s() ",__FILE__,__LINE__,__FUNCTION__); printf arg; } #else #define Dprintf(arg) {} #endif //#warning only supports SPI mode. //----------------------------------------------------------- // SSPSTAT - Synchronous Serial Port Status register. _SSPSTAT::_SSPSTAT(Processor *pCpu, SSP_MODULE *pSSP) : sfr_register(pCpu, "sspstat","Synchronous Serial Port Status"), m_sspmod(pSSP) { } /* only CKE and SMP is writable */ void _SSPSTAT::put(unsigned int new_value) { unsigned int old6 = value.get() & ~(CKE|SMP); // For BSSP register is read only otherwise // only CKE and SMP are writable if (!m_sspmod || m_sspmod->ssp_type() == SSP_TYPE_BSSP) return; put_value(old6 | (new_value & (CKE|SMP))); } void _SSPSTAT::put_value(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value); } class SCK_SignalSource : public SignalControl { public: SCK_SignalSource(SSP_MODULE *_ssp_mod, PinModule *_pin) : m_pin(_pin), m_ssp_mod(_ssp_mod), m_cState('?') {} ~SCK_SignalSource(){} virtual void release(){m_ssp_mod->releaseSCKpin();} virtual char getState() { return m_cState;} virtual void putState(const char new3State) { if (new3State != m_cState) { m_cState = new3State; m_pin->updatePinModule(); } } virtual void toggle() { switch (m_cState) { case '1': case 'W': putState('0'); break; case '0': case 'w': putState('1'); break; } } private: PinModule *m_pin; SSP_MODULE *m_ssp_mod; char m_cState; }; class SDO_SignalSource : public SignalControl { public: SDO_SignalSource(SSP_MODULE *_ssp_mod, PinModule *_pin) : m_pin(_pin), m_ssp_mod(_ssp_mod), m_cState('?') {} virtual void release(){m_ssp_mod->releaseSDOpin();} virtual char getState() { return m_cState;} virtual void putState(const char new3State) { if (new3State != m_cState) { m_cState = new3State; m_pin->updatePinModule(); } } private: PinModule *m_pin; SSP_MODULE *m_ssp_mod; char m_cState; }; class SDI_SignalSource : public SignalControl { public: SDI_SignalSource(SSP_MODULE *_ssp_mod, PinModule *_pin) : m_pin(_pin), m_ssp_mod(_ssp_mod), m_cState('?') {} virtual void release(){m_ssp_mod->releaseSDIpin();} virtual char getState() { return m_cState;} virtual void putState(const char new3State) { if (new3State != m_cState) { m_cState = new3State; m_pin->updatePinModule(); } } private: PinModule *m_pin; SSP_MODULE *m_ssp_mod; char m_cState; }; class SDI_SignalSink : public SignalSink { public: SDI_SignalSink(SSP_MODULE *_ssp_mod) : m_ssp_mod(_ssp_mod) { assert(_ssp_mod); } virtual ~SDI_SignalSink(){} virtual void release(){delete this;} void setSinkState(char new3State) { m_ssp_mod->SDI_SinkState(new3State); } private: SSP_MODULE *m_ssp_mod; }; class SCL_SignalSink : public SignalSink { public: SCL_SignalSink(SSP_MODULE *_ssp_mod) : m_ssp_mod(_ssp_mod) { assert(_ssp_mod); } virtual ~SCL_SignalSink(){} virtual void release(){delete this; } void setSinkState(char new3State) { m_ssp_mod->SCL_SinkState(new3State); } private: SSP_MODULE *m_ssp_mod; }; class SS_SignalSink : public SignalSink { public: SS_SignalSink(SSP_MODULE *_ssp_mod) : m_ssp_mod(_ssp_mod) { assert(_ssp_mod); } virtual ~SS_SignalSink(){} virtual void release(){delete this; } void setSinkState(char new3State) { m_ssp_mod->SS_SinkState(new3State); } private: SSP_MODULE *m_ssp_mod; }; //----------------------------------------------------------- // SSPCON - Synchronous Serial Port Control register. //----------------------------------------------------------- _SSPCON::_SSPCON(Processor *pCpu, SSP_MODULE *pSSP) : sfr_register(pCpu, "sspcon","Synchronous Serial Port Control"), m_sspmod(pSSP) { } bool _SSPCON::isSPIActive(unsigned int value) { if (value & SSPEN) { switch(value & SSPM_mask) { case SSPM_SPImaster4: case SSPM_SPImaster16: case SSPM_SPImaster64: case SSPM_SPImasterTMR2: case SSPM_SPIslaveSS: case SSPM_SPIslave: return(true); case SSPM_SPImasterAdd: if ((m_sspmod->ssp_type() == SSP_TYPE_MSSP1)) return(true); } } return(false); } bool _SSPCON::isSPIMaster() { unsigned int reg_value = value.get(); if (reg_value & SSPEN) { switch(reg_value & SSPM_mask) { case SSPM_SPImaster4: case SSPM_SPImaster16: case SSPM_SPImaster64: case SSPM_SPImasterTMR2: return(true); case SSPM_SPImasterAdd: if ((m_sspmod->ssp_type() == SSP_TYPE_MSSP1)) return(true); break; } } return(false); } /* process write to SSPCON */ void _SSPCON::put(unsigned int new_value) { unsigned int old_value = value.get(); put_value(new_value); Dprintf(("SSPCON new %x old %x\n", new_value, old_value)); if ((new_value & SSPEN) && ! (old_value & SSPEN)) // Turn on SSP m_sspmod->startSSP(new_value); else if (!(new_value & SSPEN) && (old_value & SSPEN)) // Turn off SSP m_sspmod->stopSSP(old_value); else if (new_value != old_value ) // change while active m_sspmod->changeSSP(new_value, old_value); } /* update SSPCON without action */ void _SSPCON::put_value(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value & 0xff); } /* Set WCOL bit of SSPCON */ void _SSPCON::setWCOL() { if (value.get() & WCOL) return; put_value(value.get() | WCOL); } /* return true if a I2C mode is enabled in SSPCON */ bool _SSPCON::isI2CActive(unsigned int val) { if ( (val & SSPEN) != SSPEN) return(false); switch(val & SSPM_mask) { case SSPM_I2Cslave_7bitaddr: case SSPM_I2Cslave_10bitaddr: case SSPM_MSSPI2Cmaster: case SSPM_I2Cfirmwaremaster: case SSPM_I2Cslave_7bitaddr_ints: case SSPM_I2Cslave_10bitaddr_ints: return(true); break; } return(false); } bool _SSPCON::isI2CMaster(unsigned int val) { if ( (val & SSPEN) != SSPEN) return(false); switch(val & SSPM_mask) { case SSPM_MSSPI2Cmaster: case SSPM_I2Cfirmwaremaster: return(true); break; } return(false); } /* return true if an I2C slave mode is enabled in SSPCON */ bool _SSPCON::isI2CSlave(unsigned int val) { if ( (val & SSPEN) != SSPEN) return(false); switch(val & SSPM_mask) { case SSPM_I2Cslave_7bitaddr: case SSPM_I2Cslave_10bitaddr: case SSPM_I2Cslave_7bitaddr_ints: case SSPM_I2Cslave_10bitaddr_ints: return(true); break; } return(false); } //----------------------------------------------------------- // SSPBUF - Synchronous Serial Port Control register. //----------------------------------------------------------- _SSPBUF::_SSPBUF(Processor *pCpu, SSP_MODULE *pSSP) : sfr_register(pCpu, "sspbuf","Synchronous Serial Port Buffer"), m_sspmod(pSSP), m_bIsFull(false) { } /* process write to SSPBUF */ void _SSPBUF::put(unsigned int new_value) { put_value(new_value); m_sspmod->newSSPBUF(value.get()); m_bIsFull = false; } /* update SSPBUF without processing data */ void _SSPBUF::put_value(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value & 0xff); } /* void _SSPBUF::setSSPMODULE( SSP_MODULE *_sspmod) { m_sspmod = _sspmod; } */ unsigned int _SSPBUF::get() { if( m_sspmod ) m_sspmod->rdSSPBUF(); trace.raw(read_trace.get() | value.get()); m_bIsFull = false; return value.get(); } unsigned int _SSPBUF::get_value() { return value.get(); } //----------------------------------------------------------- // SSPADD - Synchronous Serial Port Address (for I2C) //----------------------------------------------------------- _SSPADD::_SSPADD(Processor *pCpu, SSP_MODULE *pSSP) : sfr_register(pCpu, "sspadd","Synchronous Serial Port Address (I2C)"), m_sspmod(pSSP) { } void _SSPADD::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); put_value(new_value); if( m_sspmod ) m_sspmod->newSSPADD(new_value); } void _SSPADD::put_value(unsigned int new_value) { value.put(new_value & 0xff); } SPI::SPI(SSP_MODULE *_ssp_mod, _SSPCON *_sspcon, _SSPSTAT *_sspstat, _SSPBUF *_sspbuf) { m_sspmod = _ssp_mod; m_sspcon = _sspcon; m_sspstat = _sspstat; m_sspbuf = _sspbuf; m_state = eIDLE; } void SPI::clock( bool ClockState ) { // A clock has happened. Either we sent one or we recieved one. bool onbeat; bool allDone = false; if( !m_sspstat || ! m_sspcon) return; unsigned int sspstat_val = m_sspstat->value.get(); unsigned int sspcon_val = m_sspcon->value.get(); //cout << "SPi clock " << ClockState << " m_state=" << m_state << endl; if( ClockState ) // rising edge { if( ( (sspcon_val & _SSPCON::CKP) && !(sspstat_val & _SSPSTAT::CKE) ) || ( !(sspcon_val & _SSPCON::CKP) && (sspstat_val & _SSPSTAT::CKE) ) ) onbeat = true; else onbeat = false; } else // falling edge { if( ( !(sspcon_val & _SSPCON::CKP) && !(sspstat_val & _SSPSTAT::CKE) ) || ( (sspcon_val & _SSPCON::CKP) && (sspstat_val & _SSPSTAT::CKE))) onbeat = true; else onbeat = false; } if( m_state == eIDLE ){ if( sspstat_val & _SSPSTAT::CKE ) { // FIX: I have NOT verified that PICs actually behave like this. cout << "SSP: I can't handle a non-started transfer with CKE = 1." << endl; return; } else if( onbeat ) { // FIX: I have NOT verified that PICs actually behave like this. cout << "SSP: Ignoring clock transition to neutral in state IDLE." << endl; return; } else { // RP: This is only relevant in slave mode? I think clock is never called // while idle in master mode. if (verbose) cout << "SPI clock called start_transfer\n"; start_transfer(); } } if (!m_sspmod) return; if( onbeat ) { // on beat: data is read in if SMP = 0 if( !(sspstat_val & _SSPSTAT::SMP) ) { m_SSPsr <<= 1; if (m_sspmod->get_SDI_State()) m_SSPsr |= 1; if (verbose) cout << "SSP: SPI Received bit = " << (m_SSPsr & 1) << ". (SMP=0)" << endl; } } else { // off beat: data is shifted out, data is read in if SMP = 1 if( sspstat_val & _SSPSTAT::SMP ) { m_SSPsr <<= 1; if (m_sspmod->get_SDI_State()) m_SSPsr |= 1; if (verbose) cout << "SSP: SPI Received bit = " << (m_SSPsr & 1) << ". (SMP=1)" << endl; } char nextSDO = (m_SSPsr&(1<<7)) ? '1' : '0'; m_sspmod->putStateSDO(nextSDO); if (verbose) cout << "SSP: SPI Sent bit = " << nextSDO << "." << endl; } bool bSSPCONValue = (sspcon_val & _SSPCON::CKP) ? true : false; if(bSSPCONValue == ClockState) { bits_transfered++; if( bits_transfered == 8 ) { if( (sspstat_val & _SSPSTAT::SMP) && !(sspstat_val & _SSPSTAT::CKE) ) { m_state = eWAITING_FOR_LAST_SMP; } else { stop_transfer(); allDone = true; } } } if ( !allDone && m_sspcon->isSPIMaster() ) set_halfclock_break(); } void SPI::set_halfclock_break() { int clock_in_cycles = 1; if( !m_sspstat || ! m_sspcon) return; unsigned int sspcon_val = m_sspcon->value.get(); switch( sspcon_val & _SSPCON::SSPM_mask ) { // Simulation requires Fosc/4 to be run at Fosc/8 case _SSPCON::SSPM_SPImaster4: clock_in_cycles = 1; break; case _SSPCON::SSPM_SPImaster16: clock_in_cycles = 2; break; case _SSPCON::SSPM_SPImaster64: clock_in_cycles = 8; break; case _SSPCON::SSPM_SPImasterTMR2: break; } get_cycles().set_break(get_cycles().get() + clock_in_cycles, this); } void SPI::callback() { if (!m_sspmod) return; if (verbose) cout << "SPI callback m_state=" << m_state << endl; switch( m_state ) { case eIDLE: break; case eACTIVE: m_sspmod->Sck_toggle(); clock( m_sspmod->get_SCL_State() ); break; case eWAITING_FOR_LAST_SMP: if( m_sspstat && m_sspstat->value.get() & _SSPSTAT::SMP ) { m_SSPsr <<= 1; if (m_sspmod->get_SDI_State()) m_SSPsr |= 1; if (verbose) cout << "SSP: Received bit = " << (m_SSPsr & 1) << ". (SMP=1)" << endl; } m_state = eACTIVE; stop_transfer(); break; } } //----------------------------------------------------------- void SPI::startSPI() { m_state = eIDLE; bits_transfered = 0; } SPI_1::SPI_1(SSP1_MODULE *_ssp_mod, _SSPCON *_sspcon, _SSPSTAT *_sspstat, _SSPBUF *_sspbuf, _SSP1CON3 *_ssp1con3, _SSPADD *_sspadd) : SPI(_ssp_mod, _sspcon, _sspstat, _sspbuf) { m_ssp1con3 = _ssp1con3; m_sspadd = _sspadd; } void SPI_1::set_halfclock_break() { int clock_in_cycles = 1; if( !m_sspstat || ! m_sspcon) return; unsigned int sspcon_val = m_sspcon->value.get(); switch( sspcon_val & _SSPCON::SSPM_mask ) { // Simulation requires Fosc/4 to be run at Fosc/8 case _SSPCON::SSPM_SPImaster4: clock_in_cycles = 1; break; case _SSPCON::SSPM_SPImaster16: clock_in_cycles = 2; break; case _SSPCON::SSPM_SPImaster64: clock_in_cycles = 8; break; case _SSPCON::SSPM_SPImasterAdd: // Note, this will be low by 1 cycle/clock when sspadd is even clock_in_cycles = (m_sspadd->value.get() + 1)>>1; if (clock_in_cycles < 2) { cout << "WARNING for SPI sspadd must be >= 3\n"; clock_in_cycles = 2; } break; case _SSPCON::SSPM_SPImasterTMR2: break; } get_cycles().set_break(get_cycles().get() + clock_in_cycles, this); } void SPI_1::stop_transfer() { Dprintf(("stop_transfer SPI_1\n")); if (!m_sspcon || !m_sspstat || !m_sspbuf || !m_sspmod || !m_ssp1con3) return; if( m_state == eACTIVE ) { if (bits_transfered == 8 ) Dprintf(("BOEN %x\n", m_ssp1con3->value.get() & _SSP1CON3::BOEN)); if( bits_transfered == 8 && m_ssp1con3->value.get() & _SSP1CON3::BOEN) { if (verbose) cout << "SPI: Stoping transfer. Normal finish. Setting sspif but not BF as BOEN set\n"; m_sspbuf->put_value(m_SSPsr & 0xff); m_sspmod->set_sspif(); } else if( bits_transfered == 8 && !m_sspbuf->isFull() ) { if (verbose) cout << "SPI: Stoping transfer. Normal finish. Setting sspif and BF\n"; m_sspbuf->put_value(m_SSPsr & 0xff); m_sspbuf->setFullFlag(true); m_sspmod->set_sspif(); m_sspstat->put_value(m_sspstat->value.get() | _SSPSTAT::BF); } else if( bits_transfered == 8 && m_sspbuf->isFull() ) { if (verbose) cout << "SPI: Stopping transfer. SSPBUF Overflow setting SSPOV." << endl; m_sspcon->setSSPOV(); m_sspmod->set_sspif(); // The real PIC sets sspif even with overflow } else { cout << "SPI: Stopping transfer. Cancel finish." << endl; // The transfer was canceled in some way } } else { if (verbose) cout << "SSP: Stopping transfer. State != ACTIVE." << endl; } m_state = eIDLE; } SSP_MODULE::SSP_MODULE(Processor *pCpu) : sspbuf(pCpu,this), sspcon(pCpu,this), sspstat(pCpu,this), sspcon2(pCpu,this), sspadd(pCpu,this), m_pirset(0), m_spi(0), m_i2c(0), m_sck(0), m_ss(0), m_sdo(0), m_sdi(0), m_i2c_tris(0), m_SDI_State(false), m_SCL_State(false), m_SS_State(false), m_SckSource(0), m_SdoSource(0), m_SdiSource(0), m_SDI_Sink(0), m_SCL_Sink(0), m_SS_Sink(0), m_sink_set(false), m_sdo_active(false), m_sdi_active(false), m_sck_active(false) { } SSP_MODULE::~SSP_MODULE() { if (!m_sink_set) { delete m_SDI_Sink; delete m_SCL_Sink; delete m_SS_Sink; } if (m_sdi_active && m_sdi) m_sdi->setSource(0); if (m_SdiSource) delete m_SdiSource; if (m_sdo_active && m_sdo) m_sdo->setSource(0); if (m_SdoSource) delete m_SdoSource; if (m_sck_active && m_sck) m_sck->setSource(0); if (m_SckSource) delete m_SckSource; if (m_spi) { delete m_spi; delete m_i2c; } } SSP1_MODULE::SSP1_MODULE(Processor *pCpu) : SSP_MODULE(pCpu), ssp1con3(pCpu, this), ssp1msk(pCpu, this) { } void SSP1_MODULE::set_sckPin(PinModule *_sckPin) { if (m_sck == _sckPin) return; // No change, do nothing m_sck = _sckPin; if(m_SckSource) delete m_SckSource; m_SckSource = new SCK_SignalSource(this, m_sck); } void SSP1_MODULE::set_sdoPin(PinModule *_sdoPin) { if (m_sdo == _sdoPin) return; // No change, do nothing m_sdo = _sdoPin; if(m_SdoSource) delete m_SdoSource; m_SdoSource = new SDO_SignalSource(this, m_sdo); } void SSP1_MODULE::set_sdiPin(PinModule *_sdiPin) { if (m_sdi == _sdiPin) return; // No change, do nothing m_sdi = _sdiPin; if(m_SdiSource) delete m_SdiSource; m_SdiSource = new SDI_SignalSource(this, m_sdi); } void SSP1_MODULE::set_ssPin(PinModule *_ssPin) { if (m_ss == _ssPin) return; // No change, do nothing m_ss = _ssPin; } void SSP1_MODULE::initialize( PIR_SET *ps, PinModule *SckPin, PinModule *SsPin, PinModule *SdoPin, PinModule *SdiPin, PicTrisRegister *_i2ctris, SSP_TYPE _ssptype ) { m_pirset = ps; m_sck = SckPin; m_ss = SsPin; m_sdo = SdoPin; m_sdi = SdiPin; m_i2c_tris = _i2ctris; m_ssptype = _ssptype; m_SckSource = new SCK_SignalSource(this, m_sck); m_SdoSource = new SDO_SignalSource(this, m_sdo); m_SdiSource = new SDI_SignalSource(this, m_sdi); if (! m_spi) { m_spi = new SPI_1(this, &sspcon, &sspstat, &sspbuf, &ssp1con3, &sspadd); m_i2c = new I2C_1(this, &sspcon, &sspstat, &sspbuf, &sspcon2, &sspadd, &ssp1con3, &ssp1msk); m_SDI_Sink = new SDI_SignalSink(this); m_SCL_Sink = new SCL_SignalSink(this); m_SS_Sink = new SS_SignalSink(this); } } void SPI::newSSPBUF(unsigned int newTxByte) { Dprintf(("enabled %d state %d\n", m_sspcon->isSSPEnabled(), m_state)); if (m_sspcon->isSSPEnabled()) { if (m_state == eIDLE) { m_SSPsr = newTxByte; start_transfer(); } else { // Collision m_sspcon->setWCOL(); } } } void SPI::start_transfer() { if (!m_sspcon || !m_sspstat) return; // load the shift register m_state = eACTIVE; bits_transfered = 0; unsigned int sspcon_val = m_sspcon->value.get(); unsigned int sspstat_val = m_sspstat->value.get(); if (verbose) cout << "SSP: SPI Starting transfer. byte=0x" << hex << m_SSPsr << endl; switch( sspcon_val & _SSPCON::SSPM_mask ) { case _SSPCON::SSPM_SPImaster4: case _SSPCON::SSPM_SPImaster16: case _SSPCON::SSPM_SPImaster64: case _SSPCON::SSPM_SPImasterAdd: // In master mode, the SDO line is always set at the start of the transfer m_sspmod->putStateSDO((m_SSPsr &(1<<7)) ? '1' : '0'); // Setup callbacks for clocks set_halfclock_break(); break; case _SSPCON::SSPM_SPImasterTMR2: m_sspmod->putStateSDO((m_SSPsr &(1<<7)) ? '1' : '0'); break; case _SSPCON::SSPM_SPIslaveSS: // The SS pin was pulled low if( sspstat_val & _SSPSTAT::CKE ) m_sspmod->putStateSDO((m_SSPsr &(1<<7)) ? '1' : '0'); break; case _SSPCON::SSPM_SPIslave: // I don't do any thing until first clock edge break; default: cout << "start_transfer: The selected SPI mode is unimplemented. mode=" << hex <<(sspcon_val & _SSPCON::SSPM_mask) << endl; } } void SPI::stop_transfer() { if (!m_sspcon || !m_sspstat || !m_sspbuf || !m_sspmod) return; if( m_state == eACTIVE ) { if( bits_transfered == 8 && !m_sspbuf->isFull() ) { if (verbose) cout << "SPI: Stoping transfer. Normal finish. Setting sspif and BF\n"; m_sspbuf->put_value(m_SSPsr & 0xff); m_sspbuf->setFullFlag(true); m_sspmod->set_sspif(); m_sspstat->put_value(m_sspstat->value.get() | _SSPSTAT::BF); } else if( bits_transfered == 8 && m_sspbuf->isFull() ) { if (verbose) cout << "SPI: Stopping transfer. SSPBUF Overflow setting SSPOV." << endl; m_sspcon->setSSPOV(); m_sspmod->set_sspif(); // The real PIC sets sspif even with overflow } else { cout << "SPI: Stopping transfer. Cancel finish." << endl; // The transfer was canceled in some way } } else { if (verbose) cout << "SSP: Stopping transfer. State != ACTIVE." << endl; } m_state = eIDLE; } I2C::I2C(SSP_MODULE *_ssp_mod, _SSPCON *_sspcon, _SSPSTAT *_sspstat, _SSPBUF *_sspbuf, _SSPCON2 *_sspcon2, _SSPADD *_sspadd) { m_sspmod = _ssp_mod; m_sspcon = _sspcon; m_sspstat = _sspstat; m_sspbuf = _sspbuf; m_sspcon2 = _sspcon2; m_sspadd = _sspadd; future_cycle = 0; i2c_state = eIDLE; } I2C_1::I2C_1(SSP_MODULE *_ssp_mod, _SSPCON *_sspcon, _SSPSTAT *_sspstat, _SSPBUF *_sspbuf, _SSPCON2 *_sspcon2, _SSPADD *_sspadd, _SSP1CON3 *_ssp1con3, _SSP1MSK *_ssp1msk) : I2C(_ssp_mod, _sspcon, _sspstat, _sspbuf, _sspcon2, _sspadd) { m_sspmod = _ssp_mod; m_sspcon3 = _ssp1con3; m_ssp1msk = _ssp1msk; } void I2C::set_idle() { i2c_state = eIDLE; } bool I2C::isIdle() { return(i2c_state == eIDLE); //RRR return( (m_sspstat->value.get() & _SSPSTAT::RW) == 0 && (m_sspcon2->value.get() & ( _SSPCON2::ACKEN || _SSPCON2::RCEN || _SSPCON2::PEN || _SSPCON2::RSEN || _SSPCON2::SEN )) == 0 ); } bool I2C::rx_byte() { m_SSPsr = ( m_SSPsr << 1 ) | (m_sspmod->get_SDI_State()?1:0); bits_transfered++; if (bits_transfered == 8) { m_sspcon2->put_value(m_sspcon2->value.get() & ~_SSPCON2::RCEN); if (verbose & 2) cout << "CLK_RX_BYTE got byte=" << hex << m_SSPsr << endl; m_sspmod->SaveSSPsr(m_SSPsr & 0xff); m_sspmod->set_sspif(); set_idle(); return(true); } return(false); } void I2C::callback() { if (verbose & 2) cout << "I2C::callback i2c_state " << i2c_state << " phase=" << phase <setSDA(false); setBRG(); } else { m_sspcon2->value.put(m_sspcon2->value.get() & ~(_SSPCON2::SEN | _SSPCON2::RSEN)); m_sspmod->setSCL(false); m_sspmod->set_sspif(); set_idle(); } break; case CLK_RSTART: if (phase == 0) { m_sspmod->setSCL(true); } break; case CLK_STOP: if (phase == 0) { phase++; if (m_sspmod->get_SCL_State()) { setBRG(); } m_sspmod->setSCL(true); } else if (phase == 1) { phase++; setBRG(); m_sspmod->setSDA(true); } else { if (m_sspstat->value.get() & _SSPSTAT::P) { if (verbose & 2) cout << "I2C::callback stop finish\n"; m_sspmod->set_sspif(); } else { if (verbose & 2) cout << "I2C::callback stop fail\n"; m_sspmod->set_bclif(); } set_idle(); m_sspcon2->value.put(m_sspcon2->value.get() & ~_SSPCON2::PEN ); } break; case CLK_TX_BYTE: if(m_sspmod->get_SCL_State()) { bool n_ack = m_sspmod->get_SDI_State(); bits_transfered++; if (bits_transfered < 8) { m_SSPsr <<= 1; m_sspmod->setSCL(false); m_sspmod->setSDA((m_SSPsr & 0x80) == 0x80); } else if(bits_transfered == 8) { m_sspmod->setSCL(false); m_sspmod->setSDA(true); m_sspstat->put_value(m_sspstat->value.get() & ~_SSPSTAT::BF); if (verbose & 2) cout << "I2C::callback CLK_TX_BYTE sent\n"; } else { if (verbose & 2) { cout << "I2C::callback CLK_TX_BYTE _ACK=" << n_ack << " clock=" << get_cycles().get() << endl; } if (n_ack) m_sspcon2->put_value(m_sspcon2->value.get() | _SSPCON2::ACKSTAT); else m_sspcon2->put_value(m_sspcon2->value.get() & ~_SSPCON2::ACKSTAT); m_sspstat->put_value(m_sspstat->value.get() & ~_SSPSTAT::RW); m_sspmod->set_sspif(); set_idle(); m_sspmod->setSCL(false); } } else m_sspmod->setSCL(true); break; case CLK_RX_BYTE: if(m_sspmod->get_SCL_State()) { rx_byte(); m_sspmod->setSCL(false); } else m_sspmod->setSCL(true); break; default: cout << "I2C::callback unxpected i2c_state=" << dec << i2c_state << endl; break; } } void I2C::clock(bool clock_state) { unsigned int sspcon_val = m_sspcon->value.get(); unsigned int sspstat_val = m_sspstat->value.get(); if (verbose & 2) cout << "I2C::clock SCL=" << clock_state << " SDI=" << m_sspmod->get_SDI_State() << " i2c_state=" << i2c_state << " phase=" << phase << endl; if (clock_state) // Do read on clock high transition { switch(i2c_state) { case CLK_STOP: if (phase == 1) setBRG(); break; case CLK_ACKEN: if (phase == 1) { phase++; setBRG(); } break; case CLK_RSTART: if (phase == 0) { if (!m_sspmod->get_SDI_State()) { if (verbose) cout << "I2C::clock CLK_RSTART bus collision\n"; bus_collide(); m_sspmod->setSDA(true); } else { clrBRG(); start_bit(); } } else if (phase == 1) { setBRG(); } break; case RX_CMD: case RX_CMD2: case RX_DATA: if (bits_transfered < 8) { m_SSPsr = (m_SSPsr << 1) | (m_sspmod->get_SDI_State()?1:0); bits_transfered++; } break; case CLK_TX_BYTE: case CLK_RX_BYTE: setBRG(); break; default: break; } } else // Do writes of clock low transition { switch(i2c_state) { case CLK_ACKEN: clrBRG(); if (phase) { m_sspmod->setSCL(false); m_sspcon2->value.put( m_sspcon2->value.get() & ~(_SSPCON2::ACKEN )); m_sspmod->set_sspif(); set_idle(); } break; case CLK_START: clrBRG(); if (phase == 0 ) { if (verbose) cout << "I2C::clock CLK_START Bus collision\n"; bus_collide(); } else if (phase == 1) { m_sspcon2->value.put(m_sspcon2->value.get() & ~(_SSPCON2::SEN | _SSPCON2::RSEN)); } break; case CLK_RSTART: if (phase == 0) m_sspmod->setSDA(true); break; case RX_CMD: case RX_CMD2: if (bits_transfered == 8) { if ( !( m_SSPsr == 0 && (m_sspcon2->value.get() & _SSPCON2::GCEN) ) && (m_SSPsr & 0xfe) != m_sspadd->value.get() ) { set_idle(); return; } } else if (bits_transfered == 9) { if(end_ack()) { m_sspstat->put_value(sspstat_val & ~_SSPSTAT::DA); slave_command(); } return; } // Fall Through case RX_DATA: if (bits_transfered == 8) { if (verbose) cout << "I2C::clock RX_DATA or CMD m_SSPsr=" << hex << (m_SSPsr & 0xff) << endl; if (m_sspmod->SaveSSPsr(m_SSPsr & 0xff) ) // ACK ? { if (verbose) cout << "I2C::clock RX_DATA or CMD Send ACK\n"; m_sspmod->setSDA(false); } else { if (verbose) cout << "I2C::clock RX_DATA or CMD Send NACK\n"; m_sspmod->setSDA(true); } bits_transfered++; } else if (bits_transfered == 9) { end_ack(); m_sspstat->put_value(sspstat_val | _SSPSTAT::DA); } break; case CLK_TX_BYTE: case CLK_RX_BYTE: setBRG(); break; case TX_DATA: bits_transfered++; if (bits_transfered < 8) { m_SSPsr <<= 1; m_sspmod->setSDA((m_SSPsr & 0x80) == 0x80); } else if(bits_transfered == 8) { m_sspmod->setSDA(true); m_sspstat->put_value(sspstat_val & ~_SSPSTAT::BF); if (verbose) cout << "I2C::clock TX_DATA sent byte\n"; } else if(bits_transfered == 9) { m_sspmod->set_sspif(); if (m_sspmod->get_SDI_State()) // NACK { if (verbose) cout << "I2C::clock TX_DATA got NACK\n"; m_sspstat->put_value(sspstat_val & _SSPSTAT::BF); set_idle(); return; } m_sspstat->put_value(sspstat_val | _SSPSTAT::DA); if (sspstat_val & _SSPSTAT::RW) { sspcon_val &= ~ _SSPCON::CKP; m_sspcon->put_value(sspcon_val); if (verbose) cout << "I2C::clock TX_DATA Strech clock sspcon=" << hex << sspcon_val << endl; m_sspmod->setSCL(false); } } break; default: break; } } } void I2C_1::clock(bool clock_state) { unsigned int sspcon_val = m_sspcon->value.get(); unsigned int sspstat_val = m_sspstat->value.get(); if (verbose & 2) cout << "I2c_1::clock SCL=" << clock_state << " SDI=" << m_sspmod->get_SDI_State() << " i2c_state=" << i2c_state << " phase=" << phase << endl; if (clock_state) // Do read on clock high transition { switch(i2c_state) { case CLK_STOP: if (phase == 1) setBRG(); break; case CLK_ACKEN: if (phase == 1) { phase++; setBRG(); } break; case CLK_RSTART: if (phase == 0) { if (!m_sspmod->get_SDI_State()) { if (verbose) cout << "I2c_1::clock CLK_RSTART bus collision\n"; bus_collide(); m_sspmod->setSDA(true); } else { clrBRG(); start_bit(); } } else if (phase == 1) { setBRG(); } break; case RX_CMD: case RX_CMD2: case RX_DATA: if (bits_transfered < 8) { m_SSPsr = (m_SSPsr << 1) | (m_sspmod->get_SDI_State()?1:0); bits_transfered++; } else if (bits_transfered == 9 && m_sspcon3->value.get() & (_SSP1CON3::AHEN | _SSP1CON3::DHEN)) { m_sspcon3->put(m_sspcon3->value.get() & ~_SSP1CON3::ACKTIM); } break; case TX_DATA: if (bits_transfered == 9 && m_sspcon3->value.get() & (_SSP1CON3::AHEN | _SSP1CON3::DHEN)) { m_sspcon3->put(m_sspcon3->value.get() & ~_SSP1CON3::ACKTIM); } break; case CLK_TX_BYTE: case CLK_RX_BYTE: setBRG(); break; default: break; } } else // Do writes of clock low transition { switch(i2c_state) { case CLK_ACKEN: clrBRG(); if (phase) { m_sspmod->setSCL(false); m_sspcon2->value.put( m_sspcon2->value.get() & ~(_SSPCON2::ACKEN )); m_sspmod->set_sspif(); set_idle(); } break; case CLK_START: clrBRG(); if (phase == 0 ) { if (verbose) cout << "I2c_1::clock CLK_START Bus collision\n"; bus_collide(); } else if (phase == 1) { m_sspcon2->value.put(m_sspcon2->value.get() & ~(_SSPCON2::SEN | _SSPCON2::RSEN)); } break; case CLK_RSTART: if (phase == 0) m_sspmod->setSDA(true); break; case RX_CMD: case RX_CMD2: if (bits_transfered == 8) { if ( !( m_SSPsr == 0 && (m_sspcon2->value.get() & _SSPCON2::GCEN) ) && (m_SSPsr & 0xfe) != m_sspadd->value.get() ) { cout << "READ_CMD address missmatch " << hex << m_SSPsr << " != " << m_sspadd->value.get() << endl; set_idle(); return; } } else if (bits_transfered == 9) { if(end_ack()) { m_sspstat->put_value(sspstat_val & ~_SSPSTAT::DA); slave_command(); } return; } // Fall Through case RX_DATA: if (bits_transfered == 8) { if (verbose) cout << "I2c_1::clock RX_DATA or CMD m_SSPsr=" << hex << (m_SSPsr & 0xff) << endl; if (m_sspcon->isI2CSlave(m_sspcon->value.get()) && ( (m_sspcon3->value.get() & _SSP1CON3::DHEN && i2c_state == RX_DATA) || (m_sspcon3->value.get() & _SSP1CON3::AHEN && (i2c_state == RX_CMD || i2c_state == RX_CMD2)) )) { unsigned int sspcon3_val = m_sspcon3->value.get(); m_sspmod->SaveSSPsr(m_SSPsr & 0xff); m_sspcon->value.put(m_sspcon->value.get() & ~_SSPCON::CKP); m_sspcon3->value.put(sspcon3_val | _SSP1CON3::ACKTIM); m_sspmod->setSCL(false); // clock low m_sspmod->set_sspif(); } else if (m_sspmod->SaveSSPsr(m_SSPsr & 0xff) ) // ACK ? { if (verbose) cout << "I2c_1::clock RX_DATA or CMD Send ACK\n"; m_sspmod->setSDA(false); } else { if (verbose) cout << "I2c_1::clock RX_DATA or CMD Send NACK\n"; m_sspmod->setSDA(true); } bits_transfered++; } else if (bits_transfered == 9) { m_sspstat->put_value(sspstat_val | _SSPSTAT::DA); if(end_ack() && m_sspmod->isI2CSlave() && (m_sspcon2->value.get() & _SSPCON2::SEN)) { m_sspcon->put(m_sspcon->value.get() & ~_SSPCON::CKP); } } break; case CLK_TX_BYTE: case CLK_RX_BYTE: setBRG(); break; case TX_DATA: bits_transfered++; if (bits_transfered < 8) { m_SSPsr <<= 1; m_sspmod->setSDA((m_SSPsr & 0x80) == 0x80); } else if(bits_transfered == 8) { m_sspmod->setSDA(true); m_sspstat->put_value(sspstat_val & ~_SSPSTAT::BF); if (verbose) cout << "I2c_1::clock TX_DATA sent byte\n"; if(m_sspcon3->value.get() & _SSP1CON3::AHEN) { m_sspcon3->value.put(m_sspcon3->value.get() | _SSP1CON3::ACKTIM); } } else if(bits_transfered == 9) { m_sspmod->set_sspif(); if (m_sspmod->get_SDI_State()) // NACK { if (verbose) cout << "I2c_1::clock TX_DATA got NACK\n"; m_sspcon2->put(m_sspcon2->value.get() | _SSPCON2::ACKSTAT); m_sspstat->put_value(sspstat_val & _SSPSTAT::BF); set_idle(); return; } m_sspstat->put_value(sspstat_val | _SSPSTAT::DA); if (sspstat_val & _SSPSTAT::RW) { m_sspcon2->put(m_sspcon2->value.get() & ~_SSPCON2::ACKSTAT); sspcon_val &= ~ _SSPCON::CKP; m_sspcon->put_value(sspcon_val); if (verbose) cout << "I2c_1::clock TX_DATA Strech clock sspcon=" << hex << sspcon_val << endl; m_sspmod->setSCL(false); } } break; default: break; } } } void I2C::slave_command() { unsigned int sspcon_val = m_sspcon->value.get(); unsigned int sspstat_val = m_sspstat->value.get(); if (verbose) cout << "I2C::slave_command m_SSPsr=" << hex << m_SSPsr << endl; if ( m_SSPsr == 0 && (m_sspcon2->value.get() & _SSPCON2::GCEN)) { i2c_state = RX_DATA; } else { if (verbose) cout << "I2c::slave_command i2c_state=" << i2c_state << " sspcon=" << sspcon_val << endl; switch( sspcon_val & _SSPCON::SSPM_mask ) { case _SSPCON::SSPM_I2Cslave_10bitaddr_ints: case _SSPCON::SSPM_I2Cslave_10bitaddr: if (i2c_state == RX_CMD && (m_SSPsr & 1)) { sspstat_val |= _SSPSTAT::RW; i2c_state = TX_DATA; m_sspmod->setSCL(false); // clock low sspcon_val &= ~ _SSPCON::CKP; m_sspcon->put_value(sspcon_val); } else { sspstat_val |= _SSPSTAT::UA; i2c_state = (i2c_state == RX_CMD2) ? RX_DATA : RX_CMD2; } break; case _SSPCON::SSPM_I2Cslave_7bitaddr: case _SSPCON::SSPM_I2Cslave_7bitaddr_ints: if (i2c_state == RX_CMD && (m_SSPsr & 1)) { sspstat_val |= _SSPSTAT::RW; sspstat_val &= ~_SSPSTAT::BF; i2c_state = TX_DATA; sspcon_val &= ~ _SSPCON::CKP; m_sspcon->put_value(sspcon_val); m_sspmod->setSCL(false); // clock low } else { i2c_state = RX_DATA; } break; } m_sspstat->put_value(sspstat_val); } } bool I2C::end_ack() { m_sspmod->set_sspif(); bits_transfered = 0; if (m_sspmod->get_SDI_State()) // NACK { if (verbose & 2) cout << "I2C::end_ack NACK\n"; set_idle(); return(false); } else { m_sspmod->setSDA(true); if (verbose & 2) cout << "I2C::end_ack ACK\n"; return(true); } } void I2C::bus_collide() { m_sspcon2->value.put(m_sspcon2->value.get() & ~ (_SSPCON2::SEN | _SSPCON2::RSEN | _SSPCON2::PEN | _SSPCON2::RCEN | _SSPCON2::ACKEN)); m_sspmod->set_bclif(); set_idle(); } void I2C_1::bus_collide() { if (m_sspmod->isI2CMaster()) { m_sspcon2->value.put(m_sspcon2->value.get() & ~ (_SSPCON2::SEN | _SSPCON2::RSEN | _SSPCON2::PEN | _SSPCON2::RCEN | _SSPCON2::ACKEN)); m_sspmod->set_bclif(); } else if (m_sspmod->isI2CSlave() && (m_sspcon3->value.get() & _SSP1CON3::SBCDE)) m_sspmod->set_bclif(); set_idle(); } void I2C::newSSPADD(unsigned int newTxByte) { unsigned int sspstat_val = m_sspstat->value.get(); if (sspstat_val & _SSPSTAT::UA) { m_sspstat->put_value(sspstat_val & ~_SSPSTAT::UA); m_sspmod->setSCL(true); // turn off clock stretch } } void I2C::setBRG() { if (future_cycle) cout << "ERROR I2C::setBRG called with future_cycle=" << future_cycle << endl; future_cycle = get_cycles().get() + ((m_sspadd->value.get() &0x7f)/ 2) + 1; get_cycles().set_break(future_cycle, this); } void I2C::clrBRG() { if (future_cycle) { get_cycles().clear_break(this); future_cycle = 0; } } void I2C::newSSPBUF(unsigned int newTxByte) { if (!m_sspstat || !m_sspcon) return; unsigned int sspstat_val = m_sspstat->value.get(); unsigned int sspcon_val = m_sspcon->value.get(); if (m_sspcon2 && (sspcon_val & _SSPCON::SSPM_mask) == _SSPCON::SSPM_MSSPI2Cmaster) { if (isIdle()) { if (verbose) cout << "I2C::newSSPBUF send " << hex << newTxByte << endl; m_sspmod->setSCL(false); m_sspstat->put_value(sspstat_val | _SSPSTAT::BF | _SSPSTAT::RW); m_SSPsr = newTxByte; m_sspmod->setSDA((m_SSPsr & 0x80) == 0x80); bits_transfered = 0; i2c_state = CLK_TX_BYTE; setBRG(); } else { cout << "I2C::newSSPBUF I2C not idle on write data=" << hex << newTxByte << endl; // Collision m_sspcon->setWCOL(); } } else { if (sspstat_val & _SSPSTAT::RW) { if (!(sspstat_val & _SSPSTAT::BF)) { if (verbose) cout << "I2C::newSSPBUF send " << hex << newTxByte << endl; m_SSPsr = newTxByte; m_sspstat->put_value(sspstat_val | _SSPSTAT::BF); m_sspmod->setSDA((m_SSPsr & 0x80) == 0x80); bits_transfered = 0; } else // Collision { cout << "I2C::newSSPBUF I2C not idle on write data=" << hex << newTxByte << endl; m_sspcon->setWCOL(); } } else cout << "I2C::newSSPBUF write SSPSTAT::RW not set\n"; } } void I2C::sda(bool data_val) { if (m_sspmod->get_SCL_State()) // Clock is high { unsigned int stat_val = m_sspstat->value.get(); unsigned int sspm = (m_sspcon->value.get() & _SSPCON::SSPM_mask); if (data_val) // Data going high - STOP { stat_val = (stat_val & _SSPSTAT::BF) | _SSPSTAT::P; if (! future_cycle) set_idle(); if (verbose) cout << "I2C::sda got STOP future_cycle=" << future_cycle << endl; } else // Data going low - START { switch (i2c_state) { case CLK_STOP: break; case CLK_START: if (phase == 0) { guint64 fc = get_cycles().get() + ((m_sspadd->value.get() &0x7f)/ 2) + 1; if (future_cycle) { phase++; if (verbose) cout << "I2C::sda BUS_CHECK fc=" << fc << " future_cycle=" << future_cycle << endl; get_cycles().reassign_break(future_cycle, fc, this); future_cycle = fc; } else { get_cycles().set_break(fc, this); future_cycle = fc; } } break; default: i2c_state = RX_CMD; break; } stat_val = (stat_val & _SSPSTAT::BF) | _SSPSTAT::S; bits_transfered = 0; m_SSPsr = 0; if (verbose) cout << "I2C::sda got START "; } m_sspstat->put_value(stat_val); // interrupt ? if (sspm == _SSPCON::SSPM_I2Cslave_7bitaddr_ints || sspm == _SSPCON::SSPM_I2Cslave_10bitaddr_ints) { m_sspmod->set_sspif(); } } else // clock low { if (i2c_state == CLK_STOP) { if (verbose) cout << "I2C::sda CLK_STOP SDA low CLOCK low\n"; // setBRG(); } } } // uses sspcon3 void I2C_1::sda(bool data_val) { if (m_sspmod->get_SCL_State()) // Clock is high { unsigned int stat_val = m_sspstat->value.get(); unsigned int con3_val = m_sspcon3->value.get(); unsigned int sspm = (m_sspcon->value.get() & _SSPCON::SSPM_mask); if (data_val) // Data going high - STOP { stat_val = (stat_val & _SSPSTAT::BF) | _SSPSTAT::P; if (! future_cycle) set_idle(); if(con3_val & _SSP1CON3::PCIE && (sspm == _SSPCON::SSPM_I2Cslave_7bitaddr || sspm == _SSPCON::SSPM_I2Cslave_10bitaddr)) { m_sspmod->set_sspif(); } if (sspm == _SSPCON::SSPM_I2Cslave_7bitaddr_ints || sspm == _SSPCON::SSPM_I2Cslave_10bitaddr_ints) { m_sspmod->set_sspif(); } if (verbose) cout << "I2C::sda got STOP future_cycle=" << future_cycle << endl; } else // Data going low - START { switch (i2c_state) { case CLK_STOP: break; case CLK_START: if (phase == 0) { guint64 fc = get_cycles().get() + ((m_sspadd->value.get() &0x7f)/ 2) + 1; if (future_cycle) { phase++; if (verbose) cout << "I2C::sda BUS_CHECK fc=" << fc << " future_cycle=" << future_cycle << endl; get_cycles().reassign_break(future_cycle, fc, this); future_cycle = fc; } else { get_cycles().set_break(fc, this); future_cycle = fc; } } break; default: i2c_state = RX_CMD; break; } stat_val = (stat_val & _SSPSTAT::BF) | _SSPSTAT::S; bits_transfered = 0; m_SSPsr = 0; if(con3_val & _SSP1CON3::SCIE && (sspm == _SSPCON::SSPM_I2Cslave_7bitaddr || sspm == _SSPCON::SSPM_I2Cslave_10bitaddr)) { m_sspmod->set_sspif(); } if (verbose) cout << "I2C::sda got START "; } m_sspstat->put_value(stat_val); // interrupt ? if (sspm == _SSPCON::SSPM_I2Cslave_7bitaddr_ints || sspm == _SSPCON::SSPM_I2Cslave_10bitaddr_ints) { m_sspmod->set_sspif(); } } else // clock low { if (i2c_state == CLK_STOP) { if (verbose) cout << "I2C::sda CLK_STOP SDA low CLOCK low\n"; // setBRG(); } } } /* master mode, begin reading a byte */ void I2C::master_rx() { if (verbose) cout << "I2C::master_rx SCL=" << m_sspmod->get_SCL_State() << " SDI=" << m_sspmod->get_SDI_State() << endl; m_sspmod->setSCL(false); m_sspmod->setSDA(true); bits_transfered = 0; m_SSPsr = 0; i2c_state = CLK_RX_BYTE; setBRG(); } /* master, begin start sequence SCL and SDA must be high, then force SDA low */ void I2C::start_bit() { if (m_sspmod->get_SCL_State() && m_sspmod->get_SDI_State()) { i2c_state = CLK_START; phase = 0; setBRG(); } else { if (verbose & 2) cout << "I2C::start_bit bus collision " << " SCL=" << m_sspmod->get_SCL_State() << " SDI=" << m_sspmod->get_SDI_State() << endl; bus_collide(); } } /* Master mode, begin rstart sequence bring SDA and SCL high, then SDA low with SCL high (start) */ void I2C::rstart_bit() { if (verbose) cout << "I2C::rstart_bit SCL=" << m_sspmod->get_SCL_State() << " SDI=" << m_sspmod->get_SDI_State() << endl; i2c_state = CLK_RSTART; phase = 0; m_sspmod->setSCL(false); if (!m_sspmod->get_SCL_State()) { setBRG(); m_sspmod->setSDA(true); } else bus_collide(); } /* master, begin stop sequence drop SDA (mught cause start if SCL high) when SCL high, raise SDA (stop condition) */ void I2C::stop_bit() { i2c_state = CLK_STOP; phase = 0; m_sspmod->setSDA(false); if (!m_sspmod->get_SDI_State()) { setBRG(); } else bus_collide(); } /* master, begin ack sequence clock SCL low, set SDA as per ACKDT, clock SCL high */ void I2C::ack_bit() { if (verbose) cout << "I2C::ack_bit ACKDT=" << (m_sspcon2->value.get() & _SSPCON2::ACKDT) << endl; i2c_state = CLK_ACKEN; phase = 0; m_sspmod->setSCL(false); if (!m_sspmod->get_SCL_State()) { phase++; setBRG(); m_sspmod->setSDA((m_sspcon2->value.get() & _SSPCON2::ACKDT) ? true : false); } else bus_collide(); } void SSP_MODULE::initialize( PIR_SET *ps, PinModule *SckPin, PinModule *SsPin, PinModule *SdoPin, PinModule *SdiPin, PicTrisRegister *_i2ctris, SSP_TYPE _ssptype ) { m_pirset = ps; m_sck = SckPin; m_ss = SsPin; m_sdo = SdoPin; m_sdi = SdiPin; m_i2c_tris = _i2ctris; m_ssptype = _ssptype; if (! m_spi) { m_spi = new SPI(this, &sspcon, &sspstat, &sspbuf); m_i2c = new I2C(this, &sspcon, &sspstat, &sspbuf, &sspcon2, &sspadd); m_SDI_Sink = new SDI_SignalSink(this); m_SCL_Sink = new SCL_SignalSink(this); m_SS_Sink = new SS_SignalSink(this); m_SckSource = new SCK_SignalSource(this, m_sck); m_SdoSource = new SDO_SignalSource(this, m_sdo); m_SdiSource = new SDI_SignalSource(this, m_sdi); } } void SSP_MODULE::ckpSPI(unsigned int value) { if(m_spi && !m_spi->isIdle()) cout << "SPI: You just changed CKP in the middle of a transfer." << endl; switch( value & _SSPCON::SSPM_mask ) { case _SSPCON::SSPM_SPImaster4: case _SSPCON::SSPM_SPImaster16: case _SSPCON::SSPM_SPImaster64: case _SSPCON::SSPM_SPImasterAdd: if (m_SckSource) m_SckSource->putState( (value & _SSPCON::CKP) ? '1' : '0' ); break; case _SSPCON::SSPM_SPImasterTMR2: break; } } /* drive SCL by changing pin direction (with data low) */ void SSP_MODULE::setSCL(bool direction) { if (!m_sck || !m_i2c_tris) return; unsigned int pin = m_sck->getPinNumber(); unsigned int tris_val = m_i2c_tris->get_value(); if (!direction) tris_val &= ~(1<put(tris_val); } /* drive SDA by changing pin direction (with data low) */ void SSP_MODULE::setSDA(bool direction) { unsigned int pin = m_sdi->getPinNumber(); unsigned int tris_val = m_i2c_tris->get_value(); if (!direction) tris_val &= ~(1<put(tris_val); } /* deactivate SPI and I2C mode */ void SSP_MODULE::stopSSP(unsigned int old_value) { if (sspcon.isSPIActive(old_value)) { m_spi->stop_transfer(); m_sck->setSource(0); m_sdo->setSource(0); m_sdo_active = false; m_sck_active = false; if (verbose) cout << "SSP: SPI turned off" << endl; } else if (sspcon.isI2CActive(old_value)) { m_i2c->set_idle(); m_sck->setSource(0); m_sdi->setSource(0); m_sck_active = false; m_sdi_active = false; if (verbose) cout << "SSP: I2C turned off" << endl; } } void SSP_MODULE::putStateSDO(char _state) { m_SdoSource->putState(_state); } void SSP_MODULE::putStateSCK(char _state) { m_SckSource->putState(_state); } /* activate SPI module */ void SSP_MODULE::startSSP(unsigned int value) { if (verbose) cout << "SSP: SPI turned on" << endl; Dprintf(("SSP_MODULE cmd %x\n", value & _SSPCON::SSPM_mask )); sspbuf.setFullFlag(false); if (! m_sink_set) { if (m_sdi) m_sdi->addSink(m_SDI_Sink); if (m_sck) m_sck->addSink(m_SCL_Sink); if (m_ss) m_ss->addSink(m_SS_Sink); m_sink_set = true; } switch( value & _SSPCON::SSPM_mask ) { case _SSPCON::SSPM_SPImasterTMR2: case _SSPCON::SSPM_SPImaster4: case _SSPCON::SSPM_SPImaster16: case _SSPCON::SSPM_SPImaster64: case _SSPCON::SSPM_SPImasterAdd: Dprintf(("SSP_MODULE case cmd %x\n", value & _SSPCON::SSPM_mask )); if (m_sck) { m_sck->setSource(m_SckSource); m_sck_active = true; } if (m_sdo) { m_sdo->setSource(m_SdoSource); m_sdo_active = true; } if (m_SckSource) m_SckSource->putState( (value & _SSPCON::CKP) ? '1' : '0' ); if (m_SdoSource) m_SdoSource->putState('0'); // BUG, required to put SDO in know state break; case _SSPCON::SSPM_SPIslave: case _SSPCON::SSPM_SPIslaveSS: if (m_sdo) { m_sdo->setSource(m_SdoSource); m_sdo_active = true; } if (m_SdoSource) m_SdoSource->putState('0'); // BUG, required to put SDO in know state break; case _SSPCON::SSPM_I2Cslave_7bitaddr: case _SSPCON::SSPM_I2Cslave_10bitaddr: case _SSPCON::SSPM_MSSPI2Cmaster: case _SSPCON::SSPM_I2Cfirmwaremaster: case _SSPCON::SSPM_I2Cslave_7bitaddr_ints: case _SSPCON::SSPM_I2Cslave_10bitaddr_ints: m_i2c->set_idle(); m_sck->setSource(m_SckSource); m_sdi->setSource(m_SdiSource); m_sck_active = true; m_sdi_active = true; m_sck->refreshPinOnUpdate(true); m_sdi->refreshPinOnUpdate(true); m_SdiSource->putState('0'); m_SckSource->putState('0'); m_sck->refreshPinOnUpdate(false); m_sdi->refreshPinOnUpdate(false); break; default: cout << "SSP: start, unexpected SSPM select bits SSPCON=" << hex << value << endl;; break; } } /* process mode change or clock edge due to write to SSPCON */ void SSP_MODULE::changeSSP(unsigned int new_value, unsigned int old_value) { unsigned int diff = new_value ^ old_value; if (verbose) cout << "SSP_MODULE::changeSSP CKP new=" << hex << new_value << " old=" << old_value << endl; if (diff & _SSPCON::SSPM_mask) // mode changed { Dprintf(("SSP_MODULE stop %x start %x\n", old_value, new_value)); stopSSP(old_value); startSSP(new_value); } else if (diff & _SSPCON::CKP) { if (sspcon.isSPIActive(new_value)) ckpSPI(new_value); else if (sspcon.isI2CActive(new_value) && new_value & _SSPCON::CKP) { setSCL(true); } } } void SSP_MODULE::releaseSDIpin() { if (m_sdi) { m_sdi_active = false; delete m_SdiSource; m_SdiSource = 0; } m_sdi = 0; } void SSP_MODULE::releaseSDOpin() { if (m_sdo) { delete m_SdoSource; m_SdoSource = 0; } m_sdo = 0; } void SSP_MODULE::releaseSCKpin() { if (m_sck) { delete m_SckSource; m_SckSource = 0; } m_sck = 0; } void SSP_MODULE::releaseSCLpin() { if (m_sck) { m_sck->setSource(0); m_sck_active = false; delete m_SckSource; m_SckSource = 0; } m_sck = 0; } void SSP_MODULE::releaseSSpin() { if (m_SS_Sink) { delete m_SS_Sink; m_SS_Sink = 0; } m_ss = 0; } void SSP_MODULE::Sck_toggle() { m_SckSource->toggle();} /* process mode change or clock edge due to write to SSPCON */ void SSP1_MODULE::changeSSP(unsigned int new_value, unsigned int old_value) { unsigned int diff = new_value ^ old_value; if (verbose) cout << "SSP_MODULE::changeSSP CKP new=" << hex << new_value << " old=" << old_value << endl; if (diff & _SSPCON::SSPM_mask) // mode changed { Dprintf(("SSP_MODULE stop %x start %x\n", old_value, new_value)); stopSSP(old_value); startSSP(new_value); } else if (diff & _SSPCON::CKP) { if (sspcon.isSPIActive(new_value)) ckpSPI(new_value); else if (sspcon.isI2CActive(new_value) && (new_value & _SSPCON::CKP)) { if(ssp1con3.value.get() & (_SSP1CON3::AHEN | _SSP1CON3::DHEN)) { // set ack(yes = 0) if writing and release clock if ((sspstat.value.get() & _SSPSTAT::RW) == 0) setSDA(sspcon2.value.get() & _SSPCON2::ACKDT); setSCL(true); } else // RRRif(sspcon2.value.get() & _SSPCON2::SEN) { // release clock setSCL(true); } } } } //------------------------------------------------------------ // Called whenever the SDI/SDA input changes states. // void SSP_MODULE::SDI_SinkState(char new3State) { bool new_SDI_State = (new3State == '1' || new3State == 'W'); if (new_SDI_State == m_SDI_State) return; m_SDI_State = new_SDI_State; if(sspcon.isI2CActive(sspcon.value.get())) { if(m_i2c) m_i2c->sda(m_SDI_State); } } // Called when the SCK/SDI input changes state void SSP_MODULE::SCL_SinkState(char new3State) { bool new_SCL_State = (new3State == '1' || new3State == 'W'); if (new_SCL_State == m_SCL_State) return; m_SCL_State = new_SCL_State; if (!sspcon.isSSPEnabled() ) return; switch( sspcon.value.get() & _SSPCON::SSPM_mask ) { case _SSPCON::SSPM_SPIslaveSS: /* SS high during transfer for BSSP, suspends transfers which continues when SS goes low. None BSSP interfaces handled when SS goes high */ if (m_SS_State) return; // suspend transfer // Fall through case _SSPCON::SSPM_SPIslave: if (m_spi) m_spi->clock(m_SCL_State); break; case _SSPCON::SSPM_I2Cslave_7bitaddr: case _SSPCON::SSPM_I2Cslave_10bitaddr: case _SSPCON::SSPM_MSSPI2Cmaster: case _SSPCON::SSPM_I2Cfirmwaremaster: case _SSPCON::SSPM_I2Cslave_7bitaddr_ints: case _SSPCON::SSPM_I2Cslave_10bitaddr_ints: m_i2c->clock(m_SCL_State); } } /* on write to SSPBUF, pass on to either SPI or I2C if active */ void SSP_MODULE::newSSPBUF(unsigned int value) { if (!m_spi) { cout << "Warning bug, SPI initialization error " << __FILE__ << ":" << dec << __LINE__<newSSPBUF(value); else if(sspcon.isI2CActive(sspcon.value.get())) m_i2c->newSSPBUF(value); } /* on write to SSPADD, pass onto I2C if active */ void SSP_MODULE::newSSPADD(unsigned int value) { if(sspcon.isI2CActive(sspcon.value.get())) m_i2c->newSSPADD(value); } // clear BF flag void SSP_MODULE::rdSSPBUF() { sspstat.put_value(sspstat.value.get() & ~_SSPSTAT::BF); } void SSP_MODULE::SS_SinkState(char new3State) { m_SS_State = (new3State == '1' || new3State == 'W'); // If SS goes high in the middle of an SPI transfer while in slave_SS mode, // transfer is aborted unless BSSP which streches the clocking if (!sspcon.isSSPEnabled() || ! m_SS_State || (sspcon.value.get() & _SSPCON::SSPM_mask) != _SSPCON::SSPM_SPIslaveSS || ! m_spi->isIdle() || ssp_type() == SSP_TYPE_BSSP) return; m_spi->stop_transfer(); } void SSP_MODULE::tmr2_clock() { unsigned int sspcon_val = sspcon.value.get(); if (! (sspcon_val & _SSPCON::SSPEN) || ((sspcon_val & _SSPCON::SSPM_mask) != _SSPCON::SSPM_SPImasterTMR2) || (m_spi && m_spi->isIdle())) return; Sck_toggle(); if (m_spi) m_spi->clock( get_SCL_State() ); } /* on write to SSPCON2 select master operation to initiate */ void SSP_MODULE::newSSPCON2(unsigned int value) { if (!m_i2c) return; if(value & _SSPCON2::SEN) m_i2c->start_bit(); else if(value & _SSPCON2::RSEN) m_i2c->rstart_bit(); else if (value & _SSPCON2::PEN) m_i2c->stop_bit(); else if (value & _SSPCON2::RCEN) m_i2c->master_rx(); else if (value & _SSPCON2::ACKEN) m_i2c->ack_bit(); } /* Process a received data byte if BF == 0 and SSPOV == 0 return true otherwise false if BF == 0 transfer data to SSPBUF and set BF if BF == 1 set SSPOV set SSPIF */ bool SSP_MODULE::SaveSSPsr(unsigned int value) { bool ret = false; unsigned int stat_val = sspstat.value.get(); unsigned int con_val = sspcon.value.get(); if ((stat_val & _SSPSTAT::BF) == 0) { if (verbose) cout << "SSP receive transfer " << hex << (value & 0xff) << " to SSPBUF\n"; sspbuf.put_value(value); sspstat.put_value(stat_val | _SSPSTAT::BF); if ((con_val & _SSPCON::SSPOV) == 0) ret = true; } else { sspcon.put_value(con_val | _SSPCON::SSPOV); cout << "SSP receive overflow\n"; } return(ret); } /* Process a received data byte if BF == 0 and SSPOV == 0 return true otherwise false if BF == 0 transfer data to SSPBUF and set BF if BF == 1 set SSPOV set SSPIF */ bool SSP1_MODULE::SaveSSPsr(unsigned int value) { bool ret = false; unsigned int stat_val = sspstat.value.get(); unsigned int con_val = sspcon.value.get(); if ((stat_val & _SSPSTAT::BF) == 0) { if (verbose) cout << "SSP receive transfer " << hex << (value & 0xff) << " to SSPBUF\n"; if ((con_val & _SSPCON::SSPOV) == 0 || (isI2CSlave() && ssp1con3.value.get() & _SSP1CON3::BOEN)) { sspstat.put_value(stat_val | _SSPSTAT::BF); sspbuf.put_value(value); ret = true; } } else { sspcon.put_value(con_val | _SSPCON::SSPOV); cout << "SSP receive overflow\n"; } return(ret); } //----------------------------------------------------------- //------------------------------------------------------------------- _SSPCON2::_SSPCON2(Processor *pCpu, SSP_MODULE *pSSP) : sfr_register(pCpu, "sspcon2","Synchronous Serial Port Control"), m_sspmod(pSSP) { } /* write to SSPCON2 without processing data */ void _SSPCON2::put_value(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value); } /* If a command is currently active, lower 5 bits of register cannot be changed if no command is currently active, activate command and write data */ void _SSPCON2::put(unsigned int new_value) { unsigned int old_value = value.get(); unsigned int diff = old_value ^ new_value; unsigned int mask = (ACKEN|RCEN|PEN|RSEN|SEN); unsigned int old_active; //Allow SEN to change unless I2CMaster (required for slave) if (!m_sspmod->isI2CMaster()) mask &= ~SEN; old_active = old_value & mask; if (verbose & 2) cout << "_SSPCON2::put " << hex << new_value << endl; if (!diff) return; // nothing to do // if I2C not idle, do not change bits in mask if (!m_sspmod->isI2CIdle() && (diff & mask)) { cout << "Warrning SSPCON::put I2C not idle and new value " << hex << new_value << " changes one of following bits " << mask << endl; put_value((new_value & ~mask) | old_active); } // Master and only a new command bit to process else if (!old_active && m_sspmod->isI2CMaster()) { switch (new_value & (ACKEN|RCEN|PEN|RSEN|SEN)) { case ACKEN: case RCEN: case PEN: case RSEN: case SEN: put_value(new_value); m_sspmod->newSSPCON2(new_value); break; case 0: // just write value put_value(new_value); break; default: cout << "SSPCON2 cannot select more than one function at a time\n"; break; } } else put_value(new_value); } //----------------------------------------------------------- //------------------------------------------------------------------- _SSP1CON3::_SSP1CON3(Processor *pCpu, SSP1_MODULE *pSSP) : sfr_register(pCpu, "ssp1con3","Synchronous Serial Port Control 3"), m_sspmod(pSSP) { } /* write to SSP1CON3 without processing data */ void _SSP1CON3::put_value(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value); } void _SSP1CON3::put(unsigned int new_value) { if (verbose & 2) cout << "_SSP1CON3::put " << hex << new_value << endl; put_value(new_value & ~ACKTIM); // ACKTIM not writable by user } //------------------------------------------------------------------- _SSP1MSK::_SSP1MSK(Processor *pCpu, SSP1_MODULE *pSSP) : sfr_register(pCpu, "ssp1msk","SSP1 mask register"), m_sspmod(pSSP) { } /* write to SSP1MSK without processing data */ void _SSP1MSK::put_value(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value); } void _SSP1MSK::put(unsigned int new_value) { if (verbose & 2) cout << "_SSP1MSK::put " << hex << new_value << endl; put_value(new_value); // ACKTIM not writable by user } gpsim-0.27.0/src/16bit-registers.cc0000664000076400007640000010016012175377101013704 00000000000000/* Copyright (C) 1998 Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include #include "../config.h" #include "16bit-registers.h" #include "16bit-processors.h" #include "interface.h" #include "stimuli.h" #include "clock_phase.h" //-------------------------------------------------- // member functions for the FSR class //-------------------------------------------------- // FSRL::FSRL(Processor *pCpu, const char *pName, const char *pDesc, Indirect_Addressing *pIAM) : sfr_register(pCpu,pName,pDesc), iam(pIAM) { } void FSRL::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); //trace.register_write(address,value.get()); value.put(new_value & 0xff); // iam->fsr_delta = 0; iam->update_fsr_value(); } void FSRL::put_value(unsigned int new_value) { put(new_value); update(); cpu16->indf->update(); } FSRH::FSRH(Processor *pCpu, const char *pName, const char *pDesc, Indirect_Addressing *pIAM) : sfr_register(pCpu,pName,pDesc), iam(pIAM) { } void FSRH::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value & 0x0f); iam->update_fsr_value(); } void FSRH::put_value(unsigned int new_value) { put(new_value); update(); cpu16->indf->update(); } INDF16::INDF16(Processor *pCpu, const char *pName, const char *pDesc, Indirect_Addressing *pIAM) : sfr_register(pCpu,pName,pDesc), iam(pIAM) { } void INDF16::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); iam->fsr_value += iam->fsr_delta; iam->fsr_delta = 0; iam->put(new_value); } void INDF16::put_value(unsigned int new_value) { put(new_value); update(); } unsigned int INDF16::get() { trace.raw(read_trace.get() | value.get()); iam->fsr_value += iam->fsr_delta; iam->fsr_delta = 0; return(iam->get()); } unsigned int INDF16::get_value() { return(iam->get_value()); } //------------------------------------------------ // PREINC PREINC::PREINC(Processor *pCpu, const char *pName, const char *pDesc, Indirect_Addressing *pIAM) : sfr_register(pCpu,pName,pDesc), iam(pIAM) { } unsigned int PREINC::get() { trace.raw(read_trace.get() | value.get()); //trace.register_read(address,value.get()); iam->preinc_fsr_value(); return(iam->get()); } unsigned int PREINC::get_value() { return(iam->get_value()); } void PREINC::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); //trace.register_write(address,new_value); iam->preinc_fsr_value(); iam->put(new_value); } void PREINC::put_value(unsigned int new_value) { put(new_value); update(); } //------------------------------------------------ // POSTINC POSTINC::POSTINC(Processor *pCpu, const char *pName, const char *pDesc, Indirect_Addressing *pIAM) : sfr_register(pCpu,pName,pDesc), iam(pIAM) { } unsigned int POSTINC::get() { trace.raw(read_trace.get() | value.get()); iam->postinc_fsr_value(); return(iam->get()); } unsigned int POSTINC::get_value() { return(iam->get_value()); } void POSTINC::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); iam->postinc_fsr_value(); iam->put(new_value); } void POSTINC::put_value(unsigned int new_value) { put(new_value); update(); } //------------------------------------------------ // POSTDEC POSTDEC::POSTDEC(Processor *pCpu, const char *pName, const char *pDesc, Indirect_Addressing *pIAM) : sfr_register(pCpu,pName,pDesc), iam(pIAM) { } unsigned int POSTDEC::get() { trace.raw(read_trace.get() | value.get()); iam->postdec_fsr_value(); return(iam->get()); } unsigned int POSTDEC::get_value() { return(iam->get_value()); } void POSTDEC::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); iam->postdec_fsr_value(); iam->put(new_value); } void POSTDEC::put_value(unsigned int new_value) { put(new_value); update(); } //------------------------------------------------ // PLUSW PLUSW::PLUSW(Processor *pCpu, const char *pName, const char *pDesc, Indirect_Addressing *pIAM) : sfr_register(pCpu,pName,pDesc), iam(pIAM) { } unsigned int PLUSW::get() { trace.raw(read_trace.get() | value.get()); int destination = iam->plusw_fsr_value(); if(destination >= 0) return (cpu_pic->registers[destination]->get()); else return 0; } unsigned int PLUSW::get_value() { int destination = iam->plusw_fsr_value(); if(destination >= 0) return (cpu_pic->registers[destination]->get_value()); else return 0; } void PLUSW::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); //trace.register_write(address,new_value); int destination = iam->plusw_fsr_value(); if(destination >= 0) cpu_pic->registers[destination]->put(new_value); } void PLUSW::put_value(unsigned int new_value) { int destination = iam->plusw_fsr_value(); if(destination >= 0) cpu_pic->registers[destination]->put_value(new_value); update(); if(destination >= 0) cpu_pic->registers[destination]->update(); } //------------------------------------------------ Indirect_Addressing::Indirect_Addressing(pic_processor *pCpu, const string &n) : fsrl(pCpu, (string("fsrl")+n).c_str(), "FSR Low", this), fsrh(pCpu, (string("fsrh")+n).c_str(), "FSR High", this), indf(pCpu, (string("indf")+n).c_str(), "Indirect Register", this), preinc(pCpu, (string("preinc")+n).c_str(), "Pre Increment Indirect", this), postinc(pCpu, (string("postinc")+n).c_str(), "Post Increment Indirect", this), postdec(pCpu, (string("postdec")+n).c_str(), "Post Decrement Indirect", this), plusw(pCpu, (string("plusw")+n).c_str(), "Literal Offset Indirect", this) { /* fsrl.iam = this; fsrh.iam = this; indf.iam = this; preinc.iam = this; postinc.iam = this; postdec.iam = this; plusw.iam = this; */ current_cycle = (guint64)(-1); // Not zero! See bug #3311944 fsr_value = 0; fsr_state = 0; fsr_delta = 0; cpu = pCpu; } /* * put - Each of the indirect registers associated with this * indirect addressing class will call this routine to indirectly * write data. */ void Indirect_Addressing::put(unsigned int new_value) { /* unsigned int midbits; if( ((fsr_value & 0xfc7) == 0xfc3) || ((fsr_value & 0xfc4) == 0xfc4)) { midbits = (fsr_value >> 3) & 0x7; if(midbits >= 3 && midbits <= 5) return; } */ if(is_indirect_register(fsr_value)) return; cpu_pic->registers[get_fsr_value()]->put(new_value); } /* * get - Each of the indirect registers associated with this * indirect addressing class will call this routine to indirectly * retrieve data. */ unsigned int Indirect_Addressing::get() { // unsigned int midbits; // See the comment in Indirect_Addressing::put about fsr address checking if(is_indirect_register(fsr_value)) return 0; else /* if( ((fsr_value & 0xfc7) == 0xfc3) || ((fsr_value & 0xfc4) == 0xfc4)) { midbits = (fsr_value >> 3) & 0x7; if(midbits >= 3 && midbits <= 5) return 0; } */ return cpu_pic->registers[get_fsr_value()]->get(); } /* * get - Each of the indirect registers associated with this * indirect addressing class will call this routine to indirectly * retrieve data. */ unsigned int Indirect_Addressing::get_value() { /* unsigned int midbits; See the comment in Indirect_Addressing::put about fsr address checking if( ((fsr_value & 0xfc7) == 0xfc3) || ((fsr_value & 0xfc4) == 0xfc4)) { midbits = (fsr_value >> 3) & 0x7; if(midbits >= 3 && midbits <= 5) return 0; } */ if(is_indirect_register(fsr_value)) return 0; else return cpu_pic->registers[get_fsr_value()]->get_value(); } void Indirect_Addressing::put_fsr(unsigned int new_fsr) { fsrl.put(new_fsr & 0xff); fsrh.put((new_fsr>>8) & 0x0f); } /* * update_fsr_value - This routine is called by the FSRL and FSRH * classes. It's purpose is to update the 16-bit (actually 12-bit) * address formed by the concatenation of FSRL and FSRH. * */ void Indirect_Addressing::update_fsr_value() { if(current_cycle != get_cycles().get()) { fsr_value = (fsrh.value.get() << 8) | fsrl.value.get(); fsr_delta = 0; } } /* * preinc_fsr_value - This member function pre-increments the current * fsr_value. If the preinc access is a read-modify-write instruction * (e.g. bcf preinc0,1 ) then the increment operation should occur * only once. */ void Indirect_Addressing::preinc_fsr_value() { if(current_cycle != get_cycles().get()) { fsr_value += (fsr_delta+1); fsr_delta = 0; current_cycle = get_cycles().get(); put_fsr(fsr_value); } } void Indirect_Addressing::postinc_fsr_value() { if(current_cycle != get_cycles().get()) { fsr_value += fsr_delta; fsr_delta = 1; current_cycle = get_cycles().get(); put_fsr(fsr_value+1); } } void Indirect_Addressing::postdec_fsr_value() { if(current_cycle != get_cycles().get()) { fsr_value += fsr_delta; fsr_delta = -1; current_cycle = get_cycles().get(); put_fsr(fsr_value-1); } } int Indirect_Addressing::plusw_fsr_value() { fsr_value += fsr_delta; fsr_delta = 0; int signExtendedW = cpu_pic->Wreg->value.get() | ((cpu_pic->Wreg->value.get() > 127) ? 0xf00 : 0); unsigned int destination = (fsr_value + signExtendedW) & _16BIT_REGISTER_MASK; if(is_indirect_register(destination)) return -1; else return destination; } int Indirect_Addressing::plusk_fsr_value(int k) { fsr_value += fsr_delta; fsr_delta = 0; unsigned int destination = (fsr_value + k) & _16BIT_REGISTER_MASK; if(is_indirect_register(destination)) return -1; else return destination; } //------------------------------------------------ void Fast_Stack::init(_16bit_processor *new_cpu) { cpu = new_cpu; } void Fast_Stack::push() { w = cpu->Wreg->value.get(); status = cpu->status->value.get(); bsr = cpu->bsr.value.get(); } void Fast_Stack::pop() { //cout << "popping fast stack\n"; cpu->Wreg->put(w); cpu->status->put(status); cpu->bsr.put(bsr); } //-------------------------------------------------- // member functions for the PCL base class //-------------------------------------------------- PCL16::PCL16(Processor *pCpu, const char *pName, const char *pDesc) : PCL(pCpu,pName,pDesc) { } unsigned int PCL16::get() { value.put(cpu_pic->pc->get_value() & 0xff); return((value.get()+2) & 0xff); } unsigned int PCL16::get_value() { value.put(cpu_pic->pc->get_value() & 0xff); return((value.get()) & 0xff); } //-------------------------------------------------- // Program_Counter16 // The Program_Counter16 is almost identical to Program_Counter. // The major difference is that the PC counts by 2 in the 16bit core. Program_Counter16::Program_Counter16(Processor *pCpu) : Program_Counter("pc","Program Counter", pCpu) { if(verbose) cout << "pc constructor 16\n"; } //-------------------------------------------------- // computed_goto - update the program counter. Anytime the pcl register is written to // by the source code we'll pass through here. // // void Program_Counter16::computed_goto(unsigned int new_address) { // cout << "Program_Counter16::computed_goto \n"; trace.raw(trace_other | (value<<1)); // Use the new_address and the cached pclath // to generate the destination address: value = ( (new_address | cpu_pic->get_pclath_branching_modpcl() )>>1); if (value >= memory_size) value -= memory_size; // see Update pcl comment in Program_Counter::increment() cpu_pic->pcl->value.put((value<<1) & 0xff); // The instruction modifying the PCL will also increment the program counter. // So, pre-compensate the increment with a decrement: value--; // The computed goto is a 2-cycle operation. The first cycle occurs within // the instruction (i.e. via the ::increment() method). The second cycle occurs // here: mExecute2ndHalf->advance(); } //-------------------------------------------------- // put_value - Change the program counter without affecting the cycle counter // (This is what's called if the user changes the pc.) void Program_Counter16::put_value(unsigned int new_value) { if (verbose) cout << "Program_Counter16::put_value 0x" << hex << new_value << '\n'; trace.raw(trace_other | (value<<1)); // RP - The new_value passed in is a byte address, but the Program_Counter16 // class's internal value is a word address value = (new_value/2); if (value >= memory_size) value -= memory_size; cpu_pic->pcl->value.put(new_value & 0xfe); // RP - removed these lines as setting the actual PC should not affect the latches // cpu_pic->pclath->value.put((new_value >> 8) & 0xff); // cpu16->pclatu.value.put((new_value >> 16) & 0xff); cpu_pic->pcl->update(); cpu_pic->pclath->update(); update(); } //------------------------------------------------ // get_value() // unsigned int Program_Counter16::get_value() { return value << 1; } //------------------------------------------------ // TOSU TOSU::TOSU(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc) {} unsigned int TOSU::get() { value.put((stack->get_tos() >> 16) & 0x1f); trace.raw(read_trace.get() | value.get()); return(value.get()); } unsigned int TOSU::get_value() { value.put((stack->get_tos() >> 16) & 0x1f); return(value.get()); } void TOSU::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); stack->put_tos( (stack->get_tos() & 0xffe0ffff) | ( (new_value & 0x1f) << 16)); } void TOSU::put_value(unsigned int new_value) { stack->put_tos( (stack->get_tos() & 0xffe0ffff) | ( (new_value & 0x1f) << 16)); update(); } //------------------------------------------------ // STKPTR STKPTR16::STKPTR16(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc) {} void STKPTR16::put_value(unsigned int new_value) { stack->pointer = new_value & stack->stack_mask; value.put(new_value); update(); } void STKPTR16::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); put_value(new_value); } //-------------------------------------------------- // Stack16::Stack16(Processor *pCpu) : Stack(pCpu), stkptr(pCpu, "stkptr", "Stack pointer"), tosl(pCpu, "tosl", "Top of Stack low byte"), tosh(pCpu, "tosh", "Top of Stack high byte"), tosu(pCpu, "tosu", "Top of Stack upper byte") { stkptr.stack = this; tosl.stack = this; tosh.stack = this; tosu.stack = this; } Stack16::~Stack16() { pic_processor *pCpu = dynamic_cast(cpu); if (pCpu) { pCpu->remove_sfr_register(&stkptr); pCpu->remove_sfr_register(&tosl); pCpu->remove_sfr_register(&tosh); pCpu->remove_sfr_register(&tosu); } } // pop of empty stack sets undeflow and returns 0 unsigned int Stack16::pop() { if(pointer <= 0) { pointer = 0; stack_underflow(); return(0); } --pointer; unsigned int stkptr_status = stkptr.value.get() & ~stack_mask; stkptr.value.put((pointer & stack_mask) | stkptr_status); return(contents[pointer & stack_mask] >> 1); } // When stack is full last(top) entry is overwritten bool Stack16::push(unsigned int address) { contents[pointer & stack_mask] = address << 1; if(pointer >= (int)stack_mask) { pointer = stack_mask; return stack_overflow(); } pointer++; stkptr.value.put((pointer & stack_mask) | (stkptr.value.get() & ~stack_mask)); return true; } void Stack16::reset(RESET_TYPE r) { unsigned int reg_value; if (r != POR_RESET && r != BOD_RESET) reg_value = stkptr.value.get() & ~stack_mask; else reg_value = 0; pointer = 0; stkptr.value.put( reg_value); } bool Stack16::stack_underflow() { stkptr.value.put(STKPTR::STKUNF); // don't decrement past 0, signalize STKUNF if(STVREN) { cpu->reset(STKUNF_RESET); return false; } cout <<"Stack undeflow\n"; return true; } bool Stack16::stack_overflow() { stkptr.value.put( STKPTR::STKOVF | (pointer & stack_mask)); if(STVREN) { cpu->reset(STKOVF_RESET); return false; } cout << "Stack overflow\n"; return true; } //-------------------------------------------------- // member functions for the RCON base class //-------------------------------------------------- RCON::RCON(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc) { } //-------------------------------------------------- // member functions for the CPUSTA base class //-------------------------------------------------- CPUSTA::CPUSTA(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc) { } //-------------------------------------------------- // member functions for the T0CON base class //-------------------------------------------------- T0CON::T0CON(Processor *pCpu, const char *pName, const char *pDesc) : OPTION_REG(pCpu,pName,pDesc) { por_value = RegisterValue(0xff,0); wdtr_value = RegisterValue(0xff,0); } void T0CON::put(unsigned int new_value) { unsigned int old_value = value.get(); trace.raw(write_trace.get() | value.get()); //trace.register_write(address,value.get()); value.put(new_value); if( (value.get() ^ old_value) & (T08BIT | TMR0ON)) { cpu16->option_new_bits_6_7(value.get() & (BIT6 | BIT7)); if(value.get() & TMR0ON) { unsigned int initialTmr0value = (cpu16->tmr0l.value.get() & 0xff) | ( ((value.get() & T08BIT)==0) ? ((cpu16->tmr0l.value.get() & 0xff)<<8) : 0); cpu16->tmr0l.start(initialTmr0value); } else cpu16->tmr0l.stop(); } // %%%FIX ME%%% - can changing the state of TOSE cause the timer to // increment if tmr0 is being clocked by an external clock? // Now check the rest of the tmr0 bits. if( (value.get() ^ old_value) & (T0CS | T0SE | PSA | PS2 | PS1 | PS0)) cpu16->tmr0l.new_prescale(); //cout <<"T0CON::put - new val 0x" << hex << value.get() <<'\n'; } //-------------------------------------------------- void T0CON::initialize() { // cpu16->tmr0l.new_prescale(); cpu16->wdt.set_postscale( (value.get() & PSA) ? (value.get() & ( PS2 | PS1 | PS0 )) : 0); cpu16->option_new_bits_6_7(value.get() & (T0CS | BIT6 | BIT7)); } //-------------------------------------------------- TMR0H::TMR0H(Processor *pCpu, const char *pName, const char *pDesc) :sfr_register(pCpu,pName,pDesc) { } //-------------------------------------------------- void TMR0H::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value & 0xff); } //-------------------------------------------------- void TMR0H::put_value(unsigned int new_value) { value.put(new_value & 0xff); } unsigned int TMR0H::get() { trace.raw(read_trace.get() | value.get()); //trace.register_read(address,value.get()); return(value.get()); } unsigned int TMR0H::get_value() { return(value.get()); } //-------------------------------------------------- // TMR0_16 member functions // TMR0_16::TMR0_16(Processor *pCpu, const char *pName, const char *pDesc) : TMR0(pCpu,pName,pDesc), t0con(0), intcon(0), tmr0h(0), value16(0) { } //-------------------------------------------------- // TMR0_16::get_prescale // // If the prescaler is assigned to the WDT (and not TMR0) // then return 0 // other wise // then return the Prescale select bits (plus 1) // unsigned int TMR0_16::get_prescale() { if(t0con->value.get() & 0x8) return 0; else return ((t0con->value.get() & 7) + 1); } void TMR0_16::set_t0if() { intcon->set_t0if(); } bool TMR0_16::get_t0cs() { return (t0con->value.get() & 0x20) != 0; } void TMR0_16::initialize() { t0con = &cpu16->t0con; intcon = &cpu16->intcon; tmr0h = &cpu16->tmr0h; } unsigned int TMR0_16::max_counts() { if(t0con->value.get() & T0CON::T08BIT) return 0x100; else return 0x10000; } void TMR0_16::start(int restart_value, int sync) { m_pOptionReg = t0con; TMR0::start(restart_value, sync); } void TMR0_16::put_value(unsigned int new_value) { value.put(new_value & 0xff); value16 = (new_value & 0xff) | (tmr0h ? (tmr0h->get_value()<<8) : 0); if(t0con->value.get() & T0CON::TMR0ON) { if(t0con->value.get() & T0CON::T08BIT) TMR0::put_value(new_value); else start(value16); } else { // TMR0 is not enabled } } // %%%FIX ME%%% void TMR0_16::increment() { // cout << "_TMR0 increment because of external clock "; trace.raw(write_trace.get() | value.get()); //trace.register_write(address,value.get()); if(--prescale_counter == 0) { prescale_counter = prescale; if(t0con->value.get() & T0CON::T08BIT) { if(value.get() == 255) { value.put(0); set_t0if(); } else value.put(value.get()+1); } else { if(value.get() == 255) { value.put(0); if(tmr0h->value.get() == 255) { tmr0h->put(0); set_t0if(); } else tmr0h->value.put(tmr0h->value.get()+1); } else { value.put(value.get()+1); } } } // cout << value << '\n'; } unsigned int TMR0_16::get_value() { if(t0con->value.get() & T0CON::TMR0ON) { // If TMR0L:H is configured as an 8-bit timer, then treat as an 8-bit timer if(t0con->value.get() & T0CON::T08BIT) { if (tmr0h) tmr0h->put_value( (value16>>8)&0xff); return(TMR0::get_value()); } value16 = (int) ((get_cycles().get() - last_cycle)/ prescale); value.put(value16 & 0xff); } return(value.get()); } unsigned int TMR0_16::get() { trace.raw(read_trace.get() | value.get()); get_value(); if(t0con->value.get() & T0CON::T08BIT) return value.get(); // reading the low byte of tmr0 latches in the high byte. tmr0h->put_value((value16 >> 8)&0xff); return value.get(); } void TMR0_16::callback() { //cout<<"_TMR0 rollover: " << hex << cycles.value << '\n'; if((t0con->value.get() & T0CON::TMR0ON) == 0) { cout << " tmr0 isn't turned on\n"; return; } TMR0::callback(); // Let the parent class handle the lower eight bits //Now handle the upper 8 bits: if(future_cycle && !(t0con->value.get() & T0CON::T08BIT)) { // 16-bit mode tmr0h->put_value(0); } } void TMR0_16::callback_print() { cout << "TMR0_16 " << name() << " CallBack ID " << CallBackID << '\n'; } void TMR0_16::sleep() { if (verbose) cout << "TMR0_16::sleep state=" << state << "\n"; if((state & RUNNING)) { TMR0::stop(); state = SLEEPING; } } void TMR0_16::wake() { if (verbose) cout << "TMR0_16::wake state=" << state << "\n"; if ((state & SLEEPING)) { if (! (state & RUNNING)) { state = STOPPED; start(value.get(), 0); } else state &= ~SLEEPING; } } //-------------------------------------------------- // T3CON T3CON::T3CON(Processor *pCpu, const char *pName, const char *pDesc) : T1CON(pCpu,pName,pDesc), ccpr1l(0),ccpr2l(0),tmr1l(0) {} void T3CON::put(unsigned int new_value) { int diff = (value.get() ^ new_value); if(diff & (T3CCP1 | T3CCP2)) { switch(new_value & (T3CCP1 | T3CCP2)) { case 0: ccpr1l->assign_tmr(tmr1l); // Both CCP modules use TMR1 as their source ccpr2l->assign_tmr(tmr1l); break; case T3CCP1: ccpr1l->assign_tmr(tmr1l); // CCP1 uses TMR1 ccpr2l->assign_tmr(tmrl); // CCP2 uses TMR3 break; default: ccpr1l->assign_tmr(tmrl); // Both CCP modules use TMR3 as their source ccpr2l->assign_tmr(tmrl); } } // Let the T1CON class deal with everything else. T1CON::put(new_value); } //-------------------------------------------------- // TMR3_MODULE // // TMR3_MODULE::TMR3_MODULE() { t3con = 0; pir_set = 0; } void TMR3_MODULE::initialize(T3CON *t3con_, PIR_SET *pir_set_) { t3con = t3con_; pir_set = pir_set_; } //------------------------------------------------------------------- // // Table Reads and Writes // // The 18cxxx family provides a peripheral that will allow the program // memory to read and write to itself. // //------------------------------------------------------------------- TBL_MODULE::TBL_MODULE(_16bit_processor *pCpu) : cpu(pCpu), tablat(pCpu,"tablat"), tabptrl(pCpu,"tabptrl"), tabptrh(pCpu,"tabptrh"), tabptru(pCpu,"tabptru") { } //void TBL_MODULE::initialize(_16bit_processor *new_cpu) //{ // cpu = new_cpu; //} //------------------------------------------------------------------- // void TBL_MODULE::increment() // // This function increments the 24-bit ptr that is formed by the // concatenation of tabptrl,tabptrh, and tabptru. It is called by // the TBLRD and TBLWT pic instructions when the auto-increment // operand is specified (e.g. TBLWT *+ ) // // // Inputs: none // Outputs: none // //------------------------------------------------------------------- void TBL_MODULE::increment() { if(tabptrl.value.get() >= 0xff) { tabptrl.put(0); if(tabptrh.value.get() >= 0xff) { tabptrh.put(0); tabptru.put(tabptru.value.get() + 1); } else { tabptrh.put(tabptrh.value.get() + 1); } } else tabptrl.put(tabptrl.value.get() + 1); } //------------------------------------------------------------------- //------------------------------------------------------------------- void TBL_MODULE::decrement() { if(tabptrl.value.get() == 0) { tabptrl.put(0xff); if(tabptrh.value.get() == 0) { tabptrh.put(0xff); tabptru.put(tabptru.value.get() - 1); } else { tabptrh.put(tabptrh.value.get() - 1); } } else tabptrl.put(tabptrl.value.get() - 1); } //------------------------------------------------------------------- //------------------------------------------------------------------- void TBL_MODULE::read() { unsigned int tabptr,opcode; tabptr = ( (tabptru.value.get() & 0xff) << 16 ) | ( (tabptrh.value.get() & 0xff) << 8 ) | ( (tabptrl.value.get() & 0xff) << 0 ); opcode = cpu_pic->pma->get_rom(tabptr & 0xfffffe); if(tabptr & 1) { tablat.put((opcode >> 8) & 0xff); internal_latch = (internal_latch & 0x00ff) | (opcode & 0xff00); } else { tablat.put((opcode >> 0) & 0xff); internal_latch = (internal_latch & 0xff00) | (opcode & 0x00ff); } } //------------------------------------------------------------------- //------------------------------------------------------------------- void TBL_MODULE::write() { unsigned int tabptr; tabptr = ( (tabptru.value.get() & 0xff) << 16 ) | ( (tabptrh.value.get() & 0xff) << 8 ) | ( (tabptrl.value.get() & 0xff) << 0 ); if(tabptr & 1) { // Long write internal_latch = (internal_latch & 0x00ff) | ((tablat.value.get()<<8) & 0xff00); cpu_pic->pma->put_opcode_start(tabptr & 0xfffffe, internal_latch); } else { // Short Write internal_latch = (internal_latch & 0xff00) | (tablat.value.get() & 0x00ff); } } //------------------------------------------------------------------- //------------------------------------------------------------------- LVDCON::LVDCON(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName,pDesc), valid_bits(0x3f) { } #if 0 //------------------------------------------------------------------- // // PORTC16 //------------------------------------------------------------------- PORTC16::PORTC16() { usart = 0; ccp1con = 0; } //------------------------------------------------------------------- //------------------------------------------------------------------- unsigned int PORTC16::get() { unsigned int old_value; old_value = value.get(); IOPORT::get(); int diff = old_value ^ value.get(); // The difference between old and new // if( ccp1con && (diff & CCP1) ) { ccp1con->new_edge(value.get() & CCP1); } // if this cpu has a usart and there's been a change detected on // the RX pin, then we need to notify the usart if( usart && (diff & RX)) usart->new_rx_edge(value.get() & RX); return(value.get()); } //------------------------------------------------------------------- //------------------------------------------------------------------- void PORTC16::setbit(unsigned int bit_number, bool new_value) { unsigned int old_value = value.get(); //cout << "PORTC16::setbit() bit " << bit_number << " to " << new_value << '\n'; IOPORT::setbit( bit_number, new_value); int diff = old_value ^ value.get(); // The difference between old and new if(ccp1con && ( diff & CCP1) ) { ccp1con->new_edge(value.get() & CCP1); } if( usart && (diff & RX)) usart->new_rx_edge(value.get() & RX); } //------------------------------------------------------------------- // PORTC16::put(unsigned int new_value) // // inputs: new_value - here's where the I/O port is written (e.g. // gpsim is executing a MOVWF IOPORT,F instruction.) // returns: none // // The I/O Port is updated with the new value. If there are any stimuli // attached to the I/O pins then they will be updated as well. // This is the same as PIC_IOPORT::put(), but check for the transmit // enable bit of the usart in addition to the TRISC register. // //------------------------------------------------------------------- void PORTC16::put(unsigned int new_value) { if(new_value > 255) cout << "PORTC16::put value >255\n"; // The I/O Ports have an internal latch that holds the state of the last // write, even if the I/O pins are configured as inputs. If the tris port // changes an I/O pin from an input to an output, then the contents of this // internal latch will be placed onto the external I/O pin. internal_latch = new_value; // update only those bits that are really outputs int mack_value = tris->value.get(); if (usart && usart->txsta.get() & _TXSTA::TXEN) mack_value |= 1 << 6; trace.raw(write_trace.get() | value.get()); //trace.register_write(address,value.get()); value.put((new_value & ~mack_value) | (value.get() & mack_value)); // Update the stimuli - if there are any if(stimulus_mask) update_stimuli(); } //------------------------------------------------------------------- // PORTC16::update_pin_directions(unsigned int new_tris) // // Whenever a new value is written to a tris register, then we need // to update the stimuli associated with the I/O pins. This is true // even if the I/O pin are not connected to external stimuli (like a // square wave). An example scenario would be like changing a port b // pin from an output that's driving low to an input. If there's no // stimulus attached to the port b I/O pin then the pull up (if enabled) // will pull the I/O pin high. // This is the same as PIC_IOPORT::update_pin_directions(), but check for the // transmit enable bit of the usart in addition to the TRISC register. // //------------------------------------------------------------------- void PORTC16::update_pin_directions(unsigned int new_tris) { if(!tris) return; unsigned int diff = tris->value.get() ^ new_tris; if (usart && usart->txsta.get() & _TXSTA::TXEN) diff &= ~(1 << 6); // don't update TX pin if TXEN if(diff) { // Update the I/O port value to that of the internal latch value.put((value.get() & ~diff) | (internal_latch & diff)); // Go through and update the direction of the I/O pins int i,m; for(i = 0, m=1; iupdate_direction(m & (~new_tris)); //cout << __FUNCTION__ << " name " << pins[i]->name() << " pin number " << i << '\n'; } // Now, update the nodes to which the(se) pin(s) may be attached guint64 time = get_cycles().get(); for(i = 0, m=1; isnode!=0) pins[i]->snode->update(time); } } #endif // 0 gpsim-0.27.0/src/ui.cc0000644000076400007640000003373111401170177011371 00000000000000#include #include #include #include "cmd_gpsim.h" #include "sim_context.h" #include "symbol.h" #include "cmd_manager.h" const char * s_psEnglishMessages[] = { "", // Place holder so we don't have a zero "break reading register %s\n", // IDS_BREAK_READING_REG "break reading register %s with value %u\n", // IDS_BREAK_READING_REG_VALUE "break reading register %s %s %u\n", // IDS_BREAK_READING_REG_OP_VALUE "break writing register %s\n", // IDS_BREAK_WRITING_REG "break writing register %s with value %u\n", // IDS_BREAK_WRITING_REG_VALUE "break writing register %s %s %u\n", // IDS_BREAK_WRITING_REG_OP_VALUE "execution break at address %s\n", // IDS_BREAK_ON_EXEC_ADDRESS "unrecognized processor in the program file\n", // IDS_PROGRAM_FILE_PROCESSOR_NOT_KNOWN "file name '%s' is too long\n", // IDS_FILE_NAME_TOO_LONG "file %s not found\n", // IDS_FILE_NOT_FOUND "file %s is not formatted properly\n", // IDS_FILE_BAD_FORMAT "no processor has been specified\n", // IDS_NO_PROCESSOR_SPECIFIED "processor %s initialization failed\n", // IDS_PROCESSOR_INIT_FAILED "the program file type does not contain processor\n" // first part of IDS_FILE_NEED_PROCESSOR_SPECIFIED "you need to specify processor with the processor command\n", // IDS_FILE_NEED_PROCESSOR_SPECIFIED "an appropriate list file for %s was not found\n", // IDS_LIST_FILE_NOT_FOUND "Hit breakpoint %d\n", // IDS_HIT_BREAK NULL, // IDS_ }; class CGpsimUserInterface : public IUserInterface { public: CGpsimUserInterface(const char *paStrings[]); virtual ~CGpsimUserInterface() {} void SetStreams(FILE *in, FILE *out); virtual ISimConsole &GetConsole(); virtual void SetConsole(ISimConsole *pConsole); virtual void DisplayMessage(unsigned int uStringID, ...); virtual void DisplayMessage(FILE * pOut, unsigned int uStringID, ...); virtual void DisplayMessage(const char *fmt, ...); virtual void DisplayMessage(FILE * pOut, const char *fmt, ...); virtual const char * FormatProgramAddress(unsigned int uAddress, unsigned int uMask); virtual const char * FormatProgramAddress(unsigned int uAddress, unsigned int uMask, int iRadix); virtual const char * FormatRegisterAddress(Register *); virtual const char * FormatRegisterAddress(unsigned int uAddress, unsigned int uMask); virtual const char * FormatLabeledValue(const char * pLabel, unsigned int uValue); virtual const char * FormatLabeledValue(const char * pLabel, unsigned int uValue, unsigned int uMask, int iRadix, const char *pHexPrefix); virtual const char * FormatValue(unsigned int uValue); virtual const char * FormatValue(gint64 uValue); virtual const char * FormatValue(gint64 uValue, guint64 uMask); virtual const char * FormatValue(gint64 uValue, guint64 uMask, int iRadix); virtual const char * FormatValue(gint64 uValue, guint64 uMask, int iRadix, const char * pHexPrefix); virtual const char * FormatValue(char *str, int len, int iRegisterSize, RegisterValue value); // virtual char * FormatValueAsBinary(char *str, int len, // int iRegisterSize, RegisterValue value); virtual void SetProgramAddressRadix(int iRadix); virtual void SetRegisterAddressRadix(int iRadix); virtual void SetValueRadix(int iRadix); virtual void SetProgramAddressMask(unsigned int uMask); virtual void SetRegisterAddressMask(unsigned int uMask); virtual void SetValueMask(unsigned int uMask); virtual void SetExitOnBreak(FNNOTIFYEXITONBREAK); virtual void NotifyExitOnBreak(int iExitCode); static Integer s_iValueRadix; static String s_sValueHexPrefix; static Integer s_iProgAddrRadix; static String s_sProgAddrHexPrefix; static Integer s_iRAMAddrRadix; static String s_sRAMAddrHexPrefix; static Integer s_iValueMask; static Integer s_iProgAddrMask; static Integer s_iRAMAddrMask; protected: string m_sLabeledAddr; string m_sFormatValueGint64; const char ** m_paStrings; // CGpsimConsole m_Console; }; Integer CGpsimUserInterface::s_iValueRadix( "UIValueRadix", IUserInterface::eHex); String CGpsimUserInterface::s_sValueHexPrefix( "UIValueHexPrefix", "$"); Integer CGpsimUserInterface::s_iProgAddrRadix( "UIProgamAddressRadix", IUserInterface::eHex); String CGpsimUserInterface::s_sProgAddrHexPrefix("UIProgamAddressHexPrefix", "$"); Integer CGpsimUserInterface::s_iRAMAddrRadix( "UIRAMAddressRadix", IUserInterface::eHex); String CGpsimUserInterface::s_sRAMAddrHexPrefix( "UIRAMAddressHexPrefix", "$"); Integer CGpsimUserInterface::s_iValueMask( "UIValueMask", 0xff); Integer CGpsimUserInterface::s_iProgAddrMask( "UIProgamAddressMask", 0xff); Integer CGpsimUserInterface::s_iRAMAddrMask( "UIRAMAddressMask", 0xff); class NullConsole : public ISimConsole { public: virtual void Printf(const char *fmt, ...) {} virtual void VPrintf(const char *fmt, va_list argptr) {} virtual void Puts(const char*) {} virtual void Putc(const char) {} virtual const char * Gets(char *, int) { return "";} }; NullConsole g_NullConsole; static ISimConsole *g_pConsole = &g_NullConsole; class NullUserInterface : public IUserInterface { // NullConsole m_Console; public: virtual ISimConsole &GetConsole() { return *g_pConsole; } virtual void SetConsole(ISimConsole *pConsole) { g_pConsole = pConsole; } virtual void DisplayMessage(unsigned int uStringID, ...) {} virtual void DisplayMessage(FILE * pOut, unsigned int uStringID, ...) {} virtual void DisplayMessage(const char *fmt, ...) {} virtual void DisplayMessage(FILE * pOut, const char *fmt, ...) {} virtual const char * FormatProgramAddress(unsigned int uAddress, unsigned int uMask) {return "";} virtual const char * FormatProgramAddress(unsigned int uAddress, unsigned int uMask, int iRadix) {return "";} virtual const char * FormatRegisterAddress(Register *) { return ""; } virtual const char * FormatRegisterAddress(unsigned int uAddress, unsigned int uMask) {return "";} virtual const char * FormatLabeledValue(const char * pLabel, unsigned int uValue) {return "";} virtual const char * FormatValue(unsigned int uValue) {return "";} virtual const char * FormatValue(gint64 uValue) {return "";} virtual const char * FormatValue(gint64 uValue, guint64 uMask) {return "";} virtual const char * FormatValue(gint64 uValue, guint64 uMask, int iRadix) {return "";} virtual const char * FormatValue(char *str, int len, int iRegisterSize, RegisterValue value) {return "";} virtual void SetProgramAddressRadix(int iRadix) {} virtual void SetRegisterAddressRadix(int iRadix) {} virtual void SetValueRadix(int iRadix) {} virtual void SetProgramAddressMask(unsigned int uMask) {} virtual void SetRegisterAddressMask(unsigned int uMask) {} virtual void SetValueMask(unsigned int uMask) {} virtual void SetExitOnBreak(FNNOTIFYEXITONBREAK) {} virtual void NotifyExitOnBreak(int iExitCode) {} }; CGpsimUserInterface g_DefaultUI(s_psEnglishMessages); static IUserInterface *g_GpsimUI = &g_DefaultUI; LIBGPSIM_EXPORT IUserInterface & GetUserInterface(void) { return *g_GpsimUI; } LIBGPSIM_EXPORT void SetUserInterface(IUserInterface * pGpsimUI) { if(pGpsimUI) { g_GpsimUI = pGpsimUI; } else { g_GpsimUI = &g_DefaultUI; } } static streambuf *s_pSavedCout = 0; LIBGPSIM_EXPORT void SetUserInterface(std::streambuf * pOutStreamBuf) { if(pOutStreamBuf == NULL && s_pSavedCout != 0) { cout.rdbuf(s_pSavedCout); s_pSavedCout = 0; } else { s_pSavedCout = cout.rdbuf(pOutStreamBuf);; } } /// /// CGpsimUserInterface /// CGpsimUserInterface::CGpsimUserInterface(const char *paStrings[]) { m_paStrings = paStrings; m_pfnNotifyOnExit = NULL; } void CGpsimUserInterface::SetStreams(FILE *in, FILE *out) { // m_Console.SetOut(out); // m_Console.SetIn(in); } ISimConsole &CGpsimUserInterface::GetConsole(void) { return *g_pConsole; } void CGpsimUserInterface::SetConsole(ISimConsole *pConsole) { g_pConsole = pConsole; } void CGpsimUserInterface::DisplayMessage(unsigned int uStringID, ...) { va_list ap; va_start(ap,uStringID); g_pConsole->VPrintf(m_paStrings[uStringID], ap); va_end(ap); } void CGpsimUserInterface::DisplayMessage(FILE * pOut, unsigned int uStringID, ...) { va_list ap; va_start(ap,uStringID); if (pOut == NULL || pOut == stdout) { g_pConsole->VPrintf(m_paStrings[uStringID], ap); } else { vfprintf(pOut, m_paStrings[uStringID], ap); } va_end(ap); } void CGpsimUserInterface::DisplayMessage(const char *fmt, ...) { va_list ap; va_start(ap,fmt); g_pConsole->VPrintf(fmt, ap); va_end(ap); } void CGpsimUserInterface::DisplayMessage(FILE * pOut, const char *fmt, ...) { va_list ap; va_start(ap,fmt); if (pOut == NULL || pOut == stdout) { g_pConsole->VPrintf(fmt, ap); } else { vfprintf(pOut, fmt, ap); } va_end(ap); } void CGpsimUserInterface::SetProgramAddressRadix(int iRadix) { s_iProgAddrRadix = iRadix; } void CGpsimUserInterface::SetRegisterAddressRadix(int iRadix) { s_iRAMAddrRadix = iRadix; } void CGpsimUserInterface::SetValueRadix(int iRadix) { s_iValueRadix = iRadix; } void CGpsimUserInterface::SetProgramAddressMask(unsigned int uMask) { s_iProgAddrMask = uMask; } void CGpsimUserInterface::SetRegisterAddressMask(unsigned int uMask) { s_iRAMAddrMask = uMask; } void CGpsimUserInterface::SetValueMask(unsigned int uMask) { s_iValueMask = uMask; } void CGpsimUserInterface::SetExitOnBreak(FNNOTIFYEXITONBREAK pFunc) { m_pfnNotifyOnExit = pFunc; } void CGpsimUserInterface::NotifyExitOnBreak(int iExitCode) { if(m_pfnNotifyOnExit != NULL) { m_pfnNotifyOnExit(iExitCode); } } const char * CGpsimUserInterface::FormatProgramAddress(unsigned int uAddress, unsigned int uMask) { //const char * pLabel = get_symbol_table().findProgramAddressLabel(uAddress); const char *pLabel = "FIXME-ui.cc"; return FormatLabeledValue(pLabel, uAddress, uMask, s_iProgAddrRadix, s_sProgAddrHexPrefix); } const char * CGpsimUserInterface::FormatProgramAddress(unsigned int uAddress, unsigned int uMask, int iRadix) { return FormatValue((gint64)uAddress, uMask, iRadix, s_sProgAddrHexPrefix); } const char * CGpsimUserInterface::FormatRegisterAddress(Register *pReg) { if (!pReg) return ""; return FormatLabeledValue(pReg->name().c_str(), pReg->address, s_iRAMAddrMask, s_iRAMAddrRadix, s_sRAMAddrHexPrefix); } const char * CGpsimUserInterface::FormatRegisterAddress(unsigned int uAddress, unsigned int uMask) { //register_symbol * pRegSym = get_symbol_table().findRegisterSymbol(uAddress, uMask); //const char * pLabel = pRegSym == NULL ? "" : pRegSym->name().c_str(); const char *pLabel = "FIXME-ui.cc"; return FormatLabeledValue(pLabel, uAddress, s_iRAMAddrMask, s_iRAMAddrRadix, s_sRAMAddrHexPrefix); } const char * CGpsimUserInterface::FormatLabeledValue(const char * pLabel, unsigned int uValue) { return FormatLabeledValue(pLabel, uValue, s_iValueMask, s_iValueRadix, s_sValueHexPrefix); } const char * CGpsimUserInterface::FormatLabeledValue(const char * pLabel, unsigned int uValue, unsigned int uMask, int iRadix, const char * pHexPrefix) { m_sLabeledAddr.clear(); const char *pValue = FormatValue(uValue, uMask, iRadix, pHexPrefix); if(pLabel != NULL && *pLabel != 0) { m_sLabeledAddr.append(pLabel); m_sLabeledAddr.append("("); m_sLabeledAddr.append(pValue); m_sLabeledAddr.append(")"); } else { m_sLabeledAddr = pValue; } return m_sLabeledAddr.c_str(); } const char * CGpsimUserInterface::FormatValue(unsigned int uValue) { return FormatLabeledValue(NULL, uValue, s_iValueMask, s_iValueRadix, s_sValueHexPrefix); } const char * CGpsimUserInterface::FormatValue(gint64 uValue) { return FormatValue(uValue, s_iValueMask, s_iValueRadix); } const char * CGpsimUserInterface::FormatValue(gint64 uValue, guint64 uMask) { return FormatValue(uValue, uMask, s_iValueRadix, s_sValueHexPrefix); } const char * CGpsimUserInterface::FormatValue(gint64 uValue, guint64 uMask, int iRadix) { return FormatValue(uValue, uMask, iRadix, s_sValueHexPrefix); } const char * CGpsimUserInterface::FormatValue(gint64 uValue, guint64 uMask, int iRadix, const char * pHexPrefix) { ostringstream osValue; string sPrefix; int iBytes = 0; guint64 l_uMask = uMask; int iDigits; while(l_uMask) { iBytes++; l_uMask >>= 8; } switch(iRadix) { case eHex: iDigits = iBytes * 2; osValue << pHexPrefix; osValue << hex << setw(iDigits) << setfill('0'); break; case eDec: osValue << dec; break; case eOct: iDigits = iBytes * 3; osValue << "0"; osValue << oct << setw(iDigits) << setfill('0'); break; } osValue << (uValue & uMask); m_sFormatValueGint64 = osValue.str(); return m_sFormatValueGint64.c_str(); } const char * CGpsimUserInterface::FormatValue(char *str, int len, int iRegisterSize, RegisterValue value) { if(!str || !len) return 0; char hex2ascii[] = "0123456789ABCDEF"; int i; int min = (len < iRegisterSize*2) ? len : iRegisterSize*2; if(value.data == INVALID_VALUE) value.init = 0xfffffff; for(i=0; i < min; i++) { if(value.init & 0x0f) str[min-i-1] = '?'; else str[min-i-1] = hex2ascii[value.data & 0x0f]; value >>= 4; } str[min] = 0; return str; } gpsim-0.27.0/src/p12x.cc0000664000076400007640000007616412175377101011564 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ // // p12x // // This file supports: // PIC12C508 PIC12C509 // PIC12CE518 PIC12CE519 // PIC10F200 PIC10F202 PIC10F204 // PIC10F220 PIC10F222 // #include #include #include #include "../config.h" #include "packages.h" #include "stimuli.h" #include "i2c-ee.h" #include "p12x.h" #include "symbol.h" //======================================================================== // Generic Configuration word for the midrange family. class Generic12bitConfigWord : public ConfigWord { public: Generic12bitConfigWord(P12bitBase *pCpu) : ConfigWord("CONFIG", 0xfff, "Configuration Word", pCpu, 0xfff), m_pCpu(pCpu) { assert(pCpu); pCpu->wdt.initialize(true); } enum { FOSC0 = 1<<0, FOSC1 = 1<<1, WDTEN = 1<<2, CP = 1<<3, MCLRE = 1<<4 }; virtual void set(gint64 v) { gint64 oldV = getVal(); Integer::set(v); if (m_pCpu) { gint64 diff = oldV ^ v; m_pCpu->setConfigWord(v & 0x3ff, diff & 0x3ff); } } virtual string toString() { gint64 i64; get(i64); int i = i64 &0xfff; char buff[256]; snprintf(buff,sizeof(buff), "$%3x\n" " FOSC=%d - Clk source = %s\n" " WDTEN=%d - WDT is %s\n" " CP=%d - Code protect is %s\n" " MCLRE=%d - /MCLR is %s", i, i&(FOSC0|FOSC1), (i&FOSC0 ? (i&FOSC1 ? "EXTRC":"XT"):(i&FOSC1 ? "INTRC":"LP")), (i&WDTEN?1:0), ((i&WDTEN) ? "enabled" : "disabled"), (i&CP?1:0), ((i&CP) ? "enabled" : "disabled"), (i&MCLRE?1:0), ((i&MCLRE) ? "enabled" : "disabled")); return string(buff); } private: P12bitBase *m_pCpu; }; void P12_OSCCON::put(unsigned int new_value) { unsigned int old = value.get(); if (verbose) printf("P12_OSCCON::put new_value=%x old=%x\n", new_value, value.get()); trace.raw(write_trace.get() | value.get()); value.put(new_value); if((new_value ^ old) & FOSC4 && m_CPU) m_CPU->updateGP2Source(); if ((new_value ^ old) & 0xfe && m_CPU) m_CPU->freqCalibration(); } //======================================================================== // The P12 devices with an EEPROM contain two die. One is the 12C core and // the other is an I2C EEPROM (Actually, it is not know if there are two // physical die. However, it is known that there are two functional layouts // in the same package.) These two devices are connected internally. class P12_I2C_EE : public I2C_EE { public: P12_I2C_EE(pic_processor *, unsigned int _rom_size); ~P12_I2C_EE(); protected: RegisterCollection *m_UiAccessOfRom; // User access to the rom. }; P12_I2C_EE::P12_I2C_EE(pic_processor *pcpu, unsigned int _rom_size) : I2C_EE(pcpu,_rom_size) { if(pcpu) { pcpu->ema.set_Registers(rom, rom_size); } } P12_I2C_EE::~P12_I2C_EE() { } //------------------------------------------------------------------- P12bitBase::P12bitBase(const char *_name, const char *desc) : _12bit_processor(_name,desc), m_gpio(0), m_tris(0), osccal(this,"osccal","Oscillator Calibration") { configWord = 0; set_frequency(4e6); if(config_modes) config_modes->valid_bits = config_modes->CM_FOSC0 | config_modes->CM_FOSC1 | config_modes->CM_FOSC1x | config_modes->CM_WDTE | config_modes->CM_MCLRE; } P12bitBase::~P12bitBase() { printf("P12bitBase::~P12bitBase\n"); (&(*m_gpio)[3])->setControl(0); (&(*m_gpio)[2])->setControl(0); delete m_IN_SignalControl; delete_sfr_register(m_gpio); delete_sfr_register(m_tris); remove_sfr_register(&tmr0); remove_sfr_register(&osccal); } void P12bitBase::create_config_memory() { m_configMemory = new ConfigMemory(this,1); m_configMemory->addConfigWord(0,new Generic12bitConfigWord(this)); } //======================================================================== void P12bitBase::create_iopin_map() { package = new Package(8); if(!package) return; package->assign_pin(7, m_gpio->addPin(new IO_bi_directional_pu("gpio0"),0)); package->assign_pin(6, m_gpio->addPin(new IO_bi_directional_pu("gpio1"),1)); package->assign_pin(5, m_gpio->addPin(new IO_bi_directional("gpio2"),2)); package->assign_pin(4, m_gpio->addPin(new IO_bi_directional_pu("gpio3"),3)); package->assign_pin(3, m_gpio->addPin(new IO_bi_directional("gpio4"),4)); package->assign_pin(2, m_gpio->addPin(new IO_bi_directional("gpio5"),5)); package->assign_pin(1, 0); package->assign_pin(8, 0); // gpio3 is input only, but we want pullup, so use IO_bi_directional_pu // but force as input pin disableing TRIS control m_IN_SignalControl = new IN_SignalControl; (&(*m_gpio)[3])->setControl(m_IN_SignalControl); } //-------------------------------------------------------- void P12bitBase::reset(RESET_TYPE r) { m_tris->reset(r); switch (r) { case IO_RESET: // Set GPWUF flag status->put(status->value.get() | 0x80); // fall through... default: _12bit_processor::reset(r); } } //------------------------------------------------------------------------ #define STATUS_GPWUF 0x80 void P12bitBase::enter_sleep() { pic_processor::enter_sleep(); status->put( status->value.get() & ~STATUS_GPWUF); cout << "enter sleep status="<get()<value.get() & OPTION_REG::T0CS) { printf("OPTION_REG::T0CS forcing GPIO2 as input, TRIS disabled\n"); pmGP2->setControl(m_IN_SignalControl); pmGP2->getPin().newGUIname("T0CS"); } else { cout << "TRIS now controlling gpio2\n"; pmGP2->getPin().newGUIname("gpio2"); pmGP2->setControl(0); } } // freqCalibrate modifies the internal RC frequency // the base varsion is for the 12C508 and 12C509 Processors // the spec sheet does not indicate the range or step size of corrections // so this is based on +/- 12.5 % as per 16f88 void P12bitBase::freqCalibration() { // If internal RC oscilator if((configWord & (FOSC0 | FOSC1)) == FOSC1) { int osccal_val = (osccal.get() >> 4) - 0x07; double freq = get_frequency(); freq *= 1. + 0.125 * osccal_val / 0x08; set_frequency(freq); if (verbose) printf("P12bitBase::freqCalibration new freq %g\n", freq); } } // option_new_bits_6_7 is called from class OPTION_REG when // bits 5, 6, or 7 of OPTION_REG change state // void P12bitBase::option_new_bits_6_7(unsigned int bits) { if(verbose) cout << "P12bitBase::option_new_bits_6_7 bits=" << hex << bits << "\n"; // Weak pullup if NOT_GPPU == 0 m_gpio->setPullUp ( (bits & OPTION_REG::BIT6) != OPTION_REG::BIT6 , (configWord & MCLRE)); updateGP2Source(); } void P12bitBase::create_sfr_map() { RegisterValue porVal(0,0); add_sfr_register(indf, 0, porVal); add_sfr_register(&tmr0, 1, porVal); add_sfr_register(pcl, 2, RegisterValue(0xff,0)); add_sfr_register(status, 3, porVal); add_sfr_register(fsr, 4, porVal); add_sfr_register(&osccal,5, RegisterValue(0x70,0)); add_sfr_register(m_gpio, 6, porVal); add_sfr_register(m_tris, 0xffffffff, RegisterValue(0x3f,0)); add_sfr_register(Wreg, 0xffffffff, porVal); option_reg->set_cpu(this); osccal.set_cpu(this); } void P12bitBase::create_symbols() { _12bit_processor::create_symbols(); addSymbol(m_tris); } void P12bitBase::dump_registers () { _12bit_processor::dump_registers(); cout << "tris = 0x" << hex << m_tris->value.get() << '\n'; cout << "osccal = 0x" << osccal.value.get() << '\n'; } void P12bitBase::setConfigWord(unsigned int val, unsigned int diff) { PinModule *pmGP3 = &(*m_gpio)[3]; configWord = val; if (verbose) printf("P12bitBase::setConfigWord val=%x diff=%x\n", val, diff); if (diff & WDTEN) wdt.initialize((val & WDTEN) == WDTEN); if ((val & MCLRE) == MCLRE) { pmGP3->getPin().update_pullup('1', true); pmGP3->getPin().newGUIname("MCLR"); } else pmGP3->getPin().newGUIname("gpio3"); } void P12bitBase::tris_instruction(unsigned int tris_register) { m_tris->put(Wget()); } void P12C508::create() { create_iopin_map(); _12bit_processor::create(); add_file_registers(0x07, 0x1f, 0); P12bitBase::create_sfr_map(); create_invalid_registers (); tmr0.set_cpu(this,m_gpio,2,option_reg); tmr0.start(0); pc->reset(); } Processor * P12C508::construct(const char *name) { P12C508 *p = new P12C508(name); p->pc->set_reset_address(0x1ff); p->create(); p->create_symbols(); return p; } P12C508::P12C508(const char *_name, const char *desc) : P12bitBase(_name,desc) { m_gpio = new GPIO(this,"gpio","I/O port",8,0x3f); m_tris = new PicTrisRegister(this,"tris","Port Direction Control", m_gpio, false); m_tris->wdtr_value=RegisterValue(0x3f,0); } P12C508::~P12C508() { delete_file_registers(0x07, 0x1f); } P12F508::P12F508(const char *_name, const char *desc) : P12C508(_name,desc) { } P12F508::~P12F508() { } Processor * P12F508::construct(const char *name) { P12F508 *p = new P12F508(name); p->pc->set_reset_address(0x1ff); p->create(); p->create_symbols(); return p; } //-------------------------------------------------------- void P12C509::create_sfr_map() { } Processor * P12C509::construct(const char *name) { P12C509 *p = new P12C509(name); if (verbose) cout << " 12c508 construct\n"; p->pc->set_reset_address(0x3ff); p->create(); p->create_symbols(); return p; } void P12C509::create() { if ( verbose ) cout << " 12c509 create \n"; P12C508::create(); alias_file_registers(0x00,0x0f,0x20); add_file_registers(0x30, 0x3f, 0); pa_bits = PA0; // the 509 has two code pages (i.e. PAO in status is used) indf->base_address_mask2 = 0x3F; // RP - need this or INDF won't work right } P12C509::P12C509(const char *_name, const char *desc) : P12C508(_name,desc) { } P12C509::~P12C509() { delete_file_registers(0x30, 0x3f); } P12F509::P12F509(const char *_name, const char *desc) : P12C509(_name,desc) { } P12F509::~P12F509() { } Processor * P12F509::construct(const char *name) { P12F509 *p = new P12F509(name); p->pc->set_reset_address(0x3ff); p->create(); p->create_symbols(); return p; } // P12F510::P12F510(const char *_name, const char *desc) : P12F509(_name,desc) { } P12F510::~P12F510() { } Processor * P12F510::construct(const char *name) { P12F510 *p = new P12F510(name); p->pc->set_reset_address(0x3ff); p->create(); p->create_symbols(); return p; } //-------------------------------------------------------- // construct function is identical to 12C508 version ?? Processor * P12CE518::construct(const char *name) { P12CE518 *p = new P12CE518(name); if(verbose) cout << " 12ce518 construct\n"; p->pc->set_reset_address(0x1ff); p->create(); if(verbose) cout << " ... create symbols\n"; p->create_symbols(); return p; } void P12CE518::create_iopin_map() { P12C508::create_iopin_map(); // Define the valid I/O pins. //gpio.valid_iopins = 0xff; } void P12CE518::create() { if(verbose) cout << " 12ce518 create \n"; P12C508::create(); if(verbose) cout << " adding serial EE\n"; m_eeprom = new P12_I2C_EE(this, 0x10); m_eeprom->debug(); // GPIO bits 6 and 7 are not bonded to physical pins, but are tied // to the internal I2C device. m_gpio->setEnableMask(0xc0 | m_gpio->getEnableMask()); RegisterValue por_value(0xc0,0x00); m_gpio->value = por_value; m_gpio->por_value = por_value; m_gpio->wdtr_value = por_value; m_gpio->put(0xc0); osccal.por_value = RegisterValue(0x80,0); // Kludge to force top two bits to be outputs m_tris->put(0x3f); { scl = new Stimulus_Node ( "EE_SCL" ); io_scl = new IO_bi_directional_pu("gpio7"); io_scl->update_pullup('1',true); io_scl->setDrivingState(true); io_scl->setDriving(true); scl->attach_stimulus( m_gpio->addPin(io_scl,7)); scl->update(); } { sda = new Stimulus_Node ( "EE_SDA" ); io_sda = new IO_open_collector("gpio6"); // enable the pullup resistor. io_sda->update_pullup('1',true); io_sda->setDrivingState(true); io_sda->setDriving(true); m_gpio->addPin(io_sda,6); sda->attach_stimulus (io_sda); sda->update(); } m_eeprom->attach ( scl, sda ); /* ema.set_cpu(this); ema.set_Registers(m_eeprom->rom, m_eeprom->rom_size); */ } P12CE518::P12CE518(const char *_name, const char *desc) : P12C508(_name,desc) { if(verbose) cout << "12CE518 constructor, type = " << isa() << '\n'; if(config_modes) config_modes->valid_bits = config_modes->CM_FOSC0 | config_modes->CM_FOSC1 | config_modes->CM_FOSC1x | config_modes->CM_WDTE | config_modes->CM_MCLRE; } P12CE518::~P12CE518() { delete m_eeprom; delete io_scl; delete io_sda; delete scl; delete sda; } void P12CE518::tris_instruction(unsigned int tris_register) { unsigned int w_val; w_val = Wget(); m_tris->put ( w_val & 0x3F ); // top two bits always output // trace.write_TRIS(w_val); } // freqCalibrate modifies the internal RC frequency // this version is for the 12CE518 and 12CE519 Processors but would also // be correct for 12C508A/C509A/CR509A // the spec sheet does not indicate the range or step size of corrections // so this is based on +/- 12.5 % as per 16f88 void P12CE518::freqCalibration() { // If internal RC oscilator if((configWord & (FOSC0 | FOSC1)) == FOSC1) { int osccal_val = (osccal.get() >> 2) - 0x20; double freq = 4e6; freq *= 1. + 0.125 * osccal_val / 0x20; set_frequency(freq); if(verbose) printf("P12CE518::freqCalibration new freq %g\n", freq); } } //-------------------------------------------------------- void P12CE519::create_sfr_map() { } Processor * P12CE519::construct(const char *name) { P12CE519 *p = new P12CE519(name); cout << " 12ce519 construct\n"; p->pc->set_reset_address(0x3ff); p->create(); p->create_symbols(); return p; } void P12CE519::create() { if ( verbose ) cout << " 12ce519 create \n"; P12CE518::create(); alias_file_registers(0x00,0x0f,0x20); add_file_registers(0x30, 0x3f, 0); pa_bits = PA0; // the 519 has two code pages (i.e. PAO in status is used) indf->base_address_mask2 = 0x3F; // RP - need this or INDF won't work right } P12CE519::P12CE519(const char *_name, const char *desc) : P12CE518(_name,desc) { if(verbose) cout << "12ce519 constructor, type = " << isa() << '\n'; } P12CE519::~P12CE519() { delete_file_registers(0x30, 0x3f); } //-------------------------------------------------------- // // GPIO Port GPIO::GPIO(P12bitBase *pCpu, const char *pName, const char *pDesc, unsigned int numIopins, unsigned int enableMask) : PicPortRegister (pCpu,pName,pDesc, numIopins, enableMask), m_CPU(pCpu) { } void GPIO::setbit(unsigned int bit_number, char new_value) { unsigned int lastDrivenValue = rvDrivenValue.data; PortRegister::setbit(bit_number, new_value); // If gpio bit 0,1 or 3 changed states AND // ~GPWU is low (wake up on change is enabled) AND // the processor is sleeping. // Then wake unsigned int diff = lastDrivenValue ^ rvDrivenValue.data; //if ((diff & (1<<3)) && cpu_pic->config_modes->get_mclre()) { // GP3 is the reset pin if ((diff & (1<<3)) && (m_CPU->configWord & P12bitBase::MCLRE)) { // GP3 is the reset pin cpu->reset( (rvDrivenValue.data & (1<<3)) ? EXIT_RESET : MCLR_RESET); return; } if (diff & 0x0b) { // If /GPWU is 0 (i.e. enabled) and the processor is currently sleeping // then wake up the processor by resetting it. if( ((cpu12->option_reg->value.get() & 0x80) == 0) && cpu12->getActivityState() == pic_processor::ePASleeping) { if(verbose) cout << "IO bit changed while the processor was sleeping,\n\ so the processor is waking up\n"; cpu->reset(IO_RESET); } } } // if bNewPU == true set weak pullups otherwise clear weak pullups void GPIO::setPullUp ( bool bNewPU , bool mclr) { m_bPU = bNewPU; if ( verbose & 16 ) printf("GPIO::setPullUp() =%d\n",(m_bPU?1:0)); // In the following do not change pullup state of internal pins unsigned int mask = getEnableMask() & 0x3f; // If mclr active do not change pullup on gpio3 if (mclr) mask &= 0x37; for (unsigned int i=0, m = 1; mask; i++, m <<= 1) { if (mask & m) { mask ^= m; getPin(i)->update_pullup ( m_bPU ? '1' : '0', true ); } } } //------------------------------------------------------------------------ void P10F200::create_iopin_map() { package = new Package(6); if(!package) return; package->assign_pin(1, m_gpio->addPin(new IO_bi_directional_pu("gpio0"),0)); package->assign_pin(3, m_gpio->addPin(new IO_bi_directional_pu("gpio1"),1)); package->assign_pin(4, m_gpio->addPin(new IO_bi_directional("gpio2"),2)); package->assign_pin(6, m_gpio->addPin(new IO_bi_directional_pu("gpio3"),3)); package->assign_pin(2, 0); package->assign_pin(5, 0); // gpio3 is input only, but we want pullup, so use IO_bi_directional_pu // but force as input pin disableing TRIS control m_IN_SignalControl = new IN_SignalControl; m_OUT_SignalControl = new OUT_SignalControl; m_OUT_DriveControl = new OUT_DriveControl; (&(*m_gpio)[3])->setControl(m_IN_SignalControl); } void P10F200::create() { create_iopin_map(); _12bit_processor::create(); add_file_registers(0x10, 0x1f, 0); // 10F200 only has 16 bytes RAM P12bitBase::create_sfr_map(); create_invalid_registers (); tmr0.set_cpu(this,m_gpio,2,option_reg); tmr0.start(0); osccal.set_cpu(this); osccal.por_value = RegisterValue(0xfe,0); pc->reset(); } Processor * P10F200::construct(const char *name) { P10F200 *p = new P10F200(name); p->pc->set_reset_address(0x0ff); p->create(); p->create_symbols(); return p; } P10F200::P10F200(const char *_name, const char *desc) : P12bitBase(_name,desc) { if(verbose) cout << "10f200 constructor, type = " << isa() << '\n'; m_gpio = new GPIO(this,"gpio","I/O port",8,0x0f); m_tris = new PicTrisRegister(this, "tris", "Port Direction Control",m_gpio, false); m_tris->wdtr_value=RegisterValue(0x3f,0); if(config_modes) config_modes->valid_bits = config_modes->CM_WDTE | config_modes->CM_MCLRE; } P10F200::~P10F200() { (&(*m_gpio)[3])->setControl(0); (&(*m_gpio)[2])->setControl(0); delete m_OUT_SignalControl; delete m_OUT_DriveControl; delete_file_registers(0x10, 0x1f); } void P10F200::updateGP2Source() { PinModule *pmGP2 = &(*m_gpio)[2]; if (osccal.value.get() & P12_OSCCON::FOSC4 ) { pmGP2->setSource(m_OUT_DriveControl); printf("OSCCON::FOSC4 forcing GPIO2 high on output, TODO FOSC4 toggle output\n"); pmGP2->getPin().newGUIname("FOSC4"); } else if(option_reg->value.get() & OPTION_REG::T0CS) { printf("OPTION_REG::T0CS forcing GPIO2 as input, TRIS disabled\n"); pmGP2->setControl(m_IN_SignalControl); pmGP2->setSource(0); pmGP2->getPin().newGUIname("T0CS"); } else { // revert to default control, i.e. let TRIS control the output pmGP2->setControl(0); pmGP2->setSource(0); cout << "TRIS now controlling gpio2\n"; pmGP2->getPin().newGUIname("gpio2"); } pmGP2->updatePinModule(); } // freqCalibrate modifies the internal RC frequency // this version is for the 10F2xx Processors // the spec sheet does not indicate the range or step size of corrections // so this is based on +/- 12.5 % as per 16f88 void P10F200::freqCalibration() { // If internal RC oscilator char osccal_val = (osccal.value.get() & 0xfe); double freq = (configWord & 1)? 8e6 : 4e6; freq *= 1. + (0.125 * osccal_val) / 0x80; set_frequency(freq); if (verbose) printf("P10F200::freqCalibration new freq %g\n", freq); } //------------------------------------------------------------------------ void P10F202::create() { create_iopin_map(); _12bit_processor::create(); add_file_registers(0x08, 0x1f, 0); // 10F202 has 24 bytes RAM P12bitBase::create_sfr_map(); create_invalid_registers (); tmr0.set_cpu(this,m_gpio,2,option_reg); tmr0.start(0); pc->reset(); } Processor * P10F202::construct(const char *name) { P10F202 *p = new P10F202(name); p->pc->set_reset_address(0x1ff); p->create(); p->create_symbols(); return p; } P10F202::P10F202(const char *_name, const char *desc) : P10F200(_name,desc) { if(verbose) cout << "10f202 constructor, type = " << isa() << '\n'; } P10F202::~P10F202() { delete_file_registers(0x08, 0x0f); // Rest is deleted by P10F200 } //======================================================================== // Comparator module for the 10c204 and 10c206 // class Comparator10C20x { public: Comparator10C20x(); ~Comparator10C20x(); }; class COUT_SignalSource; //======================================================================== // COUT_SignalControl -- controls GPIO2's direction when the comparator is // enabled. When the comparator is enabled, GPIO2 is an output. class COUT_SignalControl : public SignalControl { public: COUT_SignalControl(){} ~COUT_SignalControl(){ } virtual char getState() { return '0'; } virtual void release() { delete this; } }; class CIN_SignalSink; class CMCON0 : public sfr_register { public: enum { CWU = 1<<0, CPREF = 1<<1, CNREF = 1<<2, CMPON = 1<<3, CMPTOCS = 1<<4, POL = 1<<5, COUTEN = 1<<6, CMPOUT = 1<<7 }; CMCON0(P10F204 *pCpu, const char *pName, const char *pDesc, PinModule *CInP, PinModule *CInM, PinModule *COut); ~CMCON0(); virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); bool isEnabled() { return ((value.get() & COUTEN) == 0); } char getState() { char ret='Z'; if ( (value.get() & (COUTEN | CMPON)) == CMPON) ret = (((value.get() & CMPOUT)==CMPOUT) ^ ((value.get() & POL)==POL)) ? '0' : '1'; if (verbose) cout <<"CMCON0::getState-->"<getState(); } virtual void release() { delete this; } private: CMCON0 *m_cmcon0; }; class CIN_SignalSink : public SignalSink { public: CIN_SignalSink(CMCON0 *pcmcon0, bool binput) : m_cmcon0(pcmcon0), m_binput(binput) // true==+input {} virtual void setSinkState(char new3State) { if (verbose) cout << "CIN_SignalSink::setSinkState "<< (m_binput ? "POS ":"NEG ") <<"set sink:"<setInputState(new3State, m_binput); } virtual void release() {delete this; } private: CMCON0 *m_cmcon0; bool m_binput; }; //----------------------------------------------------------- CMCON0::CMCON0(P10F204 *pCpu, const char *pName, const char *pDesc, PinModule *CInP, PinModule *CInM, PinModule *COut) : sfr_register(pCpu, pName, pDesc), p_F204(pCpu), m_CInP(CInP), m_CInM(CInM), m_COut(COut) { // assign the I/O pin associated with the // the comparator output. m_source = new COUT_SignalSource(this); m_control = new COUT_SignalControl(); m_PosInput = new CIN_SignalSink(this,true); m_NegInput = new CIN_SignalSink(this,false); active_source = false; active_control = false; CInP->addSink(m_PosInput); CInM->addSink(m_NegInput); //COut->setSource(m_source); m_pV = m_nV = 0.0; } CMCON0::~CMCON0() { if (!isEnabled()) { delete m_source; delete m_control; } } void CMCON0::put(unsigned int new_value) { unsigned old_value = value.get(); trace.raw(write_trace.get() | old_value); value.put((new_value & 0x7f ) | (old_value & CMPOUT) ); // If any of the control bits that afffect CMPOUT have changed, // then refresh CMPOUT if ((old_value ^ new_value) & (CPREF | CNREF | CMPON | CMPTOCS | POL)) refresh(); // If the output enable changed states. if ((old_value ^ new_value) & COUTEN) p_F204->updateGP2Source(); // If the comparator output state has changed or the polarity changed: if ((old_value ^ value.get()) & (CMPOUT | POL)) m_COut->updatePinModule(); } void CMCON0::refresh() { if (value.get() & CMPON) { if (value.get() & CPREF) m_pV = m_CInP->getPin().get_nodeVoltage(); else m_pV = m_CInM->getPin().get_nodeVoltage(); if (value.get() & CNREF) m_nV = m_CInM->getPin().get_nodeVoltage(); else m_nV = 0.6; value.put( (value.get() & 0x7f) | ((m_pV>m_nV)? CMPOUT : 0)); } } void CMCON0::put_value(unsigned int new_value) { } void CMCON0::setInputState(char newState, bool bInput) { if (bInput) { if (value.get() & CPREF) m_pV = m_CInP->getPin().get_nodeVoltage(); } else { if ((value.get() & CPREF) == 0) m_pV = m_CInM->getPin().get_nodeVoltage(); if (value.get() & CNREF) m_nV = m_CInM->getPin().get_nodeVoltage(); else m_nV = 0.6; } if(verbose) cout << "CMCON0::setInputState: pV="<m_nV) ? CMPOUT : 0)); m_COut->updatePinModule(); } //======================================================================== P10F204::P10F204(const char *_name, const char *desc) : P10F200(_name,desc) { } P10F204::~P10F204() { delete_sfr_register(m_cmcon0); } void P10F204::create() { P10F200::create(); m_cmcon0 = new CMCON0(this, "cmcon0", "Comparator Control", &(*m_gpio)[0], &(*m_gpio)[1], &(*m_gpio)[2]); RegisterValue porVal = RegisterValue(0xff,0); add_sfr_register(m_cmcon0, 7, porVal); } void P10F204::updateGP2Source() { // m_gpio->getIOpins(2)->setSource(m_cmcon0->getSource()); PinModule *pmGP2 = &(*m_gpio)[2]; if (osccal.get() & P12_OSCCON::FOSC4 ) { pmGP2->setSource(m_OUT_DriveControl); printf("OSCCON::FOSC4 forcing GPIO2 high on output, TODO FOSC4 toggle output\n"); pmGP2->getPin().newGUIname("FOSC4"); } else if (m_cmcon0->isEnabled()) { pmGP2->setControl(m_cmcon0->getGPDirectionControl()); pmGP2->setSource(m_cmcon0->getSource()); cout << "comparator is controlling the output of GPIO2\n"; pmGP2->getPin().newGUIname("COUT"); } else if(option_reg->get() & OPTION_REG::T0CS) { printf("OPTION_REG::T0CS forcing GPIO2 as input, TRIS disabled\n"); pmGP2->setControl(m_IN_SignalControl); pmGP2->setSource(0); pmGP2->getPin().newGUIname("T0CS"); } else { pmGP2->setControl(0); pmGP2->setSource(0); pmGP2->getPin().newGUIname("gpio2"); } pmGP2->updatePinModule(); } //======================================================================== Processor * P10F204::construct(const char *name) { P10F204 *p = new P10F204(name); p->pc->set_reset_address(0x1ff); p->create(); p->create_symbols(); return p; } //======================================================================== P10F220::P10F220(const char *_name, const char *desc) : P10F200(_name,desc), adcon0(this,"adcon0", "A2D Control 0"), adcon1(this,"adcon1", "A2D Control 1"), adres(this,"adres", "A2D Result") { } P10F220::~P10F220() { remove_sfr_register(&adcon0); remove_sfr_register(&adcon1); remove_sfr_register(&adres); } void P10F220::create() { P10F200::create(); add_sfr_register(&adcon0, 0x07, RegisterValue(0xcc,0)); add_sfr_register(&adres, 0x08, RegisterValue(0,0)); adcon1.setValidCfgBits(ADCON1::PCFG0 | ADCON1::PCFG1,0); adcon1.setNumberOfChannels(4); adcon1.setIOPin(0, &(*m_gpio)[0]); adcon1.setIOPin(1, &(*m_gpio)[1]); adcon1.setVoltRef(2, 0.6); adcon1.setVoltRef(3, 0.6); adcon1.setChannelConfiguration(0, 0x03); adcon1.setChannelConfiguration(1, 0x03); adcon1.setChannelConfiguration(2, 0x00); adcon1.setChannelConfiguration(3, 0x00); adcon0.setChannel_Mask(3); adcon0.setChannel_shift(2); adcon0.setAdres(&adres); adcon0.setAdresLow(0); adcon0.setAdcon1(&adcon1); adcon0.setA2DBits(8); } //======================================================================== Processor * P10F220::construct(const char *name) { P10F220 *p = new P10F220(name); p->pc->set_reset_address(0xff); p->create(); p->create_symbols(); return p; } void P10F220::enter_sleep() { unsigned int val; _12bit_processor::enter_sleep(); status->put( status->get() & ~STATUS_GPWUF); val = (adcon0.get() & ~(ADCON0_10::ADON|ADCON0_10::GO)) | ADCON0_10::CHS1 | ADCON0_10::CHS0; adcon0.put(val); } void P10F220::exit_sleep() { _12bit_processor::exit_sleep(); adcon0.put(adcon0.get() | ADCON0_10::ANS1 | ADCON0_10::ANS0); } void P10F220::setConfigWord(unsigned int val, unsigned int diff) { PinModule *pmGP3 = &(*m_gpio)[3]; configWord = val; if (verbose) printf("P10F220::setConfigWord val=%x diff=%x\n", val, diff); if (diff & WDTEN) wdt.initialize((val & WDTEN) == WDTEN); if ((val & MCLRE)) { if (!(val & NOT_MCPU)) pmGP3->getPin().update_pullup('1', true); pmGP3->getPin().newGUIname("MCLR"); } else pmGP3->getPin().newGUIname("gpio3"); if ((val & IOSCFS)) set_frequency(8e6); } //======================================================================== P10F222::P10F222(const char *_name, const char *desc) : P10F220(_name,desc) { } P10F222::~P10F222() { delete_file_registers(0x09, 0x0f); } void P10F222::create() { P10F220::create(); add_file_registers(0x09, 0x0f, 0); // 10F222 has 23 bytes RAM } //======================================================================== Processor * P10F222::construct(const char *name) { P10F222 *p = new P10F222(name); p->pc->set_reset_address(0x1ff); p->create(); p->create_symbols(); return p; } gpsim-0.27.0/src/xref.cc0000644000076400007640000000347311401170177011720 00000000000000/* Copyright (C) 2004 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include "../config.h" #include "xref.h" #include "gpsim_interface.h" #include "value.h" //------------------------------------------------------------------- XrefObject::XrefObject() { data=0; } XrefObject::XrefObject(gpsimObject *value) { data=value; } XrefObject::~XrefObject() { list::iterator ioi; ioi=xrefs.begin(); for(;ioi!=xrefs.end();ioi++) { gi.remove_object(*ioi); // Fixme - deleting the memory here causes SEGV because // the objects being cross referenced were new'd outside // of the context of this class. // delete *ioi; } } void XrefObject::_add(void *xref) { xrefs.push_back(xref); } void XrefObject::clear(void *xref) { xrefs.remove(xref); } void XrefObject::_update() { list::iterator ioi; ioi=xrefs.begin(); for(;ioi!=xrefs.end();++ioi) { gpointer *xref = (gpointer *) *ioi; gi.update_object(xref,get_val()); } } int XrefObject::get_val(void) { if(data) return data->get_value(); return 0; } void XrefObject::assign_data(gpsimObject *new_data) { data = new_data; } gpsim-0.27.0/src/p16x5x.h0000644000076400007640000000632011401131150011647 00000000000000/* Copyright (C) 2000,2001 T. Scott Dattalo, Daniel Schudel, Robert Pearce This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ // // p16x5x // // This file supports: // P16C54 // P16C55 // P16C56 #ifndef __P16X5X_H__ #define __P16X5X_H__ #include "packages.h" #include "stimuli.h" #include "12bit-processors.h" class PicPortRegister; class PicTrisRegister; class PicLatchRegister; class P16C54 : public _12bit_processor { public: PicPortRegister *m_porta; PicTrisRegister *m_trisa; PicPortRegister *m_portb; PicTrisRegister *m_trisb; #ifdef USE_PIN_MODULE_FOR_TOCKI PinModule *m_tocki; #else PicPortRegister *m_tocki; PicTrisRegister *m_trist0; #endif virtual PROCESSOR_TYPE isa(){return _P16C54_;}; virtual void create_symbols(); virtual unsigned int program_memory_size() const { return 0x200; }; virtual unsigned int register_memory_size() const { return 0x20; }; virtual unsigned int config_word_address() const {return 0xFFF;}; virtual void create_sfr_map(); virtual void option_new_bits_6_7(unsigned int bits) {} P16C54(const char *_name=0, const char *desc=0); virtual ~P16C54(); void create(); virtual void create_iopin_map(); static Processor *construct(const char *name); virtual void tris_instruction(unsigned int tris_register); virtual unsigned int fsr_valid_bits() { return 0x1f; // Only 32 register addresses } virtual unsigned int fsr_register_page_bits() { return 0; // Only one register page. } }; class P16C55 : public P16C54 { public: PicPortRegister *m_portc; PicTrisRegister *m_trisc; virtual PROCESSOR_TYPE isa(){return _P16C55_;}; virtual void create_symbols(); virtual unsigned int program_memory_size() const { return 0x200; }; virtual unsigned int register_memory_size() const { return 0x20; }; virtual unsigned int config_word_address() const {return 0xFFF;}; virtual void create_sfr_map(); P16C55(const char *_name=0, const char *desc=0); virtual ~P16C55(); virtual void create(); virtual void create_iopin_map(); static Processor *construct(const char *name); virtual void tris_instruction(unsigned int tris_register); }; class P16C56 : public P16C54 { public: virtual PROCESSOR_TYPE isa(){return _P16C56_;}; virtual unsigned int program_memory_size() const { return 0x400; }; virtual unsigned int register_memory_size() const { return 0x20; }; virtual unsigned int config_word_address() const {return 0xFFF;}; P16C56(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); }; #endif gpsim-0.27.0/src/program_files.h0000644000076400007640000000426011401131150013426 00000000000000 #include "stdio.h" #include "processor.h" #ifndef __PROGRAM_FILES_H__ #define __PROGRAM_FILES_H__ /** * ProgramFileType base type */ class ProgramFileType { public: enum { SUCCESS = 0, ERR_UNRECOGNIZED_PROCESSOR = -1, ERR_FILE_NOT_FOUND = -2, ERR_FILE_NAME_TOO_LONG = -3, ERR_LST_FILE_NOT_FOUND = -4, ERR_BAD_FILE = -5, ERR_NO_PROCESSOR_SPECIFIED = -6, ERR_PROCESSOR_INIT_FAILED = -7, ERR_NEED_PROCESSOR_SPECIFIED = -8, }; virtual ~ProgramFileType() { } /* * LoadProgramFile * 1) Loads a program into a processor object that is passed in. * 2) If no processor is passed in, it will use the program file * to determine processor type, allocate the processor object and * load the program into the processor object. * Returns: Processor object in pProcessor * */ virtual int LoadProgramFile(Processor **ppProcessor, const char *pFilename, FILE *pFile, const char *pProcessorName) = 0; virtual void DisplayError(int iError, const char *pProgFilename, const char *pLstFile); }; class ProgramFileTypeList : public vector { public: ProgramFileTypeList(); virtual ~ProgramFileTypeList(); static ProgramFileTypeList &GetList(); static ProgramFileTypeList *s_ProgramFileTypeList; virtual bool LoadProgramFile(Processor **pProcessor, const char *pFilename, FILE *pFile, const char *pProcessorName=0); bool IsErrorDisplayableInLoop(int iError); }; #if defined(_MSC_VER) #include #endif #include class ProgramFileBuf : public std::streambuf { protected: static const int m_iBufferSize = 1024; char m_Buffer[m_iBufferSize]; FILE * m_pFile; public: ProgramFileBuf(FILE * pFile); protected: virtual int_type underflow( ); virtual streamsize xsgetn( char_type *_Ptr, streamsize _Count); }; class ProgramFileStream : public std::istream { protected: ProgramFileBuf m_buf; public: ProgramFileStream(FILE * pFile) : std::istream(&m_buf), m_buf(pFile) { } }; #endif gpsim-0.27.0/src/cmd_manager.h0000644000076400007640000000254011401131150013031 00000000000000#ifndef __CMD_MANAGER_H__ #define __CMD_MANAGER_H__ #include #include "cmd_gpsim.h" #include "gpsim_interface.h" #include #include #include using namespace std; class CommandHandlerKey : public ICommandHandler { public: CommandHandlerKey(const char *name) { m_name = name; } virtual const char *GetName(void) {return m_name; } virtual int Execute(const char * commandline, ISimConsole *out) { return CMD_ERR_COMMANDNOTDEFINED;} virtual int ExecuteScript(list &script, ISimConsole *out) { return CMD_ERR_ERROR;} const char * m_name; }; class CCommandManager { public: CCommandManager(); int Register(ICommandHandler * ch); int Execute(string &sName, const char *cmdline); static CCommandManager m_CommandManger; static CCommandManager &GetManager(); ICommandHandler * find(const char *name); ISimConsole &GetConsole() { return GetUserInterface().GetConsole(); } void ListToConsole(); private: struct lessThan : binary_function { bool operator()(const ICommandHandler* left, const ICommandHandler* right) const { return strcmp(((ICommandHandler*)left)->GetName(), ((ICommandHandler*)right)->GetName()) < 0; } }; typedef vector List; List m_HandlerList; }; #endif gpsim-0.27.0/src/p16x7x.h0000664000076400007640000001302212175377101011671 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __P16X7X_H__ #define __P16X7X_H__ #include "p16x6x.h" /* The '7x stuff is like '6x stuff with a/d converters */ #include "pir.h" #include "a2dconverter.h" #include "pm_rd.h" //--------------------------------------------------------- class P16C71 : public P16X8X { public: ADCON0 adcon0; ADCON1 adcon1; sfr_register adres; virtual PROCESSOR_TYPE isa(){return _P16C71_;}; virtual void create_symbols(); virtual unsigned int program_memory_size() const { return 0x400; }; virtual void create_sfr_map(); P16C71(const char *_name=0, const char *desc=0); ~P16C71(); void create(); static Processor *construct(const char *name); private: // This is not a real PIR register, but only one that allows the A2D Interrupt // flag be processed in manner similar to other processors. class PIR_16C71; PIR_16C71 *m_pir; }; class P16C712 : public P16C62 { public: ADCON0 adcon0; ADCON1 adcon1; sfr_register adres; virtual PROCESSOR_TYPE isa(){return _P16C712_;}; virtual void create_sfr_map(); P16C712(const char *_name=0, const char *desc=0); ~P16C712(); void create(); static Processor *construct(const char *name); virtual bool hasSSP() { return false; } }; class P16C716 : public P16C712 { public: virtual PROCESSOR_TYPE isa(){return _P16C716_;}; virtual unsigned int program_memory_size() const { return 0x800; }; P16C716(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); }; class P16C72 : public P16C62 { public: // XXX // This pir1_2, pir2_2 stuff is not particularly pretty. It would be // better to just tell C++ to redefine pir1 and pir2 and PIR1v2 and // PIR2v2, but C++ only supports covariance in member function return // values. PIR1v2 *pir1_2_reg; PIR2v2 *pir2_2_reg; PIR_SET_2 pir_set_2_def; ADCON0 adcon0; ADCON1 adcon1; sfr_register adres; virtual PROCESSOR_TYPE isa(){return _P16C72_;}; virtual void create_symbols(); void create_sfr_map(); virtual PIR *get_pir1() { return (pir1_2_reg); } virtual PIR *get_pir2() { return (pir2_2_reg); } virtual PIR_SET *get_pir_set() { return (&pir_set_2_def); } P16C72(const char *_name=0, const char *desc=0); ~P16C72(); void create(); static Processor *construct(const char *name); }; class P16C73 : public P16C63 { public: // XXX // This pir1_2, pir2_2 stuff is not particularly pretty. It would be // better to just tell C++ to redefine pir1 and pir2 and PIR1v2 and // PIR2v2, but C++ only supports covariance in member function return // values. PIR1v2 *pir1_2_reg; PIR2v2 *pir2_2_reg; PIR_SET_2 pir_set_2_def; ADCON0 adcon0; ADCON1 adcon1; sfr_register adres; virtual PROCESSOR_TYPE isa(){return _P16C73_;}; virtual void create_symbols(); void create_sfr_map(); virtual PIR *get_pir1() { return (pir1_2_reg); } virtual PIR *get_pir2() { return (pir2_2_reg); } virtual PIR_SET *get_pir_set() { return (&pir_set_2_def); } P16C73(const char *_name=0, const char *desc=0); ~P16C73(); void create(); static Processor *construct(const char *name); }; class P16F73 : public P16C73 { public: virtual PROCESSOR_TYPE isa(){return _P16F73_;}; virtual unsigned int register_memory_size () const { return 0x200;}; virtual void create_symbols(); void create_sfr_map(); P16F73(const char *_name=0, const char *desc=0); ~P16F73(); void create(); static Processor *construct(const char *name); protected: PM_RD pm_rd; }; //--------------------------------------------------------- class P16C74 : public P16C65 // Not a typo, a 'c74 is more like a 'c65 then a 'c64! { public: // XXX // This pir1_2, pir2_2 stuff is not particularly pretty. It would be // better to just tell C++ to redefine pir1 and pir2 and PIR1v2 and // PIR2v2, but C++ only supports covariance in member function return // values. PIR1v2 *pir1_2_reg; PIR2v2 *pir2_2_reg; PIR_SET_2 pir_set_2_def; ADCON0 adcon0; ADCON1 adcon1; sfr_register adres; virtual PROCESSOR_TYPE isa(){return _P16C74_;}; virtual void create_symbols(); void create_sfr_map(); virtual PIR *get_pir1() { return (pir1_2_reg); } virtual PIR *get_pir2() { return (pir2_2_reg); } virtual PIR_SET *get_pir_set() { return (&pir_set_2_def); } virtual unsigned int program_memory_size() const { return 0x1000; }; P16C74(const char *_name=0, const char *desc=0); ~P16C74(); void create(); static Processor *construct(const char *name); }; class P16F74 : public P16C74 { public: virtual PROCESSOR_TYPE isa(){return _P16F74_;}; virtual unsigned int register_memory_size () const { return 0x200;}; virtual void create_symbols(); void create_sfr_map(); P16F74(const char *_name=0, const char *desc=0); ~P16F74(); void create(); static Processor *construct(const char *name); protected: PM_RD pm_rd; }; #endif gpsim-0.27.0/src/value.h0000644000076400007640000003404211401131150011712 00000000000000/* Copyright (C) 1998-2004 Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __VALUE_H__ #define __VALUE_H__ #include "gpsim_object.h" #include #include class Processor; class Module; #include "xref.h" class Expression; class ComparisonOperator; class Packet; //------------------------------------------------------------------------ // /// Value - the base class that supports types /// /// Everything that can hold a value is derived from the Value class. /// The primary purpose of this is to provide external objects (like /// the gui) an abstract way of getting the value of diverse things /// like registers, program counters, cycle counters, etc. /// /// In addition, expressions of Values can be created and operated /// on. class Value : public gpsimObject { public: Value(); Value(const char *name, const char *desc, Module *pM=0); virtual ~Value(); virtual unsigned int get_leftVal() {return 0;} virtual unsigned int get_rightVal() {return 0;} /// Value 'set' methods provide a mechanism for casting values to the /// the type of this value. If the type cast is not supported in a /// derived class, an Error will be thrown. virtual void set(const char *cP,int len=0); virtual void set(double); virtual void set(gint64); virtual void set(int); virtual void set(bool); virtual void set(Value *); virtual void set(Expression *); virtual void set(Packet &); /// Value 'get' methods provide a mechanism of casting Value objects /// to other value types. If the type cast is not supported in a /// derived class, an Error will be thrown. virtual void get(bool &b); virtual void get(int &); virtual void get(guint64 &); virtual void get(gint64 &); virtual void get(double &); virtual void get(char *, int len); virtual void get(Packet &); inline operator gint64() { gint64 i; get(i); return i; } inline operator int() { gint64 i; get(i); return (int)i; } inline operator unsigned int() { gint64 i; get(i); return (unsigned int)i; } inline Value & operator =(int i) { set(i); return *this; } inline Value & operator =(unsigned int i) { set((int)i); return *this; } /// compare - this method will compare another object to this /// object. It takes a pointer to a ComparisonOperator as its /// input. Of the object's are mismatched for the particular /// operator, a 'Type Mismatch' Error will be thown. virtual bool compare(ComparisonOperator *compOp, Value *rvalue); /// copy - return an object that is identical to this one. virtual Value *copy(); /// xrefs - a cross reference allows a Value to notify another /// Value when it is changed. //** virtual void set_xref(Value *); //** virtual Value *get_xref(); // Some Value types that are used for symbol classes // contain a gpsimValue type that have update listeners. virtual void update(); // {} virtual Value* evaluate() { return copy(); } virtual void add_xref(void *xref); virtual void remove_xref(void *xref); XrefObject xref() { return _xref; } virtual void set_module(Module *new_cpu); Module *get_module(); virtual void set_cpu(Processor *new_cpu); Processor *get_cpu() const; //virtual string toString(); void addName(string &r_sAliasedName); private: XrefObject _xref; protected: // A pointer to the module that owns this value. Module *cpu; // Aliased names for this Value list *m_aka; }; /***************************************************************** ValueWrapper */ class ValueWrapper : public Value { public: ValueWrapper(Value *pCopy); virtual ~ValueWrapper(); virtual unsigned int get_leftVal(); virtual unsigned int get_rightVal(); virtual void set(const char *cP,int len=0); virtual void set(double); virtual void set(gint64); virtual void set(int); virtual void set(bool); virtual void set(Value *); virtual void set(Expression *); virtual void set(Packet &); virtual void get(bool &b); virtual void get(int &); virtual void get(guint64 &); virtual void get(gint64 &); virtual void get(double &); virtual void get(char *, int len); virtual void get(Packet &); virtual Value *copy(); virtual void update(); virtual Value* evaluate(); virtual bool compare(ComparisonOperator *compOp, Value *rvalue); private: Value *m_pVal; }; /***************************************************************** * Now we introduce classes for the basic built-in data types. * These classes are created by extending the Value class. For * convenience, they all must instantiate a getVal() method that * returns valueof the object in question as a simple value of * the base data type. For example, invoking getVal() on a * Boolean oject must return a simple 'bool' value. */ /*****************************************************************/ class Boolean : public Value { public: Boolean(bool newValue); Boolean(const char *_name, bool newValue, const char *desc=0); static bool Parse(const char *pValue, bool &bValue); static Boolean * NewObject(const char *_name, const char *pValue, const char *desc); virtual ~Boolean(); string toString(); string toString(const char* format); static string toString(bool value); static string toString(const char* format, bool value); virtual void get(bool &b); virtual void get(int &i); virtual void get(char *, int len); virtual void get(Packet &); virtual void set(bool); virtual void set(Value *); virtual void set(const char *cP,int len=0); virtual void set(Packet &); bool getVal() { return value; } static Boolean* typeCheck(Value* val, string valDesc); virtual bool compare(ComparisonOperator *compOp, Value *rvalue); virtual Value *copy(); /// copy the object value to a user char array virtual char *toString(char *return_str, int len); virtual char *toBitStr(char *return_str, int len); inline operator bool() { bool bValue; get(bValue); return bValue; } inline Boolean &operator = (bool bValue) { set(bValue); return *this; } private: bool value; }; inline bool operator!=(Boolean &LValue, Boolean &RValue) { return (bool)LValue != (bool)RValue; } //------------------------------------------------------------------------ /// Integer - built in gpsim type for a 64-bit integer. class Integer : public Value { public: Integer(const Integer &new_value); Integer(gint64 new_value); Integer(const char *_name, gint64 new_value, const char *desc=0); static bool Parse(const char *pValue, gint64 &iValue); static Integer * NewObject(const char *_name, const char *pValue, const char *desc); virtual ~Integer(); virtual string toString(); string toString(const char* format); static string toString(gint64 value); static string toString(const char* format, gint64 value); virtual void get(gint64 &i); virtual void get(double &d); virtual void get(char *, int len); virtual void get(Packet &); virtual void set(gint64 v); virtual void set(int); virtual void set(double d); virtual void set(Value *); virtual void set(const char *cP,int len=0); virtual void set(Packet &); static void setDefaultBitmask(gint64 bitmask); inline void setBitmask(gint64 bitmask) { this->bitmask = bitmask; } inline gint64 getBitmask() { return bitmask; } gint64 getVal() { return value; } virtual int set_break(ObjectBreakTypes bt=eBreakAny, ObjectActionTypes at=eActionHalt, Expression *expr=0); virtual Value *copy(); /// copy the object value to a user char array virtual char *toString(char *, int len); virtual char *toBitStr(char *, int len); static Integer* typeCheck(Value* val, string valDesc); static Integer* assertValid(Value* val, string valDesc, gint64 valMin); static Integer* assertValid(Value* val, string valDesc, gint64 valMin, gint64 valMax); virtual bool compare(ComparisonOperator *compOp, Value *rvalue); inline operator gint64() { gint64 i; get(i); return i; } inline operator guint64() { gint64 i; get(i); return (guint64)i; } inline operator bool() { gint64 i; get(i); return i != 0; } inline operator int() { gint64 i; get(i); return (int)i; } inline operator unsigned int() { gint64 i; get(i); return (unsigned int)i; } inline Integer & operator =(const Integer &i) { Integer & ii = (Integer &)i; gint64 iNew = (gint64)ii; set(iNew); bitmask = i.bitmask; return *this; } inline Integer & operator =(int i) { set(i); return *this; } inline Integer & operator =(unsigned int i) { set((int)i); return *this; } inline Integer & operator &=(int iValue) { gint64 i; get(i); set((int)i & iValue); return *this; } inline Integer & operator |=(int iValue) { gint64 i; get(i); set((int)i | iValue); return *this; } inline Integer & operator +=(int iValue) { gint64 i; get(i); set((int)i + iValue); return *this; } inline Integer & operator ++(int) { gint64 i; get(i); set((int)i + 1); return *this; } inline Integer & operator --(int) { gint64 i; get(i); set((int)i - 1); return *this; } inline Integer & operator <<(int iShift) { gint64 i; get(i); set(i << iShift); return *this; } inline bool operator !() { gint64 i; get(i); return i == 0; } private: gint64 value; // Used for display purposes gint64 bitmask; static gint64 def_bitmask; }; inline bool operator!=(Integer &iLValue, Integer &iRValue) { return (gint64)iLValue != (gint64)iRValue; } //------------------------------------------------------------------------ /// Float - built in gpsim type for a 'double' class Float : public Value { public: Float(double newValue = 0.0); Float(const char *_name, double newValue, const char *desc=0); static bool Parse(const char *pValue, double &fValue); static Float * NewObject(const char *_name, const char *pValue, const char *desc); virtual ~Float(); virtual string toString(); string toString(const char* format); static string toString(double value); static string toString(const char* format, double value); virtual void get(gint64 &i); virtual void get(double &d); virtual void get(char *, int len); virtual void get(Packet &); virtual void set(gint64 v); virtual void set(double d); virtual void set(Value *); virtual void set(const char *cP,int len=0); virtual void set(Packet &); double getVal() { return value; } virtual Value *copy(); /// copy the object value to a user char array virtual char *toString(char *, int len); static Float* typeCheck(Value* val, string valDesc); virtual bool compare(ComparisonOperator *compOp, Value *rvalue); inline operator double() { double d; get(d); return d; } inline Float & operator = (double d) { set((double)d); return *this; } inline Float & operator = (int d) { set((double)d); return *this; } inline Float & operator += (Float &d) { set((double)*this + (double)d ); return *this; } inline Float & operator *= (Float &d) { set((double)*this * (double)d ); return *this; } inline Float & operator *= (double d) { set((double)*this * d ); return *this; } private: double value; }; inline bool operator!=(Float &iLValue, Float &iRValue) { return (double)iLValue != (double)iRValue; } /*****************************************************************/ class String : public Value { public: String(const char *newValue); String(const char *newValue, size_t len); String(const char *_name, const char *newValue, const char *desc=0); virtual ~String(); virtual string toString(); const char *getVal(); virtual void set(Value *); virtual void set(const char *cP,int len=0); virtual void set(Packet &); virtual void get(char *, int len); virtual void get(Packet &); virtual Value *copy(); /// copy the object value to a user char array virtual char *toString(char *, int len); inline operator const char *() { return getVal(); } private: char *value; }; inline bool operator!=(String &LValue, String &RValue) { return strcmp((const char *)LValue, (const char *)RValue) != 0; } /*****************************************************************/ class AbstractRange : public Value { public: AbstractRange(unsigned int leftVal, unsigned int rightVal); virtual ~AbstractRange(); virtual string toString(); string toString(const char* format); virtual unsigned int get_leftVal(); virtual unsigned int get_rightVal(); virtual void set(Value *); virtual Value *copy(); /// copy the object value to a user char array virtual char *toString(char *return_str, int len); static AbstractRange* typeCheck(Value* val, string valDesc); virtual bool compare(ComparisonOperator *compOp, Value *rvalue); private: unsigned int left; unsigned int right; }; //------------------------------------------------------------------------ // Function -- maybe should go into its own header file. // typedef list ExprList_t; namespace gpsim { class Function : public gpsimObject { public: Function(const char *_name, const char *desc=0); virtual ~Function(); virtual string description(); virtual string toString(); void call(ExprList_t *vargs); }; } char * TrimWhiteSpaceFromString(char * pBuffer); char * UnquoteString(char * pBuffer); string &toupper(string & sStr); #endif // __VALUE_H__ gpsim-0.27.0/src/gpsim_def.h0000644000076400007640000000203111401131150012524 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ /* * gpsim_def.h * * This include file contains global definitions. */ #ifndef __GPSIM_VERSION_H__ #define __GPSIM_VERSION_H__ //#define GPSIM_VERSION VERSION #define MAX_PROGRAM_MEMORY 0xffff #define DEFAULT_GUI_UPDATE_RATE 0x100000 #define MAX_HLL_FILES 20 #endif // __GPSIM_VERSION_H__ gpsim-0.27.0/src/hexutils.cc0000664000076400007640000002465012163701215012622 00000000000000/* Copyright (C) 1998 T. Scott Dattalo Copyright (C) 2007 Roy R Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ // T. Scott Dattalo // Portions of this file were obtained from: /* intel16.c - read an intel hex file */ /* Copyright (c) 1994 Ian King */ #include #include #include "picdis.h" #include "exports.h" #include "pic-processor.h" #include "hexutils.h" #include "program_files.h" //------------------------------------------------------------------------ // IntelHexProgramFileType -- constructor // // When a IntelHexProgramFileType is instantiated, it will get placed // on to a 'ProgramFileType' list. This list is then used (ultimately) // by the 'load' command to load files of this type. IntelHexProgramFileType::IntelHexProgramFileType() { RegisterProgramFileType(this); // Determine endianess of current processor short word = 0x4321; isBigEndian = (*(char *)& word) != 0x21; } void IntelHexProgramFileType::putachar (FILE * file, unsigned char c) { checksum += c; fprintf(file, "%02X", c); } /* write big endian word */ void IntelHexProgramFileType::write_be_word(FILE * file, int w) { unsigned short nw =hton16(w); putachar(file, nw & 0xff ); putachar(file, (nw >> 8) & 0xff); } /* write little endian word */ void IntelHexProgramFileType::write_le_word(FILE * file, int w) { unsigned short nw =hton16(w); putachar(file, (nw >> 8) & 0xff); putachar(file, nw & 0xff ); } int IntelHexProgramFileType::getachar (FILE * file) { int c; do c = fgetc (file); while (c == '\r'); /* strip LF out of MSDOS files */ return c; } unsigned char IntelHexProgramFileType::getbyte (FILE * file) { unsigned char byte; unsigned int data; fscanf (file, "%02x", &data); byte = data & 0xff; checksum += byte; /* all the bytes are used in the checksum */ /* so here is the best place to update it */ return byte; } /* read big endian word */ int IntelHexProgramFileType::read_be_word(FILE * file) { int w; w = getbyte(file); w |= getbyte(file) << 8; return(ntoh16(w)); } /* read little endian word */ int IntelHexProgramFileType::read_le_word(FILE * file) { int w; w = getbyte(file) << 8; w |= getbyte(file); return(ntoh16(w)); } unsigned int IntelHexProgramFileType::getword(FILE *file) { unsigned char lo = getbyte(file); return ((getbyte(file) << 8) | lo); } #include "cmd_gpsim.h" int IntelHexProgramFileType::LoadProgramFile(Processor **pProcessor, const char *pFilename, FILE *inputfile, const char *pProcessorName) { if(verbose) cout << "load hex\n"; if(*pProcessor == NULL) { // Need to determine processor from file. // for now return error. return ERR_NEED_PROCESSOR_SPECIFIED; } // assume no configuration word is in the hex file. (*pProcessor)->set_config_word((*pProcessor)->config_word_address(),0xffff); int iReturn; if ((iReturn = readihex16 (*pProcessor, inputfile)) != SUCCESS) { // No errors were found in the hex file. (*pProcessor)->set_frequency(10e6); (*pProcessor)->reset(POR_RESET); (*pProcessor)->simulation_mode = eSM_STOPPED; if(verbose) get_cycles().dump_breakpoints(); return SUCCESS; } return iReturn; } /* * writeihexN outputs Register structures in Intel hex format * * bytes_per_word - number of bytes of register to output * fr - pointer to array of Register structures * size - number of Register structures to output * file - File descriptor for output * out_base - address offset in words for first register * * If bytes_per_word == 1 this writes ihex8 format * bytes_per_word == 2 this writes ihex16 format * address is big endian, data little endian * byte address (word_address*2) is written */ void IntelHexProgramFileType::writeihexN(int bytes_per_word, Register **fr, gint32 size, FILE *file, gint32 out_base) { gint32 extended_address; gint32 address; int rec_size = 32; // output record size in bytes int i; int j = 0; if (fr == NULL || file == NULL || size <= 0 || (bytes_per_word != 1 && bytes_per_word != 2) ) return; out_base <<= (bytes_per_word - 1); // convert word address to byte address extended_address = out_base >> 16; address = out_base & 0xffff; if (extended_address) fprintf(file, ":02000004%04X%02X\n", extended_address, ext_csum(extended_address) ); while( j < size) { if (rec_size > (size - j) * bytes_per_word) rec_size = (size -j) * bytes_per_word; if (address & 0x10000) { extended_address++; address &= 0xffff; fprintf(file, ":02000004%04X%02X\n", extended_address, ext_csum(extended_address) ); } fprintf(file, ":%02X", rec_size); checksum = rec_size; write_be_word(file, address); putachar(file, 0); for(i = 0; i < rec_size; j++, i += bytes_per_word) { if (bytes_per_word == 2) write_le_word(file, fr[j]->get_value()); else putachar(file, fr[j]->get_value()); } fprintf(file, "%02X\n", (-checksum) & 0xff); address += rec_size; } fprintf(file, ":00000001FF\n"); } int IntelHexProgramFileType::readihex16 (Processor *pProcessor, FILE * file) { int extended_address = 0; int address; int linetype = 0; int bytesthisline; int i; int lineCount = 1; int csby; Processor *& cpu = pProcessor; while (1) { if (getachar (file) != ':') { printf ("Need a colon as first character in each line\n"); printf ("Colon missing in line %d\n", lineCount); //exit (1); return ERR_BAD_FILE; } checksum = 0; bytesthisline = getbyte (file); address = read_be_word(file) / 2; /* wierdness of INHX16! address different */ /* endian-ness and 2x too big */ /* The address is big endian and is a byte address * which is why gpsim which uses word addresses considers * them 2x to big. This file assumes the data is little endian. * RRR */ linetype = getbyte (file); /* 0 for data, 1 for end */ switch (linetype ) { case 0: // Data record { unsigned char buff[256]; bytesthisline &= 0xff; for (i = 0; i < bytesthisline; i++) buff[i] = getbyte(file); cpu->init_program_memory_at_index(address|extended_address, buff, bytesthisline); } break; case 1: // End of hex file return SUCCESS; case 4: // Extended address { extended_address = read_be_word(file) << 15; printf ("Extended linear address %x %x\n", address, extended_address); } break; default: printf ("Error! Unknown record type! %d\n", linetype); return ERR_BAD_FILE; } csby = getbyte (file); /* get the checksum byte */ /* this should make the checksum zero */ /* due to side effect of getbyte */ if (checksum) { printf ("Checksum error in input file.\n"); printf ("Got 0x%02x want 0x%02x at line %d\n", csby, (0 - checksum) & 0xff, lineCount); return ERR_BAD_FILE; } (void) getachar (file); /* lose */ lineCount++; } return SUCCESS; } /* * readihexN loads Register structures from file in Intel hex format * * bytes_per_word - number of bytes of register to output (1 & 2 supported) * fr - pointer to array of Register structures * size - number of Register structures to output * file - File descriptor for output * offset - address offset in words for first register * * If bytes_per_word == 1 this reads ihex8 format * bytes_per_word == 2 this reads ihex16 format * address is big endian, data little endian * byte address (word address*2) is read */ int IntelHexProgramFileType::readihexN (int bytes_per_word, Register **fr, gint32 size, FILE * file, gint32 offset) { int extended_address = 0; int address; int linetype = 0; int wordsthisline, bytesthisline; int i; int lineCount = 1; int csby; while (1) { if (getachar (file) != ':') { printf ("Need a colon as first character in each line\n"); printf ("Colon missing in line %d\n", lineCount); return ERR_BAD_FILE; } checksum = 0; bytesthisline = getbyte (file); wordsthisline = bytesthisline / bytes_per_word; address = read_be_word(file); linetype = getbyte (file); /* 0 for data, 1 for end */ switch (linetype ) { case 0: // Data record { int data; gint32 index = (extended_address | address) / bytes_per_word - offset; if (index < 0) { printf("Address 0x%x less than offset 0x%x line %d\n", (extended_address | address) / bytes_per_word, offset, lineCount ); return ERR_BAD_FILE; } if (index + wordsthisline > size) { printf("Index %d exceeds size %d at line %d\n", index + wordsthisline, size, lineCount ); return ERR_BAD_FILE; } for (i = 0; i < wordsthisline; i++) { if (bytes_per_word == 1) data = getbyte(file); else data = read_le_word(file); fr[index+i]->put_value(data); } } break; case 1: // End of hex file return SUCCESS; case 4: // Extended address { extended_address = read_be_word(file) << 16; printf ("Extended linear address %x %x\n", address, extended_address); } break; default: printf ("Error! Unknown record type! %d\n", linetype); return ERR_BAD_FILE; } csby = getbyte (file); /* get the checksum byte */ /* this should make the checksum zero */ /* due to side effect of getbyte */ if (checksum) { printf ("Checksum error in input file.\n"); printf ("Got 0x%02x want 0x%02x at line %d\n", csby, (0 - checksum) & 0xff, lineCount); return ERR_BAD_FILE; } (void) getachar (file); /* lose */ lineCount++; } return SUCCESS; } /* ... The End ... */ gpsim-0.27.0/src/psp.h0000664000076400007640000000456112175377101011426 00000000000000/* Copyright (C) 2006 Roy R Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __PSP_H__ #define __PSP_H__ #include "pic-processor.h" #include "14bit-registers.h" #include "pic-ioports.h" #include "pir.h" class RD_SignalSink; class CS_SignalSink; class WR_SignalSink; class PicPSP_PortRegister; class PicTrisRegister; class PSPCON : public sfr_register, public TriggerObject { public: PSPCON(Processor *pCpu, const char *pName, const char *pDesc); virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); }; class PSP { public: void initialize( PIR_SET *pir_set, PicPSP_PortRegister *port_set, PicTrisRegister *port_tris, sfr_register *PSPcon, PinModule *pin_RD, PinModule *pin_CS, PinModule *pin_WR); void setRD_State(char new3State); void setCS_State(char new3State); void setWR_State(char new3State); void ParallelSetbit(int m_iobit,char cNewSinkState); void state_control(void); bool pspmode(void) { return((cntl_tris->get() & PSPMODE) == PSPMODE);} void psp_put(unsigned int new_value); unsigned int psp_get(void); PSP() { m_rd_sink=0; m_cs_sink=0; m_wr_sink=0; state=0;} enum { TRIS_MASK = 7, PSPMODE = 1<<4, IBOV = 1<<5, OBF = 1<<6, IBF = 1<<7 }; protected: enum { ST_INACTIVE = 0, ST_READ, ST_WRITE }; unsigned int put_value; unsigned int get_value; int state; bool rd; bool cs; bool wr; PIR_SET *pir_set; PicPSP_PortRegister *parallel_port; PicTrisRegister *parallel_tris; sfr_register *cntl_tris; PinModule *Not_RD; PinModule *Not_CS; PinModule *Not_WR; RD_SignalSink *m_rd_sink; CS_SignalSink *m_cs_sink; WR_SignalSink *m_wr_sink; }; #endif // __PSP_H__ gpsim-0.27.0/src/cod.cc0000664000076400007640000006711212114511310011511 00000000000000/* -*- Mode: C++; c-file-style: "GNU"; comment-column: 40 -*- */ /* Copyright (C) 1998,1999 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ // // cod.cc // // The file contains the code for reading Byte Craft's .cod // formatted symbol files. // #include #include #include #include #include #include #ifdef _WIN32 #include #endif #include "../config.h" #include "exports.h" #include "gpsim_def.h" #include "sim_context.h" #include "pic-processor.h" #include "picdis.h" #include "symbol.h" #include "cod.h" #include "interface.h" #include "fopen-path.h" #include "breakpoints.h" /* experiment with assertions */ #include "cmd_manager.h" /* end of assertion experiment */ PicCodProgramFileType::PicCodProgramFileType() { codefile = 0; temp_block = 0; lstfilename = 0; memset(&main_dir, 0, sizeof(main_dir)); // Define a flag that tells whether or not we should care about the // case of text strings in the .cod file. ignore_case_in_cod = 1; gputils_recent = 0; RegisterProgramFileType(this); } int PicCodProgramFileType::get_string(char *dest, char *src, size_t len) { size_t n = *src++; if(n < len) { n = min(n, len - 1); strncpy(dest, src, n); dest[n] = '\0'; return SUCCESS; } return ERR_BAD_FILE; } // Capitalize a string (there must be a library function that does this! void strtoupper(char *s) { if(!s) return; while(*s) { *s = toupper(*s); s++; } } void strtolower(char *s) { if(!s) return; char *t = s; if(verbose) cout << "tolower " << s; while(*s) { *s = tolower(*s); s++; } if(verbose) cout << "after " << t <<'\n'; } unsigned short get_short_int( char * buff) { return ( (unsigned char)buff[0] + ((unsigned char)buff[1] << 8)); } void PicCodProgramFileType::read_block(char * block, int block_number) { fseek(codefile, block_number * COD_BLOCK_SIZE, SEEK_SET); size_t n = fread(block, 1, COD_BLOCK_SIZE, codefile); assert(COD_BLOCK_SIZE == n); } unsigned int get_be_int( char * buff) { return ( (unsigned char)buff[3] + ((unsigned char)buff[2] << 8) + ((unsigned char)buff[1] << 16) + ((unsigned char)buff[0] << 24)); } //----------------------------------------------------------- // cod_address_in_range - check to see if an address falls into // one of the valid code areas. A code area is define by a start // address and an end address. If the address is in a valid area // then a '1' is returned. // int cod_address_in_range(char *range_block,int address) { int i =0; int start,end; do { // get the start and end addresses of this range start = get_short_int(&range_block[i])/2; i+=2; end = get_short_int(&range_block[i])/2; i+=2; if((address>=start) && (address<=end)) return 1; // in range // The end address can be zero on only the first // start/end pair. if((end == 0) && (i>4)) return 0; } while(idir.block[COD_DIR_MEMMAP]); j = get_short_int(&dbi->dir.block[COD_DIR_MEMMAP + 2]); if ((i != j) || (i == 0)) { cout << ".cod range error \n"; return; } _64k_base = get_short_int(&dbi->dir.block[COD_DIR_HIGHADDR]) << 15; read_block(range_block, i); // Loop through all of the .cod file blocks that (may) contain code for (i = 0; i < COD_CODE_IMAGE_BLOCKS; i++) { index = get_short_int(&dbi->dir.block[2 * (COD_DIR_CODE + i)]); if (index != 0) { read_block(temp_block, index); for(j = 0; j < COD_BLOCK_SIZE / 2; j++) { int PCindex = i * COD_BLOCK_SIZE / 2 + j; if (cod_address_in_range(range_block, PCindex)) { cpu->init_program_memory_at_index(PCindex + _64k_base, (int)get_short_int(&temp_block[j * 2])); } } } } dbi = dbi->next_dir_block_info; } while (dbi); } //----------------------------------------------------------- FILE *PicCodProgramFileType::open_a_file(char **filename) { FILE *t; if(verbose) cout << "Trying to open a file: " << *filename << '\n'; if(0 != (t = fopen_path(*filename,"r"))) return t; if(!ignore_case_in_cod) return 0; strtoupper(*filename); if(0 != (t = fopen_path(*filename,"r"))) return t; strtolower(*filename); if(0 != (t = fopen_path(*filename,"r"))) return t; // cout << "couldn't open " << *filename << " (or any upper/lower case variation)\n"; return 0; } //----------------------------------------------------------- // Determing the .lst file name from the cod file file name. // imo this is cheezy because the .cod file and .lst file have // to have the same base file name. By convention, mpasm always // made sure this happened. gpasm otoh, gives you an option to // make the two different. Furthermore, gpasm includes the .lst // file file name in the list of source files within the .cod // file - unfortunately mpasm doesn't ... so gpsim has to assume // the list file isn't present int PicCodProgramFileType::cod_open_lst(const char *filename) { char *pc; int i; FILE *t; lstfilename = strdup(filename); pc = strrchr(lstfilename, '.'); if (pc == 0) { if( (i = strlen(lstfilename)) < (256-4)) pc = lstfilename + i; else return ERR_FILE_NAME_TOO_LONG; } strcpy(pc, ".lst"); // Now, let's see if we can open the file if(0 == (t = open_a_file(&lstfilename))) return ERR_LST_FILE_NOT_FOUND; fclose(t); return SUCCESS; } //----------------------------------------------------------- int PicCodProgramFileType::read_src_files_from_cod(Processor *cpu) { #define FILE_SIZE 64 #define FILES_PER_BLOCK (COD_BLOCK_SIZE/FILE_SIZE) int iReturn = SUCCESS; int i,j,start_block,end_block,offset,num_files; char b[FILE_SIZE]; num_files = 0; end_block = 0; // eliminates a (spurious) warning //start_block = get_short_int(&directory_block_data[COD_DIR_NAMTAB]); start_block = get_short_int(&main_dir.dir.block[COD_DIR_NAMTAB]); // First, just count the number of source files // These may be duplicates, but this is an upper bound if(start_block) { // end_block = get_short_int(&directory_block_data[COD_DIR_NAMTAB+2]); end_block = get_short_int(&main_dir.dir.block[COD_DIR_NAMTAB+2]); for(j=start_block; j<=end_block; j++) { read_block(temp_block, j); for(i=0; ifiles.list_id(num_files); num_files = 0; // now use 'num_files' as a counter. for(j=start_block; j<=end_block; j++) { read_block(temp_block, j); for(i=0; i= 'A') && (filenm[0] <= 'Z') && (':' == filenm[1]) && ('\\' == filenm[2])) { char *cp; filenm += 3; // strip C:\ from MPLAB files // convert \ to / now??? for (cp = filenm; *cp; ++cp) { // convert DOS slash to Unix slash if ('\\' == *cp) *cp = '/'; } } #endif string s1 = string(filenm); if(temp_block[offset] && (cpu->files.Find(s1) < 0)) { // // Add this file to the list // if(cpu->files.Add(filenm)<0) { // File not available. if(verbose) cout << "Failed to add '" << filenm << "'\n"; continue; } if((strncmp(lstfilename, filenm,256) == 0) && (cpu->files.list_id() >= cpu->files.nsrc_files()) ) { if(verbose) cout << "Found list file " << ((cpu->files)[num_files])->name() << endl; cpu->files.list_id(num_files); found_lst_in_cod = 1; } num_files++; } else if(verbose) cout << "Could not find '" << filenm << "'\n"; } } if(verbose) cout << "Found " << num_files << " source files in .cod file\n"; if(num_files != cpu->files.nsrc_files()) cout << "warning, number of sources changed from " << num_files << " to " << cpu->files.nsrc_files() << " while reading code (gpsim bug)\n"; if(!found_lst_in_cod) { cpu->files.Add(lstfilename); cpu->files.list_id(num_files); if(verbose) printf("List file %s wasn't in .cod\n",lstfilename); } } else printf("No source file info\n"); _Cleanup: if(0){ // Debug code int i; cout << " new file stuff: " << cpu->files.nsrc_files() << " new files\n"; for(i=0; ifiles.nsrc_files(); i++) { cout << ((cpu->files)[i])->name() << endl; } } return iReturn; } //----------------------------------------------------------- void PicCodProgramFileType::read_line_numbers_from_cod(Processor *cpu) { int j,start_block,end_block,offset; int file_id, sline,smod; unsigned int address; DirBlockInfo *dbi = &main_dir; do { start_block = get_short_int(&main_dir.dir.block[COD_DIR_LSTTAB]); if (start_block) { end_block = get_short_int(&main_dir.dir.block[COD_DIR_LSTTAB + 2]); int _64k_base = get_short_int(&dbi->dir.block[COD_DIR_HIGHADDR]) << 15; // Loop through all of the .cod file blocks that contain line number info for (j = start_block; j <= end_block; j++) { read_block(temp_block,j); // Get the line number info from within one .cod block for (offset = 0; offset < (COD_BLOCK_SIZE - COD_LS_SIZE); offset += COD_LS_SIZE) { if ((temp_block[offset + COD_LS_SMOD] & 4) == 0) { file_id = temp_block[offset + COD_LS_SFILE]; address = _64k_base + get_short_int(&temp_block[offset + COD_LS_SLOC]); //address = cpu->map_pm_address2index(address); sline = get_short_int(&temp_block[offset + COD_LS_SLINE]); smod = temp_block[offset + COD_LS_SMOD] & 0xff; if ((file_id <= cpu->files.nsrc_files()) && // (address <= cpu->program_memory_size()) && cpu->IsAddressInRange(address) && (smod == 0x80)) cpu->attach_src_line(address, file_id, sline, 0); } } } cpu->read_src_files(); } dbi = dbi->next_dir_block_info; } while (dbi); } //----------------------------------------------------------- // read_message_area(Processor *cpu) // // The .cod file message area contains information like assertions // and simulation scripts. void PicCodProgramFileType::read_message_area(Processor *cpu) { #define MAX_STRING_LEN 255 /* Maximum length of a debug message */ char DebugType,DebugMessage[MAX_STRING_LEN]; unsigned short i, j, start_block, end_block; unsigned short laddress; // If the .cod file contains a simulation script, then we'll // pass it to the command line interface. Note, we go through // this indirect way of accessing the CLI since we don't wish // for code in the src/ directory to depend directly on code // in the cli/ (or any other) directory. start_block = get_short_int(&main_dir.dir.block[COD_DIR_MESSTAB]); if(start_block) { end_block = get_short_int(&main_dir.dir.block[COD_DIR_MESSTAB+2]); for(i=start_block; i<=end_block; i++) { read_block(temp_block, i); #if 0 { // Debug code to display the contents of the message area. int q,p; printf ("Codefile block 0x%x\n",i); for (q=0,p=0; q < COD_BLOCK_SIZE; q+=16) { for (p=0; p<16; p++) printf("%02X ",(unsigned char)temp_block[q+p]); for (p=0; p<16; p++) printf("%c", isascii(temp_block[q+p]) ? temp_block[q+p] : '.'); printf("\n"); } #endif j = 0; // Each message has the form of // AAAAAAAACCstring // AAAAAAAA - 32bit address in PIC program memory // CC - 8-bit command // string - a 0-terminated string of characters. while (j < COD_BLOCK_SIZE-8) { /* read big endian */ laddress = get_be_int(&temp_block[j]); j += 4; // 4 = size of big endian DebugType = temp_block[j++]; if (DebugType == 0) { break; } get_string(DebugMessage, &temp_block[j], sizeof DebugMessage); j += strlen(DebugMessage)+1; if(verbose) printf("debug message: addr=%#x command=\"%c\" string=\"%s\"\n", laddress, DebugType, DebugMessage); // The lower case commands are user commands. The upper case are // compiler or assembler generated. This code makes no distinction // between them. switch(DebugType) { // The 'A' and 'E' options in gpasm specifies a list of gpsim commands // that are to be executed after the .cod file has been loaded. case 'a': case 'A': // assertion { string script("directive"); char buff[256]; snprintf(buff,sizeof(buff),"break e %d, %s\n",laddress,DebugMessage); string cmd(buff); cpu->add_command(script,cmd); } break; case 'e': case 'E': // gpsim command { string script("directive"); string cmd(DebugMessage); cmd = cmd + '\n'; cpu->add_command(script,cmd); } break; case 'c': case 'C': // gpsim command // The 'c'/'C' option in gpasm specifies a single gpsim command that is // to be invoked whenever the address associated with this directive // is being simulated. { bool bPost = DebugType == 'c'; CommandAssertion *pCA = new CommandAssertion(cpu,laddress,0, DebugMessage,bPost); get_bp().set_breakpoint(pCA,cpu); } case 'f': case 'F': // printf break; case 'l': case 'L': // log break; default: cout << "Warning: unknown debug message \"" << DebugType << "\"\n"; } } } } } //----------------------------------------------------------- // open_cod_file // void PicCodProgramFileType::read_symbols( Processor *cpu ) { char *s,length; short type; int i,j,start_block,end_block, value; char b[256]; start_block = get_short_int(&main_dir.dir.block[COD_DIR_LSYMTAB]); if(start_block) { end_block = get_short_int(&main_dir.dir.block[COD_DIR_LSYMTAB+2]); for(j=start_block; j<=end_block; j++) { read_block(temp_block, j); for(i=0; i128) type = COD_ST_CONSTANT; value = get_be_int(&s[length+3]); switch(type) { case COD_ST_C_SHORT: { // Change the register name to its symbolic name get_string(b, s, sizeof b); cpu->registers[value]->new_name(b); } break; case COD_ST_ADDRESS: { get_string(b, s, sizeof b); instruction *pI = cpu->pma->getFromAddress(value); if (pI) { string s(b); pI->addLabel(s); } } break; case COD_ST_CONSTANT: // Ignore as no useful purpose and may // conflict with other symbols - RRR break; default: get_string(b, s, sizeof b); cpu->addSymbol(new Integer(b,value)); break; } i += (length + 7); } } }else printf("No long symbol table info\n"); } /*---------------------------------------------*/ void clear_block(Block *b) { if(b && b->block) memset(b->block, 0, COD_BLOCK_SIZE); else assert(0); } /*---------------------------------------------*/ void create_block(Block *b) { assert(b != 0); b->block = (char *)malloc(COD_BLOCK_SIZE); clear_block(b); } void delete_block(Block *b) { if(b && b->block) { free(b->block); b->block = 0; } else assert(0); } /*------------------------------------------------------------------ * read_directory - read the directory block(s) in the .cod file */ void PicCodProgramFileType::read_directory(void) { DirBlockInfo *dbi; create_block(&main_dir.dir); read_block(main_dir.dir.block, 0); dbi = &main_dir; do { int next_dir_block = get_short_int(&dbi->dir.block[COD_DIR_NEXTDIR]); if(next_dir_block) { dbi->next_dir_block_info = (DirBlockInfo *)malloc(sizeof(DirBlockInfo)); dbi = dbi->next_dir_block_info; create_block(&dbi->dir); read_block(dbi->dir.block, next_dir_block); } else { dbi->next_dir_block_info = 0; return; } } while(1); } void PicCodProgramFileType::delete_directory(void) { DirBlockInfo *dbi; DirBlockInfo *next; next = main_dir.next_dir_block_info; while(next != 0) { dbi = next; next = dbi->next_dir_block_info; delete_block(&dbi->dir); free(dbi); } delete_block(&main_dir.dir); } int PicCodProgramFileType::check_for_gputils(char *block) { int iReturn = SUCCESS; char buffer[256]; int have_gputils = 0; if((iReturn = get_string(buffer,&block[COD_DIR_COMPILER - 1],12)) != SUCCESS) { goto _Cleanup; } if ((strcmp("gpasm",buffer) == 0) || (strcmp("gplink",buffer) == 0)) { if(verbose) cout << "Have gputils\n"; have_gputils = 1; if((iReturn = get_string(buffer,&block[COD_DIR_VERSION - 1],19)) != SUCCESS) { goto _Cleanup; } int major=0, minor=0, micro=0; if (isdigit(buffer[0])) { // Extract version numbers in new gputils format sscanf(&buffer[0],"%d.%d.%d",&major,&minor,µ); if(verbose) cout << "gputils version major "<< major << " minor " << minor << " micro " << micro << endl; // if gputils version is greater than or equal to 0.13.0, then gputils // is considered "recent" if ((major >= 1) || ( minor >= 13)) gputils_recent = 1; } else { // version number in old gputils format, so it can't be recent gputils_recent = 0; } } if(have_gputils && gputils_recent) { if(verbose) cout << "good, you have a recent version of gputils\n"; } else { cout << "Warning, you need to upgrade to gputils-0.13.0 or higher\n"; cout << "(Your assembler version is " << buffer << ")\n"; } _Cleanup: return iReturn; } //----------------------------------------------------------- // Read .c line numbers from special .asm files. void PicCodProgramFileType::read_hll_line_numbers_from_asm(Processor *cpu) { int line_number; unsigned int address; int file_index; // Reset hll_file_id and hll_src_line throughout cpu memory for(address=0;addressprogram_memory_size();address++) { cpu->program_memory[address]->set_hll_file_id(-1); cpu->program_memory[address]->set_hll_src_line(0); // Meaning 'not set' in this function. } // For each file int nfiles=cpu->files.nsrc_files(); for(file_index=0;file_indexfiles[file_index]->name().compare(cpu->files[file_index]->name().length()-4,4,".asm")) { int current_hll_file_id; int asmsrc_line; // Loop through the whole .asm file and look for any line markers cpu->files[file_index]->rewind(); asmsrc_line=0; while(cpu->files[file_index]->gets(text_buffer,sizeof(text_buffer))!=0) { asmsrc_line++; string fn; if(0==strncmp(text_buffer,";\t.line\t",8)) // \t.line\t12345\t"filename" { char *lineendpos=strchr(text_buffer, ';'); if(lineendpos==0) continue; *lineendpos=0; line_number=atoi(text_buffer+8); char *fnstart = strchr(lineendpos+1, '\"'); if(fnstart==0) continue; fnstart++; char *fnend = strchr(fnstart+1, '\"'); if(fnend==0) continue; *fnend=0; fn=fnstart; } else if(0==strncmp(text_buffer,";#CSRC ",7)) // ;#CSRC filename 12345 { char *fnend = strrchr(text_buffer, ' '); if(fnend==0) continue; *fnend=0; fn=text_buffer+7; char *linestart=fnend+1; line_number=atoi(linestart); } else { continue; } // Add hll file if not already added current_hll_file_id = cpu->files.Find(fn); if(current_hll_file_id<0) { current_hll_file_id=cpu->files.Add(fn, true); if(current_hll_file_id<0) continue; cpu->files[current_hll_file_id]->ReadSource(); } // Find closest address of asm line and set hll line number, hll file id and file context pm address. address=cpu->pma->find_closest_address_to_line(file_index, asmsrc_line); if(address >= 0) { int index = cpu->map_pm_address2index(address); cpu->program_memory[index]->set_hll_src_line(line_number); cpu->program_memory[index]->set_hll_file_id(current_hll_file_id); cpu->files[current_hll_file_id]->put_address(line_number, address); } } // Find address of last asm line and set hll_line -1, so we know the end when filling the gaps. address=cpu->pma->find_closest_address_to_line(file_index, asmsrc_line-1); if(address>=0) { int index = cpu->map_pm_address2index(address); cpu->program_memory[index]->set_hll_src_line(-1); } else { cout<<"Error did not find address of last asm line!"<program_memory_size();address++) { int line = cpu->program_memory[address]->get_hll_src_line(); if(line==0) { if(cpu->program_memory[address]->isa()!=instruction::INVALID_INSTRUCTION) { cpu->program_memory[address]->set_hll_file_id(file_index); cpu->program_memory[address]->set_hll_src_line(line_number); } } else { line_number=line; file_index=cpu->program_memory[address]->get_hll_file_id(); } } } //----------------------------------------------------------- // open_cod_file // // The purpose of this function is to process a .cod symbol file. // If a cpu hasn't been declared prior to calling this function, then this // function will attempt to determine the cpu from the .cod file. // /* int open_cod_file(Processor **pcpu, const char *filename) { char directory[256]; const char *dir_path_end; dir_path_end = get_dir_delim(filename); if(dir_path_end!=0) { strncpy(directory,filename,dir_path_end-filename); directory[dir_path_end-filename]=0; printf("directory is \"%s\"\n",directory); chdir(directory); filename=dir_path_end+1; printf("filename is \"%s\"\n",filename); } return load_cod_file(pcpu, filename, fopen(filename,"rb")); } */ int PicCodProgramFileType::LoadProgramFile(Processor **pcpu, const char *filename, FILE *pFile, const char *pProcessorName) { int error_code= SUCCESS; Processor *ccpu = 0; codefile = pFile; if(codefile == 0) { printf("Unable to open %s\n",filename); return ERR_FILE_NOT_FOUND; } error_code= cod_open_lst(filename); if(error_code != SUCCESS) { display_symbol_file_error(error_code); return error_code; } temp_block = new char[COD_BLOCK_SIZE]; /* Start off by reading the directory block */ read_directory(); // Perform a series of integrity checks if((error_code = check_for_gputils(main_dir.dir.block)) != SUCCESS) { goto _Cleanup; } // If we get here, then the .cod file is good. if(*pcpu == 0) { char processor_type[16]; processor_type[0] = 'p'; // Hack to get around processors whose name begin with a digit. if(verbose) cout << "ascertaining cpu from the .cod file\n"; if(SUCCESS == get_string(&processor_type[1], &main_dir.dir.block[COD_DIR_PROCESSOR - 1], sizeof (processor_type)-1)) { char *pProcessorTypeOffset = isdigit(processor_type[1]) ? &processor_type[0] : &processor_type[1]; if (!pProcessorName) pProcessorName = pProcessorTypeOffset; if(verbose) cout << "found a " << processor_type << " in the .cod file\n"; *pcpu = (Processor *)CSimulationContext::GetContext()->add_processor(processor_type, pProcessorName); if(*pcpu == 0) { if(!ignore_case_in_cod) return(ERR_UNRECOGNIZED_PROCESSOR); // Could be that there's a case sensitivity issue: strtolower(processor_type); *pcpu = (Processor *)CSimulationContext::GetContext()-> add_processor(processor_type,pProcessorName); if(*pcpu == 0) return(ERR_UNRECOGNIZED_PROCESSOR); } } else { return(ERR_UNRECOGNIZED_PROCESSOR); } } else cout << "cpu is non NULL\n"; ccpu = *pcpu; read_hex_from_cod(ccpu); ccpu->files.SetSourcePath(filename); read_src_files_from_cod(ccpu); // Associate the .lst and .asm files' line numbers with // the assembly instructions' addresses. read_line_numbers_from_cod(ccpu); read_symbols(ccpu); // If the .asm file contains special HLL source line comment, then // read these and put the HLL line numbers into each instruction. read_hll_line_numbers_from_asm(ccpu); // Read all the debug messages read_message_area(ccpu); _Cleanup: //delete directory_block_data; delete_directory(); delete [] temp_block; if(*pcpu != NULL) { (*pcpu)->reset(POR_RESET); bp.clear_global(); string script("directive"); (*pcpu)->run_script(script); } return error_code; } void PicCodProgramFileType::display_symbol_file_error(int err) { switch(err) { case ERR_FILE_NOT_FOUND: cout << "unable to find the symbol file\n"; break; case ERR_UNRECOGNIZED_PROCESSOR: cout << "unrecognized processor in the symbol file\n"; break; case ERR_BAD_FILE: cout << "bad file format\n"; break; } } gpsim-0.27.0/src/p17c75x.h0000644000076400007640000000657111401131150011722 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __P17C75X_H__ #define __P17C75X_H__ #include "16bit-processors.h" #include "p16x6x.h" class P17C7xx : public _16bit_processor { public: CPUSTA cpusta; P17C7xx(); static Processor *construct(const char *name); virtual PROCESSOR_TYPE isa(){return _P17C7xx_;}; virtual void create_symbols(); virtual void create(int ram_top); virtual void create_sfr_map(); virtual unsigned int program_memory_size() const { return 0x400; }; }; class P17C75x : public P17C7xx { public: P17C75x(); static Processor *construct(const char *name); virtual void create(int ram_top); virtual void create_sfr_map(); virtual PROCESSOR_TYPE isa(){return _P17C75x_;}; virtual void create_symbols(); virtual unsigned int program_memory_size() const { return 0x4000; }; }; class P17C752 : public P17C75x { public: virtual PROCESSOR_TYPE isa(){return _P17C752_;}; P17C752(); static Processor *construct(const char *name); void create(); // void create_sfr_map(); void create_sfr_map(); void create_symbols(); virtual unsigned int program_memory_size() const { return 0x2000; }; virtual unsigned int register_memory_size() const { return 0x800; }; }; class P17C756 : public P17C75x { public: virtual PROCESSOR_TYPE isa(){return _P17C756_;}; void create_sfr_map(); void create_symbols(); P17C756(); static Processor *construct(const char *name); void create(); virtual unsigned int program_memory_size() const { return 0x4000; }; virtual unsigned int register_memory_size() const { return 0x800; }; }; class P17C756A : public P17C75x { public: virtual PROCESSOR_TYPE isa(){return _P17C756A_;}; void create_sfr_map(); void create_symbols(); P17C756A(); static Processor *construct(const char *name); void create(); virtual unsigned int program_memory_size() const { return 0x4000; }; virtual unsigned int register_memory_size() const { return 0x800; }; }; class P17C762 : public P17C75x { public: virtual PROCESSOR_TYPE isa(){return _P17C762_;}; void create_sfr_map(); void create_symbols(); P17C762(); static Processor *construct(const char *name); void create(); virtual unsigned int program_memory_size() const { return 0x4000; }; virtual unsigned int register_memory_size() const { return 0x800; }; }; class P17C766 : public P17C75x { public: virtual PROCESSOR_TYPE isa(){return _P17C766_;}; void create_sfr_map(); void create_symbols(); P17C766(); static Processor *construct(const char *name); void create(); virtual unsigned int program_memory_size() const { return 0x4000; }; virtual unsigned int register_memory_size() const { return 0x800; }; }; #endif gpsim-0.27.0/src/expr.h0000644000076400007640000000730111401131150011552 00000000000000/* Parser for gpsim Copyright (C) 2004 Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include #include "value.h" #if !defined(__EXPR_H__) #define __EXPR_H__ using namespace std; class Expression; class symbol; typedef list ExprList_t; typedef list::iterator ExprList_itor; class Expression : public gpsimObject { public: Expression(); virtual ~Expression(); virtual Value* evaluate()=0; }; //************************************************************************// // // Literal Expressions // // A Literal Expression is a wrapper around a Value object. //---------------------------------------------------------------- class IndexedSymbol : public Expression { public: IndexedSymbol(gpsimObject *, ExprList_t*); virtual ~IndexedSymbol(); virtual Value* evaluate(); string toString(); private: Value * m_pSymbol; ExprList_t * m_pExprList; }; //----------------------------------------------------------------- class LiteralSymbol : public Expression { public: LiteralSymbol(gpsimObject *); //LiteralSymbol(gpsimObject *, ExprList_t*); virtual ~LiteralSymbol(); virtual Value* evaluate(); virtual int set_break(ObjectBreakTypes bt=eBreakAny, ObjectActionTypes at=eActionHalt, Expression *expr=0); virtual int clear_break(); string toString(); Value *GetSymbol(); private: Value *sym; }; //----------------------------------------------------------------- class LiteralArray : public Expression { public: LiteralArray(ExprList_t*); virtual ~LiteralArray(); virtual Value* evaluate(); string toString(); private: ExprList_t * m_pExprList; }; //----------------------------------------------------------------- class LiteralBoolean : public Expression { public: LiteralBoolean(Boolean* value); virtual ~LiteralBoolean(); virtual Value* evaluate(); string toString(); private: Boolean* value; }; //----------------------------------------------------------------- class LiteralInteger : public Expression { public: LiteralInteger(Integer* value); virtual ~LiteralInteger(); virtual Value* evaluate(); virtual int set_break(ObjectBreakTypes bt=eBreakAny, ObjectActionTypes at=eActionHalt, Expression *expr=0); string toString(); private: Integer* value; }; //----------------------------------------------------------------- class LiteralFloat : public Expression { public: LiteralFloat(Float* value); virtual ~LiteralFloat(); virtual Value* evaluate(); string toString(); private: Float* value; }; //----------------------------------------------------------------- class LiteralString : public Expression { public: LiteralString(String* newValue); virtual ~LiteralString(); virtual Value* evaluate(); string toString(); private: String* value; }; class RegisterExpression : public Expression { public: RegisterExpression(unsigned int uAddress); virtual ~RegisterExpression(); virtual Value* evaluate(); string toString(); private: unsigned int m_uAddress; }; #endif // __EXPR_H__ gpsim-0.27.0/src/ttoken.cc0000644000076400007640000000344111401170177012253 00000000000000/* Copyright (C) 1998-2003 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include "ttoken.h" #include "pthread-wrap.h" namespace gpsim { Token::Token() { thread = new ThreadWrapper(); } void Token::Initialize(void *(*child) (void *), void *data) { pthread_mutex_init(&thread->mutex, NULL); pthread_cond_init (&thread->cvWaitOnParent, NULL); pthread_cond_init (&thread->cvWaitOnChild, NULL); grab(); pthread_attr_init(&thread->thAttribute); pthread_attr_setdetachstate(&thread->thAttribute, PTHREAD_CREATE_JOINABLE); pthread_create(&thread->thHostInterface, &thread->thAttribute, child, data); } void Token::waitForChild() { pthread_cond_wait(&thread->cvWaitOnChild, &thread->mutex); } void Token::grab() { pthread_mutex_lock(&thread->mutex); } void Token::passToChild() { pthread_cond_signal(&thread->cvWaitOnParent); pthread_cond_wait(&thread->cvWaitOnChild, &thread->mutex); } void Token::passToParent() { pthread_cond_signal(&thread->cvWaitOnChild); pthread_cond_wait(&thread->cvWaitOnParent, &thread->mutex); } } // end of namespace gpsim gpsim-0.27.0/src/comparator.cc0000664000076400007640000010655312175377101013135 00000000000000/* Copyright (C) 1998 T. Scott Dattalo Copyright (C) 2006,2010,2013 Roy R. Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include #include #include "../config.h" #include "pic-ioports.h" #include "trace.h" #include "processor.h" #include "p16f88x.h" #include "pir.h" #include "stimuli.h" #include "14bit-tmrs.h" #include "comparator.h" //#define DEBUG #if defined(DEBUG) #include "../config.h" #define Dprintf(arg) {printf("%s:%d ",__FILE__,__LINE__); printf arg; } #else #define Dprintf(arg) {} #endif ComparatorModule::ComparatorModule(Processor *pCpu) : cmcon(pCpu,"cmcon", "Comparator Module Control"), cmcon1(pCpu,"cmcon1", "Comparator Configure Register"), vrcon(pCpu,"vrcon", "Voltage Reference Control") { } void ComparatorModule::initialize( PIR_SET *pir_set, PinModule *pin_vr0, PinModule *pin_cm0, PinModule *pin_cm1, PinModule *pin_cm2, PinModule *pin_cm3, PinModule *pin_cm4, PinModule *pin_cm5) { // cmcon = new CMCON; cmcon.assign_pir_set(pir_set); cmcon.setINpin(0, pin_cm0); cmcon.setINpin(1, pin_cm1); cmcon.setINpin(2, pin_cm2); cmcon.setINpin(3, pin_cm3); cmcon.setOUTpin(0, pin_cm4); cmcon.setOUTpin(1, pin_cm5); vrcon.setIOpin(pin_vr0); cmcon._vrcon = &vrcon; vrcon._cmcon = &cmcon; } //-------------------------------------------------- // //-------------------------------------------------- class CMSignalSource : public SignalControl { public: CMSignalSource(CMCON *_cmcon, int _index) : m_state('0'), m_cmcon(_cmcon), index(_index) { } ~CMSignalSource() { // cout << "deleting CMsignal source " << this << endl; } virtual void release() { m_cmcon->releasePin(index); } virtual char getState() { return m_state; } void putState(bool new_val) { m_state = new_val?'1':'0'; } private: char m_state; CMCON * m_cmcon; int index; }; //-------------------------------------------------- // //-------------------------------------------------- class CM12CON0; class CM12SignalSource : public SignalControl { public: CM12SignalSource( CM12CON0 *_cm12con0) : m_state('0'), m_cm12con0(_cm12con0) { } ~CM12SignalSource() { // cout << "deleting CMsignal source " << this << endl; } virtual void release() { m_cm12con0->releasePin(); } virtual char getState() { return m_state; } void putState(bool new_val) { m_state = new_val?'1':'0'; } private: char m_state; CM12CON0 *m_cm12con0; }; CM_stimulus::CM_stimulus(CMCON * arg, const char *cPname,double _Vth, double _Zth) : stimulus(cPname, _Vth, _Zth) { _cmcon = arg; } CM_stimulus::~CM_stimulus() { } void CM_stimulus::set_nodeVoltage(double v) { Dprintf(("set_nodeVoltage =%.1f\n", v)); nodeVoltage = v; _cmcon->get(); // recalculate comparator values } /* Setup the configuration for the comparators. Must be called for each comparator and each mode(CN2:CM0) that can be used. il1 = input Vin- when CIS == 0 ih1 = input Vin+ when CIS == 0 il2 = input Vin- when CIS == 1 ih2 = input Vin+ when CIS == 1 if input == VREF, reference voltage is used. */ void CMCON::set_configuration(int comp, int mode, int il1, int ih1, int il2, int ih2, int out) { if (comp > cMaxComparators || comp < 1 ) { cout << "CMCON::set_configuration comp=" << comp << " out of range\n"; return; } if (mode > cMaxConfigurations) { cout << "CMCON::set_configuration mode too large\n"; return; } m_configuration_bits[comp-1][mode] = (il1 << CFG_SHIFT*4) | (ih1 << CFG_SHIFT*3) | (il2 << CFG_SHIFT*2) | (ih2 << CFG_SHIFT) | out; } //------------------------------------------------------------------------ CMCON::CMCON(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), _vrcon(0), pir_set(0), m_tmrl(0), m_eccpas(0) { value.put(0); cm_input[0]=cm_input[1]=cm_input[2]=cm_input[3]=0; cm_output[0] = cm_output[1] = 0; cm_input_pin[0]=cm_input_pin[1]=cm_input_pin[2]=cm_input_pin[3]=0; cm_output_pin[0]=cm_output_pin[1]=0; cm_source[0]=cm_source[1]=0; cm_stimulus[0]=cm_stimulus[1]=cm_stimulus[2]=cm_stimulus[3]=0; } CMCON::~CMCON() { unsigned int mode = value.get() & 0x07; for(int i = 0; i <2; i++) { if (cm_source[i]) { int cfg = m_configuration_bits[i][mode] & CFG_MASK; // Our Source active so port still defined if cm_output defined, // set default source. if (cfg == i && cm_output[i]) cm_output[i]->setSource(0); delete cm_source[i]; } } if (cm_stimulus[0]) delete cm_stimulus[0]; if (cm_stimulus[1]) delete cm_stimulus[1]; if (cm_stimulus[2]) delete cm_stimulus[2]; if (cm_stimulus[3]) delete cm_stimulus[3]; free(cm_input_pin[0]); free(cm_input_pin[1]); free(cm_input_pin[2]); free(cm_input_pin[3]); free(cm_output_pin[0]); free(cm_output_pin[1]); } void CMCON::releasePin(int i) { if (cm_output[i]) cm_output[i]->setSource(0); if (cm_source[i]) delete cm_source[i]; cm_output[i] = 0; cm_source[i] = 0; } void CMCON::setINpin(int i, PinModule *newPinModule) { if (newPinModule == NULL) return; cm_input[i] = newPinModule; cm_input_pin[i] = strdup(newPinModule->getPin().name().c_str()); } void CMCON::setOUTpin(int i, PinModule *newPinModule) { if (newPinModule == NULL) return; cm_output[i] = newPinModule; cm_output_pin[i] = strdup(newPinModule->getPin().name().c_str()); } void CMCON::assign_pir_set(PIR_SET *new_pir_set) { pir_set = new_pir_set; } double CMCON::comp_voltage(int ind, int invert) { double Voltage; switch(ind) { case VREF: Voltage = _vrcon->get_Vref(); break; case NO_IN: Voltage = invert ? 5. : 0.; break; default: Voltage = cm_input[ind]->getPin().get_nodeVoltage(); break; } return Voltage; } /* ** get() ** read the comparator inputs and set C2OUT and C1OUT ** as required. Also drive output pins if required. */ unsigned int CMCON::get() { unsigned int cmcon_val = value.get(); int mode = cmcon_val & 0x07; int i; for (i = 0; i < 2; i++) { double Vhigh; double Vlow; bool out_true; int out; int invert_bit = (i == 0) ? C1INV : C2INV; int output_bit = (i == 0) ? C1OUT : C2OUT; int shift = (cmcon_val & CIS) ? CFG_SHIFT : CFG_SHIFT*3; if ((m_configuration_bits[i][mode] & CFG_MASK) != ZERO) { Vhigh = comp_voltage( (m_configuration_bits[i][mode] >> shift) & CFG_MASK, cmcon_val & invert_bit); Vlow = comp_voltage( (m_configuration_bits[i][mode] >> (shift + CFG_SHIFT)) & CFG_MASK, (cmcon_val & invert_bit) == 0); if (Vhigh > Vlow) out_true = (cmcon_val & invert_bit)?false:true; else out_true = (cmcon_val & invert_bit)?true:false; if (out_true) cmcon_val |= output_bit; else cmcon_val &= ~output_bit; if ( (out = m_configuration_bits[i][mode] & CFG_MASK) < 2) { cm_source[out]->putState(out_true); cm_output[out]->updatePinModule(); update(); } } else // Don't care about inputs, register value 0 cmcon_val &= ~output_bit; } if (value.get() ^ cmcon_val) // change of state { int diff = value.get() ^ cmcon_val; // Signal ECCPAS ? if (m_eccpas) { if (diff & C1OUT) m_eccpas->c1_output(cmcon_val & C1OUT); if (diff & C2OUT) m_eccpas->c2_output(cmcon_val & C2OUT); } // Generate interupt ? if (pir_set) { if (diff & C1OUT) pir_set->set_c1if(); if (diff & C2OUT) pir_set->set_c2if(); } } if (m_tmrl) m_tmrl->compare_gate((cmcon_val & C1OUT) == C1OUT); value.put(cmcon_val); return(cmcon_val); } void CMCON::put(unsigned int new_value) { unsigned int mode = new_value & 0x7; unsigned int in_mask = 0; unsigned int out_mask = 0; unsigned int configuration; int i; if (verbose) cout << "CMCON::put(new_value) =" << hex << new_value << endl; trace.raw(write_trace.get() | value.get()); // Determine used input and output pins for(i = 0; i < 2; i++) { configuration = m_configuration_bits[i][mode]; if ((configuration & CFG_MASK) < 2) out_mask |= (1 << (configuration & CFG_MASK)); for(int j = 0; j < 4; j++) { configuration >>= CFG_SHIFT; if ((configuration & CFG_MASK) < 4) in_mask |= (1 << (configuration & CFG_MASK)); } } if (verbose) cout << "CMCON::put in_mask=" << in_mask << " out_mask=" << out_mask << endl; if ((mode != 0) && (mode != 7) && ! cm_stimulus[0]) // initialize stimulus { cm_stimulus[0] = new CM_stimulus(this, "cm_stimulus_1", 0, 1e12); cm_stimulus[1] = new CM_stimulus(this, "cm_stimulus_2", 0, 1e12); cm_stimulus[2] = new CM_stimulus(this, "cm_stimulus_3", 0, 1e12); cm_stimulus[3] = new CM_stimulus(this, "cm_stimulus_4", 0, 1e12); } // // setup outputs // for( i = 0; i < 2 && cm_output[i]; i++) { if (out_mask & (1<getPin().newGUIname(name); cm_output[i]->setSource(cm_source[i]); } else if (cm_source[i]) { cm_output[i]->getPin().newGUIname(cm_output[i]->getPin().name().c_str()); cm_output[i]->setSource(0); } } // // setup inputs for(i = 0; i < 4 && cm_input[i]; i++) { const char *name = cm_input[i]->getPin().GUIname().c_str(); if (cm_input[i]->getPin().snode) { if (in_mask & (1 << i)) (cm_input[i]->getPin().snode)->attach_stimulus(cm_stimulus[i]); else (cm_input[i]->getPin().snode)->detach_stimulus(cm_stimulus[i]); } // rewrite GUI name as required if (in_mask & (1 << i) ) { char newname[20]; if (strncmp(name, "an", 2)) { sprintf(newname, "an%d", i); cm_input[i]->AnalogReq(this, true, newname); } } else { if (!strncmp(name, "an", 2)) cm_input[i]->AnalogReq(this, false, cm_input[i]->getPin().name().c_str()); } } // if only one comparator, mask C2INV if (!cm_output[1]) new_value &= 0x1f; value.put(new_value); if (verbose) cout << "CMCON::put() val=0x" << hex << new_value <value.put(m_cm2con1->value.get() | CM2CON1::MC1OUT); if (m_srcon->value.get() & SRCON::C1SEN) { m_srcon->set = TRUE; if (!m_srcon->reset) m_srcon->SR_Q = TRUE; } } else { m_cm2con1->value.put(m_cm2con1->value.get() & ~CM2CON1::MC1OUT); if (m_srcon->value.get() & SRCON::C1SEN) { m_srcon->set = FALSE; } } if (m_eccpas) m_eccpas->c1_output(cmcon_val & OUT); // Generate interupt ? if (pir_set) { pir_set->set_c1if(); } } if (cmcon_val & OE) // output pin enabled { if (!(m_srcon->value.get() & SRCON::SR0)) //SRCON select comparator output { cm_source->putState((cmcon_val & OUT) != 0); } else // RS latch output { cm_source->putState(m_srcon->SR_Q); } cm_output->updatePinModule(); update(); } } double CM1CON0::CVref() { if (m_cm2con1->value.get() & CM2CON1::C1RSEL) return(m_vrcon->get_Vref()); else return(0.6); } void CM2CON0::state_change(unsigned int cmcon_val) { if (value.get() ^ cmcon_val) // change of state { // Mirror C2OUT in CM2CON1::MC2OUT if (cmcon_val & OUT) m_cm2con1->value.put(m_cm2con1->value.get() | CM2CON1::MC2OUT); else m_cm2con1->value.put(m_cm2con1->value.get() & ~CM2CON1::MC2OUT); // Generate interupt ? if (pir_set) pir_set->set_c2if(); } if (m_tmrl) { m_tmrl->compare_gate((cmcon_val & OUT) == OUT); } if (m_eccpas) m_eccpas->c2_output(cmcon_val & OUT); if (cmcon_val & OE) // output pin enabled { if (!(m_srcon->value.get() & SRCON::SR1)) //SRCON select comparator output { cm_source->putState((cmcon_val & OUT) != 0); } else // RS latch output { cm_source->putState(!m_srcon->SR_Q); } cm_output->updatePinModule(); update(); } } double CM2CON0::CVref() { if (m_cm2con1->value.get() & CM2CON1::C2RSEL) return(m_vrcon->get_Vref()); else return(0.6); } CM1CON0_2::~CM1CON0_2() { if (cm_stimulus[0]) delete cm_stimulus[0]; if (cm_stimulus[1]) delete cm_stimulus[1]; cm_stimulus[0] = 0; cm_stimulus[1] = 0; if (cm_cvref) delete cm_cvref; if (cm_v06ref) delete cm_v06ref; } void CM1CON0_2::state_change(unsigned int cmcon_val) { if (!cm_stimulus[0]) { cm_stimulus[0] = new CM_stimulus((CMCON *)this, "cm1_stimulus_1", 0, 1e12); cm_stimulus[1] = new CM_stimulus((CMCON *)this, "cm1_stimulus_2", 0, 1e12); cm_cvref = new CM_stimulus((CMCON *)this, "cm1_cvref", 0, 1e12); cm_v06ref = new CM_stimulus((CMCON *)this, "cm1_v06ref", 0, 1e12); ((Processor *)cpu)->CVREF->attach_stimulus(cm_cvref); ((Processor *)cpu)->V06REF->attach_stimulus(cm_v06ref); } if (value.get() ^ cmcon_val) // change of state { // Mirror C1OUT in CM2CON1::MC1OUT if (cmcon_val & OUT) { m_cm2con1->value.put(m_cm2con1->value.get() | CM2CON1::MC1OUT); if (m_srcon->value.get() & SRCON::C1SEN) { m_srcon->set = TRUE; if (!m_srcon->reset) m_srcon->SR_Q = TRUE; } } else { m_cm2con1->value.put(m_cm2con1->value.get() & ~CM2CON1::MC1OUT); if (m_srcon->value.get() & SRCON::C1SEN) { m_srcon->set = FALSE; } } if (m_eccpas) m_eccpas->c1_output(cmcon_val & OUT); // Generate interupt ? if (pir_set) { pir_set->set_c1if(); } } if (cmcon_val & OE) // output pin enabled { if (!(m_srcon->value.get() & SRCON::SR0)) //SRCON select comparator output { cm_source->putState((cmcon_val & OUT) != 0); } else // RS latch output { cm_source->putState(m_srcon->SR_Q); } cm_output->updatePinModule(); update(); } } double CM1CON0_2::CVref() { Dprintf(("%x vrcon %x CVREF %.1f V06REF %.1f\n", m_vrcon->value.get(), ((Processor *)cpu)->CVREF->get_nodeVoltage(), ((Processor *)cpu)->V06REF->get_nodeVoltage())); if (m_vrcon->value.get() & VRCON_2::C1VREN) return(((Processor *)cpu)->CVREF->get_nodeVoltage()); else return(((Processor *)cpu)->V06REF->get_nodeVoltage()); } void CM2CON0_2::state_change(unsigned int cmcon_val) { if (value.get() ^ cmcon_val) // change of state { // Mirror C2OUT in CM2CON1::MC2OUT if (cmcon_val & OUT) m_cm2con1->value.put(m_cm2con1->value.get() | CM2CON1::MC2OUT); else m_cm2con1->value.put(m_cm2con1->value.get() & ~CM2CON1::MC2OUT); // Generate interupt ? if (pir_set) pir_set->set_c2if(); } if (m_tmrl) { m_tmrl->compare_gate((cmcon_val & OUT) == OUT); } if (m_eccpas) m_eccpas->c2_output(cmcon_val & OUT); if (cmcon_val & OE) // output pin enabled { if (!(m_srcon->value.get() & SRCON::SR1)) //SRCON select comparator output { cm_source->putState((cmcon_val & OUT) != 0); } else // RS latch output { cm_source->putState(!m_srcon->SR_Q); } cm_output->updatePinModule(); update(); } } double CM2CON0_2::CVref() { if (m_vrcon->value.get() & VRCON_2::C2VREN) return(((Processor *)cpu)->CVREF->get_nodeVoltage()); else return(((Processor *)cpu)->V06REF->get_nodeVoltage()); } CM12CON0::CM12CON0(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), m_vrcon(0), m_cm2con1(0), m_srcon(0), pir_set(0), m_tmrl(0) { value.put(0); cm_input[0]=cm_input[1]=cm_input[2]=cm_input[3]=cm_input[4]=0; cm_output = 0; cm_source=0; cm_stimulus[0]=cm_stimulus[1]=0; cm_snode[0]=cm_snode[1]=0; } CM12CON0::~CM12CON0() { if ((value.get() & (ON | OE)) && cm_output) cm_output->setSource(0); if (cm_source) delete cm_source; if ((!cm_snode[0]) && cm_stimulus[0]) delete cm_stimulus[0]; if ((!cm_snode[1]) && cm_stimulus[1]) delete cm_stimulus[1]; } void CM12CON0::put(unsigned int new_value) { unsigned int old_val = value.get(); if (verbose) cout << "CM12CON0::put(new_value) =" << hex << new_value << endl; if (new_value & (ON | OE)) cm_output->setSource(cm_source); else cm_output->setSource(0); // ON/OFF or channel change if ((old_val ^ (new_value & 0xf7)) & ( ON | R | CH1 | CH0)) { if (new_value & ON) { int channel = new_value & (CH1 | CH0); if ( !(new_value & R)) // Monitor input for CIN+ { if (cm_snode[0] == NULL) { cm_snode[0] = cm_input[4]->getPin().snode; if (cm_snode[0]) cm_snode[0]->attach_stimulus(cm_stimulus[0]); } } else if (cm_snode[0] != NULL) // Using CVref so turn off monitoring { cm_snode[0]->detach_stimulus(cm_stimulus[0]); cm_snode[0] = NULL; } if (cm_snode[1] == NULL) // No CIN- monitoring active { cm_snode[1] = cm_input[channel]->getPin().snode; if (cm_snode[1]) cm_snode[1]->attach_stimulus(cm_stimulus[1]); } // Change CIN- monitoring if on differnt pin else if (cm_snode[1] != cm_input[channel]->getPin().snode) { cm_snode[1]->detach_stimulus(cm_stimulus[1]); cm_snode[1] = cm_input[channel]->getPin().snode; if (cm_snode[1]) cm_snode[1]->attach_stimulus(cm_stimulus[1]); } } else // turning off, stop all monitoring of pins { if (cm_snode[0] != NULL) { cm_snode[0]->detach_stimulus(cm_stimulus[0]); cm_snode[0] = NULL; } if (cm_snode[1] != NULL) { cm_snode[1]->detach_stimulus(cm_stimulus[1]); cm_snode[1] = NULL; } } } trace.raw(write_trace.get() | value.get()); value.put(new_value & 0xf7); get(); // update comparator values } /* ** get() ** read the comparator inputs and set C2OUT and C1OUT ** as required. Also drive output pins if required. */ unsigned int CM12CON0::get() { unsigned int cmcon_val = value.get(); bool out_true; if (cmcon_val & ON) { double Vhigh; double Vlow; Vlow = cm_input[cmcon_val & 0x3]->getPin().get_nodeVoltage(); if (cmcon_val & R) // use Cvref { Vhigh = CVref(); } else // use cin+ { Vhigh = cm_input[4]->getPin().get_nodeVoltage(); } Dprintf(("Vhigh %.1f Vlow %.1f\n", Vhigh, Vlow)); out_true = Vhigh > Vlow; out_true ^= ((cmcon_val & POL) == POL); } else // If not on, output same as POL { //out_true = ((cmcon_val & POL) == POL); out_true = false; } if (out_true) cmcon_val |= OUT; else cmcon_val &= ~OUT; state_change(cmcon_val); value.put(cmcon_val); return(cmcon_val); } void CM12CON0::setpins(PinModule * c12in0, PinModule * c12in1, PinModule * c12in2, PinModule * c12in3, PinModule * cinPlus, PinModule * cout) { // Multiplexed in - pins cm_input[0] = c12in0; cm_input[1] = c12in1; cm_input[2] = c12in2; cm_input[3] = c12in3; // one in + pin cm_input[4] = cinPlus; // one output pin cm_output = cout; if (! cm_source) cm_source = new CM12SignalSource(this); } void CM12CON0::releasePin() { if (cm_source) delete cm_source; cm_source = 0; cm_output = 0; } void CM12CON0::link_registers(PIR_SET *new_pir_set, CM2CON1 *_cm2con1, VRCON *_vrcon, SRCON *_srcon, ECCPAS *_eccpas) { pir_set = new_pir_set; m_cm2con1 = _cm2con1; m_vrcon = _vrcon; m_srcon = _srcon; m_eccpas = _eccpas; } //-------------------------------------------------- // Voltage reference //-------------------------------------------------- VRCON::VRCON(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), vr_PinModule(0), vr_pu(0), vr_pd(0), pin_name(0) { valid_bits = VR0|VR1|VR2|VR3|VRR|VROE|VREN; value.put(0); } VRCON::~VRCON() { free(pin_name); } void VRCON::setIOpin(PinModule *newPinModule) { if (newPinModule == NULL) return; vr_PinModule = newPinModule; pin_name = strdup(newPinModule->getPin().name().c_str()); } double VRCON::get_Vref() { unsigned int new_value = value.get(); Vref_high = ((Processor *)cpu)->get_Vdd(); Vref_low = 0.0; vr_Rhigh = (8 + (16 - (new_value & 0x0f))) * 2000.; vr_Rlow = (new_value & 0x0f) * 2000.; if (! (new_value & VRR)) // High range ? vr_Rlow += 16000.; vr_Vref = (Vref_high - Vref_low) * vr_Rlow / (vr_Rhigh + vr_Rlow) + Vref_low; if (verbose) { cout << "VRCON::put Rhigh=" <getPin().name().c_str())) vr_PinModule->getPin().newGUIname("Vref"); if (vr_PinModule->getPin().snode) { vr_pu->set_Zth(vr_Rhigh); vr_pd->set_Zth(vr_Rlow); vr_PinModule->getPin().snode->attach_stimulus(vr_pu); vr_PinModule->getPin().snode->attach_stimulus(vr_pd); vr_PinModule->getPin().snode->update(); } } else if (vr_PinModule) // not outputing voltage to pin { if (!strcmp("Vref", vr_PinModule->getPin().name().c_str())) vr_PinModule->getPin().newGUIname(pin_name); if (diff & 0x2f) // did value of vreference change ? _cmcon->get(); if(vr_PinModule && vr_PinModule->getPin().snode) { vr_PinModule->getPin().snode->detach_stimulus(vr_pu); vr_PinModule->getPin().snode->detach_stimulus(vr_pd); vr_PinModule->getPin().snode->update(); } } else // output pin not defined { if (diff & 0x2f) // did value of vreference change ? _cmcon->get(); } } else // vref disable { if (vr_PinModule && !strcmp("Vref", vr_PinModule->getPin().name().c_str())) vr_PinModule->getPin().newGUIname(pin_name); if(vr_PinModule && vr_PinModule->getPin().snode) { vr_PinModule->getPin().snode->detach_stimulus(vr_pu); vr_PinModule->getPin().snode->detach_stimulus(vr_pd); vr_PinModule->getPin().snode->update(); } } } //-------------------------------------------------- // Voltage reference //-------------------------------------------------- class P16F631; VRCON_2::VRCON_2(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc) { value.put(0); vr_06v = new stimulus("vref_06v", 0.0, 100.); vr_pu = new stimulus("Cvref_pu", 0.0 , 48000.); vr_pd = new stimulus("Cvref_pd", 0.0, 0.0); ((Processor *)cpu)->CVREF = new Stimulus_Node("CVREF"); ((Processor *)cpu)->V06REF = new Stimulus_Node("V0.6REF"); ((Processor *)cpu)->CVREF->attach_stimulus(vr_pu); ((Processor *)cpu)->CVREF->attach_stimulus(vr_pd); ((Processor *)cpu)->V06REF->attach_stimulus(vr_06v); } VRCON_2::~VRCON_2() { delete vr_06v; delete vr_pu; delete vr_pd; delete ((Processor *)cpu)->CVREF; delete ((Processor *)cpu)->V06REF; } void VRCON_2::put(unsigned int new_value) { unsigned int old_value = value.get(); unsigned int diff = new_value ^ old_value; trace.raw(write_trace.get() | value.get()); if (verbose & 2) cout << "VRCON_2::put old=" << hex << old_value << " new=" << new_value << endl; if (!diff) return; value.put(new_value); // Turn 0.6 V reference on or off ? if (diff & VP6EN) { if (new_value & VP6EN) vr_06v->set_Vth(0.6); else vr_06v->set_Vth(0.0); ((Processor *)cpu)->V06REF->update(); } if(diff & (C1VREN | C2VREN | VRR | VR3 | VR2 | VR1 | VR0)) { double vr_Rhigh, vr_Rlow; if(new_value & (C1VREN | C2VREN)) vr_pu->set_Vth(((Processor *)cpu)->get_Vdd()); else vr_pu->set_Vth(0.0); vr_Rhigh = (8 + (16 - (new_value & 0x0f))) * 2000.; vr_pu->set_Zth(vr_Rhigh); vr_Rlow = (new_value & 0x0f) * 2000.; if (! (new_value & VRR)) // High range ? vr_Rlow += 16000.; vr_pd->set_Zth(vr_Rlow); ((Processor *)cpu)->CVREF->update(); ((Processor *)cpu)->CVREF->update(); } } CMxCON0::CMxCON0(Processor *pCpu, const char *pName, const char *pDesc, unsigned int _cm, ComparatorModule2 *cmModule) : sfr_register(pCpu, pName, pDesc), cm(_cm), m_cmModule(cmModule), cm_source(0) { } CMxCON0::~CMxCON0() { if (cm_source) delete cm_source; } void CMxCON0::put(unsigned int new_value) { unsigned int old_value = value.get(); new_value &= mValidBits; unsigned int diff = new_value ^ old_value; if (diff == 0) { get(); return; } trace.raw(write_trace.get() | value.get()); value.put(new_value); if (diff & CxOE) { PinModule *out_pin = m_cmModule->cmxcon1[cm]->output_pin(); if(new_value & CxOE) { char name[20]; if ( ! cm_source) cm_source = new PeripheralSignalSource(out_pin); sprintf(name, "c%dout", cm+1); assert(out_pin); out_pin->getPin().newGUIname(name); out_pin->setSource(cm_source); } else if (cm_source) // Enable output enable turned off { out_pin->getPin().newGUIname(out_pin->getPin().name().c_str()); out_pin->setSource(0); } } get(); } // // evaluate inputs and determine output // unsigned int CMxCON0::get() { bool output; unsigned int cmxcon0 = value.get(); double Vpos = m_cmModule->cmxcon1[cm]->get_Vpos(); double Vneg = m_cmModule->cmxcon1[cm]->get_Vneg(); bool old_out = cmxcon0 & CxOUT; if (! cmxcon0 & CxON) output = false; else if (cmxcon0 & CxHYS) { bool cxout = cmxcon0 & CxOUT; if (cmxcon0 & CxPOL) cxout = !cxout; output = cxout; if (cxout && (Vpos + 0.05) < Vneg) output = false; else if (!cout && Vpos > (Vneg + 0.05)) output = true; } else { output = Vpos > Vneg; } if (cmxcon0 & CxPOL) output = !output; if(output) cmxcon0 |= CxOUT; else cmxcon0 &= ~CxOUT; Dprintf(("cm%d Vpos %.2f Vneg %.2f POL %d output %d cmxcon0=%x\n", cm+1, Vpos, Vneg, (bool)(cmxcon0 & CxPOL), output, cmxcon0)); value.put(cmxcon0); m_cmModule->set_cmout(cm, output); if (cmxcon0 & CxOE) { cm_source->putState(output?'1':'0'); m_cmModule->cmxcon1[cm]->output_pin()->updatePinModule(); } if (old_out != output) // state change { // Positive going edge, set interrupt ? if (output && (m_cmModule->cmxcon1[cm]->value.get() & CMxCON1::CxINTP)) m_cmModule->set_if(cm); // Negative going edge, set interrupt ? if (!output && (m_cmModule->cmxcon1[cm]->value.get() & CMxCON1::CxINTN)) m_cmModule->set_if(cm); } return cmxcon0; } CMxCON1::CMxCON1(Processor *pCpu, const char *pName, const char *pDesc, unsigned int _cm, ComparatorModule2 *cmModule) : sfr_register(pCpu, pName, pDesc), cm(_cm), m_cmModule(cmModule) { cm_stimulus[NEG] = new CM_stimulus((CMCON *)m_cmModule->cmxcon0[cm], "cm_stimulus_-", 0, 1e12); cm_stimulus[POS] = new CM_stimulus((CMCON *)m_cmModule->cmxcon0[cm], "cm_stimulus_+", 0, 1e12); stimulus_pin[NEG] = 0; stimulus_pin[POS] = 0; for(int i = 0; i<5; i++) cm_inputNeg[i] = 0; for(int i = 0; i<2; i++) cm_inputPos[i] = 0; cm_output = 0; } CMxCON1::~CMxCON1() { delete cm_stimulus[NEG]; delete cm_stimulus[POS]; } double CMxCON1::get_Vneg() { unsigned int cxNchan = value.get() & CxNMASK; if (!stimulus_pin[NEG]) setPinStimulus(cm_inputNeg[cxNchan], NEG); return cm_inputNeg[cxNchan]->getPin().get_nodeVoltage(); } double CMxCON1::get_Vpos() { unsigned int cxPchan = (value.get() & CxPMASK) >> 3; double Voltage; switch(cxPchan) { case 0: if (!stimulus_pin[POS]) setPinStimulus(cm_inputPos[cxPchan], POS); Voltage = cm_inputPos[cxPchan]->getPin().get_nodeVoltage(); break; case 2: Voltage = m_cmModule->DAC_voltage; break; case 4: Voltage = m_cmModule->FVR_voltage; break; default: printf("CMxCON1::get_Vpos unexpected Pchan %x\n", cxPchan); case 6: Voltage = 0.; break; } return Voltage; } // Attach a stimulus to an input pin so that changes // in the pin voltage can be reflected in the comparator output. // // pin may be 0 in which case a current stimulus, if any, will be detached // pol is either the enum POS or NEG // void CMxCON1::setPinStimulus(PinModule *pin, bool pol) { if (pin == stimulus_pin[pol]) return; if (stimulus_pin[pol]) { (stimulus_pin[pol]->getPin().snode)->detach_stimulus(cm_stimulus[pol]); stimulus_pin[pol] = 0; } if (pin && pin->getPin().snode) { stimulus_pin[pol] = pin; (stimulus_pin[pol]->getPin().snode)->attach_stimulus(cm_stimulus[pol]); } } void CMxCON1::put(unsigned int new_value) { unsigned int old_value = value.get(); new_value &= mValidBits; unsigned int diff = old_value ^ new_value; trace.raw(write_trace.get() | value.get()); value.put(new_value); if ((diff & CxNMASK) || !stimulus_pin[NEG]) { unsigned int cxNchan = new_value & CxNMASK; setPinStimulus(cm_inputNeg[cxNchan], NEG); } if ((diff & CxPMASK) || !stimulus_pin[POS]) { unsigned int cxPchan = (new_value & CxPMASK) >> 3; if (cxPchan == 0) setPinStimulus(cm_inputPos[cxPchan], POS); else if (stimulus_pin[POS]) setPinStimulus(0, POS); } m_cmModule->run_get(cm); } void CMxCON1::set_OUTpin(PinModule *pin_cm0) { cm_output = pin_cm0; } void CMxCON1::set_INpinNeg(PinModule *pin_cm0, PinModule *pin_cm1, PinModule *pin_cm2, PinModule *pin_cm3, PinModule *pin_cm4) { cm_inputNeg[0] = pin_cm0; cm_inputNeg[1] = pin_cm1; cm_inputNeg[2] = pin_cm2; cm_inputNeg[3] = pin_cm3; cm_inputNeg[4] = pin_cm4; } void CMxCON1::set_INpinPos(PinModule *pin_cm0, PinModule *pin_cm1) { cm_inputPos[0] = pin_cm0; cm_inputPos[1] = pin_cm1; } ComparatorModule2::ComparatorModule2(Processor *pCpu) { for(int i = 0; i < 4; i++) { cmxcon0[i] = 0; cmxcon1[i] = 0; } cmout = 0; t1gcon = 0; } ComparatorModule2::~ComparatorModule2() { for(int i = 0; i < 4; i++) { if (cmxcon0[i]) delete cmxcon0[i]; if (cmxcon1[i]) delete cmxcon1[i]; } if (cmout) delete cmout; } // this function sets the bits in the CMOUT register and also // sends the state to the T1GCON class if t1gcon is defined // void ComparatorModule2::set_cmout(unsigned int bit, bool value) { if (value) cmout->value.put(cmout->value.get() | (1<value.put(cmout->value.get() & ~(1<CM1_gate(value); if (sr_module) sr_module->syncC1out(value); break; case 1: //CM2 if (t1gcon) t1gcon->CM2_gate(value); if (sr_module) sr_module->syncC2out(value); break; default: //Do nonthing other CMs break; } } void ComparatorModule2::set_DAC_volt(double _volt) { DAC_voltage = _volt; for (int i=0; i < 4; i++) { if (cmxcon0[i]) cmxcon0[i]->get(); } } void ComparatorModule2::set_FVR_volt(double _volt) { FVR_voltage = _volt; for (int i=0; i < 4; i++) { if (cmxcon0[i]) cmxcon0[i]->get(); } } // set interrupt for comparator cm void ComparatorModule2::set_if(unsigned int cm) { switch(cm) { case 0: pir_set->set_c1if(); break; case 1: pir_set->set_c2if(); break; case 2: pir_set->set_c3if(); break; case 3: pir_set->set_c4if(); break; } } gpsim-0.27.0/src/16bit-instructions.h0000664000076400007640000010246112140667633014315 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __16BIT_INSTRUCTIONS_H__ #define __16BIT_INSTRUCTIONS_H__ #include "14bit-instructions.h" #include "16bit-registers.h" /*--------------------------------------------------------- * 16bit-instructions.h * * This .h file contains the definitions for the 16-bit core * instructions (the 16bit core of the 18cxxx processors that * is). Most of the instructions are derived from the corresponding * 12 and 14 bit core instructions. However, the virtual function * 'execute' is replaced. This is because the memory addressing and * the status register are different for the 16bit core. The alternative is * is to patch the existing instructions with the 16bit stuff. * I feel that this is an unwarranted performance hit. So gpsim * is slightly bigger, but it's also slightly faster... */ //--------------------------------------------------------- class Branching : public instruction { public: int destination_index; unsigned int absolute_destination_index; Branching(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(){ }; virtual void debug(){ }; virtual char *name(char *,int); virtual bool isBase() { return true;} void decode(Processor *new_cpu, unsigned int new_opcode); }; //--------------------------------------------------------- class multi_word_instruction : public instruction { public: unsigned int word2_opcode; unsigned int PMaddress; unsigned int PMindex; bool initialized; multi_word_instruction(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual int instruction_size() { return 2;} virtual enum INSTRUCTION_TYPES isa() {return MULTIWORD_INSTRUCTION;}; virtual bool isBase() { return true;} virtual void initialize(bool init_state) { initialized = init_state; } }; //--------------------------------------------------------- class multi_word_branch : public multi_word_instruction { public: unsigned int destination_index; multi_word_branch(Processor *new_cpu, unsigned int new_opcode, unsigned int address); void runtime_initialize(); virtual void execute(){}; virtual char *name(char *,int); }; //--------------------------------------------------------- class ADDULNK : public instruction { public: ADDULNK(Processor *new_cpu, unsigned int new_opcode,const char *, unsigned int address); virtual bool isBase() { return true;} virtual void execute(); virtual char *name(char *,int); protected: unsigned int m_lit; }; //--------------------------------------------------------- class ADDFSR16 : public instruction { public: ADDFSR16(Processor *new_cpu, unsigned int new_opcode,const char *, unsigned int address); virtual bool isBase() { return true;} virtual void execute(); virtual char *name(char *,int); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) { if (((new_opcode>>6)&3) == 3) { if (new_opcode & 0x100) return new ADDULNK(new_cpu,new_opcode,"subulnk", address); else return new ADDULNK(new_cpu,new_opcode,"addulnk", address); } if (new_opcode & 0x100) return new ADDFSR16(new_cpu,new_opcode,"subfsr", address); return new ADDFSR16(new_cpu,new_opcode,"addfsr", address); } protected: unsigned int m_fsr; unsigned int m_lit; Indirect_Addressing *ia; }; //--------------------------------------------------------- class CALLW16 : public CALLW { public: CALLW16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : CALLW(new_cpu, new_opcode, address){}; virtual bool isBase() { return true;} virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) { return new CALLW16(new_cpu,new_opcode,address); } }; //--------------------------------------------------------- class MOVSF : public multi_word_instruction { public: MOVSF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual char *name(char *,int); void runtime_initialize(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new MOVSF(new_cpu,new_opcode,address);} protected: unsigned int source,destination; }; //--------------------------------------------------------- class PUSHL : public instruction { public: PUSHL(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual bool isBase() { return true;} virtual void execute(); virtual char *name(char *,int); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) { return new PUSHL(new_cpu,new_opcode,address); } protected: unsigned int m_lit; }; //--------------------------------------------------------- class ADDLW16 : public ADDLW { public: ADDLW16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : ADDLW(new_cpu, new_opcode,address) {}; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new ADDLW16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class ADDWF16 : public ADDWF { public: int i; ADDWF16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : ADDWF(new_cpu,new_opcode,address){}; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new ADDWF16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class ADDWFC16 : public ADDWFC { public: ADDWFC16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : ADDWFC(new_cpu,new_opcode,address){}; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new ADDWFC16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class ANDLW16 : public ANDLW { public: ANDLW16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : ANDLW(new_cpu, new_opcode,address) {}; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new ANDLW16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class ANDWF16 : public ANDWF { public: ANDWF16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : ANDWF(new_cpu,new_opcode,address){}; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new ANDWF16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class BC : public Branching { public: BC(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new BC(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class BN : public Branching { public: BN(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new BN(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class BNC : public Branching { public: BNC(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new BNC(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class BNN : public Branching { public: BNN(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new BNN(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class BNOV : public Branching { public: BNOV(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new BNOV(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class BNZ : public Branching { public: BNZ(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new BNZ(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class BOV : public Branching { public: BOV(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new BOV(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class BRA16 : public instruction { public: int destination_index; unsigned int absolute_destination_index; BRA16(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual char *name(char *,int); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new BRA16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class BSF16 : public BSF { public: int i; BSF16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : BSF(new_cpu,new_opcode,address){}; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new BSF16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class BCF16 : public BCF { public: int i; BCF16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : BCF(new_cpu,new_opcode,address){}; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new BCF16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class BTFSC16 : public BTFSC { public: int i; BTFSC16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : BTFSC(new_cpu,new_opcode,address){}; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new BTFSC16(new_cpu,new_opcode,address);} }; //----------------------------------------------------------- class BTFSS16 : public BTFSS { public: int i; BTFSS16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : BTFSS(new_cpu,new_opcode,address){}; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new BTFSS16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class BTG : public Bit_op { public: BTG(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new BTG(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class BZ : public Branching { public: BZ(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new BZ(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class CALL16 : public multi_word_branch { public: bool fast; CALL16(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new CALL16(new_cpu,new_opcode,address);} virtual char *name(char *,int); }; //----------------------------------------------------------- class CLRF16 : public CLRF { public: CLRF16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : CLRF(new_cpu,new_opcode,address){}; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new CLRF16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class COMF16 : public COMF { public: COMF16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : COMF(new_cpu,new_opcode,address){}; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new COMF16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class CPFSEQ : public Register_op { public: CPFSEQ(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new CPFSEQ(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class CPFSGT : public Register_op { public: CPFSGT(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new CPFSGT(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class CPFSLT : public Register_op { public: CPFSLT(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new CPFSLT(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class DAW : public instruction { public: DAW(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new DAW(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class DECF16 : public DECF { public: DECF16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : DECF(new_cpu,new_opcode,address){}; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new DECF16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class DECFSZ16 : public DECFSZ { public: DECFSZ16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : DECFSZ(new_cpu,new_opcode,address){}; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new DECFSZ16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class DCFSNZ : public Register_op { public: DCFSNZ(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new DCFSNZ(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class GOTO16 : public multi_word_branch { public: GOTO16(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new GOTO16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class INCF16 : public INCF { public: INCF16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : INCF(new_cpu,new_opcode,address){}; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new INCF16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class INCFSZ16 : public INCFSZ { public: INCFSZ16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : INCFSZ(new_cpu,new_opcode,address){}; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new INCFSZ16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class INFSNZ : public Register_op { public: INFSNZ(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new INFSNZ(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class IORLW16 : public IORLW { public: IORLW16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : IORLW(new_cpu, new_opcode,address) {}; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new IORLW16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class IORWF16 : public IORWF { public: IORWF16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : IORWF(new_cpu,new_opcode,address){}; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new IORWF16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class LCALL16 : public multi_word_branch { public: bool fast; LCALL16(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new LCALL16(new_cpu,new_opcode,address);} virtual char *name(char *,int); }; //--------------------------------------------------------- class LFSR : public multi_word_instruction { public: unsigned int fsr,k; Indirect_Addressing *ia; LFSR(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual char *name(char *,int); void runtime_initialize(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new LFSR(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class MOVF16 : public MOVF { public: MOVF16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : MOVF(new_cpu,new_opcode,address){}; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new MOVF16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class MOVFF : public multi_word_instruction { public: unsigned int source,destination; MOVFF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual char *name(char *,int); void runtime_initialize(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new MOVFF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class MOVFP : public multi_word_instruction { public: unsigned int source,destination; MOVFP(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual char *name(char *,int); void runtime_initialize(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new MOVFP(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class MOVLB16 : public Literal_op { public: MOVLB16(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new MOVLB16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class MOVLR : public Literal_op { public: MOVLR(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new MOVLR(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class MOVPF : public multi_word_instruction { public: unsigned int source,destination; MOVPF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual char *name(char *,int); void runtime_initialize(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new MOVPF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class MOVWF16 : public MOVWF { public: MOVWF16(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new MOVWF16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- #ifdef RRR class MOVWF16a : public MOVWF { public: MOVWF16a(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new MOVWF16a(new_cpu,new_opcode,address);} }; #endif //RRR //--------------------------------------------------------- class MULLW : public Literal_op { public: MULLW(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new MULLW(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class MULWF : public Register_op { public: MULWF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new MULWF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class NEGF : public Register_op { public: NEGF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new NEGF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class NEGW : public Register_op { public: NEGW(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new NEGW(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class POP : public instruction { public: POP(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new POP(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class PUSH : public instruction { public: PUSH(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new PUSH(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class RCALL : public instruction { public: int destination_index; unsigned int absolute_destination_index; RCALL(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual char *name(char *,int); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new RCALL(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class RETFIE16 : public RETFIE { public: bool fast; RETFIE16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : RETFIE(new_cpu,new_opcode,address) { fast = (new_opcode & 1); }; virtual void execute(); virtual char *name(char *,int); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new RETFIE16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class RETURN16 : public RETURN { public: bool fast; RETURN16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : RETURN(new_cpu,new_opcode,address) { fast = (new_opcode & 1); }; virtual void execute(); virtual char *name(char *,int); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new RETURN16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class RLCF : public Register_op { public: RLCF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new RLCF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class RLNCF : public Register_op { public: RLNCF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new RLNCF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class RRCF : public Register_op { public: RRCF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new RRCF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class RRNCF : public Register_op { public: RRNCF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new RRNCF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class SETF : public Register_op { public: SETF(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new SETF(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class SLEEP16 : public SLEEP { public: SLEEP16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : SLEEP(new_cpu,new_opcode,address) { }; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new SLEEP16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class SUBFWB : public Register_op { public: SUBFWB(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new SUBFWB(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class SUBLW16 : public SUBLW { public: SUBLW16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : SUBLW(new_cpu,new_opcode,address) { }; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new SUBLW16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class SUBWF16 : public SUBWF { public: SUBWF16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : SUBWF(new_cpu,new_opcode,address) { }; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new SUBWF16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class SUBWFB16 : public SUBWFB { public: SUBWFB16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : SUBWFB(new_cpu,new_opcode,address) { }; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new SUBWFB16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class SWAPF16 : public SWAPF { public: SWAPF16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : SWAPF(new_cpu,new_opcode,address) { }; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new SWAPF16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class TBLRD : public instruction { public: TBLRD(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual char *name(char *,int); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new TBLRD(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class TBLWT : public instruction { public: TBLWT(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual char *name(char *,int); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new TBLWT(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class TLRD : public instruction { public: TLRD(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual char *name(char *,int); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new TLRD(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class TLWT : public instruction { public: TLWT(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); virtual char *name(char *,int); virtual bool isBase() { return true;} static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new TLWT(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class TSTFSZ : public Register_op { public: TSTFSZ(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new TSTFSZ(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class XORLW16 : public XORLW { public: XORLW16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : XORLW(new_cpu, new_opcode, address) {}; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new XORLW16(new_cpu,new_opcode,address);} }; //--------------------------------------------------------- class XORWF16 : public XORWF { public: XORWF16(Processor *new_cpu, unsigned int new_opcode, unsigned int address) : XORWF(new_cpu,new_opcode, address){}; virtual void execute(); static instruction *construct(Processor *new_cpu, unsigned int new_opcode, unsigned int address) {return new XORWF16(new_cpu,new_opcode,address);} }; #endif /* __12BIT_INSTRUCTIONS_H__ */ gpsim-0.27.0/src/icd.cc0000664000076400007640000006251012163444266011523 00000000000000/* Copyright (C) 2002 Ralf Forsberg This is based on the program icdprog 0.3 made by Geir Thomassen gpsim 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. gpsim 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 gpasm; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* FIXME - the design of this code needs to be revisited. Instead of making the icd a separate entity that "controls" a a processor, it makes MUCH more sense to derive the Icd class from the Processor class and let it effectively intercept and re-direct calls to the processor being debugged. This way, the gui and cli (and even external regression testing scripts) can treat the Icd just like it's another processor - no special circumstances are required. */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include "../config.h" #include "pic-processor.h" #include "icd.h" #define BAUDRATE B57600 // Not all OSs support the O_SYNC open flag #ifndef O_SYNC #define O_SYNC 0 #endif static bool use_icd = false; static int bulk_flag = 0; extern Processor *active_cpu; static int icd_fd; /* file descriptor for serial port */ static int icd_sync(void); bool get_use_icd() { return use_icd; } /////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////// class icd_Register : public Register { public: Register *replaced; int is_stale; icd_Register(Processor *); virtual REGISTER_TYPES isa(void) {return replaced->isa();}; virtual string &name(void) { if(replaced) return replaced->name(); else return gpsimObject::name(); }; virtual void put_value(unsigned int new_value); virtual void put(unsigned int new_value); virtual unsigned int get_value(void); virtual unsigned int get(void); }; class icd_StatusReg : public Status_register { public: Status_register *replaced; int is_stale; icd_StatusReg(Processor *); virtual REGISTER_TYPES isa(void) {return replaced->isa();}; virtual string &name(void) { if(replaced) return replaced->name(); else return gpsimObject::name(); } virtual void put_value(unsigned int new_value); virtual void put(unsigned int new_value); virtual unsigned int get_value(void); virtual unsigned int get(void); }; class icd_WREG : public WREG { public: WREG *replaced; int is_stale; icd_WREG(Processor *); virtual REGISTER_TYPES isa(void) {return replaced->isa();}; virtual string &name(void) { if(replaced) return replaced->name(); else return gpsimObject::name(); } virtual void put_value(unsigned int new_value); virtual void put(unsigned int new_value); virtual unsigned int get_value(void); virtual unsigned int get(void); }; class icd_PCLATH : public PCLATH { public: PCLATH *replaced; int is_stale; icd_PCLATH(Processor *); virtual REGISTER_TYPES isa(void) {return replaced->isa();}; virtual string &name(void) { if(replaced) return replaced->name(); else return gpsimObject::name(); } virtual void put_value(unsigned int new_value); virtual void put(unsigned int new_value); virtual unsigned int get_value(void); virtual unsigned int get(void); }; class icd_FSR : public FSR { public: FSR *replaced; int is_stale; icd_FSR(Processor *); virtual REGISTER_TYPES isa(void) {return replaced->isa();}; virtual string &name(void) { if(replaced) return replaced->name(); else return gpsimObject::name(); } virtual void put_value(unsigned int new_value); virtual void put(unsigned int new_value); virtual unsigned int get_value(void); virtual unsigned int get(void); }; class icd_PC : public Program_Counter { public: Program_Counter *replaced; int is_stale; icd_PC(Processor *); virtual void put_value(unsigned int new_value); virtual unsigned int get_value(void); }; /////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////// static void udelay(unsigned usec) { /* wait for msec milliseconds or more ... */ struct timespec time; time.tv_sec = usec / 1000000; time.tv_nsec = ( usec % 1000000) * 1000; nanosleep(&time,0); } static void dtr_set() { int flag = TIOCM_DTR; if(icd_fd<0) return; if(ioctl(icd_fd, TIOCMBIS, &flag)) { perror("ioctl"); throw new FatalError("ioctl"); } } static void dtr_clear() { int flag = TIOCM_DTR; if(icd_fd<0) return; if(ioctl(icd_fd, TIOCMBIC, &flag)) { perror("ioctl"); throw new FatalError("ioctl"); } } static void rts_set() { int flag = TIOCM_RTS; if(icd_fd<0) return; if(ioctl(icd_fd, TIOCMBIS, &flag)) { perror("ioctl"); throw new FatalError("ioctl"); } } static void rts_clear() { int flag = TIOCM_RTS; if(icd_fd<0) return; if(ioctl(icd_fd, TIOCMBIC, &flag)) { perror("ioctl"); throw new FatalError("ioctl"); } } void icd_hw_reset() { if(icd_fd<0) return; rts_clear(); dtr_clear(); /* reset */ udelay(10000); dtr_set(); /* remove reset */ } static int icd_write(const char *s) { if(icd_fd<0) return -1; write(icd_fd,s, strlen(s)); /* Error checking ... */ return 1; } static int icd_read(unsigned char *p, int len) { int n_read; n_read=read(icd_fd,p,1); rts_clear(); udelay(1); rts_set(); if(n_read != 1) { cout << "Error in number of bytes read \n"; cout << "len="<1) return n_read+icd_read(p+1,len-1); return n_read; } #define MAX_CMD_LEN 100 static int icd_cmd(const char *cmd, ...) { char command[MAX_CMD_LEN]; unsigned char resp[3]; va_list ap; if(icd_fd<0) return -1; va_start(ap, cmd); (void) vsnprintf(command,MAX_CMD_LEN, cmd, ap); va_end(ap); icd_write(command); if(!icd_read(resp,2)) { icd_sync(); icd_write(command); if(!icd_read(resp,2)) { cout << "Command "<0) { tries--; if(icd_cmd("$$6307\r")==1) return 1; icd_write("$"); icd_read(buf,0x42); } puts("***************** DID NOT SYNC!"); return 0; } static int icd_baudrate_init() { int tries=3; char ch; if(icd_fd<0) return 0; while(tries) { write(icd_fd,"U",1); if(read(icd_fd,&ch,1) > 0) { rts_clear(); udelay(10); rts_set(); if(ch=='u') { return 1; } } tries--; } return 0; } char *icd_target(void) { static char return_string[256]; unsigned int dev_id, type,rev; if(icd_fd<0) return 0; dev_id=icd_cmd("$$7020\r"); type = (dev_id>>5) & 0x1FF; rev = type & 0x1F; if(dev_id == 0x3FFF) { sprintf(return_string,"no target"); } else { switch(type) { case 0x68: sprintf(return_string,"16F870 rev %d",rev); break; case 0x69: sprintf(return_string,"16F871 rev %d",rev); break; case 0x47: sprintf(return_string,"16F872 rev %d",rev); break; case 0x4B: sprintf(return_string,"16F873 rev %d",rev); break; case 0x49: sprintf(return_string,"16F874 rev %d",rev); break; case 0x4F: sprintf(return_string,"16F876 rev %d",rev); break; case 0x4D: sprintf(return_string,"16F877 rev %d",rev); break; default: sprintf(return_string,"Unknown, device id = %02X",dev_id); break; } } return return_string; } struct termios oldtio, newtio; void put_dumb_register(Register **frp, int address) { Register *fr = *frp; icd_Register *ir = new icd_Register(fr->get_cpu()); //ir->set_cpu(fr->get_cpu()); *frp = ir; ir->replaced = fr; ir->address = address; } void put_dumb_status_register(Status_register **frp) { Status_register *fr = *frp; icd_StatusReg *ir = new icd_StatusReg(fr->get_cpu()); //ir->set_cpu(fr->get_cpu()); *frp = ir; ir->replaced = fr; ir->address = fr->address; } void put_dumb_pc_register(Program_Counter **frp) { Program_Counter *fr = *frp; icd_PC *ir = new icd_PC(fr->get_cpu()); *frp = ir; ir->replaced = fr; } void put_dumb_pclath_register(PCLATH **frp) { PCLATH *fr = *frp; icd_PCLATH *ir = new icd_PCLATH(fr->get_cpu()); //ir->set_cpu(fr->get_cpu()); *frp = ir; ir->replaced = fr; } void put_dumb_w_register(WREG **frp) { WREG *fr = *frp; icd_WREG *ir = new icd_WREG(fr->get_cpu()); //ir->set_cpu(fr->get_cpu()); *frp = ir; ir->replaced = fr; } void put_dumb_fsr_register(FSR **frp) { FSR *fr = *frp; icd_FSR *ir = new icd_FSR(fr->get_cpu()); //ir->set_cpu(fr->get_cpu()); *frp = ir; ir->replaced = fr; } static void create_dumb_register_file(void) { pic_processor *cpu=dynamic_cast(active_cpu); if(!cpu) return; for(unsigned int i=0;iregister_memory_size();i++) { put_dumb_register(&cpu->registers[i], i); } put_dumb_status_register(&cpu->status); put_dumb_pc_register(&cpu->pc); put_dumb_pclath_register(&cpu->pclath); put_dumb_w_register(&cpu->Wreg); put_dumb_fsr_register(&cpu->fsr); } int icd_connect(const char *port) { pic_processor *pic=dynamic_cast(active_cpu); if(!pic) { cout << "You have to load the .cod file (or .hex and processor)" << endl; return 0; } if((icd_fd=open(port, O_NOCTTY | O_RDWR | O_SYNC)) == -1) { perror("Error opening device:"); return 0; } tcgetattr(icd_fd, &oldtio); memset(&newtio,0, sizeof(newtio)); newtio.c_cflag = BAUDRATE | CS8 | CLOCAL | CREAD; newtio.c_iflag = IGNPAR; newtio.c_oflag = 0; newtio.c_lflag = 0; newtio.c_cc[VTIME] = 100; newtio.c_cc[VMIN] = 0; tcflush(icd_fd, TCIFLUSH); tcsetattr(icd_fd, TCSANOW, &newtio); icd_hw_reset(); rts_set(); if(!icd_baudrate_init()) { fprintf(stderr,"Can't initialize the ICD\n"); return 0; } create_dumb_register_file(); use_icd=true; icd_cmd("$$6300\r"); /* I really don't know what this is, but MPLAB does this. The program works ok without this though ..*/ // printf("ICD ver %s, target %s\n",icd_version(),icd_target()); // printf("Vdd %.2f, Vpp %.2f\n", icd_vdd(), icd_vpp()); if(icd_has_debug_module()) { if(verbose) cout << "Debug module present"<(active_cpu); if(!cpu) return; for(unsigned int i=0;iregister_memory_size();i++) { icd_Register *ir = dynamic_cast(cpu->registers[i]); assert(ir!=0); ir->is_stale=1; } icd_WREG *iw = dynamic_cast(cpu->Wreg); assert(iw!=0); iw->is_stale=1; icd_PC *ipc = dynamic_cast(cpu->pc); assert(ipc!=0); ipc->is_stale=1; icd_PCLATH *ipclath = dynamic_cast(cpu->pclath); assert(ipclath!=0); ipclath->is_stale=1; icd_FSR *ifsr = dynamic_cast(cpu->fsr); assert(ifsr!=0); ifsr->is_stale=1; icd_StatusReg *isreg = dynamic_cast(cpu->status); assert(isreg!=0); isreg->is_stale=1; } int icd_reset(void) { if(icd_fd<0) return 0; cout << "Reset" << endl; icd_cmd("$$700A\r"); icd_cmd("$$701B\r"); make_stale(); pic_processor *pic=dynamic_cast(active_cpu); if(!pic) return 0; pic->pc->get_value(); gi.simulation_has_stopped(); return 1; } int icd_detected(void) { if(icd_fd<0) return 0; if(use_icd) return 1; return 0; } char *icd_version(void) { static char ret[256]; unsigned int ver1,ver2; if(icd_fd<0) return 0; ver1 = icd_cmd("$$7F00\r"); ver2 = icd_cmd("$$7021\r"); sprintf(ret, "%X.%02X.%02X", ver1>>8, ver1&0xFF, ver2); return ret; } float icd_vdd(void) { unsigned int vdd=0; if(icd_fd<0) return 0.0; vdd=icd_cmd("$$701C\r"); return ((double)vdd) / 40.0; } float icd_vpp(void) { unsigned int vpp=0; if(icd_fd<0) return 0.0; icd_cmd("$$7000\r"); // enable Vpp vpp=icd_cmd("$$701D\r") & 0xFF; // What the heck does the high byte contain ? icd_cmd("$$7001\r"); // disable Vpp return ((double)vpp) / 11.25; } int icd_step(void) { if(icd_fd<0) return 0; make_stale(); icd_cmd("$$700E\r"); return 1; } int icd_run(void) { if(icd_fd<0) return 0; make_stale(); if(icd_cmd("$$700F\r")!=1) { icd_sync(); if(icd_cmd("$$700F\r")!=1) cout << "fjsdk" << endl; } return 1; } int icd_stopped(void) { if(icd_fd<0) return 0; if(icd_cmd("$$701E\r")!=1) return 1; return 0; } int icd_halt(void) { if(icd_fd<0) return 0; make_stale(); icd_cmd("$$700D\r"); return 1; } int icd_set_break(int address) { if(icd_fd<0) return 0; cout << "Set breakpoint on address " << address << endl; icd_cmd("$$1F00\r"); if(icd_cmd("$$%04X\r",address)!=address) { puts("DEBUG: Set breakpoint failed?"); return 0; } return 1; } int icd_clear_break(void) { if(icd_fd<0) return 0; cout << "Clear breakpoints" << endl; icd_cmd("$$1F00\r"); return 1; } void icd_set_bulk(int flag) { bulk_flag=flag; } // Get the value of the specified file memory address /*int icd_read_file(int address) { unsigned char buf[8]; int offset = address - address%8; if(icd_fd<0) return 0; int value; cout << "this is deprecated" << endl; icd_cmd("$$%04X\r",0x7800+offset); icd_cmd("$$7C08\r"); icd_write("$$7D08\r"); icd_read(buf,8); value = buf[address%8]; pic_processor *pic=dynamic_cast(active_cpu); if(!pic) return; //if(gpsim_register_is_valid(1,REGISTER_RAM,address) && // !gpsim_register_is_alias(1,REGISTER_RAM,address)) { switch(address) { case 2: case 3: case 4: case 10: break; default: pic->registers[address]->put_value(value); cout << "Read file address " << address << "=" << value << endl; break; } } return 1; } int icd_write_file(int address, int data) { if(icd_fd<0) return 0; printf("Write file address 0x%04X with data 0x%02X\n",address,data); return 1; } int icd_read_eeprom(int address) { if(icd_fd<0) return 0; printf("Read eeprom address 0x%04X\n",address); return 1; } int write_eeprom(int address, int data) { if(icd_fd<0) return 0; printf("Write eeprom address 0x%04X with data 0x%02X\n",address,data); return 1; } int icd_get_state() { int pc=4, status, w, pclath, fsr; if(icd_fd<0) return 0; cout << "Get state" << endl; pc=icd_cmd("$$701F\r"); status=icd_cmd("$$7016\r")&0x00ff; w=icd_cmd("$$7017\r")&0x00ff; pclath=icd_cmd("$$7018\r")&0x00ff; fsr=icd_cmd("$$7019\r")&0x00ff; pic_processor *pic=dynamic_cast(active_cpu); if(!pic) return; pic->pc->put_value(pc); pic->status->put_value(status); pic->W->put_value(w); pic->pclath->put_value(pclath); pic->fsr->put_value(fsr); return 1; } */ // Get all of file memory /*int icd_get_file() { unsigned char buf[64]; if(icd_fd<0) return 0; cout << "Get file" << endl; pic_processor *pic=dynamic_cast(active_cpu); if(!pic) return; for(int i=0;iregister_memory_size()/0x40;i++) { if(icd_cmd("$$%04X\r",0x7A00+i)!=i) puts("EEEEEEEEEEEEEEEEEEEEE"); icd_write("$$7D40\r"); icd_read(buf,64); for(int j=0;j<64;j++) { if(gpsim_register_is_valid(1,REGISTER_RAM,i*0x40+j) && !gpsim_register_is_alias(1,REGISTER_RAM,i*0x40+j)) { switch(i*0x40+j) { case 2: case 3: case 4: case 10: break; default: pic->registers[i*0x40+j]->put_value(buf[j]); break; } } } // } return 1; } */ icd_Register::icd_Register(Processor *pCpu) : Register(pCpu,"","") { replaced=0; value.put(0x42); is_stale=1; }; void icd_Register::put_value(unsigned int new_value) { } void icd_Register::put(unsigned int new_value) { } unsigned int icd_Register::get_value(void) { return(get()); } unsigned int icd_Register::get(void) { if(is_stale) { switch(address) { case 2: value.put(icd_cmd("$$701F\r")); cpu_pic->pcl->value.put(value.get() & 0xff); cpu_pic->pclath->value.put(value.get() >> 8); is_stale=0; break; case 3: value.put(icd_cmd("$$7016\r")&0x00ff); is_stale=0; replaced->update(); break; case 4: value.put(icd_cmd("$$7019\r")&0x00ff); is_stale=0; replaced->update(); break; case 10: value.put(icd_cmd("$$701F\r")); cpu_pic->pcl->value.put(value.get() & 0xff); cpu_pic->pclath->value.put(value.get() >> 8); is_stale=0; break; default: { if(bulk_flag==0) { unsigned char buf[8]; int offset = address - address%8; icd_cmd("$$%04X\r",0x7800+offset); icd_cmd("$$7C08\r"); icd_write("$$7D08\r"); icd_read(buf,8); for(int i=0;i<8;i++) { switch(offset+i) { case 2: case 3: case 4: case 10: break; default: icd_Register *ifr = static_cast(get_cpu()->registers[offset+i]); assert(ifr!=0); ifr->value.put(buf[i]); ifr->is_stale=0; break; } } for(int i=0;i<0x8;i++) { switch(offset+i) { case 2: case 3: case 4: case 10: break; default: icd_Register *ifr = static_cast(get_cpu()->registers[offset+i]); assert(ifr!=0); ifr->replaced->update(); break; } } } else { unsigned char buf[64]; int offset=address-address%0x40; assert(offset>=0); if(icd_cmd("$$%04X\r",0x7A00+offset/0x40)!=offset/0x40) puts("DDDDDDDDDDDDDDDDDDD"); icd_write("$$7D40\r"); icd_read(buf,0x40); for(unsigned int i=0;i<0x40;i++) { switch(offset+i) { case 2: case 3: case 4: case 10: break; default: icd_Register *ifr = static_cast(get_cpu()->registers[offset+i]); assert(ifr!=0); ifr->value.put(buf[i]); ifr->is_stale=0; break; } } for(int i=0;i<0x40;i++) { switch(offset+i) { case 2: case 3: case 4: case 10: break; default: icd_Register *ifr = static_cast(get_cpu()->registers[offset+i]); assert(ifr!=0); ifr->replaced->update(); break; } } } } break; } } return(value.get()); } icd_WREG::icd_WREG(Processor *pCpu) : WREG(pCpu,"","") { replaced=0; value.put(0x42); is_stale=1; }; void icd_WREG::put_value(unsigned int new_value) { } void icd_WREG::put(unsigned int new_value) { } unsigned int icd_WREG::get_value(void) { return(get()); } unsigned int icd_WREG::get(void) { if(is_stale) { value.put(icd_cmd("$$7017\r")&0x00ff); is_stale=0; replaced->update(); } return(value.get()); } icd_StatusReg::icd_StatusReg(Processor *pCpu) : Status_register(pCpu,"","") { replaced=0; value.put(0x42); is_stale=1; }; void icd_StatusReg::put_value(unsigned int new_value) { } void icd_StatusReg::put(unsigned int new_value) { } unsigned int icd_StatusReg::get_value(void) { if(icd_fd<0) return 0; return(get()); } unsigned int icd_StatusReg::get(void) { if(is_stale) { value.put(icd_cmd("$$7016\r")&0x00ff); is_stale=0; replaced->update(); } return(value.get()); } icd_FSR::icd_FSR(Processor *pCpu) : FSR(pCpu,"","") { replaced=0; value.put(0x42); is_stale=1; }; void icd_FSR::put(unsigned int new_value) { } void icd_FSR::put_value(unsigned int new_value) { } unsigned int icd_FSR::get(void) { return get_value(); } unsigned int icd_FSR::get_value(void) { if(icd_fd<0) return 0; if(is_stale) { value.put(icd_cmd("$$7019\r")&0x00ff); is_stale=0; replaced->update(); } return(value.get()); } icd_PCLATH::icd_PCLATH(Processor *pCpu) : PCLATH(pCpu,"","") { replaced=0; value.put(0x42); is_stale=1; }; void icd_PCLATH::put(unsigned int new_value) { } void icd_PCLATH::put_value(unsigned int new_value) { } unsigned int icd_PCLATH::get(void) { return get_value(); } unsigned int icd_PCLATH::get_value(void) { if(icd_fd<0) return 0; if(is_stale) { value.put((icd_cmd("$$701F\r")&0xff00)>>8); is_stale=0; replaced->update(); } return(value.get()); } icd_PC::icd_PC(Processor *pCpu) : Program_Counter("pc", "ICD Program Counter", pCpu) { replaced=0; value=0x42; is_stale=1; }; void icd_PC::put_value(unsigned int new_value) { } unsigned int icd_PC::get_value(void) { if(icd_fd<0) return 0; if(is_stale) { value = icd_cmd("$$701F\r"); cpu_pic->pcl->value.put(value & 0xff); cpu_pic->pclath->value.put(value >> 8); is_stale=0; } return(value); } gpsim-0.27.0/src/trigger.h0000644000076400007640000001202311401131150012234 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #if !defined(__TRIGGER_H__) #define __TRIGGER_H__ #include using namespace std; class TriggerObject; class TraceType; class Expression; class Trace; //======================================================================== // // Triggers // (these comments are not completely implemented in code) // // gpsim divides a breakpoint into a TriggerAction and a TriggerObject. // The TriggerObject is something that gets evaluated. If it evaluates // to true then a TriggerAction is invoked. // Most breakpoints are simple and don't need this complexity. For example, // an execution breakpoint only needs to halt simulation whenever it's // encountered. But gpsim defines the TriggerObject to be something like // 'if address is executed' and the TriggerAction to be 'halt simulation'. // However this design accomodates much more complicated situations. For // example, the use may wish to break whenever register 42 is cleared during // a time when interrupts are disabled. In this case, the trigger action // is still a simple halt. However, the trigger object is more complicated: // // break w reg(42) (reg(42) == 0) && (STATUS & GIE == 0) // // In this case, the compound expression gets associated with write operations // to register 42. class TriggerAction { public: TriggerAction(); virtual ~TriggerAction(); virtual bool evaluate(); virtual bool getTriggerState(); virtual void action(); }; class SimpleTriggerAction : public TriggerAction { public: SimpleTriggerAction(TriggerObject *_to); virtual void action(); protected: TriggerObject *to; }; // TriggerObject - a base class for handling all of gpsim's breakpoints. // // The TriggerObject class is designed to be part of a multiple inheritance // class heirarchy. Its main function is to provide an interface to the // breakpoint functionality. // // class TriggerObject { public: unsigned int bpn; // Enable the breakpoint and return true if successful virtual bool set_break() {return false;} // A unique number assigned when the break point is armed. int CallBackID; // When the breakpoint associated with this object is encountered, // then 'callback' is invoked. virtual void callback(); // Invoked to display info about the breakpoint. virtual void callback_print(); // clear_trigger is invoked when the breakpoint associated with // this object is cleared. virtual void clear_trigger(); // Will search for a place to store this break point. virtual int find_free(); // This object has no cpu associated with it. However, derived // types may and can choose to provide access to it through here: //virtual Processor *get_cpu() { return 0; } // Display the breakpoint - Probably should tie into a stream... virtual void print(); virtual int printExpression(char *pBuf, int szBuf); // Display traced information. Given an index into a Trace buffer, // printTraced() will extract the traced information and decode it // into a readable form. virtual int printTraced(Trace *pTrace, unsigned int tbi, char *pBuf, int szBuf); // Clear the breakpoint virtual void clear(); // set_Expr - associates an expression with the trigger virtual void set_Expression(Expression *); virtual bool bHasExpression() { return m_PExpr!=0; } virtual bool eval_Expression(); virtual char const * bpName() { return "Generic"; } virtual void set_action(TriggerAction *ta) { m_action = ta; } virtual TriggerAction *get_action() { return m_action;} virtual void invokeAction(); // Messages can be associatated with triggers string &message() {return m_sMessage;} virtual void new_message(const char *); virtual void new_message(string &); TriggerObject(); TriggerObject(TriggerAction *); // Virtual destructor place holder virtual ~TriggerObject(); protected: // A block of trace types are reserved by the trigger class: static TraceType *m_brt; private: Expression *m_PExpr; string m_sMessage; // When the TriggerObject becomes true, then the TriggerAction is // evaluated. E.g. If the trigger object is an execution breakpoint, // then whenever the PC == break address, the Breakpoint_Instruction // class (which is derived from this class) will invoke action->evaluate() // which will in turn halt the execution. TriggerAction *m_action; }; #endif // !defined(__TRIGGER_H__) gpsim-0.27.0/src/errors.h0000644000076400007640000000201111401131150012101 00000000000000#if !defined(_ERRORS_H_) #define _ERRORS_H_ #include #include "gpsim_object.h" using namespace std; //***************************************************************** class AnError : public gpsimObject { public: AnError(string severity, string errMsg); virtual ~AnError(); string toString(); string get_errMsg(); private: string severity; string errMsg; }; //***************************************************************** class Error : public AnError { public: Error(string errMsg); virtual ~Error(); static int count; }; //***************************************************************** class FatalError : public AnError { public: FatalError(string errMsg); virtual ~FatalError(); }; //***************************************************************** class TypeMismatch : public Error { public: TypeMismatch(string theOperator, string expectedType, string observedType); TypeMismatch(string theOperator, string observedType); virtual ~TypeMismatch(); }; #endif // _ERRORS_ gpsim-0.27.0/src/processor.h0000664000076400007640000005720612135431722012643 00000000000000/* Copyright (C) 1998-2003 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __PROCESSOR_H__ #define __PROCESSOR_H__ #include #include #include #include #include "gpsim_classes.h" #include "modules.h" #include "trace.h" #include "registers.h" #include "gpsim_time.h" #include "gpsim_interface.h" class Processor; class ProcessorConstructor; class ProgramFileType; class FileContext; class FileContextList; class ProgramMemoryCollection; class CPU_Freq; //--------------------------------------------------------- /// MemoryAccess - A base class designed to support /// access to memory. For the PIC, this class is extended by /// the ProgramMemoryAccess and RegisterMemoryAccess classes. class MemoryAccess : public TriggerObject, public gpsimObject { public: MemoryAccess(Processor *new_cpu); ~MemoryAccess(); virtual Processor *get_cpu(void); list SpecialRegisters; protected: Processor *cpu; /// The processor to which this object belongs }; //--------------------------------------------------------- /// The ProgramMemoryAccess class is the interface used /// by objects other than the simulator to manipulate the /// pic's program memory. For example, the breakpoint class /// modifies program memory when break points are set or /// cleared. The modification goes through here. class ProgramMemoryAccess : public MemoryAccess { public: /// Symbolic debugging enum HLL_MODES { ASM_MODE, // Source came from plain old .asm files HLL_MODE // Source came from a high level language like C or JAL. }; ProgramMemoryAccess(Processor *new_cpu); ~ProgramMemoryAccess(); virtual void putToAddress(unsigned int addr, instruction *new_instruction); virtual void putToIndex(unsigned int uIndex, instruction *new_instruction); instruction *getFromAddress(unsigned int addr); instruction *getFromIndex(unsigned int uIndex); instruction *get_base_instruction(unsigned int addr); unsigned int get_opcode(unsigned int addr); unsigned int get_rom(unsigned int addr); void put_rom(unsigned int addr,unsigned int value); char *get_opcode_name(unsigned int addr, char *buffer, unsigned int size); virtual unsigned int get_PC(void); virtual void set_PC(unsigned int); virtual Program_Counter *GetProgramCounter(void); void remove(unsigned int address, instruction *bp_instruction); void put_opcode(unsigned int addr, unsigned int new_opcode); // When a pic is replacing one of it's own instructions, this routine // is called. void put_opcode_start(unsigned int addr, unsigned int new_opcode); // Assign a cross reference object to an instruction void assign_xref(unsigned int address, gpointer cross_reference); virtual void callback(void); void init(Processor *); // Helper functions for querying the program memory // hasValid_opcode -- returns true if the opcode at the address is valid bool hasValid_opcode_at_address(unsigned int address); bool hasValid_opcode_at_index(unsigned int uIndex); // step - step one of more instructions virtual void step(unsigned int steps, bool refresh=true); virtual void step_over(bool refresh=true); virtual void run(bool refresh=true); virtual void stop(void); virtual void finish(void); // isModified -- returns true if the program at the address has been modified // (this is only valid for those processor capable of writing to their own // program memory) bool isModified(unsigned int address); // Given a file and a line in that file, find the instrucion in the // processor's memory that's closest to it. virtual int find_closest_address_to_line(int file_id, int src_line); virtual int find_address_from_line(FileContext *fc, int src_line); //virtual int find_closest_address_to_hll_line(int file_id, int src_line); // Given an address to an instruction, find the source line that // created it: int get_src_line(unsigned int address); // Return the file ID of the source program responsible for the opcode at address. int get_file_id(unsigned int address); // A couple of functions for manipulating breakpoints virtual unsigned int set_break_at_address(unsigned int address); virtual unsigned int set_notify_at_address(unsigned int address, TriggerObject *cb); virtual unsigned int set_profile_start_at_address(unsigned int address, TriggerObject *cb); virtual unsigned int set_profile_stop_at_address(unsigned int address, TriggerObject *cb); virtual int clear_break_at_address(unsigned int address, enum instruction::INSTRUCTION_TYPES type); virtual int clear_break_at_address(unsigned int address, instruction * pInstruction); virtual int clear_notify_at_address(unsigned int address); virtual int clear_profile_start_at_address(unsigned int address); virtual int clear_profile_stop_at_address(unsigned int address); virtual int address_has_break(unsigned int address, enum instruction::INSTRUCTION_TYPES type=instruction::BREAKPOINT_INSTRUCTION); virtual int address_has_notify(unsigned int address); virtual int address_has_profile_start(unsigned int address); virtual int address_has_profile_stop(unsigned int address); virtual instruction *find_instruction(unsigned int address, enum instruction::INSTRUCTION_TYPES type); virtual void toggle_break_at_address(unsigned int address); virtual void set_break_at_line(unsigned int file_id, unsigned int src_line); virtual void clear_break_at_line(unsigned int file_id, unsigned int src_line); virtual void toggle_break_at_line(unsigned int file_id, unsigned int src_line); void set_hll_mode(unsigned int); enum HLL_MODES get_hll_mode(void) { return hll_mode;} bool isHLLmode(void) {return get_hll_mode() == HLL_MODE;} private: ProgramMemoryCollection *m_pRomCollection; unsigned int _address, _opcode, _state; enum HLL_MODES hll_mode; // breakpoint instruction pointer. This is used by get_base_instruction(). // If an instruction has a breakpoint set on it, then get_base_instruction // will return a pointer to the instruction and will initialize bpi to // the breakpoint instruction that has replaced the one in the processor's // program memory. Breakpoint_Instruction *bpi; }; //--------------------------------------------------------- /// The RegisterMemoryAccess class is the interface used /// by objects other than the simulator to manipulate the /// cpu's register memory. class RegisterMemoryAccess : public MemoryAccess { public: RegisterMemoryAccess(Processor *pCpu); virtual ~RegisterMemoryAccess(); virtual Register *get_register(unsigned int address); unsigned int get_size(void) { return nRegisters; } void set_Registers(Register **_registers, int _nRegisters); // The insertRegister and removeRegister methods are used primarily // to set and clear breakpoints. bool insertRegister(unsigned int address, Register *); bool removeRegister(unsigned int address, Register *); bool hasBreak(unsigned int address); void reset(RESET_TYPE r); Register &operator [] (unsigned int address); private: unsigned int nRegisters; bool initialized; Register **registers; // Pointer to the array of registers. // }; //------------------------------------------------------------------------ // /// FileContext - Maintain state information about files. /// The state of each source file for a processor is recorded in the /// FileContext class. Clients can query information like the name /// of the source file or the line number responsible for generating /// a specific instruction. class FileContext { private: string name_str; // File name FILE *fptr; // File ptr when the file is opened vector line_seek; // A vector of file offsets to the start of lines vector pm_address; // A vector of program memory addresses for lines unsigned int m_uiMaxLine; // number of lines in the file friend class FileContextList; protected: bool m_bIsList; // True if this is a list file. bool m_bIsHLL; // True if this is a HLL file. void setListId(bool b) { m_bIsList = b; } void setHLLId(bool b) { m_bIsHLL = b; } public: // cache -- deprecated - this was used with the old gui source browser typedef vector Cache; Cache m_cache; FileContext(string &new_name); FileContext(const char *new_name); ~FileContext(); void ReadSource(); char *ReadLine(unsigned int line_number, char *buf, unsigned int nBytes); char *gets(char *buf, unsigned int nBytes); void rewind(void); void open(const char *mode); void close(); bool IsOpen() { return fptr != NULL; } bool IsList() { return m_bIsList; } bool IsHLL() { return m_bIsHLL; } /// get_address - given a line number, return the program memory address int get_address(unsigned int line); /// put_address - associate a line number with a program memory address. void put_address(unsigned int line, unsigned int address); string &name(void) { return name_str; } unsigned int max_line(); }; //------------------------------------------------------------------------ // // FileContextList - a vector of FileContext objects. // // class FileContextList : private vector { public: #ifndef _MSC_VER typedef vector _Myt; #endif FileContextList(); ~FileContextList(); int Add(string& new_name, bool hll=false); int Add(const char *new_name, bool hll=false); int Find(string &fname); FileContext *operator [] (int file_number); void list_id(int new_list_id); int list_id() { return list_file_id; } int nsrc_files(void) { return (int) size(); } char *ReadLine(int file_id, int line_number, char *buf, int nBytes); char *gets(int file_id, char *buf, int nBytes); void rewind(int file_id); void SetSourcePath(const char *pPath); private: string sSourcePath; int lastFile; int list_file_id; }; //------------------------------------------------------------------------ // /// Processor - a generic base class for processors supported by gpsim class Processor : public Module { public: typedef bool (*LPFNISPROGRAMFILE)(const char *, FILE *); /// Load the source code for this processor. The pProcessorName /// is an optional name that a user can assign to the processor. virtual bool LoadProgramFile(const char *hex_file, FILE *pFile, const char *pProcessorName) = 0; /// The source files for this processor. FileContextList files; /// Oscillator cycles for 1 instruction unsigned int clocks_per_inst; /// Supply voltage double Vdd; /// Stimulus nodes for CVREF and V06REF Stimulus_Node *CVREF; Stimulus_Node *V06REF; /// Processor capabilities unsigned long m_Capabilities; enum { eSTACK = 0x00000001, eWATCHDOGTIMER = 0x00000002, eBREAKONSTACKOVER = 0x00000004, eBREAKONSTACKUNDER = 0x00000009, eBREAKONWATCHDOGTIMER = 0x00000010, }; unsigned long GetCapabilities(); /// Processor RAM Register **registers; RegisterCollection *m_UiAccessOfRegisters; // should this be in rma class? /// Currently selected RAM bank Register **register_bank; /// Program memory - where instructions are stored. instruction **program_memory; /// Program memory interface ProgramMemoryAccess *pma; virtual ProgramMemoryAccess * createProgramMemoryAccess(Processor *processor); virtual void destroyProgramMemoryAccess(ProgramMemoryAccess *pma); virtual instruction * ConstructInvalidInstruction(Processor *processor, unsigned int address, unsigned int new_opcode) { return new invalid_instruction(processor,address,new_opcode); } /// register memory interface RegisterMemoryAccess rma; /// eeprom memory interface (if present). RegisterMemoryAccess ema; unsigned int m_uPageMask; unsigned int m_uAddrMask; /// Program Counter Program_Counter *pc; /// Context debugging is a way of debugging the processor while it is /// in different states. For example, when the interrupt flag is set /// (for those processors that support interrupts), the processor is /// in a different 'state' then when the interrupt flag is cleared. std::list pma_context; /// Tracing /// The readTT and writeTT are TraceType objects for tracing /// register reads and writes. /// The mTrace map is a collection of special trace types that /// share the same trace function code. For example, interrupts /// and resets are special trace events that don't warrant thier /// own trace function code. TraceType *readTT, *writeTT; map mTrace; // Processor's 'bad_instruction' object invalid_instruction bad_instruction; // --- TSD removed 01JAN07 These don't appear to be used anywhere //virtual void set(const char *cP,int len=0); //virtual void get(char *, int len); // // Creation and manipulation of registers // void create_invalid_registers (); void delete_invalid_registers (); void add_file_registers(unsigned int start_address, unsigned int end_address, unsigned int alias_offset); void delete_file_registers(unsigned int start_address, unsigned int end_address, bool bRemoveWithoutDelete=false); void alias_file_registers(unsigned int start_address, unsigned int end_address, unsigned int alias_offset); virtual int map_rm_address2index(int address) {return address;}; virtual int map_rm_index2address(int index) {return index;}; virtual void init_register_memory(unsigned int memory_size); virtual unsigned int register_memory_size () const = 0; virtual unsigned int CalcJumpAbsoluteAddress(unsigned int uInstAddr, unsigned int uDestAddr) { return uDestAddr; } virtual unsigned int CalcCallAbsoluteAddress(unsigned int uInstAddr, unsigned int uDestAddr) { return uDestAddr; } // // Creation and manipulation of Program Memory // virtual void init_program_memory(unsigned int memory_size); virtual void init_program_memory(unsigned int address, unsigned int value); virtual void erase_program_memory(unsigned int address); virtual void init_program_memory_at_index(unsigned int address, unsigned int value); virtual void init_program_memory_at_index(unsigned int address, const unsigned char *, int nBytes); virtual unsigned int program_memory_size(void) const {return 0;}; virtual unsigned int program_address_limit(void) const { return map_pm_index2address(program_memory_size()); }; virtual unsigned int get_program_memory_at_address(unsigned int address); void build_program_memory(unsigned int *memory, unsigned int minaddr, unsigned int maxaddr); virtual int map_pm_address2index(int address) const {return address;}; virtual int map_pm_index2address(int index) const {return index;}; virtual void set_out_of_range_pm(unsigned int address, unsigned int value); guint64 cycles_used(unsigned int address); virtual bool IsAddressInRange(unsigned int address) { return address < program_address_limit(); } // opcode_size - number of bytes for an opcode. virtual int opcode_size() { return 2;} // // Symbolic debugging // // First the source files: void attach_src_line(unsigned int address, unsigned int file_id, unsigned int sline, unsigned int lst_line); void read_src_files(void); virtual void dump_registers(void); virtual instruction * disasm ( unsigned int address,unsigned int inst)=0; //virtual void initializeAttributes(); // // Processor State // // copy the entire processor state to a file virtual void save_state(FILE *); // take an internal snap shot of the current state. virtual void save_state(); // restore the processor state virtual void load_state(FILE *); // // Execution control // virtual void run(bool refresh=true) = 0; virtual void run_to_address(unsigned int destination); virtual void finish(void) = 0; virtual void sleep(void) {}; virtual void step(unsigned int steps,bool refresh=true) = 0; virtual void step_over(bool refresh=true); virtual void step_one(bool refresh=true) = 0; virtual void step_cycle() = 0; virtual void interrupt(void) = 0 ; // Simulation modes /// setWarnMode - when true, gpsim will issue warnings whenever /// something suspicious is occuring. virtual void setWarnMode(bool); virtual bool getWarnMode() { return bWarnMode; } /// setSafeMode - when true, gpsim will model the 'official' /// behavior of the chip. When false, the simulator behaves the same /// as the hardware. virtual void setSafeMode(bool); virtual bool getSafeMode() { return bSafeMode; } /// setUnknownMode - when true, gpsim will implement three-state logic /// for data. When false, unkown data are treated as zeros. virtual void setUnknownMode(bool); virtual bool getUnknownMode() { return bUnknownMode; } /// setBreakOnReset - when true, gpsim will implement three-state logic /// for data. When false, unkown data are treated as zeros. virtual void setBreakOnReset(bool); virtual bool getBreakOnReset() { return bBreakOnReset; } bool getBreakOnInvalidRegisterRead() { return *m_pbBreakOnInvalidRegisterRead; } bool getBreakOnInvalidRegisterWrite() { return *m_pbBreakOnInvalidRegisterWrite; } /// /// Notification of breakpoint set virtual void NotifyBreakpointSet(Breakpoints::BreakStatus &bs, TriggerObject *bpo) { } virtual void NotifyBreakpointCleared(Breakpoints::BreakStatus &bs, TriggerObject *bpo) { } // Tracing control virtual void trace_dump(int type, int amount); virtual int trace_dump1(int type, char *buffer, int bufsize); virtual RegisterValue getWriteTT(unsigned int addr); virtual RegisterValue getReadTT(unsigned int addr); // // Processor Clock control // void set_frequency(double f); virtual double get_frequency(); void set_ClockCycles_per_Instruction(unsigned int cpi) { clocks_per_inst = cpi; } unsigned int get_ClockCycles_per_Instruction(void) { return clocks_per_inst; } void update_cps(void); virtual double get_OSCperiod(); virtual double get_InstPeriod() { return get_OSCperiod() * get_ClockCycles_per_Instruction(); } virtual void disassemble (signed int start_address, signed int end_address); virtual void list(unsigned int file_id, unsigned int pcval, int start_line, int end_line); // Configuration control virtual bool set_config_word(unsigned int address, unsigned int cfg_word) {return false;} // fixme - make this a pure virtual function... virtual unsigned int get_config_word(unsigned int address) = 0; virtual unsigned int config_word_address(void) {return 0;} virtual int get_config_index(unsigned int address){return -1;}; // // Processor reset // virtual void reset(RESET_TYPE r) = 0; virtual double get_Vdd() { return Vdd; } virtual void set_Vdd(double v) { Vdd = v; } // // Debugging - used to view the state of the processor (or whatever). // virtual void Debug(); // // FIXME -- create -- a way of constructing a processor (why not use constructors?) // virtual void create(void); static Processor *construct(void); ProcessorConstructor *m_pConstructorObject; Processor(const char *_name=0, const char *desc=0); virtual ~Processor(); private: CPU_Freq *mFrequency; // Simulation modes bool bSafeMode; bool bWarnMode; bool bUnknownMode; bool bBreakOnReset; Boolean *m_pbBreakOnInvalidRegisterRead; Boolean *m_pbBreakOnInvalidRegisterWrite; Boolean *m_pWarnMode; Boolean *m_pSafeMode; Boolean *m_pUnknownMode; Boolean *m_pBreakOnReset; }; //------------------------------------------------------------------- // // ProcessorConstructor -- a class to handle all of gpsim's supported // processors // // gpsim supports dozens of processors. All of these processors are // grouped together in the ProcessConstructor class. Within the class // is a static STL list<> object that holds an instance of a // ProcessorConstructor for each gpsim supported processor. Whenever // the user selects a processor to simulate, the find() member // function will search through the list and find the one that matches // the user supplied ASCII string. // // Why have this class? // The idea behind this class is that a ProcessorConstructor object // can be instantiated for each processor and that instantiation will // place the object into list of processors. Prior to gpsim-0.21, a // giant array held the list of all available processors. However, // there were two problems with this: it was painful to look at and // it precluded processors that were defined outside of the gpsim // core library. class ProcessorConstructorList; class ProcessorConstructor { public: typedef Processor * (*tCpuContructor) (const char *_name); protected: // A pointer to a function that when called will construct a processor tCpuContructor cpu_constructor; public: virtual Processor * ConstructProcessor(const char *opt_name=0); // The processor name (plus upto three aliases). #define nProcessorNames 4 const char *names[nProcessorNames]; //------------------------------------------------------------ // contructor -- // ProcessorConstructor( tCpuContructor _cpu_constructor, const char *name1, const char *name2, const char *name3=0, const char *name4=0); virtual ~ProcessorConstructor() { } static ProcessorConstructorList * processor_list; static ProcessorConstructorList * GetList(); }; // THE list of all of gpsim's processors: class ProcessorConstructorList : public list { public: ProcessorConstructorList() {} static ProcessorConstructor * findByType(const char *type); static string DisplayString(void); static ProcessorConstructorList *GetList(); private: static ProcessorConstructorList *processor_list; }; //---------------------------------------------------------- // Global definitions: #if defined(IN_MODULE) && defined(_WIN32) // we are in a module: don't access active_cpu object directly! LIBGPSIM_EXPORT Processor * get_active_cpu(void); #else // we are in gpsim: use of get_active_cpu() and set_active_cpu() is recommended, // even if active_cpu object can be accessed directly. extern Processor *active_cpu; inline Processor *get_active_cpu(void) { return active_cpu; } inline void set_active_cpu(Processor *act_cpu) { active_cpu = act_cpu; } #endif #endif gpsim-0.27.0/src/16bit-tmrs.cc0000644000076400007640000000172111401170177012656 00000000000000/* Copyright (C) 2000 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include #include #include "../config.h" #include "16bit-tmrs.h" #include "stimuli.h" // // 16bit-tmrs.cc // // Timer 1&2 modules for the 16bit core pic processors. // gpsim-0.27.0/src/bitlog.cc0000664000076400007640000002336112163701215012233 00000000000000/* Copyright (C) 1998-2003 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include "bitlog.h" #include "../src/gpsim_time.h" BoolEventLogger::BoolEventLogger(unsigned int _max_events) : max_events(_max_events) { // Make sure that max_events is an even power of 2 if(max_events & (max_events - 1)) { max_events <<= 1; while(1) { if(max_events && (max_events & (max_events-1))) max_events &= max_events - 1; else break; } } else if(!max_events) max_events = 4096; buffer = new guint64[max_events]; gcycles = &get_cycles(); max_events--; // make the max_events a mask index = 0; } void BoolEventLogger::event(bool state) { // If the new event is different the most recently logged one // then we need to log this event. (Note that the event is implicitly // logged in the "index". I.e. 1 events are at odd indices. if(state ^ (index & 1)) { index = (index + 1) & max_events; buffer[index] = gcycles->get(); } } void BoolEventLogger::dump(int start_index, int end_index) { if((start_index > (int)max_events) || (start_index <= 0 )) start_index = 0; if(end_index == -1) end_index = index; if(start_index == end_index) return; // Loop through and dump events between the start and end points requested do { cout << hex << "0x" << start_index << " = 0x" << buffer[start_index]; if(start_index & 1) cout << ": hi\n"; else cout << ": lo\n"; start_index = (start_index + 1) & max_events; }while ( start_index != end_index); } void BoolEventLogger::dump_ASCII_art(guint64 time_step, guint64 start_time, int end_index) { int start_index = get_index(start_time); if((start_index > (int)max_events) || (start_index <= 0 )) { start_index = 0; start_time = buffer[0]; } if(buffer[start_index] == 0) { start_index = 0; start_time = buffer[0]; } if( (end_index > (int)max_events) || (end_index <= 0 )) end_index = index; if(start_index == end_index) return; if(time_step == 0) time_step = 1; // Loop through and dump events between the start and end points requested guint64 min_pulse = buffer[end_index] - buffer[start_index]; unsigned long i = start_index; int j = (start_index+1) & max_events; do { if( (buffer[j] - buffer[i]) < min_pulse ) min_pulse = (buffer[j] - buffer[i]); i = j; j = (j + 1) & max_events; }while (j != end_index); //cout << "minimum pulse width :" << min_pulse << '\n'; if(min_pulse == 0) { // bummer - there's an error in the log min_pulse = 1; cout << "log error - minimum pulse width shouldn't be zero\n"; } int num_chars = 0; guint64 t = start_time; //buffer[start_index]; guint64 stop_time = gcycles->get(); i = start_index; do { if(t<=buffer[end_index]) j = get_index(t); else j = end_index; switch(j-i) { case 0: case 1: if(i&1) cout <<'-'; else cout <<'_'; break; case 2: cout << '|'; break; case 3: case 4: case 5: case 6: case 7: case 8: case 9: cout << (j-i); break; default: cout << '*'; } i = j; t += time_step; } while( t> 1; search_index = (start_index + bstep) & max_events; bstep >>= 1; // Binary search for the event time: do { if(event_time < buffer[search_index]) search_index = (search_index - bstep) & max_events; else search_index = (search_index + bstep) & max_events; //cout << hex << "search index "<< search_index << " buffer[search_index] " << buffer[search_index] << '\n'; bstep >>= 1; } while(bstep); if(event_time >= buffer[search_index]) return search_index; else return (--search_index & max_events); } //------------------------------------------------------------------------ ThreeStateEventLogger::ThreeStateEventLogger(unsigned int _max_events) : max_events(_max_events) { // Make sure that max_events is an even power of 2 if(max_events & (max_events - 1)) { max_events <<= 1; while(1) { if(max_events && (max_events & (max_events-1))) max_events &= max_events - 1; else break; } } else if(!max_events) max_events = 4096; pTimeBuffer = new guint64[max_events]; pEventBuffer = new char[max_events]; // Initialize the time buffer for (unsigned int i = 0; i < max_events; i++) { pEventBuffer[i] = 0; pTimeBuffer[i] = 0; } gcycles = &get_cycles(); max_events--; // make the max_events a mask index = max_events; bHaveEvents = false; } unsigned int ThreeStateEventLogger::get_index(guint64 event_time) { if (!bHaveEvents) return 0; unsigned long start_index, search_index, bstep; start_index = (index + 1) & max_events; bstep = (max_events+1) >> 1; search_index = (start_index + bstep) & max_events; bstep >>= 1; // Binary search for the event time: do { if(event_time < pTimeBuffer[search_index]) search_index = (search_index - bstep) & max_events; else search_index = (search_index + bstep) & max_events; bstep >>= 1; } while(bstep); if(event_time == pTimeBuffer[search_index]) return search_index; if(event_time < pTimeBuffer[search_index] && pTimeBuffer[search_index] != Cycle_Counter::END_OF_TIME) search_index = (search_index - 1) & max_events; return search_index; } unsigned int ThreeStateEventLogger::get_nEvents(unsigned int start_index, unsigned int stop_index) { return (stop_index >= start_index) ? (stop_index-start_index) : (max_events-stop_index+start_index); } unsigned int ThreeStateEventLogger::get_nEvents(guint64 start_time, guint64 stop_time) { unsigned int start_index = get_index(start_time); unsigned int stop_index = get_index(stop_time); return get_nEvents(start_index,stop_index); } void ThreeStateEventLogger::event(const char state) { // If the new event is different the most recently logged one // then we need to log this event. (Note that the event is implicitly // logged in the "index". I.e. 1 events are at odd indices. if(state != pEventBuffer[index]) { index = (index + 1) & max_events; pTimeBuffer[index] = gcycles->get(); pEventBuffer[index] = state; bHaveEvents = true; } } void ThreeStateEventLogger::dump(int start_index, int end_index) { if (!bHaveEvents) return; if((start_index > (int)max_events) || (start_index <= 0 )) start_index = 0; if(end_index == -1) end_index = index; if(start_index == end_index) return; // Loop through and dump events between the start and end points requested do { cout << hex << "0x" << start_index << " = 0x" << pTimeBuffer[start_index]; cout << " : " << pEventBuffer[start_index] << endl; start_index = (start_index + 1) & max_events; }while ( start_index != end_index); } void ThreeStateEventLogger::dump_ASCII_art(guint64 time_step, guint64 start_time, int end_index) { int start_index = get_index(start_time); if((start_index > (int)max_events) || (start_index <= 0 )) { start_index = 0; start_time = pTimeBuffer[0]; } if(pTimeBuffer[start_index] == 0) { start_index = 0; start_time = pTimeBuffer[0]; } if( (end_index > (int)max_events) || (end_index <= 0 )) end_index = index; if(start_index == end_index) return; // Loop through and dump events between the start and end points requested guint64 min_pulse = pTimeBuffer[end_index] - pTimeBuffer[start_index]; unsigned long i = start_index; int j = (start_index+1) & max_events; do { if( (pTimeBuffer[j] - pTimeBuffer[i]) < min_pulse ) min_pulse = (pTimeBuffer[j] - pTimeBuffer[i]); i = j; j = (j + 1) & max_events; }while (j != end_index); cout << "minimum pulse width :" << min_pulse << '\n'; if(min_pulse == 0) { // bummer - there's an error in the log min_pulse = 1; cout << "log error - minimum pulse width shouldn't be zero\n"; } time_step = 0; time_step = time_step ? time_step : ((min_pulse>2) ? min_pulse/2 : 1); int num_chars = 0; guint64 t = start_time; //buffer[start_index]; guint64 stop_time = gcycles->get(); i = start_index; do { if(t<=pTimeBuffer[end_index]) j = get_index(t); else j = end_index; cout << pEventBuffer[j]; /* switch(j-i) { case 0: case 1: if(i&1) cout <<'-'; else cout <<'_'; break; case 2: cout << '|'; break; case 3: case 4: case 5: case 6: case 7: case 8: case 9: cout << (j-i); break; default: cout << '*'; } */ i = j; t += time_step; } while( t. */ #include #include class InvalidRegister; // Forward reference #ifndef __16_BIT_REGISTERS_H__ #define __16_BIT_REGISTERS_H__ #include "pic-processor.h" #include "14bit-registers.h" #include "14bit-tmrs.h" #include "pir.h" #include "uart.h" #include "a2dconverter.h" #include "ssp.h" #include "rcon.h" #define _16BIT_REGISTER_MASK 0xfff class _16bit_processor; class stimulus; // forward reference class IOPIN; class source_stimulus; class Stimulus_Node; class PORTB; //--------------------------------------------------------- // // Indirect_Addressing // // This class coordinates the indirect addressing on the 18cxxx // parts. Each of the registers comprising the indirect addressing // subsystem: FSRnL,FSRnH, INDFn, POSTINCn, POSTDECn, PREINCn, and // PLUSWn are each individually defined as sfr_registers AND included // in the Indirect_Addressing class. So accessing these registers // is the same as accessing any register: through the core cpu's // register memory. The only difference for these registers is that // the class Indirect_Addressing; // Forward reference //--------------------------------------------------------- // FSR registers class FSRL : public sfr_register { public: FSRL(Processor *, const char *pName, const char *pDesc, Indirect_Addressing *pIAM); void put(unsigned int new_value); void put_value(unsigned int new_value); protected: Indirect_Addressing *iam; }; class FSRH : public sfr_register { public: FSRH(Processor *, const char *pName, const char *pDesc, Indirect_Addressing *pIAM); void put(unsigned int new_value); void put_value(unsigned int new_value); protected: Indirect_Addressing *iam; }; class INDF16 : public sfr_register { public: INDF16(Processor *, const char *pName, const char *pDesc, Indirect_Addressing *pIAM); void put(unsigned int new_value); void put_value(unsigned int new_value); unsigned int get(); unsigned int get_value(); protected: Indirect_Addressing *iam; }; class PREINC : public sfr_register { public: PREINC(Processor *, const char *pName, const char *pDesc, Indirect_Addressing *pIAM); void put(unsigned int new_value); void put_value(unsigned int new_value); unsigned int get(); unsigned int get_value(); protected: Indirect_Addressing *iam; }; class POSTINC : public sfr_register { public: POSTINC(Processor *, const char *pName, const char *pDesc, Indirect_Addressing *pIAM); void put(unsigned int new_value); void put_value(unsigned int new_value); unsigned int get(); unsigned int get_value(); protected: Indirect_Addressing *iam; }; class POSTDEC : public sfr_register { public: POSTDEC(Processor *, const char *pName, const char *pDesc, Indirect_Addressing *pIAM); void put(unsigned int new_value); void put_value(unsigned int new_value); unsigned int get(); unsigned int get_value(); protected: Indirect_Addressing *iam; }; class PLUSW : public sfr_register { public: PLUSW(Processor *, const char *pName, const char *pDesc, Indirect_Addressing *pIAM); void put(unsigned int new_value); void put_value(unsigned int new_value); unsigned int get(); unsigned int get_value(); protected: Indirect_Addressing *iam; }; class Indirect_Addressing { public: Indirect_Addressing(pic_processor *cpu, const string &n); pic_processor *cpu; //RRR _16bit_processor *cpu; unsigned int fsr_value; // 16bit concatenation of fsrl and fsrh unsigned int fsr_state; /* used in conjunction with the pre/post incr * and decrement. This is mainly needed for * those instructions that perform read-modify- * write operations on the indirect registers * eg. btg POSTINC1,4 . The post increment must * occur after the bit is toggled and not during * the read operation that's determining the * current state. */ int fsr_delta; /* If there's a pending update to the fsr register * pair, then the magnitude of that update is * stored here. */ guint64 current_cycle; /* Stores the cpu cycle when the fsr was last * changed. */ FSRL fsrl; FSRH fsrh; INDF16 indf; PREINC preinc; POSTINC postinc; POSTDEC postdec; PLUSW plusw; //void init(_16bit_processor *new_cpu); void put(unsigned int new_value); unsigned int get(); unsigned int get_value(); void put_fsr(unsigned int new_fsr); unsigned int get_fsr_value(){return (fsr_value & 0xfff);}; void update_fsr_value(); void preinc_fsr_value(); void postinc_fsr_value(); void postdec_fsr_value(); int plusw_fsr_value(); int plusk_fsr_value(int k); /* bool is_indirect_register(unsigned int reg_address) * * The purpose of this routine is to determine whether or not the * 'reg_address' is the address of an indirect register. This is * used by the 'put' and 'get' functions of the indirect registers. * Indirect registers are forbidden access to other indirect registers. * (Although double indirection in a single instruction cycle would * be powerful!). * * The indirect registers reside at the following addresses * 0xfeb - 0xfef, 0xfe3 - 0xfe7, 0xfdb- 0xfdf * If you look at the binary representation of these ranges: * 1111 1110 1011, 1111 1110 1100 - 1111 1110 1111 (0xfeb,0xfec - 0xfef) * 1111 1110 0011, 1111 1110 0100 - 1111 1110 0111 (0xfe3,0xfe4 - 0xfe7) * 1111 1101 1011, 1111 1101 1100 - 1111 1101 1111 (0xfdb,0xfdc - 0xfdf) * ------------------------------------------------------------------------ * 1111 11xx x011, 1111 11vv v1yy - 1111 11vv v1yy * * Then you'll notice that indirect register addresses share * the common bit pattern 1111 11xx x011 for the left column. * Furthermore, the middle 3-bits, xxx, can only be 3,4, 5. * The ranges in the last two columns share the bit pattern * 1111 11vv v1yy. The middle 3-bits, vvv, again can only be * 3,4, or 5. The least two lsbs, yy, are don't cares. */ inline bool is_indirect_register(unsigned int reg_address) { if( ((reg_address & 0xfc7) == 0xfc3) || ((reg_address & 0xfc4) == 0xfc4)) { unsigned midbits = (reg_address >> 3) & 0x7; if(midbits >= 3 && midbits <= 5) return 1; } return 0; } }; //--------------------------------------------------------- class Fast_Stack { public: unsigned int w,status,bsr; _16bit_processor *cpu; void init(_16bit_processor *new_cpu); void push(); void pop(); }; //--------------------------------------------------------- class PCL16 : public PCL { public: virtual unsigned int get(); virtual unsigned int get_value(); PCL16(Processor *, const char *pName, const char *pDesc=0); }; //--------------------------------------------------------- // Program Counter // class Program_Counter16 : public Program_Counter { public: //virtual void increment(); //virtual void skip(); //virtual void jump(unsigned int new_value); //virtual void interrupt(unsigned int new_value); virtual void computed_goto(unsigned int new_value); //virtual void new_address(unsigned int new_value); virtual void put_value(unsigned int new_value); virtual unsigned int get_value(); //virtual unsigned int get_next(); Program_Counter16(Processor *pCpu); }; //--------------------------------------------------------- // Stack // class Stack16; class STKPTR16 : public sfr_register { public: enum { STKUNF = 1<<6, STKOVF = 1<<7 }; STKPTR16(Processor *, const char *pName, const char *pDesc=0); Stack16 *stack; void put_value(unsigned int new_value); void put(unsigned int new_value); }; class TOSU : public sfr_register { public: TOSU(Processor *, const char *pName, const char *pDesc=0); Stack16 *stack; void put(unsigned int new_value); void put_value(unsigned int new_value); unsigned int get(); unsigned int get_value(); }; class Stack16 : public Stack { public: STKPTR16 stkptr; TOSL tosl; TOSH tosh; TOSU tosu; Stack16(Processor *); ~Stack16(); virtual bool push(unsigned int); virtual unsigned int pop(); virtual void reset(RESET_TYPE); virtual bool stack_overflow(); virtual bool stack_underflow(); }; class TMR0_16; //--------------------------------------------------------- class CPUSTA : public sfr_register { public: enum { BOR = 1<<0, POR = 1<<1, PD = 1<<2, TO = 1<<3, GLINTD = 1<<4, STKAV = 1<<5, }; CPUSTA(Processor *, const char *pName, const char *pDesc=0); }; //--------------------------------------------------------- // T0CON - Timer 0 control register class T0CON : public OPTION_REG { public: enum { T08BIT = 1<<6, TMR0ON = 1<<7 }; T0CON(Processor *, const char *pName, const char *pDesc=0); void put(unsigned int new_value); void initialize(); }; //--------------------------------------------------------- // TMR0 - Timer for the 16bit core. // // The 18cxxx extends TMR0 to a 16-bit timer. However, it maintains // an 8-bit mode that is compatible with the 8-bit TMR0's in the // 14 and 12-bit cores. The 18cxxx TMR0 reuses this code by deriving // from the TMR0 class and providing definitions for many of the // virtual functions. class TMR0H : public sfr_register { public: TMR0H(Processor *, const char *pName, const char *pDesc=0); void put(unsigned int new_value); void put_value(unsigned int new_value); unsigned int get(); unsigned int get_value(); }; class TMR0_16 : public TMR0 { public: TMR0_16(Processor *, const char *pName, const char *pDesc=0); T0CON *t0con; INTCON *intcon; TMR0H *tmr0h; unsigned int value16; virtual void callback(); virtual void callback_print(); virtual void increment(); virtual unsigned int get(); virtual unsigned int get_value(); virtual void put_value(unsigned int new_value); virtual unsigned int get_prescale(); virtual unsigned int max_counts(); virtual void set_t0if(); virtual bool get_t0cs(); virtual void initialize(); virtual void start(int new_value,int sync=0); virtual void sleep(); virtual void wake(); }; //--------------------------------------------------------- /* class TMR3H : public TMRH { public: }; class TMR3L : public TMRL { public: }; */ class T3CON : public T1CON { public: enum { T3CCP1 = 1<<3, T3CCP2 = 1<<6, }; CCPRL *ccpr1l; CCPRL *ccpr2l; TMRL *tmr1l; T3CON(Processor *pCpu, const char *pName, const char *pDesc=0); virtual void put(unsigned int new_value); }; //--------------------------------------------------------- // // TMR3_MODULE // // class TMR3_MODULE { public: _16bit_processor *cpu; char * name_str; T3CON *t3con; PIR_SET *pir_set; TMR3_MODULE(); void initialize(T3CON *t1con, PIR_SET *pir_set); }; //------------------------------------------------------------------- #if 0 class TABLAT : public sfr_register { public: void put(unsigned int new_value); void put_value(unsigned int new_value); unsigned int get(); unsigned int get_value(); }; class TABPTRL : public sfr_register { public: void put(unsigned int new_value); void put_value(unsigned int new_value); unsigned int get(); unsigned int get_value(); }; class TABPTRH : public sfr_register { public: void put(unsigned int new_value); void put_value(unsigned int new_value); unsigned int get(); unsigned int get_value(); }; class TABPTRU : public sfr_register { public: void put(unsigned int new_value); void put_value(unsigned int new_value); unsigned int get(); unsigned int get_value(); }; #endif class TBL_MODULE { public: TBL_MODULE(_16bit_processor *pCpu); unsigned int state; unsigned int internal_latch; _16bit_processor *cpu; #if 0 TABLAT tablat; TABPTRL tabptrl; TABPTRH tabptrh; TABPTRU tabptru; #endif sfr_register tablat, tabptrl, tabptrh, tabptru; void increment(); void decrement(); void read(); void write(); //void initialize(_16bit_processor *); }; ////////////////////////////////////////// ////////////////////////////////////////// // vapid Place holders ////////////////////////////////////////// ////////////////////////////////////////// class LVDCON : public sfr_register { public: unsigned int valid_bits; enum { LVDL0 = 1<<0, LVDL1 = 1<<1, LVDL2 = 1<<2, LVDL3 = 1<<3, LVDEN = 1<<4, IRVST = 1<<5, }; LVDCON(Processor *, const char *pName, const char *pDesc=0); }; #endif gpsim-0.27.0/src/p12x.h0000664000076400007640000002156312175377101011417 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __P12X_H__ #define __P12X_H__ #include "12bit-processors.h" #include "pic-ioports.h" #include "a2dconverter.h" class P12_I2C_EE; class P12bitBase; class P12_OSCCON : public sfr_register { public: enum { FOSC4 = 1 << 0 }; P12_OSCCON(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc), m_CPU(0) { } void put(unsigned int new_value); void set_cpu(P12bitBase *pCPU) { m_CPU = pCPU;} private: P12bitBase *m_CPU; }; class GPIO : public PicPortRegister { public: GPIO(P12bitBase *pCpu, const char *pName, const char *pDesc, unsigned int numIopins, unsigned int enableMask); void setbit(unsigned int bit_number, char new_value); void setPullUp ( bool bNewPU , bool mclr); private: P12bitBase *m_CPU; bool m_bPU; }; //-------------------------------------------------------- /* * IN_SignalControl is used to set a pin as input * regardless of the setting to the TRIS register */ class IN_SignalControl : public SignalControl { public: IN_SignalControl(){ } ~IN_SignalControl(){} char getState() { return '1'; } void release() { } }; //-------------------------------------------------------- /* * OUT_SignalControl is used to set a pin as input * regardless of the setting to the TRIS register */ class OUT_SignalControl : public SignalControl { public: OUT_SignalControl(){} ~OUT_SignalControl(){} char getState() { return '0'; } void release() { } }; //-------------------------------------------------------- /* * OUT_DriveControl is used to override output * regardless of the setting to the GPIO register */ class OUT_DriveControl : public SignalControl { public: OUT_DriveControl(){} ~OUT_DriveControl(){} char getState() { return '1'; } void release() { } }; class P12bitBase : public _12bit_processor { public: GPIO *m_gpio; PicTrisRegister *m_tris; P12_OSCCON osccal; virtual PROCESSOR_TYPE isa(){return _P12C508_;}; virtual void create_symbols(); virtual void enter_sleep(); virtual void create_sfr_map(); virtual void dump_registers(); virtual void tris_instruction(unsigned int tris_register); virtual void reset(RESET_TYPE r); P12bitBase(const char *_name=0, const char *desc=0); virtual ~P12bitBase(); static Processor *construct(const char *name); virtual void create_iopin_map(); virtual void create_config_memory(); virtual unsigned int fsr_valid_bits() { return 0x1f; // Assume only 32 register addresses } virtual unsigned int fsr_register_page_bits() { return 0; // Assume only one register page. } virtual void option_new_bits_6_7(unsigned int); IN_SignalControl *m_IN_SignalControl; OUT_SignalControl *m_OUT_SignalControl; OUT_DriveControl *m_OUT_DriveControl; virtual void updateGP2Source(); virtual void freqCalibration(); virtual void setConfigWord(unsigned int val, unsigned int diff); unsigned int configWord; // bits of Configuration word enum { FOSC0 = 1<<0, FOSC1 = 1<<1, WDTEN = 1<<2, CP = 1<<3, MCLRE = 1<<4 }; }; class P12C508 : public P12bitBase { public: P12C508(const char *_name=0, const char *desc=0); virtual ~P12C508(); static Processor *construct(const char *name); virtual void create(); virtual unsigned int program_memory_size() const { return 0x200; } }; class P12F508 : public P12C508 { public: P12F508(const char *_name=0, const char *desc=0); virtual ~P12F508(); static Processor *construct(const char *name); virtual PROCESSOR_TYPE isa(){return _P12F508_;}; }; // A 12c509 is like a 12c508 class P12C509 : public P12C508 { public: virtual PROCESSOR_TYPE isa(){return _P12C509_;}; virtual unsigned int program_memory_size() const { return 0x400; }; virtual void create_sfr_map(); virtual unsigned int fsr_valid_bits() { return 0x3f; // 64 registers in all (some are actually aliased) } virtual unsigned int fsr_register_page_bits() { return 0x20; // 509 has 2 register banks } P12C509(const char *_name=0, const char *desc=0); ~P12C509(); static Processor *construct(const char *name); virtual void create(); }; class P12F509 : public P12C509 { public: P12F509(const char *_name=0, const char *desc=0); virtual ~P12F509(); static Processor *construct(const char *name); virtual PROCESSOR_TYPE isa(){return _P12F509_;} }; // 12F510 - like a '509, but has an A2D and a comparator. class P12F510 : public P12F509 { public: P12F510(const char *_name=0, const char *desc=0); virtual ~P12F510(); static Processor *construct(const char *name); virtual PROCESSOR_TYPE isa(){return _P12F510_;} }; // A 12CE518 is like a 12c508 class P12CE518 : public P12C508 { public: virtual PROCESSOR_TYPE isa(){return _P12CE518_;}; virtual void tris_instruction(unsigned int tris_register); P12CE518(const char *_name=0, const char *desc=0); ~P12CE518(); static Processor *construct(const char *name); virtual void create(); virtual void create_iopin_map(); virtual void freqCalibration(); private: P12_I2C_EE *m_eeprom; Stimulus_Node *scl; Stimulus_Node *sda; IO_bi_directional_pu *io_scl; IO_open_collector *io_sda; }; // A 12ce519 is like a 12ce518 class P12CE519 : public P12CE518 { public: virtual PROCESSOR_TYPE isa(){return _P12CE519_;}; virtual unsigned int program_memory_size() const { return 0x400; }; virtual void create_sfr_map(); virtual unsigned int fsr_valid_bits() { return 0x3f; // 64 registers in all (some are actually aliased) } virtual unsigned int fsr_register_page_bits() { return 0x20; // 519 has 2 register banks } P12CE519(const char *_name=0, const char *desc=0); ~P12CE519(); static Processor *construct(const char *name); virtual void create(); }; // 10F200 class P10F200 : public P12bitBase { public: virtual PROCESSOR_TYPE isa(){return _P10F200_;}; virtual unsigned int program_memory_size() const { return 0x100; }; P10F200(const char *_name=0, const char *desc=0); virtual ~P10F200(); static Processor *construct(const char *name); virtual void create(); virtual void create_iopin_map(); // GP2 can be driven by either FOSC/4, TMR 0, or the GP I/O driver virtual void updateGP2Source(); virtual void freqCalibration(); // WDT causes reset on sleep virtual bool exit_wdt_sleep() { return false; } }; // A 10F202 is like a 10f200 class P10F202 : public P10F200 { public: virtual PROCESSOR_TYPE isa(){return _P10F202_;}; virtual unsigned int program_memory_size() const { return 0x200; }; P10F202(const char *_name=0, const char *desc=0); ~P10F202(); static Processor *construct(const char *name); virtual void create(); }; class CMCON0; // A 10F204 is like a 10f200 class P10F204 : public P10F200 { public: virtual PROCESSOR_TYPE isa(){return _P10F204_;}; P10F204(const char *_name=0, const char *desc=0); ~P10F204(); static Processor *construct(const char *name); virtual void create(); // GP2 can be driven by either FOSC/4, COUT, TMR 0, or the GP I/O driver virtual void updateGP2Source(); protected: CMCON0 *m_cmcon0; }; // A 10F220 is based on 10f200 class P10F220 : public P10F200 { public: ADCON0_10 adcon0; ADCON1 adcon1; sfr_register adres; virtual PROCESSOR_TYPE isa(){return _P10F220_;}; P10F220(const char *_name=0, const char *desc=0); ~P10F220(); static Processor *construct(const char *name); virtual void create(); virtual void enter_sleep(); virtual void exit_sleep(); virtual void setConfigWord(unsigned int val, unsigned int diff); // Bits of configuration word enum { IOSCFS = 1<<0, NOT_MCPU = 1<<1, }; protected: }; // A 10F220 is like a 10f220 class P10F222 : public P10F220 { public: virtual PROCESSOR_TYPE isa(){return _P10F222_;}; P10F222(const char *_name=0, const char *desc=0); ~P10F222(); virtual unsigned int program_memory_size() const { return 0x200; }; static Processor *construct(const char *name); virtual void create(); // GP2 can be driven by either FOSC/4, TMR 0, or the GP I/O driver //virtual void updateGP2Source(); protected: }; #endif // __P12X_H__ gpsim-0.27.0/src/12bit-processors.h0000644000076400007640000000770711401131147013735 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include "pic-processor.h" #ifndef __12_BIT_PROCESSORS_H__ #define __12_BIT_PROCESSORS_H__ // forward references class _12bit_processor; class IOPIN; class OptionTraceType; extern instruction *disasm12 (pic_processor *cpu,unsigned int address,unsigned int inst); class _12bit_processor : public pic_processor { public: #define WDTE 4 enum _12BIT_DEFINITIONS { PA0 = 1<<5, /* Program page preselect bits (in status) */ PA1 = 1<<6, PA2 = 1<<7, RP0 = 1<<5, /* Register page select bits (in fsr) */ RP1 = 1<<6 }; unsigned int pa_bits; /* a CPU dependent bit-mask defining which of the program * page bits in the status register are significant. */ OPTION_REG *option_reg; virtual void reset(RESET_TYPE r); virtual void save_state(); virtual void create_symbols(); #define FILE_REGISTERS 0x100 virtual unsigned int register_memory_size () const { return FILE_REGISTERS;}; virtual void dump_registers(); virtual void tris_instruction(unsigned int tris_register){return;}; virtual void create(); virtual void create_config_memory(); virtual PROCESSOR_TYPE isa(){return _12BIT_PROCESSOR_;}; virtual PROCESSOR_TYPE base_isa(){return _12BIT_PROCESSOR_;}; virtual instruction * disasm (unsigned int address, unsigned int inst) { return disasm12(this, address, inst); } void interrupt() { return; }; // Declare a set of functions that will allow the base class to // get information about the derived classes. NOTE, the values returned here // will cause errors if they are used -- the derived classes must define their // parameters appropriately. virtual unsigned int program_memory_size(){ return 3; }; // A bogus value that will cause errors if used // The size of a program memory bank is 2^11 bytes for the 12-bit core virtual void create_sfr_map() { return;}; // Return the portion of pclath that is used during branching instructions // Actually, the 12bit core has no pclath. However, the program counter class doesn't need // to know that. Thus this virtual function really just returns the code page for the // 12bit cores. virtual unsigned int get_pclath_branching_jump() { return ((status->value.get() & pa_bits) << 4); } // The modify pcl type instructions execute exactly like call instructions virtual unsigned int get_pclath_branching_modpcl() { return ((status->value.get() & pa_bits) << 4); } // The valid bits in the FSR register vary across the various 12-bit devices virtual unsigned int fsr_valid_bits() { return 0x1f; // Assume only 32 register addresses } virtual unsigned int fsr_register_page_bits() { return 0; // Assume only one register page. } virtual void put_option_reg(unsigned int); virtual void option_new_bits_6_7(unsigned int); virtual unsigned int config_word_address() const {return 0xfff;}; virtual bool set_config_word(unsigned int address, unsigned int cfg_word); virtual void enter_sleep(); virtual void exit_sleep(); _12bit_processor(const char *_name=0, const char *desc=0); virtual ~_12bit_processor(); protected: OptionTraceType *mOptionTT; }; #define cpu12 ( (_12bit_processor *)cpu) #endif gpsim-0.27.0/src/modules.h0000644000076400007640000001513311401131150012246 00000000000000/* Copyright (C) 1998,1999,2000 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ /* modules.h The base class for modules is defined here. Include this file into yours for creating custom modules. */ #ifndef __MODULES_H__ #define __MODULES_H__ #include #include #include #include #include #include #include #include "gpsim_object.h" #include "gpsim_classes.h" #include "symbol.h" class Module; class Module_Types; class ModuleInterface; class Processor; class IOPIN; class XrefObject; class Value; class Package; class ICommandHandler; typedef Module * (*Module_FPTR)(); typedef Module_Types * (*Module_Types_FPTR)(); enum SIMULATION_MODES { eSM_INITIAL, eSM_STOPPED, eSM_RUNNING, eSM_SLEEPING, eSM_SINGLE_STEPPING, eSM_STEPPING_OVER, eSM_RUNNING_OVER }; //------------------------------------------------------------------------ // // ModuleLibrary // // A module library is an OS dependent dynamically loadable library of // gpsim Modules. A Module (see below) can range from anything as simple // as a resistor to as complicated as microcontroller. However, the interface // to loading libraries and instantiating modules is kept simple: class ModuleLibrary { public: static int LoadFile(string &sLibraryName); static int InstantiateObject(string &sObjectName, string &sInstantiatedName); static void ListLoadableModules(); }; //------------------------------------------------------------------------ // /// Module - Base class for all gpsim behavior models. class Module : public gpsimObject { public: Package *package; // A package for the module ModuleInterface *interface; // An interface to the module. SIMULATION_MODES simulation_mode; // describes the simulation state for this module XrefObject *xref; // Updated when the module changes /// I/O pin specific virtual int get_pin_count(); virtual string &get_pin_name(unsigned int pin_number); virtual int get_pin_state(unsigned int pin_number); virtual IOPIN *get_pin(unsigned int pin_number); virtual void assign_pin(unsigned int pin_number, IOPIN *pin); virtual void create_pkg(unsigned int number_of_pins); /// Symbols /// Each module has its own symbol table. The global symbol /// table can access this table too. SymbolTable_t & getSymbolTable() { return mSymbolTable;} int addSymbol(gpsimObject *, string *AliasedName=0); gpsimObject *findSymbol(const string &); int removeSymbol(gpsimObject *); int removeSymbol(const string &); int deleteSymbol(const string &); int deleteSymbol(gpsimObject *); /// Registers - mostly processors, but can apply to complex modules virtual unsigned int register_mask () const { return 0xff;} virtual unsigned int register_size () const { return 1;} /// Reset virtual void reset(RESET_TYPE r); /// Version virtual char *get_version() { return version;} /// gui /// The simulation engine doesn't know anything about the gui. /// However, the set_widget and get_widget provide a mechanism /// for the gui to associate a pointer with a module. virtual void set_widget(void * a_widget) {widget = a_widget;} virtual void *get_widget() {return widget;} /// cli /// Modules can have gpsim CLI scripts associated with them. /// add_command will add a single CLI command to a script void add_command(string &script_name, string &command); /// run_script will pass a script to the gpsim CLI. This script /// executes immediately (i.e. it'll execute before any commands /// that may already be queued). void run_script(string &script_name); const char *type(void) { return module_type.c_str(); } void set_module_type(string type) { module_type = type; } Module(const char *_name=0, const char *desc=0); virtual ~Module(); /// Functions to support actual hardware virtual bool isHardwareOnline() { return true; } private: void *widget; // GtkWidget * that is put in the breadboard. string module_type; // Storage for scripts specifically associated with this module. class ModuleScript { public: ModuleScript(string &name_); ~ModuleScript(); void add_command(string &command); void run(ICommandHandler *); void concatenate(ModuleScript *); private: string name; list m_commands; }; map m_scripts; protected: char *version; SymbolTable_t mSymbolTable; }; class Module_Types { public: const char *names[2]; Module * (*module_constructor) (const char *module_name); }; #ifndef SWIG const int Module_Types_Name_Count = sizeof(((Module_Types*)NULL)->names) / sizeof(char*); /** * CFileSearchPath * Implemented in os_dependent.cc */ class CFileSearchPath : public list { public: CFileSearchPath() {} void AddPathFromFilePath(string &sFolder, string &sFile); const char * Find(string &path); }; /***************************************************************************** * * Helper functions * *****************************************************************************/ void GetFileName(string &sPath, string &sName); void GetFileNameBase(string &sPath, string &sName); void FixupLibraryName(string &sPath); void * load_library(const char *library_name, const char **pszError); void * get_library_export(const char *name, void *library_handle, const char **pszError); void free_library(void *handle); void free_error_message(const char * pszError); #endif class DynamicModuleLibraryInfo { public: DynamicModuleLibraryInfo(string &sCanonicalName, string &sUserSuppliedName, void *pHandle); inline string user_name(void) { return m_sCanonicalName; } inline Module_Types_FPTR mod_list(void) { return get_mod_list; } protected: string m_sCanonicalName; string m_sUserSuppliedName; void *m_pHandle; Module_Types * (*get_mod_list)(void); }; typedef map ModuleLibraries_t; #endif // __MODULES_H__ gpsim-0.27.0/src/pm_rd.cc0000644000076400007640000000566011401170177012055 00000000000000/* Copyright (C) 1998-2003 Scott Dattalo 2003 Mike Durian 2006 Roy Rankin 2006 David Barnett This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include using namespace std; #include #include "trace.h" #include "pic-processor.h" #include "pm_rd.h" //------------------------------------------------------------------------ // // PM-related registers void PMCON1::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); new_value &= valid_bits; bool rd_rise = (bool)(new_value & ~value.get() & RD); value.put((value.get() & RD) | new_value); if (rd_rise) pm_rd->start_read(); } unsigned int PMCON1::get() { trace.raw(read_trace.get() | value.get()); return(value.get()); } PMCON1::PMCON1(Processor *pCpu, PM_RD *pRd) : sfr_register(pCpu, "pmcon1", "Program Memory Read Write Control"), pm_rd(pRd) { valid_bits = PMCON1_VALID_BITS; } unsigned int PMDATA::get() { trace.raw(read_trace.get() | value.get()); return(value.get()); } void PMDATA::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value); } PMDATA::PMDATA(Processor *pCpu, const char *pName) : sfr_register(pCpu, pName, "Program Memory Data") {} unsigned int PMADR::get() { trace.raw(read_trace.get() | value.get()); return(value.get()); } void PMADR::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value); } PMADR::PMADR(Processor *pCpu, const char *pName) : sfr_register(pCpu, pName, "Program Memory Address") {} // ---------------------------------------------------------- PM_RD::PM_RD(pic_processor *pCpu) : cpu(pCpu), pmcon1(pCpu,this), pmdata(pCpu,"pmdata"), pmdath(pCpu,"pmdath"), pmadr(pCpu,"pmadr"), pmadrh(pCpu,"pmadrh") { } void PM_RD::start_read() { rd_adr = pmadr.value.get() | (pmadrh.value.get() << 8); get_cycles().set_break(get_cycles().get() + READ_CYCLES, this); } void PM_RD::callback() { // read program memory if(pmcon1.value.get() & PMCON1::RD) { int opcode = cpu->pma->get_opcode(rd_adr); pmdata.value.put(opcode & 0xff); pmdath.value.put((opcode>>8) & 0xff); pmcon1.value.put(pmcon1.value.get() & (~PMCON1::RD)); } } gpsim-0.27.0/src/hexutils.h0000644000076400007640000000535611401131150012451 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #if !defined(__HEXUTILS_H__) #define __HEXUTILS_H__ #include "program_files.h" /* * IntelHexProgramFileType * Note that the code is in hexutils.cc * */ class IntelHexProgramFileType : public ProgramFileType { public: IntelHexProgramFileType(); int readihex16 (Processor *pProcessor, FILE * file); inline void writeihex16(Register **fr, gint32 size, FILE *file, gint32 offset) { writeihexN(2, fr, size, file, offset); } inline void writeihex8(Register **fr, gint32 size, FILE *file, gint32 offset) { writeihexN(1, fr, size, file, offset); } inline int readihex16(Register **fr, gint32 size, FILE *file, gint32 offset) { return readihexN(2, fr, size, file, offset); } inline int readihex8(Register **fr, gint32 size, FILE *file, gint32 offset) { return readihexN(1, fr, size, file, offset); } // ProgramFileType overrides virtual int LoadProgramFile(Processor **pProcessor, const char *pFilename, FILE *pFile, const char *pProcessorName); private: unsigned char checksum; bool isBigEndian; int getachar (FILE * file); unsigned char getbyte (FILE * file); unsigned int getword (FILE *file); void putachar (FILE * file, unsigned char c); void write_be_word(FILE * file, int w); void write_le_word(FILE * file, int w); int read_be_word(FILE * file); int read_le_word(FILE * file); // Compute checksum for extended address record inline int ext_csum(gint32 add) { return ((-(6 + (add & 0xff) + ((add >> 8) & 0xff)) & 0xff)); } void writeihexN(int bytes_per_word, Register **fr, gint32 size, FILE *file, gint32 out_base); int readihexN (int bytes_per_word, Register **fr, gint32 size, FILE * file, gint32 offset); // The following do the same function of ntohs and htons // these save having to include networking includes inline int ntoh16(int w) { return isBigEndian ? w : ((w >> 8) & 0xff) | ((w & 0xff) << 8);} inline int hton16(int w) { return isBigEndian ? w : ((w >> 8) & 0xff) | ((w & 0xff) << 8);} }; #endif // __HEXUTILS_H__ gpsim-0.27.0/src/eeprom.cc0000664000076400007640000005453412175377101012256 00000000000000/* Copyright (C) 1998-2003 Scott Dattalo 2003 Mike Durian 2006,2013 Roy Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include using namespace std; #include #include "../config.h" #include "trace.h" #include "pic-processor.h" #include "eeprom.h" #include "pir.h" #include "intcon.h" // EEPROM - Peripheral // // This object emulates the 14-bit core's EEPROM/FLASH peripheral // (such as the 16c84). // // It's main purpose is to provide a means by which the control // registers may communicate. // //------------------------------------------------------------------------ // // EEPROM related registers //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("%s:%d-%s() ",__FILE__,__LINE__,__FUNCTION__); printf arg; } #else #define Dprintf(arg) {} #endif void EECON1::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); new_value &= valid_bits; //cout << "EECON1::put new_value " << hex << new_value << " valid_bits " << valid_bits << '\n'; //Dprintf(("new_value %x valid_bits %x\n", new_value, valid_bits)); if(new_value & WREN) { if(eeprom->get_reg_eecon2()->is_unarmed()) { eeprom->get_reg_eecon2()->unready(); value.put(value.get() | WREN); } // WREN is true and EECON2 is armed (which means that we've passed through here // once before with WREN true). Initiate an eeprom write only if WR is true and // RD is false AND EECON2 is ready else if( (new_value & WR) && !(new_value & RD) && (eeprom->get_reg_eecon2()->is_ready_for_write())) { value.put(value.get() | WR); eeprom->start_write(); } else if( (new_value & WR) && (new_value & RD)) { cout << "\n*** EECON1: write ignored " <get_reg_eecon2()->is_writing() ) { eeprom->get_reg_eecon2()->unarm(); } //cout << "EECON1: write is disabled\n"; } value.put((value.get() & (RD | WR)) | new_value); if ( (value.get() & RD) && !( value.get() & WR) ) { //Dprintf(("RD true WR false EEPGD|CFFS %x\n", value.get() & (EEPGD|CFGS))); if(value.get() & (EEPGD|CFGS)) { eeprom->get_reg_eecon2()->read(); eeprom->start_program_memory_read(); //cout << "eestate " << eeprom->eecon2->eestate << '\n'; // read program memory } else { //eeprom->eedata->value = eeprom->rom[eeprom->eeadr->value]->get(); eeprom->get_reg_eecon2()->read(); eeprom->callback(); value.put(value.get() & ~RD); } } } unsigned int EECON1::get() { trace.raw(read_trace.get() | value.get()); //trace.register_read(address,value.get()); return(value.get()); } EECON1::EECON1(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc) { valid_bits = EECON1_VALID_BITS; } void EECON2::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value); if( (eestate == EENOT_READY) && (0x55 == new_value)) { eestate = EEHAVE_0x55; } else if ( (eestate == EEHAVE_0x55) && (0xaa == new_value)) { eestate = EEREADY_FOR_WRITE; } else if ((eestate == EEHAVE_0x55) || (eestate == EEREADY_FOR_WRITE)) { eestate = EENOT_READY; } } unsigned int EECON2::get() { trace.raw(read_trace.get() | value.get()); return(0); } EECON2::EECON2(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc) { ee_reset(); } unsigned int EEDATA::get() { trace.raw(read_trace.get() | value.get()); return(value.get()); } void EEDATA::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value); } EEDATA::EEDATA(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc) { } unsigned int EEADR::get() { trace.raw(read_trace.get() | value.get()); //trace.register_read(address,value.get()); return(value.get()); } void EEADR::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value); } EEADR::EEADR(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc) { } //------------------------------------------------------------------------ EEPROM_PIR::EEPROM_PIR(Processor *pCpu, PIR *pPir) : EEPROM(pCpu),m_pir(pPir), eeadrh(pCpu, "eeadrh", "EE Address High byte") { } EEPROM_PIR::~EEPROM_PIR() { pic_processor *pCpu = dynamic_cast(cpu); if (pCpu) pCpu->remove_sfr_register(&eeadrh); } void EEPROM_PIR::start_write() { get_cycles().set_break(get_cycles().get() + EPROM_WRITE_TIME, this); if ( rom_size > 256 ) wr_adr = eeadr.value.get() + (eeadrh.value.get() << 8); else wr_adr = eeadr.value.get(); wr_data = eedata.value.get(); eecon2.start_write(); } //------------------------------------------------------------------------ // Set the EEIF and clear the WR bits. void EEPROM_PIR::write_is_complete() { assert(m_pir != 0); eecon1.value.put( eecon1.value.get() & (~eecon1.WR)); m_pir->set_eeif(); } void EEPROM_PIR::initialize(unsigned int new_rom_size) { eeadrh.set_eeprom(this); EEPROM::initialize(new_rom_size); } //---------------------------------------------------------- // // EE PROM // // There are many conditions that need to be verified against a real part: // 1) what happens if RD and WR are set at the same time? // > the simulator ignores both the read and the write. // 2) what happens if a RD is initiated while data is being written? // > the simulator ignores the read // 3) what happens if EEADR or EEDATA are changed while data is being written? // > the simulator will update these registers with the new values that // are written to them, however the write operation will be unaffected. // 4) if WRERR is set, will this prevent a valid write sequence from being initiated? // > the simulator views WRERR as a status bit // 5) if a RD is attempted after the eeprom has been prepared for a write // will this affect the RD or write? // > The simulator will proceed with the read and leave the write-enable state alone. // 6) what happens if WREN goes low while a write is happening? // > The simulator will complete the write and WREN will be cleared. EEPROM::EEPROM(Processor *pCpu) : name_str(0), cpu(pCpu), intcon(0), eecon1(pCpu,"eecon1","EE Control 1"), eecon2(pCpu,"eecon2","EE Control 2"), eedata(pCpu,"eedata","EE Data"), eeadr(pCpu,"eeadr", "EE Address"), rom(0), m_UiAccessOfRom(0), rom_data_size(1), rom_size(0) { } EEPROM::~EEPROM() { pic_processor *pCpu = dynamic_cast(cpu); if (pCpu) { pCpu->remove_sfr_register(&eedata); pCpu->remove_sfr_register(&eeadr); pCpu->remove_sfr_register(&eecon1); pCpu->remove_sfr_register(&eecon2); } for (unsigned int i = 0; i < rom_size; i++) delete rom[i]; delete [] rom; delete m_UiAccessOfRom; } Register *EEPROM::get_register(unsigned int address) { if(addressperipheral_interrupt(); } void EEPROM::start_program_memory_read() { cout << "ERROR: program memory flash should not be accessible\n"; bp.halt(); } void EEPROM::callback() { switch(eecon2.get_eestate()) { case EECON2::EEREAD: //cout << "eeread\n"; eecon2.unarm(); if ( get_address() < rom_size ) eedata.value.put(rom[get_address()]->get()); else { cout << "EEPROM read address is out of range " << hex << eeadr.value.get() << endl; bp.halt(); } eecon1.value.put(eecon1.value.get() & (~EECON1::RD)); break; case EECON2::EEWRITE_IN_PROGRESS: //cout << "eewrite\n"; if(wr_adr < rom_size) rom[wr_adr]->value.put(wr_data); else { cout << "EEPROM write address is out of range " << hex << wr_adr << '\n'; bp.halt(); } write_is_complete(); if (eecon1.value.get() & eecon1.WREN) eecon2.unready(); else eecon2.unarm(); break; eecon1.value.put(eecon1.value.get() & (~EECON1::WR)); default: cout << "EEPROM::callback() bad eeprom state " << eecon2.get_eestate() << '\n'; bp.halt(); } } void EEPROM::reset(RESET_TYPE by) { switch(by) { case POR_RESET: eecon1.value.put(0); // eedata & eeadr are undefined at power up eecon2.unarm(); break; default: break; } } void EEPROM::initialize(unsigned int new_rom_size) { rom_size = new_rom_size; // Let the control registers have a pointer to the peripheral in // which they belong. eecon1.set_eeprom(this); eecon2.set_eeprom(this); eedata.set_eeprom(this); eeadr.set_eeprom(this); // Create the rom rom = (Register **) new char[sizeof (Register *) * rom_size]; assert(rom != 0); // Initialize the rom char str[100]; for (unsigned int i = 0; i < rom_size; i++) { snprintf (str, sizeof(str), "eereg 0x%02x", i); rom[i] = new Register(cpu,str); rom[i]->address = i; rom[i]->value.put(0); rom[i]->alias_mask = 0; } if(cpu) { //cpu->ema.set_cpu(cpu); cpu->ema.set_Registers(rom, rom_size); m_UiAccessOfRom = new RegisterCollection(cpu, "eeData", rom, rom_size); } } //---------------------------------------- // Save the current state of the eeprom. This is used to reconstitute // the trace buffer. void EEPROM::save_state() { if(!rom || !rom_size) return; for (unsigned int i = 0; i < rom_size; i++) if(rom[i]) rom[i]->put_trace_state(rom[i]->value); } void EEPROM::set_intcon(INTCON *ic) { intcon = ic; } void EEPROM::dump() { unsigned int i, j, reg_num,v; cout << " " << hex; // Column labels for (i = 0; i < 16; i++) cout << setw(2) << setfill('0') << i << ' '; cout << '\n'; for (i = 0; i < rom_size/16; i++) { cout << setw(2) << setfill('0') << i << ": "; for (j = 0; j < 16; j++) { reg_num = i * 16 + j; if(reg_num < rom_size) { v = rom[reg_num]->get_value(); cout << setw(2) << setfill('0') << v << ' '; } else cout << "-- "; } cout << " "; for (j = 0; j < 16; j++) { reg_num = i * 16 + j; if(reg_num < rom_size) { v = rom[reg_num]->get_value(); if( (v >= ' ') && (v <= 'z')) cout.put(v); else cout.put('.'); } } cout << '\n'; } } //------------------------------------------------------------------------ EEPROM_WIDE::EEPROM_WIDE(Processor *pCpu, PIR *pPir) : EEPROM_PIR(pCpu,pPir), eedatah(pCpu,"eedatah", "EE Data High byte") { } EEPROM_WIDE::~EEPROM_WIDE() { pic_processor *pCpu = dynamic_cast(cpu); pCpu->remove_sfr_register(&eedatah); } void EEPROM_WIDE::start_write() { get_cycles().set_break(get_cycles().get() + EPROM_WRITE_TIME, this); wr_adr = eeadr.value.get() + (eeadrh.value.get() << 8); wr_data = eedata.value.get() + (eedatah.value.get() << 8); eecon2.start_write(); } void EEPROM_WIDE::start_program_memory_read() { rd_adr = eeadr.value.get() | (eeadrh.value.get() << 8); get_cycles().set_break(get_cycles().get() + 2, this); } void EEPROM_WIDE::callback() { //cout << "eeprom call back\n"; switch(eecon2.get_eestate()) { case EECON2::EEREAD: //cout << "eeread\n"; eecon2.unarm(); if(eecon1.value.get() & EECON1::EEPGD) { // read program memory int opcode = cpu->pma->get_opcode(rd_adr); eedata.value.put(opcode & 0xff); eedatah.value.put((opcode>>8) & 0xff); } else { if (eeadr.value.get() < rom_size) eedata.value.put(rom[eeadr.value.get()]->get()); else { cout << "WIDE_EEPROM read adrress is out of range " << hex << eeadr.value.get() << '\n'; bp.halt(); } } eecon1.value.put(eecon1.value.get() & (~EECON1::RD)); break; case EECON2::EEWRITE_IN_PROGRESS: //cout << "eewrite\n"; if(eecon1.value.get() & EECON1::EEPGD) // write program memory { cpu->init_program_memory_at_index(wr_adr, wr_data); } else // read eeprom memory { if(wr_adr < rom_size) { rom[wr_adr]->value.put(wr_data); } else { cout << "WIDE_EEPROM write address is out of range " << hex << wr_adr << '\n'; bp.halt(); } } write_is_complete(); if (eecon1.value.get() & eecon1.WREN) eecon2.unready(); else eecon2.unarm(); break; default: cout << "EEPROM_WIDE::callback() bad eeprom state " << eecon2.get_eestate() << '\n'; bp.halt(); } } void EEPROM_WIDE::initialize(unsigned int new_rom_size) { eedatah.set_eeprom(this); eeadrh.set_eeprom(this); EEPROM::initialize(new_rom_size); } void EEPROM_PIR::callback() { switch(eecon2.get_eestate()) { case EECON2::EEREAD: //cout << "eeread\n"; eecon2.unarm(); if(eecon1.value.get() & EECON1::EEPGD) { cout << "Should not be possible to get here\n"; } else { if ( get_address() < rom_size ) eedata.value.put(rom[get_address()]->get()); else { cout << "LONG_EEPROM read adrress is out of range " << hex << eeadr.value.get() + (eeadrh.value.get() << 8) << '\n'; bp.halt(); } } eecon1.value.put(eecon1.value.get() & (~EECON1::RD)); break; case EECON2::EEWRITE_IN_PROGRESS: //cout << "eewrite\n"; if(eecon1.value.get() & EECON1::EEPGD) // write program memory { cout << "EEPROM_PIR can't do program writes\n"; } else // read eeprom memory { if(wr_adr < rom_size) { rom[wr_adr]->value.put(wr_data); } else { cout << "LONG_EEPROM write address is out of range " << hex << wr_adr << '\n'; bp.halt(); } } write_is_complete(); if (eecon1.value.get() & eecon1.WREN) eecon2.unready(); else eecon2.unarm(); break; default: cout << "EEPROM_LONG::callback() bad eeprom state " << eecon2.get_eestate() << '\n'; bp.halt(); } } //------------------------------------------------------------------------ // EEPROM_EXTND is based on data sheets for 16F193X and // 12(L)F1822/PIC16(L)F1823. It has the following features // // read/write with 16 bit data path // performs I/O to eeprom, program and configuration memory // supports data latches for writing to program and Configuration memory // Performs block erase of program and Configuration memory // Supports write protect of program memory // EEPROM_EXTND::EEPROM_EXTND(Processor *pCpu, PIR *pPir) : EEPROM_WIDE(pCpu,pPir), write_latches(NULL), prog_wp(0) { } EEPROM_EXTND::~EEPROM_EXTND() { if (write_latches != NULL) delete[] write_latches; } void EEPROM_EXTND::initialize( unsigned int new_rom_size, int block_size, int num_latches, unsigned int cfg_word_base) { EEPROM_WIDE::initialize(new_rom_size); erase_block_size = block_size; num_write_latches = num_latches; if (write_latches != NULL) delete[] write_latches; write_latches = new unsigned int [num_latches]; for(int i = 0; i < num_latches; i++) write_latches[i] = LATCH_MT; config_word_base = cfg_word_base; } void EEPROM_EXTND::start_program_memory_read() { rd_adr = eeadr.value.get() | (eeadrh.value.get() << 8); get_cycles().set_break(get_cycles().get() + 2, this); cpu_pic->pc->increment(); } void EEPROM_EXTND::start_write() { eecon1.value.put( eecon1.value.get() | eecon1.WRERR); if (eecon1.value.get() & (EECON1::EEPGD|EECON1::CFGS)) { get_cycles().set_break(get_cycles().get() + 1, this); cpu_pic->pc->increment(); } else get_cycles().set_break(get_cycles().get() + EPROM_WRITE_TIME, this); wr_adr = eeadr.value.get() + (eeadrh.value.get() << 8); wr_data = eedata.value.get() + (eedatah.value.get() << 8); eecon2.start_write(); } void EEPROM_EXTND::callback() { int index; bool write_error = false; //cout << "eeprom call back\n"; switch(eecon2.get_eestate()) { case EECON2::EEREAD: //cout << "eeread\n"; eecon2.unarm(); if(eecon1.value.get() & EECON1::EEPGD) { // read program memory int opcode = cpu->pma->get_opcode(rd_adr); eedata.value.put(opcode & 0xff); eedatah.value.put((opcode>>8) & 0xff); } else if (eecon1.value.get() & EECON1::CFGS) // Read Config data { unsigned int read_data; read_data = cpu->get_config_word(config_word_base | rd_adr); if (read_data == 0xffffffff) read_data = 0; eedata.value.put(read_data & 0xff); eedatah.value.put((read_data>>8) & 0xff); } else // read eeprom data { if (eeadr.value.get() < rom_size) eedata.value.put(rom[eeadr.value.get()]->get()); else { cout << "EXTND_EEPROM read adrress is out of range " << hex << eeadr.value.get() << '\n'; bp.halt(); } } eecon1.value.put(eecon1.value.get() & (~EECON1::RD)); break; case EECON2::EEWRITE_IN_PROGRESS: //cout << "eewrite\n"; switch(eecon1.value.get() & (EECON1::EEPGD|EECON1::CFGS|EECON1::LWLO|EECON1::FREE)) { case EECON1::EEPGD: // write program memory index = wr_adr & (num_write_latches - 1); wr_adr &= ~(num_write_latches - 1); write_latches[index] = wr_data; if (wr_adr >= prog_wp) { for(int i = 0; i < num_write_latches; i++) { if (write_latches[i] != LATCH_MT) { cpu->init_program_memory(wr_adr+i, write_latches[i]); write_latches[i] = LATCH_MT; } } } else { printf("Warning: attempt to Write protected Program memory 0x%x\n", wr_adr); write_error = true; bp.halt(); gi.simulation_has_stopped(); } // execution stalls for 2ms get_cycles().advance((int)(cpu->get_frequency()*.002/4)); break; case EECON1::EEPGD|EECON1::LWLO: // write to latches case EECON1::CFGS|EECON1::LWLO: // write to latches index = wr_adr & (num_write_latches - 1); write_latches[index] = wr_data; break; case EECON1::CFGS: // write config word memory index = wr_adr & (num_write_latches - 1); wr_adr &= ~(num_write_latches - 1); write_latches[index] = wr_data; for(int i = 0; i < num_write_latches; i++) { if (write_latches[i] != LATCH_MT) // was latch modified? { unsigned int cfg_add = config_word_base | (wr_adr+i); index = cpu->get_config_index(cfg_add); if (index < 0) { printf("EEWRITE No config word at 0x%x\n", cfg_add); write_error = true; } else if (!cpu_pic->getConfigMemory()->getConfigWord(index)->isEEWritable()) { printf("EEWRITE config word at 0x%x write protected\n", cfg_add); write_error = true; } else { Dprintf(("write config data cfg_add %x wr_data %x\n", cfg_add, wr_data)); if(!cpu->set_config_word(cfg_add, wr_data)) { printf("EEWRITE unknown failure to write %x to 0x%x\n", wr_data, cfg_add); write_error = true; } } write_latches[i] = LATCH_MT; } } // execution stalls for 2ms get_cycles().clear_break(get_cycles().get()); get_cycles().advance((int)(cpu->get_frequency()*.002/4)); break; case EECON1::CFGS|EECON1::FREE: // free Configuration memory row // This row erase simply skips non-existant or write protected // configuration words wr_adr &= ~(erase_block_size); for(int i = 0; i < erase_block_size; i++) { unsigned int cfg_add = config_word_base | (wr_adr+i); index = cpu->get_config_index(cfg_add); if (index >= 0 && cpu_pic->getConfigMemory()->getConfigWord(index)->isEEWritable()) { cpu->set_config_word(cfg_add, 0); } } // execution stalls for 2ms get_cycles().advance((int)(cpu->get_frequency()*.002/4)); break; case EECON1::EEPGD|EECON1::FREE: // free program memory row wr_adr &= ~(erase_block_size); if (wr_adr >= prog_wp) { for(int i = 0; i < erase_block_size; i++) cpu->erase_program_memory(wr_adr+i); } else { printf("Warning: attempt to row erase protected Program memory\n"); write_error = true; bp.halt(); gi.simulation_has_stopped(); } // execution stalls for 2ms get_cycles().advance((int)(cpu->get_frequency()*.002/4)); break; case EECON1::LWLO: // LWLO ignored to eeprom default: // write to eeprom if(wr_adr < rom_size) { rom[wr_adr]->value.put(wr_data); } else { cout << "EXTND_EEPROM write address is out of range " << hex << wr_adr << '\n'; write_error = true; bp.halt(); } break; } if (!write_error) eecon1.value.put( eecon1.value.get() & ~ eecon1.WRERR); write_is_complete(); if (eecon1.value.get() & eecon1.WREN) eecon2.unready(); else eecon2.unarm(); break; default: cout << "EEPROM_EXTND::callback() bad eeprom state " << eecon2.get_eestate() << '\n'; bp.halt(); } } gpsim-0.27.0/src/pir.h0000664000076400007640000004245112160746027011417 00000000000000/* Copyright (C) 1998-2003 Scott Dattalo 2003 Mike Durian 2013 Roy R. Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef PIR_H #define PIR_H #include "assert.h" #include "pie.h" class INTCON; //--------------------------------------------------------- // PIR Peripheral Interrupt register base class for PIR1 & PIR2 class PIR : public sfr_register { protected: INTCON *intcon; PIE *pie; sfr_register *ipr; public: int valid_bits; int writable_bits; PIR(Processor *pCpu, const char *pName, const char *pDesc, INTCON *, PIE *, int _valid_bits); // The PIR base class supports no PIR bits directly virtual void clear_sspif(){} virtual void clear_rcif(){} virtual void clear_txif(){} virtual void set_adif(){} virtual void set_bclif(){} virtual void set_ccpif(){} virtual void set_cmif(){} virtual void set_c1if(){fprintf(stderr, "RRR set_c1if FIX\n");} virtual void set_c2if(){fprintf(stderr, "RRR set_c2if FIX\n");} virtual void set_c3if(){fprintf(stderr, "RRR set_c3if FIX\n");} virtual void set_c4if(){fprintf(stderr, "RRR set_c4if FIX\n");} virtual void set_eccp1if(){} virtual void set_eeif(){} virtual void set_errif(){} virtual void set_irxif(){} virtual void set_lvdif(){} virtual void set_pspif(){} virtual void set_rcif(){} virtual void set_rxb0if(){} virtual void set_rxb1if(){} virtual void set_sspif(){} virtual void set_tmr1if(){} virtual void set_tmr1gif(){} virtual void set_tmr2if(){} virtual void set_tmr3if(){} virtual void set_txb0if(){} virtual void set_txb1if(){} virtual void set_txb2if(){} virtual void set_txif(){} virtual void set_wakif(){} virtual void set_usbif(){} virtual unsigned int get_txif() { return 0;} virtual unsigned int get_rcif() { return 0;} virtual unsigned int get_sspif() { return 0;} /// A generic method to set an interrupt bit by mask virtual void set(int mask) { put(get() | mask); } /// Obtain interrupt request state, as a mask of priorities if relevant virtual int interrupt_status(); virtual void put(unsigned int new_value); virtual void setInterrupt(unsigned int bitMask); virtual void setPeripheralInterrupt(); void set_intcon(INTCON *); void set_pie(PIE *); void set_ipr(sfr_register *); }; //--------------------------------------------------------- // InterruptSource class InterruptSource { public: InterruptSource(PIR *_pir, unsigned int bitMask); void Trigger(); void release(); // called when source is no longer needed. private: PIR *m_pir; unsigned int m_bitMask; }; //--------------------------------------------------------- // PIR1 Peripheral Interrupt register # 1 // // This is version 1 of the PIR1 register - as seen on the 16f62x class PIR1v1 : public PIR { public: enum { TMR1IF = 1<<0, TMR2IF = 1<<1, CCP1IF = 1<<2, SSPIF = 1<<3, TXIF = 1<<4, RCIF = 1<<5, CMIF = 1<<6, // 16f62x EEIF = 1<<7 // 16f62x }; virtual void set_tmr1if() { put(get() | TMR1IF); } virtual void set_tmr2if() { put(get() | TMR2IF); } virtual void set_ccpif() { put(get() | CCP1IF); } virtual void set_sspif() { put(get() | SSPIF); } virtual void set_txif(); virtual void set_rcif(); virtual void set_cmif(); virtual void set_c1if(){set_cmif();} virtual void set_c2if(){set_cmif();} virtual void set_eeif(); virtual unsigned int get_sspif() { return value.get() & SSPIF; } void clear_sspif(); unsigned int get_txif() { return value.get() & TXIF; } void clear_txif(); unsigned int get_rcif() { return value.get() & RCIF; } virtual void clear_rcif(); PIR1v1(Processor *pCpu, const char *pName, const char *pDesc, INTCON *, PIE *); }; //--------------------------------------------------------- // PIR1 Peripheral Interrupt register # 1 // // This is version 2 of the PIR1 register - as seen on the 18xxxx devices // and devices like the 16c63a. class PIR1v2 : public PIR { public: enum { TMR1IF = 1<<0, TMR2IF = 1<<1, CCP1IF = 1<<2, SSPIF = 1<<3, TXIF = 1<<4, RCIF = 1<<5, ADIF = 1<<6, // 18cxxx PSPIF = 1<<7 }; virtual void set_tmr1if() { put(get() | TMR1IF); } virtual void set_tmr2if() { put(get() | TMR2IF); } virtual void set_ccpif() { put(get() | CCP1IF); } virtual void set_sspif(); unsigned int get_sspif() { return value.get() & SSPIF; } virtual void clear_sspif(); virtual void set_txif(); virtual void set_rcif(); virtual void set_adif() { put(get() | ADIF); } virtual void set_pspif(); virtual unsigned int get_txif() { return value.get() & TXIF; } virtual void clear_txif(); unsigned int get_rcif() { return value.get() & RCIF; } virtual void clear_rcif(); PIR1v2(Processor *pCpu, const char *pName, const char *pDesc, INTCON *, PIE *); }; //--------------------------------------------------------- // PIR1 Peripheral Interrupt register # 1 // // This is version 3 of the PIR1 register - as seen on the p16f630 devices class PIR1v3 : public PIR { public: enum { TMR1IF = 1<<0, TMR2IF = 1<<1, //16f684 OSFIF = 1<<2, //16f684 CMIF = 1<<3, C1IF = 1<<3, //16f684 C2IF = 1<<4, //16f684 CCP1IF = 1<<5, //16f684 ADIF = 1<<6, EEIF = 1<<7 }; virtual void set_tmr1if(); virtual void set_tmr2if(); virtual void set_cmif(); virtual void set_adif(); virtual void set_eeif(); virtual void set_c1if(); virtual void set_c2if(); virtual void set_ccpif() { put(get() | CCP1IF); } PIR1v3(Processor *pCpu, const char *pName, const char *pDesc, INTCON *, PIE *); }; //--------------------------------------------------------- // PIR2 Peripheral Interrupt register # 2 // // This is version 1 of the PIR1 register - as seen on the 16f62x class PIR2v1 : public PIR { public: enum { CCP2IF = 1<<0 }; virtual void set_ccpif() { put(get() | CCP2IF); } PIR2v1(Processor *pCpu, const char *pName, const char *pDesc, INTCON *, PIE *); }; //--------------------------------------------------------- // PIR2 Peripheral Interrupt register # 2 // // This is version 2 of the PIR2 register - as seen on the 18xxxx devices // and devices like the 16c63a. class PIR2v2 : public PIR { public: enum { CCP2IF = 1<<0, ECCP1IF = 1<<0, /* only on the PIC18F4xx devices */ TMR3IF = 1<<1, LVDIF = 1<<2, BCLIF = 1<<3, EEIF = 1<<4, CMIF = 1<<6 /* PIC16F87xA, PIC18F4xx devices */ }; virtual void set_eccp1if() { put(get() | ECCP1IF); } virtual void set_ccpif() /* RP - needs to define set_ccpif too! */ { put(get() | CCP2IF); } virtual void set_tmr3if() { put(get() | TMR3IF); } virtual void set_lvdif() { put(get() | LVDIF); } virtual void set_bclif(); virtual void set_eeif(); virtual void set_cmif(); virtual void set_c1if(){ set_cmif();} virtual void set_c2if(){ set_cmif();} PIR2v2(Processor *pCpu, const char *pName, const char *pDesc, INTCON *, PIE *); }; //--------------------------------------------------------- // PIR2 Peripheral Interrupt register # 3 // // This is version 2 of the PIR2 register - as seen on the 16f88x devices class PIR2v3 : public PIR { public: enum { CCP2IF = 1<<0, ULPWUIF = 1<<2, BCLIF = 1<<3, EEIF = 1<<4, C1IF = 1<<5, C2IF = 1<<6, OSFIF = 1<<7 }; virtual void set_ccpif() { put(get() | CCP2IF); } virtual void set_bclif(); virtual void set_eeif(); virtual void set_c1if(); virtual void set_c2if(); PIR2v3(Processor *pCpu, const char *pName, const char *pDesc, INTCON *, PIE *); }; //--------------------------------------------------------- // PIR2 Peripheral Interrupt register # 3 // // This is version 4 of the PIR2 register - as seen on the 18F4455 devices class PIR2v4 : public PIR { public: enum { CCP2IF = 1<<0, TMR3IF = 1<<1, HLVDIF = 1<<2, BCLIF = 1<<3, EEIF = 1<<4, USBIF = 1<<5, CMIF = 1<<6, OSCFIF = 1<<7 }; virtual void set_ccpif(){ put(get() | CCP2IF); } virtual void set_tmr3if() { put(get() | TMR3IF); } virtual void set_hlvdif() { put(get() | HLVDIF); } virtual void set_oscfif() { put(get() | OSCFIF); } virtual void set_bclif(); virtual void set_eeif(); virtual void set_usbif(); virtual void set_cmif(); virtual void set_c1if(){ set_cmif(); } virtual void set_c2if(){ set_cmif(); } PIR2v4(Processor *pCpu, const char *pName, const char *pDesc, INTCON *, PIE *); }; //--------------------------------------------------------- // PIR2 Peripheral Interrupt register # 3 // // This is version 1 of the PIR3 register - as seen on the 18F6520 devices class PIR3v1 : public PIR { public: enum { CCP3IF = 1<<0, CCP4IF = 1<<1, CCP5IF = 1<<2, TMR4IF = 1<<3, TXIF = 1<<4, RCIF = 1<<5 }; virtual void set_ccpif() /* RP - needs to define set_ccpif too! */ { put(get() | CCP3IF); } virtual void set_tmr2if() { put(get() | TMR4IF); } virtual void set_txif(); virtual void set_rcif(); virtual unsigned int get_txif() { return value.get() & TXIF; } virtual void clear_txif(); unsigned int get_rcif() { return value.get() & RCIF; } virtual void clear_rcif(); PIR3v1(Processor *pCpu, const char *pName, const char *pDesc, INTCON *, PIE *); }; //--------------------------------------------------------- // PIR2 Peripheral Interrupt register # 3 // // This is version 2 of the PIR3 register - as seen on the 18F248 devices // Perhaps other devices too - it contains bits for the CAN device class PIR3v2 : public PIR { public: enum { RXB0IF = 1<<0, RXB1IF = 1<<1, TXB0IF = 1<<2, TXB1IF = 1<<3, TXB2IF = 1<<4, ERRIF = 1<<5, WAKIF = 1<<6, IRXIF = 1<<7 }; virtual void set_rxb0if() { put(get() | RXB0IF); } virtual void set_rxb1if() { put(get() | RXB1IF); } virtual void set_txb0if() { put(get() | TXB0IF); } virtual void set_txb1if() { put(get() | TXB1IF); } virtual void set_txb2if() { put(get() | TXB2IF); } virtual void set_errif() { put(get() | ERRIF); } virtual void set_wakif() { put(get() | WAKIF); } virtual void set_irxif() { put(get() | IRXIF); } PIR3v2(Processor *pCpu, const char *pName, const char *pDesc, INTCON *, PIE *); }; /* * PIR_SET defines an interface to some common interrupt capabilities. * PIR_SET is a pure virtual class - you must instantiate a more specific * version of PIR_SET. * * The idea behind PIR_SET is to hide the location of the interrupt bits. * in some cases, a bit might be in PIR1, in others it might be in PIR2. * Instead of accessing the register directly, you go through PIR_SET * and it will find the proper PIR register. */ class PIR_SET { public: virtual ~PIR_SET() { } virtual int interrupt_status() { return 0; } // uart stuff virtual bool get_txif() { return false; } virtual void set_txif() {} virtual void clear_txif() {} virtual bool get_rcif() { return false; } virtual void set_rcif() {} virtual void clear_rcif() {} // ssp stuff virtual bool get_sspif() { return false; } virtual void clear_sspif() {} virtual void set_sspif() {} virtual void set_bclif() {} virtual void set_pspif() {} virtual void set_cmif() {} virtual void set_c1if() {} virtual void set_c2if() {} virtual void set_c3if() {} virtual void set_c4if() {} // eeprom stuff virtual void set_eeif() {} // CCP stuff virtual void set_ccpif() {} // Timer stuff virtual void set_tmr1if() {} virtual void set_tmr1gif() {} virtual void set_tmr2if() {} virtual void set_adif() {} }; //---------------------------------------- // Supports 1 or 2 Pir version 1 registers class PIR_SET_1 : public PIR_SET { public: PIR_SET_1() { pir1 = 0; pir2 = 0; } virtual ~PIR_SET_1() { } void set_pir1(PIR *p1) { pir1 = p1; } void set_pir2(PIR *p2) { pir2 = p2; } virtual int interrupt_status() { assert(pir1 != 0); if (pir2 != 0) return (pir1->interrupt_status() | pir2->interrupt_status()); else return (pir1->interrupt_status()); } // uart stuff virtual bool get_txif() { assert(pir1 != 0); return (pir1->get_txif() != 0); } virtual void set_txif() { assert(pir1 != 0); pir1->set_txif(); } virtual void clear_txif() { assert(pir1 != 0); pir1->clear_txif(); } virtual bool get_rcif() { assert(pir1 != 0); return (pir1->get_rcif() != 0); } virtual void set_rcif() { assert(pir1 != 0); pir1->set_rcif(); } virtual void clear_rcif() { assert(pir1 != 0); pir1->clear_rcif(); } // ssp stuff virtual bool get_sspif() { assert(pir1 != 0); return (pir1->get_sspif() != 0); } virtual void set_sspif() { assert(pir1 != 0); pir1->set_sspif(); } virtual void clear_sspif() { assert(pir1 != 0); pir1->clear_sspif(); } // eeprom stuff virtual void set_eeif() { assert(pir1 != 0); pir1->set_eeif(); } // CCP stuff virtual void set_ccpif() { assert(pir1 != 0); pir1->set_ccpif(); } // Timer stuff virtual void set_tmr1if() { assert(pir1 != 0); pir1->set_tmr1if(); } virtual void set_tmr2if() { assert(pir1 != 0); pir1->set_tmr2if(); } // A/D stuff - not part of base PIR_SET class virtual void set_adif() { assert(pir1 != 0); pir1->set_adif(); } // Comparator virtual void set_cmif() { assert(pir1 != 0); pir1->set_cmif(); } virtual void set_c1if() { assert(pir1 != 0); pir1->set_c1if(); } virtual void set_c2if() { assert(pir1 != 0); pir1->set_c2if(); } virtual void set_c3if() { assert(pir1 != 0); pir1->set_c3if(); } virtual void set_c4if() { assert(pir1 != 0); pir1->set_c4if(); } private: PIR *pir1; PIR *pir2; }; // Supports 1, 2 or 3 version 2 Pir registers class PIR_SET_2 : public PIR_SET { public: PIR_SET_2() { pir1 = 0; pir2 = 0; pir3 = 0; } virtual ~PIR_SET_2() { } void set_pir1(PIR *p1) { pir1 = p1; } void set_pir2(PIR *p2) { pir2 = p2; } void set_pir3(PIR *p3) { pir3 = p3; } virtual int interrupt_status() { assert(pir1 != 0); int result = pir1->interrupt_status(); if ( pir2 != 0 ) result |= pir2->interrupt_status(); if ( pir3 != 0 ) result |= pir3->interrupt_status(); return result; } // uart stuff virtual bool get_txif() { assert(pir1 != 0); return (pir1->get_txif() != 0); } virtual void set_txif() { assert(pir1 != 0); pir1->set_txif(); } virtual void clear_txif() { assert(pir1 != 0); pir1->clear_txif(); } virtual bool get_rcif() { assert(pir1 != 0); return (pir1->get_rcif() != 0); } virtual void set_rcif() { assert(pir1 != 0); pir1->set_rcif(); } virtual void clear_rcif() { assert(pir1 != 0); pir1->clear_rcif(); } // ssp stuff virtual bool get_sspif() { assert(pir1 != 0); return (pir1->get_sspif() != 0); } virtual void set_sspif() { assert(pir1 != 0); pir1->set_sspif(); } virtual void clear_sspif() { assert(pir1 != 0); pir1->clear_sspif(); } // eeprom stuff virtual void set_eeif() { assert(pir2 != 0); pir2->set_eeif(); } // CCP stuff virtual void set_ccpif() { assert(pir1 != 0); pir1->set_ccpif(); } // Timer stuff virtual void set_tmr1if() { assert(pir1 != 0); pir1->set_tmr1if(); } virtual void set_tmr1gif() { assert(pir1 != 0); pir1->set_tmr1gif(); } virtual void set_tmr2if() { assert(pir1 != 0); pir1->set_tmr2if(); } // A/D stuff - not part of base PIR_SET class virtual void set_adif() { assert(pir1 != 0); pir1->set_adif(); } // Comparator virtual void set_cmif() { assert(pir2 != 0); pir2->set_cmif(); } virtual void set_c1if() { assert(pir2 != 0); pir2->set_c1if(); } virtual void set_c2if() { assert(pir2 != 0); pir2->set_c2if(); } virtual void set_c3if() { assert(pir2 != 0); pir2->set_c3if(); } virtual void set_c4if() { assert(pir2 != 0); pir2->set_c4if(); } // I2C master virtual void set_bclif() { assert(pir2 != 0); pir2->set_bclif(); } // Parallel Slave Port virtual void set_pspif() { assert(pir1 != 0); pir1->set_pspif(); } private: PIR *pir1; PIR *pir2; PIR *pir3; }; #endif /* PIR_H */ gpsim-0.27.0/src/makefile.mingw0000664000076400007640000000517512141276656013303 00000000000000## Makefile for building the gpsim with gcc for mingw. The build ## uses tools running on cygwin, however. ## Use: make -f makefile.mingw TOP = ../.. include ../plat/win32/make.mingw ################################################################ # Nothing much configurable below INCLUDES = -I ../plat/win32 -I \ $(GLIB_PATH)/include/glib-2.0/ -I $(GLIB_PATH)/lib/glib-2.0/include \ -I $(GTK_PATH)/include -I $(GTK_PATH)/lib/gtk+/include \ -I $(PTHREAD_PATH)/include DEFINES += -DHAVE_GUI DLL_LDLIBS = -L $(GLIB_PATH)/lib -l gobject-2.0 -l gthread-2.0 -l glib-2.0 \ -L $(PTHREAD_PATH)/lib -l pthreadGC2 # -lstdc++ all : \ ../config.h \ libgpsim.dll libgpsim_LIBS = \ libsrc.a \ ./dspic/libgpsim_dspic.a src_OBJECTS = \ 12bit-hexdecode.o \ 12bit-processors.o \ 14bit-hexdecode.o \ 14bit-instructions.o \ 14bit-processors.o \ 14bit-registers.o \ 14bit-tmrs.o \ 16bit-hexdecode.o \ 16bit-instructions.o \ 16bit-processors.o \ 16bit-registers.o \ 16bit-tmrs.o \ a2dconverter.o \ a2d_v2.o \ attributes.o \ bitlog.o \ breakpoints.o \ bytelog.o \ clock_phase.o \ cmd_manager.o \ cod.o \ comparator.o \ eeprom.o \ errors.o \ expr.o \ fopen-path.o \ gpsim_object.o \ gpsim_time.o \ hexutils.o \ i2c-ee.o \ icd.o \ init.o \ intcon.o \ interface.o \ ioports.o \ lxt_write.o \ modules.o \ operator.o \ os_dependent.o \ p12f182x.o \ p12f6xx.o \ p12x.o \ p16f62x.o \ p16f87x.o \ p16x5x.o \ p16x6x.o \ p16x7x.o \ p16f88x.o \ p16x8x.o \ p16f8x.o \ p17c75x.o \ p18x.o \ packages.o \ pic-instructions.o \ pic-processor.o \ pic-registers.o \ pic-ioports.o \ pie.o \ protocol.o \ pir.o \ pm_rd.o \ program_files.o \ processor.o \ psp.o \ registers.o \ sim_context.o \ ssp.o \ stimuli.o \ symbol.o \ tmr0.o \ trace.o \ trigger.o \ ttoken.o \ uart.o \ ui.o \ uxsleep.o \ ValueCollections.o \ value.o \ xref.o ../config.h : ../config_win32.h.in (cd .. ; $(AWK) -f plat/win32/configure_win32.awk config_win32.h.in > config.h) icd.o : ../plat/win32/icd.cc $(CXX) -I . $(CFLAGS) -c $< -o $@ uxsleep.o : ../plat/win32/uxsleep.cc $(CXX) $(CFLAGS) -c $< -o $@ ################ The libgpsim_dspic LIB ./dspic/libgpsim_dspic.a : cd ./dspic && $(MAKE) -f makefile.mingw all ################# The libsrc LIB libsrc.a : $(src_OBJECTS) $(RM) -f $@ $(AR) $(ARFLAGS) $@ $(src_OBJECTS) ################ The libgpsim DLL libgpsim.dll: $(libgpsim_LIBS) $(CXX) --shared -Wl,--whole-archive $(libgpsim_LIBS) -Wl,--no-whole-archive $(DLL_LDLIBS) \ -o $@ -Wl,--out-implib,libgpsim.a -Wl,--output-def,libgpsim.def -Wl,-s gpsim-0.27.0/src/breakpoints.cc0000664000076400007640000015574712177133234013317 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include "cmd_gpsim.h" #include "cmd_manager.h" #include "../config.h" #include "pic-processor.h" #include "breakpoints.h" #include "14bit-processors.h" #include "xref.h" #include "icd.h" extern "C"{ #include "lxt_write.h" } #define PCPU ((Processor *)cpu) extern guint64 simulation_start_cycle; // Global declaration of THE breakpoint object // create an instance of inline get_trace() method by taking its address Breakpoints &(*dummy_bp)() = get_bp; Breakpoints bp; //------------------------------------------------------------------------ // find_free - search the array that holds the break points for a free slot // int Breakpoints::find_free() { for(int i=0; i m_iMaxAllocated) m_iMaxAllocated = i + 1; return i; } } cout << "*** out of breakpoints\n"; return(MAX_BREAKPOINTS); } //------------------------------------------------------------------------ // set_breakpoint - Set a breakpoint of a specific type. // int Breakpoints::set_breakpoint(BREAKPOINT_TYPES break_type, Processor *cpu, unsigned int arg1, unsigned arg2, TriggerObject *f1) { breakpoint_number = find_free(); if(breakpoint_number >= MAX_BREAKPOINTS) return breakpoint_number; BreakStatus &bs = break_status[breakpoint_number]; bs.type = break_type; bs.cpu = cpu; bs.arg1 = arg1; bs.arg2 = arg2; bs.bpo = f1; switch (break_type) { case BREAK_ON_INVALID_FR: return(breakpoint_number); break; case BREAK_ON_CYCLE: { guint64 cyc = arg2; cyc = (cyc<<32) | arg1; // The cycle counter does its own break points. if(get_cycles().set_break(cyc, f1, breakpoint_number)) { if(cpu != NULL) { cpu->NotifyBreakpointSet(bs, f1); } return(breakpoint_number); } else bs.type = BREAK_CLEAR; } break; case BREAK_ON_STK_OVERFLOW: if ((cpu->GetCapabilities() & Processor::eBREAKONSTACKOVER) == Processor::eBREAKONSTACKOVER) { // pic_processor should not be referenced here // Should have a GetStack() virtual function in Processor class. // Of course then the Stack class needs to be a virtual class. if(((pic_processor *)(cpu))->stack->set_break_on_overflow(1)) return (breakpoint_number); } else { // Need to add console object printf("Stack breaks not available on a %s processor\n", cpu->name().c_str()); } bs.type = BREAK_CLEAR; break; case BREAK_ON_STK_UNDERFLOW: if ((cpu->GetCapabilities() & Processor::eBREAKONSTACKUNDER) == Processor::eBREAKONSTACKUNDER) { // pic_processor should not be referenced here // Should have a GetStack() virtual function in Processor class. // Of course then the Stack class needs to be a virtual class. if(((pic_processor *)(cpu))->stack->set_break_on_underflow(1)) return (breakpoint_number); } else { // Need to add console object printf("Stack breaks not available on a %s processor\n", cpu->name().c_str()); } bs.type = BREAK_CLEAR; break; case BREAK_ON_WDT_TIMEOUT: if ((cpu->GetCapabilities() & Processor::eBREAKONWATCHDOGTIMER) == Processor::eBREAKONWATCHDOGTIMER) { // pic_processor should not be referenced here // Should have a GetStack() virtual function in Processor class. // Of course then the Stack class needs to be a virtual class. ((_14bit_processor *)cpu)->wdt.set_breakpoint(BREAK_ON_WDT_TIMEOUT | breakpoint_number); return(breakpoint_number); } else { // Need to add console object printf("Watch dog timer breaks not available on a %s processor\n", cpu->name().c_str()); } default: // Not a valid type bs.type = BREAK_CLEAR; break; } return(MAX_BREAKPOINTS); } //------------------------------------------------------------------------ //BreakTraceType *m_brt=0; int Breakpoints::set_breakpoint(TriggerObject *bpo, Processor *pCpu, Expression *pExpr) { int bpn = find_free(); if(bpn >= MAX_BREAKPOINTS || !bpo->set_break()) { delete bpo; return MAX_BREAKPOINTS; } BreakStatus &bs = break_status[bpn]; bs.bpo = bpo; bs.type = BREAK_MASK; // place holder for now... bs.cpu = pCpu; bpo->bpn = bpn; bpo->set_Expression(pExpr); if(get_active_cpu() != NULL) get_active_cpu()->NotifyBreakpointSet(bs, bpo); return bpn; } //------------------------------------------------------------------------ static BreakpointRegister_Value::BRV_Ops MapComparisonOperatorToBreakOperator(ComparisonOperator *pCompareOp) { if (pCompareOp) switch(pCompareOp->isa()) { case ComparisonOperator::eOpEq: return BreakpointRegister_Value::eBREquals; case ComparisonOperator::eOpGe: return BreakpointRegister_Value::eBRGreaterThenEquals; case ComparisonOperator::eOpGt: return BreakpointRegister_Value::eBRGreaterThen; case ComparisonOperator::eOpLe: return BreakpointRegister_Value::eBRLessThenEquals; case ComparisonOperator::eOpLt: return BreakpointRegister_Value::eBRLessThen; case ComparisonOperator::eOpNe: return BreakpointRegister_Value::eBRNotEquals; } return BreakpointRegister_Value::eBRInvalid; } //------------------------------------------------------------------------ // int Breakpoints::set_break(gpsimObject::ObjectBreakTypes bt, gpsimObject::ObjectActionTypes at, Register *pReg, Expression *pExpr) { int iValue = -1; int iMask = -1; bool bCompiledExpression = false; BreakpointRegister_Value::BRV_Ops op = BreakpointRegister_Value::eBRInvalid; Processor *pCpu = (pReg && pReg->get_cpu()) ? pReg->get_cpu() : get_active_cpu(); Register *pRegInExpr = 0; if (pExpr) { /* attempt to compile expressions of these types: * * * ComparisonOperator * / \ * OpAnd LiteralInteger * / \ * register_symbol LiteralInteger * * --- OR --- * * ComparisonOperator * / \ * register_symbol LiteralInteger * * --- OR --- * * OpAnd (not implemented) * / \ * register_symbol LiteralInteger * */ ComparisonOperator *pCompareExpr = dynamic_cast(pExpr); op = MapComparisonOperatorToBreakOperator(pCompareExpr); if (op != BreakpointRegister_Value::eBRInvalid) { OpAnd* pLeftOp = dynamic_cast(pCompareExpr->getLeft()); LiteralSymbol *pLeftSymbol = pLeftOp ? dynamic_cast(pLeftOp->getLeft()) : dynamic_cast(pCompareExpr->getLeft()); //register_symbol *pRegSym = pLeftSymbol ? // dynamic_cast(pLeftSymbol->GetSymbol()) : 0; // pRegInExpr = pRegSym ? pRegSym->getReg() : 0; pRegInExpr = pLeftSymbol ? dynamic_cast(pLeftSymbol) : 0; if (!pRegInExpr) { // Legacy code... try to cast the left most integer into a register. LiteralInteger *pLeftRegAsInteger = pLeftOp ? dynamic_cast(pLeftOp->getLeft()) : dynamic_cast(pCompareExpr->getLeft()); Integer *pRegAddress = pLeftRegAsInteger ? dynamic_cast(pLeftRegAsInteger->evaluate()) : 0; pRegInExpr = (pRegAddress && pCpu) ? &pCpu->rma[(int)pRegAddress->getVal()] : 0; delete pRegAddress; } LiteralInteger* pRightSymbol = pLeftOp ? dynamic_cast(pLeftOp->getRight()) : 0; Integer *pMask = pRightSymbol ? dynamic_cast(pRightSymbol->evaluate()) : 0; iMask = pCpu ? pCpu->register_mask() : iMask; gint64 i64=0; if (pMask) { pMask->get(i64); iMask = (int)i64; } LiteralInteger* pRightValue = dynamic_cast(pCompareExpr->getRight()); Integer *pValue = pRightValue ? dynamic_cast(pRightValue->evaluate()) : 0; // Now check if this parsing was successful if (pReg == pRegInExpr && pValue) { bCompiledExpression = true; pValue->get(i64); iValue = (int)i64; } delete pMask; delete pValue; } } // If there was no register passed in as an input and we failed to compile // the expression (and hence unable to extract a register from the expression) // then don't set a break. pReg = pReg ? pReg : pRegInExpr; if (!pReg) return -1; if (bt == gpsimObject::eBreakWrite) { if (bCompiledExpression) { delete pExpr; return (at == gpsimObject::eActionLog) ? set_breakpoint(new Log_Register_Write_value(pCpu, pReg->address, 0,iValue,op,iMask),pCpu) : set_breakpoint(new Break_register_write_value(pCpu, pReg->address, 0,iValue,op,iMask),pCpu); } else return (at == gpsimObject::eActionLog) ? set_breakpoint(new Log_Register_Write(pCpu, pReg->address,0), pCpu, pExpr) : set_breakpoint(new Break_register_write(pCpu, pReg->address,0), pCpu, pExpr); } else if (bt == gpsimObject::eBreakRead) { if (bCompiledExpression) { delete pExpr; return (at == gpsimObject::eActionLog) ? set_breakpoint(new Log_Register_Read_value(pCpu, pReg->address, 0,iValue,op,iMask),pCpu) : set_breakpoint(new Break_register_read_value(pCpu, pReg->address, 0,iValue,op,iMask),pCpu); } else return (at == gpsimObject::eActionLog) ? set_breakpoint(new Log_Register_Read(pCpu, pReg->address,0), pCpu, pExpr) : set_breakpoint(new Break_register_read(pCpu, pReg->address,0), pCpu, pExpr); } else if (bt == gpsimObject::eBreakChange) { if (bCompiledExpression) { delete pExpr; return (at == gpsimObject::eActionLog) ? set_breakpoint(new Log_Register_Write_value(pCpu, pReg->address, 0,iValue,op,iMask),pCpu) : set_breakpoint(new Break_register_write_value(pCpu, pReg->address, 0,iValue,op,iMask),pCpu); } else return (at == gpsimObject::eActionLog) ? set_breakpoint(new Log_Register_Write(pCpu, pReg->address,0), pCpu, pExpr) : set_breakpoint(new Break_register_change(pCpu, pReg->address,0), pCpu, pExpr); } return -1; } bool Breakpoints::set_expression(unsigned int bpn, Expression *pExpr) { if(bpn < MAX_BREAKPOINTS) { BreakStatus &bs = break_status[bpn]; if(bs.bpo) { bs.bpo->set_Expression(pExpr); return true; } } return false; } int Breakpoints::set_execution_break(Processor *cpu, unsigned int address, Expression *pExpr) { if (!cpu || !cpu->pma || !cpu->pma->hasValid_opcode_at_address(address)) return -1; Breakpoint_Instruction *bpi = new Breakpoint_Instruction(cpu,address,0); return bp.set_breakpoint(bpi,cpu,pExpr); } int Breakpoints::set_notify_break(Processor *cpu, unsigned int address, TriggerObject *f1 = 0) { GetTraceLog().enable_logging(); Notify_Instruction *ni = new Notify_Instruction(cpu,address,0,f1); return bp.set_breakpoint(ni,cpu); } int Breakpoints::set_profile_start_break(Processor *cpu, unsigned int address, TriggerObject *f1) { Profile_Start_Instruction *psi = new Profile_Start_Instruction(cpu,address,0,f1); return bp.set_breakpoint(psi,cpu); } int Breakpoints::set_profile_stop_break(Processor *cpu, unsigned int address, TriggerObject *f1) { Profile_Stop_Instruction *psi = new Profile_Stop_Instruction(cpu,address,0,f1); return bp.set_breakpoint(psi,cpu); } int Breakpoints::set_read_break(Processor *cpu, unsigned int register_number) { Break_register_read *brr = new Break_register_read(cpu,register_number,0); return bp.set_breakpoint(brr,cpu); } int Breakpoints::set_write_break(Processor *cpu, unsigned int register_number) { Break_register_write *brw = new Break_register_write(cpu,register_number,0); return bp.set_breakpoint(brw,cpu); } int Breakpoints::set_read_value_break(Processor *cpu, unsigned int register_number, unsigned int value, unsigned int mask) { return set_read_value_break(cpu, register_number, BreakpointRegister_Value::eBREquals, value, mask); } int Breakpoints::set_read_value_break(Processor *cpu, unsigned int register_number, unsigned int op, unsigned int value, unsigned int mask) { Break_register_read_value *brrv = new Break_register_read_value(cpu, register_number, value, op, BreakpointRegister_Value::eBREquals, mask); return bp.set_breakpoint(brrv,cpu); } int Breakpoints::set_write_value_break(Processor *cpu, unsigned int register_number, unsigned int value, unsigned int mask) { return set_write_value_break(cpu, register_number, BreakpointRegister_Value::eBREquals, value, mask); } int Breakpoints::set_write_value_break(Processor *cpu, unsigned int register_number, unsigned int op, unsigned int value, unsigned int mask) { Break_register_write_value *brwv = new Break_register_write_value(cpu, register_number, 0, value, op, mask); return bp.set_breakpoint(brwv,cpu); } int Breakpoints::set_change_break(Processor *cpu, unsigned int register_number) { Break_register_change *brc = new Break_register_change(cpu,register_number,0); return bp.set_breakpoint(brc,cpu); } int Breakpoints::set_cycle_break(Processor *cpu, guint64 future_cycle, TriggerObject *f1) { return(set_breakpoint (Breakpoints::BREAK_ON_CYCLE, cpu, (unsigned int)(future_cycle & 0xffffffff), (unsigned int)(future_cycle>>32), f1)); } int Breakpoints::set_stk_overflow_break(Processor *cpu) { return(set_breakpoint (Breakpoints::BREAK_ON_STK_OVERFLOW, cpu, 0, 0)); } int Breakpoints::set_stk_underflow_break(Processor *cpu) { return(set_breakpoint (Breakpoints::BREAK_ON_STK_UNDERFLOW, cpu, 0, 0)); } int Breakpoints::set_wdt_break(Processor *cpu) { if ((cpu->GetCapabilities() & Processor::eBREAKONWATCHDOGTIMER) == Processor::eBREAKONWATCHDOGTIMER) { // Set a wdt break only if one is not already set. if(!cpu14->wdt.hasBreak()) return(set_breakpoint (Breakpoints::BREAK_ON_WDT_TIMEOUT, cpu, 0, 0)); } else { // Need to add console object printf("Watch dog timer breaks not available on a %s processor\n", cpu->name().c_str()); } return MAX_BREAKPOINTS; } int Breakpoints::set_notify_read(Processor *cpu, unsigned int register_number) { GetTraceLog().enable_logging(); Log_Register_Read *lrr = new Log_Register_Read(cpu,register_number,0); return bp.set_breakpoint(lrr,cpu); } int Breakpoints::set_notify_write(Processor *cpu, unsigned int register_number) { GetTraceLog().enable_logging(); Log_Register_Write *lrw = new Log_Register_Write(cpu,register_number,0); return bp.set_breakpoint(lrw,cpu); } int Breakpoints::set_notify_read_value(Processor *cpu, unsigned int register_number, unsigned int value, unsigned int mask) { GetTraceLog().enable_logging(); Log_Register_Read_value *lrrv = new Log_Register_Read_value(cpu, register_number, 0, value, BreakpointRegister_Value::eBREquals, mask); return bp.set_breakpoint(lrrv,cpu); } int Breakpoints::set_notify_write_value(Processor *cpu, unsigned int register_number, unsigned int value, unsigned int mask) { GetTraceLog().enable_logging(); Log_Register_Write_value *lrwv = new Log_Register_Write_value(cpu, register_number, 0, value, BreakpointRegister_Value::eBREquals, mask); return bp.set_breakpoint(lrwv,cpu); } int Breakpoints::check_cycle_break(unsigned int bpn) { cout << "cycle break: 0x" << hex << get_cycles().get() << dec << " = " << get_cycles().get() << endl; halt(); if( bpn < MAX_BREAKPOINTS) { if (break_status[bpn].bpo) break_status[bpn].bpo->callback(); //trace.breakpoint( (Breakpoints::BREAK_ON_CYCLE>>8) ); //trace.raw(m_brt->type() | bpn); clear(bpn); } return(1); } bool Breakpoints::dump(TriggerObject *pTO) { if (!pTO) return false; pTO->print(); return true; } bool Breakpoints::dump1(unsigned int bp_num, int dump_type) { if(!bIsValid(bp_num)) { printf("Break point number: %d is out of range\n",bp_num); return false; } BreakStatus &bs = break_status[bp_num]; if(bs.bpo) { switch(dump_type) { case BREAK_ON_EXECUTION: if(dynamic_cast(bs.bpo) != 0) { // for 'break e' we skip RegisterAssertions // and dump user execution breaks. return false; } break; case BREAK_ON_REG_WRITE: if(dynamic_cast(bs.bpo) != 0 || dynamic_cast(bs.bpo) != 0) { // for 'break w' we dump register write classes break; } return false; case BREAK_ON_REG_READ: if(dynamic_cast(bs.bpo) != 0 || dynamic_cast(bs.bpo) != 0) { // for 'break r' we dump register read classes break; } default: break; } return dump(bs.bpo); } else { BREAKPOINT_TYPES break_type = break_status[bp_num].type; switch (break_type) { case BREAK_ON_CYCLE: { const char * pFormat = "%d: cycle 0x%" PRINTF_INT64_MODIFIER "x = %" PRINTF_INT64_MODIFIER "d\n"; guint64 cyc = bs.arg2; cyc = (cyc <<32) | bs.arg1; GetUserInterface().DisplayMessage(pFormat, bp_num, cyc, cyc); } break; case BREAK_ON_STK_UNDERFLOW: case BREAK_ON_STK_OVERFLOW: cout << hex << setw(0) << bp_num << ": " << bs.cpu->name() << " "; cout << "stack " << ((break_type == BREAK_ON_STK_OVERFLOW)?"ov":"und") << "er flow\n"; break; case BREAK_ON_WDT_TIMEOUT: cout << hex << setw(0) << bp_num << ": " << bs.cpu->name() << " "; cout << "wdt time out\n"; break; default: return false; break; } } return true; } void Breakpoints::dump(int dump_type) { bool have_breakpoints = 0; if(dump_type != BREAK_ON_CYCLE) { for(int i = 0; ipma->getFromAddress(address); if(!_this || p==_this) return 0; while(p->getReplaced()!=_this) { p=(Breakpoint_Instruction*)p->getReplaced(); } return p; } void Breakpoints::clear(unsigned int b) { if (!bIsValid(b)) return; BreakStatus &bs = break_status[b]; // //cout << "clearing bp:"<clear(); bs.type = BREAK_CLEAR; get_active_cpu()->NotifyBreakpointCleared(bs, bs.bpo); delete bs.bpo; bs.bpo = 0; return; } switch (bs.type) { case BREAK_ON_CYCLE: bs.type = BREAK_CLEAR; //cout << "Cleared cycle breakpoint number " << b << '\n'; break; case BREAK_ON_STK_OVERFLOW: bs.type = BREAK_CLEAR; if ((bs.cpu->GetCapabilities() & Processor::eSTACK) == Processor::eSTACK) { if(((pic_processor *)(bs.cpu))->stack->set_break_on_overflow(0)) cout << "Cleared stack overflow break point.\n"; else cout << "Stack overflow break point is already cleared.\n"; } break; case BREAK_ON_STK_UNDERFLOW: bs.type = BREAK_CLEAR; if ((bs.cpu->GetCapabilities() & Processor::eSTACK) == Processor::eSTACK) { if(((pic_processor *)(bs.cpu))->stack->set_break_on_underflow(0)) cout << "Cleared stack underflow break point.\n"; else cout << "Stack underflow break point is already cleared.\n"; } break; case BREAK_ON_WDT_TIMEOUT: bs.type = BREAK_CLEAR; if ((bs.cpu->GetCapabilities() & Processor::eBREAKONWATCHDOGTIMER) == Processor::eBREAKONWATCHDOGTIMER) { cout << "Cleared wdt timeout breakpoint number " << b << '\n'; ((_14bit_processor *)bs.cpu)->wdt.set_breakpoint(0); } break; default: bs.type = BREAK_CLEAR; break; } get_active_cpu()->NotifyBreakpointCleared(bs, NULL); } bool Breakpoints::bIsValid(unsigned int b) { return b < MAX_BREAKPOINTS; } bool Breakpoints::bIsClear(unsigned int b) { return bIsValid(b) && break_status[b].type == BREAK_CLEAR; } void Breakpoints::set_message(unsigned int b,string &m) { if (bIsValid(b) && break_status[b].type != BREAK_CLEAR && break_status[b].bpo) break_status[b].bpo->new_message(m); } // // dump_traced // Called by the trace class to display a breakpoint that is in the // trace buffer. void Breakpoints::dump_traced(unsigned int b) { BREAKPOINT_TYPES break_type = (BREAKPOINT_TYPES) ((b & 0xff0000) << 8); switch (break_type) { case BREAK_ON_EXECUTION: cout << "execution at "<< hex << setw(4) << setfill('0') << (b & 0xffff) << '\n'; break; case BREAK_ON_REG_WRITE: cout << "reg write: " << hex << setw(2) << setfill('0') << (b & 0xff) << '\n'; break; case BREAK_ON_REG_WRITE_VALUE: cout << "wrote " << hex << setw(2) << setfill('0') << ((b & 0xff00)>>8) << " to register " << hex << setw(2) << setfill('0') << (b & 0xff) << '\n'; break; case BREAK_ON_REG_READ: cout << "reg write: " << hex << setw(2) << setfill('0') << (b & 0xff) << '\n'; break; case BREAK_ON_REG_READ_VALUE: cout << "read " << hex << setw(2) << setfill('0') << ((b & 0xff00)>>8) << " from register " << hex << setw(2) << setfill('0') << (b & 0xff) << '\n'; break; case BREAK_ON_CYCLE: cout << "cycle " << '\n'; break; case BREAK_ON_WDT_TIMEOUT: cout << "wdt time out\n"; break; default: cout << "unknown\n"; } } // Clear all break points that are set for a specific processor // This only be called when a processor is being removed and not when a user // wants to clear the break points. Otherwise, internal break points like // invalid register accesses will get cleared. void Breakpoints::clear_all(Processor *c) { GetTraceLog().close_logfile(); for(int i=0; i c->register_memory_size()) return; while(c->registers[address]->isa()==Register::BP_REGISTER) { BreakpointRegister *nr = dynamic_cast(c->registers[address]); if(!nr) return; bp.clear(nr->bpn & ~Breakpoints::BREAK_MASK); } } void Breakpoints::halt() { if(get_use_icd()) { icd_halt(); return; } global_break |= GLOBAL_STOP_RUNNING; if(m_bExitOnBreak) { // Let the UI or client code choose how and // when to exit. GetUserInterface().NotifyExitOnBreak(0); } } Breakpoints::Breakpoints() { m_iMaxAllocated = 0; breakpoint_number = 0; m_bExitOnBreak = false; for(int i=0; isimulation_mode == eSM_RUNNING) && (simulation_start_cycle != get_cycles().get()) && eval_Expression()) { invokeAction(); } else m_replaced->execute(); } Breakpoint_Instruction::Breakpoint_Instruction(Processor *new_cpu, unsigned int new_address, unsigned int bp) : TriggerObject(0) { cpu = new_cpu; address = new_address; opcode = 0xffffffff; bpn = bp; m_replaced = new_cpu->pma->getFromAddress(address); set_action(new SimpleTriggerAction(this)); } Breakpoint_Instruction::~Breakpoint_Instruction() { } Processor* Breakpoint_Instruction::get_cpu() { return dynamic_cast(cpu); } //------------------------------------------------------------------- bool Breakpoint_Instruction::set_break() { if(get_use_icd()) bp.clear_all(get_cpu()); unsigned int uIndex = get_cpu()->map_pm_address2index(address); if(uIndex < get_cpu()->program_memory_size()) { m_replaced = get_cpu()->pma->getFromIndex(uIndex); get_cpu()->pma->putToIndex(uIndex, this); if(get_use_icd()) icd_set_break(address); return true; } return false; } void Breakpoint_Instruction::print() { // Output example // 42: p17c756 Execution at 0x0123 instruction *pReplaced = getReplaced(); gpsimObject *pLineSym = pReplaced ? pReplaced->getLineSymbol() : 0; const char *pLabel = pLineSym ? pLineSym->name().c_str() : "no label"; const char * pFormat = *pLabel == 0 ? "%d: %s %s at %s0x%x\n" : "%d: %s %s at %s(0x%x)\n"; GetUserInterface().DisplayMessage(pFormat, bpn, cpu->name().c_str(), bpName(), pLabel, address); TriggerObject::print(); } int Breakpoint_Instruction::printTraced(Trace *pTrace, unsigned int tbi, char *pBuf, int szBuf) { if (!pBuf || !pTrace) return 0; int m; if (bHasExpression()) { char buf[256]; printExpression(buf, sizeof(buf)); m = snprintf(pBuf, szBuf, " assertion at 0x%04x, expr:%s",address,buf); } else m = snprintf(pBuf, szBuf, " execution at 0x%04x",address); return m>0 ? m : 0; } void Breakpoint_Instruction::clear() { if(get_use_icd()) icd_clear_break(); get_cpu()->pma->clear_break_at_address(address, this); instruction *pInst = get_cpu()->pma->getFromAddress(address); /* cout << "about to update cleared instruction breakpoint:" << pInst << " this:" << this << " address: 0x" << hex << address << endl; */ pInst->update(); } //------------------------------------------------------------------------ void Notify_Instruction::execute() { if(callback) callback->callback(); m_replaced->execute(); } Notify_Instruction::Notify_Instruction(Processor *cpu, unsigned int address, unsigned int bp, TriggerObject *cb) : Breakpoint_Instruction(cpu, address,bp) { callback=cb; } Notify_Instruction::~Notify_Instruction() { } //------------------------------------------------------------------------ Profile_Start_Instruction::Profile_Start_Instruction(Processor *cpu, unsigned int address, unsigned int bp, TriggerObject *cb) : Notify_Instruction(cpu, address, bp, cb) { } Profile_Stop_Instruction::Profile_Stop_Instruction(Processor *cpu, unsigned int address, unsigned int bp, TriggerObject *cb) : Notify_Instruction(cpu, address, bp, cb) { } //------------------------------------------------------------------------------ RegisterAssertion::RegisterAssertion(Processor *cpu, unsigned int address, unsigned int bp, unsigned int _regAddress, unsigned int _regMask, unsigned int _regValue, bool _bPostAssertion) : Breakpoint_Instruction(cpu, address,bp), regAddress(_regAddress), regMask(_regMask), regValue(_regValue), bPostAssertion(_bPostAssertion), m_pfnIsAssertionBreak(IsAssertionEqualsBreakCondition) { } RegisterAssertion::RegisterAssertion(Processor *cpu, unsigned int address, unsigned int bp, unsigned int _regAddress, unsigned int _regMask, unsigned int _operator, unsigned int _regValue, bool _bPostAssertion) : Breakpoint_Instruction(cpu, address,bp), regAddress(_regAddress), regMask(_regMask), regValue(_regValue), bPostAssertion(_bPostAssertion) { switch(_operator) { case eRAEquals: m_pfnIsAssertionBreak = IsAssertionEqualsBreakCondition; break; case eRANotEquals: m_pfnIsAssertionBreak = IsAssertionNotEqualsBreakCondition; break; case eRAGreaterThen: m_pfnIsAssertionBreak = IsAssertionGreaterThenBreakCondition; break; case eRALessThen: m_pfnIsAssertionBreak = IsAssertionLessThenBreakCondition; break; case eRAGreaterThenEquals: m_pfnIsAssertionBreak = IsAssertionGreaterThenEqualsBreakCondition; break; case eRALessThenEquals: m_pfnIsAssertionBreak = IsAssertionLessThenEqualsBreakCondition; break; default: assert(false); break; } } RegisterAssertion::~RegisterAssertion() { } bool RegisterAssertion::IsAssertionEqualsBreakCondition(unsigned int uRegValue, unsigned int uRegMask, unsigned int uRegTestValue) { return (uRegValue & uRegMask) != uRegTestValue; } bool RegisterAssertion::IsAssertionNotEqualsBreakCondition(unsigned int uRegValue, unsigned int uRegMask, unsigned int uRegTestValue) { return (uRegValue & uRegMask) == uRegTestValue; } bool RegisterAssertion::IsAssertionGreaterThenBreakCondition(unsigned int uRegValue, unsigned int uRegMask, unsigned int uRegTestValue) { return (uRegValue & uRegMask) <= uRegTestValue; } bool RegisterAssertion::IsAssertionLessThenBreakCondition(unsigned int uRegValue, unsigned int uRegMask, unsigned int uRegTestValue) { return (uRegValue & uRegMask) >= uRegTestValue; } bool RegisterAssertion::IsAssertionGreaterThenEqualsBreakCondition(unsigned int uRegValue, unsigned int uRegMask, unsigned int uRegTestValue) { return (uRegValue & uRegMask) < uRegTestValue; } bool RegisterAssertion::IsAssertionLessThenEqualsBreakCondition(unsigned int uRegValue, unsigned int uRegMask, unsigned int uRegTestValue) { return (uRegValue & uRegMask) > uRegTestValue; } //------------------------------------------------------------------------------ void RegisterAssertion::execute() { // For "post" assertions, the instruction is simulated first // and then the register assertion is checked. if(bPostAssertion && m_replaced) m_replaced->execute(); // If the assertion is true, and the "phase" of the instruction is // '0' then halt the simulation. Note, the reason for checking "phase" // is to ensure the assertion applies to the the proper cycle of a // multi-cycle instruction. For example, an assertion applied to a // a "GOTO" instruction should only get checked before the instruction // executes if it's a pre-assertion or after it completes if it's a // post assertion. unsigned int curRegValue = PCPU->rma[regAddress].get_value(); if( m_pfnIsAssertionBreak(curRegValue, regMask, regValue) && (PCPU->pc->get_phase() == 0) ) { cout << "Caught Register " << (bPostAssertion ? "post " : "") << "assertion " << "while excuting at address 0x" << hex << address << endl; cout << "register 0x" << hex << regAddress << " = 0x" << curRegValue << endl; cout << "0x" << PCPU->rma[regAddress].get_value() << " & 0x" << regMask << " != 0x" << regValue << endl; cout << " regAddress =0x" << regAddress << " regMask = 0x" << regMask << " regValue = 0x" << regValue << endl; PCPU->Debug(); if( (PCPU->simulation_mode == eSM_RUNNING) && (simulation_start_cycle != get_cycles().get())) { eval_Expression(); invokeAction(); trace.raw(m_brt->type(1) | curRegValue ); return; } } // If this is not a post assertion, then the instruction executes after // the instruction simulates. if(!bPostAssertion && m_replaced) m_replaced->execute(); } //------------------------------------------------------------------------------ void RegisterAssertion::print() { Breakpoint_Instruction::print(); Register & pReg = PCPU->rma[regAddress]; string & sName = pReg.name(); const char * pFormat = sName.empty() ? " break when register %s0x%x ANDed with 0x%x equals 0x%x\n" : " break when register %s(0x%x) ANDed with 0x%x equals 0x%x\n" ; GetUserInterface().DisplayMessage(pFormat, sName.c_str(), regAddress, regMask, regValue); TriggerObject::print(); } int RegisterAssertion::printTraced(Trace *pTrace, unsigned int tbi, char *pBuf, int szBuf) { if (!pBuf || pTrace) return 0; unsigned int valueWritten = pTrace->get(tbi+1) & 0xffff; int m = snprintf(pBuf, szBuf, " Register Assertion PC=0x%04x, reg[0x%x]==0x%x != 0x%x", address,regAddress,valueWritten,regValue); return m>0 ? m : 0; } //------------------------------------------------------------------------------ #if 0 class BreakpointRegisterAction : public TriggerAction { public: BreakpointRegisterAction(BreakpointRegister *pbpr); virtual ~BreakpointRegisterAction(); virtual void action(); private: BreakpointRegister *m_pbpr; }; BreakpointRegisterAction::BreakpointRegisterAction(BreakpointRegister *pbpr) : m_pbpr(pbpr) { } BreakpointRegisterAction:: ~BreakpointRegisterAction() { } void BreakpointRegisterAction::action() { if(m_pbpr) m_pbpr->takeAction(); } #endif //------------------------------------------------------------------------------ /* BreakpointRegister::BreakpointRegister() : TriggerObject(new BreakpointRegisterAction(this)) { } */ BreakpointRegister::~BreakpointRegister() { } BreakpointRegister::BreakpointRegister(Processor *_cpu, TriggerAction *pTA, Register *pRepl) : Register(_cpu, "",0), TriggerObject(pTA) { setReplaced(pRepl); } BreakpointRegister::BreakpointRegister(Processor *_cpu, TriggerAction *ta, int _repl, int bp) : Register(_cpu, "",0), TriggerObject(ta) { bpn = bp; replace(_cpu,_repl); address = _repl; } void BreakpointRegister::invokeAction() { if(eval_Expression()) TriggerObject::invokeAction(); } void BreakpointRegister::takeAction() { } void BreakpointRegister::replace(Processor *_cpu, unsigned int reg) { if (_cpu) { cpu = _cpu; _cpu->rma.insertRegister(reg,this); } update(); } unsigned int BreakpointRegister::clear(unsigned int bp_num) { clear(); return 1; } /// BreakpointRegister::clear() will delete itself from the /// chain of BreakpointRegister objects. /// All derived classes that override this function need to /// call this function of this base class. // Note: There should be a RegisterChain class and this code // should exist in the RegisterChain class. get_cpu()->registers // would then be an array of RegisterChains. void BreakpointRegister::clear() { // FIXME, we don't know if this breakpoint register is actually associated // with the active cpu or not. It looks like we need a way for either the // registers to know in which array they're stored OR the Module class needs // to provide a 'removeRegister()' method. if (get_cpu()) { get_cpu()->rma.removeRegister(address,this); get_cpu()->registers[address]->update(); } } bool BreakpointRegister::set_break() { return true; } void BreakpointRegister::print() { // FIXME - broke with new symbol table. Register * pReg = 0; // get_symbol_table().findRegister(address); if (pReg) GetUserInterface().DisplayMessage("%d: %s %s: %s(0x%x)\n", bpn, cpu->name().c_str(), bpName(), pReg->name().c_str(), address); else GetUserInterface().DisplayMessage("%d: %s: reg(0x%x)\n", bpn, bpName(), address); TriggerObject::print(); } int BreakpointRegister::printTraced(Trace *pTrace, unsigned int tbi, char *pBuf, int szBuf) { if (!pBuf || pTrace) return 0; int m = snprintf(pBuf, szBuf, " Breakpoint register "); return m>0 ? m : 0; } string &BreakpointRegister::name() const { return m_replaced ? m_replaced->name() : gpsimObject::name(); }; void BreakpointRegister::put_value(unsigned int new_value) { getReplaced()->put_value(new_value); } void BreakpointRegister::put(unsigned int new_value) { getReplaced()->put(new_value); } void BreakpointRegister::putRV(RegisterValue rv) { getReplaced()->putRV(rv); } unsigned int BreakpointRegister::get_value() { return(getReplaced()->get_value()); } RegisterValue BreakpointRegister::getRV() { return getReplaced()->getRV(); } RegisterValue BreakpointRegister::getRVN() { return getReplaced()->getRVN(); } unsigned int BreakpointRegister::get() { return(getReplaced()->get()); } Register *BreakpointRegister::getReg() { return getReplaced() ? getReplaced()->getReg() : this; } void BreakpointRegister::setbit(unsigned int bit_number, bool new_value) { getReplaced()->setbit(bit_number, new_value); } bool BreakpointRegister::get_bit(unsigned int bit_number) { return(getReplaced()->get_bit(bit_number)); } double BreakpointRegister::get_bit_voltage(unsigned int bit_number) { return(getReplaced()->get_bit_voltage(bit_number)); } bool BreakpointRegister::hasBreak() { return true; } void BreakpointRegister::update() { if(getReplaced()) getReplaced()->update(); } void BreakpointRegister::add_xref(void *an_xref) { if(getReplaced()) getReplaced()->add_xref(an_xref); } void BreakpointRegister::remove_xref(void *an_xref) { if(getReplaced()) getReplaced()->remove_xref(an_xref); } //------------------------------------------------------------------------ BreakpointRegister_Value:: BreakpointRegister_Value(Processor *_cpu, int _repl, int bp, unsigned int bv, unsigned int _operator, unsigned int bm ) : BreakpointRegister(_cpu,0,_repl,bp ) { m_uDefRegMask = _cpu->register_mask(); break_value = bv; break_mask = bm; switch(_operator) { case eBREquals: m_pfnIsBreak = IsEqualsBreakCondition; m_sOperator = "=="; break; case eBRNotEquals: m_pfnIsBreak = IsNotEqualsBreakCondition; m_sOperator = "!="; break; case eBRGreaterThen: m_pfnIsBreak = IsGreaterThenBreakCondition; m_sOperator = ">"; break; case eBRLessThen: m_pfnIsBreak = IsLessThenBreakCondition; m_sOperator = "<"; break; case eBRGreaterThenEquals: m_pfnIsBreak = IsGreaterThenEqualsBreakCondition; m_sOperator = ">="; break; case eBRLessThenEquals: m_pfnIsBreak = IsLessThenEqualsBreakCondition; m_sOperator = "<="; break; default: assert(false); break; } int regMask = (0x100 << (_cpu->register_size()-1)) - 1; if(break_mask == 0) break_mask = regMask; } BreakpointRegister_Value::~BreakpointRegister_Value() { cout << __FUNCTION__ << " destructor\n"; } bool BreakpointRegister_Value::IsEqualsBreakCondition(unsigned int uRegValue, unsigned int uRegMask, unsigned int uRegTestValue) { return (uRegValue & uRegMask) == uRegTestValue; } bool BreakpointRegister_Value::IsNotEqualsBreakCondition(unsigned int uRegValue, unsigned int uRegMask, unsigned int uRegTestValue) { return (uRegValue & uRegMask) != uRegTestValue; } bool BreakpointRegister_Value::IsGreaterThenBreakCondition(unsigned int uRegValue, unsigned int uRegMask, unsigned int uRegTestValue) { return (uRegValue & uRegMask) > uRegTestValue; } bool BreakpointRegister_Value::IsLessThenBreakCondition(unsigned int uRegValue, unsigned int uRegMask, unsigned int uRegTestValue) { return (uRegValue & uRegMask) < uRegTestValue; } bool BreakpointRegister_Value::IsGreaterThenEqualsBreakCondition(unsigned int uRegValue, unsigned int uRegMask, unsigned int uRegTestValue) { return (uRegValue & uRegMask) >= uRegTestValue; } bool BreakpointRegister_Value::IsLessThenEqualsBreakCondition(unsigned int uRegValue, unsigned int uRegMask, unsigned int uRegTestValue) { return (uRegValue & uRegMask) <= uRegTestValue; } /* void BreakpointRegister_Value::invokeAction() { if(eval_Expression()) TriggerObject::invokeAction(); } */ /// BreakpointRegister_Value::print() - base class function /// would be unusual to not be over ridden. void BreakpointRegister_Value::print() { Register *pReg = getReg(); string & sName = pReg->name(); const char * pFormat = sName.empty() ? "%d: %s %s: break when register %s0x%x ANDed with 0x%x %s 0x%x\n" : "%d: %s %s: break when register %s(0x%x) ANDed with 0x%x %s 0x%x\n" ; GetUserInterface().DisplayMessage(pFormat, bpn,cpu->name().c_str(), bpName(), sName.c_str(), pReg->address, break_mask, m_sOperator.c_str(),break_value); TriggerObject::print(); } int BreakpointRegister_Value::printTraced(Trace *pTrace, unsigned int tbi, char *pBuf, int szBuf) { if (pBuf && pTrace) { unsigned int valueRead = pTrace->get(tbi+1) & 0xffff; int m = snprintf(pBuf,szBuf," read 0x%x from reg 0x%x", valueRead, address); return m>0 ? m : 0; } return 0; } //------------------------------------------------------------------- // Break_register_write_value::Break_register_write_value(Processor *_cpu, int _repl, int bp, unsigned int bv, unsigned int _operator, unsigned int bm ) : BreakpointRegister_Value(_cpu, _repl, bp, bv, _operator, bm ) { } Break_register_write_value::~Break_register_write_value() { } void Break_register_write_value::takeAction() { trace.raw(m_brt->type(1) | (getReplaced()->get_value() & 0xffffff)); if(verbosity && verbosity->getVal()) { GetUserInterface().DisplayMessage(IDS_HIT_BREAK,bpn); string sFormattedRegAddress; sFormattedRegAddress = GetUserInterface().FormatRegisterAddress(getReg()); if(break_mask != m_uDefRegMask) { sFormattedRegAddress += " & "; sFormattedRegAddress += GetUserInterface().FormatLabeledValue("", break_mask); } GetUserInterface().DisplayMessage(IDS_BREAK_WRITING_REG_OP_VALUE, sFormattedRegAddress.c_str(), m_sOperator.c_str(), break_value); } bp.halt(); } //======================================================================== // Break_register_read::Break_register_read(Processor *_cpu, int _repl, int bp ): BreakpointRegister(_cpu,0,_repl,bp ) { } Break_register_read::~Break_register_read() { } void Break_register_read::takeAction() { trace.raw(m_brt->type(1) | (getReplaced()->get_value() & 0xffffff)); if(verbosity && verbosity->getVal()) { GetUserInterface().DisplayMessage(IDS_HIT_BREAK,bpn); string sFormattedRegAddress; sFormattedRegAddress = GetUserInterface().FormatRegisterAddress(getReg()); GetUserInterface().DisplayMessage(IDS_BREAK_READING_REG, sFormattedRegAddress.c_str()); } bp.halt(); } unsigned int Break_register_read::get() { unsigned int v = getReplaced()->get(); invokeAction(); return v; } RegisterValue Break_register_read::getRV() { RegisterValue rv = getReplaced()->getRV(); invokeAction(); return rv; } RegisterValue Break_register_read::getRVN() { RegisterValue rv = getReplaced()->getRVN(); invokeAction(); return rv; } bool Break_register_read::get_bit(unsigned int bit_number) { invokeAction(); return(getReplaced()->get_bit(bit_number)); } double Break_register_read::get_bit_voltage(unsigned int bit_number) { return getReplaced()->get_bit_voltage(bit_number); } int Break_register_read::printTraced(Trace *pTrace, unsigned int tbi, char *pBuf, int szBuf) { if (pBuf && pTrace) { unsigned int valueRead = pTrace->get(tbi+1) & 0xffff; int m = snprintf(pBuf,szBuf," read 0x%x from reg 0x%x", valueRead, address); return m>0 ? m : 0; } return 0; } //======================================================================== // Break_register_write::Break_register_write(Processor *_cpu, int _repl, int bp ): BreakpointRegister(_cpu,0,_repl,bp ) { } Break_register_write::~Break_register_write() { } void Break_register_write::takeAction() { trace.raw(m_brt->type(1) | (getReplaced()->get_value() & 0xffffff)); if(verbosity && verbosity->getVal()) { GetUserInterface().DisplayMessage(IDS_HIT_BREAK,bpn); string sFormattedRegAddress; sFormattedRegAddress = GetUserInterface().FormatRegisterAddress( address, 0); GetUserInterface().DisplayMessage(IDS_BREAK_WRITING_REG, sFormattedRegAddress.c_str()); } bp.halt(); } void Break_register_write::put(unsigned int new_value) { getReplaced()->put(new_value); invokeAction(); } void Break_register_write::putRV(RegisterValue rv) { getReplaced()->putRV(rv); invokeAction(); } void Break_register_write::setbit(unsigned int bit_number, bool new_value) { getReplaced()->setbit(bit_number,new_value); invokeAction(); } int Break_register_write::printTraced(Trace *pTrace, unsigned int tbi, char *pBuf, int szBuf) { if (pBuf && pTrace) { unsigned int valueRead = pTrace->get(tbi+1) & 0xffff; int m = snprintf(pBuf,szBuf," wrote 0x%x to reg 0x%x", valueRead, address); return m>0 ? m : 0; } return 0; } //======================================================================== Break_register_read_value::Break_register_read_value(Processor *_cpu, int _repl, int bp, unsigned int bv, unsigned int _operator, unsigned int bm ) : BreakpointRegister_Value(_cpu, _repl, bp, bv, _operator, bm ) { } Break_register_read_value::~Break_register_read_value() { } void Break_register_read_value::takeAction() { trace.raw(m_brt->type(1) | (getReplaced()->get_value() & 0xffffff)); if(verbosity && verbosity->getVal()) { GetUserInterface().DisplayMessage(IDS_HIT_BREAK,bpn); string sFormattedRegAddress; sFormattedRegAddress = GetUserInterface().FormatRegisterAddress(getReg()); if(break_mask != m_uDefRegMask) { sFormattedRegAddress += " & "; sFormattedRegAddress += GetUserInterface().FormatLabeledValue("", break_mask); } GetUserInterface().DisplayMessage(IDS_BREAK_READING_REG_OP_VALUE, sFormattedRegAddress.c_str(), m_sOperator.c_str(), break_value); } bp.halt(); } unsigned int Break_register_read_value::get() { unsigned int v = getReplaced()->get(); if(m_pfnIsBreak(v, break_mask, break_value)) invokeAction(); return v; } RegisterValue Break_register_read_value::getRV() { RegisterValue v = getReplaced()->getRV(); if(m_pfnIsBreak(v.data, break_mask, break_value)) invokeAction(); return(v); } RegisterValue Break_register_read_value::getRVN() { RegisterValue v = getReplaced()->getRVN(); if(m_pfnIsBreak(v.data, break_mask, break_value)) invokeAction(); return(v); } bool Break_register_read_value::get_bit(unsigned int bit_number) { unsigned int v = getReplaced()->get(); unsigned int mask = 1<<(bit_number & 7); if( (break_mask & mask) && (v & mask) == (break_value&mask)) invokeAction(); return getReplaced()->get_bit(bit_number); } double Break_register_read_value::get_bit_voltage(unsigned int bit_number) { return getReplaced()->get_bit_voltage(bit_number); } int Break_register_read_value::printTraced(Trace *pTrace, unsigned int tbi, char *pBuf, int szBuf) { if (pBuf && pTrace) { unsigned int valueRead = pTrace->get(tbi+1) & 0xffff; int m = snprintf(pBuf,szBuf," read 0x%x from reg 0x%x", valueRead, address); return m>0 ? m : 0; } return 0; } //======================================================================== void Break_register_write_value::put(unsigned int new_value) { getReplaced()->put(new_value); if(m_pfnIsBreak(new_value, break_mask, break_value)) invokeAction(); } void Break_register_write_value::putRV(RegisterValue rv) { getReplaced()->putRV(rv); if(m_pfnIsBreak(rv.data, break_mask, break_value)) invokeAction(); } void Break_register_write_value::setbit(unsigned int bit_number, bool new_bit) { int val_mask = 1 << bit_number; int new_value = ((int)new_bit) << bit_number; getReplaced()->setbit(bit_number,new_value ? true : false); if( (val_mask & break_mask) && ( ( (getReplaced()->value.get() & ~val_mask) // clear the old bit | new_value) // set the new bit & break_mask) == break_value) invokeAction(); } int Break_register_write_value::printTraced(Trace *pTrace, unsigned int tbi, char *pBuf, int szBuf) { if (pBuf && pTrace) { unsigned int valueRead = pTrace->get(tbi+1) & 0xffff; int m = snprintf(pBuf,szBuf," wrote 0x%x to reg 0x%x", valueRead, address); return m>0 ? m : 0; } return 0; } //======================================================================== // Break_register_change::Break_register_change(Processor *_cpu, int _repl, int bp ): BreakpointRegister(_cpu,0,_repl,bp ) { } Break_register_change::~Break_register_change() { } void Break_register_change::takeAction() { trace.raw(m_brt->type(1) | (getReplaced()->get_value() & 0xffffff)); if(verbosity && verbosity->getVal()) { GetUserInterface().DisplayMessage(IDS_HIT_BREAK,bpn); string sFormattedRegAddress; sFormattedRegAddress = GetUserInterface().FormatRegisterAddress( address, 0); GetUserInterface().DisplayMessage(IDS_BREAK_WRITING_REG, sFormattedRegAddress.c_str()); } bp.halt(); } void Break_register_change::put(unsigned int new_value) { unsigned int before = getReplaced()->get_value(); getReplaced()->put(new_value); if (before != getReplaced()->get_value()) invokeAction(); } void Break_register_change::putRV(RegisterValue rv) { RegisterValue before = getReplaced()->getRV_notrace(); getReplaced()->putRV(rv); if (before != getReplaced()->getRV_notrace()) invokeAction(); } void Break_register_change::setbit(unsigned int bit_number, bool new_value) { bool before = getReplaced()->get_bit(bit_number); getReplaced()->setbit(bit_number,new_value); if (before != getReplaced()->get_bit(bit_number)) invokeAction(); } int Break_register_change::printTraced(Trace *pTrace, unsigned int tbi, char *pBuf, int szBuf) { if (pBuf && pTrace) { unsigned int valueRead = pTrace->get(tbi+1) & 0xffff; int m = snprintf(pBuf,szBuf," wrote 0x%x to reg 0x%x", valueRead, address); return m>0 ? m : 0; } return 0; } //======================================================================== //------------------------------------------------------------------------ // CommandAssertion // // Associates a gpsim command with an instruction. I.e. when the simulated // instruction is executed, the gpsim command will execute first and then // the instruction is simulated. CommandAssertion::CommandAssertion(Processor *new_cpu, unsigned int instAddress, unsigned int bp, const char *_command, bool _bPostAssertion) : Breakpoint_Instruction(new_cpu, instAddress, bp), bPostAssertion(_bPostAssertion) { int len = (int)strlen(_command); command = (char *)malloc(len+3); strcpy(command,_command); command[len] = '\n'; command[len+1] = 0; command[len+2] = 0; } CommandAssertion::~CommandAssertion() { free(command); } void CommandAssertion::execute() { if(bPostAssertion && getReplaced()) getReplaced()->execute(); //printf("execute command: %s -- post = %s\n",command,(bPostAssertion?"true":"false")); ICommandHandler *pCli = CCommandManager::GetManager().find("gpsimCLI"); if(pCli) { pCli->Execute(command, 0); } if(!bPostAssertion && getReplaced()) getReplaced()->execute(); } //------------------------------------------------------------------------------ void CommandAssertion::print() { Breakpoint_Instruction::print(); cout << " execute command " << command << endl; } int CommandAssertion::printTraced(Trace *pTrace, unsigned int tbi, char *pBuf, int szBuf) { return 0; } //============================================================================ void Log_Register_Write::put(unsigned int new_value) { getReplaced()->put(new_value); takeAction(); } void Log_Register_Write::setbit(unsigned int bit_number, bool new_value) { getReplaced()->setbit(bit_number,new_value); takeAction(); } void Log_Register_Write::takeAction() { GetTraceLog().register_write(getReg(), get_cycles().get()); } void Log_Register_Write_value::takeAction() { GetTraceLog().register_write_value(getReg(), get_cycles().get()); } unsigned int Log_Register_Read::get() { unsigned int v = getReplaced()->get(); takeAction(); return v; } RegisterValue Log_Register_Read::getRV() { RegisterValue rv = getReplaced()->getRV(); takeAction(); return rv; } RegisterValue Log_Register_Read::getRVN() { RegisterValue rv = getReplaced()->getRVN(); takeAction(); return rv; } bool Log_Register_Read::get_bit(unsigned int bit_number) { takeAction(); return(getReplaced()->get_bit(bit_number)); } void Log_Register_Read::takeAction() { GetTraceLog().register_read(getReg(), get_cycles().get()); } void Log_Register_Read_value::takeAction() { GetTraceLog().register_read(getReg(), get_cycles().get()); } gpsim-0.27.0/src/attributes.cc0000664000076400007640000001603712163701215013143 00000000000000/* Copyright (C) 1998-2005 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include "attributes.h" #include "processor.h" #include "symbol.h" #include "gpsim_time.h" #include "protocol.h" #include "../config.h" //======================================================================== // Attribute wrappers // // Attribute wrappers are simple classes that handle specific processor // attributes. Their primary purpose is to allow for a way to call back // into the processor classs whenever the attribute changes. //======================================================================== // WarnMode //======================================================================== WarnModeAttribute::WarnModeAttribute(Processor *_cpu) : Boolean(false) ,cpu(_cpu) { new_name("WarnMode"); set_description(" enable warning messages when true"); } void WarnModeAttribute::set(Value *v) { Boolean::set(v); bool currentVal; get(currentVal); cpu->setWarnMode(currentVal); } void WarnModeAttribute::get(bool &b) { b = cpu->getWarnMode(); Boolean::set(b); } //======================================================================== // SafeModeAttribute //======================================================================== SafeModeAttribute::SafeModeAttribute(Processor *_cpu) : Boolean("SafeMode", false, " Model the processor's specification when true. Model the actual\n" " processor when false (e.g. TRIS instruction for mid range PICs\n" " will emit a warning if SafeMode is true)." ), cpu(_cpu) { } SafeModeAttribute::~SafeModeAttribute() { } void SafeModeAttribute::set(Value *v) { Boolean::set(v); bool currentVal; Boolean::get(currentVal); cpu->setSafeMode(currentVal); } void SafeModeAttribute::get(bool &b) { b = cpu->getSafeMode(); Boolean::set(b); } //======================================================================== // UnknownModeAttribute //======================================================================== UnknownModeAttribute::UnknownModeAttribute(Processor *_cpu) : Boolean(false) ,cpu(_cpu) { new_name("UnknownMode"); set_description(" Enable three-state register logic. Unknown values are treated \n" " as 0 when this is false."); } void UnknownModeAttribute::set(Value *v) { Boolean::set(v); bool currentVal; Boolean::get(currentVal); cpu->setUnknownMode(currentVal); } void UnknownModeAttribute::get(bool &b) { b = cpu->getUnknownMode(); Boolean::set(b); } //======================================================================== // BreakOnResetAttribute //======================================================================== BreakOnResetAttribute::BreakOnResetAttribute(Processor *_cpu) : Boolean(false) ,cpu(_cpu) { new_name("BreakOnReset"); set_description(" If true, halt simulation when reset occurs \n"); } void BreakOnResetAttribute::set(Value *v) { Boolean::set(v); bool currentVal; Boolean::get(currentVal); cpu->setBreakOnReset(currentVal); } void BreakOnResetAttribute::get(bool &b) { b = cpu->getBreakOnReset(); Boolean::set(b); } //======================================================================== // // Cycle_Counter attribute // // The Cycle_counter attribute exposes the cycle counter through the // gpsim attribute interface. This allows for it to be queried from // the command line or sockets. class CycleCounterAttribute : public Integer { public: CycleCounterAttribute() : Integer(0) { //m_bClearableSymbol = false; new_name("cycles"); set_description(" Simulation time in terms of cycles."); } void set(gint64 i) { static bool warned = false; if(!warned) cout << "cycle counter is read only\n"; warned = true; } void get(gint64 &i) { i = cycles.get(); } void get(Packet &p) { p.EncodeUInt64(cycles.get()); } virtual string toString() { char buf[256]; gint64 i; get(i); long long int j = i; snprintf(buf,sizeof(buf),"%" PRINTF_INT64_MODIFIER "d = 0x%08" PRINTF_INT64_MODIFIER "X",j,j); return string(buf); } }; //======================================================================== // // GUI update rate attribute #ifdef HAVE_GUI class GUIUpdateRateAttribute : public Integer { public: GUIUpdateRateAttribute() : Integer(0) { //m_bClearableSymbol = false; new_name("sim.gui_update_rate"); set_description(" Specifies the number of cycles between gui updates"); } void set(gint64 i) { gi.set_update_rate(i); } void get(gint64 &i) { i = gi.get_update_rate(); } }; #endif //======================================================================== // Integer *verbosity; //######################################################################## void init_attributes() { // Define internal simulator attributes . verbosity = new Integer("sim.verbosity",1,"gpsim's verboseness 0=nothing printed 0xff=very verbose"); globalSymbolTable().addSymbol(verbosity); globalSymbolTable().addSymbol(new CycleCounterAttribute()); stop_watch = new StopWatch; #ifdef HAVE_GUI globalSymbolTable().addSymbol(new GUIUpdateRateAttribute()); #endif globalSymbolTable().addSymbol(new Integer("POR_RESET", POR_RESET)); // Power-on reset globalSymbolTable().addSymbol(new Integer("WDT_RESET", WDT_RESET)); // Watch Dog timer timeout reset globalSymbolTable().addSymbol(new Integer("IO_RESET", IO_RESET)); // I/O pin reset globalSymbolTable().addSymbol(new Integer("SOFT_RESET", SOFT_RESET)); // Software initiated reset globalSymbolTable().addSymbol(new Integer("BOD_RESET", BOD_RESET)); // Brown out detection reset globalSymbolTable().addSymbol(new Integer("SIM_RESET", SIM_RESET)); // Simulation Reset globalSymbolTable().addSymbol(new Integer("MCLR_RESET", MCLR_RESET)); // MCLR (Master Clear) Reset } void destroy_attributes() { globalSymbolTable().deleteSymbol("SourcePath"); globalSymbolTable().deleteSymbol("sim.verbosity"); globalSymbolTable().deleteSymbol("cycles"); #ifdef HAVE_GUI globalSymbolTable().deleteSymbol("sim.gui_update_rate"); #endif globalSymbolTable().deleteSymbol("POR_RESET"); globalSymbolTable().deleteSymbol("WDT_RESET"); globalSymbolTable().deleteSymbol("IO_RESET"); globalSymbolTable().deleteSymbol("SOFT_RESET"); globalSymbolTable().deleteSymbol("BOD_RESET"); globalSymbolTable().deleteSymbol("SIM_RESET"); globalSymbolTable().deleteSymbol("MCLR_RESET"); delete stop_watch; } gpsim-0.27.0/src/clock_phase.h0000644000076400007640000000634111407267702013075 00000000000000/* Copyright (C) 2006 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #if !defined(__CLOCK_PHASE_H__) #define __CLOCK_PHASE_H__ /* Clock Phase The Clock Phase base class takes an external clock source as its input and uses this to control a module's simulation state. For example, the clock input on a microcontroller drives all of the digital state machines. On every edge of the clock, there is digital logic that can potentially change states. The Clock Phase base class can be thought of the "logic" that responds to the clock input and redirects control to the state machines inside of a processor. */ class Processor; class ClockPhase { public: ClockPhase(); virtual ~ClockPhase(); virtual ClockPhase *advance()=0; void setNextPhase(ClockPhase *pNextPhase) { m_pNextPhase = pNextPhase; } ClockPhase *getNextPhase() { return m_pNextPhase; } protected: ClockPhase *m_pNextPhase; }; /* The Processor Phase base class is a Clock Phase class that contains a pointer to a Processor object. It's the base class from which all of the processor's various Phase objects are derived. */ class ProcessorPhase : public ClockPhase { public: ProcessorPhase(Processor *pcpu); virtual ~ProcessorPhase(); protected: Processor *m_pcpu; }; /* The Execute 1 Cycle class is a Processor Phase class designed to execute a single instruction. */ class phaseExecute1Cycle : public ProcessorPhase { public: phaseExecute1Cycle(Processor *pcpu); virtual ~phaseExecute1Cycle(); virtual ClockPhase *advance(); }; class phaseExecute2ndHalf : public ProcessorPhase { public: phaseExecute2ndHalf(Processor *pcpu); virtual ~phaseExecute2ndHalf(); virtual ClockPhase *advance(); ClockPhase *firstHalf(unsigned int uiPC); protected: unsigned int m_uiPC; }; class phaseExecuteInterrupt : public ProcessorPhase { public: phaseExecuteInterrupt(Processor *pcpu); virtual ~phaseExecuteInterrupt(); virtual ClockPhase *advance(); ClockPhase *firstHalf(unsigned int uiPC); protected: unsigned int m_uiPC; }; // phaseIdle - when a processor is idle, the current // clock source can be handled by this class. class phaseIdle : public ProcessorPhase { public: phaseIdle(Processor *pcpu); virtual ~phaseIdle(); virtual ClockPhase *advance(); protected: }; ////// TEMPORARY //////// // These will be moved into the Processor class. extern ClockPhase *mCurrentPhase; extern phaseExecute1Cycle *mExecute1Cycle; extern phaseExecute2ndHalf *mExecute2ndHalf; extern phaseExecuteInterrupt *mExecuteInterrupt; extern phaseIdle *mIdle; #endif //if !defined(__CLOCK_PHASE_H__) gpsim-0.27.0/src/rcon.h0000644000076400007640000000344711401131150011544 00000000000000/* * Copyright (C) 1998-2007 T. Scott Dattalo * Copyright (C) 2007 Roy R Rankin * This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef RCON_H #define RCON_H // The methods of this class are typically called from Status_register //--------------------------------------------------------- class RCON : public sfr_register { public: enum { BOR = 1<<0, POR = 1<<1, PD = 1<<2, TO = 1<<3, RI = 1<<4, LWRT = 1<<6, IPEN = 1<<7 }; RCON(Processor *, const char *pName, const char *pDesc=0); inline void put_PD(unsigned int new_pd) { get_trace().raw(write_trace.get() | value.get()); value.put((value.get() & ~PD) | ((new_pd) ? PD : 0)); } inline unsigned int get_PD() { get_trace().raw(read_trace.get() | value.get()); return( ( (value.get() & PD) == 0) ? 0 : 1); } inline void put_TO(unsigned int new_to) { get_trace().raw(write_trace.get() | value.get()); value.put((value.get() & ~TO) | ((new_to) ? TO : 0)); } inline unsigned int get_TO() { get_trace().raw(read_trace.get() | value.get()); return( ( (value.get() & TO) == 0) ? 0 : 1); } }; #endif // RCON_H gpsim-0.27.0/src/fopen-path.cc0000644000076400007640000001562511401170177013017 00000000000000/* -*- Mode: C++; c-file-style: "bsd"; comment-column: 40 -*- */ /* Copyright (C) 2000 Daniel Christian, T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ // // fopen-path.cc // // Modified version of fopen, that searches a path. // Technically this is a c++ file, but it should work in C too. // The functions use a C calling convention for compatibility. #include #include #include #include #include #include "../config.h" #include "gpsim_def.h" #include "pic-processor.h" #include "fopen-path.h" // should be command line static char **searchPath = 0; static int searchPathCount = 0; class CSourceSearchPath : public String { public: CSourceSearchPath() : String("SourcePath", NULL, "Search path for source files") { } virtual void set(const char *cP,int len=0) { set_search_path(cP); } virtual void set(Value *pValue) { String *pString = dynamic_cast(pValue); if(pString != NULL) { set_search_path(pString->getVal()); } } string toString() { string sPath; for (int iIndex = 0; iIndex < searchPathCount; ++iIndex) { sPath.append(searchPath[iIndex]); if(iIndex < searchPathCount - 1) { sPath.append(":"); } } return sPath; } char *toString(char *return_str, int len) { string sPath; for (int iIndex = 0; iIndex < searchPathCount && len < 0; ++iIndex) { char *pFolder = searchPath[iIndex]; strncpy(return_str, pFolder, len); len -= strlen(pFolder); if(iIndex < searchPathCount) { len--; } } return return_str; } }; /// /// InitSourceSearchSymbol /// Used to initialize the CSourceSearchPath during startup. /// The symbol table will delete the CSourceSearchPath /// object so CSourceSearchPath cannot be static. void InitSourceSearchAsSymbol() { // The symbol table will delete the CSourceSearchPath object globalSymbolTable().addSymbol(new CSourceSearchPath()); } // Given a colon separated path, setup searchPath and searchPathCount // Fix:: Any old values are lost (and the memory leaked). void set_search_path (const char *path) { const char *cp, *tp; int pathLen; int ii; char **pathStr; if (!path || !*path) { // clear the path searchPathCount = 0; if(searchPath != 0) { free(searchPath); searchPath = 0; } if (verbose) cout << "Clearing Search directory.\n"; return; } // count colons to figure length for (cp = path, pathLen = 0; *cp; ++cp) { if (':' == *cp) ++pathLen; } ++pathLen; // always one more segments than colons // searchPath = (char *[])calloc (pathLen, sizeof (char *)); if(searchPath != 0) { free(searchPath); } // allocate an array of string pointers with one extra set to NULL // to mark the end of the array. searchPath = static_cast(calloc (pathLen, sizeof (char *))); assert (0 != searchPath); // Parse the colon delimited string path and put each folder into // the string array. for (cp = path, pathStr = searchPath, ii = 0, tp = strchr (path, ':'); (0 != tp) && (ii < pathLen); ++ii) { assert ((0 != cp) && (0 != tp)); if (tp == cp) { // treat empty path as "." *pathStr = strdup ("."); // allocate, in case we free later } else { // copy out the string section const char *sp; char *dp; *pathStr = (char *)malloc (tp - cp + 1); assert (0 != *pathStr); for (dp = *pathStr, sp = cp; sp < tp; *dp++ = *sp++); *dp = 0; // NULL terminate } if (verbose) cout << "Search directory: " << *pathStr << '\n'; ++pathStr; cp = tp+1; tp = strchr (cp, ':'); } if (*cp) { *pathStr = strdup (cp); // get last one } else { *pathStr = strdup ("."); // allocate, in case we free later } if (verbose) cout << "Search directory: " << *pathStr << '\n'; searchPathCount = pathLen; } //----------------------------------------------------------- // Try to open a file on a series of paths. First try as an absolute path. // This tries to keep as much of the original file path as possible. // for example: fopen_path ("src/pic/foo.inc", "r"), will try // src/pic/foo.inc, // PATH1/src/pic/foo.inc, PATH1/pic/foo.inc, PATH1/foo.inc // PATH2/src/pic/foo.inc, PATH2/pic/foo.inc, PATH2/foo.inc // ... // It also converts back slashes to forward slashes (for MPLAB compatibility) FILE *fopen_path(const char *filename, const char *perms) { FILE *fp; const char *fileStr; // filename walker char **pathStr; // path pointer int ii; // loop counter char *cp; // for string walking char nameBuff[256]; // where to build new filename assert (strlen (filename) <= (sizeof (nameBuff) - 1)); strcpy (nameBuff, filename); for (cp = nameBuff; *cp; ++cp) { // convert DOS slash to Unix slash if ('\\' == *cp) *cp = '/'; } fp = fopen (nameBuff, perms); // first try absolute path if (0 != fp) { if (verbose) printf ("Found %s as %s\n", filename, nameBuff); return fp; } // check along each directory for (pathStr = searchPath, ii=0; ii < searchPathCount; ++ii, ++pathStr) { // check each subdir in path for (fileStr = filename; fileStr && *fileStr; fileStr = strpbrk (fileStr+1, "/\\")) { strcpy (nameBuff, *pathStr); strcat (nameBuff, fileStr); assert (strlen (nameBuff) <= (sizeof (nameBuff) - 1)); for (cp = nameBuff; *cp; ++cp) { // convert DOS slash to Unix slash if ('\\' == *cp) *cp = '/'; } if (verbose) { printf ("Trying to open %s\n", nameBuff); } fp = fopen (nameBuff, perms); // try it if (0 != fp) { if (verbose) printf ("Found %s as %s\n", filename, nameBuff); return fp; } } } if (verbose) { printf ("Failed to open %s in path: ", filename); for (pathStr = searchPath, ii=0; ii < searchPathCount; ++ii, ++pathStr) { printf ("%s ", *pathStr); } printf ("\n"); } return 0; } gpsim-0.27.0/src/pie.cc0000644000076400007640000000074411401170177011527 00000000000000#include // for guint64 #include "trace.h" #include "intcon.h" #include "pie.h" #include "pir.h" #include "processor.h" PIE::PIE(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc), pir(0) { } void PIE::setPir(PIR *pPir) { pir = pPir; } void PIE::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); value.put(new_value); assert(pir); if(pir->interrupt_status()) pir->setPeripheralInterrupt(); } gpsim-0.27.0/src/trace_orb.h0000644000076400007640000000225311401131150012535 00000000000000/* Copyright (C) 1999 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __TRACE_ORB_H__ #define __TRACE_ORB_H__ //------------------------------------ // *** KNOWN CHANGE *** // // THIS FILE IS (OR SHOULD BE) TEMPORARY // // Here are a set of support functions called by the CLI. Eventually // these will be replaced with an indirect interface such as CORBA. #define TRACE_FILE_FORMAT_ASCII 0 #define TRACE_FILE_FORMAT_LXT 1 void trace_enable_logging(char *file=0, int mode=TRACE_FILE_FORMAT_ASCII); #endif gpsim-0.27.0/src/i2c-ee.cc0000664000076400007640000004035312175377101012025 00000000000000/* Copyright (C) 1998-2003 Scott Dattalo 2004 Rob Pearce 2006 Roy R Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include using namespace std; #include #include "../config.h" #include "trace.h" #include "pic-processor.h" #include "stimuli.h" #include "i2c-ee.h" #include "registers.h" //#define DEBUG #if defined(DEBUG) #include "../config.h" #define Dprintf(arg) {printf("%s:%d ",__FILE__,__LINE__); printf arg; } #else #define Dprintf(arg) {} #endif #define Vprintf(arg) { if (verbose) {printf("%s:%d ",__FILE__,__LINE__); printf arg;} } // I2C EEPROM Peripheral // // This object emulates the I2C EEPROM peripheral on the 12CE51x // // It's main purpose is to provide a means by which the port pins // may communicate. // //-------------------------------------------------------------- // // class I2C_EE_PIN : public IO_open_collector { public: I2C_EE *eeprom; I2C_EE_PIN (I2C_EE *_eeprom, const char *_name) : IO_open_collector(_name) { eeprom = _eeprom; bDrivingState = true; bDrivenState = true; // Make the pin an output. update_direction(IO_bi_directional::DIR_OUTPUT,true); }; // void setDrivingState(bool new_state) { bDrivingState = new_state; bDrivenState = new_state; if(snode) snode->update(); } }; class I2C_EE_SDA : public I2C_EE_PIN { public: I2C_EE_SDA (I2C_EE *_eeprom, const char *_name) : I2C_EE_PIN (_eeprom,_name) { } void setDrivenState(bool new_dstate) { bool diff = new_dstate ^ bDrivenState; Dprintf(("eeprom sda setDrivenState %d\n", new_dstate)); if( eeprom && diff ) { bDrivenState = new_dstate; eeprom->new_sda_edge(new_dstate); } } }; class I2C_EE_SCL : public I2C_EE_PIN { public: I2C_EE_SCL (I2C_EE *_eeprom, const char *_name) : I2C_EE_PIN (_eeprom,_name) { } void setDrivenState(bool new_state) { bool diff = new_state ^ bDrivenState; Dprintf(("eeprom scl setDrivenState %d\n", new_state)); if( eeprom && diff ) { bDrivenState = new_state; eeprom->new_scl_edge(bDrivenState); } } }; PromAddress::PromAddress(I2C_EE *eeprom, const char *_name, const char * desc) : Value(_name,desc) { m_eeprom = eeprom; } void PromAddress::get(char *buffer, int buf_size) { snprintf(buffer, buf_size, "%p", m_eeprom); } //---------------------------------------------------------- // // I2C EE PROM // // There are many conditions that need to be verified against a real part: // 1) what happens if // > the simulator // 2) what happens if a RD is initiated while data is being written? // > the simulator ignores the read // 3) what happens if // > the simulator I2C_EE::I2C_EE(Processor *pCpu, unsigned int _rom_size, unsigned int _write_page_size, unsigned int _addr_bytes, unsigned int _CSmask, unsigned int _BSmask, unsigned int _BSshift) : rom(0), rom_size(_rom_size), // size of eeprom in bytes rom_data_size(1), xfr_addr(0), xfr_data(0), write_page_off(0), write_page_size(_write_page_size), // Page size for writes bit_count(0), m_command(0), m_chipselect(0), m_CSmask(_CSmask), // mask for chip select in command m_BSmask(_BSmask), // mask for bank select in command m_BSshift(_BSshift), // right shift bank select to bit 0 m_addr_bytes(_addr_bytes), // number of address bytes m_write_protect(false), ee_busy(false), bus_state(IDLE) { // Create the rom rom = (Register **) new char[sizeof (Register *) * rom_size]; assert(rom != 0); // Initialize the rom char str[100]; for (unsigned int i = 0; i < rom_size; i++) { snprintf (str,sizeof(str),"ee0x%02x", i); rom[i] = new Register(pCpu,str,""); rom[i]->address = i; rom[i]->value.put(0); rom[i]->alias_mask = 0; } if (pCpu) { m_UiAccessOfRom = new RegisterCollection(pCpu, "eeData", rom, rom_size); } else m_UiAccessOfRom = NULL; scl = new I2C_EE_SCL ( this, "SCL" ); sda = new I2C_EE_SDA ( this, "SDA" ); } I2C_EE::~I2C_EE() { for (unsigned int i = 0; i < rom_size; i++) delete rom[i]; delete [] rom; if (m_UiAccessOfRom) delete m_UiAccessOfRom; delete scl; delete sda; } // Bit 0 is write protect, 1-3 is A0 - A2 void I2C_EE::set_chipselect(unsigned int _cs) { m_write_protect = (_cs & 1) == 1; m_chipselect = (_cs & m_CSmask); } void I2C_EE::debug() { if (!scl || !sda || !rom) return; const char *cPBusState=0; switch (bus_state) { case IDLE: cPBusState = "IDLE"; break; case START: cPBusState = "START"; break; case RX_CMD: cPBusState = "RX_CMD"; break; case ACK_CMD: cPBusState = "ACK_CMD"; break; case RX_ADDR: cPBusState = "RX_ADDR"; break; case RX_ADDR2: cPBusState = "RX_ADDR2"; break; case ACK_ADDR: cPBusState = "ACK_ADDR"; break; case RX_DATA: cPBusState = "RX_DATA"; break; case ACK_WR: cPBusState = "ACK_WR"; break; case WRPEND: cPBusState = "WRPEND"; break; case ACK_RD: cPBusState = "ACK_RD"; break; case TX_DATA: cPBusState = "TX_DATA"; break; } cout << "I2C EEPROM: current state="<value.put(val); } // write data to eeprom unles write protect is active void I2C_EE::start_write() { unsigned int addr = xfr_addr + write_page_off; if (! m_write_protect) { rom[addr]->put ( xfr_data ); } else cout << "I2c_EE start_write- write protect\n"; } // allow 5 msec after last write void I2C_EE::write_busy() { guint64 fc; if (! ee_busy && ! m_write_protect) { fc = (guint64)(get_cycles().instruction_cps() * 0.005); get_cycles().set_break(get_cycles().get() + fc, this); ee_busy = true; } } void I2C_EE::write_is_complete() { } void I2C_EE::callback() { ee_busy = false; Vprintf(("I2C_EE::callback() - write cycle is complete\n")); } void I2C_EE::callback_print() { cout << "Internal I2C-EEPROM\n"; } bool I2C_EE::shift_read_bit ( bool x ) { xfr_data = ( xfr_data << 1 ) | ( x != 0 ); bit_count++; if ( bit_count == 8 ) return true; else return false; } bool I2C_EE::shift_write_bit () { bool bit; bit_count--; bit = ( xfr_data >> bit_count ) & 1; Dprintf(("I2C_EE : send bit %d = %d\n",bit_count, bit)); return bit; } bool I2C_EE::processCommand(unsigned int command) { if ((command & 0xf0) == 0xa0 && ((command & m_CSmask) == m_chipselect)) { m_command = command; return true; } return false; } void I2C_EE::new_scl_edge ( bool direction ) { int curBusState = bus_state; if (verbose) { Vprintf(("I2C_EE::new_scl_edge: %d\n",direction)); debug(); } if ( direction ) { // Rising edge nxtbit = sda->getDrivenState(); Dprintf(("I2C_EE SCL : Rising edge, data=%d\n",nxtbit)); } else { // Falling edge //cout << "I2C_EE SCL : Falling edge\n"; switch ( bus_state ) { case IDLE : sda->setDrivingState ( true ); break; case START : sda->setDrivingState ( true ); bus_state = RX_CMD; break; case RX_CMD : if ( shift_read_bit ( sda->getDrivenState() ) ) { Vprintf(("I2C_EE : got command:0x%x\n", xfr_data)); //if ( ( xfr_data & 0xf0 ) == 0xA0 ) if (processCommand(xfr_data)) { bus_state = ACK_CMD; Vprintf((" - OK\n")); // Acknowledge the command by pulling SDA low. sda->setDrivingState ( false ); } else { // not for us bus_state = IDLE; Vprintf((" - not for us\n")); } } break; case ACK_CMD : sda->setDrivingState ( true ); // Check the R/W bit of the command if ( m_command & 0x01 ) { // it's a read command bus_state = TX_DATA; bit_count = 8; xfr_addr += write_page_off; write_page_off = 0; xfr_data = rom[xfr_addr]->get(); sda->setDrivingState ( shift_write_bit() ); } else { // it's a write command bus_state = RX_ADDR; bit_count = 0; xfr_data = 0; xfr_addr = (m_command & m_BSmask) >> m_BSshift; m_addr_cnt = m_addr_bytes; } break; case RX_ADDR : if ( shift_read_bit ( sda->getDrivenState() ) ) { sda->setDrivingState ( false ); // convert xfr_data to base and page offset to allow // sequencel writes to wrap around page xfr_addr = ((xfr_addr << 8) | xfr_data ) % rom_size; bus_state = ACK_ADDR; Vprintf(("I2C_EE : address set to 0x%x data:0x%x\n", xfr_addr,xfr_data)); } break; case ACK_ADDR : sda->setDrivingState ( true ); if (--m_addr_cnt) bus_state = RX_ADDR; else { write_page_off = xfr_addr % write_page_size; xfr_addr -= write_page_off; Vprintf(("I2C_EE : address set to 0x%x page offset 0x%x data:0x%x\n", xfr_addr, write_page_off ,xfr_data)); bus_state = RX_DATA; } bit_count = 0; xfr_data = 0; break; case RX_DATA : if ( shift_read_bit ( sda->getDrivenState() ) ) { start_write(); Vprintf(("I2C_EE : data set to 0x%x\n", xfr_data)); sda->setDrivingState ( false ); bus_state = ACK_WR; write_page_off = (write_page_off+1) % write_page_size; } break; case ACK_WR : sda->setDrivingState ( true ); bus_state = WRPEND; break; case WRPEND : // We were about to do the write but got more data instead // of the expected stop bit xfr_data = sda->getDrivenState(); bit_count = 1; bus_state = RX_DATA; Vprintf(("I2C_EE : write postponed by extra data\n")); break; case TX_DATA : if ( bit_count == 0 ) { sda->setDrivingState ( true ); // Release the bus xfr_addr++; xfr_addr %= rom_size; bus_state = ACK_RD; } else { sda->setDrivingState ( shift_write_bit() ); } break; case ACK_RD : if ( sda->getDrivenState() == false ) { // The master has asserted ACK, so we send another byte bus_state = TX_DATA; bit_count = 8; xfr_data = rom[xfr_addr]->get(); sda->setDrivingState ( shift_write_bit() ); } else { bus_state = IDLE; // Actually a limbo state } break; default : sda->setDrivingState ( true ); // Release the bus break; } } if ((bool)verbose && bus_state != curBusState) { Vprintf(("I2C_EE::new_scl_edge() new bus state = %d\n",bus_state)); debug(); } } void I2C_EE::new_sda_edge ( bool direction ) { if (verbose) { Vprintf(("I2C_EE::new_sda_edge: direction:%d\n",direction)); debug(); } if ( scl->getDrivenState() ) { int curBusState = bus_state; if ( direction ) { // stop bit Vprintf(("I2C_EE SDA : Rising edge in SCL high => stop bit\n")); if ( bus_state == WRPEND ) { Vprintf(("I2C_EE : write is pending - commence...\n")); write_busy(); bus_state = IDLE; // Should be busy } else bus_state = IDLE; } else { // start bit Vprintf(("I2C_EE SDA : Falling edge in SCL high => start bit\n")); if ( ee_busy ) { Vprintf((" Device is busy - ignoring start bit\n")); } else { bus_state = START; bit_count = 0; xfr_data = 0; } } if ((bool)verbose && bus_state != curBusState) { Vprintf(("I2C_EE::new_sda_edge() new bus state = %d\n",bus_state)); debug(); } } } void I2C_EE::reset(RESET_TYPE by) { switch(by) { case POR_RESET: bus_state = IDLE; ee_busy = false; break; default: break; } } void I2C_EE::attach ( Stimulus_Node *_scl, Stimulus_Node *_sda ) { _scl->attach_stimulus ( scl ); _sda->attach_stimulus ( sda ); } void I2C_EE::dump() { unsigned int i, j, reg_num,v; cout << " " << hex; // Column labels for (i = 0; i < 16; i++) cout << setw(2) << setfill('0') << i << ' '; cout << '\n'; for (i = 0; i < rom_size/16; i++) { cout << setw(2) << setfill('0') << i << ": "; for (j = 0; j < 16; j++) { reg_num = i * 16 + j; if(reg_num < rom_size) { v = rom[reg_num]->get_value(); cout << setw(2) << setfill('0') << v << ' '; } else cout << "-- "; } cout << " "; for (j = 0; j < 16; j++) { reg_num = i * 16 + j; if(reg_num < rom_size) { v = rom[reg_num]->get_value(); if( (v >= ' ') && (v <= 'z')) cout.put(v); else cout.put('.'); } } cout << '\n'; } } gpsim-0.27.0/src/p16x5x.cc0000664000076400007640000002307312175377101012034 00000000000000/* Copyright (C) 2000 T. Scott Dattalo, Daniel Schudel This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ // // p16x5x // // This file supports: // P16C54 // P16C55 // P16C56 #include #include #include #include "packages.h" #include "p16x5x.h" #include "pic-ioports.h" #include "symbol.h" void P16C54::create_iopin_map() { #ifdef USE_PIN_MODULE_FOR_TOCKI IOPIN * tockipin; #endif package = new Package(18); if(!package) return; // Now Create the package and place the I/O pins package->assign_pin(17, m_porta->addPin(new IO_bi_directional("porta0"),0)); package->assign_pin(18, m_porta->addPin(new IO_bi_directional("porta1"),1)); package->assign_pin( 1, m_porta->addPin(new IO_bi_directional("porta2"),2)); package->assign_pin( 2, m_porta->addPin(new IO_bi_directional("porta3"),3)); #ifdef USE_PIN_MODULE_FOR_TOCKI // RCP - attempt to add TOCKI without port register tockipin = new IOPIN("tocki"); m_tocki->setPin ( tockipin ); package->assign_pin( 3, tockipin ); // RCP - End new code #else package->assign_pin( 3, m_tocki->addPin(new IOPIN("tocki"),0)); #endif package->assign_pin( 4, 0); package->assign_pin( 5, 0); package->assign_pin( 6, m_portb->addPin(new IO_bi_directional("portb0"),0)); package->assign_pin( 7, m_portb->addPin(new IO_bi_directional("portb1"),1)); package->assign_pin( 8, m_portb->addPin(new IO_bi_directional("portb2"),2)); package->assign_pin( 9, m_portb->addPin(new IO_bi_directional("portb3"),3)); package->assign_pin(10, m_portb->addPin(new IO_bi_directional("portb4"),4)); package->assign_pin(11, m_portb->addPin(new IO_bi_directional("portb5"),5)); package->assign_pin(12, m_portb->addPin(new IO_bi_directional("portb6"),6)); package->assign_pin(13, m_portb->addPin(new IO_bi_directional("portb7"),7)); package->assign_pin(14, 0); package->assign_pin(15, 0); package->assign_pin(16, 0); } void P16C55::create_iopin_map() { package = new Package(28); if(!package) return; // Now Create the package and place the I/O pins package->assign_pin( 6, m_porta->addPin(new IO_bi_directional("porta0"),0)); package->assign_pin( 7, m_porta->addPin(new IO_bi_directional("porta1"),1)); package->assign_pin( 8, m_porta->addPin(new IO_bi_directional("porta2"),2)); package->assign_pin( 9, m_porta->addPin(new IO_bi_directional("porta3"),3)); #ifdef USE_PIN_MODULE_FOR_TOCKI // RCP - attempt to add TOCKI without port register tockipin = new IOPIN("tocki"); m_tocki->setPin ( tockipin ); package->assign_pin( 1, tockipin ); // RCP - End new code #else package->assign_pin( 1, m_tocki->addPin(new IOPIN("tocki"),0)); #endif package->assign_pin( 2, 0); package->assign_pin( 3, 0); package->assign_pin( 4, 0); package->assign_pin( 5, 0); package->assign_pin(10, m_portb->addPin(new IO_bi_directional("portb0"),0)); package->assign_pin(11, m_portb->addPin(new IO_bi_directional("portb1"),1)); package->assign_pin(12, m_portb->addPin(new IO_bi_directional("portb2"),2)); package->assign_pin(13, m_portb->addPin(new IO_bi_directional("portb3"),3)); package->assign_pin(14, m_portb->addPin(new IO_bi_directional("portb4"),4)); package->assign_pin(15, m_portb->addPin(new IO_bi_directional("portb5"),5)); package->assign_pin(16, m_portb->addPin(new IO_bi_directional("portb6"),6)); package->assign_pin(17, m_portb->addPin(new IO_bi_directional("portb7"),7)); package->assign_pin(18, m_portc->addPin(new IO_bi_directional("portc0"),0)); package->assign_pin(19, m_portc->addPin(new IO_bi_directional("portc1"),1)); package->assign_pin(20, m_portc->addPin(new IO_bi_directional("portc2"),2)); package->assign_pin(21, m_portc->addPin(new IO_bi_directional("portc3"),3)); package->assign_pin(22, m_portc->addPin(new IO_bi_directional("portc4"),4)); package->assign_pin(23, m_portc->addPin(new IO_bi_directional("portc5"),5)); package->assign_pin(24, m_portc->addPin(new IO_bi_directional("portc6"),6)); package->assign_pin(25, m_portc->addPin(new IO_bi_directional("portc7"),7)); package->assign_pin(26, 0); package->assign_pin(27, 0); package->assign_pin(28, 0); } void P16C54::create_sfr_map() { if(verbose) cout << "creating c54 registers\n"; add_file_registers(0x07, 0x1f, 0x00); add_sfr_register(indf, 0x00); add_sfr_register(&tmr0, 0x01); add_sfr_register(pcl, 0x02, RegisterValue(0,0)); add_sfr_register(status, 0x03, RegisterValue(0x18,0)); add_sfr_register(fsr, 0x04); add_sfr_register(m_porta, 0x05); add_sfr_register(m_portb, 0x06); add_sfr_register(option_reg, 0xffffffff, RegisterValue(0xff,0)); add_sfr_register(m_trisa, 0xffffffff, RegisterValue(0x1f,0)); add_sfr_register(m_trisb, 0xffffffff, RegisterValue(0xff,0)); #ifndef USE_PIN_MODULE_FOR_TOCKI add_sfr_register(m_tocki, 0xffffffff, RegisterValue(0x01,0)); add_sfr_register(m_trist0, 0xffffffff, RegisterValue(0x01,0)); #endif } void P16C54::create_symbols() { _12bit_processor::create_symbols(); } void P16C54::create() { create_iopin_map(); _12bit_processor::create(); } Processor * P16C54::construct(const char *name) { P16C54 *p = new P16C54(name); if(verbose) cout << " c54 construct\n"; p->pc->set_reset_address(0x1ff); p->create(); p->create_invalid_registers(); p->create_sfr_map(); p->create_symbols(); return p; } P16C54::P16C54(const char *_name, const char *desc) : _12bit_processor(_name,desc) { if(verbose) cout << "c54 constructor, type = " << isa() << '\n'; m_porta = new PicPortRegister(this,"porta","",8,0x1f); m_trisa = new PicTrisRegister(this,"trisa","",m_porta, false); m_portb = new PicPortRegister(this,"portb","",8,0xff); m_trisb = new PicTrisRegister(this,"trisb","",m_portb, false); #ifdef USE_PIN_MODULE_FOR_TOCKI // RCP - Attempt to assign TOCKI without a port register m_tocki = new PinModule(); cout << "c54 contructor assigning tmr0\n"; tmr0.set_cpu(this, m_tocki); #else m_tocki = new PicPortRegister(this,"tockiport","",8,0x01); m_trist0 = new PicTrisRegister(this,"trist0","",m_tocki, false); // cout << "c54 contructor assigning tmr0 to tocki register\n"; tmr0.set_cpu(this, m_tocki, 0,option_reg); #endif tmr0.start(0); } P16C54::~P16C54() { delete_file_registers(0x07, 0x1f); // add_sfr_register(indf); remove_sfr_register(&tmr0); // add_sfr_register(pcl); // add_sfr_register(status); // add_sfr_register(fsr); delete_sfr_register(m_porta); delete_sfr_register(m_portb); // delete_sfr_register(option_reg); delete_sfr_register(m_trisa); delete_sfr_register(m_trisb); #ifndef USE_PIN_MODULE_FOR_TOCKI delete_sfr_register(m_tocki); delete_sfr_register(m_trist0); #endif } void P16C54::tris_instruction(unsigned int tris_register) { switch (tris_register) { case 5: m_trisa->put(Wget()); //trace.write_TRIS(m_trisa->value.get()); break; case 6: m_trisb->put(Wget()); //trace.write_TRIS(m_trisb->value.get()); break; default: cout << __FUNCTION__ << ": Unknown TRIS register " << tris_register << endl; break; } } void P16C55::create_sfr_map() { if(verbose) cout << "creating c55 registers\n"; P16C54::create_sfr_map(); delete_file_registers(0x07, 0x07); add_sfr_register(m_portc, 0x07); add_sfr_register(m_trisc, 0xffffffff, RegisterValue(0xff,0)); } void P16C55::create_symbols() { P16C54::create_symbols(); } void P16C55::create() { P16C54::create(); } Processor * P16C55::construct(const char *name) { P16C55 *p = new P16C55(name); if(verbose) cout << " c55 construct\n"; p->pc->set_reset_address(0x1ff); p->create(); p->create_invalid_registers(); p->create_sfr_map(); p->create_symbols(); return p; } P16C55::P16C55(const char *_name, const char *desc) : P16C54(_name,desc) { if(verbose) cout << "c55 constructor, type = " << isa() << '\n'; m_portc = new PicPortRegister(this,"portc","",8,0xff); m_trisc = new PicTrisRegister(this,"trisc","", m_portc, false); } P16C55::~P16C55() { delete_sfr_register(m_trisc); } void P16C55::tris_instruction(unsigned int tris_register) { switch (tris_register) { case 5: m_trisa->put(Wget()); //trace.write_TRIS(m_trisa->value.get()); break; case 6: m_trisb->put(Wget()); //trace.write_TRIS(m_trisb->value.get()); break; case 7: m_trisc->put(Wget()); //trace.write_TRIS(m_trisc->value.get()); break; default: cout << __FUNCTION__ << ": Unknown TRIS register " << tris_register << endl; break; } } Processor * P16C56::construct(const char *name) { P16C56 *p = new P16C56(name); if(verbose) cout << " c56 construct\n"; p->pc->set_reset_address(0x3ff); p->create(); p->create_invalid_registers(); p->create_sfr_map(); p->create_symbols(); return p; } P16C56::P16C56(const char *_name, const char *desc) : P16C54(_name,desc) { if(verbose) cout << "c56 constructor, type = " << isa() << '\n'; } gpsim-0.27.0/src/operator.cc0000664000076400007640000003616612175377101012623 00000000000000#include #include #include "operator.h" #include "errors.h" #include "symbol.h" #include "processor.h" #include static bool isFloat(Value *v) { if(v && (typeid(*v) == typeid(Float))) return true; return false; } static bool isInteger(Value *v) { if(v && (typeid(*v) == typeid(Integer))) return true; return false; } static bool isBoolean(Value *v) { if(v && (typeid(*v) == typeid(Boolean))) return true; return false; } BinaryOperator::BinaryOperator(string opString, Expression* _leftExpr, Expression* _rightExpr) : Operator(opString) { leftExpr = _leftExpr; rightExpr = _rightExpr; value = 0; } BinaryOperator::~BinaryOperator() { delete leftExpr; delete rightExpr; delete value; } Value* BinaryOperator::shortCircuit(Value* leftValue) { return 0; } string BinaryOperator::show() { return toString(); } string BinaryOperator::showType() { return showOp(); } string BinaryOperator::toString() { return string("(" + leftExpr->toString() + showOp() + rightExpr->toString() + ")"); } Value *BinaryOperator::evaluate() { Value *left = leftExpr->evaluate(); Value *right = rightExpr->evaluate(); Value *out = applyOp(left, right); if (left) delete left; if (right) delete right; return out; } Expression *BinaryOperator::getLeft() { return leftExpr; } Expression *BinaryOperator::getRight() { return rightExpr; } /***************************************************************** * The basic unary operator class. */ UnaryOperator::UnaryOperator(string theOpString, Expression* expr_) : Operator(theOpString) { expr = expr_; value = 0; } UnaryOperator::~UnaryOperator() { delete expr; } string UnaryOperator::showType() { return showOp(); } string UnaryOperator::show() { return toString(); } string UnaryOperator::toString() { return string(showOp() + "(" + expr->toString() + ")"); } Value* UnaryOperator::evaluate() { Value* tmp, *vReturn; // start evaluating our operand expression: tmp = expr->evaluate(); // Apply the specific operator to the evaluated operand: vReturn = applyOp(tmp); // If the result is constant, save the result for future use: //if (tmp->isConstant()) { // value = tmp; //} delete tmp; return vReturn; } /***************************************************************** * Comparison operators */ ComparisonOperator::ComparisonOperator(string opString, Expression* leftExpr, Expression* rightExpr) : BinaryOperator(opString,leftExpr,rightExpr), bLess(false), bEqual(false), bGreater(false) { } ComparisonOperator:: ~ComparisonOperator() { } Value* ComparisonOperator::applyOp(Value* leftValue, Value* rightValue) { return new Boolean(leftValue->compare(this,rightValue)); } int ComparisonOperator::set_break(ObjectBreakTypes bt, ObjectActionTypes at, Expression *pExpr) { return get_bp().set_break(bt, at, (Register *)0, this); } /****************************************************************************** Operator: AbstractRange *****************************************************************************/ OpAbstractRange::OpAbstractRange(Expression *lVal, Expression *rVal) : BinaryOperator(":", lVal, rVal) { } OpAbstractRange::~OpAbstractRange() { } Value* OpAbstractRange::applyOp(Value* lVal, Value* rVal) { Value* result=0; Integer* lInteger = Integer::typeCheck(lVal, showOp()); Integer* rInteger = Integer::typeCheck(rVal, showOp()); int left = (int)lInteger->getVal(); int right = (int)rInteger->getVal(); result = new AbstractRange(left, right); return(result); } //------------------------------------------------------------------------ OpAdd::OpAdd(Expression* leftExpr, Expression* rightExpr) : BinaryOperator("+",leftExpr,rightExpr) { } OpAdd::~OpAdd() { } Value *OpAdd::applyOp(Value *lval, Value *rval) { if(isFloat(lval) || isFloat(rval)) { double d1,d2; lval->get(d1); rval->get(d2); return new Float(d1+d2); } // Try to add as integers. (An exception is thrown if the values // cannot be type casted. gint64 i1,i2; lval->get(i1); rval->get(i2); return new Integer(i1+i2); //throw new TypeMismatch(showOp(), lval->showType(), rval->showType()); } //------------------------------------------------------------------------ OpAnd::OpAnd(Expression* leftExpr, Expression* rightExpr) : BinaryOperator("&",leftExpr,rightExpr) { } OpAnd::~OpAnd() { } Value *OpAnd::applyOp(Value *lval, Value *rval) { if(isFloat(lval) || isFloat(rval)) throw new TypeMismatch(showOp(), lval->showType(), rval->showType()); gint64 i1,i2; lval->get(i1); rval->get(i2); return new Integer(i1 & i2); } //------------------------------------------------------------------------ OpEq::OpEq(Expression* leftExpr, Expression* rightExpr) : ComparisonOperator("==",leftExpr,rightExpr) { bEqual = true; } OpEq::~OpEq() { } //------------------------------------------------------------------------ OpGe::OpGe(Expression* leftExpr, Expression* rightExpr) : ComparisonOperator(">=",leftExpr,rightExpr) { bEqual = true; bGreater = true; } OpGe::~OpGe() { } //------------------------------------------------------------------------ OpGt::OpGt(Expression* leftExpr, Expression* rightExpr) : ComparisonOperator(">",leftExpr,rightExpr) { bGreater = true; } OpGt::~OpGt() { } //------------------------------------------------------------------------ OpLe::OpLe(Expression* leftExpr, Expression* rightExpr) : ComparisonOperator("<=",leftExpr,rightExpr) { bLess = true; bEqual = true; } OpLe::~OpLe() { } //------------------------------------------------------------------------ OpLt::OpLt(Expression* leftExpr, Expression* rightExpr) : ComparisonOperator("<",leftExpr,rightExpr) { bLess = true; } OpLt::~OpLt() { } //------------------------------------------------------------------------ OpLogicalAnd::OpLogicalAnd(Expression* leftExpr, Expression* rightExpr) : BinaryOperator("&&",leftExpr,rightExpr) { } OpLogicalAnd::~OpLogicalAnd() { } Value *OpLogicalAnd::applyOp(Value* lval, Value* rval) { if(isBoolean(lval) && isBoolean(rval)) { bool b1 = (static_cast(lval))->getVal(); bool b2 = (static_cast(rval))->getVal(); return new Boolean(b1 & b2); } throw new TypeMismatch(showOp(), lval->showType(), rval->showType()); } //------------------------------------------------------------------------ OpLogicalOr::OpLogicalOr(Expression* leftExpr, Expression* rightExpr) : BinaryOperator("||",leftExpr,rightExpr) { } OpLogicalOr::~OpLogicalOr() { } Value *OpLogicalOr::applyOp(Value* lval, Value* rval) { if(isBoolean(lval) && isBoolean(rval)) { bool b1 = (static_cast(lval))->getVal(); bool b2 = (static_cast(rval))->getVal(); return new Boolean(b1 | b2); } throw new TypeMismatch(showOp(), lval->showType(), rval->showType()); } //------------------------------------------------------------------------ OpNe::OpNe(Expression* leftExpr, Expression* rightExpr) : ComparisonOperator("!=",leftExpr,rightExpr) { bLess = true; bGreater = true; } OpNe::~OpNe() { } //------------------------------------------------------------------------ OpSub::OpSub(Expression* leftExpr, Expression* rightExpr) : BinaryOperator("-",leftExpr,rightExpr) { } OpSub::~OpSub() { } Value *OpSub::applyOp(Value *lval, Value *rval) { if(isFloat(lval) || isFloat(rval)) { double d1,d2; lval->get(d1); rval->get(d2); return new Float(d1-d2); } gint64 i1,i2; lval->get(i1); rval->get(i2); return new Integer(i1-i2); // throw new TypeMismatch(showOp(), lval->showType(), rval->showType()); } //------------------------------------------------------------------------ OpMpy::OpMpy(Expression* leftExpr, Expression* rightExpr) : BinaryOperator("*",leftExpr,rightExpr) { } OpMpy::~OpMpy() { } Value *OpMpy::applyOp(Value *lval, Value *rval) { if(isFloat(lval) || isFloat(rval)) { double d1,d2; lval->get(d1); rval->get(d2); return new Float(d1*d2); } gint64 i1,i2; lval->get(i1); rval->get(i2); return new Integer(i1*i2); throw new TypeMismatch(showOp(), lval->showType(), rval->showType()); } //------------------------------------------------------------------------ OpOr::OpOr(Expression* leftExpr, Expression* rightExpr) : BinaryOperator("|",leftExpr,rightExpr) { } OpOr::~OpOr() { } Value *OpOr::applyOp(Value *lval, Value *rval) { if(isFloat(lval) || isFloat(rval)) throw new TypeMismatch(showOp(), lval->showType(), rval->showType()); gint64 i1,i2; lval->get(i1); rval->get(i2); return new Integer(i1 | i2); } //------------------------------------------------------------------------ OpXor::OpXor(Expression* leftExpr, Expression* rightExpr) : BinaryOperator("^",leftExpr,rightExpr) { } OpXor::~OpXor() { } Value *OpXor::applyOp(Value *lval, Value *rval) { if(isFloat(lval) || isFloat(rval)) throw new TypeMismatch(showOp(), lval->showType(), rval->showType()); gint64 i1,i2; lval->get(i1); rval->get(i2); return new Integer(i1 ^ i2); } //------------------------------------------------------------------------ OpDiv::OpDiv(Expression* leftExpr, Expression* rightExpr) : BinaryOperator("/",leftExpr,rightExpr) { } OpDiv::~OpDiv() { } Value *OpDiv::applyOp(Value *lval, Value *rval) { if(isFloat(lval) || isFloat(rval)) { double d1,d2; lval->get(d1); rval->get(d2); if(d2 == 0.0) throw new Error("Divide by zero"); return new Float(d1/d2); } gint64 i1,i2; lval->get(i1); rval->get(i2); if(i2 == 0) throw new Error("Divide by zero"); return new Integer(i1/i2); } //------------------------------------------------------------------------ OpShl::OpShl(Expression* leftExpr, Expression* rightExpr) : BinaryOperator("<<",leftExpr,rightExpr) { } OpShl::~OpShl() { } Value *OpShl::applyOp(Value *lval, Value *rval) { if(isFloat(lval) || isFloat(rval)) throw new TypeMismatch(showOp(), lval->showType(), rval->showType()); gint64 i1; gint64 i2; rval->get(i2); if(i2 < 0 || i2 > 63) throw new Error("Operator " + showOp() + " bad shift count"); lval->get(i1); return new Integer(i1<>",leftExpr,rightExpr) { } OpShr::~OpShr() { } Value *OpShr::applyOp(Value *lval, Value *rval) { if(isFloat(lval) || isFloat(rval)) throw new TypeMismatch(showOp(), lval->showType(), rval->showType()); gint64 i1; gint64 i2; rval->get(i2); if(i2 < 0 || i2 > 63) throw new Error("Operator " + showOp() + " bad shift count"); lval->get(i1); return new Integer(i1>>i2); } /****************************************************************************** The logical NOT operator '!'. ******************************************************************************/ OpLogicalNot::OpLogicalNot(Expression* expr) : UnaryOperator("!", expr) { } OpLogicalNot::~OpLogicalNot() { } Value* OpLogicalNot::applyOp(Value* operand) { Boolean* op; bool bVal; op = Boolean::typeCheck(operand, showOp()); bVal = op->getVal(); return new Boolean(!bVal); } /****************************************************************************** The unary 'negate' operator. ******************************************************************************/ OpNegate::OpNegate(Expression* expr) : UnaryOperator("-", expr) { } OpNegate::~OpNegate() { } Value* OpNegate::applyOp(Value* operand) { Value* rVal=0; if (isInteger(operand)) { Integer* iOp = (Integer*)(operand); rVal = new Integer(-(iOp->getVal())); } else if (isFloat(operand)) { Float* fOp = (Float*)(operand); rVal = new Float(-(fOp->getVal())); } else { throw new TypeMismatch(showOp(), operand->showType()); } return rVal; } /****************************************************************************** The unary ones complement operator '~'. ******************************************************************************/ OpOnescomp::OpOnescomp(Expression* expr) : UnaryOperator("~", expr) { } OpOnescomp::~OpOnescomp() { } Value* OpOnescomp::applyOp(Value* operand) { Integer* op; op = Integer::typeCheck(operand, showOp()); return new Integer(~ op->getVal() ); } /****************************************************************************** The unary 'plus' operator. ******************************************************************************/ OpPlus::OpPlus(Expression* expr) : UnaryOperator("+", expr) { } OpPlus::~OpPlus() { } Value* OpPlus::applyOp(Value* operand) { Value* rVal=0; if (isInteger(operand)) { Integer* iOp = (Integer*)(operand); rVal = new Integer(iOp->getVal()); } else if (isFloat(operand) ) { Float* fOp = (Float*)(operand); rVal = new Float(fOp->getVal()); } else { throw new TypeMismatch(showOp(), operand->showType()); } return rVal; } /****************************************************************************** The unary '*' operator - indirect access ******************************************************************************/ OpIndirect::OpIndirect(Expression* expr) : UnaryOperator("*", expr) { } OpIndirect::~OpIndirect() { } Value* OpIndirect::applyOp(Value* operand) { Value* rVal=0; if (isInteger(operand)) { Integer* iOp = (Integer*)(operand); // hmm ... what about ema? Need a different indirection operator? Register *pReg = get_active_cpu()->rma.get_register(*iOp); if(pReg) { rVal = new Integer(pReg->get()); } else { static char sFormat[] = "Value $%x is an invalid memory address"; char sMsg[sizeof(sFormat) + 10]; sprintf(sMsg, sFormat, (int)iOp->getVal()); throw new Error(string(sMsg)); } } else if (isFloat(operand) ) { Float* fOp = (Float*)(operand); rVal = new Float(fOp->getVal()); } else { throw new TypeMismatch(showOp(), operand->showType()); } return rVal; } /****************************************************************************** The unary '*' operator - indirect access ******************************************************************************/ OpAddressOf::OpAddressOf(Expression* expr) : UnaryOperator("&", expr) { } OpAddressOf::~OpAddressOf() { } Value* OpAddressOf::evaluate() { Value* tmp; // start evaluating our operand expression: LiteralSymbol *pSym = dynamic_cast(expr); if (pSym) { tmp = applyOp(pSym->GetSymbol()); } else { throw new TypeMismatch(showOp(), expr->showType()); } return tmp; } Value* OpAddressOf::applyOp(Value* operand) { Value* rVal=0; /* register_symbol *pReg =dynamic_cast(operand); if (pReg) { rVal = new Integer(pReg->getAddress()); } else { AliasedSymbol *pSym = dynamic_cast(operand); if (pSym) { pReg = dynamic_cast(pSym); if (pReg) { rVal = new Integer(pReg->getAddress()); } } } */ Register *pReg = dynamic_cast(operand); rVal = pReg ? new Integer(pReg->getAddress()) : 0; if(rVal==0) { throw new TypeMismatch(showOp(), operand->showType()); } return rVal; } gpsim-0.27.0/src/packages.cc0000644000076400007640000001474511401170177012536 00000000000000/* Copyright (C) 1998,1999 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include "../config.h" #include "pic-processor.h" #include "stimuli.h" #include "packages.h" #include Package::Package(void) { pins = 0; number_of_pins = 0; m_pinGeometry = 0; } Package::Package(unsigned int _number_of_pins) { number_of_pins = 0; create_pkg(_number_of_pins); } Package::~Package() { if (pins) destroy_pin(0); // delete all of the pins delete [] pins; delete [] m_pinGeometry; } void Package::create_pkg(unsigned int _number_of_pins) { if(number_of_pins) { cout << "error: Package::create_pkg. Package appears to already exist.\n"; return; } number_of_pins = _number_of_pins; pins = new IOPIN *[number_of_pins]; m_pinGeometry = new PinGeometry[number_of_pins]; for(unsigned int i=0; i number_of_pins) || (pin_number == 0)) { cout << "error: Package::assign_pin. Pin number is out of range.\n"; cout << "Max pins " << number_of_pins << ". Trying to add " << pin_number <<".\n"; return E_PIN_OUT_OF_RANGE; } if(pins[pin_number-1]) return E_PIN_EXISTS; return E_NO_PIN; } //------------------------------------------------------------------- //------------------------------------------------------------------- IOPIN *Package::get_pin(unsigned int pin_number) { if(E_PIN_EXISTS == pin_existance(pin_number)) return pins[pin_number-1]; else return 0; } //------------------------------------------------------------------- //------------------------------------------------------------------- float Package::get_pin_position(unsigned int pin_number) { return (bIsValidPinNumber(pin_number) ? m_pinGeometry[pin_number-1].pin_position : 0.0); } void Package::set_pin_position(unsigned int pin_number, float position) { if (bIsValidPinNumber(pin_number)) { m_pinGeometry[pin_number-1].bNew = false; m_pinGeometry[pin_number-1].pin_position=position; } } void Package::setPinGeometry(unsigned int pin_number, float x, float y, int orientation, bool bShowName) { if (bIsValidPinNumber(pin_number)) { m_pinGeometry[pin_number-1].bNew = true; m_pinGeometry[pin_number-1].m_x = x; m_pinGeometry[pin_number-1].m_y = y; m_pinGeometry[pin_number-1].m_orientation = orientation; m_pinGeometry[pin_number-1].m_bShowPinname = bShowName; } } PinGeometry *Package::getPinGeometry(unsigned int pin_number) { static PinGeometry BAD_PIN; if (bIsValidPinNumber(pin_number)) { m_pinGeometry[pin_number-1].convertToNew(); return &m_pinGeometry[pin_number-1]; } return &BAD_PIN; } //------------------------------------------------------------------- //------------------------------------------------------------------- void Package::assign_pin(unsigned int pin_number, IOPIN *pin, bool warn) { switch(pin_existance(pin_number)) { case E_PIN_EXISTS: if(pins[pin_number-1] && warn) cout << "warning: Package::assign_pin. Pin number " << pin_number << " already exists.\n"; case E_NO_PIN: pins[pin_number-1] = pin; if ((bool)verbose && pin) cout << "assigned pin " << pin->name() << " to package pin number " << dec << pin_number<name(); else return invalid; //FIXME } //------------------------------------------------------------------- //------------------------------------------------------------------- int Package::get_pin_state(unsigned int pin_number) { if(pin_existance(pin_number) == E_PIN_EXISTS) return pins[pin_number-1]->getDrivingState(); else return 0; } //------------------------------------------------------------------------ void PinGeometry::convertToNew() { if (!bNew) { m_orientation = (int) floor (pin_position); if (m_orientation) { m_x = 0.0; m_y = pin_position; } else { m_x = pin_position - m_orientation; m_y = 0.0; } m_bShowPinname = true; } } //------------------------------------------------------------------------ void Package::showPins() { unsigned int pin_number; for (pin_number=0; pin_number < number_of_pins; pin_number++) { IOPIN *pPin = pins[pin_number]; cout << " pin #"<name() << endl; } } gpsim-0.27.0/src/trigger.cc0000664000076400007640000001451712175377101012427 00000000000000/* Copyright (C) 2004 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include "trigger.h" #include "../config.h" #include "value.h" #include "expr.h" #include "errors.h" #include "breakpoints.h" #include "ui.h" #include "trace.h" #include #include extern Integer *verbosity; // in ../src/init.cc using namespace std; static TriggerAction DefaultTrigger; //------------------------------------------------------------------------ // class BreakTraceType : public TraceType { public: BreakTraceType() : TraceType(2, "Break") { } virtual TraceObject *decode(unsigned int tbi); virtual int dump_raw(Trace *,unsigned tbi, char *buf, int bufsize); }; TraceType *TriggerObject::m_brt=0; //------------------------------------------------------------------------ class BreakTraceObject : public TraceObject { public: BreakTraceObject(unsigned int bpn); virtual void print(FILE *); private: unsigned int m_bpn; }; //------------------------------------------------------------------------ BreakTraceObject::BreakTraceObject(unsigned int bpn) : TraceObject(), m_bpn(bpn) { } void BreakTraceObject::print(FILE *fp) { fprintf(fp, " BREAK: #"); Breakpoints::BreakStatus *bs = bp.get(m_bpn); TriggerObject *bpo = bs ? bs->bpo : 0; if (bpo) bpo->print(); else fprintf(fp,"%d\n", m_bpn); } //------------------------------------------------------------------------ TraceObject *BreakTraceType::decode(unsigned int tbi) { TraceObject *to; if (get_trace().type(tbi) == type()) { to = new BreakTraceObject(get_trace().get(tbi) ); to->print(stdout); return to; } else return 0; } int BreakTraceType::dump_raw(Trace *pTrace,unsigned tbi, char *buf, int bufsize) { int n = TraceType::dump_raw(pTrace, tbi,buf,bufsize); buf += n; bufsize -= n; unsigned int bpn = trace.get(tbi) & 0xffffff; Breakpoints::BreakStatus *bs = bp.get(bpn); TriggerObject *bpo = bs ? bs->bpo : 0; int m = snprintf(buf, bufsize, " BREAK: #%d %s", bpn, (bpo ? bpo->bpName() : "")); m = m>0 ? m : 0; buf += m; bufsize -= m; return (m+n+ ((bs && bs->bpo)?bs->bpo->printTraced(pTrace,tbi, buf, bufsize):0)); } //------------------------------------------------------------------------ // TriggerAction // TriggerAction::TriggerAction() { } TriggerAction::~TriggerAction() { } bool TriggerAction::evaluate() { action(); return true; } bool TriggerAction::getTriggerState() { return false; } void TriggerAction::action() { if(verbosity && verbosity->getVal()) cout << "Hit a Breakpoint!\n"; bp.halt(); } //------------------------------------------------------------------------ // SimpleTriggerAction // // For most cases... A single trigger action coupled with a single trigger // object SimpleTriggerAction::SimpleTriggerAction(TriggerObject *_to) : TriggerAction(), to(_to) { } void SimpleTriggerAction::action() { TriggerAction::action(); if(to && verbosity && verbosity->getVal()) to->print(); } //------------------------------------------------------------------------ TriggerObject::TriggerObject() { m_PExpr = 0; set_action(&DefaultTrigger); } TriggerObject::TriggerObject(TriggerAction *ta) { // If a trace type has not been allocated yet, then allocate: if (!m_brt) { m_brt = new BreakTraceType(); get_trace().allocateTraceType(m_brt); } m_PExpr = 0; if(ta) set_action(ta); else set_action(&DefaultTrigger); } TriggerObject::~TriggerObject() { /* cout << "Trigger Object destructor\n"; if (m_PExpr) cout << "deleting expression "<< m_PExpr->toString() << endl; */ delete m_PExpr; if (m_action != &DefaultTrigger) delete m_action; } void TriggerObject::callback() { cout << "generic callback\n"; } void TriggerObject::callback_print() { cout << " has callback, ID = " << CallBackID << '\n'; } void TriggerObject::clear_trigger() { } int TriggerObject::find_free() { bpn = bp.find_free(); if(bpn < MAX_BREAKPOINTS) { bp.break_status[bpn].type = Breakpoints::BREAK_CLEAR; bp.break_status[bpn].cpu = 0; //get_cpu(); bp.break_status[bpn].arg1 = 0; bp.break_status[bpn].arg2 = 0; bp.break_status[bpn].bpo = this; } return bpn; } void TriggerObject::print() { char buf[256]; buf[0]=0; printExpression(buf, sizeof(buf)); if (buf[0]) { GetUserInterface().DisplayMessage(" Expr:%s\n", buf); } if (message().size()) GetUserInterface().DisplayMessage(" Message:%s\n", message().c_str()); } int TriggerObject::printExpression(char *pBuf, int szBuf) { if (!m_PExpr || !pBuf) return 0; *pBuf = 0; m_PExpr->toString(pBuf,szBuf); return strlen(pBuf); } int TriggerObject::printTraced(Trace *pTrace, unsigned int tbi, char *pBuf, int szBuf) { return 0; } void TriggerObject::clear() { cout << "clear Generic breakpoint " << bpn << endl; } void TriggerObject::set_Expression(Expression *newExpression) { delete m_PExpr; m_PExpr = newExpression; } bool TriggerObject::eval_Expression() { if(m_PExpr) { bool bRet = true; try { Value *v = m_PExpr->evaluate(); if(v) { v->get(bRet); delete v; } } catch (Error *Perr) { if(Perr) cout << "ERROR:" << Perr->toString() << endl; delete Perr; } return bRet; } return true; } //------------------------------------------------------------------------ void TriggerObject::invokeAction() { trace.raw(m_brt->type() | bpn); m_action->action(); } //------------------------------------------------------------------- void TriggerObject::new_message(const char *s) { m_sMessage = string(s); } void TriggerObject::new_message(string &new_message) { m_sMessage = new_message; } gpsim-0.27.0/src/16bit-processors.cc0000664000076400007640000007665012201276457014121 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include //#include "14bit-registers.h" //#include "14bit-instructions.h" #include "../config.h" #include "packages.h" #include "16bit-processors.h" #include #include "stimuli.h" #include "symbol.h" #include "eeprom.h" //------------------------------------------------------------------------ // Configuration bits // // The 16bit-core PIC devices contain configuration memory starting at // address 0x300000. // string Config1H::toString() { gint64 i64; get(i64); int i = i64 &0xfff; char buff[256]; const char *OSCdesc[8] = { "LP oscillator", "XT oscillator", "HS oscillator", "RC oscillator", "EC oscillator w/ OSC2 configured as divide-by-4 clock output", "EC oscillator w/ OSC2 configured as RA6", "HS oscillator with PLL enabled/Clock frequency = (4 x FOSC)", "RC oscillator w/ OSC2 configured as RA6" }; snprintf(buff,sizeof(buff), "$%04x\n" " FOSC=%d - Clk source = %s\n" " OSCEN=%d - Oscillator switching is %s\n", i, i&(FOSC0|FOSC1|FOSC2), OSCdesc[i&(FOSC0|FOSC1|FOSC2)], (i&OSCEN?1:0), ((i&OSCEN) ? "disabled" : "enabled")); return string(buff); } string Config1H_4bits::toString() { gint64 i64; get(i64); int i = i64 &0xfff; char buff[256]; const char *OSCdesc[] = { "LP oscillator", "XT oscillator", "HS oscillator", "RC oscillator", "EC oscillator w/ OSC2 configured as divide-by-4 clock output", "EC oscillator w/ OSC2 configured as RA6", "HS oscillator with PLL enabled/Clock frequency = (4 x FOSC)", "RC oscillator w/ OSC2 configured as RA6", "Internal oscillator block, port function on RA6 and RA7", "Internal oscillator block, CLKO function on RA6, port function on RA7", "External RC oscillator, CLKO function on RA6", "External RC oscillator, CLKO function on RA6", "External RC oscillator, CLKO function on RA6", "External RC oscillator, CLKO function on RA6", "External RC oscillator, CLKO function on RA6", "External RC oscillator, CLKO function on RA6" }; snprintf(buff,sizeof(buff), "$%04x\n" " FOSC=%d - Clk source = %s\n" " OSCEN=%d - Oscillator switching is %s\n", i, i&(FOSC0|FOSC1|FOSC2|FOSC3), OSCdesc[i&(FOSC0|FOSC1|FOSC2|FOSC3)], (i&OSCEN?1:0), ((i&OSCEN) ? "disabled" : "enabled")); return string(buff); } //------------------------------------------------------------------------ // Config2H - default // The default Config2H register controls the 18F series WDT. class Config2H : public ConfigWord { #define WDTEN (1<<0) #define WDTPS0 (1<<1) #define WDTPS1 (1<<2) #define WDTPS2 (1<<3) #define CONFIG2H_default (WDTEN | WDTPS0 | WDTPS1 | WDTPS2) public: Config2H(_16bit_processor *pCpu, unsigned int addr) : ConfigWord("CONFIG2H", CONFIG2H_default, "WatchDog configuration", pCpu, addr) { set(CONFIG2H_default); } virtual void set(gint64 v) { Integer::set(v); if (m_pCpu) { m_pCpu->wdt.set_postscale((v & (WDTPS0|WDTPS1|WDTPS2)) >> 1); m_pCpu->wdt.initialize((v & WDTEN) == WDTEN); } } virtual string toString() { gint64 i64; get(i64); int i = i64 &0xfff; char buff[256]; snprintf(buff,sizeof(buff), "$%04x\n" " WDTEN=%d - WDT is %s, prescale=1:%d\n", i, (i&WDTEN?1:0), ((i&WDTEN) ? "enabled" : "disabled"), 1 << (i & (WDTPS0 | WDTPS1 | WDTPS2)>>1)); return string(buff); } }; //------------------------------------------------------------------------ // Config4L - default // The default Config4L register controls the 18F series WDT. class Config4L : public ConfigWord { #define STKVREN (1<<0) #define LVP (1<<2) #define BBSIZ0 (1<<4) #define BBSIZ1 (1<<5) #define XINST (1<<6) #define _DEBUG (1<<7) #define CONFIG4L_default (STKVREN | LVP | _DEBUG) public: Config4L(_16bit_processor *pCpu, unsigned int addr) : ConfigWord("CONFIG4L", CONFIG4L_default, "Config word 4L", pCpu, addr) { set(CONFIG4L_default); } #define Cpu16 ((_16bit_processor *)m_pCpu) virtual void set(gint64 v) { Integer::set(v); if (m_pCpu) { Cpu16->set_extended_instruction((v & XINST) == XINST); if(m_pCpu->stack) m_pCpu->stack->STVREN = ((v & STKVREN) == STKVREN); } } virtual string toString() { gint64 i64; get(i64); int i = i64 &0xfff; char buff[256]; snprintf(buff,sizeof(buff), "$%04x\n" " STVREN=%d - BBSIZE=%x XINST=%d\n", i, (i&STKVREN?1:0), (i & (BBSIZ1 | BBSIZ0))>>4, (i&XINST?1:0)); return string(buff); } }; #define PWRTEN 1<<0 #define BOREN 1<<1 #define BORV0 1<<2 #define BORV1 1<<2 #define CCP2MX 1<<0 //------------------------------------------------------------------- _16bit_processor::_16bit_processor(const char *_name, const char *desc) : pic_processor(_name,desc), /* adcon0(this, "adcon0", "A2D control register"), adcon1(this, "adcon1", "A2D control register"), */ adresl(this, "adresl", "A2D result low"), adresh(this, "adresh", "A2D result high"), intcon(this, "intcon", "Interrupt control"), intcon2(this, "intcon2", "Interrupt control"), intcon3(this, "intcon3", "Interrupt control"), bsr(this, "bsr", "Bank Select Register"), tmr0l(this, "tmr0l", "TMR0 Low"), tmr0h(this, "tmr0h", "TMR0 High"), t0con(this, "t0con", "TMR0 Control"), rcon(this, "rcon", "Reset Control"), pir1(this,"pir1","Peripheral Interrupt Register",0,0), ipr1(this, "ipr1", "Interrupt Priorities"), ipr2(this, "ipr2", "Interrupt Priorities"), t1con(this, "t1con", "TMR1 Control"), pie1(this, "pie1", "Peripheral Interrupt Enable"), pir2(this,"pir2","Peripheral Interrupt Register",0,0), pie2(this, "pie2", "Peripheral Interrupt Enable"), t2con(this, "t2con", "TMR2 Control"), pr2(this, "pr2", "TMR2 Period Register"), tmr2(this, "tmr2", "TMR2 Register"), tmr1l(this, "tmr1l", "TMR1 Low"), tmr1h(this, "tmr1h", "TMR1 High"), ccp1con(this, "ccp1con", "Capture Compare Control"), ccpr1l(this, "ccpr1l", "Capture Compare 1 Low"), ccpr1h(this, "ccpr1h", "Capture Compare 1 High"), ccp2con(this, "ccp2con", "Capture Compare Control"), ccpr2l(this, "ccpr2l", "Capture Compare 2 Low"), ccpr2h(this, "ccpr2h", "Capture Compare 2 High"), tmr3l(this, "tmr3l", "TMR3 Low"), tmr3h(this, "tmr3h", "TMR3 High"), t3con(this, "t3con", "TMR3 Control"), osccon(this, "osccon", "OSC Control"), lvdcon(this, "lvdcon", "LVD Control"), wdtcon(this, "wdtcon", "WDT Control", 1), prodh(this, "prodh", "Product High"), prodl(this, "prodl", "Product Low"), pclatu(this, "pclatu", "Program Counter Latch upper byte"), ind0(this,string("0")), ind1(this,string("1")), ind2(this,string("2")), usart(this), tbl(this), ssp(this) { set_osc_pin_Number(0, 253, NULL); set_osc_pin_Number(1, 253, NULL); package = 0; pll_factor = 0; pc = new Program_Counter16(this); pc->set_trace_command(); //trace.allocateTraceType(new PCTraceType(this,1))); m_porta = new PicPortRegister(this,"porta","",8,0xff); m_porta->setEnableMask(0x7f); m_trisa = new PicTrisRegister(this,"trisa","", m_porta, false); m_trisa->setEnableMask(0x7f); m_lata = new PicLatchRegister(this,"lata","", m_porta); m_lata->setEnableMask(0x7f); m_portb = new PicPortBRegister(this,"portb","", &intcon, 8,0xff, &intcon2, &intcon3); m_portb->assignRBPUSink(7,&intcon2); m_trisb = new PicTrisRegister(this,"trisb","", m_portb, false); m_latb = new PicLatchRegister(this,"latb","", m_portb); m_portc = new PicPortRegister(this,"portc","",8,0xff); m_trisc = new PicTrisRegister(this,"trisc","", m_portc, false); m_latc = new PicLatchRegister(this,"latc","", m_portc); //tmr0l.set_cpu(this, m_porta, 4, option_reg); //tmr0l.start(0); m_porta->addSink(&tmr0l,4); stack = new Stack16(this); internal_osc = false; } //------------------------------------------------------------------- _16bit_processor::~_16bit_processor() { delete_sfr_map(); } //------------------------------------------------------------------- pic_processor *_16bit_processor::construct() { cout << "creating 16bit processor construct\n"; _16bit_processor *p = new _16bit_processor; if(verbose) cout << " 18c242 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); p->name_str = "generic 16bit processor"; globalSymbolTable().addModule(p); return p; } void _16bit_processor :: delete_sfr_map() { if(verbose) cout << "deleting 18cxxx common registers " << hex << last_actual_register() <<"\n"; unassignMCLRPin(); delete_file_registers(0x0, last_register); remove_sfr_register(&pie1); remove_sfr_register(&pir1); remove_sfr_register(&ipr1); remove_sfr_register(&pie2); remove_sfr_register(&pir2); remove_sfr_register(&ipr2); remove_sfr_register(&usart.rcsta); remove_sfr_register(&usart.txsta); remove_sfr_register(&usart.spbrg); delete_sfr_register(usart.txreg); delete_sfr_register(usart.rcreg); remove_sfr_register(&t3con); remove_sfr_register(&tmr3l); remove_sfr_register(&tmr3h); if ( HasCCP2() ) { remove_sfr_register(&ccp2con); remove_sfr_register(&ccpr2l); remove_sfr_register(&ccpr2h); } remove_sfr_register(&ccp1con); remove_sfr_register(&ccpr1l); remove_sfr_register(&ccpr1h); remove_sfr_register(&adresl); remove_sfr_register(&adresh); remove_sfr_register(&ssp.sspcon2); remove_sfr_register(&ssp.sspcon); remove_sfr_register(&ssp.sspstat); remove_sfr_register(&ssp.sspadd); remove_sfr_register(&ssp.sspbuf); remove_sfr_register(&t2con); remove_sfr_register(&pr2); remove_sfr_register(&tmr2); remove_sfr_register(&t1con); remove_sfr_register(&tmr1l); remove_sfr_register(&tmr1h); remove_sfr_register(&rcon); remove_sfr_register(&wdtcon); remove_sfr_register(&lvdcon); remove_sfr_register(&osccon); remove_sfr_register(&t0con); remove_sfr_register(&tmr0l); remove_sfr_register(&tmr0h); remove_sfr_register(&ind2.fsrl); remove_sfr_register(&ind2.fsrh); remove_sfr_register(&ind2.plusw); remove_sfr_register(&ind2.preinc); remove_sfr_register(&ind2.postdec); remove_sfr_register(&ind2.postinc); remove_sfr_register(&ind2.postinc); remove_sfr_register(&ind2.indf); remove_sfr_register(&bsr); remove_sfr_register(&ind1.fsrl); remove_sfr_register(&ind1.fsrh); remove_sfr_register(&ind1.plusw); remove_sfr_register(&ind1.preinc); remove_sfr_register(&ind1.postdec); remove_sfr_register(&ind1.postinc); remove_sfr_register(&ind1.indf); remove_sfr_register(&ind0.fsrl); remove_sfr_register(&ind0.fsrh); remove_sfr_register(&ind0.plusw); remove_sfr_register(&ind0.preinc); remove_sfr_register(&ind0.postdec); remove_sfr_register(&ind0.postinc); remove_sfr_register(&ind0.indf); remove_sfr_register(&intcon3); remove_sfr_register(&intcon2); remove_sfr_register(&intcon); remove_sfr_register(&prodl); remove_sfr_register(&prodh); remove_sfr_register(&tbl.tablat); remove_sfr_register(&tbl.tabptrl); remove_sfr_register(&tbl.tabptrh); remove_sfr_register(&tbl.tabptru); remove_sfr_register(&pclatu); Stack16 *stack16 = static_cast(stack); remove_sfr_register(&stack16->stkptr); remove_sfr_register(&stack16->tosl); remove_sfr_register(&stack16->tosh); remove_sfr_register(&stack16->tosu); EEPROM *e = get_eeprom(); if (e) { remove_sfr_register(e->get_reg_eedata()); remove_sfr_register(e->get_reg_eeadr()); if ( e->get_reg_eeadrh() ) remove_sfr_register(e->get_reg_eeadrh()); remove_sfr_register(e->get_reg_eecon1()); remove_sfr_register(e->get_reg_eecon2()); delete e; } delete_sfr_register(m_porta); delete_sfr_register(m_lata); delete_sfr_register(m_trisa); delete_sfr_register(m_portb); delete_sfr_register(m_latb); delete_sfr_register(m_trisb); if ( HasPortC() ) { delete_sfr_register(m_portc); delete_sfr_register(m_latc); delete_sfr_register(m_trisc); } delete pc; } //------------------------------------------------------------------- void _16bit_processor :: create_sfr_map() { if(verbose) cout << "creating 18cxxx common registers\n"; last_register = last_actual_register(); add_file_registers(0x0, last_register, 0); RegisterValue porv(0,0); RegisterValue porv2(0,0); add_sfr_register(m_porta, 0xf80,porv); add_sfr_register(m_portb, 0xf81,porv); if ( HasPortC() ) add_sfr_register(m_portc, 0xf82,porv); add_sfr_register(m_lata, 0xf89,porv); add_sfr_register(m_latb, 0xf8a,porv); if ( HasPortC() ) add_sfr_register(m_latc, 0xf8b,porv); add_sfr_register(m_trisa, 0xf92,RegisterValue(0x7f,0)); add_sfr_register(m_trisb, 0xf93,RegisterValue(0xff,0)); if ( HasPortC() ) add_sfr_register(m_trisc, 0xf94,RegisterValue(0xff,0)); add_sfr_register(&pie1, 0xf9d,porv,"pie1"); add_sfr_register(&pir1, 0xf9e,porv,"pir1"); add_sfr_register(&ipr1, 0xf9f,porv,"ipr1"); add_sfr_register(&pie2, 0xfa0,porv,"pie2"); add_sfr_register(&pir2, 0xfa1,porv,"pir2"); add_sfr_register(&ipr2, 0xfa2,porv,"ipr2"); usart.initialize(&pir1,&(*m_portc)[6], &(*m_portc)[7], new _TXREG(this,"txreg", "USART Transmit Register", &usart), new _RCREG(this,"rcreg", "USART Receiver Register", &usart)); add_sfr_register(&usart.rcsta, 0xfab,porv,"rcsta"); add_sfr_register(&usart.txsta, 0xfac,RegisterValue(0x02,0),"txsta"); add_sfr_register(usart.txreg, 0xfad,porv,"txreg"); add_sfr_register(usart.rcreg, 0xfae,porv,"rcreg"); add_sfr_register(&usart.spbrg, 0xfaf,porv,"spbrg"); add_sfr_register(&t3con, 0xfb1,porv,"t3con"); add_sfr_register(&tmr3l, 0xfb2,porv,"tmr3l"); add_sfr_register(&tmr3h, 0xfb3,porv,"tmr3h"); if ( HasCCP2() ) { add_sfr_register(&ccp2con, 0xfba,porv,"ccp2con"); add_sfr_register(&ccpr2l, 0xfbb,porv,"ccpr2l"); add_sfr_register(&ccpr2h, 0xfbc,porv,"ccpr2h"); } add_sfr_register(&ccp1con, 0xfbd,porv,"ccp1con"); add_sfr_register(&ccpr1l, 0xfbe,porv,"ccpr1l"); add_sfr_register(&ccpr1h, 0xfbf,porv,"ccpr1h"); add_sfr_register(&adresl, 0xfc3,porv,"adresl"); add_sfr_register(&adresh, 0xfc4,porv,"adresh"); add_sfr_register(&ssp.sspcon2, 0xfc5,porv,"sspcon2"); add_sfr_register(&ssp.sspcon, 0xfc6,porv,"sspcon1"); add_sfr_register(&ssp.sspstat, 0xfc7,porv,"sspstat"); add_sfr_register(&ssp.sspadd, 0xfc8,porv,"sspadd"); add_sfr_register(&ssp.sspbuf, 0xfc9,porv,"sspbuf"); add_sfr_register(&t2con, 0xfca,porv,"t2con"); add_sfr_register(&pr2, 0xfcb,RegisterValue(0xff,0),"pr2"); add_sfr_register(&tmr2, 0xfcc,porv,"tmr2"); add_sfr_register(&t1con, 0xfcd,porv,"t1con"); add_sfr_register(&tmr1l, 0xfce,porv,"tmr1l"); add_sfr_register(&tmr1h, 0xfcf,porv,"tmr1h"); add_sfr_register(&rcon, 0xfd0,RegisterValue(0x1c,0),"rcon"); add_sfr_register(&wdtcon, 0xfd1,porv,"wdtcon"); add_sfr_register(&lvdcon, 0xfd2,porv,"lvdcon"); add_sfr_register(&osccon, 0xfd3,porv,"osccon"); // 0x4 is not defined add_sfr_register(&t0con, 0xfd5,RegisterValue(0xff,0),"t0con"); add_sfr_register(&tmr0l, 0xfd6,porv,"tmr0l"); add_sfr_register(&tmr0h, 0xfd7,porv,"tmr0h"); t0con.put(0xff); /**FIXME - need a way to set this to 0xff at reset*/ add_sfr_register(status, 0xfd8); status->set_rcon(&rcon); add_sfr_register(&ind2.fsrl, 0xfd9,porv,"fsr2l"); add_sfr_register(&ind2.fsrh, 0xfda,porv,"fsr2h"); add_sfr_register(&ind2.plusw, 0xfdb,porv,"plusw2"); add_sfr_register(&ind2.preinc, 0xfdc,porv,"preinc2"); add_sfr_register(&ind2.postdec, 0xfdd,porv,"postdec2"); add_sfr_register(&ind2.postinc, 0xfde,porv,"postinc2"); add_sfr_register(&ind2.indf, 0xfdf,porv,"indf2"); add_sfr_register(&bsr, 0xfe0,porv, "bsr"); add_sfr_register(&ind1.fsrl, 0xfe1,porv,"fsr1l"); add_sfr_register(&ind1.fsrh, 0xfe2,porv,"fsr1h"); add_sfr_register(&ind1.plusw, 0xfe3,porv,"plusw1"); add_sfr_register(&ind1.preinc, 0xfe4,porv,"preinc1"); add_sfr_register(&ind1.postdec, 0xfe5,porv,"postdec1"); add_sfr_register(&ind1.postinc, 0xfe6,porv,"postinc1"); add_sfr_register(&ind1.indf, 0xfe7,porv,"indf1"); add_sfr_register(Wreg, 0xfe8); add_sfr_register(&ind0.fsrl, 0xfe9,porv,"fsr0l"); add_sfr_register(&ind0.fsrh, 0xfea,porv,"fsr0h"); add_sfr_register(&ind0.plusw, 0xfeb,porv,"plusw0"); add_sfr_register(&ind0.preinc, 0xfec,porv,"preinc0"); add_sfr_register(&ind0.postdec, 0xfed,porv,"postdec0"); add_sfr_register(&ind0.postinc, 0xfee,porv,"postinc0"); add_sfr_register(&ind0.indf, 0xfef,porv,"indf0"); add_sfr_register(&intcon3, 0xff0, porv,"intcon3"); porv2.data = 0xF5; add_sfr_register(&intcon2, 0xff1, porv2,"intcon2"); add_sfr_register(&intcon, 0xff2, porv,"intcon"); add_sfr_register(&prodl, 0xff3, porv,"prodl"); add_sfr_register(&prodh, 0xff4, porv,"prodh"); add_sfr_register(&tbl.tablat, 0xff5, porv,"tablat"); add_sfr_register(&tbl.tabptrl, 0xff6, porv,"tabptrl"); add_sfr_register(&tbl.tabptrh, 0xff7, porv,"tabptrh"); add_sfr_register(&tbl.tabptru, 0xff8, porv,"tabptru"); if(pcl) delete pcl; pcl = new PCL16(this,"pcl", "Program Counter Low byte"); add_sfr_register(pcl, 0xff9); add_sfr_register(pclath, 0xffa); add_sfr_register(&pclatu, 0xffb, porv, "pclatu"); pclath->mValidBits = 0xFF; // Data sheet implies does not depend on memory size Stack16 *stack16 = static_cast(stack); add_sfr_register(&stack16->stkptr, 0xffc,porv,"stkptr"); add_sfr_register(&stack16->tosl, 0xffd,porv,"tosl"); add_sfr_register(&stack16->tosh, 0xffe,porv,"tosh"); add_sfr_register(&stack16->tosu, 0xfff,porv,"tosu"); stack16->stack_mask = 31; EEPROM *e = get_eeprom(); if (e) { add_sfr_register(e->get_reg_eedata(), 0xfa8); add_sfr_register(e->get_reg_eeadr(), 0xfa9); if ( e->get_reg_eeadrh() ) add_sfr_register(e->get_reg_eeadrh(), 0xfaa); add_sfr_register(e->get_reg_eecon1(), 0xfa6, RegisterValue(0,0)); add_sfr_register(e->get_reg_eecon2(), 0xfa7); } // Initialize all of the register cross linkages pir_set_def.set_pir1(&pir1); pir_set_def.set_pir2(&pir2); tmr2.ssp_module = &ssp; tmr1l.tmrh = &tmr1h; tmr1l.t1con = &t1con; tmr1l.setInterruptSource(new InterruptSource(&pir1, PIR1v1::TMR1IF)); // tmr1l.ccpcon = &ccp1con; tmr1h.tmrl = &tmr1l; t1con.tmrl = &tmr1l; t2con.tmr2 = &tmr2; tmr2.pir_set = &pir_set_def; //get_pir_set(); tmr2.pr2 = &pr2; tmr2.t2con = &t2con; tmr2.add_ccp ( &ccp1con ); tmr2.add_ccp ( &ccp2con ); pr2.tmr2 = &tmr2; tmr3l.tmrh = &tmr3h; tmr3l.t1con = &t3con; tmr3l.setInterruptSource(new InterruptSource(&pir2, PIR2v2::TMR3IF)); // tmr3l.ccpcon = &ccp1con; tmr3h.tmrl = &tmr3l; t3con.tmrl = &tmr3l; t3con.tmr1l = &tmr1l; t3con.ccpr1l = &ccpr1l; t3con.ccpr2l = &ccpr2l; ccp1con.setCrosslinks(&ccpr1l, &pir1, PIR1v2::CCP1IF, &tmr2); ccp1con.setIOpin(&((*m_portc)[2])); ccpr1l.ccprh = &ccpr1h; ccpr1l.tmrl = &tmr1l; ccpr1h.ccprl = &ccpr1l; pir1.set_intcon(&intcon); pir1.set_pie(&pie1); pir1.set_ipr(&ipr1); pie1.setPir(&pir1); //pie1.new_name("pie1"); pir2.set_intcon(&intcon); pir2.set_pie(&pie2); pir2.set_ipr(&ipr2); pie2.setPir(&pir2); //pie2.new_name("pie2"); // All of the status bits on the 16bit core are writable status->write_mask = 0xff; // AN5,AN6 and AN7 exist only on devices with a PORTE. } //------------------------------------------------------------------- //------------------------------------------------------------------- // // // create // // The purpose of this member function is to 'create' those things // that are unique to the 16-bit core processors. void _16bit_processor :: create () { if(verbose) cout << " _16bit_processor :: create\n" ; fast_stack.init(this); /* ind0.init(this); ind1.init(this); ind2.init(this); */ pic_processor::create(); create_sfr_map(); tmr0l.initialize(); intcon.set_rcon(&rcon); intcon.set_intcon2(&intcon2); intcon.set_pir_set(&pir_set_def); //tbl.initialize(this); tmr0l.start(0); if(pma) { pma->SpecialRegisters.push_back(&bsr); rma.SpecialRegisters.push_back(&bsr); } } // // create_symbols // // Create symbols for a generic 16-bit core. This allows symbolic // access to the pic. (e.g. It makes it possible to access the // status register by name instead of by its address.) // void _16bit_processor::create_symbols () { pic_processor::create_symbols(); } //------------------------------------------------------------------- // void _16bit_processor::interrupt () // // When the virtual function cpu->interrupt() is called during // pic_processor::run() AND the cpu gpsim is simulating is an 18cxxx // device then we end up here. For an interrupt to have occured, // the interrupt processing logic must have just ran. One of the // responsibilities of that logic is to determine at what address // the interrupt should begin executing. That address is placed // in 'interrupt_vector'. // //------------------------------------------------------------------- void _16bit_processor::interrupt () { bp.clear_interrupt(); stack->push(pc->value); // Save W,status, and BSR if this is a high priority interrupt. fast_stack.push(); intcon.clear_gies(); // The appropriate gie bits get cleared (not just gieh) pc->interrupt(intcon.get_interrupt_vector()); } //------------------------------------------------------------------- void _16bit_processor::option_new_bits_6_7(unsigned int bits) { //portb.rbpu_intedg_update(bits); //cout << "16bit, option bits 6 and/or 7 changed\n"; } //------------------------------------------------------------------- void _16bit_processor::enter_sleep() { if (verbose) cout << "_16bit_processor::enter_sleep() \n"; tmr0l.sleep(); pic_processor::enter_sleep(); } //------------------------------------------------------------------- void _16bit_processor::exit_sleep() { if (verbose) cout << "_16bit_processor::exit_sleep() \n"; if (m_ActivityState == ePASleeping) { tmr0l.wake(); pic_processor::exit_sleep(); } } //------------------------------------------------------------------ // It is assummed that this will only be set to true for processors // that support extended instructions // void _16bit_processor::set_extended_instruction(bool v) { if (verbose) cout << "_16bit_processor::set_extended_instruction " << v <<"\n"; extended_instruction_flag = v; } //------------------------------------------------------------------- // Fetch the rom contents at a particular address. unsigned int _16bit_processor::get_program_memory_at_address(unsigned int address) { unsigned int uIndex = map_pm_address2index(address); if (uIndex < program_memory_size()) return program_memory[uIndex] ? program_memory[uIndex]->get_opcode() : 0xffffffff; if (address >= CONFIG1L && address <= 0x30000D) return get_config_word(address); uIndex = (address - 0x200000) >> 1; // Look to see if it's an ID location if( uIndex < IdentMemorySize() ) return idloc[uIndex]; static const unsigned int DEVID1 = 0x3ffffe; static const unsigned int DEVID2 = 0x3fffff; if (address == DEVID1) return 0; if (address == DEVID2) return 0; return 0xffffffff; } unsigned int _16bit_processor::get_config_word(unsigned int address) { if (!(address >= CONFIG1L && address <= 0x30000D)) return 0xffffffff; address -= CONFIG1L; if (m_configMemory) { address &= 0xfffe; // Clear LSB unsigned int ret = 0xffff; if (m_configMemory->getConfigWord(address)) ret = (ret & 0xff00) | (((unsigned int )(m_configMemory->getConfigWord(address)->getVal())) & 0x00ff); address++; if (m_configMemory->getConfigWord(address)) ret = (ret & 0x00ff) | ((((unsigned int )(m_configMemory->getConfigWord(address)->getVal()))<<8) & 0xff00); return ret; } return 0xffffffff; } bool _16bit_processor::set_config_word(unsigned int address, unsigned int cfg_word) { if (address >= CONFIG1L && address <= 0x30000D) { if (verbose) cout << "Setting config word 0x"<getConfigWord(address)) m_configMemory->getConfigWord(address)->set((int)(cfg_word&0xff)); address++; if (m_configMemory->getConfigWord(address)) m_configMemory->getConfigWord(address)->set((int)((cfg_word>>8)&0xff)); return true; } else cout << "Setting config word no m_configMemory\n"; } return false; } //------------------------------------------------------------------- void _16bit_processor::create_config_memory() { m_configMemory = new ConfigMemory(this,configMemorySize()); m_configMemory->addConfigWord(CONFIG1H-CONFIG1L,new Config1H(this, CONFIG1H)); m_configMemory->addConfigWord(CONFIG2H-CONFIG1L,new Config2H(this, CONFIG2H)); m_configMemory->addConfigWord(CONFIG4L-CONFIG1L,new Config4L(this, CONFIG4L)); } void _16bit_processor::set_out_of_range_pm(unsigned int address, unsigned int value) { // This method is only called by Processor::init_program_memory which writes words if ( get_eeprom() && (address>= 0xf00000) && (address < 0xf00000 + get_eeprom()->get_rom_size())) { get_eeprom()->change_rom(1 + address - 0xf00000, value >> 8); get_eeprom()->change_rom(address - 0xf00000, value & 0xff); } else if( (address>= 0x200000) && (address < 0x200008) ) { idloc[(address - 0x200000) >> 1] = value; } } void _16bit_processor::osc_mode(unsigned int value) { IOPIN *m_pin; unsigned int pin_Number = get_osc_pin_Number(0); if (pin_Number < 253) { m_pin = package->get_pin(pin_Number); } if ( (pin_Number = get_osc_pin_Number(1)) < 253 && (m_pin = package->get_pin(pin_Number))) { pll_factor = 0; if (value < 5) { set_clk_pin(pin_Number, m_osc_Monitor[1], "OSC2", true, m_porta, m_trisa, m_lata); } else if(value == 6 ) { pll_factor = 2; set_clk_pin(pin_Number, m_osc_Monitor[1], "CLKO", false, m_porta, m_trisa, m_lata); } else { clr_clk_pin(pin_Number, m_osc_Monitor[1], m_porta, m_trisa, m_lata); } } } //------------------------------------------------------------------- // // Package stuff // void _16bit_processor::create_iopin_map() { cout << "_16bit_processor::create_iopin_map WARNING --- not creating package \n"; } void _16bit_compat_adc::create() { adcon0 = new ADCON0(this, "adcon0", "A2D control register"), adcon1 = new ADCON1(this, "adcon1", "A2D control register"), _16bit_processor::create(); a2d_compat(); } void _16bit_compat_adc::create_sfr_map() { _16bit_processor::create_sfr_map(); } void _16bit_compat_adc::create_symbols() { _16bit_processor::create_symbols(); } void _16bit_compat_adc :: a2d_compat() { if(verbose) cout << "creating old (compatible) A2D\n"; RegisterValue porv(0,0); add_sfr_register(adcon1, 0xfc1,porv,"adcon1"); add_sfr_register(adcon0, 0xfc2,porv,"adcon0"); adcon0->setAdresLow(&adresl); adcon0->setAdres(&adresh); adcon0->setAdcon1(adcon1); adcon0->setIntcon(&intcon); adcon0->setPir(&pir1); adcon0->setChannel_Mask(7); // Greater than 4 channels adcon0->setA2DBits(10); adcon1->setValidCfgBits(ADCON1::PCFG0 | ADCON1::PCFG1 | ADCON1::PCFG2 | ADCON1::PCFG3,0); adcon1->setChannelConfiguration(0, 0xff); adcon1->setChannelConfiguration(1, 0xff); adcon1->setChannelConfiguration(2, 0x1f); adcon1->setChannelConfiguration(3, 0x1f); adcon1->setChannelConfiguration(4, 0x0b); adcon1->setChannelConfiguration(5, 0x0b); adcon1->setChannelConfiguration(6, 0x00); adcon1->setChannelConfiguration(7, 0x00); adcon1->setChannelConfiguration(8, 0xff); adcon1->setChannelConfiguration(9, 0x3f); adcon1->setChannelConfiguration(10, 0x3f); adcon1->setChannelConfiguration(11, 0x3f); adcon1->setChannelConfiguration(12, 0x1f); adcon1->setChannelConfiguration(13, 0x0f); adcon1->setChannelConfiguration(14, 0x01); adcon1->setChannelConfiguration(15, 0x0d); adcon1->setVrefHiConfiguration(1, 3); adcon1->setVrefHiConfiguration(3, 3); adcon1->setVrefHiConfiguration(5, 3); adcon1->setVrefHiConfiguration(8, 3); adcon1->setVrefHiConfiguration(10, 3); adcon1->setVrefHiConfiguration(11, 3); adcon1->setVrefHiConfiguration(12, 3); adcon1->setVrefHiConfiguration(13, 3); adcon1->setVrefHiConfiguration(15, 3); adcon1->setVrefLoConfiguration(8, 2); adcon1->setVrefLoConfiguration(11, 2); adcon1->setVrefLoConfiguration(12, 2); adcon1->setVrefLoConfiguration(13, 2); adcon1->setVrefLoConfiguration(15, 2); adcon1->setNumberOfChannels(5); adcon1->setIOPin(0, &(*m_porta)[0]); adcon1->setIOPin(1, &(*m_porta)[1]); adcon1->setIOPin(2, &(*m_porta)[2]); adcon1->setIOPin(3, &(*m_porta)[3]); adcon1->setIOPin(4, &(*m_porta)[5]); } _16bit_compat_adc::_16bit_compat_adc(const char *_name, const char *desc) : _16bit_processor(_name, desc), adcon0(0), adcon1(0) { } _16bit_compat_adc::~_16bit_compat_adc() { if(adcon0) delete_sfr_register(adcon0); if(adcon1) delete_sfr_register(adcon1); } void _16bit_v2_adc::create(int nChannels) { adcon0 = new ADCON0_V2(this, "adcon0", "A2D control register"); adcon1 = new ADCON1_V2(this, "adcon1", "A2D control register"); adcon2 = new ADCON2_V2(this, "adcon2", "A2D control register"); RegisterValue porv(0,0); add_sfr_register(adcon2, 0xfc0,porv,"adcon2"); add_sfr_register(adcon1, 0xfc1,porv,"adcon1"); add_sfr_register(adcon0, 0xfc2,porv,"adcon0"); adcon0->setAdresLow(&adresl); adcon0->setAdres(&adresh); adcon0->setAdcon1(adcon1); adcon0->setAdcon2(adcon2); adcon0->setIntcon(&intcon); adcon0->setPir(&pir1); adcon0->setChannel_Mask(0xf); // upto 16 channels adcon0->setA2DBits(10); adcon1->setValidCfgBits(ADCON1::PCFG0 | ADCON1::PCFG1 | ADCON1::PCFG2 | ADCON1::PCFG3,0); adcon1->setNumberOfChannels(nChannels); adcon1->setChanTable(0x1fff, 0x1fff, 0x1fff, 0x0fff, 0x07ff, 0x03ff, 0x01ff, 0x00ff, 0x007f, 0x003f, 0x001f, 0x000f, 0x0007, 0x0003, 0x0001, 0x0000); adcon1->setVrefHiChannel(3); adcon1->setVrefLoChannel(2); adcon1->setIOPin(0, &(*m_porta)[0]); adcon1->setIOPin(1, &(*m_porta)[1]); adcon1->setIOPin(2, &(*m_porta)[2]); adcon1->setIOPin(3, &(*m_porta)[3]); } _16bit_v2_adc::_16bit_v2_adc(const char *_name, const char *desc) : _16bit_processor(_name, desc), adcon0(0), adcon1(0), adcon2(0) { } _16bit_v2_adc::~_16bit_v2_adc() { if(adcon0) delete_sfr_register(adcon0); if(adcon1) delete_sfr_register(adcon1); if(adcon2) delete_sfr_register(adcon2); } gpsim-0.27.0/src/16bit-hexdecode.cc0000664000076400007640000001677312140667764013656 00000000000000/* Copyright (C) 1998,1999 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ // T. Scott Dattalo 16bit core routines #include #include #include #include #include "../config.h" #include "16bit-processors.h" #include "pic-instructions.h" #include "12bit-instructions.h" #include "16bit-instructions.h" #include "gpsim_def.h" #include "pic-processor.h" #include "picdis.h" #include "stimuli.h" /* PIC 16-bit instruction set */ struct instruction_constructor op_18cxx[] = { // Extended Instructions { 0xfe00, 0xe800, ADDFSR16::construct }, // ADDFSR & SUBFSR, ADDULNK, SUBULNK { 0xffff, 0x0014, CALLW16::construct }, { 0xff00, 0xeb00, MOVSF::construct }, // MOVSF & MOVSS { 0xff00, 0xea00, PUSHL::construct }, // Normal instructions { 0xff00, 0x0f00, ADDLW16::construct }, { 0xfc00, 0x2400, ADDWF16::construct }, { 0xfc00, 0x2000, ADDWFC16::construct }, { 0xff00, 0x0b00, ANDLW16::construct }, { 0xfc00, 0x1400, ANDWF16::construct }, { 0xff00, 0xe200, BC::construct }, { 0xf000, 0x9000, BCF16::construct }, { 0xff00, 0xe600, BN::construct }, { 0xff00, 0xe300, BNC::construct }, { 0xff00, 0xe700, BNN::construct }, { 0xff00, 0xe500, BNOV::construct }, { 0xff00, 0xe100, BNZ::construct }, { 0xff00, 0xe400, BOV::construct }, { 0xf800, 0xd000, BRA16::construct }, { 0xf000, 0x8000, BSF16::construct }, { 0xf000, 0xb000, BTFSC16::construct }, { 0xf000, 0xa000, BTFSS16::construct }, { 0xf000, 0x7000, BTG::construct }, { 0xff00, 0xe000, BZ::construct }, { 0xfe00, 0xec00, CALL16::construct }, { 0xfe00, 0x6a00, CLRF16::construct }, { 0xffff, 0x0004, CLRWDT::construct }, { 0xfc00, 0x1c00, COMF16::construct }, { 0xfe00, 0x6200, CPFSEQ::construct }, { 0xfe00, 0x6400, CPFSGT::construct }, { 0xfe00, 0x6000, CPFSLT::construct }, { 0xffff, 0x0007, DAW::construct }, { 0xfc00, 0x0400, DECF16::construct }, { 0xfc00, 0x2c00, DECFSZ16::construct }, { 0xfc00, 0x4c00, DCFSNZ::construct }, { 0xff00, 0xef00, GOTO16::construct }, { 0xfc00, 0x2800, INCF16::construct }, { 0xfc00, 0x3c00, INCFSZ16::construct }, { 0xfc00, 0x4800, INFSNZ::construct }, { 0xff00, 0x0900, IORLW16::construct }, { 0xfc00, 0x1000, IORWF16::construct }, { 0xffc0, 0xee00, LFSR::construct }, { 0xfc00, 0x5000, MOVF16::construct }, { 0xf000, 0xc000, MOVFF::construct }, { 0xff00, 0x0100, MOVLB16::construct }, { 0xff00, 0x0e00, MOVLW::construct }, { 0xfe00, 0x6e00, MOVWF16::construct }, //RRR { 0xff00, 0x6f00, MOVWF16::construct }, //RRR { 0xff00, 0x6e00, MOVWF16a::construct }, { 0xff00, 0x0d00, MULLW::construct }, { 0xfe00, 0x0200, MULWF::construct }, { 0xfe00, 0x6c00, NEGF::construct }, { 0xffff, 0x0000, NOP::construct }, { 0xf000, 0xf000, NOP::construct }, { 0xffff, 0x0006, POP::construct }, { 0xffff, 0x0005, PUSH::construct }, { 0xf800, 0xd800, RCALL::construct }, { 0xffff, 0x00ff, RESET::construct }, { 0xfffe, 0x0010, RETFIE16::construct }, { 0xff00, 0x0c00, RETLW::construct }, { 0xfffe, 0x0012, RETURN16::construct }, { 0xfc00, 0x3400, RLCF::construct }, { 0xfc00, 0x4400, RLNCF::construct }, { 0xfc00, 0x3000, RRCF::construct }, { 0xfc00, 0x4000, RRNCF::construct }, { 0xfe00, 0x6800, SETF::construct }, { 0xffff, 0x0003, SLEEP16::construct }, { 0xfc00, 0x5400, SUBFWB::construct }, { 0xff00, 0x0800, SUBLW16::construct }, { 0xfc00, 0x5c00, SUBWF16::construct }, { 0xfc00, 0x5800, SUBWFB16::construct }, { 0xfc00, 0x3800, SWAPF16::construct }, { 0xfffc, 0x0008, TBLRD::construct }, { 0xfffc, 0x000c, TBLWT::construct }, { 0xfe00, 0x6600, TSTFSZ::construct }, { 0xff00, 0x0a00, XORLW16::construct }, { 0xfc00, 0x1800, XORWF16::construct }, }; struct instruction_constructor op_17cxx[] = { { 0xff00, 0xb100, ADDLW16::construct }, { 0xfe00, 0x0e00, ADDWF16::construct }, { 0xfe00, 0x1000, ADDWFC::construct }, { 0xff00, 0xb500, ANDLW16::construct }, { 0xfe00, 0x0a00, ANDWF16::construct }, { 0xf800, 0x8800, BCF::construct }, { 0xf800, 0x8000, BSF::construct }, { 0xf800, 0x9800, BTFSC::construct }, { 0xf800, 0x9000, BTFSS::construct }, { 0xf800, 0x3800, BTG::construct }, { 0xe000, 0xe000, CALL16::construct }, { 0xfe00, 0x2800, CLRF::construct }, { 0xffff, 0x0004, CLRWDT::construct }, { 0xfe00, 0x1200, COMF16::construct }, { 0xff00, 0x3100, CPFSEQ::construct }, { 0xff00, 0x3200, CPFSGT::construct }, { 0xff00, 0x3000, CPFSLT::construct }, { 0xfe00, 0x2e00, DAW::construct }, { 0xfe00, 0x0600, DECF16::construct }, { 0xfe00, 0x1600, DECFSZ16::construct }, { 0xfe00, 0x2600, DCFSNZ::construct }, { 0xe000, 0xc000, GOTO16::construct }, { 0xfe00, 0x1400, INCF16::construct }, { 0xfe00, 0x1e00, INCFSZ16::construct }, { 0xfe00, 0x2400, INFSNZ::construct }, { 0xff00, 0xb300, IORLW16::construct }, { 0xfe00, 0x0800, IORWF16::construct }, { 0xff00, 0xb700, LCALL16::construct }, { 0xe000, 0x6000, MOVFP::construct }, { 0xe000, 0x4000, MOVPF::construct }, { 0xff00, 0xb800, MOVLB::construct }, { 0xfe00, 0xba00, MOVLR::construct }, { 0xff00, 0xb000, MOVLW::construct }, { 0xff00, 0x0100, MOVWF16::construct }, { 0xff00, 0xbc00, MULLW::construct }, { 0xff00, 0x3400, MULWF::construct }, { 0xfe00, 0x2c00, NEGW::construct }, { 0xffff, 0x0000, NOP::construct }, { 0xffff, 0x0005, RETFIE16::construct }, { 0xff00, 0xb600, RETLW::construct }, { 0xffff, 0x0002, RETURN16::construct }, { 0xfe00, 0x1a00, RLCF::construct }, { 0xfe00, 0x2200, RLNCF::construct }, { 0xfe00, 0x1800, RRCF::construct }, { 0xfe00, 0x2000, RRNCF::construct }, { 0xfe00, 0x2a00, SETF::construct }, { 0xffff, 0x0003, SLEEP16::construct }, { 0xff00, 0xb200, SUBLW16::construct }, { 0xfe00, 0x0400, SUBWF16::construct }, { 0xfe00, 0x0200, SUBWFB::construct }, { 0xfe00, 0x1c00, SWAPF::construct }, { 0xfc00, 0xa800, TBLRD::construct }, { 0xfc00, 0xac00, TBLWT::construct }, { 0xfc00, 0xa000, TLRD::construct }, { 0xfc00, 0xa400, TLWT::construct }, { 0xff00, 0x3300, TSTFSZ::construct }, { 0xff00, 0xb400, XORLW16::construct }, { 0xfe00, 0x0c00, XORWF16::construct } }; const int NUM_OP_18CXX = sizeof(op_18cxx) / sizeof(op_18cxx[0]); const int NUM_OP_17CXX = sizeof(op_17cxx) / sizeof(op_17cxx[0]); instruction * disasm16 (pic_processor *cpu, unsigned int address, unsigned int inst) { instruction *pi; cpu16->setCurrentDisasmAddress(address); pi = 0; for(int i =0; i. */ #ifndef INTCON_H #define INTCON_H #include // for cout used in breakpoints.h #include "gpsim_classes.h" #include "registers.h" #include "breakpoints.h" //--------------------------------------------------------- // INTCON - Interrupt control register class INTCON : public sfr_register { public: unsigned int interrupt_trace; enum { RBIF = 1<<0, INTF = 1<<1, T0IF = 1<<2, RBIE = 1<<3, INTE = 1<<4, T0IE = 1<<5, XXIE = 1<<6, // Processor dependent GIE = 1<<7 }; INTCON(Processor *pCpu, const char *pName, const char *pDesc); inline void set_gie() { put(value.get() | GIE); } inline void clear_gie() { put(value.get() & ~GIE); } void set_T0IF(); /* // Bit 6 of intcon depends on the processor that's being simulated, // This generic function will get called whenever interrupt flag upon // which bit 6 enables becomes true. (e.g. for the c84, this // routine is called when EEIF goes high.) */ virtual void peripheral_interrupt ( bool hi_pri = false ); inline void set_rbif(bool b) { bool current = (value.get() & RBIF) == RBIF; if (b && !current) put(value.get() | RBIF); if (!b && current) put(value.get() & ~RBIF); } inline void set_intf(bool b) { bool current = (value.get() & INTF) == INTF; if (b && !current) put(value.get() | INTF); if (!b && current) put(value.get() & ~INTF); } inline void set_t0if() { put(value.get() | T0IF); } inline void set_rbie() { put(value.get() | RBIE); } inline void set_inte() { put(value.get() | INTE); } inline void set_t0ie() { put(value.get() | T0IE); } virtual int check_peripheral_interrupt()=0; virtual void put(unsigned int new_value); }; //--------------------------------------------------------- class INTCON2 : public sfr_register { public: INTCON2(Processor *pCpu, const char *pName, const char *pDesc); virtual void put_value(unsigned int new_value); virtual void put(unsigned int new_value); virtual bool assignBitSink(unsigned int bitPosition, BitSink *); virtual bool releaseBitSink(unsigned int bitPosition, BitSink *); enum { RBIP = 1<<0, INT3IP = 1<<1, TMR0IP = 1<<2, INTEDG3 = 1<<3, INTEDG2 = 1<<4, INTEDG1 = 1<<5, INTEDG0 = 1<<6, RBPU = 1<<7 }; private: BitSink *m_bsRBPU; }; class INTCON3 : public sfr_register { public: INTCON3(Processor *pCpu, const char *pName, const char *pDesc); virtual void put_value(unsigned int new_value); virtual void put(unsigned int new_value); inline void set_int1f(bool b) { bool current = (value.get() & INT1IF) == INT1IF; if (b && !current) put(value.get() | INT1IF); if (!b && current) put(value.get() & ~INT1IF); } inline void set_int2f(bool b) { bool current = (value.get() & INT2IF) == INT2IF; if (b && !current) put(value.get() | INT2IF); if (!b && current) put(value.get() & ~INT2IF); } inline void set_int3f(bool b) { bool current = (value.get() & INT3IF) == INT3IF; if (b && !current) put(value.get() | INT3IF); if (!b && current) put(value.get() & ~INT3IF); } inline void set_int1e() { put(value.get() | INT1IE); } inline void set_int2e() { put(value.get() | INT2IE); } inline void set_int3e() { put(value.get() | INT3IE); } enum { INT1IF = 1<<0, INT2IF = 1<<1, INT3IF = 1<<2, INT1IE = 1<<3, INT2IE = 1<<4, INT3IE = 1<<5, INT1IP = 1<<6, INT2IP = 1<<7 }; }; class PIR_SET; // A 14-bit intcon with pir registers class INTCON_14_PIR : public INTCON { public: INTCON_14_PIR(Processor *pCpu, const char *pName, const char *pDesc); inline void set_pir_set(PIR_SET *p) { pir_set = p; } virtual int check_peripheral_interrupt(); //private: PIR_SET *pir_set; }; //--------------------------------------------------------- // INTCON_16 - Interrupt control register for the 16-bit core class RCON; class INTCON_16 : public INTCON { public: enum { GIEH = GIE, GIEL = XXIE, TMR0IE = T0IE, INT0IE = INTE, TMR0IF = T0IF, INT0IF = INTF }; #define INTERRUPT_VECTOR_LO (0x18 >> 1) #define INTERRUPT_VECTOR_HI (0x08 >> 1) INTCON_16(Processor *pCpu, const char *pName, const char *pDesc); inline void set_rcon(RCON *r) { rcon = r; } inline void set_intcon2(INTCON2 *ic) { intcon2 = ic; } inline void set_pir_set(PIR_SET *p) { pir_set = p; } virtual void put(unsigned int new_value); virtual void peripheral_interrupt ( bool hi_pri = false ); void clear_gies(); void set_gies(); virtual int check_peripheral_interrupt(); unsigned int get_interrupt_vector() { return interrupt_vector; } bool isHighPriorityInterrupt() { return ( interrupt_vector == INTERRUPT_VECTOR_HI ); } void set_interrupt_vector(unsigned int new_int_vect) { interrupt_vector = new_int_vect; } private: unsigned int interrupt_vector; // Starting address of the interrupt RCON *rcon; INTCON2 *intcon2; PIR_SET *pir_set; }; #endif /* INTCON_H */ gpsim-0.27.0/src/pm_rd.h0000644000076400007640000000565211401131150011704 00000000000000/* Copyright (C) 1998-2003 Scott Dattalo 2003 Mike Durian 2006 David Barnett This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef PM_RD_H #define PM_RD_H #include #include "gpsim_classes.h" #include "registers.h" #include "breakpoints.h" class pic_processor; class PM_RD; //--------------------------------------------------------- // PMCON1 - PM control register 1 // class PMCON1 : public sfr_register { public: enum { RD = (1<<0), }; PMCON1(Processor *p, PM_RD *); void put(unsigned int new_value); unsigned int get(); inline void set_pm(PM_RD *pm) {pm_rd = pm;} inline void set_valid_bits(unsigned int vb) { valid_bits = vb; } inline unsigned int get_valid_bits() { return (valid_bits); } inline void set_bits(unsigned int b) { valid_bits |= b; } inline void clear_bits(unsigned int b) { valid_bits &= ~b; } unsigned int valid_bits; PM_RD *pm_rd; }; const unsigned int PMCON1_VALID_BITS = (PMCON1::RD); // // PMDATA - PM data register // class PMDATA : public sfr_register { public: PMDATA(Processor *p, const char *pName); void put(unsigned int new_value); unsigned int get(); }; // // PMADR - PM address register // class PMADR : public sfr_register { public: PMADR(Processor *p, const char *pName); void put(unsigned int new_value); unsigned int get(); }; //------------------------------------------------------------------------ //------------------------------------------------------------------------ // For storing callback and cpu ptr and grouping PM regs class PM_RD : public TriggerObject { public: static const unsigned int READ_CYCLES = 2; PM_RD(pic_processor *p); //virtual void set_cpu(pic_processor *p) { cpu = p; } virtual void callback(); virtual void start_read(); inline virtual PMCON1 *get_reg_pmcon1() { return (&pmcon1); } inline virtual PMDATA *get_reg_pmdata() { return (&pmdata); } inline virtual PMDATA *get_reg_pmdath() { return (&pmdath); } inline virtual PMADR *get_reg_pmadr() { return (&pmadr); } inline virtual PMADR *get_reg_pmadrh() { return (&pmadrh); } //protected: pic_processor *cpu; PMCON1 pmcon1; PMDATA pmdata; PMDATA pmdath; PMADR pmadr; PMADR pmadrh; unsigned int rd_adr; // latched adr }; #endif /* PM_RD_H */ gpsim-0.27.0/src/program_files.cc0000644000076400007640000001044411401170177013601 00000000000000#include "exports.h" #include "program_files.h" #include "pic-processor.h" #include "cod.h" #include "hexutils.h" #include "cmd_gpsim.h" /** * RegisterProgramFileType * Exported function for external modules to register their * file types. */ void LIBGPSIM_EXPORT RegisterProgramFileType(ProgramFileType * pPFT) { ProgramFileTypeList::GetList().push_back(pPFT); } void ProgramFileType::DisplayError(int err, const char *pProgFilename, const char *pLstFile) { int iMessage; const char * pArg = ""; switch(err) { case ERR_UNRECOGNIZED_PROCESSOR: iMessage = IDS_PROGRAM_FILE_PROCESSOR_NOT_KNOWN; break; case ERR_FILE_NOT_FOUND: iMessage = IDS_FILE_NOT_FOUND; pArg = pProgFilename; break; case ERR_FILE_NAME_TOO_LONG: iMessage = IDS_FILE_NAME_TOO_LONG; pArg = pProgFilename; break; case ERR_LST_FILE_NOT_FOUND: if(pLstFile == NULL) { iMessage = IDS_LIST_FILE_NOT_FOUND; pArg = pProgFilename; } else { iMessage = IDS_FILE_NOT_FOUND; pArg = pLstFile; } break; case ERR_BAD_FILE: iMessage = IDS_FILE_BAD_FORMAT; pArg = pProgFilename; break; case ERR_NO_PROCESSOR_SPECIFIED: iMessage = IDS_NO_PROCESSOR_SPECIFIED; break; case ERR_PROCESSOR_INIT_FAILED: iMessage = IDS_PROCESSOR_INIT_FAILED; break; case ERR_NEED_PROCESSOR_SPECIFIED: iMessage = IDS_FILE_NEED_PROCESSOR_SPECIFIED; break; default: iMessage = SUCCESS; break; } if(iMessage != SUCCESS) GetUserInterface().DisplayMessage(iMessage, pArg); } /** * ProgramFileTypeList * Singleton class to manage the many (as of now three) file types. */ ProgramFileTypeList * ProgramFileTypeList::s_ProgramFileTypeList = new ProgramFileTypeList(); // We will instantiate g_HexFileType and g_CodFileType here to be sure // they are instantiated after s_ProgramFileTypeList. The objects will // move should the PIC code moved to its own external module. static IntelHexProgramFileType g_HexFileType; static PicCodProgramFileType g_CodFileType; ProgramFileTypeList &ProgramFileTypeList::GetList() { return *s_ProgramFileTypeList; } ProgramFileTypeList::ProgramFileTypeList() { reserve(5); } ProgramFileTypeList::~ProgramFileTypeList() { } bool ProgramFileTypeList::LoadProgramFile(Processor **pProcessor, const char *pFilename, FILE *pFile, const char *pProcessorName) { iterator it; iterator itLast; iterator itEnd = end(); int iReturn = ProgramFileType::SUCCESS; for(it = begin(); it != itEnd; it++) { itLast = it; fseek(pFile, 0, SEEK_SET); //get_symbol_table().clear(); if((iReturn = (*it)->LoadProgramFile(pProcessor, pFilename, pFile, pProcessorName)) == ProgramFileType::SUCCESS) { return true; } if(IsErrorDisplayableInLoop(iReturn)) { (*it)->DisplayError(iReturn, pFilename, NULL); } } if(!IsErrorDisplayableInLoop(iReturn)) { (*itLast)->DisplayError(iReturn, pFilename, NULL); } return false; } bool ProgramFileTypeList::IsErrorDisplayableInLoop(int iError) { return iError != ProgramFileType::SUCCESS && iError != ProgramFileType::ERR_BAD_FILE && iError != ProgramFileType::ERR_NEED_PROCESSOR_SPECIFIED && iError != ProgramFileType::ERR_LST_FILE_NOT_FOUND; } /// /// ProgramFileBuf /// Used to wrap the FILE pointer to the program file /// for libraries that use istreams. ///////////////////////////////////////////////////// ProgramFileBuf::ProgramFileBuf(FILE *pFile) { m_pFile = pFile; setg(m_Buffer + 4, m_Buffer + 4, m_Buffer + 4); } ProgramFileBuf::int_type ProgramFileBuf::underflow( ) { if(gptr() < egptr()) { return *gptr(); } int numPutback; numPutback = gptr() - eback(); if (numPutback > 4) { numPutback = 4; } std::memcpy (m_Buffer+(4-numPutback), gptr() - numPutback, numPutback); int num; if((num = ::fread((void*)( m_Buffer + 4), 1, m_iBufferSize - 4, m_pFile)) <= 0) { if(errno != 0) printf("%s\n", strerror(errno)); return (int_type )traits_type::eof(); } setg(m_Buffer + (4 - numPutback), m_Buffer + 4, m_Buffer + 4 + num); return *gptr(); } streamsize ProgramFileBuf::xsgetn( char_type *_Ptr, streamsize _Count) { return ::fread(_Ptr, _Count, 1, m_pFile); } gpsim-0.27.0/src/a2dconverter.h0000664000076400007640000003276012175377101013224 00000000000000/* Copyright (C) 2006 T. Scott Dattalo Copyright (C) 2009, 2013 Roy R. Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __A2DCONVERTER_H__ #define __A2DCONVERTER_H__ #include "registers.h" #include "trigger.h" #include "intcon.h" #include "pir.h" #include "comparator.h" class PinModule; class pic_processor; //--------------------------------------------------------- // ADRES // /* class ADRES : public sfr_register { public: void put(int new_value); }; */ /* AD_IN_SignalControl is used to set an ADC pin as input regardless of the setting to the TRIS register */ class AD_IN_SignalControl : public SignalControl { public: AD_IN_SignalControl(){} ~AD_IN_SignalControl(){} char getState() { return '1'; } void release() { } }; //--------------------------------------------------------- // ADCON1 // class ADCON1 : public sfr_register { public: enum PCFG_bits { PCFG0 = 1<<0, PCFG1 = 1<<1, PCFG2 = 1<<2, PCFG3 = 1<<3, // 16f87x etc. VCFG0 = 1<<4, // 16f88 VCFG1 = 1<<5, // 16f88 ADCS2 = 1<<6, ADFM = 1<<7 // Format Result select bit }; ADCON1(Processor *pCpu, const char *pName, const char *pDesc); ~ADCON1(); virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); void setChannelConfiguration(unsigned int cfg, unsigned int bitMask); void setVrefLoConfiguration(unsigned int cfg, unsigned int channel); void setVrefHiConfiguration(unsigned int cfg, unsigned int channel); unsigned int getVrefHiChannel(unsigned int cfg); unsigned int getVrefLoChannel(unsigned int cfg); double getChannelVoltage(unsigned int channel); virtual double getVrefHi(); virtual double getVrefLo(); void setValidCfgBits(unsigned int m, unsigned int s); void setNumberOfChannels(unsigned int); unsigned int getNumberOfChannels() { return(m_nAnalogChannels);} void setIOPin(unsigned int, PinModule *); void setVoltRef(unsigned int, float); int get_cfg(unsigned int); virtual unsigned int get_adc_configmask(unsigned int); virtual void set_cfg_index(unsigned int index) { cfg_index = index;} void set_channel_in(unsigned int channel, bool on); void setADCnames(); void setValidBits(unsigned int mask) { valid_bits = mask;} bool getADFM() { return adfm;} unsigned int getMaxCfg() { return cMaxConfigurations;} protected: unsigned int valid_bits; bool adfm; PinModule **m_AnalogPins; float *m_voltageRef; unsigned int m_nAnalogChannels; unsigned int mValidCfgBits; unsigned int mCfgBitShift; unsigned int mIoMask; unsigned int cfg_index; static const unsigned int cMaxConfigurations=16; /* Vrefhi/lo_position - this is an array that tells which * channel the A/D converter's voltage reference(s) are located. * The index into the array is formed from the PCFG bits. * The encoding is as follows: * 0-7: analog channel containing Vref(s) * 8: The reference is internal (i.e. Vdd) * 0xff: The analog inputs are configured as digital inputs */ unsigned int Vrefhi_position[cMaxConfigurations]; unsigned int Vreflo_position[cMaxConfigurations]; /* configuration bits is an array of 8-bit masks definining whether or not * a given channel is analog or digital */ unsigned int m_configuration_bits[cMaxConfigurations]; // used bt setControl to set pin direction as input AD_IN_SignalControl *m_ad_in_ctl; }; class ADCON0; //--------------------------------------------------------- // ADCON1_16F // class ADCON1_16F : public ADCON1 { public: enum { ADPREF0 = (1<<0), ADPREF1 = (1<<1), ADCS0 = (1<<4), ADCS1 = (1<<5), ADCS2 = (1<<6), ADFM = (1<<7) }; ADCON1_16F(Processor *pCpu, const char *pName, const char *pDesc); virtual void put_value(unsigned int new_value); void setAdcon0 (ADCON0 *_adcon0) {adcon0 = _adcon0;} virtual double getVrefHi(); void set_FVR_chan(unsigned int chan) { FVR_chan = chan;} private: ADCON0 *adcon0; unsigned int FVR_chan; }; //--------------------------------------------------------- // ADCON0 // class ADCON0 : public sfr_register, public TriggerObject { public: enum { ADON = 1<<0, ADIF = 1<<1, GO = 1<<2, CHS0 = 1<<3, CHS1 = 1<<4, CHS2 = 1<<5, ADCS0 = 1<<6, ADCS1 = 1<<7 }; enum AD_states { AD_IDLE, AD_ACQUIRING, AD_CONVERTING }; ADCON0(Processor *pCpu, const char *pName, const char *pDesc); void start_conversion(); void stop_conversion(); virtual void set_interrupt(); virtual void callback(); void put(unsigned int new_value); void put_conversion(); bool getADIF() { return (value.get() & ADIF) != 0; } void setAdres(sfr_register *); void setAdresLow(sfr_register *); void setAdcon1(ADCON1 *); void setIntcon(INTCON *); virtual void setPir(PIR *); void setA2DBits(unsigned int); void setChannel_Mask(unsigned int ch_mask) { channel_mask = ch_mask; } void setChannel_shift(unsigned int ch_shift) { channel_shift = ch_shift; } void setGo(unsigned int go) { GO_bit = (1 << go); } virtual bool get_ADFM() { return adcon1->getADFM(); } virtual void set_Tad(unsigned int); virtual double getChannelVoltage(unsigned int channel) { return( adcon1->getChannelVoltage(channel)); } virtual double getVrefHi() { return(m_dSampledVrefHi = adcon1->getVrefHi());} virtual double getVrefLo() { return (m_dSampledVrefLo = adcon1->getVrefLo());} void setValidBits(unsigned int mask) { valid_bits = mask;} private: friend class ADCON0_10; friend class ADCON0_12F; sfr_register *adres; sfr_register *adresl; ADCON1 *adcon1; INTCON *intcon; PIR *m_pPir; double m_dSampledVoltage; double m_dSampledVrefHi; double m_dSampledVrefLo; unsigned int m_A2DScale; unsigned int m_nBits; guint64 future_cycle; unsigned int ad_state; unsigned int Tad_2; unsigned int Tad; unsigned int channel_mask; unsigned int channel_shift; unsigned int GO_bit; unsigned int valid_bits; }; //--------------------------------------------------------- // ADCON0_10 register for 10f22x A2D // class ADCON0_10 : public ADCON0 { public: enum { ADON = 1<<0, GO = 1<<1, CHS0 = 1<<2, CHS1 = 1<<3, ANS0 = 1<<6, ANS1 = 1<<7 }; void put(unsigned int new_value); ADCON0_10(Processor *pCpu, const char *pName, const char *pDesc); private: AD_IN_SignalControl ad_pin_input; }; //--------------------------------------------------------- // ANSEL // class ANSEL_H; class ANSEL : public sfr_register { public: enum { ANS0 = 1 << 0, ANS1 = 1 << 1, ANS2 = 1 << 2, ANS3 = 1 << 3, ANS4 = 1 << 4, ANS5 = 1 << 5, ANS6 = 1 << 6, ANS7 = 1 << 7 }; ANSEL(Processor *pCpu, const char *pName, const char *pDesc); void setAdcon1(ADCON1 *new_adcon1); void setAnselh(ANSEL_H *new_anselh) { anselh = new_anselh;} void put(unsigned int new_val); void setValidBits(unsigned int mask) { valid_bits = mask;} private: ADCON1 *adcon1; ANSEL_H *anselh; unsigned int valid_bits; }; //--------------------------------------------------------- // ANSEL_H // class ANSEL_H : public sfr_register { public: enum { ANS8 = 1 << 0, ANS9 = 1 << 1, ANS10 = 1 << 2, ANS11 = 1 << 3, ANS12 = 1 << 4, ANS13 = 1 << 5, }; ANSEL_H(Processor *pCpu, const char *pName, const char *pDesc); void setAdcon1(ADCON1 *new_adcon1); void setAnsel(ANSEL *new_ansel) { ansel = new_ansel;} void put(unsigned int new_val); void setValidBits(unsigned int mask) { valid_bits = mask;} private: ADCON1 *adcon1; ANSEL *ansel; unsigned int valid_bits; }; // // ANSEL_P is an analog select register associated // with a port. class ANSEL_P : public sfr_register { public: ANSEL_P(Processor *pCpu, const char *pName, const char *pDesc); void setAdcon1(ADCON1 *new_adcon1); void setAnsel(ANSEL_P *new_ansel) { ansel = new_ansel;} void put(unsigned int new_val); void setValidBits(unsigned int mask) { valid_bits = mask;} void config(unsigned int pins, unsigned int first_chan) { analog_pins = pins; first_channel = first_chan;} unsigned int get_mask() { return cfg_mask;} private: ADCON1 *adcon1; ANSEL_P *ansel; unsigned int valid_bits; // register bit mask unsigned int analog_pins; // bit map of analog port pins unsigned int first_channel; // channel number for LSB of analog_pins unsigned int cfg_mask; // A2D mask this port only }; //--------------------------------------------------------- // ADCON0_12F register for 12f675 A2D // class ADCON0_12F : public ADCON0 { public: enum { ADON = 1<<0, GO = 1<<1, CHS0 = 1<<2, CHS1 = 1<<3, CHS2 = 1<<4, VCFG = 1<<6, ADFM = 1<<7 }; void put(unsigned int new_value); virtual bool get_ADFM() { return(value.get() & ADFM); } virtual void set_Tad(unsigned int _tad) { Tad = _tad; } ADCON0_12F(Processor *pCpu, const char *pName, const char *pDesc); private: AD_IN_SignalControl ad_pin_input; }; //--------------------------------------------------------- // ANSEL_12F // class ANSEL_12F : public sfr_register { public: enum { ANS0 = 1 << 0, ANS1 = 1 << 1, ANS2 = 1 << 2, ANS3 = 1 << 3, ADCS0 = 1 << 4, ADCS1 = 1 << 5, ADCS2 = 1 << 6 }; ANSEL_12F(Processor *pCpu, const char *pName, const char *pDesc); void setAdcon0(ADCON0_12F *new_adcon0) { adcon0 = new_adcon0; } void setAdcon1(ADCON1 *new_adcon1) { adcon1 = new_adcon1; } void put(unsigned int new_val); void set_tad(unsigned int); private: ADCON1 *adcon1; ADCON0_12F *adcon0; }; // set voltage from stimulus class a2d_stimulus : public stimulus { public: a2d_stimulus(ADCON1 *arg, int chan, const char *n=0, double _Vth=0.0, double _Zth=1e12 ); ADCON1 *_adcon1; int channel; virtual void set_nodeVoltage(double v); }; //--------------------------------------------------------- // FVRCON register for Fixed Voltage Reference // class DACCON0; class FVRCON : public sfr_register { public: enum { ADFVR0 = 1<<0, ADFVR1 = 1<<1, CDAFVR0 = 1<<2, CDAFVR1 = 1<<3, TSRNG = 1<<4, TSEN = 1<<5, FVRRDY = 1<<6, FVREN = 1<<7, }; FVRCON(Processor *, const char *pName, const char *pDesc=0, unsigned int bitMask= 0xff, unsigned int alwaysOne = 0); virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); void set_adcon1(ADCON1 *_adcon1) { adcon1 = _adcon1;} void set_cmModule(ComparatorModule2 *_cmModule) { cmModule = _cmModule;} void set_daccon0(DACCON0 *_daccon0) { daccon0 = _daccon0;} void set_cpscon0(CPSCON0 *_cpscon0) { cpscon0 = _cpscon0;} void set_VTemp_AD_chan(unsigned int _chan) {VTemp_AD_chan = _chan;} void set_FVRAD_AD_chan(unsigned int _chan) {FVRAD_AD_chan = _chan;} private: double compute_VTemp(unsigned int); //Voltage of core temperature setting double compute_FVR_AD(unsigned int); //Voltage reference for ADC double compute_FVR_CDA(unsigned int); //Voltage reference for Comparators, DAC, CPS ADCON1 *adcon1; DACCON0 *daccon0; ComparatorModule2 *cmModule; CPSCON0 *cpscon0; unsigned int VTemp_AD_chan; unsigned int FVRAD_AD_chan; unsigned int mask_writable; unsigned int always_one; // bits in register that are always 1 }; // // DAC module // class DACCON1; class DACCON0 : public sfr_register { public: enum { DACPSS0 = (1<<2), DACPSS1 = (1<<3), DACOE = (1<<5), DACLPS = (1<<6), DACEN = (1<<7), }; DACCON0(Processor *, const char *pName, const char *pDesc=0, unsigned int bitMask= 0xe6, unsigned int bit_res = 32); virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); void set_adcon1(ADCON1 *_adcon1) { adcon1 = _adcon1;} void set_cpscon0(CPSCON0 *_cpscon0) { cpscon0 = _cpscon0;} void set_cmModule(ComparatorModule2 *_cmModule) { cmModule = _cmModule;} void set_FVRCDA_AD_chan(unsigned int _chan) {FVRCDA_AD_chan = _chan;} void set_dcaccon1_reg(unsigned int reg); void set_FVR_CDA_volt(double volt) { FVR_CDA_volt = volt;} void setDACOUT(PinModule *pin){ output_pin = pin;} //void setDACOUT(IO_bi_directional_pu *_pin){ pin = _pin;} private: void compute_dac(unsigned int value); double get_Vhigh(unsigned int value); ADCON1 *adcon1; ComparatorModule2 *cmModule; CPSCON0 *cpscon0; unsigned int FVRCDA_AD_chan; unsigned int bit_mask; unsigned int bit_resolution; unsigned int daccon1_reg; double FVR_CDA_volt; bool Pin_Active; double Vth; double Zth; PinModule *output_pin; IOPIN *pin; IO_bi_directional_pu *out_pin; }; class DACCON1 : public sfr_register { public: DACCON1(Processor *, const char *pName, const char *pDesc=0, unsigned int bitMask= 0x1f, DACCON0 *_daccon0 = 0); virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); void set_daccon0(DACCON0 *_daccon0) { daccon0 = _daccon0;} private: unsigned int bit_mask; DACCON0 *daccon0; }; #endif // __A2DCONVERTER_H__ gpsim-0.27.0/src/registers.h0000664000076400007640000003445712175373613012646 00000000000000/* Copyright (C) 1998-2003 Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __REGISTERS_H__ #define __REGISTERS_H__ #include #include #include #include class symbol; class XrefObject; class Processor; class Module; #include "gpsim_classes.h" #include "value.h" #include "ValueCollections.h" #include "clock_phase.h" #define AN_INVALID_ADDRESS 0xffffffff //--------------------------------------------------------- // RegisterValue class // // This class is used to represent the value of registers. // It also defines which bits have been initialized and which // are valid. // class RegisterValue { public: unsigned int data; // The actual numeric value of the register. unsigned int init; // bit mask of initialized bits. RegisterValue() { data = 0; init = 0xff; // assume 8-bit wide, uninitialized registers } RegisterValue(unsigned int d, unsigned int i) : data(d), init(i) { } RegisterValue(const RegisterValue &value) : data(value.data), init(value.init) { } inline bool initialized() { return init == 0; } inline unsigned int get() { return data; } inline void put(unsigned int d) { data = d; } inline void put(unsigned int d, unsigned int i) { data = d; init = i; } inline unsigned int geti() { return init; } inline void puti(unsigned int i) { init = i; } inline void operator = (RegisterValue rv) { data = rv.data; init = rv.init; } inline operator unsigned int () { return data; } inline operator int () { return (int)data; } bool operator == (const RegisterValue &rv) const { return data == rv.data && init == rv.init; } bool operator != (const RegisterValue &rv) const { return data != rv.data || init != rv.init; } void operator >>= (unsigned int val) { data >>= val; init >>= val; } char * toString(char *str, int len, int regsize=2) const; char * toBitStr(char *s, int len, unsigned int BitPos, const char *ByteSeparator="_", const char *HiBitNames=0, const char *LoBitNames=0, const char *UndefBitNames=0) const; }; //--------------------------------------------------------- /// Register - base class for gpsim registers. /// The Register class is used by processors and modules to /// to create memory maps and special function registers. /// class Register : public Value { public: enum REGISTER_TYPES { INVALID_REGISTER, GENERIC_REGISTER, FILE_REGISTER, SFR_REGISTER, BP_REGISTER }; RegisterValue value; unsigned int address; // If non-zero, the alias_mask describes all address at which // this file register appears. The assumption (that is true so // far for all pic architectures) is that the aliased register // locations differ by one bit. For example, the status register // appears at addresses 0x03 and 0x83 in the 14-bit core. // Consequently, alias_mask = 0x80 and address (above) is equal // to 0x03. unsigned int alias_mask; RegisterValue por_value; // power on reset value unsigned int mValidBits; // = 255 for 8-bit registers, = 65535 for 16-bit registers. // The read_trace and write_trace variables are used while // tracing register reads and writes. Essentially, these are // the trace commands. RegisterValue write_trace; RegisterValue read_trace; // The trace_state is used to reconstruct the state of the // register while traversing a trace buffer. RegisterValue trace_state; guint64 read_access_count; guint64 write_access_count; public: Register(Module *, const char *pName, const char *pDesc=0); virtual ~Register(); virtual int set_break(ObjectBreakTypes bt=eBreakAny, ObjectActionTypes at=eActionHalt, Expression *expr=0); virtual int clear_break(); /// get - method for accessing the register's contents. virtual unsigned int get(); /// put - method for writing a new value to the register. virtual void put(unsigned int new_value); /// put_value - is the same as put(), but some extra stuff like /// interfacing to the gui is done. (It's more efficient than /// burdening the run time performance with (unnecessary) gui /// calls.) virtual void put_value(unsigned int new_value); /// get_value - same as get(), but no trace is performed virtual unsigned int get_value() { return(value.get()); } /// getRV - get the whole register value - including the info /// of the three-state bits. virtual RegisterValue getRV() { value.data = get(); return value; } /// putRV - write a new value to the register. /// \deprecated {use SimPutAsRegisterValue()} /// virtual void putRV(RegisterValue rv) { value.init = rv.init; put(rv.data); } /// getRV_notrace and putRV_notrace are analogous to getRV and putRV /// except that the action (in the derived classes) will not be /// traced. The primary reason for this is to allow the gui to /// refresh it's windows without having the side effect of filling /// up the trace buffer virtual RegisterValue getRV_notrace() { value.data = value.get(); return value; } virtual void putRV_notrace(RegisterValue rv) { value.init = rv.init; put_value(rv.data); } virtual RegisterValue getRVN() { return getRVN_notrace(); } virtual RegisterValue getRVN_notrace() { return getRV_notrace(); } /// set --- cast another Value object type into a register type /// this is used primarily by expression and stimuli processing /// (the put() methods are used by the processors). /// FIXME -- consolidate the get, set, and put methods virtual void set(Value *); /// copy --- This is used during expression parsing. virtual Value *copy(); /// get(gint64 &i) --- ugh. virtual void get(gint64 &i); virtual void initialize() { } /// get3StateBit - returns the 3-state value of a bit /// if a bit is known then a '1' or '0' is returned else, /// a '?' is returned. No check is performed to ensure /// that only a single bit is checked, thus it's possible /// to get the state of a group of bits using this method. virtual char get3StateBit(unsigned int bitMask) { RegisterValue rv = getRV_notrace(); return (rv.init&bitMask) ? '?' : (rv.data&bitMask ? '1':'0'); } /// In the Register class, the 'Register *get()' returns a /// pointer to itself. Derived classes may return something /// else (e.g. a break point may be pointing to the register /// it replaced and will return that instead). virtual Register *getReg() { return this; } virtual REGISTER_TYPES isa() {return GENERIC_REGISTER;}; virtual void reset(RESET_TYPE r) { return; }; /// The setbit function is not really intended for general purpose /// registers. Instead, it is a place holder which is over-ridden /// by the IO ports. virtual void setbit(unsigned int bit_number, bool new_value); /// like setbit, getbit is used mainly for breakpoints. virtual bool get_bit(unsigned int bit_number); virtual double get_bit_voltage(unsigned int bit_number); /// Breakpoint objects will overload this function and return true. virtual bool hasBreak() { return false; } /// register_size returns the number of bytes required to store the register /// (this is used primarily by the gui to determine how wide to make text fields) virtual unsigned int register_size () const; /* When the register is accessed, this action is recorded in the trace buffer. Here we can specify the exact trace command to use. */ virtual void set_write_trace(RegisterValue &rv); virtual void set_read_trace(RegisterValue &rv); virtual void put_trace_state(RegisterValue rv) { trace_state = rv; } virtual RegisterValue get_trace_state() { return trace_state; } /* convert value to a string: */ virtual char * toString(char *str, int len); virtual char * toBitStr(char *s, int len); virtual string &baseName() { return name_str; } virtual unsigned int getAddress() { return address; } virtual void setAddress(unsigned int addr) { address = addr; } Register *getReplaced() { return m_replaced; } void setReplaced(Register *preg) { m_replaced = preg; } virtual void new_name(string &); virtual void new_name(const char *); protected: // A pointer to the register that this register replaces. // This is used primarily by the breakpoint code. Register *m_replaced; }; //--------------------------------------------------------- // define a special 'invalid' register class. Accessess to // to this class' value get 0 class InvalidRegister : public Register { public: InvalidRegister(Processor *, const char *pName, const char *pDesc=0); void put(unsigned int new_value); unsigned int get(); virtual REGISTER_TYPES isa() {return INVALID_REGISTER;}; virtual Register *getReg() {return 0; } }; //--------------------------------------------------------- // Base class for a special function register. class BitSink; class sfr_register : public Register { public: sfr_register(Module *, const char *pName, const char *pDesc=0); RegisterValue wdtr_value; // wdt or mclr reset value virtual REGISTER_TYPES isa() {return SFR_REGISTER;}; virtual void initialize() {}; virtual void reset(RESET_TYPE r); // The assign and release BitSink methods don't do anything // unless derived classes redefine them. Their intent is to // provide an interface to the BitSink design - a design that // allows clients to be notified when bits change states. virtual bool assignBitSink(unsigned int bitPosition, BitSink *) {return false;} virtual bool releaseBitSink(unsigned int bitPosition, BitSink *) {return false;} }; //--------------------------------------------------------- // Program Counter // class PCTraceType; class Program_Counter : public Value { public: unsigned int value; /* pc's current value */ unsigned int memory_size; unsigned int pclath_mask; /* pclath confines PC to banks */ unsigned int instruction_phase; unsigned int trace_state; /* used while reconstructing the trace history */ // Trace commands unsigned int trace_increment; unsigned int trace_branch; unsigned int trace_skip; unsigned int trace_other; Program_Counter(const char *name, const char *desc, Module *pM); ~Program_Counter(); virtual void increment(); virtual void start_skip(); virtual void skip(); virtual void jump(unsigned int new_value); virtual void interrupt(unsigned int new_value); virtual void computed_goto(unsigned int new_value); virtual void new_address(unsigned int new_value); virtual void put_value(unsigned int new_value); virtual unsigned int get_value() { return value; } virtual unsigned int get_PC() { return value; } virtual void set_PC(unsigned int new_value) { value = new_value; this->update(); } /// set --- cast another Value object type into a program counter register type /// this is used primarily by expression and stimuli processing /// (the put() methods are used by the processors). /// FIXME -- consolidate the get, set, and put methods virtual void set(Value *); // initialize the dynamically allocated trace type virtual void set_trace_command(); /// get_raw_value -- on the 16-bit cores, get_value is multiplied by 2 /// whereas get_raw_value isn't. The raw value of the program counter /// is used as an index into the program memory. virtual unsigned int get_raw_value() { return value; } virtual void set_phase(int phase) { instruction_phase = phase; } virtual int get_phase() { return instruction_phase; } void set_reset_address(unsigned int _reset_address) { reset_address = _reset_address; } unsigned int get_reset_address() { return reset_address; } void reset(); virtual unsigned int get_next(); virtual void put_trace_state(unsigned int ts) { trace_state = ts; } protected: unsigned int reset_address; /* Value pc gets at reset */ PCTraceType *m_pPCTraceType; }; // Used in the command prompt interface class RegisterCollection : public IIndexedCollection { public: RegisterCollection(Processor *pProcessor, const char *collection_name, Register **ppRegisters, unsigned int uiSize); ~RegisterCollection(); virtual unsigned int GetSize(); virtual Value &GetAt(unsigned int uIndex, Value *pValue=0); virtual void SetAt(unsigned int uIndex, Value *pValue); virtual void ConsolidateValues(int &iColumnWidth, vector &aList, vector &aValue); // virtual void SetAt(ExprList_t* pIndexers, Expression *pExpr); virtual unsigned int GetLowerBound(); virtual unsigned int GetUpperBound(); private: Processor * m_pProcessor; Register ** m_ppRegisters; unsigned int m_uSize; Integer m_ReturnValue; }; //------------------------------------------------------------------------ // BitSink // // A BitSink is an object that can direct bit changes in an SFR to some // place where they're needed. The purpose is to abstract the interface // between special bits and the various peripherals. // // A client wishing to be notified whenever an SFR bit changes states // will create a BitSink object and pass its pointer to the SFR. The // client will also tell the SFR which bit this applies to. Now, when // the bit changes states in the SFR, the SFR will call the setSink() // method. class BitSink { public: virtual ~BitSink() { } virtual void setSink(bool) = 0; }; #endif // __REGISTERS__ gpsim-0.27.0/src/picdis.h0000644000076400007640000000044311401131150012047 00000000000000/* picdis.h - constants and includes */ /* version 0.1 */ /* (c) I.King 1994 */ #include #include /* #define PIC12 0 #define PIC14 1 #define LOWERCASE 0 #define UPPERCASE 1 */ #define MAXPICSIZE 0x10000 #define CONFIGURATION_WORD 0x2007 /* ... The End ... */ gpsim-0.27.0/src/p16f8x.cc0000664000076400007640000006735412175377101012027 00000000000000/* Copyright (C) 1998 T. Scott Dattalo Copyright (C) 2006 Roy R. Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ // // p16f8x // // This file supports: // PIC16F87 // PIC16F88 // PIC16F818 // PIC16F819 // #include #include #include //#include "../config.h" #include "stimuli.h" #include "p16f8x.h" #include "pic-ioports.h" #include "packages.h" #include "symbol.h" //======================================================================== // // Configuration Memory for the 16F8X devices. class Config1 : public ConfigWord { public: Config1(pic_processor *pCpu) : ConfigWord("CONFIG1", 0x3fff, "Configuration Word", pCpu, 0x2007) { } enum { FOSC0 = 1<<0, FOSC1 = 1<<1, WDTEN = 1<<2, PWRTEN = 1<<3, FOSC2 = 1<<4, MCLRE = 1<<5, BOREN = 1<<6, LVP = 1<<7, CPD = 1<<8, WRT0 = 1<<9, WRT1 = 1<<10, DEBUG = 1<<11, CCPMX = 1<<12, CP = 1<<13 }; virtual void set(gint64 v) { Integer::set(v); if (m_pCpu) m_pCpu->wdt.initialize((v & WDTEN) == WDTEN); } }; //======================================================================== P16F8x::P16F8x(const char *_name, const char *desc) : P16X6X_processor(_name,desc), wdtcon(this, "wdtcon", "WDT Control", 0x1f), osccon(this, "osccon", "OSC Control"), osctune(this, "osctune", "OSC Tune"), usart(this), comparator(this) { pir1_2_reg = new PIR1v2(this,"pir1","Peripheral Interrupt Register",&intcon_reg,&pie1); pir2_2_reg = new PIR2v2(this,"pir2","Peripheral Interrupt Register",&intcon_reg,&pie2); delete pir1; delete pir2; pir1 = pir1_2_reg; pir2 = pir2_2_reg; } P16F8x::~P16F8x() { delete_file_registers(0xc0, 0xef); delete_file_registers(0x110,0x16f); delete_file_registers(0x190,0x1ef); remove_sfr_register(&comparator.cmcon); remove_sfr_register(&comparator.vrcon); remove_sfr_register(&wdtcon); remove_sfr_register(get_eeprom()->get_reg_eedata()); remove_sfr_register(get_eeprom()->get_reg_eeadr()); remove_sfr_register(get_eeprom()->get_reg_eedatah()); remove_sfr_register(get_eeprom()->get_reg_eeadrh()); remove_sfr_register(get_eeprom()->get_reg_eecon1()); remove_sfr_register(get_eeprom()->get_reg_eecon2()); remove_sfr_register(&usart.rcsta); remove_sfr_register(&usart.txsta); remove_sfr_register(&usart.spbrg); delete_sfr_register(usart.txreg); delete_sfr_register(usart.rcreg); delete get_eeprom(); remove_sfr_register(&osccon); remove_sfr_register(&osctune); remove_sfr_register(&pie2); } void P16F8x::create_iopin_map() { package = new Package(18); if(!package) return; // Now Create the package and place the I/O pins package->assign_pin(17, m_porta->addPin(new IO_bi_directional("porta0"),0)); package->assign_pin(18, m_porta->addPin(new IO_bi_directional("porta1"),1)); package->assign_pin( 1, m_porta->addPin(new IO_bi_directional("porta2"),2)); package->assign_pin( 2, m_porta->addPin(new IO_bi_directional("porta3"),3)); package->assign_pin( 3, m_porta->addPin(new IO_open_collector("porta4"),4)); package->assign_pin( 4, m_porta->addPin(new IO_bi_directional("porta5"),5)); package->assign_pin(15, m_porta->addPin(new IO_bi_directional("porta6"),6)); package->assign_pin(16, m_porta->addPin(new IO_bi_directional("porta7"),7)); package->assign_pin(5, 0); // Vss package->assign_pin( 6, m_portb->addPin(new IO_bi_directional_pu("portb0"),0)); package->assign_pin( 7, m_portb->addPin(new IO_bi_directional_pu("portb1"),1)); package->assign_pin( 8, m_portb->addPin(new IO_bi_directional_pu("portb2"),2)); package->assign_pin( 9, m_portb->addPin(new IO_bi_directional_pu("portb3"),3)); package->assign_pin(10, m_portb->addPin(new IO_bi_directional_pu("portb4"),4)); package->assign_pin(11, m_portb->addPin(new IO_bi_directional_pu("portb5"),5)); package->assign_pin(12, m_portb->addPin(new IO_bi_directional_pu("portb6"),6)); package->assign_pin(13, m_portb->addPin(new IO_bi_directional_pu("portb7"),7)); package->assign_pin(14, 0); // Vdd if (hasSSP()) { ssp.initialize( get_pir_set(), // PIR &(*m_portb)[4], // SCK &(*m_portb)[5], // SS &(*m_portb)[2], // SDO &(*m_portb)[1], // SDI m_trisb, // i2c tris port SSP_TYPE_SSP ); } } void P16F8x::create_sfr_map() { pir_set_2_def.set_pir1(pir1); pir_set_2_def.set_pir2(pir2); add_file_registers(0xc0, 0xef, 0); add_file_registers(0x110,0x16f,0); add_file_registers(0x190,0x1ef,0); alias_file_registers(0x70,0x7f,0x80); alias_file_registers(0x70,0x7f,0x100); alias_file_registers(0x70,0x7f,0x180); add_sfr_register(get_pir2(), 0x0d, RegisterValue(0,0),"pir2"); add_sfr_register(&pie2, 0x8d, RegisterValue(0,0)); pir_set_def.set_pir2(pir2); pie2.setPir(get_pir2()); alias_file_registers(0x00,0x04,0x100); alias_file_registers(0x80,0x84,0x100); alias_file_registers(0x06,0x06,0x100); alias_file_registers(0x86,0x86,0x100); add_sfr_register(get_eeprom()->get_reg_eedata(), 0x10c); add_sfr_register(get_eeprom()->get_reg_eeadr(), 0x10d); add_sfr_register(get_eeprom()->get_reg_eedatah(), 0x10e); add_sfr_register(get_eeprom()->get_reg_eeadrh(), 0x10f); add_sfr_register(get_eeprom()->get_reg_eecon1(), 0x18c, RegisterValue(0,0)); add_sfr_register(get_eeprom()->get_reg_eecon2(), 0x18d); //alias_file_registers(0x0a,0x0b,0x080); // Already done alias_file_registers(0x0a,0x0b,0x100); alias_file_registers(0x0a,0x0b,0x180); intcon = &intcon_reg; intcon_reg.set_pir_set(get_pir_set()); add_sfr_register(&osccon, 0x8f, RegisterValue(0,0),"osccon"); add_sfr_register(&osctune, 0x90, RegisterValue(0,0),"osctune"); osccon.set_osctune(&osctune); osctune.set_osccon(&osccon); usart.initialize(pir1,&(*m_portb)[5], &(*m_portb)[2], new _TXREG(this,"txreg", "USART Transmit Register", &usart), new _RCREG(this,"rcreg", "USART Receiver Register", &usart)); add_sfr_register(&usart.rcsta, 0x18, RegisterValue(0,0),"rcsta"); add_sfr_register(&usart.txsta, 0x98, RegisterValue(2,0),"txsta"); add_sfr_register(&usart.spbrg, 0x99, RegisterValue(0,0),"spbrg"); add_sfr_register(usart.txreg, 0x19, RegisterValue(0,0),"txreg"); add_sfr_register(usart.rcreg, 0x1a, RegisterValue(0,0),"rcreg"); // Link the comparator and voltage ref to porta comparator.initialize(get_pir_set(), &(*m_porta)[2], &(*m_porta)[0], &(*m_porta)[1], &(*m_porta)[2], &(*m_porta)[3], &(*m_porta)[3], &(*m_porta)[4]); comparator.cmcon.set_configuration(1, 0, AN0, AN3, AN0, AN3, ZERO); comparator.cmcon.set_configuration(2, 0, AN1, AN2, AN1, AN2, ZERO); comparator.cmcon.set_configuration(1, 1, AN0, AN2, AN3, AN2, NO_OUT); comparator.cmcon.set_configuration(2, 1, AN1, AN2, AN1, AN2, NO_OUT); comparator.cmcon.set_configuration(1, 2, AN0, VREF, AN3, VREF, NO_OUT); comparator.cmcon.set_configuration(2, 2, AN1, VREF, AN2, VREF, NO_OUT); comparator.cmcon.set_configuration(1, 3, AN0, AN2, AN0, AN2, NO_OUT); comparator.cmcon.set_configuration(2, 3, AN1, AN2, AN1, AN3, NO_OUT); comparator.cmcon.set_configuration(1, 4, AN0, AN3, AN0, AN3, NO_OUT); comparator.cmcon.set_configuration(2, 4, AN1, AN2, AN1, AN2, NO_OUT); comparator.cmcon.set_configuration(1, 5, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 5, AN1, AN2, AN1, AN2, NO_OUT); comparator.cmcon.set_configuration(1, 6, AN0, AN2, AN0, AN2, OUT0); comparator.cmcon.set_configuration(2, 6, AN1, AN2, AN1, AN2, OUT1); comparator.cmcon.set_configuration(1, 7, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 7, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); add_sfr_register(&comparator.cmcon, 0x9c, RegisterValue(7,0),"cmcon"); add_sfr_register(&comparator.vrcon, 0x9d, RegisterValue(0,0),"cvrcon"); add_sfr_register(&wdtcon, 0x105, RegisterValue(0x08,0),"wdtcon"); } void P16F8x::create_symbols() { if(verbose) cout << "8x create symbols\n"; Pic14Bit::create_symbols(); } void P16F8x::set_out_of_range_pm(unsigned int address, unsigned int value) { if( (address>= 0x2100) && (address < 0x2100 + get_eeprom()->get_rom_size())) { get_eeprom()->change_rom(address - 0x2100, value); } } //======================================================================== bool P16F8x::set_config_word(unsigned int address, unsigned int cfg_word) { enum { CFG_FOSC0 = 1<<0, CFG_FOSC1 = 1<<1, CFG_FOSC2 = 1<<4, CFG_MCLRE = 1<<5, CFG_CCPMX = 1<<12 }; // Let the base class do most of the work: if (address == 0x2007) { pic_processor::set_config_word(address, cfg_word); if (verbose) cout << "p16f88 0x" << hex << address << " setting config word 0x" << cfg_word << '\n'; unsigned int valid_pins = m_porta->getEnableMask(); set_int_osc(false); // Careful these bits not adjacent switch(cfg_word & (CFG_FOSC0 | CFG_FOSC1 | CFG_FOSC2)) { case 0: // LP oscillator: low power crystal is on RA6 and RA7 case 1: // XT oscillator: crystal/resonator is on RA6 and RA7 case 2: // HS oscillator: crystal/resonator is on RA6 and RA7 (m_porta->getPin(6))->newGUIname("OSC2"); (m_porta->getPin(7))->newGUIname("OSC1"); break; case 0x13: // ER oscillator: RA6 is CLKOUT, resistor (?) on RA7 (m_porta->getPin(6))->newGUIname("CLKOUT"); (m_porta->getPin(7))->newGUIname("OSC1"); break; case 3: // EC: RA6 is an I/O, RA7 is a CLKIN case 0x12: // ER oscillator: RA6 is an I/O, RA7 is a CLKIN (m_porta->getPin(6))->newGUIname("porta6"); (m_porta->getPin(7))->newGUIname("CLKIN"); valid_pins = (valid_pins & 0x7f)|0x40; break; case 0x10: // INTRC: Internal Oscillator, RA6 and RA7 are I/O's set_int_osc(true); (m_porta->getPin(6))->newGUIname("porta6"); (m_porta->getPin(7))->newGUIname("porta7"); valid_pins |= 0xc0; break; case 0x11: // INTRC: Internal Oscillator, RA7 is an I/O, RA6 is CLKOUT set_int_osc(true); (m_porta->getPin(6))->newGUIname("CLKOUT"); (m_porta->getPin(7))->newGUIname("porta7"); valid_pins = (valid_pins & 0xbf)|0x80; break; } // If the /MCLRE bit is set then RA5 is the MCLR pin, otherwise it's // a general purpose I/O pin. if ((cfg_word & CFG_MCLRE)) { assignMCLRPin(4); } else { unassignMCLRPin(); } if (cfg_word & CFG_CCPMX) ccp1con.setIOpin(&((*m_portb)[0])); else ccp1con.setIOpin(&((*m_portb)[3])); if (valid_pins != m_porta->getEnableMask()) // enable new pins for IO { m_porta->setEnableMask(valid_pins); m_porta->setTris(m_trisa); } return true; } else if (address == 0x2008 ) { cout << "p16f88 0x" << hex << address << " config word 0x" << cfg_word << '\n'; } return false; } //======================================================================== void P16F8x::create_config_memory() { m_configMemory = new ConfigMemory(this,2); m_configMemory->addConfigWord(0,new Config1(this)); m_configMemory->addConfigWord(1,new ConfigWord("CONFIG2", 0,"Configuration Word",this,0x2008)); wdt.initialize(true); // default WDT enabled wdt.set_timeout(0.000035); set_config_word(0x2007, 0x3fff); } //======================================================================== void P16F8x::create(int eesize) { set_hasSSP(); create_iopin_map(); _14bit_processor::create(); EEPROM_WIDE *e; e = new EEPROM_WIDE(this,pir2); e->initialize(eesize); e->set_intcon(&intcon_reg); set_eeprom_wide(e); P16X6X_processor::create_sfr_map(); status->rp_mask = 0x60; // rp0 and rp1 are valid. indf->base_address_mask1 = 0x80; // used for indirect accesses above 0x100 indf->base_address_mask2 = 0x1ff; // used for indirect accesses above 0x100 P16F8x::create_sfr_map(); } //======================================================================== P16F81x::P16F81x(const char *_name, const char *desc) : P16X6X_processor(_name,desc), adcon0(this,"adcon0", "A2D Control 0"), adcon1(this,"adcon1", "A2D Control 1"), adresh(this,"adresh", "A2D Result High"), adresl(this,"adresl", "A2D Result Low"), osccon(this, "osccon", "OSC Control"), osctune(this, "osctune", "OSC Tune") { pir1_2_reg = new PIR1v2(this,"pir1","Peripheral Interrupt Register",&intcon_reg,&pie1); pir2_2_reg = new PIR2v2(this,"pir2","Peripheral Interrupt Register",&intcon_reg,&pie2); delete pir1; delete pir2; pir1 = pir1_2_reg; pir2 = pir2_2_reg; } P16F81x::~P16F81x() { remove_sfr_register(&osccon); remove_sfr_register(&osctune); remove_sfr_register(&adresl); remove_sfr_register(&adresh); remove_sfr_register(&adcon0); remove_sfr_register(&adcon1); remove_sfr_register(get_eeprom()->get_reg_eedata()); remove_sfr_register(get_eeprom()->get_reg_eeadr()); remove_sfr_register(get_eeprom()->get_reg_eedatah()); remove_sfr_register(get_eeprom()->get_reg_eeadrh()); remove_sfr_register(get_eeprom()->get_reg_eecon1()); remove_sfr_register(get_eeprom()->get_reg_eecon2()); remove_sfr_register(&pie2); delete get_eeprom(); } void P16F81x::create_iopin_map() { package = new Package(18); if(!package) return; // Now Create the package and place the I/O pins package->assign_pin(17, m_porta->addPin(new IO_bi_directional("porta0"),0)); package->assign_pin(18, m_porta->addPin(new IO_bi_directional("porta1"),1)); package->assign_pin( 1, m_porta->addPin(new IO_bi_directional("porta2"),2)); package->assign_pin( 2, m_porta->addPin(new IO_bi_directional("porta3"),3)); package->assign_pin( 3, m_porta->addPin(new IO_open_collector("porta4"),4)); package->assign_pin( 4, m_porta->addPin(new IO_bi_directional("porta5"),5)); package->assign_pin(15, m_porta->addPin(new IO_bi_directional("porta6"),6)); package->assign_pin(16, m_porta->addPin(new IO_bi_directional("porta7"),7)); package->assign_pin(5, 0); // Vss package->assign_pin( 6, m_portb->addPin(new IO_bi_directional_pu("portb0"),0)); package->assign_pin( 7, m_portb->addPin(new IO_bi_directional_pu("portb1"),1)); package->assign_pin( 8, m_portb->addPin(new IO_bi_directional_pu("portb2"),2)); package->assign_pin( 9, m_portb->addPin(new IO_bi_directional_pu("portb3"),3)); package->assign_pin(10, m_portb->addPin(new IO_bi_directional_pu("portb4"),4)); package->assign_pin(11, m_portb->addPin(new IO_bi_directional_pu("portb5"),5)); package->assign_pin(12, m_portb->addPin(new IO_bi_directional_pu("portb6"),6)); package->assign_pin(13, m_portb->addPin(new IO_bi_directional_pu("portb7"),7)); package->assign_pin(14, 0); // Vdd if (hasSSP()) { ssp.initialize( get_pir_set(), // PIR &(*m_portb)[4], // SCK &(*m_portb)[5], // SS &(*m_portb)[2], // SDO &(*m_portb)[1], // SDI m_trisb, // i2c tris port SSP_TYPE_SSP ); } } void P16F81x::create_sfr_map() { pir_set_2_def.set_pir1(pir1); pir_set_2_def.set_pir2(pir2); //add_file_registers(0xa0, 0xef, 0); //add_file_registers(0xc0, 0xef, 0); //add_file_registers(0x110,0x16f,0); //add_file_registers(0x190,0x1ef,0); add_sfr_register(get_pir2(), 0x0d, RegisterValue(0,0),"pir2"); add_sfr_register(&pie2, 0x8d, RegisterValue(0,0)); pir_set_def.set_pir2(pir2); pie2.setPir(get_pir2()); alias_file_registers(0x00,0x04,0x100); alias_file_registers(0x80,0x84,0x100); alias_file_registers(0x06,0x06,0x100); alias_file_registers(0x86,0x86,0x100); add_sfr_register(get_eeprom()->get_reg_eedata(), 0x10c); add_sfr_register(get_eeprom()->get_reg_eeadr(), 0x10d); add_sfr_register(get_eeprom()->get_reg_eedatah(), 0x10e); add_sfr_register(get_eeprom()->get_reg_eeadrh(), 0x10f); add_sfr_register(get_eeprom()->get_reg_eecon1(), 0x18c, RegisterValue(0,0)); add_sfr_register(get_eeprom()->get_reg_eecon2(), 0x18d); //alias_file_registers(0x0a,0x0b,0x080); //Already done alias_file_registers(0x0a,0x0b,0x100); alias_file_registers(0x0a,0x0b,0x180); intcon = &intcon_reg; intcon_reg.set_pir_set(get_pir_set()); add_sfr_register(&osccon, 0x8f, RegisterValue(0,0),"osccon"); add_sfr_register(&osctune, 0x90, RegisterValue(0,0),"osctune"); osccon.set_osctune(&osctune); osctune.set_osccon(&osccon); add_sfr_register(&adresl, 0x9e, RegisterValue(0,0)); add_sfr_register(&adresh, 0x1e, RegisterValue(0,0)); add_sfr_register(&adcon0, 0x1f, RegisterValue(0,0)); add_sfr_register(&adcon1, 0x9f, RegisterValue(0,0)); adcon0.setAdresLow(&adresl); adcon0.setAdres(&adresh); adcon0.setAdcon1(&adcon1); adcon0.setIntcon(&intcon_reg); adcon0.setA2DBits(10); adcon0.setPir(pir1); adcon0.setChannel_Mask(7); adcon1.setNumberOfChannels(5); adcon1.setIOPin(0, &(*m_porta)[0]); adcon1.setIOPin(1, &(*m_porta)[1]); adcon1.setIOPin(2, &(*m_porta)[2]); adcon1.setIOPin(3, &(*m_porta)[3]); adcon1.setIOPin(4, &(*m_porta)[4]); adcon1.setChannelConfiguration(0, 0x1f); adcon1.setChannelConfiguration(1, 0x1f); adcon1.setChannelConfiguration(2, 0x1f); adcon1.setChannelConfiguration(3, 0x1f); adcon1.setChannelConfiguration(4, 0x0b); adcon1.setChannelConfiguration(5, 0x0b); adcon1.setChannelConfiguration(6, 0x00); adcon1.setChannelConfiguration(7, 0x00); adcon1.setChannelConfiguration(8, 0x1f); adcon1.setChannelConfiguration(9, 0x1f); adcon1.setChannelConfiguration(10, 0x1f); adcon1.setChannelConfiguration(11, 0x1f); adcon1.setChannelConfiguration(12, 0x1f); adcon1.setChannelConfiguration(13, 0x0f); adcon1.setChannelConfiguration(14, 0x01); adcon1.setChannelConfiguration(15, 0x0d); // set a2d modes where an3 is Vref+ adcon1.setVrefHiConfiguration(1, 3); adcon1.setVrefHiConfiguration(3, 3); adcon1.setVrefHiConfiguration(5, 3); adcon1.setVrefHiConfiguration(8, 3); adcon1.setVrefHiConfiguration(10, 3); adcon1.setVrefHiConfiguration(11, 3); adcon1.setVrefHiConfiguration(12, 3); adcon1.setVrefHiConfiguration(13, 3); adcon1.setVrefHiConfiguration(15, 3); // set a2d modes where an2 is Vref- adcon1.setVrefLoConfiguration(8, 2); adcon1.setVrefLoConfiguration(11, 2); adcon1.setVrefLoConfiguration(12, 2); adcon1.setVrefLoConfiguration(13, 2); adcon1.setVrefLoConfiguration(15, 2); adcon1.setValidCfgBits(ADCON1::PCFG0 | ADCON1::PCFG1 | ADCON1::PCFG2 | ADCON1::PCFG3 , 0); } void P16F81x::create_symbols() { if(verbose) cout << "81x create symbols\n"; Pic14Bit::create_symbols(); } void P16F81x::set_out_of_range_pm(unsigned int address, unsigned int value) { if( (address>= 0x2100) && (address < 0x2100 + get_eeprom()->get_rom_size())) { get_eeprom()->change_rom(address - 0x2100, value); } } //======================================================================== bool P16F81x::set_config_word(unsigned int address, unsigned int cfg_word) { enum { CFG_FOSC0 = 1<<0, CFG_FOSC1 = 1<<1, CFG_FOSC2 = 1<<4, CFG_MCLRE = 1<<5, CFG_CCPMX = 1<<12 }; // Let the base class do most of the work: if (pic_processor::set_config_word(address, cfg_word)) { // if (verbose) cout << "p16f81x 0x" << hex << address << " setting config word 0x" << cfg_word << '\n'; unsigned int valid_pins = m_porta->getEnableMask(); set_int_osc(false); // Careful these bits not adjacent switch(cfg_word & (CFG_FOSC0 | CFG_FOSC1 | CFG_FOSC2)) { case 0: // LP oscillator: low power crystal is on RA6 and RA7 case 1: // XT oscillator: crystal/resonator is on RA6 and RA7 case 2: // HS oscillator: crystal/resonator is on RA6 and RA7 (m_porta->getPin(6))->newGUIname("OSC2"); (m_porta->getPin(7))->newGUIname("OSC1"); break; case 0x13: // ER oscillator: RA6 is CLKOUT, resistor (?) on RA7 (m_porta->getPin(6))->newGUIname("CLKOUT"); (m_porta->getPin(7))->newGUIname("OSC1"); break; case 3: // EC: RA6 is an I/O, RA7 is a CLKIN case 0x12: // ER oscillator: RA6 is an I/O, RA7 is a CLKIN (m_porta->getPin(6))->newGUIname("porta6"); (m_porta->getPin(7))->newGUIname("CLKIN"); valid_pins = (valid_pins & 0x7f)|0x40; break; case 0x10: // INTRC: Internal Oscillator, RA6 and RA7 are I/O's set_int_osc(true); (m_porta->getPin(6))->newGUIname("porta6"); (m_porta->getPin(7))->newGUIname("porta7"); valid_pins |= 0xc0; break; case 0x11: // INTRC: Internal Oscillator, RA7 is an I/O, RA6 is CLKOUT set_int_osc(true); (m_porta->getPin(6))->newGUIname("CLKOUT"); (m_porta->getPin(7))->newGUIname("porta7"); valid_pins = (valid_pins & 0xbf)|0x80; break; } // If the /MCLRE bit is set then RA5 is the MCLR pin, otherwise it's // a general purpose I/O pin. if ((cfg_word & CFG_MCLRE)) { assignMCLRPin(4); } else { unassignMCLRPin(); } if (cfg_word & CFG_CCPMX) { ccp1con.setIOpin(&((*m_portb)[2])); } else { ccp1con.setIOpin(&((*m_portb)[3])); } if (valid_pins != m_porta->getEnableMask()) // enable new pins for IO { m_porta->setEnableMask(valid_pins); m_porta->setTris(m_trisa); } return true; } return false; } //======================================================================== void P16F81x::create_config_memory() { m_configMemory = new ConfigMemory(this,2); m_configMemory->addConfigWord(0,new Config1(this)); m_configMemory->addConfigWord(1,new ConfigWord("CONFIG2", 0,"Configuration Word",this,0x2008)); wdt.initialize(true); // default WDT enabled wdt.set_timeout(0.000035); set_config_word(0x2007, 0x3fff); } //======================================================================== void P16F81x::create(int eesize) { set_hasSSP(); create_iopin_map(); _14bit_processor::create(); EEPROM_WIDE *e; e = new EEPROM_WIDE(this,pir2); e->initialize(eesize); e->set_intcon(&intcon_reg); set_eeprom_wide(e); P16X6X_processor::create_sfr_map(); status->rp_mask = 0x60; // rp0 and rp1 are valid. indf->base_address_mask1 = 0x80; // used for indirect accesses above 0x100 indf->base_address_mask2 = 0x1ff; // used for indirect accesses above 0x100 P16F81x::create_sfr_map(); } //======================================================================== // // Pic 16F87 // Processor * P16F87::construct(const char *name) { P16F87 *p = new P16F87(name); p->P16F8x::create(256); p->P16F87::create_sfr_map(); p->create_invalid_registers (); p->create_symbols(); return p; } P16F87::P16F87(const char *_name, const char *desc) : P16F8x(_name,desc) { if(verbose) cout << "f87 constructor, type = " << isa() << '\n'; m_porta->setEnableMask(0xff); // trisa5 is an input only pin m_trisa->setEnableMask(0xdf); } void P16F87::create_sfr_map() { } //======================================================================== // // Pic 16F88 // Processor * P16F88::construct(const char *name) { P16F88 *p = new P16F88(name); p->P16F88::create(); p->create_invalid_registers (); p->create_symbols(); return p; } P16F88::P16F88(const char *_name, const char *desc) : P16F87(_name,desc), ansel(this,"ansel", "Analog Select"), adcon0(this,"adcon0", "A2D Control 0"), adcon1(this,"adcon1", "A2D Control 1"), adresh(this,"adresh", "A2D Result High"), adresl(this,"adresl", "A2D Result Low") { if(verbose) cout << "f88 constructor, type = " << isa() << '\n'; } P16F88::~P16F88() { remove_sfr_register(&adresl); remove_sfr_register(&adresh); remove_sfr_register(&adcon0); remove_sfr_register(&adcon1); remove_sfr_register(&ansel); } void P16F88::create() { P16F8x::create(256); P16F88::create_sfr_map(); } void P16F88::create_sfr_map() { add_sfr_register(&adresl, 0x9e, RegisterValue(0,0)); add_sfr_register(&adresh, 0x1e, RegisterValue(0,0)); add_sfr_register(&adcon0, 0x1f, RegisterValue(0,0)); add_sfr_register(&adcon1, 0x9f, RegisterValue(0,0)); add_sfr_register(&ansel, 0x9b, RegisterValue(0x7f,0)); ansel.setAdcon1(&adcon1); adcon0.setAdresLow(&adresl); adcon0.setAdres(&adresh); adcon0.setAdcon1(&adcon1); adcon0.setIntcon(&intcon_reg); adcon0.setA2DBits(10); adcon0.setPir(pir1); adcon0.setChannel_Mask(7); adcon1.setNumberOfChannels(7); adcon1.setIOPin(0, &(*m_porta)[0]); adcon1.setIOPin(1, &(*m_porta)[1]); adcon1.setIOPin(2, &(*m_porta)[2]); adcon1.setIOPin(3, &(*m_porta)[3]); adcon1.setIOPin(4, &(*m_porta)[4]); adcon1.setIOPin(5, &(*m_portb)[6]); adcon1.setIOPin(6, &(*m_portb)[7]); adcon1.setVrefHiConfiguration(2, 3); adcon1.setVrefHiConfiguration(3, 3); adcon1.setVrefLoConfiguration(1, 2); adcon1.setVrefLoConfiguration(3, 2); /* Channel Configuration done dynamiclly based on ansel */ adcon1.setValidCfgBits(ADCON1::VCFG0 | ADCON1::VCFG1 , 4); // Link the A/D converter to the Capture Compare Module ccp2con.setADCON(&adcon0); } //======================================================================== // // Pic 16F818 // Processor * P16F818::construct(const char *name) { P16F818 *p = new P16F818(name); p->P16F818::create(); p->create_invalid_registers (); p->create_symbols(); return p; } P16F818::P16F818(const char *_name, const char *desc) : P16F81x(_name,desc) { if(verbose) cout << "f818 constructor, type = " << isa() << '\n'; } void P16F818::create() { P16F81x::create(128); P16F818::create_sfr_map(); } void P16F818::create_sfr_map() { alias_file_registers(0x40,0x7f,0x80); alias_file_registers(0x20,0x7f,0x100); alias_file_registers(0x20,0x7f,0x180); } //======================================================================== // // Pic 16F819 // Processor * P16F819::construct(const char *name) { P16F819 *p = new P16F819(name); p->P16F819::create(); p->create_invalid_registers (); p->create_symbols(); return p; } P16F819::P16F819(const char *_name, const char *desc) : P16F81x(_name,desc) { if(verbose) cout << "f819 constructor, type = " << isa() << '\n'; } P16F819::~P16F819() { delete_file_registers(0xc0,0xef); delete_file_registers(0x120,0x16f); } void P16F819::create() { P16F81x::create(256); P16F819::create_sfr_map(); } void P16F819::create_sfr_map() { add_file_registers(0xc0,0xef, 0); add_file_registers(0x120,0x16f, 0); alias_file_registers(0x70,0x7f,0x80); alias_file_registers(0x70,0x7f,0x100); alias_file_registers(0x20,0x7f,0x180); } gpsim-0.27.0/src/packages.h0000644000076400007640000000630511401131150012355 00000000000000/* Copyright (C) 1998,1999 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ /* pic-packages.h Here's where all of the pic packages are defined */ #ifndef __PACKAGES_H__ #define __PACKAGES_H__ #include using namespace std; #include "gpsim_classes.h" class IOPIN; // forward reference enum PACKAGE_TYPE { _NO_PACKAGE_, DIP_8PIN, DIP_14PIN, DIP_18PIN, DIP_28PIN, DIP_40PIN }; enum PACKAGE_PIN_ERRORS { E_NO_PIN, E_NO_PACKAGE, E_PIN_OUT_OF_RANGE, E_PIN_EXISTS }; // The PinGeometry holds information the gui can query to build // a graphical representation of the pin. struct PinGeometry { PinGeometry() : pin_position(0.0), bNew(false), m_bShowPinname(false) {} void convertToNew(); // transition from old to new style float pin_position; // Newer style bool bNew; float m_x; float m_y; int m_orientation; bool m_bShowPinname; }; class Package { public: unsigned int number_of_pins; Package(void); Package(unsigned int number_of_pins); virtual ~Package(); void assign_pin(unsigned int pin_number, IOPIN *pin, bool warn=true); void destroy_pin(unsigned int pin_number, IOPIN *pin=0); void create_pkg(unsigned int _number_of_pins); unsigned int isa(void){return _NO_PACKAGE_;}; virtual void create_iopin_map(void); virtual int get_pin_count(void) {return number_of_pins;}; virtual string &get_pin_name(unsigned int pin_number); virtual int get_pin_state(unsigned int pin_number); virtual float get_pin_position(unsigned int pin_number); virtual void set_pin_position(unsigned int pin_number, float position); int pin_existance(unsigned int pin_number); IOPIN *get_pin(unsigned int pin_number); void setPinGeometry(unsigned int pin_number, float x, float y, int orientation, bool bShowName); PinGeometry *getPinGeometry(unsigned int pin_number); // Debug void showPins(); protected: inline bool bIsValidPinNumber(unsigned int pin_number) { return (pin_number > 0) && (pin_number<=number_of_pins); } IOPIN **pins; /* An array containing all of the package's pins. The index * into the array is the package's pin #. If pins[i] is NULL * then there's gpsim does not provide any resources for * simulating the pin. */ // pin_position is used by the breadboard to position the pin // Its value can be in the range from 0.0000 to 3.9999. // 0.0 is upmost left position. 0.9999 is lowest left. // 1.0 is leftmost bottom position. 1.99 is rightmost bottom.. A.S.O // float *pin_position; PinGeometry *m_pinGeometry; }; #endif // __PACKAGES_H__ gpsim-0.27.0/src/ioports.h0000664000076400007640000003277512175377101012333 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __IOPORTS_H__ #define __IOPORTS_H__ #include "registers.h" #include "stimuli.h" class stimulus; class Stimulus_Node; class PinModule; ///**********************************************************************/ /// /// I/O ports /// /// An I/O port is collection of I/O pins. For a PIC processor, these /// are the PORTA, PORTB, etc, registers. gpsim models I/O ports in /// a similar way it models other registers; there's a base class from /// which all specific I/O ports are derived. However, I/O ports are /// special in that they're an interface between a processor's core /// and the outside world. The requirements vary wildly from one processor /// to the next; in fact they even vary dynamically within one processor. /// gpsim attempts to abstract this interface with a set of base classes /// that are responsible for routing signal state information. These /// base classes make no attempt to decipher this information, instead /// this job is left to the peripherals and stimuli connected to the /// I/O pins and ports. /// /// /// PinModule /// /// Here's a general description of gpsim I/O pin design: /// /// Data /// Select ======+ /// +-|-+ Outgoing /// Source1 ===>| M | data /// Source2 ===>| U |=============+ /// SourceN ===>| X | | /// +---+ | +-------+ /// Control +===>| IOPIN | /// Select ======+ | | /// +-|-+ I/O Pin | | /// Control1 ===>| M | Direction | |<======> Physical /// Control2 ===>| U |=================>| | Interface /// ControlN ===>| X | | | /// +---+ | | /// Sink Decode +===<| | /// Select ======+ | +-------+ /// +-|-+ Incoming | /// Sink1 <====| D | data | /// Sink2 <====| E |<============| /// SinkN <====| C | /// +---+ /// /// The PinModule models a Processor's I/O Pin. The schematic illustrates /// the abstract description of the PinModule. Its job is to merge together /// all of the Processor's peripherals that can control a processor's pin. /// For example, a UART peripheral may be shared with a general purpose I/O /// pin. The UART may have a transmit and receive pin and select whether it's /// in control of the I/O pins. The uart transmit pin and the port's I/O pin /// can both act as a source for the physical interface. The PinModule /// arbitrates between the two. Similarly, the UART receive pin can be multiplexed /// with a register pin. In this case, the PinModule will route signal /// changes to both devices. Finally, a peripheral like the '622's comparators /// may overide the output control. The PinModule again arbitrates. /// /// /// PortModule /// /// The PortModule is the base class for processor I/O ports. It's essentially /// a register that contains an array of PinModule's. /// /// Register PortModule /// |-> sfr_register | /// | | /// \------+--------/ /// | /// +--> PortRegister /// |--> PicPortRegister ///------------------------------------------------------------ /// /// SignalControl - A pure virtual class that defines the interface for /// a signal control. The I/O Pin Modules will query the source's state /// via SignalControl. The control is usually used to control the I/O pin /// direction (i.e. whether it's an input or output...), drive value, /// pullup state, etc. /// When a Pin Module is through with the SignalControl, it will call /// the release() method. This is primarily used to delete the SignalControl /// objects. class SignalControl { public: virtual ~SignalControl(); //// fixme virtual char getState()=0; virtual void release()=0; }; ///------------------------------------------------------------ /// PeripheralSignalSource - A class to interface I/O pins with /// peripheral outputs. class PeripheralSignalSource : public SignalControl { public: PeripheralSignalSource(PinModule *_pin); virtual ~PeripheralSignalSource(); virtual void release(); /// getState - called by the PinModule to determine the source state virtual char getState(); /// putState - called by the peripheral to set a new state virtual void putState(const char new3State); /// toggle - called by the peripheral to toggle the current state. virtual void toggle(); private: PinModule *m_pin; char m_cState; }; ///------------------------------------------------------------ /// PortModule - Manages all of the I/O pins associated with a single /// port. The PortModule supplies the interface to the I/O pin's. It /// is designed to handle a group of I/O pins. However, the low level /// I/O pin processing is handled by PinModule objects contained within /// the PortModule. class PortModule { public: PortModule(unsigned int numIopins); virtual ~PortModule(); /// updatePort -- loop through update all I/O pins virtual void updatePort(); /// updatePin -- Update a single I/O pin virtual void updatePin(unsigned int iPinNumber); /// updatePins -- Update several I/O pins virtual void updatePins(unsigned int iPinBitMask); /// updateUI -- convey pin state info to a User Interface (e.g. the gui). virtual void updateUI(); /// addPinModule -- supply a pin module at a particular bit position. /// Most of the low level I/O pin related processing will be handled /// here. The PortModule per-pin helper methods below essentially /// call methods in the PinModule to do the dirty work. /// Each bit position can have only one PinModule. If multiple /// modules are added, only the first will be used and the others /// will be ignored. void addPinModule(PinModule *, unsigned int iPinNumber); /// addSource -- supply a pin with a source of data. There may SignalControl *addSource(SignalControl *, unsigned int iPinNumber); /// addControl -- supply a pin with a data direction control SignalControl *addControl(SignalControl *, unsigned int iPinNumber); /// addPullupControl -- supply a pin with a pullup control SignalControl *addPullupControl(SignalControl *, unsigned int iPinNumber); /// addSink -- supply a sink to receive info driven on to a pin SignalSink *addSink(SignalSink *, unsigned int iPinNumber); /// addPin -- supply an I/O pin. Note, this will create a default pin module /// if one is not already created. IOPIN *addPin(IOPIN *, unsigned int iPinNumber); /// getPin -- an I/O pin accessor. This returns the I/O pin at a particular /// bit position. IOPIN *getPin(unsigned int iPinNumber); /// operator[] -- PinModule accessor. This returns the pin module at /// a particular bit position. PinModule &operator [] (unsigned int pin_number); PinModule * getIOpins(unsigned int pin_number); // set/get OutputMask which controls bits returned on I/O // port register get() call. Used to return 0 for analog pins virtual void setOutputMask (unsigned int OutputMask) { mOutputMask = OutputMask;} virtual unsigned int getOutputMask () { return(mOutputMask);} protected: unsigned int mNumIopins; unsigned int mOutputMask; private: /// PinModule -- The array of PinModules that are handled by PortModule. PinModule **iopins; }; ///------------------------------------------------------------ /// PinModule - manages the interface to a physical I/O pin. Both /// simple and complex I/O pins are handled. An example of a simple /// I/O is one where there is a single data source, data sink and /// control, like say the GPIO pin on a small PIC. A complex pin /// is one that is multiplexed with peripherals. /// /// The parent class 'PinMonitor', allows the PinModule to be /// registered with the I/O pin. In other words, when the I/O pin /// changes state, the PinModule will be notified. #define ANALOG_TABLE_SIZE 3 class PinModule : public PinMonitor { public: PinModule(); PinModule(PortModule *, unsigned int _pinNumber, IOPIN *new_pin=0); virtual ~PinModule(); /// updatePinModule -- The low level I/O pin state is resolved here /// by examining the direction and state of the I/O pin. void updatePinModule(); /// refreshPinOnUpdate - modal behavior. If set to true, then /// a pin's state will always be refreshed whenever the PinModule /// is updated. If false, then the pin is updated only if there /// is a detected state change. void refreshPinOnUpdate(bool bForcedUpdate); void setPin(IOPIN *); void clrPin() { m_pin = NULL; } void setDefaultSource(SignalControl *); void setSource(SignalControl *); void setDefaultControl(SignalControl *); void setControl(SignalControl *); void setPullupControl(SignalControl *); void setDefaultPullupControl(SignalControl *); char getControlState(); char getSourceState(); char getPullupControlState(); unsigned int getPinNumber() { return m_pinNumber;} void AnalogReq(Register *reg, bool analog, const char *newName); // If active control not default, return it SignalControl *getActiveControl() {return (m_activeControl == m_defaultControl)?0:m_activeControl;} // If active source not default, return it SignalControl *getActiveSource() {return (m_activeSource == m_defaultSource)?0:m_activeSource;} IOPIN &getPin() { return *m_pin;} /// virtual void setDrivenState(char); virtual void setDrivingState(char); virtual void set_nodeVoltage(double); virtual void putState(char); virtual void setDirection(); virtual void updateUI(); private: char m_cLastControlState; char m_cLastSinkState; char m_cLastSourceState; char m_cLastPullupControlState; SignalControl *m_defaultSource, *m_activeSource; SignalControl *m_defaultControl, *m_activeControl; SignalControl *m_defaultPullupControl, *m_activePullupControl; IOPIN *m_pin; PortModule *m_port; unsigned int m_pinNumber; bool m_bForcedUpdate; Register *m_analog_reg[ANALOG_TABLE_SIZE]; bool m_analog_active[ANALOG_TABLE_SIZE]; }; ///------------------------------------------------------------ class PortRegister : public sfr_register, public PortModule { public: PortRegister(Module *pCpu, const char *pName, const char *pDesc, unsigned int numIopins, unsigned int enableMask); virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); virtual unsigned int get(); virtual unsigned int get_value(); virtual void putDrive(unsigned int new_drivingValue); virtual unsigned int getDriving(); virtual void setbit(unsigned int bit_number, char new_value); virtual void setEnableMask(unsigned int nEnableMask); unsigned int getEnableMask() { return mEnableMask; } virtual void updateUI(); protected: unsigned int mEnableMask; unsigned int drivingValue; RegisterValue rvDrivenValue; }; class PortSink : public SignalSink { public: PortSink(PortRegister *portReg, unsigned int iobit); virtual ~PortSink() { } virtual void setSinkState(char); virtual void release(); private: PortRegister *m_PortRegister; unsigned int m_iobit; }; /// IOPORT - Base class for I/O ports - deprecated #if defined(OLD_IOPORT_DESIGN) class IOPORT : public sfr_register { public: IOPORT(unsigned int _num_iopins=8); ~IOPORT(); IOPIN *addPin(IOPIN *, unsigned int iPinNumber); IOPIN *getIO(unsigned int pin_number); virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); // setbit() is called when a stimulus writes a value to one // of the I/O pins in this Port. virtual void setbit(unsigned int bit_number, bool new_value); virtual bool get_bit(unsigned int bit_number); virtual unsigned int get(void); virtual unsigned int get_value(void); virtual void trace_register_write(void); protected: /// The I/O pins associated with this I/O port. /// This could be anything (or nothing.) IOPIN **pins; unsigned int valid_iopins, // A mask that for those ports that don't have all 8 io bits. stimulus_mask, // A mask indicating which io bits have a stimulus. internal_latch, // num_iopins; // Number of I/O pins attached to this port // Deprecated functions of the IOPORT class /// Stimuli void attach_stimulus(stimulus *new_stim, unsigned int bit_position); virtual int update_stimuli(void); void attach_iopin(IOPIN * new_pin, unsigned int bit_position); void attach_node(Stimulus_Node *new_node, unsigned int bit_position); virtual double get_bit_voltage(unsigned int bit_number); virtual void change_pin_direction(unsigned int bit_number, bool new_direction); }; #endif // OLD_IOPORT_DESIGN #endif // __IOPORTS_H__ gpsim-0.27.0/src/a2dconverter.cc0000664000076400007640000007125412175377101013363 00000000000000/* Copyright (C) 2006 T. Scott Dattalo Copyright (C) 2009, 2013 Roy R. Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include "ioports.h" #include "trace.h" #include "gpsim_time.h" #include "ui.h" #include "pic-processor.h" #include "a2dconverter.h" #include "14bit-processors.h" #define p_cpu ((Processor *)cpu) static PinModule AnInvalidAnalogInput; //#define DEBUG #if defined(DEBUG) #include "../config.h" #define Dprintf(arg) {printf("%s:%d ",__FILE__,__LINE__); printf arg; } #else #define Dprintf(arg) {} #endif //------------------------------------------------------ // ADRES // /* void ADRES::put(int new_value) { trace.raw(write_trace.get() | value.get()); if(new_value > 255) value.put(255); else if (new_value < 0) value.put(0); else value.put(new_value); } */ //------------------------------------------------------ // ADCON0 // ADCON0::ADCON0(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), adres(0), adresl(0), adcon1(0), intcon(0), m_pPir(0), ad_state(AD_IDLE), channel_mask(7), channel_shift(3), GO_bit(GO) { } /* * Link PIC register for High Byte A/D result */ void ADCON0::setAdres(sfr_register *new_adres) { adres = new_adres; } /* * Link PIC register for Low Byte A/D result */ void ADCON0::setAdresLow(sfr_register *new_adresl) { adresl = new_adresl; } /* * Link PIC register for ADCON1 */ void ADCON0::setAdcon1(ADCON1 *new_adcon1) { adcon1 = new_adcon1; } /* * Link PIC register for INTCON */ void ADCON0::setIntcon(INTCON *new_intcon) { intcon = new_intcon; } /* * Link PIC register for PIR * If set ADIF in PIR otherwise ADIF in ADCON0 */ void ADCON0::setPir(PIR *pPir) { m_pPir = pPir; } /* * Set resolution of A2D converter */ void ADCON0::setA2DBits(unsigned int nBits) { m_A2DScale = (1<get_ClockCycles_per_Instruction(); Dprintf(("ad_state %d fc %lx now %lx\n", ad_state, fc, get_cycles().get())) if(ad_state != AD_IDLE) { // The A/D converter is either 'converting' or 'acquiring' // in either case, there is callback break that needs to be moved. stop_conversion(); get_cycles().reassign_break(future_cycle, fc, this); } else get_cycles().set_break(fc, this); future_cycle = fc; ad_state = AD_ACQUIRING; } void ADCON0::stop_conversion(void) { Dprintf(("stopping A/D conversion\n")); ad_state = AD_IDLE; } void ADCON0::set_Tad(unsigned int new_value) { // Get the A/D Conversion Clock Select bits // // This switch case will get the ADCS bits and set the Tad, or The A/D // converter clock period. Tad is the number of the oscillator periods // rather instruction cycle periods. ADCS2 only exists on some processors, // but should be 0 where it is not used. switch(new_value & (ADCS0 | ADCS1)) { case 0: Tad = (adcon1->value.get() & ADCON1::ADCS2) ? 4 : 2; break; case ADCS0: Tad = (adcon1->value.get() & ADCON1::ADCS2) ? 16 : 8; break; case ADCS1: Tad = (adcon1->value.get() & ADCON1::ADCS2) ? 64 : 32; break; case (ADCS0|ADCS1): // typical 4 usec, convert to osc cycles if (cpu) { Tad = (unsigned int)(4.e-6 * p_cpu->get_frequency()); Tad = Tad < 2? 2 : Tad; } else Tad = 6; break; } } void ADCON0::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); set_Tad(new_value); unsigned int old_value=value.get(); // SET: Reflect it first! value.put(new_value); if(new_value & ADON) { // The A/D converter is being turned on (or maybe left on) if((new_value & ~old_value) & GO_bit) { if (verbose) printf("starting A2D conversion\n"); Dprintf(("starting A2D conversion\n")); // The 'GO' bit is being turned on, which is request to initiate // and A/D conversion start_conversion(); } } else stop_conversion(); } void ADCON0::put_conversion(void) { double dRefSep = m_dSampledVrefHi - m_dSampledVrefLo; double dNormalizedVoltage; dNormalizedVoltage = (dRefSep>0.0) ? (m_dSampledVoltage - m_dSampledVrefLo)/dRefSep : 0.0; dNormalizedVoltage = dNormalizedVoltage>1.0 ? 1.0 : dNormalizedVoltage; unsigned int converted = (unsigned int)(m_A2DScale*dNormalizedVoltage + 0.5); Dprintf(("put_conversion: Vrefhi:%g Vreflo:%g conversion:%d normV:%g\n", m_dSampledVrefHi,m_dSampledVrefLo,converted,dNormalizedVoltage)); if (verbose) printf ("result=0x%02x\n", converted); Dprintf(("%d-bit result 0x%x ADFM %d\n", m_nBits, converted, get_ADFM())); if(adresl) { // non-null for more than 8 bit conversion if(get_ADFM()) { adresl->put(converted & 0xff); adres->put( (converted >> 8) & 0x3); } else { adresl->put((converted << 6) & 0xc0); adres->put( (converted >> 2) & 0xff); } } else { adres->put((converted ) & 0xff); } } // ADCON0 callback is called when the cycle counter hits the break point that // was set in ADCON0::put. void ADCON0::callback(void) { int channel; Dprintf((" ADCON0 Callback: 0x%"PRINTF_GINT64_MODIFIER"x\n",get_cycles().get())); // // The a/d converter is simulated with a state machine. // switch(ad_state) { case AD_IDLE: Dprintf(("ignoring ad callback since ad_state is idle\n")); break; case AD_ACQUIRING: channel = (value.get() >> channel_shift) & channel_mask; m_dSampledVoltage = getChannelVoltage(channel); m_dSampledVrefHi = getVrefHi(); m_dSampledVrefLo = getVrefLo(); Dprintf(("Acquiring channel:%d V=%g reflo=%g refhi=%g\n", channel,m_dSampledVoltage,m_dSampledVrefLo,m_dSampledVrefHi)); future_cycle = get_cycles().get() + (m_nBits * Tad)/p_cpu->get_ClockCycles_per_Instruction(); get_cycles().set_break(future_cycle, this); if (verbose) printf("A/D %d bits channel:%d Vin=%g Refhi=%g Reflo=%g ", m_nBits, channel,m_dSampledVoltage,m_dSampledVrefHi,m_dSampledVrefLo); ad_state = AD_CONVERTING; break; case AD_CONVERTING: put_conversion(); // Clear the GO/!DONE flag. value.put(value.get() & (~GO_bit)); set_interrupt(); ad_state = AD_IDLE; } } //------------------------------------------------------ // If the ADIF bit is in the PIR1 register, call setPir() // in the ADC setup. Otherwise, ADIF is assumed to be in // the ADCON0 register // // Chips like 10f220 do not have interupt and intcon is not defined. // Thus no interrupt needs be generated // void ADCON0::set_interrupt(void) { if (m_pPir) m_pPir->set_adif(); else if (intcon) { value.put(value.get() | ADIF); intcon->peripheral_interrupt(); } } ADCON1_16F::ADCON1_16F(Processor *pCpu, const char *pName, const char *pDesc) : ADCON1(pCpu, pName, pDesc), FVR_chan(99) { valid_bits = 0x70; } void ADCON1_16F::put_value(unsigned int new_value) { unsigned int masked_value = new_value & valid_bits; unsigned int Tad = 6; setADCnames(); switch(masked_value & (ADCS0 | ADCS1)) { case 0: Tad = (new_value & ADCS2) ? 4 : 2; break; case ADCS0: Tad = (new_value & ADCS2) ? 16 : 8; break; case ADCS1: Tad = (new_value & ADCS2) ? 64 : 32; break; case (ADCS0|ADCS1): // typical 4 usec, convert to osc cycles if (cpu) { Tad = (unsigned int)(4.e-6 * p_cpu->get_frequency()); Tad = Tad < 2? 2 : Tad; } else Tad = 6; break; } adcon0->set_Tad(Tad); if (ADFM & valid_bits) adfm = ADFM & masked_value; //RRR FIXME handle ADPREF value.put(new_value & valid_bits); } double ADCON1_16F::getVrefHi() { if (ADPREF0 & valid_bits) { unsigned int mode = value.get() & (ADPREF1 | ADPREF0); switch(mode) { case 0: return ((Processor *)cpu)->get_Vdd(); case 1: cerr << "WARNING reserved value for ADPREF\n"; return -1.; case 2: if (Vrefhi_position[cfg_index] < m_nAnalogChannels) return getChannelVoltage(Vrefhi_position[cfg_index]); cerr << "WARNING Vrefhi pin not configured\n"; return -1.; case 3: if (FVR_chan < m_nAnalogChannels) return getChannelVoltage(FVR_chan); cerr << "WARNING FVR_chan not set\n"; return -1.; }; } if (Vrefhi_position[cfg_index] < m_nAnalogChannels) return getChannelVoltage(Vrefhi_position[cfg_index]); return ((Processor *)cpu)->get_Vdd(); } //------------------------------------------------------ // ADCON1 // ADCON1::ADCON1(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), valid_bits(0xff), adfm(false), m_AnalogPins(0), m_voltageRef(0), m_nAnalogChannels(0), mValidCfgBits(0), mCfgBitShift(0), mIoMask(0), cfg_index(0), m_ad_in_ctl(0) { for (int i=0; i<(int)cMaxConfigurations; i++) { setChannelConfiguration(i, 0); setVrefLoConfiguration(i, 0xffff); setVrefHiConfiguration(i, 0xffff); } } ADCON1::~ADCON1() { if (m_voltageRef) delete [] m_voltageRef; if (m_AnalogPins) { if (m_ad_in_ctl) { for (unsigned int i = 0; i < m_nAnalogChannels; i++) m_AnalogPins[i]->setControl(0); delete m_ad_in_ctl; } delete [] m_AnalogPins; } } void ADCON1::put(unsigned int new_value) { unsigned int masked_value = new_value & valid_bits; trace.raw(write_trace.get() | value.get()); put_value(masked_value); } void ADCON1::put_value(unsigned int new_value) { unsigned int masked_value = new_value & valid_bits; cfg_index = get_cfg(masked_value); setADCnames(); adfm = masked_value & ADFM; value.put(masked_value); } // Obtain new mIoMask and set pin names as per function void ADCON1::setADCnames() { unsigned int new_mask = m_configuration_bits[cfg_index]; unsigned int diff = mIoMask ^ new_mask; Dprintf (( "ADCON1::setADCnames - cfg_index=%d new_mask %02X channels %d\n", cfg_index, new_mask, m_nAnalogChannels )); char newname[20]; for(unsigned int i = 0; i < m_nAnalogChannels; i++) { if ((diff & (1 << i)) && m_AnalogPins[i] != &AnInvalidAnalogInput) { if (new_mask & (1<AnalogReq(this, true, newname); } else m_AnalogPins[i]->AnalogReq(this, false, m_AnalogPins[i]->getPin().name().c_str()); } } mIoMask = new_mask; } /* * If A2D uses PCFG, call for each PCFG value (cfg 0 to 15) with * each set bit of bitMask indicating port is an analog port * (either A2D input port or Vref). Processors which use an A2D * method that uses ANSEL register will not call this. * * As an example, for the following Port Configuration Control bit: * PCFG AN7 AN6 AN5 AN4 AN3 AN2 AN1 AN0 * ---- ---- ----- ----- ----- ----- ----- ----- ----- * 1100 D D D A Vref+ Vref- A A * * then call setChannelConfiguration with cfg = 12 , bitMask = 0x1f * */ void ADCON1::setChannelConfiguration(unsigned int cfg, unsigned int bitMask) { if (cfg < cMaxConfigurations) m_configuration_bits[cfg] = bitMask; } unsigned int ADCON1::getVrefLoChannel(unsigned int cfg) { if (cfg < cMaxConfigurations) return(Vreflo_position[cfg]); return(0xffff); } unsigned int ADCON1::getVrefHiChannel(unsigned int cfg) { Dprintf(("ADCON1::getVrefHiChannel cfg=%d %d\n", cfg, Vrefhi_position[cfg])); if (cfg < cMaxConfigurations) return(Vrefhi_position[cfg]); return(0xffff); } /* * Call for each configuration mode that uses an І/O pin as Vref- * to declare which port is being used for this. */ void ADCON1::setVrefLoConfiguration(unsigned int cfg, unsigned int channel) { if (cfg < cMaxConfigurations) Vreflo_position[cfg] = channel; } /* * Call for each configuration mode that uses an І/O pin as Vref+ * to declare which port is being used for this. */ void ADCON1::setVrefHiConfiguration(unsigned int cfg, unsigned int channel) { if (cfg < cMaxConfigurations) Vrefhi_position[cfg] = channel; } /* * Number of A2D channels processor supports */ void ADCON1::setNumberOfChannels(unsigned int nChannels) { PinModule **save = NULL; // save existing pins when nChannels increases if (!nChannels || nChannels <= m_nAnalogChannels) return; // do nothing if NChannels decreases if (m_nAnalogChannels && nChannels > m_nAnalogChannels ) save = m_AnalogPins; if (m_voltageRef) delete [] m_voltageRef; m_voltageRef = new float [nChannels]; m_AnalogPins = new PinModule *[nChannels]; for (unsigned int i=0; i> mCfgBitShift); } /* * Associate a processor I/O pin with an A2D channel */ void ADCON1::setIOPin(unsigned int channel, PinModule *newPin) { if (channel < m_nAnalogChannels && m_AnalogPins[channel] == &AnInvalidAnalogInput && newPin!=0) { m_AnalogPins[channel] = newPin; } else { printf("%s:%d WARNING invalid channel number config for ADCON1 %d num %d\n",__FILE__,__LINE__, channel, m_nAnalogChannels); } } void ADCON1::setVoltRef(unsigned int channel, float value) { if (channel < m_nAnalogChannels ) { m_voltageRef[channel] = value; } else { printf("ADCON1::%s invalid channel number %d\n", __FUNCTION__, channel); } } //------------------------------------------------------ double ADCON1::getChannelVoltage(unsigned int channel) { double voltage=0.0; if(channel < m_nAnalogChannels) { if ( (1<getPin().get_nodeVoltage(); } else { cerr << "ADCON1::getChannelVoltage channel " << channel << " not valid analog input\n"; cerr << "Please raise a Gpsim bug report\n"; } } else // use voltage reference { Dprintf(("ADCON1::getChannelVoltage channel=%d voltage %f\n", \ channel, m_voltageRef[channel])); voltage = m_voltageRef[channel]; if (voltage < 0.0) { cout << "ADCON1::getChannelVoltage channel " << channel << " not a configured input\n"; voltage = 0.0; } } } else { cerr << "ADCON1::getChannelVoltage channel " << channel << " >= " << m_nAnalogChannels << " (number of channels)\n"; cerr << "Please raise a Gpsim bug report\n"; } return voltage; } double ADCON1::getVrefHi() { if (Vrefhi_position[cfg_index] < m_nAnalogChannels) return getChannelVoltage(Vrefhi_position[cfg_index]); return ((Processor *)cpu)->get_Vdd(); } double ADCON1::getVrefLo() { if (Vreflo_position[cfg_index] < m_nAnalogChannels) return getChannelVoltage(Vreflo_position[cfg_index]); return 0.0; } // if on is true, set pin as input regardless of TRIS state // else restore TRIS control // void ADCON1::set_channel_in(unsigned int channel, bool on) { Dprintf(("channel=%d on=%d m_ad_in_ctl=%p\n", channel, on, m_ad_in_ctl)); if (on && (m_ad_in_ctl == NULL)) m_ad_in_ctl = new AD_IN_SignalControl(); if (on) m_AnalogPins[channel]->setControl(m_ad_in_ctl); else m_AnalogPins[channel]->setControl(0); m_AnalogPins[channel]->updatePinModule(); } ANSEL::ANSEL(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), adcon1(0), anselh(0), valid_bits(0x7f) { } void ANSEL::setAdcon1(ADCON1 *new_adcon1) { adcon1 = new_adcon1; } void ANSEL::put(unsigned int new_value) { unsigned int cfgmax = adcon1->getNumberOfChannels(); unsigned int i; unsigned int mask = (new_value & valid_bits); if (anselh) mask |= anselh->value.get() << 8; trace.raw(write_trace.get() | value.get()); /* Generate ChannelConfiguration from ansel register */ for(i=0; i < cfgmax; i++) { adcon1->setChannelConfiguration(i, mask); } value.put(new_value & valid_bits); adcon1->setADCnames(); } ANSEL_H::ANSEL_H(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), adcon1(0), ansel(0), valid_bits(0x3f) { } void ANSEL_H::setAdcon1(ADCON1 *new_adcon1) { adcon1 = new_adcon1; } void ANSEL_H::put(unsigned int new_value) { unsigned int cfgmax = adcon1->getNumberOfChannels(); unsigned int i; unsigned int mask = ((new_value & valid_bits) << 8) ; trace.raw(write_trace.get() | value.get()); if (ansel) mask |= ansel->value.get(); /* Generate ChannelConfiguration from ansel register */ for(i=0; i < cfgmax; i++) { adcon1->setChannelConfiguration(i, mask); } value.put(new_value & valid_bits); adcon1->setADCnames(); } ANSEL_P::ANSEL_P(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), adcon1(0), ansel(0), valid_bits(0x3f), cfg_mask(0) { } void ANSEL_P::setAdcon1(ADCON1 *new_adcon1) { adcon1 = new_adcon1; } void ANSEL_P::put(unsigned int new_value) { unsigned int cfgmax = adcon1->getMaxCfg(); unsigned int i; unsigned int mask; unsigned int chan = first_channel; trace.raw(write_trace.get() | value.get()); new_value &= valid_bits; value.put(new_value); cfg_mask = 0; for(i=0; i< 8; i++) { if ((1<get_mask(); } /* Generate ChannelConfiguration from ansel register */ for(i=0; i < cfgmax; i++) { adcon1->setChannelConfiguration(i, mask); } adcon1->setADCnames(); } //------------------------------------------------------ // ADCON0_10 // ADCON0_10::ADCON0_10(Processor *pCpu, const char *pName, const char *pDesc) : ADCON0(pCpu, pName, pDesc) { GO_bit = GO; //ADCON0 and ADCON0_10 have GO flag at different bit // It should take 13 CPU instructions to complete conversion // Tad of 6 completes in 15 Tad = 6; } void ADCON0_10::put(unsigned int new_value) { unsigned int old_value=value.get(); /* On first call of this function old_value has already been set to * it's default value, but we want to call set_channel_in. First * gives us a way to do this. */ static bool first = true; trace.raw(write_trace.get() | value.get()); Dprintf(("ADCON0_10::put new_value=0x%02x old_value=0x%02x\n", new_value, old_value)); if ((new_value ^ old_value) & ANS0 || first) adcon1->set_channel_in(0, (new_value & ANS0) == ANS0); if ((new_value ^ old_value) & ANS1 || first ) adcon1->set_channel_in(1, (new_value & ANS1) == ANS1); first = false; // If ADON is clear GO cannot be set if ((new_value & ADON) != ADON) new_value &= ~GO_bit; // SET: Reflect it first! value.put(new_value); if(new_value & ADON) { // The A/D converter is being turned on (or maybe left on) if((new_value & ~old_value) & GO_bit) { if (verbose) printf("starting A2D conversion\n"); // The 'GO' bit is being turned on, which is request to initiate // and A/D conversion start_conversion(); } } else stop_conversion(); } //------------------------------------------------------ // ADCON0_12F used in 12f675. Uses ADCON1 as virtual rather than physical // register // ADCON0_12F::ADCON0_12F(Processor *pCpu, const char *pName, const char *pDesc) : ADCON0(pCpu, pName, pDesc) { GO_bit = GO; //ADCON0 and ADCON0_10 have GO flag at different bit valid_bits = 0xdf; } void ADCON0_12F::put(unsigned int new_value) { unsigned int old_value=value.get(); new_value &= valid_bits; // clear unused bits /* On first call of this function old_value has already been set to * it's default value, but we want to call set_channel_in. First * gives us a way to do this. */ trace.raw(write_trace.get() | value.get()); Dprintf(("ADCON0_12F::put new_value=0x%02x old_value=0x%02x\n", new_value, old_value)); // tell adcon1 to use Vref adcon1->set_cfg_index((new_value & VCFG) ? 2: 0); // If ADON is clear GO cannot be set if ((new_value & ADON) != ADON) new_value &= ~GO_bit; // SET: Reflect it first! value.put(new_value); if(new_value & ADON) { // The A/D converter is being turned on (or maybe left on) if((new_value & ~old_value) & GO_bit) { if (verbose) printf("starting A2D conversion\n"); // The 'GO' bit is being turned on, which is request to initiate // and A/D conversion start_conversion(); } } else stop_conversion(); } ANSEL_12F::ANSEL_12F(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), adcon1(0) { } void ANSEL_12F::set_tad(unsigned int new_value) { unsigned int Tad = 6; switch(new_value & (ADCS0 | ADCS1)) { case 0: Tad = (new_value & ADCS2) ? 4 : 2; break; case ADCS0: Tad = (new_value & ADCS2) ? 16 : 8; break; case ADCS1: Tad = (new_value & ADCS2) ? 64 : 32; break; case (ADCS0|ADCS1): // typical 4 usec, convert to osc cycles if (cpu) { Tad = (unsigned int)(4.e-6 * p_cpu->get_frequency()); Tad = Tad < 2? 2 : Tad; } else Tad = 6; break; } Dprintf(("ANSEL_12F::set_tad %x Tad=%d\n", new_value, Tad)); adcon0->set_Tad(Tad); } void ANSEL_12F::put(unsigned int new_value) { unsigned int cfgmax = adcon1->getNumberOfChannels(); unsigned int i; unsigned int mask; Dprintf(("ANSEL_12F::put %x cfgmax %d\n", new_value, cfgmax)); trace.raw(write_trace.get() | value.get()); /* Generate ChannelConfiguration from ansel register */ for(i=0; i < cfgmax; i++) { mask = new_value & 0x0f; adcon1->setChannelConfiguration(i, mask); } /* * Convert A2D conversion times and set in adcon */ set_tad(new_value & ( ADCS2 | ADCS1 | ADCS0)); value.put(new_value & 0x7f); adcon1->setADCnames(); } // catch stimulus and set channel voltage // a2d_stimulus::a2d_stimulus(ADCON1 * arg, int chan, const char *cPname,double _Vth, double _Zth) : stimulus(cPname, _Vth, _Zth) { _adcon1 = arg; channel = chan; } void a2d_stimulus::set_nodeVoltage(double v) { Dprintf(("nodeVoltage =%.1f\n", v)); nodeVoltage = v; _adcon1->setVoltRef(channel, v); } // //-------------------------------------------------- // member functions for the FVRCON class //-------------------------------------------------- // FVRCON::FVRCON(Processor *pCpu, const char *pName, const char *pDesc, unsigned int bitMask, unsigned int alwaysOne) : sfr_register(pCpu, pName, pDesc), adcon1(0), daccon0(0), cmModule(0), cpscon0(0) { mask_writable = bitMask; always_one = alwaysOne; } void FVRCON::put(unsigned int new_value) { unsigned int masked_value = (new_value & mask_writable) | always_one; trace.raw(write_trace.get() | value.get()); value.put(masked_value); compute_VTemp(masked_value); compute_FVR_AD(masked_value); compute_FVR_CDA(masked_value); } void FVRCON::put_value(unsigned int new_value) { unsigned int masked_value = (new_value & mask_writable) | always_one; put(masked_value); update(); } double FVRCON::compute_VTemp(unsigned int fvrcon) { double ret = -1.; double Vt; //Transister junction threshold voltage at core temperature if((fvrcon & TSEN) && cpu14e->m_cpu_temp) { Vt = 0.659 - ( cpu14e->m_cpu_temp->getVal() + 40.) * 0.00132; ret = ((Processor *)cpu)->get_Vdd() - ((fvrcon&TSRNG)?4.:2.) * Vt; if (ret < 0.) { ret = -1.; cerr << "Warning FVRCON Vdd too low for temperature range\n"; } } if(adcon1) adcon1->setVoltRef(VTemp_AD_chan, ret); return ret; } double FVRCON::compute_FVR_AD(unsigned int fvrcon) { double ret = -1.; unsigned int gain = (fvrcon & (ADFVR0|ADFVR1)); if ((fvrcon & FVREN) && gain) ret = 1.024 * (1 << (gain - 1)); if (ret > ((Processor *)cpu)->get_Vdd()) { cerr << "warning FVRCON FVRAD > Vdd\n"; ret = -1.; } if(adcon1)adcon1->setVoltRef(FVRAD_AD_chan, ret); return ret; } double FVRCON::compute_FVR_CDA(unsigned int fvrcon) { double ret = 0.; unsigned int gain = (fvrcon & (CDAFVR0|CDAFVR1))>>2; if ((fvrcon & FVREN) && gain) ret = 1.024 * (1 << (gain - 1)); if(daccon0) daccon0->set_FVR_CDA_volt(ret); if(cmModule) cmModule->set_FVR_volt(ret); if(cpscon0) cpscon0->set_FVR_volt(ret); return ret; } // //-------------------------------------------------- // member functions for the DAC classes //-------------------------------------------------- // DACCON0::DACCON0(Processor *pCpu, const char *pName, const char *pDesc, unsigned int bitMask, unsigned int bit_res) : sfr_register(pCpu, pName, pDesc), adcon1(0), cmModule(0), cpscon0(0), bit_mask(bitMask), bit_resolution(bit_res), FVR_CDA_volt(0.), Pin_Active(false) { } void DACCON0::put(unsigned int new_value) { unsigned int masked_value = (new_value & bit_mask); trace.raw(write_trace.get() | value.get()); value.put(masked_value); compute_dac(masked_value); } void DACCON0::put_value(unsigned int new_value) { unsigned int masked_value = (new_value & bit_mask); value.put(masked_value); compute_dac(masked_value); update(); } void DACCON0::set_dcaccon1_reg(unsigned int reg) { daccon1_reg = reg; compute_dac(value.get()); } void DACCON0::compute_dac(unsigned int value) { double Vhigh = get_Vhigh(value); double Vlow = 0.; double Vout; if(value & DACEN) // DAC is enabled { Vout = (Vhigh - Vlow) * daccon1_reg/bit_resolution - Vlow; } else if (value & DACLPS) Vout = Vhigh; else Vout = Vlow; if (value & DACOE) { if (!Pin_Active) // DACOUT going to active { output_pin->AnalogReq(this, true, "DACOUT"); Pin_Active = true; out_pin = (IO_bi_directional_pu *) &(output_pin->getPin()); Vth = out_pin->get_VthIn(); Zth = out_pin->get_ZthIn(); out_pin->set_ZthIn(150e3); } out_pin->set_VthIn(Vout); } else if (Pin_Active) // DACOUT leaving active { output_pin->AnalogReq(this, false, output_pin->getPin().name().c_str()); Pin_Active = false; out_pin->set_VthIn(Vth); out_pin->set_ZthIn(Zth); } if(adcon1) adcon1->setVoltRef(FVRCDA_AD_chan, Vout); if(cmModule) cmModule->set_DAC_volt(Vout); if(cpscon0) cpscon0->set_DAC_volt(Vout); } double DACCON0::get_Vhigh(unsigned int value) { unsigned int mode = (value & (DACPSS0|DACPSS1)) >> 2; switch(mode) { case 0: // Vdd return ((Processor *)cpu)->get_Vdd(); case 1: // Vref+ pin, get is from A2D setup if(adcon1) return(adcon1->getChannelVoltage(adcon1->getVrefHiChannel(0))); cerr << "ERROR DACCON0 DACPSS=01b adcon1 not set\n"; return 0.; case 2: // Fixed Voltage Reference return FVR_CDA_volt; case 3: // Reserved value cerr << "ERROR DACCON0 DACPSS=11b is reserved value\n"; return 0.; } return 0.; // cant get here } DACCON1::DACCON1(Processor *pCpu, const char *pName, const char *pDesc, unsigned int bitMask, DACCON0 *_daccon0) : sfr_register(pCpu, pName, pDesc), bit_mask(bitMask), daccon0(_daccon0) { } void DACCON1::put(unsigned int new_value) { unsigned int masked_value = (new_value & bit_mask); trace.raw(write_trace.get() | value.get()); value.put(masked_value); if (daccon0) daccon0->set_dcaccon1_reg(masked_value); } void DACCON1::put_value(unsigned int new_value) { unsigned int masked_value = (new_value & bit_mask); value.put(masked_value); if (daccon0) daccon0->set_dcaccon1_reg(masked_value); update(); } gpsim-0.27.0/src/pic-packages.h0000644000076400007640000000176211401131150013130 00000000000000/* Copyright (C) 1998,1999 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ /* packages.h Here's where all of the pic packages are defined */ #ifndef __PIC_PACKAGES_H__ #define __PIC_PACKAGES_H__ #include "gpsim_classes.h" #include "pic-processor.h" #include "stimuli.h" #include "packages.h" #endif // __PIC_PACKAGES_H__ gpsim-0.27.0/src/pic-instructions.h0000664000076400007640000002262612145351137014141 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __PIC_INSTRUCTIONS_H__ #define __PIC_INSTRUCTIONS_H__ #ifdef HAVE_GUI #include #endif #include "value.h" class Register; // FIXME get rid of AddressSymbol and LineNumberSymbol classes class AddressSymbol : public Integer { public: AddressSymbol(Processor *pCpu, const char *, unsigned int); virtual string toString(); virtual Value* evaluate(); virtual int set_break(ObjectBreakTypes bt=eBreakAny, ObjectActionTypes at=eActionHalt, Expression *expr=0); }; class LineNumberSymbol : public AddressSymbol { protected: int src_id,src_line,lst_id,lst_line,lst_page; public: LineNumberSymbol(Processor *pCpu, const char *, unsigned int); void put_address(int new_address) {set(new_address);} void put_src_line(int new_src_line) {src_line = new_src_line;} void put_lst_line(int new_lst_line) {lst_line = new_lst_line;} void put_lst_page(int new_lst_page) {lst_page = new_lst_page;} }; /* * base class for an instruction */ class instruction : public Value { public: enum INSTRUCTION_TYPES { NORMAL_INSTRUCTION, INVALID_INSTRUCTION, BREAKPOINT_INSTRUCTION, NOTIFY_INSTRUCTION, PROFILE_START_INSTRUCTION, PROFILE_STOP_INSTRUCTION, MULTIWORD_INSTRUCTION, ASSERTION_INSTRUCTION }; /* * Not all instructions derived from the instruction * class use these constants... */ enum { REG_MASK_12BIT = 0x1f, REG_MASK_14BIT = 0x7f, REG_MASK_16BIT = 0xff, DESTINATION_MASK_12BIT = 0x20, DESTINATION_MASK_14BIT = 0x80, DESTINATION_MASK_16BIT = 0x200, ACCESS_MASK_16BIT = 0x100, }; instruction(Processor *pProcessor, unsigned int uOpCode, unsigned int uAddrOfInstr); virtual ~instruction(); virtual void execute() = 0; virtual void debug(){ } virtual int instruction_size() { return 1;} virtual unsigned int get_opcode() { return opcode; } virtual unsigned int get_value() { return opcode; } virtual void put_value(unsigned int new_value) { } virtual unsigned int getAddress() { return m_uAddrOfInstr;} virtual void setAddress(unsigned int addr) { m_uAddrOfInstr = addr;} virtual int get_src_line() { return(src_line); } virtual int get_hll_src_line() { return(hll_src_line); } virtual void set_hll_src_line(int line) { hll_src_line=line; } virtual int get_lst_line() { return(lst_line); } virtual int get_file_id() {return(file_id); } virtual int get_hll_file_id() {return(hll_file_id); } virtual void set_hll_file_id(int file_id) {hll_file_id=file_id; } virtual enum INSTRUCTION_TYPES isa() {return NORMAL_INSTRUCTION;} virtual guint64 getCyclesUsed() { return cycle_count;} virtual bool isBase() = 0; void decode(Processor *new_cpu, unsigned int new_opcode); virtual void update_line_number(int file, int sline, int lline, int hllfile, int hllsline); virtual char *ReadSrcLine(char *buf, int nBytes); virtual char *ReadLstLine(char *buf, int nBytes); virtual char *ReadHLLLine(char *buf, int nBytes); virtual int set_break(ObjectBreakTypes bt=eBreakAny, ObjectActionTypes at=eActionHalt, Expression *expr=0); virtual void addLabel(string &rLabel); // Some instructions require special initialization after they've // been instantiated. For those that do, the instruction base class // provides a way to control the initialization state (see the 16-bit // PIC instructions). virtual void initialize(bool init_state) {}; bool bIsModified() { return m_bIsModified; } void setModified(bool b) { m_bIsModified=b; } gpsimObject *getLineSymbol() { return pLineSymbol; } protected: bool m_bIsModified; // flag indicating if this instruction has // changed since start. guint64 cycle_count; // Nr of cycles used up by this instruction unsigned int opcode; unsigned int m_uAddrOfInstr; gpsimObject *pLineSymbol; int file_id; /* The source file that declared this instruction * (The file_id is an index into an array of files) */ int hll_file_id; /* The hll source file that declared this instruction */ int src_line; /* The line number within the source file */ int lst_line; /* The line number within the list file */ int hll_src_line; /* The line number within the HLL source file */ }; //--------------------------------------------------------- // An AliasedInstruction is a class that is designed to replace an // instruction in program memory. (E.g. breakpoint instructions are an // example). class AliasedInstruction : public instruction { public: AliasedInstruction(instruction *); AliasedInstruction(); AliasedInstruction(Processor *pProcessor, unsigned int uOpCode, unsigned int uAddrOfInstr); ~AliasedInstruction(); void setReplaced(instruction *); virtual instruction *getReplaced(); virtual void execute(); virtual void debug(); virtual int instruction_size(); virtual unsigned int get_opcode(); virtual unsigned int get_value(); virtual void put_value(unsigned int new_value); virtual int get_src_line(); virtual int get_hll_src_line(); virtual int get_lst_line(); virtual int get_file_id(); virtual int get_hll_file_id(); virtual void update_line_number(int file, int sline, int lline, int hllfile, int hllsline); virtual enum INSTRUCTION_TYPES isa(); virtual void initialize(bool init_state); virtual char *name(char *,int len); virtual bool isBase(); virtual void update(void); virtual void add_xref(void *xref); virtual void remove_xref(void *xref); protected: instruction *m_replaced; }; //--------------------------------------------------------- class invalid_instruction : public instruction { public: virtual void execute(); virtual void debug() { //cout << "*** INVALID INSTRUCTION ***\n"; }; //invalid_instruction(Processor *new_cpu=0,unsigned int new_opcode=0); invalid_instruction(Processor *new_cpu, unsigned int new_opcode, unsigned int address); virtual enum INSTRUCTION_TYPES isa() {return INVALID_INSTRUCTION;}; //virtual char *name(char *str){return("INVALID");}; static instruction *construct(Processor *new_cpu, unsigned int new_opcode,unsigned int address) {return new invalid_instruction(new_cpu,new_opcode,address);} virtual void addLabel(string &rLabel); virtual bool isBase() { return true; } }; //--------------------------------------------------------- class Literal_op : public instruction { public: Literal_op(Processor *pProcessor, unsigned int uOpCode, unsigned int uAddrOfInstr); unsigned int L; virtual void debug(){ }; virtual char *name(char *,int); virtual bool isBase() { return true; } void decode(Processor *new_cpu, unsigned int new_opcode); }; //--------------------------------------------------------- class Bit_op : public instruction { public: Bit_op(Processor *pProcessor, unsigned int uOpCode, unsigned int uAddrOfInstr); unsigned int mask,register_address; bool access; Register *reg; virtual void debug(){ }; virtual char *name(char *,int); virtual bool isBase() { return true; } void decode(Processor *new_cpu, unsigned int new_opcode); }; //--------------------------------------------------------- class Register_op : public instruction { public: Register_op(Processor *pProcessor, unsigned int uOpCode, unsigned int uAddrOfInstr); static Register *source; unsigned int register_address; bool destination, access; /* Register *destination;*/ virtual void debug(){ }; virtual char *name(char *,int); virtual bool isBase() { return true; } void decode(Processor *new_cpu, unsigned int new_opcode); }; //----------------------------------------------------------------- // // instruction_constructor - a class used to create the PIC instructions // // The way it works is the 'instruction_constructor' structure // contains three pieces of info for each instruction: // inst_mask - a bit mask indicating which bits uniquely // identify an instruction // opcode - What those unique bits should be // inst_constructor - A pointer to the static member function // 'construct' in the instruction class. // // An instruction is decoded by finding a matching entry in // the instruction_constructor array. A match is defined to // be: // inst_mask & passed_opcode == opcode // which means that the opcode that is passed to the decoder // is ANDed with the instruction mask bits and compared to // the base bits of the opcode. If this test passes, then the // 'inst_constructor' will be called. struct instruction_constructor { unsigned int inst_mask; unsigned int opcode; instruction * (*inst_constructor) (Processor *cpu, unsigned int inst, unsigned int address); }; #endif /* __PIC_INSTRUCTIONS_H__ */ gpsim-0.27.0/src/i2c-ee.h0000644000076400007640000001005211401131150011635 00000000000000/* Copyright (C) 1998-2003 Scott Dattalo 2003 Mike Durian 2006 Roy R Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef I2C_EE_H #define I2C_EE_H #include "trigger.h" #include "gpsim_classes.h" #include "value.h" class Register; class RegisterCollection; class pic_processor; class I2C_EE; class I2C_EE_SCL; class I2C_EE_SDA; class Stimulus_Node; //------------------------------------------------------------------------ //------------------------------------------------------------------------ class PromAddress : public Value { public: PromAddress(I2C_EE *eeprom, const char *_name, const char * desc); void get(I2C_EE *&eeprom) { eeprom = m_eeprom;} void get(char *buffer, int buf_size); private: I2C_EE *m_eeprom; }; class I2C_EE : public TriggerObject { public: I2C_EE(Processor *pCpu, unsigned int _rom_size, unsigned int _write_page_size = 1, unsigned int _addr_bytes = 1, unsigned int _CSmask = 0, unsigned int _BSmask = 0, unsigned int _BSshift = 0 ); virtual ~I2C_EE(); void reset(RESET_TYPE); void debug(); virtual void callback(); virtual void callback_print(); virtual void start_write(); virtual void write_busy(); virtual void write_is_complete(); virtual Register *get_register(unsigned int address); inline int register_size() {return rom_data_size; } inline void set_register_size(int bytes) { rom_data_size = bytes; } virtual void new_scl_edge ( bool direction ); virtual void new_sda_edge ( bool direction ); virtual void attach ( Stimulus_Node *_scl, Stimulus_Node *_sda ); virtual void set_chipselect(unsigned int _chipselect); inline virtual unsigned int get_rom_size() { return (rom_size); } // XXX might want to make get_rom a friend only to cli_dump inline virtual Register **get_rom() { return (rom); } void dump(); I2C_EE_SCL * scl; // I2C clock I2C_EE_SDA * sda; // I2C data protected: bool shift_read_bit ( bool x ); bool shift_write_bit (); virtual bool processCommand(unsigned int cmd); Register **rom; // The data area. RegisterCollection *m_UiAccessOfRom; // User access to the rom. unsigned int rom_size; int rom_data_size; // width of data in bytes unsigned int xfr_addr,xfr_data; // latched adr and data from I2C. unsigned int write_page_off; // offset into current write page unsigned int write_page_size; // max number of writes in one block unsigned int bit_count; // Current bit number for either Tx or Rx unsigned int m_command; // Most recent command received from I2C host unsigned int m_chipselect; // Chip select bits, A0 = bit 1, A1 = bit 2, A2 = bit 3 unsigned int m_CSmask; // Which chip select bits in command are active unsigned int m_BSmask; // Which block select bits are active in command unsigned int m_BSshift; // right shift for block select bits unsigned int m_addr_bytes; // number of address bytes in write command unsigned int m_addr_cnt; // # 0f address bytes yet to get bool m_write_protect; // chip is write protected bool ee_busy; // true if a write is in progress. bool nxtbit; enum { IDLE=0, START, RX_CMD, ACK_CMD, RX_ADDR, RX_ADDR2, ACK_ADDR, RX_DATA, ACK_WR, WRPEND, ACK_RD, TX_DATA } bus_state; private: // Is this even used? virtual void change_rom(unsigned int offset, unsigned int val); }; #endif /* I2C_EE_H */ gpsim-0.27.0/src/bytelog.h0000644000076400007640000000305011401131150012236 00000000000000/* Copyright (C) 1998-2003 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #if !defined(__BYTELOG_H__) #define __BYTELOG_H__ class Cycle_Counter; namespace gpsim { //======================================================================== struct TimedByte { unsigned long long start; unsigned long long stop; unsigned long long rts; unsigned int b; }; class ByteLogger { protected: int index; int bufsize; TimedByte *buffer; public: ByteLogger(int _bufsize=128); int modIndex(int i); void start(unsigned long long t); void stop(unsigned long long t); void byte(unsigned int b); void rts(unsigned long long r); // void statistics(int i=-1); unsigned long long getStart(int i=-1); void get(int i, TimedByte &b); }; } // end of namespace gpsim #endif //!defined(__BYTELOG_H__) gpsim-0.27.0/src/p16f8x.h0000664000076400007640000001226212175377101011655 00000000000000/* Copyright (C) 1998-2002 T. Scott Dattalo Copyright (C) 2006 Roy Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __P16F8X_H__ #define __P16F8X_H__ #include "p16x6x.h" #include "pir.h" #include "eeprom.h" #include "comparator.h" #include "a2dconverter.h" /*************************************************************************** * * Include file for: P16F87, P16F88 * * * The F8x devices are similar to 16F62x * * ***************************************************************************/ class P16F8x : public P16X6X_processor { public: PIR1v2 *pir1_2_reg; PIR2v2 *pir2_2_reg; PIR_SET_2 pir_set_2_def; WDTCON wdtcon; OSCCON osccon; OSCTUNE osctune; P16F8x(const char *_name=0, const char *desc=0); ~P16F8x(); virtual void set_out_of_range_pm(unsigned int address, unsigned int value); USART_MODULE usart; ComparatorModule comparator; virtual PROCESSOR_TYPE isa(){return _P16F87_;}; virtual void create_symbols(); virtual unsigned int register_memory_size () const { return 0x200;}; virtual unsigned int program_memory_size() { return 0; }; virtual void create_sfr_map(); // The f628 (at least) I/O pins depend on the Fosc Configuration bits. virtual bool set_config_word(unsigned int address, unsigned int cfg_word); virtual void create(int eesize); virtual void create_iopin_map(); virtual void create_config_memory(); virtual void set_eeprom(EEPROM *ep) { // Use set_eeprom_pir as P16F8x expects to have a PIR capable EEPROM assert(0); } virtual void set_eeprom_wide(EEPROM_WIDE *ep) { eeprom = ep; } virtual EEPROM_WIDE *get_eeprom() { return ((EEPROM_WIDE *)eeprom); } virtual PIR *get_pir1() { return (pir1); } virtual PIR *get_pir2() { return (pir2); } virtual PIR_SET *get_pir_set() { return (&pir_set_2_def); } }; class P16F81x : public P16X6X_processor { public: PIR1v2 *pir1_2_reg; PIR2v2 *pir2_2_reg; PIR_SET_2 pir_set_2_def; ADCON0 adcon0; ADCON1 adcon1; sfr_register adresh; sfr_register adresl; OSCCON osccon; OSCTUNE osctune; P16F81x(const char *_name=0, const char *desc=0); ~P16F81x(); virtual void set_out_of_range_pm(unsigned int address, unsigned int value); virtual PROCESSOR_TYPE isa(){return _P16F818_;}; virtual void create_symbols(); virtual unsigned int register_memory_size () const { return 0x200;}; virtual unsigned int program_memory_size() { return 0; }; virtual void create_sfr_map(); // The f628 (at least) I/O pins depend on the Fosc Configuration bits. virtual bool set_config_word(unsigned int address, unsigned int cfg_word); virtual void create_config_memory(); virtual void create(int eesize); virtual void create_iopin_map(); virtual void set_eeprom(EEPROM *ep) { // Use set_eeprom_pir as P16F8x expects to have a PIR capable EEPROM assert(0); } virtual void set_eeprom_wide(EEPROM_WIDE *ep) { eeprom = ep; } virtual EEPROM_WIDE *get_eeprom() { return ((EEPROM_WIDE *)eeprom); } virtual PIR *get_pir1() { return (pir1); } virtual PIR *get_pir2() { return (pir2); } virtual PIR_SET *get_pir_set() { return (&pir_set_2_def); } }; class P16F87 : public P16F8x { public: virtual PROCESSOR_TYPE isa(){return _P16F87_;}; virtual unsigned int program_memory_size() const { return 0x1000; }; P16F87(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); virtual void create_sfr_map(); }; class P16F88 : public P16F87 { public: ANSEL ansel; ADCON0 adcon0; ADCON1 adcon1; sfr_register adresh; sfr_register adresl; virtual PROCESSOR_TYPE isa(){return _P16F88_;}; virtual unsigned int program_memory_size() const { return 0x1000; }; virtual void create(); virtual void create_sfr_map(); P16F88(const char *_name=0, const char *desc=0); ~P16F88(); static Processor *construct(const char *name); }; class P16F818 : public P16F81x { public: virtual PROCESSOR_TYPE isa(){return _P16F818_;}; virtual unsigned int program_memory_size() const { return 0x400; }; virtual void create(); virtual void create_sfr_map(); P16F818(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); }; class P16F819 : public P16F81x { public: virtual PROCESSOR_TYPE isa(){return _P16F819_;}; virtual unsigned int program_memory_size() const { return 0x800; }; virtual void create(); virtual void create_sfr_map(); P16F819(const char *_name=0, const char *desc=0); ~P16F819(); static Processor *construct(const char *name); }; #endif gpsim-0.27.0/src/value.cc0000644000076400007640000005672011401170177012073 00000000000000/* Copyright (C) 1998-2003 Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include #include #include "processor.h" #include "value.h" #include "errors.h" #include "operator.h" #include "protocol.h" #include "../config.h" #include "cmd_gpsim.h" #include char * TrimWhiteSpaceFromString(char * pBuffer) { size_t iPos = 0; char * pChar = pBuffer; while(*pChar != 0 && ::isspace(*pChar)) { pChar++; } if(pBuffer != pChar) { memmove(pBuffer, pChar, strlen(pBuffer) - iPos); } iPos = strlen(pBuffer); if(iPos > 0) { pChar = pBuffer + iPos - 1; while(pBuffer != pChar && ::isspace(*pChar)) { *pChar = 0; pChar--; } } return pBuffer; } char * UnquoteString(char * pBuffer) { char cQuote; if(*pBuffer == '\'') { cQuote = '\''; } else if(*pBuffer == '"') { cQuote = '"'; } else { return pBuffer; } int iLen = strlen(pBuffer); if(iLen > 1) { if(pBuffer[iLen - 1] == cQuote) { memmove(&pBuffer[0], &pBuffer[1], iLen - 2); pBuffer[iLen - 2] = 0; } } return pBuffer; } string &toupper(string & sStr) { string::iterator it; string::iterator itEnd = sStr.end(); for(it = sStr.begin(); it != itEnd; it++) { if(isalpha(*it)) { *it = toupper((int)*it); } } return sStr; } //------------------------------------------------------------------------ Value::Value() : cpu(0), m_aka(0) { } Value::Value(const char *_name, const char *desc, Module *pMod) : gpsimObject(_name,desc), cpu(pMod),m_aka(0) { } Value::~Value() { // Remove references of this Value from the symbol table: if (cpu) { //cout << "Deleting value named:" << name_str << " addr "<< this << endl; cpu->removeSymbol(name_str); if (m_aka) { //cout << "m_aka ==" << m_aka << endl; list ::iterator it; it = m_aka->begin(); while(it != m_aka->end()) { string s(*it); //cout << " Value label " << s << endl; cpu->removeSymbol(s); ++it; } m_aka->clear(); delete m_aka; } } } void Value::update() { _xref._update(); } void Value::add_xref(void *an_xref) { _xref._add(an_xref); } void Value::remove_xref(void *an_xref) { _xref.clear(an_xref); } void Value::set(const char *cP,int i) { throw new Error(" cannot assign string to a " + showType()); } void Value::set(double d) { throw new Error(" cannot assign a double to a " + showType()); } void Value::set(gint64 i) { throw new Error(" cannot assign an integer to a " + showType()); } void Value::set(bool v) { throw new Error(" cannot assign a boolean to a " + showType()); } void Value::set(int i) { gint64 i64 = i; set(i64); } void Value::set(Value *v) { throw new Error(" cannot assign a Value to a " + showType()); } void Value::set(Expression *expr) { try { Value *v=0; if(!expr) throw new Error(" null expression "); if (verbose) cout << toString() << " is being assigned expression " << expr->toString() << endl; v = expr->evaluate(); if(!v) throw new Error(" cannot evaluate expression "); set(v); delete v; } catch (Error *err) { if(err) cout << "ERROR:" << err->toString() << endl; delete err; } } void Value::set(Packet &pb) { cout << "Value,"<showOp() + " comparison is not defined for " + showType()); } Value *Value::copy() { throw new Error(" cannot copy " + showType()); } /* void Value::set_xref(Value *v) { delete xref; xref = v; } Value *Value::get_xref() { return xref; } */ Processor *Value::get_cpu() const { return static_cast(cpu); } void Value::set_cpu(Processor *new_cpu) { cpu = new_cpu; } void Value::set_module(Module *new_cpu) { cpu = new_cpu; } Module *Value::get_module() { return cpu; } void Value::addName(string &r_sAliasedName) { if (!m_aka) m_aka = new list(); //cout << "Adding name " << r_sAliasedName << " to "<< name() << endl; m_aka->push_back(r_sAliasedName); } //------------------------------------------------------------------------ ValueWrapper::ValueWrapper(Value *pCopy) : m_pVal(pCopy) { } ValueWrapper::~ValueWrapper() { } unsigned int ValueWrapper::get_leftVal() { return m_pVal->get_leftVal(); } unsigned int ValueWrapper::get_rightVal() { return m_pVal->get_rightVal(); } void ValueWrapper::set(const char *cP,int len) { m_pVal->set(cP,len); } void ValueWrapper::set(double d) { m_pVal->set(d); } void ValueWrapper::set(gint64 i) { m_pVal->set(i); } void ValueWrapper::set(int i) { m_pVal->set(i); } void ValueWrapper::set(bool b) { m_pVal->set(b); } void ValueWrapper::set(Value *v) { m_pVal->set(v); } void ValueWrapper::set(Expression *e) { m_pVal->set(e); } void ValueWrapper::set(Packet &p) { m_pVal->set(p); } void ValueWrapper::get(bool &b) { m_pVal->get(b); } void ValueWrapper::get(int &i) { m_pVal->get(i); } void ValueWrapper::get(guint64 &i) { m_pVal->get(i); } void ValueWrapper::get(gint64 &i) { m_pVal->get(i); } void ValueWrapper::get(double &d) { m_pVal->get(d); } void ValueWrapper::get(char *pC, int len) { m_pVal->get(pC,len); } void ValueWrapper::get(Packet &p) { m_pVal->get(p); } Value *ValueWrapper::copy() { return m_pVal->copy(); } void ValueWrapper::update() { m_pVal->update(); } Value *ValueWrapper::evaluate() { return m_pVal->evaluate(); } bool ValueWrapper::compare(ComparisonOperator *compOp, Value *rvalue) { if(!compOp || !rvalue) return false; gint64 i,r; m_pVal->get(i); rvalue->get(r); if(i < r) return compOp->less(); if(i > r) return compOp->greater(); return compOp->equal(); } /***************************************************************** * The AbstractRange class. */ AbstractRange::AbstractRange(unsigned int newLeft, unsigned int newRight) { left = newLeft; right = newRight; } AbstractRange::~AbstractRange() { } string AbstractRange::toString() { char buff[256]; string str = ""; snprintf(buff,sizeof(buff),"%d:%d",left,right); return (string(buff)); } string AbstractRange::toString(const char* format) { char cvtBuf[1024]; sprintf(cvtBuf, format, left, right); return (string(&cvtBuf[0])); } char *AbstractRange::toString(char *return_str, int len) { if(return_str) { snprintf(return_str,len,"%d:%d",left,right); } return return_str; } unsigned int AbstractRange::get_leftVal() { return(left); } unsigned int AbstractRange::get_rightVal() { return(right); } AbstractRange* AbstractRange::typeCheck(Value* val, string valDesc) { if (typeid(*val) != typeid(AbstractRange)) { throw new TypeMismatch(valDesc, "AbstractRange", val->showType()); } // This static cast is totally safe in light of our typecheck, above. return((AbstractRange*)(val)); } bool AbstractRange::compare(ComparisonOperator *compOp, Value *rvalue) { throw new Error(compOp->showOp() + " comparison is not defined for " + showType()); } Value *AbstractRange::copy() { return new AbstractRange(get_leftVal(),get_rightVal()); } void AbstractRange::set(Value *v) { AbstractRange *ar=typeCheck(v, string("")); left = ar->get_leftVal(); right = ar->get_rightVal(); } /* bool AbstractRange::operator<(Value *rv) { AbstractRange *_rv = typeCheck(rv,"OpLT"); return right < _rv->left; } */ /***************************************************************** * The Boolean class. */ Boolean::Boolean(bool newValue) { value = newValue; } Boolean::Boolean(const char *_name, bool newValue,const char *_desc) : Value(_name,_desc) { value = newValue; } bool Boolean::Parse(const char *pValue, bool &bValue) { if(strncmp("true", pValue, sizeof("true")-1) == 0) { bValue = true; return true; } else if(strncmp("false", pValue, sizeof("false")-1) == 0) { bValue = false; return true; } return false; } Boolean * Boolean::NewObject(const char *_name, const char *pValue, const char *desc) { bool bValue; if(Parse(pValue, bValue)) { return new Boolean(_name, bValue); } return NULL; } Boolean::~Boolean() { } string Boolean::toString() { bool b; get(b); return (string(b ? "true" : "false")); } string Boolean::toString(bool value) { return (string(value ? "true" : "false")); } char *Boolean::toString(char *return_str, int len) { if(return_str) { bool b; get(b); snprintf(return_str,len,"%s",(b ? "true" : "false")); } return return_str; } char *Boolean::toBitStr(char *return_str, int len) { if(return_str) { bool b; get(b); snprintf(return_str,len,"%d",(b ? 1 : 0)); } return return_str; } string Boolean::toString(const char* format) { char cvtBuf[1024]; bool b; get(b); sprintf(cvtBuf, format, b); return (string(&cvtBuf[0])); } Boolean* Boolean::typeCheck(Value* val, string valDesc) { if (typeid(*val) != typeid(Boolean)) { throw new TypeMismatch(valDesc, "Boolean", val->showType()); } // This static cast is totally safe in light of our typecheck, above. return((Boolean*)(val)); } bool Boolean::compare(ComparisonOperator *compOp, Value *rvalue) { Boolean *rv = typeCheck(rvalue,""); switch(compOp->isa()) { case ComparisonOperator::eOpEq: return value == rv->value; case ComparisonOperator::eOpNe: return value != rv->value; default: Value::compare(compOp, rvalue); // error } return false; // keep the compiler happy. } Value *Boolean::copy() { bool b; get(b); return new Boolean(b); } // get(bool&) - primary method for accessing the value. void Boolean::get(bool &b) { b = value; } // get(int&) - type cast an integer into a boolean. Note // that we call get(bool &) instead of directly accessing // the member value. The reason for this is so that derived // classes can capture the access. void Boolean::get(int &i) { bool b; get(b); i = b ? 1 : 0; } /* void Boolean::get(double &d) { bool b; get(b); d = b ? 1.0 : 0.0; } */ void Boolean::get(char *buffer, int buf_size) { if(buffer) { bool b; get(b); if(b) strncpy(buffer,"true",buf_size); else strncpy(buffer,"false",buf_size); } } void Boolean::get(Packet &pb) { bool b; get(b); pb.EncodeBool(b); } void Boolean::set(Value *v) { Boolean *bv = typeCheck(v,string("set ")); bool b = bv->getVal(); set(b); } void Boolean::set(bool v) { value = v; //if(get_xref()) // get_xref()->set(v); } void Boolean::set(const char *buffer, int buf_size) { if(buffer) { bool bValue; if(Parse(buffer, bValue)) { set(bValue); } } } void Boolean::set(Packet &p) { bool b; if(p.DecodeBool(b)) set(b); } /* bool Boolean::operator&&(Value *rv) { Boolean *_rv = typeCheck(rv,"Op&&"); return value && _rv->value; } bool Boolean::operator||(Value *rv) { Boolean *_rv = typeCheck(rv,"Op||"); return value || _rv->value; } bool Boolean::operator==(Value *rv) { Boolean *_rv = typeCheck(rv,"OpEq"); return value == _rv->value; } bool Boolean::operator!=(Value *rv) { Boolean *_rv = typeCheck(rv,"OpNe"); return value != _rv->value; } */ /***************************************************************** * The Integer class. */ Integer::Integer(const Integer &new_value) { Integer & nv = (Integer&)new_value; nv.get(value); bitmask = new_value.bitmask; } Integer::Integer(gint64 newValue) { value = newValue; bitmask = def_bitmask; } Integer::Integer(const char *_name, gint64 newValue,const char *_desc) : Value(_name,_desc) { value = newValue; bitmask = def_bitmask; } gint64 Integer::def_bitmask = 0xffffffff; Integer::~Integer() { } void Integer::setDefaultBitmask(gint64 bitmask) { def_bitmask = bitmask; } Value *Integer::copy() { gint64 i; get(i); return new Integer(i); } void Integer::set(double d) { gint64 i = (gint64)d; set(i); } void Integer::set(gint64 i) { value = i; //if(get_xref()) // get_xref()->set(i); } void Integer::set(int i) { gint64 ii = i; set(ii); } void Integer::set(Value *v) { gint64 iv = 0; if (v) v->get(iv); set(iv); } void Integer::set(Packet &p) { unsigned int i; if(p.DecodeUInt32(i)) { set((int)i); return; } guint64 i64; if(p.DecodeUInt64(i64)) { set((gint64)i64); return; } } void Integer::set(const char *buffer, int buf_size) { if(buffer) { gint64 i; if(Parse(buffer, i)) { set(i); } } } bool Integer::Parse(const char *pValue, gint64 &iValue) { if(::isdigit(*pValue)) { if(strchr(pValue, '.')) { return false; } else { // decimal or 0x integer return sscanf(pValue, "%" PRINTF_GINT64_MODIFIER "i", &iValue) == 1; } } else if(*pValue == '$' && ::isxdigit(*(pValue+1))) { // hexidecimal integer char szHex[10] = "0x"; strcat(&szHex[0], pValue + 1); return sscanf(szHex, "%" PRINTF_GINT64_MODIFIER "i" , &iValue) == 1; } return false; } Integer * Integer::NewObject(const char *_name, const char *pValue, const char *desc) { gint64 iValue; if(Parse(pValue, iValue)) { return new Integer(_name, iValue, desc); } return NULL; } void Integer::get(gint64 &i) { i = value; } void Integer::get(double &d) { gint64 i; get(i); d = (double)i; } void Integer::get(char *buffer, int buf_size) { if(buffer) { gint64 i; get(i); long long int j = i; snprintf(buffer,buf_size,"%" PRINTF_INT64_MODIFIER "d",j); } } void Integer::get(Packet &pb) { gint64 i; get(i); unsigned int j = (unsigned int) (i &0xffffffff); pb.EncodeUInt32(j); } int Integer::set_break(ObjectBreakTypes bt, ObjectActionTypes at, Expression *expr) { Processor *pCpu = get_active_cpu(); if (pCpu) { // Legacy code compatibility! if ( bt == eBreakWrite || bt == eBreakRead ) { // Cast the integer into a register and set a register break point unsigned int iRegAddress = (unsigned int) value; Register *pReg = &pCpu->rma[iRegAddress]; return get_bp().set_break(bt, at, pReg, expr); } else if ( bt == eBreakExecute) { unsigned int iProgAddress = (unsigned int) value; return get_bp().set_execution_break(pCpu, iProgAddress, expr); } } return -1; } string Integer::toString() { gint64 i; get(i); IUserInterface & TheUI = GetUserInterface(); return string(TheUI.FormatValue(i, (unsigned int)bitmask)); } string Integer::toString(const char* format) { char cvtBuf[1024]; gint64 i; get(i); snprintf(cvtBuf,sizeof(cvtBuf), format, i); return (string(&cvtBuf[0])); } string Integer::toString(const char* format, gint64 value) { char cvtBuf[1024]; snprintf(cvtBuf,sizeof(cvtBuf), format, value); return (string(&cvtBuf[0])); } string Integer::toString(gint64 value) { char cvtBuf[1024]; long long int v=value; snprintf(cvtBuf,sizeof(cvtBuf), "%" PRINTF_INT64_MODIFIER "d", v); return (string(&cvtBuf[0])); } char *Integer::toString(char *return_str, int len) { if(return_str) { gint64 i; get(i); IUserInterface & TheUI = GetUserInterface(); strncpy(return_str, TheUI.FormatValue(i), len); // snprintf(return_str,len,"%" PRINTF_INT64_MODIFIER "d",i); } return return_str; } char *Integer::toBitStr(char *return_str, int len) { if(return_str) { gint64 i; get(i); int j=0; int mask=1<<31; for( ; mask ; mask>>=1, j++) if(jshowType()); } // This static cast is totally safe in light of our typecheck, above. return((Integer*)(val)); } Integer* Integer::assertValid(Value* val, string valDesc, gint64 valMin) { Integer* iVal; gint64 i; iVal = Integer::typeCheck(val, valDesc); iVal->get(i); if (i < valMin) { throw new Error(valDesc + " must be greater than " + Integer::toString(valMin) + ", saw " + Integer::toString(i) ); } return(iVal); } Integer* Integer::assertValid(Value* val, string valDesc, gint64 valMin, gint64 valMax) { Integer* iVal; gint64 i; iVal = (Integer::typeCheck(val, valDesc)); iVal->get(i); if ((i < valMin) || (i>valMax)) { throw new Error(valDesc + " must be be in the range [" + Integer::toString(valMin) + ".." + Integer::toString(valMax) + "], saw " + Integer::toString(i) ); } return(iVal); } bool Integer::compare(ComparisonOperator *compOp, Value *rvalue) { Integer *rv = typeCheck(rvalue,""); gint64 i,r; get(i); rv->get(r); if(i < r) return compOp->less(); if(i > r) return compOp->greater(); return compOp->equal(); } /* bool Integer::operator<(Value *rv) { Integer *_rv = typeCheck(rv,"OpLT"); return value < _rv->value; } bool Integer::operator>(Value *rv) { Integer *_rv = typeCheck(rv,"OpGT"); return value > _rv->value; } bool Integer::operator<=(Value *rv) { Integer *_rv = typeCheck(rv,"OpLE"); return value <= _rv->value; } bool Integer::operator>(Value *rv) { Integer *_rv = typeCheck(rv,"OpGT"); return value > _rv->value; } */ /***************************************************************** * The Float class. */ Float::Float(double newValue) { value = newValue; } Float::Float(const char *_name, double newValue,const char *_desc) : Value(_name,_desc) { value = newValue; } bool Float::Parse(const char *pValue, double &fValue) { return pValue ? sscanf(pValue,"%lg",&fValue) == 1 : false; } Float * Float::NewObject(const char *_name, const char *pValue, const char *desc) { double fValue; if(Parse(pValue, fValue)) { return new Float(_name, fValue); } return NULL; } Float::~Float() { } void Float::set(double d) { value = d; //if(get_xref()) // get_xref()->set(d); } void Float::set(gint64 i) { double d = (double)i; set(d); } void Float::set(Value *v) { /* typeCheck means cannot set integers - RRR Float *fv = typeCheck(v,string("set ")); double d = fv->getVal(); set(d); */ double d; if (typeid(*v) != typeid(Float) && typeid(*v) != typeid(Integer)) { throw new TypeMismatch(string("set "), "Float", v->showType()); } v->get(d); set(d); } void Float::set(const char *buffer, int buf_size) { if(buffer) { double d; if(Parse(buffer, d)) { set(d); } } } void Float::set(Packet &p) { double d; if(p.DecodeFloat(d)) { set(d); } } void Float::get(gint64 &i) { double d; get(d); i = (gint64)d; } void Float::get(double &d) { d = value; } void Float::get(char *buffer, int buf_size) { if(buffer) { double d;; get(d); snprintf(buffer,buf_size,"%g",d); } } void Float::get(Packet &pb) { double d; get(d); pb.EncodeFloat(d); } Value *Float::copy() { double d; get(d); return new Float(d); } string Float::toString() { return toString("%#-16.16g"); } string Float::toString(const char* format) { char cvtBuf[1024]; double d; get(d); sprintf(cvtBuf, format, d); return (string(&cvtBuf[0])); } char *Float::toString(char *return_str, int len) { if(return_str) { double d; get(d); snprintf(return_str,len,"%g",d); } return return_str; } Float* Float::typeCheck(Value* val, string valDesc) { if (typeid(*val) != typeid(Float)) { throw new TypeMismatch(valDesc, "Float", val->showType()); } // This static cast is totally safe in light of our typecheck, above. return((Float*)(val)); } bool Float::compare(ComparisonOperator *compOp, Value *rvalue) { Float *rv = typeCheck(rvalue,""); double d,r; get(d); rv->get(r); if(d < r) return compOp->less(); if(d > r) return compOp->greater(); return compOp->equal(); } /* bool Float::operator<(Value *rv) { Float *_rv = typeCheck(rv,"OpLT"); return value < _rv->value; } */ /***************************************************************** * The String class. */ String::String(const char *newValue) { if(newValue) value = strdup(newValue); else value = 0; } String::String(const char *newValue, size_t len) { if (newValue) { value = (char *)malloc(len + 1); strncpy(value, newValue, len); value[len] = '\0'; } else value = 0; } String::String(const char *_name, const char *newValue,const char *_desc) : Value(_name,_desc) { if(newValue) value = strdup(newValue); else value = 0; } String::~String() { if(value) free(value); } string String::toString() { if(value) return string(value); else return string(""); } char *String::toString(char *return_str, int len) { if(return_str) { if(value) snprintf(return_str,len,"%s",value); else *return_str = 0; } return return_str; } void String::set(Value *v) { char buf[1024]; if(v) { v->get(buf, sizeof(buf)); set(buf); } } void String::set(Packet &p) { cout << " fixme String::set(Packet &) is not implemented\n"; } void String::set(const char *s,int len) { if(value) free(value); if(s) value = strdup(s); else value = 0; } void String::get(char *buf, int len) { if(buf && value) { strncpy(buf,value,len); } else if(buf) { buf[0] = 0; } } void String::get(Packet &p) { p.EncodeString(value); } const char *String::getVal() { return value; } Value *String::copy() { return new String(value); } //------------------------------------------------------------------------ namespace gpsim { Function::Function(const char *_name, const char *desc) : gpsimObject(_name,desc) { } Function::~Function() { cout << "Function destructor\n"; } string Function::description() { if(cpDescription) return string(cpDescription); else return string("no description"); } string Function::toString() { return name(); } void Function::call(ExprList_t *vargs) { cout << "calling " << name() << endl; } } gpsim-0.27.0/src/clock_phase.cc0000664000076400007640000000440212163701215013221 00000000000000/* Copyright (C) 2006 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include "clock_phase.h" #include "processor.h" #include "gpsim_time.h" //======================================================================== ClockPhase::ClockPhase() : m_pNextPhase(this) { } ClockPhase::~ClockPhase() { } //======================================================================== ProcessorPhase::ProcessorPhase(Processor *pcpu) : ClockPhase(), m_pcpu(pcpu) { } ProcessorPhase::~ProcessorPhase() { } //======================================================================== phaseExecute1Cycle::phaseExecute1Cycle(Processor *pcpu) : ProcessorPhase(pcpu) { } phaseExecute1Cycle::~phaseExecute1Cycle() { } /* phaseExecute1Cycle::advance() - advances a processor's time one clock cycle. */ ClockPhase *phaseExecute1Cycle::advance() { setNextPhase(this); m_pcpu->step_one(false); if (bp.global_break & GLOBAL_LOG) { if (GetTraceLog().log_file) { trace.cycle_counter(get_cycles().get()); trace.dump(1, GetTraceLog().log_file); GetTraceLog().items_logged++; } bp.global_break &= ~GLOBAL_LOG; } if (!bp.global_break) get_cycles().increment(); return m_pNextPhase; } //======================================================================== phaseIdle::phaseIdle(Processor *pcpu) : ProcessorPhase(pcpu) { } phaseIdle::~phaseIdle() { } /* phaseIdle::advance() - advances a processor's time one clock cycle, but does not execute code. */ ClockPhase *phaseIdle::advance() { setNextPhase(this); get_cycles().increment(); return m_pNextPhase; } gpsim-0.27.0/src/p16x8x.cc0000664000076400007640000001312112175377101012030 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ // // p16x8x // // This file supports: // PIC16C84 // PIC16CR84 // PIC16F84 // PIC16F83 // PIC16CR83 // #include #include #include #include "../config.h" #include "symbol.h" #include "stimuli.h" #include "eeprom.h" #include "p16x8x.h" #include "pic-ioports.h" #include "packages.h" P16X8X::P16X8X(const char *_name, const char *desc) : Pic14Bit(_name,desc) { if(config_modes) config_modes->valid_bits = ConfigMode::CM_FOSC0 | ConfigMode::CM_FOSC1 | ConfigMode::CM_FOSC1x | ConfigMode::CM_WDTE | ConfigMode::CM_PWRTE; } P16X8X::~P16X8X() { delete_file_registers(0x0c, ram_top); if (get_eeprom()) { remove_sfr_register(get_eeprom()->get_reg_eedata()); remove_sfr_register(get_eeprom()->get_reg_eecon1()); remove_sfr_register(get_eeprom()->get_reg_eeadr()); remove_sfr_register(get_eeprom()->get_reg_eecon2()); delete get_eeprom(); } } void P16X8X::create_sfr_map() { Pic14Bit::create_sfr_map(); add_sfr_register(get_eeprom()->get_reg_eedata(), 0x08); add_sfr_register(get_eeprom()->get_reg_eecon1(), 0x88, RegisterValue(0,0)); add_sfr_register(get_eeprom()->get_reg_eeadr(), 0x09); add_sfr_register(get_eeprom()->get_reg_eecon2(), 0x89); } //------------------------------------------------------------------- void P16X8X::set_out_of_range_pm(unsigned int address, unsigned int value) { if( (address>= 0x2100) && (address < 0x2100 + get_eeprom()->get_rom_size())) get_eeprom()->change_rom(address - 0x2100, value); } void P16X8X::create_iopin_map() { package = new Package(18); if(!package) return; // Now Create the package and place the I/O pins package->assign_pin(17, m_porta->addPin(new IO_bi_directional("porta0"),0)); package->assign_pin(18, m_porta->addPin(new IO_bi_directional("porta1"),1)); package->assign_pin( 1, m_porta->addPin(new IO_bi_directional("porta2"),2)); package->assign_pin( 2, m_porta->addPin(new IO_bi_directional("porta3"),3)); package->assign_pin( 3, m_porta->addPin(new IO_open_collector("porta4"),4)); package->assign_pin( 4, 0); package->assign_pin( 5, 0); package->assign_pin( 6, m_portb->addPin(new IO_bi_directional_pu("portb0"),0)); package->assign_pin( 7, m_portb->addPin(new IO_bi_directional_pu("portb1"),1)); package->assign_pin( 8, m_portb->addPin(new IO_bi_directional_pu("portb2"),2)); package->assign_pin( 9, m_portb->addPin(new IO_bi_directional_pu("portb3"),3)); package->assign_pin(10, m_portb->addPin(new IO_bi_directional_pu("portb4"),4)); package->assign_pin(11, m_portb->addPin(new IO_bi_directional_pu("portb5"),5)); package->assign_pin(12, m_portb->addPin(new IO_bi_directional_pu("portb6"),6)); package->assign_pin(13, m_portb->addPin(new IO_bi_directional_pu("portb7"),7)); package->assign_pin(14, 0); package->assign_pin(15, 0); package->assign_pin(16, 0); } void P16X8X::create(int _ram_top) { EEPROM *e; ram_top = _ram_top; create_iopin_map(); _14bit_processor::create(); e = new EEPROM(this); e->initialize(EEPROM_SIZE); e->set_intcon(&intcon_reg); set_eeprom(e); add_file_registers(0x0c, ram_top, 0x80); P16X8X::create_sfr_map(); } //======================================================================== // // Pic 16C84 // Processor * P16C84::construct(const char *name) { P16C84 *p = new P16C84(name); p->create(0x2f); p->create_invalid_registers (); p->create_symbols(); return p; } P16C84::P16C84(const char *_name, const char *desc) : P16X8X(_name,desc) { } void P16C84::create(int ram_top) { P16X8X::create(0x2f); createMCLRPin(4); } //======================================================================== // // Pic 16F84 // Processor * P16F84::construct(const char *name) { P16F84 *p = new P16F84(name); p->create(0x4f); p->create_invalid_registers (); p->create_symbols(); return p; } P16F84::P16F84(const char *_name, const char *desc) : P16X8X(_name,desc) { } void P16F84::create(int ram_top) { P16X8X::create(0x4f); createMCLRPin(4); } //======================================================================== // // Pic 16F83 // P16F83::P16F83(const char *_name, const char *desc) : P16X8X(_name,desc) { } Processor * P16F83::construct(const char *name) { P16F83 *p = new P16F83(name);; p->create(0x2f); p->create_invalid_registers (); p->create_symbols(); return p; } void P16F83::create(int ram_top) { P16X8X::create(0x2f); createMCLRPin(4); } //======================================================================== P16CR83::P16CR83(const char *_name, const char *desc) : P16F83(_name,desc) { } Processor * P16CR83::construct(const char *name) { return 0; } //======================================================================== P16CR84::P16CR84(const char *_name, const char *desc) : P16F84(_name,desc) { } Processor * P16CR84::construct(const char *name) { return 0; } gpsim-0.27.0/src/gpsim_time.h0000664000076400007640000001511212162224370012746 00000000000000/* Copyright (C) 1998-2000 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __GPSIM_TIME_H__ #define __GPSIM_TIME_H__ #include "breakpoints.h" #include "exports.h" //--------------------------------------------------------- // Cycle Counter // // The cycle counter class is used to coordinate the timing // between the different peripherals within a processor and // in some cases, the timing between several simulated processors // and modules. // // The smallest quantum of simulated time is called a 'cycle'. // The simuluation engine increments a 'Cycle Counter' at quantum // simulation step. Simulation objects that wished to be notified // at a specific instance in time can set a cycle counter break // point that will get invoked whenever the cycle counter reaches // that instance. //------------------------------------------------------------ // // Cycle counter breakpoint list // // This is a friend class to the Cycle Counter class. Its purpose // is to maintain a doubly linked list of cycle counter break // points. class Cycle_Counter_breakpoint_list { public: // This is the value compared to the cycle counter. guint64 break_value; // True when this break is active. bool bActive; // The breakpoint_number is a number uniquely identifying this // cycle counter break point. Note, this number is used only // when the break point was assigned by a user unsigned int breakpoint_number; // If non-null, the TriggerObject will point to an object that will get invoked // when the breakpoint is encountered. TriggerObject *f; // Doubly-linked list mechanics.. // (these will be made private eventually) Cycle_Counter_breakpoint_list *next; Cycle_Counter_breakpoint_list *prev; Cycle_Counter_breakpoint_list *getNext(); Cycle_Counter_breakpoint_list *getPrev(); void clear(); void invoke(); }; class Cycle_Counter { public: #define BREAK_ARRAY_SIZE 32 #define BREAK_ARRAY_MASK (BREAK_ARRAY_SIZE -1) // Largest cycle counter value static const guint64 END_OF_TIME=0xFFFFFFFFFFFFFFFFULL; bool reassigned; // Set true when a break point is reassigned (or deleted) Cycle_Counter_breakpoint_list active, // Head of the active breakpoint linked list inactive; // Head of the inactive one. bool bSynchronous; // a flag that's true when the time per counter tick is constant Cycle_Counter(); void preset(guint64 new_value); // not used currently. /* increment - This inline member function is called once or twice for every simulated instruction. Its purpose is to increment the cycle counter using roll over arithmetic. If there's a breakpoint set on the new value of the cycle counter then the simulation is either stopped or a callback function is invoked. In either case, the break point is cleared. */ inline void increment() { // This has been changed so the cycle counter (value) // is incremented after processing breakpoints // Increment the current cycle then check if // we have a break point set here if(value == break_on_this) breakpoint(); value++; // Note that it's really inefficient to trace every cycle increment. // Instead, we implicitly trace the increments with the instruction traces. } /* advance the Cycle Counter by more than one instruction quantum. This is almost identical to the increment() function except that we allow the counter to be advanced by an arbitrary amount. They're separated only for efficiency reasons. This one runs slower. */ inline void advance(guint64 step) { while (step--) { if (value == break_on_this) breakpoint(); } value++; } // Return the current cycle counter value guint64 get() { return value; } // Return the cycle counter for some time off in the future: guint64 get(double future_time_from_now); bool set_break(guint64 future_cycle, TriggerObject *f=0, unsigned int abp = MAX_BREAKPOINTS); bool set_break_delta(guint64 future_cycle, TriggerObject *f=0, unsigned int abp = MAX_BREAKPOINTS); bool reassign_break(guint64 old_cycle,guint64 future_cycle, TriggerObject *f=0); void clear_current_break(TriggerObject *f=0); void dump_breakpoints(); void clear_break(guint64 at_cycle); void clear_break(TriggerObject *f); void set_instruction_cps(guint64 cps); double instruction_cps() { return m_instruction_cps; } double seconds_per_cycle() { return m_seconds_per_cycle; } private: // The number of instruction cycles that correspond to one second double m_instruction_cps; double m_seconds_per_cycle; guint64 value; // Current value of the cycle counter. guint64 break_on_this; // If there's a pending cycle break point, then it'll be this /* breakpoint when the member function "increment()" encounters a break point, breakpoint() is called. */ void breakpoint(); }; #if defined(IN_MODULE) && defined(_WIN32) // we are in a module: don't access cycles object directly! LIBGPSIM_EXPORT Cycle_Counter &get_cycles(); #else // we are in gpsim: use of get_cycles() is recommended, // even if cycles object can be accessed directly. extern Cycle_Counter cycles; inline Cycle_Counter &get_cycles() { return cycles; } #endif /// The stopwatch object is used to keep track of the amount of /// time between events. It can be controlled either through the /// class API or through its attributes class StopWatch : public TriggerObject { public: StopWatch(); ~StopWatch(); guint64 get(); double get_time(); void set_enable(bool); void set_direction(bool); void set_rollover(guint64); void set_value(guint64); void set_break(bool); void update(); virtual void callback(); virtual void callback_print(); private: Integer *value; Integer *rollover; Boolean *enable; Boolean *direction; bool count_dir; guint64 offset; guint64 break_cycle; }; extern StopWatch *stop_watch; #endif gpsim-0.27.0/src/trace.h0000664000076400007640000004730612163444266011732 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __TRACE_H__ #define __TRACE_H__ #include #include #include "exports.h" #include "gpsim_classes.h" #include "trigger.h" #include "value.h" #include "registers.h" extern "C" { #include "lxt_write.h" } class Processor; class Trace; class TraceFrame; //======================================================================== // A 'TraceObject' is created when the contents of the Trace buffer are // displayed. The TraceObjects are placed into TraceFrames, and eventually // the entire frame is displayed. class TraceObject { public: TraceObject(); virtual ~TraceObject() { } virtual void print(FILE *)=0; virtual void print_frame(TraceFrame *,FILE *); virtual void getState(TraceFrame *); // FIXME Is this even used? }; class CycleTraceObject : public TraceObject { public: CycleTraceObject(); virtual ~CycleTraceObject() { } virtual void print(FILE *); virtual void print_frame(TraceFrame *,FILE *); virtual void getState(TraceFrame *); }; class InvalidTraceObject : public TraceObject { public: InvalidTraceObject(int type); virtual ~InvalidTraceObject() { } virtual void print(FILE *); protected: int mType; }; class ProcessorTraceObject : public TraceObject { public: Processor *cpu; ProcessorTraceObject(Processor *_cpu) : TraceObject() , cpu(_cpu) { } virtual ~ProcessorTraceObject() { } virtual void print(FILE *)=0; }; class ModuleTraceType; class ModuleTraceObject : public TraceObject { public: Module *pModule; ModuleTraceType *pModuleTraceType; unsigned int mTracedData; ModuleTraceObject(Module *_module, ModuleTraceType *pmtt, unsigned int d) : TraceObject() , pModule(_module), pModuleTraceType(pmtt), mTracedData(d) { } virtual ~ModuleTraceObject() { } virtual void print(FILE *); }; class RegisterWriteTraceObject : public ProcessorTraceObject { public: Register *reg; RegisterValue from; RegisterValue to; RegisterWriteTraceObject(Processor *_cpu, Register *_reg, RegisterValue trv); virtual ~RegisterWriteTraceObject() { } virtual void print(FILE *); virtual void getState(TraceFrame *); }; class RegisterReadTraceObject : public RegisterWriteTraceObject { public: RegisterReadTraceObject(Processor *_cpu, Register *_reg, RegisterValue trv); virtual ~RegisterReadTraceObject() { } virtual void print(FILE *); virtual void getState(TraceFrame *); }; class PCTraceObject : public ProcessorTraceObject { public: unsigned int address; PCTraceObject(Processor *_cpu, unsigned int _address); virtual ~PCTraceObject() { } virtual void print(FILE *); virtual void print_frame(TraceFrame *,FILE *); }; //======================================================================== // The TraceType class is the base class for the various trace types that // are supported by gpsim. In general, when a trace type is created, // a 32 bit identifier is created. The upper byte of this identifier is // the "type" of the trace and is dynamically allocated. The lower 24 // bits of this identifer are 0. When a TraceType is traced, the lower // 24 bits are filled with the information that is to be recorded in // the trace buffer. The whole 32 bits are then written to the trace buffer // array. class TraceType { public: TraceType(unsigned int nTraceEntries, const char *desc); virtual ~TraceType() { } void setType(unsigned int t) { mType = t;} // The actual type of the TraceType is an 8-bit field in the // upper 32-bits of an unsigned integer. A TraceType can have // more than one type, although the types are consecutive. unsigned int type(unsigned int iType=0) { return (iType= (mType&tMask)) && ((aType&tMask) <= ((mType&tMask) + (mSize<<24))); } virtual int bitsTraced() { return 24; } virtual int dump_raw(Trace *,unsigned tbi, char *buf, int bufsize); // Debugging - provide a way to see the TraceTypes that have been allocated. virtual void showInfo(); const char *cpDescription(); private: unsigned int mType; // The integer type is dynamically // assigned by the Trace class. unsigned int mSize; // The number of positions this // type occupies protected: const char *mpDescription; // }; class CycleTraceType : public TraceType { public: CycleTraceType(unsigned int nTraceEntries); virtual ~CycleTraceType() { } virtual TraceObject *decode(unsigned int tbi); virtual bool isFrameBoundary(); virtual int dump_raw(Trace *,unsigned tbi, char *buf, int bufsize); virtual int entriesUsed(Trace *,unsigned int tbi); }; class ModuleTraceType : public TraceType { public: Module *pModule; ModuleTraceType(Module *_pModule, unsigned int nTraceEntries, const char *desc); virtual ~ModuleTraceType() { } virtual TraceObject *decode(unsigned int tbi); virtual int dump_raw(Trace *,unsigned tbi, char *buf, int bufsize); }; class ProcessorTraceType : public TraceType { public: Processor *cpu; ProcessorTraceType(Processor *_cpu, unsigned int nTraceEntries, const char *pDesc); virtual ~ProcessorTraceType() { } virtual TraceObject *decode(unsigned int tbi) = 0; }; class PCTraceType : public ProcessorTraceType { public: PCTraceType(Processor *_cpu, unsigned int nTraceEntries); virtual ~PCTraceType() { } virtual TraceObject *decode(unsigned int tbi); virtual bool isFrameBoundary() { return true; } virtual int dump_raw(Trace *,unsigned tbi, char *buf, int bufsize); }; class RegisterWriteTraceType : public ProcessorTraceType { public: RegisterWriteTraceType(Processor *_cpu, unsigned int nTraceEntries); virtual ~RegisterWriteTraceType() { } virtual TraceObject *decode(unsigned int tbi); virtual int dump_raw(Trace *,unsigned tbi, char *buf, int bufsize); }; class RegisterReadTraceType : public ProcessorTraceType { public: RegisterReadTraceType(Processor *_cpu, unsigned int nTraceEntries); virtual ~RegisterReadTraceType() { } virtual TraceObject *decode(unsigned int tbi); virtual int dump_raw(Trace *,unsigned tbi, char *buf, int bufsize); }; // Trace Type for Resets class ResetTraceObject : public ProcessorTraceObject { public: ResetTraceObject(Processor *_cpu, RESET_TYPE r); virtual ~ResetTraceObject() { } virtual void print(FILE *fp); protected: RESET_TYPE m_reset; }; class ResetTraceType : public ProcessorTraceType { public: ResetTraceType(Processor *_cpu); virtual ~ResetTraceType() { } TraceObject *decode(unsigned int tbi); void record(RESET_TYPE r); int dump_raw(Trace *pTrace,unsigned int tbi, char *buf, int bufsize); unsigned int m_uiTT; }; //======================================================================== // TraceFrame // // A trace frame collects all trace items that occurred at the same instant // of time. When the trace buffer is decoded, markers will be examined // to determine the frame boundaries. class TraceFrame { public: list traceObjects; guint64 cycle_time; TraceFrame(); virtual ~TraceFrame(); virtual void add(TraceObject *to); virtual void print(FILE *); virtual void update_state(void); }; //----------------------------------------------------------- class TraceRawLog { public: char *log_filename; FILE *log_file; void log(); void enable(const char*); void disable(); TraceRawLog(); ~TraceRawLog(); }; //------------------------------------------------------------ class traceValue : public gpsimObject { public: traceValue(); virtual void put_value(unsigned int new_value) {}; virtual unsigned int get_value(); }; //--------------------------------------------------------- // Class for trace buffer class Trace { public: enum eTraceTypes { NOTHING = 0x3fffffff, LAST_TRACE_TYPE = (1<<24), TYPE_MASK = (0xff<<24), CYCLE_COUNTER_LO = (0x80<<24), CYCLE_COUNTER_HI = (0x40<<24) }; #define TRACE_BUFFER_SIZE (1<<12) #define TRACE_BUFFER_MASK (TRACE_BUFFER_SIZE-1) #define TRACE_BUFFER_NEAR_FULL (TRACE_BUFFER_SIZE * 3 /4) #define TRACE_STRING_BUFFER 50 unsigned int trace_buffer[TRACE_BUFFER_SIZE]; unsigned int trace_index; unsigned int trace_flag; bool bLogging; TraceRawLog logger; traceValue trace_value; // When interfaced with a gui, the contents of the trace // buffer are decoded one line-at-a-time, copied to the string_buffer // and sent to the gui via xref interface (actually, the gui // is notified that new data is available in the string_buffer). XrefObject *xref; char string_buffer[TRACE_STRING_BUFFER]; guint64 string_cycle; // The cycle corresponding to the decoded string unsigned int string_index; // The trace buffer index corresponding " " Processor *cpu; TraceFrame *current_frame; guint64 current_cycle_time; // used when decoding the trace buffer. list traceFrames; unsigned int lastTraceType; unsigned int lastSubTraceType; Trace (void); ~Trace(void); // trace raw allows any value to be written to the trace buffer. // This is useful for modules that wish to trace things, but do // not wish to modify the Trace class. inline void raw (unsigned int ui) { trace_buffer[trace_index] = ui; trace_index = (trace_index + 1) & TRACE_BUFFER_MASK; } /* inline void opcode_write (unsigned int address, unsigned int opcode) { trace_buffer[trace_index] = OPCODE_WRITE | (address & 0xffffff); trace_index = (trace_index + 1) & TRACE_BUFFER_MASK; trace_buffer[trace_index] = OPCODE_WRITE | (opcode & 0xffff); trace_index = (trace_index + 1) & TRACE_BUFFER_MASK; } */ inline void cycle_counter (guint64 cc) { //RRRprintf("trace.cycle_counter index %x cycle %x\n", trace_index, (unsigned int)(cc & 0xffffffff)); // The 64 bit cycle counter requires two 32 bit traces. trace_buffer[trace_index] = (unsigned int)(CYCLE_COUNTER_LO | (cc & 0xffffffff)); trace_index = (trace_index + 1) & TRACE_BUFFER_MASK; trace_buffer[trace_index] = (unsigned int)(CYCLE_COUNTER_HI | (cc>>32) | (cc & CYCLE_COUNTER_LO)); trace_index = (trace_index + 1) & TRACE_BUFFER_MASK; } inline bool near_full(void) { return (trace_index > TRACE_BUFFER_NEAR_FULL); } void switch_cpus(Processor *new_cpu) {cpu = new_cpu;}; int dump (int n=0, FILE *out_stream=0); void dump_last_instruction(void); int dump1(unsigned int,char *, int); void dump_raw(int n); // tbi - trace buffer index masking. inline unsigned int tbi(unsigned int index) { return index & TRACE_BUFFER_MASK; } // inRange - returns true if the trace index i is between the // indices of low and high. // It's assumed that the range does not exceed half of the trace buffer bool inRange(unsigned int i, unsigned int low, unsigned int high) { i = tbi(i); if( low < high) return (i >= low && i <= high); // Looks like the range straddles the roll over boundary. return (i >= low || i <= high); } // get() return the trace entry at 'index' inline unsigned int operator [] (unsigned int index) { return trace_buffer[tbi(index)]; } unsigned int get(unsigned int index) { return trace_buffer[tbi(index)]; } // type() - return the trace type at 'index' unsigned int type(unsigned int index); // A gpsim clock cycle takes two consecutive trace buffer entries. // The is_cycle_trace() member function will examine the trace // buffer to determine if the two traces starting at 'index' are // a cycle trace. int is_cycle_trace(unsigned int index, guint64 *cvt_cycle); // When logging is enabled, the entire trace buffer will be copied to a file. void enableLogging(const char *fname); void disableLogging(); unsigned int allocateTraceType(TraceType *); // Trace frame manipulation void addFrame(TraceFrame *newFrame); void addToCurrentFrame(TraceObject *to); void deleteTraceFrame(void); void printTraceFrame(FILE *); // Display information about allocated traces. void showInfo(); }; #if defined(IN_MODULE) && defined(_WIN32) // we are in a module: don't access trace object directly! LIBGPSIM_EXPORT Trace & get_trace(void); #else // we are in gpsim: use of get_trace() is recommended, // even if trace object can be accessed directly. extern Trace trace; inline Trace &get_trace(void) { return trace; } #endif //----------------------------------------------------------- #define TRACE_FILE_FORMAT_ASCII 0 #define TRACE_FILE_FORMAT_LXT 1 class TraceLog : public TriggerObject { public: bool logging; bool lograw; int items_logged; char *log_filename; FILE *log_file; Processor *cpu; unsigned int last_trace_index; Trace buffer; int file_format; struct lt_trace *lxtp; struct lt_symbol *symp; TraceLog(void); ~TraceLog(void); virtual void callback(void); void enable_logging(const char *new_filename=0, int format=TRACE_FILE_FORMAT_ASCII); void disable_logging(void); void switch_cpus(Processor *new_cpu); void open_logfile(const char *new_fname, int format); void close_logfile(void); void write_logfile(void); void status(void); void lxt_trace(unsigned int address, unsigned int value, guint64 cc); void register_read(Register *, guint64 cc); void register_write(Register *, guint64 cc); void register_read_value(Register *, guint64 cc); void register_write_value(Register *, guint64 cc); }; #if defined(_WIN32) // we are in a module: don't access trace_log object directly! LIBGPSIM_EXPORT TraceLog & GetTraceLog(void); #else // we are in gpsim: use of GetTraceLog() is recommended, // even if trace_log object can be accessed directly. extern TraceLog trace_log; inline TraceLog &GetTraceLog(void) { return trace_log; } #endif //----------------------------------------------------------- class ProfileKeeper : public TriggerObject { public: bool enabled; Processor *cpu; unsigned int last_trace_index; unsigned int instruction_address; unsigned int trace_pc_value; ProfileKeeper(void); ~ProfileKeeper(void); void catchup(void); virtual void callback(void); void enable_profiling(void); void disable_profiling(void); void switch_cpus(Processor *new_cpu); }; extern ProfileKeeper profile_keeper; /********************************************************************** * boolean event logging * * The boolean event logger is a class for logging the time * of boolean (i.e. 0/1) events. * * The class is designed to be efficient for both logging events and * for accessing events that have already been logged. The events * are stored in several small buffers that are linked together with * binary trees. Each small buffer is linear, i.e. an array. Each * element of the array stores the time when the event occurred. * The state of the event is encoded in the position of the array. * In other words, "high" events are at the odd indices of the array * and "low" ones at the even ones. * * Each small buffer is associated with a contiguous time span. The * start and end of this span is recorded so that one can quickly * ascertain if a certain time instant resideds in the buffer. * * The binary tree is fairly standard. A single top node records three * numbers: the start time for the left child, the end time for the * left child (which by default is the start time for the right child) * and the end time for the right child. The nodes of left and right * children are similar to the parents. To find which small buffer * contains an event for a certain time, one simply starts at the * top of the tree and traverses the nodes until a leaf is reached. * A leaf, of course, is where the data is stored. * * The time for the event comes from gpsim's global cycle counter. * This counter is 64-bits wide. The buffers that store the time however, * are only 32-bits wide. There are two simple tricks employed to get * around this problem. First, full 64-bit time for the first event * is recorded. All subsequent events are 32-bit offsets from this. * Second, to ensure that the 32-bit offset does not wrap around, the * boolean event logger will set a cycle counter break point that is * less than 2^32 cycles in the future. If this break point is encountered * before the buffer fills, then this buffer is closed and added to the * binary and a new buffer is started. * * Repeated events are not logged. E.g.. if two 1's are logged, the * second one is ignored. * */ class BoolEventBuffer : public TriggerObject { public: guint32 index; // Index into the buffer guint64 *buffer; // Where the time is stored guint32 max_events; // Size of the event buffer guint64 start_time; // time of the first event guint64 future_cycle; // time at which the buffer can store no more data. bool bInitialState; // State when started. bool bActive; // True if the buffer is enabled for storing. bool bFull; // True if the buffer has been filled. BoolEventBuffer(bool _initial_state, guint32 _max_events = 4096); ~BoolEventBuffer(void); unsigned int get_index(guint64 event_time); void activate(bool _initial_state); void deactivate(void); void callback(void); void callback_print(void); inline bool event(bool state); inline bool isActive(void) { return bActive; } inline bool isFull(void) { return (index < max_events); } /* get_index - return the current index This is used by the callers to record where in the event buffer a specific event is stored. (e.g. The start bit of a usart bit stream.) */ inline unsigned int get_index(void) { return index; } bool get_event(int index) { return (index & 1)^bInitialState; } bool get_state(guint64 event_time) { return get_event(get_index(event_time)); } int get_edges(guint64 start_time, guint64 end_time) { return ( get_index(end_time) - get_index(start_time) ); } }; #endif gpsim-0.27.0/src/p18x.cc0000664000076400007640000022372412175377101011566 00000000000000/* Copyright (C) 1998 T. Scott Dattalo Copyright (C) 2010 Roy R Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include #include #include "../config.h" #include "p18x.h" #include "pic-ioports.h" #include "packages.h" #include "stimuli.h" #include "symbol.h" #define MCLRE (1<<7) #define LPT1OSC (1<<2) #define PBADEN (1<<1) #define CCP2MX (1<<0) /** * A special variant of the Config3H class that includes all the bits that * config register does on PIC18F2x21 and derivatives (including 4620). Note * that the "set" method requires that the parent processor is an instance * of the P18F2x21 class (or a derived variant thereof). */ class Config3H_2x21 : public ConfigWord { public: Config3H_2x21(_16bit_processor *pCpu, unsigned int addr, unsigned int def_val) : ConfigWord("CONFIG3H", ~def_val & 0xfff, "Config Reg 3H", pCpu, addr) { set(def_val); if (verbose) cout << "Config3H_2x21\n"; } virtual void set(gint64 v) { gint64 i64; get(i64); int diff = (i64 ^ v) &0xfff; Integer::set(v); if (m_pCpu) { P18F2x21 *pCpu21 = (P18F2x21*)m_pCpu; if (diff & MCLRE) (v & MCLRE) ? m_pCpu->assignMCLRPin(1) : m_pCpu->unassignMCLRPin(); if ( pCpu21->adcon1 ) { unsigned int pcfg = (v & PBADEN) ? 0 : (ADCON1::PCFG0 | ADCON1::PCFG1 | ADCON1::PCFG2); pCpu21->adcon1->por_value=RegisterValue(pcfg,0); } if ( diff & CCP2MX ) { if ( v & CCP2MX ) pCpu21->ccp2con.setIOpin(&((*pCpu21->m_portc)[1])); else pCpu21->ccp2con.setIOpin(&((*pCpu21->m_portb)[3])); } } } virtual string toString() { gint64 i64; get(i64); int i = i64 &0xfff; char buff[256]; snprintf(buff, sizeof(buff), "$%04x\n" " MCLRE=%d - %s\n" " LPT1OSC=%d - Timer1 configured for %s operation\n" " PBADEN=%d - PORTB<4:0> pins %s\n" " CCP2MX=%d - CCP2 I/O is muxed with %s\n", i, (i & MCLRE) ? 1:0, (i & MCLRE) ? "Pin is MCLRE" : "Pin is RE3", (i & LPT1OSC) ? 1:0, (i & LPT1OSC) ? "low-power" : "higher power", (i & PBADEN) ?1:0, (i & PBADEN) ? "analog on Reset" : "digital I/O on reset", (i & CCP2MX) ? 1:0, (i & CCP2MX) ? "RC1" : "RB3" ); return string(buff); } }; //---------------------------------------------------------------------- // For only MCLRE in CONFIG3H and using pin 4 (RA5) // class Config3H_1x20 : public ConfigWord { public: Config3H_1x20(_16bit_processor *pCpu, unsigned int addr, unsigned int def_val) : ConfigWord("CONFIG3H", ~def_val & 0xfff, "Config Reg 3H", pCpu, addr) { set(def_val); } virtual void set(gint64 v) { gint64 i64; get(i64); int diff = (i64 ^ v) &0xfff; Integer::set(v); if (m_pCpu) { if (diff & MCLRE) (v & MCLRE) ? m_pCpu->assignMCLRPin(4) : m_pCpu->unassignMCLRPin(); } } virtual string toString() { gint64 i64; get(i64); int i = i64 &0xfff; char buff[256]; snprintf(buff, sizeof(buff), "$%04x\n" " MCLRE=%d - %s\n", i, (i & MCLRE) ? 1:0, (i & MCLRE) ? "Pin is MCLRE" : "Pin is RA5" ); return string(buff); } }; //======================================================================== // // Pic 18C2x2 // void P18C2x2::create() { if(verbose) cout << "P18C2x2::create\n"; create_iopin_map(); _16bit_compat_adc::create(); } //------------------------------------------------------------------------ void P18C2x2::create_iopin_map() { package = new Package(28); if(!package) return; // Build the links between the I/O Ports and their tris registers. //package->assign_pin(1, 0); // /MCLR createMCLRPin(1); package->assign_pin( 2, m_porta->addPin(new IO_bi_directional("porta0"),0)); package->assign_pin( 3, m_porta->addPin(new IO_bi_directional("porta1"),1)); package->assign_pin( 4, m_porta->addPin(new IO_bi_directional("porta2"),2)); package->assign_pin( 5, m_porta->addPin(new IO_bi_directional("porta3"),3)); package->assign_pin( 6, m_porta->addPin(new IO_open_collector("porta4"),4)); package->assign_pin( 7, m_porta->addPin(new IO_bi_directional("porta5"),5)); package->assign_pin(8, 0); // Vss package->assign_pin(9, 0); // OSC1 package->assign_pin(10, m_porta->addPin(new IO_bi_directional("porta6"),6)); package->assign_pin(11, m_portc->addPin(new IO_bi_directional("portc0"),0)); package->assign_pin(12, m_portc->addPin(new IO_bi_directional("portc1"),1)); package->assign_pin(13, m_portc->addPin(new IO_bi_directional("portc2"),2)); package->assign_pin(14, m_portc->addPin(new IO_bi_directional("portc3"),3)); package->assign_pin(15, m_portc->addPin(new IO_bi_directional("portc4"),4)); package->assign_pin(16, m_portc->addPin(new IO_bi_directional("portc5"),5)); package->assign_pin(17, m_portc->addPin(new IO_bi_directional("portc6"),6)); package->assign_pin(18, m_portc->addPin(new IO_bi_directional("portc7"),7)); package->assign_pin(19, 0); // Vss package->assign_pin(20, 0); // Vdd package->assign_pin(21, m_portb->addPin(new IO_bi_directional_pu("portb0"),0)); package->assign_pin(22, m_portb->addPin(new IO_bi_directional_pu("portb1"),1)); package->assign_pin(23, m_portb->addPin(new IO_bi_directional_pu("portb2"),2)); package->assign_pin(24, m_portb->addPin(new IO_bi_directional_pu("portb3"),3)); package->assign_pin(25, m_portb->addPin(new IO_bi_directional_pu("portb4"),4)); package->assign_pin(26, m_portb->addPin(new IO_bi_directional_pu("portb5"),5)); package->assign_pin(27, m_portb->addPin(new IO_bi_directional_pu("portb6"),6)); package->assign_pin(28, m_portb->addPin(new IO_bi_directional_pu("portb7"),7)); tmr1l.setIOpin(&(*m_portc)[0]); ssp.initialize(&pir_set_def, // PIR &(*m_portc)[3], // SCK &(*m_porta)[5], // SS &(*m_portc)[5], // SDO &(*m_portc)[4], // SDI m_trisc, // i2c tris port SSP_TYPE_MSSP ); set_osc_pin_Number(0,9, NULL); set_osc_pin_Number(1,10, &(*m_porta)[6]); //1portc.usart = &usart16; } void P18C2x2::create_symbols() { if(verbose) cout << "P18C2x2 create symbols\n"; _16bit_processor::create_symbols(); } P18C2x2::P18C2x2(const char *_name, const char *desc) : _16bit_compat_adc(_name,desc) { if(verbose) cout << "18c2x2 constructor, type = " << isa() << '\n'; } //------------------------------------------------------------------------ // // P18C242 // P18C242::P18C242(const char *_name, const char *desc) : P18C2x2(_name,desc) { if(verbose) cout << "18c242 constructor, type = " << isa() << '\n'; } void P18C242::create() { if(verbose) cout << " 18c242 create \n"; P18C2x2::create(); } Processor * P18C242::construct(const char *name) { P18C242 *p = new P18C242(name); if(verbose) cout << " 18c242 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); return p; } //------------------------------------------------------------------------ // // P18C252 // P18C252::P18C252(const char *_name, const char *desc) : P18C242(_name,desc) { if(verbose) cout << "18c252 constructor, type = " << isa() << '\n'; } void P18C252::create() { if(verbose) cout << " 18c252 create \n"; P18C242::create(); } Processor * P18C252::construct(const char *name) { P18C252 *p = new P18C252(name);; if(verbose) cout << " 18c252 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); return p; } //======================================================================== // // Pic 18C4x2 // void P18C4x2::create() { if(verbose) cout << "P18C4x2::create\n"; create_iopin_map(); _16bit_compat_adc::create(); } //------------------------------------------------------------------------ void P18C4x2::create_iopin_map() { package = new Package(40); if(!package) return; createMCLRPin(1); package->assign_pin( 2, m_porta->addPin(new IO_bi_directional("porta0"),0)); package->assign_pin( 3, m_porta->addPin(new IO_bi_directional("porta1"),1)); package->assign_pin( 4, m_porta->addPin(new IO_bi_directional("porta2"),2)); package->assign_pin( 5, m_porta->addPin(new IO_bi_directional("porta3"),3)); package->assign_pin( 6, m_porta->addPin(new IO_open_collector("porta4"),4)); package->assign_pin( 7, m_porta->addPin(new IO_bi_directional("porta5"),5)); package->assign_pin( 8, m_porte->addPin(new IO_bi_directional("porte0"),0)); package->assign_pin( 9, m_porte->addPin(new IO_bi_directional("porte1"),1)); package->assign_pin(10, m_porte->addPin(new IO_bi_directional("porte2"),2)); package->assign_pin(11, 0); package->assign_pin(12, 0); package->assign_pin(13, new IOPIN("OSC1")); package->assign_pin(14, m_porta->addPin(new IO_bi_directional("porta6"),6)); package->assign_pin(15, m_portc->addPin(new IO_bi_directional("portc0"),0)); package->assign_pin(16, m_portc->addPin(new IO_bi_directional("portc1"),1)); package->assign_pin(17, m_portc->addPin(new IO_bi_directional("portc2"),2)); package->assign_pin(18, m_portc->addPin(new IO_bi_directional("portc3"),3)); package->assign_pin(23, m_portc->addPin(new IO_bi_directional("portc4"),4)); package->assign_pin(24, m_portc->addPin(new IO_bi_directional("portc5"),5)); package->assign_pin(25, m_portc->addPin(new IO_bi_directional("portc6"),6)); package->assign_pin(26, m_portc->addPin(new IO_bi_directional("portc7"),7)); package->assign_pin(19, m_portd->addPin(new IO_bi_directional("portd0"),0)); package->assign_pin(20, m_portd->addPin(new IO_bi_directional("portd1"),1)); package->assign_pin(21, m_portd->addPin(new IO_bi_directional("portd2"),2)); package->assign_pin(22, m_portd->addPin(new IO_bi_directional("portd3"),3)); package->assign_pin(27, m_portd->addPin(new IO_bi_directional("portd4"),4)); package->assign_pin(28, m_portd->addPin(new IO_bi_directional("portd5"),5)); package->assign_pin(29, m_portd->addPin(new IO_bi_directional("portd6"),6)); package->assign_pin(30, m_portd->addPin(new IO_bi_directional("portd7"),7)); package->assign_pin(31, 0); package->assign_pin(32, 0); package->assign_pin(33, m_portb->addPin(new IO_bi_directional_pu("portb0"),0)); package->assign_pin(34, m_portb->addPin(new IO_bi_directional_pu("portb1"),1)); package->assign_pin(35, m_portb->addPin(new IO_bi_directional_pu("portb2"),2)); package->assign_pin(36, m_portb->addPin(new IO_bi_directional_pu("portb3"),3)); package->assign_pin(37, m_portb->addPin(new IO_bi_directional_pu("portb4"),4)); package->assign_pin(38, m_portb->addPin(new IO_bi_directional_pu("portb5"),5)); package->assign_pin(39, m_portb->addPin(new IO_bi_directional_pu("portb6"),6)); package->assign_pin(40, m_portb->addPin(new IO_bi_directional_pu("portb7"),7)); psp.initialize(&pir_set_def, // PIR m_portd, // Parallel port m_trisd, // Parallel tris m_trise, // Control tris &(*m_porte)[0], // NOT RD &(*m_porte)[1], // NOT WR &(*m_porte)[2]); // NOT CS tmr1l.setIOpin(&(*m_portc)[0]); ssp.initialize(&pir_set_def, // PIR &(*m_portc)[3], // SCK &(*m_porta)[5], // SS &(*m_portc)[5], // SDO &(*m_portc)[4], // SDI m_trisc, // i2c tris port SSP_TYPE_MSSP ); //1portc.ccp1con = &ccp1con; //1portc.usart = &usart16; } void P18C4x2::create_symbols() { if(verbose) cout << "P18C4x2 create symbols\n"; _16bit_processor::create_symbols(); } P18C4x2::P18C4x2(const char *_name, const char *desc) : _16bit_compat_adc(_name,desc) { if(verbose) cout << "18c4x2 constructor, type = " << isa() << '\n'; m_portd = new PicPSP_PortRegister(this,"portd","",8,0xff); m_trisd = new PicTrisRegister(this,"trisd","", (PicPortRegister *)m_portd, false); m_latd = new PicLatchRegister(this,"latd","",m_portd); m_porte = new PicPortRegister(this,"porte","",8,0x07); m_trise = new PicPSP_TrisRegister(this,"trise","", m_porte, false); m_late = new PicLatchRegister(this,"late","",m_porte); } P18C4x2::~P18C4x2() { delete_sfr_register(m_portd); delete_sfr_register(m_porte); delete_sfr_register(m_latd); delete_sfr_register(m_late); delete_sfr_register(m_trisd); delete_sfr_register(m_trise); } void P18C4x2::create_sfr_map() { if(verbose) cout << "create_sfr_map P18C4x2\n"; _16bit_processor::create_sfr_map(); RegisterValue porv(0,0); add_sfr_register(m_portd, 0xf83,porv); add_sfr_register(m_porte, 0xf84,porv); add_sfr_register(m_latd, 0xf8c,porv); add_sfr_register(m_late, 0xf8d,porv); add_sfr_register(m_trisd, 0xf95,RegisterValue(0xff,0)); add_sfr_register(m_trise, 0xf96,RegisterValue(0x07,0)); // rest of configureation in parent class adcon1->setNumberOfChannels(8); adcon1->setIOPin(5, &(*m_porte)[0]); adcon1->setIOPin(6, &(*m_porte)[1]); adcon1->setIOPin(7, &(*m_porte)[2]); //1 usart16.initialize_16(this,&pir_set_def,&portc); } //------------------------------------------------------------------------ // // P18C442 // P18C442::P18C442(const char *_name, const char *desc) : P18C4x2(_name,desc) { if(verbose) cout << "18c442 constructor, type = " << isa() << '\n'; } void P18C442::create() { if(verbose) cout << " 18c442 create \n"; P18C4x2::create(); cout << " 18c442 create \n"; set_osc_pin_Number(0,13, NULL); set_osc_pin_Number(1,14, &(*m_porta)[6]); } Processor * P18C442::construct(const char *name) { P18C442 *p = new P18C442(name); if(verbose) cout << " 18c442 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); return p; } //------------------------------------------------------------------------ // // P18C452 // P18C452::P18C452(const char *_name, const char *desc) : P18C442(_name,desc) { if(verbose) cout << "18c452 constructor, type = " << isa() << '\n'; } void P18C452::create() { if(verbose) cout << " 18c452 create \n"; P18C442::create(); } Processor * P18C452::construct(const char *name) { P18C452 *p = new P18C452(name); if(verbose) cout << " 18c452 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); return p; } //------------------------------------------------------------------------ // // P18F242 // P18F242::P18F242(const char *_name, const char *desc) : P18C242(_name,desc) { if(verbose) cout << "18f242 constructor, type = " << isa() << '\n'; } void P18F242::create() { EEPROM_PIR *e; if(verbose) cout << " 18f242 create \n"; e = new EEPROM_PIR(this,&pir2); // We might want to pass this value in for larger eeproms e->initialize(256); //e->set_pir_set(&pir_set_def); e->set_intcon(&intcon); // assign this eeprom to the processor set_eeprom_pir(e); P18C242::create(); } /* void P18F242::create_sfr_map() { // Add eeprom add_sfr_register(get_eeprom()->get_reg_eedata(), 0xfa8); add_sfr_register(get_eeprom()->get_reg_eeadr(), 0xfa9); add_sfr_register(get_eeprom()->get_reg_eecon1(), 0xfa6, RegisterValue(0,0)); add_sfr_register(get_eeprom()->get_reg_eecon2(), 0xfa7); } */ Processor * P18F242::construct(const char *name) { P18F242 *p = new P18F242(name); if(verbose) cout << " 18F242 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); return p; } //------------------------------------------------------------------------ // // P18F252 // P18F252::P18F252(const char *_name, const char *desc) : P18F242(_name,desc) { if(verbose) cout << "18f252 constructor, type = " << isa() << '\n'; } void P18F252::create() { if(verbose) cout << " 18f252 create \n"; P18F242::create(); } Processor * P18F252::construct(const char *name) { P18F252 *p = new P18F252(name); if(verbose) cout << " 18F252 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); return p; } //------------------------------------------------------------------------ // // P18F442 // P18F442::P18F442(const char *_name, const char *desc) : P18C442(_name,desc) { if(verbose) cout << "18f442 constructor, type = " << isa() << '\n'; } void P18F442::create() { EEPROM_PIR *e; if(verbose) cout << " 18f442 create \n"; e = new EEPROM_PIR(this,&pir2); // We might want to pass this value in for larger eeproms e->initialize(256); //e->set_pir_set(get_pir_set()); //e->set_pir_set(&pir_set_def); e->set_intcon(&intcon); // assign this eeprom to the processor set_eeprom_pir(e); P18C442::create(); } /* void P18F442::create_sfr_map() { // Add eeprom add_sfr_register(get_eeprom()->get_reg_eedata(), 0xfa8); add_sfr_register(get_eeprom()->get_reg_eeadr(), 0xfa9); add_sfr_register(get_eeprom()->get_reg_eecon1(), 0xfa6, RegisterValue(0,0)); add_sfr_register(get_eeprom()->get_reg_eecon2(), 0xfa7); } */ Processor * P18F442::construct(const char *name) { P18F442 *p = new P18F442(name); if(verbose) cout << " 18F442 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); return p; } //------------------------------------------------------------------------ // // P18F258 // P18F248::P18F248(const char *_name, const char *desc) : P18F242(_name,desc) { if(verbose) cout << "18f248 constructor, type = " << isa() << '\n'; } void P18F248::create() { if(verbose) cout << " 18f248 create \n"; P18F242::create(); } Processor * P18F248::construct(const char *name) { P18F248 *p = new P18F248(name); if(verbose) cout << " 18F248 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); return p; } //------------------------------------------------------------------------ // // P18F458 // P18F448::P18F448(const char *_name, const char *desc) : P18F442(_name,desc) { if(verbose) cout << "18f448 constructor, type = " << isa() << '\n'; } void P18F448::create() { if(verbose) cout << " 18f448 create \n"; P18F442::create(); } Processor * P18F448::construct(const char *name) { P18F448 *p = new P18F448(name); if(verbose) cout << " 18F448 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); return p; } //------------------------------------------------------------------------ // // P18F452 // P18F452::P18F452(const char *_name, const char *desc) : P18F442(_name,desc) { if(verbose) cout << "18f452 constructor, type = " << isa() << '\n'; } void P18F452::create() { if(verbose) cout << " 18f452 create \n"; P18F442::create(); } Processor * P18F452::construct(const char *name) { P18F452 *p = new P18F452(name); if(verbose) cout << " 18F452 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); return p; } //------------------------------------------------------------------------ // // P18F2455 - 28 pin // P18F2455::P18F2455(const char *_name, const char *desc) : P18F2x21(_name,desc), ufrml(this, "ufrml", "USB Frame Number register Low" ), ufrmh(this, "ufrmh", "USB Frame Number register High" ), uir (this, "uir" , "USB Interrupt Status register" ), uie (this, "uie" , "USB Interrupt Enable register" ), ueir (this, "ueir" , "USB Error Interrupt Status register"), ueie (this, "ueie" , "USB Error Interrupt Enable register"), ustat(this, "ustat", "USB Transfer Status register" ), ucon (this, "ucon" , "USB Control register" ), uaddr(this, "uaddr", "USB Device Address register" ), ucfg (this, "ucfg" , "USB Configuration register" ), uep0 (this, "uep0" , "USB Endpoint 0 Enable register" ), uep1 (this, "uep1" , "USB Endpoint 1 Enable register" ), uep2 (this, "uep2" , "USB Endpoint 2 Enable register" ), uep3 (this, "uep3" , "USB Endpoint 3 Enable register" ), uep4 (this, "uep4" , "USB Endpoint 4 Enable register" ), uep5 (this, "uep5" , "USB Endpoint 5 Enable register" ), uep6 (this, "uep6" , "USB Endpoint 6 Enable register" ), uep7 (this, "uep7" , "USB Endpoint 7 Enable register" ), uep8 (this, "uep8" , "USB Endpoint 8 Enable register" ), uep9 (this, "uep9" , "USB Endpoint 9 Enable register" ), uep10(this, "uep10", "USB Endpoint 10 Enable register" ), uep11(this, "uep11", "USB Endpoint 11 Enable register" ), uep12(this, "uep12", "USB Endpoint 12 Enable register" ), uep13(this, "uep13", "USB Endpoint 13 Enable register" ), uep14(this, "uep14", "USB Endpoint 14 Enable register" ), uep15(this, "uep15", "USB Endpoint 15 Enable register" ), pir2 (this, "pir2" , "Peripheral Interrupt Register",0,0 ) { cout << "\nP18F2455 does not support USB registers and functionality\n\n"; if(verbose) cout << "18f2455 constructor, type = " << isa() << '\n'; } P18F2455::~P18F2455() { remove_sfr_register(&ufrml); remove_sfr_register(&ufrmh); remove_sfr_register(&uir ); remove_sfr_register(&uie ); remove_sfr_register(&ueir ); remove_sfr_register(&ueie ); remove_sfr_register(&ustat); remove_sfr_register(&ucon ); remove_sfr_register(&uaddr); remove_sfr_register(&ucfg ); remove_sfr_register(&uep0 ); remove_sfr_register(&uep1 ); remove_sfr_register(&uep2 ); remove_sfr_register(&uep3 ); remove_sfr_register(&uep4 ); remove_sfr_register(&uep5 ); remove_sfr_register(&uep6 ); remove_sfr_register(&uep7 ); remove_sfr_register(&uep8 ); remove_sfr_register(&uep9 ); remove_sfr_register(&uep10); remove_sfr_register(&uep11); remove_sfr_register(&uep12); remove_sfr_register(&uep13); remove_sfr_register(&uep14); remove_sfr_register(&uep15); remove_sfr_register(&pir2 ); } void P18F2455::create_sfr_map() { if(verbose) cout << " 18f2455 create_sfr_map \n"; P18F2x21::create_sfr_map(); package->destroy_pin(14); package->assign_pin(14, 0, false); // Vusb /* The MSSP/I2CC pins are different on this chip. */ ssp.initialize(&pir_set_def, // PIR &(*m_portb)[1], // SCK &(*m_porta)[5], // SS &(*m_portc)[7], // SDO &(*m_portb)[0], // SDI m_trisb, // i2c tris port SSP_TYPE_MSSP ); add_sfr_register(&ufrml,0x0F66, RegisterValue(0,0),"ufrm"); add_sfr_register(&ufrmh,0X0F67, RegisterValue(0,0)); add_sfr_register(&uir ,0x0F68, RegisterValue(0,0)); add_sfr_register(&uie ,0x0F69, RegisterValue(0,0)); add_sfr_register(&ueir ,0x0F6A, RegisterValue(0,0)); add_sfr_register(&ueie ,0x0F6B, RegisterValue(0,0)); add_sfr_register(&ustat,0X0F6C, RegisterValue(0,0)); add_sfr_register(&ucon ,0x0F6D, RegisterValue(0,0)); add_sfr_register(&uaddr,0X0F6E, RegisterValue(0,0)); add_sfr_register(&ucfg ,0x0F6F, RegisterValue(0,0)); add_sfr_register(&uep0 ,0x0F70, RegisterValue(0,0)); add_sfr_register(&uep1 ,0x0F71, RegisterValue(0,0)); add_sfr_register(&uep2 ,0x0F72, RegisterValue(0,0)); add_sfr_register(&uep3 ,0x0F73, RegisterValue(0,0)); add_sfr_register(&uep4 ,0x0F74, RegisterValue(0,0)); add_sfr_register(&uep5 ,0x0F75, RegisterValue(0,0)); add_sfr_register(&uep6 ,0x0F76, RegisterValue(0,0)); add_sfr_register(&uep7 ,0x0F77, RegisterValue(0,0)); add_sfr_register(&uep8 ,0x0F78, RegisterValue(0,0)); add_sfr_register(&uep9 ,0x0F79, RegisterValue(0,0)); add_sfr_register(&uep10,0x0F7A, RegisterValue(0,0)); add_sfr_register(&uep11,0x0F7B, RegisterValue(0,0)); add_sfr_register(&uep12,0x0F7C, RegisterValue(0,0)); add_sfr_register(&uep13,0x0F7D, RegisterValue(0,0)); add_sfr_register(&uep14,0x0F7E, RegisterValue(0,0)); add_sfr_register(&uep15,0x0F7F, RegisterValue(0,0)); // Initialize the register cross linkages pir_set_def.set_pir2(&pir2); delete tmr3l.getInterruptSource(); tmr3l.setInterruptSource(new InterruptSource(&pir2, PIR2v4::TMR3IF)); pir2.set_intcon(&intcon); pir2.set_pie(&pie2); pir2.set_ipr(&ipr2); pie2.setPir(&pir2); //pie2.new_name("pie2"); // new InterruptSource(&pir2, PIR2v4::USBIF); } Processor * P18F2455::construct(const char *name) { P18F2455 *p = new P18F2455(name); if(verbose) cout << " 18F2455 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); return p; } //------------------------------------------------------------------------ // // P18F4455 // P18F4455::P18F4455(const char *_name, const char *desc) : P18F4x21(_name,desc), ufrml(this, "ufrml", "USB Frame Number register Low" ), ufrmh(this, "ufrmh", "USB Frame Number register High" ), uir (this, "uir" , "USB Interrupt Status register" ), uie (this, "uie" , "USB Interrupt Enable register" ), ueir (this, "ueir" , "USB Error Interrupt Status register"), ueie (this, "ueie" , "USB Error Interrupt Enable register"), ustat(this, "ustat", "USB Transfer Status register" ), ucon (this, "ucon" , "USB Control register" ), uaddr(this, "uaddr", "USB Device Address register" ), ucfg (this, "ucfg" , "USB Configuration register" ), uep0 (this, "uep0" , "USB Endpoint 0 Enable register" ), uep1 (this, "uep1" , "USB Endpoint 1 Enable register" ), uep2 (this, "uep2" , "USB Endpoint 2 Enable register" ), uep3 (this, "uep3" , "USB Endpoint 3 Enable register" ), uep4 (this, "uep4" , "USB Endpoint 4 Enable register" ), uep5 (this, "uep5" , "USB Endpoint 5 Enable register" ), uep6 (this, "uep6" , "USB Endpoint 6 Enable register" ), uep7 (this, "uep7" , "USB Endpoint 7 Enable register" ), uep8 (this, "uep8" , "USB Endpoint 8 Enable register" ), uep9 (this, "uep9" , "USB Endpoint 9 Enable register" ), uep10(this, "uep10", "USB Endpoint 10 Enable register" ), uep11(this, "uep11", "USB Endpoint 11 Enable register" ), uep12(this, "uep12", "USB Endpoint 12 Enable register" ), uep13(this, "uep13", "USB Endpoint 13 Enable register" ), uep14(this, "uep14", "USB Endpoint 14 Enable register" ), uep15(this, "uep15", "USB Endpoint 15 Enable register" ), pir2 (this, "pir2" , "Peripheral Interrupt Register",0,0 ) { cout << "\nP18F4455 does not support USB registers and functionality\n\n"; if(verbose) cout << "18f4455 constructor, type = " << isa() << '\n'; } P18F4455::~P18F4455() { remove_sfr_register(&ufrml); remove_sfr_register(&ufrmh); remove_sfr_register(&uir ); remove_sfr_register(&uie ); remove_sfr_register(&ueir ); remove_sfr_register(&ueie ); remove_sfr_register(&ustat); remove_sfr_register(&ucon ); remove_sfr_register(&uaddr); remove_sfr_register(&ucfg ); remove_sfr_register(&uep0 ); remove_sfr_register(&uep1 ); remove_sfr_register(&uep2 ); remove_sfr_register(&uep3 ); remove_sfr_register(&uep4 ); remove_sfr_register(&uep5 ); remove_sfr_register(&uep6 ); remove_sfr_register(&uep7 ); remove_sfr_register(&uep8 ); remove_sfr_register(&uep9 ); remove_sfr_register(&uep10); remove_sfr_register(&uep11); remove_sfr_register(&uep12); remove_sfr_register(&uep13); remove_sfr_register(&uep14); remove_sfr_register(&uep15); } void P18F4455::create() { P18F4x21::create(); if(verbose) cout << " 18f4455 create \n"; package->destroy_pin(18); package->assign_pin(18, 0, false); // Vusb /* The MSSP/I2CC pins are different on this chip. */ ssp.initialize(&pir_set_def, // PIR &(*m_portb)[1], // SCK &(*m_porta)[5], // SS &(*m_portc)[7], // SDO &(*m_portb)[0], // SDI m_trisb, // i2c tris port SSP_TYPE_MSSP ); // RP: RRR commented out comparator.cmcon.set_eccpas(&eccpas); ?? add_sfr_register(&ufrml,0x0F66, RegisterValue(0,0),"ufrm"); add_sfr_register(&ufrmh,0X0F67, RegisterValue(0,0)); add_sfr_register(&uir ,0x0F68, RegisterValue(0,0)); add_sfr_register(&uie ,0x0F69, RegisterValue(0,0)); add_sfr_register(&ueir ,0x0F6A, RegisterValue(0,0)); add_sfr_register(&ueie ,0x0F6B, RegisterValue(0,0)); add_sfr_register(&ustat,0X0F6C, RegisterValue(0,0)); add_sfr_register(&ucon ,0x0F6D, RegisterValue(0,0)); add_sfr_register(&uaddr,0X0F6E, RegisterValue(0,0)); add_sfr_register(&ucfg ,0x0F6F, RegisterValue(0,0)); add_sfr_register(&uep0 ,0x0F70, RegisterValue(0,0)); add_sfr_register(&uep1 ,0x0F71, RegisterValue(0,0)); add_sfr_register(&uep2 ,0x0F72, RegisterValue(0,0)); add_sfr_register(&uep3 ,0x0F73, RegisterValue(0,0)); add_sfr_register(&uep4 ,0x0F74, RegisterValue(0,0)); add_sfr_register(&uep5 ,0x0F75, RegisterValue(0,0)); add_sfr_register(&uep6 ,0x0F76, RegisterValue(0,0)); add_sfr_register(&uep7 ,0x0F77, RegisterValue(0,0)); add_sfr_register(&uep8 ,0x0F78, RegisterValue(0,0)); add_sfr_register(&uep9 ,0x0F79, RegisterValue(0,0)); add_sfr_register(&uep10,0x0F7A, RegisterValue(0,0)); add_sfr_register(&uep11,0x0F7B, RegisterValue(0,0)); add_sfr_register(&uep12,0x0F7C, RegisterValue(0,0)); add_sfr_register(&uep13,0x0F7D, RegisterValue(0,0)); add_sfr_register(&uep14,0x0F7E, RegisterValue(0,0)); add_sfr_register(&uep15,0x0F7F, RegisterValue(0,0)); // Initialize the register cross linkages pir_set_def.set_pir2(&pir2); delete tmr3l.getInterruptSource(); tmr3l.setInterruptSource(new InterruptSource(&pir2, PIR2v4::TMR3IF)); pir2.set_intcon(&intcon); pir2.set_pie(&pie2); pir2.set_ipr(&ipr2); pie2.setPir(&pir2); //pie2.new_name("pie2"); //new InterruptSource(&pir2, PIR2v4::USBIF); } Processor * P18F4455::construct(const char *name) { P18F4455 *p = new P18F4455(name); if(verbose) cout << " 18F4455 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); return p; } //------------------------------------------------------------------------ P18Fxx20::P18Fxx20(const char *_name, const char *desc) : _16bit_v2_adc(_name,desc) { } //------------------------------------------------------------------------ // // P18F1220 // Processor * P18F1220::construct(const char *name) { P18F1220 *p = new P18F1220(name); if(verbose) cout << " 18F1220 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); return p; } void P18F1220::create() { EEPROM_PIR *e; if(verbose) cout << "P18F1220::create\n"; e = new EEPROM_PIR(this,&pir2); // We might want to pass this value in for larger eeproms e->initialize(256); //e->set_pir_set(&pir_set_def); e->set_intcon(&intcon); // assign this eeprom to the processor set_eeprom_pir(e); create_iopin_map(); _16bit_processor::create(); _16bit_v2_adc::create(7); usart.txsta.setIOpin(&(*m_portb)[1]); usart.rcsta.setIOpin(&(*m_portb)[4]); adcon1->setIOPin(4, &(*m_portb)[0]); adcon1->setIOPin(5, &(*m_portb)[1]); adcon1->setIOPin(6, &(*m_portb)[4]); adcon1->setValidCfgBits(0x7f, 0); adcon0->setChannel_Mask(0x7); adcon1->setAdcon0(adcon0); // VCFG0, VCFG1 in adcon0 remove_sfr_register(&ssp.sspcon2); remove_sfr_register(&ssp.sspcon); remove_sfr_register(&ssp.sspstat); remove_sfr_register(&ssp.sspadd); remove_sfr_register(&ssp.sspbuf); add_sfr_register(&osctune, 0xf9b,RegisterValue(0,0)); osccon.set_osctune(&osctune); osctune.set_osccon(&osccon); set_osc_pin_Number(0,16, &(*m_porta)[7]); set_osc_pin_Number(1,15, &(*m_porta)[6]); m_configMemory->addConfigWord(CONFIG1H-CONFIG1L,new Config1H_4bits(this, CONFIG1H, 0xcf)); m_configMemory->addConfigWord(CONFIG3H-CONFIG1L,new Config3H_1x20(this, CONFIG3H, 0x80)); add_sfr_register(&usart.spbrgh, 0xfb0,RegisterValue(0,0),"spbrgh"); add_sfr_register(&usart.baudcon, 0xfaa,RegisterValue(0,0),"baudctl"); usart.set_eusart(true); add_sfr_register(&pwm1con, 0xfb7, RegisterValue(0,0)); add_sfr_register(&eccpas, 0xfb6, RegisterValue(0,0)); ccp1con.setBitMask(0xff); ccp1con.setCrosslinks(&ccpr1l, &pir1, PIR1v2::CCP1IF, &tmr2, &eccpas); eccpas.setIOpin(&(*m_portb)[1], &(*m_portb)[2], &(*m_portb)[0]); eccpas.link_registers(&pwm1con, &ccp1con); ccp1con.pwm1con = &pwm1con; ccp1con.setIOpin(&((*m_portb)[3]), &((*m_portb)[2]), &((*m_portb)[6]), &((*m_portb)[7])); } //------------------------------------------------------------------------ void P18F1220::create_iopin_map() { package = new Package(18); if(!package) return; package->assign_pin( 1, m_porta->addPin(new IO_bi_directional("porta0"),0)); package->assign_pin( 2, m_porta->addPin(new IO_bi_directional("porta1"),1)); package->assign_pin( 6, m_porta->addPin(new IO_bi_directional("porta2"),2)); package->assign_pin( 7, m_porta->addPin(new IO_bi_directional("porta3"),3)); package->assign_pin( 3, m_porta->addPin(new IO_bi_directional("porta4"),4)); package->assign_pin( 4, m_porta->addPin(new IO_open_collector("porta5"),5)); package->assign_pin(15, m_porta->addPin(new IO_bi_directional("porta6"),6)); package->assign_pin(16, m_porta->addPin(new IO_bi_directional("porta7"),7)); package->assign_pin( 8, m_portb->addPin(new IO_bi_directional_pu("portb0"),0)); package->assign_pin( 9, m_portb->addPin(new IO_bi_directional_pu("portb1"),1)); package->assign_pin(17, m_portb->addPin(new IO_bi_directional_pu("portb2"),2)); package->assign_pin(18, m_portb->addPin(new IO_bi_directional_pu("portb3"),3)); package->assign_pin(10, m_portb->addPin(new IO_bi_directional_pu("portb4"),4)); package->assign_pin(11, m_portb->addPin(new IO_bi_directional_pu("portb5"),5)); package->assign_pin(12, m_portb->addPin(new IO_bi_directional_pu("portb6"),6)); package->assign_pin(13, m_portb->addPin(new IO_bi_directional_pu("portb7"),7)); package->assign_pin(5, 0); package->assign_pin(14, 0); } P18F1220::P18F1220(const char *_name, const char *desc) : P18Fxx20(_name,desc), osctune(this, "osctune", "OSC Tune"), eccpas(this, "eccpas", "ECCP Auto-Shutdown Control Register"), pwm1con(this, "pwm1con", "Enhanced PWM Control Register") { if(verbose) cout << "18F1220 constructor, type = " << isa() << '\n'; } P18F1220::~P18F1220() { remove_sfr_register(&usart.spbrgh); remove_sfr_register(&usart.baudcon); remove_sfr_register(&osctune); remove_sfr_register(&pwm1con); remove_sfr_register(&eccpas); } void P18F1220::osc_mode(unsigned int value) { IOPIN *m_pin; unsigned int pin_Number = get_osc_pin_Number(0); set_int_osc(false); if (pin_Number < 253) { m_pin = package->get_pin(pin_Number); if (value == 8 || value == 9) { clr_clk_pin(pin_Number, get_osc_PinMonitor(0), m_porta, m_trisa, m_lata); set_int_osc(true); } else { set_clk_pin(pin_Number, get_osc_PinMonitor(0), "OSC1", true, m_porta, m_trisa, m_lata); } } if ( (pin_Number = get_osc_pin_Number(1)) < 253 && (m_pin = package->get_pin(pin_Number))) { pll_factor = 0; switch(value) { case 6: pll_factor = 2; case 0: case 1: case 2: set_clk_pin(pin_Number, get_osc_PinMonitor(1), "OSC2", true, m_porta, m_trisa, m_lata); break; case 4: case 9: case 12: case 13: case 14: case 15: cout << "CLKO not simulated\n"; set_clk_pin(pin_Number, get_osc_PinMonitor(1) , "CLKO", false, m_porta, m_trisa, m_lata); break; default: clr_clk_pin(pin_Number, get_osc_PinMonitor(1), m_porta, m_trisa, m_lata); break; } } } //------------------------------------------------------------------------ // // P18Fx320 // P18F1320::P18F1320(const char *_name, const char *desc) : P18F1220(_name,desc) { if(verbose) cout << "18f1320 constructor, type = " << isa() << '\n'; } void P18F1320::create() { if(verbose) cout << " 18fx320 create \n"; P18F1220::create(); } Processor * P18F1320::construct(const char *name) { P18F1320 *p = new P18F1320(name); if(verbose) cout << " 18F1320 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); return p; } //======================================================================== // // Pic 18C2x21 // void P18F2x21::create() { EEPROM_PIR *e; if(verbose) cout << "P18F2x21::create\n"; e = new EEPROM_PIR(this,&pir2); e->initialize ( eeprom_memory_size() ); e->set_intcon(&intcon); // assign this eeprom to the processor set_eeprom_pir(e); create_iopin_map(); _16bit_processor::create(); m_configMemory->addConfigWord(CONFIG3H-CONFIG1L,new Config3H_2x21(this, CONFIG3H, 0x83)); m_configMemory->addConfigWord(CONFIG1H-CONFIG1L,new Config1H_4bits(this, CONFIG1H, 0x07)); set_osc_pin_Number(0, 9, &(*m_porta)[7]); set_osc_pin_Number(1,10, &(*m_porta)[6]); /// @bug registers not present on 28 pin according to table 5-1 of the /// data sheet, but bit-restricted according to section 16.4.7 add_sfr_register(&pwm1con, 0xfb7, RegisterValue(0,0)); add_sfr_register(&eccpas, 0xfb6, RegisterValue(0,0)); eccpas.setBitMask(0xfc); eccpas.setIOpin(0, 0, &(*m_portb)[0]); eccpas.link_registers(&pwm1con, &ccp1con); comparator.cmcon.set_eccpas(&eccpas); ccp1con.setBitMask(0x3f); ccp1con.setCrosslinks(&ccpr1l, &pir1, PIR1v2::CCP1IF, &tmr2, &eccpas); ccp1con.pwm1con = &pwm1con; ccp1con.setIOpin(&((*m_portc)[2]), 0, 0, 0); pwm1con.setBitMask(0x80); } //------------------------------------------------------------------------ void P18F2x21::create_iopin_map() { package = new Package(28); if(!package) return; // Build the links between the I/O Ports and their tris registers. package->assign_pin( 1, m_porte->addPin(new IO_bi_directional("porte3"),3)); package->assign_pin( 2, m_porta->addPin(new IO_bi_directional("porta0"),0)); package->assign_pin( 3, m_porta->addPin(new IO_bi_directional("porta1"),1)); package->assign_pin( 4, m_porta->addPin(new IO_bi_directional("porta2"),2)); package->assign_pin( 5, m_porta->addPin(new IO_bi_directional("porta3"),3)); package->assign_pin( 6, m_porta->addPin(new IO_open_collector("porta4"),4)); // %%%FIXME - is this O/C ? package->assign_pin( 7, m_porta->addPin(new IO_bi_directional("porta5"),5)); package->assign_pin(8, 0); // Vss package->assign_pin(9, m_porta->addPin(new IO_bi_directional("porta7"),7)); // OSC1 package->assign_pin(10, m_porta->addPin(new IO_bi_directional("porta6"),6)); package->assign_pin(11, m_portc->addPin(new IO_bi_directional("portc0"),0)); package->assign_pin(12, m_portc->addPin(new IO_bi_directional("portc1"),1)); package->assign_pin(13, m_portc->addPin(new IO_bi_directional("portc2"),2)); package->assign_pin(14, m_portc->addPin(new IO_bi_directional("portc3"),3)); package->assign_pin(15, m_portc->addPin(new IO_bi_directional("portc4"),4)); package->assign_pin(16, m_portc->addPin(new IO_bi_directional("portc5"),5)); package->assign_pin(17, m_portc->addPin(new IO_bi_directional("portc6"),6)); package->assign_pin(18, m_portc->addPin(new IO_bi_directional("portc7"),7)); package->assign_pin(19, 0); // Vss package->assign_pin(20, 0); // Vdd package->assign_pin(21, m_portb->addPin(new IO_bi_directional_pu("portb0"),0)); package->assign_pin(22, m_portb->addPin(new IO_bi_directional_pu("portb1"),1)); package->assign_pin(23, m_portb->addPin(new IO_bi_directional_pu("portb2"),2)); package->assign_pin(24, m_portb->addPin(new IO_bi_directional_pu("portb3"),3)); package->assign_pin(25, m_portb->addPin(new IO_bi_directional_pu("portb4"),4)); package->assign_pin(26, m_portb->addPin(new IO_bi_directional_pu("portb5"),5)); package->assign_pin(27, m_portb->addPin(new IO_bi_directional_pu("portb6"),6)); package->assign_pin(28, m_portb->addPin(new IO_bi_directional_pu("portb7"),7)); tmr1l.setIOpin(&(*m_portc)[0]); ssp.initialize(&pir_set_def, // PIR &(*m_portc)[3], // SCK &(*m_porta)[5], // SS &(*m_portc)[5], // SDO &(*m_portc)[4], // SDI m_trisc, // i2c tris port SSP_TYPE_MSSP ); //1portc.usart = &usart16; } void P18F2x21::create_symbols() { if(verbose) cout << "P18F2x21 create symbols\n"; _16bit_processor::create_symbols(); } P18F2x21::P18F2x21(const char *_name, const char *desc) : _16bit_v2_adc(_name,desc), eccpas(this, "eccp1as", "ECCP Auto-Shutdown Control Register"), pwm1con(this, "eccp1del", "Enhanced PWM Control Register"), osctune(this, "osctune", "OSC Tune"), comparator(this) { if(verbose) cout << "18F2x21 constructor, type = " << isa() << '\n'; m_porte = new PicPortRegister(this,"porte","",8,0x08); // No TRIS register for port E on 28-pin devices } P18F2x21::~P18F2x21() { delete_sfr_register(m_porte); remove_sfr_register(&usart.spbrgh); remove_sfr_register(&usart.baudcon); remove_sfr_register(&osctune); remove_sfr_register(&comparator.cmcon); remove_sfr_register(&comparator.vrcon); remove_sfr_register(&pwm1con); remove_sfr_register(&eccpas); } void P18F2x21::create_sfr_map() { if(verbose) cout << "create_sfr_map P18F2x21\n"; _16bit_processor::create_sfr_map(); _16bit_v2_adc::create(13); RegisterValue porv(0,0); add_sfr_register(m_porte, 0xf84,porv); adcon1->setIOPin(4, &(*m_porta)[5]); /* Not on 28 pin processors adcon1->setIOPin(5, &(*m_porte)[0]); adcon1->setIOPin(6, &(*m_porte)[1]); adcon1->setIOPin(7, &(*m_porte)[2]); */ adcon1->setIOPin(8, &(*m_portb)[2]); adcon1->setIOPin(9, &(*m_portb)[3]); adcon1->setIOPin(10, &(*m_portb)[1]); adcon1->setIOPin(11, &(*m_portb)[4]); adcon1->setIOPin(12, &(*m_portb)[0]); add_sfr_register(&osctune, 0xf9b,porv); osccon.set_osctune(&osctune); osctune.set_osccon(&osccon); // rest of configuration in parent class // Link the comparator and voltage ref to porta comparator.initialize(&pir_set_def, &(*m_porta)[2], &(*m_porta)[0], &(*m_porta)[1], &(*m_porta)[2], &(*m_porta)[3], &(*m_porta)[3], &(*m_porta)[4]); comparator.cmcon.set_configuration(1, 0, AN0, AN3, AN0, AN3, ZERO); comparator.cmcon.set_configuration(2, 0, AN1, AN2, AN1, AN2, ZERO); comparator.cmcon.set_configuration(1, 1, AN0, AN3, AN0, AN3, OUT0); comparator.cmcon.set_configuration(2, 1, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(1, 2, AN0, AN3, AN0, AN3, NO_OUT); comparator.cmcon.set_configuration(2, 2, AN1, AN2, AN1, AN2, NO_OUT); comparator.cmcon.set_configuration(1, 3, AN0, AN3, AN0, AN3, OUT0); comparator.cmcon.set_configuration(2, 3, AN1, AN2, AN1, AN2, OUT1); comparator.cmcon.set_configuration(1, 4, AN0, AN3, AN0, AN3, NO_OUT); comparator.cmcon.set_configuration(2, 4, AN1, AN3, AN1, AN3, NO_OUT); comparator.cmcon.set_configuration(1, 5, AN0, AN3, AN0, AN3, OUT0); comparator.cmcon.set_configuration(2, 5, AN1, AN3, AN1, AN3, OUT1); comparator.cmcon.set_configuration(1, 6, AN0, VREF, AN3, VREF, NO_OUT); comparator.cmcon.set_configuration(2, 6, AN1, VREF, AN2, VREF, NO_OUT); comparator.cmcon.set_configuration(1, 7, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 7, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); add_sfr_register(&comparator.cmcon, 0xfb4, RegisterValue(7,0),"cmcon"); add_sfr_register(&comparator.vrcon, 0xfb5, RegisterValue(0,0),"cvrcon"); ccp2con.setCrosslinks(&ccpr2l, &pir2, PIR2v2::CCP2IF, &tmr2); // ccp2con.setIOpin(&((*m_portc)[1])); // handled by Config3H_2x21 ccpr2l.ccprh = &ccpr2h; ccpr2l.tmrl = &tmr1l; ccpr2h.ccprl = &ccpr2l; //1 usart16.initialize_16(this,&pir_set_def,&portc); add_sfr_register(&usart.spbrgh, 0xfb0,porv,"spbrgh"); add_sfr_register(&usart.baudcon, 0xfb8,porv,"baudcon"); usart.set_eusart(true); } void P18F2x21::osc_mode(unsigned int value) { IOPIN *m_pin; unsigned int pin_Number = get_osc_pin_Number(0); set_int_osc(false); if (pin_Number < 253) { m_pin = package->get_pin(pin_Number); if (value == 8 || value == 9) // internal RC clock { clr_clk_pin(pin_Number, get_osc_PinMonitor(0), m_porta, m_trisa, m_lata); set_int_osc(true); } else { set_clk_pin(pin_Number, get_osc_PinMonitor(0), "OSC1", true, m_porta, m_trisa, m_lata); set_int_osc(false); } } if ( (pin_Number = get_osc_pin_Number(1)) < 253 && (m_pin = package->get_pin(pin_Number))) { pll_factor = 0; switch(value) { case 6: pll_factor = 2; case 0: case 1: case 2: set_clk_pin(pin_Number, get_osc_PinMonitor(1), "OSC2", true, m_porta, m_trisa, m_lata); break; case 3: case 4: case 9: case 10: case 11: case 12: case 13: case 14: case 15: cout << "CLKO not simulated\n"; set_clk_pin(pin_Number, get_osc_PinMonitor(1) , "CLKO", false, m_porta, m_trisa, m_lata); break; default: clr_clk_pin(pin_Number, get_osc_PinMonitor(1), m_porta, m_trisa, m_lata); break; } } } //------------------------------------------------------------------------ // // P18F2221 // P18F2221::P18F2221(const char *_name, const char *desc) : P18F2x21(_name,desc) { if(verbose) cout << "18F2221 constructor, type = " << isa() << '\n'; } Processor * P18F2221::construct(const char *name) { P18F2221 *p = new P18F2221(name); if(verbose) cout << " 18F2221 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); if(verbose&2) cout << " 18F2221 construct completed\n"; return p; } //------------------------------------------------------------------------ // // P18F2321 // P18F2321::P18F2321(const char *_name, const char *desc) : P18F2x21(_name,desc) { if(verbose) cout << "18F2321 constructor, type = " << isa() << '\n'; } Processor * P18F2321::construct(const char *name) { P18F2321 *p = new P18F2321(name); if(verbose) cout << " 18F2321 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); if(verbose&2) cout << " 18F2321 construct completed\n"; return p; } //------------------------------------------------------------------------ // // P18F2420 // P18F2420::P18F2420(const char *_name, const char *desc) : P18F2x21(_name,desc) { if(verbose) cout << "18F2420 constructor, type = " << isa() << '\n'; } Processor * P18F2420::construct(const char *name) { P18F2420 *p = new P18F2420(name); if(verbose) cout << " 18F2420 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); if(verbose&2) cout << " 18F2420 construct completed\n"; return p; } //------------------------------------------------------------------------ // // P18F2520 // P18F2520::P18F2520(const char *_name, const char *desc) : P18F2x21(_name,desc) { if(verbose) cout << "18F2520 constructor, type = " << isa() << '\n'; } Processor * P18F2520::construct(const char *name) { P18F2520 *p = new P18F2520(name); if(verbose) cout << " 18F2520 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); if(verbose&2) cout << " 18F2520 construct completed\n"; return p; } //======================================================================== // // Pic 18F4x21 // void P18F4x21::create() { EEPROM_PIR *e; if(verbose) cout << "P18F4x21::create\n"; e = new EEPROM_PIR(this,&pir2); e->initialize ( eeprom_memory_size() ); e->set_intcon(&intcon); // assign this eeprom to the processor set_eeprom_pir(e); create_iopin_map(); _16bit_processor::create(); m_configMemory->addConfigWord(CONFIG3H-CONFIG1L,new Config3H_2x21(this, CONFIG3H, 0x83)); m_configMemory->addConfigWord(CONFIG1H-CONFIG1L,new Config1H_4bits(this, CONFIG1H, 0x07)); set_osc_pin_Number(0, 13, &(*m_porta)[7]); set_osc_pin_Number(1,14, &(*m_porta)[6]); add_sfr_register(&pwm1con, 0xfb7, RegisterValue(0,0)); add_sfr_register(&eccpas, 0xfb6, RegisterValue(0,0)); eccpas.setIOpin(0, 0, &(*m_portb)[0]); eccpas.link_registers(&pwm1con, &ccp1con); comparator.cmcon.set_eccpas(&eccpas); ccp1con.setBitMask(0xff); ccp1con.setCrosslinks(&ccpr1l, &pir1, PIR1v2::CCP1IF, &tmr2, &eccpas); ccp1con.pwm1con = &pwm1con; ccp1con.setIOpin(&((*m_portc)[2]), &((*m_portd)[5]), &((*m_portd)[6]), &((*m_portd)[7])); } //------------------------------------------------------------------------ void P18F4x21::create_iopin_map() { package = new Package(40); if(!package) return; // Build the links between the I/O Ports and their tris registers. package->assign_pin( 1, m_porte->addPin(new IO_bi_directional("porte3"),3)); package->assign_pin( 2, m_porta->addPin(new IO_bi_directional("porta0"),0)); package->assign_pin( 3, m_porta->addPin(new IO_bi_directional("porta1"),1)); package->assign_pin( 4, m_porta->addPin(new IO_bi_directional("porta2"),2)); package->assign_pin( 5, m_porta->addPin(new IO_bi_directional("porta3"),3)); package->assign_pin( 6, m_porta->addPin(new IO_open_collector("porta4"),4)); package->assign_pin( 7, m_porta->addPin(new IO_bi_directional("porta5"),5)); package->assign_pin( 8, m_porte->addPin(new IO_bi_directional("porte0"),0)); package->assign_pin( 9, m_porte->addPin(new IO_bi_directional("porte1"),1)); package->assign_pin(10, m_porte->addPin(new IO_bi_directional("porte2"),2)); package->assign_pin(11, 0); // Vdd package->assign_pin(12, 0); // Vss package->assign_pin(13, m_porta->addPin(new IO_bi_directional("porta7"),7)); package->assign_pin(14, m_porta->addPin(new IO_bi_directional("porta6"),6)); package->assign_pin(15, m_portc->addPin(new IO_bi_directional("portc0"),0)); package->assign_pin(16, m_portc->addPin(new IO_bi_directional("portc1"),1)); package->assign_pin(17, m_portc->addPin(new IO_bi_directional("portc2"),2)); package->assign_pin(18, m_portc->addPin(new IO_bi_directional("portc3"),3)); package->assign_pin(23, m_portc->addPin(new IO_bi_directional("portc4"),4)); package->assign_pin(24, m_portc->addPin(new IO_bi_directional("portc5"),5)); package->assign_pin(25, m_portc->addPin(new IO_bi_directional("portc6"),6)); package->assign_pin(26, m_portc->addPin(new IO_bi_directional("portc7"),7)); package->assign_pin(19, m_portd->addPin(new IO_bi_directional("portd0"),0)); package->assign_pin(20, m_portd->addPin(new IO_bi_directional("portd1"),1)); package->assign_pin(21, m_portd->addPin(new IO_bi_directional("portd2"),2)); package->assign_pin(22, m_portd->addPin(new IO_bi_directional("portd3"),3)); package->assign_pin(27, m_portd->addPin(new IO_bi_directional("portd4"),4)); package->assign_pin(28, m_portd->addPin(new IO_bi_directional("portd5"),5)); package->assign_pin(29, m_portd->addPin(new IO_bi_directional("portd6"),6)); package->assign_pin(30, m_portd->addPin(new IO_bi_directional("portd7"),7)); package->assign_pin(31, 0); // Vss package->assign_pin(32, 0); // Vdd package->assign_pin(33, m_portb->addPin(new IO_bi_directional_pu("portb0"),0)); package->assign_pin(34, m_portb->addPin(new IO_bi_directional_pu("portb1"),1)); package->assign_pin(35, m_portb->addPin(new IO_bi_directional_pu("portb2"),2)); package->assign_pin(36, m_portb->addPin(new IO_bi_directional_pu("portb3"),3)); package->assign_pin(37, m_portb->addPin(new IO_bi_directional_pu("portb4"),4)); package->assign_pin(38, m_portb->addPin(new IO_bi_directional_pu("portb5"),5)); package->assign_pin(39, m_portb->addPin(new IO_bi_directional_pu("portb6"),6)); package->assign_pin(40, m_portb->addPin(new IO_bi_directional_pu("portb7"),7)); psp.initialize(&pir_set_def, // PIR m_portd, // Parallel port m_trisd, // Parallel tris m_trise, // Control tris &(*m_porte)[0], // NOT RD &(*m_porte)[1], // NOT WR &(*m_porte)[2]); // NOT CS tmr1l.setIOpin(&(*m_portc)[0]); ssp.initialize(&pir_set_def, // PIR &(*m_portc)[3], // SCK &(*m_porta)[5], // SS &(*m_portc)[5], // SDO &(*m_portc)[4], // SDI m_trisc, // i2c tris port SSP_TYPE_MSSP ); //1portc.ccp1con = &ccp1con; //1portc.usart = &usart16; } void P18F4x21::create_symbols() { if(verbose) cout << "P18F4x21 create symbols\n"; _16bit_processor::create_symbols(); } P18F4x21::P18F4x21(const char *_name, const char *desc) : P18F2x21(_name,desc) { if(verbose) cout << "18f4x21 constructor, type = " << isa() << '\n'; m_portd = new PicPSP_PortRegister(this,"portd","",8,0xFF); m_trisd = new PicTrisRegister(this,"trisd","", (PicPortRegister *)m_portd, false); m_latd = new PicLatchRegister(this,"latd","",m_portd); // m_porte = new PicPortRegister(this,"porte","",8,0x07); m_porte->setEnableMask(0x07); // It's been created by the P18F2x21 constructor, but with the wrong enables m_trise = new PicPSP_TrisRegister(this,"trise","", m_porte, false); m_late = new PicLatchRegister(this,"late","",m_porte); } P18F4x21::~P18F4x21() { delete_sfr_register(m_portd); delete_sfr_register(m_trisd); delete_sfr_register(m_latd); delete_sfr_register(m_trise); delete_sfr_register(m_late); remove_sfr_register(&pwm1con); remove_sfr_register(&eccpas); } void P18F4x21::create_sfr_map() { if(verbose) cout << "create_sfr_map P18F4x21\n"; _16bit_processor::create_sfr_map(); _16bit_v2_adc::create(13); RegisterValue porv(0,0); add_sfr_register(m_portd, 0xf83,porv); add_sfr_register(m_porte, 0xf84,porv); add_sfr_register(m_latd, 0xf8c,porv); add_sfr_register(m_late, 0xf8d,porv); add_sfr_register(m_trisd, 0xf95,RegisterValue(0xff,0)); add_sfr_register(m_trise, 0xf96,RegisterValue(0x07,0)); add_sfr_register(&osctune, 0xf9b,porv); osccon.set_osctune(&osctune); osctune.set_osccon(&osccon); adcon1->setIOPin(4, &(*m_porta)[5]); adcon1->setIOPin(5, &(*m_porte)[0]); adcon1->setIOPin(6, &(*m_porte)[1]); adcon1->setIOPin(7, &(*m_porte)[2]); adcon1->setIOPin(8, &(*m_portb)[2]); adcon1->setIOPin(9, &(*m_portb)[3]); adcon1->setIOPin(10, &(*m_portb)[1]); adcon1->setIOPin(11, &(*m_portb)[4]); adcon1->setIOPin(12, &(*m_portb)[0]); /* adcon1->setChanTable(0x1ff, 0x1fff, 0x1fff, 0x0fff, 0x07ff, 0x03ff, 0x01ff, 0x00ff, 0x007f, 0x003f, 0x001f, 0x000f, 0x0007, 0x0003, 0x0001, 0x0000); adcon1->setVrefHiChannel(3); adcon1->setVrefLoChannel(2); */ // Link the comparator and voltage ref to porta comparator.initialize(&pir_set_def, &(*m_porta)[2], &(*m_porta)[0], &(*m_porta)[1], &(*m_porta)[2], &(*m_porta)[3], &(*m_porta)[3], &(*m_porta)[4]); comparator.cmcon.set_configuration(1, 0, AN0, AN3, AN0, AN3, ZERO); comparator.cmcon.set_configuration(2, 0, AN1, AN2, AN1, AN2, ZERO); comparator.cmcon.set_configuration(1, 1, AN0, AN3, AN0, AN3, OUT0); comparator.cmcon.set_configuration(2, 1, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(1, 2, AN0, AN3, AN0, AN3, NO_OUT); comparator.cmcon.set_configuration(2, 2, AN1, AN2, AN1, AN2, NO_OUT); comparator.cmcon.set_configuration(1, 3, AN0, AN3, AN0, AN3, OUT0); comparator.cmcon.set_configuration(2, 3, AN1, AN2, AN1, AN2, OUT1); comparator.cmcon.set_configuration(1, 4, AN0, AN3, AN0, AN3, NO_OUT); comparator.cmcon.set_configuration(2, 4, AN1, AN3, AN1, AN3, NO_OUT); comparator.cmcon.set_configuration(1, 5, AN0, AN3, AN0, AN3, OUT0); comparator.cmcon.set_configuration(2, 5, AN1, AN3, AN1, AN3, OUT1); comparator.cmcon.set_configuration(1, 6, AN0, VREF, AN3, VREF, NO_OUT); comparator.cmcon.set_configuration(2, 6, AN1, VREF, AN2, VREF, NO_OUT); comparator.cmcon.set_configuration(1, 7, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 7, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); add_sfr_register(&comparator.cmcon, 0xfb4, RegisterValue(7,0),"cmcon"); add_sfr_register(&comparator.vrcon, 0xfb5, RegisterValue(0,0),"cvrcon"); ccp2con.setCrosslinks(&ccpr2l, &pir2, PIR2v2::CCP2IF, &tmr2); // ccp2con.setIOpin(&((*m_portc)[1])); // Handled by Config3H_2x21::set ccpr2l.ccprh = &ccpr2h; ccpr2l.tmrl = &tmr1l; ccpr2h.ccprl = &ccpr2l; //1 usart16.initialize_16(this,&pir_set_def,&portc); add_sfr_register(&usart.spbrgh, 0xfb0,porv,"spbrgh"); add_sfr_register(&usart.baudcon, 0xfb8,porv,"baudcon"); usart.set_eusart(true); } //------------------------------------------------------------------------ // // P18F4221 // P18F4221::P18F4221(const char *_name, const char *desc) : P18F4x21(_name,desc) { if(verbose) cout << "18F4221 constructor, type = " << isa() << '\n'; } Processor * P18F4221::construct(const char *name) { P18F4221 *p = new P18F4221(name); if(verbose) cout << " 18F4221 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); if(verbose&2) cout << " 18F4221 construct completed\n"; return p; } //------------------------------------------------------------------------ // // P18F4321 // P18F4321::P18F4321(const char *_name, const char *desc) : P18F4x21(_name,desc) { if(verbose) cout << "18F4321 constructor, type = " << isa() << '\n'; } Processor * P18F4321::construct(const char *name) { P18F4321 *p = new P18F4321(name); if(verbose) cout << " 18F4321 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); if(verbose&2) cout << " 18F4321 construct completed\n"; return p; } //------------------------------------------------------------------------ // // P18F4420 // P18F4420::P18F4420(const char *_name, const char *desc) : P18F4x21(_name,desc) { if(verbose) cout << "18F4420 constructor, type = " << isa() << '\n'; } Processor * P18F4420::construct(const char *name) { P18F4420 *p = new P18F4420(name); if(verbose) cout << " 18F4420 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); if(verbose&2) cout << " 18F4420 construct completed\n"; return p; } //------------------------------------------------------------------------ // // P18F4520 // P18F4520::P18F4520(const char *_name, const char *desc) : P18F4x21(_name,desc) { if(verbose) cout << "18F4520 constructor, type = " << isa() << '\n'; } Processor * P18F4520::construct(const char *name) { P18F4520 *p = new P18F4520(name); if(verbose) cout << " 18F4520 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); if(verbose&2) cout << " 18F4520 construct completed\n"; return p; } //------------------------------------------------------------------------ // // P18F4620 // P18F4620::P18F4620(const char *_name, const char *desc) : P18F4x21(_name,desc) { if(verbose) cout << "18F4620 constructor, type = " << isa() << '\n'; } Processor * P18F4620::construct(const char *name) { P18F4620 *p = new P18F4620(name); if(verbose) cout << " 18F4620 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); if(verbose&2) cout << " 18F4620 construct completed\n"; return p; } //======================================================================== // // Pic 18F6x20 // void P18F6x20::create() { EEPROM_PIR *e; if(verbose) cout << "P18F6x20::create\n"; e = new EEPROM_PIR(this,&pir2); e->initialize ( eeprom_memory_size() ); e->set_intcon(&intcon); // assign this eeprom to the processor set_eeprom_pir(e); create_iopin_map(); _16bit_processor::create(); m_configMemory->addConfigWord(CONFIG1H-CONFIG1L,new Config1H_4bits(this, CONFIG1H, 0x27)); } //------------------------------------------------------------------------ void P18F6x20::create_iopin_map() { package = new Package(64); if(!package) return; // Build the links between the I/O Ports and their tris registers. package->assign_pin( 1, m_porte->addPin(new IO_bi_directional("porte1"),1)); package->assign_pin( 2, m_porte->addPin(new IO_bi_directional("porte0"),0)); package->assign_pin( 3, m_portg->addPin(new IO_bi_directional("portg0"),0)); package->assign_pin( 4, m_portg->addPin(new IO_bi_directional("portg1"),1)); package->assign_pin( 5, m_portg->addPin(new IO_bi_directional("portg2"),2)); package->assign_pin( 6, m_portg->addPin(new IO_bi_directional("portg3"),3)); createMCLRPin(7); package->assign_pin( 8, m_portg->addPin(new IO_bi_directional("portg4"),4)); package->assign_pin( 9, 0); // Vss package->assign_pin(10, 0); // Vdd package->assign_pin(11, m_portf->addPin(new IO_bi_directional("portf7"),7)); package->assign_pin(12, m_portf->addPin(new IO_bi_directional("portf6"),6)); package->assign_pin(13, m_portf->addPin(new IO_bi_directional("portf5"),5)); package->assign_pin(14, m_portf->addPin(new IO_bi_directional("portf4"),4)); package->assign_pin(15, m_portf->addPin(new IO_bi_directional("portf3"),3)); package->assign_pin(16, m_portf->addPin(new IO_bi_directional("portf2"),2)); package->assign_pin(17, m_portf->addPin(new IO_bi_directional("portf1"),1)); package->assign_pin(18, m_portf->addPin(new IO_bi_directional("portf0"),0)); package->assign_pin(19, 0); // AVdd package->assign_pin(20, 0); // AVss package->assign_pin(21, m_porta->addPin(new IO_bi_directional("porta3"),3)); package->assign_pin(22, m_porta->addPin(new IO_bi_directional("porta2"),2)); package->assign_pin(23, m_porta->addPin(new IO_bi_directional("porta1"),1)); package->assign_pin(24, m_porta->addPin(new IO_bi_directional("porta0"),0)); package->assign_pin(25, 0); // Vss package->assign_pin(26, 0); // Vdd package->assign_pin(27, m_porta->addPin(new IO_bi_directional("porta5"),5)); package->assign_pin(28, m_porta->addPin(new IO_open_collector("porta4"),4)); package->assign_pin(29, m_portc->addPin(new IO_bi_directional("portc1"),1)); package->assign_pin(30, m_portc->addPin(new IO_bi_directional("portc0"),0)); package->assign_pin(31, m_portc->addPin(new IO_bi_directional("portc6"),6)); package->assign_pin(32, m_portc->addPin(new IO_bi_directional("portc7"),7)); package->assign_pin(33, m_portc->addPin(new IO_bi_directional("portc2"),2)); package->assign_pin(34, m_portc->addPin(new IO_bi_directional("portc3"),3)); package->assign_pin(35, m_portc->addPin(new IO_bi_directional("portc4"),4)); package->assign_pin(36, m_portc->addPin(new IO_bi_directional("portc5"),5)); package->assign_pin(37, m_portb->addPin(new IO_bi_directional_pu("portb7"),7)); package->assign_pin(38, 0); // Vdd package->assign_pin(39, 0); // OSC1/CLKI package->assign_pin(40, m_porta->addPin(new IO_bi_directional("porta6"),6)); package->assign_pin(41, 0); // Vss package->assign_pin(42, m_portb->addPin(new IO_bi_directional_pu("portb6"),6)); package->assign_pin(43, m_portb->addPin(new IO_bi_directional_pu("portb5"),5)); package->assign_pin(44, m_portb->addPin(new IO_bi_directional_pu("portb4"),4)); package->assign_pin(45, m_portb->addPin(new IO_bi_directional_pu("portb3"),3)); package->assign_pin(46, m_portb->addPin(new IO_bi_directional_pu("portb2"),2)); package->assign_pin(47, m_portb->addPin(new IO_bi_directional_pu("portb1"),1)); package->assign_pin(48, m_portb->addPin(new IO_bi_directional_pu("portb0"),0)); package->assign_pin(49, m_portd->addPin(new IO_bi_directional("portd7"),7)); package->assign_pin(50, m_portd->addPin(new IO_bi_directional("portd6"),6)); package->assign_pin(51, m_portd->addPin(new IO_bi_directional("portd5"),5)); package->assign_pin(52, m_portd->addPin(new IO_bi_directional("portd4"),4)); package->assign_pin(53, m_portd->addPin(new IO_bi_directional("portd3"),3)); package->assign_pin(54, m_portd->addPin(new IO_bi_directional("portd2"),2)); package->assign_pin(55, m_portd->addPin(new IO_bi_directional("portd1"),1)); package->assign_pin(56, 0); // Vss package->assign_pin(57, 0); // Vdd package->assign_pin(58, m_portd->addPin(new IO_bi_directional("portd0"),0)); package->assign_pin(59, m_porte->addPin(new IO_bi_directional("porte7"),7)); package->assign_pin(60, m_porte->addPin(new IO_bi_directional("porte6"),6)); package->assign_pin(61, m_porte->addPin(new IO_bi_directional("porte5"),5)); package->assign_pin(62, m_porte->addPin(new IO_bi_directional("porte4"),4)); package->assign_pin(63, m_porte->addPin(new IO_bi_directional("porte3"),3)); package->assign_pin(64, m_porte->addPin(new IO_bi_directional("porte2"),2)); psp.initialize(&pir_set_def, // PIR m_portd, // Parallel port m_trisd, // Parallel tris pspcon, // Control register &(*m_porte)[0], // NOT RD &(*m_porte)[1], // NOT WR &(*m_porte)[2]); // NOT CS tmr1l.setIOpin(&(*m_portc)[0]); ssp.initialize(&pir_set_def, // PIR &(*m_portc)[3], // SCK &(*m_portf)[7], // SS &(*m_portc)[5], // SDO &(*m_portc)[4], // SDI m_trisc, // i2c tris port SSP_TYPE_MSSP ); set_osc_pin_Number(0,39, NULL); set_osc_pin_Number(1,40, &(*m_porta)[6]); } void P18F6x20::create_symbols() { if(verbose) cout << "P18F6x20 create symbols\n"; _16bit_processor::create_symbols(); } P18F6x20::P18F6x20(const char *_name, const char *desc) : _16bit_v2_adc(_name,desc), t4con(this, "t4con", "TMR4 Control"), pr4(this, "pr4", "TMR4 Period Register"), tmr4(this, "tmr4", "TMR4 Register"), pir3(this,"pir3","Peripheral Interrupt Register",0,0), pie3(this, "pie3", "Peripheral Interrupt Enable"), ipr3(this, "ipr3", "Interrupt Priorities"), ccp3con(this, "ccp3con", "Capture Compare Control"), ccpr3l(this, "ccpr3l", "Capture Compare 3 Low"), ccpr3h(this, "ccpr3h", "Capture Compare 3 High"), ccp4con(this, "ccp4con", "Capture Compare Control"), ccpr4l(this, "ccpr4l", "Capture Compare 4 Low"), ccpr4h(this, "ccpr4h", "Capture Compare 4 High"), ccp5con(this, "ccp5con", "Capture Compare Control"), ccpr5l(this, "ccpr5l", "Capture Compare 5 Low"), ccpr5h(this, "ccpr5h", "Capture Compare 5 High"), usart2(this), comparator(this) { if(verbose) cout << "18F6x20 constructor, type = " << isa() << '\n'; m_portd = new PicPSP_PortRegister(this,"portd","",8,0xFF); m_trisd = new PicTrisRegister(this,"trisd","", (PicPortRegister *)m_portd, false); m_latd = new PicLatchRegister(this,"latd","",m_portd); m_porte = new PicPortRegister(this,"porte","",8,0xFF); m_trise = new PicTrisRegister(this,"trise","", m_porte, false); m_late = new PicLatchRegister(this,"late","",m_porte); m_portf = new PicPortRegister(this,"portf","",8,0xFF); m_trisf = new PicTrisRegister(this,"trisf","", m_portf, false); m_latf = new PicLatchRegister(this,"latf","",m_portf); m_portg = new PicPortRegister(this,"portg","",8,0x1F); m_trisg = new PicTrisRegister(this,"trisg","", m_portg, false); m_latg = new PicLatchRegister(this,"latg","",m_portg); pspcon = new PSPCON(this, "pspcon",""); } P18F6x20::~P18F6x20() { delete_sfr_register(m_portd); delete_sfr_register(m_porte); delete_sfr_register(m_portf); delete_sfr_register(m_portg); delete_sfr_register(m_latd); delete_sfr_register(m_late); delete_sfr_register(m_latf); delete_sfr_register(m_latg); delete_sfr_register(m_trisd); delete_sfr_register(m_trise); delete_sfr_register(m_trisf); delete_sfr_register(m_trisg); delete_sfr_register(pspcon); delete_sfr_register(usart2.txreg); delete_sfr_register(usart2.rcreg); remove_sfr_register(&pie3); remove_sfr_register(&pir3); remove_sfr_register(&ipr3); remove_sfr_register(&usart2.rcsta); remove_sfr_register(&usart2.txsta); remove_sfr_register(&usart2.spbrg); remove_sfr_register(&ccp4con); remove_sfr_register(&ccpr4l); remove_sfr_register(&ccpr4h); remove_sfr_register(&ccp5con); remove_sfr_register(&ccpr5l); remove_sfr_register(&ccpr5h); remove_sfr_register(&t4con); remove_sfr_register(&pr4); remove_sfr_register(&tmr4); remove_sfr_register(&ccp3con); remove_sfr_register(&ccpr3l); remove_sfr_register(&ccpr3h); remove_sfr_register(&comparator.cmcon); remove_sfr_register(&comparator.vrcon); } void P18F6x20::create_sfr_map() { if(verbose) cout << "create_sfr_map P18F6x20\n"; _16bit_processor::create_sfr_map(); _16bit_v2_adc::create(12); RegisterValue porv(0,0); // cout << "Create extra ports\n"; add_sfr_register(m_portd, 0xf83,porv); add_sfr_register(m_porte, 0xf84,porv); add_sfr_register(m_portf, 0xf85,porv); add_sfr_register(m_portg, 0xf86,porv); add_sfr_register(m_latd, 0xf8c,porv); add_sfr_register(m_late, 0xf8d,porv); add_sfr_register(m_latf, 0xf8e,porv); add_sfr_register(m_latg, 0xf8f,porv); add_sfr_register(m_trisd, 0xf95,RegisterValue(0xff,0)); add_sfr_register(m_trise, 0xf96,RegisterValue(0xff,0)); add_sfr_register(m_trisf, 0xf97,RegisterValue(0xff,0)); add_sfr_register(m_trisg, 0xf98,RegisterValue(0x1f,0)); add_sfr_register(&pie3, 0xfa3,porv,"pie3"); add_sfr_register(&pir3, 0xfa4,porv,"pir3"); add_sfr_register(&ipr3, 0xfa5,porv,"ipr3"); add_sfr_register(pspcon, 0xfb0,RegisterValue(0x00,0)); // cout << "Assign ADC pins to " << adcon1 << "\n"; adcon1->setIOPin(4, &(*m_porta)[5]); adcon1->setIOPin(5, &(*m_portf)[0]); adcon1->setIOPin(6, &(*m_portf)[1]); adcon1->setIOPin(7, &(*m_portf)[2]); adcon1->setIOPin(8, &(*m_portf)[3]); adcon1->setIOPin(9, &(*m_portf)[4]); adcon1->setIOPin(10, &(*m_portf)[5]); adcon1->setIOPin(11, &(*m_portf)[6]); // adcon1->setIOPin(12, &(*m_portb)[0]); /* adcon1->setChanTable(0x1ff, 0x1fff, 0x1fff, 0x0fff, 0x07ff, 0x03ff, 0x01ff, 0x00ff, 0x007f, 0x003f, 0x001f, 0x000f, 0x0007, 0x0003, 0x0001, 0x0000); adcon1->setVrefHiChannel(3); adcon1->setVrefLoChannel(2); */ // Link the comparator and voltage ref to porta comparator.initialize(&pir_set_def, &(*m_porta)[2], &(*m_porta)[0], &(*m_porta)[1], &(*m_porta)[2], &(*m_porta)[3], &(*m_porta)[3], &(*m_porta)[4]); comparator.cmcon.set_configuration(1, 0, AN0, AN3, AN0, AN3, ZERO); comparator.cmcon.set_configuration(2, 0, AN1, AN2, AN1, AN2, ZERO); comparator.cmcon.set_configuration(1, 1, AN0, AN3, AN0, AN3, OUT0); comparator.cmcon.set_configuration(2, 1, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(1, 2, AN0, AN3, AN0, AN3, NO_OUT); comparator.cmcon.set_configuration(2, 2, AN1, AN2, AN1, AN2, NO_OUT); comparator.cmcon.set_configuration(1, 3, AN0, AN3, AN0, AN3, OUT0); comparator.cmcon.set_configuration(2, 3, AN1, AN2, AN1, AN2, OUT1); comparator.cmcon.set_configuration(1, 4, AN0, AN3, AN0, AN3, NO_OUT); comparator.cmcon.set_configuration(2, 4, AN1, AN3, AN1, AN3, NO_OUT); comparator.cmcon.set_configuration(1, 5, AN0, AN3, AN0, AN3, OUT0); comparator.cmcon.set_configuration(2, 5, AN1, AN3, AN1, AN3, OUT1); comparator.cmcon.set_configuration(1, 6, AN0, VREF, AN3, VREF, NO_OUT); comparator.cmcon.set_configuration(2, 6, AN1, VREF, AN2, VREF, NO_OUT); comparator.cmcon.set_configuration(1, 7, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 7, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); add_sfr_register(&comparator.cmcon, 0xfb4, RegisterValue(7,0),"cmcon"); add_sfr_register(&comparator.vrcon, 0xfb5, RegisterValue(0,0),"cvrcon"); // cout << "Setting CCP cross-links\n"; ccp2con.setCrosslinks(&ccpr2l, &pir2, PIR2v2::CCP2IF, &tmr2); ccp2con.setIOpin(&((*m_portc)[1])); ccpr2l.ccprh = &ccpr2h; ccpr2l.tmrl = &tmr1l; ccpr2h.ccprl = &ccpr2l; add_sfr_register(&ccp3con, 0xfb7,porv,"ccp3con"); add_sfr_register(&ccpr3l, 0xfb8,porv,"ccpr3l"); add_sfr_register(&ccpr3h, 0xfb9,porv,"ccpr3h"); add_sfr_register(&ccp4con, 0xf73,porv,"ccp4con"); add_sfr_register(&ccpr4l, 0xf74,porv,"ccpr4l"); add_sfr_register(&ccpr4h, 0xf75,porv,"ccpr4h"); add_sfr_register(&ccp5con, 0xf70,porv,"ccp5con"); add_sfr_register(&ccpr5l, 0xf71,porv,"ccpr5l"); add_sfr_register(&ccpr5h, 0xf72,porv,"ccpr5h"); add_sfr_register(&t4con, 0xf76,porv,"t4con"); add_sfr_register(&pr4, 0xf77,RegisterValue(0xff,0),"pr4"); add_sfr_register(&tmr4, 0xf78,porv,"tmr4"); ccp3con.setCrosslinks(&ccpr3l, &pir3, PIR3v1::CCP3IF, &tmr2); ccp3con.setIOpin(&((*m_portg)[0])); ccpr3l.ccprh = &ccpr3h; ccpr3l.tmrl = &tmr1l; ccpr3h.ccprl = &ccpr3l; tmr2.add_ccp ( &ccp3con ); ccp4con.setCrosslinks(&ccpr4l, &pir3, PIR3v1::CCP4IF, &tmr2); ccp4con.setIOpin(&((*m_portg)[3])); ccpr4l.ccprh = &ccpr4h; ccpr4l.tmrl = &tmr1l; ccpr4h.ccprl = &ccpr4l; tmr2.add_ccp ( &ccp4con ); ccp5con.setCrosslinks(&ccpr5l, &pir3, PIR3v1::CCP5IF, &tmr2); ccp5con.setIOpin(&((*m_portg)[4])); ccpr5l.ccprh = &ccpr5h; ccpr5l.tmrl = &tmr1l; ccpr5h.ccprl = &ccpr5l; tmr2.add_ccp ( &ccp5con ); //cout << "Create second USART\n"; usart2.initialize(&pir3,&(*m_portg)[1], &(*m_portg)[2], new _TXREG(this,"txreg2", "USART Transmit Register", &usart2), new _RCREG(this,"rcreg2", "USART Receiver Register", &usart2)); add_sfr_register(&usart2.rcsta, 0xf6b,porv,"rcsta2"); add_sfr_register(&usart2.txsta, 0xf6c,RegisterValue(0x02,0),"txsta2"); add_sfr_register(usart2.txreg, 0xf6d,porv,"txreg2"); add_sfr_register(usart2.rcreg, 0xf6e,porv,"rcreg2"); add_sfr_register(&usart2.spbrg, 0xf6f,porv,"spbrg2"); t4con.tmr2 = &tmr4; tmr4.pir_set = &pir_set_def; //get_pir_set(); tmr4.pr2 = &pr4; tmr4.t2con = &t4con; tmr4.add_ccp ( &ccp1con ); tmr4.add_ccp ( &ccp2con ); pr4.tmr2 = &tmr4; pir3.set_intcon(&intcon); pir3.set_pie(&pie3); pir3.set_ipr(&ipr3); pie3.setPir(&pir3); //pie3.new_name("pie3"); } //------------------------------------------------------------------------ // // P18F6520 // P18F6520::P18F6520(const char *_name, const char *desc) : P18F6x20(_name,desc) { if(verbose) cout << "18F6520 constructor, type = " << isa() << '\n'; } Processor * P18F6520::construct(const char *name) { P18F6520 *p = new P18F6520(name); if(verbose) cout << " 18F6520 construct\n"; p->create(); p->create_invalid_registers(); p->create_symbols(); if(verbose&2) cout << " 18F6520 construct completed\n"; return p; } gpsim-0.27.0/src/p16f87x.cc0000664000076400007640000007417512175377101012115 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ // // p16f87x // // This file supports: // P16F874 P16F877 // P16F871 P16F873 // P16F876 P16F873A // P14F874A P16F876A // P16F877A // #include #include #include #include "../config.h" #include "symbol.h" #include "p16f87x.h" #include "pic-ioports.h" #include "stimuli.h" //------------------------------------------------------------------- void P16F871::set_out_of_range_pm(unsigned int address, unsigned int value) { if( (address>= 0x2100) && (address < 0x2100 + get_eeprom()->get_rom_size())) { get_eeprom()->change_rom(address - 0x2100, value); } } void P16F871::create_sfr_map() { if(verbose) cout << "creating f871 registers \n"; add_sfr_register(pir2, 0x0d, RegisterValue(0,0),"pir2"); add_sfr_register(&pie2, 0x8d, RegisterValue(0,0)); // Parent classes just set PIR1 pir_set_2_def.set_pir2(pir2_2_reg); usart.initialize(pir1,&(*m_portc)[6], &(*m_portc)[7], new _TXREG(this,"txreg", "USART Transmit Register", &usart), new _RCREG(this,"rcreg", "USART Receiver Register", &usart)); add_sfr_register(&usart.rcsta, 0x18, RegisterValue(0,0),"rcsta"); add_sfr_register(&usart.txsta, 0x98, RegisterValue(2,0),"txsta"); add_sfr_register(&usart.spbrg, 0x99, RegisterValue(0,0),"spbrg"); add_sfr_register(usart.txreg, 0x19, RegisterValue(0,0),"txreg"); add_sfr_register(usart.rcreg, 0x1a, RegisterValue(0,0),"rcreg"); intcon = &intcon_reg; if (pir2) { pir2->set_intcon(&intcon_reg); pir2->set_pie(&pie2); } pie2.setPir(get_pir2()); add_sfr_register(get_eeprom()->get_reg_eedata(), 0x10c); add_sfr_register(get_eeprom()->get_reg_eecon1(), 0x18c, RegisterValue(0,0)); // Enable program memory reads and writes. get_eeprom()->get_reg_eecon1()->set_bits(EECON1::EEPGD); add_sfr_register(get_eeprom()->get_reg_eeadr(), 0x10d); add_sfr_register(get_eeprom()->get_reg_eecon2(), 0x18d); add_sfr_register(get_eeprom()->get_reg_eedatah(), 0x10e); add_sfr_register(get_eeprom()->get_reg_eeadrh(), 0x10f); alias_file_registers(0x70,0x7f,0x80); alias_file_registers(0x70,0x7f,0x100); alias_file_registers(0x70,0x7f,0x180); alias_file_registers(0x00,0x04,0x100); alias_file_registers(0x80,0x84,0x100); alias_file_registers(0x06,0x06,0x100); alias_file_registers(0x86,0x86,0x100); //alias_file_registers(0x0a,0x0b,0x080); //already called alias_file_registers(0x0a,0x0b,0x100); alias_file_registers(0x0a,0x0b,0x180); //alias_file_registers(0x20,0x7f,0x100); // already called alias_file_registers(0xa0,0xbf,0x100); add_sfr_register(&adcon0, 0x1f, RegisterValue(0,0)); add_sfr_register(&adcon1, 0x9f, RegisterValue(0,0)); add_sfr_register(&adres, 0x1e, RegisterValue(0,0)); add_sfr_register(&adresl, 0x9e, RegisterValue(0,0)); //1adcon0.analog_port = porta; //1adcon0.analog_port2 = porte; adcon0.setAdres(&adres); adcon0.setAdcon1(&adcon1); adcon0.setIntcon(&intcon_reg); adcon0.setPir(pir1); adcon0.setChannel_Mask(7); adcon0.setAdresLow(&adresl); adcon0.setA2DBits(10); adcon1.setValidCfgBits(ADCON1::PCFG0 | ADCON1::PCFG1 | ADCON1::PCFG2 | ADCON1::PCFG3, 0); adcon1.setNumberOfChannels(8); adcon1.setIOPin(0, &(*m_porta)[0]); adcon1.setIOPin(1, &(*m_porta)[1]); adcon1.setIOPin(2, &(*m_porta)[2]); adcon1.setIOPin(3, &(*m_porta)[3]); adcon1.setIOPin(4, &(*m_porta)[5]); adcon1.setIOPin(5, &(*m_porte)[0]); adcon1.setIOPin(6, &(*m_porte)[1]); adcon1.setIOPin(7, &(*m_porte)[2]); adcon1.setChannelConfiguration(0, 0xff); adcon1.setChannelConfiguration(1, 0xff); adcon1.setChannelConfiguration(2, 0x1f); adcon1.setChannelConfiguration(3, 0x1f); adcon1.setChannelConfiguration(4, 0x0b); adcon1.setChannelConfiguration(5, 0x0b); adcon1.setChannelConfiguration(6, 0x00); adcon1.setChannelConfiguration(7, 0x00); adcon1.setChannelConfiguration(8, 0xff); adcon1.setChannelConfiguration(9, 0x3f); adcon1.setChannelConfiguration(10, 0x3f); adcon1.setChannelConfiguration(11, 0x3f); adcon1.setChannelConfiguration(12, 0x1f); adcon1.setChannelConfiguration(13, 0x0f); adcon1.setChannelConfiguration(14, 0x01); adcon1.setChannelConfiguration(15, 0x0d); adcon1.setVrefHiConfiguration(1, 3); adcon1.setVrefHiConfiguration(3, 3); adcon1.setVrefHiConfiguration(5, 3); adcon1.setVrefHiConfiguration(8, 3); adcon1.setVrefHiConfiguration(10, 3); adcon1.setVrefHiConfiguration(11, 3); adcon1.setVrefHiConfiguration(12, 3); adcon1.setVrefHiConfiguration(13, 3); adcon1.setVrefHiConfiguration(15, 3); adcon1.setVrefLoConfiguration(8, 2); adcon1.setVrefLoConfiguration(11, 2); adcon1.setVrefLoConfiguration(12, 2); adcon1.setVrefLoConfiguration(13, 2); adcon1.setVrefLoConfiguration(15, 2); } void P16F871::create() { if(verbose) cout << " f871 create \n"; P16C64::create(); EEPROM_WIDE *e; e = new EEPROM_WIDE(this,pir2); e->initialize(64); e->set_intcon(&intcon_reg); set_eeprom_wide(e); status->rp_mask = 0x60; // rp0 and rp1 are valid. indf->base_address_mask1 = 0x80; // used for indirect accesses above 0x100 indf->base_address_mask2 = 0x1ff; // used for indirect accesses above 0x100 P16F871::create_sfr_map(); } Processor * P16F871::construct(const char *name) { P16F871 *p = new P16F871(name); if(verbose) cout << " f871 construct\n"; p->create(); p->create_invalid_registers (); p->create_symbols(); return p; } void P16F871::create_symbols() { if(verbose) cout << "f871 create symbols\n"; Pic14Bit::create_symbols(); } //======================================================================== P16F871::P16F871(const char *_name, const char *desc) : P16C64(_name,desc) , adcon0(this,"adcon0", "A2D Control 0"), adcon1(this,"adcon1", "A2D Control 1"), adres(this,"adres", "A2D Result"), adresl(this,"adresl", "A2D Result Low"), usart(this) { if(verbose) cout << "f871 constructor, type = " << isa() << '\n'; //pir2 = &pir2_2_reg; pir2_2_reg = new PIR2v2(this,"pir2","Peripheral Interrupt Register",&intcon_reg,&pie2); delete pir2; pir2 = pir2_2_reg; } P16F871::~P16F871() { remove_sfr_register(&pie2); remove_sfr_register(&adcon0); remove_sfr_register(&adcon1); remove_sfr_register(&adres); remove_sfr_register(&adresl); remove_sfr_register(&usart.rcsta); remove_sfr_register(&usart.txsta); remove_sfr_register(&usart.spbrg); delete_sfr_register(usart.txreg); delete_sfr_register(usart.rcreg); remove_sfr_register(get_eeprom()->get_reg_eedata()); remove_sfr_register(get_eeprom()->get_reg_eecon1()); remove_sfr_register(get_eeprom()->get_reg_eeadr()); remove_sfr_register(get_eeprom()->get_reg_eecon2()); remove_sfr_register(get_eeprom()->get_reg_eedatah()); remove_sfr_register(get_eeprom()->get_reg_eeadrh()); delete get_eeprom(); } //------------------------------------------------------- void P16F873::set_out_of_range_pm(unsigned int address, unsigned int value) { if( (address>= 0x2100) && (address < 0x2100 + get_eeprom()->get_rom_size())) { get_eeprom()->change_rom(address - 0x2100, value); } } void P16F873::create_sfr_map() { if(verbose) cout << "creating f873 registers \n"; add_sfr_register(get_eeprom()->get_reg_eedata(), 0x10c); add_sfr_register(get_eeprom()->get_reg_eecon1(), 0x18c, RegisterValue(0,0)); // Enable program memory reads and writes. get_eeprom()->get_reg_eecon1()->set_bits(EECON1::EEPGD); add_sfr_register(get_eeprom()->get_reg_eeadr(), 0x10d); add_sfr_register(get_eeprom()->get_reg_eecon2(), 0x18d); add_sfr_register(get_eeprom()->get_reg_eedatah(), 0x10e); add_sfr_register(get_eeprom()->get_reg_eeadrh(), 0x10f); alias_file_registers(0x80,0x80,0x80); alias_file_registers(0x01,0x01,0x100); alias_file_registers(0x82,0x84,0x80); alias_file_registers(0x06,0x06,0x100); alias_file_registers(0x8a,0x8b,0x80); alias_file_registers(0x100,0x100,0x80); alias_file_registers(0x81,0x81,0x100); alias_file_registers(0x102,0x104,0x80); alias_file_registers(0x86,0x86,0x100); alias_file_registers(0x10a,0x10b,0x80); alias_file_registers(0x20,0x7f,0x100); alias_file_registers(0xa0,0xff,0x100); // The rest of the A/D definition in 16C73 add_sfr_register(&adresl, 0x9e, RegisterValue(0,0)); adcon0.setAdresLow(&adresl); adcon0.setA2DBits(10); adcon1.setValidCfgBits(ADCON1::PCFG0 | ADCON1::PCFG1 | ADCON1::PCFG2 | ADCON1::PCFG3 , 0); adcon1.setChannelConfiguration(0, 0x1f); adcon1.setChannelConfiguration(1, 0x1f); adcon1.setChannelConfiguration(2, 0x1f); adcon1.setChannelConfiguration(3, 0x1f); adcon1.setChannelConfiguration(4, 0x0b); adcon1.setChannelConfiguration(5, 0x0b); adcon1.setChannelConfiguration(6, 0x00); adcon1.setChannelConfiguration(7, 0x00); adcon1.setChannelConfiguration(8, 0x1f); adcon1.setChannelConfiguration(9, 0x1f); adcon1.setChannelConfiguration(10, 0x1f); adcon1.setChannelConfiguration(11, 0x1f); adcon1.setChannelConfiguration(12, 0x1f); adcon1.setChannelConfiguration(13, 0x1f); adcon1.setChannelConfiguration(14, 0x01); adcon1.setChannelConfiguration(15, 0x0d); adcon1.setVrefHiConfiguration(1, 3); adcon1.setVrefHiConfiguration(3, 3); adcon1.setVrefHiConfiguration(5, 3); adcon1.setVrefHiConfiguration(8, 3); adcon1.setVrefHiConfiguration(10, 3); adcon1.setVrefHiConfiguration(11, 3); adcon1.setVrefHiConfiguration(12, 3); adcon1.setVrefHiConfiguration(13, 3); adcon1.setVrefHiConfiguration(15, 3); adcon1.setVrefLoConfiguration(8, 2); adcon1.setVrefLoConfiguration(11, 2); adcon1.setVrefLoConfiguration(12, 2); adcon1.setVrefLoConfiguration(13, 2); adcon1.setVrefLoConfiguration(15, 2); add_sfr_register(&ssp.sspcon2, 0x91, RegisterValue(0,0) ,"sspcon2"); ssp.initialize( get_pir_set(), // PIR &(*m_portc)[3], // SCK &(*m_porta)[5], // SS &(*m_portc)[5], // SDO &(*m_portc)[4], // SDI m_trisc, // i2c tris port SSP_TYPE_MSSP ); } void P16F873::create() { if(verbose) cout << " f873 create \n"; P16C73::create(); EEPROM_WIDE *e; e = new EEPROM_WIDE(this,pir2); e->initialize(128); e->set_intcon(&intcon_reg); set_eeprom_wide(e); status->rp_mask = 0x60; // rp0 and rp1 are valid. indf->base_address_mask1 = 0x80; // used for indirect accesses above 0x100 indf->base_address_mask2 = 0x1ff; // used for indirect accesses above 0x100 P16F873::create_sfr_map(); } //======================================================================== Processor * P16F873::construct(const char *name) { P16F873 *p = new P16F873(name); if(verbose) cout << " f873 construct\n"; p->create(); p->create_invalid_registers (); p->create_symbols(); return p; } void P16F873::create_symbols() { if(verbose) cout << "f873 create symbols\n"; Pic14Bit::create_symbols(); } P16F873::P16F873(const char *_name, const char *desc) : P16C73(_name,desc), adresl(this,"adresl", "A2D Result Low") { if(verbose) cout << "f873 constructor, type = " << isa() << '\n'; set_hasSSP(); } P16F873::~P16F873() { remove_sfr_register(&ssp.sspcon2); remove_sfr_register(&adresl); remove_sfr_register(get_eeprom()->get_reg_eedata()); remove_sfr_register(get_eeprom()->get_reg_eecon1()); remove_sfr_register(get_eeprom()->get_reg_eeadr()); remove_sfr_register(get_eeprom()->get_reg_eecon2()); remove_sfr_register(get_eeprom()->get_reg_eedatah()); remove_sfr_register(get_eeprom()->get_reg_eeadrh()); delete get_eeprom(); } void P16F873A::create() { if(verbose) cout << " f873A create \n"; P16F873::create(); P16F873A::create_sfr_map(); } void P16F873A::create_sfr_map() { if(verbose) cout << "creating f873A registers \n"; // Link the comparator and voltage ref to porta comparator.initialize(get_pir_set(), &(*m_porta)[2], &(*m_porta)[0], &(*m_porta)[1], &(*m_porta)[2], &(*m_porta)[3], &(*m_porta)[4], &(*m_porta)[5]); comparator.cmcon.set_configuration(1, 0, AN0, AN3, AN0, AN3, ZERO); comparator.cmcon.set_configuration(2, 0, AN1, AN2, AN1, AN2, ZERO); comparator.cmcon.set_configuration(1, 1, AN0, AN3, AN0, AN3, OUT0); comparator.cmcon.set_configuration(2, 1, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(1, 2, AN0, AN3, AN0, AN3, NO_OUT); comparator.cmcon.set_configuration(2, 2, AN1, AN2, AN1, AN2, NO_OUT); comparator.cmcon.set_configuration(1, 3, AN0, AN3, AN0, AN3, OUT0); comparator.cmcon.set_configuration(2, 3, AN1, AN2, AN1, AN2, OUT1); comparator.cmcon.set_configuration(1, 4, AN0, AN3, AN0, AN3, NO_OUT); comparator.cmcon.set_configuration(2, 4, AN1, AN3, AN1, AN3, NO_OUT); comparator.cmcon.set_configuration(1, 5, AN0, AN3, AN0, AN3, OUT0); comparator.cmcon.set_configuration(2, 5, AN1, AN3, AN1, AN3, OUT1); comparator.cmcon.set_configuration(1, 6, AN0, VREF, AN3, VREF, NO_OUT); comparator.cmcon.set_configuration(2, 6, AN1, VREF, AN2, VREF, NO_OUT); comparator.cmcon.set_configuration(1, 7, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 7, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); add_sfr_register(&comparator.cmcon, 0x9c, RegisterValue(7,0),"cmcon"); add_sfr_register(&comparator.vrcon, 0x9d, RegisterValue(0,0),"vrcon"); } Processor * P16F873A::construct(const char *name) { P16F873A *p = new P16F873A(name); if(verbose) cout << " f873A construct\n"; p->create(); p->create_invalid_registers (); p->create_symbols(); return p; } P16F873A::P16F873A(const char *_name, const char *desc) : P16F873(_name,desc), comparator(this) { if(verbose) cout << "f873A constructor, type = " << isa() << '\n'; } P16F873A::~P16F873A() { remove_sfr_register(&comparator.cmcon); remove_sfr_register(&comparator.vrcon); } Processor * P16F876::construct(const char *name) { P16F876 *p = new P16F876(name); if(verbose) cout << " f876 construct\n"; p->create(); p->create_invalid_registers (); p->create_symbols(); return p; } void P16F876::set_out_of_range_pm(unsigned int address, unsigned int value) { if( (address>= 0x2100) && (address < 0x2100 + get_eeprom()->get_rom_size())) { get_eeprom()->change_rom(address - 0x2100, value); } } void P16F876::create_sfr_map() { if(verbose) cout << "creating f876 registers \n"; add_sfr_register(get_eeprom()->get_reg_eedata(), 0x10c); add_sfr_register(get_eeprom()->get_reg_eecon1(), 0x18c, RegisterValue(0,0)); // Enable program memory reads and writes. get_eeprom()->get_reg_eecon1()->set_bits(EECON1::EEPGD); add_sfr_register(get_eeprom()->get_reg_eeadr(), 0x10d); add_sfr_register(get_eeprom()->get_reg_eecon2(), 0x18d); add_sfr_register(get_eeprom()->get_reg_eedatah(), 0x10e); add_sfr_register(get_eeprom()->get_reg_eeadrh(), 0x10f); alias_file_registers(0x80,0x80,0x80); alias_file_registers(0x01,0x01,0x100); alias_file_registers(0x82,0x84,0x80); alias_file_registers(0x06,0x06,0x100); alias_file_registers(0x8a,0x8b,0x80); alias_file_registers(0x100,0x100,0x80); alias_file_registers(0x81,0x81,0x100); alias_file_registers(0x102,0x104,0x80); alias_file_registers(0x86,0x86,0x100); alias_file_registers(0x10a,0x10b,0x80); add_file_registers(0x110, 0x16f, 0); add_file_registers(0x190, 0x1ef, 0); alias_file_registers(0x70,0x7f,0x80); alias_file_registers(0x70,0x7f,0x100); alias_file_registers(0x70,0x7f,0x180); // The rest of the A/D definition in 16C73 add_sfr_register(&adresl, 0x9e, RegisterValue(0,0)); adcon0.setAdresLow(&adresl); adcon0.setA2DBits(10); adcon1.setValidCfgBits(ADCON1::PCFG0 | ADCON1::PCFG1 | ADCON1::PCFG2 | ADCON1::PCFG3 , 0); adcon1.setChannelConfiguration(0, 0x1f); adcon1.setChannelConfiguration(1, 0x1f); adcon1.setChannelConfiguration(2, 0x1f); adcon1.setChannelConfiguration(3, 0x1f); adcon1.setChannelConfiguration(4, 0x0b); adcon1.setChannelConfiguration(5, 0x0b); adcon1.setChannelConfiguration(6, 0x00); adcon1.setChannelConfiguration(7, 0x00); adcon1.setChannelConfiguration(8, 0x1f); adcon1.setChannelConfiguration(9, 0x1f); adcon1.setChannelConfiguration(10, 0x1f); adcon1.setChannelConfiguration(11, 0x1f); adcon1.setChannelConfiguration(12, 0x1f); adcon1.setChannelConfiguration(13, 0x1f); adcon1.setChannelConfiguration(14, 0x01); adcon1.setChannelConfiguration(15, 0x0d); adcon1.setVrefHiConfiguration(1, 3); adcon1.setVrefHiConfiguration(3, 3); adcon1.setVrefHiConfiguration(5, 3); adcon1.setVrefHiConfiguration(8, 3); adcon1.setVrefHiConfiguration(10, 3); adcon1.setVrefHiConfiguration(11, 3); adcon1.setVrefHiConfiguration(12, 3); adcon1.setVrefHiConfiguration(13, 3); adcon1.setVrefHiConfiguration(15, 3); adcon1.setVrefLoConfiguration(8, 2); adcon1.setVrefLoConfiguration(11, 2); adcon1.setVrefLoConfiguration(12, 2); adcon1.setVrefLoConfiguration(13, 2); adcon1.setVrefLoConfiguration(15, 2); add_sfr_register(&ssp.sspcon2, 0x91, RegisterValue(0,0) ,"sspcon2"); ssp.initialize( get_pir_set(), // PIR &(*m_portc)[3], // SCK &(*m_porta)[5], // SS &(*m_portc)[5], // SDO &(*m_portc)[4], // SDI m_trisc, // i2c tris port SSP_TYPE_MSSP ); } void P16F876::create() { if(verbose) cout << " f876 create \n"; P16C73::create(); EEPROM_WIDE *e; e = new EEPROM_WIDE(this,pir2); e->initialize(128); e->set_intcon(&intcon_reg); set_eeprom_wide(e); status->rp_mask = 0x60; // rp0 and rp1 are valid. indf->base_address_mask1 = 0x80; // used for indirect accesses above 0x100 indf->base_address_mask2 = 0x1ff; // used for indirect accesses above 0x100 P16F876::create_sfr_map(); } void P16F876::create_symbols() { if(verbose) cout << "f876 create symbols\n"; Pic14Bit::create_symbols(); } P16F876::P16F876(const char *_name, const char *desc) : P16C73(_name,desc), adresl(this,"adresl", "A2D Result Low") { if(verbose) cout << "f876 constructor, type = " << isa() << '\n'; } P16F876::~P16F876() { remove_sfr_register(get_eeprom()->get_reg_eedata()); remove_sfr_register(get_eeprom()->get_reg_eecon1()); remove_sfr_register(get_eeprom()->get_reg_eeadr()); remove_sfr_register(get_eeprom()->get_reg_eecon2()); remove_sfr_register(get_eeprom()->get_reg_eedatah()); remove_sfr_register(get_eeprom()->get_reg_eeadrh()); delete get_eeprom(); remove_sfr_register(&ssp.sspcon2); remove_sfr_register(&adresl); delete_file_registers(0x110, 0x16f); delete_file_registers(0x190, 0x1ef); } Processor * P16F876A::construct(const char *name) { P16F876A *p = new P16F876A(name); if(verbose) cout << " f876A construct\n"; p->create(); p->create_invalid_registers (); p->create_symbols(); return p; } void P16F876A::create_sfr_map() { if(verbose) cout << "creating f876A registers \n"; } void P16F876A::create() { if(verbose) cout << " f876A create \n"; P16F873A::create(); // get rid of aliases delete_file_registers(0x20,0x7f); // get rid of aliases delete_file_registers(0xa0,0xff); // "" add_file_registers(0x20,0x7f, 0); add_file_registers(0xa0, 0xef,0); add_file_registers(0x110, 0x16f, 0); add_file_registers(0x190, 0x1ef, 0); alias_file_registers(0x70,0x7f,0x80); alias_file_registers(0x70,0x7f,0x100); alias_file_registers(0x70,0x7f,0x180); P16F876A::create_sfr_map(); } P16F876A::P16F876A(const char *_name, const char *desc) : P16F873A(_name,desc), comparator(this) { if(verbose) cout << "f876A constructor, type = " << isa() << '\n'; } P16F876A::~P16F876A() { delete_file_registers(0x110, 0x16f); delete_file_registers(0x190, 0x1ef); } //------------------------------------------------------- void P16F874::set_out_of_range_pm(unsigned int address, unsigned int value) { if( (address>= 0x2100) && (address < 0x2100 + get_eeprom()->get_rom_size())) { get_eeprom()->change_rom(address - 0x2100, value); } } void P16F874::create_sfr_map() { if(verbose) cout << "creating f874 registers \n"; add_sfr_register(get_eeprom()->get_reg_eedata(), 0x10c); add_sfr_register(get_eeprom()->get_reg_eecon1(), 0x18c, RegisterValue(0,0)); // Enable program memory reads and writes. get_eeprom()->get_reg_eecon1()->set_bits(EECON1::EEPGD); add_sfr_register(get_eeprom()->get_reg_eeadr(), 0x10d); add_sfr_register(get_eeprom()->get_reg_eecon2(), 0x18d); add_sfr_register(get_eeprom()->get_reg_eedatah(), 0x10e); add_sfr_register(get_eeprom()->get_reg_eeadrh(), 0x10f); alias_file_registers(0x80,0x80,0x80); alias_file_registers(0x01,0x01,0x100); alias_file_registers(0x82,0x84,0x80); alias_file_registers(0x06,0x06,0x100); alias_file_registers(0x8a,0x8b,0x80); alias_file_registers(0x100,0x100,0x80); alias_file_registers(0x81,0x81,0x100); alias_file_registers(0x102,0x104,0x80); alias_file_registers(0x86,0x86,0x100); alias_file_registers(0x10a,0x10b,0x80); alias_file_registers(0x20,0x7f,0x100); alias_file_registers(0xa0,0xff,0x100); // The rest of the A/D definition in 16C74 add_sfr_register(&adresl, 0x9e, RegisterValue(0,0)); adcon0.setA2DBits(10); adcon0.setAdresLow(&adresl); adcon1.setValidCfgBits(ADCON1::PCFG0 | ADCON1::PCFG1 | ADCON1::PCFG2 | ADCON1::PCFG3, 0); adcon1.setChannelConfiguration(0, 0xff); adcon1.setChannelConfiguration(1, 0xff); adcon1.setChannelConfiguration(2, 0x1f); adcon1.setChannelConfiguration(3, 0x1f); adcon1.setChannelConfiguration(4, 0x0b); adcon1.setChannelConfiguration(5, 0x0b); adcon1.setChannelConfiguration(6, 0x00); adcon1.setChannelConfiguration(7, 0x00); adcon1.setChannelConfiguration(8, 0xff); adcon1.setChannelConfiguration(9, 0x3f); adcon1.setChannelConfiguration(10, 0x3f); adcon1.setChannelConfiguration(11, 0x3f); adcon1.setChannelConfiguration(12, 0x3f); adcon1.setChannelConfiguration(13, 0x1f); adcon1.setChannelConfiguration(14, 0x01); adcon1.setChannelConfiguration(15, 0x0d); adcon1.setVrefHiConfiguration(1, 3); adcon1.setVrefHiConfiguration(3, 3); adcon1.setVrefHiConfiguration(5, 3); adcon1.setVrefHiConfiguration(8, 3); adcon1.setVrefHiConfiguration(10, 3); adcon1.setVrefHiConfiguration(11, 3); adcon1.setVrefHiConfiguration(12, 3); adcon1.setVrefHiConfiguration(13, 3); adcon1.setVrefHiConfiguration(15, 3); adcon1.setVrefLoConfiguration(8, 2); adcon1.setVrefLoConfiguration(11, 2); adcon1.setVrefLoConfiguration(12, 2); adcon1.setVrefLoConfiguration(13, 2); adcon1.setVrefLoConfiguration(15, 2); add_sfr_register(&ssp.sspcon2, 0x91, RegisterValue(0,0) ,"sspcon2"); ssp.initialize( get_pir_set(), // PIR &(*m_portc)[3], // SCK &(*m_porta)[5], // SS &(*m_portc)[5], // SDO &(*m_portc)[4], // SDI m_trisc, // i2c tris port SSP_TYPE_MSSP ); } void P16F874::create() { if(verbose) cout << " f874 create \n"; P16C74::create(); EEPROM_WIDE *e; e = new EEPROM_WIDE(this,pir2); e->initialize(128); e->set_intcon(&intcon_reg); set_eeprom_wide(e); status->rp_mask = 0x60; // rp0 and rp1 are valid. indf->base_address_mask1 = 0x80; // used for indirect accesses above 0x100 indf->base_address_mask2 = 0x1ff; // used for indirect accesses above 0x100 P16F874::create_sfr_map(); } Processor * P16F874::construct(const char *name) { P16F874 *p = new P16F874(name); if(verbose) cout << " f874 construct\n"; p->create(); p->create_invalid_registers (); p->create_symbols(); return p; } void P16F874::create_symbols() { if(verbose) cout << "f874 create symbols\n"; Pic14Bit::create_symbols(); } P16F874::P16F874(const char *_name, const char *desc) : P16C74(_name,desc), comparator(this), adresl(this,"adresl", "A2D Result Low") { if(verbose) cout << "f874 constructor, type = " << isa() << '\n'; set_hasSSP(); } P16F874::~P16F874() { remove_sfr_register(&adresl); remove_sfr_register(&ssp.sspcon2); remove_sfr_register(get_eeprom()->get_reg_eedata()); remove_sfr_register(get_eeprom()->get_reg_eecon1()); remove_sfr_register(get_eeprom()->get_reg_eeadr()); remove_sfr_register(get_eeprom()->get_reg_eecon2()); remove_sfr_register(get_eeprom()->get_reg_eedatah()); remove_sfr_register(get_eeprom()->get_reg_eeadrh()); delete get_eeprom(); } //------------------------------------------------------- void P16F874A::set_out_of_range_pm(unsigned int address, unsigned int value) { if( (address>= 0x2100) && (address < 0x2100 + get_eeprom()->get_rom_size())) { get_eeprom()->change_rom(address - 0x2100, value); } } void P16F874A::create_sfr_map() { if(verbose) cout << "creating f874A registers \n"; // Link the comparator and voltage ref to porta comparator.initialize(get_pir_set(), &(*m_porta)[2], &(*m_porta)[0], &(*m_porta)[1], &(*m_porta)[2], &(*m_porta)[3], &(*m_porta)[4], &(*m_porta)[5]); comparator.cmcon.set_configuration(1, 0, AN0, AN3, AN0, AN3, ZERO); comparator.cmcon.set_configuration(2, 0, AN1, AN2, AN1, AN2, ZERO); comparator.cmcon.set_configuration(1, 1, AN0, AN3, AN0, AN3, OUT0); comparator.cmcon.set_configuration(2, 1, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(1, 2, AN0, AN3, AN0, AN3, NO_OUT); comparator.cmcon.set_configuration(2, 2, AN1, AN2, AN1, AN2, NO_OUT); comparator.cmcon.set_configuration(1, 3, AN0, AN3, AN0, AN3, OUT0); comparator.cmcon.set_configuration(2, 3, AN1, AN2, AN1, AN2, OUT1); comparator.cmcon.set_configuration(1, 4, AN0, AN3, AN0, AN3, NO_OUT); comparator.cmcon.set_configuration(2, 4, AN1, AN3, AN1, AN3, NO_OUT); comparator.cmcon.set_configuration(1, 5, AN0, AN3, AN0, AN3, OUT0); comparator.cmcon.set_configuration(2, 5, AN1, AN3, AN1, AN3, OUT1); comparator.cmcon.set_configuration(1, 6, AN0, VREF, AN3, VREF, NO_OUT); comparator.cmcon.set_configuration(2, 6, AN1, VREF, AN2, VREF, NO_OUT); comparator.cmcon.set_configuration(1, 7, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); comparator.cmcon.set_configuration(2, 7, NO_IN, NO_IN, NO_IN, NO_IN, ZERO); add_sfr_register(&comparator.cmcon, 0x9c, RegisterValue(7,0),"cmcon"); add_sfr_register(&comparator.vrcon, 0x9d, RegisterValue(0,0),"vrcon"); } void P16F874A::create() { if(verbose) cout << " f874A create \n"; P16F874::create(); P16F874A::create_sfr_map(); } Processor * P16F874A::construct(const char *name) { P16F874A *p = new P16F874A(name); if(verbose) cout << " f874A construct\n"; p->create(); p->create_invalid_registers (); p->create_symbols(); return p; } void P16F874A::create_symbols() { if(verbose) cout << "f874A create symbols\n"; Pic14Bit::create_symbols(); } P16F874A::P16F874A(const char *_name, const char *desc) : P16F874(_name,desc), comparator(this) { if(verbose) cout << "f874A constructor, type = " << isa() << '\n'; } P16F874A::~P16F874A() { remove_sfr_register(&comparator.cmcon); remove_sfr_register(&comparator.vrcon); } void P16F877::create_sfr_map() { if(verbose) cout << "creating f877 registers \n"; } void P16F877::create() { if(verbose) cout << " f877 create \n"; P16F874::create(); delete_file_registers(0x20, 0x7f); // get rid of alias registers delete_file_registers(0xa0, 0xff); // "" add_file_registers(0x20, 0x7f, 0); add_file_registers(0xa0, 0xef, 0); add_file_registers(0x110, 0x11f, 0); add_file_registers(0x190, 0x19f, 0); alias_file_registers(0x70,0x7f,0x80); alias_file_registers(0x70,0x7f,0x100); alias_file_registers(0x70,0x7f,0x180); P16F877::create_sfr_map(); } Processor * P16F877::construct(const char *name) { P16F877 *p = new P16F877(name); if(verbose) cout << " f877 construct\n"; p->create(); p->create_invalid_registers (); p->create_symbols(); return p; } void P16F877::create_symbols() { if(verbose) cout << "f877 create symbols\n"; Pic14Bit::create_symbols(); } P16F877::P16F877(const char *_name, const char *desc) : P16F874(_name,desc) { if(verbose) cout << "f877 constructor, type = " << isa() << '\n'; } P16F877::~P16F877() { delete_file_registers(0x110, 0x11f); delete_file_registers(0x190, 0x19f); } void P16F877A::create_sfr_map() { if(verbose) cout << "creating f877A registers \n"; } void P16F877A::create() { if(verbose) cout << " f877A create \n"; P16F874A::create(); delete_file_registers(0x20, 0x7f); // get rid of alias registers delete_file_registers(0xa0, 0xff); // "" add_file_registers(0x20, 0x7f, 0); add_file_registers(0xa0, 0xef, 0); add_file_registers(0x110, 0x16f, 0); add_file_registers(0x190, 0x1ef, 0); alias_file_registers(0x70,0x7f,0x80); alias_file_registers(0x70,0x7f,0x100); alias_file_registers(0x70,0x7f,0x180); P16F877A::create_sfr_map(); } Processor * P16F877A::construct(const char *name) { P16F877A *p = new P16F877A(name); if(verbose) cout << " f877A construct\n"; p->create(); p->create_invalid_registers (); p->create_symbols(); return p; } void P16F877A::create_symbols() { if(verbose) cout << "f877A create symbols\n"; Pic14Bit::create_symbols(); } P16F877A::P16F877A(const char *_name, const char *desc) : P16F874A(_name,desc), comparator(this) { if(verbose) cout << "f877A constructor, type = " << isa() << '\n'; } P16F877A::~P16F877A() { delete_file_registers(0x110, 0x16f); delete_file_registers(0x190, 0x1ef); } gpsim-0.27.0/src/p16x7x.cc0000664000076400007640000004354012175377101012037 00000000000000/* Copyright (C) 1998 T. Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ // // p16x7x // // This file supports: // P16C71 // P16C712 // P16C716 // P16C72 // P16C73 // P16C74 #include #include #include #include "../config.h" #include "symbol.h" #include "p16x7x.h" #include "pic-ioports.h" #include "stimuli.h" #include "pm_rd.h" //#define DEBUG_AD //------------------------------------------------------ class P16C71::PIR_16C71 : public PIR_SET { public: PIR_16C71(ADCON0 *adcon0) : m_adcon0(adcon0) { } virtual int interrupt_status() { return m_adcon0->getADIF(); } private: ADCON0 *m_adcon0; }; //------------------------------------------------------------------------ // P16C71::P16C71(const char *_name, const char *desc) : P16X8X(_name, desc), adcon0(this,"adcon0", "A2D Control 0"), adcon1(this,"adcon1", "A2D Control 1"), adres(this,"adres", "A2D Result") { if(verbose) cout << "c71 constructor, type = " << isa() << '\n'; m_pir = new PIR_16C71(&adcon0); } P16C71::~P16C71() { remove_sfr_register(&adcon0); remove_sfr_register(&adcon1); remove_sfr_register(&adres); delete m_pir; } void P16C71::create_sfr_map() { if(verbose) cout << "creating c71 registers \n"; add_sfr_register(&adcon0, 0x08, RegisterValue(0,0)); add_sfr_register(&adcon1, 0x88, RegisterValue(0,0)); add_sfr_register(&adres, 0x09, RegisterValue(0,0)); adcon1.setValidCfgBits(ADCON1::PCFG0 | ADCON1::PCFG1,0); adcon1.setNumberOfChannels(4); adcon1.setIOPin(0, &(*m_porta)[0]); adcon1.setIOPin(1, &(*m_porta)[1]); adcon1.setIOPin(2, &(*m_porta)[2]); adcon1.setIOPin(3, &(*m_porta)[3]); adcon1.setChannelConfiguration(0, 0x0f); adcon1.setChannelConfiguration(1, 0x0f); adcon1.setChannelConfiguration(2, 0x03); adcon1.setChannelConfiguration(3, 0x00); adcon1.setVrefHiConfiguration(1, 3); adcon0.setAdres(&adres); adcon0.setAdresLow(0); adcon0.setAdcon1(&adcon1); adcon0.setIntcon(&intcon_reg); adcon0.setA2DBits(8); intcon = &intcon_reg; intcon_reg.set_pir_set(m_pir); } void P16C71::create_symbols() { pic_processor::create_symbols(); } void P16C71::create() { ram_top = 0x2f; P16X8X::create_iopin_map(); _14bit_processor::create(); set_eeprom(0); add_file_registers(0x0c, ram_top, 0x80); Pic14Bit::create_sfr_map(); create_sfr_map(); } Processor * P16C71::construct(const char *name) { P16C71 *p = new P16C71(name); if(verbose) cout << " c71 construct\n"; p->create(); p->create_invalid_registers (); p->create_symbols(); globalSymbolTable().addModule(p); return p; } //-------------------------------------- void P16C712::create_sfr_map() { if(verbose) cout << "creating c712/6 registers \n"; /* Extra timers and Capture/Compare are like in 16x63 => 16X6X code */ P16X6X_processor::create_sfr_map(); /* The A/D section is similar to 16x71, but not equal */ add_sfr_register(&adcon0, 0x1F, RegisterValue(0,0)); add_sfr_register(&adcon1, 0x9F, RegisterValue(0,0)); add_sfr_register(&adres, 0x1E, RegisterValue(0,0)); //1adcon0.analog_port = porta; adcon0.setAdres(&adres); adcon0.setAdresLow(0); adcon0.setAdcon1(&adcon1); adcon0.setIntcon(&intcon_reg); adcon0.setChannel_Mask(3); adcon0.setA2DBits(8); intcon = &intcon_reg; adcon1.setValidCfgBits(ADCON1::PCFG0 | ADCON1::PCFG1| ADCON1::PCFG2,0); adcon1.setNumberOfChannels(4); adcon1.setIOPin(0, &(*m_porta)[0]); adcon1.setIOPin(1, &(*m_porta)[1]); adcon1.setIOPin(2, &(*m_porta)[2]); adcon1.setIOPin(3, &(*m_porta)[3]); adcon1.setChannelConfiguration(0, 0x0f); adcon1.setChannelConfiguration(1, 0x0f); adcon1.setChannelConfiguration(2, 0x0f); adcon1.setChannelConfiguration(3, 0x0f); adcon1.setChannelConfiguration(4, 0x0b); adcon1.setChannelConfiguration(5, 0x0b); adcon1.setChannelConfiguration(6, 0x00); adcon1.setChannelConfiguration(7, 0x00); adcon1.setVrefHiConfiguration(1, 3); adcon1.setVrefHiConfiguration(3, 3); adcon1.setVrefHiConfiguration(5, 3); } void P16C712::create() { if(verbose) cout << " c712/6 create \n"; create_iopin_map(); /* 14 bits 18 pins connections */ _14bit_processor::create(); create_sfr_map(); //1ccp1con.iopin = portb->pins[2]; } Processor * P16C712::construct(const char *name) { P16C712 *p = new P16C712(name); if(verbose) cout << " c712 construct\n"; p->create(); p->create_invalid_registers (); p->create_symbols(); globalSymbolTable().addModule(p); return p; } P16C712::P16C712(const char *_name, const char *desc) : P16C62(_name, desc), adcon0(this,"adcon0", "A2D Control 0"), adcon1(this,"adcon1", "A2D Control 1"), adres(this,"adres", "A2D Result") { if(verbose) cout << "c712 constructor, type = " << isa() << '\n'; } P16C712::~P16C712() { remove_sfr_register(&adcon0); remove_sfr_register(&adcon1); remove_sfr_register(&adres); } //-------------------------------------- Processor * P16C716::construct(const char *name) { P16C716 *p = new P16C716(name); if(verbose) cout << " c716 construct\n"; p->create(); p->create_invalid_registers (); p->create_symbols(); globalSymbolTable().addModule(p); return p; } P16C716::P16C716(const char *_name, const char *desc) : P16C712(_name, desc) { if(verbose) cout << "c716 constructor, type = " << isa() << '\n'; } //-------------------------------------- void P16C72::create_sfr_map() { if(verbose) cout << "creating c72 registers \n"; // Parent classes just set PIR version 1 pir_set_2_def.set_pir1(pir1_2_reg); pir_set_2_def.set_pir2(pir2_2_reg); add_sfr_register(&adcon0, 0x1f, RegisterValue(0,0)); add_sfr_register(&adcon1, 0x9f, RegisterValue(0,0)); add_sfr_register(&adres, 0x1e, RegisterValue(0,0)); adcon0.setAdres(&adres); adcon0.setAdresLow(0); adcon0.setAdcon1(&adcon1); adcon0.setIntcon(&intcon_reg); adcon0.setPir(pir1_2_reg); adcon0.setChannel_Mask(7); // even though there are only 5 inputs... adcon0.setA2DBits(8); intcon = &intcon_reg; adcon1.setValidCfgBits(ADCON1::PCFG0 | ADCON1::PCFG1| ADCON1::PCFG2, 0); adcon1.setNumberOfChannels(5); adcon1.setIOPin(0, &(*m_porta)[0]); adcon1.setIOPin(1, &(*m_porta)[1]); adcon1.setIOPin(2, &(*m_porta)[2]); adcon1.setIOPin(3, &(*m_porta)[3]); adcon1.setIOPin(4, &(*m_porta)[5]); adcon1.setChannelConfiguration(0, 0x1f); adcon1.setChannelConfiguration(1, 0x1f); adcon1.setChannelConfiguration(2, 0x1f); adcon1.setChannelConfiguration(3, 0x1f); adcon1.setChannelConfiguration(4, 0x0b); adcon1.setChannelConfiguration(5, 0x0b); adcon1.setChannelConfiguration(6, 0x00); adcon1.setChannelConfiguration(7, 0x00); adcon1.setVrefHiConfiguration(1, 3); adcon1.setVrefHiConfiguration(3, 3); adcon1.setVrefHiConfiguration(5, 3); // Link the A/D converter to the Capture Compare Module ccp2con.setADCON(&adcon0); } void P16C72::create_symbols() { if(verbose) cout << "c72 create symbols\n"; pic_processor::create_symbols(); } void P16C72::create() { P16C62::create(); P16C72::create_sfr_map(); } Processor * P16C72::construct(const char *name) { P16C72 *p = new P16C72(name); if(verbose) cout << " c72 construct\n"; p->create(); p->create_invalid_registers (); p->create_symbols(); globalSymbolTable().addModule(p); return p; } P16C72::P16C72(const char *_name, const char *desc) : P16C62(_name, desc), adcon0(this,"adcon0", "A2D Control 0"), adcon1(this,"adcon1", "A2D Control 1"), adres(this,"adres", "A2D Result") { if(verbose) cout << "c72 constructor, type = " << isa() << '\n'; pir1_2_reg = new PIR1v2(this,"pir1","Peripheral Interrupt Register",&intcon_reg,&pie1); pir2_2_reg = new PIR2v2(this,"pir2","Peripheral Interrupt Register",&intcon_reg,&pie2); delete pir1; delete pir2; pir1 = pir1_2_reg; pir2 = pir2_2_reg; } P16C72::~P16C72() { remove_sfr_register(&adcon0); remove_sfr_register(&adcon1); remove_sfr_register(&adres); } //-------------------------------------- void P16C73::create_sfr_map() { if(verbose) cout << "creating c73 registers \n"; // Parent classes just set PIR version 1 pir_set_2_def.set_pir1(pir1_2_reg); pir_set_2_def.set_pir2(pir2_2_reg); add_sfr_register(&adcon0, 0x1f, RegisterValue(0,0)); add_sfr_register(&adcon1, 0x9f, RegisterValue(0,0)); add_sfr_register(&adres, 0x1e, RegisterValue(0,0)); adcon0.setAdres(&adres); adcon0.setAdresLow(0); adcon0.setAdcon1(&adcon1); adcon0.setIntcon(&intcon_reg); adcon0.setPir(pir1_2_reg); adcon0.setChannel_Mask(7); // even though there are only 5 inputs... adcon0.setA2DBits(8); intcon = &intcon_reg; //1adcon1.analog_port = porta; adcon1.setValidCfgBits(ADCON1::PCFG0 | ADCON1::PCFG1| ADCON1::PCFG2, 0); adcon1.setNumberOfChannels(5); adcon1.setIOPin(0, &(*m_porta)[0]); adcon1.setIOPin(1, &(*m_porta)[1]); adcon1.setIOPin(2, &(*m_porta)[2]); adcon1.setIOPin(3, &(*m_porta)[3]); adcon1.setIOPin(4, &(*m_porta)[5]); adcon1.setChannelConfiguration(0, 0x1f); adcon1.setChannelConfiguration(1, 0x1f); adcon1.setChannelConfiguration(2, 0x1f); adcon1.setChannelConfiguration(3, 0x1f); adcon1.setChannelConfiguration(4, 0x0b); adcon1.setChannelConfiguration(5, 0x0b); adcon1.setChannelConfiguration(6, 0x00); adcon1.setChannelConfiguration(7, 0x00); adcon1.setVrefHiConfiguration(1, 3); adcon1.setVrefHiConfiguration(3, 3); adcon1.setVrefHiConfiguration(5, 3); // Link the A/D converter to the Capture Compare Module ccp2con.setADCON(&adcon0); } void P16C73::create_symbols() { if(verbose) cout << "c73 create symbols\n"; pic_processor::create_symbols(); } void P16C73::create() { P16C63::create(); P16C73::create_sfr_map(); } Processor * P16C73::construct(const char *name) { P16C73 *p = new P16C73(name); if(verbose) cout << " c73 construct\n"; p->create(); p->create_invalid_registers (); p->create_symbols(); globalSymbolTable().addModule(p); return p; } P16C73::P16C73(const char *_name, const char *desc) : P16C63(_name, desc), adcon0(this,"adcon0", "A2D Control 0"), adcon1(this,"adcon1", "A2D Control 1"), adres(this,"adres", "A2D Result") { if(verbose) cout << "c73 constructor, type = " << isa() << '\n'; pir1_2_reg = new PIR1v2(this,"pir1","Peripheral Interrupt Register",&intcon_reg,&pie1); pir2_2_reg = new PIR2v2(this,"pir2","Peripheral Interrupt Register",&intcon_reg,&pie2); delete pir1; pir1 = pir1_2_reg; delete pir2; pir2 = pir2_2_reg; } P16C73::~P16C73() { remove_sfr_register(&adcon0); remove_sfr_register(&adcon1); remove_sfr_register(&adres); } //------------------------------------------------------------ void P16F73::create_sfr_map() { if(verbose) cout << "creating f73 registers \n"; add_sfr_register(pm_rd.get_reg_pmadr(), 0x10d); add_sfr_register(pm_rd.get_reg_pmadrh(), 0x10f); add_sfr_register(pm_rd.get_reg_pmdata(), 0x10c); add_sfr_register(pm_rd.get_reg_pmdath(), 0x10e); add_sfr_register(pm_rd.get_reg_pmcon1(), 0x18c); alias_file_registers(0x80,0x80,0x80); alias_file_registers(0x01,0x01,0x100); alias_file_registers(0x82,0x84,0x80); alias_file_registers(0x06,0x06,0x100); alias_file_registers(0x8a,0x8b,0x80); alias_file_registers(0x100,0x100,0x80); alias_file_registers(0x81,0x81,0x100); alias_file_registers(0x102,0x104,0x80); alias_file_registers(0x86,0x86,0x100); alias_file_registers(0x10a,0x10b,0x80); alias_file_registers(0x20,0x7f,0x100); alias_file_registers(0xa0,0xff,0x100); } void P16F73::create_symbols() { if(verbose) cout << "f73 create symbols\n"; pic_processor::create_symbols(); } void P16F73::create() { P16C73::create(); status->rp_mask = 0x60; // rp0 and rp1 are valid. indf->base_address_mask1 = 0x80; // used for indirect accesses above 0x100 indf->base_address_mask2 = 0x1ff; // used for indirect accesses above 0x100 P16F73::create_sfr_map(); } Processor * P16F73::construct(const char *name) { P16F73 *p = new P16F73(name); if(verbose) cout << " f73 construct\n"; p->create(); p->create_invalid_registers (); p->create_symbols(); globalSymbolTable().addModule(p); return p; } P16F73::P16F73(const char *_name, const char *desc) : P16C73(_name, desc), pm_rd(this) { if(verbose) cout << "f73 constructor, type = " << isa() << '\n'; } P16F73::~P16F73() { remove_sfr_register(pm_rd.get_reg_pmadr()); remove_sfr_register(pm_rd.get_reg_pmadrh()); remove_sfr_register(pm_rd.get_reg_pmdata()); remove_sfr_register(pm_rd.get_reg_pmdath()); remove_sfr_register(pm_rd.get_reg_pmcon1()); } //------------------------------------------------------------ // // 16C74 // void P16C74::create_sfr_map() { if(verbose) cout << "creating c74 registers \n"; // Parent classes just set PIR version 1 pir_set_2_def.set_pir1(pir1_2_reg); pir_set_2_def.set_pir2(pir2_2_reg); add_sfr_register(&adcon0, 0x1f, RegisterValue(0,0)); add_sfr_register(&adcon1, 0x9f, RegisterValue(0,0)); add_sfr_register(&adres, 0x1e, RegisterValue(0,0)); //1adcon0.analog_port = porta; //1adcon0.analog_port2 = porte; adcon0.setAdres(&adres); adcon0.setAdresLow(0); adcon0.setAdcon1(&adcon1); adcon0.setIntcon(&intcon_reg); adcon0.setPir(pir1_2_reg); adcon0.setChannel_Mask(7); adcon0.setA2DBits(8); intcon = &intcon_reg; adcon1.setValidCfgBits(ADCON1::PCFG0 | ADCON1::PCFG1 | ADCON1::PCFG2, 0); adcon1.setNumberOfChannels(8); adcon1.setIOPin(0, &(*m_porta)[0]); adcon1.setIOPin(1, &(*m_porta)[1]); adcon1.setIOPin(2, &(*m_porta)[2]); adcon1.setIOPin(3, &(*m_porta)[3]); adcon1.setIOPin(4, &(*m_porta)[5]); adcon1.setIOPin(5, &(*m_porte)[0]); adcon1.setIOPin(6, &(*m_porte)[1]); adcon1.setIOPin(7, &(*m_porte)[2]); adcon1.setChannelConfiguration(0, 0xff); adcon1.setChannelConfiguration(1, 0xff); adcon1.setChannelConfiguration(2, 0x1f); adcon1.setChannelConfiguration(3, 0x1f); adcon1.setChannelConfiguration(4, 0x0b); adcon1.setChannelConfiguration(5, 0x0b); adcon1.setChannelConfiguration(6, 0x00); adcon1.setChannelConfiguration(7, 0x00); adcon1.setVrefHiConfiguration(1, 3); adcon1.setVrefHiConfiguration(3, 3); adcon1.setVrefHiConfiguration(5, 3); // Link the A/D converter to the Capture Compare Module ccp2con.setADCON(&adcon0); } void P16C74::create_symbols() { if(verbose) cout << "c74 create symbols\n"; Pic14Bit::create_symbols(); } void P16C74::create() { P16C65::create(); P16C74::create_sfr_map(); } Processor * P16C74::construct(const char *name) { P16C74 *p = new P16C74(name);; if(verbose) cout << " c74 construct\n"; p->create(); p->create_invalid_registers (); p->create_symbols(); globalSymbolTable().addModule(p); return p; } P16C74::P16C74(const char *_name, const char *desc) : P16C65(_name, desc) , adcon0(this,"adcon0", "A2D Control 0"), adcon1(this,"adcon1", "A2D Control 1"), adres(this,"adres", "A2D Result") { if(verbose) cout << "c74 constructor, type = " << isa() << '\n'; pir1_2_reg = new PIR1v2(this,"pir1","Peripheral Interrupt Register",&intcon_reg,&pie1); pir2_2_reg = new PIR2v2(this,"pir2","Peripheral Interrupt Register",&intcon_reg,&pie2); delete pir1; delete pir2; pir1 = pir1_2_reg; pir2 = pir2_2_reg; } P16C74::~P16C74() { remove_sfr_register(&adcon0); remove_sfr_register(&adcon1); remove_sfr_register(&adres); } //------------------------------------------------------------ void P16F74::create_sfr_map() { if(verbose) cout << "creating f74 registers \n"; add_sfr_register(pm_rd.get_reg_pmadr(), 0x10d); add_sfr_register(pm_rd.get_reg_pmadrh(), 0x10f); add_sfr_register(pm_rd.get_reg_pmdata(), 0x10c); add_sfr_register(pm_rd.get_reg_pmdath(), 0x10e); add_sfr_register(pm_rd.get_reg_pmcon1(), 0x18c); alias_file_registers(0x80,0x80,0x80); alias_file_registers(0x01,0x01,0x100); alias_file_registers(0x82,0x84,0x80); alias_file_registers(0x06,0x06,0x100); alias_file_registers(0x8a,0x8b,0x80); alias_file_registers(0x100,0x100,0x80); alias_file_registers(0x81,0x81,0x100); alias_file_registers(0x102,0x104,0x80); alias_file_registers(0x86,0x86,0x100); alias_file_registers(0x10a,0x10b,0x80); alias_file_registers(0x20,0x7f,0x100); alias_file_registers(0xa0,0xff,0x100); } void P16F74::create_symbols() { if(verbose) cout << "f74 create symbols\n"; pic_processor::create_symbols(); } void P16F74::create() { P16C74::create(); status->rp_mask = 0x60; // rp0 and rp1 are valid. indf->base_address_mask1 = 0x80; // used for indirect accesses above 0x100 indf->base_address_mask2 = 0x1ff; // used for indirect accesses above 0x100 P16F74::create_sfr_map(); } Processor * P16F74::construct(const char *name) { P16F74 *p = new P16F74(name); if(verbose) cout << " f74 construct\n"; p->create(); p->create_invalid_registers (); p->create_symbols(); globalSymbolTable().addModule(p); return p; } P16F74::P16F74(const char *_name, const char *desc) : P16C74(_name, desc), pm_rd(this) { if(verbose) cout << "f74 constructor, type = " << isa() << '\n'; } P16F74::~P16F74() { remove_sfr_register(pm_rd.get_reg_pmadr()); remove_sfr_register(pm_rd.get_reg_pmadrh()); remove_sfr_register(pm_rd.get_reg_pmdata()); remove_sfr_register(pm_rd.get_reg_pmdath()); remove_sfr_register(pm_rd.get_reg_pmcon1()); } gpsim-0.27.0/src/p16f88x.h0000664000076400007640000002774112175377101011755 00000000000000/* Copyright (C) 2010 Roy Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __P16F88X_H__ #define __P16F88X_H__ #include "p16x6x.h" /* #include "pir.h" #include "eeprom.h" #include "comparator.h" #include "a2dconverter.h" */ /*************************************************************************** * * Include file for: P16F887, P16F88 * * * ***************************************************************************/ class P16F88x : public _14bit_processor { public: INTCON_14_PIR intcon_reg; PicPortRegister *m_porta; PicTrisRegister *m_trisa; PicPortGRegister *m_portb; PicTrisRegister *m_trisb; WPU *m_wpu; IOC *m_ioc; PicPortRegister *m_portc; PicTrisRegister *m_trisc; T1CON t1con; PIR *pir1; PIE pie1; PIR *pir2; PIE pie2; T2CON t2con; PR2 pr2; TMR2 tmr2; TMRL tmr1l; TMRH tmr1h; CCPCON ccp1con; CCPRL ccpr1l; CCPRH ccpr1h; CCPCON ccp2con; CCPRL ccpr2l; CCPRH ccpr2h; PCON pcon; SSP_MODULE ssp; PIR1v2 *pir1_2_reg; PIR2v3 *pir2_2_reg; PIR_SET_2 pir_set_2_def; OSCCON osccon; OSCTUNE osctune; WDTCON wdtcon; USART_MODULE usart; CM1CON0 cm1con0; CM2CON0 cm2con0; CM2CON1 cm2con1; VRCON vrcon; SRCON srcon; ANSEL ansel; ANSEL_H anselh; ADCON0 adcon0; ADCON1 adcon1; ECCPAS eccpas; PWM1CON pwm1con; PSTRCON pstrcon; sfr_register adresh; sfr_register adresl; PicPortRegister *m_porte; PicPSP_TrisRegister *m_trise; P16F88x(const char *_name=0, const char *desc=0); ~P16F88x(); virtual void set_out_of_range_pm(unsigned int address, unsigned int value); // virtual PROCESSOR_TYPE isa(){return _P16F88x_;}; virtual void create_symbols(); virtual unsigned int register_memory_size () const { return 0x200;}; virtual unsigned int program_memory_size() { return 0; }; virtual void option_new_bits_6_7(unsigned int bits); virtual void create_sfr_map(); // The f628 (at least) I/O pins depend on the Fosc Configuration bits. virtual bool set_config_word(unsigned int address, unsigned int cfg_word); virtual void create(int eesize); virtual void create_iopin_map(); virtual void create_config_memory(); virtual void set_eeprom(EEPROM *ep) { // Use set_eeprom_pir as P16F8x expects to have a PIR capable EEPROM assert(0); } virtual void set_eeprom_wide(EEPROM_WIDE *ep) { eeprom = ep; } virtual EEPROM_WIDE *get_eeprom() { return ((EEPROM_WIDE *)eeprom); } virtual PIR *get_pir1() { return (pir1); } virtual PIR *get_pir2() { return (pir2); } virtual PIR_SET *get_pir_set() { return (&pir_set_2_def); } }; class P16F884 : public P16F88x { public: virtual PROCESSOR_TYPE isa(){return _P16F884_;}; virtual unsigned int program_memory_size() const { return 4096; }; PicPSP_PortRegister *m_portd; PicTrisRegister *m_trisd; P16F884(const char *_name=0, const char *desc=0); ~P16F884(); static Processor *construct(const char *name); virtual void create_symbols(); virtual void create_sfr_map(); virtual void create_iopin_map(); }; class P16F887 : public P16F884 { public: virtual PROCESSOR_TYPE isa(){return _P16F887_;}; virtual unsigned int program_memory_size() const { return 8192; }; P16F887(const char *_name=0, const char *desc=0); ~P16F887(); static Processor *construct(const char *name); virtual void create_symbols(); virtual void create_sfr_map(); }; class P16F882 : public P16F88x { public: virtual PROCESSOR_TYPE isa(){return _P16F882_;}; virtual unsigned int program_memory_size() const { return 2048; }; P16F882(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); virtual void create_symbols(); virtual void create_sfr_map(); virtual void create_iopin_map(); }; class P16F883 : public P16F882 { public: virtual PROCESSOR_TYPE isa(){return _P16F883_;}; virtual unsigned int program_memory_size() const { return 4096; }; P16F883(const char *_name=0, const char *desc=0); ~P16F883(); static Processor *construct(const char *name); virtual void create_symbols(); virtual void create_sfr_map(); }; class P16F886 : public P16F882 { public: virtual PROCESSOR_TYPE isa(){return _P16F886_;}; virtual unsigned int program_memory_size() const { return 8192; }; P16F886(const char *_name=0, const char *desc=0); ~P16F886(); static Processor *construct(const char *name); virtual void create_symbols(); virtual void create_sfr_map(); }; class P16F631 : public _14bit_processor { public: P16F631(const char *_name=0, const char *desc=0); virtual ~P16F631(); T1CON t1con; PIR *pir1; PIR *pir2; PIE pie1; PIE pie2; TMRL tmr1l; TMRH tmr1h; OSCTUNE osctune; PCON pcon; WDTCON wdtcon; OSCCON osccon; VRCON_2 vrcon; SRCON srcon; ANSEL ansel; CM1CON0_2 cm1con0; CM2CON0_2 cm2con0; CM2CON1 cm2con1; ADCON0_12F adcon0; ADCON1_16F adcon1; EEPROM_WIDE *e; PIR1v2 *pir1_2_reg; PIR2v3 *pir2_3_reg; INTCON_14_PIR intcon_reg; // ComparatorModule comparator; PIR_SET_2 pir_set_2_def; WPU *m_wpua; WPU *m_wpub; IOC *m_ioca; IOC *m_iocb; virtual PIR *get_pir2() { return (pir2); } virtual PIR *get_pir1() { return (pir1); } virtual PIR_SET *get_pir_set() { return (&pir_set_2_def); } PicPortGRegister *m_porta; PicTrisRegister *m_trisa; PicPortGRegister *m_portb; PicTrisRegister *m_trisb; PicPortRegister *m_portc; PicTrisRegister *m_trisc; a2d_stimulus *m_cvref; a2d_stimulus *m_v06ref; virtual PROCESSOR_TYPE isa(){return _P16F631_;} static Processor *construct(const char *name); void create(int); virtual void create_symbols(); virtual void create_sfr_map(); virtual void create_iopin_map(); virtual void option_new_bits_6_7(unsigned int bits); virtual unsigned int program_memory_size() const { return 0x400; }; virtual unsigned int register_memory_size () const { return 0x200; } virtual void set_eeprom_wide(EEPROM_WIDE *ep) { eeprom = ep; } virtual void create_config_memory(); virtual bool set_config_word(unsigned int address, unsigned int cfg_word); }; class P16F677 : public P16F631 { public: virtual PROCESSOR_TYPE isa(){return _P16F677_;}; virtual unsigned int program_memory_size() const { return 4096; }; virtual void set_eeprom(EEPROM *ep) { // Use set_eeprom_pir as P16F8x expects to have a PIR capable EEPROM assert(0); } virtual void set_eeprom_wide(EEPROM_WIDE *ep) { eeprom = ep; } virtual EEPROM_WIDE *get_eeprom() { return ((EEPROM_WIDE *)eeprom); } P16F677(const char *_name=0, const char *desc=0); ~P16F677(); static Processor *construct(const char *name); SSP_MODULE ssp; ANSEL_H anselh; sfr_register adresh; sfr_register adresl; virtual void create_symbols(); virtual void create_sfr_map(); }; class P16F687 : public P16F677 { public: virtual PROCESSOR_TYPE isa(){return _P16F687_;}; virtual unsigned int program_memory_size() const { return 2048; }; virtual void set_eeprom(EEPROM *ep) { // Use set_eeprom_pir as P16F8x expects to have a PIR capable EEPROM assert(0); } virtual void set_eeprom_wide(EEPROM_WIDE *ep) { eeprom = ep; } virtual EEPROM_WIDE *get_eeprom() { return ((EEPROM_WIDE *)eeprom); } P16F687(const char *_name=0, const char *desc=0); ~P16F687(); static Processor *construct(const char *name); TMRL tmr1l; TMRH tmr1h; PCON pcon; USART_MODULE usart; virtual void create_symbols(); virtual void create_sfr_map(); }; class P16F684 : public _14bit_processor { public: ComparatorModule comparator; virtual PROCESSOR_TYPE isa(){return _P16F684_;}; virtual unsigned int program_memory_size() const { return 2048; }; virtual unsigned int register_memory_size () const { return 0x100;}; virtual void create(int eesize); virtual void create_iopin_map(); virtual void set_eeprom(EEPROM *ep) { // Use set_eeprom_pir as P16F8x expects to have a PIR capable EEPROM assert(0); } virtual void set_eeprom_wide(EEPROM_WIDE *ep) { eeprom = ep; } virtual EEPROM_WIDE *get_eeprom() { return ((EEPROM_WIDE *)eeprom); } virtual void option_new_bits_6_7(unsigned int bits); virtual void create_config_memory(); virtual bool set_config_word(unsigned int, unsigned int); P16F684(const char *_name=0, const char *desc=0); virtual ~P16F684(); static Processor *construct(const char *name); PicPortGRegister *m_porta; PicTrisRegister *m_trisa; PicPortRegister *m_portc; PicTrisRegister *m_trisc; WPU *m_wpua; IOC *m_ioca; T1CON t1con; T2CON t2con; PIR1v3 *pir1; PIE pie1; PR2 pr2; TMR2 tmr2; TMRL tmr1l; TMRH tmr1h; OSCTUNE osctune; PCON pcon; WDTCON wdtcon; OSCCON osccon; ANSEL ansel; ADCON0_12F adcon0; ADCON1_16F adcon1; sfr_register adresh; sfr_register adresl; CCPCON ccp1con; CCPRL ccpr1l; CCPRH ccpr1h; ECCPAS eccpas; PWM1CON pwm1con; PSTRCON pstrcon; PIR1v3 *pir1_3_reg; INTCON_14_PIR intcon_reg; PIR_SET_1 pir_set_def; IOC *m_iocc; EEPROM_WIDE *e; virtual PIR_SET *get_pir_set() { return (&pir_set_def); } virtual void create_symbols(); virtual void create_sfr_map(); }; class P16F685 : public P16F677 { public: virtual PROCESSOR_TYPE isa(){return _P16F685_;}; virtual unsigned int program_memory_size() const { return 4096; }; virtual void set_eeprom(EEPROM *ep) { // Use set_eeprom_pir as P16F8x expects to have a PIR capable EEPROM assert(0); } virtual void set_eeprom_wide(EEPROM_WIDE *ep) { eeprom = ep; } virtual EEPROM_WIDE *get_eeprom() { return ((EEPROM_WIDE *)eeprom); } P16F685(const char *_name=0, const char *desc=0); ~P16F685(); static Processor *construct(const char *name); T2CON t2con; PR2 pr2; TMR2 tmr2; TMRL tmr1l; TMRH tmr1h; CCPCON ccp1con; CCPRL ccpr1l; CCPRH ccpr1h; PCON pcon; ECCPAS eccpas; PWM1CON pwm1con; PSTRCON pstrcon; virtual void create_symbols(); virtual void create_sfr_map(); }; class P16F689 : public P16F687 { public: virtual PROCESSOR_TYPE isa(){return _P16F689_;}; virtual unsigned int program_memory_size() const { return 4096; }; virtual void set_eeprom(EEPROM *ep) { // Use set_eeprom_pir as P16F8x expects to have a PIR capable EEPROM assert(0); } virtual void set_eeprom_wide(EEPROM_WIDE *ep) { eeprom = ep; } virtual EEPROM_WIDE *get_eeprom() { return ((EEPROM_WIDE *)eeprom); } P16F689(const char *_name=0, const char *desc=0); static Processor *construct(const char *name); }; class P16F690 : public P16F685 { public: virtual PROCESSOR_TYPE isa(){return _P16F690_;}; virtual unsigned int program_memory_size() const { return 4096; }; virtual void set_eeprom(EEPROM *ep) { // Use set_eeprom_pir as P16F8x expects to have a PIR capable EEPROM assert(0); } virtual void set_eeprom_wide(EEPROM_WIDE *ep) { eeprom = ep; } virtual EEPROM_WIDE *get_eeprom() { return ((EEPROM_WIDE *)eeprom); } P16F690(const char *_name=0, const char *desc=0); ~P16F690(); static Processor *construct(const char *name); CCPCON ccp2con; CCPRL ccpr2l; CCPRH ccpr2h; USART_MODULE usart; virtual void create_symbols(); virtual void create_sfr_map(); }; #endif gpsim-0.27.0/src/cod.h0000644000076400007640000001464311401131150011350 00000000000000/* .cod file support Copyright (C) 1999 James Bowman, Scott Dattalo This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #if !defined(__COD_H) #define __COD_H #include "program_files.h" /* * .cod definitions * * A .cod file consists of an array of 512 byte blocks. There are two types * of blocks: a "directory" block and a "data" block. The directory block * describes the miscellaneous stuff like the compiler, the date, copy right * and it also describes the type of information that's available in the .cod * file. The "type of information" is specified by a range of blocks. For * example, if there are symbols in the .cod file then the directory block * tells the starting and ending blocks that contain the symbols. * * Types of data blocks: * short symbol table - a list of symbols in the "short format", which * means that the symbol name is restricted to 12 characters. This * is an old format and is not provided by gpasm. * long symbol table - a list of symbols in the "long format". Like the * short symbol table except the symbol names can be up to 255 chars. * list table - a cross reference between the source line numbers, list * line numbers, and the program memory. * Memory map table - describes the ranges of memory used in the processor. * Local variables table - [c files - not supported by gpasm] this describes * the memory locations used by functions. * Source file names - a list of the files used to assemble the source file. * Debug messages - [not supported by gpasm] this provides a list of messages * that can control the simulator or emulator. */ #define COD_BLOCK_BITS 9 /* COD_BLOCK_SIZE = 2^COD_BLOCK_BITS */ /* number of bytes in one cod block */ #define COD_BLOCK_SIZE (1<. */ #include #include #include #include #include #include "../config.h" #include "cmd_gpsim.h" #include "ioports.h" #include "trace.h" #include "stimuli.h" #include "xref.h" //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("%s:%d-%s ",__FILE__,__LINE__,__FUNCTION__); printf arg; } #else #define Dprintf(arg) {} #endif //#define D2printf(arg) {printf("%s:%d-%s ",__FILE__,__LINE__,__FUNCTION__); printf arg; } #define D2printf(arg) {} //-------------------------------------------------- // //-------------------------------------------------- SignalControl::~SignalControl() { } PeripheralSignalSource::PeripheralSignalSource(PinModule *_pin) : m_pin(_pin), m_cState('?') { assert(m_pin); } PeripheralSignalSource::~PeripheralSignalSource() { } void PeripheralSignalSource::release() { } // getState is called when the PinModule is attempting to // update the output state for the I/O Pin. char PeripheralSignalSource::getState() { return m_cState; } /// putState is called when the peripheral output source /// wants to change the output state. void PeripheralSignalSource::putState(const char new3State) { if (new3State != m_cState) { m_cState = new3State; m_pin->updatePinModule(); } } void PeripheralSignalSource::toggle() { switch (m_cState) { case '1': case 'W': putState('0'); break; case '0': case 'w': putState('1'); break; } } //------------------------------------------------------------------- // // ioports.cc // // The ioport infrastructure for gpsim is provided here. The class // taxonomy for the IOPORT class is: // // file_register // |-> sfr_register // |-> IOPORT // |-> PORTA // |-> PORTB // |-> PORTC // |-> PORTD // |-> PORTE // |-> PORTF // // Each I/O port has an associated array of I/O pins which provide an // interface to the virtual external world of the stimuli. // //------------------------------------------------------------------- class SignalSource : public SignalControl { public: SignalSource(PortRegister *_reg, unsigned int bitPosition) : m_register(_reg), m_bitMask(1<getDriving()&m_bitMask)!=0)?'1':'0') : 'Z'; char r = m_register ? (((m_register->getDriving()&m_bitMask)!=0)?'1':'0') : 'Z'; /**/ Dprintf(("SignalSource::getState() %s bitmask:0x%x state:%c\n", (m_register?m_register->name().c_str():"NULL"), m_bitMask,r)); /**/ return r; } private: PortRegister *m_register; unsigned int m_bitMask; }; //------------------------------------------------------------------------ PortSink::PortSink(PortRegister *portReg, unsigned int iobit) : m_PortRegister(portReg), m_iobit(iobit) { assert (m_PortRegister); } void PortSink::setSinkState(char cNewSinkState) { Dprintf((" PortSink::setSinkState:bit=%d,val=%c\n",m_iobit,cNewSinkState)); m_PortRegister->setbit(m_iobit,cNewSinkState); } void PortSink::release() { //cout << "PortSink::release() ;" << this << endl; delete this; } //------------------------------------------------------------------------ PortRegister::PortRegister(Module *pCpu, const char *pName, const char *pDesc, unsigned int numIopins, unsigned int _mask) : sfr_register(pCpu, pName, pDesc), PortModule(numIopins), mEnableMask(_mask), drivingValue(0), rvDrivenValue(0,0) { mValidBits = (1<setDefaultSource(new SignalSource(this, i)); pmP->addSink(new PortSink(this, i)); } else { if (pmP->getSourceState() == '?') { pmP->setDefaultSource(new SignalSource(this, i)); pmP->addSink(new PortSink(this, i)); } } } mEnableMask = newEnableMask; } void PortRegister::put(unsigned int new_value) { trace.raw(write_trace.get() | value.data); put_value(new_value); } void PortRegister::put_value(unsigned int new_value) { Dprintf(("PortRegister::put_value old=0x%x:new=0x%x\n",value.data,new_value)); unsigned int diff = mEnableMask & (new_value ^ value.data); drivingValue = new_value & mEnableMask; value.data = drivingValue; if(diff) { // If no stimuli are connected to the Port pins, then the driving // value and the driven value are the same. If there are external // stimuli (or perhaps internal peripherals) overdriving or overriding // this port, then the call to updatePort() will update 'drivenValue' // to its proper value. In either case, calling updatePort ensures // the drivenValue is updated properly updatePort(); } } //------------------------------------------------------------------------ // PortRegister::updateUI() UI really means GUI. // We just pass control to the update method, which is defined in gpsimValue. void PortRegister::updateUI() { update(); } //------------------------------------------------------------------------ // PortRegister::setbit // // This method is called whenever a stimulus changes the state of // an I/O pin associated with the port register. 3-state logic is // used. // FIXME - rvDrivenValue and value are always the same, so why have // FIXME - both? void PortRegister::setbit(unsigned int bit_number, char new3State) { int set_mask = (1<updatePinModule(); } } void PortModule::updateUI() { // hmmm nothing } void PortModule::updatePin(unsigned int iPinNumber) { if (iPinNumber < mNumIopins) iopins[iPinNumber]->updatePinModule(); } void PortModule::updatePins(unsigned int iPinBitMask) { for (unsigned int i=0,j=1; iupdatePinModule(); } SignalSink *PortModule::addSink(SignalSink *new_sink, unsigned int iPinNumber) { if (iPinNumber < mNumIopins) iopins[iPinNumber]->addSink(new_sink); return new_sink; } IOPIN *PortModule::addPin(IOPIN *new_pin, unsigned int iPinNumber) { if (iPinNumber < mNumIopins) { // If there is not a PinModule for this pin, then add one. if (iopins[iPinNumber] == &AnInvalidPinModule) iopins[iPinNumber] = new PinModule(this,iPinNumber); iopins[iPinNumber]->setPin(new_pin); } else { printf("PortModule::addPin ERROR pin %d > %d\n", iPinNumber, mNumIopins); } return new_pin; } void PortModule::addPinModule(PinModule *newModule, unsigned int iPinNumber) { if (iPinNumber < mNumIopins && iopins[iPinNumber] == &AnInvalidPinModule) iopins[iPinNumber] = newModule; } IOPIN *PortModule::getPin(unsigned int iPinNumber) { if (iPinNumber < mNumIopins) { return &iopins[iPinNumber]->getPin(); } return 0; } //------------------------------------------------------------------------ // PinModule PinModule::PinModule() : PinMonitor(), m_cLastControlState('?'), m_cLastSinkState('?'), m_cLastSourceState('?'), m_cLastPullupControlState('?'), m_defaultSource(0), m_activeSource(0), m_defaultControl(0), m_activeControl(0), m_defaultPullupControl(0), m_activePullupControl(0), m_pin(0), m_port(0), m_pinNumber(0) { for(int i = 0; i < ANALOG_TABLE_SIZE; i++) m_analog_reg[i] = NULL; } PinModule::PinModule(PortModule *_port, unsigned int _pinNumber, IOPIN *_pin) : PinMonitor(), m_cLastControlState('?'), m_cLastSinkState('?'), m_cLastSourceState('?'), m_cLastPullupControlState('?'), m_defaultSource(0), m_activeSource(0), m_defaultControl(0), m_activeControl(0), m_defaultPullupControl(0), m_activePullupControl(0), m_pin(_pin), m_port(_port), m_pinNumber(_pinNumber), m_bForcedUpdate(false) { setPin(m_pin); for(int i = 0; i < 3; i++) m_analog_reg[i] = NULL; } PinModule::~PinModule() { if (m_pin) D2printf(("Pin %s sources active %p default %p\n", m_pin->name().c_str(), m_activeSource, m_defaultSource)); if (m_activeSource && (m_activeSource != m_defaultSource)) { //cout << __FUNCTION__ << " deleting active source:"<getState() <release(); m_activeSource = m_defaultSource; } if (m_defaultSource) { m_defaultSource->release(); m_defaultSource = 0; } if (m_activeControl && (m_activeControl != m_defaultControl)) { m_activeControl->release(); m_activeControl = m_defaultControl; } if (m_defaultControl) { m_defaultControl->release(); m_defaultControl = 0; } if (m_activePullupControl && (m_activePullupControl != m_defaultPullupControl)) m_activePullupControl->release(); if (m_defaultPullupControl) m_defaultPullupControl->release(); if (m_pin) m_pin->setMonitor(0); } void PinModule::setPin(IOPIN *new_pin) { // Replace our pin only if this one is valid and we don't have one already. if (!m_pin && new_pin) { m_pin = new_pin; m_pin->setMonitor(this); m_cLastControlState = getControlState(); m_cLastSourceState = getSourceState(); } } void PinModule::refreshPinOnUpdate(bool bForcedUpdate) { m_bForcedUpdate = bForcedUpdate; } void PinModule::updatePinModule() { if (!m_pin) return; bool bStateChange=m_bForcedUpdate; Dprintf(("PinModule::updatePinModule():%s enter cont=%c,source=%c,pullup%c\n", (m_pin ? m_pin->name().c_str() : "NOPIN"), m_cLastControlState,m_cLastSourceState,m_cLastPullupControlState)); char cCurrentControlState = getControlState(); unsigned int old_dir = m_pin->get_direction(); unsigned int new_dir = (cCurrentControlState=='1') ? IOPIN::DIR_INPUT : IOPIN::DIR_OUTPUT; if (new_dir != old_dir) { m_cLastControlState = cCurrentControlState; m_pin->update_direction(new_dir, false); bStateChange = true; } char cCurrentSourceState = getSourceState(); if (cCurrentSourceState != m_cLastSourceState) { m_cLastSourceState = cCurrentSourceState; m_pin->setDrivingState(cCurrentSourceState); bStateChange = true; } char cCurrentPullupControlState = getPullupControlState(); if (cCurrentPullupControlState != m_cLastPullupControlState) { m_cLastPullupControlState = cCurrentPullupControlState; m_pin->update_pullup(m_cLastPullupControlState,false); bStateChange = true; } if (bStateChange) { Dprintf(("PinModule::updatePinModule() exit cont=%c,source=%c,pullup%c\n", m_cLastControlState,m_cLastSourceState, m_cLastPullupControlState)); if (m_pin->snode) m_pin->snode->update(); else setDrivenState(cCurrentSourceState); } } void PinModule::setDefaultControl(SignalControl *newDefaultControl) { if(!m_defaultControl && newDefaultControl) { m_defaultControl = newDefaultControl; setControl(m_defaultControl); } else delete newDefaultControl; //// YIKES!!! -- wouldn't it be better to return an error code? } void PinModule::setControl(SignalControl *newControl) { m_activeControl = newControl ? newControl : m_defaultControl; } void PinModule::setDefaultSource(SignalControl *newDefaultSource) { if(!m_defaultSource && newDefaultSource) { m_defaultSource = newDefaultSource; setSource(m_defaultSource); } } void PinModule::setSource(SignalControl *newSource) { m_activeSource = newSource ? newSource : m_defaultSource; } void PinModule::setDefaultPullupControl(SignalControl *newDefaultPullupControl) { if(!m_defaultPullupControl && newDefaultPullupControl) { m_defaultPullupControl = newDefaultPullupControl; setPullupControl(m_defaultPullupControl); } } void PinModule::setPullupControl(SignalControl *newPullupControl) { m_activePullupControl = newPullupControl ? newPullupControl : m_defaultPullupControl; } char PinModule::getControlState() { return m_activeControl ? m_activeControl->getState() : '?'; } char PinModule::getSourceState() { return m_activeSource ? m_activeSource->getState() : '?'; } char PinModule::getPullupControlState() { return m_activePullupControl ? m_activePullupControl->getState() : '?'; } void PinModule::setDrivenState(char new3State) { m_cLastSinkState = new3State; list :: iterator ssi; for (ssi = sinks.begin(); ssi != sinks.end(); ++ssi) (*ssi)->setSinkState(new3State); } void PinModule::setDrivingState(char new3State) { //printf("PinModule::%s -- does nothing\n",__FUNCTION__); } void PinModule::set_nodeVoltage(double) { //printf("PinModule::%s -- does nothing\n",__FUNCTION__); } void PinModule::putState(char) { //printf("PinModule::%s -- does nothing\n",__FUNCTION__); } void PinModule::setDirection() { //printf("PinModule::%s -- does nothing\n",__FUNCTION__); } void PinModule::updateUI() { m_port->updateUI(); } // AnalogReq is called by modules such as ADC and Comparator // to set or release a pin to/from analog mode. When a pin is in // analog mode the TRIS register is still active and output pins // are still driven high or low, but reads of the port register // return 0 for the pin. When a pin mode is changes the breadboard // name of the pin is changed to newname. // // A table of each calling module is kept as a module may // request analog mode after another has. The pin is put in // analog mode when the first module requests it (up=true) // and is taken out of analog mode when all modules have // requested analog mode to be released (up=false); // void PinModule::AnalogReq(Register * reg, bool analog, const char *newname) { int i, index; unsigned int total_cnt = 0; if (!m_port) return; // is the calling register in the table and what is the current // count of modules requesting analog mode for(i=0, index=-1; i < ANALOG_TABLE_SIZE && m_analog_reg[i]; i++) { if (m_analog_reg[i] == reg) index = i; if (m_analog_active[i]) total_cnt++; } // Register is not in table so add it. // if (index < 0) { assert(i < ANALOG_TABLE_SIZE); // table not large enough index = i; m_analog_reg[index] = reg; m_analog_active[index] = false; } if (analog) // Set pin to analog mode request { m_analog_active[index] = true; if (total_cnt == 0) { unsigned int mask = m_port->getOutputMask(); mask &= ~(1 << getPinNumber()); m_port->setOutputMask(mask); Dprintf(("PinModule::UpAnalogCnt up %s newname=%s mask=%x\n", getPin().name().c_str(), newname, mask)); getPin().newGUIname(newname); getPin().set_is_analog(true); } } else if (!analog && m_analog_active[index]) // release register request // for analog pin { m_analog_active[index] = false; if (total_cnt == 1) { unsigned int mask = m_port->getOutputMask(); mask |= (1 << getPinNumber()); Dprintf(("PinModule::UpAnalogCnt down %s newname=%s mask=%x\n", getPin().name().c_str(), newname, mask)); m_port->setOutputMask(mask); getPin().newGUIname(newname); getPin().set_is_analog(false); } } } // The IOPORT class is deprecated. #if defined(OLD_IOPORT_DESIGN) //------------------------------------------------------------------- // // IOPORT::update_stimuli // // input: none // return: the states of the stimuli that are driving this ioport // // This member function will update each node that is attached to the // iopins of this port. If there are no pins attached, 0 is returned. // // //------------------------------------------------------------------- int IOPORT::update_stimuli(void) { unsigned int v = value.get(); return v ^ get_value(); } //------------------------------------------------------------------- //------------------------------------------------------------------- double IOPORT::get_bit_voltage(unsigned int bit_number) { double v; if(pins[bit_number]) { if(pins[bit_number]->snode) { cout << "Warning IOPORT::get_bit_voltage has changed\n"; v = pins[bit_number]->snode->get_nodeVoltage(); } else v = pins[bit_number]->get_Vth(); } else v = (value.get() & (1<snode) { double v = pins[i]->snode->get_nodeVoltage(); if(current_value & m) { // this io bit is currently a high if(v <= pins[i]->get_h2l_threshold()) current_value ^= m; } else if (v > pins[i]->get_l2h_threshold()) current_value ^= m; } } value.put(current_value); return(value.get()); } //------------------------------------------------------------------- // IOPORT::get(void) // // inputs: none // returns: the current state of the ioport // // get is identical to get_value except that tracing is performed. // //------------------------------------------------------------------- unsigned int IOPORT::get(void) { trace.raw(read_trace.get() | value.get()); return get_value(); } //------------------------------------------------------------------- // IOPORT::put(unsigned int new_value) // // inputs: new_value - // // returns: none // // The I/O Port is updated with the new value. If there are any stimuli // attached to the I/O pins then they will be updated as well. // //------------------------------------------------------------------- void IOPORT::put(unsigned int new_value) { // The I/O Ports have an internal latch that holds the state of the last // write, even if the I/O pins are configured as inputs. If the tris port // changes an I/O pin from an input to an output, then the contents of this // internal latch will be placed onto the external I/O pin. internal_latch = new_value; trace.raw(write_trace.get() | value.get()); unsigned int current_value = value.get(); value.put(new_value); if(stimulus_mask && (current_value != new_value)) { unsigned int diff = current_value ^ new_value; // Update all I/O pins that have stimuli attached to // them and their state is being changed by this put() operation. for(unsigned int i = 0; i>=1) if((diff&1) && pins[i] && pins[i]->snode) pins[i]->snode->update(); } } //------------------------------------------------------------------- // void IOPORT::put_value(unsigned int new_value) // // When there's a gui initiated change to the IO port, we'll pass // though here. There are three things that we do. First, we update // the I/O port the way the gui asks us. Note however, that it's // possible that the gui's requested will go un-honored (if for example, // we try to force an output to change states or if there's a stimulus // driving the bus already). // Next, after updating the IO port (and all of it's connected stimuli), // we'll call the gui to update its windows. This is done through the // xref->update call. // Finally, we'll check all of the I/O pins that have changed as a // result of the IO port update and individually call each of their // cross references. // //------------------------------------------------------------------- void IOPORT::put_value(unsigned int new_value) { unsigned int i,j; unsigned int old_value = value.get(); unsigned int diff; value.put(new_value); // Update the stimuli - if there are any if(stimulus_mask) update_stimuli(); update(); // Find the pins that have changed states diff = (old_value ^ value.get()) & valid_iopins; // Update the cross references for each pin that has changed. for(i=0,j=1; iupdate(); } } //------------------------------------------------------------------- //------------------------------------------------------------------- void IOPORT::setbit(unsigned int bit_number, bool new_value) { int bit_mask = 1<snode == 0) { // If this I/O pin is not attached to a node yet, // then create a node and attach it. pins[bit_position]->snode = new Stimulus_Node(); pins[bit_position]->snode->attach_stimulus(pins[bit_position]); } // attach the new stimulus to the same node as this I/O pin's pins[bit_position]->snode->attach_stimulus(new_stimulus); } } //------------------------------------------------------------------- //------------------------------------------------------------------- void IOPORT::attach_node(Stimulus_Node *new_node, unsigned int bit_position) { if(pins[bit_position]) { stimulus_mask |= (1<snode == new_node; } else cout << "Error: attaching node to a non-existing I/O pin.\n"; } //------------------------------------------------------------------- // trace_register_write // - a wrapper for trace.register_write // This provides an option for IOPORTs derived from the IOPORT class // to override the behavior of IOPORT traces. //------------------------------------------------------------------- void IOPORT::trace_register_write(void) { trace.raw(write_trace.get() | value.get()); //trace.register_write(address,value.get()); } IOPORT::IOPORT(unsigned int _num_iopins) : sfr_register() { stimulus_mask = 0; num_iopins = _num_iopins; valid_iopins = (1<. */ #include #include #include #include "14bit-processors.h" #include "interface.h" #include #include "stimuli.h" #include "errors.h" #include "../config.h" #include "xref.h" #include "protocol.h" //#define __DEBUG_CYCLE_COUNTER__ //-------------------------------------------------- // Global instantiation of the cycle counter // and the stop watch; //-------------------------------------------------- Cycle_Counter cycles; // create an instance of inline get_cycles() method by taking its address Cycle_Counter &(*dummy_cycles)(void) = get_cycles; StopWatch *stop_watch; //-------------------------------------------------- // member functions for the Cycle_Counter class //-------------------------------------------------- /* Overview of Cycle Counter break points. The Cycle Counter break points coordinate simulation time. At the moment, the cycle counter advances one count for every instruction cycle. Thus "real time" is defined in terms of "instruction cycles". (NOTE - This will change!) Now, the way gpsim uses these break points is by allowing peripherals to grab control of the simulation at a particular instance of time. For example, if the UART peripheral needs to send the next data bit in 100 microseconds, then it needs to have control of the simulator in exactly 100 microseconds from right now. The way this is handled, is that the cycle counter is advanced at every instruction cycle (This will change...) and when the cycle counter matches the cycle that corresponds to that 100 microsecond gap, gpsim will divert control to the UART peripheral. There are 3 components to a cycle counter break point. First there's the obvious thing: the number that corresponds to the cycle at which we wish to break. This is a 64-bit integer and thus should cover a fairly significant simulation interval! A 32-bit integer only covers about 7 minutes of simulation time for a pic running at 20MHz. 64-bits provides over 100,000 years of simulation time! The next component is the call back function. This is a pointer to a function, or actually a class that contains a function, that is called when the current value of the cycle counter matches the break point value. In the UART example, this function will be something that the UART peripheral passed when it set the break point. This is how the UART peripheral gets control of the simulator. Finally, the third component is the linked list mechanism. Each time a break point is set, it gets inserted into a linked list that is sorted by the cycle break point value. Thus the first element in the list (if there are any elements at all) is always the next cycle counter break point. */ Cycle_Counter_breakpoint_list *Cycle_Counter_breakpoint_list::getNext() { return next; } Cycle_Counter_breakpoint_list *Cycle_Counter_breakpoint_list::getPrev() { return prev; } void Cycle_Counter_breakpoint_list::clear() { bActive = false; if(f) f->clear_trigger(); } void Cycle_Counter_breakpoint_list::invoke() { if(bActive) { clear(); if(f) f->callback(); } } //-------------------------------------------------- void Cycle_Counter::preset(guint64 new_value) { value = new_value; get_trace().cycle_counter(value); } void Cycle_Counter::set_instruction_cps(guint64 cps) { if(cps) { m_instruction_cps = (double)cps; m_seconds_per_cycle = 1.0/m_instruction_cps; } } //-------------------------------------------------- // get(double seconds_from_now) // // Return the cycle number that corresponds to a time // biased from the current time. // // INPUT: time in seconds (note that it's a double) // // OUTPUT: cycle count guint64 Cycle_Counter::get(double future_time_from_now) { return value + (guint64)(m_instruction_cps * future_time_from_now); } //-------------------------------------------------- // set_break // set a cycle counter break point. Return 1 if successful. // // The break points are stored in a singly-linked-list sorted by the // order in which they will occur. When this routine is called, the // value of 'future_cycle' is compared against the values in the // 'active' list. bool Cycle_Counter::set_break(guint64 future_cycle, TriggerObject *f, unsigned int bpn) { Cycle_Counter_breakpoint_list *l1 = &active, *l2; static unsigned int CallBackID_Sequence=1; #ifdef __DEBUG_CYCLE_COUNTER__ cout << "Cycle_Counter::set_break cycle = 0x" << hex<callback_print(); } else cout << " does not have callback\n"; #endif if(inactive.next == 0) { cout << " too many breaks are set on the cycle counter \n"; return 0; } else if(future_cycle <= value) { cout << "Cycle break point was ignored because cycle " << future_cycle << " has already gone by\n"; cout << "current cycle is " << value << '\n'; return 0; } else { // place the break point into the sorted break list bool break_set = 0; while( (l1->next) && !break_set) { // If the next break point is at a cycle greater than the // one we wish to set, then we found the insertion point. // Otherwise if(l1->next->break_value >= future_cycle) break_set = 1; else l1 = l1->next; } // At this point, we have the position where we need to insert the // break point: it's at l1->next. l2 = l1->next; l1->next = inactive.next; // remove the break point from the 'inactive' list inactive.next = inactive.next->next; l1->next->next = l2; l1->next->prev = l1; if(l2) l2->prev = l1->next; l1->next->break_value = future_cycle; l1->next->f = f; l1->next->breakpoint_number = bpn; l1->next->bActive = true; if(f) f->CallBackID = ++CallBackID_Sequence; #ifdef __DEBUG_CYCLE_COUNTER__ cout << "set_break l1->next=" << hex << l1->next << " "; if (f) f->callback_print(); else cout << endl; cout << "cycle break " << future_cycle << " bpn " << bpn << '\n'; if(f) cout << "call back sequence number = "<< f->CallBackID <<'\n'; #endif } break_on_this = active.next->break_value; return 1; } //-------------------------------------------------- // remove_break // remove break for TriggerObject void Cycle_Counter::clear_break(TriggerObject *f) { Cycle_Counter_breakpoint_list *l1 = &active, *l2 = 0; if(!f) return; while( (l1->next) && !l2) { if(l1->next->f == f) l2 = l1; l1=l1->next; } if(!l2) { //#ifdef __DEBUG_CYCLE_COUNTER__ cout << "WARNING Cycle_Counter::clear_break could not find break point\n Culprit:\t"; f->callback_print(); //#endif return; } // at this point l2->next points to our break point // It needs to be removed from the 'active' list and put onto the 'inactive' list. l1 = l2; l2 = l1->next; // save a copy for a moment l1->next = l1->next->next; // remove the break if(l1->next) l1->next->prev = l1; // fix the backwards link. l2->clear(); #ifdef __DEBUG_CYCLE_COUNTER__ if (f) cout << "Clearing break call back sequence number = "<< f->CallBackID <<'\n'; #endif // Now move the break to the inactive list. l1 = inactive.next; if(!l1) return; l2->next = l1; inactive.next = l2; break_on_this = active.next ? active.next->break_value : 0; } //-------------------------------------------------- // set_break_delta // set a cycle counter break point relative to the current cpu cycle value. Return 1 if successful. // bool Cycle_Counter::set_break_delta(guint64 delta, TriggerObject *f, unsigned int bpn) { #ifdef __DEBUG_CYCLE_COUNTER__ cout << "Cycle_Counter::set_break_delta delta = 0x" << hex<next && !found) { // If the next break point is at the same cycle as the // one we wish to clear, then we found the deletion point. // Otherwise keep searching. if(l1->next->break_value == at_cycle) found = 1; else l1=l1->next; } if(!found) { cout << "Cycle_Counter::clear_break could not find break at cycle 0x" << hex << setw(16) << setfill('0') << at_cycle << endl; return; } l2 = l1->next; // save a copy for a moment l1->next = l1->next->next; // remove the break if(l1->next) l1->next->prev = l2; l2->clear(); // Now move the break to the inactive list. l1 = inactive.next; if(!l1) return; l2->next = l1; inactive.next = l2; break_on_this = active.next ? active.next->break_value : 0; } //------------------------------------------------------------------------ // breakpoint // // When the cycle counter has encountered a cycle that has a breakpoint, // this routine is called. // void Cycle_Counter::breakpoint() { // There's a break point set on this cycle. If there's a callback function, then call // it other wise halt execution by setting the global break flag. // Loop in case there are multiple breaks //while(value == break_on_this && active.next) { while(active.next && value == active.next->break_value) { if(active.next->f) { // This flag will get set true if the call back // function moves the break point to another cycle. Cycle_Counter_breakpoint_list *l1 = active.next; TriggerObject *lastBreak = active.next->f; // this stops recursive callbacks if (l1->bActive) { l1->bActive = false; l1->f->callback(); } clear_current_break(lastBreak); } else { get_bp().check_cycle_break(active.next->breakpoint_number); clear_current_break(); } } if(active.next) break_on_this = active.next->break_value; } //------------------------------------------------------------------------ // reassign_break // change the cycle of an existing break point. // // This is only called by the internal peripherals and not (directly) by // the user. It's purpose is to accommodate the dynamic and unpredictable // needs of the internal cpu timing. For example, if tmr0 is set to roll // over on a certain cycle and the program changes the pre-scale value, // then the break point has to be moved to the new cycle. bool Cycle_Counter::reassign_break(guint64 old_cycle, guint64 new_cycle, TriggerObject *f) { Cycle_Counter_breakpoint_list *l1 = &active, *l2; bool found_old = false; bool break_set = false; reassigned = true; // assume that the break point does actually get reassigned. #ifdef __DEBUG_CYCLE_COUNTER__ cout << "Cycle_Counter::reassign_break, old " << old_cycle << " new " << new_cycle; if(f) cout << " Call back ID = " << f->CallBackID; cout << '\n'; dump_breakpoints(); #endif // // First, we search for the break point by comparing the 'old_cycle' // with the break point cycle of all active break points. Two criteria // must be satisfied for a match: // // 1) The 'old_cycle' must exactly match the cycle of an active // break point. // 2) The Call back function pointer must exactly match the call back // function point of the same active break point. // // The reason for both of these, is so that we can differentiate multiple // break points set at the same cycle. // // NOTE to consider: // // It would be far more efficient to have the "set_break" function return // a handle or a pointer that we could use here to immediately identify // the break we wish to reassign. This would also disambiguate multiple // breaks set at the same cycle. We'd still have to perform a search through // the linked list to find the new point, but that search would be limited // (i.e. the reassignment is either before *or* after the current). A bi- // directional search can be optimized with a doubly-linked list... while( (l1->next) && !found_old) { // If the next break point is at a cycle greater than the // one we wish to set, then we found the insertion point. if(l1->next->f == f && l1->next->break_value == old_cycle) { #ifdef __DEBUG_CYCLE_COUNTER__ cout << " cycle match "; if(f && (f->CallBackID == l1->next->f->CallBackID)) cout << " Call Back IDs match = " << f->CallBackID << ' '; #endif found_old = true; /* if(l1->next->f == f) found_old = true; else l1 = l1->next; */ } else l1 = l1->next; } if(found_old) { // Now move the break point #ifdef __DEBUG_CYCLE_COUNTER__ cout << " found old "; if(l1->next->bActive == false) { cout << "CycleCounter - reassigning in active break "; if(l1->next->f) l1->next->f->callback_print(); cout << endl; } #endif if(new_cycle > old_cycle) { // First check to see if we can stay in the same relative position within the list // Is this the last one in the list? (or equivalently, is the one after this one // a NULL?) if(l1->next->next == 0) { l1->next->break_value = new_cycle; l1->next->bActive = true; break_on_this = active.next->break_value; #ifdef __DEBUG_CYCLE_COUNTER__ cout << " replaced at current position (next is NULL)\n"; dump_breakpoints(); // debug #endif return 1; } // Is the next one in the list still beyond this one? if(l1->next->next->break_value >= new_cycle) { l1->next->break_value = new_cycle; l1->next->bActive = true; break_on_this = active.next->break_value; #ifdef __DEBUG_CYCLE_COUNTER__ cout << " replaced at current position (next is greater)\n"; dump_breakpoints(); // debug #endif return 1; } // Darn. Looks like we have to move it. #ifdef __DEBUG_CYCLE_COUNTER__ cout << " moving \n"; #endif l2 = l1->next; // l2 now points to this break point l1->next = l1->next->next; // Unlink this break point l1->next->prev = l1; while( l1->next && !break_set) { // If the next break point is at a cycle greater than the // one we wish to set, then we found the insertion point. // Otherwise, continue searching. if(l1->next->break_value > new_cycle) break_set = 1; else l1 = l1->next; } // At this point, we know that our breakpoint needs to be // moved to the position just after l1 l2->next = l1->next; l1->next = l2; l2->prev = l1; if(l2->next) l2->next->prev = l2; break_on_this = active.next->break_value; l2->break_value = new_cycle; l2->bActive = true; #ifdef __DEBUG_CYCLE_COUNTER__ dump_breakpoints(); // debug #endif } else { // old_cycle < new_cycle // First check to see if we can stay in the same relative position within the list #ifdef __DEBUG_CYCLE_COUNTER__ cout << " old cycle is less than new one\n"; #endif // Is this the first one in the list? if(l1 == &active) { l1->next->break_value = new_cycle; l1->next->bActive = true; break_on_this = new_cycle; #ifdef __DEBUG_CYCLE_COUNTER__ cout << " replaced at current position\n"; dump_breakpoints(); // debug #endif return 1; } // Is the previous one in the list still before this one? if(l1->break_value < new_cycle) { l1->next->break_value = new_cycle; l1->next->bActive = true; break_on_this = active.next->break_value; #ifdef __DEBUG_CYCLE_COUNTER__ cout << " replaced at current position\n"; dump_breakpoints(); // debug #endif return 1; } // Darn. Looks like we have to move it. l2 = l1->next; // l2 now points to this break point l1->next = l1->next->next; // Unlink this break point if(l1->next) l1->next->prev = l1; l1 = &active; // Start searching from the beginning of the list while( (l1->next) && !break_set) { // If the next break point is at a cycle greater than the // one we wish to set, then we found the insertion point. // Otherwise if(l1->next->break_value > new_cycle) break_set = 1; else l1 = l1->next; } l2->next = l1->next; l2->next->prev = l2; l1->next = l2; l2->prev = l1; l2->break_value = new_cycle; l2->bActive = true; break_on_this = active.next->break_value; #ifdef __DEBUG_CYCLE_COUNTER__ dump_breakpoints(); // debug #endif } } else { // oops our assumption was wrong, we were unable to reassign the break point // to another cycle because we couldn't find the old one! reassigned = false; // If the break point was not found, it can't be moved. So let's just create // a new break point. cout << "WARNING Cycle_Counter::reassign_break could not find old break point\n"; cout << " a new break will created at cycle: 0x"<callback_print(); } set_break(new_cycle, f); } return 1; } void Cycle_Counter::clear_current_break(TriggerObject *f) { if(active.next == 0) return; if(value == break_on_this && (!f || (f && f==active.next->f))) { #ifdef __DEBUG_CYCLE_COUNTER__ cout << "Cycle_Counter::clear_current_break "; cout << "current cycle " << hex << setw(16) << setfill('0') << value << endl; cout << "clearing current cycle break " << hex << setw(16) << setfill('0') << break_on_this; if(active.next->f) cout << " Call Back ID = " << active.next->f->CallBackID; cout <<'\n'; if(active.next->next && active.next->next->break_value == break_on_this) { cout << " but there's one pending at the same cycle"; if(active.next->next->f) cout << " With ID = " << active.next->next->f->CallBackID; cout << '\n'; } #endif Cycle_Counter_breakpoint_list *l1; active.next->bActive = false; l1 = inactive.next; // ptr to 1st inactive bp inactive.next = active.next; // let the 1st active bp become the 1st inactive one active.next = active.next->next; // The 2nd active bp is now the 1st inactive.next->next = l1; // The 2nd inactive bp used to be the 1st if(active.next) { break_on_this = active.next->break_value; active.next->prev = &active; } else break_on_this = END_OF_TIME; } else { // If 'value' doesn't equal 'break_on_this' then what's most probably // happened is that the breakpoint associated with 'break_on_this' // has invoked a callback function that then did a ::reassign_break(). // There's a slight chance that we have a bug - but very slight... if(verbose & 4) { cout << "debug::Didn't clear the current cycle break because != break_on_this\n"; cout << "value = " << value << "\nbreak_on_this = " << break_on_this <<'\n'; } } } void Cycle_Counter::dump_breakpoints(void) { Cycle_Counter_breakpoint_list *l1 = &active; cout << "Current Cycle " << hex << setw(16) << setfill('0') << value << '\n'; cout << "Next scheduled cycle break " << hex << setw(16) << setfill('0') << break_on_this << '\n'; while(l1->next) { //cout << cpu->name_str << " " << "internal cycle break " << cout << "internal cycle break " << hex << setw(16) << setfill('0') << l1->next->break_value << ' '; if(l1->next->f) l1->next->f->callback_print(); else cout << "does not have callback\n"; l1 = l1->next; } } Cycle_Counter::Cycle_Counter(void) { value = 0; break_on_this = END_OF_TIME; m_instruction_cps = 5.0e6; m_seconds_per_cycle = 1 / m_instruction_cps; active.next = 0; active.prev = 0; inactive.next = 0; inactive.prev = 0; Cycle_Counter_breakpoint_list *l1 = &inactive; for(int i=0; inext = new Cycle_Counter_breakpoint_list; l1->next->prev = l1; l1 = l1->next; } l1->next = 0; } //------------------------------------------------------------------------ // StopWatch // //======================================================================== // Stop Watch Attributes //======================================================================== class StopWatchValue : public Integer { private: StopWatch *sw; public: StopWatchValue(StopWatch *_sw) : Integer("stopwatch",0, " A timer for monitoring and controlling the simulation.\n" " The units are in simulation cycles.\n" " stopwatch.rollover - specifies rollover value.\n" " stopwatch.direction - specifies count direction.\n" " stopwatch.enable - enables counting if true.\n"), sw(_sw) { } virtual void set(Value *v) { Integer::set(v); if(sw) sw->update(); } virtual void get(gint64 &i) { i = (sw) ? sw->get() : 0; Integer::set(i); } virtual int set_break(ObjectBreakTypes bt=eBreakAny, ObjectActionTypes at=eActionHalt, Expression *expr=0) { if(sw) sw->set_break(true); return -1; // FIXME } virtual int clear_break() { if(sw) sw->set_break(false); return -1; // FIXME } }; class StopWatchRollover : public Integer { private: StopWatch *sw; public: StopWatchRollover(StopWatch *_sw) : Integer("stopwatch.rollover", 1000000, " specifies the stop watch roll over time."), sw(_sw) { } virtual void set(Value *v) { Integer::set(v); if(sw) sw->update(); } }; class StopWatchEnable : public Boolean { private: StopWatch *sw; public: StopWatchEnable(StopWatch *_sw) : Boolean("stopwatch.enable", true," If true, the stop watch is enabled."), sw(_sw) { } virtual void set(Value *v) { if(sw) sw->update(); Boolean::set(v); } }; class StopWatchDirection : public Boolean { private: StopWatch *sw; public: StopWatchDirection(StopWatch *_sw) : Boolean("stopwatch.direction", true, " If true, the stop watch counts up otherwise down."), sw(_sw) { } virtual void set(Value *v) { if(!v) return; bool bOldVal = getVal(); bool bNewVal; v->get(bNewVal); if(sw && bOldVal != bNewVal) sw->set_direction(bNewVal); } }; //------------------------------------------------------------ StopWatch::StopWatch() { offset = 0; value = new StopWatchValue(this); rollover = new StopWatchRollover(this); enable = new StopWatchEnable(this); direction = new StopWatchDirection(this); break_cycle = 0; if(!value || !rollover || !enable || !direction) throw Error("StopWatch"); globalSymbolTable().addSymbol(value); globalSymbolTable().addSymbol(rollover); globalSymbolTable().addSymbol(enable); globalSymbolTable().addSymbol(direction); update(); } StopWatch::~StopWatch() { globalSymbolTable().deleteSymbol(value->name()); globalSymbolTable().deleteSymbol(rollover->name()); globalSymbolTable().deleteSymbol(enable->name()); globalSymbolTable().deleteSymbol(direction->name()); } //---------------------------------------- // get() // If the stopwatch is running, then compute // the current value based on the cycle_counter. guint64 StopWatch::get(void) { if(enable->getVal()) { gint64 v = (cycles.get() - offset) % rollover->getVal(); if(!direction->getVal()) v = rollover->getVal() - v; return v; } return value->getVal(); } //---------------------------------------- // get() // If the stopwatch is running, then compute // the current value based on the cycle_counter. double StopWatch::get_time(void) { guint64 current_value =get(); if(current_value) return current_value /4000000.0; return 1.0; } void StopWatch::set_enable(bool b) { if(enable->getVal() != b) enable->set(b); update(); } void StopWatch::set_direction(bool b) { if(direction->getVal() == b) return; direction->set(b); offset = cycles.get() - ((rollover->getVal() - value->getVal()) % rollover->getVal()); if(break_cycle) set_break(true); } void StopWatch::set_rollover(guint64 new_rollover) { // setting the rollover attribute will update the stopwatch too. if(rollover) rollover->set((gint64)new_rollover); } void StopWatch::set_value(guint64 new_value) { if(value) value->set((gint64)new_value); } // update() compute a new offset such that the current // value of the stopwatch is correlated with the cycle counter. void StopWatch::update() { if(enable->getVal()) { if(direction->getVal()) offset = cycles.get() - value->getVal(); else offset = cycles.get() - (rollover->getVal() - value->getVal()); if(break_cycle) set_break(true); } } void StopWatch::set_break(bool b) { if(!b) { cycles.clear_break(this); break_cycle = 0; return; } if(!enable->getVal()) return; guint64 old_break_cycle = break_cycle; if(direction->getVal()) break_cycle = cycles.get() + rollover->getVal() - get(); else break_cycle = cycles.get() + get(); if(old_break_cycle == break_cycle) return; if(old_break_cycle) cycles.reassign_break(old_break_cycle,break_cycle ,this); else cycles.set_break(break_cycle ,this); } void StopWatch::callback() { break_cycle = cycles.get() + rollover->getVal(); cycles.set_break(break_cycle,this); cout << " stopwatch break\n"; get_bp().halt(); } void StopWatch::callback_print() { cout << "stopwatch\n"; } gpsim-0.27.0/src/intcon.cc0000664000076400007640000002555512135431722012256 00000000000000/* Copyright (C) 1998-2003 Scott Dattalo 2003 Mike Durian This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include // for guint64 #include #include "intcon.h" #include "gpsim_classes.h" // for RESET_TYPE #include "trace.h" #include "pir.h" #include "16bit-registers.h" #include "16bit-processors.h" #include "breakpoints.h" //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("%s:%d",__FILE__,__LINE__); printf arg; } #else #define Dprintf(arg) {} #endif //-------------------------------------------------- // member functions for the INTCON base class //-------------------------------------------------- INTCON::INTCON(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), interrupt_trace(0) { } void INTCON::set_T0IF() { Dprintf((" INTCON::%s\n",__FUNCTION__)); put(value.get() | T0IF); } void INTCON::put(unsigned int new_value) { Dprintf((" INTCON::%s\n",__FUNCTION__)); trace.raw(write_trace.get() | value.get()); value.put(new_value); // Now let's see if there's a pending interrupt // The INTCON bits are: // GIE | ---- | TOIE | INTE | RBIE | TOIF | INTF | RBIF // There are 3 sources for interrupts, TMR0, RB0/INTF // and RBIF (RB7:RB4 change). If the corresponding interrupt // flag is set AND the corresponding interrupt enable bit // is set AND global interrupts (GIE) are enabled, THEN // there's an interrupt pending. // note: bit6 is not handled here because it is processor // dependent (e.g. EEIE for x84 and ADIE for x7x). if(value.get() & GIE && ( ((value.get()>>3)&value.get() & (T0IF | INTF | RBIF)) || ( value.get() & XXIE && check_peripheral_interrupt() ))) cpu_pic->BP_set_interrupt(); } void INTCON::peripheral_interrupt ( bool hi_pri ) { Dprintf((" INTCON::%s\n",__FUNCTION__)); if ( hi_pri ) cout << "Dodgy call to 14-bit INTCON::peripheral_interrupt with priority set\n"; if (cpu_pic->is_sleeping()) cpu_pic->exit_sleep(); if( (value.get() & (GIE | XXIE)) == (GIE | XXIE) ) cpu_pic->BP_set_interrupt(); } //---------------------------------------------------------------------- //---------------------------------------------------------------------- INTCON2::INTCON2(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), m_bsRBPU(0) {} bool INTCON2::assignBitSink(unsigned int bitPosition, BitSink *pBS) { if (bitPosition == 7) m_bsRBPU = pBS; return true; } bool INTCON2::releaseBitSink(unsigned int bitPosition, BitSink *) { if (bitPosition == 7) m_bsRBPU = 0; return true; } //---------------------------------------------------------------------- //---------------------------------------------------------------------- void INTCON2::put_value(unsigned int new_value) { unsigned int old_value = value.get(); value.put(new_value); if ((old_value ^ new_value) & RBPU && m_bsRBPU) m_bsRBPU->setSink((new_value & RBPU) != 0); } //---------------------------------------------------------------------- //---------------------------------------------------------------------- void INTCON2::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); put_value(new_value); } //---------------------------------------------------------------------- //---------------------------------------------------------------------- INTCON3::INTCON3(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc) {} //---------------------------------------------------------------------- //---------------------------------------------------------------------- void INTCON3::put_value(unsigned int new_value) { value.put(new_value); } //---------------------------------------------------------------------- //---------------------------------------------------------------------- void INTCON3::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); put_value(new_value); } //---------------------------------------------------------------------- //---------------------------------------------------------------------- INTCON_14_PIR::INTCON_14_PIR(Processor *pCpu, const char *pName, const char *pDesc) : INTCON(pCpu, pName, pDesc), pir_set(0) {} int INTCON_14_PIR::check_peripheral_interrupt() { assert(pir_set != 0); Dprintf((" INTCON::%s\n",__FUNCTION__)); return (pir_set->interrupt_status()); } //---------------------------------------------------------------------- // INTCON_16 // // intcon for the 16-bit processor cores. // //---------------------------------------------------------------------- INTCON_16::INTCON_16(Processor *pCpu, const char *pName, const char *pDesc) : INTCON(pCpu, pName, pDesc), interrupt_vector(0), rcon(0), intcon2(0), pir_set(0) { } void INTCON_16::peripheral_interrupt ( bool hi_pri ) { Dprintf((" INTCON_16::%s\n",__FUNCTION__)); assert(rcon != 0); if(rcon->value.get() & RCON::IPEN) { // cout << "peripheral interrupt, priority " << hi_pri << "\n"; if ( hi_pri ) { if ( value.get() & GIEH ) { set_interrupt_vector(INTERRUPT_VECTOR_HI); cpu_pic->BP_set_interrupt(); } } else { if ( ( value.get() & (GIEH|GIEL) ) == (GIEH|GIEL) ) { set_interrupt_vector(INTERRUPT_VECTOR_LO); cpu_pic->BP_set_interrupt(); } } } else { if( (value.get() & (GIE | XXIE)) == (GIE | XXIE) ) cpu_pic->BP_set_interrupt(); } } int INTCON_16::check_peripheral_interrupt() { assert(pir_set != 0); Dprintf((" INTCON_16::%s\n",__FUNCTION__)); return (pir_set->interrupt_status()); // Not quite right, but... // was return 0; but that was blatantly broken } //---------------------------------------------------------------------- // void INTCON_16::clear_gies() // // This routine clears the global interrupt enable bit(s). If priority // interrupts are used (IPEN in RCON is set) then the appropriate gie // bit (either giel or gieh) is cleared. // // This routine is called from 16bit_processor::interrupt(). // //---------------------------------------------------------------------- void INTCON_16::clear_gies() { assert(cpu != 0); if ( !(rcon->value.get() & RCON::IPEN) ) put(value.get() & ~GIE); else if ( isHighPriorityInterrupt() ) put(value.get() & ~GIEH); else put(value.get() & ~GIEL); } //---------------------------------------------------------------------- // void INTCON_16::clear_gies() // //---------------------------------------------------------------------- void INTCON_16::set_gies() { assert(rcon != 0); assert(intcon2 != 0); assert(cpu != 0); get(); // Update the current value of intcon // (and emit 'register read' trace). if(rcon->value.get() & RCON::IPEN) { // Interrupt priorities are being used. if(0 == (value.get() & GIEH)) { // GIEH is cleared, so we need to set it put(value.get() | GIEH); return; } else { // GIEH is set. This means high priority interrupts are enabled. // So we most probably got here because of an RETFIE instruction // after handling a low priority interrupt. We could check to see // if GIEL is low before calling put(), but it's not necessary. // So we'll just blindly re-enable giel, and continue with the // simulation. put(value.get() | GIEL); return; } } else { // Interrupt priorities are not used, so re-enable GIEH (which is in // the same bit-position as GIE on the mid-range core). put(value.get() | GIEH); return; } } //---------------------------------------------------------------------- // void INTCON_16::put(unsigned int new_value) // // Here's were the 18cxxx interrupt logic is primarily handled. // // inputs: new_value - // outputs: none // //---------------------------------------------------------------------- void INTCON_16::put(unsigned int new_value) { trace.raw(write_trace.get() | value.get()); //trace.register_write(address,value.get()); value.put(new_value); //cout << " INTCON_16::put\n"; // Now let's see if there's a pending interrupt // if IPEN is set in RCON, then interrupt priorities // are being used. (In other words, there are two // interrupt priorities on the 18cxxx core. If a // low priority interrupt is being serviced, it's // possible for a high priority interrupt to interject. if(rcon->value.get() & RCON::IPEN) { unsigned int i1; int i2; // Use interrupt priorities // %%%FIXME%%% ***BUG*** - does not attempt to look for peripheral interrupts if( 0 == (value.get() & GIEH)) return; // Interrupts are disabled // Now we just go through the interrupt logic of the 18cxxx // First we check the high priorities and then we check the // low ones. When ever we detect an interrupt, then the // bp.interrupt flag is set (which will cause the interrupt // to be handled at the high level) and additional checks // are aborted. // If TO, INT, or RB flags are set AND their correspond // interrupts are enabled, then the lower three bits of // i1 will reflect this. Note that INTF does NOT have an // associated priority bit! i1 = ( (value.get()>>3)&value.get()) & (T0IF | INTF | RBIF); i2 = check_peripheral_interrupt(); if ( ( i1 & ( (intcon2->value.get() & (T0IF | RBIF)) | INTF) ) || ( i2 & 2 ) ) { set_interrupt_vector(INTERRUPT_VECTOR_HI); cpu_pic->BP_set_interrupt(); return; } // If we reach here, then there are no high priority // interrupts pending. So let's check for the low priority // ones. if ( ( (i1 & (~intcon2->value.get() & (T0IF | RBIF))) || (i2 & 1) ) && (value.get() & GIEL) ) { //cout << " selecting low priority vector\n"; set_interrupt_vector(INTERRUPT_VECTOR_LO); cpu_pic->BP_set_interrupt(); return; } } else { // ignore interrupt priorities set_interrupt_vector(INTERRUPT_VECTOR_HI); if(value.get() & GIE) { if( ( (value.get()>>3)&value.get()) & (T0IF | INTF | RBIF) ) cpu_pic->BP_set_interrupt(); else if(value.get() & XXIE) { if(check_peripheral_interrupt()) cpu_pic->BP_set_interrupt(); } } } } gpsim-0.27.0/src/14bit-registers.h0000664000076400007640000006345712175377101013565 00000000000000/* Copyright (C) 1998 T. Scott Dattalo Copyright (C) 2013 Roy R. Rankin This file is part of the libgpsim library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include class InvalidRegister; // Forward reference #include "trace.h" #ifndef __14_BIT_REGISTERS_H__ #define __14_BIT_REGISTERS_H__ class _14bit_processor; #include "breakpoints.h" #include "rcon.h" class stimulus; // forward reference class IOPIN; class source_stimulus; class Stimulus_Node; class PORTB; class pic_processor; #include "ioports.h" //--------------------------------------------------------- // BORCON register // class BORCON : public sfr_register { public: BORCON(Processor *, const char *pName, const char *pDesc=0); void put(unsigned int new_value); void put_value(unsigned int new_value); }; //--------------------------------------------------------- // BSR register // class BSR : public sfr_register { public: BSR(Processor *, const char *pName, const char *pDesc=0); unsigned int register_page_bits; void put(unsigned int new_value); void put_value(unsigned int new_value); }; //--------------------------------------------------------- // FSR register // class FSR : public sfr_register { public: FSR(Processor *, const char *pName, const char *pDesc=0); virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); virtual unsigned int get(); virtual unsigned int get_value(); }; //--------------------------------------------------------- // FSR_12 register - FSR for the 12-bit core processors. // // class FSR_12 : public FSR { public: unsigned int valid_bits; unsigned int register_page_bits; /* Only used by the 12-bit core to define the valid paging bits in the FSR. */ FSR_12(Processor *, const char *pName, unsigned int _register_page_bits, unsigned int _valid_bits); virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); virtual unsigned int get(); virtual unsigned int get_value(); }; //--------------------------------------------------------- // Status register // class RCON; class Status_register : public sfr_register { public: #define STATUS_Z_BIT 2 #define STATUS_C_BIT 0 #define STATUS_DC_BIT 1 #define STATUS_PD_BIT 3 #define STATUS_TO_BIT 4 #define STATUS_OV_BIT 3 //18cxxx #define STATUS_N_BIT 4 //18cxxx #define STATUS_FSR0_BIT 4 //17c7xx #define STATUS_FSR1_BIT 6 //17c7xx #define STATUS_Z (1<put_PD(new_pd); else { get_trace().raw(write_trace.get() | value.get()); value.put((value.get() & ~STATUS_PD) | ((new_pd) ? STATUS_PD : 0)); } } inline unsigned int get_PD() { if (rcon) return (rcon->get_PD()); else { get_trace().raw(read_trace.get() | value.get()); return( ( (value.get() & STATUS_PD) == 0) ? 0 : 1); } } inline void put_TO(unsigned int new_to) { if (rcon) rcon->put_TO(new_to); else { get_trace().raw(write_trace.get() | value.get()); value.put((value.get() & ~STATUS_TO) | ((new_to) ? STATUS_TO : 0)); } } inline unsigned int get_TO() { if (rcon) return(rcon->get_TO()); else { get_trace().raw(read_trace.get() | value.get()); return( ( (value.get() & STATUS_TO) == 0) ? 0 : 1); } } // Special member function to set Z, C, DC, OV, and N for the 18cxxx family // Special member function to control just the N bit void put_N_Z(unsigned int new_value) { get_trace().raw(write_trace.get() | value.get()); value.put((value.get() & ~(STATUS_Z | STATUS_N)) | ((new_value & 0xff ) ? 0 : STATUS_Z) | ((new_value & 0x80) ? STATUS_N : 0)); } void put_Z_C_N(unsigned int new_value) { get_trace().raw(write_trace.get() | value.get()); value.put((value.get() & ~(STATUS_Z | STATUS_C | STATUS_N)) | ((new_value & 0xff ) ? 0 : STATUS_Z) | ((new_value & 0x100) ? STATUS_C : 0) | ((new_value & 0x80) ? STATUS_N : 0)); } inline void put_Z_C_DC_OV_N(unsigned int new_value, unsigned int src1, unsigned int src2) { get_trace().raw(write_trace.get() | value.get()); value.put((value.get() & ~ (STATUS_Z | STATUS_C | STATUS_DC | STATUS_OV | STATUS_N)) | ((new_value & 0xff ) ? 0 : STATUS_Z) | ((new_value & 0x100) ? STATUS_C : 0) | (((new_value ^ src1 ^ src2)&0x10) ? STATUS_DC : 0) | ((new_value ^ src1) & 0x80 ? STATUS_OV : 0) | ((new_value & 0x80) ? STATUS_N : 0)); } inline void put_Z_C_DC_OV_N_for_sub(unsigned int new_value, unsigned int src1, unsigned int src2) { get_trace().raw(write_trace.get() | value.get()); value.put((value.get() & ~ (STATUS_Z | STATUS_C | STATUS_DC | STATUS_OV | STATUS_N)) | ((new_value & 0xff) ? 0 : STATUS_Z) | ((new_value & 0x100) ? 0 : STATUS_C) | (((new_value ^ src1 ^ src2)&0x10) ? 0 : STATUS_DC) | ((((src1 & ~src2 & ~new_value) | (new_value & ~src1 & src2)) & 0x80) ? STATUS_OV : 0) | ((new_value & 0x80) ? STATUS_N : 0)); } // Special member function to control just the FSR mode void put_FSR0_mode(unsigned int new_value) { get_trace().raw(write_trace.get() | value.get()); value.put((value.get() & ~(STATUS_FSR0_MODE)) | (new_value & 0x03 )); } unsigned int get_FSR0_mode(unsigned int new_value) { get_trace().raw(write_trace.get() | value.get()); return( (value.get()>>STATUS_FSR0_BIT) & 0x03); } void put_FSR1_mode(unsigned int new_value) { get_trace().raw(write_trace.get() | value.get()); value.put((value.get() & ~(STATUS_FSR1_MODE)) | (new_value & 0x03 )); } unsigned int get_FSR1_mode(unsigned int new_value) { get_trace().raw(read_trace.get() | value.get()); return( (value.get()>>STATUS_FSR1_BIT) & 0x03); } }; #include "gpsim_time.h" //--------------------------------------------------------- // Stack // class Stack { public: unsigned int contents[32]; /* the stack array */ int pointer; /* the stack pointer */ unsigned int stack_mask; /* 1 for 12bit, 7 for 14bit, 31 for 16bit */ bool stack_warnings_flag; /* Should over/under flow warnings be printed? */ bool break_on_overflow; /* Should over flow cause a break? */ bool break_on_underflow; /* Should under flow cause a break? */ Stack(Processor *); virtual ~Stack() {} virtual bool push(unsigned int); virtual bool stack_overflow(); virtual bool stack_underflow(); virtual unsigned int pop(); virtual void reset(RESET_TYPE r) {pointer = 0;}; // %%% FIX ME %%% reset may need to change // because I'm not sure how the stack is affected by a reset. virtual bool set_break_on_overflow(bool clear_or_set); virtual bool set_break_on_underflow(bool clear_or_set); virtual unsigned int get_tos(); virtual void put_tos(unsigned int); bool STVREN; Processor *cpu; }; class STKPTR : public sfr_register { public: enum { STKUNF = 1<<6, STKOVF = 1<<7 }; STKPTR(Processor *, const char *pName, const char *pDesc=0); Stack *stack; void put_value(unsigned int new_value); void put(unsigned int new_value); }; class TOSL : public sfr_register { public: TOSL(Processor *, const char *pName, const char *pDesc=0); Stack *stack; virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); virtual unsigned int get(); virtual unsigned int get_value(); }; class TOSH : public sfr_register { public: TOSH(Processor *, const char *pName, const char *pDesc=0); Stack *stack; virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); virtual unsigned int get(); virtual unsigned int get_value(); }; // // Stack for enhanced 14 bit porcessors // class Stack14E : public Stack { public: STKPTR stkptr; TOSL tosl; TOSH tosh; Stack14E(Processor *); ~Stack14E(); virtual void reset(RESET_TYPE r); virtual unsigned int pop(); virtual bool push(unsigned int address); virtual bool stack_overflow(); virtual bool stack_underflow(); #define NO_ENTRY 0x20 }; //--------------------------------------------------------- // W register class WTraceType; class WREG : public sfr_register { public: WREG(Processor *, const char *pName, const char *pDesc=0); ~WREG(); protected: WTraceType *m_tt; }; #include "tmr0.h" //--------------------------------------------------------- // INDF class INDF : public sfr_register { public: unsigned int fsr_mask; unsigned int base_address_mask1; unsigned int base_address_mask2; INDF(Processor *, const char *pName, const char *pDesc=0); void put(unsigned int new_value); virtual void put_value(unsigned int new_value); unsigned int get(); unsigned int get_value(); virtual void initialize(); }; //--------------------------------------------------------- // // Indirect_Addressing // // This class coordinates the indirect addressing on the 18cxxx // parts. Each of the registers comprising the indirect addressing // subsystem: FSRnL,FSRnH, INDFn, POSTINCn, POSTDECn, PREINCn, and // PLUSWn are each individually defined as sfr_registers AND included // in the Indirect_Addressing class. So accessing these registers // is the same as accessing any register: through the core cpu's // register memory. The only difference for these registers is that // the class Indirect_Addressing14; // Forward reference //--------------------------------------------------------- // FSR registers class FSRL14 : public sfr_register { public: FSRL14(Processor *, const char *pName, const char *pDesc, Indirect_Addressing14 *pIAM); void put(unsigned int new_value); void put_value(unsigned int new_value); protected: Indirect_Addressing14 *iam; }; class FSRH14 : public sfr_register { public: FSRH14(Processor *, const char *pName, const char *pDesc, Indirect_Addressing14 *pIAM); void put(unsigned int new_value); void put_value(unsigned int new_value); protected: Indirect_Addressing14 *iam; }; class INDF14 : public sfr_register { public: INDF14(Processor *, const char *pName, const char *pDesc, Indirect_Addressing14 *pIAM); void put(unsigned int new_value); void put_value(unsigned int new_value); unsigned int get(); unsigned int get_value(); protected: Indirect_Addressing14 *iam; }; class Indirect_Addressing14 { public: Indirect_Addressing14(pic_processor *cpu, const string &n); pic_processor *cpu; unsigned int fsr_value; // 16bit concatenation of fsrl and fsrh unsigned int fsr_state; /* used in conjunction with the pre/post incr * and decrement. This is mainly needed for * those instructions that perform read-modify- * write operations on the indirect registers * eg. btg POSTINC1,4 . The post increment must * occur after the bit is toggled and not during * the read operation that's determining the * current state. */ int fsr_delta; /* If there's a pending update to the fsr register * pair, then the magnitude of that update is * stored here. */ guint64 current_cycle; /* Stores the cpu cycle when the fsr was last * changed. */ FSRL14 fsrl; FSRH14 fsrh; INDF14 indf; //void init(_16bit_processor *new_cpu); void put(unsigned int new_value); unsigned int get(); unsigned int get_value(); void put_fsr(unsigned int new_fsr); unsigned int get_fsr_value(){return (fsr_value & 0xfff);}; void update_fsr_value(); /* bool is_indirect_register(unsigned int reg_address) * * The purpose of this routine is to determine whether or not the * 'reg_address' is the address of an indirect register. This is * used by the 'put' and 'get' functions of the indirect registers. * Indirect registers are forbidden access to other indirect registers. * (Although double indirection in a single instruction cycle would * be powerful!). */ inline bool is_indirect_register(unsigned int reg_address) { unsigned int bank_address = reg_address % 0x80; if(bank_address == 0 || bank_address == 1 || bank_address == 4 || bank_address == 5 || bank_address == 6 || bank_address == 7) return 1; return 0; } }; //--------------------------------------------------------- // PCL - Program Counter Low // class PCL : public sfr_register { public: virtual void put(unsigned int new_value); virtual void put_value(unsigned int new_value); virtual unsigned int get(); virtual unsigned int get_value(); virtual void reset(RESET_TYPE r); PCL(Processor *, const char *pName, const char *pDesc=0); }; //--------------------------------------------------------- // PCLATH - Program Counter Latch High // class PCLATH : public sfr_register { public: void put(unsigned int new_value); void put_value(unsigned int new_value); unsigned int get(); PCLATH(Processor *, const char *pName, const char *pDesc=0); }; //--------------------------------------------------------- // PCON - Power Control/Status Register // class PCON : public sfr_register { public: enum { BOR = 1<<0, // clear on Brown Out Reset POR = 1<<1, // clear on Power On Reset RI = 1<<2, // clear on Reset instruction RMCLR = 1<<3, // clear if hardware MCLR occurs SBOREN = 1<<4, // Software BOR Enable bit ULPWUE = 1<<5, // Ultra Low-Power Wake-up Enable bit STKUNF = 1<<6, // Stack undeflow STKOVF = 1<<7 // Stack overflow }; unsigned int valid_bits; void put(unsigned int new_value); PCON(Processor *, const char *pName, const char *pDesc=0, unsigned int bitMask=0x03); }; class OSCCON; class OSCTUNE : public sfr_register { public: void put(unsigned int new_value); virtual void set_osccon(OSCCON *new_osccon) { osccon = new_osccon;} unsigned int valid_bits; enum { TUN0 = 1<<0, TUN1 = 1<<1, TUN2 = 1<<2, TUN3 = 1<<3, TUN4 = 1<<4, TUN5 = 1<<5, }; OSCCON *osccon; OSCTUNE(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc), valid_bits(6), osccon(0) { } }; // This class is used to trim the frequency of the internal RC clock // 111111 - Max freq // 100000 - no adjustment // 000000 - mix freq class OSCCAL : public sfr_register { public: void put(unsigned int new_value); void set_freq(float base_freq); float base_freq; OSCCAL(Processor *pCpu, const char *pName, const char *pDesc, unsigned int bitMask) : sfr_register(pCpu,pName,pDesc), base_freq(0.) { mValidBits=bitMask; // Can't use initialiser for parent class members } }; class OSCCON : public sfr_register, public TriggerObject { public: void put(unsigned int new_value); virtual void callback(); virtual bool set_rc_frequency(); virtual void set_osctune(OSCTUNE *new_osctune) { osctune = new_osctune;} unsigned int valid_bits; OSCTUNE *osctune; enum { SCS0 = 1<<0, SCS1 = 1<<1, IOFS = 1<<2, OSTS = 1<<3, IRCF0 = 1<<4, IRCF1 = 1<<5, IRCF2 = 1<<6 }; OSCCON(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc), valid_bits(7), osctune(0) { } }; class OSCSTAT : public sfr_register { public: void put(unsigned int new_value){;} enum { HFIOFS = 1<<0, LFIOFR = 1<<1, MFIOFR = 1<<2, HFIOFL = 1<<3, HFIOFR = 1<<4, OSTS = 1<<5, PLLR = 1<<6, T1OSCR = 1<<7 }; OSCSTAT(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc) {} }; class OSCCON_2 : public sfr_register, public TriggerObject { public: void put(unsigned int new_value); void put_value(unsigned int new_value); virtual void callback(); virtual bool set_rc_frequency(); virtual void set_osctune(OSCTUNE *new_osctune) { osctune = new_osctune;} virtual void set_oscstat(OSCSTAT *_oscstat) { oscstat = _oscstat;} virtual void set_config(unsigned int cfg_fosc, bool cfg_ieso); virtual void set_callback(); virtual void wake(); unsigned int valid_bits; unsigned int mode; guint64 next_callback; OSCTUNE *osctune; OSCSTAT *oscstat; unsigned int config_fosc; // FOSC bits from config word bool config_ieso; //internal/external switchover bit from config word enum MODE { LF = 0, MF, HF, T1OSC, EC, // external clock, always stable OST, // use on startup timer PLL = 0x10 }; enum { SCS0 = 1<<0, SCS1 = 1<<1, IRCF0 = 1<<3, IRCF1 = 1<<4, IRCF2 = 1<<5, IRCF3 = 1<<6, SPLLEN = 1<<7 }; OSCCON_2(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc), valid_bits(0xfb), next_callback(0), osctune(0), oscstat(0) { } }; class WDTCON : public sfr_register { public: unsigned int valid_bits; enum { WDTPS3 = 1<<4, WDTPS2 = 1<<3, WDTPS1 = 1<<2, WDTPS0 = 1<<1, SWDTEN = 1<<0 }; WDTCON(Processor *pCpu, const char *pName, const char *pDesc, unsigned int bits) : sfr_register(pCpu,pName,pDesc), valid_bits(bits) { } virtual void put(unsigned int new_value); virtual void reset(RESET_TYPE r); }; // Interrupt-On-Change GPIO Register class IOC : public sfr_register { public: IOC(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu,pName,pDesc) { mValidBits=0x3f; } void put(unsigned int new_value) { unsigned int masked_value = new_value & mValidBits; get_trace().raw(write_trace.get() | value.get()); value.put(masked_value); } }; class PicPortRegister; // WPU set weak pullups on pin by pin basis // class WPU : public sfr_register { public: PicPortRegister *wpu_gpio; bool wpu_pu; void put(unsigned int new_value); void set_wpu_pu(bool pullup_enable); WPU(Processor *pCpu, const char *pName, const char *pDesc, PicPortRegister* gpio, unsigned int mask=0x37) : sfr_register(pCpu,pName,pDesc), wpu_gpio(gpio), wpu_pu(false) { mValidBits=mask; // Can't use initialiser for parent class members } }; class CPSCON1; class T1CON_G; class CPS_stimulus; class CPSCON0 : public sfr_register, public TriggerObject { public: enum { T0XCS = 1<<0, // Timer0 External Clock Source Select bit CPSOUT = 1<<1, // Capacitive Sensing Oscillator Status bit CPSRNG0 = 1<<2, // Capacitive Sensing Current Range bits CPSRNG1 = 1<<3, CPSRM = 1<<6, // Capacitive Sensing Reference Mode bit CPSON = 1<<7 // CPS Module Enable bit }; void put(unsigned int new_value); void set_chan(unsigned int _chan); void calculate_freq(); void set_pin(unsigned int _chan, PinModule *_pin) { pin[_chan] = _pin;} void set_DAC_volt(double); void set_FVR_volt(double); void callback(); CPSCON0(Processor *pCpu, const char *pName, const char *pDesc=0); ~CPSCON0(); TMR0 *m_tmr0; T1CON_G *m_t1con_g; private: unsigned int chan; PinModule *pin[16]; double DAC_voltage; double FVR_voltage; guint64 future_cycle; int period; CPS_stimulus *cps_stimulus; }; class CPSCON1 : public sfr_register { public: void put(unsigned int new_value); CPSCON1(Processor *pCpu, const char *pName, const char *pDesc) : sfr_register(pCpu, pName, pDesc), m_cpscon0(0) { mValidBits = 0x03; } CPSCON0 *m_cpscon0; }; class CPS_stimulus : public stimulus { public: CPS_stimulus(CPSCON0 *arg, const char *n=0, double _Vth=0.0, double _Zth=1e12 ); CPSCON0 *m_cpscon0; virtual void set_nodeVoltage(double v); }; class SR_MODULE; // SR LATCH CONTROL 0 REGISTER class SRCON0 : public sfr_register { public: enum { SRPR = 1<<0, // Pulse Reset Input of the SR Latch bit SRPS = 1<<1, // Pulse Set Input of the SR Latch bit SRNQEN = 1<<2, // Latch Not Q Output Enable bit SRQEN = 1<<3, // Latch Q Output Enable bit SRCLK0 = 1<<4, // Latch Clock Divider bits SRCLK1 = 1<<5, // Latch Clock Divider bits SRCLK2 = 1<<6, // Latch Clock Divider bits SRLEN = 1<<7, // Latch Enable bit CLKMASK = SRCLK0|SRCLK1|SRCLK2, CLKSHIFT = 4 }; SRCON0(Processor *pCpu, const char *pName, const char *pDesc, SR_MODULE *_sr_module); void put(unsigned int new_value); private: SR_MODULE *m_sr_module; }; // SR LATCH CONTROL 1 REGISTER // class SRCON1 : public sfr_register { public: enum { SRRC1E = 1<<0, // Latch C1 Reset Enable bit SRRC2E = 1<<1, // Latch C2 Reset Enable bit SRRCKE = 1<<2, // Latch Reset Clock Enable bit SRRPE = 1<<3, // Latch Peripheral Reset Enable bit SRSC1E = 1<<4, // Latch C1 Set Enable bit SRSC2E = 1<<5, // Latch C2 Set Enable bit SRSCKE = 1<<6, // Latch Set Clock Enable bit SRSPE = 1<<7 // Latch Peripheral Set Enable bit }; SRCON1(Processor *pCpu, const char *pName, const char *pDesc, SR_MODULE *m_sr_module); void put(unsigned int new_value); void set_ValidBits(unsigned int validbits) { mValidBits = validbits;} private: SR_MODULE *m_sr_module; unsigned int mValidBits; }; class SRinSink; class SR_MODULE: public TriggerObject { public: SR_MODULE(Processor *); ~SR_MODULE(); void update(); SRCON0 srcon0; SRCON1 srcon1; void pulse_reset() { state_reset = true;} void pulse_set() { state_set = true;} void clock_diff(unsigned int); void clock_enable(); void clock_disable(); void syncC1out(bool val); void syncC2out(bool val); void setPins(PinModule *, PinModule *,PinModule *); void setState(char); void Qoutput(); void NQoutput(); protected: void callback(); Processor *cpu; guint64 future_cycle; bool state_set; bool state_reset; bool state_Q; unsigned int srclk; bool syncc1out; // Synced output from comparator 1 bool syncc2out; // Synced output from comparator 2 PinModule *SRI_pin; PinModule *SRQ_pin; PinModule *SRNQ_pin; bool SRI; // state of input pin SRinSink *m_SRinSink; PeripheralSignalSource *m_SRQsource; PeripheralSignalSource *m_SRNQsource; }; #endif gpsim-0.27.0/src/exports.h0000644000076400007640000000204411401131150012277 00000000000000#ifndef __GPSIM_EXPORTS_H__ #define __GPSIM_EXPORTS_H__ #ifdef _WIN32 // Microsoft Visual C DLL export and import macros // for classes exported from gpsim.exe. // Supported by GCC on Windows. // Each DLL will need its own versions with xxx_DLL_EXPORT // defined for the modules that contain the code. # if defined(LIBGPSIM_DLL_EXPORT) # define LIBGPSIM_EXT_CLASS __declspec( dllexport ) # define LIBGPSIM_EXPORT __declspec( dllexport ) // #pragma message ("dllexport") # else # define LIBGPSIM_EXT_CLASS __declspec( dllimport ) # define LIBGPSIM_EXPORT // #pragma message ("dllimport") # endif #else # define LIBGPSIM_EXT_CLASS # define LIBGPSIM_EXPORT // #pragma message ("LIBGPSIM_EXT_CLASS defined a nothing") #endif class ProgramFileType; /// /// Exported functions bool LIBGPSIM_EXPORT IsFileExtension(const char *pszFile, const char *pFileExt); void LIBGPSIM_EXPORT RegisterProgramFileType(ProgramFileType * pPFT); void LIBGPSIM_EXPORT EnableRealTimeMode(bool bEnable); void LIBGPSIM_EXPORT EnableRealTimeModeWithGui(bool bEnable); #endif gpsim-0.27.0/ylwrap0000755000076400007640000001553612157551763011142 00000000000000#! /bin/sh # ylwrap - wrapper for lex/yacc invocations. scriptversion=2012-12-21.17; # UTC # Copyright (C) 1996-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 # . get_dirname () { case $1 in */*|*\\*) printf '%s\n' "$1" | sed -e 's|\([\\/]\)[^\\/]*$|\1|';; # Otherwise, we want the empty string (not "."). esac } # guard FILE # ---------- # The CPP macro used to guard inclusion of FILE. guard() { printf '%s\n' "$1" \ | sed \ -e 'y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/' \ -e 's/[^ABCDEFGHIJKLMNOPQRSTUVWXYZ]/_/g' \ -e 's/__*/_/g' } # quote_for_sed [STRING] # ---------------------- # Return STRING (or stdin) quoted to be used as a sed pattern. quote_for_sed () { case $# in 0) cat;; 1) printf '%s\n' "$1";; esac \ | sed -e 's|[][\\.*]|\\&|g' } case "$1" in '') echo "$0: No files given. Try '$0 --help' for more information." 1>&2 exit 1 ;; --basedir) basedir=$2 shift 2 ;; -h|--h*) cat <<\EOF Usage: ylwrap [--help|--version] INPUT [OUTPUT DESIRED]... -- PROGRAM [ARGS]... Wrapper for lex/yacc invocations, renaming files as desired. INPUT is the input file OUTPUT is one file PROG generates DESIRED is the file we actually want instead of OUTPUT PROGRAM is program to run ARGS are passed to PROG Any number of OUTPUT,DESIRED pairs may be used. Report bugs to . EOF exit $? ;; -v|--v*) echo "ylwrap $scriptversion" exit $? ;; esac # The input. input="$1" shift # We'll later need for a correct munging of "#line" directives. input_sub_rx=`get_dirname "$input" | quote_for_sed` case "$input" in [\\/]* | ?:[\\/]*) # Absolute path; do nothing. ;; *) # Relative path. Make it absolute. input="`pwd`/$input" ;; esac input_rx=`get_dirname "$input" | quote_for_sed` # Since DOS filename conventions don't allow two dots, # the DOS version of Bison writes out y_tab.c instead of y.tab.c # and y_tab.h instead of y.tab.h. Test to see if this is the case. y_tab_nodot=false if test -f y_tab.c || test -f y_tab.h; then y_tab_nodot=true fi # The parser itself, the first file, is the destination of the .y.c # rule in the Makefile. parser=$1 # A sed program to s/FROM/TO/g for all the FROM/TO so that, for # instance, we rename #include "y.tab.h" into #include "parse.h" # during the conversion from y.tab.c to parse.c. sed_fix_filenames= # Also rename header guards, as Bison 2.7 for instance uses its header # guard in its implementation file. sed_fix_header_guards= while test "$#" -ne 0; do if test "$1" = "--"; then shift break fi from=$1 # Handle y_tab.c and y_tab.h output by DOS if $y_tab_nodot; then case $from in "y.tab.c") from=y_tab.c;; "y.tab.h") from=y_tab.h;; esac fi shift to=$1 shift sed_fix_filenames="${sed_fix_filenames}s|"`quote_for_sed "$from"`"|$to|g;" sed_fix_header_guards="${sed_fix_header_guards}s|"`guard "$from"`"|"`guard "$to"`"|g;" done # The program to run. prog="$1" shift # Make any relative path in $prog absolute. case "$prog" in [\\/]* | ?:[\\/]*) ;; *[\\/]*) prog="`pwd`/$prog" ;; esac # FIXME: add hostname here for parallel makes that run commands on # other machines. But that might take us over the 14-char limit. dirname=ylwrap$$ do_exit="cd '`pwd`' && rm -rf $dirname > /dev/null 2>&1;"' (exit $ret); exit $ret' trap "ret=129; $do_exit" 1 trap "ret=130; $do_exit" 2 trap "ret=141; $do_exit" 13 trap "ret=143; $do_exit" 15 mkdir $dirname || exit 1 cd $dirname case $# in 0) "$prog" "$input" ;; *) "$prog" "$@" "$input" ;; esac ret=$? if test $ret -eq 0; then for from in * do to=`printf '%s\n' "$from" | sed "$sed_fix_filenames"` if test -f "$from"; then # If $2 is an absolute path name, then just use that, # otherwise prepend '../'. case $to in [\\/]* | ?:[\\/]*) target=$to;; *) target="../$to";; esac # Do not overwrite unchanged header files to avoid useless # recompilations. Always update the parser itself: it is the # destination of the .y.c rule in the Makefile. Divert the # output of all other files to a temporary file so we can # compare them to existing versions. if test $from != $parser; then realtarget="$target" target=tmp-`printf '%s\n' "$target" | sed 's|.*[\\/]||g'` fi # Munge "#line" or "#" directives. Don't let the resulting # debug information point at an absolute srcdir. Use the real # output file name, not yy.lex.c for instance. Adjust the # include guards too. sed -e "/^#/!b" \ -e "s|$input_rx|$input_sub_rx|" \ -e "$sed_fix_filenames" \ -e "$sed_fix_header_guards" \ "$from" >"$target" || ret=$? # Check whether files must be updated. if test "$from" != "$parser"; then if test -f "$realtarget" && cmp -s "$realtarget" "$target"; then echo "$to is unchanged" rm -f "$target" else echo "updating $to" mv -f "$target" "$realtarget" fi fi else # A missing file is only an error for the parser. This is a # blatant hack to let us support using "yacc -d". If -d is not # specified, don't fail when the header file is "missing". if test "$from" = "$parser"; then ret=1 fi fi done fi # Remove the directory. cd .. rm -rf $dirname 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: gpsim-0.27.0/configure0000755000076400007640000232445412205237261011575 00000000000000#! /bin/sh # Guess values for system-dependent variables and create Makefiles. # Generated by GNU Autoconf 2.69 for gpsim 0.27.0. # # Report bugs to <>. # # # Copyright (C) 1992-1996, 1998-2012 Free Software Foundation, Inc. # # # This configure script is free software; the Free Software Foundation # gives unlimited permission to copy, distribute and modify it. ## -------------------- ## ## M4sh Initialization. ## ## -------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi as_nl=' ' export as_nl # Printing a long string crashes Solaris 7 /usr/bin/printf. as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo # Prefer a ksh shell builtin over an external printf program on Solaris, # but without wasting forks for bash or zsh. if test -z "$BASH_VERSION$ZSH_VERSION" \ && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='print -r --' as_echo_n='print -rn --' elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='printf %s\n' as_echo_n='printf %s' else if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' as_echo_n='/usr/ucb/echo -n' else as_echo_body='eval expr "X$1" : "X\\(.*\\)"' as_echo_n_body='eval arg=$1; case $arg in #( *"$as_nl"*) expr "X$arg" : "X\\(.*\\)$as_nl"; arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; esac; expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" ' export as_echo_n_body as_echo_n='sh -c $as_echo_n_body as_echo' fi export as_echo_body as_echo='sh -c $as_echo_body as_echo' fi # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then PATH_SEPARATOR=: (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || PATH_SEPARATOR=';' } fi # IFS # We need space, tab and new line, in precisely that order. Quoting is # there to prevent editors from complaining about space-tab. # (If _AS_PATH_WALK were called with IFS unset, it would disable word # splitting by setting IFS to empty value.) IFS=" "" $as_nl" # Find who we are. Look in the path if we contain no directory separator. as_myself= case $0 in #(( *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done IFS=$as_save_IFS ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 exit 1 fi # Unset variables that we do not need and which cause bugs (e.g. in # pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" # suppresses any "Segmentation fault" message there. '((' could # trigger a bug in pdksh 5.2.14. for as_var in BASH_ENV ENV MAIL MAILPATH do eval test x\${$as_var+set} = xset \ && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : done PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. LC_ALL=C export LC_ALL LANGUAGE=C export LANGUAGE # CDPATH. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH # Use a proper internal environment variable to ensure we don't fall # into an infinite loop, continuously re-executing ourselves. if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then _as_can_reexec=no; export _as_can_reexec; # We cannot yet assume a decent shell, so we have to provide a # neutralization value for shells without unset; and this also # works around shells that cannot unset nonexistent variables. # Preserve -v and -x to the replacement shell. BASH_ENV=/dev/null ENV=/dev/null (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV case $- in # (((( *v*x* | *x*v* ) as_opts=-vx ;; *v* ) as_opts=-v ;; *x* ) as_opts=-x ;; * ) as_opts= ;; esac exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} # Admittedly, this is quite paranoid, since all the known shells bail # out after a failed `exec'. $as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 as_fn_exit 255 fi # We don't want this to propagate to other subprocesses. { _as_can_reexec=; unset _as_can_reexec;} if test "x$CONFIG_SHELL" = x; then as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which # is contrary to our usage. Disable this feature. alias -g '\${1+\"\$@\"}'='\"\$@\"' setopt NO_GLOB_SUBST else case \`(set -o) 2>/dev/null\` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi " as_required="as_fn_return () { (exit \$1); } as_fn_success () { as_fn_return 0; } as_fn_failure () { as_fn_return 1; } as_fn_ret_success () { return 0; } as_fn_ret_failure () { return 1; } exitcode=0 as_fn_success || { exitcode=1; echo as_fn_success failed.; } as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then : else exitcode=1; echo positional parameters were not saved. fi test x\$exitcode = x0 || exit 1 test -x / || exit 1" as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1 test \$(( 1 + 1 )) = 2 || exit 1 test -n \"\${ZSH_VERSION+set}\${BASH_VERSION+set}\" || ( ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' ECHO=\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO ECHO=\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO PATH=/empty FPATH=/empty; export PATH FPATH test \"X\`printf %s \$ECHO\`\" = \"X\$ECHO\" \\ || test \"X\`print -r -- \$ECHO\`\" = \"X\$ECHO\" ) || exit 1" if (eval "$as_required") 2>/dev/null; then : as_have_required=yes else as_have_required=no fi if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then : else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR as_found=false for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. as_found=: case $as_dir in #( /*) for as_base in sh bash ksh sh5; do # Try only shells that exist, to save several forks. as_shell=$as_dir/$as_base if { test -f "$as_shell" || test -f "$as_shell.exe"; } && { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then : CONFIG_SHELL=$as_shell as_have_required=yes if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then : break 2 fi fi done;; esac as_found=false done $as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } && { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then : CONFIG_SHELL=$SHELL as_have_required=yes fi; } IFS=$as_save_IFS if test "x$CONFIG_SHELL" != x; then : export CONFIG_SHELL # We cannot yet assume a decent shell, so we have to provide a # neutralization value for shells without unset; and this also # works around shells that cannot unset nonexistent variables. # Preserve -v and -x to the replacement shell. BASH_ENV=/dev/null ENV=/dev/null (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV case $- in # (((( *v*x* | *x*v* ) as_opts=-vx ;; *v* ) as_opts=-v ;; *x* ) as_opts=-x ;; * ) as_opts= ;; esac exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} # Admittedly, this is quite paranoid, since all the known shells bail # out after a failed `exec'. $as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 exit 255 fi if test x$as_have_required = xno; then : $as_echo "$0: This script requires a shell more modern than all" $as_echo "$0: the shells that I found on your system." if test x${ZSH_VERSION+set} = xset ; then $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should" $as_echo "$0: be upgraded to zsh 4.3.4 or later." else $as_echo "$0: Please tell bug-autoconf@gnu.org and $0: about your $0: system, including any error possibly output before this $0: message. Then install a modern shell, or manually run $0: the script under such a shell if you do have one." fi exit 1 fi fi fi SHELL=${CONFIG_SHELL-/bin/sh} export SHELL # Unset more variables known to interfere with behavior of common tools. CLICOLOR_FORCE= GREP_OPTIONS= unset CLICOLOR_FORCE GREP_OPTIONS ## --------------------- ## ## M4sh Shell Functions. ## ## --------------------- ## # as_fn_unset VAR # --------------- # Portably unset VAR. as_fn_unset () { { eval $1=; unset $1;} } as_unset=as_fn_unset # as_fn_set_status STATUS # ----------------------- # Set $? to STATUS, without forking. as_fn_set_status () { return $1 } # as_fn_set_status # as_fn_exit STATUS # ----------------- # Exit the shell with STATUS, even in a "trap 0" or "set -e" context. as_fn_exit () { set +e as_fn_set_status $1 exit $1 } # as_fn_exit # as_fn_mkdir_p # ------------- # Create "$as_dir" as a directory, including parents if necessary. as_fn_mkdir_p () { case $as_dir in #( -*) as_dir=./$as_dir;; esac test -d "$as_dir" || eval $as_mkdir_p || { as_dirs= while :; do case $as_dir in #( *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( *) as_qdir=$as_dir;; esac as_dirs="'$as_qdir' $as_dirs" as_dir=`$as_dirname -- "$as_dir" || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` test -d "$as_dir" && break done test -z "$as_dirs" || eval "mkdir $as_dirs" } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" } # as_fn_mkdir_p # as_fn_executable_p FILE # ----------------------- # Test if FILE is an executable regular file. as_fn_executable_p () { test -f "$1" && test -x "$1" } # as_fn_executable_p # as_fn_append VAR VALUE # ---------------------- # Append the text in VALUE to the end of the definition contained in VAR. Take # advantage of any shell optimizations that allow amortized linear growth over # repeated appends, instead of the typical quadratic growth present in naive # implementations. if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : eval 'as_fn_append () { eval $1+=\$2 }' else as_fn_append () { eval $1=\$$1\$2 } fi # as_fn_append # as_fn_arith ARG... # ------------------ # Perform arithmetic evaluation on the ARGs, and store the result in the # global $as_val. Take advantage of shells that can avoid forks. The arguments # must be portable across $(()) and expr. if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : eval 'as_fn_arith () { as_val=$(( $* )) }' else as_fn_arith () { as_val=`expr "$@" || test $? -eq 1` } fi # as_fn_arith # as_fn_error STATUS ERROR [LINENO LOG_FD] # ---------------------------------------- # Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are # provided, also output the error to LOG_FD, referencing LINENO. Then exit the # script with STATUS, using 1 if that was 0. as_fn_error () { as_status=$1; test $as_status -eq 0 && as_status=1 if test "$4"; then as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 fi $as_echo "$as_me: error: $2" >&2 as_fn_exit $as_status } # as_fn_error if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then as_dirname=dirname else as_dirname=false fi as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || $as_echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits as_lineno_1=$LINENO as_lineno_1a=$LINENO as_lineno_2=$LINENO as_lineno_2a=$LINENO eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) sed -n ' p /[$]LINENO/= ' <$as_myself | sed ' s/[$]LINENO.*/&-/ t lineno b :lineno N :loop s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ t loop s/-\n.*// ' >$as_me.lineno && chmod +x "$as_me.lineno" || { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } # If we had to re-execute with $CONFIG_SHELL, we're ensured to have # already done that, so ensure we don't try to do so again and fall # in an infinite loop. This has already happened in practice. _as_can_reexec=no; export _as_can_reexec # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the # original and so on. Autoconf is especially sensitive to this). . "./$as_me.lineno" # Exit status is that of the last command. exit } ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in #((((( -n*) case `echo 'xy\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. xy) ECHO_C='\c';; *) echo `echo ksh88 bug on AIX 6.1` > /dev/null ECHO_T=' ';; esac;; *) ECHO_N='-n';; esac rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir mkdir conf$$.dir 2>/dev/null fi if (echo >conf$$.file) 2>/dev/null; then if ln -s conf$$.file conf$$ 2>/dev/null; then as_ln_s='ln -s' # ... but there are two gotchas: # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. # In both cases, we have to default to `cp -pR'. ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || as_ln_s='cp -pR' elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -pR' fi else as_ln_s='cp -pR' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null if mkdir -p . 2>/dev/null; then as_mkdir_p='mkdir -p "$as_dir"' else test -d ./-p && rmdir ./-p as_mkdir_p=false fi as_test_x='test -x' as_executable_p=as_fn_executable_p # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" SHELL=${CONFIG_SHELL-/bin/sh} test -n "$DJDIR" || exec 7<&0 &1 # Name of the host. # hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status, # so uname gets run too. ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` # # Initializations. # ac_default_prefix=/usr/local ac_clean_files= ac_config_libobj_dir=. LIBOBJS= cross_compiling=no subdirs= MFLAGS= MAKEFLAGS= # Identity of this package. PACKAGE_NAME='gpsim' PACKAGE_TARNAME='gpsim' PACKAGE_VERSION='0.27.0' PACKAGE_STRING='gpsim 0.27.0' PACKAGE_BUGREPORT='' PACKAGE_URL='' ac_unique_file="config.h.in" # Factoring default headers for most tests. ac_includes_default="\ #include #ifdef HAVE_SYS_TYPES_H # include #endif #ifdef HAVE_SYS_STAT_H # include #endif #ifdef STDC_HEADERS # include # include #else # ifdef HAVE_STDLIB_H # include # endif #endif #ifdef HAVE_STRING_H # if !defined STDC_HEADERS && defined HAVE_MEMORY_H # include # endif # include #endif #ifdef HAVE_STRINGS_H # include #endif #ifdef HAVE_INTTYPES_H # include #endif #ifdef HAVE_STDINT_H # include #endif #ifdef HAVE_UNISTD_H # include #endif" ac_subst_vars='am__EXEEXT_FALSE am__EXEEXT_TRUE LTLIBOBJS LIBDL GLIB GDK GTK X_LDFLAGS X_CFLAGS Y_LDFLAGS Y_CFLAGS POW_LIB LIBOBJS ALLOCA OTOOL64 OTOOL LIPO NMEDIT DSYMUTIL MANIFEST_TOOL RANLIB ac_ct_AR AR DLLTOOL OBJDUMP NM ac_ct_DUMPBIN DUMPBIN LD FGREP SED LIBTOOL LEXLIB LEX_OUTPUT_ROOT LEX YFLAGS YACC LN_S CXXCPP am__fastdepCXX_FALSE am__fastdepCXX_TRUE CXXDEPMODE ac_ct_CXX CXXFLAGS CXX LIBREADLINE PKGCONFIG EGREP GREP CPP am__fastdepCC_FALSE am__fastdepCC_TRUE CCDEPMODE am__nodep AMDEPBACKSLASH AMDEP_FALSE AMDEP_TRUE am__quote am__include DEPDIR OBJEXT EXEEXT ac_ct_CC CPPFLAGS LDFLAGS CFLAGS CC host_os host_vendor host_cpu host build_os build_vendor build_cpu build MAINT MAINTAINER_MODE_FALSE MAINTAINER_MODE_TRUE AM_BACKSLASH AM_DEFAULT_VERBOSITY AM_DEFAULT_V AM_V am__untar am__tar AMTAR am__leading_dot SET_MAKE AWK mkdir_p MKDIR_P INSTALL_STRIP_PROGRAM STRIP install_sh MAKEINFO AUTOHEADER AUTOMAKE AUTOCONF ACLOCAL VERSION PACKAGE CYGPATH_W am__isrc INSTALL_DATA INSTALL_SCRIPT INSTALL_PROGRAM target_alias host_alias build_alias LIBS ECHO_T ECHO_N ECHO_C DEFS mandir localedir libdir psdir pdfdir dvidir htmldir infodir docdir oldincludedir includedir localstatedir sharedstatedir sysconfdir datadir datarootdir libexecdir sbindir bindir program_transform_name prefix exec_prefix PACKAGE_URL PACKAGE_BUGREPORT PACKAGE_STRING PACKAGE_VERSION PACKAGE_TARNAME PACKAGE_NAME PATH_SEPARATOR SHELL' ac_subst_files='' ac_user_opts=' enable_option_checking enable_silent_rules enable_maintainer_mode enable_gui enable_sockets enable_dependency_tracking enable_shared enable_static with_pic enable_fast_install with_gnu_ld with_sysroot enable_libtool_lock ' ac_precious_vars='build_alias host_alias target_alias CC CFLAGS LDFLAGS LIBS CPPFLAGS CPP CXX CXXFLAGS CCC CXXCPP YACC YFLAGS' # Initialize some variables set by options. ac_init_help= ac_init_version=false ac_unrecognized_opts= ac_unrecognized_sep= # The variables have the same names as the options, with # dashes changed to underlines. cache_file=/dev/null exec_prefix=NONE no_create= no_recursion= prefix=NONE program_prefix=NONE program_suffix=NONE program_transform_name=s,x,x, silent= site= srcdir= verbose= x_includes=NONE x_libraries=NONE # Installation directory options. # These are left unexpanded so users can "make install exec_prefix=/foo" # and all the variables that are supposed to be based on exec_prefix # by default will actually change. # Use braces instead of parens because sh, perl, etc. also accept them. # (The list follows the same order as the GNU Coding Standards.) bindir='${exec_prefix}/bin' sbindir='${exec_prefix}/sbin' libexecdir='${exec_prefix}/libexec' datarootdir='${prefix}/share' datadir='${datarootdir}' sysconfdir='${prefix}/etc' sharedstatedir='${prefix}/com' localstatedir='${prefix}/var' includedir='${prefix}/include' oldincludedir='/usr/include' docdir='${datarootdir}/doc/${PACKAGE_TARNAME}' infodir='${datarootdir}/info' htmldir='${docdir}' dvidir='${docdir}' pdfdir='${docdir}' psdir='${docdir}' libdir='${exec_prefix}/lib' localedir='${datarootdir}/locale' mandir='${datarootdir}/man' ac_prev= ac_dashdash= for ac_option do # If the previous option needs an argument, assign it. if test -n "$ac_prev"; then eval $ac_prev=\$ac_option ac_prev= continue fi case $ac_option in *=?*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;; *=) ac_optarg= ;; *) ac_optarg=yes ;; esac # Accept the important Cygnus configure options, so we can diagnose typos. case $ac_dashdash$ac_option in --) ac_dashdash=yes ;; -bindir | --bindir | --bindi | --bind | --bin | --bi) ac_prev=bindir ;; -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) bindir=$ac_optarg ;; -build | --build | --buil | --bui | --bu) ac_prev=build_alias ;; -build=* | --build=* | --buil=* | --bui=* | --bu=*) build_alias=$ac_optarg ;; -cache-file | --cache-file | --cache-fil | --cache-fi \ | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) ac_prev=cache_file ;; -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) cache_file=$ac_optarg ;; --config-cache | -C) cache_file=config.cache ;; -datadir | --datadir | --datadi | --datad) ac_prev=datadir ;; -datadir=* | --datadir=* | --datadi=* | --datad=*) datadir=$ac_optarg ;; -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \ | --dataroo | --dataro | --datar) ac_prev=datarootdir ;; -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \ | --dataroot=* | --dataroo=* | --dataro=* | --datar=*) datarootdir=$ac_optarg ;; -disable-* | --disable-*) ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid feature name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "enable_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval enable_$ac_useropt=no ;; -docdir | --docdir | --docdi | --doc | --do) ac_prev=docdir ;; -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*) docdir=$ac_optarg ;; -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv) ac_prev=dvidir ;; -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*) dvidir=$ac_optarg ;; -enable-* | --enable-*) ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid feature name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "enable_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval enable_$ac_useropt=\$ac_optarg ;; -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ | --exec | --exe | --ex) ac_prev=exec_prefix ;; -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ | --exec=* | --exe=* | --ex=*) exec_prefix=$ac_optarg ;; -gas | --gas | --ga | --g) # Obsolete; use --with-gas. with_gas=yes ;; -help | --help | --hel | --he | -h) ac_init_help=long ;; -help=r* | --help=r* | --hel=r* | --he=r* | -hr*) ac_init_help=recursive ;; -help=s* | --help=s* | --hel=s* | --he=s* | -hs*) ac_init_help=short ;; -host | --host | --hos | --ho) ac_prev=host_alias ;; -host=* | --host=* | --hos=* | --ho=*) host_alias=$ac_optarg ;; -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht) ac_prev=htmldir ;; -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \ | --ht=*) htmldir=$ac_optarg ;; -includedir | --includedir | --includedi | --included | --include \ | --includ | --inclu | --incl | --inc) ac_prev=includedir ;; -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ | --includ=* | --inclu=* | --incl=* | --inc=*) includedir=$ac_optarg ;; -infodir | --infodir | --infodi | --infod | --info | --inf) ac_prev=infodir ;; -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) infodir=$ac_optarg ;; -libdir | --libdir | --libdi | --libd) ac_prev=libdir ;; -libdir=* | --libdir=* | --libdi=* | --libd=*) libdir=$ac_optarg ;; -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ | --libexe | --libex | --libe) ac_prev=libexecdir ;; -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ | --libexe=* | --libex=* | --libe=*) libexecdir=$ac_optarg ;; -localedir | --localedir | --localedi | --localed | --locale) ac_prev=localedir ;; -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*) localedir=$ac_optarg ;; -localstatedir | --localstatedir | --localstatedi | --localstated \ | --localstate | --localstat | --localsta | --localst | --locals) ac_prev=localstatedir ;; -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*) localstatedir=$ac_optarg ;; -mandir | --mandir | --mandi | --mand | --man | --ma | --m) ac_prev=mandir ;; -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) mandir=$ac_optarg ;; -nfp | --nfp | --nf) # Obsolete; use --without-fp. with_fp=no ;; -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c | -n) no_create=yes ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) no_recursion=yes ;; -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ | --oldin | --oldi | --old | --ol | --o) ac_prev=oldincludedir ;; -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) oldincludedir=$ac_optarg ;; -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) ac_prev=prefix ;; -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) prefix=$ac_optarg ;; -program-prefix | --program-prefix | --program-prefi | --program-pref \ | --program-pre | --program-pr | --program-p) ac_prev=program_prefix ;; -program-prefix=* | --program-prefix=* | --program-prefi=* \ | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) program_prefix=$ac_optarg ;; -program-suffix | --program-suffix | --program-suffi | --program-suff \ | --program-suf | --program-su | --program-s) ac_prev=program_suffix ;; -program-suffix=* | --program-suffix=* | --program-suffi=* \ | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) program_suffix=$ac_optarg ;; -program-transform-name | --program-transform-name \ | --program-transform-nam | --program-transform-na \ | --program-transform-n | --program-transform- \ | --program-transform | --program-transfor \ | --program-transfo | --program-transf \ | --program-trans | --program-tran \ | --progr-tra | --program-tr | --program-t) ac_prev=program_transform_name ;; -program-transform-name=* | --program-transform-name=* \ | --program-transform-nam=* | --program-transform-na=* \ | --program-transform-n=* | --program-transform-=* \ | --program-transform=* | --program-transfor=* \ | --program-transfo=* | --program-transf=* \ | --program-trans=* | --program-tran=* \ | --progr-tra=* | --program-tr=* | --program-t=*) program_transform_name=$ac_optarg ;; -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd) ac_prev=pdfdir ;; -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*) pdfdir=$ac_optarg ;; -psdir | --psdir | --psdi | --psd | --ps) ac_prev=psdir ;; -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*) psdir=$ac_optarg ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) silent=yes ;; -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) ac_prev=sbindir ;; -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ | --sbi=* | --sb=*) sbindir=$ac_optarg ;; -sharedstatedir | --sharedstatedir | --sharedstatedi \ | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ | --sharedst | --shareds | --shared | --share | --shar \ | --sha | --sh) ac_prev=sharedstatedir ;; -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ | --sha=* | --sh=*) sharedstatedir=$ac_optarg ;; -site | --site | --sit) ac_prev=site ;; -site=* | --site=* | --sit=*) site=$ac_optarg ;; -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) ac_prev=srcdir ;; -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) srcdir=$ac_optarg ;; -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ | --syscon | --sysco | --sysc | --sys | --sy) ac_prev=sysconfdir ;; -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) sysconfdir=$ac_optarg ;; -target | --target | --targe | --targ | --tar | --ta | --t) ac_prev=target_alias ;; -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) target_alias=$ac_optarg ;; -v | -verbose | --verbose | --verbos | --verbo | --verb) verbose=yes ;; -version | --version | --versio | --versi | --vers | -V) ac_init_version=: ;; -with-* | --with-*) ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid package name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "with_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval with_$ac_useropt=\$ac_optarg ;; -without-* | --without-*) ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid package name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "with_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval with_$ac_useropt=no ;; --x) # Obsolete; use --with-x. with_x=yes ;; -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ | --x-incl | --x-inc | --x-in | --x-i) ac_prev=x_includes ;; -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) x_includes=$ac_optarg ;; -x-libraries | --x-libraries | --x-librarie | --x-librari \ | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) ac_prev=x_libraries ;; -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) x_libraries=$ac_optarg ;; -*) as_fn_error $? "unrecognized option: \`$ac_option' Try \`$0 --help' for more information" ;; *=*) ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` # Reject names that are not valid shell variable names. case $ac_envvar in #( '' | [0-9]* | *[!_$as_cr_alnum]* ) as_fn_error $? "invalid variable name: \`$ac_envvar'" ;; esac eval $ac_envvar=\$ac_optarg export $ac_envvar ;; *) # FIXME: should be removed in autoconf 3.0. $as_echo "$as_me: WARNING: you should use --build, --host, --target" >&2 expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && $as_echo "$as_me: WARNING: invalid host type: $ac_option" >&2 : "${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}" ;; esac done if test -n "$ac_prev"; then ac_option=--`echo $ac_prev | sed 's/_/-/g'` as_fn_error $? "missing argument to $ac_option" fi if test -n "$ac_unrecognized_opts"; then case $enable_option_checking in no) ;; fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;; *) $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;; esac fi # Check all directory arguments for consistency. for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \ datadir sysconfdir sharedstatedir localstatedir includedir \ oldincludedir docdir infodir htmldir dvidir pdfdir psdir \ libdir localedir mandir do eval ac_val=\$$ac_var # Remove trailing slashes. case $ac_val in */ ) ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'` eval $ac_var=\$ac_val;; esac # Be sure to have absolute directory names. case $ac_val in [\\/$]* | ?:[\\/]* ) continue;; NONE | '' ) case $ac_var in *prefix ) continue;; esac;; esac as_fn_error $? "expected an absolute directory name for --$ac_var: $ac_val" done # There might be people who depend on the old broken behavior: `$host' # used to hold the argument of --host etc. # FIXME: To remove some day. build=$build_alias host=$host_alias target=$target_alias # FIXME: To remove some day. if test "x$host_alias" != x; then if test "x$build_alias" = x; then cross_compiling=maybe elif test "x$build_alias" != "x$host_alias"; then cross_compiling=yes fi fi ac_tool_prefix= test -n "$host_alias" && ac_tool_prefix=$host_alias- test "$silent" = yes && exec 6>/dev/null ac_pwd=`pwd` && test -n "$ac_pwd" && ac_ls_di=`ls -di .` && ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` || as_fn_error $? "working directory cannot be determined" test "X$ac_ls_di" = "X$ac_pwd_ls_di" || as_fn_error $? "pwd does not report name of working directory" # Find the source files, if location was not specified. if test -z "$srcdir"; then ac_srcdir_defaulted=yes # Try the directory containing this script, then the parent directory. ac_confdir=`$as_dirname -- "$as_myself" || $as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_myself" : 'X\(//\)[^/]' \| \ X"$as_myself" : 'X\(//\)$' \| \ X"$as_myself" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$as_myself" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` srcdir=$ac_confdir if test ! -r "$srcdir/$ac_unique_file"; then srcdir=.. fi else ac_srcdir_defaulted=no fi if test ! -r "$srcdir/$ac_unique_file"; then test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .." as_fn_error $? "cannot find sources ($ac_unique_file) in $srcdir" fi ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work" ac_abs_confdir=`( cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error $? "$ac_msg" pwd)` # When building in place, set srcdir=. if test "$ac_abs_confdir" = "$ac_pwd"; then srcdir=. fi # Remove unnecessary trailing slashes from srcdir. # Double slashes in file names in object file debugging info # mess up M-x gdb in Emacs. case $srcdir in */) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;; esac for ac_var in $ac_precious_vars; do eval ac_env_${ac_var}_set=\${${ac_var}+set} eval ac_env_${ac_var}_value=\$${ac_var} eval ac_cv_env_${ac_var}_set=\${${ac_var}+set} eval ac_cv_env_${ac_var}_value=\$${ac_var} done # # Report the --help message. # if test "$ac_init_help" = "long"; then # Omit some internal or obsolete options to make the list less imposing. # This message is too long to be a string in the A/UX 3.1 sh. cat <<_ACEOF \`configure' configures gpsim 0.27.0 to adapt to many kinds of systems. Usage: $0 [OPTION]... [VAR=VALUE]... To assign environment variables (e.g., CC, CFLAGS...), specify them as VAR=VALUE. See below for descriptions of some of the useful variables. Defaults for the options are specified in brackets. Configuration: -h, --help display this help and exit --help=short display options specific to this package --help=recursive display the short help of all the included packages -V, --version display version information and exit -q, --quiet, --silent do not print \`checking ...' messages --cache-file=FILE cache test results in FILE [disabled] -C, --config-cache alias for \`--cache-file=config.cache' -n, --no-create do not create output files --srcdir=DIR find the sources in DIR [configure dir or \`..'] Installation directories: --prefix=PREFIX install architecture-independent files in PREFIX [$ac_default_prefix] --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX [PREFIX] By default, \`make install' will install all the files in \`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify an installation prefix other than \`$ac_default_prefix' using \`--prefix', for instance \`--prefix=\$HOME'. For better control, use the options below. Fine tuning of the installation directories: --bindir=DIR user executables [EPREFIX/bin] --sbindir=DIR system admin executables [EPREFIX/sbin] --libexecdir=DIR program executables [EPREFIX/libexec] --sysconfdir=DIR read-only single-machine data [PREFIX/etc] --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] --localstatedir=DIR modifiable single-machine data [PREFIX/var] --libdir=DIR object code libraries [EPREFIX/lib] --includedir=DIR C header files [PREFIX/include] --oldincludedir=DIR C header files for non-gcc [/usr/include] --datarootdir=DIR read-only arch.-independent data root [PREFIX/share] --datadir=DIR read-only architecture-independent data [DATAROOTDIR] --infodir=DIR info documentation [DATAROOTDIR/info] --localedir=DIR locale-dependent data [DATAROOTDIR/locale] --mandir=DIR man documentation [DATAROOTDIR/man] --docdir=DIR documentation root [DATAROOTDIR/doc/gpsim] --htmldir=DIR html documentation [DOCDIR] --dvidir=DIR dvi documentation [DOCDIR] --pdfdir=DIR pdf documentation [DOCDIR] --psdir=DIR ps documentation [DOCDIR] _ACEOF cat <<\_ACEOF Program names: --program-prefix=PREFIX prepend PREFIX to installed program names --program-suffix=SUFFIX append SUFFIX to installed program names --program-transform-name=PROGRAM run sed PROGRAM on installed program names System types: --build=BUILD configure for building on BUILD [guessed] --host=HOST cross-compile to build programs to run on HOST [BUILD] _ACEOF fi if test -n "$ac_init_help"; then case $ac_init_help in short | recursive ) echo "Configuration of gpsim 0.27.0:";; esac cat <<\_ACEOF Optional Features: --disable-option-checking ignore unrecognized --enable/--with options --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) --enable-FEATURE[=ARG] include FEATURE [ARG=yes] --enable-silent-rules less verbose build output (undo: "make V=1") --disable-silent-rules verbose build output (undo: "make V=0") --enable-maintainer-mode enable make rules and dependencies not useful (and sometimes confusing) to the casual installer --disable-gui Only use the cli and not the gui --enable-sockets Allows gpsim to be controlled via a socket interface --enable-dependency-tracking do not reject slow dependency extractors --disable-dependency-tracking speeds up one-time build --enable-shared[=PKGS] build shared libraries [default=yes] --enable-static[=PKGS] build static libraries [default=yes] --enable-fast-install[=PKGS] optimize for fast installation [default=yes] --disable-libtool-lock avoid locking (might break parallel builds) Optional Packages: --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) --with-pic[=PKGS] try to use only PIC/non-PIC objects [default=use both] --with-gnu-ld assume the C compiler uses GNU ld [default=no] --with-sysroot=DIR Search for dependent libraries within DIR (or the compiler's sysroot if not specified). Some influential environment variables: CC C compiler command CFLAGS C compiler flags LDFLAGS linker flags, e.g. -L if you have libraries in a nonstandard directory LIBS libraries to pass to the linker, e.g. -l CPPFLAGS (Objective) C/C++ preprocessor flags, e.g. -I if you have headers in a nonstandard directory CPP C preprocessor CXX C++ compiler command CXXFLAGS C++ compiler flags CXXCPP C++ preprocessor YACC The `Yet Another Compiler Compiler' implementation to use. Defaults to the first program found out of: `bison -y', `byacc', `yacc'. YFLAGS The list of arguments that will be passed by default to $YACC. This script will default YFLAGS to the empty string to avoid a default value of `-d' given by some make applications. Use these variables to override the choices made by `configure' or to help it to find libraries and programs with nonstandard names/locations. Report bugs to <>. _ACEOF ac_status=$? fi if test "$ac_init_help" = "recursive"; then # If there are subdirs, report their specific --help. for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue test -d "$ac_dir" || { cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } || continue ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; esac ;; esac ac_abs_top_builddir=$ac_pwd ac_abs_builddir=$ac_pwd$ac_dir_suffix # for backward compatibility: ac_top_builddir=$ac_top_build_prefix case $srcdir in .) # We are building in place. ac_srcdir=. ac_top_srcdir=$ac_top_builddir_sub ac_abs_top_srcdir=$ac_pwd ;; [\\/]* | ?:[\\/]* ) # Absolute name. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ac_abs_top_srcdir=$srcdir ;; *) # Relative name. ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_build_prefix$srcdir ac_abs_top_srcdir=$ac_pwd/$srcdir ;; esac ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix cd "$ac_dir" || { ac_status=$?; continue; } # Check for guested configure. if test -f "$ac_srcdir/configure.gnu"; then echo && $SHELL "$ac_srcdir/configure.gnu" --help=recursive elif test -f "$ac_srcdir/configure"; then echo && $SHELL "$ac_srcdir/configure" --help=recursive else $as_echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2 fi || ac_status=$? cd "$ac_pwd" || { ac_status=$?; break; } done fi test -n "$ac_init_help" && exit $ac_status if $ac_init_version; then cat <<\_ACEOF gpsim configure 0.27.0 generated by GNU Autoconf 2.69 Copyright (C) 2012 Free Software Foundation, Inc. This configure script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it. _ACEOF exit fi ## ------------------------ ## ## Autoconf initialization. ## ## ------------------------ ## # ac_fn_c_try_compile LINENO # -------------------------- # Try to compile conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack rm -f conftest.$ac_objext if { { ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_compile # ac_fn_c_try_cpp LINENO # ---------------------- # Try to preprocess conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_cpp () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if { { ac_try="$ac_cpp conftest.$ac_ext" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } > conftest.i && { test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || test ! -s conftest.err }; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_cpp # ac_fn_c_check_header_mongrel LINENO HEADER VAR INCLUDES # ------------------------------------------------------- # Tests whether HEADER exists, giving a warning if it cannot be compiled using # the include files in INCLUDES and setting the cache variable VAR # accordingly. ac_fn_c_check_header_mongrel () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if eval \${$3+:} false; then : { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } else # Is the header compilable? { $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 usability" >&5 $as_echo_n "checking $2 usability... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 #include <$2> _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_header_compiler=yes else ac_header_compiler=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_compiler" >&5 $as_echo "$ac_header_compiler" >&6; } # Is the header present? { $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 presence" >&5 $as_echo_n "checking $2 presence... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include <$2> _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : ac_header_preproc=yes else ac_header_preproc=no fi rm -f conftest.err conftest.i conftest.$ac_ext { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_preproc" >&5 $as_echo "$ac_header_preproc" >&6; } # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in #(( yes:no: ) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&5 $as_echo "$as_me: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 $as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} ;; no:yes:* ) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: present but cannot be compiled" >&5 $as_echo "$as_me: WARNING: $2: present but cannot be compiled" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: check for missing prerequisite headers?" >&5 $as_echo "$as_me: WARNING: $2: check for missing prerequisite headers?" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: see the Autoconf documentation" >&5 $as_echo "$as_me: WARNING: $2: see the Autoconf documentation" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&5 $as_echo "$as_me: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 $as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} ( $as_echo "## -------------------------------------------------------- ## ## Report this to ## ## -------------------------------------------------------- ##" ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else eval "$3=\$ac_header_compiler" fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_header_mongrel # ac_fn_c_try_run LINENO # ---------------------- # Try to link conftest.$ac_ext, and return whether this succeeded. Assumes # that executables *can* be run. ac_fn_c_try_run () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { ac_try='./conftest$ac_exeext' { { case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_try") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; }; then : ac_retval=0 else $as_echo "$as_me: program exited with status $ac_status" >&5 $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=$ac_status fi rm -rf conftest.dSYM conftest_ipa8_conftest.oo eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_run # ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES # ------------------------------------------------------- # Tests whether HEADER exists and can be compiled using the include files in # INCLUDES, setting the cache variable VAR accordingly. ac_fn_c_check_header_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 #include <$2> _ACEOF if ac_fn_c_try_compile "$LINENO"; then : eval "$3=yes" else eval "$3=no" fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_header_compile # ac_fn_c_try_link LINENO # ----------------------- # Try to link conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_link () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack rm -f conftest.$ac_objext conftest$ac_exeext if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest$ac_exeext && { test "$cross_compiling" = yes || test -x conftest$ac_exeext }; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would # interfere with the next link command; also delete a directory that is # left behind by Apple's compiler. We do this before executing the actions. rm -rf conftest.dSYM conftest_ipa8_conftest.oo eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_link # ac_fn_cxx_try_compile LINENO # ---------------------------- # Try to compile conftest.$ac_ext, and return whether this succeeded. ac_fn_cxx_try_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack rm -f conftest.$ac_objext if { { ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_cxx_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_cxx_try_compile # ac_fn_cxx_try_cpp LINENO # ------------------------ # Try to preprocess conftest.$ac_ext, and return whether this succeeded. ac_fn_cxx_try_cpp () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if { { ac_try="$ac_cpp conftest.$ac_ext" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } > conftest.i && { test -z "$ac_cxx_preproc_warn_flag$ac_cxx_werror_flag" || test ! -s conftest.err }; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_cxx_try_cpp # ac_fn_c_check_func LINENO FUNC VAR # ---------------------------------- # Tests whether FUNC exists, setting the cache variable VAR accordingly ac_fn_c_check_func () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Define $2 to an innocuous variant, in case declares $2. For example, HP-UX 11i declares gettimeofday. */ #define $2 innocuous_$2 /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $2 (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #endif #undef $2 /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char $2 (); /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined __stub_$2 || defined __stub___$2 choke me #endif int main () { return $2 (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : eval "$3=yes" else eval "$3=no" fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_func # ac_fn_cxx_try_link LINENO # ------------------------- # Try to link conftest.$ac_ext, and return whether this succeeded. ac_fn_cxx_try_link () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack rm -f conftest.$ac_objext conftest$ac_exeext if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_cxx_werror_flag" || test ! -s conftest.err } && test -s conftest$ac_exeext && { test "$cross_compiling" = yes || test -x conftest$ac_exeext }; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would # interfere with the next link command; also delete a directory that is # left behind by Apple's compiler. We do this before executing the actions. rm -rf conftest.dSYM conftest_ipa8_conftest.oo eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_cxx_try_link # ac_fn_cxx_try_run LINENO # ------------------------ # Try to link conftest.$ac_ext, and return whether this succeeded. Assumes # that executables *can* be run. ac_fn_cxx_try_run () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { ac_try='./conftest$ac_exeext' { { case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_try") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; }; then : ac_retval=0 else $as_echo "$as_me: program exited with status $ac_status" >&5 $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=$ac_status fi rm -rf conftest.dSYM conftest_ipa8_conftest.oo eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_cxx_try_run # ac_fn_cxx_check_header_mongrel LINENO HEADER VAR INCLUDES # --------------------------------------------------------- # Tests whether HEADER exists, giving a warning if it cannot be compiled using # the include files in INCLUDES and setting the cache variable VAR # accordingly. ac_fn_cxx_check_header_mongrel () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if eval \${$3+:} false; then : { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } else # Is the header compilable? { $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 usability" >&5 $as_echo_n "checking $2 usability... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 #include <$2> _ACEOF if ac_fn_cxx_try_compile "$LINENO"; then : ac_header_compiler=yes else ac_header_compiler=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_compiler" >&5 $as_echo "$ac_header_compiler" >&6; } # Is the header present? { $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 presence" >&5 $as_echo_n "checking $2 presence... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include <$2> _ACEOF if ac_fn_cxx_try_cpp "$LINENO"; then : ac_header_preproc=yes else ac_header_preproc=no fi rm -f conftest.err conftest.i conftest.$ac_ext { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_preproc" >&5 $as_echo "$ac_header_preproc" >&6; } # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_cxx_preproc_warn_flag in #(( yes:no: ) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&5 $as_echo "$as_me: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 $as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} ;; no:yes:* ) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: present but cannot be compiled" >&5 $as_echo "$as_me: WARNING: $2: present but cannot be compiled" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: check for missing prerequisite headers?" >&5 $as_echo "$as_me: WARNING: $2: check for missing prerequisite headers?" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: see the Autoconf documentation" >&5 $as_echo "$as_me: WARNING: $2: see the Autoconf documentation" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&5 $as_echo "$as_me: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 $as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} ( $as_echo "## -------------------------------------------------------- ## ## Report this to ## ## -------------------------------------------------------- ##" ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else eval "$3=\$ac_header_compiler" fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_cxx_check_header_mongrel # ac_fn_cxx_check_type LINENO TYPE VAR INCLUDES # --------------------------------------------- # Tests whether TYPE exists after having included INCLUDES, setting cache # variable VAR accordingly. ac_fn_cxx_check_type () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else eval "$3=no" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { if (sizeof ($2)) return 0; ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO"; then : cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { if (sizeof (($2))) return 0; ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO"; then : else eval "$3=yes" fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_cxx_check_type # ac_fn_cxx_check_func LINENO FUNC VAR # ------------------------------------ # Tests whether FUNC exists, setting the cache variable VAR accordingly ac_fn_cxx_check_func () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Define $2 to an innocuous variant, in case declares $2. For example, HP-UX 11i declares gettimeofday. */ #define $2 innocuous_$2 /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $2 (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #endif #undef $2 /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char $2 (); /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined __stub_$2 || defined __stub___$2 choke me #endif int main () { return $2 (); ; return 0; } _ACEOF if ac_fn_cxx_try_link "$LINENO"; then : eval "$3=yes" else eval "$3=no" fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_cxx_check_func # ac_fn_cxx_compute_int LINENO EXPR VAR INCLUDES # ---------------------------------------------- # Tries to find the compile-time value of EXPR in a program that includes # INCLUDES, setting VAR accordingly. Returns whether the value could be # computed ac_fn_cxx_compute_int () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if test "$cross_compiling" = yes; then # Depending upon the size, compute the lo and hi bounds. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { static int test_array [1 - 2 * !(($2) >= 0)]; test_array [0] = 0; return test_array [0]; ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO"; then : ac_lo=0 ac_mid=0 while :; do cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { static int test_array [1 - 2 * !(($2) <= $ac_mid)]; test_array [0] = 0; return test_array [0]; ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO"; then : ac_hi=$ac_mid; break else as_fn_arith $ac_mid + 1 && ac_lo=$as_val if test $ac_lo -le $ac_mid; then ac_lo= ac_hi= break fi as_fn_arith 2 '*' $ac_mid + 1 && ac_mid=$as_val fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { static int test_array [1 - 2 * !(($2) < 0)]; test_array [0] = 0; return test_array [0]; ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO"; then : ac_hi=-1 ac_mid=-1 while :; do cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { static int test_array [1 - 2 * !(($2) >= $ac_mid)]; test_array [0] = 0; return test_array [0]; ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO"; then : ac_lo=$ac_mid; break else as_fn_arith '(' $ac_mid ')' - 1 && ac_hi=$as_val if test $ac_mid -le $ac_hi; then ac_lo= ac_hi= break fi as_fn_arith 2 '*' $ac_mid && ac_mid=$as_val fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done else ac_lo= ac_hi= fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext # Binary search between lo and hi bounds. while test "x$ac_lo" != "x$ac_hi"; do as_fn_arith '(' $ac_hi - $ac_lo ')' / 2 + $ac_lo && ac_mid=$as_val cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { static int test_array [1 - 2 * !(($2) <= $ac_mid)]; test_array [0] = 0; return test_array [0]; ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO"; then : ac_hi=$ac_mid else as_fn_arith '(' $ac_mid ')' + 1 && ac_lo=$as_val fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done case $ac_lo in #(( ?*) eval "$3=\$ac_lo"; ac_retval=0 ;; '') ac_retval=1 ;; esac else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 static long int longval () { return $2; } static unsigned long int ulongval () { return $2; } #include #include int main () { FILE *f = fopen ("conftest.val", "w"); if (! f) return 1; if (($2) < 0) { long int i = longval (); if (i != ($2)) return 1; fprintf (f, "%ld", i); } else { unsigned long int i = ulongval (); if (i != ($2)) return 1; fprintf (f, "%lu", i); } /* Do not output a trailing newline, as this causes \r\n confusion on some platforms. */ return ferror (f) || fclose (f) != 0; ; return 0; } _ACEOF if ac_fn_cxx_try_run "$LINENO"; then : echo >>conftest.val; read $3 config.log <<_ACEOF This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. It was created by gpsim $as_me 0.27.0, which was generated by GNU Autoconf 2.69. Invocation command line was $ $0 $@ _ACEOF exec 5>>config.log { cat <<_ASUNAME ## --------- ## ## Platform. ## ## --------- ## hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` uname -m = `(uname -m) 2>/dev/null || echo unknown` uname -r = `(uname -r) 2>/dev/null || echo unknown` uname -s = `(uname -s) 2>/dev/null || echo unknown` uname -v = `(uname -v) 2>/dev/null || echo unknown` /usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` /bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` /bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` /usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` /bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` /bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` _ASUNAME as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. $as_echo "PATH: $as_dir" done IFS=$as_save_IFS } >&5 cat >&5 <<_ACEOF ## ----------- ## ## Core tests. ## ## ----------- ## _ACEOF # Keep a trace of the command line. # Strip out --no-create and --no-recursion so they do not pile up. # Strip out --silent because we don't want to record it for future runs. # Also quote any args containing shell meta-characters. # Make two passes to allow for proper duplicate-argument suppression. ac_configure_args= ac_configure_args0= ac_configure_args1= ac_must_keep_next=false for ac_pass in 1 2 do for ac_arg do case $ac_arg in -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) continue ;; *\'*) ac_arg=`$as_echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; esac case $ac_pass in 1) as_fn_append ac_configure_args0 " '$ac_arg'" ;; 2) as_fn_append ac_configure_args1 " '$ac_arg'" if test $ac_must_keep_next = true; then ac_must_keep_next=false # Got value, back to normal. else case $ac_arg in *=* | --config-cache | -C | -disable-* | --disable-* \ | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \ | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \ | -with-* | --with-* | -without-* | --without-* | --x) case "$ac_configure_args0 " in "$ac_configure_args1"*" '$ac_arg' "* ) continue ;; esac ;; -* ) ac_must_keep_next=true ;; esac fi as_fn_append ac_configure_args " '$ac_arg'" ;; esac done done { ac_configure_args0=; unset ac_configure_args0;} { ac_configure_args1=; unset ac_configure_args1;} # When interrupted or exit'd, cleanup temporary files, and complete # config.log. We remove comments because anyway the quotes in there # would cause problems or look ugly. # WARNING: Use '\'' to represent an apostrophe within the trap. # WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug. trap 'exit_status=$? # Save into config.log some information that might help in debugging. { echo $as_echo "## ---------------- ## ## Cache variables. ## ## ---------------- ##" echo # The following way of writing the cache mishandles newlines in values, ( for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do eval ac_val=\$$ac_var case $ac_val in #( *${as_nl}*) case $ac_var in #( *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 $as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( *) { eval $ac_var=; unset $ac_var;} ;; esac ;; esac done (set) 2>&1 | case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #( *${as_nl}ac_space=\ *) sed -n \ "s/'\''/'\''\\\\'\'''\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p" ;; #( *) sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" ;; esac | sort ) echo $as_echo "## ----------------- ## ## Output variables. ## ## ----------------- ##" echo for ac_var in $ac_subst_vars do eval ac_val=\$$ac_var case $ac_val in *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac $as_echo "$ac_var='\''$ac_val'\''" done | sort echo if test -n "$ac_subst_files"; then $as_echo "## ------------------- ## ## File substitutions. ## ## ------------------- ##" echo for ac_var in $ac_subst_files do eval ac_val=\$$ac_var case $ac_val in *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac $as_echo "$ac_var='\''$ac_val'\''" done | sort echo fi if test -s confdefs.h; then $as_echo "## ----------- ## ## confdefs.h. ## ## ----------- ##" echo cat confdefs.h echo fi test "$ac_signal" != 0 && $as_echo "$as_me: caught signal $ac_signal" $as_echo "$as_me: exit $exit_status" } >&5 rm -f core *.core core.conftest.* && rm -f -r conftest* confdefs* conf$$* $ac_clean_files && exit $exit_status ' 0 for ac_signal in 1 2 13 15; do trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal done ac_signal=0 # confdefs.h avoids OS command line length limits that DEFS can exceed. rm -f -r conftest* confdefs.h $as_echo "/* confdefs.h */" > confdefs.h # Predefined preprocessor variables. cat >>confdefs.h <<_ACEOF #define PACKAGE_NAME "$PACKAGE_NAME" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_TARNAME "$PACKAGE_TARNAME" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_VERSION "$PACKAGE_VERSION" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_STRING "$PACKAGE_STRING" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_URL "$PACKAGE_URL" _ACEOF # Let the site file select an alternate cache file if it wants to. # Prefer an explicitly selected file to automatically selected ones. ac_site_file1=NONE ac_site_file2=NONE if test -n "$CONFIG_SITE"; then # We do not want a PATH search for config.site. case $CONFIG_SITE in #(( -*) ac_site_file1=./$CONFIG_SITE;; */*) ac_site_file1=$CONFIG_SITE;; *) ac_site_file1=./$CONFIG_SITE;; esac elif test "x$prefix" != xNONE; then ac_site_file1=$prefix/share/config.site ac_site_file2=$prefix/etc/config.site else ac_site_file1=$ac_default_prefix/share/config.site ac_site_file2=$ac_default_prefix/etc/config.site fi for ac_site_file in "$ac_site_file1" "$ac_site_file2" do test "x$ac_site_file" = xNONE && continue if test /dev/null != "$ac_site_file" && test -r "$ac_site_file"; then { $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5 $as_echo "$as_me: loading site script $ac_site_file" >&6;} sed 's/^/| /' "$ac_site_file" >&5 . "$ac_site_file" \ || { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "failed to load site script $ac_site_file See \`config.log' for more details" "$LINENO" 5; } fi done if test -r "$cache_file"; then # Some versions of bash will fail to source /dev/null (special files # actually), so we avoid doing that. DJGPP emulates it as a regular file. if test /dev/null != "$cache_file" && test -f "$cache_file"; then { $as_echo "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5 $as_echo "$as_me: loading cache $cache_file" >&6;} case $cache_file in [\\/]* | ?:[\\/]* ) . "$cache_file";; *) . "./$cache_file";; esac fi else { $as_echo "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5 $as_echo "$as_me: creating cache $cache_file" >&6;} >$cache_file fi # Check that the precious variables saved in the cache have kept the same # value. ac_cache_corrupted=false for ac_var in $ac_precious_vars; do eval ac_old_set=\$ac_cv_env_${ac_var}_set eval ac_new_set=\$ac_env_${ac_var}_set eval ac_old_val=\$ac_cv_env_${ac_var}_value eval ac_new_val=\$ac_env_${ac_var}_value case $ac_old_set,$ac_new_set in set,) { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 $as_echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} ac_cache_corrupted=: ;; ,set) { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5 $as_echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} ac_cache_corrupted=: ;; ,);; *) if test "x$ac_old_val" != "x$ac_new_val"; then # differences in whitespace do not lead to failure. ac_old_val_w=`echo x $ac_old_val` ac_new_val_w=`echo x $ac_new_val` if test "$ac_old_val_w" != "$ac_new_val_w"; then { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5 $as_echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} ac_cache_corrupted=: else { $as_echo "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5 $as_echo "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;} eval $ac_var=\$ac_old_val fi { $as_echo "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5 $as_echo "$as_me: former value: \`$ac_old_val'" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5 $as_echo "$as_me: current value: \`$ac_new_val'" >&2;} fi;; esac # Pass precious variables to config.status. if test "$ac_new_set" = set; then case $ac_new_val in *\'*) ac_arg=$ac_var=`$as_echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; *) ac_arg=$ac_var=$ac_new_val ;; esac case " $ac_configure_args " in *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. *) as_fn_append ac_configure_args " '$ac_arg'" ;; esac fi done if $ac_cache_corrupted; then { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5 $as_echo "$as_me: error: changes in the environment can compromise the build" >&2;} as_fn_error $? "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5 fi ## -------------------- ## ## Main body of script. ## ## -------------------- ## ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu ac_config_headers="$ac_config_headers config.h" am__api_version='1.13' ac_aux_dir= for ac_dir in "$srcdir" "$srcdir/.." "$srcdir/../.."; do if test -f "$ac_dir/install-sh"; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install-sh -c" break elif test -f "$ac_dir/install.sh"; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install.sh -c" break elif test -f "$ac_dir/shtool"; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/shtool install -c" break fi done if test -z "$ac_aux_dir"; then as_fn_error $? "cannot find install-sh, install.sh, or shtool in \"$srcdir\" \"$srcdir/..\" \"$srcdir/../..\"" "$LINENO" 5 fi # These three variables are undocumented and unsupported, # and are intended to be withdrawn in a future Autoconf release. # They can cause serious problems if a builder's source tree is in a directory # whose full name contains unusual characters. ac_config_guess="$SHELL $ac_aux_dir/config.guess" # Please don't use this var. ac_config_sub="$SHELL $ac_aux_dir/config.sub" # Please don't use this var. ac_configure="$SHELL $ac_aux_dir/configure" # Please don't use this var. # Find a good install program. We prefer a C program (faster), # so one script is as good as another. But avoid the broken or # incompatible versions: # SysV /etc/install, /usr/sbin/install # SunOS /usr/etc/install # IRIX /sbin/install # AIX /bin/install # AmigaOS /C/install, which installs bootblocks on floppy discs # AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag # AFS /usr/afsws/bin/install, which mishandles nonexistent args # SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff" # OS/2's system install, which has a completely different semantic # ./install, which can be erroneously created by make from ./install.sh. # Reject install programs that cannot install multiple files. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a BSD-compatible install" >&5 $as_echo_n "checking for a BSD-compatible install... " >&6; } if test -z "$INSTALL"; then if ${ac_cv_path_install+:} false; then : $as_echo_n "(cached) " >&6 else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. # Account for people who put trailing slashes in PATH elements. case $as_dir/ in #(( ./ | .// | /[cC]/* | \ /etc/* | /usr/sbin/* | /usr/etc/* | /sbin/* | /usr/afsws/bin/* | \ ?:[\\/]os2[\\/]install[\\/]* | ?:[\\/]OS2[\\/]INSTALL[\\/]* | \ /usr/ucb/* ) ;; *) # OSF1 and SCO ODT 3.0 have their own names for install. # Don't use installbsd from OSF since it installs stuff as root # by default. for ac_prog in ginstall scoinst install; do for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext"; then if test $ac_prog = install && grep dspmsg "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then # AIX install. It has an incompatible calling convention. : elif test $ac_prog = install && grep pwplus "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then # program-specific install script used by HP pwplus--don't use. : else rm -rf conftest.one conftest.two conftest.dir echo one > conftest.one echo two > conftest.two mkdir conftest.dir if "$as_dir/$ac_prog$ac_exec_ext" -c conftest.one conftest.two "`pwd`/conftest.dir" && test -s conftest.one && test -s conftest.two && test -s conftest.dir/conftest.one && test -s conftest.dir/conftest.two then ac_cv_path_install="$as_dir/$ac_prog$ac_exec_ext -c" break 3 fi fi fi done done ;; esac done IFS=$as_save_IFS rm -rf conftest.one conftest.two conftest.dir fi if test "${ac_cv_path_install+set}" = set; then INSTALL=$ac_cv_path_install else # As a last resort, use the slow shell script. Don't cache a # value for INSTALL within a source directory, because that will # break other packages using the cache if that directory is # removed, or if the value is a relative name. INSTALL=$ac_install_sh fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $INSTALL" >&5 $as_echo "$INSTALL" >&6; } # Use test -z because SunOS4 sh mishandles braces in ${var-val}. # It thinks the first close brace ends the variable substitution. test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}' test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL}' test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644' { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether build environment is sane" >&5 $as_echo_n "checking whether build environment is sane... " >&6; } # Reject unsafe characters in $srcdir or the absolute working directory # name. Accept space and tab only in the latter. am_lf=' ' case `pwd` in *[\\\"\#\$\&\'\`$am_lf]*) as_fn_error $? "unsafe absolute working directory name" "$LINENO" 5;; esac case $srcdir in *[\\\"\#\$\&\'\`$am_lf\ \ ]*) as_fn_error $? "unsafe srcdir value: '$srcdir'" "$LINENO" 5;; esac # Do 'set' in a subshell so we don't clobber the current shell's # arguments. Must try -L first in case configure is actually a # symlink; some systems play weird games with the mod time of symlinks # (eg FreeBSD returns the mod time of the symlink's containing # directory). if ( am_has_slept=no for am_try in 1 2; do echo "timestamp, slept: $am_has_slept" > conftest.file set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null` if test "$*" = "X"; then # -L didn't work. set X `ls -t "$srcdir/configure" conftest.file` fi if test "$*" != "X $srcdir/configure conftest.file" \ && test "$*" != "X conftest.file $srcdir/configure"; then # If neither matched, then we have a broken ls. This can happen # if, for instance, CONFIG_SHELL is bash and it inherits a # broken ls alias from the environment. This has actually # happened. Such a system could not be considered "sane". as_fn_error $? "ls -t appears to fail. Make sure there is not a broken alias in your environment" "$LINENO" 5 fi if test "$2" = conftest.file || test $am_try -eq 2; then break fi # Just in case. sleep 1 am_has_slept=yes done test "$2" = conftest.file ) then # Ok. : else as_fn_error $? "newly created file is older than distributed files! Check your system clock" "$LINENO" 5 fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } # If we didn't sleep, we still need to ensure time stamps of config.status and # generated files are strictly newer. am_sleep_pid= if grep 'slept: no' conftest.file >/dev/null 2>&1; then ( sleep 1 ) & am_sleep_pid=$! fi rm -f conftest.file test "$program_prefix" != NONE && program_transform_name="s&^&$program_prefix&;$program_transform_name" # Use a double $ so make ignores it. test "$program_suffix" != NONE && program_transform_name="s&\$&$program_suffix&;$program_transform_name" # Double any \ or $. # By default was `s,x,x', remove it if useless. ac_script='s/[\\$]/&&/g;s/;s,x,x,$//' program_transform_name=`$as_echo "$program_transform_name" | sed "$ac_script"` # expand $ac_aux_dir to an absolute path am_aux_dir=`cd $ac_aux_dir && pwd` if test x"${MISSING+set}" != xset; then case $am_aux_dir in *\ * | *\ *) MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;; *) MISSING="\${SHELL} $am_aux_dir/missing" ;; esac fi # Use eval to expand $SHELL if eval "$MISSING --is-lightweight"; then am_missing_run="$MISSING " else am_missing_run= { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: 'missing' script is too old or missing" >&5 $as_echo "$as_me: WARNING: 'missing' script is too old or missing" >&2;} fi if test x"${install_sh}" != xset; then case $am_aux_dir in *\ * | *\ *) install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;; *) install_sh="\${SHELL} $am_aux_dir/install-sh" esac fi # Installed binaries are usually stripped using 'strip' when the user # run "make install-strip". However 'strip' might not be the right # tool to use in cross-compilation environments, therefore Automake # will honor the 'STRIP' environment variable to overrule this program. if test "$cross_compiling" != no; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args. set dummy ${ac_tool_prefix}strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$STRIP"; then ac_cv_prog_STRIP="$STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_STRIP="${ac_tool_prefix}strip" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi STRIP=$ac_cv_prog_STRIP if test -n "$STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5 $as_echo "$STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_STRIP"; then ac_ct_STRIP=$STRIP # Extract the first word of "strip", so it can be a program name with args. set dummy strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_STRIP"; then ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_STRIP="strip" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP if test -n "$ac_ct_STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5 $as_echo "$ac_ct_STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_STRIP" = x; then STRIP=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac STRIP=$ac_ct_STRIP fi else STRIP="$ac_cv_prog_STRIP" fi fi INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a thread-safe mkdir -p" >&5 $as_echo_n "checking for a thread-safe mkdir -p... " >&6; } if test -z "$MKDIR_P"; then if ${ac_cv_path_mkdir+:} false; then : $as_echo_n "(cached) " >&6 else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/opt/sfw/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in mkdir gmkdir; do for ac_exec_ext in '' $ac_executable_extensions; do as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext" || continue case `"$as_dir/$ac_prog$ac_exec_ext" --version 2>&1` in #( 'mkdir (GNU coreutils) '* | \ 'mkdir (coreutils) '* | \ 'mkdir (fileutils) '4.1*) ac_cv_path_mkdir=$as_dir/$ac_prog$ac_exec_ext break 3;; esac done done done IFS=$as_save_IFS fi test -d ./--version && rmdir ./--version if test "${ac_cv_path_mkdir+set}" = set; then MKDIR_P="$ac_cv_path_mkdir -p" else # As a last resort, use the slow shell script. Don't cache a # value for MKDIR_P within a source directory, because that will # break other packages using the cache if that directory is # removed, or if the value is a relative name. MKDIR_P="$ac_install_sh -d" fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MKDIR_P" >&5 $as_echo "$MKDIR_P" >&6; } for ac_prog in gawk mawk nawk awk do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_AWK+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$AWK"; then ac_cv_prog_AWK="$AWK" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_AWK="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi AWK=$ac_cv_prog_AWK if test -n "$AWK"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AWK" >&5 $as_echo "$AWK" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$AWK" && break done { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5 $as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; } set x ${MAKE-make} ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'` if eval \${ac_cv_prog_make_${ac_make}_set+:} false; then : $as_echo_n "(cached) " >&6 else cat >conftest.make <<\_ACEOF SHELL = /bin/sh all: @echo '@@@%%%=$(MAKE)=@@@%%%' _ACEOF # GNU make sometimes prints "make[1]: Entering ...", which would confuse us. case `${MAKE-make} -f conftest.make 2>/dev/null` in *@@@%%%=?*=@@@%%%*) eval ac_cv_prog_make_${ac_make}_set=yes;; *) eval ac_cv_prog_make_${ac_make}_set=no;; esac rm -f conftest.make fi if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } SET_MAKE= else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } SET_MAKE="MAKE=${MAKE-make}" fi rm -rf .tst 2>/dev/null mkdir .tst 2>/dev/null if test -d .tst; then am__leading_dot=. else am__leading_dot=_ fi rmdir .tst 2>/dev/null # Check whether --enable-silent-rules was given. if test "${enable_silent_rules+set}" = set; then : enableval=$enable_silent_rules; fi case $enable_silent_rules in # ((( yes) AM_DEFAULT_VERBOSITY=0;; no) AM_DEFAULT_VERBOSITY=1;; *) AM_DEFAULT_VERBOSITY=1;; esac am_make=${MAKE-make} { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $am_make supports nested variables" >&5 $as_echo_n "checking whether $am_make supports nested variables... " >&6; } if ${am_cv_make_support_nested_variables+:} false; then : $as_echo_n "(cached) " >&6 else if $as_echo 'TRUE=$(BAR$(V)) BAR0=false BAR1=true V=1 am__doit: @$(TRUE) .PHONY: am__doit' | $am_make -f - >/dev/null 2>&1; then am_cv_make_support_nested_variables=yes else am_cv_make_support_nested_variables=no fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_make_support_nested_variables" >&5 $as_echo "$am_cv_make_support_nested_variables" >&6; } if test $am_cv_make_support_nested_variables = yes; then AM_V='$(V)' AM_DEFAULT_V='$(AM_DEFAULT_VERBOSITY)' else AM_V=$AM_DEFAULT_VERBOSITY AM_DEFAULT_V=$AM_DEFAULT_VERBOSITY fi AM_BACKSLASH='\' if test "`cd $srcdir && pwd`" != "`pwd`"; then # Use -I$(srcdir) only when $(srcdir) != ., so that make's output # is not polluted with repeated "-I." am__isrc=' -I$(srcdir)' # test to see if srcdir already configured if test -f $srcdir/config.status; then as_fn_error $? "source directory already configured; run \"make distclean\" there first" "$LINENO" 5 fi fi # test whether we have cygpath if test -z "$CYGPATH_W"; then if (cygpath --version) >/dev/null 2>/dev/null; then CYGPATH_W='cygpath -w' else CYGPATH_W=echo fi fi # Define the identity of the package. PACKAGE='gpsim' VERSION='0.27.0' cat >>confdefs.h <<_ACEOF #define PACKAGE "$PACKAGE" _ACEOF cat >>confdefs.h <<_ACEOF #define VERSION "$VERSION" _ACEOF # Some tools Automake needs. ACLOCAL=${ACLOCAL-"${am_missing_run}aclocal-${am__api_version}"} AUTOCONF=${AUTOCONF-"${am_missing_run}autoconf"} AUTOMAKE=${AUTOMAKE-"${am_missing_run}automake-${am__api_version}"} AUTOHEADER=${AUTOHEADER-"${am_missing_run}autoheader"} MAKEINFO=${MAKEINFO-"${am_missing_run}makeinfo"} # For better backward compatibility. To be removed once Automake 1.9.x # dies out for good. For more background, see: # # mkdir_p='$(MKDIR_P)' # We need awk for the "check" target. The system "awk" is bad on # some platforms. # Always define AMTAR for backward compatibility. Yes, it's still used # in the wild :-( We should find a proper way to deprecate it ... AMTAR='$${TAR-tar}' # We'll loop over all known methods to create a tar archive until one works. _am_tools='gnutar pax cpio none' am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -' { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to enable maintainer-specific portions of Makefiles" >&5 $as_echo_n "checking whether to enable maintainer-specific portions of Makefiles... " >&6; } # Check whether --enable-maintainer-mode was given. if test "${enable_maintainer_mode+set}" = set; then : enableval=$enable_maintainer_mode; USE_MAINTAINER_MODE=$enableval else USE_MAINTAINER_MODE=no fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $USE_MAINTAINER_MODE" >&5 $as_echo "$USE_MAINTAINER_MODE" >&6; } if test $USE_MAINTAINER_MODE = yes; then MAINTAINER_MODE_TRUE= MAINTAINER_MODE_FALSE='#' else MAINTAINER_MODE_TRUE='#' MAINTAINER_MODE_FALSE= fi MAINT=$MAINTAINER_MODE_TRUE # Determine the host and build type. The target is always a PIC. # Make sure we can run config.sub. $SHELL "$ac_aux_dir/config.sub" sun4 >/dev/null 2>&1 || as_fn_error $? "cannot run $SHELL $ac_aux_dir/config.sub" "$LINENO" 5 { $as_echo "$as_me:${as_lineno-$LINENO}: checking build system type" >&5 $as_echo_n "checking build system type... " >&6; } if ${ac_cv_build+:} false; then : $as_echo_n "(cached) " >&6 else ac_build_alias=$build_alias test "x$ac_build_alias" = x && ac_build_alias=`$SHELL "$ac_aux_dir/config.guess"` test "x$ac_build_alias" = x && as_fn_error $? "cannot guess build type; you must specify one" "$LINENO" 5 ac_cv_build=`$SHELL "$ac_aux_dir/config.sub" $ac_build_alias` || as_fn_error $? "$SHELL $ac_aux_dir/config.sub $ac_build_alias failed" "$LINENO" 5 fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_build" >&5 $as_echo "$ac_cv_build" >&6; } case $ac_cv_build in *-*-*) ;; *) as_fn_error $? "invalid value of canonical build" "$LINENO" 5;; esac build=$ac_cv_build ac_save_IFS=$IFS; IFS='-' set x $ac_cv_build shift build_cpu=$1 build_vendor=$2 shift; shift # Remember, the first character of IFS is used to create $*, # except with old shells: build_os=$* IFS=$ac_save_IFS case $build_os in *\ *) build_os=`echo "$build_os" | sed 's/ /-/g'`;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking host system type" >&5 $as_echo_n "checking host system type... " >&6; } if ${ac_cv_host+:} false; then : $as_echo_n "(cached) " >&6 else if test "x$host_alias" = x; then ac_cv_host=$ac_cv_build else ac_cv_host=`$SHELL "$ac_aux_dir/config.sub" $host_alias` || as_fn_error $? "$SHELL $ac_aux_dir/config.sub $host_alias failed" "$LINENO" 5 fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_host" >&5 $as_echo "$ac_cv_host" >&6; } case $ac_cv_host in *-*-*) ;; *) as_fn_error $? "invalid value of canonical host" "$LINENO" 5;; esac host=$ac_cv_host ac_save_IFS=$IFS; IFS='-' set x $ac_cv_host shift host_cpu=$1 host_vendor=$2 shift; shift # Remember, the first character of IFS is used to create $*, # except with old shells: host_os=$* IFS=$ac_save_IFS case $host_os in *\ *) host_os=`echo "$host_os" | sed 's/ /-/g'`;; esac # Check whether --enable-gui was given. if test "${enable_gui+set}" = set; then : enableval=$enable_gui; case "${enableval}" in yes) use_gui=yes ;; no) use_gui=no ;; *) as_fn_error $? "bad value ${enableval} for --disable-gui" "$LINENO" 5 ;; esac else use_gui=yes fi if test "$use_gui" = "no"; then echo disabling gui support else echo enabling gui support use_gui=yes $as_echo "#define HAVE_GUI /**/" >>confdefs.h fi # Check whether --enable-sockets was given. if test "${enable_sockets+set}" = set; then : enableval=$enable_sockets; case "${enableval}" in yes) use_sockets=yes ;; no) use_sockets=no ;; *) as_fn_error $? "bad value ${enableval} for --enable-sockets" "$LINENO" 5 ;; esac else use_sockets=no fi if test "$use_sockets" = "no"; then echo disabling gpsim socket interface else echo enabling gpsim socket interface use_sockets=yes $as_echo "#define HAVE_SOCKETS /**/" >>confdefs.h fi DEPDIR="${am__leading_dot}deps" ac_config_commands="$ac_config_commands depfiles" am_make=${MAKE-make} cat > confinc << 'END' am__doit: @echo this is the am__doit target .PHONY: am__doit END # If we don't find an include directive, just comment out the code. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for style of include used by $am_make" >&5 $as_echo_n "checking for style of include used by $am_make... " >&6; } am__include="#" am__quote= _am_result=none # First try GNU make style include. echo "include confinc" > confmf # Ignore all kinds of additional output from 'make'. case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=include am__quote= _am_result=GNU ;; esac # Now try BSD make style include. if test "$am__include" = "#"; then echo '.include "confinc"' > confmf case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=.include am__quote="\"" _am_result=BSD ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $_am_result" >&5 $as_echo "$_am_result" >&6; } rm -f confinc confmf # Check whether --enable-dependency-tracking was given. if test "${enable_dependency_tracking+set}" = set; then : enableval=$enable_dependency_tracking; fi if test "x$enable_dependency_tracking" != xno; then am_depcomp="$ac_aux_dir/depcomp" AMDEPBACKSLASH='\' am__nodep='_no' fi if test "x$enable_dependency_tracking" != xno; then AMDEP_TRUE= AMDEP_FALSE='#' else AMDEP_TRUE='#' AMDEP_FALSE= fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. set dummy ${ac_tool_prefix}gcc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}gcc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_CC"; then ac_ct_CC=$CC # Extract the first word of "gcc", so it can be a program name with args. set dummy gcc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="gcc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 $as_echo "$ac_ct_CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi else CC="$ac_cv_prog_CC" fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. set dummy ${ac_tool_prefix}cc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}cc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi fi if test -z "$CC"; then # Extract the first word of "cc", so it can be a program name with args. set dummy cc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else ac_prog_rejected=no as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then ac_prog_rejected=yes continue fi ac_cv_prog_CC="cc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS if test $ac_prog_rejected = yes; then # We found a bogon in the path, so make sure we never use it. set dummy $ac_cv_prog_CC shift if test $# != 0; then # We chose a different compiler from the bogus one. # However, it has the same basename, so the bogon will be chosen # first if we set CC to just the basename; use the full file name. shift ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" fi fi fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then for ac_prog in cl.exe do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$CC" && break done fi if test -z "$CC"; then ac_ct_CC=$CC for ac_prog in cl.exe do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 $as_echo "$ac_ct_CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_CC" && break done if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi fi fi test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "no acceptable C compiler found in \$PATH See \`config.log' for more details" "$LINENO" 5; } # Provide some information about the compiler. $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 set X $ac_compile ac_compiler=$2 for ac_option in --version -v -V -qversion; do { { ac_try="$ac_compiler $ac_option >&5" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compiler $ac_option >&5") 2>conftest.err ac_status=$? if test -s conftest.err; then sed '10a\ ... rest of stderr output deleted ... 10q' conftest.err >conftest.er1 cat conftest.er1 >&5 fi rm -f conftest.er1 conftest.err $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } done cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out" # Try to create an executable without -o first, disregard a.out. # It will help us diagnose broken compilers, and finding out an intuition # of exeext. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5 $as_echo_n "checking whether the C compiler works... " >&6; } ac_link_default=`$as_echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'` # The possible output files: ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*" ac_rmfiles= for ac_file in $ac_files do case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; * ) ac_rmfiles="$ac_rmfiles $ac_file";; esac done rm -f $ac_rmfiles if { { ac_try="$ac_link_default" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link_default") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then : # Autoconf-2.13 could set the ac_cv_exeext variable to `no'. # So ignore a value of `no', otherwise this would lead to `EXEEXT = no' # in a Makefile. We should not override ac_cv_exeext if it was cached, # so that the user can short-circuit this test for compilers unknown to # Autoconf. for ac_file in $ac_files '' do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; [ab].out ) # We found the default executable, but exeext='' is most # certainly right. break;; *.* ) if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no; then :; else ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` fi # We set ac_cv_exeext here because the later test for it is not # safe: cross compilers may not add the suffix if given an `-o' # argument, so we may need to know it at that point already. # Even if this section looks crufty: it has the advantage of # actually working. break;; * ) break;; esac done test "$ac_cv_exeext" = no && ac_cv_exeext= else ac_file='' fi if test -z "$ac_file"; then : { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "C compiler cannot create executables See \`config.log' for more details" "$LINENO" 5; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5 $as_echo_n "checking for C compiler default output file name... " >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5 $as_echo "$ac_file" >&6; } ac_exeext=$ac_cv_exeext rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out ac_clean_files=$ac_clean_files_save { $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5 $as_echo_n "checking for suffix of executables... " >&6; } if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then : # If both `conftest.exe' and `conftest' are `present' (well, observable) # catch `conftest.exe'. For instance with Cygwin, `ls conftest' will # work properly (i.e., refer to `conftest.exe'), while it won't with # `rm'. for ac_file in conftest.exe conftest conftest.*; do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` break;; * ) break;; esac done else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot compute suffix of executables: cannot compile and link See \`config.log' for more details" "$LINENO" 5; } fi rm -f conftest conftest$ac_cv_exeext { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5 $as_echo "$ac_cv_exeext" >&6; } rm -f conftest.$ac_ext EXEEXT=$ac_cv_exeext ac_exeext=$EXEEXT cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main () { FILE *f = fopen ("conftest.out", "w"); return ferror (f) || fclose (f) != 0; ; return 0; } _ACEOF ac_clean_files="$ac_clean_files conftest.out" # Check that the compiler produces executables we can run. If not, either # the compiler is broken, or we cross compile. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5 $as_echo_n "checking whether we are cross compiling... " >&6; } if test "$cross_compiling" != yes; then { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } if { ac_try='./conftest$ac_cv_exeext' { { case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_try") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; }; then cross_compiling=no else if test "$cross_compiling" = maybe; then cross_compiling=yes else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot run C compiled programs. If you meant to cross compile, use \`--host'. See \`config.log' for more details" "$LINENO" 5; } fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5 $as_echo "$cross_compiling" >&6; } rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out ac_clean_files=$ac_clean_files_save { $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5 $as_echo_n "checking for suffix of object files... " >&6; } if ${ac_cv_objext+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.o conftest.obj if { { ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then : for ac_file in conftest.o conftest.obj conftest.*; do test -f "$ac_file" || continue; case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;; *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'` break;; esac done else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot compute suffix of object files: cannot compile See \`config.log' for more details" "$LINENO" 5; } fi rm -f conftest.$ac_cv_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5 $as_echo "$ac_cv_objext" >&6; } OBJEXT=$ac_cv_objext ac_objext=$OBJEXT { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5 $as_echo_n "checking whether we are using the GNU C compiler... " >&6; } if ${ac_cv_c_compiler_gnu+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { #ifndef __GNUC__ choke me #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_compiler_gnu=yes else ac_compiler_gnu=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_cv_c_compiler_gnu=$ac_compiler_gnu fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5 $as_echo "$ac_cv_c_compiler_gnu" >&6; } if test $ac_compiler_gnu = yes; then GCC=yes else GCC= fi ac_test_CFLAGS=${CFLAGS+set} ac_save_CFLAGS=$CFLAGS { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5 $as_echo_n "checking whether $CC accepts -g... " >&6; } if ${ac_cv_prog_cc_g+:} false; then : $as_echo_n "(cached) " >&6 else ac_save_c_werror_flag=$ac_c_werror_flag ac_c_werror_flag=yes ac_cv_prog_cc_g=no CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes else CFLAGS="" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : else ac_c_werror_flag=$ac_save_c_werror_flag CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_c_werror_flag=$ac_save_c_werror_flag fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5 $as_echo "$ac_cv_prog_cc_g" >&6; } if test "$ac_test_CFLAGS" = set; then CFLAGS=$ac_save_CFLAGS elif test $ac_cv_prog_cc_g = yes; then if test "$GCC" = yes; then CFLAGS="-g -O2" else CFLAGS="-g" fi else if test "$GCC" = yes; then CFLAGS="-O2" else CFLAGS= fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5 $as_echo_n "checking for $CC option to accept ISO C89... " >&6; } if ${ac_cv_prog_cc_c89+:} false; then : $as_echo_n "(cached) " >&6 else ac_cv_prog_cc_c89=no ac_save_CC=$CC cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include struct stat; /* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ struct buf { int x; }; FILE * (*rcsopen) (struct buf *, struct stat *, int); static char *e (p, i) char **p; int i; { return p[i]; } static char *f (char * (*g) (char **, int), char **p, ...) { char *s; va_list v; va_start (v,p); s = g (p, va_arg (v,int)); va_end (v); return s; } /* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has function prototypes and stuff, but not '\xHH' hex character constants. These don't provoke an error unfortunately, instead are silently treated as 'x'. The following induces an error, until -std is added to get proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an array size at least. It's necessary to write '\x00'==0 to get something that's true only with -std. */ int osf4_cc_array ['\x00' == 0 ? 1 : -1]; /* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters inside strings and character constants. */ #define FOO(x) 'x' int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1]; int test (int i, double x); struct s1 {int (*f) (int a);}; struct s2 {int (*f) (double a);}; int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); int argc; char **argv; int main () { return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; ; return 0; } _ACEOF for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \ -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" do CC="$ac_save_CC $ac_arg" if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_c89=$ac_arg fi rm -f core conftest.err conftest.$ac_objext test "x$ac_cv_prog_cc_c89" != "xno" && break done rm -f conftest.$ac_ext CC=$ac_save_CC fi # AC_CACHE_VAL case "x$ac_cv_prog_cc_c89" in x) { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 $as_echo "none needed" >&6; } ;; xno) { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 $as_echo "unsupported" >&6; } ;; *) CC="$CC $ac_cv_prog_cc_c89" { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 $as_echo "$ac_cv_prog_cc_c89" >&6; } ;; esac if test "x$ac_cv_prog_cc_c89" != xno; then : fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu depcc="$CC" am_compiler_list= { $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5 $as_echo_n "checking dependency style of $depcc... " >&6; } if ${am_cv_CC_dependencies_compiler_type+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up # making bogus files that we don't know about and never remove. For # instance it was reported that on HP-UX the gcc test will end up # making a dummy file named 'D' -- because '-MD' means "put the output # in D". rm -rf conftest.dir mkdir conftest.dir # Copy depcomp to subdir because otherwise we won't find it if we're # using a relative directory. cp "$am_depcomp" conftest.dir cd conftest.dir # We will build objects and dependencies in a subdirectory because # it helps to detect inapplicable dependency modes. For instance # both Tru64's cc and ICC support -MD to output dependencies as a # side effect of compilation, but ICC will put the dependencies in # the current directory while Tru64 will put them in the object # directory. mkdir sub am_cv_CC_dependencies_compiler_type=none if test "$am_compiler_list" = ""; then am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp` fi am__universal=false case " $depcc " in #( *\ -arch\ *\ -arch\ *) am__universal=true ;; esac for depmode in $am_compiler_list; do # Setup a source with many dependencies, because some compilers # like to wrap large dependency lists on column 80 (with \), and # we should not choose a depcomp mode which is confused by this. # # We need to recreate these files for each test, as the compiler may # overwrite some of them when testing with obscure command lines. # This happens at least with the AIX C compiler. : > sub/conftest.c for i in 1 2 3 4 5 6; do echo '#include "conftst'$i'.h"' >> sub/conftest.c # Using ": > sub/conftst$i.h" creates only sub/conftst1.h with # Solaris 10 /bin/sh. echo '/* dummy */' > sub/conftst$i.h done echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf # We check with '-c' and '-o' for the sake of the "dashmstdout" # mode. It turns out that the SunPro C++ compiler does not properly # handle '-M -o', and we need to detect this. Also, some Intel # versions had trouble with output in subdirs. am__obj=sub/conftest.${OBJEXT-o} am__minus_obj="-o $am__obj" case $depmode in gcc) # This depmode causes a compiler race in universal mode. test "$am__universal" = false || continue ;; nosideeffect) # After this tag, mechanisms are not by side-effect, so they'll # only be used when explicitly requested. if test "x$enable_dependency_tracking" = xyes; then continue else break fi ;; msvc7 | msvc7msys | msvisualcpp | msvcmsys) # This compiler won't grok '-c -o', but also, the minuso test has # not run yet. These depmodes are late enough in the game, and # so weak that their functioning should not be impacted. am__obj=conftest.${OBJEXT-o} am__minus_obj= ;; none) break ;; esac if depmode=$depmode \ source=sub/conftest.c object=$am__obj \ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \ >/dev/null 2>conftest.err && grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 && grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && grep $am__obj sub/conftest.Po > /dev/null 2>&1 && ${MAKE-make} -s -f confmf > /dev/null 2>&1; then # icc doesn't choke on unknown options, it will just issue warnings # or remarks (even with -Werror). So we grep stderr for any message # that says an option was ignored or not supported. # When given -MP, icc 7.0 and 7.1 complain thusly: # icc: Command line warning: ignoring option '-M'; no argument required # The diagnosis changed in icc 8.0: # icc: Command line remark: option '-MP' not supported if (grep 'ignoring option' conftest.err || grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else am_cv_CC_dependencies_compiler_type=$depmode break fi fi done cd .. rm -rf conftest.dir else am_cv_CC_dependencies_compiler_type=none fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CC_dependencies_compiler_type" >&5 $as_echo "$am_cv_CC_dependencies_compiler_type" >&6; } CCDEPMODE=depmode=$am_cv_CC_dependencies_compiler_type if test "x$enable_dependency_tracking" != xno \ && test "$am_cv_CC_dependencies_compiler_type" = gcc3; then am__fastdepCC_TRUE= am__fastdepCC_FALSE='#' else am__fastdepCC_TRUE='#' am__fastdepCC_FALSE= fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5 $as_echo_n "checking how to run the C preprocessor... " >&6; } # On Suns, sometimes $CPP names a directory. if test -n "$CPP" && test -d "$CPP"; then CPP= fi if test -z "$CPP"; then if ${ac_cv_prog_CPP+:} false; then : $as_echo_n "(cached) " >&6 else # Double quotes because CPP needs to be expanded for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp" do ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : else # Broken: fails on valid input. continue fi rm -f conftest.err conftest.i conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : # Broken: success on invalid input. continue else # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.i conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.i conftest.err conftest.$ac_ext if $ac_preproc_ok; then : break fi done ac_cv_prog_CPP=$CPP fi CPP=$ac_cv_prog_CPP else ac_cv_prog_CPP=$CPP fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5 $as_echo "$CPP" >&6; } ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : else # Broken: fails on valid input. continue fi rm -f conftest.err conftest.i conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : # Broken: success on invalid input. continue else # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.i conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.i conftest.err conftest.$ac_ext if $ac_preproc_ok; then : else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "C preprocessor \"$CPP\" fails sanity check See \`config.log' for more details" "$LINENO" 5; } fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5 $as_echo_n "checking for grep that handles long lines and -e... " >&6; } if ${ac_cv_path_GREP+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$GREP"; then ac_path_GREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in grep ggrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_GREP" || continue # Check for GNU ac_path_GREP and select it if it is found. # Check for GNU $ac_path_GREP case `"$ac_path_GREP" --version 2>&1` in *GNU*) ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo 'GREP' >> "conftest.nl" "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_GREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_GREP_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_GREP"; then as_fn_error $? "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 fi else ac_cv_path_GREP=$GREP fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5 $as_echo "$ac_cv_path_GREP" >&6; } GREP="$ac_cv_path_GREP" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5 $as_echo_n "checking for egrep... " >&6; } if ${ac_cv_path_EGREP+:} false; then : $as_echo_n "(cached) " >&6 else if echo a | $GREP -E '(a|b)' >/dev/null 2>&1 then ac_cv_path_EGREP="$GREP -E" else if test -z "$EGREP"; then ac_path_EGREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in egrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_EGREP" || continue # Check for GNU ac_path_EGREP and select it if it is found. # Check for GNU $ac_path_EGREP case `"$ac_path_EGREP" --version 2>&1` in *GNU*) ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo 'EGREP' >> "conftest.nl" "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_EGREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_EGREP_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_EGREP"; then as_fn_error $? "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 fi else ac_cv_path_EGREP=$EGREP fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5 $as_echo "$ac_cv_path_EGREP" >&6; } EGREP="$ac_cv_path_EGREP" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5 $as_echo_n "checking for ANSI C header files... " >&6; } if ${ac_cv_header_stdc+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #include #include int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_header_stdc=yes else ac_cv_header_stdc=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext if test $ac_cv_header_stdc = yes; then # SunOS 4.x string.h does not declare mem*, contrary to ANSI. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "memchr" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "free" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. if test "$cross_compiling" = yes; then : : else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #if ((' ' & 0x0FF) == 0x020) # define ISLOWER(c) ('a' <= (c) && (c) <= 'z') # define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) #else # define ISLOWER(c) \ (('a' <= (c) && (c) <= 'i') \ || ('j' <= (c) && (c) <= 'r') \ || ('s' <= (c) && (c) <= 'z')) # define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) #endif #define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) int main () { int i; for (i = 0; i < 256; i++) if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) return 2; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : else ac_cv_header_stdc=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5 $as_echo "$ac_cv_header_stdc" >&6; } if test $ac_cv_header_stdc = yes; then $as_echo "#define STDC_HEADERS 1" >>confdefs.h fi # On IRIX 5.3, sys/types and inttypes.h are conflicting. for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \ inttypes.h stdint.h unistd.h do : as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default " if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done ac_fn_c_check_header_mongrel "$LINENO" "popt.h" "ac_cv_header_popt_h" "$ac_includes_default" if test "x$ac_cv_header_popt_h" = xyes; then : else as_fn_error $? "popt not installed: cannot find popt.h" "$LINENO" 5 fi GTK= GDK= GLIB= # Extract the first word of "pkg-config", so it can be a program name with args. set dummy pkg-config; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_path_PKGCONFIG+:} false; then : $as_echo_n "(cached) " >&6 else case $PKGCONFIG in [\\/]* | ?:[\\/]*) ac_cv_path_PKGCONFIG="$PKGCONFIG" # Let the user override the test with a path. ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in ${PATH} do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_path_PKGCONFIG="$as_dir/$ac_word$ac_exec_ext" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS test -z "$ac_cv_path_PKGCONFIG" && ac_cv_path_PKGCONFIG="no" ;; esac fi PKGCONFIG=$ac_cv_path_PKGCONFIG if test -n "$PKGCONFIG"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $PKGCONFIG" >&5 $as_echo "$PKGCONFIG" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test $PKGCONFIG = "no"; then as_fn_error $? "Cannot find pkg-config" "$LINENO" 5 fi if test "$use_gui" = "no"; then X_LDFLAGS=`$PKGCONFIG --libs glib-2.0 gthread-2.0 gmodule-2.0` X_CFLAGS=`$PKGCONFIG --cflags glib-2.0` Y_LDFLAGS= Y_CFLAGS= else GTKEXTRAMOD="gtkextra-2.0" $PKGCONFIG --exists $GTKEXTRAMOD if test $? != 0; then GTKEXTRAMOD="gtkextra-3.0" $PKGCONFIG --exists $GTKEXTRAMOD if test $? != 0; then as_fn_error $? "Cannot find gtkextra-2.0 or gtkextra-3.0 package" "$LINENO" 5 fi fi X_LDFLAGS=`$PKGCONFIG --libs gtk+-2.0 gthread-2.0` X_CFLAGS=`$PKGCONFIG --cflags gtk+-2.0` Y_LDFLAGS=`$PKGCONFIG --libs $GTKEXTRAMOD` Y_CFLAGS=`$PKGCONFIG --cflags $GTKEXTRAMOD` GTK_VERSION_T=`$PKGCONFIG --modversion gtk+-2.0` echo linking with gtk-$GTK_VERSION_T cat >>confdefs.h <<_ACEOF #define GTK_VERSION "$GTK_VERSION_T" _ACEOF fi ac_fn_c_check_header_mongrel "$LINENO" "readline/readline.h" "ac_cv_header_readline_readline_h" "$ac_includes_default" if test "x$ac_cv_header_readline_readline_h" = xyes; then : fi if test "$ac_cv_header_readline_readline_h" = yes; then cat > conftest.$ac_ext < #include wi_LIB_READLINE_VERSION RL_VERSION_MAJOR RL_VERSION_MINOR EOF wi_READLINE_VERSION=$($CPP $CPPFLAGS conftest.$ac_ext | sed -n -e "s/^wi_LIB_READLINE_VERSION *\([0-9\][0-9\]*\) *\([0-9\][0-9\]*\)$/\1.\2/p") rm -rf conftest* if test -n "$wi_READLINE_VERSION"; then wi_MAJOR=$(expr $wi_READLINE_VERSION : '\([0-9][0-9]*\)\.') wi_MINOR=$(expr $wi_READLINE_VERSION : '[0-9][0-9]*\.\([0-9][0-9]*$\)') if test $wi_MINOR -lt 10; then wi_MINOR=$(expr $wi_MINOR \* 10) fi wi_READLINE_VERSION=$(expr $wi_MAJOR \* 100 + $wi_MINOR) else wi_READLINE_VERSION=-1 fi ac_save_LIBS="$LIBS" # Note: $LIBCURSES is permitted to be empty. for LIBREADLINE in "-lreadline.dll" "-lreadline" "-lreadline $LIBCURSES" "-lreadline -ltermcap" "-lreadline -lncurses" "-lreadline -lcurses" do { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU Readline library $LIBREADLINE" >&5 $as_echo_n "checking for GNU Readline library $LIBREADLINE... " >&6; } LIBS="$ac_save_LIBS $LIBREADLINE" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* includes */ #include #include int main () { /* function-body */ int dummy = rl_completion_append_character; /* rl_completion_append_character appeared in version 2.1 */ readline(NULL); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : wi_cv_lib_readline=yes { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else wi_cv_lib_readline=no { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test "$wi_cv_lib_readline" = yes; then cat >>confdefs.h <<_ACEOF #define HAVE_LIBREADLINE $wi_READLINE_VERSION _ACEOF break fi done LIBS="$ac_save_LIBS" fi if test "$wi_cv_lib_readline" != yes; then as_fn_error $? "Cannot find readline library" "$LINENO" 5 fi # Checks for programs. ac_ext=cpp ac_cpp='$CXXCPP $CPPFLAGS' ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_cxx_compiler_gnu if test -z "$CXX"; then if test -n "$CCC"; then CXX=$CCC else if test -n "$ac_tool_prefix"; then for ac_prog in g++ c++ gpp aCC CC cxx cc++ cl.exe FCC KCC RCC xlC_r xlC do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CXX+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CXX"; then ac_cv_prog_CXX="$CXX" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CXX="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CXX=$ac_cv_prog_CXX if test -n "$CXX"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CXX" >&5 $as_echo "$CXX" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$CXX" && break done fi if test -z "$CXX"; then ac_ct_CXX=$CXX for ac_prog in g++ c++ gpp aCC CC cxx cc++ cl.exe FCC KCC RCC xlC_r xlC do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_CXX+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CXX"; then ac_cv_prog_ac_ct_CXX="$ac_ct_CXX" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CXX="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CXX=$ac_cv_prog_ac_ct_CXX if test -n "$ac_ct_CXX"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CXX" >&5 $as_echo "$ac_ct_CXX" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_CXX" && break done if test "x$ac_ct_CXX" = x; then CXX="g++" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CXX=$ac_ct_CXX fi fi fi fi # Provide some information about the compiler. $as_echo "$as_me:${as_lineno-$LINENO}: checking for C++ compiler version" >&5 set X $ac_compile ac_compiler=$2 for ac_option in --version -v -V -qversion; do { { ac_try="$ac_compiler $ac_option >&5" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compiler $ac_option >&5") 2>conftest.err ac_status=$? if test -s conftest.err; then sed '10a\ ... rest of stderr output deleted ... 10q' conftest.err >conftest.er1 cat conftest.er1 >&5 fi rm -f conftest.er1 conftest.err $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } done { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C++ compiler" >&5 $as_echo_n "checking whether we are using the GNU C++ compiler... " >&6; } if ${ac_cv_cxx_compiler_gnu+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { #ifndef __GNUC__ choke me #endif ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO"; then : ac_compiler_gnu=yes else ac_compiler_gnu=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_cv_cxx_compiler_gnu=$ac_compiler_gnu fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_cxx_compiler_gnu" >&5 $as_echo "$ac_cv_cxx_compiler_gnu" >&6; } if test $ac_compiler_gnu = yes; then GXX=yes else GXX= fi ac_test_CXXFLAGS=${CXXFLAGS+set} ac_save_CXXFLAGS=$CXXFLAGS { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CXX accepts -g" >&5 $as_echo_n "checking whether $CXX accepts -g... " >&6; } if ${ac_cv_prog_cxx_g+:} false; then : $as_echo_n "(cached) " >&6 else ac_save_cxx_werror_flag=$ac_cxx_werror_flag ac_cxx_werror_flag=yes ac_cv_prog_cxx_g=no CXXFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO"; then : ac_cv_prog_cxx_g=yes else CXXFLAGS="" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO"; then : else ac_cxx_werror_flag=$ac_save_cxx_werror_flag CXXFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO"; then : ac_cv_prog_cxx_g=yes fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_cxx_werror_flag=$ac_save_cxx_werror_flag fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cxx_g" >&5 $as_echo "$ac_cv_prog_cxx_g" >&6; } if test "$ac_test_CXXFLAGS" = set; then CXXFLAGS=$ac_save_CXXFLAGS elif test $ac_cv_prog_cxx_g = yes; then if test "$GXX" = yes; then CXXFLAGS="-g -O2" else CXXFLAGS="-g" fi else if test "$GXX" = yes; then CXXFLAGS="-O2" else CXXFLAGS= fi fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu depcc="$CXX" am_compiler_list= { $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5 $as_echo_n "checking dependency style of $depcc... " >&6; } if ${am_cv_CXX_dependencies_compiler_type+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up # making bogus files that we don't know about and never remove. For # instance it was reported that on HP-UX the gcc test will end up # making a dummy file named 'D' -- because '-MD' means "put the output # in D". rm -rf conftest.dir mkdir conftest.dir # Copy depcomp to subdir because otherwise we won't find it if we're # using a relative directory. cp "$am_depcomp" conftest.dir cd conftest.dir # We will build objects and dependencies in a subdirectory because # it helps to detect inapplicable dependency modes. For instance # both Tru64's cc and ICC support -MD to output dependencies as a # side effect of compilation, but ICC will put the dependencies in # the current directory while Tru64 will put them in the object # directory. mkdir sub am_cv_CXX_dependencies_compiler_type=none if test "$am_compiler_list" = ""; then am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp` fi am__universal=false case " $depcc " in #( *\ -arch\ *\ -arch\ *) am__universal=true ;; esac for depmode in $am_compiler_list; do # Setup a source with many dependencies, because some compilers # like to wrap large dependency lists on column 80 (with \), and # we should not choose a depcomp mode which is confused by this. # # We need to recreate these files for each test, as the compiler may # overwrite some of them when testing with obscure command lines. # This happens at least with the AIX C compiler. : > sub/conftest.c for i in 1 2 3 4 5 6; do echo '#include "conftst'$i'.h"' >> sub/conftest.c # Using ": > sub/conftst$i.h" creates only sub/conftst1.h with # Solaris 10 /bin/sh. echo '/* dummy */' > sub/conftst$i.h done echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf # We check with '-c' and '-o' for the sake of the "dashmstdout" # mode. It turns out that the SunPro C++ compiler does not properly # handle '-M -o', and we need to detect this. Also, some Intel # versions had trouble with output in subdirs. am__obj=sub/conftest.${OBJEXT-o} am__minus_obj="-o $am__obj" case $depmode in gcc) # This depmode causes a compiler race in universal mode. test "$am__universal" = false || continue ;; nosideeffect) # After this tag, mechanisms are not by side-effect, so they'll # only be used when explicitly requested. if test "x$enable_dependency_tracking" = xyes; then continue else break fi ;; msvc7 | msvc7msys | msvisualcpp | msvcmsys) # This compiler won't grok '-c -o', but also, the minuso test has # not run yet. These depmodes are late enough in the game, and # so weak that their functioning should not be impacted. am__obj=conftest.${OBJEXT-o} am__minus_obj= ;; none) break ;; esac if depmode=$depmode \ source=sub/conftest.c object=$am__obj \ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \ >/dev/null 2>conftest.err && grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 && grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && grep $am__obj sub/conftest.Po > /dev/null 2>&1 && ${MAKE-make} -s -f confmf > /dev/null 2>&1; then # icc doesn't choke on unknown options, it will just issue warnings # or remarks (even with -Werror). So we grep stderr for any message # that says an option was ignored or not supported. # When given -MP, icc 7.0 and 7.1 complain thusly: # icc: Command line warning: ignoring option '-M'; no argument required # The diagnosis changed in icc 8.0: # icc: Command line remark: option '-MP' not supported if (grep 'ignoring option' conftest.err || grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else am_cv_CXX_dependencies_compiler_type=$depmode break fi fi done cd .. rm -rf conftest.dir else am_cv_CXX_dependencies_compiler_type=none fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CXX_dependencies_compiler_type" >&5 $as_echo "$am_cv_CXX_dependencies_compiler_type" >&6; } CXXDEPMODE=depmode=$am_cv_CXX_dependencies_compiler_type if test "x$enable_dependency_tracking" != xno \ && test "$am_cv_CXX_dependencies_compiler_type" = gcc3; then am__fastdepCXX_TRUE= am__fastdepCXX_FALSE='#' else am__fastdepCXX_TRUE='#' am__fastdepCXX_FALSE= fi ac_ext=cpp ac_cpp='$CXXCPP $CPPFLAGS' ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_cxx_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C++ preprocessor" >&5 $as_echo_n "checking how to run the C++ preprocessor... " >&6; } if test -z "$CXXCPP"; then if ${ac_cv_prog_CXXCPP+:} false; then : $as_echo_n "(cached) " >&6 else # Double quotes because CXXCPP needs to be expanded for CXXCPP in "$CXX -E" "/lib/cpp" do ac_preproc_ok=false for ac_cxx_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if ac_fn_cxx_try_cpp "$LINENO"; then : else # Broken: fails on valid input. continue fi rm -f conftest.err conftest.i conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if ac_fn_cxx_try_cpp "$LINENO"; then : # Broken: success on invalid input. continue else # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.i conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.i conftest.err conftest.$ac_ext if $ac_preproc_ok; then : break fi done ac_cv_prog_CXXCPP=$CXXCPP fi CXXCPP=$ac_cv_prog_CXXCPP else ac_cv_prog_CXXCPP=$CXXCPP fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CXXCPP" >&5 $as_echo "$CXXCPP" >&6; } ac_preproc_ok=false for ac_cxx_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if ac_fn_cxx_try_cpp "$LINENO"; then : else # Broken: fails on valid input. continue fi rm -f conftest.err conftest.i conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if ac_fn_cxx_try_cpp "$LINENO"; then : # Broken: success on invalid input. continue else # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.i conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.i conftest.err conftest.$ac_ext if $ac_preproc_ok; then : else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "C++ preprocessor \"$CXXCPP\" fails sanity check See \`config.log' for more details" "$LINENO" 5; } fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. set dummy ${ac_tool_prefix}gcc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}gcc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_CC"; then ac_ct_CC=$CC # Extract the first word of "gcc", so it can be a program name with args. set dummy gcc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="gcc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 $as_echo "$ac_ct_CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi else CC="$ac_cv_prog_CC" fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. set dummy ${ac_tool_prefix}cc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}cc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi fi if test -z "$CC"; then # Extract the first word of "cc", so it can be a program name with args. set dummy cc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else ac_prog_rejected=no as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then ac_prog_rejected=yes continue fi ac_cv_prog_CC="cc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS if test $ac_prog_rejected = yes; then # We found a bogon in the path, so make sure we never use it. set dummy $ac_cv_prog_CC shift if test $# != 0; then # We chose a different compiler from the bogus one. # However, it has the same basename, so the bogon will be chosen # first if we set CC to just the basename; use the full file name. shift ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" fi fi fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then for ac_prog in cl.exe do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$CC" && break done fi if test -z "$CC"; then ac_ct_CC=$CC for ac_prog in cl.exe do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 $as_echo "$ac_ct_CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_CC" && break done if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi fi fi test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "no acceptable C compiler found in \$PATH See \`config.log' for more details" "$LINENO" 5; } # Provide some information about the compiler. $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 set X $ac_compile ac_compiler=$2 for ac_option in --version -v -V -qversion; do { { ac_try="$ac_compiler $ac_option >&5" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compiler $ac_option >&5") 2>conftest.err ac_status=$? if test -s conftest.err; then sed '10a\ ... rest of stderr output deleted ... 10q' conftest.err >conftest.er1 cat conftest.er1 >&5 fi rm -f conftest.er1 conftest.err $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } done { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5 $as_echo_n "checking whether we are using the GNU C compiler... " >&6; } if ${ac_cv_c_compiler_gnu+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { #ifndef __GNUC__ choke me #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_compiler_gnu=yes else ac_compiler_gnu=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_cv_c_compiler_gnu=$ac_compiler_gnu fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5 $as_echo "$ac_cv_c_compiler_gnu" >&6; } if test $ac_compiler_gnu = yes; then GCC=yes else GCC= fi ac_test_CFLAGS=${CFLAGS+set} ac_save_CFLAGS=$CFLAGS { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5 $as_echo_n "checking whether $CC accepts -g... " >&6; } if ${ac_cv_prog_cc_g+:} false; then : $as_echo_n "(cached) " >&6 else ac_save_c_werror_flag=$ac_c_werror_flag ac_c_werror_flag=yes ac_cv_prog_cc_g=no CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes else CFLAGS="" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : else ac_c_werror_flag=$ac_save_c_werror_flag CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_c_werror_flag=$ac_save_c_werror_flag fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5 $as_echo "$ac_cv_prog_cc_g" >&6; } if test "$ac_test_CFLAGS" = set; then CFLAGS=$ac_save_CFLAGS elif test $ac_cv_prog_cc_g = yes; then if test "$GCC" = yes; then CFLAGS="-g -O2" else CFLAGS="-g" fi else if test "$GCC" = yes; then CFLAGS="-O2" else CFLAGS= fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5 $as_echo_n "checking for $CC option to accept ISO C89... " >&6; } if ${ac_cv_prog_cc_c89+:} false; then : $as_echo_n "(cached) " >&6 else ac_cv_prog_cc_c89=no ac_save_CC=$CC cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include struct stat; /* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ struct buf { int x; }; FILE * (*rcsopen) (struct buf *, struct stat *, int); static char *e (p, i) char **p; int i; { return p[i]; } static char *f (char * (*g) (char **, int), char **p, ...) { char *s; va_list v; va_start (v,p); s = g (p, va_arg (v,int)); va_end (v); return s; } /* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has function prototypes and stuff, but not '\xHH' hex character constants. These don't provoke an error unfortunately, instead are silently treated as 'x'. The following induces an error, until -std is added to get proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an array size at least. It's necessary to write '\x00'==0 to get something that's true only with -std. */ int osf4_cc_array ['\x00' == 0 ? 1 : -1]; /* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters inside strings and character constants. */ #define FOO(x) 'x' int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1]; int test (int i, double x); struct s1 {int (*f) (int a);}; struct s2 {int (*f) (double a);}; int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); int argc; char **argv; int main () { return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; ; return 0; } _ACEOF for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \ -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" do CC="$ac_save_CC $ac_arg" if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_c89=$ac_arg fi rm -f core conftest.err conftest.$ac_objext test "x$ac_cv_prog_cc_c89" != "xno" && break done rm -f conftest.$ac_ext CC=$ac_save_CC fi # AC_CACHE_VAL case "x$ac_cv_prog_cc_c89" in x) { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 $as_echo "none needed" >&6; } ;; xno) { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 $as_echo "unsupported" >&6; } ;; *) CC="$CC $ac_cv_prog_cc_c89" { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 $as_echo "$ac_cv_prog_cc_c89" >&6; } ;; esac if test "x$ac_cv_prog_cc_c89" != xno; then : fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu depcc="$CC" am_compiler_list= { $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5 $as_echo_n "checking dependency style of $depcc... " >&6; } if ${am_cv_CC_dependencies_compiler_type+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up # making bogus files that we don't know about and never remove. For # instance it was reported that on HP-UX the gcc test will end up # making a dummy file named 'D' -- because '-MD' means "put the output # in D". rm -rf conftest.dir mkdir conftest.dir # Copy depcomp to subdir because otherwise we won't find it if we're # using a relative directory. cp "$am_depcomp" conftest.dir cd conftest.dir # We will build objects and dependencies in a subdirectory because # it helps to detect inapplicable dependency modes. For instance # both Tru64's cc and ICC support -MD to output dependencies as a # side effect of compilation, but ICC will put the dependencies in # the current directory while Tru64 will put them in the object # directory. mkdir sub am_cv_CC_dependencies_compiler_type=none if test "$am_compiler_list" = ""; then am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp` fi am__universal=false case " $depcc " in #( *\ -arch\ *\ -arch\ *) am__universal=true ;; esac for depmode in $am_compiler_list; do # Setup a source with many dependencies, because some compilers # like to wrap large dependency lists on column 80 (with \), and # we should not choose a depcomp mode which is confused by this. # # We need to recreate these files for each test, as the compiler may # overwrite some of them when testing with obscure command lines. # This happens at least with the AIX C compiler. : > sub/conftest.c for i in 1 2 3 4 5 6; do echo '#include "conftst'$i'.h"' >> sub/conftest.c # Using ": > sub/conftst$i.h" creates only sub/conftst1.h with # Solaris 10 /bin/sh. echo '/* dummy */' > sub/conftst$i.h done echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf # We check with '-c' and '-o' for the sake of the "dashmstdout" # mode. It turns out that the SunPro C++ compiler does not properly # handle '-M -o', and we need to detect this. Also, some Intel # versions had trouble with output in subdirs. am__obj=sub/conftest.${OBJEXT-o} am__minus_obj="-o $am__obj" case $depmode in gcc) # This depmode causes a compiler race in universal mode. test "$am__universal" = false || continue ;; nosideeffect) # After this tag, mechanisms are not by side-effect, so they'll # only be used when explicitly requested. if test "x$enable_dependency_tracking" = xyes; then continue else break fi ;; msvc7 | msvc7msys | msvisualcpp | msvcmsys) # This compiler won't grok '-c -o', but also, the minuso test has # not run yet. These depmodes are late enough in the game, and # so weak that their functioning should not be impacted. am__obj=conftest.${OBJEXT-o} am__minus_obj= ;; none) break ;; esac if depmode=$depmode \ source=sub/conftest.c object=$am__obj \ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \ >/dev/null 2>conftest.err && grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 && grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && grep $am__obj sub/conftest.Po > /dev/null 2>&1 && ${MAKE-make} -s -f confmf > /dev/null 2>&1; then # icc doesn't choke on unknown options, it will just issue warnings # or remarks (even with -Werror). So we grep stderr for any message # that says an option was ignored or not supported. # When given -MP, icc 7.0 and 7.1 complain thusly: # icc: Command line warning: ignoring option '-M'; no argument required # The diagnosis changed in icc 8.0: # icc: Command line remark: option '-MP' not supported if (grep 'ignoring option' conftest.err || grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else am_cv_CC_dependencies_compiler_type=$depmode break fi fi done cd .. rm -rf conftest.dir else am_cv_CC_dependencies_compiler_type=none fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CC_dependencies_compiler_type" >&5 $as_echo "$am_cv_CC_dependencies_compiler_type" >&6; } CCDEPMODE=depmode=$am_cv_CC_dependencies_compiler_type if test "x$enable_dependency_tracking" != xno \ && test "$am_cv_CC_dependencies_compiler_type" = gcc3; then am__fastdepCC_TRUE= am__fastdepCC_FALSE='#' else am__fastdepCC_TRUE='#' am__fastdepCC_FALSE= fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5 $as_echo_n "checking how to run the C preprocessor... " >&6; } # On Suns, sometimes $CPP names a directory. if test -n "$CPP" && test -d "$CPP"; then CPP= fi if test -z "$CPP"; then if ${ac_cv_prog_CPP+:} false; then : $as_echo_n "(cached) " >&6 else # Double quotes because CPP needs to be expanded for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp" do ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : else # Broken: fails on valid input. continue fi rm -f conftest.err conftest.i conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : # Broken: success on invalid input. continue else # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.i conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.i conftest.err conftest.$ac_ext if $ac_preproc_ok; then : break fi done ac_cv_prog_CPP=$CPP fi CPP=$ac_cv_prog_CPP else ac_cv_prog_CPP=$CPP fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5 $as_echo "$CPP" >&6; } ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : else # Broken: fails on valid input. continue fi rm -f conftest.err conftest.i conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : # Broken: success on invalid input. continue else # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.i conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.i conftest.err conftest.$ac_ext if $ac_preproc_ok; then : else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "C preprocessor \"$CPP\" fails sanity check See \`config.log' for more details" "$LINENO" 5; } fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ln -s works" >&5 $as_echo_n "checking whether ln -s works... " >&6; } LN_S=$as_ln_s if test "$LN_S" = "ln -s"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no, using $LN_S" >&5 $as_echo "no, using $LN_S" >&6; } fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5 $as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; } set x ${MAKE-make} ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'` if eval \${ac_cv_prog_make_${ac_make}_set+:} false; then : $as_echo_n "(cached) " >&6 else cat >conftest.make <<\_ACEOF SHELL = /bin/sh all: @echo '@@@%%%=$(MAKE)=@@@%%%' _ACEOF # GNU make sometimes prints "make[1]: Entering ...", which would confuse us. case `${MAKE-make} -f conftest.make 2>/dev/null` in *@@@%%%=?*=@@@%%%*) eval ac_cv_prog_make_${ac_make}_set=yes;; *) eval ac_cv_prog_make_${ac_make}_set=no;; esac rm -f conftest.make fi if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } SET_MAKE= else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } SET_MAKE="MAKE=${MAKE-make}" fi for ac_prog in 'bison -y' byacc do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_YACC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$YACC"; then ac_cv_prog_YACC="$YACC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_YACC="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi YACC=$ac_cv_prog_YACC if test -n "$YACC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $YACC" >&5 $as_echo "$YACC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$YACC" && break done test -n "$YACC" || YACC="yacc" for ac_prog in flex lex do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_LEX+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$LEX"; then ac_cv_prog_LEX="$LEX" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_LEX="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi LEX=$ac_cv_prog_LEX if test -n "$LEX"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LEX" >&5 $as_echo "$LEX" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$LEX" && break done test -n "$LEX" || LEX=":" if test "x$LEX" != "x:"; then cat >conftest.l <<_ACEOF %% a { ECHO; } b { REJECT; } c { yymore (); } d { yyless (1); } e { /* IRIX 6.5 flex 2.5.4 underquotes its yyless argument. */ yyless ((input () != 0)); } f { unput (yytext[0]); } . { BEGIN INITIAL; } %% #ifdef YYTEXT_POINTER extern char *yytext; #endif int main (void) { return ! yylex () + ! yywrap (); } _ACEOF { { ac_try="$LEX conftest.l" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$LEX conftest.l") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking lex output file root" >&5 $as_echo_n "checking lex output file root... " >&6; } if ${ac_cv_prog_lex_root+:} false; then : $as_echo_n "(cached) " >&6 else if test -f lex.yy.c; then ac_cv_prog_lex_root=lex.yy elif test -f lexyy.c; then ac_cv_prog_lex_root=lexyy else as_fn_error $? "cannot find output from $LEX; giving up" "$LINENO" 5 fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_lex_root" >&5 $as_echo "$ac_cv_prog_lex_root" >&6; } LEX_OUTPUT_ROOT=$ac_cv_prog_lex_root if test -z "${LEXLIB+set}"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking lex library" >&5 $as_echo_n "checking lex library... " >&6; } if ${ac_cv_lib_lex+:} false; then : $as_echo_n "(cached) " >&6 else ac_save_LIBS=$LIBS ac_cv_lib_lex='none needed' for ac_lib in '' -lfl -ll; do LIBS="$ac_lib $ac_save_LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ `cat $LEX_OUTPUT_ROOT.c` _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_lex=$ac_lib fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext test "$ac_cv_lib_lex" != 'none needed' && break done LIBS=$ac_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_lex" >&5 $as_echo "$ac_cv_lib_lex" >&6; } test "$ac_cv_lib_lex" != 'none needed' && LEXLIB=$ac_cv_lib_lex fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether yytext is a pointer" >&5 $as_echo_n "checking whether yytext is a pointer... " >&6; } if ${ac_cv_prog_lex_yytext_pointer+:} false; then : $as_echo_n "(cached) " >&6 else # POSIX says lex can declare yytext either as a pointer or an array; the # default is implementation-dependent. Figure out which it is, since # not all implementations provide the %pointer and %array declarations. ac_cv_prog_lex_yytext_pointer=no ac_save_LIBS=$LIBS LIBS="$LEXLIB $ac_save_LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #define YYTEXT_POINTER 1 `cat $LEX_OUTPUT_ROOT.c` _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_prog_lex_yytext_pointer=yes fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_lex_yytext_pointer" >&5 $as_echo "$ac_cv_prog_lex_yytext_pointer" >&6; } if test $ac_cv_prog_lex_yytext_pointer = yes; then $as_echo "#define YYTEXT_POINTER 1" >>confdefs.h fi rm -f conftest.l $LEX_OUTPUT_ROOT.c fi if test "$LEX" = :; then LEX=${am_missing_run}flex fi case `pwd` in *\ * | *\ *) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&5 $as_echo "$as_me: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&2;} ;; esac macro_version='2.4.2' macro_revision='1.3337' ltmain="$ac_aux_dir/ltmain.sh" # Backslashify metacharacters that are still active within # double-quoted strings. sed_quote_subst='s/\(["`$\\]\)/\\\1/g' # Same as above, but do not quote variable references. double_quote_subst='s/\(["`\\]\)/\\\1/g' # Sed substitution to delay expansion of an escaped shell variable in a # double_quote_subst'ed string. delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' # Sed substitution to delay expansion of an escaped single quote. delay_single_quote_subst='s/'\''/'\'\\\\\\\'\''/g' # Sed substitution to avoid accidental globbing in evaled expressions no_glob_subst='s/\*/\\\*/g' ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to print strings" >&5 $as_echo_n "checking how to print strings... " >&6; } # Test print first, because it will be a builtin if present. if test "X`( print -r -- -n ) 2>/dev/null`" = X-n && \ test "X`print -r -- $ECHO 2>/dev/null`" = "X$ECHO"; then ECHO='print -r --' elif test "X`printf %s $ECHO 2>/dev/null`" = "X$ECHO"; then ECHO='printf %s\n' else # Use this function as a fallback that always works. func_fallback_echo () { eval 'cat <<_LTECHO_EOF $1 _LTECHO_EOF' } ECHO='func_fallback_echo' fi # func_echo_all arg... # Invoke $ECHO with all args, space-separated. func_echo_all () { $ECHO "" } case "$ECHO" in printf*) { $as_echo "$as_me:${as_lineno-$LINENO}: result: printf" >&5 $as_echo "printf" >&6; } ;; print*) { $as_echo "$as_me:${as_lineno-$LINENO}: result: print -r" >&5 $as_echo "print -r" >&6; } ;; *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: cat" >&5 $as_echo "cat" >&6; } ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a sed that does not truncate output" >&5 $as_echo_n "checking for a sed that does not truncate output... " >&6; } if ${ac_cv_path_SED+:} false; then : $as_echo_n "(cached) " >&6 else ac_script=s/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb/ for ac_i in 1 2 3 4 5 6 7; do ac_script="$ac_script$as_nl$ac_script" done echo "$ac_script" 2>/dev/null | sed 99q >conftest.sed { ac_script=; unset ac_script;} if test -z "$SED"; then ac_path_SED_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in sed gsed; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_SED="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_SED" || continue # Check for GNU ac_path_SED and select it if it is found. # Check for GNU $ac_path_SED case `"$ac_path_SED" --version 2>&1` in *GNU*) ac_cv_path_SED="$ac_path_SED" ac_path_SED_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo '' >> "conftest.nl" "$ac_path_SED" -f conftest.sed < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_SED_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_SED="$ac_path_SED" ac_path_SED_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_SED_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_SED"; then as_fn_error $? "no acceptable sed could be found in \$PATH" "$LINENO" 5 fi else ac_cv_path_SED=$SED fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_SED" >&5 $as_echo "$ac_cv_path_SED" >&6; } SED="$ac_cv_path_SED" rm -f conftest.sed test -z "$SED" && SED=sed Xsed="$SED -e 1s/^X//" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for fgrep" >&5 $as_echo_n "checking for fgrep... " >&6; } if ${ac_cv_path_FGREP+:} false; then : $as_echo_n "(cached) " >&6 else if echo 'ab*c' | $GREP -F 'ab*c' >/dev/null 2>&1 then ac_cv_path_FGREP="$GREP -F" else if test -z "$FGREP"; then ac_path_FGREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in fgrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_FGREP="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_FGREP" || continue # Check for GNU ac_path_FGREP and select it if it is found. # Check for GNU $ac_path_FGREP case `"$ac_path_FGREP" --version 2>&1` in *GNU*) ac_cv_path_FGREP="$ac_path_FGREP" ac_path_FGREP_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo 'FGREP' >> "conftest.nl" "$ac_path_FGREP" FGREP < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_FGREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_FGREP="$ac_path_FGREP" ac_path_FGREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_FGREP_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_FGREP"; then as_fn_error $? "no acceptable fgrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 fi else ac_cv_path_FGREP=$FGREP fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_FGREP" >&5 $as_echo "$ac_cv_path_FGREP" >&6; } FGREP="$ac_cv_path_FGREP" test -z "$GREP" && GREP=grep # Check whether --with-gnu-ld was given. if test "${with_gnu_ld+set}" = set; then : withval=$with_gnu_ld; test "$withval" = no || with_gnu_ld=yes else with_gnu_ld=no fi ac_prog=ld if test "$GCC" = yes; then # Check if gcc -print-prog-name=ld gives a path. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ld used by $CC" >&5 $as_echo_n "checking for ld used by $CC... " >&6; } 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. [\\/]* | ?:[\\/]*) re_direlt='/[^/][^/]*/\.\./' # Canonicalize the pathname 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. with_gnu_ld=unknown ;; esac elif test "$with_gnu_ld" = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU ld" >&5 $as_echo_n "checking for GNU ld... " >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for non-GNU ld" >&5 $as_echo_n "checking for non-GNU ld... " >&6; } fi if ${lt_cv_path_LD+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$LD"; then lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR for ac_dir in $PATH; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then lt_cv_path_LD="$ac_dir/$ac_prog" # Check to see if the program is GNU ld. I'd rather use --version, # but apparently some variants of GNU ld only accept -v. # Break only if it was the GNU/non-GNU ld that we prefer. case `"$lt_cv_path_LD" -v 2>&1 &5 $as_echo "$LD" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -z "$LD" && as_fn_error $? "no acceptable ld found in \$PATH" "$LINENO" 5 { $as_echo "$as_me:${as_lineno-$LINENO}: checking if the linker ($LD) is GNU ld" >&5 $as_echo_n "checking if the linker ($LD) is GNU ld... " >&6; } if ${lt_cv_prog_gnu_ld+:} false; then : $as_echo_n "(cached) " >&6 else # I'd rather use --version here, but apparently some GNU lds only accept -v. case `$LD -v 2>&1 &5 $as_echo "$lt_cv_prog_gnu_ld" >&6; } with_gnu_ld=$lt_cv_prog_gnu_ld { $as_echo "$as_me:${as_lineno-$LINENO}: checking for BSD- or MS-compatible name lister (nm)" >&5 $as_echo_n "checking for BSD- or MS-compatible name lister (nm)... " >&6; } if ${lt_cv_path_NM+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$NM"; then # Let the user override the test. lt_cv_path_NM="$NM" else lt_nm_to_check="${ac_tool_prefix}nm" if test -n "$ac_tool_prefix" && test "$build" = "$host"; then lt_nm_to_check="$lt_nm_to_check nm" fi for lt_tmp_nm in $lt_nm_to_check; do lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR for ac_dir in $PATH /usr/ccs/bin/elf /usr/ccs/bin /usr/ucb /bin; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. tmp_nm="$ac_dir/$lt_tmp_nm" if test -f "$tmp_nm" || test -f "$tmp_nm$ac_exeext" ; then # Check to see if the nm accepts a BSD-compat flag. # Adding the `sed 1q' prevents false positives on HP-UX, which says: # nm: unknown option "B" ignored # Tru64's nm complains that /dev/null is an invalid object file case `"$tmp_nm" -B /dev/null 2>&1 | sed '1q'` in */dev/null* | *'Invalid file or object type'*) lt_cv_path_NM="$tmp_nm -B" break ;; *) case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in */dev/null*) lt_cv_path_NM="$tmp_nm -p" break ;; *) lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but continue # so that we can try to find one that supports BSD flags ;; esac ;; esac fi done IFS="$lt_save_ifs" done : ${lt_cv_path_NM=no} fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_NM" >&5 $as_echo "$lt_cv_path_NM" >&6; } if test "$lt_cv_path_NM" != "no"; then NM="$lt_cv_path_NM" else # Didn't find any BSD compatible name lister, look for dumpbin. if test -n "$DUMPBIN"; then : # Let the user override the test. else if test -n "$ac_tool_prefix"; then for ac_prog in dumpbin "link -dump" do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_DUMPBIN+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$DUMPBIN"; then ac_cv_prog_DUMPBIN="$DUMPBIN" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_DUMPBIN="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi DUMPBIN=$ac_cv_prog_DUMPBIN if test -n "$DUMPBIN"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DUMPBIN" >&5 $as_echo "$DUMPBIN" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$DUMPBIN" && break done fi if test -z "$DUMPBIN"; then ac_ct_DUMPBIN=$DUMPBIN for ac_prog in dumpbin "link -dump" do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_DUMPBIN+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_DUMPBIN"; then ac_cv_prog_ac_ct_DUMPBIN="$ac_ct_DUMPBIN" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_DUMPBIN="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_DUMPBIN=$ac_cv_prog_ac_ct_DUMPBIN if test -n "$ac_ct_DUMPBIN"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DUMPBIN" >&5 $as_echo "$ac_ct_DUMPBIN" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_DUMPBIN" && break done if test "x$ac_ct_DUMPBIN" = x; then DUMPBIN=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac DUMPBIN=$ac_ct_DUMPBIN fi fi case `$DUMPBIN -symbols /dev/null 2>&1 | sed '1q'` in *COFF*) DUMPBIN="$DUMPBIN -symbols" ;; *) DUMPBIN=: ;; esac fi if test "$DUMPBIN" != ":"; then NM="$DUMPBIN" fi fi test -z "$NM" && NM=nm { $as_echo "$as_me:${as_lineno-$LINENO}: checking the name lister ($NM) interface" >&5 $as_echo_n "checking the name lister ($NM) interface... " >&6; } if ${lt_cv_nm_interface+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_nm_interface="BSD nm" echo "int some_variable = 0;" > conftest.$ac_ext (eval echo "\"\$as_me:$LINENO: $ac_compile\"" >&5) (eval "$ac_compile" 2>conftest.err) cat conftest.err >&5 (eval echo "\"\$as_me:$LINENO: $NM \\\"conftest.$ac_objext\\\"\"" >&5) (eval "$NM \"conftest.$ac_objext\"" 2>conftest.err > conftest.out) cat conftest.err >&5 (eval echo "\"\$as_me:$LINENO: output\"" >&5) cat conftest.out >&5 if $GREP 'External.*some_variable' conftest.out > /dev/null; then lt_cv_nm_interface="MS dumpbin" fi rm -f conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_nm_interface" >&5 $as_echo "$lt_cv_nm_interface" >&6; } # find the maximum length of command line arguments { $as_echo "$as_me:${as_lineno-$LINENO}: checking the maximum length of command line arguments" >&5 $as_echo_n "checking the maximum length of command line arguments... " >&6; } if ${lt_cv_sys_max_cmd_len+:} false; then : $as_echo_n "(cached) " >&6 else i=0 teststring="ABCD" case $build_os in msdosdjgpp*) # On DJGPP, this test can blow up pretty badly due to problems in libc # (any single argument exceeding 2000 bytes causes a buffer overrun # during glob expansion). Even if it were fixed, the result of this # check would be larger than it should be. lt_cv_sys_max_cmd_len=12288; # 12K is about right ;; gnu*) # Under GNU Hurd, this test is not required because there is # no limit to the length of command line arguments. # Libtool will interpret -1 as no limit whatsoever lt_cv_sys_max_cmd_len=-1; ;; cygwin* | mingw* | cegcc*) # On Win9x/ME, this test blows up -- it succeeds, but takes # about 5 minutes as the teststring grows exponentially. # Worse, since 9x/ME are not pre-emptively multitasking, # you end up with a "frozen" computer, even though with patience # the test eventually succeeds (with a max line length of 256k). # Instead, let's just punt: use the minimum linelength reported by # all of the supported platforms: 8192 (on NT/2K/XP). lt_cv_sys_max_cmd_len=8192; ;; mint*) # On MiNT this can take a long time and run out of memory. lt_cv_sys_max_cmd_len=8192; ;; amigaos*) # On AmigaOS with pdksh, this test takes hours, literally. # So we just punt and use a minimum line length of 8192. lt_cv_sys_max_cmd_len=8192; ;; netbsd* | freebsd* | openbsd* | darwin* | dragonfly*) # This has been around since 386BSD, at least. Likely further. if test -x /sbin/sysctl; then lt_cv_sys_max_cmd_len=`/sbin/sysctl -n kern.argmax` elif test -x /usr/sbin/sysctl; then lt_cv_sys_max_cmd_len=`/usr/sbin/sysctl -n kern.argmax` else lt_cv_sys_max_cmd_len=65536 # usable default for all BSDs fi # And add a safety zone lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` ;; interix*) # We know the value 262144 and hardcode it with a safety zone (like BSD) lt_cv_sys_max_cmd_len=196608 ;; os2*) # The test takes a long time on OS/2. lt_cv_sys_max_cmd_len=8192 ;; osf*) # Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure # due to this test when exec_disable_arg_limit is 1 on Tru64. It is not # nice to cause kernel panics so lets avoid the loop below. # First set a reasonable default. lt_cv_sys_max_cmd_len=16384 # if test -x /sbin/sysconfig; then case `/sbin/sysconfig -q proc exec_disable_arg_limit` in *1*) lt_cv_sys_max_cmd_len=-1 ;; esac fi ;; sco3.2v5*) lt_cv_sys_max_cmd_len=102400 ;; sysv5* | sco5v6* | sysv4.2uw2*) kargmax=`grep ARG_MAX /etc/conf/cf.d/stune 2>/dev/null` if test -n "$kargmax"; then lt_cv_sys_max_cmd_len=`echo $kargmax | sed 's/.*[ ]//'` else lt_cv_sys_max_cmd_len=32768 fi ;; *) lt_cv_sys_max_cmd_len=`(getconf ARG_MAX) 2> /dev/null` if test -n "$lt_cv_sys_max_cmd_len"; then lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` else # Make teststring a little bigger before we do anything with it. # a 1K string should be a reasonable start. for i in 1 2 3 4 5 6 7 8 ; do teststring=$teststring$teststring done SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}} # If test is not a shell built-in, we'll probably end up computing a # maximum length that is only half of the actual maximum length, but # we can't tell. while { test "X"`env echo "$teststring$teststring" 2>/dev/null` \ = "X$teststring$teststring"; } >/dev/null 2>&1 && test $i != 17 # 1/2 MB should be enough do i=`expr $i + 1` teststring=$teststring$teststring done # Only check the string length outside the loop. lt_cv_sys_max_cmd_len=`expr "X$teststring" : ".*" 2>&1` teststring= # Add a significant safety factor because C++ compilers can tack on # massive amounts of additional arguments before passing them to the # linker. It appears as though 1/2 is a usable value. lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2` fi ;; esac fi if test -n $lt_cv_sys_max_cmd_len ; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sys_max_cmd_len" >&5 $as_echo "$lt_cv_sys_max_cmd_len" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: none" >&5 $as_echo "none" >&6; } fi max_cmd_len=$lt_cv_sys_max_cmd_len : ${CP="cp -f"} : ${MV="mv -f"} : ${RM="rm -f"} { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the shell understands some XSI constructs" >&5 $as_echo_n "checking whether the shell understands some XSI constructs... " >&6; } # Try some XSI features xsi_shell=no ( _lt_dummy="a/b/c" test "${_lt_dummy##*/},${_lt_dummy%/*},${_lt_dummy#??}"${_lt_dummy%"$_lt_dummy"}, \ = c,a/b,b/c, \ && eval 'test $(( 1 + 1 )) -eq 2 \ && test "${#_lt_dummy}" -eq 5' ) >/dev/null 2>&1 \ && xsi_shell=yes { $as_echo "$as_me:${as_lineno-$LINENO}: result: $xsi_shell" >&5 $as_echo "$xsi_shell" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the shell understands \"+=\"" >&5 $as_echo_n "checking whether the shell understands \"+=\"... " >&6; } lt_shell_append=no ( foo=bar; set foo baz; eval "$1+=\$2" && test "$foo" = barbaz ) \ >/dev/null 2>&1 \ && lt_shell_append=yes { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_shell_append" >&5 $as_echo "$lt_shell_append" >&6; } if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then lt_unset=unset else lt_unset=false fi # test EBCDIC or ASCII case `echo X|tr X '\101'` in A) # ASCII based system # \n is not interpreted correctly by Solaris 8 /usr/ucb/tr lt_SP2NL='tr \040 \012' lt_NL2SP='tr \015\012 \040\040' ;; *) # EBCDIC based system lt_SP2NL='tr \100 \n' lt_NL2SP='tr \r\n \100\100' ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to convert $build file names to $host format" >&5 $as_echo_n "checking how to convert $build file names to $host format... " >&6; } if ${lt_cv_to_host_file_cmd+:} false; then : $as_echo_n "(cached) " >&6 else case $host in *-*-mingw* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_host_file_cmd=func_convert_file_msys_to_w32 ;; *-*-cygwin* ) lt_cv_to_host_file_cmd=func_convert_file_cygwin_to_w32 ;; * ) # otherwise, assume *nix lt_cv_to_host_file_cmd=func_convert_file_nix_to_w32 ;; esac ;; *-*-cygwin* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_host_file_cmd=func_convert_file_msys_to_cygwin ;; *-*-cygwin* ) lt_cv_to_host_file_cmd=func_convert_file_noop ;; * ) # otherwise, assume *nix lt_cv_to_host_file_cmd=func_convert_file_nix_to_cygwin ;; esac ;; * ) # unhandled hosts (and "normal" native builds) lt_cv_to_host_file_cmd=func_convert_file_noop ;; esac fi to_host_file_cmd=$lt_cv_to_host_file_cmd { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_to_host_file_cmd" >&5 $as_echo "$lt_cv_to_host_file_cmd" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to convert $build file names to toolchain format" >&5 $as_echo_n "checking how to convert $build file names to toolchain format... " >&6; } if ${lt_cv_to_tool_file_cmd+:} false; then : $as_echo_n "(cached) " >&6 else #assume ordinary cross tools, or native build. lt_cv_to_tool_file_cmd=func_convert_file_noop case $host in *-*-mingw* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_tool_file_cmd=func_convert_file_msys_to_w32 ;; esac ;; esac fi to_tool_file_cmd=$lt_cv_to_tool_file_cmd { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_to_tool_file_cmd" >&5 $as_echo "$lt_cv_to_tool_file_cmd" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $LD option to reload object files" >&5 $as_echo_n "checking for $LD option to reload object files... " >&6; } if ${lt_cv_ld_reload_flag+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ld_reload_flag='-r' fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_reload_flag" >&5 $as_echo "$lt_cv_ld_reload_flag" >&6; } reload_flag=$lt_cv_ld_reload_flag case $reload_flag in "" | " "*) ;; *) reload_flag=" $reload_flag" ;; esac reload_cmds='$LD$reload_flag -o $output$reload_objs' case $host_os in cygwin* | mingw* | pw32* | cegcc*) if test "$GCC" != yes; then reload_cmds=false fi ;; darwin*) if test "$GCC" = yes; then reload_cmds='$LTCC $LTCFLAGS -nostdlib ${wl}-r -o $output$reload_objs' else reload_cmds='$LD$reload_flag -o $output$reload_objs' fi ;; esac if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}objdump", so it can be a program name with args. set dummy ${ac_tool_prefix}objdump; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_OBJDUMP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$OBJDUMP"; then ac_cv_prog_OBJDUMP="$OBJDUMP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_OBJDUMP="${ac_tool_prefix}objdump" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi OBJDUMP=$ac_cv_prog_OBJDUMP if test -n "$OBJDUMP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OBJDUMP" >&5 $as_echo "$OBJDUMP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_OBJDUMP"; then ac_ct_OBJDUMP=$OBJDUMP # Extract the first word of "objdump", so it can be a program name with args. set dummy objdump; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_OBJDUMP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_OBJDUMP"; then ac_cv_prog_ac_ct_OBJDUMP="$ac_ct_OBJDUMP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_OBJDUMP="objdump" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_OBJDUMP=$ac_cv_prog_ac_ct_OBJDUMP if test -n "$ac_ct_OBJDUMP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OBJDUMP" >&5 $as_echo "$ac_ct_OBJDUMP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_OBJDUMP" = x; then OBJDUMP="false" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac OBJDUMP=$ac_ct_OBJDUMP fi else OBJDUMP="$ac_cv_prog_OBJDUMP" fi test -z "$OBJDUMP" && OBJDUMP=objdump { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to recognize dependent libraries" >&5 $as_echo_n "checking how to recognize dependent libraries... " >&6; } if ${lt_cv_deplibs_check_method+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_file_magic_cmd='$MAGIC_CMD' lt_cv_file_magic_test_file= lt_cv_deplibs_check_method='unknown' # Need to set the preceding variable on all platforms that support # interlibrary dependencies. # 'none' -- dependencies not supported. # `unknown' -- same as none, but documents that we really don't know. # 'pass_all' -- all dependencies passed with no checks. # 'test_compile' -- check by making test program. # 'file_magic [[regex]]' -- check by looking for files in library path # which responds to the $file_magic_cmd with a given extended regex. # If you have `file' or equivalent on your system and you're not sure # whether `pass_all' will *always* work, you probably want this one. case $host_os in aix[4-9]*) lt_cv_deplibs_check_method=pass_all ;; beos*) lt_cv_deplibs_check_method=pass_all ;; bsdi[45]*) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib)' lt_cv_file_magic_cmd='/usr/bin/file -L' lt_cv_file_magic_test_file=/shlib/libc.so ;; cygwin*) # func_win32_libid is a shell function defined in ltmain.sh lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' lt_cv_file_magic_cmd='func_win32_libid' ;; mingw* | pw32*) # Base MSYS/MinGW do not provide the 'file' command needed by # func_win32_libid shell function, so use a weaker test based on 'objdump', # unless we find 'file', for example because we are cross-compiling. # func_win32_libid assumes BSD nm, so disallow it if using MS dumpbin. if ( test "$lt_cv_nm_interface" = "BSD nm" && file / ) >/dev/null 2>&1; then lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' lt_cv_file_magic_cmd='func_win32_libid' else # Keep this pattern in sync with the one in func_win32_libid. lt_cv_deplibs_check_method='file_magic file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)' lt_cv_file_magic_cmd='$OBJDUMP -f' fi ;; cegcc*) # use the weaker test based on 'objdump'. See mingw*. lt_cv_deplibs_check_method='file_magic file format pe-arm-.*little(.*architecture: arm)?' lt_cv_file_magic_cmd='$OBJDUMP -f' ;; darwin* | rhapsody*) lt_cv_deplibs_check_method=pass_all ;; freebsd* | dragonfly*) if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then case $host_cpu in i*86 ) # Not sure whether the presence of OpenBSD here was a mistake. # Let's accept both of them until this is cleared up. lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD|DragonFly)/i[3-9]86 (compact )?demand paged shared library' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*` ;; esac else lt_cv_deplibs_check_method=pass_all fi ;; gnu*) lt_cv_deplibs_check_method=pass_all ;; haiku*) lt_cv_deplibs_check_method=pass_all ;; hpux10.20* | hpux11*) lt_cv_file_magic_cmd=/usr/bin/file case $host_cpu in ia64*) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF-[0-9][0-9]) shared object file - IA64' lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so ;; hppa*64*) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF[ -][0-9][0-9])(-bit)?( [LM]SB)? shared object( file)?[, -]* PA-RISC [0-9]\.[0-9]' lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl ;; *) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|PA-RISC[0-9]\.[0-9]) shared library' lt_cv_file_magic_test_file=/usr/lib/libc.sl ;; esac ;; interix[3-9]*) # PIC code is broken on Interix 3.x, that's why |\.a not |_pic\.a here lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|\.a)$' ;; irix5* | irix6* | nonstopux*) case $LD in *-32|*"-32 ") libmagic=32-bit;; *-n32|*"-n32 ") libmagic=N32;; *-64|*"-64 ") libmagic=64-bit;; *) libmagic=never-match;; esac lt_cv_deplibs_check_method=pass_all ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu) lt_cv_deplibs_check_method=pass_all ;; netbsd*) if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|_pic\.a)$' fi ;; newos6*) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (executable|dynamic lib)' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=/usr/lib/libnls.so ;; *nto* | *qnx*) lt_cv_deplibs_check_method=pass_all ;; openbsd*) if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|\.so|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$' fi ;; osf3* | osf4* | osf5*) lt_cv_deplibs_check_method=pass_all ;; rdos*) lt_cv_deplibs_check_method=pass_all ;; solaris*) lt_cv_deplibs_check_method=pass_all ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) lt_cv_deplibs_check_method=pass_all ;; sysv4 | sysv4.3*) case $host_vendor in motorola) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib) M[0-9][0-9]* Version [0-9]' lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*` ;; ncr) lt_cv_deplibs_check_method=pass_all ;; sequent) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [LM]SB (shared object|dynamic lib )' ;; sni) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method="file_magic ELF [0-9][0-9]*-bit [LM]SB dynamic lib" lt_cv_file_magic_test_file=/lib/libc.so ;; siemens) lt_cv_deplibs_check_method=pass_all ;; pc) lt_cv_deplibs_check_method=pass_all ;; esac ;; tpf*) lt_cv_deplibs_check_method=pass_all ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_deplibs_check_method" >&5 $as_echo "$lt_cv_deplibs_check_method" >&6; } file_magic_glob= want_nocaseglob=no if test "$build" = "$host"; then case $host_os in mingw* | pw32*) if ( shopt | grep nocaseglob ) >/dev/null 2>&1; then want_nocaseglob=yes else file_magic_glob=`echo aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ | $SED -e "s/\(..\)/s\/[\1]\/[\1]\/g;/g"` fi ;; esac fi file_magic_cmd=$lt_cv_file_magic_cmd deplibs_check_method=$lt_cv_deplibs_check_method test -z "$deplibs_check_method" && deplibs_check_method=unknown if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}dlltool", so it can be a program name with args. set dummy ${ac_tool_prefix}dlltool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_DLLTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$DLLTOOL"; then ac_cv_prog_DLLTOOL="$DLLTOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_DLLTOOL="${ac_tool_prefix}dlltool" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi DLLTOOL=$ac_cv_prog_DLLTOOL if test -n "$DLLTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DLLTOOL" >&5 $as_echo "$DLLTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_DLLTOOL"; then ac_ct_DLLTOOL=$DLLTOOL # Extract the first word of "dlltool", so it can be a program name with args. set dummy dlltool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_DLLTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_DLLTOOL"; then ac_cv_prog_ac_ct_DLLTOOL="$ac_ct_DLLTOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_DLLTOOL="dlltool" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_DLLTOOL=$ac_cv_prog_ac_ct_DLLTOOL if test -n "$ac_ct_DLLTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DLLTOOL" >&5 $as_echo "$ac_ct_DLLTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_DLLTOOL" = x; then DLLTOOL="false" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac DLLTOOL=$ac_ct_DLLTOOL fi else DLLTOOL="$ac_cv_prog_DLLTOOL" fi test -z "$DLLTOOL" && DLLTOOL=dlltool { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to associate runtime and link libraries" >&5 $as_echo_n "checking how to associate runtime and link libraries... " >&6; } if ${lt_cv_sharedlib_from_linklib_cmd+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_sharedlib_from_linklib_cmd='unknown' case $host_os in cygwin* | mingw* | pw32* | cegcc*) # two different shell functions defined in ltmain.sh # decide which to use based on capabilities of $DLLTOOL case `$DLLTOOL --help 2>&1` in *--identify-strict*) lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib ;; *) lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib_fallback ;; esac ;; *) # fallback: assume linklib IS sharedlib lt_cv_sharedlib_from_linklib_cmd="$ECHO" ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sharedlib_from_linklib_cmd" >&5 $as_echo "$lt_cv_sharedlib_from_linklib_cmd" >&6; } sharedlib_from_linklib_cmd=$lt_cv_sharedlib_from_linklib_cmd test -z "$sharedlib_from_linklib_cmd" && sharedlib_from_linklib_cmd=$ECHO if test -n "$ac_tool_prefix"; then for ac_prog in ar do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_AR+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$AR"; then ac_cv_prog_AR="$AR" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_AR="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi AR=$ac_cv_prog_AR if test -n "$AR"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AR" >&5 $as_echo "$AR" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$AR" && break done fi if test -z "$AR"; then ac_ct_AR=$AR for ac_prog in ar do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_AR+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_AR"; then ac_cv_prog_ac_ct_AR="$ac_ct_AR" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_AR="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_AR=$ac_cv_prog_ac_ct_AR if test -n "$ac_ct_AR"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_AR" >&5 $as_echo "$ac_ct_AR" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_AR" && break done if test "x$ac_ct_AR" = x; then AR="false" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac AR=$ac_ct_AR fi fi : ${AR=ar} : ${AR_FLAGS=cru} { $as_echo "$as_me:${as_lineno-$LINENO}: checking for archiver @FILE support" >&5 $as_echo_n "checking for archiver @FILE support... " >&6; } if ${lt_cv_ar_at_file+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ar_at_file=no cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : echo conftest.$ac_objext > conftest.lst lt_ar_try='$AR $AR_FLAGS libconftest.a @conftest.lst >&5' { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$lt_ar_try\""; } >&5 (eval $lt_ar_try) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } if test "$ac_status" -eq 0; then # Ensure the archiver fails upon bogus file names. rm -f conftest.$ac_objext libconftest.a { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$lt_ar_try\""; } >&5 (eval $lt_ar_try) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } if test "$ac_status" -ne 0; then lt_cv_ar_at_file=@ fi fi rm -f conftest.* libconftest.a fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ar_at_file" >&5 $as_echo "$lt_cv_ar_at_file" >&6; } if test "x$lt_cv_ar_at_file" = xno; then archiver_list_spec= else archiver_list_spec=$lt_cv_ar_at_file fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args. set dummy ${ac_tool_prefix}strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$STRIP"; then ac_cv_prog_STRIP="$STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_STRIP="${ac_tool_prefix}strip" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi STRIP=$ac_cv_prog_STRIP if test -n "$STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5 $as_echo "$STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_STRIP"; then ac_ct_STRIP=$STRIP # Extract the first word of "strip", so it can be a program name with args. set dummy strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_STRIP"; then ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_STRIP="strip" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP if test -n "$ac_ct_STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5 $as_echo "$ac_ct_STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_STRIP" = x; then STRIP=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac STRIP=$ac_ct_STRIP fi else STRIP="$ac_cv_prog_STRIP" fi test -z "$STRIP" && STRIP=: if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args. set dummy ${ac_tool_prefix}ranlib; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_RANLIB+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$RANLIB"; then ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi RANLIB=$ac_cv_prog_RANLIB if test -n "$RANLIB"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5 $as_echo "$RANLIB" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_RANLIB"; then ac_ct_RANLIB=$RANLIB # Extract the first word of "ranlib", so it can be a program name with args. set dummy ranlib; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_RANLIB+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_RANLIB"; then ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_RANLIB="ranlib" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB if test -n "$ac_ct_RANLIB"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5 $as_echo "$ac_ct_RANLIB" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_RANLIB" = x; then RANLIB=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac RANLIB=$ac_ct_RANLIB fi else RANLIB="$ac_cv_prog_RANLIB" fi test -z "$RANLIB" && RANLIB=: # Determine commands to create old-style static archives. old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs' old_postinstall_cmds='chmod 644 $oldlib' old_postuninstall_cmds= if test -n "$RANLIB"; then case $host_os in openbsd*) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB -t \$tool_oldlib" ;; *) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$tool_oldlib" ;; esac old_archive_cmds="$old_archive_cmds~\$RANLIB \$tool_oldlib" fi case $host_os in darwin*) lock_old_archive_extraction=yes ;; *) lock_old_archive_extraction=no ;; esac # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC # Check for command to grab the raw symbol name followed by C symbol from nm. { $as_echo "$as_me:${as_lineno-$LINENO}: checking command to parse $NM output from $compiler object" >&5 $as_echo_n "checking command to parse $NM output from $compiler object... " >&6; } if ${lt_cv_sys_global_symbol_pipe+:} false; then : $as_echo_n "(cached) " >&6 else # These are sane defaults that work on at least a few old systems. # [They come from Ultrix. What could be older than Ultrix?!! ;)] # Character class describing NM global symbol codes. symcode='[BCDEGRST]' # Regexp to match symbols that can be accessed directly from C. sympat='\([_A-Za-z][_A-Za-z0-9]*\)' # Define system-specific variables. case $host_os in aix*) symcode='[BCDT]' ;; cygwin* | mingw* | pw32* | cegcc*) symcode='[ABCDGISTW]' ;; hpux*) if test "$host_cpu" = ia64; then symcode='[ABCDEGRST]' fi ;; irix* | nonstopux*) symcode='[BCDEGRST]' ;; osf*) symcode='[BCDEGQRST]' ;; solaris*) symcode='[BDRT]' ;; sco3.2v5*) symcode='[DT]' ;; sysv4.2uw2*) symcode='[DT]' ;; sysv5* | sco5v6* | unixware* | OpenUNIX*) symcode='[ABDT]' ;; sysv4) symcode='[DFNSTU]' ;; esac # If we're using GNU nm, then use its standard symbol codes. case `$NM -V 2>&1` in *GNU* | *'with BFD'*) symcode='[ABCDGIRSTW]' ;; esac # Transform an extracted symbol line into a proper C declaration. # Some systems (esp. on ia64) link data and code symbols differently, # so use this general approach. lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'" # Transform an extracted symbol line into symbol name and symbol address lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([^ ]*\)[ ]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([^ ]*\) \([^ ]*\)$/ {\"\2\", (void *) \&\2},/p'" lt_cv_sys_global_symbol_to_c_name_address_lib_prefix="sed -n -e 's/^: \([^ ]*\)[ ]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([^ ]*\) \(lib[^ ]*\)$/ {\"\2\", (void *) \&\2},/p' -e 's/^$symcode* \([^ ]*\) \([^ ]*\)$/ {\"lib\2\", (void *) \&\2},/p'" # Handle CRLF in mingw tool chain opt_cr= case $build_os in mingw*) opt_cr=`$ECHO 'x\{0,1\}' | tr x '\015'` # option cr in regexp ;; esac # Try without a prefix underscore, then with it. for ac_symprfx in "" "_"; do # Transform symcode, sympat, and symprfx into a raw symbol and a C symbol. symxfrm="\\1 $ac_symprfx\\2 \\2" # Write the raw and C identifiers. if test "$lt_cv_nm_interface" = "MS dumpbin"; then # Fake it for dumpbin and say T for any non-static function # and D for any global variable. # Also find C++ and __fastcall symbols from MSVC++, # which start with @ or ?. lt_cv_sys_global_symbol_pipe="$AWK '"\ " {last_section=section; section=\$ 3};"\ " /^COFF SYMBOL TABLE/{for(i in hide) delete hide[i]};"\ " /Section length .*#relocs.*(pick any)/{hide[last_section]=1};"\ " \$ 0!~/External *\|/{next};"\ " / 0+ UNDEF /{next}; / UNDEF \([^|]\)*()/{next};"\ " {if(hide[section]) next};"\ " {f=0}; \$ 0~/\(\).*\|/{f=1}; {printf f ? \"T \" : \"D \"};"\ " {split(\$ 0, a, /\||\r/); split(a[2], s)};"\ " s[1]~/^[@?]/{print s[1], s[1]; next};"\ " s[1]~prfx {split(s[1],t,\"@\"); print t[1], substr(t[1],length(prfx))}"\ " ' prfx=^$ac_symprfx" else lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[ ]\($symcode$symcode*\)[ ][ ]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'" fi lt_cv_sys_global_symbol_pipe="$lt_cv_sys_global_symbol_pipe | sed '/ __gnu_lto/d'" # Check to see that the pipe works correctly. pipe_works=no rm -f conftest* cat > conftest.$ac_ext <<_LT_EOF #ifdef __cplusplus extern "C" { #endif char nm_test_var; void nm_test_func(void); void nm_test_func(void){} #ifdef __cplusplus } #endif int main(){nm_test_var='a';nm_test_func();return(0);} _LT_EOF if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then # Now try to grab the symbols. nlist=conftest.nm if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist\""; } >&5 (eval $NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s "$nlist"; then # Try sorting and uniquifying the output. if sort "$nlist" | uniq > "$nlist"T; then mv -f "$nlist"T "$nlist" else rm -f "$nlist"T fi # Make sure that we snagged all the symbols we need. if $GREP ' nm_test_var$' "$nlist" >/dev/null; then if $GREP ' nm_test_func$' "$nlist" >/dev/null; then cat <<_LT_EOF > conftest.$ac_ext /* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */ #if defined(_WIN32) || defined(__CYGWIN__) || defined(_WIN32_WCE) /* DATA imports from DLLs on WIN32 con't be const, because runtime relocations are performed -- see ld's documentation on pseudo-relocs. */ # define LT_DLSYM_CONST #elif defined(__osf__) /* This system does not cope well with relocations in const data. */ # define LT_DLSYM_CONST #else # define LT_DLSYM_CONST const #endif #ifdef __cplusplus extern "C" { #endif _LT_EOF # Now generate the symbol file. eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | $GREP -v main >> conftest.$ac_ext' cat <<_LT_EOF >> conftest.$ac_ext /* The mapping between symbol names and symbols. */ LT_DLSYM_CONST struct { const char *name; void *address; } lt__PROGRAM__LTX_preloaded_symbols[] = { { "@PROGRAM@", (void *) 0 }, _LT_EOF $SED "s/^$symcode$symcode* \(.*\) \(.*\)$/ {\"\2\", (void *) \&\2},/" < "$nlist" | $GREP -v main >> conftest.$ac_ext cat <<\_LT_EOF >> conftest.$ac_ext {0, (void *) 0} }; /* This works around a problem in FreeBSD linker */ #ifdef FREEBSD_WORKAROUND static const void *lt_preloaded_setup() { return lt__PROGRAM__LTX_preloaded_symbols; } #endif #ifdef __cplusplus } #endif _LT_EOF # Now try linking the two files. mv conftest.$ac_objext conftstm.$ac_objext lt_globsym_save_LIBS=$LIBS lt_globsym_save_CFLAGS=$CFLAGS LIBS="conftstm.$ac_objext" CFLAGS="$CFLAGS$lt_prog_compiler_no_builtin_flag" if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s conftest${ac_exeext}; then pipe_works=yes fi LIBS=$lt_globsym_save_LIBS CFLAGS=$lt_globsym_save_CFLAGS else echo "cannot find nm_test_func in $nlist" >&5 fi else echo "cannot find nm_test_var in $nlist" >&5 fi else echo "cannot run $lt_cv_sys_global_symbol_pipe" >&5 fi else echo "$progname: failed program was:" >&5 cat conftest.$ac_ext >&5 fi rm -rf conftest* conftst* # Do not use the global_symbol_pipe unless it works. if test "$pipe_works" = yes; then break else lt_cv_sys_global_symbol_pipe= fi done fi if test -z "$lt_cv_sys_global_symbol_pipe"; then lt_cv_sys_global_symbol_to_cdecl= fi if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: failed" >&5 $as_echo "failed" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: ok" >&5 $as_echo "ok" >&6; } fi # Response file support. if test "$lt_cv_nm_interface" = "MS dumpbin"; then nm_file_list_spec='@' elif $NM --help 2>/dev/null | grep '[@]FILE' >/dev/null; then nm_file_list_spec='@' fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sysroot" >&5 $as_echo_n "checking for sysroot... " >&6; } # Check whether --with-sysroot was given. if test "${with_sysroot+set}" = set; then : withval=$with_sysroot; else with_sysroot=no fi lt_sysroot= case ${with_sysroot} in #( yes) if test "$GCC" = yes; then lt_sysroot=`$CC --print-sysroot 2>/dev/null` fi ;; #( /*) lt_sysroot=`echo "$with_sysroot" | sed -e "$sed_quote_subst"` ;; #( no|'') ;; #( *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${with_sysroot}" >&5 $as_echo "${with_sysroot}" >&6; } as_fn_error $? "The sysroot must be an absolute path." "$LINENO" 5 ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${lt_sysroot:-no}" >&5 $as_echo "${lt_sysroot:-no}" >&6; } # Check whether --enable-libtool-lock was given. if test "${enable_libtool_lock+set}" = set; then : enableval=$enable_libtool_lock; fi test "x$enable_libtool_lock" != xno && enable_libtool_lock=yes # Some flags need to be propagated to the compiler or linker for good # libtool support. case $host in ia64-*-hpux*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then case `/usr/bin/file conftest.$ac_objext` in *ELF-32*) HPUX_IA64_MODE="32" ;; *ELF-64*) HPUX_IA64_MODE="64" ;; esac fi rm -rf conftest* ;; *-*-irix6*) # Find out which ABI we are using. echo '#line '$LINENO' "configure"' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then if test "$lt_cv_prog_gnu_ld" = yes; then case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -melf32bsmip" ;; *N32*) LD="${LD-ld} -melf32bmipn32" ;; *64-bit*) LD="${LD-ld} -melf64bmip" ;; esac else case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -32" ;; *N32*) LD="${LD-ld} -n32" ;; *64-bit*) LD="${LD-ld} -64" ;; esac fi fi rm -rf conftest* ;; x86_64-*kfreebsd*-gnu|x86_64-*linux*|ppc*-*linux*|powerpc*-*linux*| \ s390*-*linux*|s390*-*tpf*|sparc*-*linux*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then case `/usr/bin/file conftest.o` in *32-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_i386_fbsd" ;; x86_64-*linux*) LD="${LD-ld} -m elf_i386" ;; ppc64-*linux*|powerpc64-*linux*) LD="${LD-ld} -m elf32ppclinux" ;; s390x-*linux*) LD="${LD-ld} -m elf_s390" ;; sparc64-*linux*) LD="${LD-ld} -m elf32_sparc" ;; esac ;; *64-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_x86_64_fbsd" ;; x86_64-*linux*) LD="${LD-ld} -m elf_x86_64" ;; ppc*-*linux*|powerpc*-*linux*) LD="${LD-ld} -m elf64ppc" ;; s390*-*linux*|s390*-*tpf*) LD="${LD-ld} -m elf64_s390" ;; sparc*-*linux*) LD="${LD-ld} -m elf64_sparc" ;; esac ;; esac fi rm -rf conftest* ;; *-*-sco3.2v5*) # On SCO OpenServer 5, we need -belf to get full-featured binaries. SAVE_CFLAGS="$CFLAGS" CFLAGS="$CFLAGS -belf" { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler needs -belf" >&5 $as_echo_n "checking whether the C compiler needs -belf... " >&6; } if ${lt_cv_cc_needs_belf+:} false; then : $as_echo_n "(cached) " >&6 else ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_cv_cc_needs_belf=yes else lt_cv_cc_needs_belf=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_cc_needs_belf" >&5 $as_echo "$lt_cv_cc_needs_belf" >&6; } if test x"$lt_cv_cc_needs_belf" != x"yes"; then # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf CFLAGS="$SAVE_CFLAGS" fi ;; *-*solaris*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then case `/usr/bin/file conftest.o` in *64-bit*) case $lt_cv_prog_gnu_ld in yes*) case $host in i?86-*-solaris*) LD="${LD-ld} -m elf_x86_64" ;; sparc*-*-solaris*) LD="${LD-ld} -m elf64_sparc" ;; esac # GNU ld 2.21 introduced _sol2 emulations. Use them if available. if ${LD-ld} -V | grep _sol2 >/dev/null 2>&1; then LD="${LD-ld}_sol2" fi ;; *) if ${LD-ld} -64 -r -o conftest2.o conftest.o >/dev/null 2>&1; then LD="${LD-ld} -64" fi ;; esac ;; esac fi rm -rf conftest* ;; esac need_locks="$enable_libtool_lock" if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}mt", so it can be a program name with args. set dummy ${ac_tool_prefix}mt; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_MANIFEST_TOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$MANIFEST_TOOL"; then ac_cv_prog_MANIFEST_TOOL="$MANIFEST_TOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_MANIFEST_TOOL="${ac_tool_prefix}mt" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi MANIFEST_TOOL=$ac_cv_prog_MANIFEST_TOOL if test -n "$MANIFEST_TOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MANIFEST_TOOL" >&5 $as_echo "$MANIFEST_TOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_MANIFEST_TOOL"; then ac_ct_MANIFEST_TOOL=$MANIFEST_TOOL # Extract the first word of "mt", so it can be a program name with args. set dummy mt; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_MANIFEST_TOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_MANIFEST_TOOL"; then ac_cv_prog_ac_ct_MANIFEST_TOOL="$ac_ct_MANIFEST_TOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_MANIFEST_TOOL="mt" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_MANIFEST_TOOL=$ac_cv_prog_ac_ct_MANIFEST_TOOL if test -n "$ac_ct_MANIFEST_TOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_MANIFEST_TOOL" >&5 $as_echo "$ac_ct_MANIFEST_TOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_MANIFEST_TOOL" = x; then MANIFEST_TOOL=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac MANIFEST_TOOL=$ac_ct_MANIFEST_TOOL fi else MANIFEST_TOOL="$ac_cv_prog_MANIFEST_TOOL" fi test -z "$MANIFEST_TOOL" && MANIFEST_TOOL=mt { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $MANIFEST_TOOL is a manifest tool" >&5 $as_echo_n "checking if $MANIFEST_TOOL is a manifest tool... " >&6; } if ${lt_cv_path_mainfest_tool+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_path_mainfest_tool=no echo "$as_me:$LINENO: $MANIFEST_TOOL '-?'" >&5 $MANIFEST_TOOL '-?' 2>conftest.err > conftest.out cat conftest.err >&5 if $GREP 'Manifest Tool' conftest.out > /dev/null; then lt_cv_path_mainfest_tool=yes fi rm -f conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_mainfest_tool" >&5 $as_echo "$lt_cv_path_mainfest_tool" >&6; } if test "x$lt_cv_path_mainfest_tool" != xyes; then MANIFEST_TOOL=: fi case $host_os in rhapsody* | darwin*) if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}dsymutil", so it can be a program name with args. set dummy ${ac_tool_prefix}dsymutil; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_DSYMUTIL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$DSYMUTIL"; then ac_cv_prog_DSYMUTIL="$DSYMUTIL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_DSYMUTIL="${ac_tool_prefix}dsymutil" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi DSYMUTIL=$ac_cv_prog_DSYMUTIL if test -n "$DSYMUTIL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DSYMUTIL" >&5 $as_echo "$DSYMUTIL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_DSYMUTIL"; then ac_ct_DSYMUTIL=$DSYMUTIL # Extract the first word of "dsymutil", so it can be a program name with args. set dummy dsymutil; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_DSYMUTIL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_DSYMUTIL"; then ac_cv_prog_ac_ct_DSYMUTIL="$ac_ct_DSYMUTIL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_DSYMUTIL="dsymutil" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_DSYMUTIL=$ac_cv_prog_ac_ct_DSYMUTIL if test -n "$ac_ct_DSYMUTIL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DSYMUTIL" >&5 $as_echo "$ac_ct_DSYMUTIL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_DSYMUTIL" = x; then DSYMUTIL=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac DSYMUTIL=$ac_ct_DSYMUTIL fi else DSYMUTIL="$ac_cv_prog_DSYMUTIL" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}nmedit", so it can be a program name with args. set dummy ${ac_tool_prefix}nmedit; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_NMEDIT+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$NMEDIT"; then ac_cv_prog_NMEDIT="$NMEDIT" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_NMEDIT="${ac_tool_prefix}nmedit" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi NMEDIT=$ac_cv_prog_NMEDIT if test -n "$NMEDIT"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $NMEDIT" >&5 $as_echo "$NMEDIT" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_NMEDIT"; then ac_ct_NMEDIT=$NMEDIT # Extract the first word of "nmedit", so it can be a program name with args. set dummy nmedit; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_NMEDIT+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_NMEDIT"; then ac_cv_prog_ac_ct_NMEDIT="$ac_ct_NMEDIT" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_NMEDIT="nmedit" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_NMEDIT=$ac_cv_prog_ac_ct_NMEDIT if test -n "$ac_ct_NMEDIT"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_NMEDIT" >&5 $as_echo "$ac_ct_NMEDIT" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_NMEDIT" = x; then NMEDIT=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac NMEDIT=$ac_ct_NMEDIT fi else NMEDIT="$ac_cv_prog_NMEDIT" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}lipo", so it can be a program name with args. set dummy ${ac_tool_prefix}lipo; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_LIPO+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$LIPO"; then ac_cv_prog_LIPO="$LIPO" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_LIPO="${ac_tool_prefix}lipo" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi LIPO=$ac_cv_prog_LIPO if test -n "$LIPO"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LIPO" >&5 $as_echo "$LIPO" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_LIPO"; then ac_ct_LIPO=$LIPO # Extract the first word of "lipo", so it can be a program name with args. set dummy lipo; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_LIPO+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_LIPO"; then ac_cv_prog_ac_ct_LIPO="$ac_ct_LIPO" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_LIPO="lipo" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_LIPO=$ac_cv_prog_ac_ct_LIPO if test -n "$ac_ct_LIPO"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_LIPO" >&5 $as_echo "$ac_ct_LIPO" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_LIPO" = x; then LIPO=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac LIPO=$ac_ct_LIPO fi else LIPO="$ac_cv_prog_LIPO" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}otool", so it can be a program name with args. set dummy ${ac_tool_prefix}otool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_OTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$OTOOL"; then ac_cv_prog_OTOOL="$OTOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_OTOOL="${ac_tool_prefix}otool" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi OTOOL=$ac_cv_prog_OTOOL if test -n "$OTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OTOOL" >&5 $as_echo "$OTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_OTOOL"; then ac_ct_OTOOL=$OTOOL # Extract the first word of "otool", so it can be a program name with args. set dummy otool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_OTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_OTOOL"; then ac_cv_prog_ac_ct_OTOOL="$ac_ct_OTOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_OTOOL="otool" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_OTOOL=$ac_cv_prog_ac_ct_OTOOL if test -n "$ac_ct_OTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL" >&5 $as_echo "$ac_ct_OTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_OTOOL" = x; then OTOOL=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac OTOOL=$ac_ct_OTOOL fi else OTOOL="$ac_cv_prog_OTOOL" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}otool64", so it can be a program name with args. set dummy ${ac_tool_prefix}otool64; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_OTOOL64+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$OTOOL64"; then ac_cv_prog_OTOOL64="$OTOOL64" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_OTOOL64="${ac_tool_prefix}otool64" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi OTOOL64=$ac_cv_prog_OTOOL64 if test -n "$OTOOL64"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OTOOL64" >&5 $as_echo "$OTOOL64" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_OTOOL64"; then ac_ct_OTOOL64=$OTOOL64 # Extract the first word of "otool64", so it can be a program name with args. set dummy otool64; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_OTOOL64+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_OTOOL64"; then ac_cv_prog_ac_ct_OTOOL64="$ac_ct_OTOOL64" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_OTOOL64="otool64" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_OTOOL64=$ac_cv_prog_ac_ct_OTOOL64 if test -n "$ac_ct_OTOOL64"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL64" >&5 $as_echo "$ac_ct_OTOOL64" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_OTOOL64" = x; then OTOOL64=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac OTOOL64=$ac_ct_OTOOL64 fi else OTOOL64="$ac_cv_prog_OTOOL64" fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -single_module linker flag" >&5 $as_echo_n "checking for -single_module linker flag... " >&6; } if ${lt_cv_apple_cc_single_mod+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_apple_cc_single_mod=no if test -z "${LT_MULTI_MODULE}"; then # By default we will add the -single_module flag. You can override # by either setting the environment variable LT_MULTI_MODULE # non-empty at configure time, or by adding -multi_module to the # link flags. rm -rf libconftest.dylib* echo "int foo(void){return 1;}" > conftest.c echo "$LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib -Wl,-single_module conftest.c" >&5 $LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib -Wl,-single_module conftest.c 2>conftest.err _lt_result=$? # If there is a non-empty error log, and "single_module" # appears in it, assume the flag caused a linker warning if test -s conftest.err && $GREP single_module conftest.err; then cat conftest.err >&5 # Otherwise, if the output was created with a 0 exit code from # the compiler, it worked. elif test -f libconftest.dylib && test $_lt_result -eq 0; then lt_cv_apple_cc_single_mod=yes else cat conftest.err >&5 fi rm -rf libconftest.dylib* rm -f conftest.* fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_apple_cc_single_mod" >&5 $as_echo "$lt_cv_apple_cc_single_mod" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -exported_symbols_list linker flag" >&5 $as_echo_n "checking for -exported_symbols_list linker flag... " >&6; } if ${lt_cv_ld_exported_symbols_list+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ld_exported_symbols_list=no save_LDFLAGS=$LDFLAGS echo "_main" > conftest.sym LDFLAGS="$LDFLAGS -Wl,-exported_symbols_list,conftest.sym" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_cv_ld_exported_symbols_list=yes else lt_cv_ld_exported_symbols_list=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LDFLAGS="$save_LDFLAGS" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_exported_symbols_list" >&5 $as_echo "$lt_cv_ld_exported_symbols_list" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -force_load linker flag" >&5 $as_echo_n "checking for -force_load linker flag... " >&6; } if ${lt_cv_ld_force_load+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ld_force_load=no cat > conftest.c << _LT_EOF int forced_loaded() { return 2;} _LT_EOF echo "$LTCC $LTCFLAGS -c -o conftest.o conftest.c" >&5 $LTCC $LTCFLAGS -c -o conftest.o conftest.c 2>&5 echo "$AR cru libconftest.a conftest.o" >&5 $AR cru libconftest.a conftest.o 2>&5 echo "$RANLIB libconftest.a" >&5 $RANLIB libconftest.a 2>&5 cat > conftest.c << _LT_EOF int main() { return 0;} _LT_EOF echo "$LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a" >&5 $LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a 2>conftest.err _lt_result=$? if test -s conftest.err && $GREP force_load conftest.err; then cat conftest.err >&5 elif test -f conftest && test $_lt_result -eq 0 && $GREP forced_load conftest >/dev/null 2>&1 ; then lt_cv_ld_force_load=yes else cat conftest.err >&5 fi rm -f conftest.err libconftest.a conftest conftest.c rm -rf conftest.dSYM fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_force_load" >&5 $as_echo "$lt_cv_ld_force_load" >&6; } case $host_os in rhapsody* | darwin1.[012]) _lt_dar_allow_undefined='${wl}-undefined ${wl}suppress' ;; darwin1.*) _lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;; darwin*) # darwin 5.x on # if running on 10.5 or later, the deployment target defaults # to the OS version, if on x86, and 10.4, the deployment # target defaults to 10.4. Don't you love it? case ${MACOSX_DEPLOYMENT_TARGET-10.0},$host in 10.0,*86*-darwin8*|10.0,*-darwin[91]*) _lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;; 10.[012]*) _lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;; 10.*) _lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;; esac ;; esac if test "$lt_cv_apple_cc_single_mod" = "yes"; then _lt_dar_single_mod='$single_module' fi if test "$lt_cv_ld_exported_symbols_list" = "yes"; then _lt_dar_export_syms=' ${wl}-exported_symbols_list,$output_objdir/${libname}-symbols.expsym' else _lt_dar_export_syms='~$NMEDIT -s $output_objdir/${libname}-symbols.expsym ${lib}' fi if test "$DSYMUTIL" != ":" && test "$lt_cv_ld_force_load" = "no"; then _lt_dsymutil='~$DSYMUTIL $lib || :' else _lt_dsymutil= fi ;; esac for ac_header in dlfcn.h do : ac_fn_c_check_header_compile "$LINENO" "dlfcn.h" "ac_cv_header_dlfcn_h" "$ac_includes_default " if test "x$ac_cv_header_dlfcn_h" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_DLFCN_H 1 _ACEOF fi done func_stripname_cnf () { case ${2} in .*) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%\\\\${2}\$%%"`;; *) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%${2}\$%%"`;; esac } # func_stripname_cnf # Set options enable_dlopen=no enable_win32_dll=no # Check whether --enable-shared was given. if test "${enable_shared+set}" = set; then : enableval=$enable_shared; p=${PACKAGE-default} case $enableval in yes) enable_shared=yes ;; no) enable_shared=no ;; *) enable_shared=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_shared=yes fi done IFS="$lt_save_ifs" ;; esac else enable_shared=yes fi # Check whether --enable-static was given. if test "${enable_static+set}" = set; then : enableval=$enable_static; p=${PACKAGE-default} case $enableval in yes) enable_static=yes ;; no) enable_static=no ;; *) enable_static=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_static=yes fi done IFS="$lt_save_ifs" ;; esac else enable_static=yes fi # Check whether --with-pic was given. if test "${with_pic+set}" = set; then : withval=$with_pic; lt_p=${PACKAGE-default} case $withval in yes|no) pic_mode=$withval ;; *) pic_mode=default # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for lt_pkg in $withval; do IFS="$lt_save_ifs" if test "X$lt_pkg" = "X$lt_p"; then pic_mode=yes fi done IFS="$lt_save_ifs" ;; esac else pic_mode=default fi test -z "$pic_mode" && pic_mode=default # Check whether --enable-fast-install was given. if test "${enable_fast_install+set}" = set; then : enableval=$enable_fast_install; p=${PACKAGE-default} case $enableval in yes) enable_fast_install=yes ;; no) enable_fast_install=no ;; *) enable_fast_install=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_fast_install=yes fi done IFS="$lt_save_ifs" ;; esac else enable_fast_install=yes fi # This can be used to rebuild libtool when needed LIBTOOL_DEPS="$ltmain" # Always use our own libtool. LIBTOOL='$(SHELL) $(top_builddir)/libtool' test -z "$LN_S" && LN_S="ln -s" if test -n "${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for objdir" >&5 $as_echo_n "checking for objdir... " >&6; } if ${lt_cv_objdir+:} false; then : $as_echo_n "(cached) " >&6 else rm -f .libs 2>/dev/null mkdir .libs 2>/dev/null if test -d .libs; then lt_cv_objdir=.libs else # MS-DOS does not allow filenames that begin with a dot. lt_cv_objdir=_libs fi rmdir .libs 2>/dev/null fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_objdir" >&5 $as_echo "$lt_cv_objdir" >&6; } objdir=$lt_cv_objdir cat >>confdefs.h <<_ACEOF #define LT_OBJDIR "$lt_cv_objdir/" _ACEOF case $host_os in aix3*) # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test "X${COLLECT_NAMES+set}" != Xset; then COLLECT_NAMES= export COLLECT_NAMES fi ;; esac # Global variables: ofile=libtool can_build_shared=yes # All known linkers require a `.a' archive for static linking (except MSVC, # which needs '.lib'). libext=a with_gnu_ld="$lt_cv_prog_gnu_ld" old_CC="$CC" old_CFLAGS="$CFLAGS" # Set sane defaults for various variables test -z "$CC" && CC=cc test -z "$LTCC" && LTCC=$CC test -z "$LTCFLAGS" && LTCFLAGS=$CFLAGS test -z "$LD" && LD=ld test -z "$ac_objext" && ac_objext=o for cc_temp in $compiler""; do case $cc_temp in compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` # Only perform the check for file, if the check method requires it test -z "$MAGIC_CMD" && MAGIC_CMD=file case $deplibs_check_method in file_magic*) if test "$file_magic_cmd" = '$MAGIC_CMD'; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ${ac_tool_prefix}file" >&5 $as_echo_n "checking for ${ac_tool_prefix}file... " >&6; } if ${lt_cv_path_MAGIC_CMD+:} false; then : $as_echo_n "(cached) " >&6 else case $MAGIC_CMD in [\\/*] | ?:[\\/]*) lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path. ;; *) lt_save_MAGIC_CMD="$MAGIC_CMD" lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR ac_dummy="/usr/bin$PATH_SEPARATOR$PATH" for ac_dir in $ac_dummy; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/${ac_tool_prefix}file; then lt_cv_path_MAGIC_CMD="$ac_dir/${ac_tool_prefix}file" if test -n "$file_magic_test_file"; then case $deplibs_check_method in "file_magic "*) file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"` MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | $EGREP "$file_magic_regex" > /dev/null; then : else cat <<_LT_EOF 1>&2 *** Warning: the command libtool uses to detect shared libraries, *** $file_magic_cmd, produces output that libtool cannot recognize. *** The result is that libtool may fail to recognize shared libraries *** as such. This will affect the creation of libtool libraries that *** depend on shared libraries, but programs linked with such libtool *** libraries will work regardless of this problem. Nevertheless, you *** may want to report the problem to your system manager and/or to *** bug-libtool@gnu.org _LT_EOF fi ;; esac fi break fi done IFS="$lt_save_ifs" MAGIC_CMD="$lt_save_MAGIC_CMD" ;; esac fi MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if test -n "$MAGIC_CMD"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5 $as_echo "$MAGIC_CMD" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test -z "$lt_cv_path_MAGIC_CMD"; then if test -n "$ac_tool_prefix"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for file" >&5 $as_echo_n "checking for file... " >&6; } if ${lt_cv_path_MAGIC_CMD+:} false; then : $as_echo_n "(cached) " >&6 else case $MAGIC_CMD in [\\/*] | ?:[\\/]*) lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path. ;; *) lt_save_MAGIC_CMD="$MAGIC_CMD" lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR ac_dummy="/usr/bin$PATH_SEPARATOR$PATH" for ac_dir in $ac_dummy; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/file; then lt_cv_path_MAGIC_CMD="$ac_dir/file" if test -n "$file_magic_test_file"; then case $deplibs_check_method in "file_magic "*) file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"` MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | $EGREP "$file_magic_regex" > /dev/null; then : else cat <<_LT_EOF 1>&2 *** Warning: the command libtool uses to detect shared libraries, *** $file_magic_cmd, produces output that libtool cannot recognize. *** The result is that libtool may fail to recognize shared libraries *** as such. This will affect the creation of libtool libraries that *** depend on shared libraries, but programs linked with such libtool *** libraries will work regardless of this problem. Nevertheless, you *** may want to report the problem to your system manager and/or to *** bug-libtool@gnu.org _LT_EOF fi ;; esac fi break fi done IFS="$lt_save_ifs" MAGIC_CMD="$lt_save_MAGIC_CMD" ;; esac fi MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if test -n "$MAGIC_CMD"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5 $as_echo "$MAGIC_CMD" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi else MAGIC_CMD=: fi fi fi ;; esac # Use C for the default configuration in the libtool script lt_save_CC="$CC" ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu # Source file extension for C test sources. ac_ext=c # Object file extension for compiled C test sources. objext=o objext=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="int some_variable = 0;" # Code to be used in simple link tests lt_simple_link_test_code='int main(){return(0);}' # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC # Save the default compiler, since it gets overwritten when the other # tags are being tested, and _LT_TAGVAR(compiler, []) is a NOP. compiler_DEFAULT=$CC # save warnings/boilerplate of simple test code ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" >conftest.$ac_ext eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_compiler_boilerplate=`cat conftest.err` $RM conftest* ac_outfile=conftest.$ac_objext echo "$lt_simple_link_test_code" >conftest.$ac_ext eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_linker_boilerplate=`cat conftest.err` $RM -r conftest* ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... if test -n "$compiler"; then lt_prog_compiler_no_builtin_flag= if test "$GCC" = yes; then case $cc_basename in nvcc*) lt_prog_compiler_no_builtin_flag=' -Xcompiler -fno-builtin' ;; *) lt_prog_compiler_no_builtin_flag=' -fno-builtin' ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -fno-rtti -fno-exceptions" >&5 $as_echo_n "checking if $compiler supports -fno-rtti -fno-exceptions... " >&6; } if ${lt_cv_prog_compiler_rtti_exceptions+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_rtti_exceptions=no ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-fno-rtti -fno-exceptions" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_rtti_exceptions=yes fi fi $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_rtti_exceptions" >&5 $as_echo "$lt_cv_prog_compiler_rtti_exceptions" >&6; } if test x"$lt_cv_prog_compiler_rtti_exceptions" = xyes; then lt_prog_compiler_no_builtin_flag="$lt_prog_compiler_no_builtin_flag -fno-rtti -fno-exceptions" else : fi fi lt_prog_compiler_wl= lt_prog_compiler_pic= lt_prog_compiler_static= if test "$GCC" = yes; then lt_prog_compiler_wl='-Wl,' lt_prog_compiler_static='-static' case $host_os in aix*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor lt_prog_compiler_static='-Bstatic' fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support lt_prog_compiler_pic='-fPIC' ;; m68k) # FIXME: we need at least 68020 code to build shared libraries, but # adding the `-m68020' flag to GCC prevents building anything better, # like `-m68040'. lt_prog_compiler_pic='-m68020 -resident32 -malways-restore-a4' ;; esac ;; beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) # PIC is the default for these OSes. ;; mingw* | cygwin* | pw32* | os2* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). # Although the cygwin gcc ignores -fPIC, still need this for old-style # (--disable-auto-import) libraries lt_prog_compiler_pic='-DDLL_EXPORT' ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files lt_prog_compiler_pic='-fno-common' ;; haiku*) # PIC is the default for Haiku. # The "-static" flag exists, but is broken. lt_prog_compiler_static= ;; hpux*) # PIC is the default for 64-bit PA HP-UX, but not for 32-bit # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag # sets the default TLS model and affects inlining. case $host_cpu in hppa*64*) # +Z the default ;; *) lt_prog_compiler_pic='-fPIC' ;; esac ;; interix[3-9]*) # Interix 3.x gcc -fpic/-fPIC options generate broken code. # Instead, we relocate shared libraries at runtime. ;; msdosdjgpp*) # Just because we use GCC doesn't mean we suddenly get shared libraries # on systems that don't support them. lt_prog_compiler_can_build_shared=no enable_shared=no ;; *nto* | *qnx*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. lt_prog_compiler_pic='-fPIC -shared' ;; sysv4*MP*) if test -d /usr/nec; then lt_prog_compiler_pic=-Kconform_pic fi ;; *) lt_prog_compiler_pic='-fPIC' ;; esac case $cc_basename in nvcc*) # Cuda Compiler Driver 2.2 lt_prog_compiler_wl='-Xlinker ' if test -n "$lt_prog_compiler_pic"; then lt_prog_compiler_pic="-Xcompiler $lt_prog_compiler_pic" fi ;; esac else # PORTME Check for flag to pass linker flags through the system compiler. case $host_os in aix*) lt_prog_compiler_wl='-Wl,' if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor lt_prog_compiler_static='-Bstatic' else lt_prog_compiler_static='-bnso -bI:/lib/syscalls.exp' fi ;; mingw* | cygwin* | pw32* | os2* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). lt_prog_compiler_pic='-DDLL_EXPORT' ;; hpux9* | hpux10* | hpux11*) lt_prog_compiler_wl='-Wl,' # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but # not for PA HP-UX. case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) lt_prog_compiler_pic='+Z' ;; esac # Is there a better lt_prog_compiler_static that works with the bundled CC? lt_prog_compiler_static='${wl}-a ${wl}archive' ;; irix5* | irix6* | nonstopux*) lt_prog_compiler_wl='-Wl,' # PIC (with -KPIC) is the default. lt_prog_compiler_static='-non_shared' ;; linux* | k*bsd*-gnu | kopensolaris*-gnu) case $cc_basename in # old Intel for x86_64 which still supported -KPIC. ecc*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-static' ;; # icc used to be incompatible with GCC. # ICC 10 doesn't accept -KPIC any more. icc* | ifort*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fPIC' lt_prog_compiler_static='-static' ;; # Lahey Fortran 8.1. lf95*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='--shared' lt_prog_compiler_static='--static' ;; nagfor*) # NAG Fortran compiler lt_prog_compiler_wl='-Wl,-Wl,,' lt_prog_compiler_pic='-PIC' lt_prog_compiler_static='-Bstatic' ;; pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*) # Portland Group compilers (*not* the Pentium gcc compiler, # which looks to be a dead project) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fpic' lt_prog_compiler_static='-Bstatic' ;; ccc*) lt_prog_compiler_wl='-Wl,' # All Alpha code is PIC. lt_prog_compiler_static='-non_shared' ;; xl* | bgxl* | bgf* | mpixl*) # IBM XL C 8.0/Fortran 10.1, 11.1 on PPC and BlueGene lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-qpic' lt_prog_compiler_static='-qstaticlink' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ Ceres\ Fortran* | *Sun*Fortran*\ [1-7].* | *Sun*Fortran*\ 8.[0-3]*) # Sun Fortran 8.3 passes all unrecognized flags to the linker lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' lt_prog_compiler_wl='' ;; *Sun\ F* | *Sun*Fortran*) lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' lt_prog_compiler_wl='-Qoption ld ' ;; *Sun\ C*) # Sun C 5.9 lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' lt_prog_compiler_wl='-Wl,' ;; *Intel*\ [CF]*Compiler*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fPIC' lt_prog_compiler_static='-static' ;; *Portland\ Group*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fpic' lt_prog_compiler_static='-Bstatic' ;; esac ;; esac ;; newsos6) lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' ;; *nto* | *qnx*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. lt_prog_compiler_pic='-fPIC -shared' ;; osf3* | osf4* | osf5*) lt_prog_compiler_wl='-Wl,' # All OSF/1 code is PIC. lt_prog_compiler_static='-non_shared' ;; rdos*) lt_prog_compiler_static='-non_shared' ;; solaris*) lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' case $cc_basename in f77* | f90* | f95* | sunf77* | sunf90* | sunf95*) lt_prog_compiler_wl='-Qoption ld ';; *) lt_prog_compiler_wl='-Wl,';; esac ;; sunos4*) lt_prog_compiler_wl='-Qoption ld ' lt_prog_compiler_pic='-PIC' lt_prog_compiler_static='-Bstatic' ;; sysv4 | sysv4.2uw2* | sysv4.3*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' ;; sysv4*MP*) if test -d /usr/nec ;then lt_prog_compiler_pic='-Kconform_pic' lt_prog_compiler_static='-Bstatic' fi ;; sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' ;; unicos*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_can_build_shared=no ;; uts4*) lt_prog_compiler_pic='-pic' lt_prog_compiler_static='-Bstatic' ;; *) lt_prog_compiler_can_build_shared=no ;; esac fi case $host_os in # For platforms which do not support PIC, -DPIC is meaningless: *djgpp*) lt_prog_compiler_pic= ;; *) lt_prog_compiler_pic="$lt_prog_compiler_pic -DPIC" ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $compiler option to produce PIC" >&5 $as_echo_n "checking for $compiler option to produce PIC... " >&6; } if ${lt_cv_prog_compiler_pic+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_pic=$lt_prog_compiler_pic fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic" >&5 $as_echo "$lt_cv_prog_compiler_pic" >&6; } lt_prog_compiler_pic=$lt_cv_prog_compiler_pic # # Check to make sure the PIC flag actually works. # if test -n "$lt_prog_compiler_pic"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic works" >&5 $as_echo_n "checking if $compiler PIC flag $lt_prog_compiler_pic works... " >&6; } if ${lt_cv_prog_compiler_pic_works+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_pic_works=no ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="$lt_prog_compiler_pic -DPIC" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_pic_works=yes fi fi $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_works" >&5 $as_echo "$lt_cv_prog_compiler_pic_works" >&6; } if test x"$lt_cv_prog_compiler_pic_works" = xyes; then case $lt_prog_compiler_pic in "" | " "*) ;; *) lt_prog_compiler_pic=" $lt_prog_compiler_pic" ;; esac else lt_prog_compiler_pic= lt_prog_compiler_can_build_shared=no fi fi # # Check to make sure the static flag actually works. # wl=$lt_prog_compiler_wl eval lt_tmp_static_flag=\"$lt_prog_compiler_static\" { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler static flag $lt_tmp_static_flag works" >&5 $as_echo_n "checking if $compiler static flag $lt_tmp_static_flag works... " >&6; } if ${lt_cv_prog_compiler_static_works+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_static_works=no save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS $lt_tmp_static_flag" echo "$lt_simple_link_test_code" > conftest.$ac_ext if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then # The linker can only warn and ignore the option if not recognized # So say no if there are warnings if test -s conftest.err; then # Append any errors to the config.log. cat conftest.err 1>&5 $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_static_works=yes fi else lt_cv_prog_compiler_static_works=yes fi fi $RM -r conftest* LDFLAGS="$save_LDFLAGS" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_static_works" >&5 $as_echo "$lt_cv_prog_compiler_static_works" >&6; } if test x"$lt_cv_prog_compiler_static_works" = xyes; then : else lt_prog_compiler_static= fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5 $as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; } if ${lt_cv_prog_compiler_c_o+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_c_o=no $RM -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then lt_cv_prog_compiler_c_o=yes fi fi chmod u+w . 2>&5 $RM conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files $RM out/* && rmdir out cd .. $RM -r conftest $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5 $as_echo "$lt_cv_prog_compiler_c_o" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5 $as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; } if ${lt_cv_prog_compiler_c_o+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_c_o=no $RM -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then lt_cv_prog_compiler_c_o=yes fi fi chmod u+w . 2>&5 $RM conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files $RM out/* && rmdir out cd .. $RM -r conftest $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5 $as_echo "$lt_cv_prog_compiler_c_o" >&6; } hard_links="nottested" if test "$lt_cv_prog_compiler_c_o" = no && test "$need_locks" != no; then # do not overwrite the value of need_locks provided by the user { $as_echo "$as_me:${as_lineno-$LINENO}: checking if we can lock with hard links" >&5 $as_echo_n "checking if we can lock with hard links... " >&6; } hard_links=yes $RM conftest* ln conftest.a conftest.b 2>/dev/null && hard_links=no touch conftest.a ln conftest.a conftest.b 2>&5 || hard_links=no ln conftest.a conftest.b 2>/dev/null && hard_links=no { $as_echo "$as_me:${as_lineno-$LINENO}: result: $hard_links" >&5 $as_echo "$hard_links" >&6; } if test "$hard_links" = no; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&5 $as_echo "$as_me: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&2;} need_locks=warn fi else need_locks=no fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5 $as_echo_n "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; } runpath_var= allow_undefined_flag= always_export_symbols=no archive_cmds= archive_expsym_cmds= compiler_needs_object=no enable_shared_with_static_runtimes=no export_dynamic_flag_spec= export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' hardcode_automatic=no hardcode_direct=no hardcode_direct_absolute=no hardcode_libdir_flag_spec= hardcode_libdir_separator= hardcode_minus_L=no hardcode_shlibpath_var=unsupported inherit_rpath=no link_all_deplibs=unknown module_cmds= module_expsym_cmds= old_archive_from_new_cmds= old_archive_from_expsyms_cmds= thread_safe_flag_spec= whole_archive_flag_spec= # include_expsyms should be a list of space-separated symbols to be *always* # included in the symbol list include_expsyms= # exclude_expsyms can be an extended regexp of symbols to exclude # it will be wrapped by ` (' and `)$', so one must not match beginning or # end of line. Example: `a|bc|.*d.*' will exclude the symbols `a' and `bc', # as well as any symbol that contains `d'. exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out # platforms (ab)use it in PIC code, but their linkers get confused if # the symbol is explicitly referenced. Since portable code cannot # rely on this symbol name, it's probably fine to never include it in # preloaded symbol tables. # Exclude shared library initialization/finalization symbols. extract_expsyms_cmds= case $host_os in cygwin* | mingw* | pw32* | cegcc*) # FIXME: the MSVC++ port hasn't been tested in a loooong time # When not using gcc, we currently assume that we are using # Microsoft Visual C++. if test "$GCC" != yes; then with_gnu_ld=no fi ;; interix*) # we just hope/assume this is gcc and not c89 (= MSVC++) with_gnu_ld=yes ;; openbsd*) with_gnu_ld=no ;; esac ld_shlibs=yes # On some targets, GNU ld is compatible enough with the native linker # that we're better off using the native interface for both. lt_use_gnu_ld_interface=no if test "$with_gnu_ld" = yes; then case $host_os in aix*) # The AIX port of GNU ld has always aspired to compatibility # with the native linker. However, as the warning in the GNU ld # block says, versions before 2.19.5* couldn't really create working # shared libraries, regardless of the interface used. case `$LD -v 2>&1` in *\ \(GNU\ Binutils\)\ 2.19.5*) ;; *\ \(GNU\ Binutils\)\ 2.[2-9]*) ;; *\ \(GNU\ Binutils\)\ [3-9]*) ;; *) lt_use_gnu_ld_interface=yes ;; esac ;; *) lt_use_gnu_ld_interface=yes ;; esac fi if test "$lt_use_gnu_ld_interface" = yes; then # If archive_cmds runs LD, not CC, wlarc should be empty wlarc='${wl}' # Set some defaults for GNU ld with shared library support. These # are reset later if shared libraries are not supported. Putting them # here allows them to be overridden if necessary. runpath_var=LD_RUN_PATH hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' export_dynamic_flag_spec='${wl}--export-dynamic' # ancient GNU ld didn't support --whole-archive et. al. if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then whole_archive_flag_spec="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' else whole_archive_flag_spec= fi supports_anon_versioning=no case `$LD -v 2>&1` in *GNU\ gold*) supports_anon_versioning=yes ;; *\ [01].* | *\ 2.[0-9].* | *\ 2.10.*) ;; # catch versions < 2.11 *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ... *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ... *\ 2.11.*) ;; # other 2.11 versions *) supports_anon_versioning=yes ;; esac # See if GNU ld supports shared libraries. case $host_os in aix[3-9]*) # On AIX/PPC, the GNU linker is very broken if test "$host_cpu" != ia64; then ld_shlibs=no cat <<_LT_EOF 1>&2 *** Warning: the GNU linker, at least up to release 2.19, is reported *** to be unable to reliably create shared libraries on AIX. *** Therefore, libtool is disabling shared libraries support. If you *** really care for shared libraries, you may want to install binutils *** 2.20 or above, or modify your PATH so that a non-GNU linker is found. *** You will then need to restart the configuration process. _LT_EOF fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='' ;; m68k) archive_cmds='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes ;; esac ;; beos*) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then allow_undefined_flag=unsupported # Joseph Beckenbach says some releases of gcc # support --undefined. This deserves some investigation. FIXME archive_cmds='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' else ld_shlibs=no fi ;; cygwin* | mingw* | pw32* | cegcc*) # _LT_TAGVAR(hardcode_libdir_flag_spec, ) is actually meaningless, # as there is no search path for DLLs. hardcode_libdir_flag_spec='-L$libdir' export_dynamic_flag_spec='${wl}--export-all-symbols' allow_undefined_flag=unsupported always_export_symbols=no enable_shared_with_static_runtimes=yes export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols' exclude_expsyms='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname' if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' # If the export-symbols file already is a .def file (1st line # is EXPORTS), use it as is; otherwise, prepend... archive_expsym_cmds='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then cp $export_symbols $output_objdir/$soname.def; else echo EXPORTS > $output_objdir/$soname.def; cat $export_symbols >> $output_objdir/$soname.def; fi~ $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' else ld_shlibs=no fi ;; haiku*) archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' link_all_deplibs=yes ;; interix[3-9]*) hardcode_direct=no hardcode_shlibpath_var=no hardcode_libdir_flag_spec='${wl}-rpath,$libdir' export_dynamic_flag_spec='${wl}-E' # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. # Instead, shared libraries are loaded at an image base (0x10000000 by # default) and relocated if they conflict, which is a slow very memory # consuming and fragmenting process. To avoid this, we pick a random, # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link # time. Moving up from 0x10000000 also allows more sbrk(2) space. archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' archive_expsym_cmds='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' ;; gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu) tmp_diet=no if test "$host_os" = linux-dietlibc; then case $cc_basename in diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn) esac fi if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \ && test "$tmp_diet" = no then tmp_addflag=' $pic_flag' tmp_sharedflag='-shared' case $cc_basename,$host_cpu in pgcc*) # Portland Group C compiler whole_archive_flag_spec='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' tmp_addflag=' $pic_flag' ;; pgf77* | pgf90* | pgf95* | pgfortran*) # Portland Group f77 and f90 compilers whole_archive_flag_spec='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' tmp_addflag=' $pic_flag -Mnomain' ;; ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64 tmp_addflag=' -i_dynamic' ;; efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64 tmp_addflag=' -i_dynamic -nofor_main' ;; ifc* | ifort*) # Intel Fortran compiler tmp_addflag=' -nofor_main' ;; lf95*) # Lahey Fortran 8.1 whole_archive_flag_spec= tmp_sharedflag='--shared' ;; xl[cC]* | bgxl[cC]* | mpixl[cC]*) # IBM XL C 8.0 on PPC (deal with xlf below) tmp_sharedflag='-qmkshrobj' tmp_addflag= ;; nvcc*) # Cuda Compiler Driver 2.2 whole_archive_flag_spec='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' compiler_needs_object=yes ;; esac case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C 5.9 whole_archive_flag_spec='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' compiler_needs_object=yes tmp_sharedflag='-G' ;; *Sun\ F*) # Sun Fortran 8.3 tmp_sharedflag='-G' ;; esac archive_cmds='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' if test "x$supports_anon_versioning" = xyes; then archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' fi case $cc_basename in xlf* | bgf* | bgxlf* | mpixlf*) # IBM XL Fortran 10.1 on PPC cannot create shared libs itself whole_archive_flag_spec='--whole-archive$convenience --no-whole-archive' hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' archive_cmds='$LD -shared $libobjs $deplibs $linker_flags -soname $soname -o $lib' if test "x$supports_anon_versioning" = xyes; then archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $LD -shared $libobjs $deplibs $linker_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib' fi ;; esac else ld_shlibs=no fi ;; netbsd*) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then archive_cmds='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' wlarc= else archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' fi ;; solaris*) if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then ld_shlibs=no cat <<_LT_EOF 1>&2 *** Warning: The releases 2.8.* of the GNU linker cannot reliably *** create shared libraries on Solaris systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.9.1 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs=no fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*) case `$LD -v 2>&1` in *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*) ld_shlibs=no cat <<_LT_EOF 1>&2 *** Warning: Releases of the GNU linker prior to 2.16.91.0.3 can not *** reliably create shared libraries on SCO systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.16.91.0.3 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF ;; *) # For security reasons, it is highly recommended that you always # use absolute paths for naming shared libraries, and exclude the # DT_RUNPATH tag from executables and libraries. But doing so # requires that you compile everything twice, which is a pain. if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs=no fi ;; esac ;; sunos4*) archive_cmds='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' wlarc= hardcode_direct=yes hardcode_shlibpath_var=no ;; *) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs=no fi ;; esac if test "$ld_shlibs" = no; then runpath_var= hardcode_libdir_flag_spec= export_dynamic_flag_spec= whole_archive_flag_spec= fi else # PORTME fill in a description of your system's linker (not GNU ld) case $host_os in aix3*) allow_undefined_flag=unsupported always_export_symbols=yes archive_expsym_cmds='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname' # Note: this linker hardcodes the directories in LIBPATH if there # are no directories specified by -L. hardcode_minus_L=yes if test "$GCC" = yes && test -z "$lt_prog_compiler_static"; then # Neither direct hardcoding nor static linking is supported with a # broken collect2. hardcode_direct=unsupported fi ;; aix[4-9]*) if test "$host_cpu" = ia64; then # On IA64, the linker does run time linking by default, so we don't # have to do anything special. aix_use_runtimelinking=no exp_sym_flag='-Bexport' no_entry_flag="" else # If we're using GNU nm, then we don't want the "-C" option. # -C means demangle to AIX nm, but means don't demangle with GNU nm # Also, AIX nm treats weak defined symbols like other global # defined symbols, whereas GNU nm marks them as "W". if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then export_symbols_cmds='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' else export_symbols_cmds='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' fi aix_use_runtimelinking=no # Test if we are trying to use run time linking or normal # AIX style linking. If -brtl is somewhere in LDFLAGS, we # need to do runtime linking. case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*) for ld_flag in $LDFLAGS; do if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then aix_use_runtimelinking=yes break fi done ;; esac exp_sym_flag='-bexport' no_entry_flag='-bnoentry' fi # When large executables or shared objects are built, AIX ld can # have problems creating the table of contents. If linking a library # or program results in "error TOC overflow" add -mminimal-toc to # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. archive_cmds='' hardcode_direct=yes hardcode_direct_absolute=yes hardcode_libdir_separator=':' link_all_deplibs=yes file_list_spec='${wl}-f,' if test "$GCC" = yes; then case $host_os in aix4.[012]|aix4.[012].*) # We only want to do this on AIX 4.2 and lower, the check # below for broken collect2 doesn't work under 4.3+ collect2name=`${CC} -print-prog-name=collect2` if test -f "$collect2name" && strings "$collect2name" | $GREP resolve_lib_name >/dev/null then # We have reworked collect2 : else # We have old collect2 hardcode_direct=unsupported # It fails to find uninstalled libraries when the uninstalled # path is not listed in the libpath. Setting hardcode_minus_L # to unsupported forces relinking hardcode_minus_L=yes hardcode_libdir_flag_spec='-L$libdir' hardcode_libdir_separator= fi ;; esac shared_flag='-shared' if test "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi else # not using gcc if test "$host_cpu" = ia64; then # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release # chokes on -Wl,-G. The following line is correct: shared_flag='-G' else if test "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi fi fi export_dynamic_flag_spec='${wl}-bexpall' # It seems that -bexpall does not export symbols beginning with # underscore (_), so it is better to generate a list of symbols to export. always_export_symbols=yes if test "$aix_use_runtimelinking" = yes; then # Warning - without using the other runtime loading flags (-brtl), # -berok will link without error, but may produce a broken library. allow_undefined_flag='-berok' # Determine the default libpath from the value encoded in an # empty executable. if test "${lt_cv_aix_libpath+set}" = set; then aix_libpath=$lt_cv_aix_libpath else if ${lt_cv_aix_libpath_+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\([^ ]*\) *$/\1/ p } }' lt_cv_aix_libpath_=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_="/usr/lib:/lib" fi fi aix_libpath=$lt_cv_aix_libpath_ fi hardcode_libdir_flag_spec='${wl}-blibpath:$libdir:'"$aix_libpath" archive_expsym_cmds='$CC -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; then hardcode_libdir_flag_spec='${wl}-R $libdir:/usr/lib:/lib' allow_undefined_flag="-z nodefs" archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols" else # Determine the default libpath from the value encoded in an # empty executable. if test "${lt_cv_aix_libpath+set}" = set; then aix_libpath=$lt_cv_aix_libpath else if ${lt_cv_aix_libpath_+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\([^ ]*\) *$/\1/ p } }' lt_cv_aix_libpath_=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_="/usr/lib:/lib" fi fi aix_libpath=$lt_cv_aix_libpath_ fi hardcode_libdir_flag_spec='${wl}-blibpath:$libdir:'"$aix_libpath" # Warning - without using the other run time loading flags, # -berok will link without error, but may produce a broken library. no_undefined_flag=' ${wl}-bernotok' allow_undefined_flag=' ${wl}-berok' if test "$with_gnu_ld" = yes; then # We only use this code for GNU lds that support --whole-archive. whole_archive_flag_spec='${wl}--whole-archive$convenience ${wl}--no-whole-archive' else # Exported symbols can be pulled into shared objects from archives whole_archive_flag_spec='$convenience' fi archive_cmds_need_lc=yes # This is similar to how AIX traditionally builds its shared libraries. archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' fi fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='' ;; m68k) archive_cmds='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes ;; esac ;; bsdi[45]*) export_dynamic_flag_spec=-rdynamic ;; cygwin* | mingw* | pw32* | cegcc*) # When not using gcc, we currently assume that we are using # Microsoft Visual C++. # hardcode_libdir_flag_spec is actually meaningless, as there is # no search path for DLLs. case $cc_basename in cl*) # Native MSVC hardcode_libdir_flag_spec=' ' allow_undefined_flag=unsupported always_export_symbols=yes file_list_spec='@' # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. archive_cmds='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-dll~linknames=' archive_expsym_cmds='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then sed -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp; else sed -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $export_symbols > $output_objdir/$soname.exp; fi~ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~ linknames=' # The linker will not automatically build a static lib if we build a DLL. # _LT_TAGVAR(old_archive_from_new_cmds, )='true' enable_shared_with_static_runtimes=yes exclude_expsyms='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*' export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1,DATA/'\'' | $SED -e '\''/^[AITW][ ]/s/.*[ ]//'\'' | sort | uniq > $export_symbols' # Don't use ranlib old_postinstall_cmds='chmod 644 $oldlib' postlink_cmds='lt_outputfile="@OUTPUT@"~ lt_tool_outputfile="@TOOL_OUTPUT@"~ case $lt_outputfile in *.exe|*.EXE) ;; *) lt_outputfile="$lt_outputfile.exe" lt_tool_outputfile="$lt_tool_outputfile.exe" ;; esac~ if test "$MANIFEST_TOOL" != ":" && test -f "$lt_outputfile.manifest"; then $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1; $RM "$lt_outputfile.manifest"; fi' ;; *) # Assume MSVC wrapper hardcode_libdir_flag_spec=' ' allow_undefined_flag=unsupported # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. archive_cmds='$CC -o $lib $libobjs $compiler_flags `func_echo_all "$deplibs" | $SED '\''s/ -lc$//'\''` -link -dll~linknames=' # The linker will automatically build a .lib file if we build a DLL. old_archive_from_new_cmds='true' # FIXME: Should let the user specify the lib program. old_archive_cmds='lib -OUT:$oldlib$oldobjs$old_deplibs' enable_shared_with_static_runtimes=yes ;; esac ;; darwin* | rhapsody*) archive_cmds_need_lc=no hardcode_direct=no hardcode_automatic=yes hardcode_shlibpath_var=unsupported if test "$lt_cv_ld_force_load" = "yes"; then whole_archive_flag_spec='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience ${wl}-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`' else whole_archive_flag_spec='' fi link_all_deplibs=yes allow_undefined_flag="$_lt_dar_allow_undefined" case $cc_basename in ifort*) _lt_dar_can_shared=yes ;; *) _lt_dar_can_shared=$GCC ;; esac if test "$_lt_dar_can_shared" = "yes"; then output_verbose_link_cmd=func_echo_all archive_cmds="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod${_lt_dsymutil}" module_cmds="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dsymutil}" archive_expsym_cmds="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring ${_lt_dar_single_mod}${_lt_dar_export_syms}${_lt_dsymutil}" module_expsym_cmds="sed -e 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dar_export_syms}${_lt_dsymutil}" else ld_shlibs=no fi ;; dgux*) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec='-L$libdir' hardcode_shlibpath_var=no ;; # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor # support. Future versions do this automatically, but an explicit c++rt0.o # does not break anything, and helps significantly (at the cost of a little # extra space). freebsd2.2*) archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes hardcode_shlibpath_var=no ;; # Unfortunately, older versions of FreeBSD 2 do not have this feature. freebsd2.*) archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=yes hardcode_minus_L=yes hardcode_shlibpath_var=no ;; # FreeBSD 3 and greater uses gcc -shared to do shared libraries. freebsd* | dragonfly*) archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes hardcode_shlibpath_var=no ;; hpux9*) if test "$GCC" = yes; then archive_cmds='$RM $output_objdir/$soname~$CC -shared $pic_flag ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' else archive_cmds='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' fi hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' hardcode_libdir_separator=: hardcode_direct=yes # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes export_dynamic_flag_spec='${wl}-E' ;; hpux10*) if test "$GCC" = yes && test "$with_gnu_ld" = no; then archive_cmds='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' fi if test "$with_gnu_ld" = no; then hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' hardcode_libdir_separator=: hardcode_direct=yes hardcode_direct_absolute=yes export_dynamic_flag_spec='${wl}-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes fi ;; hpux11*) if test "$GCC" = yes && test "$with_gnu_ld" = no; then case $host_cpu in hppa*64*) archive_cmds='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) archive_cmds='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) archive_cmds='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' ;; esac else case $host_cpu in hppa*64*) archive_cmds='$CC -b ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) archive_cmds='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) # Older versions of the 11.00 compiler do not understand -b yet # (HP92453-01 A.11.01.20 doesn't, HP92453-01 B.11.X.35175-35176.GP does) { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $CC understands -b" >&5 $as_echo_n "checking if $CC understands -b... " >&6; } if ${lt_cv_prog_compiler__b+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler__b=no save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS -b" echo "$lt_simple_link_test_code" > conftest.$ac_ext if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then # The linker can only warn and ignore the option if not recognized # So say no if there are warnings if test -s conftest.err; then # Append any errors to the config.log. cat conftest.err 1>&5 $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler__b=yes fi else lt_cv_prog_compiler__b=yes fi fi $RM -r conftest* LDFLAGS="$save_LDFLAGS" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler__b" >&5 $as_echo "$lt_cv_prog_compiler__b" >&6; } if test x"$lt_cv_prog_compiler__b" = xyes; then archive_cmds='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' fi ;; esac fi if test "$with_gnu_ld" = no; then hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' hardcode_libdir_separator=: case $host_cpu in hppa*64*|ia64*) hardcode_direct=no hardcode_shlibpath_var=no ;; *) hardcode_direct=yes hardcode_direct_absolute=yes export_dynamic_flag_spec='${wl}-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes ;; esac fi ;; irix5* | irix6* | nonstopux*) if test "$GCC" = yes; then archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' # Try to use the -exported_symbol ld option, if it does not # work, assume that -exports_file does not work either and # implicitly export all symbols. # This should be the same for all languages, so no per-tag cache variable. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $host_os linker accepts -exported_symbol" >&5 $as_echo_n "checking whether the $host_os linker accepts -exported_symbol... " >&6; } if ${lt_cv_irix_exported_symbol+:} false; then : $as_echo_n "(cached) " >&6 else save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS -shared ${wl}-exported_symbol ${wl}foo ${wl}-update_registry ${wl}/dev/null" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int foo (void) { return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_cv_irix_exported_symbol=yes else lt_cv_irix_exported_symbol=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LDFLAGS="$save_LDFLAGS" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_irix_exported_symbol" >&5 $as_echo "$lt_cv_irix_exported_symbol" >&6; } if test "$lt_cv_irix_exported_symbol" = yes; then archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations ${wl}-exports_file ${wl}$export_symbols -o $lib' fi else archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -exports_file $export_symbols -o $lib' fi archive_cmds_need_lc='no' hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator=: inherit_rpath=yes link_all_deplibs=yes ;; netbsd*) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out else archive_cmds='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF fi hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes hardcode_shlibpath_var=no ;; newsos6) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=yes hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator=: hardcode_shlibpath_var=no ;; *nto* | *qnx*) ;; openbsd*) if test -f /usr/libexec/ld.so; then hardcode_direct=yes hardcode_shlibpath_var=no hardcode_direct_absolute=yes if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols' hardcode_libdir_flag_spec='${wl}-rpath,$libdir' export_dynamic_flag_spec='${wl}-E' else case $host_os in openbsd[01].* | openbsd2.[0-7] | openbsd2.[0-7].*) archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec='-R$libdir' ;; *) archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' hardcode_libdir_flag_spec='${wl}-rpath,$libdir' ;; esac fi else ld_shlibs=no fi ;; os2*) hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes allow_undefined_flag=unsupported archive_cmds='$ECHO "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~echo DATA >> $output_objdir/$libname.def~echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def' old_archive_from_new_cmds='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' ;; osf3*) if test "$GCC" = yes; then allow_undefined_flag=' ${wl}-expect_unresolved ${wl}\*' archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' else allow_undefined_flag=' -expect_unresolved \*' archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' fi archive_cmds_need_lc='no' hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator=: ;; osf4* | osf5*) # as osf3* with the addition of -msym flag if test "$GCC" = yes; then allow_undefined_flag=' ${wl}-expect_unresolved ${wl}\*' archive_cmds='$CC -shared${allow_undefined_flag} $pic_flag $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' else allow_undefined_flag=' -expect_unresolved \*' archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' archive_expsym_cmds='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~ $CC -shared${allow_undefined_flag} ${wl}-input ${wl}$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib~$RM $lib.exp' # Both c and cxx compiler support -rpath directly hardcode_libdir_flag_spec='-rpath $libdir' fi archive_cmds_need_lc='no' hardcode_libdir_separator=: ;; solaris*) no_undefined_flag=' -z defs' if test "$GCC" = yes; then wlarc='${wl}' archive_cmds='$CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' else case `$CC -V 2>&1` in *"Compilers 5.0"*) wlarc='' archive_cmds='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp' ;; *) wlarc='${wl}' archive_cmds='$CC -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' ;; esac fi hardcode_libdir_flag_spec='-R$libdir' hardcode_shlibpath_var=no case $host_os in solaris2.[0-5] | solaris2.[0-5].*) ;; *) # The compiler driver will combine and reorder linker options, # but understands `-z linker_flag'. GCC discards it without `$wl', # but is careful enough not to reorder. # Supported since Solaris 2.6 (maybe 2.5.1?) if test "$GCC" = yes; then whole_archive_flag_spec='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract' else whole_archive_flag_spec='-z allextract$convenience -z defaultextract' fi ;; esac link_all_deplibs=yes ;; sunos4*) if test "x$host_vendor" = xsequent; then # Use $CC to link under sequent, because it throws in some extra .o # files that make .init and .fini sections work. archive_cmds='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' fi hardcode_libdir_flag_spec='-L$libdir' hardcode_direct=yes hardcode_minus_L=yes hardcode_shlibpath_var=no ;; sysv4) case $host_vendor in sni) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=yes # is this really true??? ;; siemens) ## LD is ld it makes a PLAMLIB ## CC just makes a GrossModule. archive_cmds='$LD -G -o $lib $libobjs $deplibs $linker_flags' reload_cmds='$CC -r -o $output$reload_objs' hardcode_direct=no ;; motorola) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=no #Motorola manual says yes, but my tests say they lie ;; esac runpath_var='LD_RUN_PATH' hardcode_shlibpath_var=no ;; sysv4.3*) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_shlibpath_var=no export_dynamic_flag_spec='-Bexport' ;; sysv4*MP*) if test -d /usr/nec; then archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_shlibpath_var=no runpath_var=LD_RUN_PATH hardcode_runpath_var=yes ld_shlibs=yes fi ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*) no_undefined_flag='${wl}-z,text' archive_cmds_need_lc=no hardcode_shlibpath_var=no runpath_var='LD_RUN_PATH' if test "$GCC" = yes; then archive_cmds='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; sysv5* | sco3.2v5* | sco5v6*) # Note: We can NOT use -z defs as we might desire, because we do not # link with -lc, and that would cause any symbols used from libc to # always be unresolved, which means just about no library would # ever link correctly. If we're not using GNU ld we use -z text # though, which does catch some bad symbols but isn't as heavy-handed # as -z defs. no_undefined_flag='${wl}-z,text' allow_undefined_flag='${wl}-z,nodefs' archive_cmds_need_lc=no hardcode_shlibpath_var=no hardcode_libdir_flag_spec='${wl}-R,$libdir' hardcode_libdir_separator=':' link_all_deplibs=yes export_dynamic_flag_spec='${wl}-Bexport' runpath_var='LD_RUN_PATH' if test "$GCC" = yes; then archive_cmds='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; uts4*) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec='-L$libdir' hardcode_shlibpath_var=no ;; *) ld_shlibs=no ;; esac if test x$host_vendor = xsni; then case $host in sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) export_dynamic_flag_spec='${wl}-Blargedynsym' ;; esac fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs" >&5 $as_echo "$ld_shlibs" >&6; } test "$ld_shlibs" = no && can_build_shared=no with_gnu_ld=$with_gnu_ld # # Do we need to explicitly link libc? # case "x$archive_cmds_need_lc" in x|xyes) # Assume -lc should be added archive_cmds_need_lc=yes if test "$enable_shared" = yes && test "$GCC" = yes; then case $archive_cmds in *'~'*) # FIXME: we may have to deal with multi-command sequences. ;; '$CC '*) # Test whether the compiler implicitly links with -lc since on some # systems, -lgcc has to come before -lc. If gcc already passes -lc # to ld, don't add -lc before -lgcc. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether -lc should be explicitly linked in" >&5 $as_echo_n "checking whether -lc should be explicitly linked in... " >&6; } if ${lt_cv_archive_cmds_need_lc+:} false; then : $as_echo_n "(cached) " >&6 else $RM conftest* echo "$lt_simple_compile_test_code" > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } 2>conftest.err; then soname=conftest lib=conftest libobjs=conftest.$ac_objext deplibs= wl=$lt_prog_compiler_wl pic_flag=$lt_prog_compiler_pic compiler_flags=-v linker_flags=-v verstring= output_objdir=. libname=conftest lt_save_allow_undefined_flag=$allow_undefined_flag allow_undefined_flag= if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$archive_cmds 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1\""; } >&5 (eval $archive_cmds 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } then lt_cv_archive_cmds_need_lc=no else lt_cv_archive_cmds_need_lc=yes fi allow_undefined_flag=$lt_save_allow_undefined_flag else cat conftest.err 1>&5 fi $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_archive_cmds_need_lc" >&5 $as_echo "$lt_cv_archive_cmds_need_lc" >&6; } archive_cmds_need_lc=$lt_cv_archive_cmds_need_lc ;; esac fi ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5 $as_echo_n "checking dynamic linker characteristics... " >&6; } if test "$GCC" = yes; then case $host_os in darwin*) lt_awk_arg="/^libraries:/,/LR/" ;; *) lt_awk_arg="/^libraries:/" ;; esac case $host_os in mingw* | cegcc*) lt_sed_strip_eq="s,=\([A-Za-z]:\),\1,g" ;; *) lt_sed_strip_eq="s,=/,/,g" ;; esac lt_search_path_spec=`$CC -print-search-dirs | awk $lt_awk_arg | $SED -e "s/^libraries://" -e $lt_sed_strip_eq` case $lt_search_path_spec in *\;*) # if the path contains ";" then we assume it to be the separator # otherwise default to the standard path separator (i.e. ":") - it is # assumed that no part of a normal pathname contains ";" but that should # okay in the real world where ";" in dirpaths is itself problematic. lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED 's/;/ /g'` ;; *) lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED "s/$PATH_SEPARATOR/ /g"` ;; esac # Ok, now we have the path, separated by spaces, we can step through it # and add multilib dir if necessary. lt_tmp_lt_search_path_spec= lt_multi_os_dir=`$CC $CPPFLAGS $CFLAGS $LDFLAGS -print-multi-os-directory 2>/dev/null` for lt_sys_path in $lt_search_path_spec; do if test -d "$lt_sys_path/$lt_multi_os_dir"; then lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path/$lt_multi_os_dir" else test -d "$lt_sys_path" && \ lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path" fi done lt_search_path_spec=`$ECHO "$lt_tmp_lt_search_path_spec" | awk ' BEGIN {RS=" "; FS="/|\n";} { lt_foo=""; lt_count=0; for (lt_i = NF; lt_i > 0; lt_i--) { if ($lt_i != "" && $lt_i != ".") { if ($lt_i == "..") { lt_count++; } else { if (lt_count == 0) { lt_foo="/" $lt_i lt_foo; } else { lt_count--; } } } } if (lt_foo != "") { lt_freq[lt_foo]++; } if (lt_freq[lt_foo] == 1) { print lt_foo; } }'` # AWK program above erroneously prepends '/' to C:/dos/paths # for these hosts. case $host_os in mingw* | cegcc*) lt_search_path_spec=`$ECHO "$lt_search_path_spec" |\ $SED 's,/\([A-Za-z]:\),\1,g'` ;; esac sys_lib_search_path_spec=`$ECHO "$lt_search_path_spec" | $lt_NL2SP` else sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" fi library_names_spec= libname_spec='lib$name' soname_spec= shrext_cmds=".so" postinstall_cmds= postuninstall_cmds= finish_cmds= finish_eval= shlibpath_var= shlibpath_overrides_runpath=unknown version_type=none dynamic_linker="$host_os ld.so" sys_lib_dlsearch_path_spec="/lib /usr/lib" need_lib_prefix=unknown hardcode_into_libs=no # when you set need_version to no, make sure it does not cause -set_version # flags to be left without arguments need_version=unknown case $host_os in aix3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a' shlibpath_var=LIBPATH # AIX 3 has no versioning support, so we append a major version to the name. soname_spec='${libname}${release}${shared_ext}$major' ;; aix[4-9]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no hardcode_into_libs=yes if test "$host_cpu" = ia64; then # AIX 5 supports IA64 library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH else # With GCC up to 2.95.x, collect2 would create an import file # for dependence libraries. The import file would start with # the line `#! .'. This would cause the generated library to # depend on `.', always an invalid library. This was fixed in # development snapshots of GCC prior to 3.0. case $host_os in aix4 | aix4.[01] | aix4.[01].*) if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' echo ' yes ' echo '#endif'; } | ${CC} -E - | $GREP yes > /dev/null; then : else can_build_shared=no fi ;; esac # AIX (on Power*) has no versioning support, so currently we can not hardcode correct # soname into executable. Probably we can add versioning support to # collect2, so additional links can be useful in future. if test "$aix_use_runtimelinking" = yes; then # If using run time linking (on AIX 4.2 or later) use lib.so # instead of lib.a to let people know that these are not # typical AIX shared libraries. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' else # We preserve .a as extension for shared libraries through AIX4.2 # and later when we are not doing run time linking. library_names_spec='${libname}${release}.a $libname.a' soname_spec='${libname}${release}${shared_ext}$major' fi shlibpath_var=LIBPATH fi ;; amigaos*) case $host_cpu in powerpc) # Since July 2007 AmigaOS4 officially supports .so libraries. # When compiling the executable, add -use-dynld -Lsobjs: to the compileline. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' ;; m68k) library_names_spec='$libname.ixlibrary $libname.a' # Create ${libname}_ixlibrary.a entries in /sys/libs. finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; test $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' ;; esac ;; beos*) library_names_spec='${libname}${shared_ext}' dynamic_linker="$host_os ld.so" shlibpath_var=LIBRARY_PATH ;; bsdi[45]*) version_type=linux # correct to gnu/linux during the next big refactor need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" # the default ld.so.conf also contains /usr/contrib/lib and # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow # libtool to hard-code these into programs ;; cygwin* | mingw* | pw32* | cegcc*) version_type=windows shrext_cmds=".dll" need_version=no need_lib_prefix=no case $GCC,$cc_basename in yes,*) # gcc library_names_spec='$libname.dll.a' # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \${file}`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname~ chmod a+x \$dldir/$dlname~ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then eval '\''$striplib \$dldir/$dlname'\'' || exit \$?; fi' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes case $host_os in cygwin*) # Cygwin DLLs use 'cyg' prefix rather than 'lib' soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/lib/w32api" ;; mingw* | cegcc*) # MinGW DLLs use traditional 'lib' prefix soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' ;; pw32*) # pw32 DLLs use 'pw' prefix rather than 'lib' library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' ;; esac dynamic_linker='Win32 ld.exe' ;; *,cl*) # Native MSVC libname_spec='$name' soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' library_names_spec='${libname}.dll.lib' case $build_os in mingw*) sys_lib_search_path_spec= lt_save_ifs=$IFS IFS=';' for lt_path in $LIB do IFS=$lt_save_ifs # Let DOS variable expansion print the short 8.3 style file name. lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"` sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path" done IFS=$lt_save_ifs # Convert to MSYS style. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([a-zA-Z]\\):| /\\1|g' -e 's|^ ||'` ;; cygwin*) # Convert to unix form, then to dos form, then back to unix form # but this time dos style (no spaces!) so that the unix form looks # like /cygdrive/c/PROGRA~1:/cygdr... sys_lib_search_path_spec=`cygpath --path --unix "$LIB"` sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null` sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` ;; *) sys_lib_search_path_spec="$LIB" if $ECHO "$sys_lib_search_path_spec" | $GREP ';[c-zC-Z]:/' >/dev/null; then # It is most probably a Windows format PATH. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` else sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` fi # FIXME: find the short name or the path components, as spaces are # common. (e.g. "Program Files" -> "PROGRA~1") ;; esac # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \${file}`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes dynamic_linker='Win32 link.exe' ;; *) # Assume MSVC wrapper library_names_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext} $libname.lib' dynamic_linker='Win32 ld.exe' ;; esac # FIXME: first we should search . and the directory the executable is in shlibpath_var=PATH ;; darwin* | rhapsody*) dynamic_linker="$host_os dyld" version_type=darwin need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${major}$shared_ext ${libname}$shared_ext' soname_spec='${libname}${release}${major}$shared_ext' shlibpath_overrides_runpath=yes shlibpath_var=DYLD_LIBRARY_PATH shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`' sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/local/lib" sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' ;; dgux*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; freebsd* | dragonfly*) # DragonFly does not have aout. When/if they implement a new # versioning mechanism, adjust this. if test -x /usr/bin/objformat; then objformat=`/usr/bin/objformat` else case $host_os in freebsd[23].*) objformat=aout ;; *) objformat=elf ;; esac fi version_type=freebsd-$objformat case $version_type in freebsd-elf*) library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' need_version=no need_lib_prefix=no ;; freebsd-*) library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix' need_version=yes ;; esac shlibpath_var=LD_LIBRARY_PATH case $host_os in freebsd2.*) shlibpath_overrides_runpath=yes ;; freebsd3.[01]* | freebsdelf3.[01]*) shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; freebsd3.[2-9]* | freebsdelf3.[2-9]* | \ freebsd4.[0-5] | freebsdelf4.[0-5] | freebsd4.1.1 | freebsdelf4.1.1) shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; *) # from 4.6 on, and DragonFly shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; esac ;; gnu*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; haiku*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no dynamic_linker="$host_os runtime_loader" library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LIBRARY_PATH shlibpath_overrides_runpath=yes sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib' hardcode_into_libs=yes ;; hpux9* | hpux10* | hpux11*) # Give a soname corresponding to the major version so that dld.sl refuses to # link against other versions. version_type=sunos need_lib_prefix=no need_version=no case $host_cpu in ia64*) shrext_cmds='.so' hardcode_into_libs=yes dynamic_linker="$host_os dld.so" shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' if test "X$HPUX_IA64_MODE" = X32; then sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" else sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" fi sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; hppa*64*) shrext_cmds='.sl' hardcode_into_libs=yes dynamic_linker="$host_os dld.sl" shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; *) shrext_cmds='.sl' dynamic_linker="$host_os dld.sl" shlibpath_var=SHLIB_PATH shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' ;; esac # HP-UX runs *really* slowly unless shared libraries are mode 555, ... postinstall_cmds='chmod 555 $lib' # or fails outright, so override atomically: install_override_mode=555 ;; interix[3-9]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; irix5* | irix6* | nonstopux*) case $host_os in nonstopux*) version_type=nonstopux ;; *) if test "$lt_cv_prog_gnu_ld" = yes; then version_type=linux # correct to gnu/linux during the next big refactor else version_type=irix fi ;; esac need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}' case $host_os in irix5* | nonstopux*) libsuff= shlibsuff= ;; *) case $LD in # libtool.m4 will add one of these switches to LD *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") libsuff= shlibsuff= libmagic=32-bit;; *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") libsuff=32 shlibsuff=N32 libmagic=N32;; *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") libsuff=64 shlibsuff=64 libmagic=64-bit;; *) libsuff= shlibsuff= libmagic=never-match;; esac ;; esac shlibpath_var=LD_LIBRARY${shlibsuff}_PATH shlibpath_overrides_runpath=no sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" hardcode_into_libs=yes ;; # No shared lib support for Linux oldld, aout, or coff. linux*oldld* | linux*aout* | linux*coff*) dynamic_linker=no ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no # Some binutils ld are patched to set DT_RUNPATH if ${lt_cv_shlibpath_overrides_runpath+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_shlibpath_overrides_runpath=no save_LDFLAGS=$LDFLAGS save_libdir=$libdir eval "libdir=/foo; wl=\"$lt_prog_compiler_wl\"; \ LDFLAGS=\"\$LDFLAGS $hardcode_libdir_flag_spec\"" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : if ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null; then : lt_cv_shlibpath_overrides_runpath=yes fi fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LDFLAGS=$save_LDFLAGS libdir=$save_libdir fi shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath # This implies no fast_install, which is unacceptable. # Some rework will be needed to allow for fast_install # before this can be enabled. hardcode_into_libs=yes # Add ABI-specific directories to the system library path. sys_lib_dlsearch_path_spec="/lib64 /usr/lib64 /lib /usr/lib" # Append ld.so.conf contents to the search path if test -f /etc/ld.so.conf; then lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '` sys_lib_dlsearch_path_spec="$sys_lib_dlsearch_path_spec $lt_ld_extra" fi # We used to test for /lib/ld.so.1 and disable shared libraries on # powerpc, because MkLinux only supported shared libraries with the # GNU dynamic linker. Since this was broken with cross compilers, # most powerpc-linux boxes support dynamic linking these days and # people can always --disable-shared, the test was removed, and we # assume the GNU/Linux dynamic linker is in use. dynamic_linker='GNU/Linux ld.so' ;; netbsd*) version_type=sunos need_lib_prefix=no need_version=no if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' dynamic_linker='NetBSD (a.out) ld.so' else library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='NetBSD ld.elf_so' fi shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; newsos6) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; *nto* | *qnx*) version_type=qnx need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes dynamic_linker='ldqnx.so' ;; openbsd*) version_type=sunos sys_lib_dlsearch_path_spec="/usr/lib" need_lib_prefix=no # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. case $host_os in openbsd3.3 | openbsd3.3.*) need_version=yes ;; *) need_version=no ;; esac library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' shlibpath_var=LD_LIBRARY_PATH if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then case $host_os in openbsd2.[89] | openbsd2.[89].*) shlibpath_overrides_runpath=no ;; *) shlibpath_overrides_runpath=yes ;; esac else shlibpath_overrides_runpath=yes fi ;; os2*) libname_spec='$name' shrext_cmds=".dll" need_lib_prefix=no library_names_spec='$libname${shared_ext} $libname.a' dynamic_linker='OS/2 ld.exe' shlibpath_var=LIBPATH ;; osf3* | osf4* | osf5*) version_type=osf need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec" ;; rdos*) dynamic_linker=no ;; solaris*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes # ldd complains unless libraries are executable postinstall_cmds='chmod +x $lib' ;; sunos4*) version_type=sunos library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes if test "$with_gnu_ld" = yes; then need_lib_prefix=no fi need_version=yes ;; sysv4 | sysv4.3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH case $host_vendor in sni) shlibpath_overrides_runpath=no need_lib_prefix=no runpath_var=LD_RUN_PATH ;; siemens) need_lib_prefix=no ;; motorola) need_lib_prefix=no need_version=no shlibpath_overrides_runpath=no sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' ;; esac ;; sysv4*MP*) if test -d /usr/nec ;then version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}' soname_spec='$libname${shared_ext}.$major' shlibpath_var=LD_LIBRARY_PATH fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) version_type=freebsd-elf need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes if test "$with_gnu_ld" = yes; then sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib' else sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' case $host_os in sco3.2v5*) sys_lib_search_path_spec="$sys_lib_search_path_spec /lib" ;; esac fi sys_lib_dlsearch_path_spec='/usr/lib' ;; tpf*) # TPF is a cross-target only. Preferred cross-host = GNU/Linux. version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; uts4*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; *) dynamic_linker=no ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: $dynamic_linker" >&5 $as_echo "$dynamic_linker" >&6; } test "$dynamic_linker" = no && can_build_shared=no variables_saved_for_relink="PATH $shlibpath_var $runpath_var" if test "$GCC" = yes; then variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" fi if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec" fi if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec" fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to hardcode library paths into programs" >&5 $as_echo_n "checking how to hardcode library paths into programs... " >&6; } hardcode_action= if test -n "$hardcode_libdir_flag_spec" || test -n "$runpath_var" || test "X$hardcode_automatic" = "Xyes" ; then # We can hardcode non-existent directories. if test "$hardcode_direct" != no && # If the only mechanism to avoid hardcoding is shlibpath_var, we # have to relink, otherwise we might link with an installed library # when we should be linking with a yet-to-be-installed one ## test "$_LT_TAGVAR(hardcode_shlibpath_var, )" != no && test "$hardcode_minus_L" != no; then # Linking always hardcodes the temporary library directory. hardcode_action=relink else # We can link without hardcoding, and we can hardcode nonexisting dirs. hardcode_action=immediate fi else # We cannot hardcode anything, or else we can only hardcode existing # directories. hardcode_action=unsupported fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $hardcode_action" >&5 $as_echo "$hardcode_action" >&6; } if test "$hardcode_action" = relink || test "$inherit_rpath" = yes; then # Fast installation is not supported enable_fast_install=no elif test "$shlibpath_overrides_runpath" = yes || test "$enable_shared" = no; then # Fast installation is not necessary enable_fast_install=needless fi if test "x$enable_dlopen" != xyes; then enable_dlopen=unknown enable_dlopen_self=unknown enable_dlopen_self_static=unknown else lt_cv_dlopen=no lt_cv_dlopen_libs= case $host_os in beos*) lt_cv_dlopen="load_add_on" lt_cv_dlopen_libs= lt_cv_dlopen_self=yes ;; mingw* | pw32* | cegcc*) lt_cv_dlopen="LoadLibrary" lt_cv_dlopen_libs= ;; cygwin*) lt_cv_dlopen="dlopen" lt_cv_dlopen_libs= ;; darwin*) # if libdl is installed we need to link against it { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5 $as_echo_n "checking for dlopen in -ldl... " >&6; } if ${ac_cv_lib_dl_dlopen+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldl $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dlopen (); int main () { return dlopen (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dl_dlopen=yes else ac_cv_lib_dl_dlopen=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5 $as_echo "$ac_cv_lib_dl_dlopen" >&6; } if test "x$ac_cv_lib_dl_dlopen" = xyes; then : lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl" else lt_cv_dlopen="dyld" lt_cv_dlopen_libs= lt_cv_dlopen_self=yes fi ;; *) ac_fn_c_check_func "$LINENO" "shl_load" "ac_cv_func_shl_load" if test "x$ac_cv_func_shl_load" = xyes; then : lt_cv_dlopen="shl_load" else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for shl_load in -ldld" >&5 $as_echo_n "checking for shl_load in -ldld... " >&6; } if ${ac_cv_lib_dld_shl_load+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldld $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char shl_load (); int main () { return shl_load (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dld_shl_load=yes else ac_cv_lib_dld_shl_load=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_shl_load" >&5 $as_echo "$ac_cv_lib_dld_shl_load" >&6; } if test "x$ac_cv_lib_dld_shl_load" = xyes; then : lt_cv_dlopen="shl_load" lt_cv_dlopen_libs="-ldld" else ac_fn_c_check_func "$LINENO" "dlopen" "ac_cv_func_dlopen" if test "x$ac_cv_func_dlopen" = xyes; then : lt_cv_dlopen="dlopen" else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5 $as_echo_n "checking for dlopen in -ldl... " >&6; } if ${ac_cv_lib_dl_dlopen+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldl $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dlopen (); int main () { return dlopen (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dl_dlopen=yes else ac_cv_lib_dl_dlopen=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5 $as_echo "$ac_cv_lib_dl_dlopen" >&6; } if test "x$ac_cv_lib_dl_dlopen" = xyes; then : lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl" else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -lsvld" >&5 $as_echo_n "checking for dlopen in -lsvld... " >&6; } if ${ac_cv_lib_svld_dlopen+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lsvld $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dlopen (); int main () { return dlopen (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_svld_dlopen=yes else ac_cv_lib_svld_dlopen=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_svld_dlopen" >&5 $as_echo "$ac_cv_lib_svld_dlopen" >&6; } if test "x$ac_cv_lib_svld_dlopen" = xyes; then : lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-lsvld" else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dld_link in -ldld" >&5 $as_echo_n "checking for dld_link in -ldld... " >&6; } if ${ac_cv_lib_dld_dld_link+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldld $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dld_link (); int main () { return dld_link (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dld_dld_link=yes else ac_cv_lib_dld_dld_link=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_dld_link" >&5 $as_echo "$ac_cv_lib_dld_dld_link" >&6; } if test "x$ac_cv_lib_dld_dld_link" = xyes; then : lt_cv_dlopen="dld_link" lt_cv_dlopen_libs="-ldld" fi fi fi fi fi fi ;; esac if test "x$lt_cv_dlopen" != xno; then enable_dlopen=yes else enable_dlopen=no fi case $lt_cv_dlopen in dlopen) save_CPPFLAGS="$CPPFLAGS" test "x$ac_cv_header_dlfcn_h" = xyes && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H" save_LDFLAGS="$LDFLAGS" wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\" save_LIBS="$LIBS" LIBS="$lt_cv_dlopen_libs $LIBS" { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a program can dlopen itself" >&5 $as_echo_n "checking whether a program can dlopen itself... " >&6; } if ${lt_cv_dlopen_self+:} false; then : $as_echo_n "(cached) " >&6 else if test "$cross_compiling" = yes; then : lt_cv_dlopen_self=cross else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext <<_LT_EOF #line $LINENO "configure" #include "confdefs.h" #if HAVE_DLFCN_H #include #endif #include #ifdef RTLD_GLOBAL # define LT_DLGLOBAL RTLD_GLOBAL #else # ifdef DL_GLOBAL # define LT_DLGLOBAL DL_GLOBAL # else # define LT_DLGLOBAL 0 # endif #endif /* We may have to define LT_DLLAZY_OR_NOW in the command line if we find out it does not work in some platform. */ #ifndef LT_DLLAZY_OR_NOW # ifdef RTLD_LAZY # define LT_DLLAZY_OR_NOW RTLD_LAZY # else # ifdef DL_LAZY # define LT_DLLAZY_OR_NOW DL_LAZY # else # ifdef RTLD_NOW # define LT_DLLAZY_OR_NOW RTLD_NOW # else # ifdef DL_NOW # define LT_DLLAZY_OR_NOW DL_NOW # else # define LT_DLLAZY_OR_NOW 0 # endif # endif # endif # endif #endif /* When -fvisbility=hidden is used, assume the code has been annotated correspondingly for the symbols needed. */ #if defined(__GNUC__) && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3)) int fnord () __attribute__((visibility("default"))); #endif int fnord () { return 42; } int main () { void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); int status = $lt_dlunknown; if (self) { if (dlsym (self,"fnord")) status = $lt_dlno_uscore; else { if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; else puts (dlerror ()); } /* dlclose (self); */ } else puts (dlerror ()); return status; } _LT_EOF if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s conftest${ac_exeext} 2>/dev/null; then (./conftest; exit; ) >&5 2>/dev/null lt_status=$? case x$lt_status in x$lt_dlno_uscore) lt_cv_dlopen_self=yes ;; x$lt_dlneed_uscore) lt_cv_dlopen_self=yes ;; x$lt_dlunknown|x*) lt_cv_dlopen_self=no ;; esac else : # compilation failed lt_cv_dlopen_self=no fi fi rm -fr conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self" >&5 $as_echo "$lt_cv_dlopen_self" >&6; } if test "x$lt_cv_dlopen_self" = xyes; then wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $lt_prog_compiler_static\" { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a statically linked program can dlopen itself" >&5 $as_echo_n "checking whether a statically linked program can dlopen itself... " >&6; } if ${lt_cv_dlopen_self_static+:} false; then : $as_echo_n "(cached) " >&6 else if test "$cross_compiling" = yes; then : lt_cv_dlopen_self_static=cross else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext <<_LT_EOF #line $LINENO "configure" #include "confdefs.h" #if HAVE_DLFCN_H #include #endif #include #ifdef RTLD_GLOBAL # define LT_DLGLOBAL RTLD_GLOBAL #else # ifdef DL_GLOBAL # define LT_DLGLOBAL DL_GLOBAL # else # define LT_DLGLOBAL 0 # endif #endif /* We may have to define LT_DLLAZY_OR_NOW in the command line if we find out it does not work in some platform. */ #ifndef LT_DLLAZY_OR_NOW # ifdef RTLD_LAZY # define LT_DLLAZY_OR_NOW RTLD_LAZY # else # ifdef DL_LAZY # define LT_DLLAZY_OR_NOW DL_LAZY # else # ifdef RTLD_NOW # define LT_DLLAZY_OR_NOW RTLD_NOW # else # ifdef DL_NOW # define LT_DLLAZY_OR_NOW DL_NOW # else # define LT_DLLAZY_OR_NOW 0 # endif # endif # endif # endif #endif /* When -fvisbility=hidden is used, assume the code has been annotated correspondingly for the symbols needed. */ #if defined(__GNUC__) && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3)) int fnord () __attribute__((visibility("default"))); #endif int fnord () { return 42; } int main () { void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); int status = $lt_dlunknown; if (self) { if (dlsym (self,"fnord")) status = $lt_dlno_uscore; else { if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; else puts (dlerror ()); } /* dlclose (self); */ } else puts (dlerror ()); return status; } _LT_EOF if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s conftest${ac_exeext} 2>/dev/null; then (./conftest; exit; ) >&5 2>/dev/null lt_status=$? case x$lt_status in x$lt_dlno_uscore) lt_cv_dlopen_self_static=yes ;; x$lt_dlneed_uscore) lt_cv_dlopen_self_static=yes ;; x$lt_dlunknown|x*) lt_cv_dlopen_self_static=no ;; esac else : # compilation failed lt_cv_dlopen_self_static=no fi fi rm -fr conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self_static" >&5 $as_echo "$lt_cv_dlopen_self_static" >&6; } fi CPPFLAGS="$save_CPPFLAGS" LDFLAGS="$save_LDFLAGS" LIBS="$save_LIBS" ;; esac case $lt_cv_dlopen_self in yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;; *) enable_dlopen_self=unknown ;; esac case $lt_cv_dlopen_self_static in yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;; *) enable_dlopen_self_static=unknown ;; esac fi striplib= old_striplib= { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether stripping libraries is possible" >&5 $as_echo_n "checking whether stripping libraries is possible... " >&6; } if test -n "$STRIP" && $STRIP -V 2>&1 | $GREP "GNU strip" >/dev/null; then test -z "$old_striplib" && old_striplib="$STRIP --strip-debug" test -z "$striplib" && striplib="$STRIP --strip-unneeded" { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else # FIXME - insert some real tests, host_os isn't really good enough case $host_os in darwin*) if test -n "$STRIP" ; then striplib="$STRIP -x" old_striplib="$STRIP -S" { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi ;; *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } ;; esac fi # Report which library types will actually be built { $as_echo "$as_me:${as_lineno-$LINENO}: checking if libtool supports shared libraries" >&5 $as_echo_n "checking if libtool supports shared libraries... " >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: result: $can_build_shared" >&5 $as_echo "$can_build_shared" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build shared libraries" >&5 $as_echo_n "checking whether to build shared libraries... " >&6; } test "$can_build_shared" = "no" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[4-9]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no fi ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_shared" >&5 $as_echo "$enable_shared" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build static libraries" >&5 $as_echo_n "checking whether to build static libraries... " >&6; } # Make sure either enable_shared or enable_static is yes. test "$enable_shared" = yes || enable_static=yes { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_static" >&5 $as_echo "$enable_static" >&6; } fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu CC="$lt_save_CC" if test -n "$CXX" && ( test "X$CXX" != "Xno" && ( (test "X$CXX" = "Xg++" && `g++ -v >/dev/null 2>&1` ) || (test "X$CXX" != "Xg++"))) ; then ac_ext=cpp ac_cpp='$CXXCPP $CPPFLAGS' ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_cxx_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C++ preprocessor" >&5 $as_echo_n "checking how to run the C++ preprocessor... " >&6; } if test -z "$CXXCPP"; then if ${ac_cv_prog_CXXCPP+:} false; then : $as_echo_n "(cached) " >&6 else # Double quotes because CXXCPP needs to be expanded for CXXCPP in "$CXX -E" "/lib/cpp" do ac_preproc_ok=false for ac_cxx_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if ac_fn_cxx_try_cpp "$LINENO"; then : else # Broken: fails on valid input. continue fi rm -f conftest.err conftest.i conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if ac_fn_cxx_try_cpp "$LINENO"; then : # Broken: success on invalid input. continue else # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.i conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.i conftest.err conftest.$ac_ext if $ac_preproc_ok; then : break fi done ac_cv_prog_CXXCPP=$CXXCPP fi CXXCPP=$ac_cv_prog_CXXCPP else ac_cv_prog_CXXCPP=$CXXCPP fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CXXCPP" >&5 $as_echo "$CXXCPP" >&6; } ac_preproc_ok=false for ac_cxx_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if ac_fn_cxx_try_cpp "$LINENO"; then : else # Broken: fails on valid input. continue fi rm -f conftest.err conftest.i conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if ac_fn_cxx_try_cpp "$LINENO"; then : # Broken: success on invalid input. continue else # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.i conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.i conftest.err conftest.$ac_ext if $ac_preproc_ok; then : else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "C++ preprocessor \"$CXXCPP\" fails sanity check See \`config.log' for more details" "$LINENO" 5; } fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu else _lt_caught_CXX_error=yes fi ac_ext=cpp ac_cpp='$CXXCPP $CPPFLAGS' ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_cxx_compiler_gnu archive_cmds_need_lc_CXX=no allow_undefined_flag_CXX= always_export_symbols_CXX=no archive_expsym_cmds_CXX= compiler_needs_object_CXX=no export_dynamic_flag_spec_CXX= hardcode_direct_CXX=no hardcode_direct_absolute_CXX=no hardcode_libdir_flag_spec_CXX= hardcode_libdir_separator_CXX= hardcode_minus_L_CXX=no hardcode_shlibpath_var_CXX=unsupported hardcode_automatic_CXX=no inherit_rpath_CXX=no module_cmds_CXX= module_expsym_cmds_CXX= link_all_deplibs_CXX=unknown old_archive_cmds_CXX=$old_archive_cmds reload_flag_CXX=$reload_flag reload_cmds_CXX=$reload_cmds no_undefined_flag_CXX= whole_archive_flag_spec_CXX= enable_shared_with_static_runtimes_CXX=no # Source file extension for C++ test sources. ac_ext=cpp # Object file extension for compiled C++ test sources. objext=o objext_CXX=$objext # No sense in running all these tests if we already determined that # the CXX compiler isn't working. Some variables (like enable_shared) # are currently assumed to apply to all compilers on this platform, # and will be corrupted by setting them based on a non-working compiler. if test "$_lt_caught_CXX_error" != yes; then # Code to be used in simple compile tests lt_simple_compile_test_code="int some_variable = 0;" # Code to be used in simple link tests lt_simple_link_test_code='int main(int, char *[]) { return(0); }' # ltmain only uses $CC for tagged configurations so make sure $CC is set. # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC # save warnings/boilerplate of simple test code ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" >conftest.$ac_ext eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_compiler_boilerplate=`cat conftest.err` $RM conftest* ac_outfile=conftest.$ac_objext echo "$lt_simple_link_test_code" >conftest.$ac_ext eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_linker_boilerplate=`cat conftest.err` $RM -r conftest* # Allow CC to be a program name with arguments. lt_save_CC=$CC lt_save_CFLAGS=$CFLAGS lt_save_LD=$LD lt_save_GCC=$GCC GCC=$GXX lt_save_with_gnu_ld=$with_gnu_ld lt_save_path_LD=$lt_cv_path_LD if test -n "${lt_cv_prog_gnu_ldcxx+set}"; then lt_cv_prog_gnu_ld=$lt_cv_prog_gnu_ldcxx else $as_unset lt_cv_prog_gnu_ld fi if test -n "${lt_cv_path_LDCXX+set}"; then lt_cv_path_LD=$lt_cv_path_LDCXX else $as_unset lt_cv_path_LD fi test -z "${LDCXX+set}" || LD=$LDCXX CC=${CXX-"c++"} CFLAGS=$CXXFLAGS compiler=$CC compiler_CXX=$CC for cc_temp in $compiler""; do case $cc_temp in compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` if test -n "$compiler"; then # We don't want -fno-exception when compiling C++ code, so set the # no_builtin_flag separately if test "$GXX" = yes; then lt_prog_compiler_no_builtin_flag_CXX=' -fno-builtin' else lt_prog_compiler_no_builtin_flag_CXX= fi if test "$GXX" = yes; then # Set up default GNU C++ configuration # Check whether --with-gnu-ld was given. if test "${with_gnu_ld+set}" = set; then : withval=$with_gnu_ld; test "$withval" = no || with_gnu_ld=yes else with_gnu_ld=no fi ac_prog=ld if test "$GCC" = yes; then # Check if gcc -print-prog-name=ld gives a path. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ld used by $CC" >&5 $as_echo_n "checking for ld used by $CC... " >&6; } 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. [\\/]* | ?:[\\/]*) re_direlt='/[^/][^/]*/\.\./' # Canonicalize the pathname 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. with_gnu_ld=unknown ;; esac elif test "$with_gnu_ld" = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU ld" >&5 $as_echo_n "checking for GNU ld... " >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for non-GNU ld" >&5 $as_echo_n "checking for non-GNU ld... " >&6; } fi if ${lt_cv_path_LD+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$LD"; then lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR for ac_dir in $PATH; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then lt_cv_path_LD="$ac_dir/$ac_prog" # Check to see if the program is GNU ld. I'd rather use --version, # but apparently some variants of GNU ld only accept -v. # Break only if it was the GNU/non-GNU ld that we prefer. case `"$lt_cv_path_LD" -v 2>&1 &5 $as_echo "$LD" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -z "$LD" && as_fn_error $? "no acceptable ld found in \$PATH" "$LINENO" 5 { $as_echo "$as_me:${as_lineno-$LINENO}: checking if the linker ($LD) is GNU ld" >&5 $as_echo_n "checking if the linker ($LD) is GNU ld... " >&6; } if ${lt_cv_prog_gnu_ld+:} false; then : $as_echo_n "(cached) " >&6 else # I'd rather use --version here, but apparently some GNU lds only accept -v. case `$LD -v 2>&1 &5 $as_echo "$lt_cv_prog_gnu_ld" >&6; } with_gnu_ld=$lt_cv_prog_gnu_ld # Check if GNU C++ uses GNU ld as the underlying linker, since the # archiving commands below assume that GNU ld is being used. if test "$with_gnu_ld" = yes; then archive_cmds_CXX='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds_CXX='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' hardcode_libdir_flag_spec_CXX='${wl}-rpath ${wl}$libdir' export_dynamic_flag_spec_CXX='${wl}--export-dynamic' # If archive_cmds runs LD, not CC, wlarc should be empty # XXX I think wlarc can be eliminated in ltcf-cxx, but I need to # investigate it a little bit more. (MM) wlarc='${wl}' # ancient GNU ld didn't support --whole-archive et. al. if eval "`$CC -print-prog-name=ld` --help 2>&1" | $GREP 'no-whole-archive' > /dev/null; then whole_archive_flag_spec_CXX="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' else whole_archive_flag_spec_CXX= fi else with_gnu_ld=no wlarc= # A generic and very simple default shared library creation # command for GNU C++ for the case where it uses the native # linker, instead of GNU ld. If possible, this setting should # overridden to take advantage of the native linker features on # the platform it is being used on. archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' fi # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' else GXX=no with_gnu_ld=no wlarc= fi # PORTME: fill in a description of your system's C++ link characteristics { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5 $as_echo_n "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; } ld_shlibs_CXX=yes case $host_os in aix3*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; aix[4-9]*) if test "$host_cpu" = ia64; then # On IA64, the linker does run time linking by default, so we don't # have to do anything special. aix_use_runtimelinking=no exp_sym_flag='-Bexport' no_entry_flag="" else aix_use_runtimelinking=no # Test if we are trying to use run time linking or normal # AIX style linking. If -brtl is somewhere in LDFLAGS, we # need to do runtime linking. case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*) for ld_flag in $LDFLAGS; do case $ld_flag in *-brtl*) aix_use_runtimelinking=yes break ;; esac done ;; esac exp_sym_flag='-bexport' no_entry_flag='-bnoentry' fi # When large executables or shared objects are built, AIX ld can # have problems creating the table of contents. If linking a library # or program results in "error TOC overflow" add -mminimal-toc to # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. archive_cmds_CXX='' hardcode_direct_CXX=yes hardcode_direct_absolute_CXX=yes hardcode_libdir_separator_CXX=':' link_all_deplibs_CXX=yes file_list_spec_CXX='${wl}-f,' if test "$GXX" = yes; then case $host_os in aix4.[012]|aix4.[012].*) # We only want to do this on AIX 4.2 and lower, the check # below for broken collect2 doesn't work under 4.3+ collect2name=`${CC} -print-prog-name=collect2` if test -f "$collect2name" && strings "$collect2name" | $GREP resolve_lib_name >/dev/null then # We have reworked collect2 : else # We have old collect2 hardcode_direct_CXX=unsupported # It fails to find uninstalled libraries when the uninstalled # path is not listed in the libpath. Setting hardcode_minus_L # to unsupported forces relinking hardcode_minus_L_CXX=yes hardcode_libdir_flag_spec_CXX='-L$libdir' hardcode_libdir_separator_CXX= fi esac shared_flag='-shared' if test "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi else # not using gcc if test "$host_cpu" = ia64; then # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release # chokes on -Wl,-G. The following line is correct: shared_flag='-G' else if test "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi fi fi export_dynamic_flag_spec_CXX='${wl}-bexpall' # It seems that -bexpall does not export symbols beginning with # underscore (_), so it is better to generate a list of symbols to # export. always_export_symbols_CXX=yes if test "$aix_use_runtimelinking" = yes; then # Warning - without using the other runtime loading flags (-brtl), # -berok will link without error, but may produce a broken library. allow_undefined_flag_CXX='-berok' # Determine the default libpath from the value encoded in an empty # executable. if test "${lt_cv_aix_libpath+set}" = set; then aix_libpath=$lt_cv_aix_libpath else if ${lt_cv_aix_libpath__CXX+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_cxx_try_link "$LINENO"; then : lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\([^ ]*\) *$/\1/ p } }' lt_cv_aix_libpath__CXX=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$lt_cv_aix_libpath__CXX"; then lt_cv_aix_libpath__CXX=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test -z "$lt_cv_aix_libpath__CXX"; then lt_cv_aix_libpath__CXX="/usr/lib:/lib" fi fi aix_libpath=$lt_cv_aix_libpath__CXX fi hardcode_libdir_flag_spec_CXX='${wl}-blibpath:$libdir:'"$aix_libpath" archive_expsym_cmds_CXX='$CC -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; then hardcode_libdir_flag_spec_CXX='${wl}-R $libdir:/usr/lib:/lib' allow_undefined_flag_CXX="-z nodefs" archive_expsym_cmds_CXX="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols" else # Determine the default libpath from the value encoded in an # empty executable. if test "${lt_cv_aix_libpath+set}" = set; then aix_libpath=$lt_cv_aix_libpath else if ${lt_cv_aix_libpath__CXX+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_cxx_try_link "$LINENO"; then : lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\([^ ]*\) *$/\1/ p } }' lt_cv_aix_libpath__CXX=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$lt_cv_aix_libpath__CXX"; then lt_cv_aix_libpath__CXX=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test -z "$lt_cv_aix_libpath__CXX"; then lt_cv_aix_libpath__CXX="/usr/lib:/lib" fi fi aix_libpath=$lt_cv_aix_libpath__CXX fi hardcode_libdir_flag_spec_CXX='${wl}-blibpath:$libdir:'"$aix_libpath" # Warning - without using the other run time loading flags, # -berok will link without error, but may produce a broken library. no_undefined_flag_CXX=' ${wl}-bernotok' allow_undefined_flag_CXX=' ${wl}-berok' if test "$with_gnu_ld" = yes; then # We only use this code for GNU lds that support --whole-archive. whole_archive_flag_spec_CXX='${wl}--whole-archive$convenience ${wl}--no-whole-archive' else # Exported symbols can be pulled into shared objects from archives whole_archive_flag_spec_CXX='$convenience' fi archive_cmds_need_lc_CXX=yes # This is similar to how AIX traditionally builds its shared # libraries. archive_expsym_cmds_CXX="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' fi fi ;; beos*) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then allow_undefined_flag_CXX=unsupported # Joseph Beckenbach says some releases of gcc # support --undefined. This deserves some investigation. FIXME archive_cmds_CXX='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' else ld_shlibs_CXX=no fi ;; chorus*) case $cc_basename in *) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; esac ;; cygwin* | mingw* | pw32* | cegcc*) case $GXX,$cc_basename in ,cl* | no,cl*) # Native MSVC # hardcode_libdir_flag_spec is actually meaningless, as there is # no search path for DLLs. hardcode_libdir_flag_spec_CXX=' ' allow_undefined_flag_CXX=unsupported always_export_symbols_CXX=yes file_list_spec_CXX='@' # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. archive_cmds_CXX='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-dll~linknames=' archive_expsym_cmds_CXX='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then $SED -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp; else $SED -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $export_symbols > $output_objdir/$soname.exp; fi~ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~ linknames=' # The linker will not automatically build a static lib if we build a DLL. # _LT_TAGVAR(old_archive_from_new_cmds, CXX)='true' enable_shared_with_static_runtimes_CXX=yes # Don't use ranlib old_postinstall_cmds_CXX='chmod 644 $oldlib' postlink_cmds_CXX='lt_outputfile="@OUTPUT@"~ lt_tool_outputfile="@TOOL_OUTPUT@"~ case $lt_outputfile in *.exe|*.EXE) ;; *) lt_outputfile="$lt_outputfile.exe" lt_tool_outputfile="$lt_tool_outputfile.exe" ;; esac~ func_to_tool_file "$lt_outputfile"~ if test "$MANIFEST_TOOL" != ":" && test -f "$lt_outputfile.manifest"; then $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1; $RM "$lt_outputfile.manifest"; fi' ;; *) # g++ # _LT_TAGVAR(hardcode_libdir_flag_spec, CXX) is actually meaningless, # as there is no search path for DLLs. hardcode_libdir_flag_spec_CXX='-L$libdir' export_dynamic_flag_spec_CXX='${wl}--export-all-symbols' allow_undefined_flag_CXX=unsupported always_export_symbols_CXX=no enable_shared_with_static_runtimes_CXX=yes if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' # If the export-symbols file already is a .def file (1st line # is EXPORTS), use it as is; otherwise, prepend... archive_expsym_cmds_CXX='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then cp $export_symbols $output_objdir/$soname.def; else echo EXPORTS > $output_objdir/$soname.def; cat $export_symbols >> $output_objdir/$soname.def; fi~ $CC -shared -nostdlib $output_objdir/$soname.def $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' else ld_shlibs_CXX=no fi ;; esac ;; darwin* | rhapsody*) archive_cmds_need_lc_CXX=no hardcode_direct_CXX=no hardcode_automatic_CXX=yes hardcode_shlibpath_var_CXX=unsupported if test "$lt_cv_ld_force_load" = "yes"; then whole_archive_flag_spec_CXX='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience ${wl}-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`' else whole_archive_flag_spec_CXX='' fi link_all_deplibs_CXX=yes allow_undefined_flag_CXX="$_lt_dar_allow_undefined" case $cc_basename in ifort*) _lt_dar_can_shared=yes ;; *) _lt_dar_can_shared=$GCC ;; esac if test "$_lt_dar_can_shared" = "yes"; then output_verbose_link_cmd=func_echo_all archive_cmds_CXX="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod${_lt_dsymutil}" module_cmds_CXX="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dsymutil}" archive_expsym_cmds_CXX="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring ${_lt_dar_single_mod}${_lt_dar_export_syms}${_lt_dsymutil}" module_expsym_cmds_CXX="sed -e 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dar_export_syms}${_lt_dsymutil}" if test "$lt_cv_apple_cc_single_mod" != "yes"; then archive_cmds_CXX="\$CC -r -keep_private_externs -nostdlib -o \${lib}-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \${lib}-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring${_lt_dsymutil}" archive_expsym_cmds_CXX="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -r -keep_private_externs -nostdlib -o \${lib}-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \${lib}-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring${_lt_dar_export_syms}${_lt_dsymutil}" fi else ld_shlibs_CXX=no fi ;; dgux*) case $cc_basename in ec++*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; ghcx*) # Green Hills C++ Compiler # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; *) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; esac ;; freebsd2.*) # C++ shared libraries reported to be fairly broken before # switch to ELF ld_shlibs_CXX=no ;; freebsd-elf*) archive_cmds_need_lc_CXX=no ;; freebsd* | dragonfly*) # FreeBSD 3 and later use GNU C++ and GNU ld with standard ELF # conventions ld_shlibs_CXX=yes ;; gnu*) ;; haiku*) archive_cmds_CXX='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' link_all_deplibs_CXX=yes ;; hpux9*) hardcode_libdir_flag_spec_CXX='${wl}+b ${wl}$libdir' hardcode_libdir_separator_CXX=: export_dynamic_flag_spec_CXX='${wl}-E' hardcode_direct_CXX=yes hardcode_minus_L_CXX=yes # Not in the search PATH, # but as the default # location of the library. case $cc_basename in CC*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; aCC*) archive_cmds_CXX='$RM $output_objdir/$soname~$CC -b ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | $EGREP "\-L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' ;; *) if test "$GXX" = yes; then archive_cmds_CXX='$RM $output_objdir/$soname~$CC -shared -nostdlib $pic_flag ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' else # FIXME: insert proper C++ library support ld_shlibs_CXX=no fi ;; esac ;; hpux10*|hpux11*) if test $with_gnu_ld = no; then hardcode_libdir_flag_spec_CXX='${wl}+b ${wl}$libdir' hardcode_libdir_separator_CXX=: case $host_cpu in hppa*64*|ia64*) ;; *) export_dynamic_flag_spec_CXX='${wl}-E' ;; esac fi case $host_cpu in hppa*64*|ia64*) hardcode_direct_CXX=no hardcode_shlibpath_var_CXX=no ;; *) hardcode_direct_CXX=yes hardcode_direct_absolute_CXX=yes hardcode_minus_L_CXX=yes # Not in the search PATH, # but as the default # location of the library. ;; esac case $cc_basename in CC*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; aCC*) case $host_cpu in hppa*64*) archive_cmds_CXX='$CC -b ${wl}+h ${wl}$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; ia64*) archive_cmds_CXX='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; *) archive_cmds_CXX='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; esac # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | $GREP "\-L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' ;; *) if test "$GXX" = yes; then if test $with_gnu_ld = no; then case $host_cpu in hppa*64*) archive_cmds_CXX='$CC -shared -nostdlib -fPIC ${wl}+h ${wl}$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; ia64*) archive_cmds_CXX='$CC -shared -nostdlib $pic_flag ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; *) archive_cmds_CXX='$CC -shared -nostdlib $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; esac fi else # FIXME: insert proper C++ library support ld_shlibs_CXX=no fi ;; esac ;; interix[3-9]*) hardcode_direct_CXX=no hardcode_shlibpath_var_CXX=no hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir' export_dynamic_flag_spec_CXX='${wl}-E' # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. # Instead, shared libraries are loaded at an image base (0x10000000 by # default) and relocated if they conflict, which is a slow very memory # consuming and fragmenting process. To avoid this, we pick a random, # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link # time. Moving up from 0x10000000 also allows more sbrk(2) space. archive_cmds_CXX='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' archive_expsym_cmds_CXX='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' ;; irix5* | irix6*) case $cc_basename in CC*) # SGI C++ archive_cmds_CXX='$CC -shared -all -multigot $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' # Archives containing C++ object files must be created using # "CC -ar", where "CC" is the IRIX C++ compiler. This is # necessary to make sure instantiated templates are included # in the archive. old_archive_cmds_CXX='$CC -ar -WR,-u -o $oldlib $oldobjs' ;; *) if test "$GXX" = yes; then if test "$with_gnu_ld" = no; then archive_cmds_CXX='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' else archive_cmds_CXX='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` -o $lib' fi fi link_all_deplibs_CXX=yes ;; esac hardcode_libdir_flag_spec_CXX='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator_CXX=: inherit_rpath_CXX=yes ;; linux* | k*bsd*-gnu | kopensolaris*-gnu) case $cc_basename in KCC*) # Kuck and Associates, Inc. (KAI) C++ Compiler # KCC will only create a shared library if the output file # ends with ".so" (or ".sl" for HP-UX), so rename the library # to its proper name (with version) after linking. archive_cmds_CXX='tempext=`echo $shared_ext | $SED -e '\''s/\([^()0-9A-Za-z{}]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' archive_expsym_cmds_CXX='tempext=`echo $shared_ext | $SED -e '\''s/\([^()0-9A-Za-z{}]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib ${wl}-retain-symbols-file,$export_symbols; mv \$templib $lib' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`$CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 | $GREP "ld"`; rm -f libconftest$shared_ext; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir' export_dynamic_flag_spec_CXX='${wl}--export-dynamic' # Archives containing C++ object files must be created using # "CC -Bstatic", where "CC" is the KAI C++ compiler. old_archive_cmds_CXX='$CC -Bstatic -o $oldlib $oldobjs' ;; icpc* | ecpc* ) # Intel C++ with_gnu_ld=yes # version 8.0 and above of icpc choke on multiply defined symbols # if we add $predep_objects and $postdep_objects, however 7.1 and # earlier do not add the objects themselves. case `$CC -V 2>&1` in *"Version 7."*) archive_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' ;; *) # Version 8.0 or newer tmp_idyn= case $host_cpu in ia64*) tmp_idyn=' -i_dynamic';; esac archive_cmds_CXX='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds_CXX='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' ;; esac archive_cmds_need_lc_CXX=no hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir' export_dynamic_flag_spec_CXX='${wl}--export-dynamic' whole_archive_flag_spec_CXX='${wl}--whole-archive$convenience ${wl}--no-whole-archive' ;; pgCC* | pgcpp*) # Portland Group C++ compiler case `$CC -V` in *pgCC\ [1-5].* | *pgcpp\ [1-5].*) prelink_cmds_CXX='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $objs $libobjs $compile_deplibs~ compile_command="$compile_command `find $tpldir -name \*.o | sort | $NL2SP`"' old_archive_cmds_CXX='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $oldobjs$old_deplibs~ $AR $AR_FLAGS $oldlib$oldobjs$old_deplibs `find $tpldir -name \*.o | sort | $NL2SP`~ $RANLIB $oldlib' archive_cmds_CXX='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $predep_objects $libobjs $deplibs $convenience $postdep_objects~ $CC -shared $pic_flag $predep_objects $libobjs $deplibs `find $tpldir -name \*.o | sort | $NL2SP` $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname -o $lib' archive_expsym_cmds_CXX='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $predep_objects $libobjs $deplibs $convenience $postdep_objects~ $CC -shared $pic_flag $predep_objects $libobjs $deplibs `find $tpldir -name \*.o | sort | $NL2SP` $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname ${wl}-retain-symbols-file ${wl}$export_symbols -o $lib' ;; *) # Version 6 and above use weak symbols archive_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname -o $lib' archive_expsym_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname ${wl}-retain-symbols-file ${wl}$export_symbols -o $lib' ;; esac hardcode_libdir_flag_spec_CXX='${wl}--rpath ${wl}$libdir' export_dynamic_flag_spec_CXX='${wl}--export-dynamic' whole_archive_flag_spec_CXX='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' ;; cxx*) # Compaq C++ archive_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib ${wl}-retain-symbols-file $wl$export_symbols' runpath_var=LD_RUN_PATH hardcode_libdir_flag_spec_CXX='-rpath $libdir' hardcode_libdir_separator_CXX=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "ld"`; templist=`func_echo_all "$templist" | $SED "s/\(^.*ld.*\)\( .*ld .*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "X$list" | $Xsed' ;; xl* | mpixl* | bgxl*) # IBM XL 8.0 on PPC, with GNU ld hardcode_libdir_flag_spec_CXX='${wl}-rpath ${wl}$libdir' export_dynamic_flag_spec_CXX='${wl}--export-dynamic' archive_cmds_CXX='$CC -qmkshrobj $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' if test "x$supports_anon_versioning" = xyes; then archive_expsym_cmds_CXX='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $CC -qmkshrobj $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' fi ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 no_undefined_flag_CXX=' -zdefs' archive_cmds_CXX='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' archive_expsym_cmds_CXX='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-retain-symbols-file ${wl}$export_symbols' hardcode_libdir_flag_spec_CXX='-R$libdir' whole_archive_flag_spec_CXX='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' compiler_needs_object_CXX=yes # Not sure whether something based on # $CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 # would be better. output_verbose_link_cmd='func_echo_all' # Archives containing C++ object files must be created using # "CC -xar", where "CC" is the Sun C++ compiler. This is # necessary to make sure instantiated templates are included # in the archive. old_archive_cmds_CXX='$CC -xar -o $oldlib $oldobjs' ;; esac ;; esac ;; lynxos*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; m88k*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; mvs*) case $cc_basename in cxx*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; *) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; esac ;; netbsd*) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then archive_cmds_CXX='$LD -Bshareable -o $lib $predep_objects $libobjs $deplibs $postdep_objects $linker_flags' wlarc= hardcode_libdir_flag_spec_CXX='-R$libdir' hardcode_direct_CXX=yes hardcode_shlibpath_var_CXX=no fi # Workaround some broken pre-1.5 toolchains output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP conftest.$objext | $SED -e "s:-lgcc -lc -lgcc::"' ;; *nto* | *qnx*) ld_shlibs_CXX=yes ;; openbsd2*) # C++ shared libraries are fairly broken ld_shlibs_CXX=no ;; openbsd*) if test -f /usr/libexec/ld.so; then hardcode_direct_CXX=yes hardcode_shlibpath_var_CXX=no hardcode_direct_absolute_CXX=yes archive_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir' if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then archive_expsym_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-retain-symbols-file,$export_symbols -o $lib' export_dynamic_flag_spec_CXX='${wl}-E' whole_archive_flag_spec_CXX="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' fi output_verbose_link_cmd=func_echo_all else ld_shlibs_CXX=no fi ;; osf3* | osf4* | osf5*) case $cc_basename in KCC*) # Kuck and Associates, Inc. (KAI) C++ Compiler # KCC will only create a shared library if the output file # ends with ".so" (or ".sl" for HP-UX), so rename the library # to its proper name (with version) after linking. archive_cmds_CXX='tempext=`echo $shared_ext | $SED -e '\''s/\([^()0-9A-Za-z{}]\)/\\\\\1/g'\''`; templib=`echo "$lib" | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir' hardcode_libdir_separator_CXX=: # Archives containing C++ object files must be created using # the KAI C++ compiler. case $host in osf3*) old_archive_cmds_CXX='$CC -Bstatic -o $oldlib $oldobjs' ;; *) old_archive_cmds_CXX='$CC -o $oldlib $oldobjs' ;; esac ;; RCC*) # Rational C++ 2.4.1 # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; cxx*) case $host in osf3*) allow_undefined_flag_CXX=' ${wl}-expect_unresolved ${wl}\*' archive_cmds_CXX='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $soname `test -n "$verstring" && func_echo_all "${wl}-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' hardcode_libdir_flag_spec_CXX='${wl}-rpath ${wl}$libdir' ;; *) allow_undefined_flag_CXX=' -expect_unresolved \*' archive_cmds_CXX='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' archive_expsym_cmds_CXX='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done~ echo "-hidden">> $lib.exp~ $CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname ${wl}-input ${wl}$lib.exp `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib~ $RM $lib.exp' hardcode_libdir_flag_spec_CXX='-rpath $libdir' ;; esac hardcode_libdir_separator_CXX=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "ld" | $GREP -v "ld:"`; templist=`func_echo_all "$templist" | $SED "s/\(^.*ld.*\)\( .*ld.*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' ;; *) if test "$GXX" = yes && test "$with_gnu_ld" = no; then allow_undefined_flag_CXX=' ${wl}-expect_unresolved ${wl}\*' case $host in osf3*) archive_cmds_CXX='$CC -shared -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' ;; *) archive_cmds_CXX='$CC -shared $pic_flag -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' ;; esac hardcode_libdir_flag_spec_CXX='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator_CXX=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' else # FIXME: insert proper C++ library support ld_shlibs_CXX=no fi ;; esac ;; psos*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; sunos4*) case $cc_basename in CC*) # Sun C++ 4.x # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; lcc*) # Lucid # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; *) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; esac ;; solaris*) case $cc_basename in CC* | sunCC*) # Sun C++ 4.2, 5.x and Centerline C++ archive_cmds_need_lc_CXX=yes no_undefined_flag_CXX=' -zdefs' archive_cmds_CXX='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' archive_expsym_cmds_CXX='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G${allow_undefined_flag} ${wl}-M ${wl}$lib.exp -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp' hardcode_libdir_flag_spec_CXX='-R$libdir' hardcode_shlibpath_var_CXX=no case $host_os in solaris2.[0-5] | solaris2.[0-5].*) ;; *) # The compiler driver will combine and reorder linker options, # but understands `-z linker_flag'. # Supported since Solaris 2.6 (maybe 2.5.1?) whole_archive_flag_spec_CXX='-z allextract$convenience -z defaultextract' ;; esac link_all_deplibs_CXX=yes output_verbose_link_cmd='func_echo_all' # Archives containing C++ object files must be created using # "CC -xar", where "CC" is the Sun C++ compiler. This is # necessary to make sure instantiated templates are included # in the archive. old_archive_cmds_CXX='$CC -xar -o $oldlib $oldobjs' ;; gcx*) # Green Hills C++ Compiler archive_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' # The C++ compiler must be used to create the archive. old_archive_cmds_CXX='$CC $LDFLAGS -archive -o $oldlib $oldobjs' ;; *) # GNU C++ compiler with Solaris linker if test "$GXX" = yes && test "$with_gnu_ld" = no; then no_undefined_flag_CXX=' ${wl}-z ${wl}defs' if $CC --version | $GREP -v '^2\.7' > /dev/null; then archive_cmds_CXX='$CC -shared $pic_flag -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' archive_expsym_cmds_CXX='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -shared $pic_flag -nostdlib ${wl}-M $wl$lib.exp -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' else # g++ 2.7 appears to require `-G' NOT `-shared' on this # platform. archive_cmds_CXX='$CC -G -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' archive_expsym_cmds_CXX='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G -nostdlib ${wl}-M $wl$lib.exp -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -G $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' fi hardcode_libdir_flag_spec_CXX='${wl}-R $wl$libdir' case $host_os in solaris2.[0-5] | solaris2.[0-5].*) ;; *) whole_archive_flag_spec_CXX='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract' ;; esac fi ;; esac ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*) no_undefined_flag_CXX='${wl}-z,text' archive_cmds_need_lc_CXX=no hardcode_shlibpath_var_CXX=no runpath_var='LD_RUN_PATH' case $cc_basename in CC*) archive_cmds_CXX='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_CXX='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' ;; *) archive_cmds_CXX='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_CXX='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' ;; esac ;; sysv5* | sco3.2v5* | sco5v6*) # Note: We can NOT use -z defs as we might desire, because we do not # link with -lc, and that would cause any symbols used from libc to # always be unresolved, which means just about no library would # ever link correctly. If we're not using GNU ld we use -z text # though, which does catch some bad symbols but isn't as heavy-handed # as -z defs. no_undefined_flag_CXX='${wl}-z,text' allow_undefined_flag_CXX='${wl}-z,nodefs' archive_cmds_need_lc_CXX=no hardcode_shlibpath_var_CXX=no hardcode_libdir_flag_spec_CXX='${wl}-R,$libdir' hardcode_libdir_separator_CXX=':' link_all_deplibs_CXX=yes export_dynamic_flag_spec_CXX='${wl}-Bexport' runpath_var='LD_RUN_PATH' case $cc_basename in CC*) archive_cmds_CXX='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_CXX='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' old_archive_cmds_CXX='$CC -Tprelink_objects $oldobjs~ '"$old_archive_cmds_CXX" reload_cmds_CXX='$CC -Tprelink_objects $reload_objs~ '"$reload_cmds_CXX" ;; *) archive_cmds_CXX='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_CXX='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' ;; esac ;; tandem*) case $cc_basename in NCC*) # NonStop-UX NCC 3.20 # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; *) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; esac ;; vxworks*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; *) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs_CXX" >&5 $as_echo "$ld_shlibs_CXX" >&6; } test "$ld_shlibs_CXX" = no && can_build_shared=no GCC_CXX="$GXX" LD_CXX="$LD" ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... # Dependencies to place before and after the object being linked: predep_objects_CXX= postdep_objects_CXX= predeps_CXX= postdeps_CXX= compiler_lib_search_path_CXX= cat > conftest.$ac_ext <<_LT_EOF class Foo { public: Foo (void) { a = 0; } private: int a; }; _LT_EOF _lt_libdeps_save_CFLAGS=$CFLAGS case "$CC $CFLAGS " in #( *\ -flto*\ *) CFLAGS="$CFLAGS -fno-lto" ;; *\ -fwhopr*\ *) CFLAGS="$CFLAGS -fno-whopr" ;; *\ -fuse-linker-plugin*\ *) CFLAGS="$CFLAGS -fno-use-linker-plugin" ;; esac if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then # Parse the compiler output and extract the necessary # objects, libraries and library flags. # Sentinel used to keep track of whether or not we are before # the conftest object file. pre_test_object_deps_done=no for p in `eval "$output_verbose_link_cmd"`; do case ${prev}${p} in -L* | -R* | -l*) # Some compilers place space between "-{L,R}" and the path. # Remove the space. if test $p = "-L" || test $p = "-R"; then prev=$p continue fi # Expand the sysroot to ease extracting the directories later. if test -z "$prev"; then case $p in -L*) func_stripname_cnf '-L' '' "$p"; prev=-L; p=$func_stripname_result ;; -R*) func_stripname_cnf '-R' '' "$p"; prev=-R; p=$func_stripname_result ;; -l*) func_stripname_cnf '-l' '' "$p"; prev=-l; p=$func_stripname_result ;; esac fi case $p in =*) func_stripname_cnf '=' '' "$p"; p=$lt_sysroot$func_stripname_result ;; esac if test "$pre_test_object_deps_done" = no; then case ${prev} in -L | -R) # Internal compiler library paths should come after those # provided the user. The postdeps already come after the # user supplied libs so there is no need to process them. if test -z "$compiler_lib_search_path_CXX"; then compiler_lib_search_path_CXX="${prev}${p}" else compiler_lib_search_path_CXX="${compiler_lib_search_path_CXX} ${prev}${p}" fi ;; # The "-l" case would never come before the object being # linked, so don't bother handling this case. esac else if test -z "$postdeps_CXX"; then postdeps_CXX="${prev}${p}" else postdeps_CXX="${postdeps_CXX} ${prev}${p}" fi fi prev= ;; *.lto.$objext) ;; # Ignore GCC LTO objects *.$objext) # This assumes that the test object file only shows up # once in the compiler output. if test "$p" = "conftest.$objext"; then pre_test_object_deps_done=yes continue fi if test "$pre_test_object_deps_done" = no; then if test -z "$predep_objects_CXX"; then predep_objects_CXX="$p" else predep_objects_CXX="$predep_objects_CXX $p" fi else if test -z "$postdep_objects_CXX"; then postdep_objects_CXX="$p" else postdep_objects_CXX="$postdep_objects_CXX $p" fi fi ;; *) ;; # Ignore the rest. esac done # Clean up. rm -f a.out a.exe else echo "libtool.m4: error: problem compiling CXX test program" fi $RM -f confest.$objext CFLAGS=$_lt_libdeps_save_CFLAGS # PORTME: override above test on systems where it is broken case $host_os in interix[3-9]*) # Interix 3.5 installs completely hosed .la files for C++, so rather than # hack all around it, let's just trust "g++" to DTRT. predep_objects_CXX= postdep_objects_CXX= postdeps_CXX= ;; linux*) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 # The more standards-conforming stlport4 library is # incompatible with the Cstd library. Avoid specifying # it if it's in CXXFLAGS. Ignore libCrun as # -library=stlport4 depends on it. case " $CXX $CXXFLAGS " in *" -library=stlport4 "*) solaris_use_stlport4=yes ;; esac if test "$solaris_use_stlport4" != yes; then postdeps_CXX='-library=Cstd -library=Crun' fi ;; esac ;; solaris*) case $cc_basename in CC* | sunCC*) # The more standards-conforming stlport4 library is # incompatible with the Cstd library. Avoid specifying # it if it's in CXXFLAGS. Ignore libCrun as # -library=stlport4 depends on it. case " $CXX $CXXFLAGS " in *" -library=stlport4 "*) solaris_use_stlport4=yes ;; esac # Adding this requires a known-good setup of shared libraries for # Sun compiler versions before 5.6, else PIC objects from an old # archive will be linked into the output, leading to subtle bugs. if test "$solaris_use_stlport4" != yes; then postdeps_CXX='-library=Cstd -library=Crun' fi ;; esac ;; esac case " $postdeps_CXX " in *" -lc "*) archive_cmds_need_lc_CXX=no ;; esac compiler_lib_search_dirs_CXX= if test -n "${compiler_lib_search_path_CXX}"; then compiler_lib_search_dirs_CXX=`echo " ${compiler_lib_search_path_CXX}" | ${SED} -e 's! -L! !g' -e 's!^ !!'` fi lt_prog_compiler_wl_CXX= lt_prog_compiler_pic_CXX= lt_prog_compiler_static_CXX= # C++ specific cases for pic, static, wl, etc. if test "$GXX" = yes; then lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_static_CXX='-static' case $host_os in aix*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor lt_prog_compiler_static_CXX='-Bstatic' fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support lt_prog_compiler_pic_CXX='-fPIC' ;; m68k) # FIXME: we need at least 68020 code to build shared libraries, but # adding the `-m68020' flag to GCC prevents building anything better, # like `-m68040'. lt_prog_compiler_pic_CXX='-m68020 -resident32 -malways-restore-a4' ;; esac ;; beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) # PIC is the default for these OSes. ;; mingw* | cygwin* | os2* | pw32* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). # Although the cygwin gcc ignores -fPIC, still need this for old-style # (--disable-auto-import) libraries lt_prog_compiler_pic_CXX='-DDLL_EXPORT' ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files lt_prog_compiler_pic_CXX='-fno-common' ;; *djgpp*) # DJGPP does not support shared libraries at all lt_prog_compiler_pic_CXX= ;; haiku*) # PIC is the default for Haiku. # The "-static" flag exists, but is broken. lt_prog_compiler_static_CXX= ;; interix[3-9]*) # Interix 3.x gcc -fpic/-fPIC options generate broken code. # Instead, we relocate shared libraries at runtime. ;; sysv4*MP*) if test -d /usr/nec; then lt_prog_compiler_pic_CXX=-Kconform_pic fi ;; hpux*) # PIC is the default for 64-bit PA HP-UX, but not for 32-bit # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag # sets the default TLS model and affects inlining. case $host_cpu in hppa*64*) ;; *) lt_prog_compiler_pic_CXX='-fPIC' ;; esac ;; *qnx* | *nto*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. lt_prog_compiler_pic_CXX='-fPIC -shared' ;; *) lt_prog_compiler_pic_CXX='-fPIC' ;; esac else case $host_os in aix[4-9]*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor lt_prog_compiler_static_CXX='-Bstatic' else lt_prog_compiler_static_CXX='-bnso -bI:/lib/syscalls.exp' fi ;; chorus*) case $cc_basename in cxch68*) # Green Hills C++ Compiler # _LT_TAGVAR(lt_prog_compiler_static, CXX)="--no_auto_instantiation -u __main -u __premain -u _abort -r $COOL_DIR/lib/libOrb.a $MVME_DIR/lib/CC/libC.a $MVME_DIR/lib/classix/libcx.s.a" ;; esac ;; mingw* | cygwin* | os2* | pw32* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). lt_prog_compiler_pic_CXX='-DDLL_EXPORT' ;; dgux*) case $cc_basename in ec++*) lt_prog_compiler_pic_CXX='-KPIC' ;; ghcx*) # Green Hills C++ Compiler lt_prog_compiler_pic_CXX='-pic' ;; *) ;; esac ;; freebsd* | dragonfly*) # FreeBSD uses GNU C++ ;; hpux9* | hpux10* | hpux11*) case $cc_basename in CC*) lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_static_CXX='${wl}-a ${wl}archive' if test "$host_cpu" != ia64; then lt_prog_compiler_pic_CXX='+Z' fi ;; aCC*) lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_static_CXX='${wl}-a ${wl}archive' case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) lt_prog_compiler_pic_CXX='+Z' ;; esac ;; *) ;; esac ;; interix*) # This is c89, which is MS Visual C++ (no shared libs) # Anyone wants to do a port? ;; irix5* | irix6* | nonstopux*) case $cc_basename in CC*) lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_static_CXX='-non_shared' # CC pic flag -KPIC is the default. ;; *) ;; esac ;; linux* | k*bsd*-gnu | kopensolaris*-gnu) case $cc_basename in KCC*) # KAI C++ Compiler lt_prog_compiler_wl_CXX='--backend -Wl,' lt_prog_compiler_pic_CXX='-fPIC' ;; ecpc* ) # old Intel C++ for x86_64 which still supported -KPIC. lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_pic_CXX='-KPIC' lt_prog_compiler_static_CXX='-static' ;; icpc* ) # Intel C++, used to be incompatible with GCC. # ICC 10 doesn't accept -KPIC any more. lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_pic_CXX='-fPIC' lt_prog_compiler_static_CXX='-static' ;; pgCC* | pgcpp*) # Portland Group C++ compiler lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_pic_CXX='-fpic' lt_prog_compiler_static_CXX='-Bstatic' ;; cxx*) # Compaq C++ # Make sure the PIC flag is empty. It appears that all Alpha # Linux and Compaq Tru64 Unix objects are PIC. lt_prog_compiler_pic_CXX= lt_prog_compiler_static_CXX='-non_shared' ;; xlc* | xlC* | bgxl[cC]* | mpixl[cC]*) # IBM XL 8.0, 9.0 on PPC and BlueGene lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_pic_CXX='-qpic' lt_prog_compiler_static_CXX='-qstaticlink' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 lt_prog_compiler_pic_CXX='-KPIC' lt_prog_compiler_static_CXX='-Bstatic' lt_prog_compiler_wl_CXX='-Qoption ld ' ;; esac ;; esac ;; lynxos*) ;; m88k*) ;; mvs*) case $cc_basename in cxx*) lt_prog_compiler_pic_CXX='-W c,exportall' ;; *) ;; esac ;; netbsd*) ;; *qnx* | *nto*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. lt_prog_compiler_pic_CXX='-fPIC -shared' ;; osf3* | osf4* | osf5*) case $cc_basename in KCC*) lt_prog_compiler_wl_CXX='--backend -Wl,' ;; RCC*) # Rational C++ 2.4.1 lt_prog_compiler_pic_CXX='-pic' ;; cxx*) # Digital/Compaq C++ lt_prog_compiler_wl_CXX='-Wl,' # Make sure the PIC flag is empty. It appears that all Alpha # Linux and Compaq Tru64 Unix objects are PIC. lt_prog_compiler_pic_CXX= lt_prog_compiler_static_CXX='-non_shared' ;; *) ;; esac ;; psos*) ;; solaris*) case $cc_basename in CC* | sunCC*) # Sun C++ 4.2, 5.x and Centerline C++ lt_prog_compiler_pic_CXX='-KPIC' lt_prog_compiler_static_CXX='-Bstatic' lt_prog_compiler_wl_CXX='-Qoption ld ' ;; gcx*) # Green Hills C++ Compiler lt_prog_compiler_pic_CXX='-PIC' ;; *) ;; esac ;; sunos4*) case $cc_basename in CC*) # Sun C++ 4.x lt_prog_compiler_pic_CXX='-pic' lt_prog_compiler_static_CXX='-Bstatic' ;; lcc*) # Lucid lt_prog_compiler_pic_CXX='-pic' ;; *) ;; esac ;; sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) case $cc_basename in CC*) lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_pic_CXX='-KPIC' lt_prog_compiler_static_CXX='-Bstatic' ;; esac ;; tandem*) case $cc_basename in NCC*) # NonStop-UX NCC 3.20 lt_prog_compiler_pic_CXX='-KPIC' ;; *) ;; esac ;; vxworks*) ;; *) lt_prog_compiler_can_build_shared_CXX=no ;; esac fi case $host_os in # For platforms which do not support PIC, -DPIC is meaningless: *djgpp*) lt_prog_compiler_pic_CXX= ;; *) lt_prog_compiler_pic_CXX="$lt_prog_compiler_pic_CXX -DPIC" ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $compiler option to produce PIC" >&5 $as_echo_n "checking for $compiler option to produce PIC... " >&6; } if ${lt_cv_prog_compiler_pic_CXX+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_pic_CXX=$lt_prog_compiler_pic_CXX fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_CXX" >&5 $as_echo "$lt_cv_prog_compiler_pic_CXX" >&6; } lt_prog_compiler_pic_CXX=$lt_cv_prog_compiler_pic_CXX # # Check to make sure the PIC flag actually works. # if test -n "$lt_prog_compiler_pic_CXX"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic_CXX works" >&5 $as_echo_n "checking if $compiler PIC flag $lt_prog_compiler_pic_CXX works... " >&6; } if ${lt_cv_prog_compiler_pic_works_CXX+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_pic_works_CXX=no ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="$lt_prog_compiler_pic_CXX -DPIC" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_pic_works_CXX=yes fi fi $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_works_CXX" >&5 $as_echo "$lt_cv_prog_compiler_pic_works_CXX" >&6; } if test x"$lt_cv_prog_compiler_pic_works_CXX" = xyes; then case $lt_prog_compiler_pic_CXX in "" | " "*) ;; *) lt_prog_compiler_pic_CXX=" $lt_prog_compiler_pic_CXX" ;; esac else lt_prog_compiler_pic_CXX= lt_prog_compiler_can_build_shared_CXX=no fi fi # # Check to make sure the static flag actually works. # wl=$lt_prog_compiler_wl_CXX eval lt_tmp_static_flag=\"$lt_prog_compiler_static_CXX\" { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler static flag $lt_tmp_static_flag works" >&5 $as_echo_n "checking if $compiler static flag $lt_tmp_static_flag works... " >&6; } if ${lt_cv_prog_compiler_static_works_CXX+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_static_works_CXX=no save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS $lt_tmp_static_flag" echo "$lt_simple_link_test_code" > conftest.$ac_ext if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then # The linker can only warn and ignore the option if not recognized # So say no if there are warnings if test -s conftest.err; then # Append any errors to the config.log. cat conftest.err 1>&5 $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_static_works_CXX=yes fi else lt_cv_prog_compiler_static_works_CXX=yes fi fi $RM -r conftest* LDFLAGS="$save_LDFLAGS" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_static_works_CXX" >&5 $as_echo "$lt_cv_prog_compiler_static_works_CXX" >&6; } if test x"$lt_cv_prog_compiler_static_works_CXX" = xyes; then : else lt_prog_compiler_static_CXX= fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5 $as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; } if ${lt_cv_prog_compiler_c_o_CXX+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_c_o_CXX=no $RM -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then lt_cv_prog_compiler_c_o_CXX=yes fi fi chmod u+w . 2>&5 $RM conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files $RM out/* && rmdir out cd .. $RM -r conftest $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o_CXX" >&5 $as_echo "$lt_cv_prog_compiler_c_o_CXX" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5 $as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; } if ${lt_cv_prog_compiler_c_o_CXX+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_c_o_CXX=no $RM -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then lt_cv_prog_compiler_c_o_CXX=yes fi fi chmod u+w . 2>&5 $RM conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files $RM out/* && rmdir out cd .. $RM -r conftest $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o_CXX" >&5 $as_echo "$lt_cv_prog_compiler_c_o_CXX" >&6; } hard_links="nottested" if test "$lt_cv_prog_compiler_c_o_CXX" = no && test "$need_locks" != no; then # do not overwrite the value of need_locks provided by the user { $as_echo "$as_me:${as_lineno-$LINENO}: checking if we can lock with hard links" >&5 $as_echo_n "checking if we can lock with hard links... " >&6; } hard_links=yes $RM conftest* ln conftest.a conftest.b 2>/dev/null && hard_links=no touch conftest.a ln conftest.a conftest.b 2>&5 || hard_links=no ln conftest.a conftest.b 2>/dev/null && hard_links=no { $as_echo "$as_me:${as_lineno-$LINENO}: result: $hard_links" >&5 $as_echo "$hard_links" >&6; } if test "$hard_links" = no; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&5 $as_echo "$as_me: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&2;} need_locks=warn fi else need_locks=no fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5 $as_echo_n "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; } export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' exclude_expsyms_CXX='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' case $host_os in aix[4-9]*) # If we're using GNU nm, then we don't want the "-C" option. # -C means demangle to AIX nm, but means don't demangle with GNU nm # Also, AIX nm treats weak defined symbols like other global defined # symbols, whereas GNU nm marks them as "W". if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then export_symbols_cmds_CXX='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' else export_symbols_cmds_CXX='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' fi ;; pw32*) export_symbols_cmds_CXX="$ltdll_cmds" ;; cygwin* | mingw* | cegcc*) case $cc_basename in cl*) exclude_expsyms_CXX='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*' ;; *) export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols' exclude_expsyms_CXX='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname' ;; esac ;; *) export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs_CXX" >&5 $as_echo "$ld_shlibs_CXX" >&6; } test "$ld_shlibs_CXX" = no && can_build_shared=no with_gnu_ld_CXX=$with_gnu_ld # # Do we need to explicitly link libc? # case "x$archive_cmds_need_lc_CXX" in x|xyes) # Assume -lc should be added archive_cmds_need_lc_CXX=yes if test "$enable_shared" = yes && test "$GCC" = yes; then case $archive_cmds_CXX in *'~'*) # FIXME: we may have to deal with multi-command sequences. ;; '$CC '*) # Test whether the compiler implicitly links with -lc since on some # systems, -lgcc has to come before -lc. If gcc already passes -lc # to ld, don't add -lc before -lgcc. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether -lc should be explicitly linked in" >&5 $as_echo_n "checking whether -lc should be explicitly linked in... " >&6; } if ${lt_cv_archive_cmds_need_lc_CXX+:} false; then : $as_echo_n "(cached) " >&6 else $RM conftest* echo "$lt_simple_compile_test_code" > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } 2>conftest.err; then soname=conftest lib=conftest libobjs=conftest.$ac_objext deplibs= wl=$lt_prog_compiler_wl_CXX pic_flag=$lt_prog_compiler_pic_CXX compiler_flags=-v linker_flags=-v verstring= output_objdir=. libname=conftest lt_save_allow_undefined_flag=$allow_undefined_flag_CXX allow_undefined_flag_CXX= if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$archive_cmds_CXX 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1\""; } >&5 (eval $archive_cmds_CXX 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } then lt_cv_archive_cmds_need_lc_CXX=no else lt_cv_archive_cmds_need_lc_CXX=yes fi allow_undefined_flag_CXX=$lt_save_allow_undefined_flag else cat conftest.err 1>&5 fi $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_archive_cmds_need_lc_CXX" >&5 $as_echo "$lt_cv_archive_cmds_need_lc_CXX" >&6; } archive_cmds_need_lc_CXX=$lt_cv_archive_cmds_need_lc_CXX ;; esac fi ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5 $as_echo_n "checking dynamic linker characteristics... " >&6; } library_names_spec= libname_spec='lib$name' soname_spec= shrext_cmds=".so" postinstall_cmds= postuninstall_cmds= finish_cmds= finish_eval= shlibpath_var= shlibpath_overrides_runpath=unknown version_type=none dynamic_linker="$host_os ld.so" sys_lib_dlsearch_path_spec="/lib /usr/lib" need_lib_prefix=unknown hardcode_into_libs=no # when you set need_version to no, make sure it does not cause -set_version # flags to be left without arguments need_version=unknown case $host_os in aix3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a' shlibpath_var=LIBPATH # AIX 3 has no versioning support, so we append a major version to the name. soname_spec='${libname}${release}${shared_ext}$major' ;; aix[4-9]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no hardcode_into_libs=yes if test "$host_cpu" = ia64; then # AIX 5 supports IA64 library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH else # With GCC up to 2.95.x, collect2 would create an import file # for dependence libraries. The import file would start with # the line `#! .'. This would cause the generated library to # depend on `.', always an invalid library. This was fixed in # development snapshots of GCC prior to 3.0. case $host_os in aix4 | aix4.[01] | aix4.[01].*) if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' echo ' yes ' echo '#endif'; } | ${CC} -E - | $GREP yes > /dev/null; then : else can_build_shared=no fi ;; esac # AIX (on Power*) has no versioning support, so currently we can not hardcode correct # soname into executable. Probably we can add versioning support to # collect2, so additional links can be useful in future. if test "$aix_use_runtimelinking" = yes; then # If using run time linking (on AIX 4.2 or later) use lib.so # instead of lib.a to let people know that these are not # typical AIX shared libraries. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' else # We preserve .a as extension for shared libraries through AIX4.2 # and later when we are not doing run time linking. library_names_spec='${libname}${release}.a $libname.a' soname_spec='${libname}${release}${shared_ext}$major' fi shlibpath_var=LIBPATH fi ;; amigaos*) case $host_cpu in powerpc) # Since July 2007 AmigaOS4 officially supports .so libraries. # When compiling the executable, add -use-dynld -Lsobjs: to the compileline. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' ;; m68k) library_names_spec='$libname.ixlibrary $libname.a' # Create ${libname}_ixlibrary.a entries in /sys/libs. finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; test $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' ;; esac ;; beos*) library_names_spec='${libname}${shared_ext}' dynamic_linker="$host_os ld.so" shlibpath_var=LIBRARY_PATH ;; bsdi[45]*) version_type=linux # correct to gnu/linux during the next big refactor need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" # the default ld.so.conf also contains /usr/contrib/lib and # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow # libtool to hard-code these into programs ;; cygwin* | mingw* | pw32* | cegcc*) version_type=windows shrext_cmds=".dll" need_version=no need_lib_prefix=no case $GCC,$cc_basename in yes,*) # gcc library_names_spec='$libname.dll.a' # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \${file}`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname~ chmod a+x \$dldir/$dlname~ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then eval '\''$striplib \$dldir/$dlname'\'' || exit \$?; fi' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes case $host_os in cygwin*) # Cygwin DLLs use 'cyg' prefix rather than 'lib' soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' ;; mingw* | cegcc*) # MinGW DLLs use traditional 'lib' prefix soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' ;; pw32*) # pw32 DLLs use 'pw' prefix rather than 'lib' library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' ;; esac dynamic_linker='Win32 ld.exe' ;; *,cl*) # Native MSVC libname_spec='$name' soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' library_names_spec='${libname}.dll.lib' case $build_os in mingw*) sys_lib_search_path_spec= lt_save_ifs=$IFS IFS=';' for lt_path in $LIB do IFS=$lt_save_ifs # Let DOS variable expansion print the short 8.3 style file name. lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"` sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path" done IFS=$lt_save_ifs # Convert to MSYS style. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([a-zA-Z]\\):| /\\1|g' -e 's|^ ||'` ;; cygwin*) # Convert to unix form, then to dos form, then back to unix form # but this time dos style (no spaces!) so that the unix form looks # like /cygdrive/c/PROGRA~1:/cygdr... sys_lib_search_path_spec=`cygpath --path --unix "$LIB"` sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null` sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` ;; *) sys_lib_search_path_spec="$LIB" if $ECHO "$sys_lib_search_path_spec" | $GREP ';[c-zC-Z]:/' >/dev/null; then # It is most probably a Windows format PATH. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` else sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` fi # FIXME: find the short name or the path components, as spaces are # common. (e.g. "Program Files" -> "PROGRA~1") ;; esac # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \${file}`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes dynamic_linker='Win32 link.exe' ;; *) # Assume MSVC wrapper library_names_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext} $libname.lib' dynamic_linker='Win32 ld.exe' ;; esac # FIXME: first we should search . and the directory the executable is in shlibpath_var=PATH ;; darwin* | rhapsody*) dynamic_linker="$host_os dyld" version_type=darwin need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${major}$shared_ext ${libname}$shared_ext' soname_spec='${libname}${release}${major}$shared_ext' shlibpath_overrides_runpath=yes shlibpath_var=DYLD_LIBRARY_PATH shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`' sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' ;; dgux*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; freebsd* | dragonfly*) # DragonFly does not have aout. When/if they implement a new # versioning mechanism, adjust this. if test -x /usr/bin/objformat; then objformat=`/usr/bin/objformat` else case $host_os in freebsd[23].*) objformat=aout ;; *) objformat=elf ;; esac fi version_type=freebsd-$objformat case $version_type in freebsd-elf*) library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' need_version=no need_lib_prefix=no ;; freebsd-*) library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix' need_version=yes ;; esac shlibpath_var=LD_LIBRARY_PATH case $host_os in freebsd2.*) shlibpath_overrides_runpath=yes ;; freebsd3.[01]* | freebsdelf3.[01]*) shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; freebsd3.[2-9]* | freebsdelf3.[2-9]* | \ freebsd4.[0-5] | freebsdelf4.[0-5] | freebsd4.1.1 | freebsdelf4.1.1) shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; *) # from 4.6 on, and DragonFly shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; esac ;; gnu*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; haiku*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no dynamic_linker="$host_os runtime_loader" library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LIBRARY_PATH shlibpath_overrides_runpath=yes sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib' hardcode_into_libs=yes ;; hpux9* | hpux10* | hpux11*) # Give a soname corresponding to the major version so that dld.sl refuses to # link against other versions. version_type=sunos need_lib_prefix=no need_version=no case $host_cpu in ia64*) shrext_cmds='.so' hardcode_into_libs=yes dynamic_linker="$host_os dld.so" shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' if test "X$HPUX_IA64_MODE" = X32; then sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" else sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" fi sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; hppa*64*) shrext_cmds='.sl' hardcode_into_libs=yes dynamic_linker="$host_os dld.sl" shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; *) shrext_cmds='.sl' dynamic_linker="$host_os dld.sl" shlibpath_var=SHLIB_PATH shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' ;; esac # HP-UX runs *really* slowly unless shared libraries are mode 555, ... postinstall_cmds='chmod 555 $lib' # or fails outright, so override atomically: install_override_mode=555 ;; interix[3-9]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; irix5* | irix6* | nonstopux*) case $host_os in nonstopux*) version_type=nonstopux ;; *) if test "$lt_cv_prog_gnu_ld" = yes; then version_type=linux # correct to gnu/linux during the next big refactor else version_type=irix fi ;; esac need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}' case $host_os in irix5* | nonstopux*) libsuff= shlibsuff= ;; *) case $LD in # libtool.m4 will add one of these switches to LD *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") libsuff= shlibsuff= libmagic=32-bit;; *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") libsuff=32 shlibsuff=N32 libmagic=N32;; *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") libsuff=64 shlibsuff=64 libmagic=64-bit;; *) libsuff= shlibsuff= libmagic=never-match;; esac ;; esac shlibpath_var=LD_LIBRARY${shlibsuff}_PATH shlibpath_overrides_runpath=no sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" hardcode_into_libs=yes ;; # No shared lib support for Linux oldld, aout, or coff. linux*oldld* | linux*aout* | linux*coff*) dynamic_linker=no ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no # Some binutils ld are patched to set DT_RUNPATH if ${lt_cv_shlibpath_overrides_runpath+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_shlibpath_overrides_runpath=no save_LDFLAGS=$LDFLAGS save_libdir=$libdir eval "libdir=/foo; wl=\"$lt_prog_compiler_wl_CXX\"; \ LDFLAGS=\"\$LDFLAGS $hardcode_libdir_flag_spec_CXX\"" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_cxx_try_link "$LINENO"; then : if ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null; then : lt_cv_shlibpath_overrides_runpath=yes fi fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LDFLAGS=$save_LDFLAGS libdir=$save_libdir fi shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath # This implies no fast_install, which is unacceptable. # Some rework will be needed to allow for fast_install # before this can be enabled. hardcode_into_libs=yes # Add ABI-specific directories to the system library path. sys_lib_dlsearch_path_spec="/lib64 /usr/lib64 /lib /usr/lib" # Append ld.so.conf contents to the search path if test -f /etc/ld.so.conf; then lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '` sys_lib_dlsearch_path_spec="$sys_lib_dlsearch_path_spec $lt_ld_extra" fi # We used to test for /lib/ld.so.1 and disable shared libraries on # powerpc, because MkLinux only supported shared libraries with the # GNU dynamic linker. Since this was broken with cross compilers, # most powerpc-linux boxes support dynamic linking these days and # people can always --disable-shared, the test was removed, and we # assume the GNU/Linux dynamic linker is in use. dynamic_linker='GNU/Linux ld.so' ;; netbsd*) version_type=sunos need_lib_prefix=no need_version=no if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' dynamic_linker='NetBSD (a.out) ld.so' else library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='NetBSD ld.elf_so' fi shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; newsos6) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; *nto* | *qnx*) version_type=qnx need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes dynamic_linker='ldqnx.so' ;; openbsd*) version_type=sunos sys_lib_dlsearch_path_spec="/usr/lib" need_lib_prefix=no # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. case $host_os in openbsd3.3 | openbsd3.3.*) need_version=yes ;; *) need_version=no ;; esac library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' shlibpath_var=LD_LIBRARY_PATH if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then case $host_os in openbsd2.[89] | openbsd2.[89].*) shlibpath_overrides_runpath=no ;; *) shlibpath_overrides_runpath=yes ;; esac else shlibpath_overrides_runpath=yes fi ;; os2*) libname_spec='$name' shrext_cmds=".dll" need_lib_prefix=no library_names_spec='$libname${shared_ext} $libname.a' dynamic_linker='OS/2 ld.exe' shlibpath_var=LIBPATH ;; osf3* | osf4* | osf5*) version_type=osf need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec" ;; rdos*) dynamic_linker=no ;; solaris*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes # ldd complains unless libraries are executable postinstall_cmds='chmod +x $lib' ;; sunos4*) version_type=sunos library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes if test "$with_gnu_ld" = yes; then need_lib_prefix=no fi need_version=yes ;; sysv4 | sysv4.3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH case $host_vendor in sni) shlibpath_overrides_runpath=no need_lib_prefix=no runpath_var=LD_RUN_PATH ;; siemens) need_lib_prefix=no ;; motorola) need_lib_prefix=no need_version=no shlibpath_overrides_runpath=no sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' ;; esac ;; sysv4*MP*) if test -d /usr/nec ;then version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}' soname_spec='$libname${shared_ext}.$major' shlibpath_var=LD_LIBRARY_PATH fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) version_type=freebsd-elf need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes if test "$with_gnu_ld" = yes; then sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib' else sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' case $host_os in sco3.2v5*) sys_lib_search_path_spec="$sys_lib_search_path_spec /lib" ;; esac fi sys_lib_dlsearch_path_spec='/usr/lib' ;; tpf*) # TPF is a cross-target only. Preferred cross-host = GNU/Linux. version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; uts4*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; *) dynamic_linker=no ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: $dynamic_linker" >&5 $as_echo "$dynamic_linker" >&6; } test "$dynamic_linker" = no && can_build_shared=no variables_saved_for_relink="PATH $shlibpath_var $runpath_var" if test "$GCC" = yes; then variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" fi if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec" fi if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec" fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to hardcode library paths into programs" >&5 $as_echo_n "checking how to hardcode library paths into programs... " >&6; } hardcode_action_CXX= if test -n "$hardcode_libdir_flag_spec_CXX" || test -n "$runpath_var_CXX" || test "X$hardcode_automatic_CXX" = "Xyes" ; then # We can hardcode non-existent directories. if test "$hardcode_direct_CXX" != no && # If the only mechanism to avoid hardcoding is shlibpath_var, we # have to relink, otherwise we might link with an installed library # when we should be linking with a yet-to-be-installed one ## test "$_LT_TAGVAR(hardcode_shlibpath_var, CXX)" != no && test "$hardcode_minus_L_CXX" != no; then # Linking always hardcodes the temporary library directory. hardcode_action_CXX=relink else # We can link without hardcoding, and we can hardcode nonexisting dirs. hardcode_action_CXX=immediate fi else # We cannot hardcode anything, or else we can only hardcode existing # directories. hardcode_action_CXX=unsupported fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $hardcode_action_CXX" >&5 $as_echo "$hardcode_action_CXX" >&6; } if test "$hardcode_action_CXX" = relink || test "$inherit_rpath_CXX" = yes; then # Fast installation is not supported enable_fast_install=no elif test "$shlibpath_overrides_runpath" = yes || test "$enable_shared" = no; then # Fast installation is not necessary enable_fast_install=needless fi fi # test -n "$compiler" CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS LDCXX=$LD LD=$lt_save_LD GCC=$lt_save_GCC with_gnu_ld=$lt_save_with_gnu_ld lt_cv_path_LDCXX=$lt_cv_path_LD lt_cv_path_LD=$lt_save_path_LD lt_cv_prog_gnu_ldcxx=$lt_cv_prog_gnu_ld lt_cv_prog_gnu_ld=$lt_save_with_gnu_ld fi # test "$_lt_caught_CXX_error" != yes ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu ac_config_commands="$ac_config_commands libtool" # Only expand once: # Checks for libraries. ac_ext=cpp ac_cpp='$CXXCPP $CPPFLAGS' ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_cxx_compiler_gnu #AC_CHECK_LIB([gpsim], [main]) { $as_echo "$as_me:${as_lineno-$LINENO}: checking for main in -lpopt" >&5 $as_echo_n "checking for main in -lpopt... " >&6; } if ${ac_cv_lib_popt_main+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lpopt $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { return main (); ; return 0; } _ACEOF if ac_fn_cxx_try_link "$LINENO"; then : ac_cv_lib_popt_main=yes else ac_cv_lib_popt_main=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_popt_main" >&5 $as_echo "$ac_cv_lib_popt_main" >&6; } if test "x$ac_cv_lib_popt_main" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_LIBPOPT 1 _ACEOF LIBS="-lpopt $LIBS" fi #AC_CHECK_LIB([pthread], [main]) { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5 $as_echo_n "checking for dlopen in -ldl... " >&6; } if ${ac_cv_lib_dl_dlopen+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldl $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dlopen (); int main () { return dlopen (); ; return 0; } _ACEOF if ac_fn_cxx_try_link "$LINENO"; then : ac_cv_lib_dl_dlopen=yes else ac_cv_lib_dl_dlopen=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5 $as_echo "$ac_cv_lib_dl_dlopen" >&6; } if test "x$ac_cv_lib_dl_dlopen" = xyes; then : LIBDL="-ldl" fi # Checks for header files. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5 $as_echo_n "checking for ANSI C header files... " >&6; } if ${ac_cv_header_stdc+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #include #include int main () { ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO"; then : ac_cv_header_stdc=yes else ac_cv_header_stdc=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext if test $ac_cv_header_stdc = yes; then # SunOS 4.x string.h does not declare mem*, contrary to ANSI. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "memchr" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "free" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. if test "$cross_compiling" = yes; then : : else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #if ((' ' & 0x0FF) == 0x020) # define ISLOWER(c) ('a' <= (c) && (c) <= 'z') # define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) #else # define ISLOWER(c) \ (('a' <= (c) && (c) <= 'i') \ || ('j' <= (c) && (c) <= 'r') \ || ('s' <= (c) && (c) <= 'z')) # define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) #endif #define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) int main () { int i; for (i = 0; i < 256; i++) if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) return 2; return 0; } _ACEOF if ac_fn_cxx_try_run "$LINENO"; then : else ac_cv_header_stdc=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5 $as_echo "$ac_cv_header_stdc" >&6; } if test $ac_cv_header_stdc = yes; then $as_echo "#define STDC_HEADERS 1" >>confdefs.h fi for ac_header in fcntl.h netdb.h netinet/in.h stddef.h stdint.h stdlib.h string.h sys/file.h sys/ioctl.h sys/socket.h sys/time.h termios.h unistd.h do : as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` ac_fn_cxx_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default" if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done # Checks for typedefs, structures, and compiler characteristics. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for stdbool.h that conforms to C99" >&5 $as_echo_n "checking for stdbool.h that conforms to C99... " >&6; } if ${ac_cv_header_stdbool_h+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #ifndef bool "error: bool is not defined" #endif #ifndef false "error: false is not defined" #endif #if false "error: false is not 0" #endif #ifndef true "error: true is not defined" #endif #if true != 1 "error: true is not 1" #endif #ifndef __bool_true_false_are_defined "error: __bool_true_false_are_defined is not defined" #endif struct s { _Bool s: 1; _Bool t; } s; char a[true == 1 ? 1 : -1]; char b[false == 0 ? 1 : -1]; char c[__bool_true_false_are_defined == 1 ? 1 : -1]; char d[(bool) 0.5 == true ? 1 : -1]; /* See body of main program for 'e'. */ char f[(_Bool) 0.0 == false ? 1 : -1]; char g[true]; char h[sizeof (_Bool)]; char i[sizeof s.t]; enum { j = false, k = true, l = false * true, m = true * 256 }; /* The following fails for HP aC++/ANSI C B3910B A.05.55 [Dec 04 2003]. */ _Bool n[m]; char o[sizeof n == m * sizeof n[0] ? 1 : -1]; char p[-1 - (_Bool) 0 < 0 && -1 - (bool) 0 < 0 ? 1 : -1]; /* Catch a bug in an HP-UX C compiler. See http://gcc.gnu.org/ml/gcc-patches/2003-12/msg02303.html http://lists.gnu.org/archive/html/bug-coreutils/2005-11/msg00161.html */ _Bool q = true; _Bool *pq = &q; int main () { bool e = &s; *pq |= q; *pq |= ! q; /* Refer to every declared value, to avoid compiler optimizations. */ return (!a + !b + !c + !d + !e + !f + !g + !h + !i + !!j + !k + !!l + !m + !n + !o + !p + !q + !pq); ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO"; then : ac_cv_header_stdbool_h=yes else ac_cv_header_stdbool_h=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdbool_h" >&5 $as_echo "$ac_cv_header_stdbool_h" >&6; } ac_fn_cxx_check_type "$LINENO" "_Bool" "ac_cv_type__Bool" "$ac_includes_default" if test "x$ac_cv_type__Bool" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE__BOOL 1 _ACEOF fi if test $ac_cv_header_stdbool_h = yes; then $as_echo "#define HAVE_STDBOOL_H 1" >>confdefs.h fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for an ANSI C-conforming const" >&5 $as_echo_n "checking for an ANSI C-conforming const... " >&6; } if ${ac_cv_c_const+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { #ifndef __cplusplus /* Ultrix mips cc rejects this sort of thing. */ typedef int charset[2]; const charset cs = { 0, 0 }; /* SunOS 4.1.1 cc rejects this. */ char const *const *pcpcc; char **ppc; /* NEC SVR4.0.2 mips cc rejects this. */ struct point {int x, y;}; static struct point const zero = {0,0}; /* AIX XL C 1.02.0.0 rejects this. It does not let you subtract one const X* pointer from another in an arm of an if-expression whose if-part is not a constant expression */ const char *g = "string"; pcpcc = &g + (g ? g-g : 0); /* HPUX 7.0 cc rejects these. */ ++pcpcc; ppc = (char**) pcpcc; pcpcc = (char const *const *) ppc; { /* SCO 3.2v4 cc rejects this sort of thing. */ char tx; char *t = &tx; char const *s = 0 ? (char *) 0 : (char const *) 0; *t++ = 0; if (s) return 0; } { /* Someone thinks the Sun supposedly-ANSI compiler will reject this. */ int x[] = {25, 17}; const int *foo = &x[0]; ++foo; } { /* Sun SC1.0 ANSI compiler rejects this -- but not the above. */ typedef const int *iptr; iptr p = 0; ++p; } { /* AIX XL C 1.02.0.0 rejects this sort of thing, saying "k.c", line 2.27: 1506-025 (S) Operand must be a modifiable lvalue. */ struct s { int j; const int *ap[3]; } bx; struct s *b = &bx; b->j = 5; } { /* ULTRIX-32 V3.1 (Rev 9) vcc rejects this */ const int foo = 10; if (!foo) return 0; } return !cs[0] && !zero.x; #endif ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO"; then : ac_cv_c_const=yes else ac_cv_c_const=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_const" >&5 $as_echo "$ac_cv_c_const" >&6; } if test $ac_cv_c_const = no; then $as_echo "#define const /**/" >>confdefs.h fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for inline" >&5 $as_echo_n "checking for inline... " >&6; } if ${ac_cv_c_inline+:} false; then : $as_echo_n "(cached) " >&6 else ac_cv_c_inline=no for ac_kw in inline __inline__ __inline; do cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifndef __cplusplus typedef int foo_t; static $ac_kw foo_t static_foo () {return 0; } $ac_kw foo_t foo () {return 0; } #endif _ACEOF if ac_fn_cxx_try_compile "$LINENO"; then : ac_cv_c_inline=$ac_kw fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext test "$ac_cv_c_inline" != no && break done fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_inline" >&5 $as_echo "$ac_cv_c_inline" >&6; } case $ac_cv_c_inline in inline | yes) ;; *) case $ac_cv_c_inline in no) ac_val=;; *) ac_val=$ac_cv_c_inline;; esac cat >>confdefs.h <<_ACEOF #ifndef __cplusplus #define inline $ac_val #endif _ACEOF ;; esac ac_fn_cxx_check_type "$LINENO" "size_t" "ac_cv_type_size_t" "$ac_includes_default" if test "x$ac_cv_type_size_t" = xyes; then : else cat >>confdefs.h <<_ACEOF #define size_t unsigned int _ACEOF fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether time.h and sys/time.h may both be included" >&5 $as_echo_n "checking whether time.h and sys/time.h may both be included... " >&6; } if ${ac_cv_header_time+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #include int main () { if ((struct tm *) 0) return 0; ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO"; then : ac_cv_header_time=yes else ac_cv_header_time=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_time" >&5 $as_echo "$ac_cv_header_time" >&6; } if test $ac_cv_header_time = yes; then $as_echo "#define TIME_WITH_SYS_TIME 1" >>confdefs.h fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking return type of signal handlers" >&5 $as_echo_n "checking return type of signal handlers... " >&6; } if ${ac_cv_type_signal+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include int main () { return *(signal (0, 0)) (0) == 1; ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO"; then : ac_cv_type_signal=int else ac_cv_type_signal=void fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_type_signal" >&5 $as_echo "$ac_cv_type_signal" >&6; } cat >>confdefs.h <<_ACEOF #define RETSIGTYPE $ac_cv_type_signal _ACEOF # Checks for library functions. # The Ultrix 4.2 mips builtin alloca declared by alloca.h only works # for constant arguments. Useless! { $as_echo "$as_me:${as_lineno-$LINENO}: checking for working alloca.h" >&5 $as_echo_n "checking for working alloca.h... " >&6; } if ${ac_cv_working_alloca_h+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main () { char *p = (char *) alloca (2 * sizeof (int)); if (p) return 0; ; return 0; } _ACEOF if ac_fn_cxx_try_link "$LINENO"; then : ac_cv_working_alloca_h=yes else ac_cv_working_alloca_h=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_working_alloca_h" >&5 $as_echo "$ac_cv_working_alloca_h" >&6; } if test $ac_cv_working_alloca_h = yes; then $as_echo "#define HAVE_ALLOCA_H 1" >>confdefs.h fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for alloca" >&5 $as_echo_n "checking for alloca... " >&6; } if ${ac_cv_func_alloca_works+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __GNUC__ # define alloca __builtin_alloca #else # ifdef _MSC_VER # include # define alloca _alloca # else # ifdef HAVE_ALLOCA_H # include # else # ifdef _AIX #pragma alloca # else # ifndef alloca /* predefined by HP cc +Olibcalls */ void *alloca (size_t); # endif # endif # endif # endif #endif int main () { char *p = (char *) alloca (1); if (p) return 0; ; return 0; } _ACEOF if ac_fn_cxx_try_link "$LINENO"; then : ac_cv_func_alloca_works=yes else ac_cv_func_alloca_works=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_alloca_works" >&5 $as_echo "$ac_cv_func_alloca_works" >&6; } if test $ac_cv_func_alloca_works = yes; then $as_echo "#define HAVE_ALLOCA 1" >>confdefs.h else # The SVR3 libPW and SVR4 libucb both contain incompatible functions # that cause trouble. Some versions do not even contain alloca or # contain a buggy version. If you still want to use their alloca, # use ar to extract alloca.o from them instead of compiling alloca.c. ALLOCA=\${LIBOBJDIR}alloca.$ac_objext $as_echo "#define C_ALLOCA 1" >>confdefs.h { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether \`alloca.c' needs Cray hooks" >&5 $as_echo_n "checking whether \`alloca.c' needs Cray hooks... " >&6; } if ${ac_cv_os_cray+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined CRAY && ! defined CRAY2 webecray #else wenotbecray #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "webecray" >/dev/null 2>&1; then : ac_cv_os_cray=yes else ac_cv_os_cray=no fi rm -f conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_os_cray" >&5 $as_echo "$ac_cv_os_cray" >&6; } if test $ac_cv_os_cray = yes; then for ac_func in _getb67 GETB67 getb67; do as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh` ac_fn_cxx_check_func "$LINENO" "$ac_func" "$as_ac_var" if eval test \"x\$"$as_ac_var"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define CRAY_STACKSEG_END $ac_func _ACEOF break fi done fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking stack direction for C alloca" >&5 $as_echo_n "checking stack direction for C alloca... " >&6; } if ${ac_cv_c_stack_direction+:} false; then : $as_echo_n "(cached) " >&6 else if test "$cross_compiling" = yes; then : ac_cv_c_stack_direction=0 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $ac_includes_default int find_stack_direction (int *addr, int depth) { int dir, dummy = 0; if (! addr) addr = &dummy; *addr = addr < &dummy ? 1 : addr == &dummy ? 0 : -1; dir = depth ? find_stack_direction (addr, depth - 1) : 0; return dir + dummy; } int main (int argc, char **argv) { return find_stack_direction (0, argc + !argv + 20) < 0; } _ACEOF if ac_fn_cxx_try_run "$LINENO"; then : ac_cv_c_stack_direction=1 else ac_cv_c_stack_direction=-1 fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_stack_direction" >&5 $as_echo "$ac_cv_c_stack_direction" >&6; } cat >>confdefs.h <<_ACEOF #define STACK_DIRECTION $ac_cv_c_stack_direction _ACEOF fi if test $ac_cv_c_compiler_gnu = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC needs -traditional" >&5 $as_echo_n "checking whether $CC needs -traditional... " >&6; } if ${ac_cv_prog_gcc_traditional+:} false; then : $as_echo_n "(cached) " >&6 else ac_pattern="Autoconf.*'x'" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include Autoconf TIOCGETP _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "$ac_pattern" >/dev/null 2>&1; then : ac_cv_prog_gcc_traditional=yes else ac_cv_prog_gcc_traditional=no fi rm -f conftest* if test $ac_cv_prog_gcc_traditional = no; then cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include Autoconf TCGETA _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "$ac_pattern" >/dev/null 2>&1; then : ac_cv_prog_gcc_traditional=yes fi rm -f conftest* fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_gcc_traditional" >&5 $as_echo "$ac_cv_prog_gcc_traditional" >&6; } if test $ac_cv_prog_gcc_traditional = yes; then CC="$CC -traditional" fi fi for ac_header in stdlib.h do : ac_fn_cxx_check_header_mongrel "$LINENO" "stdlib.h" "ac_cv_header_stdlib_h" "$ac_includes_default" if test "x$ac_cv_header_stdlib_h" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_STDLIB_H 1 _ACEOF fi done { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU libc compatible malloc" >&5 $as_echo_n "checking for GNU libc compatible malloc... " >&6; } if ${ac_cv_func_malloc_0_nonnull+:} false; then : $as_echo_n "(cached) " >&6 else if test "$cross_compiling" = yes; then : ac_cv_func_malloc_0_nonnull=no else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined STDC_HEADERS || defined HAVE_STDLIB_H # include #else char *malloc (); #endif int main () { return ! malloc (0); ; return 0; } _ACEOF if ac_fn_cxx_try_run "$LINENO"; then : ac_cv_func_malloc_0_nonnull=yes else ac_cv_func_malloc_0_nonnull=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_malloc_0_nonnull" >&5 $as_echo "$ac_cv_func_malloc_0_nonnull" >&6; } if test $ac_cv_func_malloc_0_nonnull = yes; then : $as_echo "#define HAVE_MALLOC 1" >>confdefs.h else $as_echo "#define HAVE_MALLOC 0" >>confdefs.h case " $LIBOBJS " in *" malloc.$ac_objext "* ) ;; *) LIBOBJS="$LIBOBJS malloc.$ac_objext" ;; esac $as_echo "#define malloc rpl_malloc" >>confdefs.h fi for ac_header in stdlib.h do : ac_fn_cxx_check_header_mongrel "$LINENO" "stdlib.h" "ac_cv_header_stdlib_h" "$ac_includes_default" if test "x$ac_cv_header_stdlib_h" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_STDLIB_H 1 _ACEOF fi done { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU libc compatible realloc" >&5 $as_echo_n "checking for GNU libc compatible realloc... " >&6; } if ${ac_cv_func_realloc_0_nonnull+:} false; then : $as_echo_n "(cached) " >&6 else if test "$cross_compiling" = yes; then : ac_cv_func_realloc_0_nonnull=no else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined STDC_HEADERS || defined HAVE_STDLIB_H # include #else char *realloc (); #endif int main () { return ! realloc (0, 0); ; return 0; } _ACEOF if ac_fn_cxx_try_run "$LINENO"; then : ac_cv_func_realloc_0_nonnull=yes else ac_cv_func_realloc_0_nonnull=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_realloc_0_nonnull" >&5 $as_echo "$ac_cv_func_realloc_0_nonnull" >&6; } if test $ac_cv_func_realloc_0_nonnull = yes; then : $as_echo "#define HAVE_REALLOC 1" >>confdefs.h else $as_echo "#define HAVE_REALLOC 0" >>confdefs.h case " $LIBOBJS " in *" realloc.$ac_objext "* ) ;; *) LIBOBJS="$LIBOBJS realloc.$ac_objext" ;; esac $as_echo "#define realloc rpl_realloc" >>confdefs.h fi for ac_header in sys/select.h sys/socket.h do : as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` ac_fn_cxx_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default" if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done { $as_echo "$as_me:${as_lineno-$LINENO}: checking types of arguments for select" >&5 $as_echo_n "checking types of arguments for select... " >&6; } if ${ac_cv_func_select_args+:} false; then : $as_echo_n "(cached) " >&6 else for ac_arg234 in 'fd_set *' 'int *' 'void *'; do for ac_arg1 in 'int' 'size_t' 'unsigned long int' 'unsigned int'; do for ac_arg5 in 'struct timeval *' 'const struct timeval *'; do cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $ac_includes_default #ifdef HAVE_SYS_SELECT_H # include #endif #ifdef HAVE_SYS_SOCKET_H # include #endif int main () { extern int select ($ac_arg1, $ac_arg234, $ac_arg234, $ac_arg234, $ac_arg5); ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO"; then : ac_cv_func_select_args="$ac_arg1,$ac_arg234,$ac_arg5"; break 3 fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done done done # Provide a safe default value. : "${ac_cv_func_select_args=int,int *,struct timeval *}" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_select_args" >&5 $as_echo "$ac_cv_func_select_args" >&6; } ac_save_IFS=$IFS; IFS=',' set dummy `echo "$ac_cv_func_select_args" | sed 's/\*/\*/g'` IFS=$ac_save_IFS shift cat >>confdefs.h <<_ACEOF #define SELECT_TYPE_ARG1 $1 _ACEOF cat >>confdefs.h <<_ACEOF #define SELECT_TYPE_ARG234 ($2) _ACEOF cat >>confdefs.h <<_ACEOF #define SELECT_TYPE_ARG5 ($3) _ACEOF rm -f conftest* { $as_echo "$as_me:${as_lineno-$LINENO}: checking for working strtod" >&5 $as_echo_n "checking for working strtod... " >&6; } if ${ac_cv_func_strtod+:} false; then : $as_echo_n "(cached) " >&6 else if test "$cross_compiling" = yes; then : ac_cv_func_strtod=no else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $ac_includes_default #ifndef strtod double strtod (); #endif int main() { { /* Some versions of Linux strtod mis-parse strings with leading '+'. */ char *string = " +69"; char *term; double value; value = strtod (string, &term); if (value != 69 || term != (string + 4)) return 1; } { /* Under Solaris 2.4, strtod returns the wrong value for the terminating character under some conditions. */ char *string = "NaN"; char *term; strtod (string, &term); if (term != string && *(term - 1) == 0) return 1; } return 0; } _ACEOF if ac_fn_cxx_try_run "$LINENO"; then : ac_cv_func_strtod=yes else ac_cv_func_strtod=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_strtod" >&5 $as_echo "$ac_cv_func_strtod" >&6; } if test $ac_cv_func_strtod = no; then case " $LIBOBJS " in *" strtod.$ac_objext "* ) ;; *) LIBOBJS="$LIBOBJS strtod.$ac_objext" ;; esac ac_fn_cxx_check_func "$LINENO" "pow" "ac_cv_func_pow" if test "x$ac_cv_func_pow" = xyes; then : fi if test $ac_cv_func_pow = no; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pow in -lm" >&5 $as_echo_n "checking for pow in -lm... " >&6; } if ${ac_cv_lib_m_pow+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lm $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char pow (); int main () { return pow (); ; return 0; } _ACEOF if ac_fn_cxx_try_link "$LINENO"; then : ac_cv_lib_m_pow=yes else ac_cv_lib_m_pow=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_m_pow" >&5 $as_echo "$ac_cv_lib_m_pow" >&6; } if test "x$ac_cv_lib_m_pow" = xyes; then : POW_LIB=-lm else { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cannot find library containing definition of pow" >&5 $as_echo "$as_me: WARNING: cannot find library containing definition of pow" >&2;} fi fi fi for ac_func in floor gethostbyname gethostname gettimeofday memset pow select socket sqrt strcasecmp strchr strdup strerror strncasecmp strndup strpbrk strrchr strstr strtoul do : as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh` ac_fn_cxx_check_func "$LINENO" "$ac_func" "$as_ac_var" if eval test \"x\$"$as_ac_var"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1 _ACEOF fi done # printf modifier define for long long as "ll" # config_win32.h.in defines this for Visual Studio stdclib as "I64" $as_echo "#define PRINTF_INT64_MODIFIER \"ll\"" >>confdefs.h # define printf modifier for GINT64 (guint64 and gint64) as "ll" on 32 bit machines and as "l" on 64 bit machines # config_win32.h.in defines this for Visual Studio stdclib as "I64" # The cast to long int works around a bug in the HP C Compiler # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. # This bug is HP SR number 8606223364. { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of long" >&5 $as_echo_n "checking size of long... " >&6; } if ${ac_cv_sizeof_long+:} false; then : $as_echo_n "(cached) " >&6 else if ac_fn_cxx_compute_int "$LINENO" "(long int) (sizeof (long))" "ac_cv_sizeof_long" "$ac_includes_default"; then : else if test "$ac_cv_type_long" = yes; then { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "cannot compute sizeof (long) See \`config.log' for more details" "$LINENO" 5; } else ac_cv_sizeof_long=0 fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_long" >&5 $as_echo "$ac_cv_sizeof_long" >&6; } cat >>confdefs.h <<_ACEOF #define SIZEOF_LONG $ac_cv_sizeof_long _ACEOF if test "$ac_cv_sizeof_long" -ge 8; then gpsim_cv_printf_gint64_modifier=l else gpsim_cv_printf_gint64_modifier=ll fi cat >>confdefs.h <<_ACEOF #define PRINTF_GINT64_MODIFIER "$gpsim_cv_printf_gint64_modifier" _ACEOF AM_CFLAGS= AM_CXXFLAGS= AM_LDFLAGS= # Options for the system on which the package will run case "${host}" in *linux* ) if test "x$GCC" = "xyes"; then AM_CFLAGS="-Wall" AM_CXXFLAGS="-Wall" AM_LDFLAGS="-Wl,-warn-common -Wl,-warn-once" fi ;; *mingw* ) ;; esac CFLAGS="${CFLAGS} ${AM_CFLAGS}" CXXFLAGS="${CXXFLAGS} ${AM_CXXFLAGS}" LDFLAGS="${LDFLAGS} ${AM_LDFLAGS}" # Host filesystem options case "${host}" in *mingw* | *-pc-os2_emx | *-pc-os2-emx | *djgpp* ) $as_echo "#define HAVE_DOS_BASED_FILE_SYSTEM 1" >>confdefs.h ;; esac ac_config_files="$ac_config_files Makefile cli/Makefile doc/Makefile examples/Makefile examples/modules/Makefile examples/projects/Makefile eXdbm/Makefile gpsim/Makefile gui/Makefile modules/Makefile extras/Makefile extras/graphic_lcd/Makefile extras/graphic_lcd/src/Makefile extras/lcd/Makefile extras/lcd/examples/Makefile extras/ds1820/Makefile extras/ds1820/examples/Makefile extras/ds1307/Makefile extras/ds1307/examples/Makefile regression/Makefile src/Makefile src/dspic/Makefile xpms/Makefile gpsim.spec" cat >confcache <<\_ACEOF # This file is a shell script that caches the results of configure # tests run on this system so they can be shared between configure # scripts and configure runs, see configure's option --config-cache. # It is not useful on other systems. If it contains results you don't # want to keep, you may remove or edit it. # # config.status only pays attention to the cache file if you give it # the --recheck option to rerun configure. # # `ac_cv_env_foo' variables (set or unset) will be overridden when # loading this file, other *unset* `ac_cv_foo' will be assigned the # following values. _ACEOF # The following way of writing the cache mishandles newlines in values, # but we know of no workaround that is simple, portable, and efficient. # So, we kill variables containing newlines. # Ultrix sh set writes to stderr and can't be redirected directly, # and sets the high bit in the cache file unless we assign to the vars. ( for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do eval ac_val=\$$ac_var case $ac_val in #( *${as_nl}*) case $ac_var in #( *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 $as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( *) { eval $ac_var=; unset $ac_var;} ;; esac ;; esac done (set) 2>&1 | case $as_nl`(ac_space=' '; set) 2>&1` in #( *${as_nl}ac_space=\ *) # `set' does not quote correctly, so add quotes: double-quote # substitution turns \\\\ into \\, and sed turns \\ into \. sed -n \ "s/'/'\\\\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" ;; #( *) # `set' quotes correctly as required by POSIX, so do not add quotes. sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" ;; esac | sort ) | sed ' /^ac_cv_env_/b end t clear :clear s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/ t end s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ :end' >>confcache if diff "$cache_file" confcache >/dev/null 2>&1; then :; else if test -w "$cache_file"; then if test "x$cache_file" != "x/dev/null"; then { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5 $as_echo "$as_me: updating cache $cache_file" >&6;} if test ! -f "$cache_file" || test -h "$cache_file"; then cat confcache >"$cache_file" else case $cache_file in #( */* | ?:*) mv -f confcache "$cache_file"$$ && mv -f "$cache_file"$$ "$cache_file" ;; #( *) mv -f confcache "$cache_file" ;; esac fi fi else { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5 $as_echo "$as_me: not updating unwritable cache $cache_file" >&6;} fi fi rm -f confcache test "x$prefix" = xNONE && prefix=$ac_default_prefix # Let make expand exec_prefix. test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' DEFS=-DHAVE_CONFIG_H ac_libobjs= ac_ltlibobjs= U= for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue # 1. Remove the extension, and $U if already installed. ac_script='s/\$U\././;s/\.o$//;s/\.obj$//' ac_i=`$as_echo "$ac_i" | sed "$ac_script"` # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR # will be set to the directory where LIBOBJS objects are built. as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext" as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo' done LIBOBJS=$ac_libobjs LTLIBOBJS=$ac_ltlibobjs { $as_echo "$as_me:${as_lineno-$LINENO}: checking that generated files are newer than configure" >&5 $as_echo_n "checking that generated files are newer than configure... " >&6; } if test -n "$am_sleep_pid"; then # Hide warnings about reused PIDs. wait $am_sleep_pid 2>/dev/null fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: done" >&5 $as_echo "done" >&6; } if test -n "$EXEEXT"; then am__EXEEXT_TRUE= am__EXEEXT_FALSE='#' else am__EXEEXT_TRUE='#' am__EXEEXT_FALSE= fi if test -z "${MAINTAINER_MODE_TRUE}" && test -z "${MAINTAINER_MODE_FALSE}"; then as_fn_error $? "conditional \"MAINTAINER_MODE\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${AMDEP_TRUE}" && test -z "${AMDEP_FALSE}"; then as_fn_error $? "conditional \"AMDEP\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${am__fastdepCC_TRUE}" && test -z "${am__fastdepCC_FALSE}"; then as_fn_error $? "conditional \"am__fastdepCC\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${am__fastdepCXX_TRUE}" && test -z "${am__fastdepCXX_FALSE}"; then as_fn_error $? "conditional \"am__fastdepCXX\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${am__fastdepCC_TRUE}" && test -z "${am__fastdepCC_FALSE}"; then as_fn_error $? "conditional \"am__fastdepCC\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi : "${CONFIG_STATUS=./config.status}" ac_write_fail=0 ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files $CONFIG_STATUS" { $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5 $as_echo "$as_me: creating $CONFIG_STATUS" >&6;} as_write_fail=0 cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1 #! $SHELL # Generated by $as_me. # Run this file to recreate the current configuration. # Compiler output produced by configure, useful for debugging # configure, is in config.log if it exists. debug=false ac_cs_recheck=false ac_cs_silent=false SHELL=\${CONFIG_SHELL-$SHELL} export SHELL _ASEOF cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1 ## -------------------- ## ## M4sh Initialization. ## ## -------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi as_nl=' ' export as_nl # Printing a long string crashes Solaris 7 /usr/bin/printf. as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo # Prefer a ksh shell builtin over an external printf program on Solaris, # but without wasting forks for bash or zsh. if test -z "$BASH_VERSION$ZSH_VERSION" \ && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='print -r --' as_echo_n='print -rn --' elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='printf %s\n' as_echo_n='printf %s' else if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' as_echo_n='/usr/ucb/echo -n' else as_echo_body='eval expr "X$1" : "X\\(.*\\)"' as_echo_n_body='eval arg=$1; case $arg in #( *"$as_nl"*) expr "X$arg" : "X\\(.*\\)$as_nl"; arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; esac; expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" ' export as_echo_n_body as_echo_n='sh -c $as_echo_n_body as_echo' fi export as_echo_body as_echo='sh -c $as_echo_body as_echo' fi # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then PATH_SEPARATOR=: (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || PATH_SEPARATOR=';' } fi # IFS # We need space, tab and new line, in precisely that order. Quoting is # there to prevent editors from complaining about space-tab. # (If _AS_PATH_WALK were called with IFS unset, it would disable word # splitting by setting IFS to empty value.) IFS=" "" $as_nl" # Find who we are. Look in the path if we contain no directory separator. as_myself= case $0 in #(( *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done IFS=$as_save_IFS ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 exit 1 fi # Unset variables that we do not need and which cause bugs (e.g. in # pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" # suppresses any "Segmentation fault" message there. '((' could # trigger a bug in pdksh 5.2.14. for as_var in BASH_ENV ENV MAIL MAILPATH do eval test x\${$as_var+set} = xset \ && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : done PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. LC_ALL=C export LC_ALL LANGUAGE=C export LANGUAGE # CDPATH. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH # as_fn_error STATUS ERROR [LINENO LOG_FD] # ---------------------------------------- # Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are # provided, also output the error to LOG_FD, referencing LINENO. Then exit the # script with STATUS, using 1 if that was 0. as_fn_error () { as_status=$1; test $as_status -eq 0 && as_status=1 if test "$4"; then as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 fi $as_echo "$as_me: error: $2" >&2 as_fn_exit $as_status } # as_fn_error # as_fn_set_status STATUS # ----------------------- # Set $? to STATUS, without forking. as_fn_set_status () { return $1 } # as_fn_set_status # as_fn_exit STATUS # ----------------- # Exit the shell with STATUS, even in a "trap 0" or "set -e" context. as_fn_exit () { set +e as_fn_set_status $1 exit $1 } # as_fn_exit # as_fn_unset VAR # --------------- # Portably unset VAR. as_fn_unset () { { eval $1=; unset $1;} } as_unset=as_fn_unset # as_fn_append VAR VALUE # ---------------------- # Append the text in VALUE to the end of the definition contained in VAR. Take # advantage of any shell optimizations that allow amortized linear growth over # repeated appends, instead of the typical quadratic growth present in naive # implementations. if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : eval 'as_fn_append () { eval $1+=\$2 }' else as_fn_append () { eval $1=\$$1\$2 } fi # as_fn_append # as_fn_arith ARG... # ------------------ # Perform arithmetic evaluation on the ARGs, and store the result in the # global $as_val. Take advantage of shells that can avoid forks. The arguments # must be portable across $(()) and expr. if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : eval 'as_fn_arith () { as_val=$(( $* )) }' else as_fn_arith () { as_val=`expr "$@" || test $? -eq 1` } fi # as_fn_arith if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then as_dirname=dirname else as_dirname=false fi as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || $as_echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in #((((( -n*) case `echo 'xy\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. xy) ECHO_C='\c';; *) echo `echo ksh88 bug on AIX 6.1` > /dev/null ECHO_T=' ';; esac;; *) ECHO_N='-n';; esac rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir mkdir conf$$.dir 2>/dev/null fi if (echo >conf$$.file) 2>/dev/null; then if ln -s conf$$.file conf$$ 2>/dev/null; then as_ln_s='ln -s' # ... but there are two gotchas: # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. # In both cases, we have to default to `cp -pR'. ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || as_ln_s='cp -pR' elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -pR' fi else as_ln_s='cp -pR' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null # as_fn_mkdir_p # ------------- # Create "$as_dir" as a directory, including parents if necessary. as_fn_mkdir_p () { case $as_dir in #( -*) as_dir=./$as_dir;; esac test -d "$as_dir" || eval $as_mkdir_p || { as_dirs= while :; do case $as_dir in #( *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( *) as_qdir=$as_dir;; esac as_dirs="'$as_qdir' $as_dirs" as_dir=`$as_dirname -- "$as_dir" || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` test -d "$as_dir" && break done test -z "$as_dirs" || eval "mkdir $as_dirs" } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" } # as_fn_mkdir_p if mkdir -p . 2>/dev/null; then as_mkdir_p='mkdir -p "$as_dir"' else test -d ./-p && rmdir ./-p as_mkdir_p=false fi # as_fn_executable_p FILE # ----------------------- # Test if FILE is an executable regular file. as_fn_executable_p () { test -f "$1" && test -x "$1" } # as_fn_executable_p as_test_x='test -x' as_executable_p=as_fn_executable_p # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" exec 6>&1 ## ----------------------------------- ## ## Main body of $CONFIG_STATUS script. ## ## ----------------------------------- ## _ASEOF test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1 cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # Save the log message, to keep $0 and so on meaningful, and to # report actual input values of CONFIG_FILES etc. instead of their # values after options handling. ac_log=" This file was extended by gpsim $as_me 0.27.0, which was generated by GNU Autoconf 2.69. Invocation command line was CONFIG_FILES = $CONFIG_FILES CONFIG_HEADERS = $CONFIG_HEADERS CONFIG_LINKS = $CONFIG_LINKS CONFIG_COMMANDS = $CONFIG_COMMANDS $ $0 $@ on `(hostname || uname -n) 2>/dev/null | sed 1q` " _ACEOF case $ac_config_files in *" "*) set x $ac_config_files; shift; ac_config_files=$*;; esac case $ac_config_headers in *" "*) set x $ac_config_headers; shift; ac_config_headers=$*;; esac cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 # Files that config.status was made for. config_files="$ac_config_files" config_headers="$ac_config_headers" config_commands="$ac_config_commands" _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 ac_cs_usage="\ \`$as_me' instantiates files and other configuration actions from templates according to the current configuration. Unless the files and actions are specified as TAGs, all are instantiated by default. Usage: $0 [OPTION]... [TAG]... -h, --help print this help, then exit -V, --version print version number and configuration settings, then exit --config print configuration, then exit -q, --quiet, --silent do not print progress messages -d, --debug don't remove temporary files --recheck update $as_me by reconfiguring in the same conditions --file=FILE[:TEMPLATE] instantiate the configuration file FILE --header=FILE[:TEMPLATE] instantiate the configuration header FILE Configuration files: $config_files Configuration headers: $config_headers Configuration commands: $config_commands Report bugs to <>." _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`" ac_cs_version="\\ gpsim config.status 0.27.0 configured by $0, generated by GNU Autoconf 2.69, with options \\"\$ac_cs_config\\" Copyright (C) 2012 Free Software Foundation, Inc. This config.status script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it." ac_pwd='$ac_pwd' srcdir='$srcdir' INSTALL='$INSTALL' MKDIR_P='$MKDIR_P' AWK='$AWK' test -n "\$AWK" || AWK=awk _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # The default lists apply if the user does not specify any file. ac_need_defaults=: while test $# != 0 do case $1 in --*=?*) ac_option=`expr "X$1" : 'X\([^=]*\)='` ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` ac_shift=: ;; --*=) ac_option=`expr "X$1" : 'X\([^=]*\)='` ac_optarg= ac_shift=: ;; *) ac_option=$1 ac_optarg=$2 ac_shift=shift ;; esac case $ac_option in # Handling of the options. -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) ac_cs_recheck=: ;; --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) $as_echo "$ac_cs_version"; exit ;; --config | --confi | --conf | --con | --co | --c ) $as_echo "$ac_cs_config"; exit ;; --debug | --debu | --deb | --de | --d | -d ) debug=: ;; --file | --fil | --fi | --f ) $ac_shift case $ac_optarg in *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; '') as_fn_error $? "missing file argument" ;; esac as_fn_append CONFIG_FILES " '$ac_optarg'" ac_need_defaults=false;; --header | --heade | --head | --hea ) $ac_shift case $ac_optarg in *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; esac as_fn_append CONFIG_HEADERS " '$ac_optarg'" ac_need_defaults=false;; --he | --h) # Conflict between --help and --header as_fn_error $? "ambiguous option: \`$1' Try \`$0 --help' for more information.";; --help | --hel | -h ) $as_echo "$ac_cs_usage"; exit ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil | --si | --s) ac_cs_silent=: ;; # This is an error. -*) as_fn_error $? "unrecognized option: \`$1' Try \`$0 --help' for more information." ;; *) as_fn_append ac_config_targets " $1" ac_need_defaults=false ;; esac shift done ac_configure_extra_args= if $ac_cs_silent; then exec 6>/dev/null ac_configure_extra_args="$ac_configure_extra_args --silent" fi _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 if \$ac_cs_recheck; then set X $SHELL '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion shift \$as_echo "running CONFIG_SHELL=$SHELL \$*" >&6 CONFIG_SHELL='$SHELL' export CONFIG_SHELL exec "\$@" fi _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 exec 5>>config.log { echo sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX ## Running $as_me. ## _ASBOX $as_echo "$ac_log" } >&5 _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 # # INIT-COMMANDS # AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir" # The HP-UX ksh and POSIX shell print the target directory to stdout # if CDPATH is set. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH sed_quote_subst='$sed_quote_subst' double_quote_subst='$double_quote_subst' delay_variable_subst='$delay_variable_subst' macro_version='`$ECHO "$macro_version" | $SED "$delay_single_quote_subst"`' macro_revision='`$ECHO "$macro_revision" | $SED "$delay_single_quote_subst"`' enable_shared='`$ECHO "$enable_shared" | $SED "$delay_single_quote_subst"`' enable_static='`$ECHO "$enable_static" | $SED "$delay_single_quote_subst"`' pic_mode='`$ECHO "$pic_mode" | $SED "$delay_single_quote_subst"`' enable_fast_install='`$ECHO "$enable_fast_install" | $SED "$delay_single_quote_subst"`' SHELL='`$ECHO "$SHELL" | $SED "$delay_single_quote_subst"`' ECHO='`$ECHO "$ECHO" | $SED "$delay_single_quote_subst"`' PATH_SEPARATOR='`$ECHO "$PATH_SEPARATOR" | $SED "$delay_single_quote_subst"`' host_alias='`$ECHO "$host_alias" | $SED "$delay_single_quote_subst"`' host='`$ECHO "$host" | $SED "$delay_single_quote_subst"`' host_os='`$ECHO "$host_os" | $SED "$delay_single_quote_subst"`' build_alias='`$ECHO "$build_alias" | $SED "$delay_single_quote_subst"`' build='`$ECHO "$build" | $SED "$delay_single_quote_subst"`' build_os='`$ECHO "$build_os" | $SED "$delay_single_quote_subst"`' SED='`$ECHO "$SED" | $SED "$delay_single_quote_subst"`' Xsed='`$ECHO "$Xsed" | $SED "$delay_single_quote_subst"`' GREP='`$ECHO "$GREP" | $SED "$delay_single_quote_subst"`' EGREP='`$ECHO "$EGREP" | $SED "$delay_single_quote_subst"`' FGREP='`$ECHO "$FGREP" | $SED "$delay_single_quote_subst"`' LD='`$ECHO "$LD" | $SED "$delay_single_quote_subst"`' NM='`$ECHO "$NM" | $SED "$delay_single_quote_subst"`' LN_S='`$ECHO "$LN_S" | $SED "$delay_single_quote_subst"`' max_cmd_len='`$ECHO "$max_cmd_len" | $SED "$delay_single_quote_subst"`' ac_objext='`$ECHO "$ac_objext" | $SED "$delay_single_quote_subst"`' exeext='`$ECHO "$exeext" | $SED "$delay_single_quote_subst"`' lt_unset='`$ECHO "$lt_unset" | $SED "$delay_single_quote_subst"`' lt_SP2NL='`$ECHO "$lt_SP2NL" | $SED "$delay_single_quote_subst"`' lt_NL2SP='`$ECHO "$lt_NL2SP" | $SED "$delay_single_quote_subst"`' lt_cv_to_host_file_cmd='`$ECHO "$lt_cv_to_host_file_cmd" | $SED "$delay_single_quote_subst"`' lt_cv_to_tool_file_cmd='`$ECHO "$lt_cv_to_tool_file_cmd" | $SED "$delay_single_quote_subst"`' reload_flag='`$ECHO "$reload_flag" | $SED "$delay_single_quote_subst"`' reload_cmds='`$ECHO "$reload_cmds" | $SED "$delay_single_quote_subst"`' OBJDUMP='`$ECHO "$OBJDUMP" | $SED "$delay_single_quote_subst"`' deplibs_check_method='`$ECHO "$deplibs_check_method" | $SED "$delay_single_quote_subst"`' file_magic_cmd='`$ECHO "$file_magic_cmd" | $SED "$delay_single_quote_subst"`' file_magic_glob='`$ECHO "$file_magic_glob" | $SED "$delay_single_quote_subst"`' want_nocaseglob='`$ECHO "$want_nocaseglob" | $SED "$delay_single_quote_subst"`' DLLTOOL='`$ECHO "$DLLTOOL" | $SED "$delay_single_quote_subst"`' sharedlib_from_linklib_cmd='`$ECHO "$sharedlib_from_linklib_cmd" | $SED "$delay_single_quote_subst"`' AR='`$ECHO "$AR" | $SED "$delay_single_quote_subst"`' AR_FLAGS='`$ECHO "$AR_FLAGS" | $SED "$delay_single_quote_subst"`' archiver_list_spec='`$ECHO "$archiver_list_spec" | $SED "$delay_single_quote_subst"`' STRIP='`$ECHO "$STRIP" | $SED "$delay_single_quote_subst"`' RANLIB='`$ECHO "$RANLIB" | $SED "$delay_single_quote_subst"`' old_postinstall_cmds='`$ECHO "$old_postinstall_cmds" | $SED "$delay_single_quote_subst"`' old_postuninstall_cmds='`$ECHO "$old_postuninstall_cmds" | $SED "$delay_single_quote_subst"`' old_archive_cmds='`$ECHO "$old_archive_cmds" | $SED "$delay_single_quote_subst"`' lock_old_archive_extraction='`$ECHO "$lock_old_archive_extraction" | $SED "$delay_single_quote_subst"`' CC='`$ECHO "$CC" | $SED "$delay_single_quote_subst"`' CFLAGS='`$ECHO "$CFLAGS" | $SED "$delay_single_quote_subst"`' compiler='`$ECHO "$compiler" | $SED "$delay_single_quote_subst"`' GCC='`$ECHO "$GCC" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_pipe='`$ECHO "$lt_cv_sys_global_symbol_pipe" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_to_cdecl='`$ECHO "$lt_cv_sys_global_symbol_to_cdecl" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_to_c_name_address='`$ECHO "$lt_cv_sys_global_symbol_to_c_name_address" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='`$ECHO "$lt_cv_sys_global_symbol_to_c_name_address_lib_prefix" | $SED "$delay_single_quote_subst"`' nm_file_list_spec='`$ECHO "$nm_file_list_spec" | $SED "$delay_single_quote_subst"`' lt_sysroot='`$ECHO "$lt_sysroot" | $SED "$delay_single_quote_subst"`' objdir='`$ECHO "$objdir" | $SED "$delay_single_quote_subst"`' MAGIC_CMD='`$ECHO "$MAGIC_CMD" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_no_builtin_flag='`$ECHO "$lt_prog_compiler_no_builtin_flag" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_pic='`$ECHO "$lt_prog_compiler_pic" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_wl='`$ECHO "$lt_prog_compiler_wl" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_static='`$ECHO "$lt_prog_compiler_static" | $SED "$delay_single_quote_subst"`' lt_cv_prog_compiler_c_o='`$ECHO "$lt_cv_prog_compiler_c_o" | $SED "$delay_single_quote_subst"`' need_locks='`$ECHO "$need_locks" | $SED "$delay_single_quote_subst"`' MANIFEST_TOOL='`$ECHO "$MANIFEST_TOOL" | $SED "$delay_single_quote_subst"`' DSYMUTIL='`$ECHO "$DSYMUTIL" | $SED "$delay_single_quote_subst"`' NMEDIT='`$ECHO "$NMEDIT" | $SED "$delay_single_quote_subst"`' LIPO='`$ECHO "$LIPO" | $SED "$delay_single_quote_subst"`' OTOOL='`$ECHO "$OTOOL" | $SED "$delay_single_quote_subst"`' OTOOL64='`$ECHO "$OTOOL64" | $SED "$delay_single_quote_subst"`' libext='`$ECHO "$libext" | $SED "$delay_single_quote_subst"`' shrext_cmds='`$ECHO "$shrext_cmds" | $SED "$delay_single_quote_subst"`' extract_expsyms_cmds='`$ECHO "$extract_expsyms_cmds" | $SED "$delay_single_quote_subst"`' archive_cmds_need_lc='`$ECHO "$archive_cmds_need_lc" | $SED "$delay_single_quote_subst"`' enable_shared_with_static_runtimes='`$ECHO "$enable_shared_with_static_runtimes" | $SED "$delay_single_quote_subst"`' export_dynamic_flag_spec='`$ECHO "$export_dynamic_flag_spec" | $SED "$delay_single_quote_subst"`' whole_archive_flag_spec='`$ECHO "$whole_archive_flag_spec" | $SED "$delay_single_quote_subst"`' compiler_needs_object='`$ECHO "$compiler_needs_object" | $SED "$delay_single_quote_subst"`' old_archive_from_new_cmds='`$ECHO "$old_archive_from_new_cmds" | $SED "$delay_single_quote_subst"`' old_archive_from_expsyms_cmds='`$ECHO "$old_archive_from_expsyms_cmds" | $SED "$delay_single_quote_subst"`' archive_cmds='`$ECHO "$archive_cmds" | $SED "$delay_single_quote_subst"`' archive_expsym_cmds='`$ECHO "$archive_expsym_cmds" | $SED "$delay_single_quote_subst"`' module_cmds='`$ECHO "$module_cmds" | $SED "$delay_single_quote_subst"`' module_expsym_cmds='`$ECHO "$module_expsym_cmds" | $SED "$delay_single_quote_subst"`' with_gnu_ld='`$ECHO "$with_gnu_ld" | $SED "$delay_single_quote_subst"`' allow_undefined_flag='`$ECHO "$allow_undefined_flag" | $SED "$delay_single_quote_subst"`' no_undefined_flag='`$ECHO "$no_undefined_flag" | $SED "$delay_single_quote_subst"`' hardcode_libdir_flag_spec='`$ECHO "$hardcode_libdir_flag_spec" | $SED "$delay_single_quote_subst"`' hardcode_libdir_separator='`$ECHO "$hardcode_libdir_separator" | $SED "$delay_single_quote_subst"`' hardcode_direct='`$ECHO "$hardcode_direct" | $SED "$delay_single_quote_subst"`' hardcode_direct_absolute='`$ECHO "$hardcode_direct_absolute" | $SED "$delay_single_quote_subst"`' hardcode_minus_L='`$ECHO "$hardcode_minus_L" | $SED "$delay_single_quote_subst"`' hardcode_shlibpath_var='`$ECHO "$hardcode_shlibpath_var" | $SED "$delay_single_quote_subst"`' hardcode_automatic='`$ECHO "$hardcode_automatic" | $SED "$delay_single_quote_subst"`' inherit_rpath='`$ECHO "$inherit_rpath" | $SED "$delay_single_quote_subst"`' link_all_deplibs='`$ECHO "$link_all_deplibs" | $SED "$delay_single_quote_subst"`' always_export_symbols='`$ECHO "$always_export_symbols" | $SED "$delay_single_quote_subst"`' export_symbols_cmds='`$ECHO "$export_symbols_cmds" | $SED "$delay_single_quote_subst"`' exclude_expsyms='`$ECHO "$exclude_expsyms" | $SED "$delay_single_quote_subst"`' include_expsyms='`$ECHO "$include_expsyms" | $SED "$delay_single_quote_subst"`' prelink_cmds='`$ECHO "$prelink_cmds" | $SED "$delay_single_quote_subst"`' postlink_cmds='`$ECHO "$postlink_cmds" | $SED "$delay_single_quote_subst"`' file_list_spec='`$ECHO "$file_list_spec" | $SED "$delay_single_quote_subst"`' variables_saved_for_relink='`$ECHO "$variables_saved_for_relink" | $SED "$delay_single_quote_subst"`' need_lib_prefix='`$ECHO "$need_lib_prefix" | $SED "$delay_single_quote_subst"`' need_version='`$ECHO "$need_version" | $SED "$delay_single_quote_subst"`' version_type='`$ECHO "$version_type" | $SED "$delay_single_quote_subst"`' runpath_var='`$ECHO "$runpath_var" | $SED "$delay_single_quote_subst"`' shlibpath_var='`$ECHO "$shlibpath_var" | $SED "$delay_single_quote_subst"`' shlibpath_overrides_runpath='`$ECHO "$shlibpath_overrides_runpath" | $SED "$delay_single_quote_subst"`' libname_spec='`$ECHO "$libname_spec" | $SED "$delay_single_quote_subst"`' library_names_spec='`$ECHO "$library_names_spec" | $SED "$delay_single_quote_subst"`' soname_spec='`$ECHO "$soname_spec" | $SED "$delay_single_quote_subst"`' install_override_mode='`$ECHO "$install_override_mode" | $SED "$delay_single_quote_subst"`' postinstall_cmds='`$ECHO "$postinstall_cmds" | $SED "$delay_single_quote_subst"`' postuninstall_cmds='`$ECHO "$postuninstall_cmds" | $SED "$delay_single_quote_subst"`' finish_cmds='`$ECHO "$finish_cmds" | $SED "$delay_single_quote_subst"`' finish_eval='`$ECHO "$finish_eval" | $SED "$delay_single_quote_subst"`' hardcode_into_libs='`$ECHO "$hardcode_into_libs" | $SED "$delay_single_quote_subst"`' sys_lib_search_path_spec='`$ECHO "$sys_lib_search_path_spec" | $SED "$delay_single_quote_subst"`' sys_lib_dlsearch_path_spec='`$ECHO "$sys_lib_dlsearch_path_spec" | $SED "$delay_single_quote_subst"`' hardcode_action='`$ECHO "$hardcode_action" | $SED "$delay_single_quote_subst"`' enable_dlopen='`$ECHO "$enable_dlopen" | $SED "$delay_single_quote_subst"`' enable_dlopen_self='`$ECHO "$enable_dlopen_self" | $SED "$delay_single_quote_subst"`' enable_dlopen_self_static='`$ECHO "$enable_dlopen_self_static" | $SED "$delay_single_quote_subst"`' old_striplib='`$ECHO "$old_striplib" | $SED "$delay_single_quote_subst"`' striplib='`$ECHO "$striplib" | $SED "$delay_single_quote_subst"`' compiler_lib_search_dirs='`$ECHO "$compiler_lib_search_dirs" | $SED "$delay_single_quote_subst"`' predep_objects='`$ECHO "$predep_objects" | $SED "$delay_single_quote_subst"`' postdep_objects='`$ECHO "$postdep_objects" | $SED "$delay_single_quote_subst"`' predeps='`$ECHO "$predeps" | $SED "$delay_single_quote_subst"`' postdeps='`$ECHO "$postdeps" | $SED "$delay_single_quote_subst"`' compiler_lib_search_path='`$ECHO "$compiler_lib_search_path" | $SED "$delay_single_quote_subst"`' LD_CXX='`$ECHO "$LD_CXX" | $SED "$delay_single_quote_subst"`' reload_flag_CXX='`$ECHO "$reload_flag_CXX" | $SED "$delay_single_quote_subst"`' reload_cmds_CXX='`$ECHO "$reload_cmds_CXX" | $SED "$delay_single_quote_subst"`' old_archive_cmds_CXX='`$ECHO "$old_archive_cmds_CXX" | $SED "$delay_single_quote_subst"`' compiler_CXX='`$ECHO "$compiler_CXX" | $SED "$delay_single_quote_subst"`' GCC_CXX='`$ECHO "$GCC_CXX" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_no_builtin_flag_CXX='`$ECHO "$lt_prog_compiler_no_builtin_flag_CXX" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_pic_CXX='`$ECHO "$lt_prog_compiler_pic_CXX" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_wl_CXX='`$ECHO "$lt_prog_compiler_wl_CXX" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_static_CXX='`$ECHO "$lt_prog_compiler_static_CXX" | $SED "$delay_single_quote_subst"`' lt_cv_prog_compiler_c_o_CXX='`$ECHO "$lt_cv_prog_compiler_c_o_CXX" | $SED "$delay_single_quote_subst"`' archive_cmds_need_lc_CXX='`$ECHO "$archive_cmds_need_lc_CXX" | $SED "$delay_single_quote_subst"`' enable_shared_with_static_runtimes_CXX='`$ECHO "$enable_shared_with_static_runtimes_CXX" | $SED "$delay_single_quote_subst"`' export_dynamic_flag_spec_CXX='`$ECHO "$export_dynamic_flag_spec_CXX" | $SED "$delay_single_quote_subst"`' whole_archive_flag_spec_CXX='`$ECHO "$whole_archive_flag_spec_CXX" | $SED "$delay_single_quote_subst"`' compiler_needs_object_CXX='`$ECHO "$compiler_needs_object_CXX" | $SED "$delay_single_quote_subst"`' old_archive_from_new_cmds_CXX='`$ECHO "$old_archive_from_new_cmds_CXX" | $SED "$delay_single_quote_subst"`' old_archive_from_expsyms_cmds_CXX='`$ECHO "$old_archive_from_expsyms_cmds_CXX" | $SED "$delay_single_quote_subst"`' archive_cmds_CXX='`$ECHO "$archive_cmds_CXX" | $SED "$delay_single_quote_subst"`' archive_expsym_cmds_CXX='`$ECHO "$archive_expsym_cmds_CXX" | $SED "$delay_single_quote_subst"`' module_cmds_CXX='`$ECHO "$module_cmds_CXX" | $SED "$delay_single_quote_subst"`' module_expsym_cmds_CXX='`$ECHO "$module_expsym_cmds_CXX" | $SED "$delay_single_quote_subst"`' with_gnu_ld_CXX='`$ECHO "$with_gnu_ld_CXX" | $SED "$delay_single_quote_subst"`' allow_undefined_flag_CXX='`$ECHO "$allow_undefined_flag_CXX" | $SED "$delay_single_quote_subst"`' no_undefined_flag_CXX='`$ECHO "$no_undefined_flag_CXX" | $SED "$delay_single_quote_subst"`' hardcode_libdir_flag_spec_CXX='`$ECHO "$hardcode_libdir_flag_spec_CXX" | $SED "$delay_single_quote_subst"`' hardcode_libdir_separator_CXX='`$ECHO "$hardcode_libdir_separator_CXX" | $SED "$delay_single_quote_subst"`' hardcode_direct_CXX='`$ECHO "$hardcode_direct_CXX" | $SED "$delay_single_quote_subst"`' hardcode_direct_absolute_CXX='`$ECHO "$hardcode_direct_absolute_CXX" | $SED "$delay_single_quote_subst"`' hardcode_minus_L_CXX='`$ECHO "$hardcode_minus_L_CXX" | $SED "$delay_single_quote_subst"`' hardcode_shlibpath_var_CXX='`$ECHO "$hardcode_shlibpath_var_CXX" | $SED "$delay_single_quote_subst"`' hardcode_automatic_CXX='`$ECHO "$hardcode_automatic_CXX" | $SED "$delay_single_quote_subst"`' inherit_rpath_CXX='`$ECHO "$inherit_rpath_CXX" | $SED "$delay_single_quote_subst"`' link_all_deplibs_CXX='`$ECHO "$link_all_deplibs_CXX" | $SED "$delay_single_quote_subst"`' always_export_symbols_CXX='`$ECHO "$always_export_symbols_CXX" | $SED "$delay_single_quote_subst"`' export_symbols_cmds_CXX='`$ECHO "$export_symbols_cmds_CXX" | $SED "$delay_single_quote_subst"`' exclude_expsyms_CXX='`$ECHO "$exclude_expsyms_CXX" | $SED "$delay_single_quote_subst"`' include_expsyms_CXX='`$ECHO "$include_expsyms_CXX" | $SED "$delay_single_quote_subst"`' prelink_cmds_CXX='`$ECHO "$prelink_cmds_CXX" | $SED "$delay_single_quote_subst"`' postlink_cmds_CXX='`$ECHO "$postlink_cmds_CXX" | $SED "$delay_single_quote_subst"`' file_list_spec_CXX='`$ECHO "$file_list_spec_CXX" | $SED "$delay_single_quote_subst"`' hardcode_action_CXX='`$ECHO "$hardcode_action_CXX" | $SED "$delay_single_quote_subst"`' compiler_lib_search_dirs_CXX='`$ECHO "$compiler_lib_search_dirs_CXX" | $SED "$delay_single_quote_subst"`' predep_objects_CXX='`$ECHO "$predep_objects_CXX" | $SED "$delay_single_quote_subst"`' postdep_objects_CXX='`$ECHO "$postdep_objects_CXX" | $SED "$delay_single_quote_subst"`' predeps_CXX='`$ECHO "$predeps_CXX" | $SED "$delay_single_quote_subst"`' postdeps_CXX='`$ECHO "$postdeps_CXX" | $SED "$delay_single_quote_subst"`' compiler_lib_search_path_CXX='`$ECHO "$compiler_lib_search_path_CXX" | $SED "$delay_single_quote_subst"`' LTCC='$LTCC' LTCFLAGS='$LTCFLAGS' compiler='$compiler_DEFAULT' # A function that is used when there is no print builtin or printf. func_fallback_echo () { eval 'cat <<_LTECHO_EOF \$1 _LTECHO_EOF' } # Quote evaled strings. for var in SHELL \ ECHO \ PATH_SEPARATOR \ SED \ GREP \ EGREP \ FGREP \ LD \ NM \ LN_S \ lt_SP2NL \ lt_NL2SP \ reload_flag \ OBJDUMP \ deplibs_check_method \ file_magic_cmd \ file_magic_glob \ want_nocaseglob \ DLLTOOL \ sharedlib_from_linklib_cmd \ AR \ AR_FLAGS \ archiver_list_spec \ STRIP \ RANLIB \ CC \ CFLAGS \ compiler \ lt_cv_sys_global_symbol_pipe \ lt_cv_sys_global_symbol_to_cdecl \ lt_cv_sys_global_symbol_to_c_name_address \ lt_cv_sys_global_symbol_to_c_name_address_lib_prefix \ nm_file_list_spec \ lt_prog_compiler_no_builtin_flag \ lt_prog_compiler_pic \ lt_prog_compiler_wl \ lt_prog_compiler_static \ lt_cv_prog_compiler_c_o \ need_locks \ MANIFEST_TOOL \ DSYMUTIL \ NMEDIT \ LIPO \ OTOOL \ OTOOL64 \ shrext_cmds \ export_dynamic_flag_spec \ whole_archive_flag_spec \ compiler_needs_object \ with_gnu_ld \ allow_undefined_flag \ no_undefined_flag \ hardcode_libdir_flag_spec \ hardcode_libdir_separator \ exclude_expsyms \ include_expsyms \ file_list_spec \ variables_saved_for_relink \ libname_spec \ library_names_spec \ soname_spec \ install_override_mode \ finish_eval \ old_striplib \ striplib \ compiler_lib_search_dirs \ predep_objects \ postdep_objects \ predeps \ postdeps \ compiler_lib_search_path \ LD_CXX \ reload_flag_CXX \ compiler_CXX \ lt_prog_compiler_no_builtin_flag_CXX \ lt_prog_compiler_pic_CXX \ lt_prog_compiler_wl_CXX \ lt_prog_compiler_static_CXX \ lt_cv_prog_compiler_c_o_CXX \ export_dynamic_flag_spec_CXX \ whole_archive_flag_spec_CXX \ compiler_needs_object_CXX \ with_gnu_ld_CXX \ allow_undefined_flag_CXX \ no_undefined_flag_CXX \ hardcode_libdir_flag_spec_CXX \ hardcode_libdir_separator_CXX \ exclude_expsyms_CXX \ include_expsyms_CXX \ file_list_spec_CXX \ compiler_lib_search_dirs_CXX \ predep_objects_CXX \ postdep_objects_CXX \ predeps_CXX \ postdeps_CXX \ compiler_lib_search_path_CXX; do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[\\\\\\\`\\"\\\$]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED \\"\\\$sed_quote_subst\\"\\\`\\\\\\"" ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done # Double-quote double-evaled strings. for var in reload_cmds \ old_postinstall_cmds \ old_postuninstall_cmds \ old_archive_cmds \ extract_expsyms_cmds \ old_archive_from_new_cmds \ old_archive_from_expsyms_cmds \ archive_cmds \ archive_expsym_cmds \ module_cmds \ module_expsym_cmds \ export_symbols_cmds \ prelink_cmds \ postlink_cmds \ postinstall_cmds \ postuninstall_cmds \ finish_cmds \ sys_lib_search_path_spec \ sys_lib_dlsearch_path_spec \ reload_cmds_CXX \ old_archive_cmds_CXX \ old_archive_from_new_cmds_CXX \ old_archive_from_expsyms_cmds_CXX \ archive_cmds_CXX \ archive_expsym_cmds_CXX \ module_cmds_CXX \ module_expsym_cmds_CXX \ export_symbols_cmds_CXX \ prelink_cmds_CXX \ postlink_cmds_CXX; do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[\\\\\\\`\\"\\\$]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\"" ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done ac_aux_dir='$ac_aux_dir' xsi_shell='$xsi_shell' lt_shell_append='$lt_shell_append' # See if we are running on zsh, and set the options which allow our # commands through without removal of \ escapes INIT. if test -n "\${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi PACKAGE='$PACKAGE' VERSION='$VERSION' TIMESTAMP='$TIMESTAMP' RM='$RM' ofile='$ofile' _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # Handling of arguments. for ac_config_target in $ac_config_targets do case $ac_config_target in "config.h") CONFIG_HEADERS="$CONFIG_HEADERS config.h" ;; "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; "cli/Makefile") CONFIG_FILES="$CONFIG_FILES cli/Makefile" ;; "doc/Makefile") CONFIG_FILES="$CONFIG_FILES doc/Makefile" ;; "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; "examples/modules/Makefile") CONFIG_FILES="$CONFIG_FILES examples/modules/Makefile" ;; "examples/projects/Makefile") CONFIG_FILES="$CONFIG_FILES examples/projects/Makefile" ;; "eXdbm/Makefile") CONFIG_FILES="$CONFIG_FILES eXdbm/Makefile" ;; "gpsim/Makefile") CONFIG_FILES="$CONFIG_FILES gpsim/Makefile" ;; "gui/Makefile") CONFIG_FILES="$CONFIG_FILES gui/Makefile" ;; "modules/Makefile") CONFIG_FILES="$CONFIG_FILES modules/Makefile" ;; "extras/Makefile") CONFIG_FILES="$CONFIG_FILES extras/Makefile" ;; "extras/graphic_lcd/Makefile") CONFIG_FILES="$CONFIG_FILES extras/graphic_lcd/Makefile" ;; "extras/graphic_lcd/src/Makefile") CONFIG_FILES="$CONFIG_FILES extras/graphic_lcd/src/Makefile" ;; "extras/lcd/Makefile") CONFIG_FILES="$CONFIG_FILES extras/lcd/Makefile" ;; "extras/lcd/examples/Makefile") CONFIG_FILES="$CONFIG_FILES extras/lcd/examples/Makefile" ;; "extras/ds1820/Makefile") CONFIG_FILES="$CONFIG_FILES extras/ds1820/Makefile" ;; "extras/ds1820/examples/Makefile") CONFIG_FILES="$CONFIG_FILES extras/ds1820/examples/Makefile" ;; "extras/ds1307/Makefile") CONFIG_FILES="$CONFIG_FILES extras/ds1307/Makefile" ;; "extras/ds1307/examples/Makefile") CONFIG_FILES="$CONFIG_FILES extras/ds1307/examples/Makefile" ;; "regression/Makefile") CONFIG_FILES="$CONFIG_FILES regression/Makefile" ;; "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; "src/dspic/Makefile") CONFIG_FILES="$CONFIG_FILES src/dspic/Makefile" ;; "xpms/Makefile") CONFIG_FILES="$CONFIG_FILES xpms/Makefile" ;; "gpsim.spec") CONFIG_FILES="$CONFIG_FILES gpsim.spec" ;; *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; esac done # If the user did not use the arguments to specify the items to instantiate, # then the envvar interface is used. Set only those that are not. # We use the long form for the default assignment because of an extremely # bizarre bug on SunOS 4.1.3. if $ac_need_defaults; then test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands fi # Have a temporary directory for convenience. Make it in the build tree # simply because there is no reason against having it here, and in addition, # creating and moving files from /tmp can sometimes cause problems. # Hook for its removal unless debugging. # Note that there is a small window in which the directory will not be cleaned: # after its creation but before its name has been assigned to `$tmp'. $debug || { tmp= ac_tmp= trap 'exit_status=$? : "${ac_tmp:=$tmp}" { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status ' 0 trap 'as_fn_exit 1' 1 2 13 15 } # Create a (secure) tmp directory for tmp files. { tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && test -d "$tmp" } || { tmp=./conf$$-$RANDOM (umask 077 && mkdir "$tmp") } || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 ac_tmp=$tmp # Set up the scripts for CONFIG_FILES section. # No need to generate them if there are no CONFIG_FILES. # This happens for instance with `./config.status config.h'. if test -n "$CONFIG_FILES"; then ac_cr=`echo X | tr X '\015'` # On cygwin, bash can eat \r inside `` if the user requested igncr. # But we know of no other shell where ac_cr would be empty at this # point, so we can use a bashism as a fallback. if test "x$ac_cr" = x; then eval ac_cr=\$\'\\r\' fi ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then ac_cs_awk_cr='\\r' else ac_cs_awk_cr=$ac_cr fi echo 'BEGIN {' >"$ac_tmp/subs1.awk" && _ACEOF { echo "cat >conf$$subs.awk <<_ACEOF" && echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' && echo "_ACEOF" } >conf$$subs.sh || as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 ac_delim_num=`echo "$ac_subst_vars" | grep -c '^'` ac_delim='%!_!# ' for ac_last_try in false false false false false :; do . ./conf$$subs.sh || as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X` if test $ac_delim_n = $ac_delim_num; then break elif $ac_last_try; then as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 else ac_delim="$ac_delim!$ac_delim _$ac_delim!! " fi done rm -f conf$$subs.sh cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 cat >>"\$ac_tmp/subs1.awk" <<\\_ACAWK && _ACEOF sed -n ' h s/^/S["/; s/!.*/"]=/ p g s/^[^!]*!// :repl t repl s/'"$ac_delim"'$// t delim :nl h s/\(.\{148\}\)..*/\1/ t more1 s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/ p n b repl :more1 s/["\\]/\\&/g; s/^/"/; s/$/"\\/ p g s/.\{148\}// t nl :delim h s/\(.\{148\}\)..*/\1/ t more2 s/["\\]/\\&/g; s/^/"/; s/$/"/ p b :more2 s/["\\]/\\&/g; s/^/"/; s/$/"\\/ p g s/.\{148\}// t delim ' >$CONFIG_STATUS || ac_write_fail=1 rm -f conf$$subs.awk cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 _ACAWK cat >>"\$ac_tmp/subs1.awk" <<_ACAWK && for (key in S) S_is_set[key] = 1 FS = "" } { line = $ 0 nfields = split(line, field, "@") substed = 0 len = length(field[1]) for (i = 2; i < nfields; i++) { key = field[i] keylen = length(key) if (S_is_set[key]) { value = S[key] line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) len += length(value) + length(field[++i]) substed = 1 } else len += 1 + keylen } print line } _ACAWK _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" else cat fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 _ACEOF # VPATH may cause trouble with some makes, so we remove sole $(srcdir), # ${srcdir} and @srcdir@ entries from VPATH if srcdir is ".", strip leading and # trailing colons and then remove the whole line if VPATH becomes empty # (actually we leave an empty line to preserve line numbers). if test "x$srcdir" = x.; then ac_vpsub='/^[ ]*VPATH[ ]*=[ ]*/{ h s/// s/^/:/ s/[ ]*$/:/ s/:\$(srcdir):/:/g s/:\${srcdir}:/:/g s/:@srcdir@:/:/g s/^:*// s/:*$// x s/\(=[ ]*\).*/\1/ G s/\n// s/^[^=]*=[ ]*$// }' fi cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 fi # test -n "$CONFIG_FILES" # Set up the scripts for CONFIG_HEADERS section. # No need to generate them if there are no CONFIG_HEADERS. # This happens for instance with `./config.status Makefile'. if test -n "$CONFIG_HEADERS"; then cat >"$ac_tmp/defines.awk" <<\_ACAWK || BEGIN { _ACEOF # Transform confdefs.h into an awk script `defines.awk', embedded as # here-document in config.status, that substitutes the proper values into # config.h.in to produce config.h. # Create a delimiter string that does not exist in confdefs.h, to ease # handling of long lines. ac_delim='%!_!# ' for ac_last_try in false false :; do ac_tt=`sed -n "/$ac_delim/p" confdefs.h` if test -z "$ac_tt"; then break elif $ac_last_try; then as_fn_error $? "could not make $CONFIG_HEADERS" "$LINENO" 5 else ac_delim="$ac_delim!$ac_delim _$ac_delim!! " fi done # For the awk script, D is an array of macro values keyed by name, # likewise P contains macro parameters if any. Preserve backslash # newline sequences. ac_word_re=[_$as_cr_Letters][_$as_cr_alnum]* sed -n ' s/.\{148\}/&'"$ac_delim"'/g t rset :rset s/^[ ]*#[ ]*define[ ][ ]*/ / t def d :def s/\\$// t bsnl s/["\\]/\\&/g s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ D["\1"]=" \3"/p s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2"/p d :bsnl s/["\\]/\\&/g s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ D["\1"]=" \3\\\\\\n"\\/p t cont s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2\\\\\\n"\\/p t cont d :cont n s/.\{148\}/&'"$ac_delim"'/g t clear :clear s/\\$// t bsnlc s/["\\]/\\&/g; s/^/"/; s/$/"/p d :bsnlc s/["\\]/\\&/g; s/^/"/; s/$/\\\\\\n"\\/p b cont ' >$CONFIG_STATUS || ac_write_fail=1 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 for (key in D) D_is_set[key] = 1 FS = "" } /^[\t ]*#[\t ]*(define|undef)[\t ]+$ac_word_re([\t (]|\$)/ { line = \$ 0 split(line, arg, " ") if (arg[1] == "#") { defundef = arg[2] mac1 = arg[3] } else { defundef = substr(arg[1], 2) mac1 = arg[2] } split(mac1, mac2, "(") #) macro = mac2[1] prefix = substr(line, 1, index(line, defundef) - 1) if (D_is_set[macro]) { # Preserve the white space surrounding the "#". print prefix "define", macro P[macro] D[macro] next } else { # Replace #undef with comments. This is necessary, for example, # in the case of _POSIX_SOURCE, which is predefined and required # on some systems where configure will not decide to define it. if (defundef == "undef") { print "/*", prefix defundef, macro, "*/" next } } } { print } _ACAWK _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 fi # test -n "$CONFIG_HEADERS" eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" shift for ac_tag do case $ac_tag in :[FHLC]) ac_mode=$ac_tag; continue;; esac case $ac_mode$ac_tag in :[FHL]*:*);; :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; :[FH]-) ac_tag=-:-;; :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; esac ac_save_IFS=$IFS IFS=: set x $ac_tag IFS=$ac_save_IFS shift ac_file=$1 shift case $ac_mode in :L) ac_source=$1;; :[FH]) ac_file_inputs= for ac_f do case $ac_f in -) ac_f="$ac_tmp/stdin";; *) # Look for the file first in the build tree, then in the source tree # (if the path is not absolute). The absolute path cannot be DOS-style, # because $ac_f cannot contain `:'. test -f "$ac_f" || case $ac_f in [\\/$]*) false;; *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; esac || as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; esac case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac as_fn_append ac_file_inputs " '$ac_f'" done # Let's still pretend it is `configure' which instantiates (i.e., don't # use $as_me), people would be surprised to read: # /* config.h. Generated by config.status. */ configure_input='Generated from '` $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' `' by configure.' if test x"$ac_file" != x-; then configure_input="$ac_file. $configure_input" { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 $as_echo "$as_me: creating $ac_file" >&6;} fi # Neutralize special characters interpreted by sed in replacement strings. case $configure_input in #( *\&* | *\|* | *\\* ) ac_sed_conf_input=`$as_echo "$configure_input" | sed 's/[\\\\&|]/\\\\&/g'`;; #( *) ac_sed_conf_input=$configure_input;; esac case $ac_tag in *:-:* | *:-) cat >"$ac_tmp/stdin" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; esac ;; esac ac_dir=`$as_dirname -- "$ac_file" || $as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$ac_file" : 'X\(//\)[^/]' \| \ X"$ac_file" : 'X\(//\)$' \| \ X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$ac_file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` as_dir="$ac_dir"; as_fn_mkdir_p ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; esac ;; esac ac_abs_top_builddir=$ac_pwd ac_abs_builddir=$ac_pwd$ac_dir_suffix # for backward compatibility: ac_top_builddir=$ac_top_build_prefix case $srcdir in .) # We are building in place. ac_srcdir=. ac_top_srcdir=$ac_top_builddir_sub ac_abs_top_srcdir=$ac_pwd ;; [\\/]* | ?:[\\/]* ) # Absolute name. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ac_abs_top_srcdir=$srcdir ;; *) # Relative name. ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_build_prefix$srcdir ac_abs_top_srcdir=$ac_pwd/$srcdir ;; esac ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix case $ac_mode in :F) # # CONFIG_FILE # case $INSTALL in [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; esac ac_MKDIR_P=$MKDIR_P case $MKDIR_P in [\\/$]* | ?:[\\/]* ) ;; */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; esac _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # If the template does not know about datarootdir, expand it. # FIXME: This hack should be removed a few years after 2.60. ac_datarootdir_hack=; ac_datarootdir_seen= ac_sed_dataroot=' /datarootdir/ { p q } /@datadir@/p /@docdir@/p /@infodir@/p /@localedir@/p /@mandir@/p' case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in *datarootdir*) ac_datarootdir_seen=yes;; *@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 $as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_datarootdir_hack=' s&@datadir@&$datadir&g s&@docdir@&$docdir&g s&@infodir@&$infodir&g s&@localedir@&$localedir&g s&@mandir@&$mandir&g s&\\\${datarootdir}&$datarootdir&g' ;; esac _ACEOF # Neutralize VPATH when `$srcdir' = `.'. # Shell code in configure.ac might set extrasub. # FIXME: do we really want to maintain this feature? cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_sed_extra="$ac_vpsub $extrasub _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 :t /@[a-zA-Z_][a-zA-Z_0-9]*@/!b s|@configure_input@|$ac_sed_conf_input|;t t s&@top_builddir@&$ac_top_builddir_sub&;t t s&@top_build_prefix@&$ac_top_build_prefix&;t t s&@srcdir@&$ac_srcdir&;t t s&@abs_srcdir@&$ac_abs_srcdir&;t t s&@top_srcdir@&$ac_top_srcdir&;t t s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t s&@builddir@&$ac_builddir&;t t s&@abs_builddir@&$ac_abs_builddir&;t t s&@abs_top_builddir@&$ac_abs_top_builddir&;t t s&@INSTALL@&$ac_INSTALL&;t t s&@MKDIR_P@&$ac_MKDIR_P&;t t $ac_datarootdir_hack " eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ "$ac_tmp/out"`; test -z "$ac_out"; } && { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' which seems to be undefined. Please make sure it is defined" >&5 $as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' which seems to be undefined. Please make sure it is defined" >&2;} rm -f "$ac_tmp/stdin" case $ac_file in -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; esac \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; :H) # # CONFIG_HEADER # if test x"$ac_file" != x-; then { $as_echo "/* $configure_input */" \ && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" } >"$ac_tmp/config.h" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 $as_echo "$as_me: $ac_file is unchanged" >&6;} else rm -f "$ac_file" mv "$ac_tmp/config.h" "$ac_file" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 fi else $as_echo "/* $configure_input */" \ && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ || as_fn_error $? "could not create -" "$LINENO" 5 fi # Compute "$ac_file"'s index in $config_headers. _am_arg="$ac_file" _am_stamp_count=1 for _am_header in $config_headers :; do case $_am_header in $_am_arg | $_am_arg:* ) break ;; * ) _am_stamp_count=`expr $_am_stamp_count + 1` ;; esac done echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || $as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$_am_arg" : 'X\(//\)[^/]' \| \ X"$_am_arg" : 'X\(//\)$' \| \ X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$_am_arg" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'`/stamp-h$_am_stamp_count ;; :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 $as_echo "$as_me: executing $ac_file commands" >&6;} ;; esac case $ac_file$ac_mode in "depfiles":C) test x"$AMDEP_TRUE" != x"" || { # Older Autoconf quotes --file arguments for eval, but not when files # are listed without --file. Let's play safe and only enable the eval # if we detect the quoting. case $CONFIG_FILES in *\'*) eval set x "$CONFIG_FILES" ;; *) set x $CONFIG_FILES ;; esac shift for mf do # Strip MF so we end up with the name of the file. mf=`echo "$mf" | sed -e 's/:.*$//'` # Check whether this is an Automake generated Makefile or not. # We used to match only the files named 'Makefile.in', but # some people rename them; so instead we look at the file content. # Grep'ing the first line is not enough: some people post-process # each Makefile.in and add a new line on top of each file to say so. # Grep'ing the whole file is not good either: AIX grep has a line # limit of 2048, but all sed's we know have understand at least 4000. if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then dirpart=`$as_dirname -- "$mf" || $as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$mf" : 'X\(//\)[^/]' \| \ X"$mf" : 'X\(//\)$' \| \ X"$mf" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$mf" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` else continue fi # Extract the definition of DEPDIR, am__include, and am__quote # from the Makefile without running 'make'. DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` test -z "$DEPDIR" && continue am__include=`sed -n 's/^am__include = //p' < "$mf"` test -z "$am__include" && continue am__quote=`sed -n 's/^am__quote = //p' < "$mf"` # Find all dependency output files, they are included files with # $(DEPDIR) in their names. We invoke sed twice because it is the # simplest approach to changing $(DEPDIR) to its actual value in the # expansion. for file in `sed -n " s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do # Make sure the directory exists. test -f "$dirpart/$file" && continue fdir=`$as_dirname -- "$file" || $as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$file" : 'X\(//\)[^/]' \| \ X"$file" : 'X\(//\)$' \| \ X"$file" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` as_dir=$dirpart/$fdir; as_fn_mkdir_p # echo "creating $dirpart/$file" echo '# dummy' > "$dirpart/$file" done done } ;; "libtool":C) # See if we are running on zsh, and set the options which allow our # commands through without removal of \ escapes. if test -n "${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi cfgfile="${ofile}T" trap "$RM \"$cfgfile\"; exit 1" 1 2 15 $RM "$cfgfile" cat <<_LT_EOF >> "$cfgfile" #! $SHELL # `$ECHO "$ofile" | sed 's%^.*/%%'` - Provide generalized library-building support services. # Generated automatically by $as_me ($PACKAGE$TIMESTAMP) $VERSION # Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: # NOTE: Changes made to this file will be lost: look at ltmain.sh. # # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, # 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # Written by Gordon Matzigkeit, 1996 # # This file is part of GNU Libtool. # # GNU Libtool 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. # # As a special exception to the GNU General Public License, # if you distribute this file as part of a program or library that # is built using GNU Libtool, you may include this file under the # same distribution terms that you use for the rest of that program. # # GNU Libtool 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 GNU Libtool; see the file COPYING. If not, a copy # can be downloaded from http://www.gnu.org/licenses/gpl.html, or # obtained by writing to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. # The names of the tagged configurations supported by this script. available_tags="CXX " # ### BEGIN LIBTOOL CONFIG # Which release of libtool.m4 was used? macro_version=$macro_version macro_revision=$macro_revision # Whether or not to build shared libraries. build_libtool_libs=$enable_shared # Whether or not to build static libraries. build_old_libs=$enable_static # What type of objects to build. pic_mode=$pic_mode # Whether or not to optimize for fast installation. fast_install=$enable_fast_install # Shell to use when invoking shell scripts. SHELL=$lt_SHELL # An echo program that protects backslashes. ECHO=$lt_ECHO # The PATH separator for the build system. PATH_SEPARATOR=$lt_PATH_SEPARATOR # The host system. host_alias=$host_alias host=$host host_os=$host_os # The build system. build_alias=$build_alias build=$build build_os=$build_os # A sed program that does not truncate output. SED=$lt_SED # Sed that helps us avoid accidentally triggering echo(1) options like -n. Xsed="\$SED -e 1s/^X//" # A grep program that handles long lines. GREP=$lt_GREP # An ERE matcher. EGREP=$lt_EGREP # A literal string matcher. FGREP=$lt_FGREP # A BSD- or MS-compatible name lister. NM=$lt_NM # Whether we need soft or hard links. LN_S=$lt_LN_S # What is the maximum length of a command? max_cmd_len=$max_cmd_len # Object file suffix (normally "o"). objext=$ac_objext # Executable file suffix (normally ""). exeext=$exeext # whether the shell understands "unset". lt_unset=$lt_unset # turn spaces into newlines. SP2NL=$lt_lt_SP2NL # turn newlines into spaces. NL2SP=$lt_lt_NL2SP # convert \$build file names to \$host format. to_host_file_cmd=$lt_cv_to_host_file_cmd # convert \$build files to toolchain format. to_tool_file_cmd=$lt_cv_to_tool_file_cmd # An object symbol dumper. OBJDUMP=$lt_OBJDUMP # Method to check whether dependent libraries are shared objects. deplibs_check_method=$lt_deplibs_check_method # Command to use when deplibs_check_method = "file_magic". file_magic_cmd=$lt_file_magic_cmd # How to find potential files when deplibs_check_method = "file_magic". file_magic_glob=$lt_file_magic_glob # Find potential files using nocaseglob when deplibs_check_method = "file_magic". want_nocaseglob=$lt_want_nocaseglob # DLL creation program. DLLTOOL=$lt_DLLTOOL # Command to associate shared and link libraries. sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd # The archiver. AR=$lt_AR # Flags to create an archive. AR_FLAGS=$lt_AR_FLAGS # How to feed a file listing to the archiver. archiver_list_spec=$lt_archiver_list_spec # A symbol stripping program. STRIP=$lt_STRIP # Commands used to install an old-style archive. RANLIB=$lt_RANLIB old_postinstall_cmds=$lt_old_postinstall_cmds old_postuninstall_cmds=$lt_old_postuninstall_cmds # Whether to use a lock for old archive extraction. lock_old_archive_extraction=$lock_old_archive_extraction # A C compiler. LTCC=$lt_CC # LTCC compiler flags. LTCFLAGS=$lt_CFLAGS # Take the output of nm and produce a listing of raw symbols and C names. global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe # Transform the output of nm in a proper C declaration. global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl # Transform the output of nm in a C name address pair. global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address # Transform the output of nm in a C name address pair when lib prefix is needed. global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix # Specify filename containing input files for \$NM. nm_file_list_spec=$lt_nm_file_list_spec # The root where to search for dependent libraries,and in which our libraries should be installed. lt_sysroot=$lt_sysroot # The name of the directory that contains temporary libtool files. objdir=$objdir # Used to examine libraries when file_magic_cmd begins with "file". MAGIC_CMD=$MAGIC_CMD # Must we lock files when doing compilation? need_locks=$lt_need_locks # Manifest tool. MANIFEST_TOOL=$lt_MANIFEST_TOOL # Tool to manipulate archived DWARF debug symbol files on Mac OS X. DSYMUTIL=$lt_DSYMUTIL # Tool to change global to local symbols on Mac OS X. NMEDIT=$lt_NMEDIT # Tool to manipulate fat objects and archives on Mac OS X. LIPO=$lt_LIPO # ldd/readelf like tool for Mach-O binaries on Mac OS X. OTOOL=$lt_OTOOL # ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. OTOOL64=$lt_OTOOL64 # Old archive suffix (normally "a"). libext=$libext # Shared library suffix (normally ".so"). shrext_cmds=$lt_shrext_cmds # The commands to extract the exported symbol list from a shared archive. extract_expsyms_cmds=$lt_extract_expsyms_cmds # Variables whose values should be saved in libtool wrapper scripts and # restored at link time. variables_saved_for_relink=$lt_variables_saved_for_relink # Do we need the "lib" prefix for modules? need_lib_prefix=$need_lib_prefix # Do we need a version for libraries? need_version=$need_version # Library versioning type. version_type=$version_type # Shared library runtime path variable. runpath_var=$runpath_var # Shared library path variable. shlibpath_var=$shlibpath_var # Is shlibpath searched before the hard-coded library search path? shlibpath_overrides_runpath=$shlibpath_overrides_runpath # Format of library name prefix. libname_spec=$lt_libname_spec # List of archive names. First name is the real one, the rest are links. # The last name is the one that the linker finds with -lNAME library_names_spec=$lt_library_names_spec # The coded name of the library, if different from the real name. soname_spec=$lt_soname_spec # Permission mode override for installation of shared libraries. install_override_mode=$lt_install_override_mode # Command to use after installation of a shared archive. postinstall_cmds=$lt_postinstall_cmds # Command to use after uninstallation of a shared archive. postuninstall_cmds=$lt_postuninstall_cmds # Commands used to finish a libtool library installation in a directory. finish_cmds=$lt_finish_cmds # As "finish_cmds", except a single script fragment to be evaled but # not shown. finish_eval=$lt_finish_eval # Whether we should hardcode library paths into libraries. hardcode_into_libs=$hardcode_into_libs # Compile-time system search path for libraries. sys_lib_search_path_spec=$lt_sys_lib_search_path_spec # Run-time system search path for libraries. sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec # Whether dlopen is supported. dlopen_support=$enable_dlopen # Whether dlopen of programs is supported. dlopen_self=$enable_dlopen_self # Whether dlopen of statically linked programs is supported. dlopen_self_static=$enable_dlopen_self_static # Commands to strip libraries. old_striplib=$lt_old_striplib striplib=$lt_striplib # The linker used to build libraries. LD=$lt_LD # How to create reloadable object files. reload_flag=$lt_reload_flag reload_cmds=$lt_reload_cmds # Commands used to build an old-style archive. old_archive_cmds=$lt_old_archive_cmds # A language specific compiler. CC=$lt_compiler # Is the compiler the GNU compiler? with_gcc=$GCC # Compiler flag to turn off builtin functions. no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag # Additional compiler flags for building library objects. pic_flag=$lt_lt_prog_compiler_pic # How to pass a linker flag through the compiler. wl=$lt_lt_prog_compiler_wl # Compiler flag to prevent dynamic linking. link_static_flag=$lt_lt_prog_compiler_static # Does compiler simultaneously support -c and -o options? compiler_c_o=$lt_lt_cv_prog_compiler_c_o # Whether or not to add -lc for building shared libraries. build_libtool_need_lc=$archive_cmds_need_lc # Whether or not to disallow shared libs when runtime libs are static. allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes # Compiler flag to allow reflexive dlopens. export_dynamic_flag_spec=$lt_export_dynamic_flag_spec # Compiler flag to generate shared objects directly from archives. whole_archive_flag_spec=$lt_whole_archive_flag_spec # Whether the compiler copes with passing no objects directly. compiler_needs_object=$lt_compiler_needs_object # Create an old-style archive from a shared archive. old_archive_from_new_cmds=$lt_old_archive_from_new_cmds # Create a temporary old-style archive to link instead of a shared archive. old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds # Commands used to build a shared archive. archive_cmds=$lt_archive_cmds archive_expsym_cmds=$lt_archive_expsym_cmds # Commands used to build a loadable module if different from building # a shared archive. module_cmds=$lt_module_cmds module_expsym_cmds=$lt_module_expsym_cmds # Whether we are building with GNU ld or not. with_gnu_ld=$lt_with_gnu_ld # Flag that allows shared libraries with undefined symbols to be built. allow_undefined_flag=$lt_allow_undefined_flag # Flag that enforces no undefined symbols. no_undefined_flag=$lt_no_undefined_flag # Flag to hardcode \$libdir into a binary during linking. # This must work even if \$libdir does not exist hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec # Whether we need a single "-rpath" flag with a separated argument. hardcode_libdir_separator=$lt_hardcode_libdir_separator # Set to "yes" if using DIR/libNAME\${shared_ext} during linking hardcodes # DIR into the resulting binary. hardcode_direct=$hardcode_direct # Set to "yes" if using DIR/libNAME\${shared_ext} during linking hardcodes # DIR into the resulting binary and the resulting library dependency is # "absolute",i.e impossible to change by setting \${shlibpath_var} if the # library is relocated. hardcode_direct_absolute=$hardcode_direct_absolute # Set to "yes" if using the -LDIR flag during linking hardcodes DIR # into the resulting binary. hardcode_minus_L=$hardcode_minus_L # Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR # into the resulting binary. hardcode_shlibpath_var=$hardcode_shlibpath_var # Set to "yes" if building a shared library automatically hardcodes DIR # into the library and all subsequent libraries and executables linked # against it. hardcode_automatic=$hardcode_automatic # Set to yes if linker adds runtime paths of dependent libraries # to runtime path list. inherit_rpath=$inherit_rpath # Whether libtool must link a program against all its dependency libraries. link_all_deplibs=$link_all_deplibs # Set to "yes" if exported symbols are required. always_export_symbols=$always_export_symbols # The commands to list exported symbols. export_symbols_cmds=$lt_export_symbols_cmds # Symbols that should not be listed in the preloaded symbols. exclude_expsyms=$lt_exclude_expsyms # Symbols that must always be exported. include_expsyms=$lt_include_expsyms # Commands necessary for linking programs (against libraries) with templates. prelink_cmds=$lt_prelink_cmds # Commands necessary for finishing linking programs. postlink_cmds=$lt_postlink_cmds # Specify filename containing input files. file_list_spec=$lt_file_list_spec # How to hardcode a shared library path into an executable. hardcode_action=$hardcode_action # The directories searched by this compiler when creating a shared library. compiler_lib_search_dirs=$lt_compiler_lib_search_dirs # Dependencies to place before and after the objects being linked to # create a shared library. predep_objects=$lt_predep_objects postdep_objects=$lt_postdep_objects predeps=$lt_predeps postdeps=$lt_postdeps # The library search path used internally by the compiler when linking # a shared library. compiler_lib_search_path=$lt_compiler_lib_search_path # ### END LIBTOOL CONFIG _LT_EOF case $host_os in aix3*) cat <<\_LT_EOF >> "$cfgfile" # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test "X${COLLECT_NAMES+set}" != Xset; then COLLECT_NAMES= export COLLECT_NAMES fi _LT_EOF ;; esac ltmain="$ac_aux_dir/ltmain.sh" # We use sed instead of cat because bash on DJGPP gets confused if # if finds mixed CR/LF and LF-only lines. Since sed operates in # text mode, it properly converts lines to CR/LF. This bash problem # is reportedly fixed, but why not run on old versions too? sed '$q' "$ltmain" >> "$cfgfile" \ || (rm -f "$cfgfile"; exit 1) if test x"$xsi_shell" = xyes; then sed -e '/^func_dirname ()$/,/^} # func_dirname /c\ func_dirname ()\ {\ \ case ${1} in\ \ */*) func_dirname_result="${1%/*}${2}" ;;\ \ * ) func_dirname_result="${3}" ;;\ \ esac\ } # Extended-shell func_dirname implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_basename ()$/,/^} # func_basename /c\ func_basename ()\ {\ \ func_basename_result="${1##*/}"\ } # Extended-shell func_basename implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_dirname_and_basename ()$/,/^} # func_dirname_and_basename /c\ func_dirname_and_basename ()\ {\ \ case ${1} in\ \ */*) func_dirname_result="${1%/*}${2}" ;;\ \ * ) func_dirname_result="${3}" ;;\ \ esac\ \ func_basename_result="${1##*/}"\ } # Extended-shell func_dirname_and_basename implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_stripname ()$/,/^} # func_stripname /c\ func_stripname ()\ {\ \ # pdksh 5.2.14 does not do ${X%$Y} correctly if both X and Y are\ \ # positional parameters, so assign one to ordinary parameter first.\ \ func_stripname_result=${3}\ \ func_stripname_result=${func_stripname_result#"${1}"}\ \ func_stripname_result=${func_stripname_result%"${2}"}\ } # Extended-shell func_stripname implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_split_long_opt ()$/,/^} # func_split_long_opt /c\ func_split_long_opt ()\ {\ \ func_split_long_opt_name=${1%%=*}\ \ func_split_long_opt_arg=${1#*=}\ } # Extended-shell func_split_long_opt implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_split_short_opt ()$/,/^} # func_split_short_opt /c\ func_split_short_opt ()\ {\ \ func_split_short_opt_arg=${1#??}\ \ func_split_short_opt_name=${1%"$func_split_short_opt_arg"}\ } # Extended-shell func_split_short_opt implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_lo2o ()$/,/^} # func_lo2o /c\ func_lo2o ()\ {\ \ case ${1} in\ \ *.lo) func_lo2o_result=${1%.lo}.${objext} ;;\ \ *) func_lo2o_result=${1} ;;\ \ esac\ } # Extended-shell func_lo2o implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_xform ()$/,/^} # func_xform /c\ func_xform ()\ {\ func_xform_result=${1%.*}.lo\ } # Extended-shell func_xform implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_arith ()$/,/^} # func_arith /c\ func_arith ()\ {\ func_arith_result=$(( $* ))\ } # Extended-shell func_arith implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_len ()$/,/^} # func_len /c\ func_len ()\ {\ func_len_result=${#1}\ } # Extended-shell func_len implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: fi if test x"$lt_shell_append" = xyes; then sed -e '/^func_append ()$/,/^} # func_append /c\ func_append ()\ {\ eval "${1}+=\\${2}"\ } # Extended-shell func_append implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_append_quoted ()$/,/^} # func_append_quoted /c\ func_append_quoted ()\ {\ \ func_quote_for_eval "${2}"\ \ eval "${1}+=\\\\ \\$func_quote_for_eval_result"\ } # Extended-shell func_append_quoted implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: # Save a `func_append' function call where possible by direct use of '+=' sed -e 's%func_append \([a-zA-Z_]\{1,\}\) "%\1+="%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: else # Save a `func_append' function call even when '+=' is not available sed -e 's%func_append \([a-zA-Z_]\{1,\}\) "%\1="$\1%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: fi if test x"$_lt_function_replace_fail" = x":"; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Unable to substitute extended shell functions in $ofile" >&5 $as_echo "$as_me: WARNING: Unable to substitute extended shell functions in $ofile" >&2;} fi mv -f "$cfgfile" "$ofile" || (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") chmod +x "$ofile" cat <<_LT_EOF >> "$ofile" # ### BEGIN LIBTOOL TAG CONFIG: CXX # The linker used to build libraries. LD=$lt_LD_CXX # How to create reloadable object files. reload_flag=$lt_reload_flag_CXX reload_cmds=$lt_reload_cmds_CXX # Commands used to build an old-style archive. old_archive_cmds=$lt_old_archive_cmds_CXX # A language specific compiler. CC=$lt_compiler_CXX # Is the compiler the GNU compiler? with_gcc=$GCC_CXX # Compiler flag to turn off builtin functions. no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX # Additional compiler flags for building library objects. pic_flag=$lt_lt_prog_compiler_pic_CXX # How to pass a linker flag through the compiler. wl=$lt_lt_prog_compiler_wl_CXX # Compiler flag to prevent dynamic linking. link_static_flag=$lt_lt_prog_compiler_static_CXX # Does compiler simultaneously support -c and -o options? compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX # Whether or not to add -lc for building shared libraries. build_libtool_need_lc=$archive_cmds_need_lc_CXX # Whether or not to disallow shared libs when runtime libs are static. allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX # Compiler flag to allow reflexive dlopens. export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX # Compiler flag to generate shared objects directly from archives. whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX # Whether the compiler copes with passing no objects directly. compiler_needs_object=$lt_compiler_needs_object_CXX # Create an old-style archive from a shared archive. old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX # Create a temporary old-style archive to link instead of a shared archive. old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX # Commands used to build a shared archive. archive_cmds=$lt_archive_cmds_CXX archive_expsym_cmds=$lt_archive_expsym_cmds_CXX # Commands used to build a loadable module if different from building # a shared archive. module_cmds=$lt_module_cmds_CXX module_expsym_cmds=$lt_module_expsym_cmds_CXX # Whether we are building with GNU ld or not. with_gnu_ld=$lt_with_gnu_ld_CXX # Flag that allows shared libraries with undefined symbols to be built. allow_undefined_flag=$lt_allow_undefined_flag_CXX # Flag that enforces no undefined symbols. no_undefined_flag=$lt_no_undefined_flag_CXX # Flag to hardcode \$libdir into a binary during linking. # This must work even if \$libdir does not exist hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX # Whether we need a single "-rpath" flag with a separated argument. hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX # Set to "yes" if using DIR/libNAME\${shared_ext} during linking hardcodes # DIR into the resulting binary. hardcode_direct=$hardcode_direct_CXX # Set to "yes" if using DIR/libNAME\${shared_ext} during linking hardcodes # DIR into the resulting binary and the resulting library dependency is # "absolute",i.e impossible to change by setting \${shlibpath_var} if the # library is relocated. hardcode_direct_absolute=$hardcode_direct_absolute_CXX # Set to "yes" if using the -LDIR flag during linking hardcodes DIR # into the resulting binary. hardcode_minus_L=$hardcode_minus_L_CXX # Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR # into the resulting binary. hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX # Set to "yes" if building a shared library automatically hardcodes DIR # into the library and all subsequent libraries and executables linked # against it. hardcode_automatic=$hardcode_automatic_CXX # Set to yes if linker adds runtime paths of dependent libraries # to runtime path list. inherit_rpath=$inherit_rpath_CXX # Whether libtool must link a program against all its dependency libraries. link_all_deplibs=$link_all_deplibs_CXX # Set to "yes" if exported symbols are required. always_export_symbols=$always_export_symbols_CXX # The commands to list exported symbols. export_symbols_cmds=$lt_export_symbols_cmds_CXX # Symbols that should not be listed in the preloaded symbols. exclude_expsyms=$lt_exclude_expsyms_CXX # Symbols that must always be exported. include_expsyms=$lt_include_expsyms_CXX # Commands necessary for linking programs (against libraries) with templates. prelink_cmds=$lt_prelink_cmds_CXX # Commands necessary for finishing linking programs. postlink_cmds=$lt_postlink_cmds_CXX # Specify filename containing input files. file_list_spec=$lt_file_list_spec_CXX # How to hardcode a shared library path into an executable. hardcode_action=$hardcode_action_CXX # The directories searched by this compiler when creating a shared library. compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX # Dependencies to place before and after the objects being linked to # create a shared library. predep_objects=$lt_predep_objects_CXX postdep_objects=$lt_postdep_objects_CXX predeps=$lt_predeps_CXX postdeps=$lt_postdeps_CXX # The library search path used internally by the compiler when linking # a shared library. compiler_lib_search_path=$lt_compiler_lib_search_path_CXX # ### END LIBTOOL TAG CONFIG: CXX _LT_EOF ;; esac done # for ac_tag as_fn_exit 0 _ACEOF ac_clean_files=$ac_clean_files_save test $ac_write_fail = 0 || as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5 # configure is writing to config.log, and then calls config.status. # config.status does its own redirection, appending to config.log. # Unfortunately, on DOS this fails, as config.log is still kept open # by configure, so config.status won't be able to write to it; its # output is simply discarded. So we exec the FD to /dev/null, # effectively closing config.log, so it can be properly (re)opened and # appended to by config.status. When coming back to configure, we # need to make the FD available again. if test "$no_create" != yes; then ac_cs_success=: ac_config_status_args= test "$silent" = yes && ac_config_status_args="$ac_config_status_args --quiet" exec 5>/dev/null $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false exec 5>>config.log # Use ||, not &&, to avoid exiting from the if with $? = 1, which # would make configure fail if this is the last instruction. $ac_cs_success || as_fn_exit 1 fi if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5 $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;} fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: gpsim-$PACKAGE_VERSION is now configured for $canonical_host_type Build: $build Host: $host Source directory: $srcdir Installation prefix: $prefix C compiler: $CC $CPPFLAGS $CFLAGS C++ compiler: $CXX $CPPFLAGS $CXXFLAGS gui: $use_gui Socket interface: $use_sockets " >&5 $as_echo " gpsim-$PACKAGE_VERSION is now configured for $canonical_host_type Build: $build Host: $host Source directory: $srcdir Installation prefix: $prefix C compiler: $CC $CPPFLAGS $CFLAGS C++ compiler: $CXX $CPPFLAGS $CXXFLAGS gui: $use_gui Socket interface: $use_sockets " >&6; } gpsim-0.27.0/ChangeLog0000664000076400007640000136736012210735150011440 000000000000002013-09-02 Roy Rankin * configure.ac: Version 0.27.0 * ANNOUNCE: 0.27.0 release highlights 2013-08-18 Roy Rankin * COPYING: Current GPL license file * configure.ac: Version 0.27.rc1 * gui/gui_regwin.cc: Fix sigsegv when using gtkextra-3 2013-08-16 Borut Razem * doc/doc/gpsimWin32.html: updated libraries, links, ... * Makefile.am: removed plat/win32/Install.vcproj from EXTRA_DIST * plat/win32/gpsim.nsi: added missing DLLs * gpsim/gpsim.vcxproj, src/src.vcxproj: fixed pthreads library path 2013-08-14 Borut Razem * cli/cli.vcxproj, eXdbm/eXdbm.vcxproj, gpsim/gpsim.vcxproj, gui/gui.vcxproj, modules/modules.vcxproj, plat/win32/Install.vcxproj, src/src.vcxproj, gpsim.sln: Visual Studio upgraded to Visual Studio 2010, libraries upgraded (MSVC build) 2013-08-13 Borut Razem * cli/makefile.mingw, extras/ds1307/makefile.mingw, extras/graphic_lcd/src/makefile.mingw, extras/lcd/makefile.mingw, gpsim/makefile.mingw, gui/makefile.mingw, makefile.mingw, modules/makefile.mingw, plat/win32/make.mingw, plat/win32/gpsim.nsi: libraries upgraded (mingw build) 2013-08-10 Roy Rankin * gui/gui_breadboard.cc gui/gui_profile.cc gui/gui_src_opcode.cc gui/gui_stack.cc gui/gui_symbols.cc gui/gui_trace.cc gui/gui_watch.cc: - Fix CList GTK assert in Fedora 19 when using Adwaita theme 2013-08-07 Roy Rankin * regression/p1xf18xx/p12f1822.asm: - Add test to detect bad pcon, and fix trisa test * src/14bit-processors.cc: - set pcon to correct inital value on 14bit_e_processors * src/16bit-processors.cc: remove debug printout * src/processor.cc src/registers.cc: delete replaced registers 2013-08-06 Borut Razem * gpsim/main.cc: don't free returned popt values on _WIN32 since they reside in dll heap which is different from the main heap. * plat/win32/libgpsim.def: MSVC sync * extras/ds1307/makefile.mingw, extras/ds1820/makefile.mingw, extras/graphic_lcd/src/makefile.mingw, extras/lcd/makefile.mingw, plat/win32/make.mingw: adapted for Mingw GCC 4.7.3 2013-08-03 Roy Rankin * gui/gui_main.cc src/interface.cc: - Ifdef out unused depreciated thread code * src/breakpoints.cc: remove debug printout 2013-08-02 Roy Rankin * cli/Makefile.am: Generate missing parse.h even if parse.cc exists, remove scan.cc, parse.cc, parse.h on maintainer-clean, replace INCLUDES * extras/ds1820/examples/Makefile.am: Add an 'all' rule, replace GNU make syntax * eXdbm/Makefile.am extras/Makefile.am extras/ds1307/Makefile.am extras/ds1820/Makefile.am extras/graphic_lcd/src/Makefile.am extras/lcd/Makefile.am gpsim/Makefile.am gui/Makefile.am modules/Makefile.am src/Makefile.am src/dspic/Makefile.am: - Replace depreciated INCLUDES with AM_CPPFLAGS 2013-08-02 Roy Rankin * cli/Makefile.am : fix SVN parse.h issue with automake >= 1.12 * gui/gui_src_asm.cc : fix possible array overflow * src/pic-processor.cc : Fix MCLR handeling with erroneous WDT message 2013-07-29 Roy Rankin * regression/p16f676/reset.asm regression/p16f684/reset.asm regression/p16f690/p16f690.asm regression/p1xf18xx/p12f1822.asm regression/p1xf18xx/p16f1823.asm regression/run_regression.sh : - Fixes for regression tests * cli/input.cc gpsim/main.cc gui/gui_menu.cc gui/gui_regwin.cc modules/ttl.cc src/14bit-processors.cc src/14bit-processors.h src/14bit-registers.cc src/14bit-registers.h src/14bit-tmrs.cc src/14bit-tmrs.h src/16bit-processors.cc src/16bit-processors.h src/16bit-registers.cc src/16bit-registers.h src/a2d_v2.cc src/a2d_v2.h src/a2dconverter.cc src/a2dconverter.h src/comparator.cc src/comparator.h src/eeprom.cc src/i2c-ee.cc src/ioports.cc src/ioports.h src/operator.cc src/os_dependent.cc src/p12f182x.cc src/p12f6xx.cc src/p12f6xx.h src/p12x.cc src/p12x.h src/p16f62x.cc src/p16f62x.h src/p16f87x.cc src/p16f87x.h src/p16f88x.cc src/p16f88x.h src/p16f8x.cc src/p16f8x.h src/p16x5x.cc src/p16x6x.cc src/p16x6x.h src/p16x7x.cc src/p16x7x.h src/p16x8x.cc src/p16x8x.h src/p18x.cc src/p18x.h src/pic-processor.cc src/pic-processor.h src/processor.cc src/psp.cc src/psp.h src/ssp.cc src/ssp.h src/stimuli.cc src/trace.cc src/trigger.cc src/uart.cc src/uart.h : - Fix uninitialized variables, access of freed variables, proper delete types, processor classes cleanup on exit * src/pic-ioports.cc src/pic-ioports.h : - Allow always 1 bits in TRIS, don't trace internal reads of TRIS 2013-07-29 Roy Rankin * src/pic-instructions.cc : - Give proper register name in trace for banked 14bit processor registers * configure.ac extras/ds1820/Makefile.am extras/ds1820/examples/Makefile.am : - Fixes for make dist * src/registers.cc src/registers.h : - Make AN_INVALID_ADDRESS globally available 2013-06-30 Borut Razem * plat/win32/gpsim.nsi, plat/win32/make.mingw: Mingw compilatin with i686-pc-mingw32-gcc GCC 4.5.2 2013-06-30 Roy Rankin * cli/socket.cc eXdbm/eXdbm.c eXdbm/misc.c eXdbm/parse.c extras/graphic_lcd/src/glcd.cc gui/gui_regwin.cc gui/gui_scope.cc gui/gui_src.cc gui/gui_src_asm.cc gui/gui_src_opcode.cc gui/gui_trace.cc gui/gui_watch.cc src/attributes.cc src/bitlog.cc src/hexutils.cc src/i2c-ee.cc: - Fix compiler warnnings * src/16bit-registers.cc: Too many reads of WREG traced * src/14bit-processors.h src/14bit-processors.cc src/p12f182x.cc: - Try to fix windows regression issues 2013-06-29 Borut Razem * gpsim/main.cc: fixed invalid escape * plat/win32/libgpsim.def: MSVC sync * src/clock_phase.cc: GetTraceLog() for WIN32 compilation 2013-06-29 Roy Rankin * src/14bit-instructions.cc src/16bit-instructions.cc src/14bit-processors.cc src/14bit-registers.cc src/14bit-registers.h src/16bit-processors.cc src/pic-instructions.cc: - remove redundant field added in last patch to WREG, BSR and PCLATH registers * src/processor.cc: - Speed-up start by skipping resets on alias register memory locations 2013-06-29 Roy Rankin * cli/cmd_dump.cc src/icd.cc src/p16f88x.cc src/p16x6x.cc src/12bit-processors.cc src/p12f182x.cc src/p12f6xx.cc src/p12x.cc: - rename W Wreg * src/14bit-processors.cc src/14bit-processors.h src/pic-processor.cc src/pic-processor.h src/14bit-registers.cc src/14bit-registers.h src/14bit-instructions.cc src/16bit-instructions.cc src/pic-instructions.cc src/16bit-processors.cc src/16bit-registers.cc src/p16x5x.cc: - Allow break, logging on Wreg(if register in memory), rename W Wreg * src/ioports.cc: remove port trace messages * src/breakpoints.cc: remove debugging message * src/breakpoints.h src/clock_phase.cc src/trace.cc src/trace.h - Change logging to be same as break or single step as per doco 2013-06-25 Roy Rankin * regression/ccp/pwm_6520.asm regression/ccp_628/ccp_628.asm regression/p16f84/reset.asm regression/p18f/reset.asm regression/wdt/wdt_18f452.asm regression/wdt/wdt_18f4620.asm: - Adjust tmr0 counts in sleep tests * regression/p1xf18xx regression/p1xf18xx/12f1822_g.lkr regression/p1xf18xx/16f1823_g.lkr regression/p1xf18xx/Makefile regression/p1xf18xx/i2c_low.inc regression/p1xf18xx/p12f1822.asm regression/p1xf18xx/p16f1823.asm regression/p1xf18xx/p16f1823_comp.asm regression/p1xf18xx/p16f1823_i2c.asm regression/p1xf18xx/p16f1823_spi.asm regression/p1xf18xx/p16f1823_i2c_v2.asm regression/run_regression.sh - Add regression tests for p12f1822 and p16f1823 * regression/rt.sh: Print fail message * src/14bit-registers.cc src/14bit-registers.h src/comparator.cc src/comparator.h src/p12f182x.cc src/p12f182x.h: - Add SR latch * src/eeprom.cc src/eeprom.h: Modify insturction skip and wait * src/gpsim_time.cc src/gpsim_time.h: - Modify cycle increment and advance functions * src/16bit-registers.cc src/tmr0.cc src/tmr0.h: - Fix tmr0 overflow bug and remove empty function 2013-06-21 Roy Rankin * modules/resistor.cc: Update stimulus node on all property changes * src/14bit-instructions.h: Update copyright * src/14bit-registers.cc src/14bit-registers.h: - Add CPSCON classes for capacitor sensor module * src/14bit-tmrs.cc src/14bit-tmrs.h: Add support for capacitor sensor * src/a2dconverter.cc src/a2dconverter.h: FVR connect to capacitor sensor * src/p12f182x.cc src/p12f182x.h: Add compacitor sensor * src/tmr0.cc src/tmr0.h: Support t0xcs flag, remove magic number 2013-06-17 Roy Rankin * regression/i2c/p16f819.asm: Don't overwrite registers * regression/instructions_16bit/instructions_16bit.asm: - test subwfb and movlb instructions * cli/cmd_load.cc: error message on missing file * gui/gui_stopwatch.cc: use units for frequency * src/14bit-instructions.cc: fix register restore on retfie * src/14bit-processors.cc src/14bit-processors.h: Add CPU Temp * src/a2d_v2.h: add comment * src/14bit-registers.cc src/14bit-registers.h src/tmr0.cc src/tmr0.h src/14bit-tmrs.cc src/14bit-tmrs.h src/a2dconverter.cc src/a2dconverter.h src/stimuli.h src/comparator.cc src/comparator.h src/ssp.cc src/ssp.h src/p12f182x.cc src/p12f182x.h: - add or fix DAC, A2D, Comparator, T0, Tmr1, APFCON, SSP, USART, OSCCON * src/p12x.cc src/i2c-ee.cc: compile clean-up * src/pic-processor.h: Phase lock * 4 oscilator * src/pir.h: add set_c3if, set_c4if, set_tmr1gif * src/uart.cc src/uart.h: allow port select 2013-05-21 Borut Razem * plat/win32/gpsim.nsi: added RequestExecutionLevel admin 2013-05-21 Roy Rankin * extras/ds1820/rom1w.cc extras/ds1820/bit1w.cc: - Fixes for windows compile * gui/gui_stack.cc: Fix issue for 14bit enhanced stack * src/14bit-hexdecode.cc src/14bit-instructions.cc src/14bit-instructions.h src/14bit-registers.cc src/pic-instructions.cc src/14bit-registers.h: - 14bit enhanced commands and register fixup * src/a2dconverter.cc src/a2dconverter.h src/eeprom.cc src/pic-processor.cc src/pic-processor.h src/p12f182x.cc src/p12f182x.h: Add incomplete p16f1823 processor 2013-05-17 Roy Rankin * configure.ac extras/Makefile.am extras/ds1820/Makefile.am extras/ds1820/bit1w.cc extras/ds1820/bit1w.h extras/ds1820/ds1820.cc extras/ds1820/ds1820.h extras/ds1820/makefile.mingw extras/ds1820/module_manager.cc extras/ds1820/rom1w.cc extras/ds1820/rom1w.h extras/ds1820/examples/16f1823_g.lkr extras/ds1820/examples/Makefile extras/ds1820/examples/README extras/ds1820/examples/ds1820.asm extras/ds1820/examples/ds18b20.asm: Add module for ds1820, ds18s20 and ds18b20 temperature sensors * extras/ds1307/examples/README: fix typo 2013-05-04 Borut Razem * src/makefile.mingw: added p12f182x.o 2013-05-04 Roy Rankin * gui/gui_profile.cc: compiler warning cleanup * regression/p18f/extended_instructions.asm src/16bit-hexdecode.cc src/16bit-instructions.cc src/16bit-instructions.h src/16bit-processors.cc src/16bit-processors.h src/p18x.cc: - fix "Data addressing wrong (PIC18 w/ extended instruction mode)" - #139 * src/16bit-registers.cc src/16bit-registers.h regression/p18f/reset.asm src/14bit-registers.cc src/14bit-registers.h src/pic-processor.cc: - 18F stack reset on over/under flow - bug #154 2013-04-23 Roy Rankin * 14bit-hexdecode.cc 14bit-instructions.cc 14bit-instructions.h 14bit-processors.cc 14bit-processors.h 14bit-registers.cc 14bit-registers.h 16bit-hexdecode.cc 16bit-instructions.cc 16bit-instructions.h 16bit-processors.cc 16bit-registers.cc 16bit-registers.h pic-instructions.cc pic-ioports.cc pic-ioports.h pic-processor.cc pic-processor.h: - Add 14bit enhanced base class _14bit_e_processor * intcon.cc breakpoints.cc interface.cc: Fix compiler warnings * p12f182x.cc p12f182x.h Makefile.am: - add p12f1822 processor(incomplete) * gpsim_classes.h 12bit-processors.cc trace.cc: New stack with reset * processor.cc processor.h eeprom.cc eeprom.h: New eeprom class 2013-04-05 Roy Rankin * src/comparator.cc: fix pir1 setting with 2 comparators 2013-04-05 Roy Rankin * regression/Makefile.am: use regexp for regression EXTRA_DIST files * regression/run_regression.sh regression/p16f684/16f684.lkr regression/p16f684/Makefile regression/p16f684/a2d_684.asm regression/p16f684/compar_684.asm regression/p16f684/compar_684.stc regression/p16f684/epwm.asm regression/p16f684/nwdt_16f684.asm regression/p16f684/reset.asm regression/p16f684/wdt_16f684.asm regression/wdt/18f4620.lkr regression/wdt/Makefile regression/wdt/nwdt_18f4620.asm regression/wdt/wdt_18f4620.asm: - New regression tests * src/p12f6xx.cc src/p16f88x.cc src/p16f88x.h src/pic-processor.cc src/pic-processor.h src/pir.cc src/pir.h: Add 16f684 processor 2013-04-02 Borut Razem * doc/gpsim.html, doc/gpsim_svn.html: update links after project update to Allura 2013-03-25 Roy Rankin * eXdbm/parse.c: fix variable type mismatch, bug 3570700 * src/16bit-registers.cc src/pic-registers.cc: commands with PCL modification should take 2 cycles, bug 3509904 2013-03-23 Roy Rankin * extras/Makefile.am extras/ds1307/Makefile.am extras/graphic_lcd/INSTALL extras/lcd/INSTALL extras/lcd/Makefile.am - extras/graphic_lcd/configure.ac extras/lcd/autogen.sh extras/lcd/configure.in : Integrate extras further into linux build bug - 3560435 2013-03-20 Roy Rankin * regression/run_regression.sh regression/usart_test/18f2455.lkr regression/usart_test/Makefile regression/usart_test/eusart_2455.asm src/p18x.cc: Fix portc tris control and thus eusart operation for 18f[24]455 processors, bug 3171842 2013-03-18 Roy Rankin * modules/usart.cc: Debug message improved * regression/usart_test/usart_pir1v2.asm: test improved * src/uart.cc: fix SPBRG callback stall, bug 3602243 2013-03-16 Roy Rankin * regression/ccp_628/ccp_628.asm: - fix for gpasm change * regression/p18f/18f4321.lkr regression/p18f/Makefile regression/p18f/extended_instructions.asm regression/p18f/instructions.asm regression/p18f/reset.asm: - Switch to 18f4321 from 18f453 for true extended instruction set as now required by gpasm * regression/psp/18f6520.lkr regression/psp/Makefile regression/psp/p18f6520.asm regression/run_regression.sh src/psp.cc src/psp.h src/p18x.cc src/p18x.h: - Add psp functionality to 18f6520 - bug 3607516 Fix TRISD TRISE values after WDT reset - bug 3607517 * src/comparator.cc: Fix for compiler warning 2013-03-03 Roy Rankin * src/cod.cc: fix regressions caused by 2012-06-19 changes * cli/parse.yy: fix compile error with gcc 4.7.2 2013-03-02 Roy Rankin * configure.ac, Makefile.am: On OpenBSD, dlopen() and friends are provided within libc and there is no libdl.- patch 3601674 2012-06-19 Borut Razem * src/cod.cc: fixed loading cod file for program memory > 64k * gui/gui_menu.cc: modified mail address 2012-06-17 Rob Pearce * configure.ac Applied patch 3531562 to allow build against gtkextra-3 2012-03-19 Roy Rankin * regression/ccp/ccp_877a.asm src/14bit-tmrs.cc Fix CCP compare zero of TMR1 - bug 3508318 2012-02-28 Rob Pearce * src/p16f88x.cc Fix port C for 16f631 family - support request 3495121 2012-01-05 Roy Rankin * src/breakpoints.h src/breakpoints.cc src/trace.cc cli/cmd_break.cc Get logging working - bug 3432821 2012-01-03 Roy Rankin * gpsim/Makefile.am extras/graphic_lcd/configure.ac Changes for clantg++ compatibility as per bug 3426932 2012-01-03 Roy Rankin * src/p18x.h src/pir.cc src/pir.h src/p18x.cc Add USB registers (but not functionality) to 18F2455, 18F4455 after patch 3308765. * src/bitlog.h : fix to compile with latest glib * gui/gui_regwin.cc : fix reg=0 defense 2011-10-22 Rob Pearce * src/processor.cc Applied patch from Rupert Swarbrick in bug 3426928 - don't rely on static ProcessorConstructor instances being constructed before ProcessorConstructorList::findByType is called (avoids a segfault with some compilers) * src/14bit-tmrs.h src/p18x.cc Trivial: renamed a method for consistency with similar classes. * gui/gui_watch.cc Show all printable ASCII characters in watch window, not just those between '0' and 'z' 2011-10-19 Rob Pearce * src/registers.h src/14bit-registers.cc src/14bit-tmrs.cc src/ioports.cc src/registers.cc src/14bit-tmrs.h src/14bit-registers.h src/16bit-processors.cc gui/gui_watch.cc Cleaned up Register class "bit_mask" member and fixed bug 3425453 * regression/instructions_16bit/instructions_16bit.asm regression/instructions_14bit/branching.asm Regression tests for PCLATH register width 2011-06-02 Rob Pearce * src/16bit-registers.cc Attempt to fix bug 3311944 - reported as a POSTDEC bug but actually was that lfsr didn't work as the very first instruction at the reset vector * src/registers.h src/pic-registers.cc Fix ability to set PC from the command line, but not using the nasty hack in patch #3318235 - instead it's done properly 2011-06-02 Rob Pearce * src/p18x.h Fixed SFR size for 18Fx455 CPUs (with USB) * src/16bit-registers.cc src/16bit-registers.h src/16bit-instructions.cc regression/p18f/extended_instructions.asm : Fix for bug #3309120 and related indirect addressing problems on 18F in extended mode. Also a regression test for such issues. 2011-05-15 Roy Rankin * configure.ac : increase release number for development cycle 2011-04-27 Rob Pearce * doc/gpsim.html : Minor corrections to CPU list. 2011-04-27 Roy Rankin * regression/p16f690/Makefile : use local lkr file * regression/Makefile.am : tarball fix * configure.ac : increase release number * doc/gpsim.html ANNOUNCE : update documentation for release 2011-04-20 Roy Rankin * configure.ac ANNOUNCE : New release * regression/wdt/nwdt_16f648a.asm regression/wdt/16f648a.lkr regression/wdt/Makefile regression/Makefile.am regression/run_regression.sh : new regression test 2011-04-17 Rob Pearce * doc/gpsim.lyx : Minor corrections and a note on PIC18 program memory addressing. 2011-04-17 Roy Rankin * regression/usart_test/18f2221.lkr : replaces 18f2321.lkr * regression/Makefile.am : update regression file list * doc/gpsim.lyx modules/led.cc modules/led.h : Led module active high or low. Original patch from Tom Crane. 2011-04-09 Borut Razem * plat/win32/gpsim.nsi: removed extras/lcd/examples/lcdmemtest.hex 2011-04-07 Rob Pearce * src/p12f6xx.cc src/p16f88x.cc src/pic-ioports.h src/pic-ioports.cc regression/p12f675/12f629.lkr regression/p12f675/p12f629.asm regression/p12f675/Makefile regression/interrupts_14bit/interrupts_14bit.asm regression/run_regression.sh : Implemented patch for bug 3277143 (INT pin mis-handled on 12F629) and fixed the similar error on 16F88x. Also fixed the interrupt regression test to check INTEDG works (as had previously been done for 18F devices) and added a 12F629 test that checks interrupts 2011-03-30 Roy Rankin * gui/gui_src_asm.cc : fix
    /Windows/Source not ticked on startup. 2011-03-23 Roy Rankin * src/pic-processor.cc src/pic-processor.h src/p12x.h regression/wdt/10f200.lkr regression/wdt/wdt_10f200.asm regression/wdt/Makefile regression/a2d/p10f222.asm regression/run_regression.sh : Fix 10f2xx WDT bug 3059498 * regression/Makefile.am : - Add missing regression files into dist tarball * extras/lcd/examples/lcdmemtest.hex : - delete file from svn make clean removes * gui/gui_symbols.cc gui/gui_trace.cc gui/gui_menu.cc gui/gui_stack.cc gui/gui_watch.cc : Fix compiler warnings 2011-03-12 Roy Rankin * regression/p16f690/nwdt_16f631.asm regression/p16f690/eusart.asm regression/p16f690/epwm.asm regression/p16f690/p16f690.asm regression/p16f690/wdt_16f685.asm regression/p16f690/wdt_16f677.asm regression/p16f690/16f631.lkr regression/p16f690/Makefile regression/Makefile.am regression/run_regression.sh src/comparator.h src/14bit-registers.h src/processor.h src/pic-processor.cc src/a2dconverter.h src/p16f88x.h src/comparator.cc src/p16f88x.cc src/pic-processor.h src/14bit-registers.cc src/a2dconverter.cc : + Feature request 3110405 add 16f690/631/677/685/687/689 * gui/gui_src_asm.cc gui/gui_src.h : + Fix Source browser crash on font change (3190800) * src/p16x6x.h regression/interrupts_16bit/Makefile regression/usart_test/eusart.asm : Cosmetic fixes 2011-03-05 Roy Rankin * gui/gui_src_opcode.cc : set style for all p18 in program memory window 2011-03-01 Roy Rankin * gui/gui_src_opcode.cc : Further font fixes in program memory window * gui/gui_src.cc : memory program window updated during running 2011-02-21 Roy Rankin * gui/gui_src.h gui/gui_src_opcode.cc gui/gui_main.cc : + Fix issues with program memory window with P18 processors (3174547) and font issues. * gui/gui_src_asm.cc : minor display change for readability 2011-02-17 Roy Rankin * regression/tmr0_16bit/tmr0_16bit.stc regression/tmr0_16bit/Makefile regression/Makefile.am : remove trivial STC file * src/16bit-processors.cc src/14bit-registers.h src/uart.cc src/gpsim_time.cc src/psp.h src/bitlog.cc src/16bit-registers.cc modules/usart.cc gui/gui_symbols.cc gui/gui_profile.cc gui/gui_src_asm.cc : Fix uninitialized variables detected by valgrind 2011-02-17 Borut Razem * plat/win32/gpsim.nsi: fixed bug #3151323: problem on start gpsim 2011-02-13 Rob Pearce * src/p18x.h src/p18x.cc Fixes to 18F6520 implementation: correct EEPROM size, remove spurious wrong clock pin allocation, adjust structure to match style of 4x21 types 2011-02-12 Rob Pearce * src/p18x.h src/p18x.cc src/pic-processor.cc src/pic-processor.h Implemented the remaining devices from DS39689E (18F2221 & 4221) and all devices from DS39631D (18F2420,2520,4420,4520) 2011-02-10 Rob Pearce * src/p18x.h src/p18x.cc Re-factored 18F2455 and 18F4455 to be derived from 2x21 and 4x21 so they get the right Config3H and the right ADC, plus RE3/MCLRE pin 2011-02-03 Rob Pearce * src/p18x.h src/16bit-processors.cc src/p18x.cc src/eeprom.h Small re-organisation of how the EEPROM gets added to 18f2x21 and 4x21 derivatives. Some of the decisions pushed into the core classes so that new CPU derivatives need fewer unique methods. 2011-02-03 Roy Rankin * src/intcon.cc regression/tmr0_16bit/tmr0_16bit.asm regression/ccp_628/ccp_628.asm : + tmr0 not waking after sleep (bug 3162315) * src/ssp.cc : SPI and I2C may not start (bug 3169541) * extras/rs232-gen/rs232-gen.c extras/rs232-gen/example/Makefile extras/rs232-gen/Makefile : Update syntax (patch 3125817), fix baud rate 2011-02-03 Rob Pearce * src/p18x.cc src/p18x.h src/pic-processor.cc src/pic-processor.h src/eeprom.cc src/eeprom.h Initial implementation of PIC18F4620 for feature request #3159000 EEPROM_PIR class modified to support >256 byte EEPROM Some re-factoring of 18F2x21 derivatives for less duplication Config3H_2x21 class now implements PBADEN bit. Attempts to implement CCP2MX bit too, but the CCPCON class doesn't allow the pin re-allocation Note: This would break the 18F2455 so its Config3H has been commented until it is re-factored to be derived from the right base class! 2011-02-02 Rob Pearce * src/cod.cc Fixed addressing of memory on 16-bit cores while allocating HLL code references. This was responsible for a crash with large programs / long addresses found in 18F4620 development and bug #3154828, although it's not necessarily the only cause of that. 2011-01-03 Roy Rankin * src/comparator.cc regression/comparator/compar_882.asm regression/comparator/16f882.lkr regression/comparator/Makefile regression/run_regression.sh : Fix for bug # 3150231 Polarity should not change when ON bit is off. Fix comparator output pins cannot be driven from port when comparator is off. Add regression tests. 2010-12-10 Rob Pearce * src/14bit-tmrs.cc regression/ccp/pwm_6520.asm regression/ccp/pwm_877a.asm Fix for bug #3132914 : The clocking of TMR2 should not be affected by whether any of the CCPs are in PWM mode, and now it isn't. Duty cycle value is now handled correctly instead. 2010-11-28 Rob Pearce * src/pic-ioports.cc src/intcon.h regression/interrupts_16bit/interrupts_16bit.asm : Fix for bug #3120903 : INT0 edge selection moved to the correct register on 16-bit devices. Also fixed the regression test so that it actually bothers to check which edge caused the interrupt. Code for INT3 implemented but not tested yet. 2010-10-31 Rob Pearce * src/16bit-instructions.cc src/pic-processor.h src/p18x.h Partial implementation of "bugs" list (errata per CPU type) so that the 18F6520 has a buggy DAW instruction while the 18F4321 has a correct one. This matches the real hardware for those two - others need checking. * src/16bit-processors.h src/16bit-instructions.cc src/p18x.h A different approach to fixing the compiler warning Roy spotted (I'd already corrected my earlier error locally). 2010-10-31 Roy Rankin * src/16bit-processors.cc src/intcon.h src/intcon.cc src/pic-ioports.h src/pic-ioports.cc regression/interrupts_16bit/priority.asm regression/interrupts_16bit/interrupts_16bit.asm : - implement intcon3 for int1, int2 operation bug #3071596 * src/16bit-instructions.cc : fix complier warning 2010-10-25 Rob Pearce * modules/ttl.cc modules/ttl.h modules/gpsim_modules.cc regression/ttl/ttl165.asm regression/ttl/Makefile regression/run_regression.sh Added a module to simulate a 74x165 parallel-to-serial shift register 2010-10-22 Rob Pearce * src/14bit-tmrs.cc src/14bit-tmrs.h src/16bit-processors.cc src/p12f6xx.cc src/p16f88x.cc src/p16x6x.cc src/p18x.cc Fixed TMR2 to support multiple PWMs, bug #2823242 Implemented all five PWMs on the 18F6520 Fixed TMR2 wrap bug, #3092906 * regression/ccp/pwm_6520.asm regression/ccp/18f6520.lkr regression/ccp/Makefile regression/run_regression.sh Added regression test for the above 2010-10-08 Rob Pearce * modules/resistor.cc modules/resistor.h Minor fix to pulldown so that its resistance attribute is correctly initialised to 0 (it was confused and showed as 5V) 2010-09-29 Rob Pearce * src/p18x.h src/p18x.cc src/16bit-processors.cc src/16bit-processors.h Fixed GPR memory size and SFR peripheral set of 18F1220 (the 16 bit base class assumptions of portC and CCP2 are now optional) * src/14bit-tmrs.h src/14bit-tmrs.cc src/uart.cc Partial rework for >2 PWMs as on 18F6520, and multiple UARTs naming 2010-08-25 Rob Pearce * src/p18x.h src/p18x.cc src/p16x6x.cc src/p12f6xx.cc src/p16f88x.cc src/16bit-processors.cc src/16bit-processors.h src/pir.cc src/pir.h src/pic-instructions.cc src/pic-processor.h src/16bit-instructions.cc src/14bit-tmrs.h src/14bit-tmrs.cc Implemented PIR3 for 18F6520, including the presence of multiple CCPxIF flags in one PIR (needed some re-design) Fixed implementation of 18F "access bank", as some devices have more than 128 bytes mapped to SFR space 2010-08-21 Rob Pearce * src/p18x.h src/p18x.cc src/p16x6x.cc src/p16f87x.cc src/p16f62x.cc src/p16f88x.cc src/p16f8x.cc src/16bit-processors.cc src/pic-processor.cc src/pic-processor.h src/uart.cc src/uart.h Partial implementation of 18F6520, including change to UART-PIR linkage for multiple UART support. 2010-07-12 Roy Rankin * configure.ac : release changed to 0.25.1 post release SVN 2010-06-28 Roy Rankin * configure.ac : release changed to 0.25.0 * ANNOUNCE : 0.25.0 highlights 2010-06-28 Roy Rankin * src/16bit-processors.h src/16bit-processors.cc src/pic-processor.cc src/pic-processor.h src/p18x.cc : - fix porta7 for P18 processors, bug 3021904 * src/pic-ioports.h src/pic-ioports.cc regression/p16f676/reset.asm : - mask bits on write to tris regeister 2010-06-26 Rob Pearce * src/ssp.cc regression/spi/p18f242.asm Fix for bug #3021514 : - MSbit is now correctly sent in CKE=1 mode - Clock not disturbed if second byte sent within half bit of SSPIF Extended one of the SPI regression tests to include CKE=1 mode 2010-06-25 Rob Pearce * modules/ttl.cc modules/ttl.h modules/gpsim_modules.cc Fix to TTL377 so that all eight latches update "simultaneously" Added TTL595 serial-in-parallel-out shift register 2010-06-23 Roy Rankin - missed CLOCK_EXPERIMENTS changes 2010-06-22 Roy Rankin - remove dead code from CLOCK_EXPERIMENTS 2010-06-20 Roy Rankin * src/pic-processor.cc src/clock_phase.cc - fix cycle counter bug 3018510 2010-06-12 Rob Pearce * src/14bit-tmrs.cc Fix uninitialised ssp_module pointer (potential segfault) 2010-06-09 Ralf Forsberg * src/pic-processor.cc : Fix integer overflow in realtime mode. 2010-06-07 Roy Rankin * gui/gui_src_asm.cc : fix bug 3012488 finish key SIGSEGV for hex file 2010-06-07 Roy Rankin * src/pic-processor.cc : patches for realtime with GUI mode * doc/gpsim.html doc/gpsim.lyx gpsim.spec.in : Documentation of new license 2010-06-06 Borut Razem * modules/modules.vcproj, plat/win32/libgpsim.def, modules/gpsim_modules.cc: MSVC sync 2010-06-06 Ralf Forsberg - Don't add files from cod if the actual file is missing. 2010-06-06 Ralf Forsberg - Switching to realtime mode could hang up. 2010-06-06 Ralf Forsberg - Fixed step_over in HLL_MODE. - Update gui after finish command. 2010-06-06 Roy Rankin * gpsim/Makefile.am src/dspic/Makefile.am src/Makefile.am doc/Makefile.am extras/graphic_lcd/src/Makefile.am extras/ds1307/Makefile.am modules/Makefile.am gui/Makefile.am cli/Makefile.am Makefile.am : include windows build files in distribution tarball 2010-06-06 Ralf Forsberg - Remove MCLR pin monitor in pic destructor to avoid segfault in IOPIN desctructor. 2010-06-06 Roy Rankin * regression/p18f/extended_instructions.asm: add nops after asserts * INSTALL.gpsim : rename as INSTALL gets overwritten * doc/gpsim.html doc/gpsim_svn.html README Makefile.am : document LGPLv2+ change 2010-06-05 Borut Razem * modules/makefile.mingw: included video.* module * plat/win32/gpsim.nsi: updated dependency packages 2010-06-05 Roy Rankin * gui/gui_menu.cc gui/gui_statusbar.cc : fix bug 3009843 Simulation Time HH:MM:SS.CC displays incorrectly 2010-06-05 Roy Rankin * src/ modules/ COPPYING.LESSER README : to LGPLv2+ 2010-06-04 Ralf Forsberg - Added back HLL source browser support for sdcc and jal. - Fixed bug in FileContext where the vector pointers could become dangling after stl magic because of missing copy constrctor. Made them objects instead of pointers. 2010-05-?? Ralf Forsberg - Optimized video module using pixmap shadow buffer. 2010-06-01 Roy Rankin * src/14bit-tmrs.h src/14bit-tmrs.cc src/comparator.h src/comparator.cc src/p16f88x.cc src/p18x.h src/p18x.cc : Enhanced PWM Auto-Shutdown 2010-05-27 Roy Rankin * modules/video.cc modules/gpsim_modules.cc modules/video.h modules/Makefile.am + resurrect video module patch 3007214 by Paul S 2010-05-22 Roy Rankin * src/comparator.h src/14bit-tmrs.cc src/comparator.cc src/p16f88x.cc - Add comparator 2 gate control of timer 1 for 16f88x * src/uart.cc : fix bug 2827439 USART pin direction * modules/logic.cc : fixed compilation warnings 2010-05-18 Borut Razem * src/makefile.mingw: added p16f88x.o * extras/graphic_lcd/src/makefile.mingw, extras/lcd/makefile.mingw: include project root directory for config.h * extras/graphic_lcd/src/ssd0323.cc: fixed compilation warnings * extras/ds1307/makefile.mingw: added * makefile.mingw: adedd extras/ds1307 build * plat/win32/gpsim.nsi: added extras/ds1307/* to the package 2010-05-17 Roy Rankin - Extras built, installed as part of Gpsim 2010-05-17 Roy Rankin - Add ds1307 Realtime Clock module 2010-05-11 Roy Rankin * src/dspic/dspic-processors.cc src/dspic/dspic-registers.cc src/pic-processor.cc src/icd.cc src/16bit-registers.cc src/registers.h src/pic-registers.cc: Remove use of memory_size_mask which assumed memory size 2^n (bug 2979021) * src/pic-ioports.cc: B0 edge wakes processor from sleep (bug 2999264) 2010-05-01 Rob Pearce * src/16bit-registers.cc src/pic-instructions.cc Fixed bug #2983660 - BSF and BCF now work right on PLUSW registers Also PLUSW registers now work if destination is address 0 * regression/psp/p16f871.asm regression/psp/p18f452.asm Fixed the PSP regression test code to de-select the ADC channels, because the above fix shows up that they should (probably) have failed before. 2010-04-10 Roy Rankin * src/p16f8x.cc: correct usart pins for p16f87/8 (patch 2116354) * src/14bit-processors.cc: Correctly wake up from sleep (patch 2348392) * cli/cmd_load.cc doc/gpsim.lyx : Documentation updates (patch 2108073) 2010-04-08 Roy Rankin * gui/gui_breadboard.cc: fix trace bug 2983580 * src/pic-processor.cc: fix realtime mode lockup (bug 2973978) * src/p18x.h src/p18x.cc: add extended PWM * src/14bit-tmrs.cc src/14bit-tmrs.h: initialize some variables, fix to have extended PWM work with processors without prtrcon register 2010-04-07 Roy Rankin * gui/gui_breadboard.cc: lighten low pin color for those with red-green color blindness 2010-04-06 Roy Rankin * src/p16f88x.h src/p16f88x.cc src/Makefile.am src/pic-processor.h src/pic-processor.cc : Add 16f882/883/884/886/887 processors * src/comparator.h src/comparator.cc: add class used in 16f88x * src/14bit-tmrs.h src/14bit-tmrs.cc: add PWM(enhanced mode) support * src/pir.h src/pir.cc: add interupts for 16f88x * src/uart.cc: fix send_break code * src/uart.h: define 16f88x SCKP bit in _BAUDCON * src/a2dconverter.h src/a2dconverter.cc: ADC for 16f88x * src/ssp.cc: warning message line numbers in decimal * src/pic-registers.cc : fix debug statement * regression/usart_test/eusart.asm: refine test 2010-03-29 Rob Pearce * src/16bit-processors.cc src/16bit-processors.h src/p18x.cc src/p18x.h regression/instructions_16bit/18f452.lkr regression/instructions_16bit/instructions_16bit.asm Moved loading/reading of EEPROM and ID locations for 18F out of the 18fxx20 class into the base class, as it's common to all the family * src/intcon.cc Commented out an annoying debug print that isn't needed any more 2010-03-29 Roy Rankin * gui/gui_scope.cc use previous size and position of window (bug 2973982) 2010-03-28 Rob Pearce * src/p16f62x.cc Fixed missing aliases of INDF, PCLATH and INTCON (bug 2977843) 2010-03-12 Rob Pearce * src/p18x.cc src/processor.cc Fixed loading of EEPROM data from COD/HEX on 18F (bug 2968268) 2010-03-10 Rob Pearce * src/16bit-instructions.cc regression/instructions_16bit/instructions_16bit.asm : Fix issue 2968248; carry flag is "sticky" to DAW instruction * src/pic-ioports.cc regression/p18f452_ports/p18f452_ports.asm : Fix issue 2902082; writing the PORT register now updates the LAT register too. 2010-02-07 Roy Rankin * src/pic-processor.cc: Fix real-time mode regression (bug 2930175) 2010-01-12 Roy Rankin * src/p18x.h src/p18x.cc src/16bit-registers.cc: Add eeprom, usart for 18f1220/1320 * src/uart.cc src/uart.h: Eusart fixes and debug print fixes * modules/usart.cc: scroll patch and debug print fixes * regression/usart_test/eusart.asm: Pin direction per docs - Most of above changes supplied by Geoffrey Hausheer 2010-01-07 Roy Rankin * gui/gui_menu.cc: Fix sigsegv when changing simulation time units when no processor is defined (bug 2926629) 2006-11-07 Scott Dattalo * src/p18x.hh: wrong register memory size (bug 2921532) 2009-11-22 Rob Pearce * src/p18x.cc Fixed the creation of ports D and E on 18F4x21 devices 2009-10-25 Roy Rankin * src/p16f62x.h : wrong program memory size (bug 2885817) 2009-10-11 Roy Rankin * configure.ac : Missing readline lib now a terminating error for configure. (bug 2868402) Set version to 0.24.1 2009-09-28 Rob Pearce * src/16bit-hexdecode.cc, src/pic-processor.cc, src/16bit-tmrs.cc src/14bit-tmrs.cc, src/14bit-registers.cc, src/pic-ioports.cc Trivial changes only: - re-ordered processor type creation so the list reported is nearer numeric order - removed all #includes of processor type headers from "core" code (i.e. not processor type definition files) except pic-processor.cc The idea is to head towards being able to define processors outside of the core GPSim library, by making GPSim follow that sort of structure. 2009-09-13 Rob Pearce * extras/graphic_lcd/src/gpsim_modules.cc, extras/lcd/module_manager.cc, modules/gpsim_modules.cc, modules/encoder.cc Trivial changes only - removed some very obsolete commented out code and erroneous statements about module libraries. 2009-08-24 Borut Razem * src/14bit-registers.h, src/makefile.mingw, plat/win32/libgpsim.def: src/src.vcproj: mingw and MSVC sync 2009-08-24 Roy Rankin * gpsim/main.cc doc/gpsim.lyx : document optional -c -s * configure.ac ANNOUNCE : update for release 0.24.0 * doc/gpsim.html PROCESSORS : update with new processors 2009-08-23 Roy Rankin * src/os_dependent.cc : For linux fix loading modlib bug #2837446 2009-08-23 Roy Rankin * regression/p12f675/12f683.lkr regression/p12f675/p12f683.asm regression/p12f675/Makefile regression/run_regression.sh * add p12f683 regression test * regression/p12f675/p12f675.asm : fix bug in test * src/14bit-tmrs.h src/14bit-tmrs.cc src/comparator.h src/comparator.cc : support cmp T1 gate * src/p12f6xx.h src/p12f6xx.cc src/pic-processor.cc src/pic-processor.h : add P12f683 * src/eeprom.cc : print message if both RD and WR set in EECON1::put * src/gpsim_time.cc : add more debug output * src/trace.h : delete commented out code * src/eeprom.h : add callback_print() for debugging * gui/gui_regwin.cc : remove unneeded include 2009-07-17 Rob Pearce * src/14bit_tmrs.cc src/14bit_tmrs.h Turned the ccpcon/compare_value member pair in TMRL into a linked list of CCP references, built on demand and deleted when compare mode cancelled, thus fixing bug 2819395 * src/16bit-processors.cc p16x6x.cc Removed setting of tmrl->ccpcon as it no longer exists. The operation was pointless anyway, as it would always be set again before it became meaningful * regression/ccp/ccp877a.asm Added regression test for dual compare mode. This is a very slightly enhanced version of Roy's attachment in bug 2819395 2009-07-15 Rob Pearce * src/14bit_tmrs.cc src/14bit_tmrs.h Changed around the structure of who does what when a CCP is in compare mode. At the moment this should not have changed any functionality, but is in preparation for fixing bug 2819395 2009-07-15 Roy Rankin * regression/i2c/p16f88.asm : position modules * modules/stimuli.cc : fix error causing warning message * src/ioports.h src/stimuli.cc src/stimuli.h src/pic-processor.cc src/pic-processor.h gui/gui_breadboard.h gui/gui_breadboard.cc regression/p16f676/reset.asm regression/p16f676/Makefile regression/run_regression.sh : - Fix MCLR when it can be an IO pin 2009-07-11 Roy Rankin * regression/comparator/compar_877a.stc : position modules * regression/interrupts_14bit/interrupts_14bit.asm : use WDT * regression/usart_test/usart_pir1v1.asm * regression/usart_test/usart_pir1v2.asm regression/usart_test/eusart.asm regression/i2c/p16f876a.asm : Stop run-away tests 2009-07-07 Roy Rankin + src/pic-processor.cc src/pic-processor.h src/p18x.cc src/p18x.h : - Fix 18f2455 sigsegv, package size (2814946), ram and program size add 18f4455 40 pin version but still no USB support * src/processor.cc : Remove 2^N restriction on program memory size * src/packages.h src/packages.cc : Make warning in assign_pin optional 2009-07-05 Roy Rankin * src/16bit-processors.cc : fix Config1H::toString * src/eeprom.cc : fix delete issue * src/pic-processor.cc src/pic-processor.h src/p16x6x.cc src/p16x6x.h regression/p16f676/16f676.lkr regression/p16f676/Makefile regression/p16f676/p16f676.asm regression/Makefile.am regression/run_regression.sh : - Add p16f630, p16f676 * src/pir.cc src/pir.h : New PIR1 register type * src/p16f62x.cc : fix MCLR calls * src/stimuli.cc src/stimuli.h : input pull-up off for analog pins bug 2814950 * src/comparator.cc : new analog mode call, fix sigsegv * src/ioports.cc src/ioports.h src/a2d_v2.cc : new analog mode call * src/a2dconverter.cc src/a2dconverter.h : new analog pin mode call, 16f676 mode 2009-07-04 Roy Rankin * regression/interrupts_14bit/interrupts_14bit.stc regression/interrupts_16bit/interrupts_16bit.stc : + terminate test when interrupts fail * regression/a2d/p16f819.asm : fix comment * regression/a2d/p16f88.asm : set vref as analog pin * regression/a2d/Makefile : fix "make sim" 2009-06-15 Roy Rankin * src/p18x.h src/p18x.cc src/16bit-processors.h src/16bit-processors.cc src/pic-processor.h src/pic-processor.cc src/p16f62x.cc src/ioports.cc src/p18x.cc src/14bit-registers.cc src/p16f8x.cc : Config word set - clock mode and pins, add OSCTUNE where appropriate for p18 processors * regression/Makefile.am regression/run_regression.sh regression/p18f/reset.asm regression/p18f/Makefile : Add regression - test for p18 resets * regression/a2d/p18f1220.asm : add intrc frequency tests * regression/a2d/p18f4321.asm : MCLR turned off with Configword * regression/a2d/p16f88.asm : position test resistors 2009-06-10 Rob Pearce * src/os_dependent.cc Fixed IsFileExtension so that the extension must match the end of the file name and be preceeded by a dot. This is for bug 2803756 but not using the patch supplied as it wasn't quite semantically correct. 2009-06-07 Roy Rankin * src/16bit-processors.cc src/pic-processor.h src/pic-processor.cc src/p18x.cc src/14bit-processors.h src/14bit-processors.cc : - Add MCLR pin support to P18 processors * src/p16f8x.cc : Fix MCLR support * src/a2d_v2.cc : Remove unused variable to stop compiler warning 2009-06-01 Roy Rankin * regression/p12f675/p12f675.asm regression/a2d/p18f1220.asm regression/a2d/p18f4321.asm : - Test that analog pins read as 0 * regression/resistor/resistor.asm * regression/p18f452_ports/p18f452_ports.asm : - Set Analog pins to digital before tests * regression/a2d/p18f452.asm : set position in breadboard * src/ioports.h src/ioports.cc src/16bit-processors.cc src/a2d_v2.h src/a2d_v2.cc src/a2dconverter.h src/a2dconverter.cc src/comparator.cc src/14bit-registers.cc src/pic-ioports.cc : - analog pins are labeled and read as 0 (bug 1832222) * src/p18x.cc : remove ssp registers on p18f1220 2009-05-30 Roy Rankin * regression/comparator/compar_10f204.asm : reset vector wrong address * regression/p12f675/p12f675.asm : fix typos, clear analog ports at - end of ADC test * regression/Makefile.am : fix make dist * src/intcon.h src/intcon.cc src/pic-instructions.cc src/p12x.cc : - remove extraneous trace messages 2009-05-24 Roy Rankin * regression/p12f675/12f675.lkr regression/p12f675/p12f675.asm regression/p12f675/Makefile regression/Makefile.am src/Makefile.am regression/run_regression.sh src/p12f6xx.cc src/p12f6xx.h src/pic-processor.h src/pic-processor.cc : - Add 12f675 and 12f629 processors and regression tests * src/14bit-tmrs.cc src/14bit-tmrs.h : hooks to handle stop/start of - TMR1 for sleep, support for TMR1 Gate Enable * src/comparator.cc : fixes to allow single comparator * src/14bit-registers.cc src/14bit-registers.h : Add OSCCAL class - (OSCillator CALibration) , IOC class (Interrupt On Change) and WPU - class (Weak Pull Up) used in P12f629/675 * src/a2dconverter.cc src/a2dconverter.h : Add ADCON0_12F and - ANSEL_12F classes to support ADC for p12f675 * src/pic-ioports.cc src/pic-ioports.h : Add PicPortGRegister port - class which support IOC (Interrupt On Change) register * src/14bit-processors.cc src/14bit-processors.h : handle MCLR pin - action, remove dead code * src/p16f8x.cc : fix POR value for register ANSEL 2009-05-05 Roy Rankin * cli/cmd_processor.cc: revert as fix not in this file * gpsim/main.cc: fix "gpsim -p processor file.hex" bug # 1629719 load .stc or .cod file from command line without -c or -s 2009-05-05 Roy Rankin * cli/cmd_processor.cc: fix "gpsim -p processor file.hex" bug # 1629719 * regression/Makefile.am: remove */*.o files on make clean 2009-05-04 Roy Rankin * src/16bit-registers.h src/16bit-registers.cc src/16bit-processors.cc src/tmr0.cc src/tmr0.h src/p12x.cc src/pic-registers.cc src/12bit-processors.cc src/12bit-processors.h src/14bit-processors.cc src/14bit-processors.h src/16bit-processors.h regression/tmr0_16bit/tmr0_16bit.asm regression/wdt/wdt_18f452.asm regression/p16f84/reset.asm regression/a2d/p10f222.asm: - TMR0 stops during sleep - bug #502665 * regression/a2d/p16f871.asm regression/a2d/p16f873a.asm regression/a2d/p16f874a.asm: - bad register name in assert 2009-04-28 Roy Rankin * src/pic-registers.cc : backout part of last change which causes sigsegv 2009-04-28 Roy Rankin * src/pic-registers.h src/pic-registers.cc src/pic-ioports.cc regression/digital_stim/digital_stim.asm: - OPTION_REG values not properly processed on initial reset causing wrong edge detect for interrupt 2009-04-27 Roy Rankin * src/p12x.cc src/p12x.h src/pic-registers.cc: - For p12x processors support osccal function for internal RC frequency tuning and FOSC4. Add Configuration word support for IOSCFS and NOT_MCPU. Pin driving and label for FOSC4/COUT/T0SC/gpio2 and MCLR/gpio3 2009-04-21 Roy Rankin * regression/instructions_12bit/instructions_12bit.asm regression/a2d/p10f222.asm src/p12x.cc src/p12x.h: - Fix pullup on gpio3 on all p12x processors 2009-04-20 Roy Rankin * src/a2dconverter.h: Fix sigsegv introduced in last patch 2009-04-20 Roy Rankin * src/pic-processor.cc src/pic-processor.h src/p12x.cc src/p12x.h src/a2dconverter.cc src/a2dconverter.h regression/a2d/10f222.lkr regression/a2d/p10f222.asm regression/a2d/Makefile regression/run_regression.sh: - Add P10F220 and P10F222 processors 2009-03-23 Roy Rankin * configure.ac: set release 0.23.9 * ANNOUNCE: fix typo 2009-03-18 Roy Rankin * extras/lcd/configure.in: bump release number 2009-03-02 Roy Rankin * gpsim/main.cc: expand extent of try * gpsim.spec.in: improve utf8 conversion of AUTHORS file * ANNOUNCE: update for 0.23.0 2009-03-01 Borut Razem * gpsim/main.cc, src/errors.h, src/errors.cc, src/uart.cc, src/icd.cc, src/a2d_v2.cc, src/pic-processor.h, src/processor.cc, gui/gui_menu.cc, cli/scan.ll, cli/socket.cc, cli/input.cc, cli/input.h, doc/gpsim.lyx: undone changes I made yesterday: libgpsim functions now throw FataError exception, which is catched by main() 2009-02-28 Borut Razem * gpsim/main.cc, src/icd.cc, src/processor.cc, gui/gui_menu.cc, cli/scan.ll, cli/socket.cc, cli/input.cc, cli/input.h: use atexit() to execute exit_gpsim() when exiting to solve Win32 libgpsim.dll problem. 2009-02-28 Roy Rankin * gpsim.spec.in: update * src/trace.cc: fix segfualt (bug 1490171) * src/registers.cc src/pic-processor.h: fix pcl setting and segfault (bug 1642109) * src/eeprom.cc: fix segfault (bug 1823171) 2009-02-19 Roy Rankin * gui/gui_main.cc: set LC_NUMERIC locale to standardize IO (bug 1832702) 2009-02-18 Roy Rankin * gui/gui_src_asm.cc: Handle non uft8 characters is Source Browser window (bugs 1869795, 2579637) 2009-02-17 Roy Rankin * src/os_dependent.cc: Fix loading module libraries * cli/parse.yy cli/cmd_attach.cc doc/gpsim.lyx: fix help for attach and segfault (bug 2556045) * src/p16x6x.cc src/p16f62x.cc src/ioports.cc: debuging output only if verbose set 2009-02-14 Roy Rankin * cli/parse.yy: fix segfault (bug 2556041) 2009-02-14 Roy Rankin * src/expr.cc src/protocol.cc src/operator.cc src/ValueCollections.h src/protocol.h src/icd.cc src/comparator.cc src/value.cc src/processor.cc src/16bit-instructions.cc modules/usart.cc gui/settings_exdbm.cc gui/gui.h: Changes to compile with GCC 4.4 2009-02-14 Roy Rankin * regression/Makefile.am: correction on file list for make dist 2009-02-14 Roy Rankin * gpsim/main.cc src/icd.cc src/processor.cc gui/gui_menu.cc cli/scan.ll cli/socket.cc cli/input.cc cli/input.h: Do not exit from library routines * regression/Makefile.am make clean, cleans files in regression sub-directories fix list of files so make dist works 2008-12-26 Borut Razem * extras/lcd/lcdgui.cc, modules/led.cc, gui/gui_profile.cc: applied patch 2458749: segfault in gdk_color_alloc(), thanks to Don Wooton * src/makefile.mingw, src/src.vcproj: added a2d_v2.cc and a2d_v2.h 2008-12-22 Roy Rankin * regression/a2d/18f1220.lkr regression/a2d/18f4321.lkr regression/a2d/p18f1220.asm regression/a2d/p18f4321.asm regression/a2d/Makefile regression/run_regression.sh src/p18x.h src/16bit-processors.cc src/a2d_v2.h src/Makefile.am src/a2d_v2.cc src/p18x.cc src/a2dconverter.cc src/16bit-processors.h : Add new style A2D converter with adcon2 register which supports up to 16 channels 2008-12-07 Roy Rankin * src/16bit-registers.h src/p16f87x.cc src/p16f87x.h src/p16x7x.h src/a2dconverter.h src/p16x7x.cc src/p16f8x.h src/16bit-registers.cc src/p16f8x.cc src/a2dconverter.cc src/16bit-processors.h : Consolidate ADCON0_withcpp, ADCON0_16 and ADCON0 classes to just ADCON0. Fix ADCON1::setNumberOfChannels() to allow number of channels to be increased. 2008-12-02 Roy Rankin * src/14bit-registers.h src/dspic/dspic-instructions.cc src/pic-processor.cc src/pir.cc src/16bit-instructions.h src/comparator.cc src/hexutils.h src/14bit-registers.cc src/16bit-registers.cc modules/stimuli.cc : Fix GCC 4.3.0 warnings 2008-09-21 Borut Razem * plat/win32/gpsim.nsi, doc/gpsimWin32.html: updated for libpng-1.2.29, win_iconv_dll-tml-20080320, atk_1.22.0-2_win32, gtk+_2.14.2-1_win32, cairo-1.6.4-2, pango_1.20.5-2_win32, glib_2.18.1-1_win32 2008-09-20 Rob Pearce * src/intcon.cc src/intcon.h src/pir.cc src/pir.h src/p16x7x.cc Fixed handling of peripheral interrupts during ISR execution on 16-bit with priority enables, so that the new interrupt will be handled after the RETFIE This involved changing the PIR::interrupt_status() and dependents to return a bit-map of priorities rather than a simple boolean. 2008-09-17 Rob Pearce * src/intcon.cc : Fixed response to low priority interrupts during high priority ISR (i.e. it no longer runs the low-pri ISR immediately) * src/16bit-processors.cc src/intcon.cc src/intcon.h regression/interrupts_16bit/priority.asm regression/analog_stim/p18f452.asm regression/a2d/p18f452.asm Fixed handling of interrupts during ISR execution on 16-bit, at least for the non-priority case, so that the new interrupt will be handled after the RETFIE (as already worked on 14-bit). Also added test of priority nesting, which currently doesn't test this fix (it uses RBIF, which already worked). Also fixed a couple of ADC regression tests that failed to acknowledge the interrupt (due to a typo) and thus only passed because this condition was buggy. 2008-09-17 Rob Pearce * src/ssp.cc : Corrected SPI transfer complete behaviour so that SSPIF is set on completion of a master mode transfer regardless of the SSPOV state. (Confirmed this behaviour on an 18F2321) * src/14bit-tmrs.cc : Made some commented out debug code available with higher verbosity, for testing 2008-09-14 Borut Razem * configure.ac: fixed bug #1698566: missing libpopt header is unnoticed by configure 2008-08-29 Rob Pearce * src/14bit-tmrs.cc src/14bit-tmrs.h src/pir.h src/16bit-processors.cc src/p16x6x.cc src/p18x.cc regression/ccp/ccp_877a.asm : Changed the CCPCON class to not use pir_set, since this broke its ability to be duplicated. It now refers to a specific PIR register, meaning that the second CCP on a 16F87x or similar can actually generate the right interrupt. Added tests for this in the CCP_877a regression test 2008-08-26 Rob Pearce * src/processor.cc src/processor.h src/sim_context.cc src/cod.cc src/16bit-processors.h gui/gui_profile.cc : Corrections to use of Processor::program_memory_size() so that all of them expect it to be instruction words, not byte addresses. 2008-08-23 Rob Pearce * regression/interrupts_16bit/(interrupts_16bit.asm, priority.asm) regression/run_regression.sh : Enhance and enable regression tests for the 16bit core prioritised interrupts * src/intcon.cc : Corrected peripheral interrupts to use the right vectors when IPEN is set 2008-08-06 Rob Pearce * src/intcon.cc : Corrected low priority non-peripheral interrupts to obey the GIEL bit * regression/interrupts_16bit/(18f2321.lkr, Makefile, interrupts_16bit.asm, interrupts_16bit.stc, priority.asm, priority.stc) : First stab at some regression tests for the 16bit core prioritised interrupts 2008-08-04 Borut Razem * src/protocol.cc, src/i2c-ee.cc, src/eeprom.cc, src/pic-processor.cc. src/gpsim_object.cc, src/comparator.cc, src/value.h, src/p12x.cc, src/value.cc, src/cod.cc, config_win32.h.in, cli/scan.ll, cli/command.cc, cli/input.cc, plat/win32/libgpsim.def: MSVC sync, enable compilation on VC 2008 2008-08-02 Borut Razem * gpsim/main.cc, src/gpsim_interface.h, src/icd.h, src/modules.h, src/i2c-ee.cc, src/ui.h, src/trace.h, src/ui.cc, src/icd.cc, src/modules.cc, src/trace.cc, src/cmd_manager.h, modules/usart.cc, modules/logic.cc, modules/logic.h, gui/gui_src.cc, gui/gui_symbols.cc gui/gui_src.h, gui/gui_regwin.cc, gui/gui_trace.cc, gui/gui_profile.cc gui/gui_src_asm.cc, gui/gui_dialog.cc, gui/gui_menu.cc, gui/gui_stack.cc gui/gui_watch.cc, gui/gui_object.h, gui/settings_exdbm.cc, gui/gui_src_opcode.cc, gui/gui.h, gui/gui_breadboard.cc, ChangeLog, xpms/startp.xpm, xpms/pc.xpm, xpms/break.xpm, xpms/stopp.xpm, xpms/canbreak.xpm, cli/misc.h, cli/socket.cc, cli/ui_gpsim.h, cli/input.cc, cli/ui_gpsim.cc, plat/win32/icd.cc: fixed gcc warnings "warning: deprecated conversion from string constant to 'char*'" 2008-08-02 Rob Pearce * src/14bit-registers.cc, src/16bit-registers.cc : Fixed behaviour of PCLATH and PCL : - Setting PC from GUI no longer changes PCLATH on 16-bit cores - Setting PCLATH from GUI no longer changes PC * src/p18x.cc : Annotation - I think porta4 is defined wrong * src/pir.cc, src/pir.h, src/intcon.cc, src/intcon.h, src/16bit-processors.cc : Support for interrupt priority on 16-bit core peripherals * src/16bit-processors.cc : Fix TMR0 external inputs on 16-bit cores (T0CKI was not being connected) 2008-07-30 Borut Razem * regression/run_regression.sh: set GPSIM_MODULE_PATH=$(pwd)/../modules/.libs so that the correct libgpsim_modules.so is loaded during regression test execution on *nix platforms 2008-07-28 Borut Razem * cli/cmd_symbol.cc, gui/gui_breadboard.cc, modules/led.cc: enabled compilation on Fedora 9, gcc 4.3.0, fixed gcc error: must #include before using typeid 2008-06-26 Rob Pearce * src/uart.cc, regression/usart_test/eusart.asm : Added regression test for (and fixed) EUSART sync break operation. 2008-06-05 Scott Dattalo * src/os_dependent.cc: Now the library extension is appended to library names if the raw library name fails to load 2008-06-05 Scott Dattalo for Steffen Joeris * src/modules.h, src/operator.cc, src/processor.h, src/gpsim_object.cc * src/value.h, src/modules.cc, src/value.cc, src/processor.cc, modules/switch.cc * gui/gui_src.cc, gui/gui_symbols.cc, gui/gui_regwin.cc, gui/gui_stack.cc * gui/settings_exdbm.cc, cli/cmd_x.cc, cli/cmd_clear.cc Fixups for gcc-4.3 2008-06-22 Rob Pearce * src/uart.cc, src/uart.h, regression/usart_test/Makefile, regression/run_regression.sh, regression/usart_test/eusart.asm, regression/usart_test/18f2321.lkr: Added regression test for (and fixed) EUSART operation in BRG16 mode. 2008-06-08 Rob Pearce * src/uart.cc, src/uart.h, p18x.cc: Initial support for EUSART, as part of the existing usart class. Has been regression tested in legacy mode only. 2008-06-05 Scott Dattalo * src/value.h, src/value.cc, src/16bit-instructions.cc C++ cleanup - char * is now const char * in many places 2008-06-01 Rob Pearce * src/pic-processor.cc, src/pic-processor.h, p18x.cc, p18x.h: Initial attempt at providing support for the PIC18F4321. The same issues are present as per the 18F2321. * src/16bit-registers.cc, gui/gui_src_asm.cc: Bug fixes - "run to here" now updates the source browser PC indicator, and "set PC here" now works properly on 16bit processors * gui/gui_stopwatch.cc: No actual code change, but some comments regarding a suspicious looking sequence of operations. * src/16bit-processors.cc, src/16bit-processors.h, p18x.h: Fixed RAM sizes of 18F series processors 2008-05-31 Rob Pearce * src/pic-processor.h, src/16bit-processors.h, p18x.h, src/16bit-instructions.cc, src/pic-instructions.cc, src/14bit-registers.cc: Split out the _16BIT_PROCESSOR_ base type into _PIC17_PROCESSOR_ and _PIC18_PROCESSOR_ because nearly every place that tested it should have treated them differently. This led to some awkward switch cases where all PIC18 devices were listed in one block and all PIC17s in another (and which could easily be overlooked and cause pain when adding new devices). These are now simple and generic. * src/pic-processor.cc, src/pic-processor.h, p18x.cc, p18x.h: Initial attempt at providing support for the PIC18F2321. The USART is wrong (missing BAUDCON and SPBRGH), as is the ADC (ADCON2 missing, not enough channels) and the OSCTUNE register is missing. Also the RAM is too big. * src/16bit-registers.cc regression/instructions_16bit/instructions_16bit.asm Fixed a bug in the TBLPTR decrement on 256 byte boundaries, and added regression test for it. 2008-05-20 Rob Pearce * src/14bit-tmrs.cc: Fix TMR1 behaviour around CCP compare events, remove incorrect adcon interaction, enable CCP output drive * src/p16f62x.cc: Enable CCP onto the correct port pin * regression/ccp_628/* regression/run_regression.sh regression/Makefile.am: Add regression tests for these fixes, and others Changes are for bug 1967803 and to repair 679540, plus tests for 1811305, 1652549 2008-04-05 Scott Dattalo * src/gpsim_interface.h, src/interface.cc, cli/cmd_stopwatch.cc, cli/cmd_frequency.cc, cli/cmd_dump.cc, cli/cmd_list.cc, cli/command.cc, cli/cmd_step.cc, cli/command.h: The step and step over commands are now directed through the gpsim interface instead through the currently active processor. 2008-01-13 Borut Razem * plat/win32/gpsim.nsi: added StartMenu page * configure.ac: corrected URL 2008-01-10 Borut Razem * plat/win32/gpsim.nsi, plat/win32/makefile.migw: changed NSIS installation * doc/gpsimWin32.html: fixed typo 2007-12-23 Borut Razem * doc/gpsimWin32.html: fixed typo; jpeg and tiff dependencies * plat/win32/gpsim.nsi: added jpeg62.dll and libtiff3.dll * doc/gpsim_svn.html: corrected the URL of svn repository, thanks to Graeme Jury * doc/*.html: make WEB pages XHTML 1.0 Transitional copliant 2007-12-17 Roy Rankin * src/14bit-tmrs.h src/14bit-tmrs.cc: Add TMR1 external crystal simulation * regression/tmr1_16bit/tmr1_16bit.asm regression/tmr1_16bit/Makefile: - Add tests for external crystal and Fosc/4, lower frequency to speed up test time * regression/Makefile.am regression/run_regression.sh: - Run tmr1_16bit as part of regression tests * doc/gpsim.lyx: Add TMR1 external drive documentation 2007-12-09 Borut Razem * doc/gpsimWin32.html: NSIS v2.33, fontconfig-2.4.2-tml-20071015, gettext-runtime-0.17, glib-2.14.4, gtk+-2.12.3, pango-1.18.3 * doc/makefile.mingw: ignore errors * plat/gpsim.nsi: updated for gtk+-2.12.3 * plat/win32/gpsim.def: MSVC sync 2007-12-02 Roy Rankin * regression/wdt/18f452.lkr regression/wdt/16f88.lkr regression/wdt/16f628.lkr regression/wdt/16c64.lkr regression/wdt/wdt_16c64.asm regression/wdt/nwdt_18f452.asm regression/wdt/wdt_18f452.asm regression/wdt/nwdt_16f628.asm regression/wdt/nwdt_16f88.asm regression/wdt/wdt_16f88.asm regression/wdt/wdt_16f628.asm regression/wdt/Makefile regression/wdt/nwdt_16c64.asm regression/Makefile.am regression/run_regression.sh: - Add regression tests for Watchdog Time * regression/p16f84/reset.asm: Sleep continues on WDT expire * src/Makefile.am src/rcon.h src/16bit-registers.h: RCON moved to rcon.h * src/pic-processor.cc src/pic-processor.h src/16bit-processors.cc src/pic-registers.cc src/14bit-registers.h src/p16f8x.h src/p16f8x.cc: WDT and configuration fixes * src/processor.cc: Frequency change updates WDT * src/14bit-registers.cc: WDTCON functions added, Status register rcon support * src/16bit-instructions.cc: Implement Sleep instruction 2007-11-25 Roy Rankin * src/14bit-tmrs.cc: Fix TMR2 BUG message on reset 2007-11-09 Borut Razem * modules/usart.cc> fixed bug #1828634: SVN does not build with --disable-gui 2007-10-21 Roy Rankin * modules/switch.cc: Fix compiler warning * modules/led.cc: Fix core dump when no GUI 2007-10-21 Roy Rankin * doc/gpsim.lyx: Add LED doc, new switch state values * modules/switch.cc: State attribute given values open and closed * modules/led.cc, modules/led.h: Add color for simple LED * regression/switch_test/switch_test.asm: test new state values * examples/modules/led_test/led_mod.stc: Add position, simple green LED 2007-10-20 Scott Dattalo * src/pic-processor.cc: Fixed the 'Step-Over' bug that was preventing the gui from updating properly. * regression/rt.sh: Added an echo print that will display which regression test is currently running. This is commented out for now... 2007-10-18 Scott Dattalo * src/16bit-processors.cc: Fixed a printf format specifier bug. 2007-10-18 Scott Dattalo * gui/gui_src.h, gui/gui_src_asm.cc: Removed #if 0'd code. Made the dependency on the "new" source browser permanent. 2007-10-17 Borut Razem * configure.ac: added -Wall gcc command line option to CFLAGS and CXXFLAGS 2007-10-16 Borut Razem * src/value.cc, src/trace.cc, modules/stimuli.cc, gui/gui_trace.cc, gui/gui_profile.cc, gui/gui_menu.cc, gui/gui_scope.cc, configure.ac, config_win32.h.in: introduced PRINTF_GINT64_MODIFIER which defines the printf modifier for gint64 and guint64 types 2007-10-14 Borut Razem * src/p16x6x.h, src/p16x6x.cc, src/eeprom.cc, src/pic-processor.cc, src/p16f62x.cc, src/12bit-processors.cc, src/pic-processor.h, src/p12x.cc, src/14bit-processors.cc: fixed duplicatd sfr deletion, code cleaning * plat/win32/libgpsim.def: MSVC sync * src/icd.cc, src/bitlog.cc, gui/gui_object.cc, eXdbm/eXdbm.c, cli/cmd_help.cc: fixed trivial gcc 4.1.2 warnings 2007-10-14 Roy Rankin * src/value.cc: Allow Float::set to take Value type Integer * src/modules.h src/modules.cc gui/gui_breadboard.cc: - reinstate operation of breadboard "Add library", "Add module" and "Save Configuration" buttons and module attributes. 2007-10-13 Borut Razem * src/gpsim_interface.h, src/ioports.h, src/gpsim_object.h, src/dspic/dspic-instructions.h, src/ui.h, src/processor.h, src/pir.h, src/trace.h, src/program_files.h, src/pic-processor.h, src/registers.h, src/stimuli.h, modules/i2c.h, modules/led.h, gui/gui_symbols.cc, gui/gui_src.h, gui/gui_regwin.cc, gui/gui_menu.cc, gui/gui_scope.cc, gui/gui.h, cli/socket.cc: fixed virtual functions but non-virtual destructor warnings * src/modules.h, src/p16x6x.cc, src/pic-processor.cc, src/p16f62x.cc, src/12bit-processors.cc, src/pic-processor.h, src/p12x.cc, src/modules.cc src/processor.cc, src/14bit-processors.cc, src/pic-instructions.cc, src/pic-processor.cc: fixed gcc warning: dereferencing type-punned pointer will break strict-aliasing rules 2007-10-13 Roy Rankin * src/i2c-ee.h src/i2c-ee.cc modules/i2c-eeprom.h modules/i2c-eeprom.cc cli/cmd_dump.cc cli/cmd_load.cc: Fix eeprom address symbols 2007-10-10 Scott Dattalo * modules/i2c-eeprom.cc, cli/cmd_dump.cc, src/pic-processor.cc, src/symbol.cc, src/i2c-ee.cc: Fixed errors that Borut uncovered during the clean up process. 2007-10-09 Borut Razem * src/symbol.cc: fixed the fixed warnig ;-) 2007-10-07 Borut Razem * cli/cmd_attach.cc, cli/cmd_dump.cc, cli/cmd_dump.h, gui/gui_breadboard.cc, gui/gui_scope.cc, gui/gui_scope.h, gui/gui_src_asm.cc, gui/gui_stack.cc, gui/gui_watch.cc, modules/i2c.h, modules/stimuli.cc, modules/stimuli.h, src/14bit-registers.cc, src/14bit-tmrs.cc, src/16bit-processors.cc, src/bitlog.cc, src/eeprom.cc, src/hexutils.cc, src/hexutils.h, src/modules.cc, src/p16f8x.cc, src/packages.cc, src/pic-ioports.cc, src/pic-processor.cc, src/pic-processor.h, src/processor.cc, src/processor.h, src/registers.cc, src/stimuli.cc, src/symbol.cc, src/trace.cc: fixed trivial gcc warnings * doc/gpsimWin32.html: generic readline 2007-10-6 Scott Dattalo * regression/switch_test/switch_test.asm, regression/instructions_14bit/branching.asm: - WDT was timing out. * src/pic-processor.cc, src/pic-processor.h: - Added 12f508, 12f509, and 12f510 - Fixed I/O reset bug - WDT is now placed in the processor's symbol table. * src/p12x.cc, src/p12x.h: - Added 12f508, 12f509, and 12f510 (although the '510's comparator and A2D are not supported.) * cli/cmd_symbol.cc: - Module symbol tables can now be displayed independently of the global symbol table * cli/parse.yy: - The parser was quiting gpsim if the dump eeprom command failed. 2007-09-30 Borut Razem * doc/gpsimWin32.html: glib-2.14.1, atk-1.20.0, pango-1.18.2, cairo-1.4.10, NSIS v2.31 * plat/win32/gpsim.nsi: updated * plat/win32/libgpsim.def: MSVC sync 2007-09-17 Roy Rankin * cli/cmd_symbol.cc: symbols dumped as module.symbol with better format, don't dump line number symbols. * gui/gui_symbols.cc: symbols dumped as module.symbol. * src/registers.cc: Add module name in response to query array value. * src/i2c-ee.h, src/i2c-ee.cc, modules/i2c-eeprom.cc: Add RegisterCollection to allow command line viewing & change of EEPROM cells. * doc/gpsim.lyx:Document new EEPROM functionality, improve scope window documentation. 2007-09-16 Roy Rankin * cli/cmd_break.cc: unless verbose set, do not output assert messages when loading them to avoid user concusion and masking of error messages. * regression/rt.sh: simplified due to above change. 2007-09-13 Roy Rankin * src/hexutils.cc src/hexutils.h: read/write Intel hex files from/to register arrays. File format not dependant on endian of processor. * src/i2c-ee.h src/i2c-ee.cc src/eeprom.cc src/eeprom.h: EEPROM given register size. * modules/i2c-eeprom.h modules/i2c-eeprom.cc: .eeprom symbol added so dump/load can converse with module * cli/cmd_load.h cli/cmd_load.cc cli/cmd_dump.h cli/cmd_dump.cc cli/parse.yy: add EEPROM dump/load commands. * doc/gpsim.lyx: spelling corrections, document new load and dump commands, improve EEPROM documentation. * regression/i2c/p16f876a.asm: Add tests for EEPROM dump/load. 2007-09-02 Borut Razem * plat/win32/libgpsim.def: MSVC sync * src/attributes.cc, src/gpsim_time.cc, src/gpsim_time.h: create stop_watch object dynamically to overcome the static object creation sequence dependency on the C++ compiler implementation * src/16bit-instructions.cc, src/pic-instructions.cc, src/pic-instructions.h, src/pic-instructions.h, src/processor.cc, src/processor.h, src/dspic/sdpic-instructions.cc: each processor owns its own 'bad_instruction' object * src/symbol.cc, src/symbol.h: code cleaning * doc/snap_header.html: corrected ChangeLog link 2007-08-28 Roy Rankin * gui/gui_breadboard.cc: module settings fix for new symbol table * gli/cmd_dump.cc: fix detection of invalid registers in register dump 2007-08-26 Roy Rankin * gui/gui_symbols.cc: fix memory leak, re-enable filtering * gui/gui_breadboard.h gui/gui_breadboard.cc: breadboard need not be + running on start of gpsim to work * regression/resistor/resistor.asm: position resistors 2007-08-21 Roy Rankin * modules/usart.cc modules/switch.cc modules/paraface.cc * modules/led.cc modules/i2c-eeprom.h modules/video.cc * modules/resistor.cc modules/push_button.h modules/stimuli.cc * modules/logic.cc modules/logic.h modules/i2c-eeprom.cc * modules/paraface.h modules/led.h modules/video.h * modules/push_button.cc modules/resistor.h modules/encoder.cc * modules/encoder.h modules/stimuli.h gui/gui_breadboard.h * gui/gui_breadboard.cc: fix extra xpos, ypos in symbol table, + fix issues in deleting modules including core dumps 2007-08-09 Roy Rankin * src/p12x.cc: Fix eeprom regression introduced by last change 2007-07-29 Scott Dattalo * cli/cmd_break.cc: Fixed bug in expression parsing of assertions. * cli/parse.yy, src/value.h, src/value.cc: playing with a 'call' command. * src/symbol.cc: Symbol type is now shown in a symbol dump. * src/stimuli.cc, src/stimuli.h: Added 'analog sinks'. These are like digital sinks except they have the added capability of directing a signal to more than one object. * src/pic-processor.cc, src/pic-processor.h: Added the 10F202 and 10F204 * src/tmr0.cc: Fixed bug in computing current TMR0 value. * src/12bit-processors.cc: - option register wasn't accessible from command line - Config word wasn't handled properly. * src/p12x.cc, src/p12x.h - Added P12bitBase, this made it somewhat easier to add the 10F series. - Added the 10F200, 10F202, 10F204 and 10F206 (only '204 was tested) - Added comparator support for the 10F204 and 10F206 * regression/comparator/compar_10f204.asm, regression/comparator/10f204.lkr, regression/comparator/Makefile, regression/run_regression.sh: - Added a regression test for the 10F204. 2007-07-22 Rob Pearce * modules/usart.cc modules/usart.h doc/gpsim.lyx: Added a "hex" attribute to the usart module to force the display to show all bytes as hex, for use with pure binary data simulations. 2007-07-15 Roy Rankin * src/pic-processor.cc src/pic-processor.h src/p16f8x.h src/p16f8x.cc regression/ccp/16f819.lkr regression/ccp/ccp_819.asm regression/ccp/Makefile regression/a2d/16f819.lkr regression/a2d/p16f819.asm regression/a2d/Makefile regression/run_regression.sh regression/Makefile.am regression/i2c/16f819.lkr regression/i2c/Makefile regression/i2c/p16f819.asm: - Add P16f818 and P16f819 processors 2007-07-10 Roy Rankin * src/a2dconverter.cc: add comments for setup functions 2007-04-14 Borut Razem * plat/win32/libgpsim.def, plat/win32/Install.vcproj: MSVC sync * cli/cmd_module.cc, gui/gui_stack.c, src/modules.cc, src/modules.h, src/packages.cc, src/registers.cc, src/sim_context.cc, src/symbol.cc, src/symbol.h: fixes to make gpsim compile on MSVC, but it still doesn't run due to object construction / destruction sequence problems... 2007-03-27 Scott Dattalo * cli/cmd_break.cc, src/gpsim_object.h, src/breakpoints.h, src/registers.cc, src/registers.h, src/breakpoints.cc, gui/gui_regwin.cc - Added break on register change feature. From the command line: gpsim> break ch myvar This sets a breakpoint on the register 'myvar' and will halt execution whenever a write to this register changes the contents of myvar. - Added another menu item to the register window menu to support the break on change breakpoint. 2007-03-25 Martin Habets * src/p18x.cc: - Added I2C support to pic18f2455. - Fixed pin 18 on the pic18f2455. 2007-03-20 Martin Habets * src/16bit-instructions.cc, src/p18x.cc, src/p18x.h, src/pic-instructions.cc, src/pic-processor.cc, pic-processor.h: Added support for the p18f2455. 2007-03-20 Scott Dattalo * src/16bit-processors.cc, src/intcon.cc, src/pic-ioports.h, src/intcon.h, src/pic-ioports.cc, src/14bit-processors.cc: - PortB now writes intcon bits via a ptr to an intcon register. Previously, PortB obtained the intcon pointer from the Processor class 2007-03-15 Borut Razem * src/symbol.h: added #include "exports.h" to make it compile on WIN32 * plat/win32/gpsim.nsi: added extras\graphic_lcd\examples\sed1520\* and extras\graphic_lcd\examples\ssd0323\* to the package 2007-03-14 Scott Dattalo * src/dspic/dspic-registers.cc: There was no implementation defined for the Status register constructor. 2007-03-14 Scott Dattalo * src/16bit-processors.cc, src/intcon.cc, src/pic-ioports.h, src/intcon.h, src/pic-ioports.cc, src/registers.h, src/16bit-processors.h: - Added the concept of a 'bit sink' to the SFR registers. This allows arbitrary clients to associate themselves with arbitrary bits in an SFR. More work needs to be done, but this is used at the moment to control port B pull up resistors on the 16-bit core. 2007-03-07 Scott Dattalo * src/pic-processor.cc, src/trace.cc: Moved the ResetTraceObject from pic-processor.cc to trace.cc (yesterday's comment on this was not completely true!) * src/stimuli.cc: Resolved an ambiguity with pullup resistors on I/O pins. 2007-03-06 Scott Dattalo * src/pic-processor.cc, src/trace.cc, src/trace.h: Moved the ResetTraceObject from pic-processor.cc to trace.cc * src/value.cc: Value objects now remove themselves from the symbol table when they're destructed. * src/symbol.cc, src/stimuli.cc, src/packages.cc, src/modules.cc, src/cod.cc, src/breakpoints.cc, src/attributes.cc, modules/stimuli.cc, modules/stimuli.h, gui/gui_breadboard.cc, cli/cmd_attach.cc: - printf debug clean up. 2007-03-05 Scott Dattalo * src/ssp.cc: Removed some printf debug code. 2007-02-25 Scott Dattalo * src/modules.h, src/symbol.cc, src/modules.cc, cli/cmd_module.cc: The 'module' and 'module list' commands work again. 2007-02-25 Scott Dattalo * src/16bit-processor.cc: Bug in config memory construction was causing segv. Also, added more descriptions to the 16bit processor config words. 2007-02-22 Scott Dattalo * gpsim/main.cc, regression/instructions_14bit/branching.asm, src/p16x6x.h, src/pic-instructions.h, src/ioports.h, src/comparator.h, src/p16x6x.cc, src/p16f87x.cc, src/p16f87x.h, src/16bit-processors.cc, src/14bit-tmrs.h, src/pic-instructions.cc, src/dspic/dspic-registers.cc, src/processor.h, src/stimuli.cc, src/eeprom.cc, src/pic-processor.cc, src/pir.cc, src/registers.cc, src/uart.cc, src/p16f62x.cc, src/uart.h, src/p16x7x.h, src/tmr0.cc, src/pir.h, src/ssp.cc, src/tmr0.h, src/ioports.cc, src/psp.cc, src/14bit-tmrs.cc, src/comparator.cc, src/p16x7x.cc, src/12bit-processors.cc, src/p12x.cc, src/pic-processor.h, src/sim_context.cc, src/p16f8x.h, src/value.cc, src/processor.cc, src/eeprom.h, src/p16f8x.cc, src/pic-ioports.cc, src/registers.h, src/pic-registers.cc, src/breakpoints.cc, src/14bit-processors.cc, src/stimuli.h, gui/gui_scope.cc: - Memory leak fixes. - The 12C50x and the 16f62x devices leak no memory. 2007-02-18 Scott Dattalo * gui/gui_breadboard.cc, src/modules.cc, src/modules.h: The Module libraries are now implemented as STL maps. * src/symbol.h, src/symbol.cc: The symbol table now supports a 'deleteSymbol' method. This method removes a symbol from the symbol table and frees up the memory belonging to it. * gpsim/main.cc, regression/logic_test/logic_test.asm, src/16bit-registers.h, src/init.cc, src/trigger.cc, src/expr.cc, src/p16x6x.cc, src/p16x8x.cc, src/packages.h, src/breakpoints.h, src/16bit-processors.cc, src/14bit-registers.h, src/gpsim_time.h, src/pic-instructions.cc, src/dspic/dspic-registers.cc, src/p16f62x.h, src/processor.h, src/stimuli.cc, src/eeprom.cc, src/pic-processor.cc, src/registers.cc, src/p16f62x.cc, src/gpsim_time.cc, src/packages.cc, src/attributes.h, src/sim_context.h, src/icd.cc, src/12bit-processors.cc, src/p12x.cc, src/pic-processor.h, src/sim_context.cc, src/value.cc, src/processor.cc, src/14bit-registers.cc, src/16bit-registers.cc, src/p16f8x.cc, src/registers.h, src/pic-registers.cc, src/breakpoints.cc, src/14bit-processors.cc, src/attributes.cc, src/16bit-processors.h, cli/parse.yy, cli/cmd_break.cc, cli/cmd_module.cc, cli/input.cc: - Memory leak fixes. 2007-02-12 Scott Dattalo * src/symbol.cc: Deleted #if 0'd code.(the old symbol table implementation) 2007-02-11 Scott Dattalo * gpsim/main.cc, gpsim/Makefile.am, regression/register_stim/register_stim.stc, regression/logic_test/logic_test.asm, regression/p18f452_ports/18f452.lkr, src/16bit-registers.h, src/fopen-path.cc, src/trigger.cc, src/trigger.h, src/12bit-hexdecode.cc, src/symbol.h, src/14bit-hexdecode.cc, src/16bit-hexdecode.cc, src/p16x6x.h, src/expr.cc, src/pic-instructions.h, src/ioports.h, src/i2c-ee.h, src/gpsim_object.h, src/comparator.h, src/modules.h, src/p16x6x.cc, src/p17c75x.cc, src/p16x8x.cc, src/pie.h, src/packages.h, src/p16f87x.cc, src/breakpoints.h, src/p16f87x.h, src/16bit-processors.cc, src/14bit-instructions.cc, src/intcon.cc, src/14bit-registers.h, src/operator.cc, src/i2c-ee.cc, src/symbol.cc, src/ssp.h, src/14bit-tmrs.h, src/pic-ioports.h, src/ValueCollections.cc, src/pic-instructions.cc, src/dspic/dspic-processors.cc, src/dspic/dspic-instructions.cc, src/dspic/dspic-processors.h, src/dspic/dspic-registers.cc, src/dspic/dspic-registers.h, src/p16f62x.h, src/processor.h, src/pic-registers.h, src/stimuli.cc, src/eeprom.cc, src/pic-processor.cc, src/pir.cc, src/intcon.h, src/gpsim_object.cc, src/xref.h, src/registers.cc, src/uart.cc, src/p16f62x.cc, src/uart.h, src/pie.cc, src/p16x7x.h, src/tmr0.cc, src/12bit-instructions.h, src/Makefile.am, src/16bit-instructions.h, src/pir.h, src/gpsim_time.cc, src/a2dconverter.h, src/trace.h, src/pm_rd.cc, src/xref.cc, src/ssp.cc, src/ui.cc, src/packages.cc, src/tmr0.h, src/sim_context.h, src/icd.cc, src/ioports.cc, src/14bit-tmrs.cc, src/comparator.cc, src/p16x5x.cc, src/p16x7x.cc, src/value.h, src/expr.h, src/12bit-processors.cc, src/p12x.cc, src/pic-processor.h, src/sim_context.cc, src/p16f8x.h, src/p18x.cc, src/pm_rd.h, src/modules.cc, src/value.cc, src/processor.cc, src/14bit-registers.cc, src/eeprom.h, src/16bit-registers.cc, src/p12x.h, src/p16f8x.cc, src/trace.cc, src/a2dconverter.cc, src/cod.cc, src/pic-ioports.cc, src/registers.h, src/pic-registers.cc, src/breakpoints.cc, src/12bit-processors.h, src/14bit-processors.cc, src/14bit-processors.h, src/attributes.cc, src/16bit-processors.h, src/14bit-instructions.h, src/16bit-instructions.cc, src/stimuli.h, configure.ac, extras/graphic_lcd/src/glcd_100X32_sed1520.cc, extras/lcd/hd44780.cc, extras/lcd/lcd.cc, modules/usart.cc, modules/switch.cc, modules/led.cc, modules/resistor.cc, modules/i2c.cc, modules/stimuli.cc, modules/logic.cc, modules/i2c-eeprom.cc, modules/ttl.cc, modules/encoder.cc, gui/gui_src.cc, gui/gui_breadboard.h, gui/gui_symbols.cc, gui/gui_regwin.cc, gui/gui_watch.h, gui/gui_src_asm.cc, gui/gui_stack.cc, gui/gui_watch.cc, gui/gui_scope.cc, gui/gui_breadboard.cc, cli/cmd_load.h, cli/scan.ll, cli/cmd_symbol.cc, cli/socket.cc, cli/cmd_help.cc, cli/cmd_bus.cc, cli/cmd_help.h, cli/parse.yy, cli/cmd_attach.cc, cli/cmd_attach.h, cli/cmd_x.cc, cli/cmd_break.cc, cli/cmd_node.cc, cli/cmd_break.h, cli/cmd_stimulus.h, cli/cmd_run.cc, cli/input.cc, cli/cmd_load.cc, cli/cmd_log.cc, cli/cmd_stimulus.cc, cli/cmd_symbol.h: - Rewrote the symbol table. * src/stimulus_orb.h, src/symbol_orb.h: Removed 2007-01-27 Borut Razem * doc/gpsimWin32, plat/win32/libgpsim.def: MSVC sync * extras/lcd/lcd.h: synced with Scott's changes 2007-01-20 Scott Dattalo * src/pic-processor.cc, src/trace.h, src/p16x5x.cc, src/12bit-processors.cc, src/p12x.cc, src/pic-processor.h, src/processor.cc, src/14bit-registers.cc, src/trace.cc, src/trigger.cc, src/intcon.cc: - Added a Trace Type for Resets and Interrupts. - Removed some deprecated trace types (e.g. TRIS and Option). - Single stepping uses the clock phase code. * regression/rt.sh: Removed outdated comment. * cli/cmd_trace.cc: added an 'info' option to the trace command. This is for displaying information about allocated trace types. It is used primarily for debugging. 2007-01-20 Scott Dattalo * gui/gui_menu.cc: Bug [1631921]. Preferences dialog box was grabbing the gtk focus and preventing child dialog boxes from having focus. 2007-01-17 Scott Dattalo * src/expr.cc: Bug [1638250]. ramData[] references in expressions were evaluating to the index of the ramData and not to the ramData contents. 2007-01-14 Scott Dattalo * cli/cmd_stopwatch.cc, cli/cmd_quit.cc, cli/scan.ll, cli/cmd_symbol.cc, cli/cmd_shell.cc, cli/cmd_version.cc, cli/cmd_help.cc, cli/cmd_bus.cc, cli/cmd_set.cc, cli/cmd_frequency.cc, cli/cmd_attach.cc, cli/cmd_dump.cc, cli/cmd_x.cc, cli/cmd_list.cc, cli/cmd_echo.cc, cli/cmd_processor.cc, cli/cmd_disasm.cc, cli/cmd_reset.cc, cli/cmd_break.cc, cli/cmd_node.cc, cli/cmd_module.cc, cli/cmd_clear.cc, cli/command.cc, cli/cmd_trace.cc, cli/cmd_icd.cc, cli/cmd_run.cc, cli/cmd_step.cc, cli/input.cc, cli/cmd_load.cc, cli/cmd_log.cc, cli/cmd_stimulus.cc, cli/command.h, cli/cmd_macro.cc: - gcc-4.2 doesn't like const char * types being assigned to char * 2007-01-14 Scott Dattalo * regression/register_stim/Makefile: Regression test wasn't running. 2007-01-14 Borut Razem * plat/win32/libgpsim.def: MSVC sync * doc/gpsimWin32, plat/win32/gpsim.nsi: added $Author: roy_r_rankin $, glib-2.12.7, gtk+-2.10.7, pango-1.14.9, NSIS v2.23 2007-01-13 Scott Dattalo * regression/p16f84/p16f84.stc: removed. The configuration file is now part of p16f84.asm * regression/p16f84/reset.asm: added. Tests resets and sleep. * regression/p16f509/reset.asm: cosmetic changes. * regression/ccp/ccp_877a.asm: made some local variables global so that I could more easily debug the clock phase changes. * regression/txisr_test/txisr_test.asm: Now captures unexpected resets. * regression/instructions_14bit/Makefile: Added branching.asm regression test * regression/instructions_14bit/branching.asm: Added. tests branching instructions. This was mainly created to debug the clock phase code for interrupts interrupting 2-cycle instructions. * regression/run_regression.sh: Added branching and reset regression tests. * src/14bit-instructions.cc: Cosmetic... * src/intcon.cc: Now interrupts are signified by calling cpu_pic->BP_set_interrupt() is called instead of bp.set_interrupt(). The purpose is to (eventually) separate interrupts from breakpoints. * src/clock_phase.h, src/clock_phase.cc: Added class 'phaseCaptureInterrupt'. As its name implies, this is part of the clock phase stuff and it's designed to handle interrupts. * src/pic-processor.cc: - Sleep is now handled by the clock phase code. - Interrupts are now handled by the clock phase code. - The run() method now only looks at the global break point flag. (Before, the sleep and interrupt states were handled with breakpoint flags.) - Added an 'ActivityState' to reflect what the processor is currently doing. This is primarily used by the 12-bit core to determine if the processor is sleeping. * src/14bit-registers.cc: cosmetic. Added debug code. * src/pic-ioports.cc: Port B wakeup on change feature was not working. * src/pic-registers.cc: Numerous clock phase related changes. Now interrupts are properly handled. Also, there was a nasty design error that prevent proper handling of interrupts during the middle of call or return statements. 2007-01-11 Borut Razem * plat/win32/make.mingw: added -Wno-format to prevent mingw build warnings: warning: unknown conversion type character `I' in format warning: int format, different type arg (arg X) warning: `I' flag used with `%x' printf format * acinclude.m4: check for the presence of the readline library. This version works also in cross-compilation environment. * plat/win32/libgpsim.def: MSVC sync 2007-01-10 Scott Dattalo * src/symbol.cc, src/symbol.h, src/stimuli.cc, src/stimuli.h: - stimulus and node symbols can now be added to the symbol table with the 'Clearable' flag turned off. * src/p16x6x.cc, src/p17c75x.cc, src/p16x8x.cc, src/p16f87x.cc, src/p16f62x.cc, src/p16x5x.cc, src/p12x.cc, src/p18x.cc, src/modules.cc, src/p16f8x.cc: - All processors were individually adding a module symbol to the symbol table. Now this is done in one place down in the Module class constructor. - The symbol table is now no longer automatically cleared whenever a processor is loaded. Previously, if you loaded a module (e.g. the usart) and then load the processor, the module's clearable symbols would be removed! There's still some work that needs to be done here. However, to do things correctly will take some time... 2007-01-08 Scott Dattalo * regression/make.regression: - Added a rule to run a regression test interactively. Suppose you have a file named 'mytest.asm'. Then the rule 'mytest.-' can be invoke like this: $ make mytest.- * regression/p16f84/p16f84.asm, regression/p16f84/Makefile: Placed the configuration script into the .asm file. * src/p16x8x.cc, src/p16x8x.h: - Added the MCLR pin to the '83 and the '84 * src/pic-instructions.cc - clock phase change - the SLEEP instruction no longer sets a breakpoint * src/pic-processor.cc, src/pic-processor.h: - Added an exit_sleep method. - Removed the external reset controls added in previous commit - Removed the WDT 'start_sleep' method. It was not being called. * src/p12x.cc: - Use the already existing config_modes structure to record whether the MCLR pin is enabled or not. * src/pic-ioports.cc: - RBIF changes now cause the processor to exit sleep. * src/14bit-processors.cc, src/14bit-processors.h: - Added MCLR support for the mid range processors. - Cleaned up config word management. 2007-01-05 Borut Razem * plat/win32/libgpsim.def: MSVC sync 2007-01-04 Scott Dattalo * port_stim/Makefile, tmr0_16bit/Makefile, spi/Makefile, logic_test/Makefile, make.regression, wavegen/Makefile, rt.sh, p12c509/Makefile, ttl/Makefile, ccp/Makefile, comparator/Makefile, txisr_test/Makefile, digital_stim/Makefile, resistor/Makefile, breakpoints/Makefile, interrupts_14bit/Makefile, node_test/Makefile, p16f84/Makefile, usart_test/Makefile, analog_stim/Makefile, eeprom_wide/Makefile, switch_test/Makefile, p18f452_ports/Makefile, macro_test/Makefile, psp/Makefile, instructions_12bit/Makefile, a2d/Makefile, instructions_14bit/Makefile, p12ce518/Makefile, instructions_16bit/Makefile, run_regression.sh, i2c/Makefile, p18f/Makefile: - Added make clean option to 'run_regression.sh' - Cleaned up the make rules * p18f/startup.stc: removed * regression/startup.stc: added 2007-01-02 Scott Dattalo * src/16bit-processors.cc, src/16bit-processors.h, src/dspic/dspic-processors.cc, src/dspic/dspic-processors.h, src/12bit-processors.cc, src/12bit-processors.h, src/14bit-processors.cc, src/14bit-processors.h: - removed 'por()' method from Processor class * src/processor.h, src/processor.cc - removed 'por()' method from Processor class. - removed unused set() and get() methods - RegisterMemoryAccess now has a reset() method. * src/14bit-registers.h, src/14bit-registers.cc - The Status_register now has a 'reset()' method. * src/pic-processor.h, src/pic-processor.cc: - Added a 'phaseIdle' to handle idle processor states. (like when reset is being held low). - added support for MCLRE - ::reset() now handles MCLR resets - WDT handles MCLR resets * src/p12x.h, src/p12x.cc: - Added support for MCLRE. Now, when GPIO3 is held low on the 12c50x processors, the CPU is held in reset. * src/clock_phase.cc, src/clock_phase.h: - Added phaseIdle class. * src/pic-registers.cc: - The program counter class now handles resets. * src/16bit-instructions.cc: removed a comment. * src/gpsim_classes.h: - Added an 'EXIT_RESET' type to the RESET_TYPE enumeration. - Removed 'PROCESSOR_STATES' enumeration. * regression/p12c509/tmr0.asm: MCLR resets are now working. 2006-12-31 Scott Dattalo * src/os_dependent.cc: Applied patch [1625380] from Jean-Etienne Lamiaud that fixes dynamic module loading on OS X. 2006-12-27 Scott Dattalo * src/Makefile.am, modules/Makefile.am, eXdbm/Makefile.am, cli/Makefile.am, Makefile.am: Applied patch from Vitaly Lipatov that fixes the linking order. patch [1621792] 2006-12-27 Scott Dattalo * src/uart.cc: applied patch from Jean-Etienne Lamiaud that supports uart framing and overflow errors. patch [1621771] 2006-12-27 Scott Dattalo * regression/analog_stim/p18f452.asm, regression/analog_stim/18f452.lkr, regression/analog_stim/Makefile, regression/run_regression.sh: - Added a regression test for analog stimuli. * cli/cmd_stimulus.cc: the 'analog' modifier for asynchronous stimuli was being ignored. Bug [1621698] 2006-12-23 Borut Razem * plat/win32/libgpsim.def: MSVC sync * modules/i2c.cc, modules/i2c.h, modules/makefile.mingw, modules/vcproj: added i2c.cc, i2c.h to the project, removed warnings * doc/gpsimWin32, plat/win32/gpsim.nsi : atk-1.12.3, glib-2.12.6, gtk+-2.10.6, pango-1.14.8, NSIS v2.22 2006-12-22 Scott Dattalo * src/p16x6x.cc, src/16bit-processors.cc, src/14bit-registers.h, src/pic-ioports.h, src/pic-instructions.cc, src/pic-registers.h, src/pic-processor.cc, src/tmr0.cc, src/tmr0.h, src/p16x5x.cc, src/12bit-processors.cc, src/p12x.cc, src/pic-processor.h, src/p18x.cc, src/14bit-registers.cc, src/16bit-registers.cc, src/pic-ioports.cc, src/pic-registers.cc, src/12bit-processors.h, src/14bit-processors.cc, src/14bit-processors.h: - Option register is no longer a member of the pic_processor base class. The 12-bit and 14-bit separately declare an option register member and dynamically construct it. - Moved OPTION_REG from 14bit-registers to pic-registers - TMR0 now has a pointer to the option register (as opposed to directly referencing the option register in the cpu class). - TMR0 for 16-bit cores was using the option register instead of the T0CON during initialization - The TRIS register resets to all 1's for the 12-bit and 14-bit cores during WDT resets. However, it remains unchanged for the 16-bit cores. A flag was added to the PicTrisRegister base class to describe what action should be taken during WDT resets 2006-12-22 Scott Dattalo * regression/12c509/tmr0.asm: (This file is going to change names!). Testing various reset modes. 2006-12-22 Scott Dattalo * modules/stimuli.h, modules/stimuli.cc: Added an 'initial' attribute to the pulsegen module that allows the initial pin voltage to be specified. 2006-12-20 Scott Dattalo * cli/cmd_load.cc: Fixed missing end-of-line string continuation 2006-12-20 Scott Dattalo * gpsim/main.cc: added a -I option to the gpsim invocation. This is identical to the '-c' option except that it will not change the current working directory. The '-c' option automatically changes directories to where ever the included script resides. * src/input.cc, src/cmd_load.cc: now scripts residing in other directories can be loaded in such a way as to not cause a directory change. From gpsim's command line, the 'load' command now supports a 'i' option. 2006-12-20 Scott Dattalo * src/12bit-processors.cc, src/p12x.cc, src/p12x.h: Config word stuff was broken. * regression/p12c509/tmr0.asm: Converted into relative mode code. * regression/p12c509/Makefile, regression/p12c509/12c509.lkr: Added. This is in preparation for testing SLEEP and WDT for the 12bit cores. 2006-12-19 Scott Dattalo * modules/i2c.h, modules/i2c.cc, modules/Makefile.am: Added an i2c master module. Currently can only be driven with attributes. 2006-12-18 Scott Dattalo * src/pic-ioports.cc, src/p16f8x.cc, src/ioports.cc, src/pic-ioports.h: 2006-12-14 Scott Dattalo * src/trace.cc: command line tracing now 1) only display the last instruction traced after a step (instead of the last 2 instructions) and 2) the source line for the instruction. 2006-12-14 Scott Dattalo * src/ioports.h, src/ioports.cc: Added an 'updatePins()' method to the PortModule class. This provides a way of updating just a subset of the port pins. 2006-12-01 Borut Razem * modules/stimuli.cc: access trace object indirectly by using get_trace() * plat/win32/libgpsim.def: MSVC sync 2006-11-27 Scott Dattalo * src/pic-ioports.h, src/ioports.cc, src/pic-ioports.cc: - Improved class member initialization. Specifically, the pin enable mask was not getting set properly. * modules/gpsim_modules.cc, modules/stimuli.cc, modules/stimuli.h: - Added 16-bit and 32-bit versions of the parallel port stimulus - Added a 'pullup' register to the port stimulus. - Changed the parallel port stimulus I/O pins to IO_bi_directional_pu * regression/port_stim/port_stim.asm - The parallel port stimulus regression test now tests the module's pullup resistors. 2006-11-22 Scott Dattalo * src/interface.cc: start_simulation() is now incorporating functionality previously implemented in Processor::run(). * gui/gui_src.cc, gui/gui_src_asm.cc, gui/gui_menu.cc: The gui now starts a simulation by calling gpsim_interface::start_simulation() instead of active_cpu->run() * src/pic-processor.cc, src/clock_phase.cc, src/clock_phase.h, src/pic-registers.cc: The ClockPhase::setNextPhase() method is no longer virtual. 2006-11-21 Scott Dattalo * regression/TODO: Added. 2006-11-21 Scott Dattalo * src/ValueCollections.h, src/ValueCollections.cc: Added a new constructor for IIndexedCollection objects that allow for named Value object collections. 2006-11-20 Scott Dattalo * src/ValueCollections.h: SetAt method in the IndexedCollection template was using a '<=' where a '>=' should have been used instead. 2006-11-19 Scott Dattalo * src/clock_phase.cc, src/clock_phase.h, src/16bit-processors.cc, src/pic-processor.cc, src/processor.cc, src/pic-registers.cc: - Added support for interrupt phases in the new external clock feature. More work is still needed and still, //#define CLOCK_EXPERIMENTS Is commented out. - So this new code is inhibited by default. 2006-11-17 Borut Razem * src/makefile.mingw, src/src.vcproj: MSVC sync 2006-11-17 Scott Dattalo * src/clock_phase.h, src/clock_phase.cc: Added. Defines the ClockPhase class, which is a base class for supporting external processor clocks. Note, this could is currently experimental and is inhibited. To enable it, uncomment the line //#define CLOCK_EXPERIMENTS in clock_phase.h * src/pic-instructions.cc, src/pic-processor.cc, src/Makefile.am, src/processor.cc, src/16bit-registers.cc, src/pic-registers.cc, src/16bit-instructions.cc: - Support for external processor clocks. This is partially implemented and currently inhibited. 2006-11-16 Scott Dattalo * src/pic-instructions.cc, src/pic-instructions.h: .lst line numbers were not getting set properly for instructions containing assertions. 2006-11-15 Scott Dattalo * src/breakpoints.cc: post assertions are now displayed as such when they're triggered. Still need to have the breakpoint messages to display the postAssertion modifer. * src/value.cc: Added a diagnostic message. 2006-11-14 Scott Dattalo * cli/parse.yy, cli/cmd_break.cc, cli/cmd_break.h, src/gpsim_time.cc: 2006-01-02 I disabled the ability to set attribute breakpoints. That feature.has now been re-enabled. * regression/breakpoints/breakpoints.asm: Added a regression test for the stopwatch attribute breakpoint 2006-11-13 Scott Dattalo * gui/gui_trace.cc, gui/gui_profile.cc, gui/gui_menu.cc, gui/gui_scope.cc, gui/gui_stopwatch.cc, cli/socket.cc, modules/usart.cc, src/stimuli.cc, src/eeprom.cc, src/pic-processor.cc, src/uart.cc, src/tmr0.cc, src/gpsim_time.cc, src/pm_rd.cc, src/ssp.cc, src/14bit-tmrs.cc, src/processor.cc, src/14bit-registers.cc, src/16bit-registers.cc, src/trace.cc, src/a2dconverter.cc, src/breakpoints.cc, src/interface.cc, src/gpsim_time.h, src/i2c-ee.cc: - The 'value' member of the Cycle_Counter class is now private. 2006-11-12 Borut Razem * doc/gpsimWin32.html: use readline 5.1. Packages are available at http://gpsim.sourceforge.net/gpsimWin32/packages/readline-5.2-20061112-src.zip, http://gpsim.sourceforge.net/gpsimWin32/packages/readline-5.2-20061112-lib.zip, http://gpsim.sourceforge.net/gpsimWin32/packages/readline-5.2-20061112-bin.zip, cairo-1.2.6, glib-2.12.4, pango-1.14.5, NSIS v2.21 2006-11-11 Rob Pearce * regression/interrupts_14bit: modified PORTB change on state test to check for interrupts on both edges * src/processor.cc, src/processor.h, regression/usart_test: change of cpu frequency now propagates to other timings. Second USART test modified to set lower CPU clock to validate this 2006-11-11 Borut Razem * doc/gpsim.css, doc/spsimWin32.html: renamed from gpsimWin32.css * doc/index.html, doc/snap_header.html, doc/snap_footer.html, doc/snap.php: added * doc/gpsim.css, doc/gpsimWin32.html, doc/gpsim.html, doc/gpsim_svn.html: XHTML1 compatible * makefile.mingw: claen performs also clean-extras 2006-11-10 Scott Dattalo * ANNOUNCE: Updated for 0.22.0 release. Note that Borut created an 0.22.0 SVN tag that corresponds to revision 1827. 2006-11-10 Borut Razem * configure.ac, doc/gpsimWin32.html, extra/graphic_lcd/configure.ac, gpsim.spec.in, gui/gui_menu.c, modules/README: corrected all url-s from http://www.dattalo.com/gnupic/gpsim.html to http://gpsim.sourceforge.net/gpsim.html * regression/*.lkr, regression/*.asm, regression/Makefile, src/p16f8x.*, src/pm_rd.*, src/psp.*: added svn properties svn:eol-style native, svn:keywords "Author Date Id Revision" * plat/win32/gpsim.nsi, plat/win32/makefile.mingw: extract PRODUCT_WEB_SITE from ../../configure.ac * doc/gpsim.html, doc/gpsim_svn.html, doc/gpsim.ico: added favicon * doc/gpsim.html: applied patch from David Barnett: "I added the F73 and F74, removed the PIC17's, fixed a typo and changed the modified date" 2006-11-09 Scott Dattalo * configure.ac, extras/graphic_lcd/configure.ac: 0.22.0 Release 2006-11-09 Scott Dattalo * doc/gpsim.lyx: Added module documentation, macro documentation, scripting documentation, and examples documentation 2006-11-08 Scott Dattalo * doc/gpsim.lyx: Added module documentation and in particular the USART module. 2006-11-08 Borut Razem * extras/graphic_lcd/src/glcd_100X32_sed1520.cc, extras/lcd/hd44780.cc, extras/lcd/hd44780.h, extras/lcd/lcd.cc, extras/lcd/lcdgui.cc, extras/lcd/module_manager.cc: removed compiler warnings * doc/gpsim.html, doc/gpsim_svn.html: changed encoding to UTF-8 * plat/win32/gpsim.nsi: changed PRODUCT_WEB_SITE URL and PRODUCT_VERSION 2006-11-08 Scott Dattalo * src/breakpoints.cc: Fixed compiler warning. 2006-11-08 Borut Razem * plat/win32/libgpsim.def: MSVC sync * doc/gpsim_svn.html, doc/gpsim.html: doc/gpsim_cvs.html renamed to doc/gpsim_svn.html 2006-11-08 Scott Dattalo * src/processor.cc: Fixed -p command line option. (actually, there is still an issue with gpsim using the -p option to find the processor, but then naming the processor something else.) 2006-11-08 Scott Dattalo * configure.ac: 0.22.0-RC4 - release candidate 4 * doc/gpsim.html: fix broken links. * README, INSTALL: Minor documentation changes pertaining to 0.22.0 2006-11-08 J.R. Heisey * cli/cmd_macro.cc: - Made some of the macro command console output conditional on the verbose variable to clean up the console output. - Enhanced the console output of the cmd_macro::end_define(). * src/breakpoints.cc: Added call in Breakpoints::set_breakpoint() to Processor::NotifyBreakpointSet() to help with the integration of processors defined in their own dynamic library. 2006-11-07 Scott Dattalo * gui/gui_regwin.cc: EEPROM window abort bug fixed on 2006-11-04 had a flaw. Hopefully that's been fixed now. (The problem was that the fix assumed if the maxrow member of the register_sheet was 0 that there were no cells in the sheet. However, in the gtksheet widget, maxrow can be 0 if there's only 1 row!) 2006-11-07 Scott Dattalo * gui/gui_symbols.cc, gui/gui_src_asm.cc: Changed the way glib lists were deallocated. This removes a glib compile warning. 2006-11-07 Scott Dattalo * src/16bit-registers.h, src/16bit-registers.cc, src/p16x6x.h, src/p16x6x.cc, src/p16f87x.h, src/p16f8x.h, src/16bit-processors.h, src/16bit-processors.cc, src/p16f62x.h, src/p16f62x.cc, src/uart.h, src/uart.cc: - Removed USART_MODULE14 and USART_MODULE16 classes. All they were doing was declaring a 'cpu' pointer, but they weren't even using it. - All member functions of the USART_MODULE class are now non-virtual. 2006-11-06 Rob Pearce * src/stimuli.cc: Fixed the p12ce51x I2C-EE bug - it was due to a stimulus initialisation error caused by bit rot in the node summing function for the single stimulus connected case! 2006-11-06 David Barnett * modules/gpsim_modules.cc: The push_button is named as "push_button" in push_button.h, but "pushbutton" in gpsim_modules.cc. This had the effect that "module load push_button was saved into the netlist file, but "module type push_button not created" would display when loading the netlist. 2006-11-06 Scott Dattalo * doc/gpsim.html, doc/gpsim_cvs.html: Fixed links. Changed CVS references to SVN. 2006-11-05 Scott Dattalo * src/uart.cc, src/uart.h: TXIF is now only gets set if both TXEN and SPEN are set. The USART_MODULE class interface was redesigned slightly to simplify accesses to the various registers associated with the USART. * src/p16f62x.cc, src/16bit-registers.cc, src/p16f8x.cc, src/16bit-registers.h, src/p16x6x.cc, src/p16f87x.cc, src/16bit-processors.cc: - Adapted new USART_MODULE interface. * regression/usart_test/usart_pir1v1.asm, regression/usart_test/usart_pir1v2.asm: - The usart regression test noew makes sure that TXIF is not set before TXEN and SPEN are set. 2006-11-05 Scott Dattalo * src/trigger.cc, src/trace.cc, src/breakpoints.cc: Cleaned up trace printing of traced breakpoints. 2006-11-04 Borut Razem * plat/win32/libgpsim.def: MSVC sync 2006-11-04 Scott Dattalo * src/cod.cc, src/pic-processor.cc: Applied variation of patch submitted by David Barnett that prepends processor name with a 'p' if the name begins with a digit in the .cod file 2006-11-04 Scott Dattalo * gui/gui_breadboard.cc: Patch from Ralf that fixes coordinates of components selected in the breadboard. 2006-11-04 Scott Dattalo * gui/gui_regwin.cc: gpsim was aborting if eeprom window was opened while a processor without an eeprom was loaded. David Barnett reported this bug. 2006-11-04 Scott Dattalo * cli/input.cc: Typo in preprocessor ifdef. This was discovered while applying a patch from the Gentoo distro. (The patch had already independently been applied, yet the typo hadn't been noticed until this new patch had been submitted.) 2006-11-03 Scott Dattalo * src/trace.cc, src/trace.h, src/dspic/dspic-registers.cc, src/12bit-processors.cc, src/processor.cc, src/14bit-processors.cc, src/14bit-registers.cc, src/16bit-processors.cc, modules/stimuli.cc - TraceType constructors are only initialized with size (and not with type). - Trace entry allocation now gets size request from TraceType class. * src/trigger.cc, src/breakpoints.h, src/breakpoints.cc: Trigger action implementation for special breakpoints has been enhanced to take advantage of multiple trace entries. 2006-11-01 Scott Dattalo * src/trigger.cc, src/trigger.h, src/breakpoints.h, src/breakpoints.cc, src/trace.h, src/trace.cc: - Cleaned up breakpoint tracing. - Added TriggerObject::invokeAction() method to handle the default behavior of invoking a trigger object action and handling the tracing. - Moved the BreakTraceType and BreakTraceObject classes from breakpoints.cc to trigger.cc (probably should rename these?) * src/pic-processor.cc: Change the default Integer type output width to 2 characters. (At 8 characters, there were a lot of 0's.) * src/gpsim_object.cc: toString(char*,int) now returns something. 2006-11-01 Scott Dattalo * src/breakpoints.cc: Fixed core dump for breakpoint expressions that are entered improperly. 2006-11-01 Ralph Neider * modules/gpsim_modules.cc: push_buttons are now ignored when gpsim is built without the gui. 2006-11-01 Scott Dattalo * acinclude.m4: Patch from sf user iggie that fixes check for readline 5.2 2006-11-01 Borut Razem * plat/win32/libgpsim.def: MSVC sync 2006-11-01 Roy Rankin * src/pic-processor.cc: Removed p17c7xx processor family from processor list as code does not work 2006-10-31 Scott Dattalo * src/trace.h, src/trace.cc: TraceType type() now takes an argument that allows a user to select a particular subtype. * src/trigger.h, src/trigger.cc, src/breakpoints.cc, src/breakpoints.h: More breakpoint tracing changes. Execution break points are now displayed in the raw trace buffer. 2006-10-28 Scott Dattalo * src/trace.h, src/trace.cc: Raw trace dumps were cleaned up more. The cycle trace is now decoded in a fashion similar to other trace types. * src/breakpoints.cc: Began design for BreakTraceType and BreakTraceObject. 2006-10-30 Roy Rankin * src/ssp.cc : fixed improper use of type bool * regression/p12ce518/p12ce518.asm : correct error in test 2006-10-22 Borut Razem * plat/win32/gpsim.nsi: removed doc/*.html, added doc/screenshots/*, added extras\graphic_lcd\doc\* * plat/win32/libgpsim.def: MSVC sync * gui/gui.vcproj: generate config.h from config_win32.h.in * cli/cmd_log.cc, cli.socket.cc, gui/gui_menu.cc, gui/gui_scope.cc, gui/gui_src_asm.cc, modules/led.cc, modules/stimuli.cc, modules/switch.cc, src/12bit-processors.cc, src/14bit-processors.cc, src/16bit-processors.cc, src/comparator.cc, src/p16f8x.cc, src/spp.cc: fixed warning 2006-10-28 Scott Dattalo * cli/cmd_load.cc: used a different version of the toString() method in the load command 2006-10-28 Scott Dattalo * src/trace.h, src/trace.cc, src/12bit-processors.cc, src/14bit-registers.cc: - Added a CycleTraceType - Now trace type classes do not add themselves to the current trace frame whenever their decode() methods are called. 2006-10-25 Scott Dattalo * gui/gui_src_asm.cc: Source browser page ptr is not ignored when symbolic debugging is unavailable. * cli/parse.yy: Assigning a non-quoted value to one of the scope channel attributes was causing an abort. * src/pic-instructions.h, src/14bit-instructions.cc, src/pic-instructions.cc, src/16bit-instructions.h, src/16bit-instructions.cc: - Instruction class constructors now initialize all of their data memmbers. * doc/gpsim.html: Fixed some missing links. 2006-10-25 Steffen Joeris * modules/paraface.cc: Patch from Debian Etch release that enables certain Free BSD builds. 2006-10-24 Scott Dattalo * src/trace.cc: Added detailed comments on TraceFrames, TraceTypes, and TraceObjects. 2006-10-23 David Barnett * src/12bit-processors.cc: Fixed extra qualifier bug in the OptionTraceType class. 2006-10-23 Scott Dattalo * AUTHORS: Added Roy to the list :) * regression/Makefile.am: added the i2c regression tests to the distribution * configure.ac: RC2 - release candidate 2 * README.EXAMPLES: this was totally out of date and still needs to be cleaned up. * README: changed revision info, made minor changes. 2006-10-23 Scott Dattalo * src/14bit-processors.cc, src/12bit-processors.cc, src/12bit-processors.h, src/trace.h, src/trace.cc: The OPTION register now has its own trace object * doc/gpsim.lyx: Minor documentation updates * doc/gpsim.html: Placing gpsim web page under CVS control. * doc/screenshots/breadboard.png: added * doc/screenshots/registerview.png: added * doc/screenshots/scope1.png: added * doc/screenshots/scope2.png: added * doc/screenshots/source_browser.png: added 2006-10-23 Roy Rankin * src/p16x6x.h src/ioports.h src/p16x6x.cc src/p16f87x.cc src/i2c-ee.cc src/ssp.h src/pir.cc src/pir.h src/ssp.cc src/p18x.cc src/p16f8x.cc regression/run_regression.sh regression/i2c/p16f876a.asm regression/i2c/16f88.lkr regression/i2c/i2c_low.inc regression/i2c/16f876a.lkr regression/i2c/p16f88.asm regression/i2c/Makefile - Add I2C functionality 2006-10-22 Borut Razem * */.cvsignore: removed CVS leftovers * modules/stimuli.cc: trace.* replaced with get_trace().* the getter function instead of direct object access should be used in modules * plat/win32/sdcc.nsi: added examples/modules/*/README to the setup package 2006-10-19 Scott Dattalo * regression/Makefile.am: Added * configure.ac, extras/graphic_lcd/configure.ac, Makefile.am, examples/Makefile.am: Changed revision from 0.21.12-pre to 0.22.0-RC1. 2006-10-18 Scott Dattalo * src/processor.cc, src/processor.h: - insertRegister() and removeRegister() methods of the RegisterMemoryAccess class now return bool. * src/breakpoints.cc: deleted commented out code. * modules/stimuli.cc, modules/stimuli.h: Implemented the register mapping functionality. * cli/parse.yy: improved the reg() operator syntax. It used to be that only integer operands were accepted. Now, expressions are accepted. * regression/port_stim/18f452.lkr: added * regression/port_stim/Makefile: added * regression/port_stim/port_stim.stc: added * regression/port_stim/port_stim.asm: added * regression/run_regression.sh: Added a regression test for the port_stimulus module. 2006-10-17 Scott Dattalo * examples/projects/stack_test/stack_test.asm, examples/projects/stack_test/stack_test.stc, examples/projects/stack_test/Makefile, examples/projects/digital_stim/digital_stim.stc, examples/projects/digital_stim/digital_stim.asm, examples/projects/digital_stim/Makefile, examples/projects/p16f628_test/f628.asm, examples/projects/p16f628_test/Makefile, examples/projects/p16f628_test/f628.stc: - Clean up examples. * configure.ac: Removed the 12bit, 14bit, and 16bit subdirectories from the list of packaged directories. The example code there is old and needs a whole lot of work to get working. 2006-10-17 Scott Dattalo * examples/modules/Makefile.am, examples/modules/usart_test/usart_test.asm, examples/modules/mod_test/mod_test.stc, examples/modules/usart_test/Makefile: - updated examples * examples/modules/led_test/README: added * examples/modules/led_test/Makefile: added * examples/modules/logic_test/README: added * examples/modules/usart_test/README: added * examples/modules/mod_test/README: added * examples/modules/usart_test/usart.asm: removed 2006-10-17 Scott Dattalo * src/ssp.cc: Fixed uninitialized class data. 2006-10-17 Scott Dattalo * src/breakpoints.h, src/breakpoints.cc, src/processor.h, src/processor.cc, src/registers.cc, src/registers.h: Moved the register breakpoint clearing and setting functionality from the register breakpoint classes to the RegisterMemoryAccess. The purpose of this is to allow other types of register objects (besides break points) to replace registers. * modules/gpsim_modules.cc, modules/stimuli.cc, modules/stimuli.h: Added the parallel port stimulus. This stimulus is identical to a PIC port register in that it has a PORT, TRIS, and LATCH register. Users can control the state of the parallel port stimulus in one of two ways. First, there are user accessible attributes (eg port.latch can be assigned a value). Second, (and this is not completed yet) the user can embed the parallel stimulus into the register memory map. This allows the parallel stimulus to be accessed programmatically (that is from within the PIC assembly code). This allows an assembly program to directly control the simulation environment. 2006-10-17 Scott Dattalo * src/trace.cc, src/trace.h: Changed an empty trace entry from 0 to 0x3fffffff. This provides away to differentiate between an empty trace entry and an uninitialized trace type. 2006-10-17 Scott Dattalo * src/pic-ioports.h, src/pic-ioports.cc, src/16bit-processors.cc, src/16bit-processors.h: Moved the PicLatchRegister class from the 16bit-processor definitions to the pic-ioport definitions. 2006-10-16 Scott Dattalo * gui/gui_src_asm.cc: Renamed the popup menu item function 'Run here' to 'Run to here'. 2006-10-15 Scott Dattalo * gui/gui_src_asm.cc: The popup menu item function 'Move PC here' was not updating the program counter. 2006-10-15 Scott Dattalo * src/trace.h, src/trace.cc: - Added classes for tracing module events. - Fixed a couple of bugs with invalid trace objects being created. Also, invalid trace entries were causing the trace dump to be aborted. * src/16bit-instructions.cc: Removed commented out code * src/dspic/dspic-processors.cc, src/processor.h, src/pic-processor.cc, src/registers.cc, src/ioports.cc, src/processor.cc, src/14bit-registers.cc, src/registers.h: The interface to the trace buffer changed slightly. Also, registers were improperly allocating trace objects. * doc/gpsim.lyx: Added some more documentation. 2006-10-08 Scott Dattalo * modules/switch.cc, modules/switch.h: separated out the gui specific portions of the switch into another class. 2006-10-04 Scott Dattalo * modules/switch.cc: Switch resistance has successfully been reintroduced * regression/switch_test/switch_test.asm: Added a test to test the switch resistance. Note, there are no assertions set on the test because currently there is no way to query the node voltage directly. 2006-10-02 Borut Razem * gpsim.sln, cli/input.cc, cli/cli.vcproj, cli/makefile.mingw, gpsim/gpsim.vcproj, gpsim/makefile.mingw, plat/win32/gpsim.nsi: use readline 5.1. Packages are available at http://gpsim.sourceforge.net/gpsimWin32/packages/readline-5.1-20061001-src.zip, http://gpsim.sourceforge.net/gpsimWin32/packages/readline-5.1-20061001-lib.zip, http://gpsim.sourceforge.net/gpsimWin32/packages/readline-5.1-20061001-bin.zip * doc/gpsimwin32.html: readline 5.1 2006-09-29 Scott Dattalo * modules/switch.cc, modules/switch.h: Trying to reintroduce switch on resistance. * modules/gpsim_modules.cc, modules/resistor.cc, modules/resistor.h: minor clean ups * regression/switch_test/switch_test.asm: Additional comments. Tried to add a test to test switch on resistance... 2006-09-25 Borut Razem * src/sdc.vcproj, src/makefile.mingw: added pm_rd.* to the project 2006-09-21 Dave Barnett * src/pm_rd.cc, src/pm_rd.h: Support for midrange device's program memory read feature. * p16x7x.cc, src/p16x7x.h, src/pic-processor.cc, src/pic-processor.h, src/Makefile.am: Added support for the P16F73 and P16F74 * src/ssp.cc: Fixed typo in printf statement 2006-09-19 Scott Dattalo * src/pic-processor.cc, src/p16f62x.cc, src/p16f62x.h: Added the p16f624 and the p16f624a 2006-09-19 Scott Dattalo * src/pic-processor.cc, regression/p16f628/p16f628.asm: Added the p16f627a and p16f628a processors. Note that these are identical to the non-A versions. 2006-09-10 J.R. Heisey * src/ValueCollections.h: Added indexing operator to class IIndexedCollection. * src/sim_context.cc,h: Added function CSimulationContext:: GetCycleCounter(). * src/modules.cc,h : Added functions to class ModuleLibrary: GetLibraryFileHandle() and GetLibraryFunction(). * gui/gui_src_asm.cc, gui/gui_src.h: - Rescoped several functions into classes to help me keep track of their context. Especially the callbacks. - Implemented the popup menu items: Settings, Find PC, Move PC here, Run here, Breakpoint here, Profile start here, Profile stop here, and most importantly Add to Watch. - Note that the Font selection dialog doesn't seems to actually change the font. It appears to be the same with the old GUI. I haven't checked into it. - Changed the font selection dialog and the settings dialog to use the gtk_dialog_run() function. This fixed an issue when the close (upper right X) button was used the underlying window would be deallocated. This caused the window to never appear again requiring restarting gpsim. 2006-09-03 Scott Dattalo * gui/gui_scope.cc, gui/gui_scope.h: Signal name editing now works. Screen updates for signal names have been fixed. 2006-09-03 Borut Razem * doc/gpsimWin32: glib-2.12.1, gtk+-2.8.20, cairo-1.2.2 2006-08-27 Scott Dattalo * gui/gui_scope.cc, gui/gui_scope.h: - Time axis is now shown. Major and Minor tick marks and the corresponding grid lines are drawn. 2006-08-21 Scott Dattalo * gui/gui.h: KeyEvent now differentiates presses and releases. * gui/gui_src.cc: Update KeyEvent objects. * gui/gui_scope.cc, gui/gui_scope.h: Numerous enhancements: - Added support for markers - Wave pixmaps are now 1024 pixels wide. This primarily fixes a round off error in the binary search routine - Scroll thumb now adjust size based on amount of waveform plotted - Hot key functionality: z -- Zoom in Z -- Zoom out r -- pan right l -- (lowercase ell) pan left - Glitches are now plotted - High frequency events (i.e. events for which there is inadequate monitor resolution to completely show) are plotted in a different color. - Reomved the Pane widget - it was holding the waveforms and just eating up space. - Added WaveBase in anticipation of different types of waveforms. * src/bitlog.h, src/bitlog.cc: The ThreeStateLogger can now return the number of events occurring between two time intervals or between two event indices. (Used for high frequency measuring). 2006-08-08 Scott Dattalo * gui/gui_main.cc: Now scope window is updated when simulation stops. * gui/gui_src_asm.cc: Refresh gui menu when src window changes hidden state. * gui/gui_scope.cc: Redesigned scope window layout. Adding scrolling. 2006-08-06 Roy Rankin * regression/spi regression/spi/p16c62.asm regression/spi/16f88.lkr regression/spi/p18f242.asm regression/spi/16c62.lkr regression/spi/p16f88.asm regression/spi/Makefile regression/spi/18f242.lkr regression/run_regression.sh src/16bit-registers.h src/p16x6x.h src/p16x6x.cc src/p16f87x.cc src/16bit-processors.cc src/ssp.h src/14bit-tmrs.h src/ssp.cc src/ioports.cc src/14bit-tmrs.cc src/p18x.cc src/16bit-registers.cc src/p16f8x.cc src/16bit-processors.h: - Serial Peripheral Interface (SPI) 2006-07-31 Scott Dattalo * src/pic-ioports.cc: RBIF was not handled correctly when the change on interrupt was due to a write to PORTB. * regression/interrupts_14bit.asm: Add a check for the RBIF flag getting set correctly. * arc/p16x8x.cc: W was not getting added to the symbol table. 2006-07-30 Scott Dattalo * cli/cmd_log.cc: Cleaned up help description. 2006-07-30 Scott Dattalo * cli/parse.yy, cli/cmd_log.h, cli/cmd_break.cc, cli/cmd_break.h, cli/cmd_log.cc, src/gpsim_object.cc, src/value.h, src/value.cc, src/expr.h, src/expr.cc, src/trace.h, src/trace.cc, src/registers.h, src/breakpoints.h, src/breakpoints.cc, src/symbol.h, src/gpsim_object.h, src/operator.cc, src/operator.h, src/symbol.cc: - Fixed logging. The logging feature has been broken for a long time. The old code that performed logging has been mostly removed. The new logging code is similar to the breakpoint code. It utilizes TriggerActions.to perform the logging operations. - (The profiling feature is currently broken too. However, it should be possible to utilize TriggerActions for profiling). 2006-07-30 Scott Dattalo * gui/gui_scope.cc, gui/gui_scope.h: development snap - still not complete 2006-07-29 Borut Razem * cli/cli.vcproj, gpsim/gpsim.vcproj, gui/gui.vcproj, modules/modules.vcproj: added cairo dependency, clening * plat/win32/libgpsim.def: MSVC sync * src/i2c-ee.c, modules/i2c-eeprom.c: removed compiler warnings 2006-07-26 Roy Rankin * src/i2c-ee.h src/i2c-ee.cc modules/i2c-eeprom.cc modules/i2c-eeprom.h modules/gpsim_modules.cc: - Added I2C EEprom modules for 24xx024, 24xx16b, 24xx256 2006-07-24 Borut Razem * cli/makefile.mingw, cli/cli.vcproj: define HAVE_SOCKETS - sockets are enabled on WIN32 * plat/win32/libgpsim.def, src/src.vcproj: MSVC sync * doc/gpsimWin32: glib-2.10.3, gtk+-2.8.18, pango-1.12.3 2006-07-23 Scott Dattalo * cli/socket.cc: Re-enabled the socket interface. * examples/scripts/makefile: Hmm, for some reason pango is now required to build the examples. 2006-07-22 Rob Pearce * src/Makefile.am Added a2dconverter.h to the headers list, so that it's included in the tarball built by make dist 2006-07-14 Roy Rankin * src/p18x.h src/p18x.cc src/pic-instructions.cc src/pic-processor.cc src/pic-processor.h: - P18F248 now based on P18F242, P18F448 added based on P18F424 * src/p16x6x.cc: remove debug output 2006-07-12 Scott Dattalo * cli/parse.yy, cli/input.cc: Previously, the parser would abort parsing upon detection of syntax errors. Now the parser will only ignore the erroneous lines. The difference mainly applies to scripts. 2006-07-11 Scott Dattalo * gui/gui_scope.h, gui/gui_scope.cc: Added scope.zoom and scope.pan attributes that allow the image in the scope window to be panned and zoomed. * src/makefile.mingw: added the new psp.cc file. 2006-07-11 Roy Rankin * src/p16x6x.h src/p18x.h src/p16x6x.cc src/pic-ioports.h src/Makefile.am src/psp.cc src/p18x.cc src/psp.h src/pic-ioports.cc regression/psp/18f452.lkr regression/psp/16f871.lkr regression/psp/p18f452.asm regression/psp/p16f871.asm regression/psp/Makefile regression/run_regression.sh: - Add PSP functionality to 40 pin processors based on P16C64 & P18C4x2 2006-07-08 Scott Dattalo * makefile.mingw, plat/win32/make.mingw: Created a 'make depend' rule for the win32 makefiles. Here's how it works; first create the dependency file: $ make -f makefile.mingw depend This will create a file named 'mf' in each directory. Now gpsim can be built by: $ make -f mf (Note: There is a bug with make depend in the modules directory). 2006-07-08 Scott Dattalo * gui/gui_scope.cc, gui/gui_scope.h, gui/gui.h, gui/gui_src.cc: - Moved the KeyEvent class definition to gui.h. - Moved gui_scope local declarations to Scope_Window class. 2006-07-07 Scott Dattalo * gui/gui_scope.cc: Added a GtkEntry widget to hold scope signal names. Now signals can be specified either through the GtkEntry or by the command line attributes. 2006-07-06 Scott Dattalo * gui/gui_scope.cc: IOPINs can now be attached to scope channels. The attachment can only be made at the command line: gpsim> scope.ch0="porta0" Everytime the state of porta0 is changed, the event will also be sent to the scope window where it will get logged and displayed. (Note, the quotes are necessary to prevent gpsim from evaluating the pin name.) * regression/logic_test/logic_test.asm: The logic OR gates connected to porta0,porta1,porta2,portc0 are now displayed in the scope window. 2006-07-05 Scott Dattalo * src/stimuli.h, src/stimuli.cc: Added a virtual destructor to the PinMonitor class. * src/16bit-processors.h, src/16bit-processors.cc, src/pic-ioports.cc, src/processor.cc, src/gpsim_object.cc: minor changes to remove compiler warnings. * gpsim/CopyDlls.bat: This bat file copies the DLLs for the win32 builds to the gpsim/gpsim. A few more DLLs were added to the list. 2006-07-05 Scott Dattalo * plat/win32/make.mingw: Added an option to use ccache for mingw builds. Unfortunately, for this to work well the makefile dependencies also need to be implemented correctly. 2006-07-04 Roy Rankin * src/p16x6x.h src/p16x6x.cc src/p16f87x.cc src/p16f87x.h src/pir.cc src/pir.h src/comparator.h src/a2dconverter.h src/comparator.cc regression/comparator/compar_877a.asm: - Fixes involving PIR_SET 2006-07-03 Borut Razem * cli/cli.vcproj, src/src.vcproj, src/makefile.mingw, plat/uxtime.cc, plat/uxsleep.cc, plat/uxtime.h: uxtime.cc splitted to uxtime.cc and uxsleep.cc, since gettimeofday() is now declared in mingw 2006-07-01 Scott Dattalo * gui/gui_menu.cc, gui/gui_scope.cc, gui/gui_processor.cc, gui/gui_main.cc: - resurrected the scope window. - ThreeStateEventLogger logs traced states. - Implemented an efficient bisecting algorithm for mapping events states onto the plotting window. - Created attributes: scope.ch0 - scope.ch7 specify nodes that are to be monitored scope.start and scope.stop specify the range of time to be viewed. Currently, the scope window cannot display real data. Instead, it will synthesize test data. The scope.start and scope.stop attributes do work. * src/ioports.h, src/stimuli.h, src/stimuli.cc, src/ioports.cc: - Moved the SignalSink class to stimuli.h - Introduced addSink and removeSink methods to the PinMonitor class. - Removed references to 'OLD_IOPORT_DESIGN' * src/bitlog.cc, src/bitlog.h: The ThreeStateEventLogger class now has a flag to indicate when the event buffer is empty. Previously, a "bogus" time was placed at position 0, however this broke the logic that searches for events at particular times. * src/symbol.cc: Added a debug message. 2006-07-01 Scott Dattalo * cli/Makefile.am: Applied patch 1470810 which adds the readline library to list of libraries linked with the cli library. 2006-06-22 Borut Razem * extras/usart_con/*: removed from svn * makefile.mingw, plat/win32/gpsim.nsi: removed usart_con * modules/usart.cc, modules/usart.cc: added possibility to write to the console using the boolean attribute "console = true | false" * examples/modules/usart_gui/usart_gui.asm: send only '\n' for the newline, introduced putchar procedure, ... 2006-06-21 Roy Rankin * regression/usart_test/usart_pir1v1.asm, regression/usart_test/usart_pir1v2.asm: - Check PIC TX pin is high when first set to output. * src/pic-ioports.cc: Portb, allow driving state to be set even when bit is set. * src/tmr0.cc: Fix call of clear_break. 2006-06-16 Scott Dattalo * src/14bit-tmrs.h, src/14bit-tmrs.cc: TMR2 wasn't getting properly initialized when the TMR2ON bit in T2CON was getting set. * TODO: Removed the "Source Browser Search" todo item 2006-06-13 Borut Razem * CVSROOT: removed the CVS left-over * extras/usart_con/usart_con.cc: print control characters in <%02X> format * gui/gui_src_asm.cc: added strcasestr() function 2006-06-16 Scott Dattalo * TODO: Cleaned up the TODO list. * gui/gui_src_asm.cc, gui/gui_src.h: Implemented the Source Browser "Find" dialog box. When the new source browser had been re-written, this feature was ommitted. The dialog supports forward and backward searches and case sensitivity. The search history feature is not currently working (was it ever?). Also, it'd be useful to have a "search all files" feature. * gui/gui_menu.cc: Minor change to TextStyle API. 2006-06-13 Scott Dattalo * src/sim_context.cc, cli/input.cc, cli/cmd_load.cc: Rewrote code to get around a gcc 3.2.2 x86 bug regarding the mis-handling of const char * types (the ECX register was getting clobbered!). 2006-06-13 Borut Razem * src/os_dependent.c, src/modules.h, src/modules.cc: reverted cahanges for fix: [ 1488107 ] const violation in get_error_message() since dlerror() returns const char * on FreeBSD * pic_processor.h: fixed warning multiple default constructors specified * plat/win32/libgpsim.def: MSVC sync * doc/gpsimWin32.html: patched gtk+extra-2.1.1-src-20060611.zip 2006-06-12 Roy Rankin * regression/usart_test/usart_pir1v1.asm regression/usart_test/16f628.lkr regression/usart_test/usart_pir1v2.asm regression/usart_test/Makefile regression/run_regression.sh: - Improve USART regression tests * regression/usart_test/usart_test.stc regression/usart_test/usart_test.asm: removed as redundant * src/uart.cc src/uart.h: receive baud rate fix * modules/usart.cc modules/usart.h: Transmit baudrate fix, loop attribute added, receiver rewritten to remove event logger. 2006-06-10 Robert Pearce * doc/gpsim.lyx: Some hacked notes on creating new modules, and a few other tweaks 2006-06-10 Roy Rankin * src/gpsim_time.h src/stimuli.cc src/gpsim_time.cc src/processor.cc src/14bit-registers.cc: cycles_per_second changed to instruction_cps * src/cod.cc: prevent duplicate symbol messages from static .cod file by not loading constants * gui/gui_stopwatch.cc: remove magic number, Frequency format change * src/pir.cc src/pir.h: RCIF not being set by uart * src/uart.cc modules/usart.cc: fix baud rate error 2006-06-03 Scott Dattalo * src/16bit-processors.cc: The newly added config words were placed at word addresses instead of byte addresses. * src/pic-instructions.cc: Removed warning in CLRWDT instruction that said 16bit wdt timer is not implemented. * src/hexutils.cc: removed ifdef'd out code 2006-06-03 Scott Dattalo * cli/parse.yy, cli/input.cc, cli/input.h, cli/cmd_load.cc: Added an option to the load command to allow processors to be named. Eg: gpsim> load test.cod U1 # Assign U1 ref. des. to processor * src/processor.h, processor.cc, src/p16x6x.h, src/p16x6x.cc, src/p16f87x.h, src/p16f87x.cc, src/16bit-processors.h, src/16bit-processors.cc, src/pic-processor.h, src/pic-processor.cc, src/p16f62x.h, src/p16f62x.cc, src/p16x5x.h, src/p16x5x.cc, src/p16x7x.h, src/p16x7x.cc, src/12bit-processors.h, src/12bit-processors.cc, src/p12x.h, src/p12x.cc, src/p18x.h, src/p18x.cc, src/processor.h, src/processor.cc, src/p16x8x.h, src/p16x8x.cc, src/p16f8x.h, src/p16f8x.cc, src/14bit-processors.h,src/14bit-processors.cc, src/dspic/dspic-processors.cc, src/dspic/dspic-processors.h: Pic processors now can be named when instantiated. * gui/gui_menu.cc: Adhere to the new calling convention for gpsim_open. * src/hextutils.h, src/hexutils.cc, src/program_files.cc, src/program_files.h, src/sim_context.h, src/sim_context.cc, src/cod.cc: New calling convention for LoadProgramFile * src/os_dependent.cc: There appeared to be a compiler bug IsFileExtension() (a const pointer in the callee's stack space was getting modified). But, there is a built in STL function that does the same thing IsFileExtension() was doing, so that's now used. * regression/ttl/ttl377.stc: added * regression/ttl/Makefile, regression/comparator/compar_877a.stc, regression/comparator/compar_628.stc, regression/comparator/compar_873a.stc, regression/p16f84/p16f84.stc, regression/switch_test/switch_test.stc, regression/switch_test/switch_test.asm, 2006-06-03 Roy Rankin * src/stimuli.cc, src/stimuli.h: New resistor-capacitor transient voltage calculation implemented and activated, getBitChar function re-written. * modules/switch.cc, modules/switch.h, regression/switch_test/switch_test.asm: - Switch module model changed eliminating Rclosed parameter 2006-03-02 Borut Razem * extras/graphic_lcd/makefile.mingw, plat/win32/gpsim.nsi: graphic_lcd.dll renamed to libgpsim_graphicLCD.dll * extras/lcd/examples/lcd_mod.stc: libgpsim_lcd.so changed to libgpsim_lcd 2006-05-31 Scott Dattalo * src/p16x6x.h, src/16bit-processors.cc, src/14bit-registers.h, src/processor.h, src/pic-registers.h, src/pic-processor.cc, src/pic-processor.h, src/p16x8x.h, src/pic-registers.cc, src/breakpoints.cc, src/12bit-processors.h, src/14bit-processors.cc, src/14bit-processors.h: Accesses to CONFIG2H now can control the WDT. A couple of new members were added to the WDT class to support the new reading and writing. Also, some minor class clean up was also performed. 2006-05-31 Borut Razem * Implemented enhancement request [ 1496325 ] To bundle the extra modules with gpsim-win32 snapshot makefile.mingw: added targets extras, clean_extras extras/graphic_lcd/makefile.mingw, extras/lcd/makefile.mingw, extras/usart_com/makefile.mingw: introduced GPSIM_LIB_PATH, GPSIM_INCLUDE_PATH, GPSIM_DEF_PATH variables plat/win32/gpsim.nsi: added potion to install extras modules 2006-05-28 Borut Razem * src/os_dependent.c, src/modules.h, src/modules.cc, src/sim_context.cc: fixed [ 1488107 ] const violation in get_error_message() 2006-05-29 Robert Pearce * regression/resistor/resistor.asm: improved failure reporting and added tests for the output pin not being swamped * src/stimuli.cc, src/stimuli.h: Adjusted default Zth values to be more sensible (ZthWeak now > ZthPullUp). Also some debug messages on wht looks like a dodgy condition. Need to follow up. * doc/gpsim.lyx: corrected some formatting. 2006-05-28 Borut Razem * plat/win32/gpsim.nsi: removed unneeded asprintf.dll from the package, added possibility to define the SETUP_DIR from the NSIS command line * doc/gpsimWin32.html: glib-2.8.6, gtk+-2.8.17, pango-1.12.1, cairo-1.0.4 * extras/graphic_lcd/src/gpsim_modules.cc, extras/graphic_lcd/src/sed1520.cc, extras/lcd/hd44780.cc: removed unneeded inclusion of config.h * extras/graphic_lcd/makefile.mingw: added, thanks to Xiaofan Chen * extras/lcd/makefile.mingw: corrected, thanks to Xiaofan Chen * makefile.mingw: added rules doc and setup * plat/win32/fd2raw.cpp: report error messages 2006-05-28 Roy Rankin * src/gpsim_object.cc: Improve GNU demangling * modules/switch.cc, modules/switch.h, regression/switch_test/switch_test.asm: - Fix infinite regression bug. 2006-05-27 Scott Dattalo * src/ValueCollections.cc, src/ValueCollections.h, src/14bit-registers.cc: An indexed collection can now accommodate a disjoint set. * src/16bit-processors.h, src/16bit-processors.cc, src/dspic/dspic-processors.cc, src/dspic/dspic-processors.h, src/processor.h, src/processor.cc, src/pic-processor.h, src/14bit-processors.h,src/14bit-processors.cc, src/pic-processor.cc: The ProgramMemoryClass now uses the newly added "disjoint set" feature of an IndexedCollection to provide access to configuration memory. E.g. romData[0x300000] = 0x1234 will write 0x1234 to the configuration word at address 0x300000. In addition, infrastructure has been added to symbolically deal with configuration memory. E.g. gpsim> .CONFIG1H $00000027 gpsim> help .CONFIG2H $0000000f WatchDog configuration Currently the configuration memory does not control any thing. I.e., if you write to config memory, the data changes, but the processor configuration is not actually changed. * src/hexutils.cc: removed printf debugging. 2006-05-25 Scott Dattalo * modules/stimuli.h, modules/stimuli.cc: More support for file stimulus. 2006-05-25 Scott Dattalo * modules/logic.h, modules/logic.cc, modules/gpsim_modules.cc: Only use if the gui is enabled 2006-05-25 Scott Dattalo * modules/switch.h, modules/switch.cc, modules/gpsim_modules.cc: Only use gui if enabled. * modules/stimuli.h, modules/stimuli.cc: Began adding support for file stimulus. 2006-05-24 Borut Razem * modules/makefile.mingw, modules/modules.vcproj: added stimuli.* * plat/win32/libgpsim: MSVC sync 2006-05-23 Borut Razem * doc/gpsimWin32.html: CVS replaced with Subversion * src/14bit-tmrs.h, src/14bit-tmrs.cc: - PWM fixes CCP high if duty cycle 0, CCPRnH loaded on TMR2 compare, PWM starts after first TMR2 compare, PMR2::put and PR2::put rewrite * regression/ccp/pwm_877a.asm, regression/ccp/Makefile, regression/run_regression.sh: PWM regression 2006-05-21 Scott Dattalo * modules/stimuli.h, modules/stimuli.cc: New files for 'extended' stimuli. Currently only an asynchronous stimulus replacement called 'pulsegen' has been created. * modules/Makefile.am, modules/gpsim_modules.cc: Added pulsegen to the default list of modules. * regression/run_regression.sh, regression/wavegen/16f877a.lkr, regression/wavegen/Makefile, regression/wavegen/pulsegen.asm, regression/wavegen/pulsegen.stc: New regression test to test the pulsegen module. (This test is really just a copy of the ccp regression test except that the asynchronous stimulus has been replaced with a pulsegen module). * src/symbol.cc: Module symbol descriptions were not getting printed * cli/cmd_break.cc: removed bogus warning about cycle break points not getting set. 2006-05-21 Robert Pearce * src/p16f87x.h, src/p16f87x.cc: Re-worked 16F871 to be derived from 16C64 rather than 74, because that's the easiest way I could find to fix the RAM size (it had way too much) and the stray CCP2 2006-05-19 Scott Dattalo * src/expr.h, src/expr.cc: Added LiteralArray class for (better) handling array types. * cli/parse.yy, cli/scan.ll: experimenting with user-created typed symbols. * src/processor.cc: Removed bogus check that prevented users from over-writing the Rom contents. If the user wants to over write ROM then they should be allow to! 2006-05-19 Roy Rankin * src/14bit-tmrs.cc: TMR2 counts down not up, period wrong, fix 2 PWM with same duty cycle * src/p16f8x.cc: CCP1 pin determined by confguration word * src/p16x6x.cc: fix core dump for CCP2 2006-05-17 Scott Dattalo * regression/run_regression.sh: added regression test for ccp peripheral. This test only tests capture modes for the CMCON settings of 4,5,6, and 7. * regression/16f877a.lkr, regression/ccp_877a.asm, regression/ccp_877a.stc, regression/Makefile: new files for the ccp regression test. 2006-05-14 Borut Razem * src/makefile.mingw, src/vcproj: added 16f87 and 16f88 processors * modules/makefile.mingw: added i2c-eeprom * src/p12x.cc: removed unused variable * src/i2c-ee.cc: fixed warning: In member function `virtual bool I2C_EE::processCommand(unsigned int)': warning: control reaches end of non-void function; fixed MSVCcompilation * plat/win32/libgpsim.def: MSVC sync 2006-05-14 Scott Dattalo * src/value.h, src/value.cc, src/expr.cc: Expressions derived from the base gpsim types (like Integer, Float) were not getting evaluated properly. 2006-05-14 Roy Rankin * regression/a2d/p16f874a.asm, regression/a2d/p16c71.asm, regression/a2d/16f871.lkr, regression/a2d/16f874a.lkr, regression/a2d/p18f452.asm, regression/a2d/p16f88.asm, regression/a2d/p16f871.asm, regression/a2d/Makefile, regression/a2d/p16f873a.asm, regression/run_regression.sh, src/p16f87x.cc, src/p16f87x.h, src/16bit-processors.cc, src/p16f62x.cc, src/p16x7x.cc, src/p18x.cc, src/a2dconverter.cc: - tests and correction to a2d for various processors 2006-05-14 Roy Rankin * src/16bit-registers.h, src/14bit-registers.h, src/pic-processor.cc, src/Makefile.am, src/pic-processor.h, src/14bit-registers.cc, src/p16f8x.h, src/p16f8x.cc, regression/a2d/Makefile, regression/run_regression.sh, regression/a2d/16f88.lkr, regression/a2d/p16f88.asm: - Add 16f87 and 16f88 processors 2006-05-13 Scott Dattalo * src/a2dconvert.h: removed redundant class qualifiers in member function declarations. 2006-05-13 Scott Dattalo * src/processor.h, src/processor.cc, gui/gui_src_opcode.cc: Added romData[] accessor (analogous to ramData) to provide a way of querying and modifying the program memory. So now you can change program memory from the command line: gpsim> romData[address] = value Address and value can be symbols. 2006-05-12 Robert Pearce * regression/run_regression.sh, regression/txisr_test/...: Added a test for the correct behaviour of usart transmit interrupts 2006-05-11 Robert Pearce * src/p16f87x.cc: A2D converter fixes for the 16f871. 2006-05-10 Scott Dattalo * src/pir.h, src/pir.cc: Applied patch (with modifications) from Robert Pearce that adds the concept of 'writable' PIR register bits versus 'valid' ones. 2006-05-10 Scott Dattalo * src/16bit-hexdecode.cc, src/p16x6x.h, src/i2c-ee.h, src/p16x6x.cc, src/p16f87x.cc, src/16bit-processors.cc, src/i2c-ee.cc, src/eeprom.cc, src/pir.cc, src/p16f62x.cc, src/pie.cc, src/pir.h, src/p16x7x.cc, src/p18x.cc, src/value.cc, src/eeprom.h, src/16bit-registers.cc: - Redesigning PIR logic. The existing design requires numerous manuel configurations that are subject to error. The new design attempts to encapsulate the PIR configuration within the PIR classes. 2006-05-10 Scott Dattalo * modules/i2c-eeprom.h, modules/i2c-eeprom.h, Makefile.am, src/p12x.h, src/p12x.cc: Began designing a gpsim I2C module. 2006-05-08 Borut Razem * extras/usart_con.cc: sync with modules/usart.cc 2006-05-08 Roy Rankin * src/comparator.h, src/comparator.cc, src/p16f62x.cc: - rewritten so comparator processor differences in processor class * src/p16x6x.cc: portc register removed from p16f62x * src/p16f87x.cc, src/p16f87x.h: a2d added, comparator change * src/16bit-processors.cc, src/p16x7x.cc src/a2dconverter.h, src/a2dconverter.cc: code change for pending p16f88 * regression/a2d/Makefile, regression/run_regression.sh, regression/a2d/16f873a.lkr, regression/a2d/p16f873a.asm: - add a2d regression for p16f873a 2006-05-06 Scott Dattalo * src/stimuli.cc, src/stimuli.h, cli/cmd_stimulus.cc: Stimuli parameters are now initialized with Values instead of doubles. 2006-05-06 Scott Dattalo * modules/usart.h, modules/usart.cc: - Added the boolean attribute 'crlf'. If this is set true, then carriage returns and line feeds will generate new lines in the gui terminal window. 2006-05-06 Robert Pearce * modules/usart.h, modules/usart.cc: - Usart GUI now displays non-printable characters as <%02X>. - The usart module now supports a transmit FIFO. This allows transmit data to be queued while the simulation is stopped. 2006-04-30 Roy Rankin * gui/gui_src.h gui/gui_src_asm.cc: fix ungisgned - signed compile warnings * gui/gui_breadboard.cc: get trace working again * gui/Makefile.am: remove unused and incorrect defines 2006-04-29 Scott Dattalo * modules/switch.cc, modules/switch.h, regression/switch_test/switch_test.asm: Moved pin functionality from the Switch class into the Switch_Pin class. 2006-04-29 Robert Pearce * src/value.cc: Fixed Float type check error. 2006-04-29 Roy Rankin * src/gpsim_object.h src/gpsim_object.cc src/stimuli.cc src/stimuli.h gui/gui_breadboard.h gui/gui_breadboard.cc: - GUI pin rename code - rewritten and moved into IOPIN class * src/comparator.h src/comparator.cc p16f62x.cc: - Do dynamic GUI pin renaming * gui/Makefile.am: remove unused and incorrect defines * src/processor.cc: Set 4 clock cycles per instruction cycle * regression/comparator/compar_628.asm: Start by turning off comparators 2006-04-28 Borut Razem * modules/makefile.mingw, modules/modules.vcproj, plat/win32/libgpsim.def, extras/lcd/makefile.mingw, plat/win32/gpsim.nsi: WIN32 sync 2006-04-26 Scott Dattalo * modules/switch.cc, modules/switch.h, modules/gpsim_modules.cc: - Added On-resistance and Off-resistance attributes to the switch module. (They're called Ropen and Rclosed). - The switch module code now resides in the 'Switches' namespace. * modules/resistor.cc: - The resistor module now initializes itself with the gpsim default attributes (which for now are only xpos and ypos). * regression/switch_test/switch_test.asm, regression/switch_test/switch_test.stc: Moved the switch regression test configuration script into the switch_test.asm source 2006-04-24 Scott Dattalo * src/ioports.cc, src/ioports.h: Fully deprecated the IOPORT class. The old IOPORT class is still present, but conditionally disabled. * modules/logic.cc, modules/usart.cc, modules/logic.h, modules/switch.cc, src/stimuli.cc, src/stimuli.h, src/cod.cc, src/comparator.h, src/i2c-ee.cc: Removed all references to the IOPORT class. 2006-04-23 Scott Dattalo * src/gpsim_object.h, src/gpsim_object.cc: Removed TRUE and FALSE definitions. 2006-04-23 Roy Rankin * src/gpsim_object.h src/gpsim_object.cc gui/gui_breadboard.h gui/gui_breadboard.cc: Allow pin names to be changed after breadboard is started. * src/stimuli.cc: minor output format change and new debuging output 2006-04-22 Roy Rankin * modules/switch.cc modules/switch.h: fix windows regression problem 2006-04-17 J.R. Heisey * modules/gpsim_modules.cc, modules/push_button.cc, modules/resistor.cc, modules/push_button.h, modules/resistor.h, modules/encoder.cc, modules/encoder.h, modules/Makefile.am: - Removed references to the deprecated IOPORT class. - Temporarily removed the video and the parallel_port modules (I don't have a way to test them). - The push button module can now be used again. 2006-04-17 Borut Razem * config_win32.h.in: added the explanation why the warning is good: warning: `I' flag used with `%x' printf format * cli/cli.vcproj, modules.vcproj, modules/makefile.mingw, plat/win32/libgpsim.def: WIN32 sync 2006-04-16 Scott Dattalo * modules/binary_indicator.cc,h: removed from gpsim. This module did absolutely nothing. * modules/gpsim_modules.cc, modules/Makefile.am: removed references to the binary_indicator. 2006-04-16 Scott Dattalo * modules/ttl.cc: TTLbase now calls initializeAttributes(). This defines xpos and ypos attributes. * regression/ttl/ttl377.asm: xpos and ypos are initialized by the builtin script. * modules/led.cc, modules/led.h: Redesigned I/O pins to remove references to the deprecated IOPORT class. * modules/gpsim_modules.cc: Place Led classes in their own namespace. 2006-04-16 Borut Razem * config_win32.h.in: fixed bug [ 1470012 ] Breakpoints regression test crashes mingw gpsim * modules/makefile.mingw, modules/modules.vcproj: WIN32 sync 2006-04-16 Scott Dattalo * modules/gpsim_modules.cc, modules/Makefile.am, modules/ttl.cc, modules/ttl.h: Began a TTL module. Right now it contains only a '377. * regression/run_regression.sh, regression/ttl/18f452.lkr, regression/ttl/Makefile, regression/ttl/ttl377.asm: Regression test for the newly added '377 module in the ttl library. * src/modules.h, src/modules.cc, gpsim_object.cc: Modules can now be constructed with a name and a description. 2006-04-15 Scott Dattalo * regression/switch_test/switch_test.asm: corrected 'capacitance' 2006-04-15 Borut Razem * cli/cli.vcproj, cli/makefile.mingw: added define YYSTACK_USE_ALLOCA * src/a2dconverter.*: svn:keywords=Author Date Id Revision, svn:eol-style=native * src/a2dconverter.cc: corrected include path to "../config.h" * regression/switch_test/switch_test.stc: corected 'capacitance' 2006-04-15 Scott Dattalo * src/16bit-registers.h, src/16bit-processors.cc, src/16bit-registers.cc, src/16bit-processors.h, src/p18x.cc, src/a2dconverter.cc: A2D is now working (but not fully tested) for the 16bit core. * src/pir.h: Redesigned PIR base class in the first attempt in removing PIR_SET classes * src/symbol.cc, src/stimuli.cc: Fixed symbol table dump. * regression/a2d/Makefile, regression/a2d/p18f452.asm: Regression test for the 18f452 A2D converter. * modules/resistor.cc: Made 'Capacitance' attribute lower case. 2006-04-13 Scott Dattalo * gui/gui_src_asm.cc: removed debug printf * modules/resistor.cc: Added module description. * src/a2dconvert.cc: Added a verbose mode printf debug statement. * src/p16x7x.cc: P16C71 class now sets A2D converter bits. * src/symbol.cc, src/symbol.h: module_symbol can now display a module description. * regression/run_regression.sh: added A2D regression test for the p16c71. * a2d/Makefile, a2d/p16c71.asm, a2d/16c71.lkr: A2D regression test for the 16c71. 2006-04-13 Borut Razem * gui/gui_src_asm.cc: removed warnings * modules/switch.h, src/dspic/dspic-processors.h, src/operator.h: enable compilation on Fedora Core 5 (gcc 4.1.0) * regression/comparator/compar_628.stc, regression/comparator/compar_673a.stc, regression/comparator/compar_677.stc, regression/eeprom_wide/eeprom_wide.stc: changed libgpsim_modules.so with libgpsim_modules so that it runs on WIN32 * src/makefile.mingw, src/src.vcproj, plat/win32/libgpsim.def: WIN32 sync 2006-04-13 Scott Dattalo * src/Makefile.am, src/a2dconverter.h, src/a2dconverter.cc: New Files. * src/p16f87x.cc, src/p16x7x.h, src/p16x7x.cc: Removed a2d-specific stuff from p16x7x.[h,cc] and placed it into a2dconverter.[h,cc]. Also, the p16c71 doesn't have a PIR register. The INTCON class assumes that there is one. So a special (non-existant) PIR register has been created that is not instantiated in the register map, but is capable of communicating PIR-specific information with those peripherals that implement their own PIR functionality (this is currently only the P16C71 A2D module). * src/pir.h: The PIR_SET used to be a pure virtual base class. This class needs to be redesigned... * src/pir.h: Made class members private. * src/gpsim_object.h, src/gpsim_object.cc, src/value.h, src/value.cc: Moved Value descriptions into the parent gpsimObject class. The purpose of this change is to provide a uniform way in which gpsimObjects (like processors and modules) can describe themselves. * modules/resistor.cc: Added a voltage attribute to pull up resistors. Now pullup resistors can be used as general purpose voltage sources. 2006-04-11 Scott Dattalo * gui/gui_src_asm.cc: Double clicks in the source browser were causing segv's 2006-04-11 Scott Dattalo * gui/gui_src.h, gui/gui_src_asm.cc: Right-button mouse clicks now bring up a menu. Currently, not all of the menu items are supported. Furthermore, only GtkTextTag'd text responds. 2006-04-11 Roy Rankin * src/p16f87x.cc: if code read with breadboard closed, breadboard did not show processor. * src/pic-ioports.cc: fix portb does not show high inputs if register bits cleared from assembler code. * regression/rt.sh: allow multiple tests in one directory * regression/run_regression.sh: run comparator tests seperatly * src/comparator.cc: cleanup compiler warnings 2006-04-08 Scott Dattalo * cli/scan.cc: removed from SVN. This autogenerated by flex from scan.ll. 2006-04-09 Borut Razem * extras/graphic_lcd/utils/custom.png, extras/graphic_lcd/utils/fontimage.png, extras/graphic_lcd/utils/gpsim1.png, extras/graphic_lcd/utils/konqueror.png, extras/graphic_lcd/utils/konqueror16X16.png, extras/graphic_lcd/utils/konqueror3.png: mime-type image/png * src/src.vcproj, src/makefile.mingw: new files src/comparator.h src/comparator.cc * gui/gui_menu.cc, gui/gui_profile.cc, gui/gui_regwin.cc, gui/gui_src_asm.cc, gui/gui_watch.cc, modules/logic.cc, modules/resistor.cc, modules/switch.cc, modules/usart.cc, src/dspic/dspic-registers.cc, src/intcon.cc, src/ioports.cc, src/pic-instructions.cc: removed unused variables, #if 0-ed unused functions removed warnings: XXXX.h: In constructor `xxxx': XXXX.h:LLL: warning: `yyyy' will be initialized after XXXX.h:LLL: warning: `zzzz' XXXX.cc:LLL: warning: when initialized here 2006-04-08 Scott Dattalo * ChangeLog: experimental SVN checkin. 2006-04-08 Scott Dattalo * INSTALL: re-instated - somehow it got wiped out on 04-05 * ltconfig, missing, mkinstalldirs, stamp-h.in: removed from CVS. 2006-04-08 Roy Rankin * src/cod.cc src/sim_context.cc: backout Pin names changing in 2006-04-05 patch until better method can be found. * gui/gui_regwin.cc: fix core dump of ram window and ascii part of register windows not showing all characters. * src/p16f87x.cc: fix eeprom being initialized twice for most p16f87x processors. 2006-04-08 Roy Rankin * src/pic-processor.h src/pic-processor.cc src/p16f87x.h p16f87x.cc: Add support for p16f87xA which are p16f87x with 2 comparators and vref. * src/p16f62x.h src/p16f62x.cc src/Makefile.am src/pir.cc src/pir.h: new files src/comparator.h src/comparator.cc to add comparator and vref functions. * new directory regression/comparator with new files compar_628.asm compar_628.stc compar_877a.asm compar_877a.stc compar_873a.asm compar_873a.stc Makefile 16f628.lkr 16f877a.lkr 16f873.lkr for comparator regression tests. * regression/run_regression.sh: invoke comparator regression tests 2006-04-05 Roy Rankin * src/ioports.h src/ioports.cc : Fix setEnableMask() so it works when pin is already added. Stop memory leak in newDefaultControl(). * src/pic-ioports.cc: setTris() can be run multiple times. * src/p16f62x.cc src/cod.cc: Correct error in Oscillator configuration bit processing. Pins 5, 6 and 7 of port A may be I/O depending on configuration bits. Pin names changed depending on configuration bits. * src/p16x6x.cc: Bit 5 of port A is I/O for all of 16X6x family p16x63 and higher. * src/eeprom.h src/eeprom.cc src/p16f87x.cc: fix bugs in writing to EEPROM and added FLASH program writing using wide mode (p16f87x). * regression/run_regression.sh: add directory regression/eeprom_wide with files Makefile, 16f873.lkr, eedate_wide.asm and eeprom_wide.stc for regression testing of EEPROM and FLASH single byte wide read-write operations. 2006-03-30 Scott Dattalo * gui/gui_regwin.cc: In 03-27 changes, a variable initialization got commented out and caused a segv on some systems 2006-03-30 Scott Dattalo * src/14bit-registers.h, src/14bit-registers.cc: Resetting the program counter low register (PCL) was causing the cycle counter to advance by one. 2006-03-29 Scott Dattalo * gui/gui_src_asm.cc, gui/gui_src.h: Source files are now only parsed whenever they're brought into view. (The previous commit parsed the source, but only placed it into a gtk_text_view whenever the source was brought into view). * src/processor.cc: Config addresses in the .lst file were causing a segv when the list file was processed. 2006-03-28 Scott Dattalo * gui/gui_src_asm.cc, gui/gui_src.h: - If there are many source files, the notebook will now allow the tabs to be scrolled. - Source files are now only rendered whenever the page in which they reside is brought into view. (Otherwise, large projects will take a very long time to load). 2006-03-27 Scott Dattalo * gui/gui_watch.cc: - Watch window was causing segv for the case when a watched register did not have an entry in the symbol table. - Fixed a bug where the "hex" attribute was being repeatedly added to the eXdbm data base. Note this fix was only applied to non-WIN32 OSes * gui/gui_regwin.cc, gui/gui_regwin.h: The register window cells were not getting resized correctly whenever the font was changed. Also, the default font was changed to Monospace. 2006-03-24 Scott Dattalo * src/symbol.h, src/symbol.cc: Added a convenience function for searching the symbol table for strings. * src/processor.h, src/processor.cc: Change FileContext::Add method to accept only a const char *. 2006-03-24 Scott Dattalo * src/processor.h, src/processor.cc: The FileContext class now handles list files. * gui/gui_src_asm.cc, gui/gui_src.h, gui/gui_menu.cc: Breakpoints can be manipulated through the list file view of the source browser. Switching pages in the source browser now updates the margin. The preferences editor 'Margins' and 'Tabs' were combined into just 'Margins'. 2006-03-22 J.R. Heisey * cli/input.cc, gui/gui_symbols.cc: use glib's g_strndup() instead of strndup. 2006-03-22 J.R. Heisey * gui/gui_src_asm.cc: Last change cause segv in preferences editor. 2006-03-22 J.R. Heisey * src/cod.cc, src/pic-instructions.cc, src/processor.cc, src/processor.h: Fixed list file processing. Now the file context class knows if it owns a .lst file versus a .asm or .inc file. * gui/gui_src.h, gui/gui_src_asm.cc: List files are now displayed in the source browser. The program counter indicator tracks correctly. Breakpoints can not be controlled from within the list file view yet. Changed strndup calls to g_strndup. The form is a GNU extension while the latter is part of glib, but both do the same thing. This removes an OS dependency. 2006-03-21 Scott Dattalo * gui/gui_object.cc: removed debug printf * gui/gui_src_asm.cc: Added a delete_event handler for the source browser; killing the source browser window was causing gpsim to crash otherwise. The source browser name has been updated to match the old browser's name (this is mainly for registry and .gpsim settings). Added GTK_WAIT's for slower machines. Apparently gtk's event queue is getting overwhelmed while the source browser is being created. 2006-03-21 Borut Razem * src/cod.cc: fixed bug "[ 1448454 ] usart_test - ERROR: == comparison is not defined for String" by merging "assertions" and "assertions" lists to a single "directive" list 2006-03-20 Scott Dattalo * regression/breakpoints.asm: Embedded script error was causing regression test to fail. * regression/rt.sh: Minor fix to Borut's regression test enhancement; the 'tee' command was appending multiple regression tests to the same log file. Also, on Athlon 64's, the tee command was causing pipe errors for some reason. 2006-03-19 Scott Dattalo * gui/gui_menu.cc, gui/gui_src.h, gui/gui_src_asm.cc: The preferences window now configures the source browser tabs, margins, and font. 2006-03-19 Borut Razem * plat/win32/gpsim.nsi: added share and lib\gtk-2.0\2.4.0\engines to the package, use share\themes\MS-Windows\gtk-2.0\gtkrc as the default gtkrc * gpsim/regression/rt.sh: failure detection 2006-03-15 Scott Dattalo * gui/gui_src.h, gui/gui_src_asm.cc: Added .lst files to the source browser. Added the "ColorHolder" class to wrap a GdkColor that can be changed and reverted back to its original value. The colors for the source browser are now saved. Line numbers, addresses, and opcodes in the margin can be selectively enabled * gui/gui_menu.cc: Example code for src browser configuration is now rendered in a SourcePage. * gui/gui_statusbar.cc, gui/gui_main.cc, gui/gui.h, gui/gui_regwin.cc, gui/gui_break.cc, gui/gui_profile.cc: The global 'gp' has been renamed gpGuiProcessor. 2006-03-15 Alain Portal * src/p12.h: Remove redundant class scoping (causes errors with gcc-4.1) 2006-03-14 Borut Razem * src/dspic/makefile.mingw: added * plat/win32/gpsim.nsi: fixed typo 2006-03-13 Scott Dattalo * src/processor.cc: hex files were not getting loaded properly. 2006-03-12 Scott Dattalo * src/pic-ioports.cc: PIC TRIS writes were not getting traced. 2006-03-12 Borut Razem * config_win32.h.in: added #define _USE_MATH_DEFINES, so that M_PI is defined in MSVC math.h 2006-03-12 Scott Dattalo * gui/gui_src.h, gui/gui_src_asm.cc, gui/gui_menu.cc: - Gui Preferences for source browser is *almost* working now. It's possible to modify colors, but the state of the colors are not being saved in the gpsim config file. Also, the line number, address, opcode configuration is not completed. - The Source browser now utilized the text_view margin for displaying addresses and opcodes. Also, breakpoints changes the margin field text to red. (This duplicated the diamond indicator, but I plan to use that for modifying complex breakpoints). 2006-03-12 Borut Razem * plat/win32/gpsim.nsi, doc/gpsimWin32.html, plat/win32/make.mingw, cli/makefile.mingw, gpsim/makefile.mingw, gui/makefile.mingw, modules/makefile.mingw: glib-2.8.6, gtk+-2.8.13, pango-1.10.2, atk-1.10.3, cairo-1.0.2, ... 2006-03-09 Borut Razem * examples/modules/usart_gui/usart_gui.asm, examples/modules/usart_gui/usart_gui.stc: Renamed the usart RX and TX pins to RXPIN and TXPIN 2006-03-07 Scott Dattalo * src/gui_src_asm.cc: Turned off debugging. Added a gtk event queue wait. * src/gui_processor.h: The default is to now enable the new source browser. 2006-03-06 Scott Dattalo * src/stimuli.cc: The stimulus command without any options now shows more information. In particular, value stimuli (the ones that allow you to specify an array of data) are now shown. 2006-03-06 Scott Dattalo * doc/gpsim.lyx, doc/gpsim.pdf: Updated the documentation to reflect the deprecation of the X command 2006-03-06 Scott Dattalo * gui/gui_menu.cc, gui/gui_src.h, gui/gui_src_asm.cc: Moved the gtk text tag table to the source browser parent class. Added a SourceBuffer class to wrap the text buffers. With these changes, multiple source browsers will share the same text buffers. 2006-03-06 Scott Dattalo * cli/cmd_x.cc: The x command has been deprecated. 2006-03-05 Scott Dattalo * src/stimuli.h: The default Thevenin resistance for an IOPIN was too low. This caused an INPUT only pin to appear as though if it was driving! (Bug reported by Alex Holden). 2006-03-05 Borut Razem * configure.ac: removed GTK+ 1.x leftovers * plat/win32/gpsim.nsi: remove extras/graphic_lcd/* when uninstalling gpsim, added extras/usart_con * extras/usart_con/AUTHORS, extras/usart_con/autogen.sh, extras/usart_con/ChangeLog, extras/usart_con/configure.in, extras/usart_con/COPYING, extras/usart_con/INSTALL, extras/usart_con/Makefile.am, extras/usart_con/makefile.mingw, extras/usart_con/module_manager.cc, extras/usart_con/NEWS, extras/usart_con/README, extras/usart_con/usart_con.cc, extras/usart_con/usart_con.h: receive-only usart module, received characters are printed to the console 2006-03-04 Scott Dattalo * gui/gui_menu.cc, gui/gui_src.h, gui/gui_src.cc: See comment on 2006-02-27. Removed the line numbers from the source browser. Changed the current PC and breakpoint indicator. Also, now clicking on a break indicator toggles a break point. 2006-03-04 Scott Dattalo * src/modules.h, src/modules.cc, src/os_dependent.cc: Changed references from char * to const char * for error strings processing. (Alex Holden reports that on BSD dlerror returns const char * where as on linux it returns plain char *). 2006-03-04 Scott Dattalo * cli/ui_gpsim.cc: GlobalVerbosityAccessor verbose was declared twice! (Thanks to Alex Holden for pointing this out). 2006-02-27 Scott Dattalo * src/processor.cc: FileContext put_address and get_address methods were ignoring the last line of files. * gui/gui_src.h: Rewrote the source browser using the gtk+-2.X API. *** NOTE *** The older version of the source browser is still present and enabled by default. To enable the new browser, 'NEW_SOURCE_BROWSER' needs to be defined. (This can either be accomplished by ./configure or by editing gui/gui_processor.h * gui/gui.h, gui/gui_processor.h: Added new source window class to list of gui classes. * gui/gui_menu.cc: ifdef'd removed the source browser preference configuration (for now) * gui/gui_object.cc, gui/gui_object.h: set_name() now requires const char * instead of just char *. 2006-02-25 Borut Razem * src/p18x.cc: EEPROM sfr registers were not mapped on 16 bit pics 2006-02-20 Borut Razem * src/os_dependent.cc: reverted changes I made 2006-02-19, since the GPSIMPATH functionality was already implemented 2006-02-20 Scott Dattalo * src/symbol.cc: Symbol_Table::clear() crashes when the simulation engine is used as a stand alone library (Reported by David Saxtion). 2006-02-19 Borut Razem * regression/switch_test/switch_test.stc, examples/modules/usart_gui/usart_gui.stc: removed .so extension from "module library libgpsim_modules.so" so that it runs on WIN32 platform * src/modules.cc: made ModuleLibrary::MakeCanonicalName() a dummy method on WIN32 platform. Is it really needed on *nix? * src/os_dependent.cc: introduced GPSIM_MODULE_PATH environment variable on WIN32 platform to define additional directories where modules are searched. The search order for WIN32 is as follows: 1. The directory specified by library_name. 2. The current directory. 3. The system directory. 4. The 16-bit system directory. 5. The Windows directory. 6. The directory from which the application loaded followed by directories listed in GPSIM_MODULE_PATH environment variable followed by directories listed in PATH environment variable. 2006-02-17 Scott Dattalo * src/16bit-instructions.cc, src/16bit-instructions.h, src/16bit-hexdecode.cc: Fixed a few bugs with the newly added extended instructions. * src/16bit-processors.cc, src/16bit-processors.cc, src/16bit-registers.cc: added the pclatu register. * src/pic-instructions.cc: the instruction class constructor now initializes most of it's data members directly. * regression/make.regression: .cod files are now removed for the 'make clean rule' * regression/run_regression.sh, regression/p18f/18f452.lkr, p18f/Makefile, p18f/extended_instructions.asm, p18f/instructions.asm, p18f/startup.stc: Regression test for the 18f extended instructions. 2006-02-16 Borut Razem * plat/win32/libgpsim.def: MSVC sync 2006-02-14 Scott Dattalo * src/16bit-instructions.cc, src/16bit-instructions.h, src/16bit-hexdecode.cc: Added support for the extended instructions ADDFSR, ADDULNK, CALLW, MOVSF, MOVSS, SUBFSR, and SUBULNK, in the 18fxxxx family. 2006-02-13 Scott Dattalo * src/gui/gui_menu.cc: more source browser experiments. 2006-02-08 Scott Dattalo * modules/usart.cc: Renamed the usart RX and TX pins to RXPIN and TXPIN. The old names conflict with the names of constants. (This is a problem with absolute mode code.) Updated the gui to use gtk_text_view instead of the obsolete gtk_text. (note this change really needs to be made for all of gpsim's gui!) 2006-02-08 Scott Dattalo * src/dspic/dspic-instructions.cc, src/dspic/dspic-instructions.h: Support for some versions of the MOV instruction. 2006-02-05 Scott Dattalo * src/dspic/dspic-instructions.cc, src/dspic/dspic-instructions.h, src/dspic/dspic-processors.cc, src/dspic/dspic-processors.h, src/dspic/dspic-registers.cc, src/dspic/dspic-registers.h: Unified the Literal and Register Direct addressing modes. Added support for the Status register. Program counter tracing is now supported. 2006-02-04 Scott Dattalo * src/dspic/dspic-instructions.cc, src/dspic/dspic-instructions.h, src/dspic/dspic-processors.cc: Added support for the Literal, Register Direct, and Register Indirect addressing modes. 2006-02-03 Roy Rankin * src/processor.cc, src/pic-processor: The pic-processor class was over-writing the cycles_per_instruction value in the processor class * modules/switch.cc, modules/switch.h, modules/resistor.cc, regression/switch_test/switch_test.stc, regression/switch_test/switch_test.asm: Switch modules now handle analog inputs and RC loads. 2006-01-30 J.R. Heisey * src/processor.cc, src/processor.h: added methods for mapping register addresses into register indexes (for the dspic) and use this to create invalid registers. * src/registers.cc: contructors now propagate calls to parents * gui/gui_regwin.cc: a non-existent register at address 0 was crashing the register window * src/dspic/dspic-instructions.cc, src/dspic/dspic-instructions.h, src/dspic/dspic-processors.cc, src/dspic/dspic-processors.h, src/dspic/dspic-registers.cc, src/dspic/dspic-registers.h: dspic port: -- added register memory -- added W0-W15 -- invalid registers populate register space -- added Program Counter -- single stepping works. -- GOTO, RCALL and BRA instructions are now supported. 2006-01-25 Roy Rankin * gui/gui_profile.cc: fix core dump 2006-01-29 J.R. Heisey * makefile.mingw, src/makefile.mingw, gpsim/makefile.mingw, plat/win32/make.mingw: added dspic to MINGW 2006-01-27 Scott Dattalo * src/dspic/dspic-registers.cc, src/dspic/dspic-registers.cc: added to CVS - initial support of dspic family registers * src/dspic/Makefile.am: dspic-registers added * src/dspic/dspic-instructions.cc, src/dspic/dspic-instructions.h: stubbed out the entire dspic instruction set. * src/dspic/dspic-processors.cc, src/dspic/dspic-processors.h: added initialization code to allow the dspic to be instantiated. * src/hexutils.cc: fixed two buglets introduced in earlier checkin * src/pic-instructions.cc: the invalid_instruction constructor now calls the Instruction constructor. * src/processor.cc: The disassemble method can now accommodate the dspic's 24-bit opcodes. 2006-01-27 Scott Dattalo * configure.ac: changed version from 0.21.11 to 0.21.12-pre * cli/scan.ll: conditionally use YY_* macros. 2006-01-27 Scott Dattalo * Makefile.am, configure.ac, src/Makefile.am: update makefiles for dspic support. * src/dspic/Makefile.am, src/dspic/dspic-instructions.cc, src/dspic/dspic-instructions.h, src/dspic/gpsim_modules.cc, src/dspic/dspic-processors.cc, src/dspic/dspic-processors.h: Initial infrastructure for dspic port. * src/hexutils.h: New file. * src/hexutils.cc, src/program_files.cc: Hex files generated by gpasm and mpasm are really Intel hex files. The hex files generated by the gcc-pic30 tool chain also generate Intel hex files. Now gpsim supports more of the features of the Intel hex file format. * src/pic-processor.cc, src/pic-processor.h, src/processor.cc, src/processor.h: minor changes to deal with Hexfiles. * src/p16x6x.cc: TMR1L and TMR1H were named as just tmrl and tmrh 2006-01-21 Borut Razem * src/stimuli.cc: fixed bug exposed by resistor regression test, see the comment "; the following test for a core dump bug" in regression/resistor/resistor.asm * cli/cmd_module.cc: added missing paramterer to DisplayMessage() call 2006-01-20 Borut Razem * plat/win32/libgpsim.def: MSVC sync * src/gpsim_object.h: removed empty destructor from class BreakType in order to avoid gcc warning: `class BreakType' has virtual functions but non-virtual destructor * src/breakpoints.cc: changed // comments to /**/ in order to avoid gcc warning: multi-line comment * src/cod.cc: removed gcc warning: unused variable 'pCli' * src/os_dependent.cc: removed gcc warning: 'bAltPaths' defined but not used * program_files.cc: removed gcc warning: 'iReturn' might be used uninitialized in this function * src/stimuli.cc: removed gcc warning: 'pPinSymbol' might be used uninitialized in this function and warning: 'pMod' might be used uninitialized in this function * value.cc: removed gcc warning: statement has no effect * src/ValueCollection.cc: removed gcc warning: unused variable 'uUpperBound' * src/lxt_write.c: removed gcc warning: 'lt_emit_u64' defined but not used * src/modules.cc: removed gcc warning: extra tokens at end of #endif directive * plat/win32/icd.c: removed gcc warning: 'use_icd' defined but not used * gui/gui_breadbord.cc: removed warning: 'orientation' might be used uninitialized in this function warning: 'pin_x' might be used uninitialized in this function warning: 'pin_y' might be used uninitialized in this function warning: 'label_x' might be used uninitialized in this function warning: 'label_y' might be used uninitialized in this function * gui/gui_menu.cc: removed gcc warning: unused variable 'start' warning: unused variable 'end' warning: unused variable 'color' warning: unused variable 'tag' warning: unused variable 'cParray' * gui/gui_src_asm.cc: removed gcc warning: unused variable 'dragbreak' warning: unused variable 'dragstartline' warning: unused variable 'dragwidget_oldy' warning: unused variable 'dragwidget' warning: unused variable 'dragwidget_x' warning: 'gint drag_scroll_cb(void*)' defined but not used warning: 'void text_insert(SourceBrowserAsm_Window*, int, GtkStyle*, char*, int)' defined but not used * gui/gui_watch.cc: warning: unused variable 'uBitmaskForMaskedValue' 2006-01-20 Scott Dattalo * src/trigger.cc, src/breakpoints.cc: Breakpoint messages were not getting printed when execution breakpoints were hit. 2006-01-19 Scott Dattalo * cli/parse.yy, cli/cmd_break.cc, cli/cmd_break.h, src/breakpoints.cc Rewrote breakpoint parsing. gpsim recently introduced an expression option for breakpoints. As this feature was refined, it turned out that the best way to handle expressions was with a two level approach. At the high level, there is a 'break condition', e.g. 'break w MyVariable'. The condition in this case is to break if the variable 'MyVariable' is written to. At the next level, there is a qualifying expression. For example: break w MyVariable, ((PC > IntVector) && (PC * src/errors.h, src/sim_context.cc: Slight clean up to Roy's patch. 2006-01-12 Roy Rankin * src/modules.cc: remove library load failure exception throw. In Linux, a failed module library load command from the command window repeats the error message already printed. Even worse, if the failure occurs fromthe breadboard GUI "Add libs" function, gpsim crashes. * src/os_dependent.cc: Fix up error handling on library loads for Linux. Also for readability changed #ifndef _WIN32 to #ifdef _WIN32 reversing the cases. 2006-01-10 J.R. Heisey * modules/led.cc, modules/led.h: Added dynamic gui update to the led modules. 2006-01-07 Scott Dattalo * regression/resistor/resistor.asm: Tiny comment change * regression/run_regression.ch: Added the resistor regression test to the test suite. 2006-01-07 Roy Rankin * modules/resistor.cc: Pulldown resistor voltage is now set to 0 Volts. * src/stimulus.h, src/stimuli.cc: Adjusted default resistance values for stimuli to more closely match PIC I/O pins. * regression/resistor/resistor.asm: Set pulldown resistance for the pulldown resistor. 2006-01-06 Roy Rankin * src/stimuli.cc: Fixed crash regarding module pin names. * regression/resistor/Makefile: New regression test for the resistor module. * regression/resistor/resistor.asm: * regression/resistor/resistor.stc: * regression/resistor/16f873.lkr: 2006-01-02 Scott Dattalo * src/ui.h, src/ui.cc: added another method for formatting registers (though this might be removed later). * src/value.h, src/value.cc: Moved Value specific breakpoint functionality to the Value class. Fixed typo in an error message. * src/symbol.cc, src/symbol.h: Fixed a bug with clearing the symbol table. - Added breakpoint expression compilation to the register_symbol class (this was previously being handled in cli/cmd_break.cc). - The w_symbol now is printed out as a W register. * src/module.h, src/processor.h: moved the register_size and register_mask methods from the processor class to the module class. (Modules can have regsiters too!). * src/p16x7x.cc, src/p16x6x.cc, src/p16x5x.cc, src/p16f87x.cc, src/p16f62x.cc, src/16bit-processors.cc, src/14bit-processors.cc: W was not getting added to the symbol table. * src/gpsim_time.cc: stopwatch changes to conform to value class api. * src/breakpoints.cc, src/breakpoints.h: cleaned up/fixed printout of register breakpoints. Added a more generic 'set_break()' method that replaces several other specific methods (the old ones haven't been removed yet). * cli/parse.yy: certain read and write break points were not getting parsed properly. * cli/scan.ll: echo command was failing to be recognized. * cli/cmd_break.cc: moved most of the expression parsing into the simulation engine. * src/expr.h, src/expr.cc: LiteralSymbols are cast into either registers or program memory address when breaks are set on them. * src/cod.cc: pruned some dead code. * src/tmr0.cc, src/tmr0.h: TMR0 class now conforms to new break API. 2006-01-02 Scott Dattalo * configure.ac, cli/input.cc, cli/socket.cc: add configuration option to inhibit the socket interface. 2005-12-31 Borut Razem * plat/win32/gpsim.nsi: added examples/modules/usart_gui/*.* and extras/graphic_lcd/*.* to the WIN32 setup 2005-12-30 Scott Dattalo * src/value.cc, src/value.h: Clarified error message when user attempts to set or clear breakpoints on register symboles. Also, fixed error message on Integer casts to Booleans. * src/bitlog.h, src/bitlog.cc: Added dump() and dump_ASCII_art() methods to the ThreeStateEventLogger class. These are debug functions used to examine event logs. * modules/usart.cc: Utilize new event logger utilities. 2005-12-28 Scott Dattalo * regression/breakpoints, regression/breakpoints/breakpoints.asm, regression/breakpoints/Makefile, regression/breakpoints/16f873.lkr, regression/breakpoints/breakpoints.stc: Added a regression test for testing breakpoints. (Not much there yet) 2005-12-28 Scott Dattalo * cli/cmd_break.cc, src/breakpoints.cc: gpsim would crash if a break point was set on a register that did not have a symbol table entry. 2005-12-28 Roy Rankin * modules/usart.cc, modules/usart.h: Fixed bugs in mSendByte. Fixed usart attributes. Cleaned up error messages. * modules/usart.cc, modules/usart.h: Added a gui interface to the usart module. * examples/modules/usart_gui/Makefile: New * examples/modules/usart_gui/README: New * examples/modules/usart_gui/usart_gui.asm: New * examples/modules/usart_gui/usart_gui.stc: New. The usart_gui example illustrates the new Usart GUI interface. 2005-12-23 J.R. Heisey * src/symbol.cc: findRegisterSymbol dumped core if a register was being loaded from a module (and not from a processor) * src/os_dependent.cc, src/processor.cc: Relative paths were getting concatenated to absolute paths * src/16bit-processors.cc: ccp1 is now associated with portc2 2005-12-19 Scott Dattalo * src/icd.cc, src/modules.cc, src/pic-processor.cc, src/sim_context.cc, modules/paraface.cc: Re-added needed unistd.h includes that were removed on 2005-12-10. New systems may not unistd, but older ones do. 2005-12-17 Scott Dattalo * cli/input.cc: removed glib dependencies for non-gui builds 2005-12-16 Scott Dattalo * src/ioports.h, src/ioports.cc, src/pic-ioports.h, src/pic-ioports.cc: moved some of the functionality in the PicPort classes upto the generic Port classes. Also added comments. 2005-12-12 J.R. Heisey * src/16bit-instructions.h, src/breakpoints.h, src/pic-instructions.h, src/pic-instructions.cc, src/processor.h, src/processor.cc: fixed gcc errors: processor.h:150: error: using typedef-name `instruction::INSTRUCTION_TYPES' after `enum' 2005-12-10 J.R. Heisey src/registers.h: * src/expr.cc, src/ValueCollections.cc, src/ValueCollections.h: Added toString(ExprList_t*) and move some code from IndexedSymbol::toString() into it. * src/modules.cc, src/modules.h: Added functions for deleting module libraries. * 14bit-processors.cc, src/14bit-processors.h, src/p12x.h, src/16bit-processors.h, src/p16f62x.cc, src/p16x5x.cc, src/p16x5x.h, src/p16x6x.cc,src/p16x7x.cc, src/p16x8x.cc, src/p18x.cc, src/p18x.h, src/Makefile.am, src/makefile.mingw, src/src.vcproj, src/ioports.cc, src/ioports.h, src/pic-ioports.cc, src/pic-ioports.h: Moved PicPortBRegister, PicTrisRegister and PicPortRegister definitions into these files from ioports.cc and ioports.h. Added pic-ioports.cc,h to build files. This was motivated by moving undesirable code for the SWIG script language builds. * src/value.cc, src/value.h: Renamed New() to NewObject() to avoid conflict with SWIG. * src/breakpoints.h, src/interface.h, src/os_dependent.cc, src/pic-instructions.h, src/pic-processor.cc, src/pic-processor.h, src/processor.cc, src/processor.h, src/stimuli.h, src/trace.h: removed unneeded reference to the header unistd.h. 2005-12-06 Scott Dattalo * src/ioports.h, src/ioports.cc: Cleaned up the IOPORT class and deprecated some old functions. * src/stimuli.cc: use new IOPORT class functions. * modules/encoder.cc, modules/logic.h, modules/paraface.cc, modules/push_button.cc: Updated to new I/O port class api. * gui/gui_src_asm.cc: Removed printf debug 2005-12-05 Scott Dattalo * gui/gui_src_asm.cc: Source browser crashed if there was no instruction at the current PC. * regression/instructions_16bit/18f452.lkr: mchip stock linker script has a bug with hard coded interrupt routine size. 2005-12-04 Robert Pearce * src/p12.cc, src/p12.h: Added pullups to 12bit-core I/O pins 2005-12-03 Robert Pearce * src/p12.cc, src/p12.h, src/pic-processors.cc, src/pic-processors.h: Added the 10F202. 2005-12-02 Scott Dattalo * eeprom.cc, eeprom.h, i2c-ee.cc, i2c-ee.h, registers.cc, registers.h, processors.cc: Extended the RegisterCollection class to support an arbitrary array of Registers. Added CLI access to the EEPROM. Usage: eeData shows all eeprom registers. eeData[expression] shows one or several eeprom registers. * packages.cc, packages.h: Added better support for module pin placement. * gui/gui.h, gui/gui_breadboard.cc, gui/gui_breadboard.h, gui/gui_main.cc: Cleaned up package creation in preparation for a graphic LCD module. 2005-11-27 Borut Razem * plat/win32/gpsim.nsi, plat/win32/make.mingw, cli/makefile.mingw, gpsim/makefile.mingw, gui/makefile.mingw, modules/makefile.mingw, src/makefile.mingw, regression/README: MINGW sync 2005-11-22 J.R. Heisey * cli\cmd_log.cc gui\gui_regwin.cc src\init.cc src\pic-processor.cc, src\trace.cc src\trace.h: Changed references of trace_log to GetTraceLog() to decouple the global trace_log in the libgpsim.so/dll from the executable. Please do the same with any other globals you find and that I missed. src\expr.cc: Implemented dumping a range of an indexed variable using the integer range operator. (i.e. ramData[3:20] 2005-11-21 J.R. Heisey * src\symbol.cc src\symbol.h src\ValueCollections.cc src\ValueCollections.h: Fixed couple bugs and added additional support for ndexable variables. * src\value.cc src\value.h: Fixed bitmask issue with the copy constructor of Integer. Added assignment operator to Integer from const Integer&. * src\ValueCollections.cc src\ValueCollections.h again: Implemented the omitted ability to do array=value and array[range]=value. 2005-11-21 J.R. Heisey * src\12bit-processors.cc, src\breakpoints.h, cli\cmd_break.cc, cli\cmd_clear.cc, src\cmd_gpsim.h, cli\cmd_log.cc, cli\cmd_run.cc, cli\cmd_set.cc, gpsim\CopyDlls.bat, src\exports.h, src\fopen-path.h, plat\win32\gpsim.def, plat\win32\libgpsim.def, src\gpsim_interface.h, src\gpsim_time.cc src\gpsim_time.h gui\gui_menu.cc gui\gui_regwin.cc, gui\gui_src_asm.cc gui\gui_trace.cc gui\gui_watch.cc src\hexutils.cc, src\i2c-ee.cc src\icd.cc plat\win32\icd.cc src\icd.h cli\input.cc, src\interface.cc, src\interface.h, gpsim\main.cc, cli\misc.h, src\os_dependent.cc, src\pic-processor.cc, src\pic-processor.h, src\processor.h, src\program_files.cc, cli\scan.ll, src\sim_context.cc, cli\socket.cc, src\stimuli.cc, src\symbol.h, src\trace.h, src\ttoken.cc, src\ttoken.h, cli\ui_gpsim.cc, cli\cli.vcproj, gui\gui.vcproj, src\src.vcproj, gpsim\gpsim.vcproj: These changes are for building the files in the src folder as the library libgpsim.dll under Windows. There were a couple of global variables that needed to be decoupled with accessor functions for access from gpsim.exe and other modules. I found that putting global variables in the gpsim.def file didn't work. The globals needing accessor functions were realtime_mode, reatime_mode_with_gui, verbose, and use_icd. I also needed to create the NullConsole and NullUserInterface class in src. These provide IConsole and IUserInterface objects with no implementation. Now cli in gpsim.exe creates it own implementation and passes it to the function SetUserInterface(). Any other application that links to libgpsim.dll and expects test messages will need to pass there own IConsole and IUserInterface implementations. At some point I hope I (or someone) will clean up all of the cout references and use the GetUserInterface() function. Renamed macros in exports.h from GPSIM_DLL_EXPORT, GPSIM_EXT_CLASS, and GPSIM_EXPORT to added the LIB prefix reflecting the new library file. Created a new file libgpsim.def and moved all the symbols from gpsim.def into it. Emptied gpsim.def of all symbols. References to bp now call get_bp(). References to ui now call 2005-11-13 Scott Dattalo * gui/gui_menu.cc: The experimental Preferences window caused a crash if it was opened, but the source browser was not opened. 2005-11-13 Borut Razem * plat/win32/gpsim.def: MSVC sync * modules/switch.cc: added #include 2005-11-12 Scott Dattalo * cli/input.cc, cli/scan.ll: Under certain conditions, command assertions were causing the lexer to get confused. * gui/gui_menu.cc: experiment code with preferences. * src/ioports.cc, modules/encoder.cc, modules/paraface.cc, modules/push_button.cc: Calls to Stimulus_Node->update() method unnecessarily passed the current simulation time. * modules/resistor.cc, modules/resistor.h: The pullup resistor module was completely broken. * modules/switch.cc, modules/switch.h: The switch module never did work, but now it does! This is now truly a two-port device. * src/gpsim_time.cc, src/gpsim_time.h: Added methods to control the real time to simulated time mapping. * src/breakpoints.cc: Command Assertions were unnecessarily adding an extra '\n' to the end of the command string. * src/stimuli.cc, src/stimuli.h: Originally node updates would update the node state and refresh connected stimuli all within the context of a single method. Now this has been split into two methods. This was added to support the switch module. In addition, the new method 'getThevenin()' retrieves the full electrical state of a stimulus. 2005-11-09 Robert Pearce * src/pic-processor.cc, src/processor.cc: Update simulation time base when ever the processor's oscillator frequency is changed. 2005-11-08 Borut Razem * makefile.mingw: MINGW sync 2005-11-06 J.R. Heisey * src/cmd_gpsim.h: Ability to format a value using a bit mask. * cli/cmd_symbol.h: Routines to dump and set an indexed value. * cli/cmd_x.cc cli/cmd_x.h: Lets use set reg(2)=expr. * src/processor.h: Implemented new function Processor:: ConstructInvalidInstruction() function to allow derived classes to define there own Invalid instruction types. * src/expr.cc src/expr.h, src/ValueCollections.cc,h, src/symbol.cc src/symbol.h: Implemented classes to expose to the command prompt interface an indexed variable symbol type commonly refered to as arrays. * cli/scan.ll, cli/parse.yy: Implemented the parsing of indexed (array) variables in the command language. RAM, EEPROM and ROM are the first ones. (i.e. RAM[$20]) * cli/scan.ll: Implemented strings as single quotes as well as double quotes. * Fixed issue where setting a RAM value from the command prompt would not update the GUI windows. * cli/parse.yy: Allow setting a RAM using the reg() operator. (i.e. reg(3)=54) * src/value.cc src/value.h: Added extra operators for Integer and Float. Also added a bitmask for Integer to be used for display purposes. * src/registers.cc,h: Implemented RegisterCollection class. * src/sim_context.cc: In CSimulationContext::Clear() now clear the symbol table after I delete the processors in the processor list. This provents the symbol table from deleting a symbol that is actually owned by the processor. 2005-11-02 Robert Pearce * src/tmr0.cc, src/stimuli.cc: Fix TMR0 external clocking ploarity. Fixed a typo in IOPIN::getBitChar(). 2005-10-24 Scott Dattalo * src/gpsim_time.cc, src/gpsim_time.h: Fixed a nasty cycle counter bug that would erroneously clear a break point whenever two breaks were set at the same cycle. * src/interface.cc: Interface callback breakpoint now can display a message in the breakpoint list. * src/p16x6x.cc, src/p18x.cc, src/pir.cc, src/pir.h, src/14bit-tmrs.cc, src/14bit-tmrs.h, src/16bit-processors.cc: The whole "pir_set" design needs to be re-implemented. At issue is that every pic potentially has a different bit mapping for the PIR registers. The pir_set desgin attempts to accommodate this with pure VF's. Unfortunately, peripherals like the TMRL class that need to set PIR bits only can call specific methods like "set_tmr1f()". However, the TMRL class is used as a base for TMR3 too! I created a new class called "InterruptSource" that can trigger interrupts instead. 2005-10-21 Borut Razem * makefile.mingw, plat/win32/makefile.mingw, plat/win32/make.mingw, plat/win32/gpsim.nsi: building gpsim setup executable on WIN32 2005-10-20 Scott Dattalo * regression/make.regression: modified the default make target to create a .cod file * regression/tmr0_16bit/Makefile, regression/tmr0_16bit/tmr0_16bit.asm: Added tests for 16bit mode of tmr0. * regression/tmr0_16bit/delay.inc, regression/tmr0_16bit/delay.asm: Added to CVS. Made the delay routine a separate source module. Also, a DELAY macro has been created so that exactly N cycles can be delayed, where 0 < N < 65536+15. * src/16bit-processors.cc: portd and porte registers were not getting added to the symbol table. 2005-10-14 Scott Dattalo * regression/tmr0_16bit/tmr0_16bit.asm: Interrupt test assertions. 2005-10-13 Borut Razem * makefile.mingw, doc/makefile.mingw: building gpsim documentation on WIN32 2005-10-13 Scott Dattalo * gpsim/main.cc, cli/cmd_load.cc, cli/cmd_macro.cc, cli/input.cc, cli/socket.cc: command assertions were not getting processed immediately. * regression/tmr0_16bit/tmr0_16bit.asm: Started interrupt test. 2005-10-12 Borut Razem * regression/make.regression, regression/run_regression.sh, regression/*/Makefile: added possibility to define gpism path 2005-10-12 Scott Dattalo * src/16bit-registers.cc, regression/tmr0_16bit/tmr0_16bit.asm: The high byte of TMR0 was not getting updated during TMR0L reads. 2005-10-11 Scott Dattalo * src/pic-instructions.cc, src/pic-instructions.h: Added methods to the instruction class that provide acces to the source defining an instruction (this is going to be used with tracing and disassembly soon). 2005-10-11 Borut Razem * regression/usart_test/usart_test.asm, regression/logic_test/logic_test.asm, modules/makefile.mingw, gui/gui_breadbord.cc, plat/win32/gpsim.nsi: gpsim_modules.dll renamed to libgpsim_modules.dll 2005-10-09 Scott Dattalo * regression/tmr0_16bit/tmr0_16bit.asm: More tmr0 regressions testing * src/cod.cc, src/breakpoints.h, src/breakpoints.cc: Added the CommandAssertion class. These are assertions that are associated with instructions in such a way that when an instruction executes, the command assertion will issue a gpsim command line command. * gpsim/main.cc: removed a debug printf. * cli/input.cc, cmd_macro.cc, cli/ui_gpsim.cc: command assertions were getting inserted into the end of the command line input stream as opposed to interjected immediately. 2005-10-10 Scott Dattalo * gpsim/main.cc, cli/cmd_load.cc, cli/cmd_symbol.cc, src/symbol.cc, src/symbol.h: Simplified the way user defined symbols are added to the symbol table. 2005-10-09 Borut Razem * plat/win32/fd2raw.cpp, cli/input.cc: win32_set_is_readable() not needed for glib >= 2.6 * src/sim_context.cc, src/i2c_ee.cc: fixed the p12ce518 regression test problem * cli/socket.cc: g_io_channel_set_flags() not implemented on WIN32; call it only on non-WIN32 platforms or if _DEBUG 2005-10-08 Scott Dattalo * src/tmr0.cc, regression/tmr0_16bit/tmr0_16bit.asm: tmr0 clear_break was getting called recursively. The tmr0 regression test now checks psa combinations. 2005-10-08 Robert Pearce * src/p12x.cc, src/p16x5x.cc, src/p16x5x.h, src/stimuli.cc, src/tmr0.cc, src/tmr0.h: Added support for clocking TMR0 from an external source. This applies to the 12-bit core where TMR0 is a dedicated pin. 2005-10-08 Borut Razem * src/processor.cc: fixed the "processor list" problem * gpsim/makefile.mingw, gpsim/gpsim.vcproj, plat/win32/gpsim.nsi, doc/gpsimWin32.html: linking with libgtkextra-win32-2.1_dll.lib, using gtkextra-win32-2.1.dll 2005-10-07 Borut Razem * plat/win32/gpsim.nsi: Changed version to 0.24.11 2005-09-23 J.R. Heisey * cli/parse.yy: Added to string_option the ability to use a string variable. This will apply to any command that uses the string_option. I specifically added it for module library. 2005-10-03 Scott Dattalo * configure.ac: Changed version to 0.24.11 2005-10-03 Scott Dattalo * src/12bit-processors.cc, src/14bit-processors.cc, src/14bit-tmrs.cc, src/16bit-registers.cc, src/p12x.cc, src/p16f62x.cc, src/p18x.cc, src/pic-processor.cc, src/tmr0.cc: Debug cleanups. 2005-10-03 Scott Dattalo * gui/gui_menu.cc: More source browser preference configuration. * gui/gui_regwin.cc: Turned register sheet rows and columns back on. (They were off because of a bug in gtkextra, but that bug is fixed now). * src/16bit-processors.cc, src/16bit-registers.cc, src/p18x.cc, src/tmr0.cc: The create+sfr_map() method was getting called twice fof the p18f devices. T0CON was not retaining its 0xff reset value. TMR0L was reporting the wrong value while it was turned off. * regression/run_regression.sh, regression/tmr0_16bit/18f452.lkr, regression/tmr0_16bit/Makefile, regression/tmr0_16bit/tmr0_16bit.asm, regression/tmr0_16bit/tmr0_16bit.stc: Added a regression test for TMR0. 2005-10-02 Borut Razem * gui/makefile.mingw: Updates to support user defined preferences. * doc/gpsimWin32.html: Use CSS 2005-10-01 Scott Dattalo * src/processor.cc: Changed Processor::init_program_memory_at_index() so a derived processor can define its own bad_instruction type. Fixed a crashing bug in trim() when a empty was passed in. 2005-09-30 Scott Dattalo * gui/gui_menu.cc, gui/gui_src.h, gui/gui_src_asm.cc: Source browser clean up. 2005-09-29 Scott Dattalo * gui/gui_menu.cc, gui/gui_src.h, gui/gui_src_asm.cc: More preferences work; now the colors for the source browser example text can be configured (this configuration doesn't map back into the source browser yet). 2005-09-28 Scott Dattalo * src/16bit-registers.cc, src/16bit-registers.h, src/tmr0.cc, src/tmr0.h: The high byte of TMR0 for the 18F family was not updating correctly in certain circumstances (like during single stepping). Thanks to Robert Merkel for reporting this issue. 2005-09-27 Scott Dattalo * gui/gui_menu.cc: Even More work on preferences dialog window. 2005-09-26 Scott Dattalo * gui/gui_menu.cc: Even More work on preferences dialog window. 2005-09-26 Scott Dattalo * gui/gui_menu.cc: More work on preferences dialog window. 2005-09-25 Robert Pearce * src/p12x.cc, src/p12x.h, src/p16x5x.cc, src/p16x5x.h, src/pic-processor.h, src/pic-processor.cc: Added support for the 16C56 and the 10F200. 2005-09-23 Scott Dattalo * src/breakpoints.cc: Breakpoint numbers are now printed in decimal. 2005-09-23 J.R. Heisey * cli/ui_gpsim.cc: Fixed a bug were a reused string was not being cleared before being appended to. *gui/gui_symbols.cc: Added code snippet to truncate multi-line symbol values. 2005-09-21 J.R. Heisey * src/cod.cc: Added an extra test to prevent a error message from displaying when a non cod file attempted. This really should validate that the file is a cod file earlier. 2005-09-20 Scott Dattalo * gui/gui_regwin.cc: GUIRegisterList.register_size was being set improperly. 2005-09-20 J.R. Heisey * gui_processor.cc, gui_processor.h, gui_register.h, gui_regwin.cc, gui_watch.cc: Made changes in Register_Window to and other code to support EEPROM memory window in the same way we now support RAM memory window. 2005-09-19 Scott Dattalo * gui/preferences.cc, gui/preferences.h: New files to support user defined gui preferences. * gui/Makefile.am, gui/gui.h, gui/gui_main.cc, gui/gui_menu.cc, gui/gui_regwin.cc, gui/gui_watch.cc: Updates to support user defined preferences. 2005-09-17 Scott Dattalo * src/14bit-tmrs.cc, src/16bit-registers.cc, src/16bit-registers.h, src/ssp.cc, src/uart.cc, src/uart.h: - Initialized data members of many classes. Thanks to Robert Merkel for uncovering this issue. 2005-09-16 Scott Dattalo * gui/gui_watch.cc: Had to change the way ASCII is checked under windows. 2005-09-16 Scott Dattalo * gui/gui_src_asm.cc: fixed compiler warnings * gui/gui_watch.cc: Removed mask, BP, type, and b15..b0 bit columns. Added a newbit string column. * src/12bit-instructions.h, src/14bit-instructions.h, src/16bit-instructions.h, src/breakpoints.h, src/hexutils.cc, src/pic-instructions.cc, src/pic-instructions.h, src/processor.cc: Fixed disassembly output for shadowed instructions. 2005-09-16 Scott Dattalo * gui/gui.h, gui/gui_main.cc, gui/gui_regwin.cc, gui/gui_regwin.h, gui/gui_watch.cc, gui/gui_watch.h: Added color info to the watch window. Watch window columns are now adjustable. Centralized color processing. 2005-09-15 Scott Dattalo * gui/gui_main.cc, gui/gui_watch.cc, gui/gui_watch.h: The state of the watch window is now preserved from one debug session to the next. 2005-09-14 Scott Dattalo * gui/gui_src.h, gui/gui_src_asm.cc, src/breakpoints.cc, src/breakpoints.h, src/pic-instructions.cc, src/pic-instructions.h, src/processor.cc, src/trace.cc: Fixed usability issues with setting breakpoints through the source browser. The 'Drag Break' feature has been disabled since it really doesn't work too well for assertions (or at least doesn't apply). Fixed a bug that prevented toggling breaks that occur at the current PC. A new class was added to better handle the breakpoint classes. This new class, AliasedInstruction, is a base for the breakpoint class and basically will provide an API to handle aliased or replace instructions. 2005-09-11 Scott Dattalo * plat/win32/gpsim.def: updated for API changes. 2005-09-11 Scott Dattalo * src/ioports.cc, src/ioports.h, src/stimuli.cc, src/stimuli.h, src/value.cc, gui/gui_breadboard.cc, gui/gui_breadboard.h: Attributes can now be updated through the breadboard. Pin states can now be updated through the breadboard. 2005-09-10 J.R. Heisey * src/cmd_gpsim.h, cli/ui_gpsim.cc: Modified one of the FormatProgramAddress() functions in IUserInterface and CGpsimUserInterface. 2005-09-09 Scott Dattalo * src/cod.cc: delete_directory() incorrectly deleted memory. 2005-09-08 J.R. Heisey * configure.ac, plat/win32/gpsim.nsi: bump build number * gui/gui_src_asm.cc, src/value.cc: Fixed crashes when 'Add to watch' menu item is selected with no test selected or with white space selected. 2005-09-07 Scott Dattalo * cli/cmd_load.cc: null pointer fix (was causing core dump in the regression test). * module/usart.cc: added the TxBuffer attribute. * regression/usart_test/usart_test.cc: tested usart module transmitter. 2005-09-07 J.R. Heisey * cli/cmd_load.cc, cli/parse.yy: Fixed a bug in load command where you could not specify both processor and file as literal strings. 2005-09-06 J.R. Heisey * gui_processor.cc, gui_processor.h, gui_register.h, gui_regwin.cc, gui_regwin.h, gui_watch.cc, gui_main.cc: Changed Register_Window:: registers from type GUIRegister* to GUIRegisterList*. Added GUIRegisterList * m_pGUIRegisters to GUI_Processor. Now GUIRegisters are instantiated in a GUI_Processor for that other windows besides the RAM_RegisterWindow. This fixes a bug where you cannot add a register symbol to the watch window unless the RAM_RegisterWindow was opened once. * gui/gui_src_asm.cc, gui/gui_watch.cc: Removed 'Select symbol' pop up menu item since it was broken anyway. Added 'Add to watch' pop up menu item. Select symbol text in the source window, selecting 'Add to watch' will add register symbols to the Watch window. * src/symbol.cc, src/symbol.h: Added findRegisterSymbol() that accepts a const char * as a parameter. gui/gui_main.cc: Call new function GUI_Processor::SetCPU() from GUI_Interface::NewProcessor(). SetCPU() does some additional initialization. * src/value.cc, src/value.h: Added toupper(string&) function. * gui/gui_src_asm.cc: Changed to use new toupper() function due to issues between Windows and Linux. * src/operator.cc: quite some type mismatch warning messages 2005-09-03 Scott Dattalo * src/bitlog.cc, src/bitlog.h: Fixed bugs with the new ThreeStateEventLogger class. * src/uart.cc, modules/usart.h, modules/usart.cc * regression/usart_test/*: added a regression test for the usart * src/symbol.h, src/symbol.cc: attribute symbol can now be used in expressons. 2005-09-02 Borut Razem * doc/gpsimWin32.html: linking with glib-2.6.6, gtk+-2.6.9, pango-1.8.2 2005-09-02 Manuel Bouyer * src/16bit-registers.cc: PCL accesses were using program memory indexes instead of program memory addresses. * src/14bit-tmrs.cc: TMR2:current_value() would return the contents of PR2 even when configured for normal operation. * src/p18x.cc: typo in porte names. 2005-09-01 Manuel Bouyer * src/p18x.cc: Fix crash when an 18F252 is instantiated. * src/gpsim_time.cc: Disabled unnecessary debug printing * src/uart.cc: Fixed spurious uart transmit. Add io sink for Receiver. 2005-08-31 J.R. Heisey * src/processor.cc: Fixed a crashing bug when the --source=disable option is used. 2005-08-30 J.R. Heisey * cli/input.cc: Created function parse_string_only() which will parse the passed in command string with out emptying existing commands from the buffer. Modified LLStack::GetNext() and LLStack::Pop() to not remove the last LLStack object. Fixed memory leak in LLStack::Pop(). * cli/ui_gpsim.cc: Added EOL to injected abort_gpsim_now command. 2005-08-30 Scott Dattalo * src/gpsim_time.h, src/gpsim_time.cc, bitlog.cc: Made the constant 'END_OF_TIME' part of the Cycle_Counter class. This is now used to initialize members of the ThreeStateLogger class. 2005-08-30 Scott Dattalo * src/processor.h, src/processor.cc, src/pic_processor.cc: Fixed step-over feature for the 18F family. 2005-08-30 Scott Dattalo * regression/rt.sh: The new version of the regression test script was not checked in yesterday. This new version creates a simple stc file and invokes a single regression test. It then checks to see if the test was successful. * regression/simulate, regression/create_stc: Removed from CVS. 2005-08-29 J.R. Heisey * src/ioports.cc, src/ioports.h: Added PortModule::getPin(). Fixed a few compiler warnings. src/src.vcproj: Added bit.cc and bit.h. src/stimuli.cc, src/symbol.cc, src/symbol.h: Changed references of IOPORT to PortRegister. 2005-08-29 Scott Dattalo * modules/encoder.cc, modules/logic.cc, modules/paraface.cc, modules/push_button.cc, modules/switch.cc, src/i2c-ee.cc, src/p12x.cc IOPIN::update_direction method now has a refresh option. * src/ioports.h, src/ioports.cc: - Added several options to control when I/O pins refresh their state information (with respect to stimuli that is). - PicPortBRegister::get () had the wrong parameter signature and thus was not getting invoked (the parent get() method was getting invoked instead). * modules/usart.cc: updating to new iopin api. Added new code and removed a bunch dead code and generally cleaned things up - it's still not working yet though. * src/12bit-processors.cc, src/12bit-processors.h, src/p16f62x.cc: pic-processor.cc, pic-processor.h, processor.h set_config_word now returns true if the config word address is successfully set. * src/pic-processor.cc: Fixed bug with init_program_memory_at_index() - it was not setting the configuration word if the address was in configuration memory. * src/bitlog.cc: Added a 'ThreeStateEventLogger' that's analogous to the bit and byte logger. * src/intcon.cc: Turned off some debugging code. * src/registers.h: fixed typo in comment * src/stimuli.cc, src/stimuli.h: Iopin's were checking Z state before W state - this caused a W-state condition to be returned as a Z-state. In addition, the getDrivingState() was being checked as opposed to the getDrivenState(). - Added getMonitor() method. * src/uart.h, src/uart.cc: Updating to new I/O pin design. And numerous changes to clean up and fix the code - this is still not working though. 2005-08-23 Scott Dattalo * run_regression.sh, rt.sh: Redesigned the regression tests to make use of new gpsim scripting features. Also, all tests have been converted from absolute-mode to object-code mode. * digital_stim/digital_stim.asm, digital_stim/digital_stim.stc * instructions_12bit/instructions_12bit.asm * instructions_12bit/instructions_12bit.stc * instructions_14bit/instructions_14bit.asm * instructions_14bit/instructions_14bit.stc * instructions_16bit/instructions_16bit.asm * instructions_16bit/instructions_16bit.stc * interrupts_14bit/interrupts_14bit.asm * interrupts_14bit/interrupts_14bit.stc * logic_test/Makefile, logic_test/logic_test.asm, logic_test/logic_test.stc * macro_test/macro_test.asm, macro_test/macro_test.stc * node_test/node_test.asm, node_test/node_test.stc * p12ce518/p12ce518.asm, p12ce518/p12ce518.stc * p16f84/p16f84.asm, p16f84/p16f84.stc * p18f452_ports/p18f452_ports.asm, p18f452_ports/p18f452_ports.stc * register_stim/register_stim.asm, register_stim/register_stim.stc * digital_stim/16f84.lkr, digital_stim/Makefile: added * instructions_12bit/12c508.lkr, instructions_12bit/Makefile: added * instructions_14bit/16f628.lkr, instructions_14bit/Makefile: added * instructions_16bit/18f452.lkr, instructions_16bit/Makefile: added * interrupts_14bit/16f84.lkr, interrupts_14bit/Makefile: added * macro_test/16f84.lkr, macro_test/Makefile: added * node_test/16f877.lkr, node_test/Makefile: added * p12ce518/p12ce519.lkr, p12ce518/Makefile: added * p16f84/16f84.lkr, p16f84/Makefile: added * p18f452_ports/18f452.lkr, p18f452_ports/Makefile: added * register_stim/16f84.lkr, register_stim/Makefile: added 2005-08-22 Scott Dattalo * src/ioports.cc: Fixed typo in pullup in setDefaultPullupControl method. 2005-08-21 J.R. Heisey * cli/input.cc, cli/input.h, gpsim/main.cc: Added two command options. Option -E will echo commands to the console. Useful for stc debugging. This will also display all the command line parameters. Useful when another tool launches gpsim but does not display the command line. gpsim/main.cc, src/init.cc: Option '-S disable' will prevent source code from being loaded. Usefule for automated regression testing. '-S enable' will enable source code loading. See online help. * src/p16x7x.cc: Fixed an sign/unsigned warning. * src/processor.h: Test function for whether source file is open. * src/sim_context.cc, src/sim_context.h: Added new global boolean property called EnableSourceLoad. Setting it to false will prevent source code from being loaded. Purpose is when gpsim is used for automated regression testing to speed things up. * src/stimuli.cc: Fixed a crashing bug when port() operator is used with out any module explicitly entered as a parameter. * src/symbol.h, src/value.h: Added findBoolean() to Symbol_Table. * src/value.h: Added a equals operator to Boolean. 2005-08-19 J.R. Heisey * cli/input.cc: Added code to allow stc files with for Windows EOL to be read under Linux. 2005-08-18 J.R. Heisey * src/processor.cc, src/processor.h, src/registers.cc, src/symbol.cc: Added two processor boolean attributes BreakOnValidRegisterRead and BreakOnInvalidRegisterWrite. * src/breakpoints.cc, src/breakpoints.h, src/cmd_gpsim.h, plat/win32/gpsim.def, cli/input.cc, cli/ui_gpsim.cc, gpsim/main.cc: Added -e or --exit command line option that accepts a parameter onbreak. This causes gpsim to exit when the simulation halts. 2005-08-11 Scott Dattalo * src/breakpoints.cc, src/breakpoints.h: Allowed breakpoint expressions for breakpoint instructions to act like assertions. * src/cmd_manager.h, src/cod.cc, src/gpsim_interface.h, src/modules.cc, src/modules.h, cli/input.cc: Added the capability to run multiple module scripts. * cli/ui_gpsim.cc: Fixed bug guint64 formatted output. * regression/logic_test/Makefile, regression/logic_test/logic_test.asm: The new I/O port design more correctly implements I/O pins and this exposed a bug in the regression test. Also, this regression test was used to develop the multiple Module Script feature. 2005-08-11 J.R. Heisey * src/stimuli.cc, src/stimuli.h, src/symbol.cc, src/symbol.h: Quick fix of when trying to attach an input data stimuli that was broken a couple of checkins ago. 2005-08-11 Borut Razem * plat/win32/gpsim.nsi: bump build number 2005-08-11 Scott Dattalo * src/ioports.cc, src/ioports.h: Added the PeripheralSignalSource class to simplify the connection of I/O pins to peripherals. Also, added more documentation about the I/O port design. * src/p16x7x.h, src/p16x7x.cc, src/p16f87x.cc: The Analog to Digital convertor peripheral now connects to I/O pins again. Also, the A2D module was redesigned so that less of the internal implementation is exposed. * src/14bit-tmrs.h, src/14bit-tmrs.cc, src/ssp.h, src/ssp.cc, src/p16x6x.cc: Updated the peripheral connections with the new PeripheralSignalSource class. 2005-08-10 J.R. Heisey * src/stimuli.cc, src/stimuli.h, src/symbol.cc, src/symbol.h, cli/cmd_attach.cc, cli/cmd_attach.h, cli/parse.yy, cli/scan.ll, plat/win32/gpsim.def: Modified the attach command with the pin() and port() operators. Now you can use one of 4 variations of these operators to specify the module, port name and/or pin number that represents the underlying stimulus object. An example of how to use: if a pin number is defined as a program file symbol, you may use the symbol name in the port() or pin() operators. This way your STC file can be more generic and support a variety of firmware code files as long as you use the same symbol name for the pin. See the online help for more details. The pin() operator refers to package based pins. The port() operator refers to port based pins. Other stimulus may still be refered to using just the name of the stimulus. * src/attributes.cc: Changed a few global symbols so that Symbol_Table::Clear() does not remove them. * src/fopen-path.cc, src/fopen-path.h, gpsim/main.cc: Fixed -L source path command line option. Added code to support a gpsim SourcePath global string symbol that give command prompt access to the source search path. * src/ioports.h: Fixed a warning message about the destructor of PinModule not being virtual. * src/symbol.cc,h, cli/cmd_symbol.cc: Added the ability to use the '.' character as a trailing wild card in the symbol command. Example PIC. will list all symbols that begin with the letters PIC. 2005-08-04 Scott Dattalo * gui/gui_breadboard.cc, src/symbol.h, src/symbol.cc, src/stimuli.cc: Verified that template issues with gcc 3.4.X have been resolved and removed a #define that had beed added to get around this. 2005-08-06 Scott Dattalo * src/ssp.h, src/ssp.cc: Updated the SSP peripheral with the new I/O port API. * src/14bit-processors.h, src/p16f87x.cc, src/p16f87x.h, src/p16x6x.cc, src/p16x6x.h, src/p16x7x.cc, src/p16x7x.h: Updated to the new SSP API. 2005-08-04 J.R. Heisey * symbol.cc, symbol.h: Fixed the template compile problems for gcc 3.4.4 due to new bugs in gcc. I didn't see this issue using gcc 3..3.3 on linux. I only have 3.4.4 version of the compiler under cygwin. I've left the #define commented out so someone can test it under linux before removing the #ifdef's. 2005-08-04 Scott Dattalo * gui/gui_breadboard.cc, src/symbol.h, src/symbol.cc, src/stimuli.cc: Backed out some of the symbol changes made by JR because the code doesn't compile on Linux (gcc 3.4.2). At the moment, this means that stimuli and node dumps do not work. 2005-08-04 J.R. Heisey * cli/cmd_node.cc, plat/win32/gpsim.def, gui/gui_breadboard.cc, modules/resistor.cc, src/stimuli.cc, src/stimuli.h, src/symbol.cc, src/symbol.h, src/value.h: Eliminated the node_list and stimulus_list. There are now Symbol_Table functions and iterators available for node_symbol and stimulus_symbol objects which contain Stimulus_Node and stimulus objects respectively. Adjusted the way stimulus and stimulus_Node objects are named. Unnamed objects are not put into the symbol table. The respective new_name() functions will add the objects into the symbol table appropriately. Removes several references that added these objects to the symbol table. Also modified the PullupResister to name the res IO_bi_directional i/o pin to pullupname + ".pin". Now the PullupResister exists in the symbol table as a module with what ever you named it. The pin is attribute of the PullupResister module. Whew! 2005-08-04 Scott Dattalo * src/uart.cc, src/uart.h, src/p16x6x.cc, src/16bit-processors.cc, src/16bit-registers.cc, src/16bit-registers.h, src/p16f62x.cc: Add I/O source and sink connections to the usart peripheral. So now the usart is connected to I/O pins using the new I/O port design. 2005-08-02 J.R. Heisey * src/os_dependent.cc, src/processor.cc,h, src/cod.cc, plat/win32/gpsim.def: Fixed a problem where loading a program file (no STC) using the GUI resulted source code not being found even though that source was in the same folder as the program file. * gui/gui_menu.cc: Fixed the display of cycle count in cycles where %Lx was used in a sprintf instead of the platform independent project macro PRINTF_INT64_MODIFIER. 2005-08-02 Scott Dattalo * src/16bit-processors.cc, src/p18x.cc: The new I/O port register symbols were getting added to the symbol table twice. Also, the eeprom peripheral for some of the 18f devices was not getting created. 2005-08-02 J.R. Heisey src/cmd_gpsim.h * src/cod.cc: Removed an error message from PicCodProgramFileType:: open_a_file() that is handled externally. * src/registers.cc: Fixed a bug in RegisterValue::toString() not displaying enough digits. * src/value.h, src/symbol.h, src/registers.h, gui/gui_register.h: Added some conversion and equals operators. * cli/ui_gpsim.cc, src/cmd_gpsim.h: Added several string formatting routines. * plat/win32/gpsim.def: Updated for new pin I/o routines. * gui/gui_watch.cc, gui/gui_watch.h: Updated display of values to account for uninitialized bits and bit masked register symbols. 2005-08-01 Scott Dattalo * src/p16x5x.h, src/p16x5x.cc: Upgraded the P16C54 and P16C55 to the new I/O port design. * src/16bit-processors.cc, src/16bit-registers.cc, src/16bit-registers.h, src/p18x.cc, src/p18x.h: Completed converting the 16-bit core I/O ports to the new I/O redesign (note - the peripheral-to-I/O mapping still needs to be completed). * src/ioports.h, src/ioports.cc: deprecated the old PIC_IOPORT class and all of its children. 2005-08-01 Scott Dattalo * src/14bit-processors.cc, src/14bit-processors.h, src/14bit-tmrs.cc, src/14bit-tmrs.h, src/intcon.cc, src/intcon.h, src/pir.h, src/p16x6x.cc, src/p16x6x.h, src/ioports.cc, src/ioports.h, src/p16x7x.cc, src/p12x.cc: -- The intcon and pir registers were not getting set up correctly for the midrange devices. -- Added 'sinks' and 'sources' for the CCP module. * src/16bit-processors.cc, src/16bit-processors.h, src/p18x.cc, src/p18x.h: Began porting the new I/O port design to the 16bit core devices. * src/symbol.cc: Added a diagnostic message that is printed whenever a register symbol with a null cpu is added to the symbol table. * regression/run_regression.sh, regression/p18f452_ports.asm, regression/p18f452_ports.stc: -- Added new regression test to test the P18F family I/O ports. -- Redesigned the processor construction sequence. -- The P18F1220 did not have PortB pullup resistors. 2005-07-30 J.R. Heisey * src/symbol.cc, src/symbol.h: Added a list of symbols that are defined from the gpsim command line. The list and the symbol values are preserved when the symbol table is cleared due to a new processor being allocated. Removed the add() function that accepted a symbol type as a string. See comments for cmd_symbol.cc,h. * src/attributes.cc, src/sim_context.cc, src/sim_context.h: Changed or added calls to the symbol table. * cli/ui_gpsim.cc, src/cmd_gpsim.h: Added functions to render integer values to strings based on a system level defined radix. The radix will be exposed as a global attribute. There are distinct radix definitions for program addresses, RAM addresses and data values. Will expose a global attribute to define the prefix for displaying hexidecimal values. The default is '$'. * gpsim/main.cc: Added -D command line option for defining symbols and their values to be placed into the symbol table. * src/value.cc, src/value.h: Added string parsing and constructor functions for each data type. Used for the command line parsing of symbol definitions. * cli/cmd_symbol.cc,h, cli/cmd_load.cc,h, cli/parse.yy: The load command will now accept symbols as input for the filename. Combined with the symbol defines on the command line, one STC file can be used to open any program file by defining a symbol on the gpsim command line and referencing that symbol in the load commmand. * The symbol command can now be used to create a symbol from the gpsim command prompt or an STC file. The syntax is symbol =. Types include string, integer, float and boolean. * gpsim/gpsim.vcproj, gui/gui_menu.cc, gui/gui_regwin.cc: Removed the references for gtk_file_selection_get_filename_utf8(). This was added due to compile time issues with gtkextra-2.1 under Visual Studio .NET. The VS.NET build links a gtkextra static lib into the exe. Even if you can get it to compile, sometimes gpsim will crash before its main() function is entered. The use of gtkextra-2.1 under VS.NET is not recommended and I have reverted the gpsim.vcproj back to gtkextra-2.0. * src/program_files.cc: Changed error handling logic to prevent a "list file not found" error from displaying in an inappropriate situation. 2005-07-29 Scott Dattalo * src/ioports.cc, src/ioports.h, src/p12x.cc, src/p16x6x.cc, src/registers.h, src/stimuli.cc, src/stimuli.h, src/symbol.cc, src/tmr0.cc, src/tmr0.h: Introduced the concept of Multi-State logic to stimuli. 2005-07-15 J.R. Heisey * src/symbol.cc: Added check to prevent a symbol name of a null string from being added as a symbol. * src/stimuli.cc: Added a check to prevent a IOPIN name null string pointer from being added to the symbol table. * modules/resistor.cc: PullupResistor() constructor was setting its attribute before it had set its own name resulting in the attribute name not being scoped correctly. * src/breakpoints.cc, src/breakpoints.h, cli/cmd_break.cc, cli/cmd_break.h: Added code to support break expressions of the form (Reg & mask BoolOp value) where BoolOp includes <, >, <=, >= and != operators. Just need to change the print() and action() console output functions of the break classes and uncomment code in parse.yy. 2005-07-26 Scott Dattalo * src/bit.h, src/bit.cc, src/Makefile.am: Added new files to handle a 'Bit' object. This code was formerly tucked away in registers.cc. * src/stimuli.h, src/ioports.h, src/ioports.cc: Added a control object for the PinModule to handle I/O pin pullups. Also, added an option to prohibit certain stimulus updates whenever I/O pin state information changes. 2005-07-26 Scott Dattalo * src/16bit-instructions.cc, regression/instructions_16bit/instructions_16bit.asm: Fixed bug with 16bit processors Table Read (more index vs address). Thanks to Peter Onion for pointing this (and other 16bit stuff out). 2005-07-26 Scott Dattalo * src/i2c-ee.cc, src/i2c-ee.h, src/ioports.cc, src/ioports.h, src/p12x.cc, src/stimuli.cc, src/stimuli.h: Fixed 12CE51x internal eeprom peripheral. * gui/gui_menu.cc, gui/gui_regwin.cc: Removed dependency on gtk win32 port. 2005-07-25 Scott Dattalo * regression/instructions_16bit/instructions_16bit.asm: added tests for multi-word instructions. * regression/p12ce518/p12ce518.asm: debugging eeprom i2c interface * gui/gui_src_opcode.cc, src/16bit-instructions.cc, src/16bit-instructions.h: Fixed more problems with address <--> index mapping. (and there are still some issues remaing with the program memory viewer). * src/i2c-ee.cc, src/ioports.cc, src/ioports.h, src/p12x.cc, src/p12x.h: The eeprom i2c interface is broken... 2005-07-23 Borut Razem * gpsim/gpsim.vcproj, doc/gpsimWin32.html, plat/win32/gpsim.nsi: use pthreads-w32-2-7-0-release * cli/scan.ll: corrected typo 2005-07-22 Scott Dattalo * cli/cmd_disasm.cc: rnages were disassembling wrong addresses * gui/gui_src_asm.cc: cleanup * src/12bit-processors.cc, src/14bit-processors.cc, src/14bit-registers.cc, src/14bit-tmrs.cc, src/attributes.cc, src/gpsim_classes.h: Implenting new ioport design for 12bit cores. Fixed bugs with resets. * src/16bit-hexdecode.cc, src/16bit-instructions.cc, src/16bit-processors.h, src/16bit-registers.cc, src/cod.cc: 16bit processors were not getting loaded properly due to some bugs with address <-> index mapping 2005-07-21 Scott Dattalo * src/ioports.h, src/ioports.cc: classes derived from PortRegister can now specify the type of PinModule class. 2005-07-15 Scott Dattalo * src/12bit-processors.cc, src/14bit-processors.cc, src/14bit-processors.h, src/16bit-registers.cc, src/16bit-registers.h, src/intcon.h, src/ioports.cc, src/ioports.h, src/p16f62x.cc, src/p16f87x.cc, src/p16x6x.cc, src/p16x6x.h, src/p16x7x.cc, src/p16x7x.h, src/p16x8x.cc, src/p16x8x.h, src/pic-processor.cc, src/pic-processor.h, src/registers.cc, src/registers.h, src/stimuli.cc, src/stimuli.h, src/tmr0.cc, src/tmr0.h, src/uart.cc, src/uart.h: I/O Port Redesign: These files have been updated to accommodate a new I/O Port design. Currently the design applies only to the mid-range PIC family, but will be propogated to the 12 and 16 bit cores too. In summary, the I/O pins are now managed with I/O pin modules. A port register maintains an array of these modules. In the old design, the I/O pins were managed directly by the Port registers. New classes have been designed to allow multiple signal sources, signal controls, and signal sinks for I/O pins. These new objects can be added at will and thus allow the exact behavior of an I/O pin be tailored to a specific processor (and even changed dynamically). Thus a base class in the processor heirarchy can instantiate a register object, and the derived processors populate it with custom functionality. * cli/cmd_break.cc: documentation clean up * modules/usart.cc, modules/usart.h: tinkering - * regression/logic_test/Makefile, regression/logic_test/logic_test.asm: Incorporates an un-released gpasm feature of the .direct macro. This feature allows multiple strings to be passed to gpasm. * regression/p16f84/p16f84.asm: Bug fix in PORTB pullup test 2005-07-15 J.R. Heisey * gui/gui_watch.cc, gui/gui_watch.h: Fixed problem with register symbol names not displaying in the Watch window. Introduced this bug when I made the bit mask feature in register symbols. * gui/gui_regwin.cc: Fixed problem with register symbol names not displaying in the RAM window. Introduced this bug when I made the bit mask feature in register symbols. 2005-07-11 J.R. Heisey * src/breakpoints.cc, h, src/cmd_gpsim.h, src/symbol.cc, plat/win32/gpsim.def, gpsim/main.cc, cli/ui_gpsim.cc, cli/ui_gpsim.h: Made changes so that when hitting a break will display program and register address symbols. * src/breakpoint.cc: Removed calls to eval_Expression() where it is not necessary. Enhanced the break on value action text to include symbols and bit mask value. * cli/ui_gpsim.cc,h, gpsim/main.cc: Added functions that help display program and register address symbols along with the address value. * src/trigger.cc: Fixed problem in TriggerObject:: eval_Expression() that was preventing non-expression based break points to not fire. * src/symbol.cc: Added check in Symbol_Table:: findRegisterSymbol() to get register bit mask defined for the CPU when the passed in value is zero. 2005-07-10 J.R. Heisey * plat/win32/gpsim.def, src/symbol.cc, src/symbol.h: Change function name from findRegister() to findRegisterSymbol() to reflect the return type. Added new findRegisterSymbol() version that takes a single address parameter. Did some minor code optimization of the findRegister() function. Due to the introductions of register symbol bit mask, I modified findRegister() to only return symbols that are defined for all bits of the register. * src/processor.cc: Changed some entry condition checks to allow processor::disassemble to disassemble one program address. Also made some minor code optimizations. 2005-07-06 Borut Razem * src/breakpoints.cc, src/gpsim_time.cc, src/interface.cc, src/processor.src, src/trace.cc: declare dummy_bp, dummy_cycles, dummy_gi, dummy_get_active_cpu, dummy_set_active_cpu and dummy_trace as non static to compile with gcc 3.4.4 * plat/win32/gpsim.nsi: corrected version number to 0.21.8 * gpsim/gpsim.vcproj, gpsim/makefile.mingw: linking with libgtkextra-win32-2.1.lib * doc/gpsimWin32.html: linking with gtk+extra-2.1.1, glib-2.6.5, gtk+-2.6.8, pango-1.8.0, 1.9.0, fontconfig-2.2.2-20040412 * plat/win32/make.mingw: change gcc command line options mcpu with mtune to compile with gcc 3.4.4 2005-07-08 J.R. Heisey * plat/win32/gpsim.def, src/symbol.cc, src/symbol.h: Added version of Symbol_Table::findRegister() that takes a bitmask parameter. Added Symbol_Table::findConstant() for future use. Need to implement a symbol to referenced from address cross reference. * gui/gui_src_opcode.cc, src/processor.cc: Fixed issues accessing program memory arrays using address instead of an appropriate index. * gui/gui_src_opcode.cc, src/processor.cc: Fixed issues with Processor::disassemble() function not traversing over break points to find the base instruction object. 2005-07-07 J.R. Heisey * cli/cmd_break.cc, cli/cmd_break.h: Code to display address labels in break related messages. * plat/win32/gpsim.def, src/pic-instructions.cc, src/pic-instructions.h, src/processor.cc, src/processor.h, src/symbol.cc: Code to display address labels in a disassembly output. Added members to Processor class to support a page mask and offset mask that can be used to calculate absolute addresses for disassembly output for JUMP and CALL instructions. See the functions CalcJumpAbsoluteAddress() and CalcCallAbsoluteAddress(); 2005-07-06 J.R. Heisey * src/stimuli.cc, src/symbol.cc, src/symbol.h: Fixed a problem where renamed stimulus_symbol objects were getting lost. This caused a error when running the regression test digital_stim. 2005-07-06 Borut Razem * plat/win32/gpsim.nsi: NSIS 2.07 compatible 2005-07-05 J.R. Heisey * src/symbol.cc, h: The access to a derived object's name() function was broken when I made the name() function in the base class const. I've propogated the const attribute to overriden versions of name(). - Somewhere along this process on of my program variables stopped being added to the symbol table. So, I've changed the if statement that determines when a duplicate variable exists in the symbol table. - I've added a function called findProgramAddressLabel() so that a label name can be displayed where appropriate. * src/breakpoints.cc: Changed ::print() functions to output program memory labels where they could. Changed implementation to use the Console object rather than cout. * src/registers.cc: InvalidRegiser() constructor was not setting its address member variable. Now the address is included in the console warning. * src/attributes.cc: WarnModeAttribute() was not setting its value member variable. - init_attributes() added some constant attributes for reset types. 2005-07-01 Scott Dattalo * cli/scan.ll, cli/parse.yy, cli/input.cc: The recently added command line error processing change did not compile under Linux and was free a constant pointer. * gui/gui_main.cc, gpsim/main.cc: The command line prompt was always selected. 2005-07-01 J.R. Heisey * cli/scan.ll, cli/parse.yy, cli/input.cc,h: - Full command line text is displayed when a command line error occures. - Command line buffers are cleared appropriately after a command line error. 2005-06-30 Scott Dattalo * regression/logic_test/logic_test.asm, regression/logic_test/Makefile, regression/logic_test/16f873.lkr: Added a regression test for gpsim Logic Modules. 2005-06-30 J.R. Heisey * src/breakpoints.cc, src/breakpoints.h, cli/cmd_break.cc: New break point dump filtering. break r dumps register read break points. break w dumps register write break points. break e dumps execution break points. * cli/cmd_disasm.cc: Updated disassemble command on line help to reflect reality. 2005-06-30 Scott Dattalo * cli/input.cc, gpsim/main.cc, gui/gui_main.cc, src/gpsim_interface.h, src/interface.cc, src/modules.cc, src/modules.h, src/processor.cc: Added methods to the gpsim_interface class that manage the state of gui. This is done so that gui-based modules can query the gui state and conditionally build their graphical portions. * modules/led.cc, modules/logic.cc: The Logic and LED modules now will not build any graphics if the gui is not initialized. Pin names were getting added to the symbol twice. 2005-06-27 Scott Dattalo * src/stimuli.cc, src/stimuli.h: Added putState()/getState() methods and removed putDrivingState method from the stimulus class. The purpose of this is to abstract away whether a node is driving or not. The main affect is in the gui breadboard where the state of I/O pins is queried. * gui/gui_breadboard.cc, gui/gui_breadboard.h, modules/usart.cc, modules/video.cc, modules/video.h, src/14bit-tmrs.cc, src/i2c-ee.cc, src/ssp.cc, src/uart.cc: Updated calls to new stimulus class API. * modules/logic.cc, modules/logic.h: The logic gate modules had bit rotted. 2005-06-26 J.R. Heisey * plat/win32/gpsim.def, src/processor.cc, src/processor.h: New function Processor::init_program_memory_at_index() to continue the separation of PM address from PM array index. 2005-06-26 Scott Dattalo * src/trace.cc: The wrong variable was being used to index the program counter array. This caused the trace to get an invalid instruction. 2005-06-26 Scott Dattalo * INSTALL: Added notes from Bas Wijnen regarding Debian. 2005-06-25 Scott Dattalo * src/symbol.cc, regression/simulate: The new 'BITS' indicator for register symbol queries broke the regression test. Now, the BITS indicator is only displayed if only a portion of the register applies to a register symbol. 2005-06-24 J.R. Heisey * src/modules.cc: Fixed a bug in Module::get() where a derive class does not override this function, now this function will return a null string. This fixes problems when a derived class is being displayed in the GUI symbol window causing a UTF-8 warning. * src/symbol.cc: Fixed an introduced null pointer exception. 2005-06-23 J.R. Heisey * plat/win32/gpsim.def, src/symbol.cc, src/symbol.h: register_symbol::m_uMask is used to mask out bits not associated with the symbol after retrieving the value from the register. Masked bit values are right shifted such that if the 16th bit is high in the register and m_uMask = 0x80, then the symbol value returned or displayed will be one. Likewise to set the 16th bit of our example register_symbol you would set the register_symbol value to 0x01 and not 0x80. No other bits in the register are changed. It works as if this symbol is its own register. The encoding into the target register is hidden by register_symbol. The default value of m_uMask is 0xff so that no bits are masked out. An new version of Symbol_Table::add_register() may be used to add masked register_symbol objects to the symbol table. register_symbol::copy() is changed to return the correct symbol string. 2005-06-21 J.R. Heisey * cli/cmd_run.cc: Added help text saying that CTRL->C will stop a running simulation. * src/breakpoints.cc, src/processor.cc, src/processor.h, src/trace.cc, plat/win32/gpsim.def, gui/gui_profile.cc, gui/gui_src_asm.cc: There was significant ambiguity for some functions that appear to accept an simulation address but acted upon it as a ProgramMemoryAccess index. The ProgramMemoryAccess indexing operator was a prime example. I have eliminated the indexing operator and added the functions getFromAddress() and getFromIndex() to make things more explicitly clear. I have also removed put() and get() and added putToAddress() and putToIndex(). Other new functions are hasValid_opcode_at_address() and hasValid_opcode_at_index(). This mostly effected gui code so the simulation itself should have no impact. The original intent of this change was to fix bugs in the gui where double clicking on a breakpoint icon in the source window would not toggle the breakpoint. 2005-06-17 J.R. Heisey * cli/cmd_dump.cc: dump register for special registers broken when pReg->isa() and Register::SFR_REGISTER were not being used. Now we dump the registers listed in MemoryAccess::SpecialRegisters. * cli/input.cc: Implemented the ability to break running firmware using Ctrl->C key when running under Windows. It would previously exit gpsim. * gpsim/main.cc: Changed logic so the -i on the gpsim command line will not attempt to start the gui interface. * cli/cmd_break.cc, cli/cmd_clear.cc, cli/cmd_disasm.cc, cli/cmd_dump.cc, cli/cmd_frequency.cc, cli/cmd_help.cc, cli/cmd_load.cc, cli/cmd_module.cc, cli/cmd_processor.cc, cli/cmd_step.cc, cli/cmd_stimulus.cc, cli/cmd_trace.cc, cli/cmd_version.cc, cli/command.cc, cli/command.h: Implemented command abbreviations. Made abbreviations for several often used commands. 2005-06-14 J.R. Heisey gui/gui_src.h, gui/gui_src_asm.cc, gui/gui_statusbar.cc, src/processor.cc, src/processor.h, src/registers.h: Fixed some problems with the source window optimization. Fixed problem with the text search dialog not searching alternate source windows. Fixed problem with Set PC Here from an alternate window. 2005-06-13 J.R. Heisey *src/cmd_manager.cc, src/cmd_manager.h, src/modules.cc, cli/cmd_shell.cc: Fixed introduced bug where the command line interface from a library module was not accessible. A ! bang character alone lists the command line interfaces. 2005-06-13 Scott Dattalo * configure.ac: Fixed recently introduced typo. * src/attributes.cc: Cycle counter attribute now prints correctly again. * src/processor.cc, src/processor.h: fixed bug in IsAddressInRange() method, also reversed return value to match meaning of name (now returns true if the address is in range). * src/symbol.cc: Symbol table dump was not showing symbol values. * src/registers.cc: fixed warning message for when invalid registers are accessed. 2005-06-10 Scott Dattalo * src/stimuli.cc, src/stimuli.h, src/symbol.cc, src/symbol.h: Stimuli symbols were not getting added to the symbol table when their name was being changed. 2005-06-10 J.R. Heisey *src/gpsim_object.cc,h: Small change to allow name() call in a const variable context. *plat/win32/gpsim.def, src/processor.cc, src/stimuli.cc, src/symbol.cc, src/symbol.h, gui/gui_profile.cc: Changed the implementation of the Symbol_Table class to order by symbol name so that a binary search will improve lookup speed. 2005-06-10 Scott Dattalo * cli/cmd_stimulus.cc, doc/gpsim.lyx: Updated documentation. 2005-06-09 J.R. Heisey *cli/cmd_module.cc: Added extra help for module command. *gui/gui_src.h, gui/gui_src_asm.cc, plat/win32/gpsim.def, src/processor.cc,h: Changed the parsing of the source for formatted display to speed things up during file loading. Source is now cached in a form for rendering to the formatted text window. 2005-06-09 Scott Dattalo * gui/gui_main.cc, gui/gui_regwin.cc, gui/gui_src.cc, gui/gui_src_asm.cc, gui/gui_src_opcode.cc, configure.ac: Found the source of a bug that causes gpsim to hang when gtk-2.6.7 and gtkextra-2.0 are used. The problem is either with gtkextra or the interaction of it with gtk. gpsim currently has in place a stop-gap measure to prevent the problem from keeping the simulator from being unusable. 2005-06-06 J.R. Heisey *src/os_dependent.cc: The environment variable GPSIMPATH may be used to specify folders where shared libraries may be found. This is primarily for windows developers of gpsim. - Small change to prevent load_library() from displaying an error message that is not needed. *cli/cmd_node.cc: Use a reference instead of allocating a string on the local stack. *modules/modules.vcproj: Changed Visual Studio build of modules to libgpsim_modules.dll 2005-06-04 Scott Dattalo * gui/gui.h, gui/gui_menu.cc, gui/gui_object.cc, gui/gui_object.h, gui/gui_src_asm.cc, gui/gui_statusbar.cc, gui/gui_statusbar.h: -- removed the cycle counter and time view from the status bar of the register and source windows and moved them to the window that contains the buttons. -- fixed text-width bugs in the status window. -- rewrote the implementation of the gui update code. -- Created a 'TimeWidget' class and a 'TimeFormatter' class for displaying the cycle counter object. -- Added a MainWindow class (kind of empty now). -- Re-introduced a few of the GTKWAIT macros. 2005-06-04 Scott Dattalo * configure.ac, gpsim/Makefile.am: remove the explicit checks for the pthread library. 2005-06-04 Scott Dattalo * gpsim/main.cc: Allow filenames whose first character is a number. 2005-06-04 Scott Dattalo Patch from: Rob Pearce * src/cod.cc: Fixed gramatical error. * src/eeprom.cc, src/eeprom.h: Added a new state to the eeprom state machine to fix ?? * src/ioports.cc: fix to the 628 porta comparator. 2005-06-03 Scott Dattalo * gui/gui_main.cc: Added a call to g_main_iteration() to allow GTK events to get processed. (This replaces the GTKWAIT macro that was removed in the previous commit). 2005-06-02 Scott Dattalo * gui/gui_src_asm.cc, gui/gui_main.cc: Removed GTKWAIT macros. Apparently on newer versions of GTK these macros block indefinitely. On really old versions of GTK (pre 2.0) these macros were necessary. 2005-05-26 J.R. Heisey * src/breakpoints.cc,h, plat/win32/gpsim.def: added register assertions functionality. Can now assert the register value with !=, <=, >=, <, and > operators. 2005-06-01 Scott Dattalo * src/os_dependent.cc: Printed an error message if a shared library fails to open. 2005-05-26 J.R. Heisey * src/program_files.cc: Fixed crashing bug when no file types are able to open a program file. 2005-05-25 Borut Razem * plat/win32/gpsim.nsi, extras/lcd/makefile.mingw: added missing files to the WIN32 installation package in order to be able to compile the LCD modue; make LCD module mingw makefile a litle bit more flexible 2005-05-24 Scott Dattalo * src/cod.cc, src/breakpoints.cc, src/trigger.cc, regression/assertions/assertions.asm: Added support for scripts embedded in .cod files. 2005-05-24 Scott Dattalo * src/modules.h, src/modules.cc, src/processor.cc, src/breakpoints.cc, src/pic-processor.cc, src/hexutils.cc, gui/gui_src.cc, gui/gui_src_asm.cc, cli/scan.ll, src/cmd_manager.h, cli/cmd_dump.cc: -- renamed the enum's for the SIMULATION_MODE(s) (the enum 'INITIAL' collides with a macro in flex) -- added support for module scripts -- If a symbol begins with a period, then the scanner will automatically prepend the active processor name. (This is a short cut for accessing processor attributes). 2005-05-24 Borut Razem * doc/gpsimWin32.html, gpsim/gpsim.vcproj, gpsim/makefile.mingw: WIN32 with official release of gtk+extra-2.0.0 2005-05-22 Scott Dattalo * cli/cmd_break.cc, cli/cmd_break.h, cli/parse.yy, cli/scan.ll, src/breakpoints.cc, src/breakpoints.h, src/operator.cc, src/trigger.cc, src/trigger.h, src/value.cc: Added the capability of associating user defined messages with break points. Break point expressions (if present) are now displayed when the break points are displayed. * regression/assertions/Makefile, regression/assertions/assertions.asm: Use the coff.inc include file supplied with gputils and specifically the macros for assertions. 2005-05-21 Scott Dattalo * cli/cmd_break.h, cli/cmd_break.cc, cli/input.cc, cli/parse.yy, src/cod.cc, src/breakpoints.cc: Execution breakpoints were failing to propogate execute() if an attached expression evaluated false. Added support for gpasm style assertions. * cli/scan.ll: Shell command escape character ('!') was conflicting with the not operator. * regression/assertions/assertions.asm, regression/assertions/Makefile, regression/assertions/16f873.lkr: Added a regression test for gpasm assertions. 2005-05-20 Scott Dattalo * cli/scan.ll, regression/run_regression.sh, regression/macro_test/macro_test.stc: Macros can now be nested. 2005-05-20 Scott Dattalo * gui/gui_profile.cc: ifdef'd out code that a) is seldom (never?) used and b) incompatible with the latest official release of gtkextra. 2005-05-19 Scott Dattalo * src/ttoken.h, src/ttoken.cc, src/bytelog.cc, src/bytelog.h, src/pthread-wrap.h: Create a gpsim namespace and place the objects in these files in there. * cli/scan.ll: removed some printf debugging junk. 2005-05-19 Scott Dattalo * cli/scan.ll, cli/cmd_macro.cc, cli/parse.yy, cli/input.cc: A recent change in string processing broke macros. Also, began adding code to support nested macros. * regression/macro_test/macro_test.asm, regression/macro_test/macro_test.stc: Added new regression test for macros. 2005-05-18 Scott Dattalo * cli/scan.ll: Fixed end-of-line scan bug introduced on 5-16. 2005-05-16 J.R. Heisey * src/os_dependent.cc: Added debug code to allow alternate directory paths for module libraries so I can specify debug build locations for shared libraries. * src/program_files.cc: Fixed bug caused by symbol table not being cleared when Program files are loaded. * src/modules.cc: Fixed bug when a module library failed to load it was still being added to the installed library list. * configure.ac: bumped build number to 0.21.5 2005-05-16 Scott Dattalo * cli/input.cc, cli/scan.h, cli/scan.ll, cli/input.cc: command assertions where causing parse errors. 2005-05-14 Scott Dattalo * cli/cmd_processor.cc: The processor command wasn't working because of a typo in an if statement. * cli/parse.yy, cli/cmd_break.cc, cli/cmd_break.h: Added 'break #number' to allow inspection of an individual break point. Clean up some memory management. * src/breakpoints.cc: 'dump1()' wasn't checking to see if the break point number was valid. * src/os_dependent.cc: non-windows file extension comparisons were not working. * src/pic-processor.cc, src/symbol.h, src/symbol.cc, src/value.cc: val_symbols like the PIC program counter can now be parts of gpsim expressions. * src/cod.cc: hack - line number offset errof. * doc/gpsim.lyx: Updated the documentation. 2005-05-12 Scott Dattalo * gui/gui_regwin.cc, gui/gui_src_opcode.cc, gui/gui_src_asm.cc: Removed calls to GTKWAIT because they sometimes block in the newer version (2.6.7) of GTK. Thanks to Micah Carrick for pin-pointing this one. 2005-05-11 Scott Dattalo * src/sim_context.cc: The included file "direct.h" does not exist on FC3. 2005-05-10 J.R. Heisey * cli/cmd_load.cc: Updated on line help for load command. * gui/gui_src_asm.cc: Removed a call to gtk_widget_destory() in SourcePage::Close() where it was causing a crash in Windows. * cli/scan.ll: Defined literal string values to be quoted. This was done so that quoted Windows paths in the load command to accommodate colons for drive designation and backslashes for folder delimiters. * gpsim/main.cc: Added the gpsim.exe startup folder to the module/library search path. * src/sim_context.cc, src/errors.h: Added an error message to CSimulationContext:: LoadProgram(). * cli/cmd_module.cc, src/modules.cc, src/modules.h, src/os_dependent.cc, gpsim/main.cc: Added code to not load a module library that is already loaded. 2005-05-06 J.R. Heisey * gui/gui_regwin.cc: Fixed crash that occurs when RAM register count is not a multiple of 16. * plat/win32/gpsim.def: Added new function reference. * src/processor.cc: Fixed broken list command * src/sim_context.cc: Fixed broken register output on stepping that broken on previous check in. Test for open file failure. * src/program_files.h: Add new error code. 2005-05-05 J.R. Heisey * cli/cmd_break.cc, cli/cmd_disasm.cc, cli/cmd_dump.cc, cli/cmd_frequency.cc, cli/cmd_list.cc, cli/cmd_load.cc, cli/cmd_load.h, cli/cmd_log.cc, cli/cmd_processor.cc, cli/cmd_reset.cc, cli/cmd_step.cc, cli/cmd_x.cc, cli/command.cc, cli/command.h, cli/input.cc, cli/input.h, cli/parse.yy, src/cod.cc, src/cod.h, src/hexutils.cc, src/Makefile.am, src/modules.h, src/os_dependent.cc, src/pic-processor.cc, src/pic-processor.h, src/processor.cc, src/processor.h, src/program_files.cc, src/program_files.h, src/sim_context.cc, src/sim_context.h, src/src.vcproj, src/symbol.cc, src/symbol.h, config_win32.h.in, configure.ac, plat/win32/gpsim.def, gui/gui_menu.cc, gui/gui_src_asm.cc, gui/gui_statusbar.cc, gpsim/Makefile.am: - Replaced the cli and gui references to hexfiles verses cod file with program files. Gpsim will now figure out the file type and load the file. - Both the gui and cli will recoginze command files by the stc file extension. All other files are assumed to be program files. - The c, h and s load options of the load command will be accepted for backwards compatibility of existing command files but are no longer needed. - The processor command is not optional. If the program file contains the information about the processor type, gpsim will allocate the processor type based on the program file information. Using the processor command overrides this behavior. 2005-05-01 Borut Razem * plat/win32/gpsim.def: MSVC sync 2005-04-29 Scott Dattalo * HISTORY, README, INSTALL, configure.ac, gpsim.spec.in: Updates for the 0.21.4 * extras/lcd/ChangeLog, Makefile.am, configure.in: bumped the Rev of the LCD module to 0.2.4 2005-04-29 Scott Dattalo * src/breakpoints.cc: Register assertions were not halting simulation when assertion was true. 2005-04-26 Scott Dattalo * cli/Makefile.am, examples/14bit/Makefile.am: Updated so that 'make dist' would work again. * src/attributes.cc, src/init.cc: Moved attribute initialization from init.cc to attributes.cc * src/breakpoints.cc, src/symbol.cc, src/symbol.h, src/trigger.cc: Complex expressions are now fully supported. Updated the help info for the break command to reflect the new syntax (more work needed). 2005-04-26 Scott Dattalo * src/breakpoints.cc, src/breakpoints.h, cli/parse.yy, cli/cmd_break.cc, cli/cmd_break.h: continuing with complex break expressions. 2005-04-25 Scott Dattalo * src/trigger.h, src/trigger.cc, src/breakpoints.cc: Added complex expressions to the TriggerObject class. (not complete) 2005-04-23 Borut Razem * src/bitlog.cc, src/bytelog.cc, src/ttoken.cc: removed #define IN_MODULE * plat/win32/gpsim.def, modules/makefile.mingw, src/makefile.mingw, modules/modules.vcproj, src/src.vcproj: MINGW sync * gpsim/makefile.mingw: force linker to onclude BoolEventLogger class methods in gpsim.exe, so that they can be referenced by modules * src/modules.cc (get_attribute): fixed attribute name comparison * src/sim_context.h: added end of line at end of file * plat/win32/gpsim.nsi: remove pthreadVC1.dll 2005-04-22 Scott Dattalo * bitlog.cc, bitlog.h, bytelog.cc, bytelog.h, ttoken.cc, ttoken.h, pthread-wrap.h: moved these from the modules/ directory into the src/ directory. 2005-04-19 J.R. Heisey * src/breakpoints.cc, src/processor.cc, src/processor.h: Fixed corruption when clearing a Breakpoint_Instruction object. The object was not removed properly from the chain of instruction objects in the pma. 2005-04-19 Scott Dattalo * src/os_dependent.cc: Added 'errno.h' to the list of include files. (without this, os_dependent.cc wouldn't compile on FC3-64bit). 2005-04-19 Scott Dattalo * src/symbol.cc, src/symbol.h: Fixed reference to symbol table that was preventing compilation on Linux. 2005-04-19 J.R. Heisey * gui/gui_src_asm.cc, gui/gui_statusbar.cc, gui/gui_statusbar.h: Modified the statusbar so that it can handle a switch from one processor to another. * src/sim_context.cc, src/symbol.cc,h: Fixed a crash on gpsim exit. * src/os_dependent.c: added test in load_library() to the first call to sLoad() to determine whether the a failure was due to the library file not found or some other error. This needs to be completed for the linux builds. 2005-04-18 Scott Dattalo * src/stimuli.cc: Stimulus_Node destructor now removes itself from the symbol table. 2005-04-17 Scott Dattalo * src/stimuli.h, src/stimuli.cc: Added methods to control the resistance and voltage of the IO_bi_directional_pu pullup resistor. 2005-04-16 Scott Dattalo * src/symbol.cc: set methods for register symbol now initialize the "init" field in the register object. 2005-04-16 J.R. Heisey * src/value.cc,h, src/symbol.cc,h, src/processor.cc,h, src/pic-processor.cc,h, makefile.mingw, Makefile.am, cli/input.cc, cli/init.cc, gui/gui_symbols.cc, gui/gui_stack.cc, gui/gui_src_asm.cc, gui/gui_profile.cc, src/gpsim_time.cc, plat/win32/gpsim.def, src/cod.cc, cli/cmd_processor.cc, added src/sim_context.cc.h: Restructured classes in preparation for allowing a simulation context to be reset for a new processor with out having to close the program and with out memory leaks. The new class CSimulationContext, implemented as a singleton for now, owns a CProcessorList. The singelton class ProcessorContructorList is used to create processor objects. Eventually CSimulationContext may own Breakpoints, Symbol_Table and the active_cpu objects. For now. there are accessor functions to get to the global objects. CSimulationContext.set_processor() will check for a matching processor in the processor list before allocating a new processor. Processor related classes now delete the objects that they own on destruction. May not be conprehensive. set_processor() currently deletes a matching processor object rather than reinitializing it for a new simulation session. 2005-04-15 Scott Dattalo * cli/command.h, cli/input.cc, cli/parse.yy, cli/scan.ll, gpsim/main.cc: Finished support for reentrant parsing. * cli/cmd_disasm.cc: Cleaned up a buglet in printing. * src/attributes.cc, src/attributes.h, src/pic-processor.cc, src/processor.cc, src/processor.h: Added an attribute that controls the behavior of simulator when a reset is encountered. 2005-04-15 Scott Dattalo * src/cod.cc, cli/cmd_run.cc, cli/cmd_run.h, cli/input.cc, cli/input.h, cli/parse.yy, cli/scan.ll: Added initial support for .COD file assertions. -- Parser is now reentrant -- gpsim's CLI interface is now a registered interface that can be referenced and accessed by the simulation engine. * src/ioports.cc: experimental tinkering 2005-04-14 Scott Dattalo * build.xml: configure was not getting invoked. 2005-04-14 Scott Dattalo * build.xml: autoconf was not getting invoked... 2005-04-13 Scott Dattalo * build.xml: An XML script for an experimental regression tool (based on the open source projects "ant" and "CruiseControl"). 2005-04-09 Borut Razem * cli/makefile.mingw, src/makefile.mingw: MINGW sync 2005-04-08 J.R. Heisey * src/breakpoints.cc, src/cmd_manager.cc,h, gpsim/main.cc, src/processor.cc,h, cli/ui_gpsim.cc,h, src/registers.cc, cli.vcproj, gpsim.vcproj, src.vcproj: Created a IUserInterface and CGpsimUserInterface as the implementation with functions to write predefined parameterized strings to the console (or in the future a GUI popup). Modules call the C function GetUserInterface() to retrieve an instance of CGpsimUserInterface as a IUserInterface. Using IUserInterface functions is the prefered way of writing error and notification messages to the gpsim console from other modules. 2005-04-08 Scott Dattalo * cli/parse.yy, cli/cmd_break.h: Added support for a break command like: break r|w reg(N) Where N is an integer and 'reg' is the new reg operator. 2005-04-08 Scott Dattalo * cli/parse.yy, cli/scan.ll: Added a "reg()" operator that can cast integers into registers (although this is not fully implemented yet). A single quote before an identifier now acts as an 'escape' character. This allows user defined strings to collide with gpsim built in strings. (e.g. If a user has a variable named help, its contents can be examined by typing 'help at the command line). 2005-04-07 J.R. Heisey src/breakpoints.cc: Fixed a memory leak by properly removing chained BreakpointRegister objects from the Register chain when clearing a break object. When the chain is properly maintained the object may be deleted. 2005-04-07 J.R. Heisey * cli/scan.ll, cli/parse.yy, cli/cmd_break.cc,h, src/processor.cc,h, src/pic-processor.cc, operator.cc,h, src/breakpoints.cc: Changed the break command syntax. Added code to support the syntax. 2005-04-07 Scott Dattalo * cli/cmd_manager.h, cli/cmd_manager.cc, cli/cmd_gpsim.h: moved from cli/ to src/ * src/processor.cc, src/Makefile.am, src/interface.cc, src/processor.cc, gpsim/main.cc, cli/Makefile.am, cli/cmd_manager.cc, cli/cmd_module.cc, cli/cmd_shell.cc: Updated these files to use the newly relocated .h files. The reason for doing this is to fix a src/ dependency on cli/ files. When src/ depends on cli/ then any module that links against the gpsim library must also link against the cli library. * src/registers.cc: added a Bit class (currently not used though) * src/symbol.cc: attribute symbols that wrap other symbols now change the name of the wrapped symbol. This allows heirarchical names such as processor_name.attribute to appear in the symbol table. 2005-04-06 J.R. Heisey * src/processor.cc.h: Two new break message functions. 2005-04-05 J.R. Heisey * src/value.h, src/registers.cc,h, src/processor.cc.h, src/preakpoints.cc,h, plat/win32/gpsim.def: Implemented classes and functions for displaying the register address and possible value for break on read and break on write. 2005-04-05 J.R. Heisey * gpsim/main.cc, src/interface.cc, src/gpsim_interface.h, cli/cmd_manager.h: Added code to support for an external module to access the global ISimConsole object from the Interface class. 2005-04-04 J.R. Heisey * src/processor.cc,h: Added the function Processor::IsAddressInRange(). Use IsAddressInRange() in ProgramMemoryAccess::get_src_line() and ProgramMemoryAccess::operator [](unsigned int address) 2005-04-02 Scott Dattalo * src/processor.cpp: Reverted the change J.R. made on 2005-03-31 because it breaks the gui for the 18F family of PICs. We'll need to come up with another way of solving the initial PC value problem. 2005-03-31 J.R. Heisey * src/processor.cpp: Changed call ProgramCounter->get_PC() to ProgramCounter->get_value() to fix a problem where the initial position of the PC in the source was not getting set properly. Return value is used for indexing into source code line. Mostly used by the UI so should not affect behavior. 2005-03-30 J.R. Heisey * cli/cmd_dump.cc: Changed ram dump command to handle ram sizes greater than one byte. * cli/cmd_x.cc: Removed call to dump.dump(DUMP_SFRS) since previous call to dump.dump(DUMP_RAM) already dump thes sfrs too.ram halt. * Cleaned up a couple of GUI error messages. (invalid window handle, invalid value strings) 2005-03-24 J.R. Heisey * src/breakpoints.cc, src/processor.cc, h, cli/cmd_clear.cc: Fixed crash in Breakpoints::clear() that I reintroduced in my last checkin. Also Fixed the original memory leak by properly removing chained Breakpoint_Instruction objects from the instruction chain when clearing a break object. When the chain is properly maintained the object may be deleted. Perhaps this should be a temporary fix until a base class for Breakpoint_Instruction all have a replaced member. 2005-03-23 Scott Dattalo * gui/gui_src_asm.cc: changed the comment text color to 'dim gray' 2005-03-23 Scott Dattalo * src/value.cc: Fixed write to a null pointer in String::get(char *buf, int len). * src/symbol.cc: Fixed infinite loop in char *register_symbol::name (char *buf, int len). * regression/ccp/ccp.asm: added more features to the ccp regression test. 2005-03-22 J.R. Heisey * gui/gui_watch.cc: Fixed problem with register values > 127 causing pango runtime warnings 2005-03-21 J.R. Heisey * src/breakpoints.cc, src/processor.h: created a notification to Processor when breakpoints are set or cleared. Cleaned up code in breakpoints.cc. 2005-03-23 Scott Dattalo * src/16bit-instructions.cc: The NEGF instruction for the 18f family was erroneously writing the negated result to W. * regression/instructions_16bit/instructions_16bit.asm: added a regression test for the NEGF instruction. 2005-03-21 J.R. Heisey * src/processor.cc: Copy a null string to input parameter Processor::get(char *cP, int len) because not value is associate with a Processor object. Fixes trace errors from pango when the symbol window is scrolled to some symbol objects. * src/value.cc: Copy a null string to input parameter String::get(char *buf, int len) when not value string is allocated. Fixes trace errors from pango when symbol window is scrolled to some symbol objects. 2005-03-18 J.R. Heisey * cli/cmd_load.cc/h, src/cod.cc/h, cli/input.cc, cli/parse.yy: added error checking for opening cod, hex and stc files. Particularily when opened from the GUI. 2005-03-17 Scott Dattalo * src/stimuli.cc: tweaking of I/O thresholds. 2005-03-16 Scott Dattalo * cli/scan.ll, src/stimuli.h, src/stimuli.cc, src/symbol.cc, src/symbol.h: Added/enhanced methods for searching, adding, and removing symbols and stimuli. 2005-03-14 J.R. Heisey * src/modules.h, modules.cc, os_dependent.cc: Elimaticated undesired error message on failure to load a function of a module. Simplified Module_Library() constructor to use os independent api call get_library_export() 2005-03-14 Scott Dattalo * plat/win32/gpsim.def: MSVC sync. * modules/modules.vcproj: Use new pthread library. * gui/gui_register.h, gui/gui_regwin.cc: pass registerValue by value in getValueAsString() method. 2005-03-03 Borut Razem * plat/win32/gpsim.def: MSVC sync 2005-03-10 Scott Dattalo * src/stimuli.cc: Added an 'X' state to getBitChar method of the IO_open_collector class. 2005-03-09 Borut Razem * modules/makefile.mingw: pthreads upgrade 2005-03-08 Scott Dattalo * src/value.cc, gui/gui_profile.cc, gui/gui_statusbar.cc, gui/gui_trace.cc: Corrected temporary hack regarding PRINTF_INT64_MODIFIER 2005-03-08 Borut Razem * plat/win32/gpsim.nsi: removed examples\14bit\*.inc * cli/cmd_manager.h: added newline at the end of file * doc/gpsimWin32.html: atk upgraded to 1.8.0 2005-03-08 Scott Dattalo * regression/ccp/ccp.asm: improvements to ccp regression test * gui/gui_profile.cc, gui/gui_trace.cc, gui/gui_statusbar.cc, src/value.cc: Temporarily removed windows-specific macro. * src/stimulus.cc, src/stimuli.h: Cleaned up asynchronous stimuli * src/registers.h, src/ssp.cc, src/ioports.cc, src/14bit-tmrs.cc: Made the default register class access functions all go through one function to obtain a register's value. 2005-02-26 Scott Dattalo * src/processor.h, src/trace.h, src/breakpoints.h, src/symbol.h, src/gpsim_interface.h, src/gpsim_time.h: The external references demarcated by 'IN_MODULE' were not getting resolved in FC3. Since these were introduced to resolve a linking problem with WIN32 DLL's, I made the demarcation dependent on only Windows. 2005-02-25 Scott Dattalo * src/stimuli.h, src/stimuli.cc: Added methods to the IOPIN class to differentiate between a pin driving a node and one being driven by a node. * src/14bit-tmrs.cc, src/i2c-ee.cc, src/packages.cc, src/ssp.cc, src/stimuli.cc, src/stimuli.h, src/uart.cc, extras/lcd/lcd.cc, gui/gui_breadboard.cc, modules/logic.cc, modules/logic.h, modules/usart.cc, modules/video.cc, modules/video.h: Propogate IOPIN change to all consumers. 2005-02-24 Scott Dattalo * src/stimuli.h, src/stimuli.cc: Added impedance thresholds to differentiate strong, weak, and floating drivers. 2005-02-16 Scott Dattalo * src/ioports.cc: experiments in ioport redesign. 2005-02-16 Scott Dattalo * src/stimuli.h, src/stimuli.cc: Added 'getBitChar()' method to the open collector stimulus class. 2005-02-15 Scott Dattalo * src/ioports.cc, src/ioports.h: Added a 'getIO' method to the IOPIN class that will allow an individual I/O pin in a port to be accessed. * src/stimuli.h, src/stimuli.cc: Add more state information to the snode class. Also, added the 'getBitChar()' method that will return the state of the stimulus in the form of an ASCII character (e.g. 0,1,Z,W). 2005-02-11 Scott Dattalo * src/os_dependent.cc: Libraries stored in system directories were getting ignored. 2005-02-09 Scott Dattalo * src/Makefile.am: Newly added src file 'os_dependent.cc' was not part of the Makefile * cli/input.cc, src/os_dependent.cc: abstracted some os dependent changes that were recently added 2005-02-01 Scott Dattalo * src/processor.h, src/processor.cc, src/trace.cc: Added 'Debug()' method to processor class and call it whenever a register assertion occur.s 2005-01-30 Borut Razem * config_win32.h.in, configure_win32.awk: extract version, package and bugreport values from configure.ac 2005-01-26 Scott Dattalo * configure.ac: repositioned the call to the m4 macro wi_READLINE_LIB so that it would run properly. 2005-01-26 Scott Dattalo * plat/win32/gpsim.def: added more external cross references. * module/modules.vcproj: changed from pthreadVC1.lib to pthreadVC.lib. 2005-01-23 Scott Dattalo * configure.ac: Craig Franklin updated gpsim's configure files. It turns out there was a tiny bug preventing things to build a *second* time (the first time would work fine) * src/gpsim_time.h, src/gpsim_time.cc, src/init.cc: The newly added and globally instantiated StopWatch class' constructor was making calls to the globally instantiated (but not necessarily constructed) Symbol_Table class. Now, StopWatch::init() will make the calls to the symbol table. 2005-01-21 Borut Razem * plat/win32/gpsim.def, src/src.vcproj: MSVC sync * doc/gpsimWin32.html: gpsim works with flex 2.4.31 2005-01-20 Scott Dattalo * src/breakpoints.cc: Trigger actions were not printing execution breakpoint messages. * src/registers.h, src/registers.cc: Added a skip_start function to the program counter. 2005-01-19 Scott Dattalo * src/registers.cc, src/registers.h, src/gpsim_object.cc, src/gpsim_object.h, src/symbol.cc, src/symbol.h, src/value.cc, src/value.h: Added the 'toBitStr' method to gpsim_object and propopogated the change through the derived classes. Also, the register class now calls get() to obtain the value printed with toString and toBitStr instead of directly using its value object. 2005-01-17 Scott Dattalo * src/gpsim_time.h, src/gpsim_time.cc: Finished the StopWatch class. * src/value.cc, src/value.h, src/attributes.cc, src/attributes.h: Added attribute breakpoints. For attributes that can be associated with breakpoints, you can now write 'break attribute' to set a breakpoint on that attribute. * cli/Makefile.am, cli/cmd_break.cc, cli/cmd_break.h, cli/cmd_help.cc, cli/command.cc, cli/parse.yy: The 'stopwatch' command is now handled by attributes. Added the following attributes: stopwatch, stopwatch.enable, stopwatch.direction, stopwatch.rollover. The 'stopwatch' attribute supports breakpoints, so the 'break stopwatch' command will break whenever the stopwatch rolls over. 2005-01-15 Scott Dattalo * src/attributes.cc, src/attributes.h: New files to support gpsim attributes. * src/Makefile.am, src/makefile.mingw: added the new files to the make files. 2005-01-14 Scott Dattalo * gpsim/main.cc, gui/gui_main.cc: The gtk main loop is now started even if the command line option --cli is specified. This way, the GIOChannels will still operate. 2005-01-13 Scott Dattalo * cli/sockect.cc, src/value.cc: Added support for 'Socket Sinks' and 'Socket Sources'. These essentially are two ways in which a client can choose to communicate with gpsim. 2005-01-10 Scott Dattalo * cli/sockect.cc, src/protocol.cc, src/protocol.h, src/symbol.cc, src/symbol.h, src/value.cc,src/value.h: Fixed bugs associated with socket notify links. 2005-01-09 Scott Dattalo * src/ioports.cc: Began I/O port redesign. * cli/socket.cc, src/protocol.h: Added Socket callbacks. * examples/scripts/client3.cc, examples/scripts/makefile, examples/scripts/client_interface.cc, examples/scripts/client_interface.h: Added a new client script example illustrating socket callbacks. * gui/gui_main.cc: removed a printf debug statement. 2005-01-09 Borut Razem * plat/win32/gpsim.def: MSVC sync * doc/gpsimWin32.html: dependedncy on gawk, ... * cli/cli.vcproj, cli/scan.ll: make it work with flex 2.4.31 * plat/win32/gpsim.nsi, modules/makefile.mingw, modules/modules.vcproj: pthreads 2005-01-03 * gui/gui_menu.cc: use utf-8 encoded LATIN SMALL LETTER Z WITH CARON instead LATIN SMALL LETTER Z. 2005-01-07 Scott Dattalo * src/16bit-processors.cc: stop gap hack - added registers to hold the places of the analog SFR's * cli/socket.cc, src/protocol.h, src/value.cc, src/value.h: More socket improvements. 2005-01-05 Scott Dattalo * src/breakpoints.cc, src/gpsim_classes.h, src/gpsim_interface.h, src/interface.cc, src/modules.cc, src/modules.h, src/pic-processor.cc, src/protocol.cc, src/protocol.h, cli/command.cc, cli/socket.cc: Enhancements to support the socket interface. Added a run command and a reset command and made them invocable via the interface class. 2005-01-02 Scott Dattalo * gui/gui_main.cc, cli/input.cc, src/interface.cc: Added function 'gUseThreads()' and use it to run-time select the usage of threads. 2005-01-02 Borut Razem * gui/gui_break.cc, gui/dialog.cc, gui/gui_init.cc, gui/gui_menu.cc, gui/gui_processor.cc, gui/gui_src.cc, gui/gui_src_asm.cc gui/gui_src_opcode.cc: removed unneeded include gtkcombobox.h * gui/gui_breadboard.cc: fixed compiler warnings * cli/Makefile.am, gui/Makefile.am: added AM_ preffix to CFLAGS, CXXFLAGS, CPPFLAGS and YFLAGS * doc/gpsimWin32.html: gtk+ version 2.4.14, XHTML 1.0 Transitional compliant, gtk+extra-2-1.1.0-20050102 * doc/gpsim_cvs.html: changed first build instructions 2004-12-17 Scott Dattalo * gui/gui_main.cc, src/interface.cc, cli/socket.cc: removed dependencies on GTK 2.0. 2004-12-19 Borut Razem * plat/win32/gpsim.nsi: added examples/scripts/client_interface.h to installation * mingw/makefile.mingw, gpsim/gpsim.vcproj: added gthread-2.0.lib * src/src.vcproj: removed plat\win32\glist.cpp from project; CLI mode now requires linking with full glib library; added src/trigger.cc and src/trigger.h to the project * modules/modules.vcproj: pthreads to the project * gpsim.sln: removed building of modules in CLI configuration 2004-12-17 Scott Dattalo * gui/gui_main.cc, src/interface.cc: replaced pthread_* calls and declarations with the corresponding GTK ones. 2004-12-17 Scott Dattalo * gui/gui_main.cc, src/interface.cc: Added experimental code to test threading. 2004-12-16 Scott Dattalo * gui/gui_main.cc, gui/gui_menu.cc: Use the interface instead of the cpu pointer to initiate simulation. * src/Makefile.am, src/trigger.cc, src/trigger.h, src/breakpoints.cc, src/breakpoints.h: Split the trigger classes away from the breakpoint classes. * src/gpsim_interface.h, src/init.cc, src/interface.cc, src/pic-processor.cc, src/protocol.cc, src/protocol.h, src/trace.h, cli/cmd_run.cc, cli/cmd_set.cc, cli/cmd_trace.cc, cli/input.cc, cli/socket.cc: Attempted (but failed) to add a feature that would allow a socket interface to send data to the simulator while a simulation is running. It turns out that the giochannel stuff used to control the socket runs in the gui event loop. The only time the socket is handled is whenever the loop can run. However, since gpsim is a single threaded application (the gui does spawn its own private thread), the gui event loop only runs whenever the simulation gives it cpu time. Thus it's not possible for a socket to update the simulation except when the gui is being refreshed! * examples/scripts/client.cc, examples/scripts/gensquares.asm, examples/scripts/makefile, examples/scripts/client2.cc, examples/scripts/client_interface.cc, examples/scripts/client_interface.h: Added a class to encapsulate the gpsim client socket interface. Added another example to test socket updates while the simulation is running. 2004-12-16 Borut Razem * plat/win32/gpsim.def: MSVC sync * src/14bit-registers.h: declare void Status_register::put(unsigned int new_value) as virtual, not inline * gui/gui_src_opcode.cc: removed definition of unused variable pm_size in method SourceBrowserOpcode_Window::NewProcessor() * extras/lcd/makefile.mingw: added * plat/win32/gpsim.nsi: added additional files from examples\scripts to the package * cli/input.cc: function have_line() is needed also in non GUI mode * gui/profile.cc, gui/gui_statusbar.cc, gui/gui_stopwatch.cc, gui/gui_trace.cc, src/14bit-tmrs.cc, src/16bit-registers.cc, src/eeprom.cc, src/i2c-ee.cc, src/interface.cc, src/interface.h, src/ioports.cc, src/p16x7x.cc, src/pic-processor.cc, src/pic-registers.cc, src/ssp.cc, src/stimuli.cc, src/tmr0.cc, src/uart.cc: replace direct access to cycles with a getter function get_cycles() 2004-12-15 Scott Dattalo * src/init.cc, src/gpsim_time.cc: Delayed creation of the cycle counter attribute. It turns out that this attribute was created in the Cycle_Counter constructor which is called by the globally instantiated 'cycles' object. On Windows, this call happened before the symbol table was inititialized . 2004-12-14 Scott Dattalo * src/init.cc: added new function for initialization. Also added new attribute 'sim.verbosity' that will control the simulator's verbosity. Note, this duplicates the behavior of the global variable 'verbose'. However, the goal is to phase out the global variable. * cli/cmd_run.cc: the run command now examines the new verbosity attribute. * src/pic-processor.cc, src/pic-processor.h, src/processor.cc, src/processor.h: the run member function now takes a parameter that controls whether or text will be printed. * cli/socket.cc: * src/interface.h: added extern def for new init function. * gpsim/main.cc: call new initialization function * src/breakpoints.cc: removed superfluous carriage return print. * examples/scripts/README, examples/scripts/client.cc, examples/scripts/makefile: added new files to illustrate scripting. * examples/scripts/gensquares.asm: minor tweak to simplify example regression test. 2004-12-14 Scott Dattalo * cli/scan.ll, cli/socket.cc, src/protocol.cc, src/protocol.h, src/value.cc: Fixed compilation issues with FC3 on an Athlon 64. 2004-12-11 Borut Razem * src/makefile.mingw, src/src.vcproj: added protocol.cc and protocol.h * plat/win32/gpsim.def: MSVC sync 2004-12-10 Scott Dattalo * src/gpsim_time.cc: Added a "cycles" attribute for interfacing with the cycle counter class. * src/protocol.cc, src/protocol.h, src/symbol.cc, src/symbol.h, src/value.cc, src/value.h, cli/socket.cc: More improvements to the protocol stuff. 2004-12-09 Scott Dattalo * src/protocol.h, src/protocol.cc, src/Makefile.am: New files to support a communication protocol for gpsim. * cli/socket.cc: moved much of the protocol related stuff to the new files. * src/value.h, src/value.cc, src/symbol.h, src/symbol.cc: Symbols and Values can now be assigned by Packets. * src/12bit-instructions.h, src/12bit-processors.h, src/14bit-instructions.h, src/14bit-processors.h, src/14bit-tmrs.h, src/16bit-processors.h, src/16bit-tmrs.h, src/breakpoints.h, src/p12x.h, src/p16f62x.h, src/p16x5x.h, src/p16x6x.h, src/p16x8x.h, src/pic-instructions.h, src/pic-processor.h, src/processor.h, src/trace.h, src/xref.h: fixed typo in GPL disclaimer. 2004-12-07 Scott Dattalo * cli/socket.cc: More socket clean up * src/modules.cc, src/modules.h, src/processor.cc, src/processor.h, src/symbol.cc, src/symbol.h: Removed deprecated code for setting/getting attributes. Added a new member function to the module_symbol that allows a character string to assign values to a module (this doesn't do anything yet). * modules/resistor.cc, modules/resistor.h, modules/usart.cc, modules/usart.h: removed deprecated set_attribute member function. 2004-12-06 Scott Dattalo * cli/socket.cc: Experimenting with binary data. Cleaned up socket link creation. Added a generic symbol read/write socket command. 2004-12-06 Scott Dattalo * cli/socket.cc: Wrap gtk2.x calls with #defines 2004-12-02 Scott Dattalo * cli/socket.cc: More additions to SocketLinks. It's now possible to tie a socket to a gpsim attribute. This allows an external application to directly control gpsim's behavior. 2004-12-02 Scott Dattalo * src/pic-processor.h, src/pic-processor.cc, src/p16f87x.h, src/p16f87x.cc: Added the PIC 16f876 2004-12-01 Scott Dattalo * cli/socket.cc: Fixed the socket interface for issues related to gtk 2.x. Began adding the SockeLink class. This class will sit on top of the socket interface and will hide it from the clients. The clients will be able to open SocketLinks and connect directly to gpsim internal objects. 2004-12-01 Borut Razem * plat/win32/gpsim.def: MSVC sync 2004-11-30 Scott Dattalo * gpsim/gpsim.vcproj: Removed references to files resource.h and gpsim.rc. 2004-11-30 Scott Dattalo * cli/cmd_break.cc, cli/cmd_break.h, cli/cmd_help.cc, cli/cmd_help.h, cli/cmd_load.cc, cli/cmd_load.h, cli/cmd_log.cc, cli/cmd_log.h, cli/cmd_macro.cc,, cli/cmd_macro.h, cli/cmd_module.cc, cli/cmd_module.h, cli/cmd_processor.cc,, cli/cmd_processor.h, cli/cmd_symbol.cc, cli/cmd_symbol.h, cli/command.cc, cli/misc.h, cli/parse.yy, cli/scan.ll: Changed the parser token STRING to LITERAL_STRING_T. The reason for this is to allow string type attributes to be treated like numeric attributes. * src/pic-processor.cc, src/pic-processor.h, src/processor.cc, src/processor.h, src/symbol.cc, src/symbol.h, src/value.cc, src/value.h: - Enhanced the 'String' class so that 1) it uses char * instead of STL string (yes this IS an enhancement) 2) the set() and get() methods can read and write to the String class. - Changed many instances of 'char *' to 'const char *'. 2004-11-29 Scott Dattalo * src/pic-processor.cc, src/processor.cc, src/processor.h, src/trace.cc, src/value.cc, src/value.h: Change Integer, Boolean, and Float classes back to hold values of native types (as opposed to holding pointers to the native types). * modules/video.cc: changed reference to cpu->frequency to cpu->set_frequency 2004-11-29 Scott Dattalo * cli/cmd_stimulus.cc: register stim were not getting started. * regression/register_stim/register_stim.[asm|stc], regression/run_regression.sh: Added a regression test for register stimuli. 2004-11-29 Scott Dattalo * src/stimuli.h, src/stimuli.cc, src/value.cc, src/value.h: Redesigned the 'asynchronous_stimulus' to be a 'ValueStimulus'. Added a new stimulus type: AttributeStimulus. An attribute stimulus is a stimulus that can be tied directly to some attribute. For example, a register symbol is a type of attribute. So an attribute stimulus can be tied to a register symbol to create a 'register stimulus'. * cli/cmd_stimulus.cc, cli/command.cc, cli/parse.yy: Added support for attribute stimuli. 2004-11-28 Borut Razem * plat/win32/gpsim.def: MSVC sync 2004-11-24 Scott Dattalo * src/processor.cc: operator[] for FileContext was not checking negative indices. 2004-11-24 Scott Dattalo * cli/input.cc: yet another attempt to fix tab completion. * modules/binary_indicator.cc, modules/binary_indicator.h modules/bitlog.h, modules/led.h, modules/logic.cc, modules/logic.h, modules/paraface.h, modules/resistor.cc, modules/video.cc, modules/video.h: Changed IO_input to IOPIN for all pins. This is an attempt to remove a warning message regarding IO_input that is generated while building under CygWin. * modules/makefile.mingw, plat/win32/gpsim.nsi: Renamed modules.dll to a slightly more descriptive gpsim_modules.dll * src/i2c-ee.cc, src/p12.cc, src/p16f62x.cc, src/p17c75x.cc, src/stimuli.h: exchanged references to IO_input to IOPIN. 2004-11-23 Scott Dattalo * plat/win32/gpsim.def, modules/modules.vcproj: MSVC sync * modules/*.cc: removed (char *) casts in calls to new_name() * gpsim/main.cc: removed some unnecessary includes. * gpsim/gpsim.vcproj: MSVC sync * cli/input.cc: removed some debug stuff * cli/cmd_log.cc: removed unreferenced variable. 2004-11-23 Borut Razem * plat/win32/gpsim.def, modules/modules.vcproj: MSVC sync 2004-11-23 Scott Dattalo * cli/input.cc: The tab completion fix for window's now causes a crash on Linux. Sigh. Now both oses are supported (without crashes) 2004-11-23 Scott Dattalo * cli/input.cc: Fixed tab completion related window's crash * gui/gui_symbols.cc: Windows doesn't support strndup() 2004-11-22 Scott Dattalo * cli/input.cc: buffer overflow in command_generator(). * src/ioports.cc, src/pic-registers.cc, src/registers.cc, src/stimuli.cc: valgrind check - unitialized memory. * src/value.h, src/value.cc, src/interface.h, src/symbol.cc, src/symbol.h, gui/gui_profile.cc, gui/gui_regwin.cc, gui/gui_regwin.h, gui/gui_src.cc, gui/gui_src.h, gui/gui_src_asm.cc, gui/gui_stack.cc, gui/gui_symbols.cc, gui/gui_watch.cc, gui/gui_watch.h: The gui was accessing the symbol table improperly. A new Symbol_Table_Iterator class was created to abstract accesses to the symbol table. In addition, get() and set() methods were added to the symbol classes that will allow reading/writing symbol values using strings. 2004-11-19 Scott Dattalo * gui/gui_breadboard.cc, gui/gui_regwin.cc, cli/parse.yy: valgrind check - fixed some uninitialized memory. 2004-11-19 Scott Dattalo * gui/gui_breadboard.cc: Don't let modules open a closed breadboard window. 2004-11-18 Scott Dattalo * cli/input.cc: disallow TAB characters under windows since it causes a crash most of the time. * modules/bitlog.cc, modules/bytelog.cc, modules/ttoken.cc, modules/makefile.mingw: These were not getting built under windows. * plat/win32/gpsim.nsi: added pthreadVC.dll to gpsim's windows binary distribution. * doc/gpsimWin32.html: Updated documentation for pthreads. 2004-11-17 Scott Dattalo * src/processor.cc, src/value.cc, src/value.h: made Integer,Float and Boolean values get() and set() their values through just one member function. This allows derived attributes to trap reads and writes to the values. 2004-11-16 Scott Dattalo * src/value.h, src/value.cc, src/processor.h, src/processor.cc, src/pic-processor.cc, src/symbol.h, src/symbol.cc: Added 3 new attributes: SafeMode, WarnMode, and UnknownMode to control the simulator's behavior under certain simulation conditions. Attribute handling has also been enhanced. * cli/parse.yy, cli/cmd_help.cc, cli/cmd_help.h: Help command will display information about attributes. 2004-11-15 Scott Dattalo * src/ioports.h, src/ioports.cc, src/16bit-registers.cc: Beginning to redesign I/O ports. 2004-11-14 Scott Dattalo * src/i2c-ee.cc, src/ioports.cc, src/ioports.h, src/stimuli.cc, src/uart.cc: The usart has bitrotted. The relatively recent I/O pin changes broke this and probably other peripherals too. * modules/Makefile.am: added new files. * modules/pthread-wrap.h, modules/ttoken.cc, modules/ttoken.h: The token class provides co-routine support for modules. * modules/bitlog.cc, modules/bitlog.h, modules/bytelog.cc, modules/bytelog.h: Bit and Byte event loggers. bitlog was originally part of the uart module. * modules/usart.cc, modules/usart.h: removed the bit logger class and am now making an attempt to resurrect this code. 2004-11-10 Scott Dattalo * cmd/cmd_break.cc: updated the help description for 'break' * src/operator.cc, src/symbol.h, src/symbol.cc: Allow registers to be type-cast into integers. 2004-11-10 Scott Dattalo * gui/gui_breadboard.cc: * src/breakpoints.cc, src/gpsim_object.cc, src/gpsim_object.h, src/modules.cc, src/processor.cc, src/registers.cc, src/registers.h, src/symbol.cc, src/symbol.h: - More attribute enhancements - added a module load capability that uses attributes. 2004-11-08 Scott Dattalo * cli/cmd_attach.h, cli/cmd_load.cc, cli/cmd_symbol.cc, cli/cmd_symbol.h, cli/command.cc, cli/parse.yy, cli/scan.ll cli/socket.cc: More attibute updates * gui/gui_breadboard.cc, gui/gui_menu.cc, gui/gui_object.cc, gui/gui_profile.cc, gui/gui_regwin.cc, gui/gui_src_asm.cc, gui/gui_stack.cc, gui/gui_statusbar.cc, gui/gui_symbols.cc: - Removed debugging printfs. - Changed attribute handling. * src/cod.cc, src/expr.cc, src/expr.h, src/gpsim_object.cc, src/modules.cc, src/p16x8x.cc, src/pic-processor.cc, src/processor.cc src/stimuli.cc, src/stimuli.h, src/symbol.cc, src/symbol.h, src/tmr0.cc, src/value.cc, src/value.h: - Removed debugging statements - Added the attribute_symbol class. - Added more methods to the derived symbol classes to handle type casting. 2004-11-07 Borut Razem * plat/win32/gpsim.def, plat/win32/gpsim.nsi, src/makefile.mingw, src/src.vcproj: MSVC sync * doc/gpsimWin32.html: updated glib version to 2.4.7, gtk+ version to 2.4.13 2004-11-06 Scott Dattalo * cli/socket.cc, gui/gui_profile.cc, gui/gui_stack.cc, gui/gui_symbol.cc, src/symbol.cc, src/symbol.h, src/value.cc src/value.h: gpsim symbols now support more of the methods of the Value class. 2004-11-05 Scott Dattalo * cli/cmd_clear.cc, cli/cmd_disasm.cc, cli/cmd_set.cc cli/command.cc, cli/scan.ll, gui/gui_breadboard.cc, src/errors.cc src/expr.cc, src/operator.cc, src/value.cc, src/value.h: Cleaned up the Value class. 2004-11-05 Scott Dattalo * src/attribute.h, src/attribute.cc, Makefile.am: Removed attribute.* from gpsim. The class 'Value' has replaced it. 2004-11-04 Scott Dattalo * cli/cmd_break.cc, cli/cmd_log.cc, cli/cmd_symbol.cc, cli/cmd_x.cc, src/attribute.cc, src/cod.cc, src/expr.cc, src/gpsim_classes.h, src/modules.cc, src/modules.h, src/p12x.cc, src/p16f62x.cc, src/p16x5x.cc, src/p16x6x.cc, src/p16x7x.cc, src/p16x8x.cc, src/p18x.cc, src/pic-instructions.cc, src/pic-processor.cc, src/processor.h, src/symbol.cc, src/symbol.h, src/value.cc, src/value.h: - Rearranged class heirarchy so that gpsimValue derives from gpsimObject instead of Value. - Substitued the Value class for those places where the Attribute class is used. * modules/encoder.cc, modules/led.cc, modules/logic.cc, modules/push_button.cc, modules/resistor.cc, modules/switch.cc, modules/usart.cc, modules/video.cc 2004-11-04 Scott Dattalo * regression/create_stc, regression/simulate, src/expr.cc, src/symbol.cc, src/symbol.h, src/value.cc: Regression tests were failing due to recent parser changes. 2004-11-03 Scott Dattalo * cli/parse.yy, cli/scan.ll, src/14bit-registers.cc, src/16bit-instructions.cc, src/16bit-registers.cc, src/breakpoints.cc, src/breakpoints.h, src/expr.cc, src/expr.h, src/icd.cc, src/modules.cc, src/operator.cc, src/operator.h, src/p16x7x.cc, src/pic-instructions.cc, src/pic-instructions.h, src/pic-registers.cc, src/registers.cc, src/symbol.cc, src/symbol.h, src/value.cc, src/value.h: Added command line assignments. Now you can write stuff like: temp1 = temp2 << 4 where temp1 and temp2 are two registers. 2004-11-02 Scott Dattalo * src/attribute.cc, src/attribute.h, src/modules.cc, src/modules.h: cleaned up include dependencies. 2004-11-02 Scott Dattalo * src/gpsim_time.cc, src/gpsim_time.h: Fixed a bug with clearing cycle counter break points. 2004-11-01 Scott Dattalo * src/gpsim_time.cc, src/gpsim_time.h, src/breakpoints.cc, src/ioports.h, src/ioports.cc, src/stimuli.cc, src/tmr0.cc: Interrupts, tmr0 and I/O pins were all broken in some way. * regression/interrupts_14bit.asm, regression/interrupts_14bit.stc: Added regression test for the midrange devices 2004-10-29 Scott Dattalo * src/gpsim_time.cc, src/gpsim_time.h: Cycle counter debugging. 2004-10-20 Scott Dattalo * src/16bit-instructions.cc: Fixed bug in DECF instruction. * regression/instructions_16bit/instructions_16bit.asm: Added decf instruction to the regression test. 2004-10-20 Scott Dattalo * src/ioports.cc, src/ioports.h, src/stimuli.cc, src/stimuli.h: PORTB pullups updated. Added an overloaded update() member to Stimulus_Node that doesn't require time as an input (we never used it anyway). 2004-10-19 Scott Dattalo * src/stimuli.h, src/stimuli.cc, src/ioports.cc, src/i2c-ee.cc: Optimized I/O port stimulus updates. 2004-10-19 Scott Dattalo * src/stimuli.h, src/stimuli.cc: Began adding capitance modelling to stimuli. 2004-10-18 Scott Dattalo * src/gpsim_classes.h, src/registers.h: Added EXTERNAL_RESET and BOD_RESET types. 2004-10-17 Borut Razem * plat/win32/gpsim.def: MSVC sync * src/symbol.cc: fixed gpsim crash on WIN32 in remove_module() 2004-10-13 Scott Dattalo * src/cod.cc: Applied patch from Craig Franklin that adds support for reading .cod file message area. 2004-10-12 Scott Dattalo * src/gpsim_time.cc: Added diagnostic printf's * src/pic-processor.cc, src/pic-processor.h, src/processor.cc, src/processor.h: add an option to not update the gui while single stepping. 2004-10-11 Scott Dattalo * src/cod.cc, src/processor.cc: Applied, but modified, patch from Craig Franklin that brings gpsim up to date with new gputils release. 2004-10-07 Scott Dattalo * gui/gui_breadboard.cc, gui/gui_breadboard.h, gui/gui_menu.cc: Cleaned up the gui breadboard code a little by making the gui_module structure a GuiModule class. In addition, new modules are queued into the breadboard and realized only after the breadboard has been built. 2004-10-07 Scott Dattalo * gui/gui_src_opcode.cc: window was being built before cpu had been initialized. * cli/cmd_disasm.cc, src/processor.cc, src/trace.cc: Disassembling and tracing had wrong addresses for the 18F family (again...) 2004-10-06 Scott Dattalo * gui/gui_src.h, gui/gui_src_asm.cc, gui/gui_src_opcode.cc, gui/gui_statusbar.cc, src/breakpoints.cc: Fixed breakpoint icon refreshing. Also fixed Source browser window creation if either ~/gpsim is missing or the registry hasn't been initialized 2004-10-05 Scott Dattalo * gui/gui_src_asm.cc: Moved the creation of the Search Dialog window out of Build() and into its own function. Changed the behavior of the signal callbacks to conform to GTK+ 2.X 2004-10-04 Scott Dattalo * README, INSTALL: Cleaned up stale documentation. 2004-10-04 Scott Dattalo * cli/input.cc: Send an extra CR to the parser when loading a command file. Turns out that when the gui loads a file, the parser doesn't process it until another CR is seen. 2004-10-04 Scott Dattalo * gui/gui_src_asm.cc, gui/gui_regwin.cc, gui/gui_breadboard.cc: Removed some debugging printfs. * gui/gui_object.cc: With GTK+ 2.2.1 under linux, the gtk_widget_show() was losing the (x,y) position of the window. 2004-10-04 Scott Dattalo * gui/gui_breadboard.cc, gui/gui_breadboard.h: The breadboard expose events invalidated drawing areas which in turn recursively generated expose events. I'm not sure why this code worked with GTK+ 1.x 2004-10-04 Scott Dattalo * gui/gui_breadboard.cc, gui/gui.h, gui/gui_stopwatch.cc, gui/gui_object.cc, gui/gui_main.cc, gui/gui_object.h, gui/gui_profile.cc, gui/gui_regwin.cc, gui/gui_scope.cc, gui/gui_src.h, gui/gui_src_asm.cc, gui/gui_src_opcode.cc, gui/gui_stack.cc, gui/gui_stopwatch.cc, gui/gui_symbols.cc, gui/gui_trace.cc, gui/gui_watch.cc: Work in progress - trying to resolve breadboard start up issues with GTK+ 2.X . 2004-10-03 Borut Razem * config_win32.h.in, plat/win32/configure_win32.awk, cli/cli.vcproj, src/src.vcproj, plat/win32/make.mingw, makefile.mingw, cli/makefile.mingw, gpsim/makefile.mingw, gui/makefile.mingw, modules/makefile.mingw, src/makefile.mingw: added configure_win32.awk script, which takes version number from configure.in and inserts them into config_win32.h.in and generates cofig.h * plat/win32/gpsim.def: MSVC sync 2004-10-01 Scott Dattalo * src/processor.cc, src/processor.h, gui/gui.h, gui/gui_regwin.c gui/gui_asm.cc, gui/gui_src_opcode.c, plat/win32/make.mingw: Stabilizing windows port. Apparently under windows there's a problem if you issue too many gui calls to the GTK library. I found that this can be mitigated by periodically clearing out the gtk event queue. 2004-09-29 Scott Dattalo * cli/input.cc, gui/gui_menu.cc, gui/gui_src_asm.cc, src/modules.h, src/modules.cc, src/processor.cc, src/pic-processor.cc, src/pic-processor.h, src/trace.h plat/win32/gpsim.def: Clean ups to get the Windows port to compile. 2004-09-29 Scott Dattalo * gui/gui_src_asm.cc, src/pic-instructions.cc: Uninitialized variables in the instruction class were causing the source browser to place objects beyond the range allocated to the source browser. This confused GTK+ 2.x. 2004-09-28 Scott Dattalo * cli/cmd_load.cc, cmd/input.cc: Allow loading of filenames with spaces. (note, gpsim's command line interface still does not support this). 2004-09-28 Scott Dattalo * gui/gui_main.cc, gui/gui_menu.cc, gui/gui_object.cc, gui/gui_object.h, gui/gui_regwin.cc, gui/gui_src.h, gui/gui_src_asm.cc, src/gpsim_interface.h, M src/interface.cc: - Fixed a few bugs caused by upgrading to GTK+ 2.x: -- Window state was not being saved -- Register window font was fouled up -- Source browser pixel position calculations are different There are still some other bugs that need to be fixed: -- The breadboard window somehow prevents the Source browser window from opening -- Q no longer quits -- scrolling in source browser only works if the scroll pane has focus -- The register window cheats in guessing character width. 2004-09-24 Scott Dattalo * src/processor.cc: save_state() was skipping address 0. * src/registers.cc: Bit string encoding has been enhanced 2004-09-15 Scott Dattalo * gui/gui_regwin.h, gui/gui_regwin.cc: max allowable registers is 64k (used to be 4k) * gui/gui_src_asm.cc: improperly initialized instructions were causing a core dump. 2004-09-19 Borut Razem * configure.in: gpsim is configured to link with GTK+ 2.x by default. Use --enable-gtk1 for linking with GTK+ 1.x (deprecated). 2004-09-15 Scott Dattalo * gui/gui_regwin.cc, gui/gui_src_asm.cc: Fixed ranging checks. 2004-09-15 Scott Dattalo * src/processor.cc, src/processor.h, src/pic-processor.cc: getWriteTT and getReadTT used to return TraceType objects, but now they return unsigned ints. 2004-09-15 Scott Dattalo * src/processor.cc, src/trace.cc, gui/gui_src_opcode.cc: - 18f processors' addresses were off by a factor of two in disassembly operations. 2004-09-14 Borut Razem * cli/cli.cvproj, src/src.vcproj, plat/win32/gpsim.def: MSVC sync * cli/makefile.mingw, src/makefile.mingw: MinGW sync * plat/win32/gpsim.nsi: corrected revision number to 0.22.3 2004-09-14 Scott Dattalo * regression/p12ce518/p12c518.asm, regression/p12ce518/p12c518.stc, regression/p12ce518/EEdriver.asm: Added a regression test for the 12ce518. * src/stimuli.cc, src/i2c-ee.cc, src/ioports.cc, src/stimuli.h, src/14bit-registers.cc: Fixed stimuli so that the 12CE518 internal EEPROM would work. 2004-09-13 Scott Dattalo * src/i2c-ee.cc, src/i2c-ee.h, src/ioports.cc, src/p12x.cc, src/stimuli.cc, src/stimuli.h: Partially check in for work on the 12ce518 bug (internal I/O pins). 2004-09-12 Scott Dattalo * cli/Makefile.am, cli/errors.cc, cli/errors.h: * src/Makefile.am, src/errors.cc, src/errors.h: Moved errors.* from cli/ to src/ * src/expr.cc, src/operator.cc, cli/cmd_disasm.cc, cli/cmd_set.cc, cli/cmd_x.cc, cli/command.cc, cli/command.h, cli/parse.yy, cli/scan.ll: Updated the directory path for including errors.h. 2004-09-12 Borut Razem * cli/cli.cvproj, src/src.vcproj, plat/win32/gpsim.def: MSVC sync * cli/makefile.mingw, src/makefile.mingw, gpsim/makefile.mignw: MinGW sync 2004-09-11 Scott Dattalo * configure.in: Bumped the Revision up to 0.22.3 since there have been *so* many changes. * cli/expr.h, cli/expr.cc, cli/operator.cc, cli/operator.h: - moved to the src/ directory * src/expr.h, src/expr.cc: copied from the cli/ directory * src/Makefile.am, cli/Makefile.am * src/symbol.h, src/value.h, src/symbol.cc, src/value.cc: - It turns out that gpsim's symbols are essentially identical to the value objects that were recently added to support expression parsing. Since expressions need to handle symbols too, I decided to make the Value class a base class for gpsimValue. Now, much of what has been written for expressions will naturally handle many of gpsim fundamental types. * src/pic-processor.cc, src/pic-processor.h, src/eeprom.cc, src/eeprom.h, src/14bit-registers.cc: The W register, eeprom, and option register states were not saved during a processor 'save_state()' call. * src/p12x.cc: internal 12ce518 i2c module was not connected correctly. * cli/cmd_clear.cc, cli/cmd_disasm.cc, cli/cmd_frequency.cc, cli/cmd_log.h, cli/cmd_macro.cc, cli/cmd_module.h, cli/cmd_set.cc, cli/cmd_step.cc, cli/cmd_stimulus.h, cli/cmd_symbol.cc, cli/cmd_trace.cc, cli/cmd_trace.h, cli/cmd_x.cc, cli/command.cc, cli/command.h: Updated the paths to the include files that have moved 2004-09-08 Scott Dattalo * cli/cmd_x.cc, cli/expr.cc, cli/expr.h, cli/operator.cc, cli/operator.h, cli/parse.yy, cli/scan.ll: - Added command line comparison expressions. * src/pic-processor.cc, src/pic-registers.cc, src/symbol.cc, src/symbol.h, src/value.cc, src/value.h: - Added support for a generic symbol type. - Added the pic PC object to the symbol table. * regression/digital_stim/digital_stim.stc: The new expression parsing introduced a grammer conflict that requires a stimulus data list to be expressed differently. 2004-09-08 Scott Dattalo * src/14bit-registers.h, src/14bit-tmrs.h, src/breakpoints.cc, src/breakpoints.h, src/eeprom.h, src/gpsim_interface.h, src/gpsim_time.cc, src/gpsim_time.h, src/i2c-ee.h, src/p16x7x.h, src/pic-processor.cc, src/processor.cc, src/processor.h, src/ssp.h, src/stimuli.cc, src/stimuli.h, src/tmr0.h, src/trace.h, src/uart.h gui/gui_profile.cc, modules/encoder.h, modules/paraface.h modules/usart.cc: Started adding Triggers and Actions. * regression/run_regression.sh: Added the digital_stim regression test to the list of tests to run. 2004-09-07 Scott Dattalo * src/stimuli.cc, src/stimuli.h, cmd_x.cc, cmd_stimulus.cc: Digital asynchronous stimuli were not getting the proper voltage data values. Enhanced the asynchronous stimulus by making the data array an array of C++ objects instead of a type casted structured. 2004-09-06 Scott Dattalo * examples/14bit/analog_stim2.stc, examples/14bit/ap.stc, examples/14bit/async_pulse.stc, examples/14bit/async_stim2.stc, examples/14bit/dtmf.stc, examples/12bit/gpio_stim.stc: - Updated the asynchronous stimulus syntax in all of the example startup scripts 2004-09-05 Scott Dattalo * src/ioport.cc, src/stimuli.cc: Applied patch from Robert Pearce regarding I/O Pins and stimuli Fixed a couple more issues with I/O pins and contention. 2004-09-02 Borut Razem * cli/socket.cc: read complete line before procesing, support for different line endings (LF, CR-FL) * cli/cmd_macro.cc: enable compilation on VS 7.1 2004-09-02 Scott Dattalo * cli/cmd_macro.cc: Clarified the help description for the macro command. 2004-09-02 Scott Dattalo * cli/cmd_macro.cc, cli/cmd_macro.h, cli/scan.h, cli/scan.ll: Completed support for parameterized macros 2004-09-02 Scott Dattalo * cli/cmd_macro.cc, cli/cmd_macro.h, cli/input.cc, cli/parse.yy, cli/scan.ll: Added support for parameterized macros. This is not completed 2004-09-02 Borut Razem * cli/input.cc, cli/socket.cc: socket port to WIN32 * gpsim/gpsim.vcproj, cli/cli.vcproj, cli/makefile.mingw, gpsim/makefile.mingw: added cmd_macro.* and socket.cc to the project, wsock32.lib dependency 2004-09-01 Scott Dattalo * cli/parse.yy: Fixed a bug that caused old versions of bison to choke. 2004-09-01 Scott Dattalo * cli/cmd_macro.cc, cli/input.cc: Converted the LLInput struct into a class. Now, the macro command can invoke a macro and redirect it's output to the parser stream. * src/trace.cc, src/trace.h: Added the ProcessorTraceObject to the TraceObject heirarchy. Now, TraceObjects no longer store info about a processor. (Thus modules can be processor agnostic.) 2004-09-01 Scott Dattalo * src/p16x5x.cc: The 16C55 processor was only declaring a package of 18 pins (instead of 28). 2004-08-31 Scott Dattalo * cli/cmd_macro.cc, cli/cmd_macro.h: Added the 'macro' command. * cli/Makefile.am, cli/parse.yy, cli/command.cc, cli/scan.ll: Parser now calls the gpsim command cmd_macro. 2004-08-31 Scott Dattalo * cli/scan.ll, cli/parse.yy: Added language support for macro definitions. (although, macros are not yet supported). 2004-08-29 Borut Razem * plat/win32/gsim.def, cli/makefile.migw, src/makefile.migw, cli/cli.vcproj, src/src.vcproj: updated * cli/errors.h, cli/scan.ll: corrected include paths * plat/win32/gpsim.nsi: gpsom.pdf included in WIN32 setup * doc/gpsimWin32.html: gtk+ 2.4.7 2004-08-27 Scott Dattalo * src/breakpoints.cc, src/gpsim_object.cc, src/gpsim_object.h, src/modules.cc, src/modules.h, src/pic-processor.cc, gui/gui_src_asm.cc, gui/gui_statusbar.cc: The Module class was overriding functionality provided in the gpsimObject class. This caused problems for external processors (That is, processors not a part of gpsim). 2004-08-26 Scott Dattalo * src/gpsim_object.cc, src/gpsim_object.h: New files that support the gpsimObject class. This is a base class for almost all gpsim objects. * cli/viewable.cc, cli/viewable.h: Removed. The functionality that was provide by these was moved to gpsimObject. * src/Makefile.am, src/modules.h, src/registers.cc, src/registers.h, src/symbol.cc, src/value.cc, src/value.h, cli/Makefile.am, cli/cmd_x.cc, cli/command.cc, cli/command.h, cli/expr.cc, cli/expr.h, cli/parse.yy: Added the gpsimObject Meta class. Added support for symbolically viewing registers with the 'x' command. Added support for viewing a range of registers. 2004-08-26 Scott Dattalo * src/stimuli.cc, src/symbol.cc, src/symbol.h, gui/gui_profile.cc, gui/gui_stack.cc, gui/gui_symbols.cc cli/scan.ll: The symbol class is now derived from the gpsimValue class. This change allows some of the recent enhancements created for other things to be applied to symbols as well. * examples/14bit/p16c64_pwm.stc, examples/14bit/portc_stim.stc: The PWM module was crashing. I'm not sure why, but I think what actually was happening that the example stc file was just broken. 2004-08-25 Scott Dattalo * cli/cmd_trace.cc, src/14bit-registers.cc, src/trace.cc, src/trace.h: Removed a stale option to the trace command and added a new option that will allow the decode trace buffer to be saved to a file. 2004-08-25 Manuel Bouyer * src/stimuli.cc: fixed bug in finding the node voltage when 3 or more stimuli are attached to a node. 2004-08-24 Scott Dattalo * src/stimuli.cc: Attaching three or more stimuli to one node caused gpsim to hang. 2004-08-24 Manuel Bouyer * src/stimuli.cc: Fixed iopin stimulus update. 2004-08-24 Scott Dattalo * cli/cmd_attach.cc, cli/cmd_attach.h, cli/cmd_symbol.cc, cli/cmd_symbol.h, cli/expr.cc, cli/expr.h, cli/parse.yy, cli/scan.ll, src/stimuli.cc, src/stimuli.h, src/symbol.h: The attach command can now accept a list of symbols. Also, Nodes and stimuli are now added to the symbol table whenever they're constructed. 2004-08-19 Scott Dattalo * src/processor.cc: writeTT and readTT were not initialized in Processor constructor. 2004-08-18 Scott Dattalo * src/registers.cc, src/registers.h, src/symbol.cc, src/symbol.h, src/trace.cc, src/trace.h, cli/cmd_symbol.cc, cli/cmd_symbol.h, cli/expr.cc, cli/expr.h, cli/parse.yy, cli/scan.ll: More improvements to tracing. Added some more symbolic command line processing. 2004-08-16 Scott Dattalo * src/trace.cc, src/trace.h: CVS was broken. 2004-08-16 Scott Dattalo * src/intcon.cc, src/intcon.h, src/processor.h, src/trace.cc src/trace.h, src/value.h: Trace stuff *** CVS is broken at the moment but will be fixed within 3 hours of the time stamp of this change 2004-08-14 Borut Razem * plat/win32/gpsim.nsi: small changes * doc/gpsimWin32.html: documented GCC compilation 2004-08-13 Scott Dattalo * src/14bit-processors.cc, src/14bit-registers.cc, src/14bit-registers.h src/14bit-tmrs.cc, src/16bit-registers.cc, src/eeprom.cc, src/intcon.cc, src/ioports.cc, src/p16x7x.cc, src/pic-processor.cc, src/pic-registers.cc, src/pie.cc, src/pir.cc, src/processor.cc, src/processor.h, src/registers.cc, src/registers.h, src/ssp.cc, src/tmr0.cc, src/trace.cc, src/trace.h, src/uart.cc: More Tracing. 2004-08-11 Scott Dattalo * src/trace.cc, src/trace.h, src/processor.cc, src/pic-processors.cc src/value.h, src/value.cc, src/registers.h, src/registers.cc, 14bit-registers.cc: More trace stuff. 2004-08-10 Borut Razem * plat/win32/gpsim.nsi: packaging of examples, extras, ... * plat/win32/gpsim.def: updated exports * extras/lcd/lcd.cc, extras/lcd/lcdengine.cc, extras/lcd/lcdgui.cc, extras/lcd/module_manager.cc: define IN_MODULE for modules, calling accessor methods for global objects * modules/makefile.mingw, modules/modules.vcproj: removed unneeded define MODULES_EXPORTS 2004-08-09 Scott Dattalo * src/14bit-registers.cc, src/14bit-registers.h, src/14bit-tmrs.cc, src/16bit-registers.cc, src/attribute.cc, src/eeprom.cc, src/intcon.cc src/ioports.cc, src/modules.cc, src/p16x7x.cc, src/pie.cc, src/pir.cc src/registers.cc, src/ssp.cc, src/tmr0.cc, src/trace.cc, src/trace.h src/uart.cc, gui/gui_breadboard.cc, modules/led.cc, modules/paraface.cc modules/resistor.cc,modules/usart.cc: Continuing this ongoing trace experiment. 2004-08-09 Scott Dattalo * src/trace.cc, gpsim/main.cc: more experimental code * src/attribute.cc, src/attribute.h, gui/gui_breadboard.cc: Some annoying bug with attributes that I can't figure out. Problem appears when shared libraries are disabled. 2004-08-06 Scott Dattalo * src/processor.cc, src/processor.h, src/registers.h, src/trace.cc: Partial implementation of trace reconstruction. 2004-08-04 Scott Dattalo * src/14bit-registers.cc, src/16bit-processors.cc, src/16bit-registers.cc src/p12x.cc, src/p16f62x.cc, src/p16f87x.cc, src/p16x5x.cc, src/p16x6x.cc src/p16x7x.cc, src/p16x8x.cc, src/p18x.cc, src/pic-processor.cc, src/pic-processor.h, src/processor.cc, src/processor.h, src/registers.cc src/registers.h, src/tmr0.cc, src/trace.cc, src/trace.h, gui/gui_regwin.cc cli/cmd_trace.cc: Two categories of changes have been made: First, the unitialized register concept has been propogated to all of the register constructions. Second, tracing has been improved yet again. 2004-08-04 Borut Razem * plat/win32/gpsim.nsi: packaging of MinGW executables * gpsim/gpsim.vcproj: cleanup * plat/win32/make.mingw, cli/makefile.mingw, gpsim/makefile.mingw, gui/makefile.mingw, modules/makefile.mingw, src/makefile.mingw: do not define NDEBUG to enable assertions in release version 2004-08-02 Borut Razem * gui/gui_breadboard.cc, gui/gui_menu.cc, src/hexutils.cc, src/interface.cc, src/packages.cc, src/xref.cc: reverted unneeded changes * config_win32.h.in, plat/win32/fd2raw.cpp: ifdefed MSVC specifics * cli/input.cc, src/pic_processor.cc: corrected the sequence of includes 2004-08-01 Borut Razem * makefile.mingw, cli/makefile.mingw, gpsim/makefile.mingw, gui/makefile.mingw, modules/makefile.mingw, src/makefile.mingw, plat/win32/make.mingw: added mingw (cygwin -mno-cygwin) gcc WIN32 native makefiles * config_win32.h.in, gui/gui_breadboard.cc, gui/gui_menu.cc, src/hexutils.cc, cli/input.cc, src/interface.cc, src/packages.cc, src/pic_processor.cc, plat/win32/uxtime.h, src/xref.cc: changes to enable mingw (cygwin -mno-cygwin) gcc WIN32 native compilation * src/modules.cc: added initialization of widget Module class member * plat/win32/glist.cpp: corrected line formatting 2004-07-31 Borut Razem * plat/win32/gpsim.def: updated exports * acinclude.m4, src/breakpoints.cc, cli/input.cc: small cleanups 2004-07-29 Scott Dattalo * src/14bit-instructions.cc, src/16bit-instructions.cc, src/pic-instructions.cc, src/pic-registers.cc, src/trace.cc, src/trace.h: The newly rewritten trace printing code was broken. The good news is that while fixing it, I found a way to save a little simulation time by not tracing the instruction opcodes. 2004-07-29 Scott Dattalo * src/ioports.cc, src/ioports.h, src/modules.cc, src/registers.cc, src/registers.h, src/stimuli.cc, src/stimuli.h: Minor stimuli bug fixes, commenting and general cleanup. * cli/cmd_trace.cc, src/trace.cc, src/trace.h, src/trace_orb.h, src/pic-registers.cc, src/processor.cc, src/processor.h: Rewrote the trace printing code. 2004-07-24 Borut Razem * plat/win32/gpsim.def: updated exports * plat/win32/gpsim.nsi: don't cd when running gpsim * doc/gpsimWin32.html: XHTML 1.0 compliant, snapshots at a separate page 2004-07-22 Scott Dattalo * src/stimuli.cc, modules/resistor.cc, modules/resistor.h: Bug fixes to the recent I/O pin redesign 2004-07-22 Scott Dattalo * src/14bit-tmrs.cc, src/breakpoints.cc, src/breakpoints.h, src/i2c-ee.cc, src/ioports.cc, src/ioports.h, src/p16x7x.cc, src/p16x7x.h, src/packages.cc, src/pic-processor.h, src/processor.cc, src/processor.h, src/registers.cc, src/registers.h, src/ssp.cc, src/stimuli.cc, src/stimuli.h, src/uart.cc, modules/binary_indicator.cc, modules/binary_indicator.h, modules/led.cc, modules/led.h, modules/logic.cc, modules/logic.h, modules/paraface.cc, modules/paraface.h, modules/resistor.cc, modules/resistor.h, modules/usart.cc, modules/video.cc, modules/video.h: Rewrote the way stimuli are handled. Before, gpsim only used a single parameter (more or less) to represent the state of an stimulus. Now, two parameters are used. Currently, these parameters are designated as the voltage and impedance. Before, the single parameter was somewhat similar to a current. 2004-07-20 Scott Dattalo * src/stimuli.h, src/stimuli.cc: added input leakage modelling to I/O pins. 2004-07-19 Scott Dattalo * src/pic-processor.cc, src/pic-processor.h, src/pic-registers.cc, src/processor.h, src/processor.cc, gui/gui_statusbar.cc, gui/gui_stopwatch.cc, modules/usart.cc, cli/cmd_frequency.cc: Added new member functions to the Processor class to simplify handling time. 2004-07-17 Borut Razem * plat/win32/gpsim.def, src/src.vcproj, src/i2c-ee.cc: small fixes for MSVC compilation 2004-07-16 Scott Dattalo * gui/gui_statusbar.h, gui/gui_statusbar.cc: Now the status bar can accept an arbitrary of registers to display. * src/16bit-processors.cc, src/processor.h: Added BSR to the list of registers viewable in the status bar. * cli/cmd_trace.cc, cli/cmd_trace.h, cli/parse.yy, src/trace.cc: The trace raw option was broken. 2004-07-15 Scott Dattalo * cli/input.cc, cli/socket.cc, gui/gui_main.cc: The newly created gpsim socket interface now uses GLib GIOChannels instead of Pthreads. 2004-07-14 Scott Dattalo * gui_break.cc, gui_main.cc, gui_processor.cc, gui_processor.h, gui_regwin.cc gui_regwin.h, gui_src.h, gui_src_asm.cc, gui_src_opcode.cc, gui_statusbar.cc, gui_statusbar.h: Finished abstracting the gui status bar. Added a status bar to the source viewer. * 14bit-registers.cc, 14bit-registers.h, 14bit-tmrs.h, 16bit-processors.cc, Makefile.am, eeprom.h, intcon.h, ioports.cc, ioports.h, p12x.cc, p12x.h, p16f62x.cc, p16x5x.cc, p16x6x.cc, p16x8x.cc, pic-processor.cc, pic-processor.h, pic-registers.cc, pic-registers.h, pie.h, pir.h, processor.cc, processor.h, registers.h: Cleaned up some stale code. Added a MemoryAccess class and made it the base class to the RegisterMemoryAccess and ProgramMemoryAccess classes. 2004-07-14 Robert Pearce * src/i2c-ee.cc, src/i2c-ee.h, src/Makefile.am: New files that support an i2c peripheral * src/p12x.cc, src/p12x.h, src/pic-processor.h, src/pic-processor.cc: Added the 12CE518 and 12CE519 processors. * src/ioport.cc: Fixed an ambiguity in the ioport trace logic. 2004-07-13 Scott Dattalo * gui/gui_statusbar.cc: abstracting the status bar boxes. * src/pic-registers.cc: cross reference to Program Counter was broken. * src/processor.h, src/processor.cc: Added a set_PC method to the pma class 2004-07-12 Scott Dattalo * gui/gui_statusbar.cc: abstracting the status bar boxes. * examples/scripts/gensquares.asm, examples/scripts/testgensquares.py, examples/scripts/testgensquares.py: Script testing 2004-07-12 Scott Dattalo * cli/socket.cc: dinking around... * examples/scripts/testsocket.py: 2004-07-09 Scott Dattalo * cli/socket.cc: Added a very thin object layer to the socket interface * examples/scripts/testsocket.py: added to the repository. This is a simple python script that will exercise all of the commands that gpsim will accept through a socket interface. 2004-07-08 Scott Dattalo * gui/gui_main.cc, cli/socket.cc, cli/input.cc, configure.in: Added support for multithreading. * TODO: cleaned up the TODO list a little by removing some outdated items. 2004-07-08 Manuel Bouyer * src/16bit-registers.cc, src/16bit-registers.h: Added put() and update_pin_directions() methods for the PORTC16 class 2004-07-07 Scott Dattalo * cli/socket.cc: New file * cli/input.cc: init_gpsim() will now create a socket. Added a Socket class that is capable of creating a socket and accepting commands. * src/registers.h: added an option to fetch the RegisterValue object without causing a trace to be emitted. 2004-07-06 Borut Razem * gui/settings.h, gui/settings_exdbm.h, gui/settings_exdbm.cc, gui/gui.h, plat/win32/settings_reg.h, plat/win32/settings_reg.cpp, gui/gui.vcproj, gui/Makefile.am: added additional layer to hide differences between eXdbm and WIN32 registry * store settings in registy on WIN32 2004-07-03 Borut Razem * plat/win32/gpsim.ico, plat/win32/gpsim.nsi: created NSIS setup script 2004-07-02 Scott Dattalo * gpsim/input.cc, gui/gui_menu.cc: Now files are correctly loaded through the menu interface (File/Open) * cli/parse.yy, cli/scan.ll, cli/operator.cc, cli/operator.h: Added new binary operators: -,*,/,&,^,<<,>> 2004-07-02 Scott Dattalo * gpsim/main.cc: Emit warning if a user specifies both a .hex file and a .cod file at the command line. 2004-06-30 Scott Dattalo * plat/win32/gpsim.def: Added additional export definitions. * cli/cmd_clear.cc: type casting fixes. * src/breakpoints.h: added get_bp accessor function for the global bp (breakpoint) object * src/gpsim_time.h: now uses the bp accessor function. * src/processor.cc: If the listing file is not present, gpsim will not crash now... 2004-06-30 Scott Dattalo * gpsim/main.cc, cli/input.cc: Starting gpsim in cli only mode would cause a crash. 2004-06-30 Borut Razem * plat/win32/gpsim.def: small fix for MSVC compilation 2004-06-28 Scott Dattalo * cli/parse.yy, cli/misc.h, cli/cmd_symbol.cc, src/symbol.cc: Removed 'NUMBER' and 'FLOATING_NUMBER' types from the CLI parser. Now all numbers are represented by expressions. All commands that used to numbers have been converted over to use expressions. 2004-06-28 Scott Dattalo * cli/cmd_module.cc, src/modules.h, src/modules.cc, gui/gui_breadboard.cc: Module positioning now works again. 2004-06-27 Scott Dattalo * gui/gui_breadboard.cc: From Ralph, the breadboard was not using module pixmaps. * cli/cmd_module.cc, cli/cmd_module.h, cli/command.cc, cli/parse.yy: cli module command now supports expressions. 2004-06-27 Borut Razem * gpsim.sln: set project dependency - modules depends on gpsim * gpsim/gpsim.vcproj: corrected Ignore Specific Library settings * doc/gpsimWin32.html: added to CVS 2004-06-24 Scott Dattalo * cli/cmd_break.cc, cli/cmd_break.h, cli/cmd_log.cc, cli/cmd_log.h, cli/cmd_stimulus.h, cli/command.cc, cli/command.h, cli/expr.cc, cli/expr.h, cli/parse.yy,cli/scan.ll: The 'break' and 'log' commands now accept expressions 2004-06-24 Borut Razem * plat/win32/fd2raw.cpp, plat/win32/fd2raw.h: functions to set the WIN32 console to raw mode. * cli/input.cc: call functions to set WIN32 console to raw mode * gui/gui.vcproj: added fd2raw.cpp and fd2raw.h to the project * cli/cli.vcproj: added errors.cc and errors.h to the project 2004-06-23 Scott Dattalo * cli/Makefile.am, cli/cmd_attach.cc, cli/cmd_attach.h, cli/cmd_bus.cc, cli/cmd_bus.h * cli/cmd_clear.cc, cli/cmd_clear.h, cli/cmd_disasm.cc, cli/cmd_disasm.h, * cli/cmd_frequency.cc, cli/cmd_frequency.h, cli/cmd_node.cc, cli/cmd_node.h, * cli/cmd_set.cc, cli/cmd_set.h, cli/cmd_step.cc, cli/cmd_step.h, * cli/cmd_stimulus.cc, cli/cmd_stimulus.h, cli/cmd_trace.cc, cli/cmd_trace.h, * cli/cmd_x.cc, cli/command.cc, cli/command.h, cli/expr.cc, cli/expr.h, * cli/input.cc, cli/misc.h, cli/operator.cc, cli/operator.h, cli/parse.h, * cli/parse.yy, cli/scan.ll * gpsim/main.cc, gui/gui_breadboard.cc, src/processor.cc, * src/processor.h, src/stimuli.cc Rewrote the command parser and added expression parsing. * cli/errors.cc, cli/expr.cc, cli/operator.cc, cli/viewable.cc, cli/errors.h, cli/expr.h, cli/operator.h, cli/viewable.h: New files for expression parsing. 2004-06-16 Borut Razem * plat/win32/gpsim.def, gui/gui_src_asm.cc, src/symbol.cc, src/symbol.h: small fixes to enable compilation on MSVC 2004-06-15 Scott Dattalo * more pedantic fixes 2004-06-14 Scott Dattalo * more pedantic fixes (mostly in cli) 2004-06-14 Scott Dattalo * tons of pedantic fixes (and there are many more needed). 2004-06-14 Scott Dattalo * aclocal.m4, configure.in The AC_DEFINE macro was incompletely defined. * acconfig.h: removed from CVS * INSTALL: updated installation instructions for CVS checkouts * doc/gpsim_cvs.html: Added to the CVS 2004-06-12 Borut Razem * cli/viewable.cc: #warning not recognised by MSVC * eXdbm/eXdbm.vcproj, gui/gui.vcproj, modules.vcproj: new project files for GUI support * gpsim.sln, gpsim/gpsim.vcproj, cli/cli.vcproj, src/src.vcproj: GUI support * plat/win32/gpsim.def, plat/win32/modules.def: WIN32 def files for DLL modules support * plat/win32/glist.cpp: added g_win32_error_message() for --disable-gui * cli/input.c: define gpsim_rl_getc() only if defined HAVE_READLINE && defined HAVE_GUI 2004-06-09 Scott Dattalo * cli/expr.cc, cli/expr.h, cli/viewable.h, cli/viewable.cc, cli/operator.h, cli/operator.cc: New files to support parsing * cli/parse.yy, cli/scan.ll: added new parsing and lexing rules for expression parsing. * src/stimuli.cc: Manuel Boyer found and fixed a bug where the a named stimulus was ignoring its newly assigned name. 2004-06-09 Scott Dattalo * cli/parse.yy, cli/scan.ll, cli/misc.h, cli/cmd_stimulus.cc, cli/command.h Cleaned up the parser by removing the explicit YYABORT and YYACCEPT macros. Also, redesigned the parser implementation of the stimulus command. 2004-06-03 Scott Dattalo * examples/12bit/it_12bit.asm: removed * regressions/instructions_12bit/instructions_12bit.asm: added * regressions/instructions_12bit/instructions_12bit.stc: added Now the 12bit core has a regression test. 2004-06-05 Scott Dattalo * src/eeprom.cc: The eeprom memory access object was not getting initialized. * src/stimuli.cc: applied patch from Manuel Boyer. The IO_open_collector was duplicating the base class' job of setting the pin name. 2004-06-02 Scott Dattalo * cli/cmd_break.cc, src/processor.cc: 18fxxx addressing was broken. (the divide by 2 issue for the 18f addressess was not being handled correctly.) 2004-06-01 Scott Dattalo * src/value.h: Made the string &name() member function in the gpsimValue class virtual. 2004-05-31 Scott Dattalo * almost all files: Since the Register class and the Instruction class are now derived from gpsimValue, all objects that use registers and instructions have to change. These changes have been propogated through gpsim. Next, the gui will start taking advantage of the abstractness that this change introduces. * src/16bit-instructions.cc, src/14bit-instructions.h: Manuel Boyer reported two bugs with the 16bit subwf instruction. He fixed one (N-bit was ignored) with a patch and I fixed the other (OV bit was ignored). 2004-05-27 Scott Dattalo * src/value.h, src/value.cc: New files that support abstract values. * src/register.h, src/pic-instructions.h: Now all base objects that have values are derived from the new gpsimValue object. 2004-05-27 Scott Dattalo * src/breakpoints.h, src/breakpoints.cc: Execution breakpoints now support a customizable message that will be displayed when the break is encountered. 2004-05-21 Scott Dattalo * src/processor.cc, src/register.h, register.cc, gui/gui_register.h, gui/gui_regwin.c: Gui Register Window now can show unitialized register data. 2004-05-21 Scott Dattalo * src/register.h: Added new accessor member functions to the Register class to manipulate the new way register values are represented. 2004-05-20 Scott Dattalo * Tons of files... Changed the Register class' 'unsigned int value' field to an object. The get() and put() accessor functions now provide read and write access. 2004-05-20 Scott Dattalo * gui/gui_src_asm.cc: Syntax highlighting now is only applied to lines that are associated with generated code. 2004-05-16 Scott Dattalo * src/processor.h, src/processor.cc: Added mapping between program memory and source file line numbers 2004-05-16 Scott Dattalo * gui/gui_src.h, src/gui_src_asm.cc: Fixed memory leak with 'canbreak' XPM. Added 'SourcePage' class to hold information about a source browser notebook page. Corresponding info in 'SourceBrowserAsm_Window'. Added a new member to the sa_entry structure to keep track of pixmaps. 2004-05-15 Scott Dattalo * src/pic-processor: If the simulation is started from an address that has an execution break, now gpsim will ignore that break. * xpm/canbreak.xpm: New xpm that's used to indicate source lines that will accept breakpoints. * gui/gui_src.h, gui/gui_src_asm.h: Added 'canbreak' XPM to the source browser lines that can accept break points. NOTE: this code currently leaks memory! 2004-05-12 Manuel Bouyer * src/16bit-instructions.cc, src/p18x.cc, src/p18x.h, src/pic-instructions.cc, src/pic-processor.cc, src/pic-processor.h: Fix usart problems in 18x devices. * src/pir.cc, src/pir.h, src/uart.cc, src/uart.h: Fix usart bugs. (Changes were submitted as a patch and applied by Scott). 2004-05-15 Scott Dattalo * src/xref.h, xref.cc: added get_value() member function to XrefObject class * gui/gui.h, gui/gui_break.cc, gui/gui_main.cc, gui/gui_processor.cc, gui/gui_regwin.cc, gui/gui_regwin.h, gui/gui_statusbar.cc: Converted the structure labeled_entry into a class and renamed it to LabeledEntry. * gui/gui_statusbar.h: Added. 2004-05-12 Scott Dattalo * cli/scan.ll: Identifiers can now contain dashes. 2004-05-12 Scott Dattalo * src/stimuli.cc: bi-directional I/O pins were not working properly with modules. * src/processor.cc: removed debug printf stuff * src/ioports.cc: IOPORT class was using a hardcoded number of pins 2004-04-27 Borut Razem * cli/input.cc, gui/gui_main.cc: fixes to make working of CLI & GUI in parallel 2004-04-22 Borut Razem * modules/binary_indicator.cc modules/binary_indicator.h modules/encoder.cc modules/encoder.h modules/gpsim_modules.cc modules/led.cc modules/led.h modules/logic.cc modules/logic.h modules/paraface.cc modules/paraface.h modules/push_button.cc modules/push_button.h modules/resistor.cc modules/resistor.h modules/switch.cc modules/switch.h modules/usart.cc modules/usart.h modules/video.cc modules/video.h: defined IN_MODULE symbol for modules, call get_interface(), get_cycles(), get_active_cpu(), get_symbol_table(), get_trace(void) accessor methods instead direct object access 2004-04-21 Borut Razem * src/gpsim_interface.h, src/gpsim_time.h, src/processor.cc, src/symbol.cc, src/trace.cc: create instances of inline methods by taking theirs address, so that they can be accessed from dynamic loadable modules 2004-04-19 Scott Dattalo * modules/binary_indicator.cc, modules/encoder.cc, modules/gpsim_modules.cc, modules/led.cc, modules/logic.cc, modules/paraface.cc, modules/push_button.cc, modules/resistor.cc, modules/switch.cc, modules/usart.cc, modules/video.cc: Fixed ambiguous (to read, but still syntactically correct) references to "new_name". * src/breakpoints.h, src/breakpoints.cc: added a post assertion option to the register assertions. 2004-04-18 Borut Razem * src/14bit-registers.h, src/gpsim_interface.h, src/gpsim_time.h, src/processor.h, src/symbol.h, src/trace.h: introduced get_interface(), get_cycles(), get_active_cpu(), get_symbol_table(), get_trace(void) accessor methods * config_win32.h.in: defined GPSIM_MAJOR_VERSION, GPSIM_MINOR_VERSION and GPSIM_MICRO_VERSION symbols 2004-04-15 Scott Dattalo * src/14bit-tmrs.cc, src/ioports.cc, src/ioports.h: PORTC's T1OSC input can clock TMR1 on some PIC's. I've added some preliminary support for this. 2004-04-14 Scott Dattalo * gui/gui_break.cc, gui/gui_menu.cc, gui/gui_profile.cc, gui/gui_src_asm.cc, gui/gui_src_opcode.cc, gui/gui_stack.cc, src/16bit-registers.cc, src/breakpoints.cc, src/cod.cc, src/eeprom.cc, src/ioports.cc, src/ioports.h, src/pic-processor.cc, src/processor.cc, src/processor.h, src/trace.cc: Made the processor's ProgramMemoryAccess class dynamically allocated. * src/Makefile.am: ssp.h was not part of the install. 2004-04-14 Scott Dattalo * src/14bit-tmrs.cc: The TMR2 peripheral failed to properly clear its breakpoint whenever it was being turned off. *src/modules.h: string.h was not getting included. 2004-04-13 Scott Dattalo * src/breakpoints.cc, src/breakpoints.h: Redesigned breakpoints so that a) they're more object oriented and b) more easily extensible. * src/interface.cc, src/gpsim_interface.h: Removed the CyclicBreakPoint class and moved the functionality it was providing into the gpsimInterface class * src/14bit-registers.h, src/14bit-tmrs.h, modules/usart.cc, cli/cmd_set.cc, src/eeprom.h, src/gpsim_time.cc, src/gpsim_time.h, src/p16x7x.h, src/pic-processor.cc, src/processor.cc, src/processor.h, src/ssp.h, src/stimuli.cc, src/stimuli.h, src/tmr0.h, src/trace.h, src/uart.h, gui/gui_profile.cc, modules/encoder.h, modules/paraface.h,: Removed the BreakCallBack class. The functionality it was providing is now implemented by the BreakpointObject class. 2004-04-11 Borut Razem * src/interface.cc: added initialization of interface_seq_number in gpsimInterface constructor. 2004-04-07 Scott Dattalo * src/breakpoints.h, src/breakpoints: Adding assertion type breakpoints and redesigning the whole Breakpoint class. 2004-04-07 Bert Driehuis * extras/lcd/lcd.cc: reference was made to a no-longer existing API * extras/lcd/module_manager.cc: contained comments which were out of date, that hampered readability. * src/modules.cc: will not load two shared extension modules, if the first does not have an "initialize" routine. As a side effect of debugging this one, the error reporting of the dynaloader has been expanded. The trick turned out to be to clear pre-existing error conditions with a dummy call to dlerror(). An alternative implementation would call dlerror in an else clause when loading "initialize" fails, but doing it like this patch does it has the advantage of also dealing with like errors in libraries gpsim might use. For a similar situation, look up "not a typewriter" and "perror" in Google. - did not immediately fail when incomplete linking conditions exist. By changing to RTLD_NOW, a bad dynamic module will be detected at load time rather than at run time. *** this will break broken modules out there that until now appeared to have worked *** 2004-04-04 Arthur Peters * src/Makefile.am, src/ssp.cc, src/ssp.h: Added SSP support to gpsim. * src/14bit-processors.h, src/ioports.cc, src/ioports.h, src/p16f87x.cc, src/p16x6x.cc, src/p16x6x.h, src/p16x7x.cc, src/p16x8x.cc, src/pir.cc, src/14bit-processors.h, src/pir.h: Added SSP support to gpsim. 2004-04-04 Borut Razem * modules/encoder.cc, modules/gpsim_modules.cc, modules/paraface.cc, modules/push_button.cc, modules/switch.cc, modules/video.cc: modules port on WIN32 2004-04-03 Borut Razem * src/stimuli.cc: fixed warning C4715: 'IOPIN::get_iop' : not all control paths return a value: IOPIN::get_iop() returns 0 in case that iopp and iop are NULL 2004-04-01 Scott Dattalo * modules/resistor.cc, modules/resitor.h: Several member functions in the resistor classes were declared, but not defined anywhere. * src/pic-instructions.h, src/breakpoints.h, src/breakpoints.cc: adding assertions to the simulator. * src/processor.cc, src/processor.h, gui/gui_src_asm.cc: Source browser windows can now get a unique name. 2004-03-30 Scott Dattalo * numeous files throughout gpsim: The Module class now uses a string type instead of a 'char *' for the module name. Also, the gui x and y coordinate were removed from the module class (I still want to remove the 'widget' member too). * modules/usart.cc: calls to the old gpsim api were still lingering around here. * gui/gui_src_asm.cc, gui/gui_src.h, src/processor.h: more browser splitting stuff. 2004-03-29 Borut Razem * src/modules.cc: support of external modules on WIN32 2004-03-25 Scott Dattalo * gui/gui_src_asm.cc: Now we can load hex files again. 2004-03-25 Bert Driehuis * extras/lcd/lcdengine.cc, extras/lcd/lcdengine.cc, extras/lcd/lcd.h, extras/lcd/lcdgui.cc, extras/lcd/examples/lcd.asm: Added support for CGRAM in the LCD module. 2004-03-25 Scott Dattalo * src/processor.h, src/processor.cc: Added pma_context list * gui/Makefile.am: Recently added .h files are now in the Makefile * gui/gui_src.h, gui/gui_src_asm.cc: Multiple source browsers are now created based on the number of pma_contexts * gui/gui_object.h, gui/gui_src_asm.cc, gui/gui_breadboard.cc, gui/gui_main.cc, gui/gui_profile.cc, gui/gui_regwin.cc, gui/gui_scope.cc, gui/gui_src.cc, gui/gui_src_opcode.cc, gui/gui_stack.cc, gui/gui_stopwatch.cc, gui/gui_symbols.cc, gui/gui_trace.cc, gui/gui_watch.cc: The GUI_Object 'name' member has been changed from a char * to a private string and is now no longer directly accessed by the derived classes. New methods set_name() and and name() control the access. 2004-03-24 Scott Dattalo * gui/gui_src_asm.cc, gui/gui_src.h: Added BreakPointList class to handle the 3 lists of breakpoints. Removed duplicate code too. 2004-03-23 Borut Razem * src/modules.cc: gpsim on WIN32 doesn't support modules yet * gui/gui_breadboard.cc: GTK+ 2.x port 2004-03-22 Scott Dattalo * gui/gui_src.cc: Changed the event key processing from a case statement to a C++ map object. 2004-03-22 Scott Dattalo * gui/gui.h, gui/gui_breadboard.h, gui/gui_object.h, gui/gui_processor.h, * gui/gui_profile.h, gui/gui_register.h, gui/gui_regwin.h, gui/gui_scope.h, * gui/gui_src.h, gui/gui_stack.h, gui/gui_stopwatch.h, gui/gui_symbols.h, * gui/gui_trace.h, gui/gui_watch.h: Finished the gui split started on 03-16. Added support for multiple source browsers (to be used with context debugging). 2004-03-22 Chris Emerson * modules/encoder.cc, modules/encoder.h: new files: added an encoder module * modules/Makefile.am: Added the encoder to the list of files. * gpsim/main.cc: gracefully revert to cli if gtk_init fails. * src/ioports.cc: remove PORTA debug message. 2004-03-17 Scott Dattalo * gui/gui.h, gui/gui_breadboard.h, gui/gui_object.h, gui/gui_processor.h, * gui/gui_profile.h, gui/gui_register.h, gui/gui_regwin.h, gui/gui_scope.h, * gui/gui_src.h, gui/gui_stack.h, gui/gui_stopwatch.h, gui/gui_symbols.h, * gui/gui_trace.h, gui/gui_watch.h Split gui.h into a bunch of separate include files. 2004-03-16 Scott Dattalo * gui/gui_regwin.cc, gui/gui.h: abstracted the width of registers 2004-03-15 Scott Dattalo * src/modules.h, src/modules.cc: Removed the "ExternalModule" class * modules/binary_indicator.cc, modules/gpsim_modules.cc, modules/led.cc, modules/logic.cc, modules/paraface.cc, modules/push_button.cc, modules/resistor.cc, modules/switch.cc, modules/usart.cc, modules/video.cc, extras/lcd/lcd.h, extras/lcd/lcd.cc Now the modules are no longer "external". 2004-03-14 Bert Driehuis * extras/lcd/lcdengine.cc, extras/lcd/lcd.h, extras/lcd/examples/lcd.asm: Fixed the LCD modules "E" logic. 2004-03-13 Robert Pearce * src/16f87x.cc, src/16f87x.h, src/pic-processor.cc, src/pic-processor.h: Added 16f871. 2004-03-09 Scott Dattalo * src/16bit-instructions.cc, src/trace.cc: Addresses displayed for the 18F devices are now displayed properly. 2004-03-09 Scott Dattalo * src/14bit-processor.cc: PCL (low byte of program counter) was one count too large. 2004-03-09 Scott Dattalo * src/processor.cc, src/processor.h, src/pic-processor.cc, src/pic-processor.h: Moved the implementations of the disasm() and list() methods from the pic_processor class to the processor class. 2004-03-09 Scott Dattalo * src/pic-instructions.h, src/12bit-instructions.h, src/stimuli.h, src/14bit-instructions.h, src/14bit-instructions.h, src/16bit-instructions.h, src/16bit-instructions.cc: changed references of pic-processor to Processor. 2004-03-08 Scott Dattalo * modules/push_button.cc, modules/push_button.h: new module from Carlos Ghirardelli. 2004-03-04 Scott Dattalo * src/register.h, src/pic-register.h, src/pic-processor.h, src/pic-processor.cc, src/14bit-registers.cc Removed the "file_register" class. Moved the sfr_register class to register.h. 2004-03-04 Scott Dattalo * src/processor.h, src/processor.cc, src/cod.cc: Added the new meber 'Find()' to the 'Files' class. 2004-03-03 Bert Driehuis * /extras/rs232-gen/rs232.c: Now compiles under BSD 2004-03-03 Scott Dattalo * gui/gui_profile.cc, gui/gui_src_asm.cc, src/cod.cc, src/icd.cc, src/pic-processor.cc, src/processor.cc, src/processor.h Removed references to "processor_id". Changed name of _Files to Files in the Processor class. 2004-03-01 Bert Driehuis * regression/run_regression.sh, regression/simulate: Fixes to allow regression tests to run on BSD 4.9. 2004-03-01 Bert Driehuis * extras/lcd/lcd.cc: Bring the LCD module up-to-date with recent gpsim changes 2004-03-01 Bert Driehuis * acinclude.m4, cli/input.cc: Fix readline support for BSD 4.9 2004-03-02 Scott Dattalo * src/pic-processor.cc: fixed a memory allocation bug in the FileContext class; an array was one element too small. * examples/modules/led_test, examples/modules/led_test/led_mod.asm, examples/modules/led_test/led_mod.asm: Added the LED test code to CVS. * modules/gpsim_modules.cc, modules/led.cc: LED module now works. 2004-03-01 Bert Driehuis * src/icd.cc: include time.h for BSD 2004-03-01 Scott Dattalo * modules/* - Updated the (internal) modules to comply with the new gpsim interface standard * dozens of files: -- removed all references to 'pic_id' -- changed pic_processor references to Processor references 2004-02-29 Borut Razem * src/eeprom.cc: initialization of variable eestate in EECON2::EECON2(void) by calling ee_reset() 2004-02-28 Borut Razem * config_win32.h.in : strtoll defined as _strtoi64, removed definition of atoll, version number updated to 0.21.2 * gui/gui.h, gui/gui_stopwatch.cc: prevent calling Update() from Update(). The problem manifested on GTK+ 2.x on Linux and WIN32. * gui/gui_breadboard.cc, gui/gui_regwin.cc, gui/gui_src_asm.cc, gui/gui_src_opcode.cc: GTK+ 2.x port - use pango font handling * examples/14bit/pulse_measure.asm: variable upper renamed to _upper; upper is an assembler instruction operand in gpasm and mpasm 2004-02-28 Scott Dattalo * gui/gui_main.cc, gui/gui_menu.cc, gui/gui_processor.cc: Inhibit the half-baked gui_scope. 2004-02-27 Scott Dattalo * src/pic-processor.cc, src/interface.cc, src/interface.h, src/init.cc, src/icd.cc, src/cod.cc, src/breakpoints.cc, gui/gui_main.cc, gpsim/main.cc, cli/input.h, cli/input.cc, cli/cmd_x.cc, cli/cmd_run.cc, cli/cmd_dump.h, cli/cmd_dump.cc: The gpsim library, which is the code comprised of everything in the src/ subdirectory, now has no dependencies on the gui or cli code base. This makes it possible to link against just libgpsim. 2004-02-25 Scott Dattalo * gui/gui_stopwatch.cc, extras/rs232-gen/rs232-gen.c: changed all references of atoll to strtoll. bug 820326 2004-02-25 Hans-Juergen Dorn * src/16bit-registers.cc: gpsim was pushing onto the stack before decrementing the stack pointer. Also, the gpsim internally formatted address was being pushed. 2004-02-17 Scott Dattalo * gui/gui_scope.cc: expose and resizing kind of work. 2004-02-17 Scott Dattalo * gui/gui_scope.cc: taking off the rough edges. 2004-02-16 Scott Dattalo * gui/gui_scope.cc: - new file that will support a simple waveform viewer. * gui/Makefile.am: add the gui_scope.cc to the list * gui/gui_regwin.cc: Check for null pointers * gui/gui_symbols.cc: Check for null pointers * src/pic-processor.cc, src/p16x5x.h, src/p12x.h, src/p12x.cc, src/14bit-registers.h, src/14bit-registers.cc, src/14bit-processors.cc, src/12bit-processors.h, src/12bit-processors.cc Added FSR_12 - a new class for the 12-bit core. I also redesigned the way FSR and INDF interact. * src/p18x.cc - the 18f252 package pins weren't defined. 2004-02-13 Scott Dattalo * src/processor.cc, src/processor.h, src/pic-processor.cc, src/cod.cc: Support for new file context * gui/gui_src_asm.cc, gui/gui_profile.cc: Use the new file context code. 2004-02-12 Scott Dattalo * src/interface.cc, src/interface.h: Finally, the C-style interface is gone (or nearly gone). * src/processor.cc, src/processor.h, src/cod.cc Redesigning the "file_context" object. * gui/gui_watch.cc, gui/gui_profile.cc: Removed final traces of the old C-style interface. 2004-02-11 Scott Dattalo * gui/gui_symbols.cc: - changed strndup to a strcpy (plus malloc...): 2004-02-11 Scott Dattalo * gui/* changed calls to gpsim_* to the C++ interface. * src/interface.cc - removed many of the gpsim_* functions * src/stimuli.cc, cli/cmd_set.cc - changed calls to gpsim_* to the C++ interface. 2004-02-10 Scott Dattalo * src/processor.cc, src/processor.h, src/pic-processor.cc, src/pic-processor.h: Added step, run, and finish members to the ProgramMemoryAccess class * src/interface.cc, gui/gui* removed more gpsim_* functions from interface.cc 2004-02-10 Scott Dattalo * gui/gui_symbol.cc, src/symbol.h, src/symbol.cc Cleaned up symbol api. 2004-02-09 Scott Dattalo * all files! 'NULL' has been replaced with '0' throughout all of gpsim. The reason is two-fold: 1) MAC users were having trouble compiling 2) Stroustrup says NULL shouldn't be used in C++ :). 2004-02-08 Scott Dattalo * src/processor.cc, src/processor.h, gui/gui_src.cc, gui/gui_src_asm.cc, gui/gui_break.cc: Fixed 'ProgramMemoryAccess' class for the 18f devices * src/16bit-processors, src/p18x.cc: Removed some debug stuff * extras/lcd/*: Changed the LCD module from version 0.2.0 to 0.2.1 2004-02-06 Scott Dattalo * tons of files changed... Removed 'break_point' member from the Register class Changed the mechanism for checking how a break point is set on a register. * gui/gui.h, gui/gui_watch.cc, gui/gui_regwin.cc: modified GUIRegister class to adopt to changes made in the break point stuff. Also add rma member for getting access to processor registers. 2004-02-05 Scott Dattalo * src/pic-processor.h Fixed a nasty, nasty bug. The "GP_Processor" pointer in the pic_processor class was conditionally compiled. However the condition (HAVE_GUI) occurs in the include file config.h. Now the bug is that config.h was not included in all cases. Some classes were derived from pic_processor with this definition while others weren't. Syntactically, everything was okay. But the compile had the conflicting information for the size of pic_processor class. * src/* - whole bunch of other files touched while looking for this bug. 2004-02-04 Scott Dattalo * src/processor.cc Experimenting with operator [] for the ProgramMemoryAccess class. 2004-02-02 Scott Dattalo * src/intcon.*, src/processor.*, src/16bit-processor.* Fixed the weird bug that was discussed in the 2004-01-30 entry. The problem was basically invalid type casting. In the processor class heirarchy, there are about 5 or 6 levels of inheritance. Most of the time gpsim accesses a processor's details through one of the base classes. Sometimes though, an object needs access to somthing specific to a processor. In these cases, gpsim would type cast a pointer to the specific processor. The bug is that you can't safely type cast a base class object into a derived class object in C++. 2004-01-30 Scott Dattalo * almost all source files - still trying to sort out include dependencies. There's a weird bug where gcc is adding an extra 4-byte offset to pointers in some instances. I have no clue why... 2004-01-29 Scott Dattalo * almost all source files - trying to sort out include dependencies 2004-01-28 Scott Dattalo * src/pir.h moved all of the PIR*::put()'s to the PIR base class * src/intcon.h, src/intcon.cc moved inline functions that called bp and trace objects from the header file to the .cc file. * src/pir.cc new file - added so that inline functions that called bp and trace objects could be removed from the header file. * src/Makefile.am added pir.cc to the list of src files. 2004-01-26 Scott Dattalo * src/* gui/* Replaced references to 'file_register' with 'Register'. Removed many gpsim_*() calls. Renamed the program_memory_access class to ProgramMemoryAccess. Moved processor member functions associated with code breakpoints into the ProgramMemoryAccess class. 2004-01-26 Scott Dattalo * src/register.h, src/register.cc, src/pic-register.h, src/pic-processor.h, src/14bit-registers.cc cleaned up some include file dependencies. moved the program counter class. 2004-01-23 Scott Dattalo * src/trace.cc, src/trace.h: added boolean event logger * src/intcon.cc, src/16bit-*: Debugging an interrupt problem with the 16-bit core 2004-01-22 Scott Dattalo * gui/gui*.cc: converted the cross_reference_to_gui structure into the CrossReferenceToGUI class. * src/pir.h: fixed default names of the PIR registers * regression/p16f873/p16f873.asm: added 2004-01-20 Scott Dattalo * gui/gui_regwin.cc, gui/gui_src_asm.cc, gui_watch.cc: Changed gpsim_* api calls to their direct counterparts * src/interface.cc, src/interface.h: Removed obsolete API's * src/breakpoints.cc (clear_all_register): added * cli/input.cc: fixed memory leak. * doc/gpsim.lyx: updated documentation with recent CLI changes 2004-01-18 Borut Razem * configure.in: added --enable-gtk2 configure command line option for linking with GTK+ 2.x 2004-01-17 Borut Razem Update to GTK+ 2.x: * config_win32.h.in: version 0.21.1, updated #defines * cli/cmd_load.cc, cli/input.cc, cli/input.h: char * replaced with const char *, removed unneeded #include * gui/gui.h, gui/gui_breadboard.cc, gui/gui_break.cc, gui/gui_dialog.cc, gui/gui_menu.cc,gui/gui_object.cc, gui/gui_profile.cc, gui/gui_regwin.cc, gui\gui_src.cc, gui/gui_src_asm.cc, gui/gui_src_opcode.cc, gui/gui_stack.cc, gui/gui_statusbar.cc, gui/gui_stopwatch.cc, gui/gui_symbols.cc, gui/gui_trace.cc, gui/gui_watch.cc: char * replaced with const char *, GdkFont replaced with PangoFontDescription, GtkStyle replaced with GtkStyle *, #define GTK_ENABLE_BROKEN, #include replaced with #include , update for GTK+ 2.x * src/cod.cc, src/interface.cc, src/interface.h, src/modules.cc, src/modules.h, src/p16x5x.cc, src/pic-processor.cc, src/pic-processor.h, src/processor.h, src/stimuli.cc, src/stimuli.h, src/symbol.cc, src/symbol.h, src/trace.cc, src/trace.h: char * replaced with const char *, __PRETTY_FUNCTION__ replaced with __FUNCTION__ * modules/binary_indicator.cc, modules/binary_indicator.h, modules/led.cc, modules/led.h, modules/logic.cc, modules/logic.h, modules/paraface.cc, modules/paraface.h, modules/resistor.cc, modules/resistor.h, modules/switch.cc, modules/switch.h, modules/usart.cc, modules/usart.h, modules/video.cc, modules/video.h: char * replaced with const char *, 2004-01-06 Scott Dattalo * gui/gui_regwin.cc -- valgrind memcheck bug fixes * src/cod.cc * src/registers.cc 2004-01-06 Scott Dattalo * src/p16x5x.cc - patch from Rob Pearce that fixes the 16C5X tris writes. 2004-01-05 Scott Dattalo * src/14bit-tmrs.cc - tmr2 bug. PWM period was getting ANDed with 0xff. 2004-01-03 Scott Dattalo * Applied patch from Borut Razem - adds new files to Visual Studio project files. 2004-01-03 Scott Dattalo * Applied patch from Bradley McLean mailto:bradlist@bradm.net that adds support for the 18f1320. * Applied patch from Mike Durian that fixes an 18f SUB instruction. 2003-12-31 Scott Dattalo * Applied patch from Mike Durian. He's added several files to more reasonably group together portions of the simulator. In addition, he's added eeprom support to the 18f devices * src/eeprom.cc - new file to consolidate eeprom related stuff * src/intcon.cc - new file to consolidate variations in intcon registers * src/pie.cc - new file for pie register * src/intcon.h * src/pir.h * src/pic-instructions - fixed bug in 18f banking * src/16x5x.h - 16c54 register memory size was wrong * gui/gui_stopwatch.cc - added a check to make sure there's a processor * gui/gui_src*.cc - removed reference to cpu->pc->get_value() 2003-12-28 Scott Dattalo * another patch from Borut Razem: * cli/input.cc: - added function get_dir_delim(), which searches for both / and \ delimiters on WIN32 systems. - fixed bug in gpsim_read(): logic for deallocating input_buf was moved out of 'if (chars_left > 0)' block. - some code cleaning, some compiler warnings fixed * cli/input.h: - added declarations of exit_gpsim() and get_dir_delim() * gpsim/main.cc: - removed declaration of exit_gpsim(), now included in cli/input.h * src/14bit-registers.cc: - deallocation of name_str1 is already done in ~Register(). * cod.cc: - included cli/input.h for declaration of get_dir_delim() - substr() replaced with get_string(), which gets the string from .cod file. strings in .cod file are represented as: - first byte defines the string length - the string starts at the second byte. - read_src_files_from_cod(): conversion to DOS file name - open_cod_file() opens .cod file in binary mode * src/pic-instructions.cc: - initialize xref to NULL if HAVE_GUI not defined * src/processor.cc, * src/processor.h: - static pointer to the processor_list 2003-12-27 Scott Dattalo * patch from Borut Razem for Visual Studio projects 2003-11-29 Scott Dattalo * src/pic-processor.cc - rewrote the way gpsim groups together all of the processors it supports. Now the ProcessorConstructor class will allow processors to be instantiated anywhere in the code (before, they were declared in one giant array.) 2003-11-29 Scott Dattalo * src/16bit-registers.cc - Access to PLUSWx are now signed. 2003-11-28 Scott Dattalo * gui/* - More C to C++ conversions * gui/gui_menu.cc - Patch from Alex Holden to enable compilation on a MAC * src/icd.cc * INSTALL - added instructions for MAC OS 2003-11-24 Scott Dattalo * gui/* First round of struct to class conversion is now completed 2003-11-20 Scott Dattalo * src/ioports.cc - PORT B pullups were not working * regression/* - Added some more regression tests 2003-11-16 Scott Dattalo * gui/* More conversions to C++ 2003-11-15 Scott Dattalo * gui/* started converting gui struct's into C++ classes. Started with Register Window. 2003-10-26 Scott Dattalo * src/gpsim-time.cc linked-list bug fixes. 2003-10-26 Scott Dattalo * eXdbm/* applied patch from Borut Razem mailto:borut.razem@siol.net to fix an uninitialized pointer bug. 2003-10-26 Scott Dattalo * modules/* removed all references to gui if not building with the gui 2003-09-24 Scott Dattalo (patches from Steve Tell) * modules/paraface.h - Solaris patch for bogus device * src/cod.cc - Endian bug * gui/gui_processor.cc - use memset instead of bzero. 2003-09-14 Scott Dattalo * src/gpsim_time.h - changed cycle counter break point from a Singly linked list to a doubly linked list. This is in preparation for separating module time from pic processor time so that when the PIC goes to sleep, time doesn't stop. 2003-09-07 Scott Dattalo * src/p16f62x.h - duplicate declaration of intcon register 2003-09-07 Scott Dattalo * src/breakpoints.cc - this time the 'Too many cycle counter breakpoints' was fixed. BTW the problem was that 'clear_break' was not putting the cleared breakpoint back into the 'inactive' list 2003-09-07 Scott Dattalo * src/pic_processor.cc -- Fixed the "Too many cycle counter breakpoints" bug * src/interface.cc It turns out that the "realtime" stuff was * src/breakpoints.cc 1) duplicating a class declaration. 2) not clearing * src/breakpoints.h cycle counter break points. * gpsim.sln - added for win32 port. 2003-08-30 Scott Dattalo * src/p12x.cc -- The 12c5xx will reset if an I/O is toggled and the processor is sleeping. 2003-08-27 Scott Dattalo * config_win32.h.in - added 2003-08-25 Scott Dattalo * src/ioports.cc - more 16f628 Port A fixes 2003-08-19 Scott Dattalo * eXdbm/parse.c - "char" is used to store result of fgetc, but EOF doesn't fit in the default unsigned chars. * src/cod.cc - an endian issue which made symbol values come out wrong. - note these fixes came from a patch attached to an anonymous bug report 2003-08-18 Scott Dattalo * src/ioports.cc - Port A on the F62x devices was named "ioport" * src/p16f62x.cc - intcon was not declared at 0x8b (bug 566165) * regression/p16f628.asm - Added a regression test for the f68 * regression/p16f628.stc 2003-08-17 Scott Dattalo * regression/* started the regression test directory. Only two tests are performed: instruction validation for the midrange family and a simple node test. 2003-08-17 Scott Dattalo * Huge patch from Borut Razem mailto:borut.razem@siol.net that enables gpsim to be compiled with MS Visual C under Windows. 2003-06-19 Scott Dattalo * src/gpsim_time.h Multiple breaks at one Cycle were getting clobbered. * src/gpsim_time.cc * src/16bit-registers.cc Added support for TMR3 * src/pic-processor.h add pll_scale for the 18f devices. 2003-05-25 Scott Dattalo * src/breakpoints.cc program memory break points were not working. * Started formatting the Changelog properly gpsim - Gnu Pic Simulator, a simulator for Microchip's PIC microcontrollers. T. Scott Dattalo gpsim-0.21.0 * Starting with 0.21.0, Changelog will be properly formatted * Added 18f454,18455 * Added breakpoint capability on nodes * Added spi Module * Added attributes to external usart module * Ralf rewrote the Breadboard * gui is now in C++ * Added 16f627,16f628 processors * log command has been added (Command Line) * Profiling has been added (gui) * Trace viewer has been added * Added parport - parallel port loadable module * Source level debugging of C files * Added 16c55,16c62,16c63,16c72,16c73 processors * Added 18c442,18c452 processor * Added module attibutes (attribute.cc) * breadboard updates when either a tris or port is changed in the register viewer * Enhanced module interface - now LCD module works with gpsim * Patch from Rudy Moore to fix TMR0 bug * Beautified the Single Step and Trace dump outputs * Added break on stack overflow and underflow * Added break mask to wv/rv type break points. Now you can specify which bits are significant. * Added "abort_gpsim_now" command. This will unconditionally abort gpsim. * Added "--cli" command line option. Invokes gpsim in command line mode even if it has been configured to use the gui. * Program viewer can now display ASCII encode text in "dt" tables * Symbolic setting of execution breaks was not working. * C++ bugs fixed * Fixed WDT during SLEEP bug reported by Tor Fredrik Aas mailto:tfa@abn.hibu.no * USART baud rates were generated incorrectly and have been fixed. * TXIF was handled improperly (reported by Wojciech Zabolotny ) * TMR1 was incrementing even when disabled (Reported by Wojciech) * Patch from JG for Suse 7.1. * Patch from Robert Pearce to add 16C55 * Sleep now works for 12c5xx. * Config word now works for 12c5xx * GPIO can wake a sleeping 12c5xx * Added pullup/pulldown resistors to the gpsim modules (idea from SET) * Numerous patches from from (SET) Salvador mailto:salvador@inti.gov.ar * SET - added "frequency" command * SET - Added time field to the gui status bar. * Carlos Nieves Ă“nega - Massive patch for the 17cxx core * Carlos Nieves Ă“nega - Registers for 17cxx core * From Salvador Eduardo Tropea mailto:salvador@inti.gov.ar * Modified: In gpsim/main.cc put a cast in poptGetContext call, but perhaps is a fault in the version I use of popt, double check it. * Added: gtk_window_set_wmclass calls to help Enlightenment to remmember the positions of the windows. * Added: In gui/gui_main.c a couple of #undef to avoid redefinitions in eXdbm.h. Also check if that's OK for the eXdbm you are using. * Modified: Moved the INTCON register from _14bit_18pins class to child classes. That's because I needed to inherit from it and P16X6X_processor and both defines INTCON. I also think things are more clear in this way. * Fixed: A bug in the A/D routines. If you started a conversion at the same time you were enabling the A/D this conversion was aborted. To fix it I transfered new_value to value before calling start_conversion(). * Added: Partial support for 16C712 and 16C716 CPUs, they inherit from 14bits 18pins processors because they have 18 pins and also from 16x6x because they have TMR1, TMR2 and Capture/Compare facilities like in 16C63. I could check it deeply, just the A/D part. I also didn't implement the DATACCP and TRISCCP registers, I don't know how they work, but I think they control the use of some I/O pins (normal or CCP function). 28JUL00 gpsim-0.20.0 o Modules - gpsim now supports dynamically loaded modules -- module command o gui - upgraded to latest versions of gtk & gtkextra o gui - Menu items now work o gui - button bar o gui - now refreshes while simulating o gui - Stack Window has been added o BSD is now supported o numerous bug fixes 05APR00 gpsim-0.19.0 o Daniel Schudel joins gpsim development. -- Added support for the 16x5x family o Added 16f87x family o gui - Added Program Memory sheet -- Added support for program memory writes o gui - Added Breadboard window (graphical pinout) o Asynchronous mode of the usart fixed. o A/D converter enhanced o Analog Stimuli revisited. o Scripting was fixed. o cli - Once again, gpsim can be built without the gui. 03FEB00 gpsim-0.18.0 o cli - added 'processor pins' command to display the state of a pic's I/O pins o cli - added 'set' command for modifying gpsim behavior flags. set options supported: -- verbose - if set, diagnostic info will be displayed -- radix - not supported yet -- gui_update - controls the rate at which the gui is refreshed o cli - added 's' option to the dump command to display only the special function registers (and not the rest of ram). o 18cxxx: -- TBLRD & TBLWT instructions are now supported -- MULLW & MULWF instructions are now supported -- configuration word support -- tmr0 interrupt o Cycle counter - 64 bits is now fully supported o config word bug fixed o gui - added Watch window o gui - added more color coding to register window o gui - removed stagnant menu selections o gui - window state is saved between gpsim sessions -- This requires a new package `eXdbm'. o getopt is now used to process invocation options (now you can have spaces between the options and file names). o support >64k object code in .cod files o gtksheet has been removed from the distribution -- This means that you'll have to install gtk+-extra, the package that supports gtk-sheet (see INSTALL) o .cod file format bug fixes (you'll need the latest gpasm) o __config word for 18cxxx family is now supported 16NOV99 gpsim-0.17.0 o gui - Major overhaul of Register Window o gui - Symbol window added o 18Cxxx -- Interrupts are now supported -- TMR0 is implemented -- USART asynchronous mode is supported o automake is now used to create the makefiles o version numbering has changed so that 'minor releases' (which by definition are the only ones I've made) are now expressed in the middle revision instead of the last revision number. o numerous bug fixes o Cycle counter is now 64 bits. gpsim-0.0.16 o 18Cxxx core has been added o Ralf Forsberg has joined me in development. His major contributions have been in the gui code. Some of what he's done: - Wrote a new source browser with these features: -- Syntax highlighting (e.g. opcodes and comments are colored differently) -- Iconic indicators (e.g. bitmaps indicating breaks, current pc...) -- Multiple sources - Significant restructuring of the gpsim to gui interface 28JUL99 gpsim-0.0.15 o gui - asm source browser o gui - program memory browser o gui - register viewer enhancements o gui - control menu o numerous bug fixes 30JUN99 gpsim-0.0.14 o gui o numerous bug fixes 25APR99 gpsim-0.0.13 o Split the command line interface from simulator - created a `src' directory for the simulator - created a `cli' directory for the command line interface o Re-wrote the cli to use bison and flex (whew - whatabitch) o Hi-Tech C-compiler .cod files can be loaded by gpsim now. o Fixed C++ errors that egcs abhored but gcc ignored. 08MAR99 gpsim-0.0.12 o Added support for .cod files (mostly in cod.cc) o Added more symbolic debugging features o Added 'list' command for listing source files o Updated the 'load' command for loading .cod files o Repeat last command with carriage return o Added more documentation 10JAN99 gpsim-0.0.11 o Added support for the PIC16C74 o Fixed core dumps associated with the 12C50x (again, dammit) o Fundamentally changed the way registers are created. o Added a 'config' script 20DEC98 gpsim-0.0.10 o Added support for the PIC16C71 o Enhanced the asynchronous stimulus to support analog values o Added a triangle_wave stimulus (mainly for testing) o Changed the behavior of 'run' to ignore a breakpoint if there is one set at the current instruction (see below) o Added a few examples illustrating the use of analog stimuli 07DEC98 gpsim-0.0.9 o Added support for the 12c508 and 12c509 o Bug Fixes: - DC bit wasn't updated correctly in add's and sub's (if W was the destination) - stack was rolling over after 7 pushes - goto's and call's were limited to 10 bits o Added the command line option '-v' and the command version. Both echo gpsim's version. o Enhanced 'it.asm' and added 'it_12bit.asm' - two routines that exercise gpsim's ability to simulate the pic instructions. o Added a trace for skipped instructions (before you'd see skipped instructions the same as non skipped ones in the trace buffer). 16NOV98 gpsim-0.0.8 o Fixed pcl related bugs (see the new pcl_test.asm for examples) o Implemented the TMR2 peripheral o Implemented the CCP1 and CCP2 peripherals o Implemented the TMR1 peripheral o added more support for the PIC16C64 o began support for the PIC16C65 o fixed the configuration word loading that got broke in the last release 21OCT98 gpsim-0.0.7 o added new command 'processor' o added new command 'load' - Startup command files can now be loaded any time and can be nested. o added new command 'symbol' o added new command 'reset' o redesigned the pic processor base class o added new file p16x8x o added support for the PIC16CR83, PIC16CR84, PIC16F83, PIC16F84 o added new file p16x6x o added support for the PIC16C61 o began support for the PIC16C64 o Changed the command line invocation: -p now selects a processor and not a core (e.g. -p14 used to be the way gp sim liked to select a device within the midrange, 14-bit family; now you must specify the specific device you wish to simulate: -pp16c61 .) o Generally overhauled everything in anticipation of supporting the 12-bit core 30SEP98 gpsim-0.0.6 o now can asynchronously halt the execution. o Multiplexed I/O pins are now supported (better). It's possible to clock TMR0 from an external clock now o The c84 is now fully supported - though not thoroughly debugged o I fixed two nasty cycle breakpoint bugs, single-stepping during a pending interrupt, and a couple of other minor annoyances. o I've begun formal documentation, but it is not included with this release. 18SEP98 gpsim-0.0.5 o added new command 'node' o added new command 'attach' o redesigned the stimulus infrastructure. o added 'name' option to stimuli o iopins are now considered stimuli 04SEP98 gpsim-0.0.4 o added new command 'stimulus' o added new command 'echo' o redesigned the breakpoint mechanism for register breaks o added support for startup configuration files o began support for stimulus files o began support for symbols o interrupts are working 28AUG98 gpsim-0.0.3 o added support for interrupts o TMR0 and WDT are now working o added new command 'x' for examining/modifying registers o added a 'break wdt' - break on wdt timeout o now you can step over a breakpoint 17AUG98 gpsim-0.0.2 o added readline library and made the command line interface more robust o eeprom is now working 30JUL98 gpsim-0.0.1 o initial release - basic stuff gpsim-0.27.0/aclocal.m40000664000076400007640000011640212205237255011521 00000000000000# generated automatically by aclocal 1.13.4 -*- Autoconf -*- # Copyright (C) 1996-2013 Free Software Foundation, Inc. # This file 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. m4_ifndef([AC_CONFIG_MACRO_DIRS], [m4_defun([_AM_CONFIG_MACRO_DIRS], [])m4_defun([AC_CONFIG_MACRO_DIRS], [_AM_CONFIG_MACRO_DIRS($@)])]) m4_ifndef([AC_AUTOCONF_VERSION], [m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl m4_if(m4_defn([AC_AUTOCONF_VERSION]), [2.69],, [m4_warning([this file was generated for autoconf 2.69. You have another version of autoconf. It may work, but is not guaranteed to. If you have problems, you may need to regenerate the build system entirely. To do so, use the procedure documented by the package, typically 'autoreconf'.])]) # Copyright (C) 2002-2013 Free Software Foundation, Inc. # # This file 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. # AM_AUTOMAKE_VERSION(VERSION) # ---------------------------- # Automake X.Y traces this macro to ensure aclocal.m4 has been # generated from the m4 files accompanying Automake X.Y. # (This private macro should not be called outside this file.) AC_DEFUN([AM_AUTOMAKE_VERSION], [am__api_version='1.13' dnl Some users find AM_AUTOMAKE_VERSION and mistake it for a way to dnl require some minimum version. Point them to the right macro. m4_if([$1], [1.13.4], [], [AC_FATAL([Do not call $0, use AM_INIT_AUTOMAKE([$1]).])])dnl ]) # _AM_AUTOCONF_VERSION(VERSION) # ----------------------------- # aclocal traces this macro to find the Autoconf version. # This is a private macro too. Using m4_define simplifies # the logic in aclocal, which can simply ignore this definition. m4_define([_AM_AUTOCONF_VERSION], []) # AM_SET_CURRENT_AUTOMAKE_VERSION # ------------------------------- # Call AM_AUTOMAKE_VERSION and AM_AUTOMAKE_VERSION so they can be traced. # This function is AC_REQUIREd by AM_INIT_AUTOMAKE. AC_DEFUN([AM_SET_CURRENT_AUTOMAKE_VERSION], [AM_AUTOMAKE_VERSION([1.13.4])dnl m4_ifndef([AC_AUTOCONF_VERSION], [m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl _AM_AUTOCONF_VERSION(m4_defn([AC_AUTOCONF_VERSION]))]) # AM_AUX_DIR_EXPAND -*- Autoconf -*- # Copyright (C) 2001-2013 Free Software Foundation, Inc. # # This file 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. # For projects using AC_CONFIG_AUX_DIR([foo]), Autoconf sets # $ac_aux_dir to '$srcdir/foo'. In other projects, it is set to # '$srcdir', '$srcdir/..', or '$srcdir/../..'. # # Of course, Automake must honor this variable whenever it calls a # tool from the auxiliary directory. The problem is that $srcdir (and # therefore $ac_aux_dir as well) can be either absolute or relative, # depending on how configure is run. This is pretty annoying, since # it makes $ac_aux_dir quite unusable in subdirectories: in the top # source directory, any form will work fine, but in subdirectories a # relative path needs to be adjusted first. # # $ac_aux_dir/missing # fails when called from a subdirectory if $ac_aux_dir is relative # $top_srcdir/$ac_aux_dir/missing # fails if $ac_aux_dir is absolute, # fails when called from a subdirectory in a VPATH build with # a relative $ac_aux_dir # # The reason of the latter failure is that $top_srcdir and $ac_aux_dir # are both prefixed by $srcdir. In an in-source build this is usually # harmless because $srcdir is '.', but things will broke when you # start a VPATH build or use an absolute $srcdir. # # So we could use something similar to $top_srcdir/$ac_aux_dir/missing, # iff we strip the leading $srcdir from $ac_aux_dir. That would be: # am_aux_dir='\$(top_srcdir)/'`expr "$ac_aux_dir" : "$srcdir//*\(.*\)"` # and then we would define $MISSING as # MISSING="\${SHELL} $am_aux_dir/missing" # This will work as long as MISSING is not called from configure, because # unfortunately $(top_srcdir) has no meaning in configure. # However there are other variables, like CC, which are often used in # configure, and could therefore not use this "fixed" $ac_aux_dir. # # Another solution, used here, is to always expand $ac_aux_dir to an # absolute PATH. The drawback is that using absolute paths prevent a # configured tree to be moved without reconfiguration. AC_DEFUN([AM_AUX_DIR_EXPAND], [dnl Rely on autoconf to set up CDPATH properly. AC_PREREQ([2.50])dnl # expand $ac_aux_dir to an absolute path am_aux_dir=`cd $ac_aux_dir && pwd` ]) # AM_CONDITIONAL -*- Autoconf -*- # Copyright (C) 1997-2013 Free Software Foundation, Inc. # # This file 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. # AM_CONDITIONAL(NAME, SHELL-CONDITION) # ------------------------------------- # Define a conditional. AC_DEFUN([AM_CONDITIONAL], [AC_PREREQ([2.52])dnl m4_if([$1], [TRUE], [AC_FATAL([$0: invalid condition: $1])], [$1], [FALSE], [AC_FATAL([$0: invalid condition: $1])])dnl AC_SUBST([$1_TRUE])dnl AC_SUBST([$1_FALSE])dnl _AM_SUBST_NOTMAKE([$1_TRUE])dnl _AM_SUBST_NOTMAKE([$1_FALSE])dnl m4_define([_AM_COND_VALUE_$1], [$2])dnl if $2; then $1_TRUE= $1_FALSE='#' else $1_TRUE='#' $1_FALSE= fi AC_CONFIG_COMMANDS_PRE( [if test -z "${$1_TRUE}" && test -z "${$1_FALSE}"; then AC_MSG_ERROR([[conditional "$1" was never defined. Usually this means the macro was only invoked conditionally.]]) fi])]) # Copyright (C) 1999-2013 Free Software Foundation, Inc. # # This file 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. # There are a few dirty hacks below to avoid letting 'AC_PROG_CC' be # written in clear, in which case automake, when reading aclocal.m4, # will think it sees a *use*, and therefore will trigger all it's # C support machinery. Also note that it means that autoscan, seeing # CC etc. in the Makefile, will ask for an AC_PROG_CC use... # _AM_DEPENDENCIES(NAME) # ---------------------- # See how the compiler implements dependency checking. # NAME is "CC", "CXX", "OBJC", "OBJCXX", "UPC", or "GJC". # We try a few techniques and use that to set a single cache variable. # # We don't AC_REQUIRE the corresponding AC_PROG_CC since the latter was # modified to invoke _AM_DEPENDENCIES(CC); we would have a circular # dependency, and given that the user is not expected to run this macro, # just rely on AC_PROG_CC. AC_DEFUN([_AM_DEPENDENCIES], [AC_REQUIRE([AM_SET_DEPDIR])dnl AC_REQUIRE([AM_OUTPUT_DEPENDENCY_COMMANDS])dnl AC_REQUIRE([AM_MAKE_INCLUDE])dnl AC_REQUIRE([AM_DEP_TRACK])dnl m4_if([$1], [CC], [depcc="$CC" am_compiler_list=], [$1], [CXX], [depcc="$CXX" am_compiler_list=], [$1], [OBJC], [depcc="$OBJC" am_compiler_list='gcc3 gcc'], [$1], [OBJCXX], [depcc="$OBJCXX" am_compiler_list='gcc3 gcc'], [$1], [UPC], [depcc="$UPC" am_compiler_list=], [$1], [GCJ], [depcc="$GCJ" am_compiler_list='gcc3 gcc'], [depcc="$$1" am_compiler_list=]) AC_CACHE_CHECK([dependency style of $depcc], [am_cv_$1_dependencies_compiler_type], [if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up # making bogus files that we don't know about and never remove. For # instance it was reported that on HP-UX the gcc test will end up # making a dummy file named 'D' -- because '-MD' means "put the output # in D". rm -rf conftest.dir mkdir conftest.dir # Copy depcomp to subdir because otherwise we won't find it if we're # using a relative directory. cp "$am_depcomp" conftest.dir cd conftest.dir # We will build objects and dependencies in a subdirectory because # it helps to detect inapplicable dependency modes. For instance # both Tru64's cc and ICC support -MD to output dependencies as a # side effect of compilation, but ICC will put the dependencies in # the current directory while Tru64 will put them in the object # directory. mkdir sub am_cv_$1_dependencies_compiler_type=none if test "$am_compiler_list" = ""; then am_compiler_list=`sed -n ['s/^#*\([a-zA-Z0-9]*\))$/\1/p'] < ./depcomp` fi am__universal=false m4_case([$1], [CC], [case " $depcc " in #( *\ -arch\ *\ -arch\ *) am__universal=true ;; esac], [CXX], [case " $depcc " in #( *\ -arch\ *\ -arch\ *) am__universal=true ;; esac]) for depmode in $am_compiler_list; do # Setup a source with many dependencies, because some compilers # like to wrap large dependency lists on column 80 (with \), and # we should not choose a depcomp mode which is confused by this. # # We need to recreate these files for each test, as the compiler may # overwrite some of them when testing with obscure command lines. # This happens at least with the AIX C compiler. : > sub/conftest.c for i in 1 2 3 4 5 6; do echo '#include "conftst'$i'.h"' >> sub/conftest.c # Using ": > sub/conftst$i.h" creates only sub/conftst1.h with # Solaris 10 /bin/sh. echo '/* dummy */' > sub/conftst$i.h done echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf # We check with '-c' and '-o' for the sake of the "dashmstdout" # mode. It turns out that the SunPro C++ compiler does not properly # handle '-M -o', and we need to detect this. Also, some Intel # versions had trouble with output in subdirs. am__obj=sub/conftest.${OBJEXT-o} am__minus_obj="-o $am__obj" case $depmode in gcc) # This depmode causes a compiler race in universal mode. test "$am__universal" = false || continue ;; nosideeffect) # After this tag, mechanisms are not by side-effect, so they'll # only be used when explicitly requested. if test "x$enable_dependency_tracking" = xyes; then continue else break fi ;; msvc7 | msvc7msys | msvisualcpp | msvcmsys) # This compiler won't grok '-c -o', but also, the minuso test has # not run yet. These depmodes are late enough in the game, and # so weak that their functioning should not be impacted. am__obj=conftest.${OBJEXT-o} am__minus_obj= ;; none) break ;; esac if depmode=$depmode \ source=sub/conftest.c object=$am__obj \ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \ >/dev/null 2>conftest.err && grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 && grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && grep $am__obj sub/conftest.Po > /dev/null 2>&1 && ${MAKE-make} -s -f confmf > /dev/null 2>&1; then # icc doesn't choke on unknown options, it will just issue warnings # or remarks (even with -Werror). So we grep stderr for any message # that says an option was ignored or not supported. # When given -MP, icc 7.0 and 7.1 complain thusly: # icc: Command line warning: ignoring option '-M'; no argument required # The diagnosis changed in icc 8.0: # icc: Command line remark: option '-MP' not supported if (grep 'ignoring option' conftest.err || grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else am_cv_$1_dependencies_compiler_type=$depmode break fi fi done cd .. rm -rf conftest.dir else am_cv_$1_dependencies_compiler_type=none fi ]) AC_SUBST([$1DEPMODE], [depmode=$am_cv_$1_dependencies_compiler_type]) AM_CONDITIONAL([am__fastdep$1], [ test "x$enable_dependency_tracking" != xno \ && test "$am_cv_$1_dependencies_compiler_type" = gcc3]) ]) # AM_SET_DEPDIR # ------------- # Choose a directory name for dependency files. # This macro is AC_REQUIREd in _AM_DEPENDENCIES. AC_DEFUN([AM_SET_DEPDIR], [AC_REQUIRE([AM_SET_LEADING_DOT])dnl AC_SUBST([DEPDIR], ["${am__leading_dot}deps"])dnl ]) # AM_DEP_TRACK # ------------ AC_DEFUN([AM_DEP_TRACK], [AC_ARG_ENABLE([dependency-tracking], [dnl AS_HELP_STRING( [--enable-dependency-tracking], [do not reject slow dependency extractors]) AS_HELP_STRING( [--disable-dependency-tracking], [speeds up one-time build])]) if test "x$enable_dependency_tracking" != xno; then am_depcomp="$ac_aux_dir/depcomp" AMDEPBACKSLASH='\' am__nodep='_no' fi AM_CONDITIONAL([AMDEP], [test "x$enable_dependency_tracking" != xno]) AC_SUBST([AMDEPBACKSLASH])dnl _AM_SUBST_NOTMAKE([AMDEPBACKSLASH])dnl AC_SUBST([am__nodep])dnl _AM_SUBST_NOTMAKE([am__nodep])dnl ]) # Generate code to set up dependency tracking. -*- Autoconf -*- # Copyright (C) 1999-2013 Free Software Foundation, Inc. # # This file 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. # _AM_OUTPUT_DEPENDENCY_COMMANDS # ------------------------------ AC_DEFUN([_AM_OUTPUT_DEPENDENCY_COMMANDS], [{ # Older Autoconf quotes --file arguments for eval, but not when files # are listed without --file. Let's play safe and only enable the eval # if we detect the quoting. case $CONFIG_FILES in *\'*) eval set x "$CONFIG_FILES" ;; *) set x $CONFIG_FILES ;; esac shift for mf do # Strip MF so we end up with the name of the file. mf=`echo "$mf" | sed -e 's/:.*$//'` # Check whether this is an Automake generated Makefile or not. # We used to match only the files named 'Makefile.in', but # some people rename them; so instead we look at the file content. # Grep'ing the first line is not enough: some people post-process # each Makefile.in and add a new line on top of each file to say so. # Grep'ing the whole file is not good either: AIX grep has a line # limit of 2048, but all sed's we know have understand at least 4000. if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then dirpart=`AS_DIRNAME("$mf")` else continue fi # Extract the definition of DEPDIR, am__include, and am__quote # from the Makefile without running 'make'. DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` test -z "$DEPDIR" && continue am__include=`sed -n 's/^am__include = //p' < "$mf"` test -z "$am__include" && continue am__quote=`sed -n 's/^am__quote = //p' < "$mf"` # Find all dependency output files, they are included files with # $(DEPDIR) in their names. We invoke sed twice because it is the # simplest approach to changing $(DEPDIR) to its actual value in the # expansion. for file in `sed -n " s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do # Make sure the directory exists. test -f "$dirpart/$file" && continue fdir=`AS_DIRNAME(["$file"])` AS_MKDIR_P([$dirpart/$fdir]) # echo "creating $dirpart/$file" echo '# dummy' > "$dirpart/$file" done done } ])# _AM_OUTPUT_DEPENDENCY_COMMANDS # AM_OUTPUT_DEPENDENCY_COMMANDS # ----------------------------- # This macro should only be invoked once -- use via AC_REQUIRE. # # This code is only required when automatic dependency tracking # is enabled. FIXME. This creates each '.P' file that we will # need in order to bootstrap the dependency handling code. AC_DEFUN([AM_OUTPUT_DEPENDENCY_COMMANDS], [AC_CONFIG_COMMANDS([depfiles], [test x"$AMDEP_TRUE" != x"" || _AM_OUTPUT_DEPENDENCY_COMMANDS], [AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir"]) ]) # Do all the work for Automake. -*- Autoconf -*- # Copyright (C) 1996-2013 Free Software Foundation, Inc. # # This file 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 macro actually does too much. Some checks are only needed if # your package does certain things. But this isn't really a big deal. # AM_INIT_AUTOMAKE(PACKAGE, VERSION, [NO-DEFINE]) # AM_INIT_AUTOMAKE([OPTIONS]) # ----------------------------------------------- # The call with PACKAGE and VERSION arguments is the old style # call (pre autoconf-2.50), which is being phased out. PACKAGE # and VERSION should now be passed to AC_INIT and removed from # the call to AM_INIT_AUTOMAKE. # We support both call styles for the transition. After # the next Automake release, Autoconf can make the AC_INIT # arguments mandatory, and then we can depend on a new Autoconf # release and drop the old call support. AC_DEFUN([AM_INIT_AUTOMAKE], [AC_PREREQ([2.65])dnl dnl Autoconf wants to disallow AM_ names. We explicitly allow dnl the ones we care about. m4_pattern_allow([^AM_[A-Z]+FLAGS$])dnl AC_REQUIRE([AM_SET_CURRENT_AUTOMAKE_VERSION])dnl AC_REQUIRE([AC_PROG_INSTALL])dnl if test "`cd $srcdir && pwd`" != "`pwd`"; then # Use -I$(srcdir) only when $(srcdir) != ., so that make's output # is not polluted with repeated "-I." AC_SUBST([am__isrc], [' -I$(srcdir)'])_AM_SUBST_NOTMAKE([am__isrc])dnl # test to see if srcdir already configured if test -f $srcdir/config.status; then AC_MSG_ERROR([source directory already configured; run "make distclean" there first]) fi fi # test whether we have cygpath if test -z "$CYGPATH_W"; then if (cygpath --version) >/dev/null 2>/dev/null; then CYGPATH_W='cygpath -w' else CYGPATH_W=echo fi fi AC_SUBST([CYGPATH_W]) # Define the identity of the package. dnl Distinguish between old-style and new-style calls. m4_ifval([$2], [AC_DIAGNOSE([obsolete], [$0: two- and three-arguments forms are deprecated.]) m4_ifval([$3], [_AM_SET_OPTION([no-define])])dnl AC_SUBST([PACKAGE], [$1])dnl AC_SUBST([VERSION], [$2])], [_AM_SET_OPTIONS([$1])dnl dnl Diagnose old-style AC_INIT with new-style AM_AUTOMAKE_INIT. m4_if( m4_ifdef([AC_PACKAGE_NAME], [ok]):m4_ifdef([AC_PACKAGE_VERSION], [ok]), [ok:ok],, [m4_fatal([AC_INIT should be called with package and version arguments])])dnl AC_SUBST([PACKAGE], ['AC_PACKAGE_TARNAME'])dnl AC_SUBST([VERSION], ['AC_PACKAGE_VERSION'])])dnl _AM_IF_OPTION([no-define],, [AC_DEFINE_UNQUOTED([PACKAGE], ["$PACKAGE"], [Name of package]) AC_DEFINE_UNQUOTED([VERSION], ["$VERSION"], [Version number of package])])dnl # Some tools Automake needs. AC_REQUIRE([AM_SANITY_CHECK])dnl AC_REQUIRE([AC_ARG_PROGRAM])dnl AM_MISSING_PROG([ACLOCAL], [aclocal-${am__api_version}]) AM_MISSING_PROG([AUTOCONF], [autoconf]) AM_MISSING_PROG([AUTOMAKE], [automake-${am__api_version}]) AM_MISSING_PROG([AUTOHEADER], [autoheader]) AM_MISSING_PROG([MAKEINFO], [makeinfo]) AC_REQUIRE([AM_PROG_INSTALL_SH])dnl AC_REQUIRE([AM_PROG_INSTALL_STRIP])dnl AC_REQUIRE([AC_PROG_MKDIR_P])dnl # For better backward compatibility. To be removed once Automake 1.9.x # dies out for good. For more background, see: # # AC_SUBST([mkdir_p], ['$(MKDIR_P)']) # We need awk for the "check" target. The system "awk" is bad on # some platforms. AC_REQUIRE([AC_PROG_AWK])dnl AC_REQUIRE([AC_PROG_MAKE_SET])dnl AC_REQUIRE([AM_SET_LEADING_DOT])dnl _AM_IF_OPTION([tar-ustar], [_AM_PROG_TAR([ustar])], [_AM_IF_OPTION([tar-pax], [_AM_PROG_TAR([pax])], [_AM_PROG_TAR([v7])])]) _AM_IF_OPTION([no-dependencies],, [AC_PROVIDE_IFELSE([AC_PROG_CC], [_AM_DEPENDENCIES([CC])], [m4_define([AC_PROG_CC], m4_defn([AC_PROG_CC])[_AM_DEPENDENCIES([CC])])])dnl AC_PROVIDE_IFELSE([AC_PROG_CXX], [_AM_DEPENDENCIES([CXX])], [m4_define([AC_PROG_CXX], m4_defn([AC_PROG_CXX])[_AM_DEPENDENCIES([CXX])])])dnl AC_PROVIDE_IFELSE([AC_PROG_OBJC], [_AM_DEPENDENCIES([OBJC])], [m4_define([AC_PROG_OBJC], m4_defn([AC_PROG_OBJC])[_AM_DEPENDENCIES([OBJC])])])dnl AC_PROVIDE_IFELSE([AC_PROG_OBJCXX], [_AM_DEPENDENCIES([OBJCXX])], [m4_define([AC_PROG_OBJCXX], m4_defn([AC_PROG_OBJCXX])[_AM_DEPENDENCIES([OBJCXX])])])dnl ]) AC_REQUIRE([AM_SILENT_RULES])dnl dnl The testsuite driver may need to know about EXEEXT, so add the dnl 'am__EXEEXT' conditional if _AM_COMPILER_EXEEXT was seen. This dnl macro is hooked onto _AC_COMPILER_EXEEXT early, see below. AC_CONFIG_COMMANDS_PRE(dnl [m4_provide_if([_AM_COMPILER_EXEEXT], [AM_CONDITIONAL([am__EXEEXT], [test -n "$EXEEXT"])])])dnl ]) dnl Hook into '_AC_COMPILER_EXEEXT' early to learn its expansion. Do not dnl add the conditional right here, as _AC_COMPILER_EXEEXT may be further dnl mangled by Autoconf and run in a shell conditional statement. m4_define([_AC_COMPILER_EXEEXT], m4_defn([_AC_COMPILER_EXEEXT])[m4_provide([_AM_COMPILER_EXEEXT])]) # When config.status generates a header, we must update the stamp-h file. # This file resides in the same directory as the config header # that is generated. The stamp files are numbered to have different names. # Autoconf calls _AC_AM_CONFIG_HEADER_HOOK (when defined) in the # loop where config.status creates the headers, so we can generate # our stamp files there. AC_DEFUN([_AC_AM_CONFIG_HEADER_HOOK], [# Compute $1's index in $config_headers. _am_arg=$1 _am_stamp_count=1 for _am_header in $config_headers :; do case $_am_header in $_am_arg | $_am_arg:* ) break ;; * ) _am_stamp_count=`expr $_am_stamp_count + 1` ;; esac done echo "timestamp for $_am_arg" >`AS_DIRNAME(["$_am_arg"])`/stamp-h[]$_am_stamp_count]) # Copyright (C) 2001-2013 Free Software Foundation, Inc. # # This file 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. # AM_PROG_INSTALL_SH # ------------------ # Define $install_sh. AC_DEFUN([AM_PROG_INSTALL_SH], [AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl if test x"${install_sh}" != xset; then case $am_aux_dir in *\ * | *\ *) install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;; *) install_sh="\${SHELL} $am_aux_dir/install-sh" esac fi AC_SUBST([install_sh])]) # Copyright (C) 2003-2013 Free Software Foundation, Inc. # # This file 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. # Check whether the underlying file-system supports filenames # with a leading dot. For instance MS-DOS doesn't. AC_DEFUN([AM_SET_LEADING_DOT], [rm -rf .tst 2>/dev/null mkdir .tst 2>/dev/null if test -d .tst; then am__leading_dot=. else am__leading_dot=_ fi rmdir .tst 2>/dev/null AC_SUBST([am__leading_dot])]) # Copyright (C) 1998-2013 Free Software Foundation, Inc. # # This file 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. # AM_PROG_LEX # ----------- # Autoconf leaves LEX=: if lex or flex can't be found. Change that to a # "missing" invocation, for better error output. AC_DEFUN([AM_PROG_LEX], [AC_PREREQ([2.50])dnl AC_REQUIRE([AM_MISSING_HAS_RUN])dnl AC_REQUIRE([AC_PROG_LEX])dnl if test "$LEX" = :; then LEX=${am_missing_run}flex fi]) # Add --enable-maintainer-mode option to configure. -*- Autoconf -*- # From Jim Meyering # Copyright (C) 1996-2013 Free Software Foundation, Inc. # # This file 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. # AM_MAINTAINER_MODE([DEFAULT-MODE]) # ---------------------------------- # Control maintainer-specific portions of Makefiles. # Default is to disable them, unless 'enable' is passed literally. # For symmetry, 'disable' may be passed as well. Anyway, the user # can override the default with the --enable/--disable switch. AC_DEFUN([AM_MAINTAINER_MODE], [m4_case(m4_default([$1], [disable]), [enable], [m4_define([am_maintainer_other], [disable])], [disable], [m4_define([am_maintainer_other], [enable])], [m4_define([am_maintainer_other], [enable]) m4_warn([syntax], [unexpected argument to AM@&t@_MAINTAINER_MODE: $1])]) AC_MSG_CHECKING([whether to enable maintainer-specific portions of Makefiles]) dnl maintainer-mode's default is 'disable' unless 'enable' is passed AC_ARG_ENABLE([maintainer-mode], [AS_HELP_STRING([--]am_maintainer_other[-maintainer-mode], am_maintainer_other[ make rules and dependencies not useful (and sometimes confusing) to the casual installer])], [USE_MAINTAINER_MODE=$enableval], [USE_MAINTAINER_MODE=]m4_if(am_maintainer_other, [enable], [no], [yes])) AC_MSG_RESULT([$USE_MAINTAINER_MODE]) AM_CONDITIONAL([MAINTAINER_MODE], [test $USE_MAINTAINER_MODE = yes]) MAINT=$MAINTAINER_MODE_TRUE AC_SUBST([MAINT])dnl ] ) # Check to see how 'make' treats includes. -*- Autoconf -*- # Copyright (C) 2001-2013 Free Software Foundation, Inc. # # This file 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. # AM_MAKE_INCLUDE() # ----------------- # Check to see how make treats includes. AC_DEFUN([AM_MAKE_INCLUDE], [am_make=${MAKE-make} cat > confinc << 'END' am__doit: @echo this is the am__doit target .PHONY: am__doit END # If we don't find an include directive, just comment out the code. AC_MSG_CHECKING([for style of include used by $am_make]) am__include="#" am__quote= _am_result=none # First try GNU make style include. echo "include confinc" > confmf # Ignore all kinds of additional output from 'make'. case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=include am__quote= _am_result=GNU ;; esac # Now try BSD make style include. if test "$am__include" = "#"; then echo '.include "confinc"' > confmf case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=.include am__quote="\"" _am_result=BSD ;; esac fi AC_SUBST([am__include]) AC_SUBST([am__quote]) AC_MSG_RESULT([$_am_result]) rm -f confinc confmf ]) # Fake the existence of programs that GNU maintainers use. -*- Autoconf -*- # Copyright (C) 1997-2013 Free Software Foundation, Inc. # # This file 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. # AM_MISSING_PROG(NAME, PROGRAM) # ------------------------------ AC_DEFUN([AM_MISSING_PROG], [AC_REQUIRE([AM_MISSING_HAS_RUN]) $1=${$1-"${am_missing_run}$2"} AC_SUBST($1)]) # AM_MISSING_HAS_RUN # ------------------ # Define MISSING if not defined so far and test if it is modern enough. # If it is, set am_missing_run to use it, otherwise, to nothing. AC_DEFUN([AM_MISSING_HAS_RUN], [AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl AC_REQUIRE_AUX_FILE([missing])dnl if test x"${MISSING+set}" != xset; then case $am_aux_dir in *\ * | *\ *) MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;; *) MISSING="\${SHELL} $am_aux_dir/missing" ;; esac fi # Use eval to expand $SHELL if eval "$MISSING --is-lightweight"; then am_missing_run="$MISSING " else am_missing_run= AC_MSG_WARN(['missing' script is too old or missing]) fi ]) # Helper functions for option handling. -*- Autoconf -*- # Copyright (C) 2001-2013 Free Software Foundation, Inc. # # This file 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. # _AM_MANGLE_OPTION(NAME) # ----------------------- AC_DEFUN([_AM_MANGLE_OPTION], [[_AM_OPTION_]m4_bpatsubst($1, [[^a-zA-Z0-9_]], [_])]) # _AM_SET_OPTION(NAME) # -------------------- # Set option NAME. Presently that only means defining a flag for this option. AC_DEFUN([_AM_SET_OPTION], [m4_define(_AM_MANGLE_OPTION([$1]), [1])]) # _AM_SET_OPTIONS(OPTIONS) # ------------------------ # OPTIONS is a space-separated list of Automake options. AC_DEFUN([_AM_SET_OPTIONS], [m4_foreach_w([_AM_Option], [$1], [_AM_SET_OPTION(_AM_Option)])]) # _AM_IF_OPTION(OPTION, IF-SET, [IF-NOT-SET]) # ------------------------------------------- # Execute IF-SET if OPTION is set, IF-NOT-SET otherwise. AC_DEFUN([_AM_IF_OPTION], [m4_ifset(_AM_MANGLE_OPTION([$1]), [$2], [$3])]) # Check to make sure that the build environment is sane. -*- Autoconf -*- # Copyright (C) 1996-2013 Free Software Foundation, Inc. # # This file 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. # AM_SANITY_CHECK # --------------- AC_DEFUN([AM_SANITY_CHECK], [AC_MSG_CHECKING([whether build environment is sane]) # Reject unsafe characters in $srcdir or the absolute working directory # name. Accept space and tab only in the latter. am_lf=' ' case `pwd` in *[[\\\"\#\$\&\'\`$am_lf]]*) AC_MSG_ERROR([unsafe absolute working directory name]);; esac case $srcdir in *[[\\\"\#\$\&\'\`$am_lf\ \ ]]*) AC_MSG_ERROR([unsafe srcdir value: '$srcdir']);; esac # Do 'set' in a subshell so we don't clobber the current shell's # arguments. Must try -L first in case configure is actually a # symlink; some systems play weird games with the mod time of symlinks # (eg FreeBSD returns the mod time of the symlink's containing # directory). if ( am_has_slept=no for am_try in 1 2; do echo "timestamp, slept: $am_has_slept" > conftest.file set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null` if test "$[*]" = "X"; then # -L didn't work. set X `ls -t "$srcdir/configure" conftest.file` fi if test "$[*]" != "X $srcdir/configure conftest.file" \ && test "$[*]" != "X conftest.file $srcdir/configure"; then # If neither matched, then we have a broken ls. This can happen # if, for instance, CONFIG_SHELL is bash and it inherits a # broken ls alias from the environment. This has actually # happened. Such a system could not be considered "sane". AC_MSG_ERROR([ls -t appears to fail. Make sure there is not a broken alias in your environment]) fi if test "$[2]" = conftest.file || test $am_try -eq 2; then break fi # Just in case. sleep 1 am_has_slept=yes done test "$[2]" = conftest.file ) then # Ok. : else AC_MSG_ERROR([newly created file is older than distributed files! Check your system clock]) fi AC_MSG_RESULT([yes]) # If we didn't sleep, we still need to ensure time stamps of config.status and # generated files are strictly newer. am_sleep_pid= if grep 'slept: no' conftest.file >/dev/null 2>&1; then ( sleep 1 ) & am_sleep_pid=$! fi AC_CONFIG_COMMANDS_PRE( [AC_MSG_CHECKING([that generated files are newer than configure]) if test -n "$am_sleep_pid"; then # Hide warnings about reused PIDs. wait $am_sleep_pid 2>/dev/null fi AC_MSG_RESULT([done])]) rm -f conftest.file ]) # Copyright (C) 2009-2013 Free Software Foundation, Inc. # # This file 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. # AM_SILENT_RULES([DEFAULT]) # -------------------------- # Enable less verbose build rules; with the default set to DEFAULT # ("yes" being less verbose, "no" or empty being verbose). AC_DEFUN([AM_SILENT_RULES], [AC_ARG_ENABLE([silent-rules], [dnl AS_HELP_STRING( [--enable-silent-rules], [less verbose build output (undo: "make V=1")]) AS_HELP_STRING( [--disable-silent-rules], [verbose build output (undo: "make V=0")])dnl ]) case $enable_silent_rules in @%:@ ((( yes) AM_DEFAULT_VERBOSITY=0;; no) AM_DEFAULT_VERBOSITY=1;; *) AM_DEFAULT_VERBOSITY=m4_if([$1], [yes], [0], [1]);; esac dnl dnl A few 'make' implementations (e.g., NonStop OS and NextStep) dnl do not support nested variable expansions. dnl See automake bug#9928 and bug#10237. am_make=${MAKE-make} AC_CACHE_CHECK([whether $am_make supports nested variables], [am_cv_make_support_nested_variables], [if AS_ECHO([['TRUE=$(BAR$(V)) BAR0=false BAR1=true V=1 am__doit: @$(TRUE) .PHONY: am__doit']]) | $am_make -f - >/dev/null 2>&1; then am_cv_make_support_nested_variables=yes else am_cv_make_support_nested_variables=no fi]) if test $am_cv_make_support_nested_variables = yes; then dnl Using '$V' instead of '$(V)' breaks IRIX make. AM_V='$(V)' AM_DEFAULT_V='$(AM_DEFAULT_VERBOSITY)' else AM_V=$AM_DEFAULT_VERBOSITY AM_DEFAULT_V=$AM_DEFAULT_VERBOSITY fi AC_SUBST([AM_V])dnl AM_SUBST_NOTMAKE([AM_V])dnl AC_SUBST([AM_DEFAULT_V])dnl AM_SUBST_NOTMAKE([AM_DEFAULT_V])dnl AC_SUBST([AM_DEFAULT_VERBOSITY])dnl AM_BACKSLASH='\' AC_SUBST([AM_BACKSLASH])dnl _AM_SUBST_NOTMAKE([AM_BACKSLASH])dnl ]) # Copyright (C) 2001-2013 Free Software Foundation, Inc. # # This file 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. # AM_PROG_INSTALL_STRIP # --------------------- # One issue with vendor 'install' (even GNU) is that you can't # specify the program used to strip binaries. This is especially # annoying in cross-compiling environments, where the build's strip # is unlikely to handle the host's binaries. # Fortunately install-sh will honor a STRIPPROG variable, so we # always use install-sh in "make install-strip", and initialize # STRIPPROG with the value of the STRIP variable (set by the user). AC_DEFUN([AM_PROG_INSTALL_STRIP], [AC_REQUIRE([AM_PROG_INSTALL_SH])dnl # Installed binaries are usually stripped using 'strip' when the user # run "make install-strip". However 'strip' might not be the right # tool to use in cross-compilation environments, therefore Automake # will honor the 'STRIP' environment variable to overrule this program. dnl Don't test for $cross_compiling = yes, because it might be 'maybe'. if test "$cross_compiling" != no; then AC_CHECK_TOOL([STRIP], [strip], :) fi INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s" AC_SUBST([INSTALL_STRIP_PROGRAM])]) # Copyright (C) 2006-2013 Free Software Foundation, Inc. # # This file 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. # _AM_SUBST_NOTMAKE(VARIABLE) # --------------------------- # Prevent Automake from outputting VARIABLE = @VARIABLE@ in Makefile.in. # This macro is traced by Automake. AC_DEFUN([_AM_SUBST_NOTMAKE]) # AM_SUBST_NOTMAKE(VARIABLE) # -------------------------- # Public sister of _AM_SUBST_NOTMAKE. AC_DEFUN([AM_SUBST_NOTMAKE], [_AM_SUBST_NOTMAKE($@)]) # Check how to create a tarball. -*- Autoconf -*- # Copyright (C) 2004-2013 Free Software Foundation, Inc. # # This file 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. # _AM_PROG_TAR(FORMAT) # -------------------- # Check how to create a tarball in format FORMAT. # FORMAT should be one of 'v7', 'ustar', or 'pax'. # # Substitute a variable $(am__tar) that is a command # writing to stdout a FORMAT-tarball containing the directory # $tardir. # tardir=directory && $(am__tar) > result.tar # # Substitute a variable $(am__untar) that extract such # a tarball read from stdin. # $(am__untar) < result.tar # AC_DEFUN([_AM_PROG_TAR], [# Always define AMTAR for backward compatibility. Yes, it's still used # in the wild :-( We should find a proper way to deprecate it ... AC_SUBST([AMTAR], ['$${TAR-tar}']) # We'll loop over all known methods to create a tar archive until one works. _am_tools='gnutar m4_if([$1], [ustar], [plaintar]) pax cpio none' m4_if([$1], [v7], [am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -'], [m4_case([$1], [ustar], [# The POSIX 1988 'ustar' format is defined with fixed-size fields. # There is notably a 21 bits limit for the UID and the GID. In fact, # the 'pax' utility can hang on bigger UID/GID (see automake bug#8343 # and bug#13588). am_max_uid=2097151 # 2^21 - 1 am_max_gid=$am_max_uid # The $UID and $GID variables are not portable, so we need to resort # to the POSIX-mandated id(1) utility. Errors in the 'id' calls # below are definitely unexpected, so allow the users to see them # (that is, avoid stderr redirection). am_uid=`id -u || echo unknown` am_gid=`id -g || echo unknown` AC_MSG_CHECKING([whether UID '$am_uid' is supported by ustar format]) if test $am_uid -le $am_max_uid; then AC_MSG_RESULT([yes]) else AC_MSG_RESULT([no]) _am_tools=none fi AC_MSG_CHECKING([whether GID '$am_gid' is supported by ustar format]) if test $am_gid -le $am_max_gid; then AC_MSG_RESULT([yes]) else AC_MSG_RESULT([no]) _am_tools=none fi], [pax], [], [m4_fatal([Unknown tar format])]) AC_MSG_CHECKING([how to create a $1 tar archive]) # Go ahead even if we have the value already cached. We do so because we # need to set the values for the 'am__tar' and 'am__untar' variables. _am_tools=${am_cv_prog_tar_$1-$_am_tools} for _am_tool in $_am_tools; do case $_am_tool in gnutar) for _am_tar in tar gnutar gtar; do AM_RUN_LOG([$_am_tar --version]) && break done am__tar="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$$tardir"' am__tar_="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$tardir"' am__untar="$_am_tar -xf -" ;; plaintar) # Must skip GNU tar: if it does not support --format= it doesn't create # ustar tarball either. (tar --version) >/dev/null 2>&1 && continue am__tar='tar chf - "$$tardir"' am__tar_='tar chf - "$tardir"' am__untar='tar xf -' ;; pax) am__tar='pax -L -x $1 -w "$$tardir"' am__tar_='pax -L -x $1 -w "$tardir"' am__untar='pax -r' ;; cpio) am__tar='find "$$tardir" -print | cpio -o -H $1 -L' am__tar_='find "$tardir" -print | cpio -o -H $1 -L' am__untar='cpio -i -H $1 -d' ;; none) am__tar=false am__tar_=false am__untar=false ;; esac # If the value was cached, stop now. We just wanted to have am__tar # and am__untar set. test -n "${am_cv_prog_tar_$1}" && break # tar/untar a dummy directory, and stop if the command works. rm -rf conftest.dir mkdir conftest.dir echo GrepMe > conftest.dir/file AM_RUN_LOG([tardir=conftest.dir && eval $am__tar_ >conftest.tar]) rm -rf conftest.dir if test -s conftest.tar; then AM_RUN_LOG([$am__untar /dev/null 2>&1 && break fi done rm -rf conftest.dir AC_CACHE_VAL([am_cv_prog_tar_$1], [am_cv_prog_tar_$1=$_am_tool]) AC_MSG_RESULT([$am_cv_prog_tar_$1])]) AC_SUBST([am__tar]) AC_SUBST([am__untar]) ]) # _AM_PROG_TAR m4_include([m4/libtool.m4]) m4_include([m4/ltoptions.m4]) m4_include([m4/ltsugar.m4]) m4_include([m4/ltversion.m4]) m4_include([m4/lt~obsolete.m4]) m4_include([acinclude.m4]) gpsim-0.27.0/regression/0000775000076400007640000000000012210742354012112 500000000000000gpsim-0.27.0/regression/ttl/0000775000076400007640000000000012210742356012717 500000000000000gpsim-0.27.0/regression/ttl/ttl165.asm0000664000076400007640000000770511463237707014421 00000000000000 ;; ttl165.asm ;; list p=18f452 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros radix dec ; Numbers are assumed to be decimal ;---------------------------------------------------------------------- ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- GPR_DATA UDATA temp RES 1 temp1 RES 1 temp2 RES 1 failures RES 1 GLOBAL done ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- STARTUP CODE 0 bra Start ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x008 ; interrupt vector location ExitInterrupt: RETFIE 1 MAIN CODE Start: .sim "module library libgpsim_modules" .sim "module load TTL165 U1" .sim "node nd0 nd1 nd2 nd3 nd4 nd5 nd6 nd7" .sim "attach nd0 portb0 U1.D0" .sim "attach nd1 portb1 U1.D1" .sim "attach nd2 portb2 U1.D2" .sim "attach nd3 portb3 U1.D3" .sim "attach nd4 portb4 U1.D4" .sim "attach nd5 portb5 U1.D5" .sim "attach nd6 portb6 U1.D6" .sim "attach nd7 portb7 U1.D7" .sim "node nClk nE nPL nDs nQ nQb" .sim "attach nClk porte0 U1.CP" .sim "attach nE porte1 U1.CE" .sim "attach nPL porte2 U1.PL" .sim "attach nQ portc0 U1.Q7" .sim "attach nQb portc1 U1.nQ7" .sim "attach nDs portc2 U1.Ds" .sim "p18f452.xpos = 100.00" .sim "p18f452.ypos = 100.00" .sim "U1.xpos = 300.00" .sim "U1.ypos = 200.00" nop clrf TRISB clrf TRISE movlw 3 movwf TRISC clrf LATB clrf LATC clrf LATE bsf LATE,0 bsf LATE,2 ; Latch data into the 165 comf LATB,f .assert "portc == 2" bcf LATE,0 bsf LATE,0 ; Shift the data one bit .assert "portc == 2" bcf LATE,0 bsf LATE,0 .assert "portc == 2" nop movlw 0xAA movwf LATB .assert "portc == 2" nop bcf LATE,2 ; Reload the shift register .assert "portc == 1" nop movlw 0xA5 movwf LATB nop bsf LATE,2 .assert "portc == 1" ; SR=0xA5 nop bcf LATE,0 bsf LATE,0 ; Shift the data one bit .assert "portc == 2" ; SR=0x4A nop bsf LATC,2 ; Set the Ds pin bcf LATE,0 bsf LATE,0 ; Shift the data one bit .assert "portc == 5" ; SR=0x95 nop bcf LATE,0 bsf LATE,0 ; Shift the data one bit .assert "portc == 6" ; SR=0x2B nop bcf LATE,0 bsf LATE,0 ; Shift the data one bit nop .assert "portc == 6" ; SR=0x57 bcf LATE,0 bsf LATE,0 ; Shift the data one bit nop .assert "portc == 5" ; SR=0xAF bcf LATC,2 ; Clear the Ds pin bcf LATE,0 bsf LATE,0 ; Shift the data one bit .assert "portc == 2" ; SR=0x5E nop bcf LATE,0 bsf LATE,0 ; Shift the data one bit .assert "portc == 1" ; SR=0xBC nop bcf LATE,0 bsf LATE,0 ; Shift the data one bit .assert "portc == 2" ; SR=0x78 nop bsf LATE,1 ; Disable the clock bcf LATE,0 bsf LATE,0 ; No shift .assert "portc == 2" ; SR=0x78 nop done: .assert "\"*** PASSED TTL-165 test\"" bra $ failed: movlw 1 movwf failures .assert "\"*** FAILED TTL-165 test\"" bra done end gpsim-0.27.0/regression/ttl/18f452.lkr0000644000076400007640000000200310525705326014176 00000000000000// $Id: 18f452.lkr 1828 2006-11-10 18:59:10Z borutr $ // File: 18f452.lkr // Sample linker script for the PIC18F452 processor LIBPATH . CODEPAGE NAME=page START=0x00 END=0x7FFF CODEPAGE NAME=idlocs START=0x200000 END=0x200007 PROTECTED CODEPAGE NAME=config START=0x300000 END=0x30000D PROTECTED CODEPAGE NAME=devid START=0x3FFFFE END=0x3FFFFF PROTECTED CODEPAGE NAME=eedata START=0xF00000 END=0xF000FF PROTECTED ACCESSBANK NAME=accessram START=0x0 END=0x7F DATABANK NAME=gpr0 START=0x80 END=0xFF DATABANK NAME=gpr1 START=0x100 END=0x1FF DATABANK NAME=gpr2 START=0x200 END=0x2FF DATABANK NAME=gpr3 START=0x300 END=0x3FF DATABANK NAME=gpr4 START=0x400 END=0x4FF DATABANK NAME=gpr5 START=0x500 END=0x5FF ACCESSBANK NAME=accesssfr START=0xF80 END=0xFFF PROTECTED SECTION NAME=CONFIG ROM=config gpsim-0.27.0/regression/ttl/ttl377.asm0000644000076400007640000000506210525705326014411 00000000000000 ;; ttl377.asm ;; list p=18f452 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros radix dec ; Numbers are assumed to be decimal ;---------------------------------------------------------------------- ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- GPR_DATA UDATA temp RES 1 temp1 RES 1 temp2 RES 1 failures RES 1 GLOBAL done ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- STARTUP CODE 0 bra Start ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x008 ; interrupt vector location ExitInterrupt: RETFIE 1 MAIN CODE Start: .sim "module library libgpsim_modules" .sim "module load ttl377 U1" .sim "node nb0 nb1 nb2 nb3 nb4 nb5 nb6 nb7" .sim "node nc0 nc1 nc2 nc3 nc4 nc5 nc6 nc7" .sim "attach nb0 portb0 U1.D0" .sim "attach nb1 portb1 U1.D1" .sim "attach nb2 portb2 U1.D2" .sim "attach nb3 portb3 U1.D3" .sim "attach nb4 portb4 U1.D4" .sim "attach nb5 portb5 U1.D5" .sim "attach nb6 portb6 U1.D6" .sim "attach nb7 portb7 U1.D7" .sim "attach nc0 portc0 U1.Q0" .sim "attach nc1 portc1 U1.Q1" .sim "attach nc2 portc2 U1.Q2" .sim "attach nc3 portc3 U1.Q3" .sim "attach nc4 portc4 U1.Q4" .sim "attach nc5 portc5 U1.Q5" .sim "attach nc6 portc6 U1.Q6" .sim "attach nc7 portc7 U1.Q7" .sim "node nClk nE" .sim "attach nClk porte0 U1.CP" .sim "attach nE porte1 U1.E" .sim "p18f452.xpos = 24.00000000000000" .sim "p18f452.ypos = 24.00000000000000" .sim "U1.xpos = 156.0000000000000" .sim "U1.ypos = 24.00000000000000" nop CLRF TRISB CLRF TRISE SETF TRISC CLRF LATB CLRF LATE BSF LATE,0 ;Clock data into the 377 COMF LATB BCF LATE,0 BSF LATE,0 .assert "latb == portc" COMF LATB BCF LATE,0 BSF LATE,0 .assert "latb == portc" nop done: .assert "\"*** PASSED TTL-377 test\"" bra $ failed: movlw 1 movwf failures .assert "\"*** FAILED TTL-377 test\"" bra done end gpsim-0.27.0/regression/ttl/Makefile0000664000076400007640000000024611463237707014311 00000000000000 include ../make.regression SCRIPT = 18f452.lkr all : ttl377.cod ttl165.cod ttl%.cod : ttl%.o gplink --map -s $(SCRIPT) -o $@ $< sim : sim_ttl377 sim_ttl165 gpsim-0.27.0/regression/ttl/ttl377.stc0000644000076400007640000000003110441171677014414 00000000000000 load ttl377.cod p18f452 gpsim-0.27.0/regression/p18f452_ports/0000775000076400007640000000000012210742356014354 500000000000000gpsim-0.27.0/regression/p18f452_ports/18f452.lkr0000644000076400007640000000222010644005155015627 00000000000000// $Id: 18f452.lkr 1903 2007-02-12 05:03:40Z sdattalo $ // File: 18f452.lkr // Sample linker script for the PIC18F452 processor LIBPATH . //CODEPAGE NAME=vectors START=0x0 END=0x29 PROTECTED //CODEPAGE NAME=page START=0x2A END=0x7FFF CODEPAGE NAME=page START=0x00 END=0x7FFF CODEPAGE NAME=idlocs START=0x200000 END=0x200007 PROTECTED CODEPAGE NAME=config START=0x300000 END=0x30000D PROTECTED CODEPAGE NAME=devid START=0x3FFFFE END=0x3FFFFF PROTECTED CODEPAGE NAME=eedata START=0xF00000 END=0xF000FF PROTECTED ACCESSBANK NAME=accessram START=0x0 END=0x7F DATABANK NAME=gpr0 START=0x80 END=0xFF DATABANK NAME=gpr1 START=0x100 END=0x1FF DATABANK NAME=gpr2 START=0x200 END=0x2FF DATABANK NAME=gpr3 START=0x300 END=0x3FF DATABANK NAME=gpr4 START=0x400 END=0x4FF DATABANK NAME=gpr5 START=0x500 END=0x5FF ACCESSBANK NAME=accesssfr START=0xF80 END=0xFFF PROTECTED SECTION NAME=CONFIG ROM=config gpsim-0.27.0/regression/p18f452_ports/Makefile0000644000076400007640000000051310563700462015732 00000000000000include ../make.regression SCRIPT = 18f452.lkr PROJECT = p18f452_ports OBJECTS = $(PROJECT).o OUTPUT = $(PROJECT).hex COD = $(PROJECT).cod STC = $(PROJECT).stc all : $(OUTPUT) $(OUTPUT) $(COD) : $(OBJECTS) $(SCRIPT) gplink --map -s $(SCRIPT) -o $(OUTPUT) $(OBJECTS) sim: $(COD) $(GPSIM) -i -I $(STARTUP_STC) -D STC=$(STC) gpsim-0.27.0/regression/p18f452_ports/p18f452_ports.asm0000644000076400007640000000377411346664615017261 00000000000000 ;; 18F452 tests ;; ;; This regression test exercises the 18f452's I/O ports. ;; ;; Tests performed: ;; ;; list p=18f452 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA failures RES 1 ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE CLRF failures ;Assume success ; Set ADC ports to digital I/O MOVLW (1< include __CONFIG _WDT_ON & _MCLRE_ON radix dec ; Printf Command .command macro x .direct "C", x endm GPR_DATA UDATA ResetSequence RES 1 optionShadow RES 1 GLOBAL optionShadow, ResetSequence ; Define the reset conditions to be checked. eRSTSequence_PowerOnReset equ 1 eRSTSequence_AwakeMCLR equ 2 eRSTSequence_AwakeWDT equ 3 eRSTSequence_AwakeIO equ 4 eRSTSequence_WDTTimeOut equ 5 ;---------------------------------------------------------------------- ; ********************* STARTUP LOCATION *************************** ;---------------------------------------------------------------------- START CODE 0x000 ; ;############################################################ ;# Create a stimulus to simulate a switch ; .sim "module lib libgpsim_modules" .sim "module load pulsegen PG1" .sim "module load pulsegen MCLR" .sim "MCLR.initial = 5.0" .sim "PG1.clear = 0" ; At cycle 0, .sim "PG1.set = 1" ; .sim "PG1.clear = 0x200" ; .sim "PG1.period = 0x400" ;############################################################ .sim "node nSwitch" .sim "attach nSwitch gpio0 PG1.pin" .sim "node nMCLR" .sim "attach nMCLR gpio3 MCLR.pin" ;############################################################ .sim "symbol resetCounter=1" ; NOT_GPWU = 0 - Enable wakeup if I/O pins 0,1, or 3 change states ; NOT_GPPU = 1 - Disable weak pullups on I/O pins 0,1, and 3 ; TOCS = 0 - Let the clock source for TMR0 be the internal fosc/4 ; TOSE = 0 - don't care - TMR0 source edge. ; PSA = 1 - assign Prescale to the WDT ; PS2:0 = 000 - prescale = 2^0=1 .sim "optionShadow=8" ; PSA=1 .sim "ResetSequence=0" .sim ".BreakOnReset = false" ; Set a cycle break point far in the future in case the resets fail. .sim "break c 0x1000000" ;break e START ;break e Activate ;break e AbortActivate ;break e SendIsComplete ;break e SwitchWasJustPressed bSWITCH equ 0 .assert "option==0xff" .assert "(tris&0x3f)==0x3f" MOVWF OSCCAL ; put calibration into oscillator cal reg ; OPTION register setup MOVF optionShadow,W ;optionShadow is initialized by the gpsim script OPTION ; GPIO setup ; If this is a PowerOn reset, then the state of the GPIO output register ; is unknown. If this is not a PowerOn reset then the GPIO pins have ; the same state they had prior to the reset. ; ; TRIS register setup - The I/O pins are always configured as Inputs after ; any reset. MOVLW 1< /MCLR while sleeping goto PowerOnReset ;/TO=1, /PD=1 ==> Power has just been applied TO_is_low BTFSS STATUS,NOT_PD goto AwakeWDT ;/TO=0, /PD=0 ==> WDT while sleeping goto WDTTimeOut ;/TO=0, /PD=1 ==> WDT while not sleeping ;======================================================================== ; ; PowerOnReset ; ;======================================================================== PowerOnReset: movf ResetSequence,W XORLW eRSTSequence_AwakeMCLR skpnz goto done .assert "resetCounter==1,\"*** FAILED Power On Reset\"" MOVLW eRSTSequence_PowerOnReset MOVWF ResetSequence .command "resetCounter = resetCounter+1" CLRWDT SLEEP ;======================================================================== ; ; AwakeWDT - WDT timed out while we were sleeping. ; ;======================================================================== AwakeWDT: MOVLW eRSTSequence_AwakeWDT .assert "resetCounter==2,\"*** FAILED WDT Reset\"" MOVWF ResetSequence .command "resetCounter = resetCounter+1" CLRWDT ; loop until WDT times out here: goto here ;======================================================================== ; ; WDTTimeOut - WatchDog timer timed out while we were awake. ; ;======================================================================== WDTTimeOut: .assert "resetCounter==3,\"*** FAILED WDT timeout\"" MOVLW eRSTSequence_WDTTimeOut MOVWF ResetSequence .command "resetCounter = resetCounter+1" CLRWDT .command "PG1.clear = cycles+100" nop SLEEP ;======================================================================== ; ; AwakeIO - an I/O pin changed states to awaken us from sleep. ; ;======================================================================== AwakeIO: MOVLW eRSTSequence_AwakeIO .assert "resetCounter==4,\"*** FAILED Wakeup on I/O pin change\"" MOVWF ResetSequence .command "resetCounter = resetCounter+1" CLRWDT ; reset the processor by driving /MCLR low for a few cycles .command "MCLR.clear = cycles+100" .command "MCLR.set = cycles+110" nop SLEEP ;======================================================================== ; ; AwakeMCLR - MCLR went low while we were sleeping. ; ;======================================================================== AwakeMCLR: MOVLW eRSTSequence_AwakeMCLR .assert "resetCounter==5,\"*** FAILED /MCLR Reset\"" MOVWF ResetSequence .command "resetCounter = resetCounter+1" CLRWDT ; reset the processor by driving /MCLR low for a few cycles .command "MCLR.clear = cycles+100" .command "MCLR.set = cycles+110" nop waitForMCLR: goto waitForMCLR .assert "\"*** PASSED 12c509 Sleep and Reset test\"" done: goto done ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x3ff ; processor reset vector OSC_CAL_VALUE EQU 0x80 MOVLW OSC_CAL_VALUE end gpsim-0.27.0/regression/p12c509/12c509.lkr0000644000076400007640000000117310563700445014376 00000000000000// Sample linker command file for 12C509 // $Id: 12c509.lkr,v 1.8 2005/03/24 04:17:15 craigfranklin Exp $ LIBPATH . CODEPAGE NAME=page START=0x0 END=0x3FF CODEPAGE NAME=.idlocs START=0x400 END=0x403 PROTECTED CODEPAGE NAME=.config START=0xFFF END=0xFFF PROTECTED DATABANK NAME=sfrs START=0x0 END=0x06 PROTECTED DATABANK NAME=gpr0 START=0x07 END=0x1F DATABANK NAME=gpr1 START=0x30 END=0x3F SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location gpsim-0.27.0/regression/p12c509/Makefile0000644000076400007640000000034410563700445014500 00000000000000include ../make.regression STARTUP_STC=../startup.stc all : reset.cod reset.cod: reset.o gplink --map -s 12c509.lkr -o $@ $< sim: sim_p12c509_reset sim_p12c509_reset: reset.cod $(GPSIM) -i -I $(STARTUP_STC) -D STC=$< gpsim-0.27.0/regression/p12c509/it_12bit.asm0000644000076400007640000001524110416271536015162 00000000000000 list p=12c508 ;; it.asm ;; ;; The purpose of this program is to test how well gpsim can simulate ;; a pic. Nothing useful is performed - this program is only used to ;; debug gpsim. ;; The way it is structured, a test is performed and then various ;; status bits are examined. If things 'are as expected' then the ;; next test will be performed, otherwise the program will go into ;; an infinite loop (goto $). ;; If the 'success:' label is reached, then all of the tests were ;; successful. include "p12x.inc" __config _wdt_on cblock 0x0c temp,temp1,temp2 endc org 0 ;; Assume that 'goto' works and begin the thorough instruction ;; tests below (the pcl related tests must be in bank 0 because ;; the 5x hardware cannot make calls to bank 1 [bit 8 of the PC ;; always gets cleared]). goto start ;; ;; Test indirect branching ;; test_pcl: clrf temp clrf temp1 tt1: movf temp,w call table_test xorwf temp,w skpz bsf temp1,0 incf temp,f btfss temp,4 goto tt1 goto test_pcl2 table_test: addwf pcl,f table: retlw 0 retlw 1 retlw 2 retlw 3 retlw 4 retlw 5 retlw 6 retlw 7 retlw 8 retlw 9 retlw 10 retlw 11 retlw 12 retlw 13 retlw 14 retlw 15 test_pcl2: ;; If this is the first time through, then clear the registers btfsc temp2,0 goto test_pcl3 movlw 0x10 movwf fsr next clrf indf incf fsr,f btfss fsr,5 goto next ;; ;; Set this flag to indicate we've gotten here once already ;; (note: we're assuming that temp2 was cleared at the beginning ;; of the simulation. By default, gpsim clears ram at ;; initialization. If this is not true, then you might have ;; to manually clear temp2. bsf temp2,0 clrf pcl test_pcl3: movlw ly movwf pcl ; == goto ly lx goto test_pcl4 ly movlw lx movwf pcl test_pcl4: movlw 0 tris gpio NOP NOP NOP NOP ;; ;; If we get here, then all of the tests were passed ;; success: goto $ NOP NOP NOP NOP start: ;; ;; if bit 0 of temp2 is set, then we've already passed ;; through here once. The reason we got here a second ;; time is because of the 'clrf pcl' test (which is basically ;; a 'goto 0' instruction). btfsc temp2,0 goto test_pcl clrf temp1 ;Assume clrf works... ; ;; ;; map tmr0 to the internal clock ;; clrw option ;initialize tmr0 start1: ;; Perform some basic tests on some important instructions setc ;set the Carry flag skpc ;and verify that it happened goto $ clrc ;Now try clearing the carry skpnc goto $ setz ;set the Zero flag skpz ;and verify that it happened goto $ clrz ;Now try clearing it skpnz goto $ setdc ;set the Digit Carry flag skpdc ;and verify that it happened goto $ clrdc ;Now try clearing it skpndc goto $ movlw 1 movwf temp movf temp,f skpnz goto $ movlw 0 movwf temp movf temp,f skpz goto $ clrf temp ;Clear a register skpz ;and verify that the Z bit in the goto $ ;status register was set. movf temp,w ;Read the register that was just skpz ;cleared, and again verify that Z goto $ ;was set incf temp,w ;Now this should cause the Z bit to skpnz ;get cleared. goto $ movlw 0xff movwf temp incf temp skpz goto $ ;; ;; incfsz ;; movlw 0xff movwf temp movf temp,f ;Should clear Z incfsz temp,w goto $ skpnz ;incfsz shouldn't affect Z goto $ incfsz temp,f ;temp should now be zero goto $ incfsz temp,w ;the following inst. shouldn't be skipped skpnz ;Z should be clear from above. goto $ ;; addlw 0xaa ;; ;; addwf test: ;; ;; The purpose of this test is to a) verify that the addwf instruction ;; adds correctly and b) that the appropriate status register bits are ;; set correctly. clrw clrf temp addwf temp,w ; 0+0 skpnc goto $ skpz goto $ skpndc goto $ movlw 1 ; 0+1 addwf temp,w skpnc goto $ skpnz goto $ skpndc goto $ movlw 8 ; 8+8 movwf temp addwf temp,w skpnc goto $ skpnz goto $ skpdc goto $ movlw 0x88 ; 0x88+0x88 movwf temp addwf temp,w skpc goto $ skpnz goto $ skpdc goto $ movlw 0x80 ; 0x80+0x80 movwf temp addwf temp,w skpc goto $ skpz goto $ skpndc goto $ movlw 1 movwf temp movlw 0xff addwf temp,w skpc goto $ skpz goto $ skpdc goto $ clrc clrdc ;; ;; andwf test: ;; clrf temp movlw 1 andwf temp,f skpz goto $ skpc skpndc goto $ andwf temp,w skpz goto $ skpc skpndc goto $ movlw 1 movwf temp andwf temp,f skpnz goto $ skpc skpndc goto $ movlw 0xff andwf temp,f ;1 & 0xff should = 1 skpnz goto $ skpc skpndc goto $ movlw 0xff ;Now add 0xff to see if temp addwf temp,f ;really is 1. (should cause a carry) skpnz skpc goto $ ;; ;; iorwf ;; movlw 0 movwf temp iorwf temp,f skpz goto $ movlw 1 iorwf temp,f skpnz goto $ movlw 0xff addwf temp,f skpnz skpc goto $ ;; ;; rlf ;; clrdc clrf temp clrc rlf temp,w skpdc skpnc goto $ skpz goto $ setc rlf temp,f skpdc skpnc goto $ skpz goto $ movlw 0xff addwf temp,f skpnz skpc goto $ rlf temp,f skpnc goto $ movlw 0x80 movwf temp rlf temp,w skpc goto $ movwf temp addwf temp,w skpz goto $ ;; ;; rrf ;; clrdc clrf temp clrc rrf temp,w skpdc skpnc goto $ skpz goto $ setc rrf temp,f skpdc skpnc goto $ skpz goto $ movlw 0x80 addwf temp,f skpnz skpc goto $ rrf temp,f skpnc goto $ movlw 1 movwf temp rrf temp,w skpc goto $ movwf temp addwf temp,w skpz goto $ ;; ;; subwf test: ;; clrw clrf temp subwf temp,w ; 0-0 skpc goto $ skpz goto $ skpdc goto $ movlw 1 ; 0-1 subwf temp,w skpnc goto $ skpnz goto $ skpndc goto $ movlw 0x10 ; 0x10-0x10 movwf temp subwf temp,w skpc goto $ skpz goto $ skpdc goto $ movlw 0x88 ; 0x88-0x88 movwf temp subwf temp,w skpc goto $ skpz goto $ skpdc goto $ clrf temp movlw 0x80 ; 0 - 0x80 subwf temp,f skpnc goto $ skpnz goto $ skpdc goto $ movlw 0 ; 0x80 - 0 subwf temp,w skpc goto $ skpnz goto $ skpdc goto $ movlw 1 ; 0x80 - 1 subwf temp,w skpc goto $ skpnz goto $ skpndc goto $ clrc clrdc ;; ;; xorwf ;; clrf temp movlw 0xff xorwf temp,f skpc skpndc goto $ skpnz goto $ xorwf temp,f skpz goto $ xorwf temp,f incfsz temp,f goto $ ;; ;; swapf ;; movlw 0x0f movwf temp swapf temp,f xorwf temp,f incfsz temp,f goto $ decf temp1,f incfsz temp1,w goto done ;; repeat the test with in the next bank of registers bsf fsr,5 goto start1 done: bcf fsr,5 NOP NOP NOP NOP NOP NOP goto test_pcl endgpsim-0.27.0/regression/instructions_12bit/0000775000076400007640000000000012210742355015660 500000000000000gpsim-0.27.0/regression/instructions_12bit/instructions_12bit.asm0000644000076400007640000003030311173254550022046 00000000000000 ;; it.asm ;; ;; The purpose of this program is to test how well gpsim can simulate ;; a pic. Nothing useful is performed - this program is only used to ;; debug gpsim. ;; The way it is structured, a test is performed and then various ;; status bits are examined. If things 'are as expected' then the ;; next test will be performed, otherwise the program will go into ;; an infinite loop (goto $). ;; If the 'success:' label is reached, then all of the tests were ;; successful. list p=12c508 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros __config _WDT_ON & _MCLRE_OFF ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA temp RES 1 temp1 RES 1 temp2 RES 1 failures RES 1 GLOBAL done ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE ;; Assume that 'goto' works and begin the thorough instruction ;; tests below (the pcl related tests must be in bank 0 because ;; the 5x hardware cannot make calls to bank 1 [bit 8 of the PC ;; always gets cleared]). goto start ;; ;; Test indirect branching ;; test_pcl: clrf temp clrf temp1 tt1: movf temp,w call table_test xorwf temp,w skpz bsf temp1,0 incf temp,f btfss temp,4 goto tt1 goto test_pcl2 table_test: addwf PCL,F table: retlw 0 retlw 1 retlw 2 retlw 3 retlw 4 retlw 5 retlw 6 retlw 7 retlw 8 retlw 9 retlw 10 retlw 11 retlw 12 retlw 13 retlw 14 retlw 15 test_pcl2: ;; If this is the first time through, then clear the registers btfsc temp2,0 goto test_pcl3 movlw 0x10 movwf FSR next clrf INDF incf FSR,f btfss FSR,5 goto next ;; ;; Set this flag to indicate we've gotten here once already ;; (note: we're assuming that temp2 was cleared at the beginning ;; of the simulation. By default, gpsim clears ram at ;; initialization. If this is not true, then you might have ;; to manually clear temp2. bsf temp2,0 clrf PCL test_pcl3: movlw ly movwf PCL ; == goto ly lx goto test_pcl4 ly movlw lx movwf PCL test_pcl4: movlw 0 tris GPIO NOP NOP NOP NOP ;; ;; If we get here, then all of the tests were passed ;; success: done: .assert "\"*** PASSED 12bit core instruction test\"" goto $ NOP NOP NOP NOP failed: movlw 1 movwf failures .assert "\"*** FAILED: 12bit core instruction test\"" goto done start: ;; ;; if bit 0 of temp2 is set, then we've already passed ;; through here once. The reason we got here a second ;; time is because of the 'clrf pcl' test (which is basically ;; a 'goto 0' instruction). btfsc temp2,0 goto test_pcl clrf temp1 ;Assume clrf works... clrf failures ; ;; ;; map tmr0 to the internal clock ;; clrw option ;initialize tmr0 start1: ;; Perform some basic tests on some important instructions setc ;set the Carry flag skpc ;and verify that it happened goto failed clrc ;Now try clearing the carry skpnc goto failed setz ;set the Zero flag skpz ;and verify that it happened goto failed clrz ;Now try clearing it skpnz goto failed setdc ;set the Digit Carry flag skpdc ;and verify that it happened goto failed clrdc ;Now try clearing it skpndc goto failed movlw 1 movwf temp movf temp,f skpnz goto failed movlw 0 movwf temp movf temp,f skpz goto failed clrf temp ;Clear a register skpz ;and verify that the Z bit in the goto failed ;status register was set. movf temp,w ;Read the register that was just skpz ;cleared, and again verify that Z goto failed ;was set incf temp,w ;Now this should cause the Z bit to skpnz ;get cleared. goto failed movlw 0xff movwf temp incf temp,f skpz goto failed ;; ;; incfsz ;; movlw 0xff movwf temp movf temp,f ;Should clear Z incfsz temp,w goto failed skpnz ;incfsz shouldn't affect Z goto failed incfsz temp,f ;temp should now be zero goto failed incfsz temp,w ;the following inst. shouldn't be skipped skpnz ;Z should be clear from above. goto failed ;; addlw 0xaa ;; ;; addwf test: ;; ;; The purpose of this test is to a) verify that the addwf instruction ;; adds correctly and b) that the appropriate status register bits are ;; set correctly. clrw clrf temp addwf temp,w ; 0+0 skpnc goto failed skpz goto failed skpndc goto failed movlw 1 ; 0+1 addwf temp,w skpnc goto failed skpnz goto failed skpndc goto failed movlw 8 ; 8+8 movwf temp addwf temp,w skpnc goto failed skpnz goto failed skpdc goto failed movlw 0x88 ; 0x88+0x88 movwf temp addwf temp,w skpc goto failed skpnz goto failed skpdc goto failed movlw 0x80 ; 0x80+0x80 movwf temp addwf temp,w skpc goto failed skpz goto failed skpndc goto failed movlw 1 movwf temp movlw 0xff addwf temp,w skpc goto failed skpz goto failed skpdc goto failed clrc clrdc ;; ;; andwf test: ;; clrf temp movlw 1 andwf temp,f skpz goto failed skpc skpndc goto failed andwf temp,w skpz goto failed skpc skpndc goto failed movlw 1 movwf temp andwf temp,f skpnz goto failed skpc skpndc goto failed movlw 0xff andwf temp,f ;1 & 0xff should = 1 skpnz goto failed skpc skpndc goto failed movlw 0xff ;Now add 0xff to see if temp addwf temp,f ;really is 1. (should cause a carry) skpnz skpc goto failed ;; ;; iorwf ;; movlw 0 movwf temp iorwf temp,f skpz goto failed movlw 1 iorwf temp,f skpnz goto failed movlw 0xff addwf temp,f skpnz skpc goto failed ;; ;; rlf ;; clrdc clrf temp clrc rlf temp,w skpdc skpnc goto failed skpz goto failed setc rlf temp,f skpdc skpnc goto failed skpz goto failed movlw 0xff addwf temp,f skpnz skpc goto failed rlf temp,f skpnc goto failed movlw 0x80 movwf temp rlf temp,w skpc goto failed movwf temp addwf temp,w skpz goto failed ;; ;; rrf ;; clrdc clrf temp clrc rrf temp,w skpdc skpnc goto failed skpz goto failed setc rrf temp,f skpdc skpnc goto failed skpz goto failed movlw 0x80 addwf temp,f skpnz skpc goto failed rrf temp,f skpnc goto failed movlw 1 movwf temp rrf temp,w skpc goto failed movwf temp addwf temp,w skpz goto failed ;; ;; subwf test: ;; clrw clrf temp subwf temp,w ; 0-0 skpc goto failed skpz goto failed skpdc goto failed movlw 1 ; 0-1 subwf temp,w skpnc goto failed skpnz goto failed skpndc goto failed movlw 0x10 ; 0x10-0x10 movwf temp subwf temp,w skpc goto failed skpz goto failed skpdc goto failed movlw 0x88 ; 0x88-0x88 movwf temp subwf temp,w skpc goto failed skpz goto failed skpdc goto failed clrf temp movlw 0x80 ; 0 - 0x80 subwf temp,f skpnc goto failed skpnz goto failed skpdc goto failed movlw 0 ; 0x80 - 0 subwf temp,w skpc goto failed skpnz goto failed skpdc goto failed movlw 1 ; 0x80 - 1 subwf temp,w skpc goto failed skpnz goto failed skpndc goto failed clrc clrdc ;; ;; xorwf ;; clrf temp movlw 0xff xorwf temp,f skpc skpndc goto failed skpnz goto failed xorwf temp,f skpz goto failed xorwf temp,f incfsz temp,f goto failed ;; ;; swapf ;; movlw 0x0f movwf temp swapf temp,f xorwf temp,f incfsz temp,f goto failed decf temp1,f incfsz temp1,w goto d1 ;; repeat the test with in the next bank of registers bsf FSR,5 goto start1 d1: bcf FSR,5 NOP NOP NOP NOP NOP NOP goto test_pcl end gpsim-0.27.0/regression/instructions_12bit/instructions_12bit.stc0000644000076400007640000000011110416271541022047 00000000000000# simple script to load the simulation load s instructions_12bit.cod gpsim-0.27.0/regression/instructions_12bit/Makefile0000644000076400007640000000052010563700464017237 00000000000000include ../make.regression SCRIPT = 12c508.lkr PROJECT = instructions_12bit OBJECTS = $(PROJECT).o OUTPUT = $(PROJECT).hex COD = $(PROJECT).cod STC = $(PROJECT).stc all : $(OUTPUT) $(OUTPUT) $(COD) : $(OBJECTS) $(SCRIPT) gplink --map -s $(SCRIPT) -o $(OUTPUT) $(OBJECTS) sim: $(COD) $(GPSIM) -i -I $(STARTUP_STC) -D STC=$(STC) gpsim-0.27.0/regression/instructions_12bit/12c508.lkr0000644000076400007640000000110410416271541017126 00000000000000// Sample linker command file for 12C508 // $Id: 12c508.lkr 1228 2005-08-23 16:36:11Z sdattalo $ LIBPATH . CODEPAGE NAME=page START=0x0 END=0x1FF CODEPAGE NAME=.idlocs START=0x200 END=0x203 PROTECTED CODEPAGE NAME=.config START=0xFFF END=0xFFF PROTECTED DATABANK NAME=sfrs START=0x0 END=0x06 PROTECTED DATABANK NAME=gprs START=0x07 END=0x1F SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location gpsim-0.27.0/regression/tmr3_16bit/0000775000076400007640000000000012210742356014006 500000000000000gpsim-0.27.0/regression/tmr3_16bit/18f452.lkr0000644000076400007640000000212110735406761015272 00000000000000// $Id: 18f452.lkr 1436 2006-01-21 23:28:33Z sdattalo $ // File: 18f452.lkr // Sample linker script for the PIC18F452 processor LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x29 PROTECTED CODEPAGE NAME=page START=0x2A END=0x7FFF CODEPAGE NAME=idlocs START=0x200000 END=0x200007 PROTECTED CODEPAGE NAME=config START=0x300000 END=0x30000D PROTECTED CODEPAGE NAME=devid START=0x3FFFFE END=0x3FFFFF PROTECTED CODEPAGE NAME=eedata START=0xF00000 END=0xF000FF PROTECTED ACCESSBANK NAME=accessram START=0x0 END=0x7F DATABANK NAME=gpr0 START=0x80 END=0xFF DATABANK NAME=gpr1 START=0x100 END=0x1FF DATABANK NAME=gpr2 START=0x200 END=0x2FF DATABANK NAME=gpr3 START=0x300 END=0x3FF DATABANK NAME=gpr4 START=0x400 END=0x4FF DATABANK NAME=gpr5 START=0x500 END=0x5FF ACCESSBANK NAME=accesssfr START=0xF80 END=0xFFF PROTECTED SECTION NAME=CONFIG ROM=config gpsim-0.27.0/regression/tmr3_16bit/tmr3_16bit.asm0000644000076400007640000001473710736167001016333 00000000000000 ;; tmr3_16bit.asm ;; ;; The purpose of this program is to test how well gpsim can simulate ;; TMR1 for a 16bit-core pic (like the 18fxxx family) although ;; most of the functionality is generic to all processors where ;; t1mer1 supports an external clock source. ;; ;; Here are the tests performed: ;; ;; -- TMR3 count seconds when driven by simulated external crystal ;; -- TMR3 driven Fosc/4 with prescale of 8 ;; -- TMR3 count seconds when driven by external stimuli ;; -- TMR3L and TMR3H can be read and written list p=18f452 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros radix dec ; Numbers are assumed to be decimal ;---------------------------------------------------------------------- ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- GPR_DATA UDATA temp RES 1 temp1 RES 1 temp2 RES 1 failures RES 1 TMR0_RollOver RES 1 TMR3_RollOver RES 1 countLo RES 1 countHi RES 1 TMR3H_Sampled RES 1 TMR3H_Last RES 1 SecondsLo RES 1 SecondsHi RES 1 GLOBAL countLo, countHi GLOBAL SecondsLo, SecondsHi ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- STARTUP CODE 0 bra Start ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x008 ; interrupt vector location check_TMR0_interrupt: ;;================== ;; TMR3 Interrupt ;;================== BTFSC INTCON,T0IF ;If the roll over flag is not set BTFSS INTCON,T0IE ;or the interrupt is not enabled bra checkTMR0IntEnd ; ;; TMR0 has rolled over. Clear the pending interrupt and notify ;; the foreground code by incrementing the "roll over" counter ;; Notice that the increment operation is atomic - this means ;; we won't have to worry about the foreground code and interrupt ;; code clashing over accesses to this variable. BCF INTCON,T0IF,0 ; Clear the pending interrupt INCF TMR0_RollOver,F ; Set a flag to indicate rollover checkTMR0IntEnd: ;;================== ;; TMR3 Interrupt ;;================== BTFSC PIR2,TMR3IF BTFSS PIE2,TMR3IE BRA checkTMR3IntEnd BCF PIR1,TMR3IF ;Clear the interrupt INCF TMR3_RollOver,F ;Set a flag BSF TMR3H, 7 ; Preload for 1 sec overflow ; Note, since we have a 32768 Hz crystal tied to TMR3 and we have the timer ; configured as a 16-bit timer TMR3H loaded with 0x80, then this interrupt ; will happen once every second. INFSNZ SecondsLo,F ;Update the system time. INCF SecondsHi,F CLRF TMR3H_Sampled CLRF TMR3H_Last checkTMR3IntEnd: ExitInterrupt: RETFIE 1 MAIN CODE Start: ;------------------------------------------------------------------------ ; ; Embedded simulation scripts ; ; Set the clock frequency to 10MHz .sim "frequency 10e6" ; define a stimulus to generate a 32kHz clock. This will be tied ; to TMR3's input and is used to simulate an external drive. ; ; 40MHz ; Instruction Rate = (4 clks/instruction) / (10e6 clks/second) ; = 400nS per instruction ; 32.768kHz ==> 30.517uS period ; Instruction Cycles/32.768kHz cycle = 30.517uS / .4uS ; = 76.2925 instructions ; .sim "stimulus asynchronous_stimulus " .sim "initial_state 0" .sim "start_cycle 0x2008130" .sim "period 305" .sim "{ 38,1 , 76,0 , 114,1 , 152,0 , 190,1 , 228,0 , 266,1}" .sim "name Clk32kHz" .sim "end" ; Create a node .sim "node clk_node" ; attach the clock .sim "attach clk_node Clk32kHz portc0" ; At reset, all bits of t1Con should be clear. .assert "t1con == 0x00" MOVLW (1< ; processor specific variable definitions include ; Grab some useful macros __CONFIG _CP_OFF & _IntRC_OSC & _MCLRE_OFF & _WDT_ON ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA 0x07 ee_state RES 1 eebyte RES 1 ee_bitcnt RES 1 eeaddr RES 1 eedata RES 1 failures RES 1 temp RES 1 GPR2_DATA UDATA 0x30 eeShadow RES 0x10 ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE goto start include "EEdriver.asm" start: movlw 0xC0 ; Set up GPIO pins movwf GPIO movlw 0x0F tris GPIO movlw 1<<7 ; Assume that we're going to fail movwf failures ; by setting the MSB of failures FillEEPROM: movlw 0 movwf temp movlw eeShadow movwf FSR FillLoop: clrwdt ; Set the address movf FSR,W andlw 0x0f movwf eeaddr ; Set the data swapf temp,W iorwf temp,W movwf eedata movwf INDF call write_byte .assert "W == 0x01, \"*** FAILED Write_byte returned error\"" nop FillWaitForWrite: call read_current btfss ee_state,ee_ok goto FillWaitForWrite .assert "W == 0x01, \"*** FAILED read_current error\"" nop movf INDF,W xorwf eedata,W skpnz goto loop_ok .assert "\"*** FAILED data mis-match\"" incf failures,f ; failed loop_ok: incf FSR,F incf temp,F btfss temp,4 goto FillLoop ; If we reach this point then it means that we didn't ; get stuck in the loop. bcf failures,7 movf failures,W skpz goto failed done: .assert "\"*** PASSED 12CE518 internal EEPROM test\"" goto done failed: .assert "\"*** FAILED 12CE518 internal EEPROM test\"" goto $ end gpsim-0.27.0/regression/p12ce518/Makefile0000644000076400007640000000050710656304433014646 00000000000000include ../make.regression SCRIPT = 12ce519.lkr PROJECT = p12ce518 OBJECTS = $(PROJECT).o OUTPUT = $(PROJECT).hex COD = $(PROJECT).cod STC = $(PROJECT).stc all : $(OUTPUT) $(OUTPUT) $(COD) : $(OBJECTS) $(SCRIPT) gplink --map -s $(SCRIPT) -o $(OUTPUT) $(OBJECTS) sim: $(COD) $(GPSIM) -i -I $(STARTUP_STC) -D STC=$(STC) gpsim-0.27.0/regression/p12ce518/EEdriver.asm0000644000076400007640000002562210416271556015425 00000000000000; ; Program: FL51XINC.ASM V1.10 ; Revision Date: ; 09-09-97 Adapted to 12C51x parts ; 01-Apr-1999 Added emulation hooks ; ; 01-July-2004 Modified to suit LinTrain ; ; nolist ; comment this line out for use on real part ;#define EMULATED ; ; PIC12C51X EEPROM communication code. This code should be included in ; with the application. These routines provide the following functionality: ; write a byte to a specified address. ; read a byte from a specified address. ; read a byte from the next address. ; ; Emulation Requires: ; MPLAB-ICE ; PCM16XA0 processor module ; DVA12XP80 Device Adapter. ; Define EMULATED at the top of this file (#define EMULATED) ; This will set the I2C_PORT, SDA and SCL lines to communicate over ; Port A, pins 0 and 1. It also assembles in the necessary TRIS ; instructions to allow reading from the SDA line. ; ; To convert the code for the actual part, simply comment out the #define EMULATED ; line and reassemble. ; ; ; INTRODUCTION: ; The Microchip 12CE51x family of microntrollers are multichip modules ; which contain a PIC12C508 microcontroller and a 24LC00 EEPROM. ; This application note is intended to provide users with highly compressed ; assembly code for communication between the EEPROM and the Microcontroller, ; which will leave the user a maximum amount of code space for the core ; application. ; ;*************************************************************************** ;*************************** EEPROM Subroutines ************************** ;*************************************************************************** ; Communication for EEPROM based on I2C protocol, with Acknowledge. ; ; Byte_Write: Byte write routine ; Inputs: EEPROM Address EEADDR ; EEPROM Data EEDATA ; Outputs: Return 01 in W if OK, else return 00 in W ; ; Read_Current: Read EEPROM at address currently held by EE device. ; Inputs: NONE ; Outputs: EEPROM Data EEDATA ; Return 01 in W if OK, else return 00 in W ; ; Read_Random: Read EEPROM byte at supplied address ; Inputs: EEPROM Address EEADDR ; Outputs: EEPROM Data EEDATA ; Return 01 in W if OK, else return 00 in W ; ; Note: EEPROM subroutines will set bit 7 in ee_state register if the ; EEPROM acknowledged OK, else that bit will be cleared. This bit ; can be checked instead of refering to the value returned in W ;*************************************************************************** ; ; OPERATION: ; For detailed operating information and other important information about ; this code, see AN571. This code was derived from AN571, with changes ; as appropriate for the specific hardware in the PIC12C51x parts. ;********************************************************************** ; ; ;*************************************************************************** ;*************************** Variable Listing **************************** ;*************************************************************************** ok equ 01h no equ 00h #ifdef EMULATED i2c_port equ 5 ; Port A control register, used for I2C scl equ 01h ; EEPROM Clock, SCL (I/O bit 7) sda equ 00h ; EEPROM Data, SDA (I/O bit 6) #else i2c_port equ GPIO ; Port B control register, used for I2C scl equ 07h ; EEPROM Clock, SCL (I/O bit 7) sda equ 06h ; EEPROM Data, SDA (I/O bit 6) #endif ee_ok equ 07h ; Bit 7 in ee_state used as OK flag for EE ; All variables declared in the RAMDEF.INC file ;*************************************************************************** ;*************************** EEPROM Subroutines ************************** ;*************************************************************************** ; Communication for EEPROM based on I2C protocol, with Acknowledge. ; ; WRITE_BYTE: Byte write routine ; Inputs: EEPROM Address EEADDR ; EEPROM Data EEDATA ; Outputs: Return 01 in W if OK, else return 00 in W ; ; READ_CURRENT: Read EEPROM at address currently held by EE device. ; Inputs: NONE ; Outputs: EEPROM Data EEDATA ; Return 01 in W if OK, else return 00 in W ; ; READ_RANDOM: Read EEPROM byte at supplied address ; Inputs: EEPROM Address EEADDR ; Outputs: EEPROM Data EEDATA ; Return 01 in W if OK, else return 00 in W ; ; Note: EEPROM subroutines will set bit 7 in ee_state register if the ; EEPROM acknowledged OK, else that bit will be cleared. This bit ; can be checked instead of refering to the value returned in W ;*************************************************************************** ;********************** Set up EEPROM control bytes ************************ ;*************************************************************************** read_current: movlw b'10000100' ; PC offset for read current addr. EE_OK bit7='1' movwf ee_state ; Load PC offset goto init_read_control write_byte: movlw b'10000000' ; PC offset for write byte. EE_OK: bit7 = '1' goto init_write_control read_random: movlw b'10000011' ; PC offset for read random. EE_OK: bit7 = '1' init_write_control: movwf ee_state ; Load PC offset register, value preset in W movlw b'10100000' ; Control byte with write bit, bit 0 = '0' start_bit: bcf i2c_port,sda ; Start bit, SDA and SCL preset to '1' ; ;******* Set up output data (control, address, or data) and ee_bitcnt ******** ;*************************************************************************** prep_transfer_byte: movwf eebyte ; Byte to transfer to EEPROM already in W movlw .8 ; ee_bitcnt to transfer 8 bits movwf ee_bitcnt #ifdef EMULATED movlw 0x00 ; make sure both are outputs tris i2c_port #endif ; ;************ Clock out data (control, address, or data) byte ************ ;*************************************************************************** output_byte: bcf i2c_port,scl ; Set clock low during data set-up rlf eebyte,f ; Rotate left, high order bit into carry bit bcf i2c_port,sda ; Set data low, if rotated carry bit is skpnc ; a '1', then: bsf i2c_port,sda ; reset data pin to a one, otherwise leave low nop bsf i2c_port,scl ; clock data into EEPROM decfsz ee_bitcnt,f ; Repeat until entire byte is sent goto output_byte nop ; ;************************** Acknowledge Check ***************************** ;*************************************************************************** bcf i2c_port,scl ; Set SCL low, 0.5us < ack valid < 3us nop bsf i2c_port,sda #ifdef EMULATED movlw (0x01 << sda) ; make SDA an input tris i2c_port #endif goto $+1 ; May be necessary for SCL Tlow at low voltage, bsf i2c_port,scl ; Raise SCL, EEPROM acknowledge still valid btfsc i2c_port,sda ; Check SDA for acknowledge (low) bcf ee_state,ee_ok ; If SDA not low (no ack), set error flag bcf i2c_port,scl ; Lower SCL, EEPROM release bus btfss ee_state,ee_ok ; If no error continue, else stop bit goto stop_bit #ifdef EMULATED movlw 0x00 ; SDA back to an output tris i2c_port #endif ; ;***** Set up program ee_bitcnt offset, based on EEPROM operating mode ***** ;*************************************************************************** movf ee_state,w andlw b'00001111' addwf PCL,f goto init_address ;PC offset=0, write control done, send address goto init_write_data ;PC offset=1, write address done, send data goto stop_bit ;PC offset=2, write done, send stop bit goto init_address ;PC offset=3, write control done, send address goto init_read_control ;PC offset=4, send read control goto read_byte_setup ;PC offset=5, set ee_bitcnt and read byte goto stop_bit ;PC offset=6, random read done, send stop ; ;********** Initalize EEPROM data (address, data, or control) bytes ****** ;*************************************************************************** init_address: incf ee_state,f ; Increment PC offset to 2 (write) or to 4 (read) movf eeaddr,w ; Put EEPROM address in W, ready to send to EEPROM goto prep_transfer_byte init_write_data: incf ee_state,f ; Increment PC offset to go to STOP_BIT next movf eedata,w ; Put EEPROM data in W, ready to send to EEPROM goto prep_transfer_byte init_read_control: bsf i2c_port,scl ; Raise SCL nop bsf i2c_port,sda ; raise SDA incf ee_state,f ; Increment PC offset to go to read_byte_setup next movlw b'10100001' ; Set up read control byte, ready to send to EEPROM goto start_bit ; bit 0 = '1' for read operation ; ;************************** Read EEPROM data ***************************** ;*************************************************************************** read_byte_setup: bsf i2c_port,sda nop bsf i2c_port,scl ; set data bit to 1 so we're not pulling bus down. movlw .8 ; Set ee_bitcnt so 8 bits will be read into EEDATA movwf ee_bitcnt #ifdef EMULATED movlw (0x01 << sda) tris i2c_port #endif read_byte: bsf i2c_port,scl ; Raise SCL, SDA valid. SDA still input from ack setc ; Assume bit to be read = 1 btfss i2c_port,sda ; Check if SDA = 1 clrc ; if SDA not = 1 then clear carry bit rlf eedata,f ; rotate carry bit (=SDA) into EEDATA bcf i2c_port,scl ; Lower SCL bsf i2c_port,sda ; reset SDA decfsz ee_bitcnt,f ; Loop until bit count expires goto read_byte ; Read next bit if not finished reading byte bsf i2c_port,scl nop bcf i2c_port,scl ;****************** Generate a STOP bit and RETURN *********************** ;*************************************************************************** stop_bit: #ifdef EMULATED movlw 0x00 ; set SDA as output tris i2c_port #endif bcf i2c_port,sda ; SDA=0, on TRIS, to prepare for transition to '1' bsf i2c_port,scl ; SCL = 1 to prepare for STOP bit goto $+1 ; 4 NOPs neccessary for I2C spec Tsu:sto = 4.7us goto $+1 bsf i2c_port,sda ; Stop bit, SDA transition to '1' while SCL high btfss ee_state,ee_ok ; Check for error retlw no ; if error, send back NO retlw ok ; if no error, send back OK ; ;Note: SDA and SCL still being driven by master, both set to outputs. ;**************************************************************************** list ;************************ End EEPROM Subroutines ************************** gpsim-0.27.0/regression/p12ce518/p12ce518.stc0000644000076400007640000000012210705351621015056 00000000000000# # Startup commands for testing the p12c518 # # Source code: load p12ce518.cod gpsim-0.27.0/regression/p16f84/0000775000076400007640000000000012210742356013044 500000000000000gpsim-0.27.0/regression/p16f84/reset.asm0000664000076400007640000002112412162224367014613 00000000000000 ; 12C509 gpsim regression test ; ; The purpose of this test is to verify that the 'C509 ; is implemented correctly. Here's a list of specific things ; tested: ; ; 1) Reset conditions ; 2) WDT ; 3) Sleep ; 4) Wakeup on PIN change. list p=16f84 include include __CONFIG _WDT_ON radix dec ; Printf Command .command macro x .direct "C", x endm GPR_DATA UDATA ResetSequence RES 1 optionShadow RES 1 w_temp RES 1 status_temp RES 1 temp1 RES 1 GLOBAL optionShadow, ResetSequence ; Define the reset conditions to be checked. eRSTSequence_PowerOnReset equ 1 eRSTSequence_AwakeMCLR equ 2 eRSTSequence_AwakeWDT equ 3 eRSTSequence_AwakeIO equ 4 eRSTSequence_WDTTimeOut equ 5 ;---------------------------------------------------------------------- ; ********************* STARTUP LOCATION *************************** ;---------------------------------------------------------------------- START CODE 0x000 ; ;############################################################ ;# Create a stimulus to simulate a switch ; .sim "module lib libgpsim_modules" .sim "module load pulsegen P_INTF" .sim "module load pulsegen P_RBIF" .sim "module load pulsegen RESET" .sim "RESET.initial = 5.0" .sim "P_INTF.clear = 0" ; At cycle 0, .sim "P_INTF.set = 1" .sim "P_RBIF.clear = 0" ; At cycle 0, .sim "P_RBIF.set = 1" ;############################################################ .sim "node nINTF" .sim "attach nINTF portb0 P_INTF.pin" .sim "node nRBIF" .sim "attach nRBIF portb4 P_RBIF.pin" .sim "node nRESET" ; .sim "attach nRESET p16f84.MCLR RESET.pin" .sim "attach nRESET MCLR RESET.pin" ;############################################################ .sim "symbol resetCounter=1" ; NOT_GPWU = 0 - Enable wakeup if I/O pins 0,1, or 3 change states ; NOT_GPPU = 1 - Disable weak pullups on I/O pins 0,1, and 3 ; TOCS = 0 - Let the clock source for TMR0 be the internal fosc/4 ; TOSE = 0 - don't care - TMR0 source edge. ; PSA = 1 - assign Prescale to the WDT ; PS2:0 = 000 - prescale = 2^0=1 .sim "optionShadow=8" ; PSA=1 .sim "ResetSequence=0" .sim ".BreakOnReset = false" .sim "p16f84.frequency=100000" ; Set a cycle break point far in the future in case the resets fail. .sim "break c 0x1000000" RESET_VECTOR CODE 0x000 ; processor reset vector .assert "option_reg==0xff,\"*** FAILED 16f84 reset bad OPTION_REG\"" .assert "(trisa&0x1f)==0x1f, \"*** FAILED 16f84 reset bad TRISA\"" .assert "(trisb&0xff)==0xff, \"*** FAILED 16f84 reset bad TRISB\"" movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,W movwf status_temp check_rbi: btfsc INTCON,RBIF btfss INTCON,RBIE goto check_int ; bsf temp5,1 ;Set a flag to indicate rb4-7 int occured bcf INTCON,RBIF movf PORTB,w check_int: btfsc INTCON,INTF btfss INTCON,INTE goto check_t0 ; bsf temp5,0 ;Set a flag to indicate rb0 int occured bcf INTCON,INTF check_t0: btfsc INTCON,T0IF btfss INTCON,T0IE goto exit_int ;; tmr0 has rolled over bcf INTCON,T0IF ; Clear the pending interrupt bsf temp1,0 ; Set a flag to indicate rollover exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie bSWITCH equ 0 ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start ; OPTION register setup BANKSEL OPTION_REG MOVF optionShadow,W ;optionShadow is initialized by the gpsim script MOVWF OPTION_REG ; GPIO setup ; If this is a PowerOn reset, then the state of the GPIO output register ; is unknown. If this is not a PowerOn reset then the GPIO pins have ; the same state they had prior to the reset. ; ; TRIS register setup - The I/O pins are always configured as Inputs after ; any reset. RB0 equ 0 RB4 equ 4 MOVLW (1< /MCLR while sleeping ; -or- Interrupt wake-up from sleep goto PowerOnReset ;/TO=1, /PD=1 ==> Power has just been applied TO_is_low BTFSS STATUS,NOT_PD goto AwakeWDT ;/TO=0, /PD=0 ==> WDT while sleeping goto WDTTimeOut ;/TO=0, /PD=1 ==> WDT while not sleeping BTFSC INTCON, RBIF ;Did we just wake up from SLEEP due goto AwakeIO ;to a change in the I/O pins? ;======================================================================== ; ; PowerOnReset ; ;======================================================================== PowerOnReset: movf ResetSequence,W XORLW eRSTSequence_AwakeMCLR skpnz goto done movf PORTB,W ;Clear RBIF .assert "(intcon&1)==0, \"*** FAILED to clear INTCON\"" nop .assert "resetCounter==1,\"*** FAILED Power On Reset\"" MOVLW eRSTSequence_PowerOnReset MOVWF ResetSequence CLRWDT .command "resetCounter = resetCounter+1" SLEEP ; The WDT should cause a reset. So we shouldn't fall through ; (note, the instruction after the SLEEP should not be executed). ; RRR WDT will not cause a reset but will fall through nop ;RRR .command "resetCounter = resetCounter+1" nop ;======================================================================== ; ; AwakeWDT - WDT timed out while we were sleeping. ; ;======================================================================== AwakeWDT: .assert "resetCounter==2,\"*** FAILED WDT Reset\"" MOVLW eRSTSequence_AwakeWDT MOVWF ResetSequence .command "resetCounter = resetCounter+1" CLRWDT ; loop until WDT times out here: goto here ;======================================================================== ; ; WDTTimeOut - WatchDog timer timed out while we were awake. ; ;======================================================================== WDTTimeOut: .assert "resetCounter==3,\"*** FAILED WDT timeout\"" MOVLW eRSTSequence_WDTTimeOut MOVWF ResetSequence CLRWDT .command "P_RBIF.clear = cycles+100" nop ; Keep interrupts enabled, but turn on RBIE. Changes on ; RB4-RB7 should wake us from sleep MOVLW 1< ; processor specific variable definitions include ; Grab some useful macros CONFIG_WORD EQU _CP_OFF & _WDT_OFF __CONFIG CONFIG_WORD ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA failures RES 1 GLOBAL done ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ; Node Test ; This script will tie Port A and Port B together ;"# First, create 8 nodes: .sim "node loop_back0" .sim "node loop_back1" .sim "node loop_back2" .sim "node loop_back3" .sim "node loop_back4" .sim "node loop_back5" .sim "node loop_back6" .sim "node loop_back7" ;# Now tie the ports together: .sim "attach loop_back0 portb0 porta0" .sim "attach loop_back1 portb1 porta1" .sim "attach loop_back2 portb2 porta2" .sim "attach loop_back3 portb3 porta3" .sim "attach loop_back4 portb4 porta4" ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start CLRF failures ;Assume success MOVLW 0xff BSF STATUS,RP0 CLRF TRISA^0x80 ;Port A is an output MOVWF TRISB^0x80 ;Port B is an input BSF OPTION_REG ^ 0x80, NOT_RBPU ;Disable the pullups BCF STATUS,RP0 MOVLW 0x0F a_to_b_loop: MOVWF PORTA ;Port A and Port B are externally XORWF PORTB,W ;connected. So we should see the SKPZ ;same thing on each port. GOTO FAILED DECFSZ PORTB,W goto a_to_b_loop BSF PORTA,4 ;Port A bit 4 is an open collector. BTFSC PORTB,4 .assert "\"*** FAILED 16f84 test -RA4 stuck high\"" GOTO FAILED ; Now let's write from PORTB to PORTA. ; With the configuration bit setting we have, all of PORTA I/O lines ; should be able to serve as inputs BSF STATUS,RP0 COMF TRISA^0x80,F ;Port A is now an input port COMF TRISB^0x80,F ;Port B is now an output port BCF STATUS,RP0 CLRW b_to_a_loop: MOVWF PORTB ;Port A and Port B are externally XORWF PORTA,W ;connected. So we should see the ANDLW 0x1f SKPZ ;same thing on each port. GOTO FAILED DECFSZ PORTB,W goto b_to_a_loop ; ; Now test PORTB's internal pullups ; CLRF PORTB MOVLW 0xff BSF STATUS,RP0 MOVWF TRISA^0x80 ;Port A is an input MOVWF TRISB^0x80 ;Port B is an input BSF OPTION_REG ^ 0x80, NOT_RBPU ;Disable the pullups BCF STATUS,RP0 MOVF PORTB,W ANDLW 0x0F SKPZ GOTO FAILED BSF STATUS,RP0 BCF OPTION_REG ^ 0x80, NOT_RBPU ;Enable the pullups BCF STATUS,RP0 MOVF PORTB,W ;All lines should be high XORLW 0xFF SKPZ GOTO FAILED GOTO done FAILED: .assert "\"*** FAILED 16f84 test\"" INCF failures,F done: .assert "\"*** PASSED 16f84 test\"" GOTO $ end gpsim-0.27.0/regression/tmr0_16bit/0000775000076400007640000000000012210742356014003 500000000000000gpsim-0.27.0/regression/tmr0_16bit/delay.asm0000644000076400007640000000266710416271512015531 00000000000000 list p=18f452 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros radix dec ; Numbers are assumed to be decimal GLOBAL DelayCycles GLOBAL Delay256N GLOBAL Delay4 GLOBAL Delay5 GLOBAL Delay6 GLOBAL Delay7 GLOBAL Delay8 GLOBAL Delay9 DELAY_CODE CODE ;------------------------------------------------------------ ; DelayCycles: ; ; Input: W -- the desired delay ; Output: Returns after W+7 cycles DelayCycles: dc1: ADDLW -3 ;3-cycle delay loop BC dc1 ; W now contains either -3 (0xFD), -2 (0xFE) or -1 (0xFF). ; The -2 case needs to be delayed an extra cycle more than ; the -3 case, and the -1 case needs yet another cycle of delay. ; ; Examine the bottom two bits and W to determine the exact delay ; BTFSS WREG,1 BRA dc2 ;W=0xFD - no extra delay needed RRCF WREG,F BC dc2 dc2: RETURN Delay256Loop RCALL Delay4 Delay256N: RCALL dc3 DECFSZ WREG,F bra Delay256Loop Delay5 NOP Delay4 RETURN dc3: RCALL Delay64 RCALL Delay32 RCALL Delay16 RCALL Delay8 NOP Delay128 RCALL Delay64 Delay64 RCALL Delay32 Delay32 RCALL Delay16 Delay16 RCALL Delay8 Delay8 nop Delay7 nop Delay6 bra Delay4 Delay9 bra Delay7 END gpsim-0.27.0/regression/tmr0_16bit/tmr0_16bit.stc0000755000076400007640000000007710416377752016344 00000000000000# simple script to load the simulation load s tmr0_16bit.cod gpsim-0.27.0/regression/tmr0_16bit/tmr0_16bit.asm0000664000076400007640000002374411523447517016335 00000000000000 ;; tmr0_16bit.asm ;; ;; The purpose of this program is to test how well gpsim can simulate ;; TMR0 for a 16bit-core pic (like the 18fxxx family) ;; Here are the tests performed: ;; ;; -- TMR0L and TMR0H can be read and written ;; -- Writing to TMR0L list p=18f452 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros radix dec ; Numbers are assumed to be decimal include "delay.inc" ; Defines the "DELAY" macro ;---------------------------------------------------------------------- ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- GPR_DATA UDATA temp RES 1 temp1 RES 1 temp2 RES 1 failures RES 1 TMR0_RollOver RES 1 tmr0Lo RES 1 tmr0Hi RES 1 psa RES 1 b16bitMode RES 1 countLo RES 1 countHi RES 1 GLOBAL tmr0Lo, tmr0Hi GLOBAL psa,b16bitMode GLOBAL done GLOBAL TMR0_RollOver GLOBAL countLo, countHi ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- STARTUP CODE 0 bra Start ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x008 ; interrupt vector location check_TMR0_interrupt: BTFSC INTCON,T0IF ;If the roll over flag is not set BTFSS INTCON,T0IE ;or the interrupt is not enabled RETFIE 1 ; Then leave ;; TMR0 has rolled over. Clear the pending interrupt and notify ;; the foreground code by incrementing the "roll over" counter ;; Notice that the increment operation is atomic - this means ;; we won't have to worry about the foreground code and interrupt ;; code clashing over accesses to this variable. BCF INTCON,T0IF,0 ; Clear the pending interrupt INCF TMR0_RollOver,F ; Set a flag to indicate rollover ExitInterrupt: RETFIE 1 MAIN CODE Start: ; At reset, all bits of t0Con should be set. .assert "t0con == 0xff" nop ;------------------------------------------------------------ ; The high byte of TMR0 is exposed to the firmware as a shadow register. When ; firmware writes to this register, the value is latched. When the firmware ; writes the to the low byte, then the latched high byte will get copied ; along with the low byte to TMR0. This allows all 16-bits to be written in a ; single cycle. Similarly, when TMR0L is read, the high byte of the timer ; is copied to the shadowed register. TMR0H_ShadowRegisterTest: .command "echo *** Testing TMR0H" MOVLW 42 MOVWF TMR0H .assert "tmr0h == 42" nop MOVWF TMR0L .assert "tmr0l == 42" nop MOVF TMR0L,W .assert "tmr0l == 42" nop MOVF TMR0H,W .assert "tmr0h == 42" nop ; Clear the shadowed TMR0H register and verify that it cleared. CLRF TMR0H .assert "tmr0h == 0" nop ; Now, when we read the low byte of Timer 0, the high byte gets ; refreshed. So let's check that TMR0H changes due to a TMR0L read: MOVF TMR0L,W .assert "tmr0l == 42" nop MOVF TMR0H,W .assert "tmr0h == 42" NOP TMR0_8BitModeTest: .command "echo *** Testing 8-bit mode" ; Stop the timer and clear its value CLRF T0CON CLRF TMR0L CLRF TMR0H .assert "(tmr0l == 0) && (tmr0h == 0)" nop ; The timer is off, so any value written to it should be read back ; unchanged. MOVLW 42 MOVWF TMR0L .assert "tmr0l == 42" NOP MOVWF TMR0H .assert "tmr0h == 42" NOP MOVWF tmr0Hi ;------------------------------------------------------------ ; 8-bit mode tests ; ; First, TMR0 is tested in 8-bit mode and with interrupts disabled. ; All 8 combinations of PSA are tested. CLRF psa ; Shadow's the PSA bits of T0CON L1_tmr0_8BitModeTest: ; Beginning of the loop ; Start off with T0CON and TMR0L in a known state. .command "psa" CLRF T0CON CLRF TMR0L CLRF tmr0Lo ; Assume that the PSA is not assigned to TMR0: MOVLW (1<>psa)" NOP .assert "tmr0l == ((tmr0Lo+5)>>psa)" NOP .assert "tmr0l == ((tmr0Lo+6)>>psa)" NOP .assert "tmr0l == ((tmr0Lo+7)>>psa)" NOP .assert "tmr0l == ((tmr0Lo+8)>>psa)" NOP .assert "tmr0l == ((tmr0Lo+9)>>psa)" NOP .assert "tmr0l == ((tmr0Lo+10)>>psa)" ; 8 23-cycle delays. MOVLW 23 - 10 RCALL DelayCycles .assert "tmr0l == ((tmr0Lo+33)>>psa )" MOVLW 23 - 10 RCALL DelayCycles .assert "tmr0l == ((tmr0Lo+56)>>psa )" MOVLW 23 - 10 RCALL DelayCycles .assert "tmr0l == ((tmr0Lo+79)>>psa )" MOVLW 23 - 10 RCALL DelayCycles .assert "tmr0l == ((tmr0Lo+102)>>psa )" MOVLW 23 - 10 RCALL DelayCycles .assert "tmr0l == ((tmr0Lo+125)>>psa )" MOVLW 23 - 10 RCALL DelayCycles .assert "tmr0l == ((tmr0Lo+148)>>psa )" MOVLW 23 - 10 RCALL DelayCycles .assert "tmr0l == ((tmr0Lo+171)>>psa )" MOVLW 23 - 10 RCALL DelayCycles .assert "tmr0l == ((tmr0Lo+194)>>psa )" ; 255 and 256 cycle boundary condition MOVLW 61 - 10 RCALL DelayCycles .assert "tmr0l == ((tmr0Lo+255)>>psa )" NOP .assert "tmr0l == (((tmr0Lo+256)>>psa)&0xff)" ; now for some bigger delays. DELAY 251 .assert "tmr0l == (((tmr0Lo+256+251)>>psa)&0xff)" DELAY 251 .assert "tmr0l == (((tmr0Lo+256+2*251)>>psa)&0xff)" DELAY 251 .assert "tmr0l == (((tmr0Lo+256+3*251)>>psa)&0xff)" DELAY 251 .assert "tmr0l == (((tmr0Lo+256+4*251)>>psa)&0xff)" DELAY 251 .assert "tmr0l == (((tmr0Lo+256+5*251)>>psa)&0xff)" DELAY 251 .assert "tmr0l == (((tmr0Lo+256+6*251)>>psa)&0xff)" DELAY 251 .assert "tmr0l == (((tmr0Lo+256+7*251)>>psa)&0xff)" DELAY 251 .assert "tmr0l == (((tmr0Lo+256+8*251)>>psa)&0xff)" DELAY 8191 .assert "tmr0l == (((tmr0Lo+256+8*251+8191)>>psa)&0xff)" INCF psa,F btfss psa,3 bra L1_tmr0_8BitModeTest ; Through looping through all combinations of PSA. ; Now make sure that the high byte of TMR0 hasn't changed. MOVF TMR0H,W .assert "W == tmr0Hi" NOP ;------------------------------------------------------------ ; Interrupt tests NOP NOP NOP CLRF T0CON ;Stop TMR0 CLRF INTCON ;Clear any pending interrupts BSF INTCON,T0IE ;Enable TMR0 overflow interrupts BSF INTCON,GIE ;Enable global interrupts CLRF psa ;Loop counter and prescaler assignment. L1_InterruptTest: ; Stop and clear TMR0: CLRF T0CON CLRF TMR0H CLRF TMR0L CLRF TMR0_RollOver ;Interrupt flag ;Software counter to count cycles SETF countLo ;Start off with counter==-1 SETF countHi ; Assume that the PSA is not assigned to TMR0: MOVLW (1<>(5+psa)) == 1" nop INCF psa,F btfss psa,3 bra L1_InterruptTest ; ; test that t0 continues to run after sleep woken up by t1 nop bsf T0CON,PSA ; bypass precounter bsf T1CON,T1SYNC ;sync off bsf T1CON,TMR1ON ; start timer 1 bsf PIE1,TMR1IE ; turn on interrupt sleep movf TMR0L,W bcf T1CON,TMR1ON ; stop timer 1 nop nop .assert "tmr0l != W, \"*** FAILED 16bit-core TMR0 test- TMR0 stopped after sleep\"" nop ; ; TMR0 should not interrupt during sleep as it is turned off ; The WDT cancels the sleep ; clrf TMR0_RollOver sleep nop .assert "TMR0_RollOver == 0, \"*** FAILED 16bit-core TMR0 test- TMR0 interrupt in sleep\"" nop ;------------------------------------------------------------ ; 16bit-mode tests CLRF psa L1_tmr0_16BitModeTest: CLRF T0CON CLRF TMR0H CLRF TMR0L ; Assume that the PSA is not assigned to TMR0: MOVLW (1<>psa))" MOVF TMR0L,W .assert "( ((tmr0h<<8)+W) == (2>>psa))" MOVF TMR0L,W .assert "( ((tmr0h<<8)+W) == (3>>psa))" MOVF TMR0L,W .assert "( ((tmr0h<<8)+W) == (4>>psa))" MOVF TMR0L,W .assert "( ((tmr0h<<8)+W) == (5>>psa))" MOVF TMR0L,W MOVWF tmr0Lo .command "tmr0Lo" .command "tmr0h" DELAY 1024-2 MOVF TMR0L,W MOVWF tmr0Lo .command "tmr0Lo" .command "tmr0h" DELAY 8192-2 MOVF TMR0L,W MOVWF tmr0Lo .command "tmr0Lo" .command "tmr0h" INCF psa,F btfss psa,3 bra L1_tmr0_16BitModeTest nop done: .assert "\"*** PASSED 16bit-core TMR0 test\"" bra $ failed: movlw 1 movwf failures .assert "\"*** FAILED 16bit-core TMR0 test\"" bra done end gpsim-0.27.0/regression/tmr0_16bit/18f452.lkr0000644000076400007640000000212110416271512015255 00000000000000// $Id: 18f452.lkr 1310 2005-10-03 13:59:01Z sdattalo $ // File: 18f452.lkr // Sample linker script for the PIC18F452 processor LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x29 PROTECTED CODEPAGE NAME=page START=0x2A END=0x7FFF CODEPAGE NAME=idlocs START=0x200000 END=0x200007 PROTECTED CODEPAGE NAME=config START=0x300000 END=0x30000D PROTECTED CODEPAGE NAME=devid START=0x3FFFFE END=0x3FFFFF PROTECTED CODEPAGE NAME=eedata START=0xF00000 END=0xF000FF PROTECTED ACCESSBANK NAME=accessram START=0x0 END=0x7F DATABANK NAME=gpr0 START=0x80 END=0xFF DATABANK NAME=gpr1 START=0x100 END=0x1FF DATABANK NAME=gpr2 START=0x200 END=0x2FF DATABANK NAME=gpr3 START=0x300 END=0x3FF DATABANK NAME=gpr4 START=0x400 END=0x4FF DATABANK NAME=gpr5 START=0x500 END=0x5FF ACCESSBANK NAME=accesssfr START=0xF80 END=0xFFF PROTECTED SECTION NAME=CONFIG ROM=config gpsim-0.27.0/regression/tmr0_16bit/Makefile0000664000076400007640000000046711530424064015367 00000000000000include ../make.regression SCRIPT = 18f452.lkr PROJECT = tmr0_16bit OBJECTS = $(PROJECT).o delay.o OUTPUT = $(PROJECT).hex COD = $(PROJECT).cod all : $(OUTPUT) $(OUTPUT) $(COD) : $(OBJECTS) $(SCRIPT) gplink --map -s $(SCRIPT) -o $(OUTPUT) $(OBJECTS) sim: $(COD) $(GPSIM) -i -I $(STARTUP_STC) -D STC=$< gpsim-0.27.0/regression/tmr0_16bit/delay.inc0000644000076400007640000000167510416271512015520 00000000000000 EXTERN DelayCycles EXTERN Delay256N EXTERN Delay4 EXTERN Delay5 EXTERN Delay6 EXTERN Delay7 EXTERN Delay8 EXTERN Delay9 ;------------------------------------------------------------------------ ; DELAY macro ; ; The purpose of this macro is to delay exactly "delay" number of instruction ; cycles, where: ; ; ; 0 < delay < 65547 ; DELAY macro delay if delay == 1 NOP else if delay == 2 BRA $+2 else if delay == 3 NOP BRA $+2 else if delay<10 RCALL Delay#v(delay) else if delay < 265 MOVLW delay-10 RCALL DelayCycles else if delay < 274 RCALL Delay9 MOVLW delay-10-9 RCALL DelayCycles else MOVLW (delay-11) & 0xff RCALL DelayCycles MOVLW (delay-11)>>8 RCALL Delay256N endif endif endif endif endif endif endm gpsim-0.27.0/regression/tmr0_16bit/q.stc0000644000076400007640000000002111177745363014701 00000000000000load tmr0bug.cod gpsim-0.27.0/regression/tmr0_16bit/tmr0bug.asm0000644000076400007640000000332311177732256016015 00000000000000 list p=18F2455 include p18f2455.inc radix decimal ;Program Configuration Register 1H ; __CONFIG _CONFIG1H, _OSCS_OFF_1H & _HSPLL_OSC_1H ;Program Configuration Register 2L ; __CONFIG _CONFIG2L, _BOR_OFF_2L & _PWRT_ON_2L ;Program Configuration Register 2H ; __CONFIG _CONFIG2H, _WDT_OFF_2H cblock 0x20 counth,countl ;for timer0 interrupt counter msecsh,msecsl seconds tmps,tmp10 wsave ssave endc ;onecycle equ 256-10000/128 ;time for 1msec onecycle equ 0x78 org 0 goto main org 8 goto highpint org 18 retfie highpint: movwf wsave ;save WREG swapf STATUS,w ;save STATUS movwf ssave movlw 0xff movlw 0xec ;rrr movwf TMR0H movlw onecycle movwf TMR0L ;re-initialize the timer for next time decf msecsl,f bnz skip0 movf msecsh,w btfsc STATUS,Z goto resetms decf msecsh,f ;rrr changed w to f goto skip0 resetms: movlw 1000&255 movwf msecsl movlw 1000>>8 movwf msecsh incf seconds,f skip0: bcf INTCON,T0IF ;re-enable interrupt swapf ssave,w movwf STATUS swapf wsave,f swapf wsave,w retfie ; main: movlw 0x80 ;tmr0on=1,t08bit=0,t0cs=0,t0se=-,psa=0,t0ps2=0,t0ps1=0,t0ps0=0 ;so timer0 will run at chip instruction frequency as a 16bit timer movwf T0CON movlw 0xff movlw 0xec ; rrr` movwf TMR0H movlw onecycle movwf TMR0L ;initialize the timer for 1 msec movlw 1000&255 movwf msecsl movlw 1000>>8 movwf msecsh clrf seconds bcf INTCON,T0IF ;clear interrupt flag bsf INTCON,T0IE ;enable interrupt bsf INTCON,GIE ;enable interrupts ; mainloop: goto mainloop end gpsim-0.27.0/regression/txisr_test/0000775000076400007640000000000012210742356014324 500000000000000gpsim-0.27.0/regression/txisr_test/txisr_test.stc0000644000076400007640000000011110431212141017141 00000000000000 # simple script to load and start the simulation load s txisr_test.cod gpsim-0.27.0/regression/txisr_test/16f871.lkr0000644000076400007640000000251410525705327015616 00000000000000// Sample linker command file for 16F871 LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page0 START=0x5 END=0x7FF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x213F PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18F PROTECTED SHAREBANK NAME=gprnobnk0 START=0x20 END=0x6F SHAREBANK NAME=gprnobnk0 START=0x120 END=0x16F SHAREBANK NAME=gprnobnk1 START=0xA0 END=0xBF SHAREBANK NAME=gprnobnk1 START=0x1A0 END=0x1BF SHAREBANK NAME=gprnobnk2 START=0x70 END=0x7F SHAREBANK NAME=gprnobnk2 START=0xF0 END=0xFF SHAREBANK NAME=gprnobnk2 START=0x170 END=0x17F SHAREBANK NAME=gprnobnk2 START=0x1F0 END=0x1FF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG1 ROM=page0 // ROM code space - page0 SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/txisr_test/Makefile0000644000076400007640000000054610563700447015713 00000000000000# USART module transmit interrupt regression test # # include ../make.regression SCRIPT = 16f871.lkr PROJECT = txisr_test OBJECTS = $(PROJECT).o OUTPUT = $(PROJECT).hex COD = $(PROJECT).cod all : $(OUTPUT) $(OUTPUT) $(COD) : $(OBJECTS) $(SCRIPT) gplink --map -s $(SCRIPT) -o $(OUTPUT) $(OBJECTS) sim: $(COD) $(GPSIM) -i -I $(STARTUP_STC) -D STC=$< gpsim-0.27.0/regression/txisr_test/txisr_test.asm0000644000076400007640000001035010563700447017157 00000000000000 ;; USART TXISR test ;; ;; The purpose of this program is to verify that gpsim's ;; USART module generates TX interrupts properly. ;; ;; ;; list p=16f871 include include __CONFIG _WDT_OFF errorlevel -302 radix dec ;---------------------------------------------------------------------- ; RAM Declarations ; INT_VAR UDATA 0x20 w_temp RES 1 status_temp RES 1 pclath_temp RES 1 ;fsr_temp RES 1 INT_VAR1 UDATA 0xA0 w_temp1 RES 1 ;Alias for w_temp at address 0x20 GPR_DAT UDATA 0x30 temp1 RES 1 temp2 RES 1 tx_ptr RES 1 rxLastByte RES 1 rxFlag RES 1 GLOBAL tx_ptr ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH .assert "tx_ptr==0, \"*** FAILED unexpected reset\"" goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,w clrf STATUS movwf status_temp movf PCLATH,w movwf pclath_temp clrf PCLATH bcf STATUS,RP0 btfss PIR1,TXIF goto int_done call tx_message movwf TXREG btfss tx_ptr,5 goto int_done bsf STATUS,RP0 bcf PIE1^0x80,TXIE ; Enable Tx interrupts bcf STATUS,RP0 int_done: clrf STATUS movf pclath_temp,w movwf PCLATH swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;; ---------------------------------------------------- ;; ;; start ;; MAIN CODE start .sim ".frequency=20e6" .sim "module library libgpsim_modules" .sim "module load usart U1" ; .sim "U1.xpos = 250.0" ; .sim "U1.ypos = 80.0" .sim "node PIC_tx" .sim "node PIC_rx" ;; Tie the USART module to the PIC .sim "attach PIC_tx portc6 U1.RXPIN" .sim "attach PIC_rx portc7 U1.TXPIN" ;; Set the USART module's Baud Rate .sim "U1.txbaud = 9600" .sim "U1.rxbaud = 9600" .sim "tx_ptr=0" ;; USART Initialization ;; ;; Turn on the high baud rate (BRGH), disable the transmitter, ;; disable synchronous mode. ;; clrf STATUS bsf PORTC,6 ;Make sure the TX line drives high when ;it is programmed as an output. bsf STATUS,RP0 bsf TRISC,7 ;RX is an input bcf TRISC,6 ;RC6 must be an input for TX to drive pin ;; CSRC - clock source is a don't care ;; TX9 - 0 8-bit data ;; TXEN - 0 don't enable the transmitter. ;; SYNC - 0 Asynchronous ;; BRGH - 1 Select high baud rate divisor ;; TRMT - x read only ;; TX9D - 0 not used movlw (1< ; processor specific variable definitions include ; Grab some useful macros .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA LoopCounter RES 1 lastADRES RES 1 a2dIntFlag RES 1 ;LSB is set when an A2D interrupt occurs GLOBAL done GLOBAL a2dIntFlag, LoopCounter ;------------------------------------------------------------------------ STARTUP CODE 0 bra Start ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x008 ; interrupt vector location check_TMR0_interrupt: btfsc PIR1,ADIF ;If A2D int flag is not set btfsc PIE1,ADIE ;Or the interrupt is not enabled goto a2dint .assert "\"FAIL 18F452 unexpected interrupt\"" nop RETFIE 1 ; Then leave ;; An A/D interrupt has occurred a2dint: bsf a2dIntFlag,0 ;Set a flag to indicate we got the int. bcf PIR1,ADIF ;Clear the a/d interrupt ExitInterrupt: RETFIE 1 ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup V1" .sim "V1.resistance = 100.0" .sim "node na0" ;.sim "attach na0 V1.pin porta0" .sim "stimulus asynchronous_stimulus" ;# Specify the initial state of the stimulus. Note that this ;# is the value the stimulus is BEFORE start_cycle. .sim "initial_state 0.0" ;# all times are with respect to the cpu's cycle counter .sim "start_cycle 1" ;# the asynchronous stimulus will roll over in 'period' ;# cycles. Delete this line if you don't want a roll over. .sim "period 7000" ;# gpsim assumes digital data by default .sim "analog" ;# Now specify the data points. Each point needs two values: ;# the time at which it changes and the value to which it ;# changes. ;# t v ;# ---- ---------- .sim "{ 1000, 0.0," .sim " 2000, 1.0," .sim " 3000, 2.0," .sim " 4000, 3.0," .sim " 5000, 4.0," .sim " 6000, 5.0 }" .sim "name asy_analog" .sim "end" .sim "attach na0 asy_analog porta0" Start: ; RA0 is an Analog Input. ; RA1 - RA5 are all configured as outputs. ; ; Use VDD and VSS for Voltage references. ; ; PCFG = 1110 == AN0 is the only analog input ; ADCS = 110 == FOSC/64 ; ADFM = 0 == 6 LSB of ADRESL are 0. ; MOVLW 1< ; processor specific variable definitions include ; Grab some useful macros .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA temp RES 1 temp1 RES 1 temp2 RES 1 w_temp RES 1 status_temp RES 1 GLOBAL done ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector .sim "symbol callCounter=1" .sim "symbol callFrom=0" .sim "symbol cycleCounter=0" movlw high start ; load upper byte of 'start' label .assert "callCounter==1,\"*** FAILED Call level 1\"" movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,W movwf status_temp check_t0: btfsc INTCON,T0IF btfss INTCON,T0IE goto exit_int ;; tmr0 has rolled over bcf INTCON,T0IF ; Clear the pending interrupt bsf temp1,0 ; Set a flag to indicate rollover exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: call L1 .assert "callCounter==2,\"*** FAILED Call level 1\"" nop call L2 .assert "callCounter==4,\"*** FAILED Call level 1\"" nop call L3 .assert "callCounter==7,\"*** FAILED Call level 1\"" nop .command "callCounter = 2" call L1 .assert "callCounter==3,\"*** FAILED Call level 1\"" call L1 .assert "callCounter==4,\"*** FAILED Call level 1\"" call L1 .assert "callCounter==5,\"*** FAILED Call level 1\"" nop .command "callCounter = 2" call Nest1 .assert "callCounter==0x124,\"*** FAILED Call level 3\"" ;; Verify instruction cycle counts .command "cycleCounter = cycles" nop .assert "(cycleCounter+1) == cycles" goto $+1 .assert "(cycleCounter+3) == cycles" call L1 .assert "(cycleCounter+7) == cycles" ;; ;; tmr0 test ;; ;; The following block of code tests tmr0 together with interrupts. ;; Each prescale value (0-7) is loaded into the timer. The software ;; waits until the interrupt due to tmr0 rollover occurs before ;; loading the new prescale value. clrwdt bsf INTCON,T0IE ;Enable TMR0 overflow interrupts bsf INTCON,GIE ;Global interrupts clrf temp1 ;Software flag used to monitor when the ;interrupt has been serviced. clrw test_tmr0: option ;Assign new prescale value test_flag: clrwdt call Test1 btfss temp1,0 ;Wait for the interrupt to occur and goto test_flag ;get serviced clrf temp1 ;Clear flag for the next time bsf STATUS,RP0 incf (OPTION_REG^0x80),W bcf STATUS,RP0 andlw 0x7 ;Check the prescaler skpz goto test_tmr0 ; ; Now test 14-bit core SFRs (which should be done in an SFR test but there isn't one) ; movlw 0xFF movwf PCLATH .assert "pclath == 0x1F, \"*** FAILED 14-bit PCLATH masking\"" nop clrf PCLATH goto done L1: .command "callCounter = callCounter+1" return L2: .command "callCounter = callCounter+2" return L3: .command "callCounter = callCounter+3" return Nest1: .command "callCounter = callCounter+1" call Nest2 .command "callCounter = callCounter+1" return Nest2: .command "callCounter = callCounter+0x10" call Nest3 .command "callCounter = callCounter+0x10" return Nest3: .command "callCounter = callCounter+0x100" return Test1: .command "callCounter = 2" call Test2 .assert "callCounter == 7,\"*** FAILED Call level 4\"" ; .command "callFrom=2" call Test3 ; .assert "callCounter == 9,\"*** FAILED Call level 4\"" ; .command "callFrom=3" call Test4 ; .assert "callCounter == 10,\"*** FAILED Call level 4\"" return Test2: ; .command "callFrom=2" call Test3 .command "callCounter = callCounter+1" ; .command "callFrom=3" call Test4 .command "callCounter = callCounter+1" return Test3: ; .assert "callFrom==2" ; nop ; .command "callFrom=3" call Test4 .command "callCounter = callCounter+1" return Test4: .command "callCounter = callCounter+1" ; .assert "callFrom==3" return done: .assert "\"*** PASSED Midrange core Branching test\"" nop end gpsim-0.27.0/regression/instructions_14bit/instructions_14bit.asm0000644000076400007640000001677311146407740022072 00000000000000 ;; it.asm ;; ;; The purpose of this program is to test how well gpsim can simulate ;; instructions on a mid-range (14bit core) Pic. list p=16f628 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA temp RES 1 temp1 RES 1 temp2 RES 1 GLOBAL done ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start clrf temp1 ;Assume clrf works... ; ;; ;; map tmr0 to the internal clock ;; clrw option ;initialize tmr0 BankLoop: ;; Perform some basic tests on some important instructions setc ;set the Carry flag skpc ;and verify that it happened goto failed clrc ;Now try clearing the carry skpnc goto failed setz ;set the Zero flag skpz ;and verify that it happened goto failed clrz ;Now try clearing it skpnz goto failed setdc ;set the Digit Carry flag skpdc ;and verify that it happened goto failed clrdc ;Now try clearing it skpndc goto failed movlw 1 movwf temp movf temp,f skpnz goto failed movlw 0 movwf temp movf temp,f skpz goto failed clrf temp ;Clear a register skpz ;and verify that the Z bit in the goto failed ;status register was set. movf temp,w ;Read the register that was just skpz ;cleared, and again verify that Z goto failed ;was set incf temp,w ;Now this should cause the Z bit to skpnz ;get cleared. goto failed movlw 0xff movwf temp incf temp,f skpz goto failed ;; ;; incfsz ;; movlw 0xff movwf temp movf temp,f ;Should clear Z incfsz temp,w goto failed skpnz ;incfsz shouldn't affect Z goto failed incfsz temp,f ;temp should now be zero goto failed incfsz temp,w ;the following inst. shouldn't be skipped skpnz ;Z should be clear from above. goto failed ;; addlw 0xaa ;; ;; addwf test: ;; ;; The purpose of this test is to a) verify that the addwf instruction ;; adds correctly and b) that the appropriate status register bits are ;; set correctly. clrw clrf temp addwf temp,w ; 0+0 skpnc goto failed skpz goto failed skpndc goto failed movlw 1 ; 0+1 addwf temp,w skpnc goto failed skpnz goto failed skpndc goto failed movlw 8 ; 8+8 movwf temp addwf temp,w skpnc goto failed skpnz goto failed skpdc goto failed movlw 0x88 ; 0x88+0x88 movwf temp addwf temp,w skpc goto failed skpnz goto failed skpdc goto failed movlw 0x80 ; 0x80+0x80 movwf temp addwf temp,w skpc goto failed skpz goto failed skpndc goto failed movlw 1 movwf temp movlw 0xff addwf temp,w skpc goto failed skpz goto failed skpdc goto failed clrc clrdc ;; ;; andwf test: ;; clrf temp movlw 1 andwf temp,f skpz goto failed skpc skpndc goto failed andwf temp,w skpz goto failed skpc skpndc goto failed movlw 1 movwf temp andwf temp,f skpnz goto failed skpc skpndc goto failed movlw 0xff andwf temp,f ;1 & 0xff should = 1 skpnz goto failed skpc skpndc goto failed movlw 0xff ;Now add 0xff to see if temp addwf temp,f ;really is 1. (should cause a carry) skpnz skpc goto failed ;; ;; iorwf ;; movlw 0 movwf temp iorwf temp,f skpz goto failed movlw 1 iorwf temp,f skpnz goto failed movlw 0xff addwf temp,f skpnz skpc goto failed ;; ;; rlf ;; clrdc clrf temp clrc rlf temp,w skpdc skpnc goto failed skpz goto failed setc rlf temp,f skpdc skpnc goto failed skpz goto failed movlw 0xff addwf temp,f skpnz skpc goto failed rlf temp,f skpnc goto failed movlw 0x80 movwf temp rlf temp,w skpc goto failed movwf temp addwf temp,w skpz goto failed ;; ;; rrf ;; clrdc clrf temp clrc rrf temp,w skpdc skpnc goto failed skpz goto failed setc rrf temp,f skpdc skpnc goto failed skpz goto failed movlw 0x80 addwf temp,f skpnz skpc goto failed rrf temp,f skpnc goto failed movlw 1 movwf temp rrf temp,w skpc goto failed movwf temp addwf temp,w skpz goto failed ;; ;; subwf test: ;; clrw clrf temp subwf temp,w ; 0-0 skpc goto failed skpz goto failed skpdc goto failed movlw 1 ; 0-1 subwf temp,w skpnc goto failed skpnz goto failed skpndc goto failed movlw 0x10 ; 0x10-0x10 movwf temp subwf temp,w skpc goto failed skpz goto failed skpdc goto failed movlw 0x88 ; 0x88-0x88 movwf temp subwf temp,w skpc goto failed skpz goto failed skpdc goto failed clrf temp movlw 0x80 ; 0 - 0x80 subwf temp,f skpnc goto failed skpnz goto failed skpdc goto failed movlw 0 ; 0x80 - 0 subwf temp,w skpc goto failed skpnz goto failed skpdc goto failed movlw 1 ; 0x80 - 1 subwf temp,w skpc goto failed skpnz goto failed skpndc goto failed clrc clrdc ;; ;; xorwf ;; clrf temp movlw 0xff xorwf temp,f skpc skpndc goto failed skpnz goto failed xorwf temp,f skpz goto failed xorwf temp,f incfsz temp,f goto failed ;; ;; swapf ;; movlw 0x0f movwf temp swapf temp,f xorwf temp,f incfsz temp,f goto failed decf temp1,f incfsz temp1,w goto done ;; repeat the test with in the next bank bsf STATUS,RP0 goto BankLoop done: .assert "\"*** PASSED MidRange core instruction test\"" bcf STATUS,RP0 NOP NOP NOP NOP NOP NOP goto $ NOP NOP NOP NOP NOP NOP NOP andlw 0xaa andwf temp,w bcf temp,5 bsf temp,5 btfsc temp,5 btfss temp,5 call routine clrf temp clrw clrwdt comf temp,w decf temp,w decfsz temp,w goto l1 nop nop nop l1: incf temp,w incfsz temp,w iorlw 0xaa iorwf temp,w movlw 0xaa movf temp,w movwf temp nop option goto r1 retfie retlw 0xaa routine return r1: rlf temp,w rrf temp,w sleep sublw 0xaa subwf temp,w swapf temp,w tris 5 xorlw 0xaa xorwf temp,w ;; ;; Test indirect branching ;; test_pcl: clrf temp clrf temp1 tt1: movf temp,w call table_test xorwf temp,w skpz bsf temp1,0 incf temp,f btfss temp,4 goto tt1 goto test_pcl2 table_test: addwf PCL,f table: retlw 0 retlw 1 retlw 2 retlw 3 retlw 4 retlw 5 retlw 6 retlw 7 retlw 8 retlw 9 retlw 10 retlw 11 retlw 12 retlw 13 retlw 14 retlw 15 test_pcl2: btfsc temp2,0 goto test_pcl3 movlw 0x20 movwf FSR next clrf INDF incf FSR,1 btfss FSR,4 goto next bsf temp2,0 clrf PCL test_pcl3: movlw LOW(ly) movwf PCL ; == goto ly lx goto test_pcl4 ly movlw LOW(lx) movwf PCL test_pcl4: goto $ failed: .assert "\"*** FAILED MidRange core instruction test\"" goto done end gpsim-0.27.0/regression/instructions_14bit/16f628.lkr0000644000076400007640000000250210416271545017151 00000000000000// Sample linker command file for 16F628 // $Id: 16f628.lkr 1228 2005-08-23 16:36:11Z sdattalo $ LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page START=0x5 END=0x7FF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x217F PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x11F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x19F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xEF DATABANK NAME=gpr2 START=0x120 END=0x14F SHAREBANK NAME=gprnobnk START=0x70 END=0x7F SHAREBANK NAME=gprnobnk START=0xF0 END=0xFF SHAREBANK NAME=gprnobnk START=0x170 END=0x17F SHAREBANK NAME=gprnobnk START=0x1F0 END=0x1FF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/instructions_14bit/att_test.stc0000644000076400007640000000054311146366705020154 00000000000000load instructions_14bit.cod module library libgpsim_modules module load usart U1 node n1 # define a node node n2 #define another node symbol TWO=2 #define symbol with value 2 attach n1 pin(1) pin(TWO) #attach CPU pins 1 and 2 attach n1 U1.RXPIN #add usart pin to n1 attach n2 portb0 pin(U1.TXPIN) node gpsim-0.27.0/regression/instructions_14bit/Makefile0000644000076400007640000000017210563700465017245 00000000000000include ../make.regression all : instructions_14bit.cod branching.cod %.cod: %.o gplink --map -s 16f628.lkr -o $@ $^ gpsim-0.27.0/regression/instructions_14bit/instructions_14bit.stc0000644000076400007640000000010610416271545022063 00000000000000# simple script to load the simulation load s instructions_14bit.cod gpsim-0.27.0/regression/tmr1_16bit/0000775000076400007640000000000012210742356014004 500000000000000gpsim-0.27.0/regression/tmr1_16bit/tmr1_16bit.stc0000644000076400007640000000007710416271515016331 00000000000000# simple script to load the simulation load s tmr1_16bit.cod gpsim-0.27.0/regression/tmr1_16bit/18f452.lkr0000644000076400007640000000212110416271515015261 00000000000000// $Id: 18f452.lkr 1436 2006-01-21 23:28:33Z sdattalo $ // File: 18f452.lkr // Sample linker script for the PIC18F452 processor LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x29 PROTECTED CODEPAGE NAME=page START=0x2A END=0x7FFF CODEPAGE NAME=idlocs START=0x200000 END=0x200007 PROTECTED CODEPAGE NAME=config START=0x300000 END=0x30000D PROTECTED CODEPAGE NAME=devid START=0x3FFFFE END=0x3FFFFF PROTECTED CODEPAGE NAME=eedata START=0xF00000 END=0xF000FF PROTECTED ACCESSBANK NAME=accessram START=0x0 END=0x7F DATABANK NAME=gpr0 START=0x80 END=0xFF DATABANK NAME=gpr1 START=0x100 END=0x1FF DATABANK NAME=gpr2 START=0x200 END=0x2FF DATABANK NAME=gpr3 START=0x300 END=0x3FF DATABANK NAME=gpr4 START=0x400 END=0x4FF DATABANK NAME=gpr5 START=0x500 END=0x5FF ACCESSBANK NAME=accesssfr START=0xF80 END=0xFFF PROTECTED SECTION NAME=CONFIG ROM=config gpsim-0.27.0/regression/tmr1_16bit/Makefile0000644000076400007640000000050510731343617015365 00000000000000include ../make.regression SCRIPT = 18f452.lkr PROJECT = tmr1_16bit OBJECTS = $(PROJECT).o OUTPUT = $(PROJECT).hex COD = $(PROJECT).cod STC = $(PROJECT).stc all : $(OUTPUT) $(OUTPUT) $(COD) : $(OBJECTS) $(SCRIPT) gplink --map -s $(SCRIPT) -o $(OUTPUT) $(OBJECTS) sim: $(COD) $(GPSIM) -i -I $(STARTUP_STC) -D STC=$< gpsim-0.27.0/regression/tmr1_16bit/tmr1_16bit.asm0000644000076400007640000001467211116621766016333 00000000000000 ;; tmr1_16bit.asm ;; ;; The purpose of this program is to test how well gpsim can simulate ;; TMR1 for a 16bit-core pic (like the 18fxxx family) although ;; most of the functionality is generic to all processors where ;; t1mer1 supports an external clock source. ;; ;; Here are the tests performed: ;; ;; -- TMR1 count seconds when driven by simulated external crystal ;; -- TMR1 driven Fosc/4 with prescale of 8 ;; -- TMR1 count seconds when driven by external stimuli ;; -- TMR1L and TMR1H can be read and written list p=18f452 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros radix dec ; Numbers are assumed to be decimal ;---------------------------------------------------------------------- ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- GPR_DATA UDATA temp RES 1 temp1 RES 1 temp2 RES 1 failures RES 1 TMR0_RollOver RES 1 TMR1_RollOver RES 1 countLo RES 1 countHi RES 1 TMR1H_Sampled RES 1 TMR1H_Last RES 1 SecondsLo RES 1 SecondsHi RES 1 GLOBAL countLo, countHi GLOBAL SecondsLo, SecondsHi ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- STARTUP CODE 0 bra Start ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x008 ; interrupt vector location check_TMR0_interrupt: ;;================== ;; TMR1 Interrupt ;;================== BTFSC INTCON,T0IF ;If the roll over flag is not set BTFSS INTCON,T0IE ;or the interrupt is not enabled bra checkTMR0IntEnd ; ;; TMR0 has rolled over. Clear the pending interrupt and notify ;; the foreground code by incrementing the "roll over" counter ;; Notice that the increment operation is atomic - this means ;; we won't have to worry about the foreground code and interrupt ;; code clashing over accesses to this variable. BCF INTCON,T0IF,0 ; Clear the pending interrupt INCF TMR0_RollOver,F ; Set a flag to indicate rollover checkTMR0IntEnd: ;;================== ;; TMR1 Interrupt ;;================== BTFSC PIR1,TMR1IF BTFSS PIE1,TMR1IE BRA checkTMR1IntEnd BCF PIR1,TMR1IF ;Clear the interrupt INCF TMR1_RollOver,F ;Set a flag BSF TMR1H, 7 ; Preload for 1 sec overflow ; Note, since we have a 32768 Hz crystal tied to TMR1 and we have the timer ; configured as a 16-bit timer TMR1H loaded with 0x80, then this interrupt ; will happen once every second. INFSNZ SecondsLo,F ;Update the system time. INCF SecondsHi,F CLRF TMR1H_Sampled CLRF TMR1H_Last checkTMR1IntEnd: ExitInterrupt: RETFIE 1 MAIN CODE Start: ;------------------------------------------------------------------------ ; ; Embedded simulation scripts ; ; Set the clock frequency to 10MHz .sim "frequency 10e6" ; define a stimulus to generate a 32kHz clock. This will be tied ; to TMR1's input and is used to simulate an external drive. ; ; 40MHz ; Instruction Rate = (4 clks/instruction) / (10e6 clks/second) ; = 400nS per instruction ; 32.768kHz ==> 30.517uS period ; Instruction Cycles/32.768kHz cycle = 30.517uS / .4uS ; = 76.2925 instructions ; .sim "stimulus asynchronous_stimulus " .sim "initial_state 0" .sim "start_cycle 0x2008130" .sim "period 305" .sim "{ 38,1 , 76,0 , 114,1 , 152,0 , 190,1 , 228,0 , 266,1}" .sim "name Clk32kHz" .sim "end" ; Create a node .sim "node clk_node" ; attach the clock .sim "attach clk_node Clk32kHz portc0" ; At reset, all bits of t1Con should be clear. .assert "t1con == 0x00" MOVLW (1< __CONFIG _CP_OFF & _DATA_CP_OFF & _BODEN_ON & _MCLRE_OFF & _PWRTE_ON & _WDT_OFF & _INTRC_OSC_NOCLKOUT & _LVP_OFF ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR temp RES 1 w_temp RES 1 status_temp RES 1 tmr1_cnt RES 1 org 0 goto main ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,W movwf status_temp btfsc PIR1,TMR1IF goto tmr1_int .assert "\"***FAILED p16f690 unexpected interrupt\"" nop goto exit_int ; Interrupt from TMR1 tmr1_int incf tmr1_cnt,F bcf PIR1,TMR1IF goto exit_int exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie main: banksel T1CON ; Disable timer 1 bcf T1CON, TMR1ON bsf T1CON, TMR1ON bcf T1CON, TMR1ON movlw 0x34 movwf TMR1L movlw 0x12 movwf TMR1H movf TMR1L,W .assert "W==0x34, \"*** FAILED TMR1 test TMR1L write\"" nop movf TMR1H,W .assert "W==0x12, \"*** FAILED TMR1 test TMR1H write\"" nop ; counter is set to 0x1234 - works ; Enable timer 1 bsf T1CON, TMR1ON .assert "tmr1l==0x35, \"*** FAILED TMR1 test TMR1L reset on start\"" nop ; oops - counter is 0x1 now ; setting TMR1ON must have reset it to 0x0! bcf T1CON,TMR1CS banksel PIE1 bsf PIE1,TMR1IE bsf INTCON,PEIE sleep nop bsf INTCON,GIE nop .assert "\"*** PASSED TMR1\"" nop goto $+0 end gpsim-0.27.0/regression/tmr1_14bit/Makefile0000644000076400007640000000050611166503361015361 00000000000000# WDT module regression test # # include ../make.regression all : tmr1_16f628.cod p%.cod : p%.o gplink --map -s $*.lkr -o $@ $< tmr1_%.cod : tmr1_%.o gplink --map -s $*.lkr -o $@ $< wdt_%.cod : wdt_%.o gplink --map -s $*.lkr -o $@ $< nwdt_%.cod : nwdt_%.o gplink --map -s $*.lkr -o $@ $< sim: sim_p16f628 gpsim-0.27.0/regression/Makefile.in0000664000076400007640000003106712210742105014100 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = regression DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am README TODO ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ EXTRA_DIST = \ README \ rt.sh run_regression.sh make.regression startup.stc \ */*.lkr */*.asm */*.stc */*.inc */Makefile MOSTLYCLEANFILES = */*.o */*.hex */*.cod */*.lst */*.log */*.map */*~ CLEANFILES = */*.o */*.hex */*.cod */*.lst */*.log */*.map */*~ DISTCLEANFILES = */*.o */*.hex */*.cod */*.lst */*.log */*.map */*~ MAINTAINERCLEANFILES = */*.o */*.hex */*.cod */*.lst */*.log */*.map */*~ all: all-am .SUFFIXES: $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu regression/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu regression/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags TAGS: ctags CTAGS: cscope cscopelist: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: -test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES) clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES) clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ cscopelist-am ctags-am distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags-am uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/regression/Makefile.am0000664000076400007640000000062612122567462014101 00000000000000 EXTRA_DIST = \ README \ rt.sh run_regression.sh make.regression startup.stc \ */*.lkr */*.asm */*.stc */*.inc */Makefile MOSTLYCLEANFILES = */*.o */*.hex */*.cod */*.lst */*.log */*.map */*~ CLEANFILES = */*.o */*.hex */*.cod */*.lst */*.log */*.map */*~ DISTCLEANFILES = */*.o */*.hex */*.cod */*.lst */*.log */*.map */*~ MAINTAINERCLEANFILES = */*.o */*.hex */*.cod */*.lst */*.log */*.map */*~ gpsim-0.27.0/regression/macro_test/0000775000076400007640000000000012210742355014253 500000000000000gpsim-0.27.0/regression/macro_test/16f84.lkr0000644000076400007640000000160410416271531015453 00000000000000// Sample linker command file for 16F84 // $Id: 16f84.lkr 1228 2005-08-23 16:36:11Z sdattalo $ LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page START=0x5 END=0x3FF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x213F PROTECTED DATABANK NAME=sfr0 START=0x0 END=0xB PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x8B PROTECTED DATABANK NAME=gprs START=0xC END=0x4F SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/macro_test/Makefile0000644000076400007640000000050710563700462015635 00000000000000include ../make.regression SCRIPT = 16f84.lkr PROJECT = macro_test OBJECTS = $(PROJECT).o OUTPUT = $(PROJECT).hex COD = $(PROJECT).cod STC = $(PROJECT).stc all : $(OUTPUT) $(OUTPUT) $(COD) : $(OBJECTS) $(SCRIPT) gplink --map -s $(SCRIPT) -o $(OUTPUT) $(OBJECTS) sim: $(COD) $(GPSIM) -i -I $(STARTUP_STC) -D STC=$(STC) gpsim-0.27.0/regression/macro_test/macro_test.stc0000644000076400007640000000121710416271531017044 00000000000000load macro_test.cod # Macro test # echo gpsim macro test #set verbose 0xfe mac_exp macro add, mask mac_flags = (mac_flags+add) & mask endm mac1 macro p1, p2 run mac_exp p1, p2 endm break e mac_loop # this should have no effect on 'mac_flags', but # the loop of code in macro_test.asm should increment # the variable 'mac_count' mac1 1, 0b00000010 # mac_flags=0, mac_count=0 mac1 1, 0x1f # mac_flags=1, mac_count=1 mac1 2, 0x1f # mac_flags=3, mac_count=2 mac1 3, 0x1f # mac_flags=6, mac_count=3 mac1 4, 0x1f # mac_flags=10, mac_count=4 mac1 6, 0x1f # mac_flags=16, mac_count=5 failures = mac_flags + mac_count - 21 gpsim-0.27.0/regression/macro_test/macro_test.asm0000644000076400007640000000275310416271531017041 00000000000000 radix dec ;; The purpose of this program is to test gpsim macros ;; list p=16f84 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros GPR_DATA UDATA failures RES 1 mac_count RES 1 mac_flags RES 1 GLOBAL mac_count, mac_flags, failures GLOBAL mac_loop ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start clrf failures clrf mac_count ; a counter clrf mac_flags mac_loop: incf mac_count,F btfss mac_flags,4 goto mac_loop movf failures,W skpz failed: .assert "\"*** FAILED Macro test\"" goto $ done: .assert "\"*** PASSED Macro test\"" goto done end gpsim-0.27.0/regression/TODO0000644000076400007640000000021610563700470012521 00000000000000TODO Items that need regression tests: 1) Sleep modes 2) Reset modes 3) Program memory writes 4) Socket interface (is anyone using this?) gpsim-0.27.0/regression/register_stim/0000775000076400007640000000000012210742356014774 500000000000000gpsim-0.27.0/regression/register_stim/16f84.lkr0000644000076400007640000000160410416271476016203 00000000000000// Sample linker command file for 16F84 // $Id: 16f84.lkr 1228 2005-08-23 16:36:11Z sdattalo $ LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page START=0x5 END=0x3FF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x213F PROTECTED DATABANK NAME=sfr0 START=0x0 END=0xB PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x8B PROTECTED DATABANK NAME=gprs START=0xC END=0x4F SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/register_stim/Makefile0000644000076400007640000000055110563700440016350 00000000000000include ../make.regression SCRIPT = 16f84.lkr PROJECT = register_stim OBJECTS = $(PROJECT).o OUTPUT = $(PROJECT).hex COD = $(PROJECT).cod STC = $(PROJECT).stc all : $(OUTPUT) $(OUTPUT) $(COD) : $(OBJECTS) $(SCRIPT) gplink --map -s $(SCRIPT) -o $(OUTPUT) $(OBJECTS) $(PROJECT).o : $(PROJECT).asm sim: $(COD) $(GPSIM) -i -I $(STARTUP_STC) -D STC=$(STC) gpsim-0.27.0/regression/register_stim/register_stim.asm0000644000076400007640000000524110416271476020304 00000000000000 radix dec ;; The purpose of this program is to test gpsim's register stimuli. ;; list p=16f84 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA failures RES 1 shift_in RES 1 ; A shifting bit pattern stimulus is connected to this. flag_reg RES 1 ; Another register stimulus is tied to this. temp1 RES 1 GLOBAL shift_in GLOBAL flag_reg ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start clrf shift_in clrf flag_reg clrf temp1 start_loop: ; First, wait for shift_in to become '1' decfsz shift_in,W goto start_loop movf flag_reg,W movwf temp1 ; The register stimulus will shift the register 'shift_in' 1 bit position left every ; 100 cycles. The final value will stick at 0x80. Meanwhile, the flag_reg will ; will become 0xff after about 1000 cycles. shift_loop movf shift_in,W ; Compare shift_in to it's last known value. xorwf temp1,W skpnz ; If it has changed, then update it and check it. goto L1 xorwf temp1,F ; temp1 = temp1^(shift_in^temp1) = shift_in decf temp1,W ; temp1 should be 2^n andwf temp1,W skpz goto failed ; failed L1: incfsz flag_reg,W ; does flag == 0xff? goto shift_loop ; loop is finished. temp1 should be 0x80. movlw 0x80 xorwf temp1,W skpz goto failed done: .assert "\"*** PASSED Register Stimulation test\"" goto done failed: .assert "\"*** FAILED Register Stimulation test\"" goto failed end gpsim-0.27.0/regression/register_stim/register_stim.stc0000644000076400007640000000217210644005155020305 00000000000000 load register_stim.cod # Attribute Stimulus Test # # Two stimuli are created. One generates a shifting # bit pattern. This is tied to pic register named # shift_in. The other stimulus is a flag that the # firmware will monitor. # echo Attribute Stimulus test ############################################################ # define a stimulus to generate shifting bit pattern. stimulus attribute_stimulus # The initial state AND the state the stimulus is when # it rolls over initial_state 0 # Start cycle (with respect to the CPU's cycle counter). start_cycle 0 # the stimulus will roll over in 'period' cycles. period 1000 # Data: # { 100, 0x01, 200, 0x02, 300, 0x04, 400, 0x08, 500, 0x10, 600, 0x20, 700, 0x40, 800, 0x80 } # Give the stimulus a name: name bit_shifter end ############################################################ # define a stimulus that generates a step function # stimulus attribute_stimulus initial_state 0 start_cycle 0 period 1000 { 900, 0xff } # Give the stimulus a name: name flag_stim end # attach the stimuli to registers attach bit_shifter .shift_in attach flag_stim .flag_reg gpsim-0.27.0/regression/p16f819/0000775000076400007640000000000012210742355013131 500000000000000gpsim-0.27.0/regression/p16f819/p16f819.asm0000644000076400007640000000412710644432321014571 00000000000000 ;; 16F628 tests ;; ;; This regression test exercises the 16f628. ;; ;; Tests performed: ;; ;; 1) Verify Comparators can be disabled and that ;; PORTA can work as a digital I/O port. list p=16f819 include "p16f819.inc" CONFIG_WORD EQU _CP_OFF & _WDT_OFF & _INTRC_IO & _MCLR_OFF __CONFIG CONFIG_WORD cblock 0x20 add20 failures endc cblock 0x70 add70 endc ORG 0 CLRF failures ;Assume success MOVLW 0xff BSF STATUS,RP0 CLRF TRISA^0x80 ;Port A is an output MOVWF TRISB^0x80 ;Port B is an input BCF STATUS,RP0 movlw 0x20 movwf add20 movlw 0x70 movwf add70 ;; ;; Turn off the comparator module ;; ;; MOVLW (1< include __CONFIG _WDT_OFF ;; The purpose of this program is to test gpsim's ability to simulate a pic 16c71. ;; Specifically, the a/d converter is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp bcf STATUS,RP0 ;adcon0 is in bank 0 btfsc INTCON,ADIE btfsc PIR1,ADIF goto inta2d .assert "\"FAILED 16F819 a2d unexpected interupt\"" nop goto check ;; An A/D interrupt has occurred inta2d: bsf t1,0 ;Set a flag to indicate we got the int. bcf PIR1,ADIF ;Clear the a/d interrupt check: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup V1" .sim "V1.resistance = 100.0" .sim "node na0" .sim "attach na0 V1.pin porta0" .sim "module load pullup V2" .sim "V2.resistance = 100.0" .sim "node na1" .sim "attach na1 V2.pin porta3" ;; Let's use the ADC's interrupt ; RA0 is an Analog Input. ; RA1 - RA5 are all configured as outputs. ; ; Use VDD and VSS for Voltage references. ; ; PCFG = 1110 == AN0 is the only analog input ; ADCS = 110 == FOSC/64 ; ADFM = 0 == 6 LSB of ADRESL are 0. ; bsf STATUS,RP0 ;adcon1 is in bank 1 movlw 1 movwf TRISA movlw (1< include __CONFIG _WDT_OFF & _CCP1_RB3 errorlevel -302 radix dec ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR failures RES 1 status_temp RES 1 w_temp RES 1 interrupt_temp RES 1 GLOBAL failures GLOBAL done ;; The capTime 16-bit register is a working register that keeps track ;; of the capture edge. capTimeH RES 1 capTimeL RES 1 capTimeHb RES 1 capTimeLb RES 1 GLOBAL capTimeH, capTimeL, capTimeHb, capTimeLb temp1 RES 1 temp2 RES 1 t1 RES 1 t2 RES 1 t3 RES 1 kz RES 1 GLOBAL temp1, temp2, t1, t2, t3, kz ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; Simulation Script .sim "node test_node_C" ;# Create an asynchronous stimulus that's 1000 cycles long ;# and attach it to portb bit 3. .sim "stimulus asynchronous_stimulus" .sim "initial_state 0" .sim "start_cycle 0x100" .sim "period 0x400" .sim "{ 0x200, 1}" ; .sim "0x300, 0," ; .sim "0x400, 1," ; .sim "0x600, 0," ; .sim "0x700, 1," ; .sim "0x800, 0}" .sim "name asy1" .sim "end" .sim "attach test_node_C asy1 portb3" ;---------------------------------------------------------------------- ; ******************* INTERRUPT VECTOR LOCATION ******************** ;---------------------------------------------------------------------- INT_VECTOR CODE 0x004 ; interrupt vector location ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp ;; Are peripheral interrupts enabled? btfss INTCON,PEIE goto exit_int bsf STATUS,RP0 movf PIE1 ^ 0x80,W bcf STATUS,RP0 movwf interrupt_temp check_tmr1: btfsc PIR1,TMR1IF btfss interrupt_temp,TMR1IE goto check_ccp1 ;; tmr1 has rolled over bcf PIR1,TMR1IF ; Clear the pending interrupt bsf temp1,0 ; Set a flag to indicate rollover check_ccp1: btfsc PIR1,CCP1IF btfss interrupt_temp,CCP1IE goto exit_int bcf PIR1,CCP1IF ; Clear the pending interrupt bsf temp1,1 ; Set a flag to indicate match exit_int: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start clrf failures ;Assume success. clrf kz ;kz == Known Zero. ;; disable (primarily) global and peripheral interrupts clrf INTCON ;; ;; CCP test ;; ;; The CCP module is intricately intertwined with the TMR1 ;; module. So first, let's initialize TMR1: ;; Clear all of the bits of the TMR1 control register: ;; this will: ;; Turn the tmr off ;; Select Fosc/4 as the clock source ;; Disable the External oscillator feedback circuit ;; Select a 1:1 prescale ;; In this mode, TMR1 will count instruction cycles. clrf T1CON ; clrf PIR1 ; Clear the interrupt/roll over flag ;; Zero TMR1 clrf TMR1L clrf TMR1H ;; Start the timer bsf T1CON,TMR1ON ccp_test1: movlw (1< 5 call ccpWaitForPORTC2_low call ccpWaitForPORTC2_high call ccpCaptureTwoEvents .assert "(capTimeL==0) && (capTimeH==4)" clrf temp1 ;Clear the software interrupt flag. incf CCP1CON,F ;Next mode --> 6 call ccpWaitForPORTC2_high call ccpCaptureTwoEvents .assert "(capTimeL==0) && (capTimeH==0x10)" clrf temp1 ;Clear the software interrupt flag. incf CCP1CON,F ;Next mode --> 7 call ccpWaitForPORTC2_high call ccpCaptureTwoEvents .assert "(capTimeL==0) && (capTimeH==0x40)" goto done ;------------------------------------------------------------------------ ;ccpCaptureTwoEvents ; ; Capture two events for the current CCP setting and return the time ; difference between them ccpCaptureTwoEvents: call ccpWaitForCapture movf CCPR1L,W movwf capTimeLb movf CCPR1H,W movwf capTimeHb call ccpWaitForCapture movf CCPR1L,W movwf capTimeL movf CCPR1H,W movwf capTimeH ; Subtract the time of the most recently captured edge from the previous one movf capTimeLb,W subwf capTimeL,F movf capTimeHb,W skpc incfsz capTimeHb,W subwf capTimeH,F return ;------------------------------------------------------------------------ ;ccpWaitForCapture ; ; Spin loop that polls an interrupt flag that is set whenever a capture ; interrupt triggers. ccpWaitForCapture: clrf t1 ;A 16-bit software timeout counter clrf t2 ccpWaitLoop: ;; The watchdog counter ensures we don't loop forever! call ccpWDCounter ;; ;; when an edge is captured, the interrupt routine will ;; set a flag: ;; btfss temp1,1 goto ccpWaitLoop bcf temp1,1 return ;------------------------------------------------------------------------ ccpWaitForPORTC2_high: btfsc PORTB,3 return call ccpWDCounter goto ccpWaitForPORTC2_high ccpWaitForPORTC2_low: btfss PORTB,3 return call ccpWDCounter goto ccpWaitForPORTC2_high ;------------------------------------------------------------------------ ; ccpWDCounter ; a 16bit watch dog counter is incremented by 1. If it rolls over then we failed. ccpWDCounter: incfsz t1,f return incfsz t2,f return goto failed ;If we get here then we haven't caught anything! ;Either a) there's a gpsim bug or b) the stimulus ;file is incorrect. ; movlw 1 ;This 16-bit software counter ; addwf t1,f ;will time out if there's something wrong, ; rlf kz,w ; addwf t2,f ; skpc ; return ;; ;; Compare ;; ;; Now for the compare mode. ccp_test2: goto done ;;########################################## clrf T1CON clrf TMR1L clrf TMR1H bsf STATUS,RP0 bcf PORTB,3 ;CCP bit is an output bcf STATUS,RP0 ;; Start off the compare mode by setting the output on a compare match ;; ;; ccp = 8 <- Set output on match ;; ccp = 9 <- Clear output on match ;; ccp = 10 <- Just set the ccp1if flag, but don't change the output ;; ccp = 11 <- Reset tmr1 on a match movlw 0x8 movwf CCP1CON ;; clrf PIR1 ;; Initialize the 16-bit compare register: movlw 0x34 movwf CCPR1L movlw 0x12 movwf CCPR1H ;; Clear the interrupt flag clrf temp1 tt3: ;; Stop and clear tmr1 clrf T1CON clrf TMR1L clrf TMR1H ;; Now start it bsf T1CON,TMR1ON ;; Wait for the interrupt routine to set the flag: btfss temp1,1 goto $-1 bcf temp1,1 ;; Try the next capture mode incf CCP1CON,F ;; If bit 2 of ccp1con is set then we're through with capture modes ;; (and are starting pwm modes) btfsc CCP1CON,2 goto done goto tt3 failed: .assert "\"*** FAILED CCP 819 test\"" incf failures,F goto $ done: .assert "\"*** PASSED CCP 819 test\"" goto $ end gpsim-0.27.0/regression/p16f819/16f819.lkr0000644000076400007640000000267410644124662014434 00000000000000// Sample linker command file for 16F819.lkr LIBPATH . CODEPAGE NAME=vectors START=0x0000 END=0x0004 PROTECTED CODEPAGE NAME=page START=0x0005 END=0x07FF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.device_id START=0x2006 END=0x2006 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2009 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x21FF PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x11F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x19F PROTECTED DATABANK NAME=gpr0 START=0xA0 END=0xEF DATABANK NAME=gpr1 START=0x120 END=0x16F SHAREBANK NAME=gprnobnk0 START=0x20 END=0x6F SHAREBANK NAME=gprnobnk0 START=0x1A0 END=0x1EF SHAREBANK NAME=gprnobnk1 START=0x70 END=0x7F SHAREBANK NAME=gprnobnk1 START=0xF0 END=0xFF SHAREBANK NAME=gprnobnk1 START=0x170 END=0x17F SHAREBANK NAME=gprnobnk1 START=0x1F0 END=0x1FF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=DEVICEID ROM=.device_id // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/p16f676/0000775000076400007640000000000012210742355013132 500000000000000gpsim-0.27.0/regression/p16f676/netlist.stc0000644000076400007640000000036011226224700015237 00000000000000p16f676.xpos = 72 p16f676.ypos = 72 module load pulsegen PG1 PG1.clear = 0 PG1.period = 0 PG1.set = 1 PG1.xpos = 228 PG1.ypos = 84 module load pulsegen MCLRE MCLRE.clear = 0 MCLRE.period = 0 MCLRE.set = 0 MCLRE.xpos = 84 MCLRE.ypos = 204 gpsim-0.27.0/regression/p16f676/reset.asm0000664000076400007640000002002012175377100014672 00000000000000 ; 16f676 gpsim regression test ; ; The purpose of this test is to verify that the 16f676 ; is implemented correctly. Here's a list of specific things ; tested: ; ; 1) Power On Reset ; 2) WDT during sleep ; 3) WDT during execution ; 4) Interrupt on PIN change during sleep ; 5) MCLR during sleep ; 6) MCLR during execution list p=16f676 include include __CONFIG _WDT_ON & _MCLRE_ON radix dec ; Printf Command .command macro x .direct "C", x endm GPR_DATA UDATA_SHR ResetSequence RES 1 optionShadow RES 1 aint_cnt RES 1 w_temp RES 1 status_temp RES 1 GLOBAL optionShadow, ResetSequence, aint_cnt ; Define the reset conditions to be checked. eRSTSequence_PowerOnReset equ 1 eRSTSequence_AwakeMCLR equ 2 eRSTSequence_AwakeWDT equ 3 eRSTSequence_AwakeIO equ 4 eRSTSequence_WDTTimeOut equ 5 ;---------------------------------------------------------------------- ; ********************* Reset Vector LOCATION *************************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program NT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,W movwf status_temp btfsc INTCON,RAIF goto raif_int .assert "\"***FAILED p16f676 unexpected interrupt\"" nop exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ; Interrupt from porta state change raif_int incf aint_cnt,F movf PORTA,W ; reading ports should clear RAIF .assert "(intcon & 1) == 0, \"***FAILED p16f676 RAIF clear on read porta\"" nop goto exit_int ;############################################################ ;# Create a stimulus to simulate a switch ; .sim "module lib libgpsim_modules" .sim "p16f676.xpos = 72" .sim "p16f676.ypos = 72" .sim "module load pulsegen PG1" .sim "PG1.clear = 0" .sim "PG1.period = 0" .sim "PG1.set = 1" .sim "PG1.xpos = 228" .sim "PG1.ypos = 84" .sim "module load pulsegen MCLRE" .sim "MCLRE.clear = 0" .sim "MCLRE.period = 0" .sim "MCLRE.set = 1" .sim "MCLRE.xpos = 84" .sim "MCLRE.ypos = 204" .sim "MCLRE.initial = 5.0" ;############################################################ .sim "node nSwitch" .sim "attach nSwitch porta0 PG1.pin" .sim "node nMCLR" .sim "attach nMCLR MCLR MCLRE.pin" ;############################################################ .sim "symbol resetCounter=1" ; NOT_GPWU = 0 - Enable wakeup if I/O pins 0,1, or 3 change states ; NOT_GPPU = 1 - Disable weak pullups on I/O pins 0,1, and 3 ; TOCS = 0 - Let the clock source for TMR0 be the internal fosc/4 ; TOSE = 0 - don't care - TMR0 source edge. ; PSA = 1 - assign Prescale to the WDT ; PS2:0 = 000 - prescale = 2^0=1 .sim "optionShadow=8" ; PSA=1 .sim "ResetSequence=0" .sim ".BreakOnReset = false" ; Set a cycle break point far in the future in case the resets fail. .sim "break c 0x1000000" bSWITCH equ 0 start .assert "option_reg==0xff, \"***FAILED p16f676 reset, option 0xff\"" .assert "(trisa&0x3f)==0x3f, \"***FAILED p16f676 reset, trisa 0x3f\"" ;RRR MOVWF OSCCAL ; put calibration into oscillator cal reg ; PORTA setup ; If this is a PowerOn reset, then the state of the PORTA output register ; is unknown. If this is not a PowerOn reset then the PORTA pins have ; the same state they had prior to the reset. ; ; TRIS register setup - The I/O pins are always configured as Inputs after ; any reset. MOVF optionShadow,W ;optionShadow is initialized by the gpsim script BANKSEL TRISA MOVWF OPTION_REG MOVLW 1< /MCLR while sleeping goto PowerOnReset ;/TO=1, /PD=1 ==> Power has just been applied TO_is_low BTFSS STATUS,NOT_PD goto AwakeWDT ;/TO=0, /PD=0 ==> WDT while sleeping goto WDTTimeOut ;/TO=0, /PD=1 ==> WDT while not sleeping ;======================================================================== ; ; PowerOnReset ; ;======================================================================== PowerOnReset: movf ResetSequence,W XORLW eRSTSequence_AwakeMCLR skpnz goto done .assert "resetCounter==1,\"*** FAILED Power On Reset\"" nop MOVLW eRSTSequence_PowerOnReset MOVWF ResetSequence .command "resetCounter = resetCounter+1" nop SLEEP ;======================================================================== ; ; AwakeWDT - WDT timed out while we were sleeping. ; ;======================================================================== AwakeWDT: MOVLW eRSTSequence_AwakeWDT .assert "resetCounter==2,\"*** FAILED WDT Reset\"" nop MOVWF ResetSequence .command "resetCounter = resetCounter+1" nop CLRWDT ; loop until WDT times out here: goto here ;======================================================================== ; ; WDTTimeOut - WatchDog timer timed out while we were awake. ; ;======================================================================== WDTTimeOut: .assert "resetCounter==3,\"*** FAILED WDT timeout\"" nop MOVLW eRSTSequence_WDTTimeOut MOVWF ResetSequence .command "resetCounter = resetCounter+1" nop CLRWDT .command "PG1.clear = cycles+100" nop CLRF aint_cnt CLRF CMCON ; porta0, porta1 analog SLEEP ;======================================================================== ; ; AwakeIO - an I/O pin changed state when in analog mode ; This should not wakeup from sleep (continue with WDT wakeup) ; ;======================================================================== .assert "aint_cnt==0, \"*** FAILED Wakeup on analog pin change\"" nop MOVLW 7 MOVWF CMCON ; porta0, porta1 in digital mode CLRF aint_cnt ; we may get an interrupt on this change .command "PG1.set = cycles+100" nop SLEEP ;======================================================================== ; ; AwakeIO - an I/O pin changed states to awaken us from sleep. ; ;======================================================================== AwakeIO: .assert "aint_cnt==1, \"*** FAILED No Wakeup on I/O pin change\"" nop MOVLW eRSTSequence_AwakeIO .assert "resetCounter==4,\"*** FAILED Unexpected Wakeup on I/O pin change\"" nop MOVWF ResetSequence .command "resetCounter = resetCounter+1" nop CLRWDT ; reset the processor by driving /MCLR low for a few cycles .command "MCLRE.clear = cycles+100" .command "MCLRE.set = cycles+110" nop SLEEP .assert "\"*** FAILED Unexpected Wakeup waiting for MCLR\"" nop ;======================================================================== ; ; AwakeMCLR - MCLR went low while we were sleeping. ; ;======================================================================== AwakeMCLR: MOVLW eRSTSequence_AwakeMCLR .assert "resetCounter==5,\"*** FAILED /MCLR Reset\"" nop MOVWF ResetSequence .command "resetCounter = resetCounter+1" nop CLRWDT ; reset the processor by driving /MCLR low for a few cycles .command "MCLRE.clear = cycles+100" .command "MCLRE.set = cycles+110" nop waitForMCLR: goto waitForMCLR .assert "\"*** PASSED 16f676 Sleep and Reset test\"" done: goto done end gpsim-0.27.0/regression/p16f676/16f676.lkr0000644000076400007640000000227011215567027014427 00000000000000// Sample linker command file for 16F676 LIBPATH . CODEPAGE NAME=page START=0x0 END=0x3FE CODEPAGE NAME=oscval START=0x3FF END=0x3FF PROTECTED CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=icd_inst START=0x2004 END=0x2004 PROTECTED CODEPAGE NAME=mfg_code START=0x2005 END=0x2005 PROTECTED CODEPAGE NAME=.device_id START=0x2006 END=0x2006 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x217F PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED SHAREBANK NAME=gpr0 START=0x20 END=0x5F SHAREBANK NAME=gpr0 START=0xA0 END=0xDF PROTECTED SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=OSCVAL ROM=oscval // Oscillator value SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=ICD_INST ROM=icd_inst // ICD instruction SECTION NAME=MFG_CODE ROM=mfg_code // Manufacturing code SECTION NAME=DEVICEID ROM=.device_id // Device ID SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/p16f676/p16f676.asm0000644000076400007640000003214011222370567014575 00000000000000 ;; Node test ;; ;; The purpose of this program is to verify that nodes ;; can interconnect I/O pins. list p=16f676 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros __CONFIG _CP_OFF & _WDT_ON & _INTRC_OSC_NOCLKOUT & _PWRTE_ON & _BODEN_OFF & _MCLRE_OFF ;------------------------------------------------------------------------ ; gpsim command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR temp RES 1 w_temp RES 1 status_temp RES 1 cmif_cnt RES 1 tmr0_cnt RES 1 tmr1_cnt RES 1 eerom_cnt RES 1 adr_cnt RES 1 data_cnt RES 1 adc_cnt RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup R1" .sim "R1.resistance = 10000.0" .sim "R1.voltage = 2.0" .sim "R1.xpos = 252" .sim "R1.ypos = 84" ; Use a pullup resistor as a voltage reference .sim "module load pullup R2" .sim "R2.resistance = 10000.0" .sim "R2.voltage = 4.0" .sim "R2.xpos = 252" .sim "R2.ypos = 120" .sim "node n1" .sim "attach n1 porta2 porta3" ; .sim "attach n1 porta2 MCLR" .sim "node n2" .sim "attach n2 porta0 porta5 R1.pin" .sim "node n3" .sim "attach n3 porta1 porta4 R2.pin" ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,W movwf status_temp btfsc PIR1,CMIF goto cmif_int btfsc PIR1,TMR1IF goto tmr1_int btfsc PIR1,EEIF goto ee_int btfsc PIR1,ADIF goto adc_int btfsc INTCON,T0IF goto tmr0_int .assert "\"***FAILED p16f676 unexpected interrupt\"" nop ; Interrupt from Comparator cmif_int incf cmif_cnt,F bcf PIR1,CMIF goto exit_int ; Interrupt from TMR0 tmr0_int incf tmr0_cnt,F bcf INTCON,T0IF goto exit_int ; Interrupt from TMR1 tmr1_int incf tmr1_cnt,F bcf PIR1,TMR1IF goto exit_int ; Interrupt from eerom ee_int incf eerom_cnt,F bcf PIR1,EEIF goto exit_int ; Interrupt from adc adc_int incf adc_cnt,F bcf PIR1,ADIF goto exit_int exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start ; ; test pins in analog mode return 0 on register read BANKSEL TRISA clrf TRISA bcf OPTION_REG,NOT_RAPU ; enable pullups on portA BANKSEL PORTA movlw 0xff movwf PORTA .assert "(porta & 0x17) == 0, \"**FAILED 16f676 analog bits read 0\"" nop clrf PORTA movwf PORTA movf PORTA,W BANKSEL ANSEL clrf ANSEL ; turn off ADC port selects BANKSEL PORTA movlw 0xff movwf CMCON ; turn off Comparator .assert "cmcon == 0x1f, \"**FAILED 16f676 CMCON read 0 bits\"" nop ; ; test PORTA works as expected ; clrf PORTA bsf STATUS,RP0 movlw 0x38 movwf TRISA ;PORTA 0,1,2 output 3,4,5 input bcf STATUS,RP0 .assert "porta == 0x00, \"PORTA = 0x00\"" nop movlw 0x07 movwf PORTA ; drive 0,1,2 bits high .assert "porta == 0x3f, \"PORTA = 0x3f\"" nop bsf STATUS,RP0 movlw 0x07 movwf TRISA ; PORTA 4, 5 output 0,1,2,3 input (3 input only) bcf STATUS,RP0 .assert "porta == 0x0c, \"PORTA = 0x0c\"" nop movlw 0x38 movwf PORTA ; drive output bits high .assert "porta == 0x3f, \"PORTA = 0x3f\"" nop call test_compare call test_tmr1 call test_eerom call test_adc .assert "\"*** PASSED 16f676 Functionality\"" goto $ test_compare: ;; Comparator Tests ;; ;; Mode 1 (Comparator with Output) ;; CIN- > CIN+ COUT = 0 and porta2 low unless CINV=1 ;; CIS has no effect on output ;; CIN- < CIN+ gives output ;; Mode 3 (Comparator with output and Vref) ;; CIN- high COUT = 0 ;; CІN- low COUT = 1 ;; CIS has no effect on COUT ;; Mode 5 (Mux input with output and Vref) ;; CIN- low, CIS = 0 COUT = 1 ;; CIN+ high (CIN- low) with CIS = 0 has no effect on COUT ;; CIN+ high, CIN- low, CIS 1 COUT = 0 ;; CIN+ low (CIN- high) CIS 1 COUT = 1 ;; CIN+ high (CIN- high) CIS 1 COUT = 0 ;; enable and catch interrupt when CINV set ; ; Test mode 1 Comparator with output ; bsf STATUS,RP0 movlw 0x03 movwf TRISA ; PORTA 2, 4, 5 output 0,1,3 input (3 input only) bcf STATUS,RP0 movlw 0x20 movwf PORTA ; AN0 1 AN1 0 movlw 0x01 movwf CMCON .assert "cmcon == 1, \"*** FAILED 16f676 cmcon Comp mode 1 Cinv 0 v+ > v-\"" nop .assert "(porta & 0x04) == 0, \"*** FAILED 16f676 porta2 Comp mode 1 Cinv 0 v+ > v-\"" nop bsf CMCON,CINV ; Cinv = 1 .assert "cmcon == 0x51, \"*** FAILED 16f676 cmcon Comp mode 1 Cinv 1 v+ > v-\"" nop bsf CMCON,CIS ; CIS = 1 .assert "cmcon == 0x59, \"*** FAILED 16f676 cmcon Comp mode 1 Cinv 1 CIS 1 v+ > v-\"" nop .assert "(porta & 0x04) == 0x04, \"*** FAILED 16f676 porta2 Comp mode 1 Cinv 1 v+ > v-\"" nop movlw 0x01 movwf CMCON ; clear CINV and CIS movlw 0x10 movwf PORTA ; AN0 0 AN1 1 .assert "cmcon == 0x41, \"*** FAILED 16f676 Comp mode1 v+ < v-\"" nop .assert "(porta & 0x04) == 0x04, \"*** FAILED 16f676 porta2 Comp mode 1 Cinv 1 v+ < v-\"" nop bsf CMCON,CINV .assert "cmcon == 0x11, \"*** FAILED 16f676 cmcon Comp mode 1 Cinv 1 v+ < v-\"" nop .assert "(porta & 0x04) == 0, \"*** FAILED 16f676 porta2 Comp mode 1 Cinv 1 v+ < v-\"" nop nop ; ; Mode 3 internal reference with output ; BANKSEL VRCON bsf VRCON,VREN ; Voltage reference high range BANKSEL CMCON movlw 0x03 movwf CMCON .assert "cmcon == 0x03, \"*** FAILED 16f676 cmcon Comp mode 3 Cinv 0 AN1 5V\"" nop bcf PORTA,4 ; drive AN1 to low .assert "cmcon == 0x43, \"*** FAILED 16f676 cmcon Comp mode 3 Cinv 0 AN1 0V\"" nop bsf CMCON,CIS ; CIS should not change output .assert "cmcon == 0x4b, \"*** FAILED 16f676 cmcon Comp mode 3 Cinv 0 Cis 1 AN1 0V\"" nop ; ; test mode 5 - MUX input with Vref and Output ; movlw 0x05 movwf CMCON ; mode 5 and AN1 .assert "cmcon == 0x45, \"*** FAILED 16f676 cmcon Comp mode 5 CIS 0 AN0 0V AN1 0V\"" nop bsf PORTA,5 ; Drive AN0 high (AN1 low) .assert "cmcon == 0x45, \"*** FAILED 16f676 cmcon Comp mode 5 CIS 0 AN0 5V AN1 0V\"" nop bsf CMCON,CIS ; select AN0 (PORTA0) .assert "cmcon == 0x0d, \"*** FAILED 16f676 cmcon Comp mode 5 CIS 1 AN0 5V AN1 0V\"" nop movlw 0x10 ; Drive AN0 low AN1 High movwf PORTA .assert "cmcon == 0x4d, \"*** FAILED 16f676 cmcon Comp mode 5 CIS 1 AN0 0V AN1 5V\"" nop bsf PORTA,5 ; Drive AN0 high (AN1 high) .assert "cmcon == 0x0d, \"*** FAILED 16f676 cmcon Comp mode 5 CIS 1 AN0 5V AN1 5V\"" nop ; ; test comparator interupts ; bcf PIR1,CMIF BANKSEL PIE1 movlw (1 << GIE) | ( 1 << PEIE ) movwf INTCON bsf PIE1,CMIE BANKSEL CMCON bsf CMCON,CINV ; this should change output and cause interrupt cm_loop: movf cmif_cnt,W btfsc STATUS,Z goto cm_loop nop ;RRR clrf INTCON movlw 0x07 ; turn off comparator movwf CMCON return test_tmr1: ;; Here are the tests performed: ;; ;; -- TMR1L and TMR1H can be read and written ;; -- TMR1 driven Fosc/4 with prescale of 8 and generates an interrupt ; Load TMR1H, TMR1L with 0x8000 CLRF TMR1L MOVLW 0x80 MOVWF TMR1H BCF PIR1,TMR1IF ;Clear any TMR1 pending interrupt BANKSEL PIE1 BSF PIE1,TMR1IE ;Enable TMR1 interrupts BANKSEL TMR1L BSF INTCON,PEIE ;Enable Peripheral interrupts BSF INTCON,GIE ;Enable Global interrupts ; TMR1 not running yet, TMR1H and TMR1L should be unchanged MOVF TMR1L,W ; test read .assert "W==0, \"*** FAILED 16f676 TMR1 test TMR1L read\"" nop MOVF TMR1H,W .assert "W==0x80, \"*** FAILED 16f676 TMR1 test TMR1H read\"" nop ; at 4Mhz prescale of 8 Fosc/4 should interrupt in 0.1 seconds movlw 0xcf movwf TMR1H movlw 0x2c movwf TMR1L MOVLW (1< __CONFIG _CP_OFF & _DEBUG_OFF & _WRT_OFF & _CPD_OFF & _LVP_OFF & _PWRTE_ON & _BODEN_ON & _WDT_OFF & _HS_OSC errorlevel -302 variables UDATA 0x30 time RES 16 temp1 RES 1 temp2 RES 1 status_temp RES 1 w_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,W movwf status_temp btfsc INTCON,RBIF goto rb_int .assert "\"***FAILED p16f676 unexpected interrupt\"" nop rb_int nop bcf INTCON,RBIF exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ; MAIN CODE start ; .sim "break c 0x4d4b40" .sim "module lib libgpsim_modules" .sim "module load ds1307 ee" .sim "module load pu pu1" .sim "module load pu pu2" .sim "module load pu pu3" .sim "node n1" .sim "attach n1 portc4 pu1.pin portb4 ee.SDA" ; SDA .sim "node n2" .sim "attach n2 portc3 pu2.pin portb1 ee.SCL" ; SCL .sim "node n3" .sim "attach n3 pu3.pin portb0 ee.SQW" .sim "scope.ch0 = \"portc3\"" .sim "scope.ch1 = \"portc4\"" .sim "pu1.xpos = 240." .sim "pu1.ypos = 336." .sim "pu2.xpos = 216." .sim "pu2.ypos = 24." .sim "ee.xpos = 48." .sim "ee.ypos = 180." .sim "p16f876a.xpos = 240." .sim "p16f876a.ypos = 84." call ProgInit ; Get everything running step-by-step BANKSEL PORTA movlw 0x2F movwf time+2 movwf time+5 movlw 0x20 movwf time+8 movlw 0x3A movwf time+0xb movwf time+0xe nop loop: call is_ready call read_ds1307 sleep nop goto loop call I2CSendResult call write_eeprom call is_ready call read_ds1307 goto $ .command "dump e ee dump.hex" nop .assert "\"*** PASSED p16f876a I2C test\"" goto $ ;****************************** SUBROUTINES **************************** ;************************************************************************ START_I2C MACRO banksel SSPCON2 ; Generate I2C start bsf SSPCON2,SEN btfsc SSPCON2,SEN goto $-1 banksel PORTA ENDM RSTART_I2C MACRO banksel SSPCON2 ; Generate I2C repeat start bsf SSPCON2,RSEN btfsc SSPCON2,RSEN goto $-1 banksel PORTA ENDM STOP_I2C MACRO banksel SSPCON2 ; Generate I2C stop bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 banksel PORTA ENDM IDLE_WAIT_I2C MACRO banksel SSPCON2 movlw 0x1f andwf SSPCON2,W BNZ $-3 btfsc SSPSTAT,R_W goto $-1 banksel PORTA ENDM ;****************** Initialize Registers and Variables ***************** ;************************************************************************ ProgInit banksel PORTA clrf PORTA ; Set all bits to zero on Port A banksel TRISA clrf TRISA banksel SSPADD movlw 0x0C ; Set I2C baud rate to 385 kHz movwf SSPADD bcf OPTION_REG,INTEDG banksel SSPCON movlw 0x08 ; Set for I2C master mode movwf SSPCON movlw 0x28 ; Enable I2C movwf SSPCON bsf INTCON,INTE return ;************************************************************************ I2CSendResult banksel SSPCON2 ; Generate I2C start, bus collision bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 bsf SSPCON2,SEN bcf TRISB,1 IDLE_WAIT_I2C .assert "(pir2 & 0x08) == 0x08, \"FAILED BCLIF for start\"" nop banksel TRISB bsf TRISB,1 banksel PIR2 bcf PIR2,BCLIF banksel SSPCON2 ; Generate I2C start bsf SSPCON2,SEN IDLE_WAIT_I2C .assert "(portc & 0x18) == 0, \"FAILED Start SCL, SDL low\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED Start SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED Start BCLIF clear\"" nop .assert "(sspstat & 0x3f) == 0x08, \"FAILED Start S bit set\"" nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 ; Generate I2C restart bsf SSPCON2,RSEN btfsc SSPCON2,RSEN goto $-1 .assert "(portc & 0x18) == 0, \"FAILED RStart SCL, SDL low\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED RStart SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED RStart BCLIF clear\"" nop .assert "(sspstat & 0x3f) == 0x08, \"FAILED RStart S bit set\"" nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,ACKDT bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 .assert "(portc & 0x18) == 0x10, \"FAILED ACKEN SCL low, SDL high\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED ACKEN SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED ACKEN BCLIF clear\"" nop .assert "(sspstat & 0x3f) == 0x08, \"FAILED ACKEN S bit set\"" nop bcf SSPCON2,ACKDT bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 ; Generate I2C restart bsf SSPCON2,RSEN btfsc SSPCON2,RSEN goto $-1 .assert "(portc & 0x18) == 0, \"FAILED RStart SCL, SDL low\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED RStart SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED RStart BCLIF clear\"" nop .assert "(sspstat & 0x3f) == 0x08, \"FAILED RStart S bit set\"" nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 ; Generate I2C stop bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 .assert "(portc & 0x18) == 0x18, \"FAILED Stop SCL, SDL high\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED Stop SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED Stop BCLIF clear\"" nop .assert "(sspstat & 0x3f) == 0x10, \"FAILED Stop P bit set\"" nop return ; ; repeatedly send command to eeprom until an ACK ; is received back ; ; The call of delay is not required for operation of the code, ; but it speeds up the simulation with the GUI running. -- RRR ; is_ready banksel SSPCON movlw 0x04 movwf temp2 clrf temp1 call delay banksel SSPCON2 ; Generate I2C start bsf SSPCON2,SEN btfsc SSPCON2,SEN goto $-1 movlw 0xd0 ; write command to eeprom call I2C_send_w call I2C_stop banksel SSPCON2 ; Generate I2C start btfsc SSPCON2,ACKSTAT goto is_ready banksel PIR2 bcf PIR2,BCLIF return write_eeprom_address banksel SSPCON2 ; Generate I2C start bsf SSPCON2,SEN btfsc SSPCON2,SEN goto $-1 movlw 0xd0 ; write command to eeprom call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write command to eeprom ACK\"" nop .assert "(sspstat & 0x01) == 0x00, \"FAILED write to eeprom BF clear\"" nop banksel PIR1 bcf PIR1,SSPIF movlw 0x00 ; write eeprom address call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write address to eeprom ACK\"" nop return write_eeprom call write_eeprom_address banksel PIR1 bcf PIR1,SSPIF movlw 0x59 ; write seconds 12 call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write data1 to eeprom ACK\"" nop banksel PIR1 bcf PIR1,SSPIF movlw 0x59 ; write minutes 10 call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write data2 to eeprom ACK\"" nop banksel PIR1 bcf PIR1,SSPIF movlw 0x59 ; write hours 19 24 hour call I2C_send_w nop banksel PIR1 bcf PIR1,SSPIF movlw 0x01 ; write Day of week (1-7) call I2C_send_w nop banksel PIR1 bcf PIR1,SSPIF movlw 0x03 ; write Day of month call I2C_send_w nop banksel PIR1 bcf PIR1,SSPIF movlw 0x05 ; write month call I2C_send_w nop banksel PIR1 bcf PIR1,SSPIF movlw 0x10 ; write year call I2C_send_w nop banksel PIR1 bcf PIR1,SSPIF movlw 0x10 ; control out=1 SQWE off call I2C_send_w nop call I2C_stop return clr_eeprom call write_eeprom_address banksel PIR1 bcf PIR1,SSPIF movlw 0x00 ; write data1 call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write data1 to eeprom ACK\"" nop banksel PIR1 bcf PIR1,SSPIF movlw 0x00 ; write data2 call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write data2 to eeprom ACK\"" nop nop call I2C_stop return read_ds1307 call write_eeprom_address banksel SSPCON2 ; Generate I2C repeated start bsf SSPCON2,RSEN btfsc SSPCON2,RSEN goto $-1 movlw 0xd1 ; Send address/read to eeprom banksel SSPBUF movwf SSPBUF banksel SSPCON2 ; wait for idle (ACKEN,RCEN,PEN,RSEN,SEN) == 0 movlw 0x1f andwf SSPCON2,W BNZ $-3 btfsc SSPSTAT,R_W ; also R_W == 0 goto $-1 .assert "(sspstat & 0x01) == 0x00, \"FAILED address/read to eeprom BF clear\"" nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,RCEN ; read seconds from RTC btfsc SSPCON2,RCEN goto $-1 .assert "(pir1 & 0x08) == 0x08, \"FAILED RCEN SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED RCEN BCLIF clear\"" nop .assert "(sspstat & 0x01) == 0x01, \"FAILED RCEN BF set\"" nop banksel SSPBUF movf SSPBUF,W banksel PORTA movwf time+0x10 movwf time+0xf movlw 0x0f andwf time+0x10,f movlw 0x30 addwf time+0x10,f movlw 0x70 andwf time+0xf,f RRF time+0xf,f RRF time+0xf,f RRF time+0xf,f RRF time+0xf,f movlw 0x30 addwf time+0xf,f nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bcf SSPCON2,ACKDT ; send ACK bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,RCEN ; read minutes from RTC btfsc SSPCON2,RCEN goto $-1 banksel SSPBUF movf SSPBUF,W banksel PORTA movwf time+0xd movwf time+0xc movlw 0x0f andwf time+0xd,f movlw 0x30 addwf time+0xd,f movlw 0xf0 andwf time+0xc,f RRF time+0xc,f RRF time+0xc,f RRF time+0xc,f RRF time+0xc,f movlw 0x30 addwf time+0xc,f nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bcf SSPCON2,ACKDT ; send ACK bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,RCEN ; read Hours from RTC btfsc SSPCON2,RCEN goto $-1 banksel SSPBUF movf SSPBUF,W banksel PORTA movwf time+0xa movwf time+0x9 movlw 0x0f andwf time+0xa,f movlw 0x30 addwf time+0xa,f movlw 0x30 andwf time+0x9,f RRF time+0x9,f RRF time+0x9,f RRF time+0x9,f RRF time+0x9,f movlw 0x30 addwf time+0x9,f nop banksel SSPCON2 bcf SSPCON2,ACKDT ; send ACK bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,RCEN ; read day of week btfsc SSPCON2,RCEN goto $-1 banksel SSPBUF movf SSPBUF,W banksel SSPCON2 bcf SSPCON2,ACKDT ; send ACK bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,RCEN ; read Day of month btfsc SSPCON2,RCEN goto $-1 banksel SSPBUF movf SSPBUF,W banksel PORTA movwf time+0x1 movwf time+0x0 movlw 0x0f andwf time+0x1,f movlw 0x30 addwf time+0x1,f movlw 0x30 andwf time+0x0,f RRF time+0x0,f RRF time+0x0,f RRF time+0x0,f RRF time+0x0,f movlw 0x30 addwf time+0x0,f nop banksel SSPCON2 bcf SSPCON2,ACKDT ; send ACK bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,RCEN ; read month btfsc SSPCON2,RCEN goto $-1 banksel SSPBUF movf SSPBUF,W banksel PORTA movwf time+0x4 movwf time+0x3 movlw 0x0f andwf time+0x4,f movlw 0x30 addwf time+0x4,f movlw 0x30 andwf time+0x3,f RRF time+0x3,f RRF time+0x3,f RRF time+0x3,f RRF time+0x3,f movlw 0x30 addwf time+0x3,f nop banksel SSPCON2 bcf SSPCON2,ACKDT ; send ACK bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,RCEN ; read Year btfsc SSPCON2,RCEN goto $-1 banksel SSPBUF movf SSPBUF,W banksel PORTA movwf time+0x7 movwf time+0x6 movlw 0x0f andwf time+0x7,f movlw 0x30 addwf time+0x7,f movlw 0xf0 andwf time+0x6,f RRF time+0x6,f RRF time+0x6,f RRF time+0x6,f RRF time+0x6,f movlw 0x30 addwf time+0x6,f nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,ACKDT ; send NACK bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 return I2C_stop banksel SSPCON2 ; Generate I2C stop bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 return delay decfsz temp1,f goto $+2 decfsz temp2,f goto delay return ;********************** Output byte in W via I2C bus ******************** ;************************************************************************ I2C_send_w banksel SSPBUF ; Second byte of data (middle) movwf SSPBUF banksel SSPSTAT btfsc SSPSTAT,R_W goto $-1 return end gpsim-0.27.0/regression/i2c/p16f876a.asm0000644000076400007640000002164212175213160014374 00000000000000; ; Test reading, writing, dump and load for external i2c EEPROM module ; ; Copyright (c) 2007 Roy Rankin ; MACROS and some code included the following ;************************************************************************ ;* Microchip Technology Inc. 2006 ;* 02/15/06 ;* Designed to run at 20MHz ;************************************************************************ ; gpsim command .command macro x .direct "C", x endm list p=16F876A #include p16f876a.inc include __CONFIG _CP_OFF & _DEBUG_OFF & _WRT_OFF & _CPD_OFF & _LVP_OFF & _PWRTE_ON & _BODEN_ON & _WDT_OFF & _HS_OSC errorlevel -302 variables UDATA 0x30 temp1 RES 1 temp2 RES 1 STARTUP CODE NOP goto start NOP NOP NOP PROG1 CODE ; start .sim "break c 0x100000" .sim "module lib libgpsim_modules" .sim "module load e24xx024 ee" .sim "module load pu pu1" .sim "module load pu pu2" .sim "node n1" .sim "attach n1 portc4 pu1.pin portb4 ee.SDA" ; SDA .sim "node n2" .sim "attach n2 portc3 pu2.pin portb1 ee.SCL" ; SCL .sim "node n3" .sim "attach n3 porta0 ee.WP" .sim "node n4" .sim "attach n4 porta1 ee.A0" .sim "node n5" .sim "attach n5 porta2 ee.A1" .sim "node n6" .sim "attach n6 porta3 ee.A2" .sim "scope.ch0 = \"portc3\"" .sim "scope.ch1 = \"portc4\"" .sim "pu1.xpos = 240." .sim "pu1.ypos = 336." .sim "pu2.xpos = 216." .sim "pu2.ypos = 24." .sim "ee.xpos = 48." .sim "ee.ypos = 180." .sim "p16f876a.xpos = 240." .sim "p16f876a.ypos = 84." call ProgInit ; Get everything running step-by-step call I2CSendResult call write_eeprom call is_ready call read_eeprom .command "dump e ee dump.hex" nop call is_ready call clr_eeprom .command "load e ee dump.hex" nop call is_ready call read_eeprom .assert "\"*** PASSED p16f876a I2C test\"" goto $ ;****************************** SUBROUTINES **************************** ;************************************************************************ START_I2C MACRO banksel SSPCON2 ; Generate I2C start bsf SSPCON2,SEN btfsc SSPCON2,SEN goto $-1 banksel PORTA ENDM RSTART_I2C MACRO banksel SSPCON2 ; Generate I2C repeat start bsf SSPCON2,RSEN btfsc SSPCON2,RSEN goto $-1 banksel PORTA ENDM STOP_I2C MACRO banksel SSPCON2 ; Generate I2C stop bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 banksel PORTA ENDM IDLE_WAIT_I2C MACRO banksel SSPCON2 movlw 0x1f andwf SSPCON2,W BNZ $-3 btfsc SSPSTAT,R_W goto $-1 banksel PORTA ENDM ;****************** Initialize Registers and Variables ***************** ;************************************************************************ ProgInit banksel PORTA clrf PORTA ; Set all bits to zero on Port A banksel TRISA clrf TRISA banksel SSPADD movlw 0x0C ; Set I2C baud rate to 385 kHz movwf SSPADD banksel SSPCON movlw 0x08 ; Set for I2C master mode movwf SSPCON movlw 0x28 ; Enable I2C movwf SSPCON return ;************************************************************************ I2CSendResult banksel SSPCON2 ; Generate I2C start, bus collision bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 bsf SSPCON2,SEN bcf TRISB,1 IDLE_WAIT_I2C .assert "(pir2 & 0x08) == 0x08, \"FAILED BCLIF for start\"" nop banksel TRISB bsf TRISB,1 banksel PIR2 bcf PIR2,BCLIF banksel SSPCON2 ; Generate I2C start bsf SSPCON2,SEN ;RRR IDLE_WAIT_I2C banksel SSPCON2 movlw 0x1f andwf SSPCON2,W BNZ $-3 btfsc SSPSTAT,R_W goto $-1 banksel PORTA ;RRR .assert "(portc & 0x18) == 0, \"FAILED Start SCL, SDL low\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED Start SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED Start BCLIF clear\"" nop .assert "(sspstat & 0x3f) == 0x08, \"FAILED Start S bit set\"" nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 ; Generate I2C restart bsf SSPCON2,RSEN btfsc SSPCON2,RSEN goto $-1 .assert "(portc & 0x18) == 0, \"FAILED RStart SCL, SDL low\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED RStart SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED RStart BCLIF clear\"" nop .assert "(sspstat & 0x3f) == 0x08, \"FAILED RStart S bit set\"" nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,ACKDT bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 .assert "(portc & 0x18) == 0x10, \"FAILED ACKEN SCL low, SDL high\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED ACKEN SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED ACKEN BCLIF clear\"" nop .assert "(sspstat & 0x3f) == 0x08, \"FAILED ACKEN S bit set\"" nop bcf SSPCON2,ACKDT bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 ; Generate I2C restart bsf SSPCON2,RSEN btfsc SSPCON2,RSEN goto $-1 .assert "(portc & 0x18) == 0, \"FAILED RStart SCL, SDL low\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED RStart SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED RStart BCLIF clear\"" nop .assert "(sspstat & 0x3f) == 0x08, \"FAILED RStart S bit set\"" nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 ; Generate I2C stop bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 .assert "(portc & 0x18) == 0x18, \"FAILED Stop SCL, SDL high\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED Stop SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED Stop BCLIF clear\"" nop .assert "(sspstat & 0x3f) == 0x10, \"FAILED Stop P bit set\"" nop return ; ; repeatedly send command to eeprom until an ACK ; is received back ; ; The call of delay is not required for operation of the code, ; but it speeds up the simulation with the GUI running. -- RRR ; is_ready banksel SSPCON movlw 0x04 movwf temp2 clrf temp1 call delay banksel SSPCON2 ; Generate I2C start bsf SSPCON2,SEN btfsc SSPCON2,SEN goto $-1 movlw 0xa0 ; write command to eeprom call I2C_send_w call I2C_stop banksel SSPCON2 ; Generate I2C start btfsc SSPCON2,ACKSTAT goto is_ready banksel PIR2 bcf PIR2,BCLIF return write_eeprom_address banksel SSPCON2 ; Generate I2C start bsf SSPCON2,SEN btfsc SSPCON2,SEN goto $-1 movlw 0xa0 ; write command to eeprom call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write command to eeprom ACK\"" nop .assert "(sspstat & 0x01) == 0x00, \"FAILED write to eeprom BF clear\"" nop banksel PIR1 bcf PIR1,SSPIF movlw 0x00 ; write eeprom address call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write address to eeprom ACK\"" nop return write_eeprom call write_eeprom_address banksel PIR1 bcf PIR1,SSPIF movlw 0x80 ; write data1 call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write data1 to eeprom ACK\"" nop banksel PIR1 bcf PIR1,SSPIF movlw 0x81 ; write data2 call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write data2 to eeprom ACK\"" nop nop call I2C_stop return clr_eeprom call write_eeprom_address banksel PIR1 bcf PIR1,SSPIF movlw 0x00 ; write data1 call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write data1 to eeprom ACK\"" nop banksel PIR1 bcf PIR1,SSPIF movlw 0x00 ; write data2 call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write data2 to eeprom ACK\"" nop nop call I2C_stop return read_eeprom call write_eeprom_address banksel SSPCON2 ; Generate I2C repeated start bsf SSPCON2,RSEN btfsc SSPCON2,RSEN goto $-1 movlw 0xa1 ; Send address/read to eeprom banksel SSPBUF movwf SSPBUF banksel SSPCON2 ; wait for idle (ACKEN,RCEN,PEN,RSEN,SEN) == 0 movlw 0x1f andwf SSPCON2,W BNZ $-3 btfsc SSPSTAT,R_W ; also R_W == 0 goto $-1 .assert "(sspstat & 0x01) == 0x00, \"FAILED address/read to eeprom BF clear\"" nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,RCEN ; read data from eeprom btfsc SSPCON2,RCEN goto $-1 .assert "(pir1 & 0x08) == 0x08, \"FAILED RCEN SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED RCEN BCLIF clear\"" nop .assert "(sspstat & 0x01) == 0x01, \"FAILED RCEN BF set\"" nop banksel SSPBUF movf SSPBUF,W .assert "W == 0x80, \"FAILED RCEN, read Data\"" nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bcf SSPCON2,ACKDT ; send ACK bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,RCEN ; read next byte btfsc SSPCON2,RCEN goto $-1 banksel SSPBUF movf SSPBUF,W .assert "W == 0x81, \"FAILED RCEN, read Data2\"" nop banksel SSPCON2 bsf SSPCON2,ACKDT ; send NACK bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 return I2C_stop banksel SSPCON2 ; Generate I2C stop bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 return delay decfsz temp1,f goto $+2 decfsz temp2,f goto delay return ;********************** Output byte in W via I2C bus ******************** ;************************************************************************ I2C_send_w banksel SSPBUF ; Second byte of data (middle) movwf SSPBUF banksel SSPSTAT btfsc SSPSTAT,R_W goto $-1 return end gpsim-0.27.0/regression/i2c/netlist.stc0000644000076400007640000000026211226212214014673 00000000000000p16f88.xpos = 96 p16f88.ypos = 144 module load pu pu1 pu1.resistance = 10000 pu1.xpos = 276 pu1.ypos = 72 module load pu pu2 pu2.resistance = 10000 pu2.xpos = 96 pu2.ypos = 48 gpsim-0.27.0/regression/i2c/p16f88.asm0000644000076400007640000004177011226212573014155 00000000000000 list p=16f88 include include __CONFIG _CONFIG1, _CP_OFF & _WDT_OFF & _INTRC_IO & _PWRTE_ON & _LVP_OFF & _BODEN_OFF & _MCLR_OFF __CONFIG _CONFIG2, _IESO_OFF & _FCMEN_OFF ;; The purpose of this program is to test gpsim's ability to simulate a pic 16F88. ;; Specifically, I2C errorlevel -302 ; Printf Command .command macro x .direct "C", x endm _ClkIn equ 8000000 ; Input Clock Frequency _ClkOut equ (_ClkIn >> 2) ; ; Compute the delay constants for setup & hold times ; _40uS_Delay set (_ClkOut/250000) _47uS_Delay set (_ClkOut/212766) _50uS_Delay set (_ClkOut/200000) TRUE equ 1 FALSE equ 0 LSB equ 0 MSB equ 7 #define SCL_PIN 2 #define SDA_PIN 3 #define I2CPORT PORTB #define _SCL_D I2CPORT,SCL_PIN #define _SCL TRISB,SCL_PIN #define _SDA TRISB,SDA_PIN #define T0IE TMR0IE #define T0IF TMR0IF #define _ENABLE_BUS_FREE_TIME TRUE #define _CLOCK_STRETCH_CHECK TRUE #define _OPTION_INIT (0xC0 | 0x02) ; Prescaler to TMR0 for Appox 1 mSec timeout ;***************************************************************************** ; I2C Bus Status Reg Bit Definitions ;***************************************************************************** #define _Bus_Busy Bus_Status,0 #define _Abort Bus_Status,1 #define _Txmt_Progress Bus_Status,2 #define _Rcv_Progress Bus_Status,3 #define _Txmt_Success Bus_Status,4 #define _Rcv_Success Bus_Status,5 #define _Fatal_Error Bus_Status,6 #define _ACK_Error Bus_Status,7 ;***************************************************************************** ; I2C Bus Contro Register ;***************************************************************************** #define _10BitAddr Bus_Control,0 #define _Slave_RW Bus_Control,1 #define _Last_Byte_Rcv Bus_Control,2 #define _SlaveActive Bus_Control,6 #define _TIME_OUT_ Bus_Control,7 RELEASE_BUS MACRO bsf STATUS,RP0 ; select page 1 bsf _SDA ; tristate SDA bsf _SCL ; tristate SCL ; bcf _Bus_Busy ; Bus Not Busy, TEMP ????, set/clear on Start & Stop ENDM ;**************************************************************************** ; A MACRO To Load 8 OR 10 Bit Address To The Address Registers ; ; SLAVE_ADDRESS is a constant and is loaded into the SlaveAddress Register(s) ; depending on 8 or 10 bit addressing modes ;**************************************************************************** LOAD_ADDR_10 MACRO SLAVE_ADDRESS bsf _10BitAddr ; Slave has 10 bit address movlw (SLAVE_ADDRESS & 0xff) movwf SlaveAddr ; load low byte of address movlw (((SLAVE_ADDRESS >> 7) & 0x06) | 0xF0) ; 10 bit addr 11110AA0 movwf SlaveAddr+1 ; hi order address ENDM LOAD_ADDR_8 MACRO SLAVE_ADDRESS bcf _10BitAddr ; Set for 8 Bit Address Mode movlw (SLAVE_ADDRESS & 0xff) movwf SlaveAddr ENDM ;**************************************************************************** ; I2C_WRITE_SUB ; ; Writes a message just like I2C_WRITE, except that the data is preceeded ; by a sub-address to a slave device. ; Eg. : A serial EEPROM would need an address of memory location for ; Random Writes ; ; Parameters : ; _BYTES_ #of bytes starting from RAM pointer _SourcePointer_ (constant) ; _SourcePointer_ Data Start Buffer pointer in RAM (file Registers) ; _Sub_Address_ Sub-address of Slave (constant) ; ; Sequence : ; S-SlvAW-A-SubA-A-D[0]-A.....A-D[N-1]-A-P ; ; If an error occurs then the routine simply returns and user should check for ; flags in Bus_Status Reg (for eg. _Txmt_Success flag ; ; Returns : WREG = 1 on success, else WREG = 0 ; ; NOTE : The address of the slave must be loaded into SlaveAddress Registers, ; and 10 or 8 bit mode addressing must be set ; ; COMMENTS : ; I2C_WR may prove to be more efficient than this macro in most situations ; Advantages will be found for Random Address Block Writes for Slaves with ; Auto Increment Sub-Addresses (like Microchip's 24CXX series Serial ; EEPROMS) ; ;**************************************************************************** I2C_WR_SUB MACRO _BYTES_, _SourcePointer_, _Sub_Address_ movlw (_BYTES_ + 1) movwf tempCount movlw (_SourcePointer_ - 1) movwf FSR movf INDF,W movwf StoreTemp_1 ; temporarily store contents of (_SourcePointer_ -1) movlw _Sub_Address_ movwf INDF ; store temporarily the sub-address at (_SourcePointer_ -1) call _i2c_block_write ; write _BYTES_+1 block of data movf StoreTemp_1,W movwf (_SourcePointer_ - 1) ; restore contents of (_SourcePointer_ - 1) ; call TxmtStopBit ; Issue a stop bit to end transmission ENDM I2C_WR_SUB2 MACRO _BYTES_, _SourcePointer_, _Sub_Address_, _Sub_Address2_ movlw (_BYTES_ + 2) movwf tempCount movlw (_SourcePointer_ - 2) movwf FSR movf INDF,W movwf StoreTemp_1 ; temporarily store contents of (_SourcePointer_ -2) movlw _Sub_Address_ movwf INDF ; store temporarily the sub-address at (_SourcePointer_ -2) movlw (_SourcePointer_ - 1) movwf FSR movlw _Sub_Address2_ movwf INDF movlw (_SourcePointer_ - 2) movwf FSR call _i2c_block_write ; write _BYTES_+1 block of data movf StoreTemp_1,W ; movwf (_SourcePointer_ - 2) ; restore contents of (_SourcePointer_ - 1) ; call TxmtStopBit ; Issue a stop bit to end transmission ENDM ;**************************************************************************** ; I2C_WRITE ; ; A basic macro for writing a block of data to a slave ; ; Parameters : ; _BYTES_ #of bytes starting from RAM pointer _SourcePointer_ ; _SourcePointer_ Data Start Buffer pointer in RAM (file Registers) ; ; Sequence : ; S-SlvAW-A-D[0]-A.....A-D[N-1]-A-P ; ; If an error occurs then the routine simply returns and user should check for ; flags in Bus_Status Reg (for eg. _Txmt_Success flag) ; ; NOTE : The address of the slave must be loaded into SlaveAddress Registers, ; and 10 or 8 bit mode addressing must be set ;**************************************************************************** I2C_WR MACRO _BYTES_, _SourcePointer_ movlw _BYTES_ movwf tempCount movlw _SourcePointer_ movwf FSR call _i2c_block_write call TxmtStopBit ; Issue a stop bit for slave to end transmission ENDM ;***************************************************************************** ; ; I2C_READ ; ; The basic MACRO/procedure to read a block message from a slave device ; ; Parameters : ; _BYTES_ : constant : #of bytes to receive ; _DestPointer_ : destination pointer of RAM (File Registers) ; ; Sequence : ; S-SlvAR-A-D[0]-A-.....-A-D[N-1]-N-P ; ; If last byte, then Master will NOT Acknowledge (send NACK) ; ; NOTE : The address of the slave must be loaded into SlaveAddress Registers, ; and 10 or 8 bit mode addressing must be set ; ;***************************************************************************** I2C_READ MACRO _BYTES_, _DestPointer_ movlw (_BYTES_ -1) movwf tempCount ; -1 because, the last byte is used out of loop movlw _DestPointer_ movwf FSR ; FIFO destination address pointer call _i2c_block_read ENDM ;*************************************************************************** ; ; I2C_READ_SUB ; This MACRO/Subroutine reads a message from a slave device preceeded by ; a write of the sub-address. ; Between the sub-addrers write & the following reads, a STOP condition ; is not issued and a "REPEATED START" condition is used so that an other ; master will not take over the bus, and also that no other master will ; overwrite the sub-address of the same salve. ; ; This function is very commonly used in accessing Random/Sequential reads ; from a memory device (e.g : 24Cxx serial of Serial EEPROMs from Microchip). ; ; Parameters : ; _BYTES_ # of bytes to read ; _DestPointer_ The destination pointer of data to be received. ; _BubAddress_ The sub-address of the slave ; ; Sequence : ; S-SlvAW-A-SubAddr-A-S-SlvAR-A-D[0]-A-.....-A-D[N-1]-N-P ; ; ;*************************************************************************** I2C_READ_SUB MACRO _BYTES_, _DestPointer_, _SubAddress_ bcf _Slave_RW ; set for write operation call TxmtStartBit ; send START bit call Txmt_Slave_Addr ; if successful, then _Txmt_Success bit is set movlw _SubAddress_ movwf DataByte ; START address of EEPROM(slave 1) call SendData ; write sub address ; ; do not send STOP after this, use REPEATED START condition ; I2C_READ _BYTES_, _DestPointer_ ENDM I2C_READ_SUB2 MACRO _BYTES_, _DestPointer_, _SubAddress_, _SubAddress2_ bcf _Slave_RW ; set for write operation call TxmtStartBit ; send START bit call Txmt_Slave_Addr ; if successful, then _Txmt_Success bit is set movlw _SubAddress_ movwf DataByte ; START address of EEPROM(slave 1) call SendData ; write sub address movlw _SubAddress2_ movwf DataByte ; START address of EEPROM(slave 1) call SendData ; write sub address ; ; do not send STOP after this, use REPEATED START condition ; I2C_READ _BYTES_, _DestPointer_ ENDM ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- INT_VAR UDATA IO_buf RES 10 IN_buf RES 10 GPR_DATA UDATA_SHR w_temp RES 1 status_temp RES 1 SlaveAddr RES 1 ; Slave Addr must be loader into this reg SlaveAddrHi RES 1 ; for 10 bit addressing mode DataByte RES 1 ; load this reg with the data to be transmitted BitCount RES 1 ; The bit number (0:7) transmitted or received Bus_Status RES 1 ; Status Reg of I2C Bus for both TXMT & RCVE Bus_Control RES 1 ; control Register of I2C Bus DelayCount RES 1 DataByteCopy RES 1 ; copy of DataByte for Left Shifts (destructive) SubAddr RES 1 ; sub-address of slave (used in I2C_HIGH.ASM) SrcPtr RES 1 ; source pointer for data to be transmitted tempCount RES 1 ; a temp variable for scratch RAM StoreTemp_1 RES 1 ; a temp variable for scratch RAM, do not disturb contents _End_I2C_Ram RES 1 ; unused, only for ref of end of RAM allocation ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp bcf STATUS,RP0 ;adcon0 is in bank 0 if _CLOCK_STRETCH_CHECK ; TMR0 Interrupts enabled only if Clock Stretching is Used btfss INTCON,T0IF goto check ; other Interrupts bsf _TIME_OUT_ ; MUST set this Flag bcf INTCON,T0IF goto int_ret endif check: btfss PIR1,SSPIF goto int_ret bcf PIR1,SSPIF call sspint int_ret: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "module lib libgpsim_modules" .sim "p16f88.xpos = 96" .sim "p16f88.ypos = 144" .sim "module load pu pu1" .sim "pu1.xpos = 276" .sim "pu1.ypos = 72" .sim "module load pu pu2" .sim "pu2.xpos = 96" .sim "pu2.ypos = 48" .sim "node n1" .sim "attach n1 portb2 pu1.pin portb4" ; ee.SCL" .sim "node n2" .sim "attach n2 portb3 pu2.pin portb1" ; ee.SDA" .sim "node n3" ;.sim "attach n3 porta0 ee.WP" .sim "node n4" ;.sim "attach n4 porta1 ee.A0" .sim "node n5" ;.sim "attach n5 porta2 ee.A1" .sim "node n6" ;.sim "attach n6 porta3 ee.A2" .sim "scope.ch0 = \"portb2\"" .sim "scope.ch1 = \"portb3\"" bsf STATUS,RP0 ; bank 1 movlw 0xf6 ; set internal RC to 8 Mhz movwf OSCCON clrf TRISA bsf PIE1,SSPIE ; allow SSP interrupts bsf INTCON,GIE ; allow interrupts bsf INTCON,PEIE ; allow interrupts bcf STATUS,RP0 ; bank 0 ; bsf PORTA,0 ; Write protect bsf PORTA,1 ; A0 movlw 0x10 movwf tempCount movlw IO_buf movwf FSR Fill_loop: movf FSR,W movwf INDF incf FSR,F decfsz tempCount,F goto Fill_loop movlw 0x36 movwf SSPCON bsf STATUS,RP0 ; bank 1 movlw 0xa2 movwf SSPADD bcf STATUS,RP0 ; bank 0 call InitI2CBus_Master LOAD_ADDR_8 0xa2 call IsSlaveActive btfss _SlaveActive .assert "\"Slave not active\"" nop LOAD_ADDR_8 0xa2 ; I2C_WR_SUB 8, IO_buf, 0x0c I2C_WR_SUB2 8, IO_buf, 0x0c, 0x0c call TxmtStopBit ; Issue a stop bit to end transmission movf Bus_Status,W .assert "W == 0x10, \"*** FAILED I2C write status\"" nop poll_ready: LOAD_ADDR_8 0xa2 call IsSlaveActive btfss _SlaveActive goto poll_ready ; slave not active yet nop ; ; write 0xa2 0x0c 0x0c to set an address ; write RSTART 0xa3 to initiate read ; read 8 bytes of data into ram starting at IN_buf ; LOAD_ADDR_8 0xa2 I2C_READ_SUB2 8, IN_buf, 0x0c, 0x0c nop bcf STATUS,RP0 ; bank 0 movf IN_buf,W .assert "W == 0xf5, \"*** FAILED read data\"" nop movf Bus_Status,W .assert "W == 0x30, \"*** FAILED 8 bit read status\"" nop ; ; write 8 bytes of data in slave 10bit mode ; bcf STATUS,RP0 ; bank 0 movlw 0x37 movwf SSPCON bsf STATUS,RP0 ; bank 1 movlw 0xf0 movwf SSPADD bcf STATUS,RP0 ; bank 0 LOAD_ADDR_10 0x0c I2C_WR 8, IO_buf .assert "\"*** PASSED p16f88 I2C test\"" nop goto $ IsSlaveActive bcf _Slave_RW ; set for write operation call TxmtStartBit ; send START bit call Txmt_Slave_Addr ; if successful, then _Txmt_Success bit is set ; bcf _SlaveActive btfss _ACK_Error ; skip if NACK, device is not present or not responding bsf _SlaveActive ; ACK received, device present & listening call TxmtStopBit return include "i2c_low.inc" _i2c_block_write: call TxmtStartBit ; send START bit bcf _Slave_RW ; set for write operation call Txmt_Slave_Addr ; if successful, then _Txmt_Success bit is set ; _block_wr1_loop: btfss _Txmt_Success return movf INDF,W movwf DataByte ; start from the first byte starting at _DataPointer_ incf FSR, F call SendData ; send next byte, bus is our's ! decfsz tempCount, F goto _block_wr1_loop ; loop until desired bytes of data ; transmitted to slave return ; ;**************************************************************************** _i2c_block_read: call TxmtStartBit ; send START bit bsf _Slave_RW ; set for read operation bcf _Last_Byte_Rcv ; not a last byte to rcv call Txmt_Slave_Addr ; if successful, then _Txmt_Success bit is set btfsc _Txmt_Success goto _block_rd1_loop ; end call TxmtStopBit ; Issue a stop bit for slave to end transmission retlw FALSE ; Error : may be device not responding ; _block_rd1_loop: call GetData movf DataByte,W movwf INDF ;start receiving data, starting at Destination Pointer incf FSR, F decfsz tempCount, F goto _block_rd1_loop ; loop until desired bytes of data transmitted to slave bsf _Last_Byte_Rcv ; last byte to rcv, so send NACK call GetData movf DataByte,W movwf INDF call TxmtStopBit ; Issue a stop bit for slave to end transmission retlw TRUE sspint: bsf STATUS,RP0 ; bank 1 btfsc SSPSTAT,R_W ; write test ? goto sspint_wr btfsc SSPSTAT,UA ; UA bit set goto sspint_ua bcf STATUS,RP0 ; bank 0 movf SSPBUF,W return sspint_wr: bcf STATUS,RP0 ; bank 0 movlw 0xf5 ; byte to send movwf SSPBUF bsf SSPCON,CKP ; turn off clock stretch return sspint_ua: movlw 0x0c ; second byte address movwf SSPADD bcf STATUS,RP0 ; bank 0 movf SSPBUF,W return end gpsim-0.27.0/regression/i2c/i2c_low.inc0000644000076400007640000003227210505370132014540 00000000000000;**************************************************************************** ; ; Low Level I2C Routines ; ; Single Master Transmitter & Single Master Receiver Routines ; These routines can very easily be converted to Multi-Master System ; when PIC16C6X with on chip I2C Slave Hardware, Start & Stop Bit ; detection is available. ; ; The generic high level routines are given in I2C_HIGH.ASM ; ; ; Program: I2C_LOW.ASM ; Revision Date: ; 1-16-97 Compatibility with MPASMWIN 1.40 ; ;*************************************************************************** ;************************************************************************** ; I2C Bus Initialization ; ;************************************************************************** InitI2CBus_Master: bcf STATUS,RP0 movlw ~(1< include __CONFIG _CP_OFF & _WDT_OFF & _INTRC_IO & _PWRTE_ON & _LVP_OFF & _BODEN_OFF & _MCLR_OFF ;; The purpose of this program is to test gpsim's ability ;; to simulate a pic 16F819. ;; Specifically, I2C errorlevel -302 ; Printf Command .command macro x .direct "C", x endm _ClkIn equ 8000000 ; Input Clock Frequency _ClkOut equ (_ClkIn >> 2) ; ; Compute the delay constants for setup & hold times ; _40uS_Delay set (_ClkOut/250000) _47uS_Delay set (_ClkOut/212766) _50uS_Delay set (_ClkOut/200000) TRUE equ 1 FALSE equ 0 LSB equ 0 MSB equ 7 #define SCL_PIN 2 #define SDA_PIN 3 #define I2CPORT PORTB #define _SCL_D I2CPORT,SCL_PIN #define _SCL TRISB,SCL_PIN #define _SDA TRISB,SDA_PIN #define T0IE TMR0IE #define T0IF TMR0IF #define _ENABLE_BUS_FREE_TIME TRUE #define _CLOCK_STRETCH_CHECK TRUE #define _OPTION_INIT (0xC0 | 0x02) ; Prescaler to TMR0 for Appox 1 mSec timeout ;***************************************************************************** ; I2C Bus Status Reg Bit Definitions ;***************************************************************************** #define _Bus_Busy Bus_Status,0 #define _Abort Bus_Status,1 #define _Txmt_Progress Bus_Status,2 #define _Rcv_Progress Bus_Status,3 #define _Txmt_Success Bus_Status,4 #define _Rcv_Success Bus_Status,5 #define _Fatal_Error Bus_Status,6 #define _ACK_Error Bus_Status,7 ;***************************************************************************** ; I2C Bus Contro Register ;***************************************************************************** #define _10BitAddr Bus_Control,0 #define _Slave_RW Bus_Control,1 #define _Last_Byte_Rcv Bus_Control,2 #define _SlaveActive Bus_Control,6 #define _TIME_OUT_ Bus_Control,7 RELEASE_BUS MACRO bsf STATUS,RP0 ; select page 1 bsf _SDA ; tristate SDA bsf _SCL ; tristate SCL ; bcf _Bus_Busy ; Bus Not Busy, TEMP ????, set/clear on Start & Stop ENDM ;**************************************************************************** ; A MACRO To Load 8 OR 10 Bit Address To The Address Registers ; ; SLAVE_ADDRESS is a constant and is loaded into the SlaveAddress Register(s) ; depending on 8 or 10 bit addressing modes ;**************************************************************************** LOAD_ADDR_10 MACRO SLAVE_ADDRESS bsf _10BitAddr ; Slave has 10 bit address movlw (SLAVE_ADDRESS & 0xff) movwf SlaveAddr ; load low byte of address movlw (((SLAVE_ADDRESS >> 7) & 0x06) | 0xF0) ; 10 bit addr 11110AA0 movwf SlaveAddr+1 ; hi order address ENDM LOAD_ADDR_8 MACRO SLAVE_ADDRESS bcf _10BitAddr ; Set for 8 Bit Address Mode movlw (SLAVE_ADDRESS & 0xff) movwf SlaveAddr ENDM ;**************************************************************************** ; I2C_WRITE_SUB ; ; Writes a message just like I2C_WRITE, except that the data is preceeded ; by a sub-address to a slave device. ; Eg. : A serial EEPROM would need an address of memory location for ; Random Writes ; ; Parameters : ; _BYTES_ #of bytes starting from RAM pointer _SourcePointer_ (constant) ; _SourcePointer_ Data Start Buffer pointer in RAM (file Registers) ; _Sub_Address_ Sub-address of Slave (constant) ; ; Sequence : ; S-SlvAW-A-SubA-A-D[0]-A.....A-D[N-1]-A-P ; ; If an error occurs then the routine simply returns and user should check for ; flags in Bus_Status Reg (for eg. _Txmt_Success flag ; ; Returns : WREG = 1 on success, else WREG = 0 ; ; NOTE : The address of the slave must be loaded into SlaveAddress Registers, ; and 10 or 8 bit mode addressing must be set ; ; COMMENTS : ; I2C_WR may prove to be more efficient than this macro in most situations ; Advantages will be found for Random Address Block Writes for Slaves with ; Auto Increment Sub-Addresses (like Microchip's 24CXX series Serial ; EEPROMS) ; ;**************************************************************************** I2C_WR_SUB MACRO _BYTES_, _SourcePointer_, _Sub_Address_ movlw (_BYTES_ + 1) movwf tempCount movlw (_SourcePointer_ - 1) movwf FSR movf INDF,W movwf StoreTemp_1 ; temporarily store contents of (_SourcePointer_ -1) movlw _Sub_Address_ movwf INDF ; store temporarily the sub-address at (_SourcePointer_ -1) call _i2c_block_write ; write _BYTES_+1 block of data movf StoreTemp_1,W movwf (_SourcePointer_ - 1) ; restore contents of (_SourcePointer_ - 1) ; call TxmtStopBit ; Issue a stop bit to end transmission ENDM I2C_WR_SUB2 MACRO _BYTES_, _SourcePointer_, _Sub_Address_, _Sub_Address2_ movlw (_BYTES_ + 2) movwf tempCount movlw (_SourcePointer_ - 2) movwf FSR movf INDF,W movwf StoreTemp_1 ; temporarily store contents of (_SourcePointer_ -2) movlw _Sub_Address_ movwf INDF ; store temporarily the sub-address at (_SourcePointer_ -2) movlw (_SourcePointer_ - 1) movwf FSR movlw _Sub_Address2_ movwf INDF movlw (_SourcePointer_ - 2) movwf FSR call _i2c_block_write ; write _BYTES_+1 block of data movf StoreTemp_1,W ; movwf (_SourcePointer_ - 2) ; restore contents of (_SourcePointer_ - 1) ; call TxmtStopBit ; Issue a stop bit to end transmission ENDM ;**************************************************************************** ; I2C_WRITE ; ; A basic macro for writing a block of data to a slave ; ; Parameters : ; _BYTES_ #of bytes starting from RAM pointer _SourcePointer_ ; _SourcePointer_ Data Start Buffer pointer in RAM (file Registers) ; ; Sequence : ; S-SlvAW-A-D[0]-A.....A-D[N-1]-A-P ; ; If an error occurs then the routine simply returns and user should check for ; flags in Bus_Status Reg (for eg. _Txmt_Success flag) ; ; NOTE : The address of the slave must be loaded into SlaveAddress Registers, ; and 10 or 8 bit mode addressing must be set ;**************************************************************************** I2C_WR MACRO _BYTES_, _SourcePointer_ movlw _BYTES_ movwf tempCount movlw _SourcePointer_ movwf FSR call _i2c_block_write call TxmtStopBit ; Issue a stop bit for slave to end transmission ENDM ;***************************************************************************** ; ; I2C_READ ; ; The basic MACRO/procedure to read a block message from a slave device ; ; Parameters : ; _BYTES_ : constant : #of bytes to receive ; _DestPointer_ : destination pointer of RAM (File Registers) ; ; Sequence : ; S-SlvAR-A-D[0]-A-.....-A-D[N-1]-N-P ; ; If last byte, then Master will NOT Acknowledge (send NACK) ; ; NOTE : The address of the slave must be loaded into SlaveAddress Registers, ; and 10 or 8 bit mode addressing must be set ; ;***************************************************************************** I2C_READ MACRO _BYTES_, _DestPointer_ movlw (_BYTES_ -1) movwf tempCount ; -1 because, the last byte is used out of loop movlw _DestPointer_ movwf FSR ; FIFO destination address pointer call _i2c_block_read ENDM ;*************************************************************************** ; ; I2C_READ_SUB ; This MACRO/Subroutine reads a message from a slave device preceeded by ; a write of the sub-address. ; Between the sub-addrers write & the following reads, a STOP condition ; is not issued and a "REPEATED START" condition is used so that an other ; master will not take over the bus, and also that no other master will ; overwrite the sub-address of the same salve. ; ; This function is very commonly used in accessing Random/Sequential reads ; from a memory device (e.g : 24Cxx serial of Serial EEPROMs from Microchip). ; ; Parameters : ; _BYTES_ # of bytes to read ; _DestPointer_ The destination pointer of data to be received. ; _BubAddress_ The sub-address of the slave ; ; Sequence : ; S-SlvAW-A-SubAddr-A-S-SlvAR-A-D[0]-A-.....-A-D[N-1]-N-P ; ; ;*************************************************************************** I2C_READ_SUB MACRO _BYTES_, _DestPointer_, _SubAddress_ bcf _Slave_RW ; set for write operation call TxmtStartBit ; send START bit call Txmt_Slave_Addr ; if successful, then _Txmt_Success bit is set movlw _SubAddress_ movwf DataByte ; START address of EEPROM(slave 1) call SendData ; write sub address ; ; do not send STOP after this, use REPEATED START condition ; I2C_READ _BYTES_, _DestPointer_ ENDM I2C_READ_SUB2 MACRO _BYTES_, _DestPointer_, _SubAddress_, _SubAddress2_ bcf _Slave_RW ; set for write operation call TxmtStartBit ; send START bit call Txmt_Slave_Addr ; if successful, then _Txmt_Success bit is set movlw _SubAddress_ movwf DataByte ; START address of EEPROM(slave 1) call SendData ; write sub address movlw _SubAddress2_ movwf DataByte ; START address of EEPROM(slave 1) call SendData ; write sub address ; ; do not send STOP after this, use REPEATED START condition ; I2C_READ _BYTES_, _DestPointer_ ENDM ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- cblock 0x20 Add:2 IO_buf:10 IN_buf:10 endc cblock 0xf0 w_temp status_temp SlaveAddr ; Slave Addr must be loader into this reg SlaveAddrHi ; for 10 bit addressing mode DataByte ; load this reg with the data to be transmitted BitCount ; The bit number (0:7) transmitted or received Bus_Status ; Status Reg of I2C Bus for both TXMT & RCVE Bus_Control ; control Register of I2C Bus DelayCount DataByteCopy ; copy of DataByte for Left Shifts (destructive) SubAddr ; sub-address of slave (used in I2C_HIGH.ASM) SrcPtr ; source pointer for data to be transmitted tempCount ; a temp variable for scratch RAM StoreTemp_1 ; a temp variable for scratch RAM, do not disturb contents _End_I2C_Ram ; unused, only for ref of end of RAM allocation endc ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp bcf STATUS,RP0 ;adcon0 is in bank 0 if _CLOCK_STRETCH_CHECK ; TMR0 Interrupts enabled only if Clock Stretching is Used btfss INTCON,T0IF goto check ; other Interrupts bsf _TIME_OUT_ ; MUST set this Flag bcf INTCON,T0IF goto int_ret endif check: btfss PIR1,SSPIF goto int_ret bcf PIR1,SSPIF call sspint int_ret: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "module lib libgpsim_modules" .sim "module load pu pu1" .sim "module load pu pu2" .sim "node n1" .sim "attach n1 portb2 pu1.pin portb4" ; ee.SCL" .sim "node n2" .sim "attach n2 portb3 pu2.pin portb1" ; ee.SDA" .sim "node n3" ;.sim "attach n3 porta0 ee.WP" .sim "node n4" ;.sim "attach n4 porta1 ee.A0" .sim "node n5" ;.sim "attach n5 porta2 ee.A1" .sim "node n6" ;.sim "attach n6 porta3 ee.A2" .sim "scope.ch0 = \"portb4\"" .sim "scope.ch1 = \"portb1\"" bsf STATUS,RP0 ; bank 1 movlw 0xf6 ; set internal RC to 8 Mhz movwf OSCCON clrf TRISA bsf PIE1,SSPIE ; allow SSP interrupts bsf INTCON,GIE ; allow interrupts bsf INTCON,PEIE ; allow interrupts bcf STATUS,RP0 ; bank 0 ; bsf PORTA,0 ; Write protect bsf PORTA,1 ; A0 movlw 0x10 movwf tempCount movlw IO_buf movwf FSR Fill_loop: movf FSR,W movwf INDF incf FSR,F decfsz tempCount,F goto Fill_loop movlw 0x36 movwf SSPCON bsf STATUS,RP0 ; bank 1 movlw 0xa2 movwf SSPADD bcf STATUS,RP0 ; bank 0 call InitI2CBus_Master LOAD_ADDR_8 0xa2 call IsSlaveActive btfss _SlaveActive .assert "\"Slave not active\"" nop LOAD_ADDR_8 0xa2 ; I2C_WR_SUB 8, IO_buf, 0x0c I2C_WR_SUB2 8, IO_buf, 0x0c, 0x0c call TxmtStopBit ; Issue a stop bit to end transmission movf Bus_Status,W .assert "W == 0x10, \"*** FAILED I2C write status\"" nop poll_ready: LOAD_ADDR_8 0xa2 call IsSlaveActive btfss _SlaveActive goto poll_ready ; slave not active yet nop ; ; write 0xa2 0x0c 0x0c to set an address ; write RSTART 0xa3 to initiate read ; read 8 bytes of data into ram starting at IN_buf ; LOAD_ADDR_8 0xa2 I2C_READ_SUB2 8, IN_buf, 0x0c, 0x0c nop bcf STATUS,RP0 ; bank 0 movf IN_buf,W .assert "W == 0xf5, \"*** FAILED read data\"" nop movf Bus_Status,W .assert "W == 0x30, \"*** FAILED 8 bit read status\"" nop ; ; write 8 bytes of data in slave 10bit mode ; bcf STATUS,RP0 ; bank 0 movlw 0x37 movwf SSPCON bsf STATUS,RP0 ; bank 1 movlw 0xf0 movwf SSPADD bcf STATUS,RP0 ; bank 0 LOAD_ADDR_10 0x0c I2C_WR 8, IO_buf .assert "\"*** PASSED 16f819 I2C test\"" nop goto $ IsSlaveActive bcf _Slave_RW ; set for write operation call TxmtStartBit ; send START bit call Txmt_Slave_Addr ; if successful, then _Txmt_Success bit is set ; bcf _SlaveActive btfss _ACK_Error ; skip if NACK, device is not present or not responding bsf _SlaveActive ; ACK received, device present & listening call TxmtStopBit return include "i2c_low.inc" _i2c_block_write: call TxmtStartBit ; send START bit bcf _Slave_RW ; set for write operation call Txmt_Slave_Addr ; if successful, then _Txmt_Success bit is set ; _block_wr1_loop: btfss _Txmt_Success return movf INDF,W movwf DataByte ; start from the first byte starting at _DataPointer_ incf FSR, F call SendData ; send next byte, bus is our's ! decfsz tempCount, F goto _block_wr1_loop ; loop until desired bytes of data ; transmitted to slave return ; ;**************************************************************************** _i2c_block_read: call TxmtStartBit ; send START bit bsf _Slave_RW ; set for read operation bcf _Last_Byte_Rcv ; not a last byte to rcv call Txmt_Slave_Addr ; if successful, then _Txmt_Success bit is set btfsc _Txmt_Success goto _block_rd1_loop ; end call TxmtStopBit ; Issue a stop bit for slave to end transmission retlw FALSE ; Error : may be device not responding ; _block_rd1_loop: call GetData movf DataByte,W movwf INDF ;start receiving data, starting at Destination Pointer incf FSR, F decfsz tempCount, F goto _block_rd1_loop ; loop until desired bytes of data transmitted to slave bsf _Last_Byte_Rcv ; last byte to rcv, so send NACK call GetData movf DataByte,W movwf INDF call TxmtStopBit ; Issue a stop bit for slave to end transmission retlw TRUE sspint: bsf STATUS,RP0 ; bank 1 btfsc SSPSTAT,R_W ; write test ? goto sspint_wr btfsc SSPSTAT,UA ; UA bit set goto sspint_ua bcf STATUS,RP0 ; bank 0 movf SSPBUF,W return sspint_wr: bcf STATUS,RP0 ; bank 0 movlw 0xf5 ; byte to send movwf SSPBUF bsf SSPCON,CKP ; turn off clock stretch return sspint_ua: movlw 0x0c ; second byte address movwf SSPADD bcf STATUS,RP0 ; bank 0 movf SSPBUF,W return end gpsim-0.27.0/regression/i2c/Makefile0000644000076400007640000000042211402544572014147 00000000000000# I2C module regression test # # include ../make.regression all : p16f876a.cod p16f88.cod p16f819.cod p%.cod : p%.o gplink --map -s $*.lkr -o $@ $< p16f88.cod: p16f88.asm i2c_low.inc p16f819.cod: p16f819.asm i2c_low.inc sim: sim_p16f88 sim_p16f876a sim_p16f819 gpsim-0.27.0/regression/i2c/16f88.lkr0000644000076400007640000000304110525705337014000 00000000000000// Sample linker command file for 16F88 LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page0 START=0x5 END=0x7FF CODEPAGE NAME=page1 START=0x800 END=0xFFF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.device_id START=0x2006 END=0x2006 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2009 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x21FF PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18F PROTECTED SHAREBANK NAME=sfrnobnk START=0x70 END=0x7F SHAREBANK NAME=sfrnobnk START=0xF0 END=0xFF SHAREBANK NAME=sfrnobnk START=0x170 END=0x17F SHAREBANK NAME=sfrnobnk START=0x1F0 END=0x1FF DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xEF DATABANK NAME=gpr2 START=0x110 END=0x16F DATABANK NAME=gpr3 START=0x190 END=0x1EF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG0 ROM=page0 // ROM code space SECTION NAME=PROG1 ROM=page1 // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=DEVICEID ROM=.device_id // Device ID SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/i2c/q.stc0000644000076400007640000000011210675560757013474 00000000000000load p16f876a.cod proc p16f876a P1 dump e ee dump.hex dump e P1 pdump.hex gpsim-0.27.0/regression/i2c/16f876a.lkr0000644000076400007640000000330410525705337014230 00000000000000// Sample linker command file for 16F876 // $Id: 16f876a.lkr 1828 2006-11-10 18:59:10Z borutr $ LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page0 START=0x5 END=0x7FF CODEPAGE NAME=page1 START=0x800 END=0xFFF CODEPAGE NAME=page2 START=0x1000 END=0x17FF CODEPAGE NAME=page3 START=0x1800 END=0x1FFF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x21FF PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xEF DATABANK NAME=gpr2 START=0x110 END=0x16F DATABANK NAME=gpr3 START=0x190 END=0x1EF SHAREBANK NAME=gprnobnk START=0x70 END=0x7F SHAREBANK NAME=gprnobnk START=0xF0 END=0xFF SHAREBANK NAME=gprnobnk START=0x170 END=0x17F SHAREBANK NAME=gprnobnk START=0x1F0 END=0x1FF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG1 ROM=page0 // ROM code space - page0 SECTION NAME=PROG2 ROM=page1 // ROM code space - page1 SECTION NAME=PROG3 ROM=page2 // ROM code space - page2 SECTION NAME=PROG4 ROM=page3 // ROM code space - page3 SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/i2c/16f819.lkr0000644000076400007640000000267410655217676014105 00000000000000// Sample linker command file for 16F819.lkr LIBPATH . CODEPAGE NAME=vectors START=0x0000 END=0x0004 PROTECTED CODEPAGE NAME=page START=0x0005 END=0x07FF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.device_id START=0x2006 END=0x2006 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2009 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x21FF PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x11F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x19F PROTECTED DATABANK NAME=gpr0 START=0xA0 END=0xEF DATABANK NAME=gpr1 START=0x120 END=0x16F SHAREBANK NAME=gprnobnk0 START=0x20 END=0x6F SHAREBANK NAME=gprnobnk0 START=0x1A0 END=0x1EF SHAREBANK NAME=gprnobnk1 START=0x70 END=0x7F SHAREBANK NAME=gprnobnk1 START=0xF0 END=0xFF SHAREBANK NAME=gprnobnk1 START=0x170 END=0x17F SHAREBANK NAME=gprnobnk1 START=0x1F0 END=0x1FF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=DEVICEID ROM=.device_id // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/psp/0000775000076400007640000000000012210742356012716 500000000000000gpsim-0.27.0/regression/psp/18f6520.lkr0000664000076400007640000000242712117051571014266 00000000000000// $Id: 18f6520.lkr 448 2006-08-19 02:52:41Z craigfranklin $ // File: 18f6520.lkr // Sample linker script for the PIC18F6520 processor // Not intended for use with MPLAB C18. For C18 projects, // use the linker scripts provided with that product. LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x29 PROTECTED CODEPAGE NAME=page START=0x2A END=0x7FFF CODEPAGE NAME=idlocs START=0x200000 END=0x200007 PROTECTED CODEPAGE NAME=config START=0x300000 END=0x30000D PROTECTED CODEPAGE NAME=devid START=0x3FFFFE END=0x3FFFFF PROTECTED CODEPAGE NAME=eedata START=0xF00000 END=0xF003FF PROTECTED ACCESSBANK NAME=accessram START=0x0 END=0x5F DATABANK NAME=gpr0 START=0x60 END=0xFF DATABANK NAME=gpr1 START=0x100 END=0x1FF DATABANK NAME=gpr2 START=0x200 END=0x2FF DATABANK NAME=gpr3 START=0x300 END=0x3FF DATABANK NAME=gpr4 START=0x400 END=0x4FF DATABANK NAME=gpr5 START=0x500 END=0x5FF DATABANK NAME=gpr6 START=0x600 END=0x6FF DATABANK NAME=gpr7 START=0x700 END=0x7FF ACCESSBANK NAME=accesssfr START=0xF60 END=0xFFF PROTECTED gpsim-0.27.0/regression/psp/18f452.lkr0000644000076400007640000000200310525705331014171 00000000000000// $Id: 18f452.lkr 1828 2006-11-10 18:59:10Z borutr $ // File: 18f452.lkr // Sample linker script for the PIC18F452 processor LIBPATH . CODEPAGE NAME=page START=0x00 END=0x7FFF CODEPAGE NAME=idlocs START=0x200000 END=0x200007 PROTECTED CODEPAGE NAME=config START=0x300000 END=0x30000D PROTECTED CODEPAGE NAME=devid START=0x3FFFFE END=0x3FFFFF PROTECTED CODEPAGE NAME=eedata START=0xF00000 END=0xF000FF PROTECTED ACCESSBANK NAME=accessram START=0x0 END=0x7F DATABANK NAME=gpr0 START=0x80 END=0xFF DATABANK NAME=gpr1 START=0x100 END=0x1FF DATABANK NAME=gpr2 START=0x200 END=0x2FF DATABANK NAME=gpr3 START=0x300 END=0x3FF DATABANK NAME=gpr4 START=0x400 END=0x4FF DATABANK NAME=gpr5 START=0x500 END=0x5FF ACCESSBANK NAME=accesssfr START=0xF80 END=0xFFF PROTECTED SECTION NAME=CONFIG ROM=config gpsim-0.27.0/regression/psp/16f871.lkr0000644000076400007640000000251410525705331014203 00000000000000// Sample linker command file for 16F871 LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page0 START=0x5 END=0x7FF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x213F PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18F PROTECTED SHAREBANK NAME=gprnobnk0 START=0x20 END=0x6F SHAREBANK NAME=gprnobnk0 START=0x120 END=0x16F SHAREBANK NAME=gprnobnk1 START=0xA0 END=0xBF SHAREBANK NAME=gprnobnk1 START=0x1A0 END=0x1BF SHAREBANK NAME=gprnobnk2 START=0x70 END=0x7F SHAREBANK NAME=gprnobnk2 START=0xF0 END=0xFF SHAREBANK NAME=gprnobnk2 START=0x170 END=0x17F SHAREBANK NAME=gprnobnk2 START=0x1F0 END=0x1FF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG1 ROM=page0 // ROM code space - page0 SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/psp/Makefile0000664000076400007640000000033612117301661014274 00000000000000# PSP (Parallel Slave Port) module regression test # # include ../make.regression all : p16f871.cod p18f452.cod p18f6520.cod p%.cod : p%.o gplink --map -s $*.lkr -o $@ $< sim: sim_p16f871 sim_p18f452 sim_p18f6520 gpsim-0.27.0/regression/psp/p18f6520.asm0000664000076400007640000001225712117076074014445 00000000000000 list p=18f6520 include include ;; The purpose of this program is to test gpsim's ability to simulate ;; the Parallel Slave port (PSP) functionality. ;; ;; Portb and portd form the PSP bus and porta pins 0, 1, and 2 ;; drive the, active low, bus control signals RD, WR and CS respectively errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp btfsc PIR1,PSPIF goto done .assert "\"FAILED 18F6520 unexpected interupt\"" nop check: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "node pspRD" .sim "attach pspRD porta0 porte0" .sim "node pspWR" .sim "attach pspWR porta1 porte1" .sim "node pspCS" .sim "attach pspCS porta2 porte2" .sim "node p0" .sim "attach p0 portb0 portd0" .sim "node p1" .sim "attach p1 portb1 portd1" .sim "node p2" .sim "attach p2 portb2 portd2" .sim "node p3" .sim "attach p3 portb3 portd3" .sim "node p4" .sim "attach p4 portb4 portd4" .sim "node p5" .sim "attach p5 portb5 portd5" .sim "node p6" .sim "attach p6 portb6 portd6" .sim "node p7" .sim "attach p7 portb7 portd7" ; ; The test relies on porta being digital I/O, and porte being PSP, so it's ; necessary to disable all ADC channels movlw 0xff movwf ADCON1 ; ; First test portd operates in normal mode clrf TRISD ; PortD output movlw 0x55 movwf PORTD .assert "portd == 0x55, \"FAILED, Portd put value OK\"" nop .assert "portb == 0x55, \"FAILED, Portd drives Portb\"" nop movf PORTD,W ; check read Portd .assert "W == 0x55, \"FAILED, Read portd OK\"" nop clrf TRISB ; PortB output movlw 0xff movwf TRISD ; PortD input movwf PORTB .assert "portd == 0xff, \"FAILED, Read portd as input\"" nop ; ; Now test PSP in bus RD mode ; movlw 0x07 ; set bits high movwf PORTA movlw 0xff movwf TRISB movlw 0xf8 movwf TRISA movlw 0x17 movwf PSPCON ; set PSPMODE .assert "pspcon == 0x10, \"FAILED, PSPMODE, IBOV only writable\"" nop movwf TRISE movlw 0xf0 movwf PORTD ; Output should not change in PSP mode .assert "(pspcon & 0xe0) == 0x40, \"FAILED, OBF set on portd write\"" nop .assert "portb != 0xf0, \"FAILED, Output not changed\"" nop bcf PORTA,0 ; Drive RD low to put data on bus bcf PORTA,2 ; Drive CS low to select .assert "(pspcon & 0xe0) == 0x00, \"FAILED, OBF cleared on PSP RD\"" nop .assert "portb == 0xf0, \"FAILED, Output on bus\"" nop .assert "(pir1 & 0x80) == 0, \"FAILED, PSPIF not set until RD off\"" nop bsf PORTA,0 ; Turn off RD .assert "(pir1 & 0x80) == 0x80, \"FAILED, PSPIF set for RD\"" nop ; ; test PSP WR function ; clrf TRISB ; set B as output movlw 0x0f movwf PORTB ; drive bus bcf PORTA,1 ; Turn on WR (CS already on) .assert "(pspcon & 0xe0) == 0x00, \"FAILED, IBF not set yet\"" nop bsf PORTA,2 ; Turn off CS .assert "(pspcon & 0xe0) == 0x80, \"FAILED, IBF now set\"" nop movf PORTD,W .assert "W == 0x0f, \"FAILED, Value read from bus\"" nop .assert "(pspcon & 0xe0) == 0x00, \"FAILED, IBF cleared on read of portd\"" nop bcf PORTA,2 ; Turn on CS bsf PORTA,2 ; Turn off CS bcf PORTA,2 ; Turn on CS bsf PORTA,2 ; Turn off CS .assert "(pspcon & 0xe0) == 0xa0, \"FAILED, IBF, IBOV both set \"" nop movlw 0xff movwf PORTB ; change value on bus(value not read by PSP) movwf TRISB ; put bus in Z state movf PORTD,W .assert "W == 0x0f, \"FAILED, Value read from high-Z bus \"" nop bcf PORTA,2 ; Turn on CS bsf PORTA,2 ; Turn off CS movlw 0x17 movwf PSPCON .assert "(pspcon & 0xe0) == 0x80, \"FAILED, IBOV cleared, but not IBF \"" nop movlw 0x07 ; turn off PSP movwf PSPCON .assert "(pspcon & 0xf0) == 0x00, \"FAILED, IBF & PSPMODE claered\"" nop ; ; test interupts ; movlw 0x17 movwf PSPCON bsf PIE1,PSPIE movlw 0xc0 movwf INTCON ; Enable interupts bcf PIR1,PSPIF bcf PORTA,2 ; Turn on CS bsf PORTA,2 ; Turn off CS .assert "\"FAILED, interrupt\"" nop goto $-1 done: .assert "\"*** PASSED 18F6520 PSP test\"" goto $-1 end gpsim-0.27.0/regression/psp/p18f452.asm0000644000076400007640000001214011371752715014354 00000000000000 list p=18f452 include include ;; The purpose of this program is to test gpsim's ability to simulate ;; the Parallel Slave port (PSP) functionality. ;; ;; Portb and portd form the PSP bus and porta pins 0, 1, and 2 ;; drive the, active low, bus control signals RD, WR and CS respectively errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp btfsc PIR1,PSPIF goto done .assert "\"FAILED 18F452 unexpected interupt\"" nop check: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "node pspRD" .sim "attach pspRD porta0 porte0" .sim "node pspWR" .sim "attach pspWR porta1 porte1" .sim "node pspCS" .sim "attach pspCS porta2 porte2" .sim "node p0" .sim "attach p0 portb0 portd0" .sim "node p1" .sim "attach p1 portb1 portd1" .sim "node p2" .sim "attach p2 portb2 portd2" .sim "node p3" .sim "attach p3 portb3 portd3" .sim "node p4" .sim "attach p4 portb4 portd4" .sim "node p5" .sim "attach p5 portb5 portd5" .sim "node p6" .sim "attach p6 portb6 portd6" .sim "node p7" .sim "attach p7 portb7 portd7" ; ; The test relies on porta being digital I/O, and porte being PSP, so it's ; necessary to disable all ADC channels movlw 0x07 movwf ADCON1 ; ; First test portd operates in normal mode clrf TRISD ; PortD output movlw 0x55 movwf PORTD .assert "portd == 0x55, \"FAILED, Portd put value OK\"" nop .assert "portb == 0x55, \"FAILED, Portd drives Portb\"" nop movf PORTD,W ; check read Portd .assert "W == 0x55, \"FAILED, Read portd OK\"" nop clrf TRISB ; PortB output movlw 0xff movwf TRISD ; PortD input movwf PORTB .assert "portd == 0xff, \"FAILED, Read portd as input\"" nop ; ; Now test PSP in bus RD mode ; movlw 0x07 ; set bits high movwf PORTA movlw 0xff movwf TRISB movlw 0xf8 movwf TRISA movlw 0x17 movwf TRISE movlw 0xf0 movwf PORTD ; Output should not change in PSP mode .assert "(trise & 0xe0) == 0x40, \"FAILED, OBF set on portd write\"" nop .assert "portb != 0xf0, \"FAILED, Output not changed\"" nop bcf PORTA,0 ; Drive RD low to put data on bus bcf PORTA,2 ; Drive CS low to select .assert "(trise & 0xe0) == 0x00, \"FAILED, OBF cleared on PSP RD\"" nop .assert "portb == 0xf0, \"FAILED, Output on bus\"" nop .assert "(pir1 & 0x80) == 0, \"FAILED, PSPIF not set until RD off\"" nop bsf PORTA,0 ; Turn off RD .assert "(pir1 & 0x80) == 0x80, \"FAILED, PSPIF set for RD\"" nop ; ; test PSP WR function ; clrf TRISB ; set B as output movlw 0x0f movwf PORTB ; drive bus bcf PORTA,1 ; Turn on WR (CS already on) .assert "(trise & 0xe0) == 0x00, \"FAILED, IBF not set yet\"" nop bsf PORTA,2 ; Turn off CS .assert "(trise & 0xe0) == 0x80, \"FAILED, IBF now set\"" nop movf PORTD,W .assert "W == 0x0f, \"FAILED, Value read from bus\"" nop .assert "(trise & 0xe0) == 0x00, \"FAILED, IBF cleared on read of portd\"" nop bcf PORTA,2 ; Turn on CS bsf PORTA,2 ; Turn off CS bcf PORTA,2 ; Turn on CS bsf PORTA,2 ; Turn off CS .assert "(trise & 0xe0) == 0xa0, \"FAILED, IBF, IBOV both set \"" nop movlw 0xff movwf PORTB ; change value on bus(value not read by PSP) movwf TRISB ; put bus in Z state movf PORTD,W .assert "W == 0x0f, \"FAILED, Value read from high-Z bus \"" nop bcf PORTA,2 ; Turn on CS bsf PORTA,2 ; Turn off CS movlw 0x17 movwf TRISE ; set B as output .assert "(trise & 0xe0) == 0x80, \"FAILED, IBOV cleared, but not IBF \"" nop movlw 0x07 ; turn off PSP movwf TRISE ; set B as output .assert "(trise & 0xf0) == 0x00, \"FAILED, IBF & PSPMODE claered\"" nop ; ; test interupts ; movlw 0x17 movwf TRISE bsf PIE1,PSPIE movlw 0xc0 movwf INTCON ; Enable interupts bcf PIR1,PSPIF bcf PORTA,2 ; Turn on CS bsf PORTA,2 ; Turn off CS .assert "\"FAILED, interrupt\"" nop goto $-1 done: .assert "\"*** PASSED 18F452 PSP test\"" goto $-1 end gpsim-0.27.0/regression/psp/p16f871.asm0000644000076400007640000001241011371752715014357 00000000000000 list p=16f871 include include __CONFIG _WDT_OFF ;; The purpose of this program is to test gpsim's ability to simulate ;; the Parallel Slave port (PSP) functionality. ;; ;; Portb and portd form the PSP bus and porta pins 0, 1, and 2 ;; drive the, active low, bus control signals RD, WR and CS respectively errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp bcf STATUS,RP0 ;bank 0 btfsc PIR1,PSPIF goto done .assert "\"FAILED 16F871 unexpected interupt\"" nop check: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "node pspRD" .sim "attach pspRD porta0 porte0" .sim "node pspWR" .sim "attach pspWR porta1 porte1" .sim "node pspCS" .sim "attach pspCS porta2 porte2" .sim "node p0" .sim "attach p0 portb0 portd0" .sim "node p1" .sim "attach p1 portb1 portd1" .sim "node p2" .sim "attach p2 portb2 portd2" .sim "node p3" .sim "attach p3 portb3 portd3" .sim "node p4" .sim "attach p4 portb4 portd4" .sim "node p5" .sim "attach p5 portb5 portd5" .sim "node p6" .sim "attach p6 portb6 portd6" .sim "node p7" .sim "attach p7 portb7 portd7" ; ; The test relies on porta being digital I/O, and porte being PSP, so it's ; necessary to disable all ADC channels bsf STATUS,RP0 ; bank 1 movlw 0x07 movwf ADCON1 bcf STATUS,RP0 ; bank 0 ; ; First test portd operates in normal mode bsf STATUS,RP0 ; bank 1 clrf TRISD ; PortD output bcf STATUS,RP0 ; bank 0 movlw 0x55 movwf PORTD .assert "portd == 0x55, \"FAILED, Portd put value OK\"" nop .assert "portb == 0x55, \"FAILED, Portd drives Portb\"" nop movf PORTD,W ; check read Portd .assert "W == 0x55, \"FAILED, Read portd OK\"" nop bsf STATUS,RP0 ; bank 1 clrf TRISB ; PortB output movlw 0xff movwf TRISD ; PortD input bcf STATUS,RP0 ; bank 0 movwf PORTB .assert "portd == 0xff, \"FAILED, Read portd as input\"" nop ; ; Now test PSP in bus RD mode ; movlw 0x07 ; set bits high movwf PORTA bsf STATUS,RP0 ; bank 1 movlw 0xff movwf TRISB movlw 0xf8 movwf TRISA movlw 0x17 movwf TRISE bcf STATUS,RP0 ; bank 0 movlw 0xf0 movwf PORTD ; Output should not change in PSP mode .assert "(trise & 0xe0) == 0x40, \"FAILED, OBF set on portd write\"" nop .assert "portb != 0xf0, \"FAILED, Output not changed\"" nop bcf PORTA,0 ; Drive RD low to put data on bus bcf PORTA,2 ; Drive CS low to select .assert "(trise & 0xe0) == 0x00, \"FAILED, OBF cleared on PSP RD\"" nop .assert "portb == 0xf0, \"FAILED, Output on bus\"" nop .assert "(pir1 & 0x80) == 0, \"FAILED, PSPIF not set until RD off\"" nop bsf PORTA,0 ; Turn off RD .assert "(pir1 & 0x80) == 0x80, \"FAILED, PSPIF set for RD\"" nop ; ; test PSP WR function ; bsf STATUS,RP0 ; bank 1 clrf TRISB ; set B as output bcf STATUS,RP0 ; bank 0 movlw 0x0f movwf PORTB ; drive bus bcf PORTA,1 ; Turn on WR (CS already on) .assert "(trise & 0xe0) == 0x00, \"FAILED, IBF not set yet\"" nop bsf PORTA,2 ; Turn off CS .assert "(trise & 0xe0) == 0x80, \"FAILED, IBF now set\"" nop movf PORTD,W .assert "W == 0x0f, \"FAILED, Value read from bus\"" nop .assert "(trise & 0xe0) == 0x00, \"FAILED, IBF cleared on read of portd\"" nop bcf PORTA,2 ; Turn on CS bsf PORTA,2 ; Turn off CS bcf PORTA,2 ; Turn on CS bsf PORTA,2 ; Turn off CS .assert "(trise & 0xe0) == 0xa0, \"FAILED, IBF, IBOV both set \"" nop bsf STATUS,RP0 ; bank 1 movlw 0x17 movwf TRISE ; set B as output .assert "(trise & 0xe0) == 0x80, \"FAILED, IBOV cleared, but not IBF \"" nop movlw 0x07 ; turn off PSP movwf TRISE ; set B as output .assert "(trise & 0xf0) == 0x00, \"FAILED, IBF & PSPMODE claered\"" nop ; ; test interupts ; movlw 0x17 movwf TRISE bsf PIE1,PSPIE movlw 0xc0 movwf INTCON ; Enable interupts bcf STATUS,RP0 ; bank 0 bcf PIR1,PSPIF bcf PORTA,2 ; Turn on CS bsf PORTA,2 ; Turn off CS .assert "\"FAILED, interrupt\"" nop goto $-1 done: .assert "\"*** PASSED 16F871 PSP test\"" goto $-1 end gpsim-0.27.0/regression/comparator/0000775000076400007640000000000012210742355014262 500000000000000gpsim-0.27.0/regression/comparator/compar_877a.stc0000644000076400007640000000114211225762076016747 00000000000000 #set verbose 1 load compar_877a.cod U1 # Module libraries: module library libgpsim_modules # Modules: U1.xpos = 60 U1.ypos = 36 module load pullup PU1 PU1.resistance = 10000 PU1.xpos = 228 PU1.ypos = 36 module load pulldown PD2 PD2.resistance = 10000 PD2.xpos = 228 PD2.ypos = 96 # Connections: node nb0 attach nb0 porta0 portb0 PU1.pin PD2.pin #attach nb0 porta0 portb0 node nb1 attach nb1 porta1 portb1 node nb2 attach nb2 porta2 portb2 node nb3 attach nb3 porta3 portb3 node nb4 #attach nb4 porta4 portb4 PU2.pin attach nb4 porta4 portb4 portc4 node nb5 attach nb5 porta5 portb5 portc5 # End. gpsim-0.27.0/regression/comparator/compar_628.asm0000644000076400007640000002110010423663371016560 00000000000000 ;; Node test ;; ;; The purpose of this program is to verify that nodes ;; can interconnect I/O pins. list p=16f628 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros ; __CONFIG _CP_OFF & _WDT_OFF & _HS_OSC & _PWRTE_ON & _LVP_OFF & _BODEN_OFF & _MCLRE_ON ;;__CONFIG _CP_OFF & _WDT_OFF & _ER_OSC_CLKOUT & _PWRTE_ON & _LVP_OFF & _BODEN_OFF & _MCLRE_ON ; __CONFIG _CP_OFF & _WDT_OFF & _INTRC_OSC_NOCLKOUT & _PWRTE_ON & _LVP_OFF & _BODEN_OFF & _MCLRE_ON __CONFIG _CP_OFF & _WDT_OFF & _INTRC_OSC_NOCLKOUT & _PWRTE_ON & _LVP_OFF & _BODEN_OFF & _MCLRE_OFF ;------------------------------------------------------------------------ ; gpsim command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA temp RES 1 w_temp RES 1 status_temp RES 1 GLOBAL done1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,W movwf status_temp btfsc PIR1,CMIF btfss PIE1,CMIE goto exit_int goto done1 exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start movlw 0x07 movwf CMCON ; turn off Comparator ; ; test bits 5, 6 and 7 work ; clrf PORTB bsf STATUS,RP0 clrf TRISB^0x80 ;Port B is an output bcf STATUS,RP0 .assert "porta == 0, \"Porta = 0\"" nop movlw 0xff movwf PORTB ; drive all bits high .assert "porta == 0xff, \"Porta = 0xff\"" nop clrf PORTA bsf STATUS,RP0 clrf TRISA^0x80 ;Port A is an output movlw 0xff movwf TRISB^0x80 ;Port B is an input bcf STATUS,RP0 .assert "portb == 0, \"Portb = 0\"" nop movlw 0xff movwf PORTA ; drive all bits high .assert "portb == 0xff, \"Portb = 0xff\"" nop ; ; test mode 2 - Four Inputs muxed to two comparators with Vref ; movlw 0x02 ; comparater mux reference movwf CMCON bcf PIR1,CMIF clrf PORTA bsf STATUS,RP0 movlw 0x0f ; RA3-RA0 are inputs movwf TRISA movlw 0xAB ; enable Vref 11 low range movwf VRCON .assert "(cmcon & 0x40) == 0x00, \"FAILED 16f628 m2 C1OUT=0 \"" nop movlw 0x8B ; enable Vref 11 high range movwf VRCON .assert "(cmcon & 0x40) == 0x40, \"FAILED 16f628 m2 C1OUT=1 \"" nop clrf TRISB^0x80 ;Port B is an output bcf STATUS,RP0 clrf PORTB .assert "(cmcon & 0xc0) == 0xc0, \"FAILED 16f628 m2 C1OUT=1 C2OUT=1 \"" nop .assert "(pir1 & 0x40) == 0x40, \"FAILED 16f628 m2 CMIF=1\"" nop bcf PIR1,CMIF .assert "(pir1 & 0x40) == 0x00, \"FAILED 16f628 m2 CMIF=0\"" nop bsf PORTB,0 ; drive comp 1 input high .assert "(cmcon & 0xc0) == 0x80, \"FAILED 16f628 m2 C1OUT=0 C2OUT=1 \"" nop .assert "(pir1 & 0x40) == 0x40, \"FAILED 16f628 m2 CMIF=1 on input change\"" nop bcf PIR1,CMIF movlw 0x32 ; comparater mux reference invert output movwf CMCON movf CMCON,W ; This updates compare value .assert "(cmcon & 0xc0) == 0x40, \"FAILED 16f628 m2 C1OUT=1 C2OUT=0 C1INV=C2INV=1\"" nop .assert "(pir1 & 0x40) == 0x40, \"FAILED 16f628 m2 CMIF=1 on invert change\"" nop bcf PIR1,CMIF bsf PORTB,1 ; drive comp 2 input high bcf PORTB,0 ; drive comp 1 input low .assert "(cmcon & 0xc0) == 0x80, \"FAILED 16f628 m2 C1OUT=0 C2OUT=1 C1INV=C2INV=1\"" nop .assert "(pir1 & 0x40) == 0x40, \"FAILED 16f628 m2 CMIF=1 input change with invert\"" nop bcf PIR1,CMIF movlw 0x02 ; comparater mux reference normal output movwf CMCON movf CMCON,W ; This updates compare value .assert "(cmcon & 0xc0) == 0x40, \"FAILED 16f628 m2 C1OUT=1 C2OUT=0 INV off\"" nop .assert "(pir1 & 0x40) == 0x40, \"FAILED 16f628 m2 CMIF=1 invert off\"" nop bcf PIR1,CMIF bsf STATUS,RP0 bsf PIE1,CMIE ; enable Comparator interrupts bcf STATUS,RP0 bsf INTCON,PEIE ; enable Periperal inturrupts bsf INTCON,GIE ; and globale interupts bsf PORTB,0 ; drive comp1 input high nop nop goto FAILED ; no interrupt done1: ; ; mode 1 - Three Inputs Muxed to Two Comparators ; movlw 0x04 movwf PORTB movlw 0x01 movwf CMCON .assert "(cmcon & 0xc0) == 0xc0, \"FAILED 16f628 m1 C1OUT=1 C2OUT=1 \"" nop movlw 0x09 ; Select pin 3 Comp 1 movwf CMCON .assert "(cmcon & 0xc0) == 0xc0, \"FAILED 16f628 m1 C1OUT=1 C2OUT=1 using pin 3\"" nop movlw 0x03 movwf PORTB .assert "(cmcon & 0xc0) == 0x00, \"FAILED 16f628 m1 C1OUT=0 C2OUT=0 \"" nop movlw 0x01 ; Select pin 0 Comp 1 movwf CMCON .assert "(cmcon & 0xc0) == 0x00, \"FAILED 16f628 m1 C1OUT=0 C2OUT=0 select pin 0\"" nop ; ; mode 3 - Two Common reference Comparators ; movlw 0x04 movwf PORTB movlw 0x03 movwf CMCON .assert "(cmcon & 0xc0) == 0xc0, \"FAILED 16f628 m3 C1OUT=1 C2OUT=1 \"" nop movlw 0x03 movwf PORTB .assert "(cmcon & 0xc0) == 0x00, \"FAILED 16f628 m3 C1OUT=0 C2OUT=0 \"" nop movlw 0x0c movwf PORTB .assert "(cmcon & 0xc0) == 0xc0, \"FAILED 16f628 m3 C1OUT=1 C2OUT=1 bit 3 no effect\"" nop ; ; mode 4 - Two independant Comparators ; movlw 0x0a movwf PORTB movlw 0x04 movwf CMCON .assert "(cmcon & 0xc0) == 0x40, \"FAILED 16f628 m4 C1OUT=1 C2OUT=0 \"" nop movlw 0x05 movwf PORTB .assert "(cmcon & 0xc0) == 0x80, \"FAILED 16f628 m4 C1OUT=0 C2OUT=1 \"" nop movlw 0x0c movwf PORTB .assert "(cmcon & 0xc0) == 0xc0, \"FAILED 16f628 m4 C1OUT=1 C2OUT=1 \"" nop ; ; mode 5 - One independant Comparator ; movlw 0x0a movwf PORTB movlw 0x05 movwf CMCON .assert "(cmcon & 0xc0) == 0x00, \"FAILED 16f628 m5 C1OUT=0 C2OUT=0 \"" nop movlw 0x05 movwf PORTB .assert "(cmcon & 0xc0) == 0x80, \"FAILED 16f628 m5 C1OUT=0 C2OUT=1 \"" nop movlw 0x0c movwf PORTB .assert "(cmcon & 0xc0) == 0x80, \"FAILED 16f628 m5 C1OUT=0 C2OUT=1 pins 1,3 don't care\"" nop movlw 0x15 ; Invert Comp 1 should have no effect movwf CMCON .assert "(cmcon & 0xc0) == 0x80, \"FAILED 16f628 m5 C1OUT=0 C2OUT=1 C1INV=1\"" nop ; ; mode 6 - Two Common reference Comparators with output ; bsf STATUS,RP0 movlw 0x07 ; RA2-RA0 are inputs movwf TRISA movlw 0x18 ; RB3, RB4 are inputs movwf TRISB bcf STATUS,RP0 movlw 0x04 movwf PORTB movlw 0x06 movwf CMCON .assert "(cmcon & 0xc0) == 0xc0, \"FAILED 16f628 m6 C1OUT=1 C2OUT=1 \"" nop .assert "(portb & 0x18) == 0x18, \"FAILED 16f628 m6 portb3=1 portb4=1\"" nop movlw 0x03 movwf PORTB .assert "(cmcon & 0xc0) == 0x00, \"FAILED 16f628 m6 C1OUT=0 C2OUT=0 \"" nop .assert "(portb & 0x18) == 0x00, \"FAILED 16f628 m6 portb3=0 portb4=0\"" nop movlw 0x16 ; invert COMP1 output movwf CMCON .assert "(cmcon & 0xc0) == 0x40, \"FAILED 16f628 m6 C1OUT=1 C2OUT=0 C1INV=1\"" nop .assert "(portb & 0x18) == 0x08, \"FAILED 16f628 m6 portb3=1 portb4=0\"" nop movlw 0x36 ; invert COMP1 & COMP2 output movwf CMCON .assert "(cmcon & 0xc0) == 0xc0, \"FAILED 16f628 m6 C1OUT=1 C2OUT=1 C1INV=1 C2INV=1\"" nop .assert "(portb & 0x18) == 0x18, \"FAILED 16f628 m6 portb3=1 portb4=1 C1INV=1 C2INV=1\"" nop .assert "\"*** PASSED 16f628 Comparator\"" goto $ FAILED: .assert "\"*** FAILED 16f628 No comparator interrupt\"" goto $ end gpsim-0.27.0/regression/comparator/16f873a.lkr0000644000076400007640000000243610416271553015721 00000000000000// Sample linker command file for 16F873 // $Id: 16f873a.lkr 1522 2006-04-08 01:45:56Z roy_r_rankin $ LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page0 START=0x5 END=0x7FF CODEPAGE NAME=page1 START=0x800 END=0xFFF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x217F PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18F PROTECTED SHAREBANK NAME=gpr0 START=0x20 END=0x7F SHAREBANK NAME=gpr0 START=0x120 END=0x17F SHAREBANK NAME=gpr1 START=0xA0 END=0xFF SHAREBANK NAME=gpr1 START=0x1A0 END=0x1FF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG1 ROM=page0 // ROM code space - page0 SECTION NAME=PROG2 ROM=page1 // ROM code space - page1 SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/comparator/16f628.lkr0000644000076400007640000000250610416271553015554 00000000000000// Sample linker command file for 16F628 // $Id: 16f628.lkr 1522 2006-04-08 01:45:56Z roy_r_rankin $ LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page START=0x5 END=0x7FF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x217F PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x11F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x19F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xEF DATABANK NAME=gpr2 START=0x120 END=0x14F SHAREBANK NAME=gprnobnk START=0x70 END=0x7F SHAREBANK NAME=gprnobnk START=0xF0 END=0xFF SHAREBANK NAME=gprnobnk START=0x170 END=0x17F SHAREBANK NAME=gprnobnk START=0x1F0 END=0x1FF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/comparator/compar_873a.asm0000644000076400007640000002405610416271553016737 00000000000000 ;; Node test ;; ;; The purpose of this program is to verify that nodes ;; can interconnect I/O pins. list p=16f873A ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros ;------------------------------------------------------------------------ ; gpsim command .command macro x .direct "C", x endm CMODE0 EQU H'0000' CMODE1 EQU H'0001' CMODE2 EQU H'0002' CMODE3 EQU H'0003' CMODE4 EQU H'0004' CMODE5 EQU H'0005' CMODE6 EQU H'0006' CMODE7 EQU H'0007' ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR temp RES 1 w_temp RES 1 status_temp RES 1 GLOBAL done1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,W movwf status_temp btfsc PIR1,CMIF btfss PIE1,CMIE goto exit_int goto done1 exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start ; ; test mode 6 - Four Inputs muxed to two comparators with Vref ; .assert "cmcon == 0x07, \"FAILED 16f873A CMCON POR\"" ; Rest value nop bcf PIR1,CMIF BSF STATUS,RP0 movlw 0x06 movwf ADCON1 movlw 0x0f ; RA3-RA0 are inputs movwf TRISA movlw 0xAB ; enable Vref 11 low range movwf CVRCON movlw CMODE6 ; comparater mux reference movwf CMCON .assert "(cmcon & 0x40) == 0x00, \"FAILED 16f873A m6 C1OUT=0 C2OUT=0\"" nop movlw 0x8B ; enable Vref 11 high range movwf CVRCON .assert "(cmcon & 0x40) == 0x40, \"FAILED 16f873A m6 C1OUT=1 C2OUT=0\"" nop bcf OPTION_REG,NOT_RBPU ; set pull ups on B port bcf OPTION_REG,T0CS ; Timer not from RA4 CLRF TRISB^0x80 ;Port B is an output BCF STATUS,RP0 .assert "(cmcon & 0xc0) == 0xc0, \"FAILED 16f873A m6 C1OUT=1 C2OUT=1\"" nop .assert "(pir1 & 0x40) == 0x40, \"FAILED 16f873A CMIF=1\"" nop bcf PIR1,CMIF .assert "(pir1 & 0x40) == 0x00, \"FAILED 16f873A CMIF=0\"" nop bsf PORTB,0 ; drive comp 1 input high .assert "(cmcon & 0xc0) == 0x80, \"FAILED 16f873A m6 C1OUT=0 C2OUT=1\"" nop .assert "(pir1 & 0x40) == 0x40, \"FAILED 16f873A CMIF=1\"" nop bcf PIR1,CMIF bsf STATUS,RP0 bsf CMCON,C1INV ; invert output bsf CMCON,C2INV bcf STATUS,RP0 .assert "(cmcon & 0xc0) == 0x40, \"FAILED 16f873A m6 invert C1OUT=1 C2OUT=0\"" nop .assert "(pir1 & 0x40) == 0x40, \"FAILED 16f873A CMIF=1\"" nop bcf PIR1,CMIF bsf PORTB,1 ; drive comp 2 input high bcf PORTB,0 ; drive comp 1 input low .assert "(cmcon & 0xc0) == 0x80, \"FAILED 16f873A m6 new inputs C1OUT=0 C2OUT=1\"" nop .assert "(pir1 & 0x40) == 0x40, \"FAILED 16f873A CMIF=1\"" nop bcf PIR1,CMIF movlw 0x06 ; comparater mux reference normal output bsf STATUS,RP0 movwf CMCON movf CMCON,W ; This updates compare value bcf STATUS,RP0 .assert "(cmcon & 0xc0) == 0x40, \"FAILED 16f873A m6 invert normal C1OUT=1 C2OUT=0\"" nop .assert "(pir1 & 0x40) == 0x40, \"FAILED 16f873A CMIF=1\"" nop bcf PIR1,CMIF bsf STATUS,RP0 bsf PIE1,CMIE ; enable Comparator interupts bcf STATUS,RP0 bsf INTCON,PEIE ; enable Periperal inturrupts bsf INTCON,GIE ; and globale interupts bsf PORTB,0 ; drive comp1 input high nop nop goto FAILED ; no interrupt done1: ; ; mode 4 - Two Common reference Comparators ; movlw 0x08 movwf PORTB ; Both Comparator true movlw CMODE4 bsf STATUS,RP0 movwf CMCON bcf STATUS,RP0 .assert "(cmcon & 0xc0) == 0xc0, \"FAILED 16f873A m4 C1OUT=1 C2OUT=1\"" nop movlw 0x03 movwf PORTB .assert "(cmcon & 0xc0) == 0x00, \"FAILED 16f873A m4 C1OUT=0 C2OUT=0\"" nop movlw 0x07 movwf PORTB .assert "(cmcon & 0xc0) == 0x00, \"FAILED 16f873A m4 bit 2 C1OUT=0 C2OUT=0\"" nop movlw 0x0c movwf PORTB .assert "(cmcon & 0xc0) == 0xc0, \"FAILED 16f873A m4 bit 2 C1OUT=1 C2OUT=1\"" nop ; ; mode 2 - Two independant Comparators ; movlw 0x05 movwf PORTB movlw CMODE2 bsf STATUS,RP0 movwf CMCON bcf STATUS,RP0 .assert "(cmcon & 0xc0) == 0x80, \"FAILED 16f873A m2 C1OUT=0 C2OUT=1\"" nop movlw 0x0a movwf PORTB .assert "(cmcon & 0xc0) == 0x40, \"FAILED 16f873A m2 C1OUT=1 C2OUT=0\"" nop movlw 0x0c movwf PORTB .assert "(cmcon & 0xc0) == 0xc0, \"FAILED 16f873A m2 C1OUT=1 C2OUT=1\"" nop ; ; mode 1 - One independant Comparator with output ; bsf STATUS,RP0 movlw 0x0f ; RA3-RA0 are inputs movwf TRISA movlw 0xf0 ; RB4, RB5 are inputs movwf TRISB movlw CMODE1 movwf CMCON bcf STATUS,RP0 movlw 0x01 movwf PORTB .assert "(cmcon & 0xc0) == 0x00, \"FAILED 16f873A m1 C1OUT=0 C2OUT=0\"" nop .assert "(porta & 0x10) == 0x00, \"FAILED 16f873A m1 porta4=0\"" nop .assert "(portb & 0x10) == 0x00, \"FAILED 16f873A m1 portb4=0\"" nop movlw 0x08 movwf PORTB .assert "(cmcon & 0xc0) == 0x40, \"FAILED 16f873A m1 C1OUT=1 C2OUT=0\"" nop .assert "(porta & 0x10) == 0x10, \"FAILED 16f873A m1 porta4=1\"" nop .assert "(portb & 0x10) == 0x10, \"FAILED 16f873A m1 portb4=1\"" nop movlw 0x0c movwf PORTB .assert "(cmcon & 0xc0) == 0x40, \"FAILED m1 16f873A AN2=1 C1OUT=1 C2OUT=0\"" nop .assert "(porta & 0x10) == 0x10, \"FAILED m1 16f873A AN2=1 porta4=1\"" nop .assert "(portb & 0x10) == 0x10, \"FAILED m1 16f873A AN2=1 portb4=1\"" nop bsf STATUS,RP0 bsf CMCON,C2INV ; Invert Comp 2 should have no effect bcf STATUS,RP0 .assert "(cmcon & 0xc0) == 0x40, \"FAILED m1 16f873A C2INV=1 C1OUT=1\"" nop .assert "(porta & 0x10) == 0x10, \"FAILED m1 16f873A C2INV=1 porta4=1\"" nop .assert "(portb & 0x10) == 0x10, \"FAILED M1 16f873A C2INV=1 portb4=1\"" nop bsf STATUS,RP0 bcf CMCON,C2INV ; Invert Comp 1 only bsf CMCON,C1INV bcf STATUS,RP0 .assert "(cmcon & 0xc0) == 0x00, \"FAILED m1 16f873A C1INV=1 C1OUT=1\"" nop .assert "(porta & 0x10) == 0x00, \"FAILED m1 16f873A C1INV=1 porta4=0\"" nop .assert "(portb & 0x10) == 0x00, \"FAILED m1 16f873A C1INV=1 portb4=0\"" nop ; ; mode 5 - Two Common reference Comparators with outputs ; bsf STATUS,RP0 movlw 0x0f ; RA3-RA0 are inputs movwf TRISA movlw 0x30 ; RB4, RB5 are inputs movwf TRISB bcf STATUS,RP0 movlw 0x08 movwf PORTB movlw CMODE5 ; Two common ref Comparators with output bsf STATUS,RP0 movwf CMCON bcf STATUS,RP0 .assert "(cmcon & 0xc0) == 0xc0, \"FAILED 16f873A m5 C1OUT=1 C2OUT=1\"" nop .assert "(porta & 0x30) == 0x30, \"FAILED 16f873A m5 porta4=1 porta5=1\"" nop .assert "(portb & 0x30) == 0x30, \"FAILED 16f873A m5 portb4=1 portb5=1\"" nop movlw 0x03 movwf PORTB .assert "(cmcon & 0xc0) == 0x00, \"FAILED 16f873A m5 C1OUT=0 C2OUT=0\"" nop .assert "(porta & 0x30) == 0x00, \"FAILED 16f873A m5 porta4=0 porta5=0\"" nop .assert "(portb & 0x30) == 0x00, \"FAILED 16f873A m5 portb4=0 portb5=0\"" nop movlw CMODE5|0x10 ; invert COMP1 output bsf STATUS,RP0 movwf CMCON bcf STATUS,RP0 .assert "(cmcon & 0xc0) == 0x40, \"FAILED 16f873A m5 C1INV=1 C1OUT=1 C2OUT=0\"" nop .assert "(porta & 0x30) == 0x10, \"FAILED 16f873A m5 C1INV=1 porta4=1 porta5=0\"" nop .assert "(portb & 0x30) == 0x10, \"FAILED 16f873A m5 C1INV=1 portb4=1 portb5=0\"" nop movlw CMODE5|0x30 ; invert COMP1 & COMP2 output bsf STATUS,RP0 movwf CMCON bcf STATUS,RP0 .assert "(cmcon & 0xc0) == 0xc0, \"FAILED 16f873A m5 C1OUT=1 C2OUT=1\"" nop .assert "(porta & 0x30) == 0x30, \"FAILED 16f873A m5 C1INV=1 C2INV=1 porta4=1 porta5=1\"" nop .assert "(portb & 0x30) == 0x30, \"FAILED 16f873A m5 C1INV=1 C2INV=1 portb4=1 portb5=1\"" nop ; ; mode 3 - Two independant Comparators with outputs ; movlw 0x05 movwf PORTB movlw CMODE3 bsf STATUS,RP0 movwf CMCON bcf STATUS,RP0 .assert "(cmcon & 0xc0) == 0x80, \"FAILED 16f873A m3 C1OUT=0 C2OUT=1\"" nop .assert "(porta & 0x30) == 0x20, \"FAILED 16f873A m3 porta4=0 porta5=1\"" nop .assert "(portb & 0x30) == 0x20, \"FAILED 16f873A m3 portb4=0 portb5=1\"" nop movlw 0x0a movwf PORTB .assert "(cmcon & 0xc0) == 0x40, \"FAILED 16f873A m3 C1OUT=1 C2OUT=0\"" nop .assert "(porta & 0x30) == 0x10, \"FAILED 16f873A m3 porta4=1 porta5=0\"" nop .assert "(portb & 0x30) == 0x10, \"FAILED 16f873A m3 portb4=1 portb5=0\"" nop movlw 0x0c movwf PORTB .assert "(cmcon & 0xc0) == 0xc0, \"FAILED 16f873A m3 C1OUT=1 C2OUT=1\"" nop .assert "(porta & 0x30) == 0x30, \"FAILED 16f873A m3 porta4=1 porta5=1\"" nop .assert "(portb & 0x30) == 0x30, \"FAILED 16f873A m3 portb4=1 portb5=1\"" nop .assert "\"*** PASSED Comparator on 16f873A\"" goto $ FAILED: .assert "\"*** FAILED Comparator no interupt 16f873A\"" goto $ end gpsim-0.27.0/regression/comparator/compar_10f204.asm0000644000076400007640000002141611210175504017056 00000000000000 ; 10f204 gpsim regression test ; ; The purpose of this test is to verify that the 'F204 ; is implemented correctly. Here's a list of specific things ; tested: ; ; 1) Reset conditions ; 2) WDT ; 3) Sleep ; 4) Wakeup on PIN change. ; 5) Comparator. list p=10f204 include include __CONFIG _WDT_ON & _MCLRE_ON radix dec ; Printf Command .command macro x .direct "C", x endm GPR_DATA UDATA ResetSequence RES 1 optionShadow RES 1 GLOBAL optionShadow, ResetSequence ; Define the reset conditions to be checked. eRSTSequence_PowerOnReset equ 1 eRSTSequence_AwakeMCLR equ 2 eRSTSequence_AwakeWDT equ 3 eRSTSequence_AwakeIO equ 4 eRSTSequence_WDTTimeOut equ 5 ;---------------------------------------------------------------------- ; ********************* STARTUP LOCATION *************************** ;---------------------------------------------------------------------- START CODE 0x000 ; ; +-------------------+ ; 1 |o | 6 ; ------|GP0/CIN+ GP3/MCLR|------ ; 2 | | 5 ; ---|VSS 10F204 VDD|--- ; 3 | | 4 ; ------|GP1/CIN- GP2/COUT|------ ; | | ; +-------------------+ ; ;############################################################ ;# Create a stimulus to simulate a switch ; .sim "module lib libgpsim_modules" .sim "module load pulsegen MCLR" .sim "module load pullup VP" .sim "module load pullup VN" .sim "MCLR.initial = 5.0" .sim "VP.voltage = 5.0" .sim "VP.resistance = 1.0e3" .sim "VN.voltage = 5.0" .sim "VN.resistance = 1.0e3" .sim "MCLR.xpos=250.0" .sim "MCLR.ypos=85.0" .sim "VP.xpos=250.0" .sim "VP.ypos=130.0" .sim "VN.xpos=250.0" .sim "VN.ypos=180.0" ;############################################################ .sim "node nMCLR" .sim "attach nMCLR gpio3 MCLR.pin" .sim "node nVP" .sim "attach nVP gpio0 VP.pin" .sim "node nVN" .sim "attach nVN gpio1 VN.pin" ;############################################################ ; define symbols that can be used in the assertion expressions. .sim "symbol CHigh=4" .sim "symbol CLow=0" .sim "symbol Cexp=0" .sim "symbol CMask=4" ;############################################################ .sim "symbol resetCounter=1" ; NOT_GPWU = 0 - Enable wakeup if I/O pins 0,1, or 3 change states ; NOT_GPPU = 1 - Disable weak pullups on I/O pins 0,1, and 3 ; TOCS = 0 - Let the clock source for TMR0 be the internal fosc/4 ; TOSE = 0 - don't care - TMR0 source edge. ; PSA = 1 - assign Prescale to the WDT ; PS2:0 = 000 - prescale = 2^0=1 .sim "optionShadow=8" ; PSA=1 .sim "ResetSequence=0" .sim ".BreakOnReset = false" ; Set a cycle break point far in the future in case the resets fail. .sim "break c 0x1000000" bSWITCH equ 0 .assert "option==0xff" .assert "(tris&0x3f)==0x3f" MOVWF OSCCAL ; put calibration into oscillator cal reg ; OPTION register setup MOVF optionShadow,W ;optionShadow is initialized by the gpsim script OPTION ; GPIO setup ; If this is a PowerOn reset, then the state of the GPIO output register ; is unknown. If this is not a PowerOn reset then the GPIO pins have ; the same state they had prior to the reset. ; ; TRIS register setup - The I/O pins are always configured as Inputs after ; any reset. MOVLW (1< /MCLR while sleeping goto PowerOnReset ;/TO=1, /PD=1 ==> Power has just been applied TO_is_low BTFSS STATUS,NOT_PD goto AwakeWDT ;/TO=0, /PD=0 ==> WDT while sleeping goto WDTTimeOut ;/TO=0, /PD=1 ==> WDT while not sleeping ;======================================================================== ; toggleGP2 ; ; The purpose of this code is to write a 1 and then a 0 to GP2. The GP2 ; output pin is then checked. Note that the assertion expression are ; parametrically defined. toggleGP2: movf GPIO,W iorlw 1< VN and verify that the output doesn't change due to this .command "VN.voltage=0.0" .command "VP.voltage=5.0" nop .assert "(gpio & (1<<2))==0,\"*** FAILED Comparator test\"" ; Now toggle GPIO and verify that we can write to the port. nop .command "Cexp=CHigh" call toggleGP2 ; Make VP < VN and verify that the output doesn't change .command "VN.voltage=0.0" .command "VP.voltage=5.0" nop ; Toggle GPIO again and verify that we can still write to the port. call toggleGP2 ; Now turn on the comparator movlw (1< VN and verify the comparator output reflects this .command "VN.voltage=0.0" .command "VP.voltage=5.0" nop .assert "(gpio & (1<<2))==(1<<2),\"*** FAILED Comparator test\"" call delay ; verify that GPIO2 cannot be written to .command "CMask=0" call toggleGP2 ; make VP < VN .command "VN.voltage=5.0" .command "VP.voltage=0.0" nop .assert "(gpio & (1<<2))==0,\"*** FAILED Comparator test\"" call delay ; verify again that GPIO2 can't be written to. .command "Cexp=0" call toggleGP2 nop ; toggle the comparator output polarity and repeat the above tests. bcf CMCON0,POL .assert "(gpio & (1<<2))==(1<<2),\"*** FAILED Comparator test\"" nop .command "Cexp=1<<2" call toggleGP2 .command "VN.voltage=0.0" .command "VP.voltage=5.0" nop .assert "(gpio & (1<<2))==0,\"*** FAILED Comparator test\"" nop .command "Cexp=0" call toggleGP2 ;turn off the comparator output bsf CMCON0,NOT_COUTEN .command "Cexp=1<<2" .command "CMask=1<<2" call toggleGP2 .assert "\"*** PASSED 10F204 Comparator test\"" nop ;======================================================================== ; ; AwakeWDT - WDT timed out while we were sleeping. ; ;======================================================================== AwakeWDT: .assert "\"*** FAILED -- Unexpected WDT Reset\"" nop ;======================================================================== ; ; WDTTimeOut - WatchDog timer timed out while we were awake. ; ;======================================================================== WDTTimeOut: .assert "\"*** FAILED -- Unexpected WDT timeout\"" nop ;======================================================================== ; ; AwakeIO - an I/O pin changed states to awaken us from sleep. ; ;======================================================================== AwakeIO: .assert "\"*** FAILED -- Unexpected Wakeup on I/O pin change\"" nop ;======================================================================== ; ; AwakeMCLR - MCLR went low while we were sleeping. ; ;======================================================================== AwakeMCLR: .assert "\"*** FAILED -- Unexpected /MCLR Reset\"" nop .assert "\"*** PASSED 12c509 Sleep and Reset test\"" done: goto done ;======================================================================== delay: delay10: goto delay8 delay8: goto delay6 delay6: goto delay4 delay4: return ;======================================================================== ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0xff ; processor reset vector OSC_CAL_VALUE EQU 0x80 MOVLW OSC_CAL_VALUE end gpsim-0.27.0/regression/comparator/compar_873a.stc0000644000076400007640000000110010441171700016720 00000000000000 #set verbose 1 load compar_873a.cod U1 # Module libraries: module library libgpsim_modules # Modules: U1.xpos=84. U1.ypos=24. module load pullup PU1 PU1.resistance=10000. module load pulldown PD2 PD2.resistance=10000. module load pullup PU2 # Connections: node nb0 attach nb0 porta0 portb0 PU1.pin PD2.pin #attach nb0 porta0 portb0 node nb1 attach nb1 porta1 portb1 node nb2 attach nb2 porta2 portb2 node nb3 attach nb3 porta3 portb3 node nb4 #attach nb4 porta4 portb4 PU2.pin attach nb4 porta4 portb4 portc4 node nb5 attach nb5 porta5 portb5 portc5 # End. gpsim-0.27.0/regression/comparator/Makefile0000664000076400007640000000157511510316373015651 00000000000000include ../make.regression all : compar_873a.cod compar_628.cod compar_877a.cod compar_10f204.cod \ compar_882.cod compar_877a.cod : compar_877a.o gplink --map -s 16f877a.lkr -o $@ $< compar_873a.cod : compar_873a.o gplink --map -s 16f873a.lkr -o $@ $< compar_628.cod : compar_628.o gplink --map -s 16f628.lkr -o $@ $< compar_882.cod : compar_882.o gplink --map -s 16f882.lkr -o $@ $< compar_10f204.cod: compar_10f204.o gplink --map -s 10f204.lkr -o $@ $< sim: sim_628 sim_877a sim_10f204 sim_628: compar_628.cod $(GPSIM) -i -I $(STARTUP_STC) -D STC=compar_628.stc sim_873a: compar_873a.cod $(GPSIM) -i -I $(STARTUP_STC) -D STC=compar_873a.stc sim_877a: compar_877a.cod $(GPSIM) -i -I $(STARTUP_STC) -D STC=compar_877a.stc sim_10f204: compar_10f204.cod $(GPSIM) -i -I $(STARTUP_STC) -D STC=$< sim_882: compar_882.cod $(GPSIM) -i -I $(STARTUP_STC) -D STC=$< gpsim-0.27.0/regression/comparator/compar_628.stc0000644000076400007640000000124510441171700016567 00000000000000 load compar_628.cod U1 # Module libraries: module library libgpsim_modules # Modules: U1.xpos=84. U1.ypos=24. module load pullup PU1 PU1.resistance=10000. #PU1.xpos=96. #PU1.ypos=190. module load pulldown PD2 PD2.resistance=10000. #PD2.xpos=96. #PD2.ypos=240. module load pullup PU2 #PU2.xpos=96. #PU2.ypos=310. # Connections: node nb0 attach nb0 porta0 portb0 PU1.pin PD2.pin #attach nb0 porta0 portb0 node nb1 attach nb1 porta1 portb1 node nb2 attach nb2 porta2 portb2 node nb3 attach nb3 porta3 portb3 node nb4 attach nb4 porta4 portb4 PU2.pin node nb5 attach nb5 porta5 portb5 node nb6 attach nb6 porta6 portb6 node nb7 attach nb7 porta7 portb7 # End. gpsim-0.27.0/regression/comparator/compar_877a.asm0000644000076400007640000002213310452371462016735 00000000000000 ;; Node test ;; ;; The purpose of this program is to verify that nodes ;; can interconnect I/O pins. list p=16f877A ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros ;------------------------------------------------------------------------ ; gpsim command .command macro x .direct "C", x endm CMODE0 EQU H'0000' CMODE1 EQU H'0001' CMODE2 EQU H'0002' CMODE3 EQU H'0003' CMODE4 EQU H'0004' CMODE5 EQU H'0005' CMODE6 EQU H'0006' CMODE7 EQU H'0007' ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR temp RES 1 w_temp RES 1 status_temp RES 1 GLOBAL done1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,W movwf status_temp btfsc PIR2,CMIF btfss PIE2,CMIE goto exit_int goto done1 exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start ; ; test mode 6 - Four Inputs muxed to two comparators with Vref ; .assert "cmcon == 0x07, \"FAILED 16f877A CMCON POR\"" ; Rest value nop bcf PIR2,CMIF BSF STATUS,RP0 movlw 0x06 movwf ADCON1 movlw 0x0f ; RA3-RA0 are inputs movwf TRISA movlw 0xAB ; enable Vref 11 low range movwf CVRCON movlw CMODE6 ; comparater mux reference movwf CMCON .assert "(cmcon & 0x40) == 0x00, \"FAILED 16f877A m6 C1OUT=0 C2OUT=0\"" nop movlw 0x8B ; enable Vref 11 high range movwf CVRCON .assert "(cmcon & 0x40) == 0x40, \"FAILED 16f877A m6 C1OUT=1 C2OUT=0\"" nop bcf OPTION_REG,NOT_RBPU ; set pull ups on B port bcf OPTION_REG,T0CS ; Timer not from RA4 CLRF TRISB^0x80 ;Port B is an output BCF STATUS,RP0 .assert "(cmcon & 0xc0) == 0xc0, \"FAILED 16f877A m6 C1OUT=1 C2OUT=1\"" nop .assert "(pir2 & 0x40) == 0x40, \"FAILED 16f877A CMIF=1\"" nop bcf PIR2,CMIF .assert "(pir2 & 0x40) == 0x00, \"FAILED 16f877A CMIF=0\"" nop bsf PORTB,0 ; drive comp 1 input high .assert "(cmcon & 0xc0) == 0x80, \"FAILED 16f877A m6 C1OUT=0 C2OUT=1\"" nop .assert "(pir2 & 0x40) == 0x40, \"FAILED 16f877A CMIF=1\"" nop bcf PIR2,CMIF bsf STATUS,RP0 bsf CMCON,C1INV ; invert output bsf CMCON,C2INV bcf STATUS,RP0 .assert "(cmcon & 0xc0) == 0x40, \"FAILED 16f877A m6 invert C1OUT=1 C2OUT=0\"" nop .assert "(pir2 & 0x40) == 0x40, \"FAILED 16f877A CMIF=1\"" nop bcf PIR2,CMIF bsf PORTB,1 ; drive comp 2 input high bcf PORTB,0 ; drive comp 1 input low .assert "(cmcon & 0xc0) == 0x80, \"FAILED 16f877A m6 new inputs C1OUT=0 C2OUT=1\"" nop .assert "(pir2 & 0x40) == 0x40, \"FAILED 16f877A CMIF=1\"" nop bcf PIR2,CMIF movlw 0x06 ; comparater mux reference normal output bsf STATUS,RP0 movwf CMCON movf CMCON,W ; This updates compare value bcf STATUS,RP0 .assert "(cmcon & 0xc0) == 0x40, \"FAILED 16f877A m6 invert normal C1OUT=1 C2OUT=0\"" nop .assert "(pir2 & 0x40) == 0x40, \"FAILED 16f877A CMIF=1\"" nop bcf PIR2,CMIF bsf STATUS,RP0 bsf PIE2,CMIE ; enable Comparator interupts bcf STATUS,RP0 bsf INTCON,PEIE ; enable Periperal inturrupts bsf INTCON,GIE ; and globale interupts bsf PORTB,0 ; drive comp1 input high nop nop goto FAILED ; no interrupt done1: ; ; mode 4 - Two Common reference Comparators ; movlw 0x08 movwf PORTB ; Both Comparator true movlw CMODE4 bsf STATUS,RP0 movwf CMCON bcf STATUS,RP0 .assert "(cmcon & 0xc0) == 0xc0, \"FAILED 16f877A m4 C1OUT=1 C2OUT=1\"" nop movlw 0x03 movwf PORTB .assert "(cmcon & 0xc0) == 0x00, \"FAILED 16f877A m4 C1OUT=0 C2OUT=0\"" nop movlw 0x07 movwf PORTB .assert "(cmcon & 0xc0) == 0x00, \"FAILED 16f877A m4 bit 2 C1OUT=0 C2OUT=0\"" nop movlw 0x0c movwf PORTB .assert "(cmcon & 0xc0) == 0xc0, \"FAILED 16f877A m4 bit 2 C1OUT=1 C2OUT=1\"" nop ; ; mode 2 - Two independant Comparators ; movlw 0x05 movwf PORTB movlw CMODE2 bsf STATUS,RP0 movwf CMCON bcf STATUS,RP0 .assert "(cmcon & 0xc0) == 0x80, \"FAILED 16f877A m2 C1OUT=0 C2OUT=1\"" nop movlw 0x0a movwf PORTB .assert "(cmcon & 0xc0) == 0x40, \"FAILED 16f877A m2 C1OUT=1 C2OUT=0\"" nop movlw 0x0c movwf PORTB .assert "(cmcon & 0xc0) == 0xc0, \"FAILED 16f877A m2 C1OUT=1 C2OUT=1\"" nop ; ; mode 1 - One independant Comparator with output ; bsf STATUS,RP0 movlw 0x0f ; RA3-RA0 are inputs movwf TRISA movlw 0xf0 ; RB4, RB5 are inputs movwf TRISB movlw CMODE1 movwf CMCON bcf STATUS,RP0 movlw 0x01 movwf PORTB .assert "(cmcon & 0xc0) == 0x00, \"FAILED 16f877A m1 C1OUT=0 C2OUT=0\"" nop .assert "(porta & 0x10) == 0x00, \"FAILED 16f877A m1 porta4=0\"" nop movlw 0x08 movwf PORTB .assert "(cmcon & 0xc0) == 0x40, \"FAILED 16f877A m1 C1OUT=1 C2OUT=0\"" nop .assert "(porta & 0x10) == 0x10, \"FAILED 16f877A m1 porta4=1\"" nop movlw 0x0c movwf PORTB .assert "(cmcon & 0xc0) == 0x40, \"FAILED m1 16f877A AN2=1 C1OUT=1 C2OUT=0\"" nop .assert "(porta & 0x10) == 0x10, \"FAILED m1 16f877A AN2=1 porta4=1\"" nop bsf STATUS,RP0 bsf CMCON,C2INV ; Invert Comp 2 should have no effect bcf STATUS,RP0 .assert "(cmcon & 0xc0) == 0x40, \"FAILED m1 16f877A C2INV=1 C1OUT=1\"" nop .assert "(porta & 0x10) == 0x10, \"FAILED m1 16f877A C2INV=1 porta4=1\"" nop bsf STATUS,RP0 bcf CMCON,C2INV ; Invert Comp 1 only bsf CMCON,C1INV bcf STATUS,RP0 .assert "(cmcon & 0xc0) == 0x00, \"FAILED m1 16f877A C1INV=1 C1OUT=1\"" nop .assert "(porta & 0x10) == 0x00, \"FAILED m1 16f877A C1INV=1 porta4=0\"" nop ; ; mode 5 - Two Common reference Comparators with outputs ; bsf STATUS,RP0 movlw 0x0f ; RA3-RA0 are inputs movwf TRISA movlw 0x30 ; RB4, RB5 are inputs movwf TRISB bcf STATUS,RP0 movlw 0x08 movwf PORTB movlw CMODE5 ; Two common ref Comparators with output bsf STATUS,RP0 movwf CMCON bcf STATUS,RP0 .assert "(cmcon & 0xc0) == 0xc0, \"FAILED 16f877A m5 C1OUT=1 C2OUT=1\"" nop .assert "(porta & 0x30) == 0x30, \"FAILED 16f877A m5 porta4=1 porta5=1\"" nop movlw 0x03 movwf PORTB .assert "(cmcon & 0xc0) == 0x00, \"FAILED 16f877A m5 C1OUT=0 C2OUT=0\"" nop .assert "(porta & 0x30) == 0x00, \"FAILED 16f877A m5 porta4=0 porta5=0\"" nop movlw CMODE5|0x10 ; invert COMP1 output bsf STATUS,RP0 movwf CMCON bcf STATUS,RP0 .assert "(cmcon & 0xc0) == 0x40, \"FAILED 16f877A m5 C1INV=1 C1OUT=1 C2OUT=0\"" nop .assert "(porta & 0x30) == 0x10, \"FAILED 16f877A m5 C1INV=1 porta4=1 porta5=0\"" nop movlw CMODE5|0x30 ; invert COMP1 & COMP2 output bsf STATUS,RP0 movwf CMCON bcf STATUS,RP0 .assert "(cmcon & 0xc0) == 0xc0, \"FAILED 16f877A m5 C1OUT=1 C2OUT=1\"" nop .assert "(porta & 0x30) == 0x30, \"FAILED 16f877A m5 C1INV=1 C2INV=1 porta4=1 porta5=1\"" nop ; ; mode 3 - Two independant Comparators with outputs ; movlw 0x05 movwf PORTB movlw CMODE3 bsf STATUS,RP0 movwf CMCON bcf STATUS,RP0 .assert "(cmcon & 0xc0) == 0x80, \"FAILED 16f877A m3 C1OUT=0 C2OUT=1\"" nop .assert "(porta & 0x30) == 0x20, \"FAILED 16f877A m3 porta4=0 porta5=1\"" nop movlw 0x0a movwf PORTB .assert "(cmcon & 0xc0) == 0x40, \"FAILED 16f877A m3 C1OUT=1 C2OUT=0\"" nop .assert "(porta & 0x30) == 0x10, \"FAILED 16f877A m3 porta4=1 porta5=0\"" nop movlw 0x0c movwf PORTB .assert "(cmcon & 0xc0) == 0xc0, \"FAILED 16f877A m3 C1OUT=1 C2OUT=1\"" nop .assert "(porta & 0x30) == 0x30, \"FAILED 16f877A m3 porta4=1 porta5=1\"" nop .assert "\"*** PASSED 16f877a Comparator\"" goto $ FAILED: .assert "\"*** FAILED Comparator no interupt 16f877A\"" goto $ end gpsim-0.27.0/regression/comparator/compar_882.asm0000775000076400007640000001343711510316373016600 00000000000000 list p=16f882 include include __CONFIG _CONFIG1, _CP_OFF & _WDT_OFF & _INTRC_OSC_NOCLKOUT & _LVP_OFF & _BOR_OFF & _MCLRE_OFF ;; The purpose of this program is to test gpsim's ability to ;; simulate a pic 16F882. ;; Specifically, the comparator is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR int_cm1 RES 1 int_cm2 RES 1 x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp goto interrupt ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "p16f882.xpos = 72" .sim "p16f882.ypos = 72" .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup V1" .sim "V1.resistance = 100.0" .sim "V1.xpos = 240" .sim "V1.ypos = 72" .sim "module load pullup V2" .sim "V2.resistance = 100.0" .sim "V2.xpos = 84" .sim "V2.ypos = 24" .sim "V2.voltage = 2.5" ; V3 and node na0 required for A/D to see pin voltage ; this may be a bug RRR 5/06 .sim "module load pullup V3" .sim "V3.resistance = 100.0" .sim "V3.xpos = 240" .sim "V3.ypos = 120" .sim "V3.voltage = 4.5" .sim "node na0" .sim "attach na0 V3.pin porta0" .sim "node na1" .sim "attach na1 V1.pin porta1" .sim "node na3" .sim "attach na3 V2.pin porta3" movlw 9 BANKSEL ANSEL clrf ANSELH movwf ANSEL ; select AN0, AN3 BANKSEL TRISA movwf TRISA movwf TRISC bsf INTCON,GIE ;Global interrupts bsf INTCON,PEIE ;Peripheral interrupts BANKSEL PIE2 bsf PIE2,C1IE ;CM1 interrupts call test_compar call test_tot1 ; can C2 increment T1 .assert "\"*** PASSED 16F882 comparator test\"" goto $-1 ; ; Test Comparator2 gate control of Timer 1 ; test_tot1: BANKSEL T1CON movlw (1< include __CONFIG _CONFIG1, _CP_OFF & _WDT_OFF & _INTRC_OSC_NOCLKOUT & _LVP_OFF & _BOR_OFF & _MCLRE_OFF ;; The purpose of this program is to test gpsim's ability to ;; simulate a pic 16F882. ;; Specifically, the comparator is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR int_cm1 RES 1 int_cm2 RES 1 x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp goto interrupt ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "p16f882.xpos = 72" .sim "p16f882.ypos = 72" .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup V1" .sim "V1.resistance = 100.0" .sim "V1.xpos = 240" .sim "V1.ypos = 72" .sim "module load pullup V2" .sim "V2.resistance = 100.0" .sim "V2.xpos = 84" .sim "V2.ypos = 24" .sim "V2.voltage = 2.5" ; V3 and node na0 required for A/D to see pin voltage ; this may be a bug RRR 5/06 .sim "module load pullup V3" .sim "V3.resistance = 100.0" .sim "V3.xpos = 240" .sim "V3.ypos = 120" .sim "V3.voltage = 4.5" .sim "node na0" .sim "attach na0 V3.pin porta0" .sim "node na1" .sim "attach na1 V1.pin porta1" .sim "node na3" .sim "attach na3 V2.pin porta3" movlw 9 BANKSEL ANSEL clrf ANSELH movwf ANSEL ; select AN0, AN3 BANKSEL TRISA movwf TRISA movwf TRISC bsf INTCON,GIE ;Global interrupts bsf INTCON,PEIE ;Peripheral interrupts BANKSEL PIE2 bsf PIE2,C1IE ;CM1 interrupts call test_compar call test_tot1 ; can C2 increment T1 .assert "\"*** PASSED 16F882 comparator test\"" goto $-1 ; ; Test Comparator2 gate control of Timer 1 ; test_tot1: BANKSEL T1CON movlw (1< include __CONFIG _CONFIG1, _CP_OFF & _WDT_OFF & _INTRC_OSC_NOCLKOUT & _LVP_OFF & _BOR_OFF & _MCLRE_OFF ;; The purpose of this program is to test gpsim's ability to ;; simulate a pic 16F882. ;; Specifically, the a/d converter is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp bcf STATUS,RP0 ;adcon0 is in bank 0 btfsc INTCON,ADIE btfsc PIR1,ADIF goto check .assert "\"FAILED 16F882 unexpected interrupt\"" nop ;; An A/D interrupt has occurred check: bsf t1,0 ;Set a flag to indicate we got the int. bcf PIR1,ADIF ;Clear the a/d interrupt swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "p16f882.xpos = 72" .sim "p16f882.ypos = 72" .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup V1" .sim "V1.resistance = 100.0" .sim "V1.xpos = 240" .sim "V1.ypos = 72" .sim "module load pullup V2" .sim "V2.resistance = 100.0" .sim "V2.xpos = 84" .sim "V2.ypos = 24" ; V3 and node na0 required for A/D to see pin voltage ; this may be a bug RRR 5/06 .sim "module load pullup V3" .sim "V3.resistance = 10e6" .sim "V3.xpos = 240" .sim "V3.ypos = 120" .sim "node na0" .sim "attach na0 V3.pin porta0" .sim "node na1" .sim "attach na1 V1.pin porta1" .sim "node na3" .sim "attach na3 V2.pin porta3" ;; Let's use the ADC's interrupt ; RA1 is an Analog Input. ; RA0, RA2 - RA6 are all configured as outputs. ; ; Use VDD and VSS for Voltage references. ; ; PCFG = 1110 == AN0 is the only analog input ; ADCS = 110 == FOSC/64 ; ADFM = 0 == 6 LSB of ADRESL are 0. ; BANKSEL OPTION_REG bcf OPTION_REG,7 movlw 3 BANKSEL ANSEL clrf ANSELH movwf ANSEL ; select AN0, AN1 BANKSEL TRISA movwf TRISA bsf PIE1,ADIE ;A2D interrupts bcf STATUS,RP0 ;adcon0 is in bank 0 movlw (1< __CONFIG _CP_OFF & _DEBUG_OFF & _WRT_OFF & _CPD_OFF & _LVP_OFF & _PWRTE_ON & _WDT_OFF & _HS_OSC errorlevel -302 variables UDATA 0x30 temp1 RES 1 temp2 RES 1 STARTUP CODE NOP goto start NOP NOP NOP PROG1 CODE ; start .sim "break c 0x100000" .sim "module lib libgpsim_modules" .sim "module load e24xx024 ee" .sim "module load pu pu1" .sim "module load pu pu2" .sim "node n1" .sim "attach n1 portc4 pu1.pin portb4 ee.SDA" ; SDA .sim "node n2" .sim "attach n2 portc3 pu2.pin portb1 ee.SCL" ; SCL .sim "node n3" .sim "attach n3 porta0 ee.WP" .sim "node n4" .sim "attach n4 porta1 ee.A0" .sim "node n5" .sim "attach n5 porta2 ee.A1" .sim "node n6" .sim "attach n6 porta3 ee.A2" .sim "scope.ch0 = \"portc3\"" .sim "scope.ch1 = \"portc4\"" .sim "pu1.xpos = 240." .sim "pu1.ypos = 336." .sim "pu2.xpos = 216." .sim "pu2.ypos = 24." .sim "ee.xpos = 48." .sim "ee.ypos = 180." .sim "p16f883.xpos = 240." .sim "p16f883.ypos = 84." call ProgInit ; Get everything running step-by-step call I2CSendResult call write_eeprom call is_ready call read_eeprom .command "dump e ee dump.hex" nop call is_ready call clr_eeprom .command "load e ee dump.hex" nop call is_ready call read_eeprom .assert "\"*** PASSED p16f883 I2C test\"" goto $ ;****************************** SUBROUTINES **************************** ;************************************************************************ START_I2C MACRO banksel SSPCON2 ; Generate I2C start bsf SSPCON2,SEN btfsc SSPCON2,SEN goto $-1 banksel PORTA ENDM RSTART_I2C MACRO banksel SSPCON2 ; Generate I2C repeat start bsf SSPCON2,RSEN btfsc SSPCON2,RSEN goto $-1 banksel PORTA ENDM STOP_I2C MACRO banksel SSPCON2 ; Generate I2C stop bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 banksel PORTA ENDM IDLE_WAIT_I2C MACRO banksel SSPCON2 movlw 0x1f andwf SSPCON2,W BNZ $-3 btfsc SSPSTAT,R_W goto $-1 banksel PORTA ENDM ;****************** Initialize Registers and Variables ***************** ;************************************************************************ ProgInit banksel ANSEL clrf ANSEL clrf ANSELH banksel PORTA clrf PORTA ; Set all bits to zero on Port A banksel TRISA clrf TRISA bsf TRISB,4 banksel SSPADD movlw 0x0C ; Set I2C baud rate to 385 kHz movwf SSPADD banksel SSPCON movlw 0x08 ; Set for I2C master mode movwf SSPCON movlw 0x28 ; Enable I2C movwf SSPCON return ;************************************************************************ I2CSendResult banksel SSPCON2 ; Generate I2C start, bus collision bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 bsf SSPCON2,SEN bcf TRISB,1 IDLE_WAIT_I2C .assert "(pir2 & 0x08) == 0x08, \"FAILED BCLIF for start\"" nop banksel TRISB bsf TRISB,1 banksel PIR2 bcf PIR2,BCLIF banksel SSPCON2 ; Generate I2C start bsf SSPCON2,SEN IDLE_WAIT_I2C .assert "(portc & 0x18) == 0, \"FAILED Start SCL, SDL low\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED Start SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED Start BCLIF clear\"" nop .assert "(sspstat & 0x3f) == 0x08, \"FAILED Start S bit set\"" nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 ; Generate I2C restart bsf SSPCON2,RSEN btfsc SSPCON2,RSEN goto $-1 .assert "(portc & 0x18) == 0, \"FAILED RStart SCL, SDL low\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED RStart SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED RStart BCLIF clear\"" nop .assert "(sspstat & 0x3f) == 0x08, \"FAILED RStart S bit set\"" nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,ACKDT bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 .assert "(portc & 0x18) == 0x10, \"FAILED ACKEN SCL low, SDL high\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED ACKEN SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED ACKEN BCLIF clear\"" nop .assert "(sspstat & 0x3f) == 0x08, \"FAILED ACKEN S bit set\"" nop bcf SSPCON2,ACKDT bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 ; Generate I2C restart bsf SSPCON2,RSEN btfsc SSPCON2,RSEN goto $-1 .assert "(portc & 0x18) == 0, \"FAILED RStart SCL, SDL low\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED RStart SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED RStart BCLIF clear\"" nop .assert "(sspstat & 0x3f) == 0x08, \"FAILED RStart S bit set\"" nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 ; Generate I2C stop bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 .assert "(portc & 0x18) == 0x18, \"FAILED Stop SCL, SDL high\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED Stop SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED Stop BCLIF clear\"" nop .assert "(sspstat & 0x3f) == 0x10, \"FAILED Stop P bit set\"" nop return ; ; repeatedly send command to eeprom until an ACK ; is received back ; ; The call of delay is not required for operation of the code, ; but it speeds up the simulation with the GUI running. -- RRR ; is_ready banksel SSPCON movlw 0x04 movwf temp2 clrf temp1 call delay banksel SSPCON2 ; Generate I2C start bsf SSPCON2,SEN btfsc SSPCON2,SEN goto $-1 movlw 0xa0 ; write command to eeprom call I2C_send_w call I2C_stop banksel SSPCON2 ; Generate I2C start btfsc SSPCON2,ACKSTAT goto is_ready banksel PIR2 bcf PIR2,BCLIF return write_eeprom_address banksel SSPCON2 ; Generate I2C start bsf SSPCON2,SEN btfsc SSPCON2,SEN goto $-1 movlw 0xa0 ; write command to eeprom call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write command to eeprom ACK\"" nop .assert "(sspstat & 0x01) == 0x00, \"FAILED write to eeprom BF clear\"" nop banksel PIR1 bcf PIR1,SSPIF movlw 0x00 ; write eeprom address call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write address to eeprom ACK\"" nop return write_eeprom call write_eeprom_address banksel PIR1 bcf PIR1,SSPIF movlw 0x80 ; write data1 call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write data1 to eeprom ACK\"" nop banksel PIR1 bcf PIR1,SSPIF movlw 0x81 ; write data2 call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write data2 to eeprom ACK\"" nop nop call I2C_stop return clr_eeprom call write_eeprom_address banksel PIR1 bcf PIR1,SSPIF movlw 0x00 ; write data1 call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write data1 to eeprom ACK\"" nop banksel PIR1 bcf PIR1,SSPIF movlw 0x00 ; write data2 call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write data2 to eeprom ACK\"" nop nop call I2C_stop return read_eeprom call write_eeprom_address banksel SSPCON2 ; Generate I2C repeated start bsf SSPCON2,RSEN btfsc SSPCON2,RSEN goto $-1 movlw 0xa1 ; Send address/read to eeprom banksel SSPBUF movwf SSPBUF banksel SSPCON2 ; wait for idle (ACKEN,RCEN,PEN,RSEN,SEN) == 0 movlw 0x1f andwf SSPCON2,W BNZ $-3 btfsc SSPSTAT,R_W ; also R_W == 0 goto $-1 .assert "(sspstat & 0x01) == 0x00, \"FAILED address/read to eeprom BF clear\"" nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,RCEN ; read data from eeprom btfsc SSPCON2,RCEN goto $-1 .assert "(pir1 & 0x08) == 0x08, \"FAILED RCEN SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED RCEN BCLIF clear\"" nop .assert "(sspstat & 0x01) == 0x01, \"FAILED RCEN BF set\"" nop banksel SSPBUF movf SSPBUF,W .assert "W == 0x80, \"FAILED RCEN, read Data\"" nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bcf SSPCON2,ACKDT ; send ACK bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,RCEN ; read next byte btfsc SSPCON2,RCEN goto $-1 banksel SSPBUF movf SSPBUF,W .assert "W == 0x81, \"FAILED RCEN, read Data2\"" nop banksel SSPCON2 bsf SSPCON2,ACKDT ; send NACK bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 return I2C_stop banksel SSPCON2 ; Generate I2C stop bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 return delay decfsz temp1,f goto $+2 decfsz temp2,f goto delay return ;********************** Output byte in W via I2C bus ******************** ;************************************************************************ I2C_send_w banksel SSPBUF ; Second byte of data (middle) movwf SSPBUF banksel SSPSTAT btfsc SSPSTAT,R_W goto $-1 return end gpsim-0.27.0/regression/p16f88x/eusart.asm0000755000076400007640000001567311345116620015177 00000000000000 ;; EUSART test ;; ;; The purpose of this program is to verify that gpsim's ;; USART functions properly when configured as an EUSART. ;; The USART module is used to loop ;; characters back to the receiver testing RCIF interupts. ;; ;; ;; list p=16f884 include include __CONFIG _CONFIG1, _WDT_OFF & _MCLRE_ON & _INTRC_OSC_NOCLKOUT ; CONFIG WDT=OFF ; CONFIG MCLRE=ON, LPT1OSC=OFF, PBADEN=DIG, CCP2MX=RC1 errorlevel -302 radix dec BAUDHI equ ((100000/4)/48) BAUDLO equ 129 ;---------------------------------------------------------------------- ; RAM Declarations ; INT_VAR UDATA 0x70 w_temp RES 1 status_temp RES 1 pclath_temp RES 1 GPR_DAT UDATA #define RX_BUF_SIZE 0x10 temp1 RES 1 temp2 RES 1 temp3 RES 1 tx_ptr RES 1 rxLastByte RES 1 rxFlag RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,w clrf STATUS movwf status_temp movf PCLATH,w movwf pclath_temp clrf PCLATH btfsc INTCON,PEIE btfss PIR1,RCIF goto int_done ;;; Received a Character .assert "rcreg == txreg, \"*** FAILED sent character looped back\"" nop movf RCREG,W movwf rxLastByte bsf rxFlag,0 int_done: clrf STATUS movf pclath_temp,w movwf PCLATH swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;; ---------------------------------------------------- ;; ;; start ;; MAIN CODE start .sim ".frequency=10e6" .sim "break c 0x100000" .sim "module library libgpsim_modules" .sim "module load usart U1" ; .sim "U1.xpos = 250.0" ; .sim "U1.ypos = 80.0" .sim "node PIC_tx" .sim "node PIC_rx" ;; Tie the USART module to the PIC .sim "attach PIC_tx portc6 U1.RXPIN" .sim "attach PIC_rx portc7 U1.TXPIN" ;; Set the USART module's Baud Rate .sim "U1.txbaud = 4800" .sim "U1.rxbaud = 4800" .sim "U1.loop = true" ;; USART Initialization ;; ;; Turn on the high baud rate (BRGH), disable the transmitter, ;; disable synchronous mode. ;; clrf STATUS bsf PORTC,6 ;Make sure the TX line drives high when ;it is programmed as an output. banksel TRISC bsf TRISC,7 ;RX is an input bsf TRISC,6 ;TX EUSART sets pin direction ;; CSRC - clock source is a don't care ;; TX9 - 0 8-bit data ;; TXEN - 0 don't enable the transmitter. ;; SYNC - 0 Asynchronous ;; BRGH - 1 Select high baud rate divisor ;; TRMT - x read only ;; TX9D - 0 not used banksel TXSTA movlw (1< 77 && tmr0 < 85, \"*** FAILED baud rate\"" nop clrf rxFlag call rx_loop ; Disable interrupts because the following tests don't give good receive bytes bcf PIE1,RCIE banksel TXSTA bsf TXSTA,SENDB ; request a break sequence banksel PORTC btfss PORTC,6 ; Shouldn't happen just yet .assert "\"*** FAILED break sent too soon\"" nop clrf TMR0 movlw 0x55 movwf TXREG ; break is sent rather than this character call delay btfsc PORTC,6 ; Should happen by now .assert "\"*** FAILED to send break\"" nop btfss PORTC,6 ; Wait 'til through transmitting goto $-1 ; bra $-2 ; ; At 4800 baud each bit takes 0.208 msec. Output will be low for ; start + 12 bit times or 2.70 msec. With 10Mhz TMR0 / 64 is 106 TMR0 counts. movf TMR0,W .assert "tmr0 > 101 && tmr0 < 111, \"*** FAILED sync pulse\"" nop done: .assert "\"*** PASSED E-Usart on 116f884\"" goto $ tx_message: incf tx_ptr,w andlw 0x0f movwf tx_ptr addlw 0x30 return delay: decfsz temp2,f goto delay return TransmitNextByte: banksel TXREG clrf rxFlag call tx_message movwf TXREG clrwdt rx_loop: btfss rxFlag,0 goto rx_loop ; clrf temp2 ; call delay ;; Delay between bytes. btfss PIR1,TXIF goto $-1 return end gpsim-0.27.0/regression/p16f88x/p16f887.asm0000755000076400007640000001325711337116060014712 00000000000000 list p=16f887 include include __CONFIG _CONFIG1, _CP_OFF & _WDT_OFF & _INTRC_OSC_NOCLKOUT & _LVP_OFF & _BOR_OFF & _MCLRE_OFF ;; The purpose of this program is to test gpsim's ability to ;; simulate a pic 16F887. ;; Specifically, the a/d converter is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp bcf STATUS,RP0 ;adcon0 is in bank 0 btfsc INTCON,ADIE btfsc PIR1,ADIF goto check .assert "\"FAILED 16F887 unexpected interrupt\"" nop ;; An A/D interrupt has occurred check: bsf t1,0 ;Set a flag to indicate we got the int. bcf PIR1,ADIF ;Clear the a/d interrupt swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "p16f887.xpos = 72" .sim "p16f887.ypos = 72" .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup V1" .sim "V1.resistance = 100.0" .sim "V1.xpos = 240" .sim "V1.ypos = 72" .sim "module load pullup V2" .sim "V2.resistance = 100.0" .sim "V2.xpos = 84" .sim "V2.ypos = 24" ; V3 and node na0 required for A/D to see pin voltage ; this may be a bug RRR 5/06 .sim "module load pullup V3" .sim "V3.resistance = 10e6" .sim "V3.xpos = 240" .sim "V3.ypos = 120" .sim "node na0" .sim "attach na0 V3.pin porta0" .sim "node na1" .sim "attach na1 V1.pin porta1" .sim "node na3" .sim "attach na3 V2.pin porta3" ;; Let's use the ADC's interrupt ; RA1 is an Analog Input. ; RA0, RA2 - RA6 are all configured as outputs. ; ; Use VDD and VSS for Voltage references. ; ; PCFG = 1110 == AN0 is the only analog input ; ADCS = 110 == FOSC/64 ; ADFM = 0 == 6 LSB of ADRESL are 0. ; movlw 3 BANKSEL ANSEL clrf ANSELH movwf ANSEL ; select AN0, AN1 BANKSEL TRISA movwf TRISA bsf PIE1,ADIE ;A2D interrupts bcf STATUS,RP0 ;adcon0 is in bank 0 movlw (1< include __CONFIG _WDT_OFF ;; The purpose of this program is to test gpsim's ability to simulate a pic 16c71. ;; Specifically, the pwm is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR t0_1 RES 1 t0_2 RES 1 x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp bcf STATUS,RP0 ;adcon0 is in bank 0 .assert "\"FAILED 16F887 unexpected interrupt\"" nop check: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "scope.ch0 = \"portc2\"" ; P1A .sim "scope.ch1 = \"portd5\"" ; P1B .sim "scope.ch2 = \"portd6\"" ; P1C .sim "scope.ch3 = \"portd7\"" ; P1D .sim "scope.ch4 = \"portb4\"" .sim "node na0" .sim "attach na0 portb2 portb0" call setup call full_forward call full_reverse call wait_period call wait_period call half_mode call pwm_shutdown clrf CCP1CON ; turn off PWM clrf CCP2CON ; turn off PWM .assert "\"*** PASSED 16f887 PWM test\"" goto $-1 pwm_shutdown BANKSEL CM1CON0 movlw (1< PR2, expect TMR2 to wrap around ; bsf STATUS, RP0 ; Bank1 movlw 0x84 ; Tmr0 internal clock prescaler 32 movwf OPTION_REG bcf STATUS, RP0 ; Bank0 clrf TMR0 movlw 0x30 movwf TMR2 ; update timer ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x77, \"CCP1 duty cycle after wrap\"" nop bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x80, \"TMR2 > PR2 causes wrap\"" nop ; ; write reduced PR2 ; clrf TMR0 ; loop until CCP2 goes low btfsc PORTC,1 goto $-1 .assert "tmr0 == 0x07, \"CCP2 duty cycle PR2 to 0x20\"" nop ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x0f, \"CCP1 duty cycle PR2 to 0x20\"" nop bsf STATUS, RP0 ; Bank1 movlw 0x20 movwf PR2 bcf STATUS, RP0 ; Bank0 ; ; Wait for end of PWM cycle ; bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x10, \"TMR2 period PR2 to 0x20\"" nop ; ; write reduced PR2 < TRM2 ; clrf TMR0 ; loop until CCP2 goes low btfsc PORTC,1 goto $-1 .assert "tmr0 == 0x07, \"CCP2 duty cycle PR2 to 0x10\"" nop ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x0f, \"CCP1 duty cycle PR2 to 0x10\"" nop bsf STATUS, RP0 ; Bank1 movlw 0x10 movwf PR2 bcf STATUS, RP0 ; Bank0 ; ; Wait for end of PWM cycle ; bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x88, \"TMR2 period PR2 to 0x10 wraps\"" nop return setup: banksel CCP1CON clrf CCP1CON ; CCP Module is off clrf CCP2CON ; CCP Module is off clrf TMR2 ; Clear Timer2 clrf TMR0 ; Clear Timer0 banksel ANSEL clrf ANSEL ; turn ports to digital clrf ANSELH banksel CCPR1L movlw 0x1F ; movwf CCPR1L ; Duty Cycle is 25% of PWM Period movlw 0x0F ; movwf CCPR2L ; Duty Cycle is 25% of PWM Period clrf INTCON ; Disable interrupts and clear T0IF banksel TRISC ; Make output pins bcf TRISC, 1 ; Make pin output bcf TRISC, 2 ; P1A bcf TRISD,5 ; P1B bcf TRISD,6 ; P1C bcf TRISD,7 ; P1D clrf PIE1 ; Disable peripheral interrupts movlw 0x03 ; Port B pull-up Tmr0 internal clock prescaler 16 movwf OPTION_REG banksel PIR1 ; Bank0 clrf PIR1 ; Clear peripheral interrupts Flags return end gpsim-0.27.0/regression/p16f88x/p16f883.asm0000755000076400007640000001327411402670601014704 00000000000000 list p=16f883 include include __CONFIG _CONFIG1, _CP_OFF & _WDT_OFF & _INTRC_OSC_NOCLKOUT & _LVP_OFF & _BOR_OFF & _MCLRE_OFF ;; The purpose of this program is to test gpsim's ability to ;; simulate a pic 16F883. ;; Specifically, the a/d converter is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp bcf STATUS,RP0 ;adcon0 is in bank 0 btfsc INTCON,ADIE btfsc PIR1,ADIF goto check .assert "\"FAILED 16F883 unexpected interrupt\"" nop ;; An A/D interrupt has occurred check: bsf t1,0 ;Set a flag to indicate we got the int. bcf PIR1,ADIF ;Clear the a/d interrupt swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "p16f883.xpos = 72" .sim "p16f883.ypos = 72" .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup V1" .sim "V1.resistance = 100.0" .sim "V1.xpos = 240" .sim "V1.ypos = 72" .sim "module load pullup V2" .sim "V2.resistance = 100.0" .sim "V2.xpos = 84" .sim "V2.ypos = 24" ; V3 and node na0 required for A/D to see pin voltage ; this may be a bug RRR 5/06 .sim "module load pullup V3" .sim "V3.resistance = 10e6" .sim "V3.xpos = 240" .sim "V3.ypos = 120" .sim "node na0" .sim "attach na0 V3.pin porta0" .sim "node na1" .sim "attach na1 V1.pin porta1" .sim "node na3" .sim "attach na3 V2.pin porta3" goto $ ;RRR ;; Let's use the ADC's interrupt ; RA1 is an Analog Input. ; RA0, RA2 - RA6 are all configured as outputs. ; ; Use VDD and VSS for Voltage references. ; ; PCFG = 1110 == AN0 is the only analog input ; ADCS = 110 == FOSC/64 ; ADFM = 0 == 6 LSB of ADRESL are 0. ; movlw 3 BANKSEL ANSEL clrf ANSELH movwf ANSEL ; select AN0, AN1 BANKSEL TRISA movwf TRISA bsf PIE1,ADIE ;A2D interrupts bcf STATUS,RP0 ;adcon0 is in bank 0 movlw (1< include __CONFIG _CONFIG1, _CP_OFF & _WDT_OFF & _INTRC_OSC_NOCLKOUT & _LVP_OFF & _BOR_OFF & _MCLRE_OFF ;; The purpose of this program is to test gpsim's ability to ;; simulate a pic 16F882. ;; Specifically, the a/d converter is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp bcf STATUS,RP0 ;adcon0 is in bank 0 btfsc INTCON,ADIE btfsc PIR1,ADIF goto check .assert "\"FAILED 16F882 unexpected interrupt\"" nop ;; An A/D interrupt has occurred check: bsf t1,0 ;Set a flag to indicate we got the int. bcf PIR1,ADIF ;Clear the a/d interrupt swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "p16f882.xpos = 72" .sim "p16f882.ypos = 72" .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup V1" .sim "V1.resistance = 100.0" .sim "V1.xpos = 240" .sim "V1.ypos = 72" .sim "module load pullup V2" .sim "V2.resistance = 100.0" .sim "V2.xpos = 84" .sim "V2.ypos = 24" ; V3 and node na0 required for A/D to see pin voltage ; this may be a bug RRR 5/06 .sim "module load pullup V3" .sim "V3.resistance = 10e6" .sim "V3.xpos = 240" .sim "V3.ypos = 120" .sim "node na0" .sim "attach na0 V3.pin porta0" .sim "node na1" .sim "attach na1 V1.pin porta1" .sim "node na3" .sim "attach na3 V2.pin porta3" ;; Let's use the ADC's interrupt ; RA1 is an Analog Input. ; RA0, RA2 - RA6 are all configured as outputs. ; ; Use VDD and VSS for Voltage references. ; ; PCFG = 1110 == AN0 is the only analog input ; ADCS = 110 == FOSC/64 ; ADFM = 0 == 6 LSB of ADRESL are 0. ; movlw 3 BANKSEL ANSEL clrf ANSELH movwf ANSEL ; select AN0, AN1 BANKSEL TRISA movwf TRISA bsf OSCCON,4 bsf PIE1,ADIE ;A2D interrupts bcf STATUS,RP0 ;adcon0 is in bank 0 movlw (1< ] " exit 0 fi case "$1" in *clean) DIRS='breakpoints instructions_12bit instructions_14bit instructions_16bit node_test p16f84 p18f452_ports p16f628 digital_stim analog_stim p12ce518 eeprom_wide interrupts_14bit macro_test logic_test resistor usart_test txisr_test tmr0_16bit tmr1_16bit switch_test p18f comparator a2d psp ttl ccp ccp_628 wavegen spi i2c port_stim p12c509 wdt p12f675 p16f676 p16f690 p16f684 p1xf18xx' echo ${DIRS} for i in ${DIRS} ; do echo $i cd $i make clean cd .. done exit 0 ;; *) if [ $# -gt 0 ] then GPSIM_PATH=$1 export GPSIM_PATH fi ;; esac GPSIM_MODULE_PATH=$(pwd)/../modules/.libs export GPSIM_MODULE_PATH RT=./rt.sh # Basic breakpoint test ${RT} breakpoints sim # Instruction set simulation of the mid-range devices ${RT} instructions_14bit sim_instructions_14bit ${RT} instructions_14bit sim_branching #instruction set simulation for the 16bit cores: ${RT} instructions_16bit sim #instruction set simulation for the 12bit cores: ${RT} instructions_12bit sim ${RT} node_test sim #${RT} p12c509 it_12bit #${RT} p12c509 tmr0 ${RT} p16f84 sim ${RT} p18f452_ports sim #${RT} p16f628 p16f628 #${RT} p16f873 sim ${RT} digital_stim sim ${RT} analog_stim sim ${RT} register_stim sim ${RT} p12ce518 sim ${RT} eeprom_wide sim ${RT} interrupts_14bit sim ${RT} interrupts_16bit test_basic ${RT} interrupts_16bit test_priority ${RT} macro_test sim ${RT} logic_test sim ${RT} resistor sim ${RT} usart_test sim_pir1v1 ${RT} usart_test sim_pir1v2 ${RT} usart_test sim_eusart ${RT} usart_test sim_eusart_2455 ${RT} txisr_test sim ${RT} tmr0_16bit sim ${RT} tmr1_16bit sim ${RT} switch_test sim ${RT} p18f sim_instructions ${RT} p18f sim_extended_instructions ${RT} p18f sim_reset ${RT} comparator sim_628 ${RT} comparator sim_877a ${RT} comparator sim_882 ${RT} comparator sim_10f204 ${RT} a2d sim_p16c71 ${RT} a2d sim_p16f871 ${RT} a2d sim_p16f873a ${RT} a2d sim_p16f874a ${RT} a2d sim_p16f88 ${RT} a2d sim_p16f819 ${RT} a2d sim_p18f452 ${RT} a2d sim_p18f4321 ${RT} a2d sim_p18f1220 ${RT} a2d sim_p10f222 ${RT} psp sim_p18f452 ${RT} psp sim_p18f6520 ${RT} psp sim_p16f871 ${RT} ttl sim_ttl377 ${RT} ttl sim_ttl165 ${RT} ccp sim_ccp_877a ${RT} ccp sim_ccp_819 ${RT} ccp sim_pwm_877a ${RT} ccp sim_pwm_6520 ${RT} ccp_628 sim ${RT} wavegen sim ${RT} spi sim_p16f88 ${RT} spi sim_p18f242 ${RT} spi sim_p16c62 ${RT} i2c sim_p16f88 ${RT} i2c sim_p16f819 ${RT} i2c sim_p16f876a ${RT} port_stim sim_port_stim ${RT} p12f675 sim_p12f629 ${RT} p12f675 sim_p12f675 ${RT} p12f675 sim_p12f683 ${RT} p12c509 sim_p12c509_reset ${RT} p16f84 sim_reset ${RT} wdt sim_wdt_10f200 ${RT} wdt sim_wdt_16f88 ${RT} wdt sim_nwdt_16f88 ${RT} wdt sim_wdt_16f628 ${RT} wdt sim_nwdt_16f628 ${RT} wdt sim_nwdt_16f648a ${RT} wdt sim_wdt_16c64 ${RT} wdt sim_nwdt_16c64 ${RT} wdt sim_wdt_18f452 ${RT} wdt sim_nwdt_18f452 ${RT} wdt sim_wdt_18f4620 ${RT} wdt sim_nwdt_18f4620 ${RT} p16f676 sim_p16f676 ${RT} p16f676 sim_reset ${RT} p16f690 sim_epwm ${RT} p16f690 sim_eusart ${RT} p16f690 sim_nwdt_16f631 ${RT} p16f690 sim_p16f690 ${RT} p16f690 sim_wdt_16f677 ${RT} p16f690 sim_wdt_16f685 ${RT} p16f684 sim_a2d_684 ${RT} p16f684 sim_compar_684 ${RT} p16f684 sim_epwm ${RT} p16f684 sim_nwdt_16f684 ${RT} p16f684 sim_reset ${RT} p16f684 sim_wdt_16f684 ${RT} p1xf18xx sim_p12f1822 ${RT} p1xf18xx sim_p16f1823 ${RT} p1xf18xx sim_p16f1823_comp ${RT} p1xf18xx sim_p16f1823_i2c ${RT} p1xf18xx sim_p16f1823_i2c_v2 ${RT} p1xf18xx sim_p16f1823_spi gpsim-0.27.0/regression/epwm/0000775000076400007640000000000012210742355013063 500000000000000gpsim-0.27.0/regression/epwm/p18f4321.asm0000755000076400007640000001626111400635051014576 00000000000000 list p=18f4321 include include ; __CONFIG _WDT_OFF ;; The purpose of this program is to test gpsim's ability to simulate a pic 16c71. ;; Specifically, the pwm is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA t0_1 RES 1 t0_2 RES 1 x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp .assert "\"FAILED 18F4321 unexpected interrupt\"" nop check: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "scope.ch0 = \"portc2\"" ; P1A .sim "scope.ch1 = \"portd5\"" ; P1B .sim "scope.ch2 = \"portd6\"" ; P1C .sim "scope.ch3 = \"portd7\"" ; P1D .sim "scope.ch4 = \"portb4\"" .sim "node na0" .sim "attach na0 portb2 portb0" call setup call full_forward call full_reverse call wait_period call wait_period call half_mode call pwm_shutdown clrf CCP1CON ; turn off PWM clrf CCP2CON ; turn off PWM .assert "\"*** PASSED 18f4321 PWM test\"" goto $-1 pwm_shutdown movlw (1< PR2, expect TMR2 to wrap around ; ;Tmr1 on 8 bit internal clock prescale 32 movlw (1< PR2 causes wrap\"" nop ; ; write reduced PR2 ; clrf TMR0L ; loop until CCP2 goes low btfsc PORTC,1 goto $-1 .assert "tmr0 == 0x07, \"CCP2 duty cycle PR2 to 0x20\"" nop ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x0f, \"CCP1 duty cycle PR2 to 0x20\"" nop movlw 0x20 movwf PR2 ; ; Wait for end of PWM cycle ; bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x10, \"TMR2 period PR2 to 0x20\"" nop ; ; write reduced PR2 < TRM2 ; clrf TMR0L ; loop until CCP2 goes low btfsc PORTC,1 goto $-1 .assert "tmr0 == 0x07, \"CCP2 duty cycle PR2 to 0x10\"" nop ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x0f, \"CCP1 duty cycle PR2 to 0x10\"" nop movlw 0x10 movwf PR2 ; ; Wait for end of PWM cycle ; bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x88, \"TMR2 period PR2 to 0x10 wraps\"" nop return setup: clrf CCP1CON ; CCP Module is off clrf CCP2CON ; CCP Module is off clrf TMR2 ; Clear Timer2 clrf TMR0L ; Clear Timer0 clrf ADCON1 ; turn ports to digital movlw 0x1F ; movwf CCPR1L ; Duty Cycle is 25% of PWM Period movlw 0x0F ; movwf CCPR2L ; Duty Cycle is 25% of PWM Period clrf INTCON ; Disable interrupts and clear T0IF ; Make output pins bcf TRISC, 1 ; Make pin output bcf TRISC, 2 ; P1A bcf TRISD,5 ; P1B bcf TRISD,6 ; P1C bcf TRISD,7 ; P1D clrf PIE1 ; Disable peripheral interrupts clrf PIR1 ; Clear peripheral interrupts Flags return end gpsim-0.27.0/regression/epwm/p18f2321.asm0000755000076400007640000001623111401100611014557 00000000000000 list p=18f2321 include include ; __CONFIG _WDT_OFF ;; The purpose of this program is to test gpsim's ability to simulate a pic 16c71. ;; Specifically, the pwm is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA t0_1 RES 1 t0_2 RES 1 x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp .assert "\"FAILED 18f2321 unexpected interrupt\"" nop check: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "scope.ch0 = \"portc2\"" ; P1A ; .sim "scope.ch1 = \"portd5\"" ; P1B ; .sim "scope.ch2 = \"portd6\"" ; P1C ; .sim "scope.ch3 = \"portd7\"" ; P1D ; .sim "scope.ch4 = \"portb4\"" .sim "node na0" .sim "attach na0 portb2 portb0" call setup call full_forward call full_reverse call wait_period call wait_period call half_mode call pwm_shutdown clrf CCP1CON ; turn off PWM clrf CCP2CON ; turn off PWM .assert "\"*** PASSED 18f2321 PWM test\"" goto $-1 pwm_shutdown movlw (1< PR2, expect TMR2 to wrap around ; ;Tmr1 on 8 bit internal clock prescale 32 movlw (1< PR2 causes wrap\"" nop ; ; write reduced PR2 ; clrf TMR0L ; loop until CCP2 goes low btfsc PORTC,1 goto $-1 .assert "tmr0 == 0x07, \"CCP2 duty cycle PR2 to 0x20\"" nop ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x0f, \"CCP1 duty cycle PR2 to 0x20\"" nop movlw 0x20 movwf PR2 ; ; Wait for end of PWM cycle ; bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x10, \"TMR2 period PR2 to 0x20\"" nop ; ; write reduced PR2 < TRM2 ; clrf TMR0L ; loop until CCP2 goes low btfsc PORTC,1 goto $-1 .assert "tmr0 == 0x07, \"CCP2 duty cycle PR2 to 0x10\"" nop ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x0f, \"CCP1 duty cycle PR2 to 0x10\"" nop movlw 0x10 movwf PR2 ; ; Wait for end of PWM cycle ; bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x88, \"TMR2 period PR2 to 0x10 wraps\"" nop return setup: clrf CCP1CON ; CCP Module is off clrf CCP2CON ; CCP Module is off clrf TMR2 ; Clear Timer2 clrf TMR0L ; Clear Timer0 clrf ADCON1 ; turn ports to digital movlw 0x1F ; movwf CCPR1L ; Duty Cycle is 25% of PWM Period movlw 0x0F ; movwf CCPR2L ; Duty Cycle is 25% of PWM Period clrf INTCON ; Disable interrupts and clear T0IF ; Make output pins bcf TRISC, 1 ; Make pin output bcf TRISC, 2 ; P1A ; bcf TRISD,5 ; P1B ; bcf TRISD,6 ; P1C ; bcf TRISD,7 ; P1D clrf PIE1 ; Disable peripheral interrupts clrf PIR1 ; Clear peripheral interrupts Flags return end gpsim-0.27.0/regression/epwm/18f4321.lkr0000644000076400007640000000150011400612637014416 00000000000000// File: 18f4321.lkr // Sample linker script for the PIC18F4321 processor // Not intended for use with MPLAB C18. For C18 projects, // use the linker scripts provided with that product. LIBPATH . CODEPAGE NAME=page START=0x0 END=0x1FFF CODEPAGE NAME=idlocs START=0x200000 END=0x200007 PROTECTED CODEPAGE NAME=config START=0x300000 END=0x30000D PROTECTED CODEPAGE NAME=devid START=0x3FFFFE END=0x3FFFFF PROTECTED CODEPAGE NAME=eedata START=0xF00000 END=0xF000FF PROTECTED ACCESSBANK NAME=accessram START=0x0 END=0x7F DATABANK NAME=gpr0 START=0x80 END=0xFF DATABANK NAME=gpr1 START=0x100 END=0x1FF ACCESSBANK NAME=accesssfr START=0xF80 END=0xFFF PROTECTED gpsim-0.27.0/regression/epwm/Makefile0000644000076400007640000000023411400724522014434 00000000000000include ../make.regression all : p16f887.cod p18f4321.cod p16f882.cod p18f1220.cod p18f2321.cod p%.cod : p%.o gplink --map -s $*.lkr -o $@ $< sim: gpsim-0.27.0/regression/epwm/p18f1220.asm0000755000076400007640000001550411400723556014600 00000000000000 list p=18f1220 include include ; __CONFIG _WDT_OFF ;; The purpose of this program is to test gpsim's ability to simulate a pic 16c71. ;; Specifically, the pwm is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA t0_1 RES 1 t0_2 RES 1 x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp .assert "\"FAILED 18f1220 unexpected interrupt\"" nop check: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "scope.ch0 = \"portb3\"" ; P1A .sim "scope.ch1 = \"portb2\"" ; P1B .sim "scope.ch2 = \"portb6\"" ; P1C .sim "scope.ch3 = \"portb7\"" ; P1D .sim "scope.ch4 = \"portb1\"" .sim "node na0" .sim "attach na0 porta0 portb1" call setup call full_forward call full_reverse call wait_period call wait_period call half_mode call pwm_shutdown clrf CCP1CON ; turn off PWM .assert "\"*** PASSED 18f1220 PWM test\"" goto $-1 pwm_shutdown ; INT1 low bcf PORTA,0 ; C1 control and 0 output movlw (1< PR2, expect TMR2 to wrap around ; ;Tmr1 on 8 bit internal clock prescale 32 movlw (1< PR2 causes wrap\"" nop ; ; write reduced PR2 ; clrf TMR0L ; loop until CCP2 goes low ; btfsc PORTC,1 ; goto $-1 ; .assert "tmr0 == 0x07, \"CCP2 duty cycle PR2 to 0x20\"" nop ; loop until CCP1 goes low btfsc PORTB,3 goto $-1 .assert "tmr0 == 0x0f, \"CCP1 duty cycle PR2 to 0x20\"" nop movlw 0x20 movwf PR2 ; ; Wait for end of PWM cycle ; bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x10, \"TMR2 period PR2 to 0x20\"" nop ; ; write reduced PR2 < TRM2 ; clrf TMR0L ; loop until CCP2 goes low ; btfsc PORTC,1 ; goto $-1 ; .assert "tmr0 == 0x07, \"CCP2 duty cycle PR2 to 0x10\"" nop ; loop until CCP1 goes low btfsc PORTB,3 goto $-1 .assert "tmr0 == 0x0f, \"CCP1 duty cycle PR2 to 0x10\"" nop movlw 0x10 movwf PR2 ; ; Wait for end of PWM cycle ; bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x88, \"TMR2 period PR2 to 0x10 wraps\"" nop return setup: movlw 0x7f ; ports are digital movwf ADCON1 clrf CCP1CON ; CCP Module is off clrf TMR2 ; Clear Timer2 clrf TMR0L ; Clear Timer0 movlw 0x1F ; movwf CCPR1L ; Duty Cycle is 25% of PWM Period clrf INTCON ; Disable interrupts and clear T0IF bsf PORTA,0 ; Make output pins bcf TRISA,0 ; drive shutdown int1 bcf TRISB,3 ; P1A bcf TRISB,2 ; P1B bcf TRISB,6 ; P1C bcf TRISB,7 ; P1D clrf PIE1 ; Disable peripheral interrupts clrf PIR1 ; Clear peripheral interrupts Flags return end gpsim-0.27.0/regression/epwm/p16f887.asm0000755000076400007640000001731411400636055014536 00000000000000 list p=16f887 include include __CONFIG _WDT_OFF ;; The purpose of this program is to test gpsim's ability to simulate a pic 16c71. ;; Specifically, the pwm is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR t0_1 RES 1 t0_2 RES 1 x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp bcf STATUS,RP0 ;adcon0 is in bank 0 .assert "\"FAILED 16F887 unexpected interrupt\"" nop check: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "scope.ch0 = \"portc2\"" ; P1A .sim "scope.ch1 = \"portd5\"" ; P1B .sim "scope.ch2 = \"portd6\"" ; P1C .sim "scope.ch3 = \"portd7\"" ; P1D .sim "scope.ch4 = \"portb4\"" .sim "node na0" .sim "attach na0 portb2 portb0" call setup call full_forward call full_reverse call wait_period call wait_period call half_mode call pwm_shutdown clrf CCP1CON ; turn off PWM clrf CCP2CON ; turn off PWM .assert "\"*** PASSED 16f887 PWM test\"" goto $-1 pwm_shutdown BANKSEL CM1CON0 movlw (1< PR2, expect TMR2 to wrap around ; bsf STATUS, RP0 ; Bank1 movlw 0x84 ; Tmr0 internal clock prescaler 32 movwf OPTION_REG bcf STATUS, RP0 ; Bank0 clrf TMR0 movlw 0x30 movwf TMR2 ; update timer ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x77, \"CCP1 duty cycle after wrap\"" nop bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x80, \"TMR2 > PR2 causes wrap\"" nop ; ; write reduced PR2 ; clrf TMR0 ; loop until CCP2 goes low btfsc PORTC,1 goto $-1 .assert "tmr0 == 0x07, \"CCP2 duty cycle PR2 to 0x20\"" nop ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x0f, \"CCP1 duty cycle PR2 to 0x20\"" nop bsf STATUS, RP0 ; Bank1 movlw 0x20 movwf PR2 bcf STATUS, RP0 ; Bank0 ; ; Wait for end of PWM cycle ; bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x10, \"TMR2 period PR2 to 0x20\"" nop ; ; write reduced PR2 < TRM2 ; clrf TMR0 ; loop until CCP2 goes low btfsc PORTC,1 goto $-1 .assert "tmr0 == 0x07, \"CCP2 duty cycle PR2 to 0x10\"" nop ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x0f, \"CCP1 duty cycle PR2 to 0x10\"" nop bsf STATUS, RP0 ; Bank1 movlw 0x10 movwf PR2 bcf STATUS, RP0 ; Bank0 ; ; Wait for end of PWM cycle ; bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x88, \"TMR2 period PR2 to 0x10 wraps\"" nop return setup: banksel CCP1CON clrf CCP1CON ; CCP Module is off clrf CCP2CON ; CCP Module is off clrf TMR2 ; Clear Timer2 clrf TMR0 ; Clear Timer0 banksel ANSEL clrf ANSEL ; turn ports to digital clrf ANSELH banksel CCPR1L movlw 0x1F ; movwf CCPR1L ; Duty Cycle is 25% of PWM Period movlw 0x0F ; movwf CCPR2L ; Duty Cycle is 25% of PWM Period clrf INTCON ; Disable interrupts and clear T0IF banksel TRISC ; Make output pins bcf TRISC, 1 ; Make pin output bcf TRISC, 2 ; P1A bcf TRISD,5 ; P1B bcf TRISD,6 ; P1C bcf TRISD,7 ; P1D clrf PIE1 ; Disable peripheral interrupts movlw 0x03 ; Port B pull-up Tmr0 internal clock prescaler 16 movwf OPTION_REG banksel PIR1 ; Bank0 clrf PIR1 ; Clear peripheral interrupts Flags return end gpsim-0.27.0/regression/epwm/18f1220.lkr0000644000076400007640000000140511400666473014424 00000000000000// File: 18f1220.lkr // Sample linker script for the PIC18F1220 processor // Not intended for use with MPLAB C18. For C18 projects, // use the linker scripts provided with that product. LIBPATH . CODEPAGE NAME=page START=0x0 END=0xFFF CODEPAGE NAME=idlocs START=0x200000 END=0x200007 PROTECTED CODEPAGE NAME=config START=0x300000 END=0x30000D PROTECTED CODEPAGE NAME=devid START=0x3FFFFE END=0x3FFFFF PROTECTED CODEPAGE NAME=eedata START=0xF00000 END=0xF000FF PROTECTED ACCESSBANK NAME=accessram START=0x0 END=0x7F DATABANK NAME=gpr0 START=0x80 END=0xFF ACCESSBANK NAME=accesssfr START=0xF80 END=0xFFF PROTECTED gpsim-0.27.0/regression/epwm/18f2321.lkr0000644000076400007640000000150011400724607014415 00000000000000// File: 18f2321.lkr // Sample linker script for the PIC18F2321 processor // Not intended for use with MPLAB C18. For C18 projects, // use the linker scripts provided with that product. LIBPATH . CODEPAGE NAME=page START=0x0 END=0x1FFF CODEPAGE NAME=idlocs START=0x200000 END=0x200007 PROTECTED CODEPAGE NAME=config START=0x300000 END=0x30000D PROTECTED CODEPAGE NAME=devid START=0x3FFFFE END=0x3FFFFF PROTECTED CODEPAGE NAME=eedata START=0xF00000 END=0xF000FF PROTECTED ACCESSBANK NAME=accessram START=0x0 END=0x7F DATABANK NAME=gpr0 START=0x80 END=0xFF DATABANK NAME=gpr1 START=0x100 END=0x1FF ACCESSBANK NAME=accesssfr START=0xF80 END=0xFFF PROTECTED gpsim-0.27.0/regression/epwm/16f882.lkr0000644000076400007640000000204611400660263014350 00000000000000// Sample linker command file for 16F882 LIBPATH . CODEPAGE NAME=page0 START=0x0 END=0x7FF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2008 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x21FF PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18D PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xBF SHAREBANK NAME=gprnobnk START=0x70 END=0x7F SHAREBANK NAME=gprnobnk START=0xF0 END=0xFF PROTECTED SHAREBANK NAME=gprnobnk START=0x170 END=0x17F PROTECTED SHAREBANK NAME=gprnobnk START=0x1F0 END=0x1FF PROTECTED SECTION NAME=PROG1 ROM=page0 // ROM code space - page0 SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/epwm/16f887.lkr0000644000076400007640000000275011400612152014351 00000000000000// Sample linker command file for 16F887 LIBPATH . CODEPAGE NAME=page0 START=0x0 END=0x7FF CODEPAGE NAME=page1 START=0x800 END=0xFFF CODEPAGE NAME=page2 START=0x1000 END=0x17FF CODEPAGE NAME=page3 START=0x1800 END=0x1FFF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2008 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x21FF PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xEF DATABANK NAME=gpr2 START=0x110 END=0x16F DATABANK NAME=gpr3 START=0x190 END=0x1EF SHAREBANK NAME=gprnobnk START=0x70 END=0x7F SHAREBANK NAME=gprnobnk START=0xF0 END=0xFF PROTECTED SHAREBANK NAME=gprnobnk START=0x170 END=0x17F PROTECTED SHAREBANK NAME=gprnobnk START=0x1F0 END=0x1FF PROTECTED SECTION NAME=PROG1 ROM=page0 // ROM code space - page0 SECTION NAME=PROG2 ROM=page1 // ROM code space - page1 SECTION NAME=PROG3 ROM=page2 // ROM code space - page2 SECTION NAME=PROG4 ROM=page3 // ROM code space - page3 SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/epwm/p16f882.asm0000755000076400007640000001734711400660604014534 00000000000000 list p=16f882 include include __CONFIG _WDT_OFF ;; The purpose of this program is to test gpsim's ability to simulate a pic 16c71. ;; Specifically, the pwm is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR t0_1 RES 1 t0_2 RES 1 x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp bcf STATUS,RP0 ;adcon0 is in bank 0 .assert "\"FAILED 16f882 unexpected interrupt\"" nop check: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "scope.ch0 = \"portc2\"" ; P1A .sim "scope.ch1 = \"portb2\"" ; P1B .sim "scope.ch2 = \"portb1\"" ; P1C .sim "scope.ch3 = \"portb4\"" ; P1D .sim "scope.ch4 = \"portb4\"" .sim "node na0" .sim "attach na0 portb2 portb0" call setup call full_forward call full_reverse call wait_period call wait_period call half_mode call pwm_shutdown clrf CCP1CON ; turn off PWM clrf CCP2CON ; turn off PWM .assert "\"*** PASSED 16f882 PWM test\"" goto $-1 pwm_shutdown BANKSEL CM1CON0 movlw (1< PR2, expect TMR2 to wrap around ; bsf STATUS, RP0 ; Bank1 movlw 0x84 ; Tmr0 internal clock prescaler 32 movwf OPTION_REG bcf STATUS, RP0 ; Bank0 clrf TMR0 movlw 0x30 movwf TMR2 ; update timer ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x77, \"CCP1 duty cycle after wrap\"" nop bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x80, \"TMR2 > PR2 causes wrap\"" nop ; ; write reduced PR2 ; clrf TMR0 ; loop until CCP2 goes low btfsc PORTC,1 goto $-1 .assert "tmr0 == 0x07, \"CCP2 duty cycle PR2 to 0x20\"" nop ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x0f, \"CCP1 duty cycle PR2 to 0x20\"" nop bsf STATUS, RP0 ; Bank1 movlw 0x20 movwf PR2 bcf STATUS, RP0 ; Bank0 ; ; Wait for end of PWM cycle ; bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x10, \"TMR2 period PR2 to 0x20\"" nop ; ; write reduced PR2 < TRM2 ; clrf TMR0 ; loop until CCP2 goes low btfsc PORTC,1 goto $-1 .assert "tmr0 == 0x07, \"CCP2 duty cycle PR2 to 0x10\"" nop ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x0f, \"CCP1 duty cycle PR2 to 0x10\"" nop bsf STATUS, RP0 ; Bank1 movlw 0x10 movwf PR2 bcf STATUS, RP0 ; Bank0 ; ; Wait for end of PWM cycle ; bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x88, \"TMR2 period PR2 to 0x10 wraps\"" nop return setup: banksel CCP1CON clrf CCP1CON ; CCP Module is off clrf CCP2CON ; CCP Module is off clrf TMR2 ; Clear Timer2 clrf TMR0 ; Clear Timer0 banksel ANSEL clrf ANSEL ; turn ports to digital clrf ANSELH banksel CCPR1L movlw 0x1F ; movwf CCPR1L ; Duty Cycle is 25% of PWM Period movlw 0x0F ; movwf CCPR2L ; Duty Cycle is 25% of PWM Period clrf INTCON ; Disable interrupts and clear T0IF banksel TRISC ; Make output pins bcf TRISC, 1 ; Make pin output bcf TRISC, 2 ; P1A bcf TRISB,2 ; P1B bcf TRISB,1 ; P1C bcf TRISB,4 ; P1D clrf PIE1 ; Disable peripheral interrupts movlw 0x03 ; Port B pull-up Tmr0 internal clock prescaler 16 movwf OPTION_REG banksel PIR1 ; Bank0 clrf PIR1 ; Clear peripheral interrupts Flags return end gpsim-0.27.0/regression/microchip_usart/0000775000076400007640000000000012210742355015306 500000000000000gpsim-0.27.0/regression/microchip_usart/p16_prty.asm0000666000076400007640000002025307523652614017431 00000000000000;============================================================================= ; Software License Agreement ; ; The software supplied herewith by Microchip Technology Incorporated ; (the "Company") for its PICmicro® Microcontroller is intended and ; supplied to you, the Company’s customer, for use solely and ; exclusively on Microchip PICmicro Microcontroller products. The ; software is owned by the Company and/or its supplier, and is ; protected under applicable copyright laws. All rights are reserved. ; Any use in violation of the foregoing restrictions may subject the ; user to criminal sanctions under applicable laws, as well as to ; civil liability for the breach of the terms and conditions of this ; license. ; ; THIS SOFTWARE IS PROVIDED IN AN "AS IS" CONDITION. NO WARRANTIES, ; WHETHER EXPRESS, IMPLIED OR STATUTORY, INCLUDING, BUT NOT LIMITED ; TO, IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A ; PARTICULAR PURPOSE APPLY TO THIS SOFTWARE. THE COMPANY SHALL NOT, ; IN ANY CIRCUMSTANCES, BE LIABLE FOR SPECIAL, INCIDENTAL OR ; CONSEQUENTIAL DAMAGES, FOR ANY REASON WHATSOEVER. ; ;============================================================================= ; Filename: p16_prty.asm ;============================================================================= ; Author: Mike Garbutt ; Company: Microchip Technology Inc. ; Revision: 1.00 ; Date: August 6, 2002 ; Assembled using MPASMWIN V3.20 ;============================================================================= ; Include Files: p16f877.inc V1.12 ;============================================================================= ; PIC16XXX USART example code using a parity bit with receive polling ; and transmit waiting. The main routine calls a subroutine that polls ; for received data and if there is data it is checked for parity and ; returned in a register. The main routine then copies this data for ; transmission and calls the transmit routine. This routine waits until ; the transmitter is ready, calculates the parity bit and transmits the ; data. Nine bit mode is used to implement the parity bit. ;============================================================================= list p=16f877 ;list directive to define processor #include ;processor specific definitions errorlevel -302 ;suppress "not in bank 0" message __CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _XT_OSC & _WRT_ENABLE_OFF & _LVP_OFF & _DEBUG_OFF & _CPD_OFF ;---------------------------------------------------------------------------- ;Constants SPBRG_VAL EQU .25 ;set baud rate 9600 for 4Mhz clock ;---------------------------------------------------------------------------- ;Bit Definitions GotNewData EQU 0 ;bit indicates new data received ;---------------------------------------------------------------------------- ;Variables CBLOCK 0x020 Flags ;byte to store indicator flags RxData ;data received TxData ;data to transmit ParityByte ;byte used for parity calculation ParityBit ;byte to store received parity bit ENDC ;---------------------------------------------------------------------------- ;Macros to select the register bank ;Many bank changes can be optimized when only one STATUS bit changes Bank0 MACRO ;macro to select data RAM bank 0 bcf STATUS,RP0 bcf STATUS,RP1 ENDM Bank1 MACRO ;macro to select data RAM bank 1 bsf STATUS,RP0 bcf STATUS,RP1 ENDM Bank2 MACRO ;macro to select data RAM bank 2 bcf STATUS,RP0 bsf STATUS,RP1 ENDM Bank3 MACRO ;macro to select data RAM bank 3 bsf STATUS,RP0 bsf STATUS,RP1 ENDM ;---------------------------------------------------------------------------- ;This code executes when a reset occurs. ORG 0x0000 ;place code at reset vector ResetCode: clrf PCLATH ;select program memory page 0 goto Main ;go to beginning of program ;---------------------------------------------------------------------------- ;This code executes when an interrupt occurs. ORG 0x0004 ;place code at interrupt vector InterruptCode: ;do interrupts here retfie ;return from interrupt ;---------------------------------------------------------------------------- ;Main routine calls the receive polling routine and checks for a byte ;received. It then calls a routine to transmit the data back. Main: call SetupSerial ;set up serial port and buffers ;do other initialization here MainLoop: call ReceiveSerial ;go get received data if available btfss Flags,GotNewData ;check if data received goto DoOtherStuff ;if not go do other stuff movf RxData,W ;else copy received data movwf TxData ;to the transmit data call TransmitSerial ;go transmit the data bcf Flags,GotNewData ;indicate no data received DoOtherStuff: ;do other stuff here goto MainLoop ;go do main loop again ;---------------------------------------------------------------------------- ;Check if data received and if so, place in a register and check parity. ReceiveSerial: Bank0 ;select bank 0 btfss PIR1,RCIF ;check if data return ;return if no data btfsc RCSTA,OERR ;if overrun error occurred goto ErrSerialOverr ; then go handle error btfsc RCSTA,FERR ;if framing error occurred goto ErrSerialFrame ; then go handle error movf RCSTA,W ;get received parity bit movwf ParityBit ;and save (in bit zero) movf RCREG,W ;get received data movwf RxData ;and save call CalcParity ;calculate parity movf ParityBit,W ;get received parity bit (in bit zero) xorwf ParityByte,F ;compare with calculated parity bit btfsc ParityByte,0 ;check result of comparison goto ErrSerlParity ;if parity is different, then error bsf Flags,GotNewData ;else indicate new data received return ;error because OERR overrun error bit is set ;can do special error handling here - this code simply clears and continues ErrSerialOverr: bcf RCSTA,CREN ;reset the receiver logic bsf RCSTA,CREN ;enable reception again return ;error because FERR framing error bit is set ;can do special error handling here - this code simply clears and continues ErrSerialFrame: movf RCREG,W ;discard received data that has error return ;error because parity bit is not correct ;can do special error handling here - this code simply clears and continues ErrSerlParity: return ;return without indicating new data ;---------------------------------------------------------------------------- ;Transmit data with parity when the transmit register is empty. TransmitSerial: Bank0 ;select bank 0 btfss PIR1,TXIF ;check if transmitter busy goto $-1 ;wait until transmitter is not busy movf TxData,W ;get data to be transmitted call CalcParity ;calculate parity rrf CalcParity,W ;get parity bit in carry flag Bank1 ;select bank 1 bcf TXSTA,TX9D ;set TX parity to zero btfsc STATUS,C ;check if parity bit is zero bsf TXSTA,TX9D ;if not then set TX parity to one Bank0 ;select bank 0 movf TxData,W ;get data to transmit movwf TXREG ;and transmit the data return ;---------------------------------------------------------------------------- ;Calculate even parity bit. ;Data starts in working register, result is in LSb of ParityByte CalcParity: Bank0 ;select bank 0 movwf ParityByte ;get data for parity calculation rrf ParityByte,W ;rotate xorwf ParityByte,W ;compare all bits against neighbor movwf ParityByte ;save rrf ParityByte,F ;rotate rrf ParityByte,F ;rotate xorwf ParityByte,F ;compare every 2nd bit and save swapf ParityByte,W ;rotate 4 xorwf ParityByte,F ;compare every 4th bit and save return ;---------------------------------------------------------------------------- ;Set up serial port. SetupSerial: Bank1 ;select bank 1 movlw 0xc0 ;set tris bits for TX and RX iorwf TRISC,F movlw SPBRG_VAL ;set baud rate movwf SPBRG movlw 0x64 ;enable transmission and high baud rate movwf TXSTA Bank0 ;select bank 0 movlw 0xd0 ;enable serial port and reception movwf RCSTA clrf Flags ;clear all flags return ;---------------------------------------------------------------------------- END gpsim-0.27.0/regression/microchip_usart/Makefile0000664000076400007640000000014712121052575016667 00000000000000 p16_tprp.cod: p16_tprp.o gplink --map -s 16f877.lkr -o $@ $< p16_tprp.o: p16_tprp.asm gpasm -c $< gpsim-0.27.0/regression/microchip_usart/p16_tiri.asm0000666000076400007640000004045207523652614017405 00000000000000;============================================================================= ; Software License Agreement ; ; The software supplied herewith by Microchip Technology Incorporated ; (the "Company") for its PICmicro® Microcontroller is intended and ; supplied to you, the Company’s customer, for use solely and ; exclusively on Microchip PICmicro Microcontroller products. The ; software is owned by the Company and/or its supplier, and is ; protected under applicable copyright laws. All rights are reserved. ; Any use in violation of the foregoing restrictions may subject the ; user to criminal sanctions under applicable laws, as well as to ; civil liability for the breach of the terms and conditions of this ; license. ; ; THIS SOFTWARE IS PROVIDED IN AN "AS IS" CONDITION. NO WARRANTIES, ; WHETHER EXPRESS, IMPLIED OR STATUTORY, INCLUDING, BUT NOT LIMITED ; TO, IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A ; PARTICULAR PURPOSE APPLY TO THIS SOFTWARE. THE COMPANY SHALL NOT, ; IN ANY CIRCUMSTANCES, BE LIABLE FOR SPECIAL, INCIDENTAL OR ; CONSEQUENTIAL DAMAGES, FOR ANY REASON WHATSOEVER. ; ;============================================================================= ; Filename: p16_tiri.asm ;============================================================================= ; Author: Mike Garbutt ; Company: Microchip Technology Inc. ; Revision: 1.00 ; Date: August 6, 2002 ; Assembled using MPASMWIN V3.20 ;============================================================================= ; Include Files: p16f877.inc V1.12 ;============================================================================= ; USART example code with transmit and receive interrupts. Received data ; is put into a buffer, called RxBuffer. When a carriage return is ; received, the received data in RxBuffer is moved into another buffer, ; TxBuffer. The data in TxBuffer is then transmitted. ;============================================================================= list p=16f877 ;list directive to define processor #include ;processor specific definitions errorlevel -302 ;suppress "not in bank 0" message __CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _XT_OSC & _WRT_ENABLE_OFF & _LVP_OFF & _DEBUG_OFF & _CPD_OFF ;---------------------------------------------------------------------------- ;Constants SPBRG_VAL EQU .25 ;set baud rate 9600 for 4Mhz clock TX_BUF_LEN EQU .80 ;length of transmit circular buffer RX_BUF_LEN EQU TX_BUF_LEN ;length of receive circular buffer ;---------------------------------------------------------------------------- ;Bit Definitions TxBufFull EQU 0 ;bit indicates Tx buffer is full TxBufEmpty EQU 1 ;bit indicates Tx buffer is empty RxBufFull EQU 2 ;bit indicates Rx buffer is full RxBufEmpty EQU 3 ;bit indicates Rx buffer is empty ReceivedCR EQU 4 ;bit indicates character received ;---------------------------------------------------------------------------- ;Variables CBLOCK 0x70 WREG_TEMP ;storage for WREG during interrupt STATUS_TEMP ;storage for STATUS during interrupt PCLATH_TEMP ;storage for PCLATH during interrupt FSR_TEMP ;storage for FSR during interrupt ENDC CBLOCK 0x20 Flags ;byte to store indicator flags TempData ;temporary data in main routines BufferData ;temporary data in buffer routines TxStartPtr ;pointer to start of data in TX buffer TxEndPtr ;pointer to end of data in TX buffer RxStartPtr ;pointer to start of data in RX buffer RxEndPtr ;pointer to end of data in RX buffer ENDC CBLOCK 0xA0 TxBuffer:TX_BUF_LEN ;transmit data buffer ENDC CBLOCK 0x120 RxBuffer:RX_BUF_LEN ;receive data buffer ENDC ;----------------------------------------------------------------------------- ;Macros to select the register bank ; Many bank changes can be optimized when only one STATUS bit changes Bank0 MACRO ;macro to select data RAM bank 0 bcf STATUS,RP0 bcf STATUS,RP1 ENDM Bank1 MACRO ;macro to select data RAM bank 1 bsf STATUS,RP0 bcf STATUS,RP1 ENDM Bank2 MACRO ;macro to select data RAM bank 2 bcf STATUS,RP0 bsf STATUS,RP1 ENDM Bank3 MACRO ;macro to select data RAM bank 3 bsf STATUS,RP0 bsf STATUS,RP1 ENDM ;---------------------------------------------------------------------------- ;This code executes when a reset occurs. ORG 0x0000 ;place code at reset vector ResetCode: clrf PCLATH ;select program memory page 0 goto Main ;go to beginning of program ;---------------------------------------------------------------------------- ;This code executes when an interrupt occurs. ORG 0x0004 ;place code at interrupt vector InterruptCode: movwf WREG_TEMP ;save WREG movf STATUS,W ;store STATUS in WREG clrf STATUS ;select file register bank0 movwf STATUS_TEMP ;save STATUS value movf PCLATH,W ;store PCLATH in WREG movwf PCLATH_TEMP ;save PCLATH value clrf PCLATH ;select program memory page0 movf FSR,W ;store FSR in WREG movwf FSR_TEMP ;save FSR value ;test other interrupt flags here Bank0 ;select bank0 btfsc PIR1,RCIF ;test RCIF receive interrupt bsf STATUS,RP0 ;change to bank1 if RCIF set btfsc PIE1,RCIE ;test if interrupt enabled if RCIF set goto GetData ;if RCIF and RCIE set, do receive Bank0 ;select bank0 btfsc PIR1,TXIF ;test for TXIF transmit interrupt bsf STATUS,RP0 ;change to bank1 if TXIF set btfsc PIE1,TXIE ;test if interrupt enabled if TXIF set goto PutData ;if TXIF and TCIE set, do transmit ;can do special error handling here - an unexpected interrupt occurred goto EndInt ;------------------------------------ ;Get received data and write into receive buffer. GetData: Bank0 btfsc RCSTA,OERR ;test overrun error flag goto ErrOERR ;handle it if error btfsc RCSTA,FERR ;test framing error flag goto ErrFERR ;handle it if error btfsc Flags,RxBufFull ;check if buffer full goto ErrRxOver ;handle it if full movf RCREG,W ;get received data xorlw 0x0d ;compare with btfsc STATUS,Z ;check if the same bsf Flags,ReceivedCR ;indicate character received xorlw 0x0d ;change back to valid data call PutRxBuffer ;and put in buffer goto EndInt ;error because OERR overrun error bit is set ;can do special error handling here - this code simply clears and continues ErrOERR: bcf RCSTA,CREN ;reset the receiver logic bsf RCSTA,CREN ;enable reception again goto EndInt ;error because FERR framing error bit is set ;can do special error handling here - this code simply clears and continues ErrFERR: movf RCREG,W ;discard received data that has error goto EndInt ;error because receive buffer is full and new data has been received ;can do special error handling here - this code simply clears and continues ErrRxOver: movf RCREG,W ;discard received data xorlw 0x0d ;but compare with btfsc STATUS,Z ;check if the same bsf Flags,ReceivedCR ;indicate character received goto EndInt ;------------------------------------ ;Read data from the transmit buffer and transmit the data. PutData: Bank0 ;select bank 0 btfss Flags,TxBufEmpty ;check if transmit buffer empty goto PutDat1 ;if not then go get data and transmit Bank1 ;select bank1 bcf PIE1,TXIE ;disable TX interrupt because all done goto EndInt PutDat1: call GetTxBuffer ;get data to transmit movwf TXREG ;and transmit ;------------------------------------ ;End of interrupt routine restores context EndInt: Bank0 ;select bank 0 movf FSR_TEMP,W ;get saved FSR value movwf FSR ;restore FSR movf PCLATH_TEMP,W ;get saved PCLATH value movwf PCLATH ;restore PCLATH movf STATUS_TEMP,W ;get saved STATUS value movwf STATUS ;restore STATUS swapf WREG_TEMP,F ;prepare WREG to be restored swapf WREG_TEMP,W ;restore WREG without affecting STATUS retfie ;return from interrupt ;---------------------------------------------------------------------------- ;Main routine checks for for reception of a and ;calls a routine to move the data to transmit back. Main: call SetupSerial ;set up serial port and buffers ;do other initialization here MainLoop: Bank0 ;select bank0 btfsc Flags,ReceivedCR ;check if character received call CopyRxToTx ;if so then move received data ;do other stuff here goto MainLoop ;repeat main loop to check for data ;---------------------------------------------------------------------------- ;Set up serial port and buffers. SetupSerial: Bank1 ;select bank 1 movlw 0xc0 ;set tris bits for TX and RX iorwf TRISC,F movlw SPBRG_VAL ;set baud rate movwf SPBRG movlw 0x24 ;enable transmission and high baud rate movwf TXSTA Bank0 ;select bank0 movlw 0x90 ;enable serial port and reception movwf RCSTA clrf Flags ;clear all flag bits call InitTxBuffer ;initialize transmit buffer call InitRxBuffer ;initialize receive buffer movlw 0xc0 ;enable global and peripheral ints movwf INTCON Bank1 ;select bank1 movlw 0x30 ;enable TX and RX interrupts movwf PIE1 return ;---------------------------------------------------------------------------- ;Circular buffer routines. ;---------------------------------------------------------------------------- ;Initialize transmit buffer InitTxBuffer: Bank0 movlw LOW TxBuffer ;take address of transmit buffer movwf TxStartPtr ;and place in transmit start pointer movwf TxEndPtr ;and place in transmit end pointer bcf Flags,TxBufFull ;indicate Tx buffer is not full bsf Flags,TxBufEmpty ;indicate Tx buffer is empty return ;---------------------------------------------- ;Initialize receive buffer InitRxBuffer: Bank0 movlw LOW RxBuffer ;take address of receive buffer movwf RxStartPtr ;and place in receive start pointer movwf RxEndPtr ;and place in receive end pointer bcf Flags,RxBufFull ;indicate Rx buffer is not full bsf Flags,RxBufEmpty ;indicate Rx buffer is empty return ;---------------------------------------------- ;Add a byte (from WREG) to the end of the transmit buffer PutTxBuffer: Bank1 ;select bank 1 bcf PIE1,TXIE ;disable transmit interrupt Bank0 ;select bank 0 btfsc Flags,TxBufFull ;check if buffer full goto ErrTxBufFull ;and go handle error if full BANKISEL TxBuffer ;bank bit for indirect addressing movwf BufferData ;save WREG data into BufferData movf TxEndPtr,W ;get EndPointer movwf FSR ;and place into FSR movf BufferData,W ;get BufferData movwf INDF ;and store in buffer ;test if buffer pointer needs to wrap around to beginning of buffer memory movlw LOW TxBuffer+TX_BUF_LEN-1 ;get last address of buffer xorwf TxEndPtr,W ;and compare with end pointer movlw LOW TxBuffer ;load first address of buffer btfss STATUS,Z ;check if pointer is at last address incf TxEndPtr,W ;if not then increment pointer movwf TxEndPtr ;store new end pointer value ;test if buffer is full subwf TxStartPtr,W ;compare with start pointer btfsc STATUS,Z ;check if the same bsf Flags,TxBufFull ;if so then indicate buffer full bcf Flags,TxBufEmpty ;buffer cannot be empty Bank1 ;select bank 1 bsf PIE1,TXIE ;enable transmit interrupt Bank0 ;select bank 0 return ;error because attempting to store new data and the buffer is full ;can do special error handling here - this code simply ignores the byte ErrTxBufFull: Bank1 ;select bank 1 bsf PIE1,TXIE ;enable transmit interrupt Bank0 ;select bank 0 return ;no save of data because buffer full ;---------------------------------------------- ;Add a byte (from WREG) to the end of the receive buffer PutRxBuffer: Bank0 ;select bank 0 btfsc Flags,RxBufFull ;check if buffer full goto ErrRxBufFull ;and go handle error if full BANKISEL RxBuffer ;bank bit for indirect addressing movwf BufferData ;save WREG into BufferData movf RxEndPtr,W ;get EndPointer movwf FSR ;and place into FSR movf BufferData,W ;get BufferData movwf INDF ;store in buffer ;test if buffer pointer needs to wrap around to beginning of buffer memory movlw LOW RxBuffer+RX_BUF_LEN-1 ;get last address of buffer xorwf RxEndPtr,W ;and compare with end pointer movlw LOW RxBuffer ;load first address of buffer btfss STATUS,Z ;check if pointer is at last address incf RxEndPtr,W ;if not then increment pointer movwf RxEndPtr ;store new end pointer value ;test if buffer is full subwf RxStartPtr,W ;compare with start pointer btfsc STATUS,Z ;check if the same bsf Flags,RxBufFull ;if so then indicate buffer full bcf Flags,RxBufEmpty ;buffer cannot be empty return ;error because attempting to store new data and the buffer is full ;can do special error handling here - this code simply ignores the byte ErrRxBufFull: return ;no save of data because buffer full ;---------------------------------------------- ;Remove and return (in WREG) the byte at the start of the transmit buffer GetTxBuffer: Bank0 ;select bank 0 btfsc Flags,TxBufEmpty ;check if transmit buffer empty goto ErrTxBufEmpty ;and go handle error if empty BANKISEL TxBuffer ;bank bit for indirect addressing movf TxStartPtr,W ;get StartPointer movwf FSR ;and place into FSR ;test if buffer pointer needs to wrap around to beginning of buffer memory movlw LOW TxBuffer+TX_BUF_LEN-1 ;get last address of buffer xorwf TxStartPtr,W ;and compare with start pointer movlw LOW TxBuffer ;load first address of buffer btfss STATUS,Z ;check if pointer is at last address incf TxStartPtr,W ;if not then increment pointer movwf TxStartPtr ;store new pointer value bcf Flags,TxBufFull ;buffer cannot be full ;test if buffer is now empty xorwf TxEndPtr,W ;compare start to end btfsc STATUS,Z ;check if the same bsf Flags,TxBufEmpty ;if same then buffer will be empty movf INDF,W ;get data from buffer return ;error because attempting to read data from an empty buffer ;can do special error handling here - this code simply returns zero ErrTxBufEmpty: retlw 0 ;tried to read empty buffer ;---------------------------------------------- ;Remove and return (in WREG) the byte at the start of the receive buffer GetRxBuffer: Bank0 ;select bank 0 btfsc Flags,RxBufEmpty ;check if receive buffer empty goto ErrRxBufEmpty ;and go handle error if empty Bank1 ;select bank 1 bcf PIE1,RCIE ;disable receive interrupt Bank0 ;select bank 0 BANKISEL RxBuffer ;bank bit for indirect addressing movf RxStartPtr,W ;get StartPointer movwf FSR ;and place into FSR ;test if buffer pointer needs to wrap around to beginning of buffer memory movlw LOW RxBuffer+RX_BUF_LEN-1 ;get last address of buffer xorwf RxStartPtr,W ; and compare with start pointer movlw LOW RxBuffer ;load first address of buffer btfss STATUS,Z ;check if pointer is at last address incf RxStartPtr,W ;if not then increment pointer movwf RxStartPtr ;store new pointer value bcf Flags,RxBufFull ;buffer cannot be full ;test if buffer is now empty xorwf RxEndPtr,W ;compare start to end btfsc STATUS,Z ;check if the same bsf Flags,RxBufEmpty ;if same then buffer will be empty movf INDF,W ;get data from buffer Bank1 ;select bank 1 bsf PIE1,RCIE ;enable receive interrupt Bank0 ;select bank 0 return ;error because attempting to read data from an empty buffer ;can do special error handling here - this code simply returns zero ErrRxBufEmpty: Bank1 ;select bank 1 bsf PIE1,RCIE ;enable receive interrupt Bank0 ;select bank 0 retlw 0 ;tried to read empty buffer ;---------------------------------------------------------------------------- ;Move data from receive buffer to transmit buffer to echo the line back CopyRxToTx: Bank0 ;select bank 0 bcf Flags,ReceivedCR ;clear received indicator Copy1: btfsc Flags,RxBufEmpty ;check if Rx buffer is empty return ;if so then return call GetRxBuffer ;get data from receive buffer movwf TempData ;save data call PutTxBuffer ;put data in transmit buffer movf TempData,W ;restore data xorlw 0x0d ;compare with btfss STATUS,Z ;check if the same goto Copy1 ;if not the same then move another byte return ;---------------------------------------------------------------------------- END gpsim-0.27.0/regression/microchip_usart/p16_2stp.asm0000666000076400007640000001475307523652614017333 00000000000000;============================================================================= ; Software License Agreement ; ; The software supplied herewith by Microchip Technology Incorporated ; (the "Company") for its PICmicro® Microcontroller is intended and ; supplied to you, the Company’s customer, for use solely and ; exclusively on Microchip PICmicro Microcontroller products. The ; software is owned by the Company and/or its supplier, and is ; protected under applicable copyright laws. All rights are reserved. ; Any use in violation of the foregoing restrictions may subject the ; user to criminal sanctions under applicable laws, as well as to ; civil liability for the breach of the terms and conditions of this ; license. ; ; THIS SOFTWARE IS PROVIDED IN AN "AS IS" CONDITION. NO WARRANTIES, ; WHETHER EXPRESS, IMPLIED OR STATUTORY, INCLUDING, BUT NOT LIMITED ; TO, IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A ; PARTICULAR PURPOSE APPLY TO THIS SOFTWARE. THE COMPANY SHALL NOT, ; IN ANY CIRCUMSTANCES, BE LIABLE FOR SPECIAL, INCIDENTAL OR ; CONSEQUENTIAL DAMAGES, FOR ANY REASON WHATSOEVER. ; ;============================================================================= ; Filename: p16_2stp.asm ;============================================================================= ; Author: Mike Garbutt ; Company: Microchip Technology Inc. ; Revision: 1.00 ; Date: August 6, 2002 ; Assembled using MPASMWIN V3.20 ;============================================================================= ; Include Files: p16f877.inc V1.12 ;============================================================================= ; PIC16XXX USART example code using two stop bits with receive polling ; and transmit waiting. The main routine calls a subroutine that polls ; for received data and if there is data it is returned in the working ; register. The main routine then calls another subroutine that waits ; until the transmitter is ready and transmits the data in the working ; register. Nine bit mode is used to implement the second stop bit. ;============================================================================= list p=16f877 ;list directive to define processor #include ;processor specific definitions errorlevel -302 ;suppress "not in bank 0" message __CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _XT_OSC & _WRT_ENABLE_OFF & _LVP_OFF & _DEBUG_OFF & _CPD_OFF ;---------------------------------------------------------------------------- ;Constants SPBRG_VAL EQU .25 ;set baud rate 9600 for 4Mhz clock ;---------------------------------------------------------------------------- ;Bit Definitions GotNewData EQU 0 ;bit indicates new data received ;---------------------------------------------------------------------------- ;Variables CBLOCK 0x020 Flags ;byte to store indicator flags ENDC ;---------------------------------------------------------------------------- ;Macros to select the register bank ;Many bank changes can be optimized when only one STATUS bit changes Bank0 MACRO ;macro to select data RAM bank 0 bcf STATUS,RP0 bcf STATUS,RP1 ENDM Bank1 MACRO ;macro to select data RAM bank 1 bsf STATUS,RP0 bcf STATUS,RP1 ENDM Bank2 MACRO ;macro to select data RAM bank 2 bcf STATUS,RP0 bsf STATUS,RP1 ENDM Bank3 MACRO ;macro to select data RAM bank 3 bsf STATUS,RP0 bsf STATUS,RP1 ENDM ;---------------------------------------------------------------------------- ;This code executes when a reset occurs. ORG 0x0000 ;place code at reset vector ResetCode: clrf PCLATH ;select program memory page 0 goto Main ;go to beginning of program ;---------------------------------------------------------------------------- ;This code executes when an interrupt occurs. ORG 0x0004 ;place code at interrupt vector InterruptCode: ;do interrupts here retfie ;return from interrupt ;---------------------------------------------------------------------------- ;Main routine calls the receive polling routine and checks for a byte ;received. It then calls a routine to transmit the data back. Main: call SetupSerial ;set up serial port and buffers ;do other initialization here MainLoop: call ReceiveSerial ;go get received data if available btfsc Flags,GotNewData ;check if data received call TransmitSerial ;if so then go transmit the data bcf Flags,GotNewData ;clear data received indicator ;do other stuff here goto MainLoop ;go do main loop again ;---------------------------------------------------------------------------- ;Check if data received and if so, return it in the working register. ReceiveSerial: Bank0 ;select bank 0 btfss PIR1,RCIF ;check if data return ;return if no data btfsc RCSTA,OERR ;if overrun error occurred goto ErrSerialOverr ; then go handle error btfsc RCSTA,FERR ;if framing error occurred goto ErrSerialFrame ; then go handle error btfss RCSTA,RX9D ;if first stop bit error occurred goto ErrSerialFrame ; then go handle error movf RCREG,W ;get received data and place in WREG bsf Flags,GotNewData ;indicate new data received return ;error because OERR overrun error bit is set ;can do special error handling here - this code simply clears and continues ErrSerialOverr: bcf RCSTA,CREN ;reset the receiver logic bsf RCSTA,CREN ;enable reception again return ;error because FERR framing error bit is set or first stop bit is zero ;can do special error handling here - this code simply clears and continues ErrSerialFrame: movf RCREG,W ;discard received data that has error return ;---------------------------------------------------------------------------- ;Transmit data in WREG when the transmit register is empty. TransmitSerial: Bank0 ;select bank 0 btfss PIR1,TXIF ;check if transmitter busy goto $-1 ;wait until transmitter is not busy movwf TXREG ;transmit the data return ;---------------------------------------------------------------------------- ;Set up serial port. SetupSerial: Bank1 ;select bank 1 movlw 0xc0 ;set tris bits for TX and RX iorwf TRISC,F movlw SPBRG_VAL ;set baud rate movwf SPBRG movlw 0x65 ;enable nine bit tx and high baud rate movwf TXSTA Bank0 ;select bank 0 movlw 0xd0 ;enable serial port and nine bit rx movwf RCSTA clrf Flags ;clear all flags return ;---------------------------------------------------------------------------- END gpsim-0.27.0/regression/microchip_usart/p16_tprp.asm0000666000076400007640000002300607523652614017417 00000000000000;============================================================================= ; Software License Agreement ; ; The software supplied herewith by Microchip Technology Incorporated ; (the "Company") for its PICmicro® Microcontroller is intended and ; supplied to you, the Company’s customer, for use solely and ; exclusively on Microchip PICmicro Microcontroller products. The ; software is owned by the Company and/or its supplier, and is ; protected under applicable copyright laws. All rights are reserved. ; Any use in violation of the foregoing restrictions may subject the ; user to criminal sanctions under applicable laws, as well as to ; civil liability for the breach of the terms and conditions of this ; license. ; ; THIS SOFTWARE IS PROVIDED IN AN "AS IS" CONDITION. NO WARRANTIES, ; WHETHER EXPRESS, IMPLIED OR STATUTORY, INCLUDING, BUT NOT LIMITED ; TO, IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A ; PARTICULAR PURPOSE APPLY TO THIS SOFTWARE. THE COMPANY SHALL NOT, ; IN ANY CIRCUMSTANCES, BE LIABLE FOR SPECIAL, INCIDENTAL OR ; CONSEQUENTIAL DAMAGES, FOR ANY REASON WHATSOEVER. ; ;============================================================================= ; Filename: p16_tprp.asm ;============================================================================= ; Author: Mike Garbutt ; Company: Microchip Technology Inc. ; Revision: 1.00 ; Date: August 6, 2002 ; Assembled using MPASMWIN V3.20 ;============================================================================= ; Include Files: p16f877.inc V1.12 ;============================================================================= ; PIC16XXX USART example code with transmit and receive polling. The ; main routine calls calls subroutines to poll for received data and for ; data to be transmitted. Received data is put into a buffer, called ; RxBuffer. When a carriage return is received, the received data ; in RxBuffer is copied into another buffer, TxBuffer. The data in ; TxBuffer is then transmitted by the transmit polling routine. ;============================================================================= list p=16f877 ;list directive to define processor #include ;processor specific definitions errorlevel -302 ;suppress "not in bank 0" message __CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _XT_OSC & _WRT_ENABLE_OFF & _LVP_OFF & _DEBUG_OFF & _CPD_OFF ;---------------------------------------------------------------------------- ;Constants SPBRG_VAL EQU .25 ;set baud rate 9600 for 4Mhz clock RX_BUF_LEN EQU .80 ;length of receive buffer TX_BUF_LEN EQU RX_BUF_LEN ;length of transmit buffer ;---------------------------------------------------------------------------- ;Bit Definitions ReceivedCR EQU 0 ;bit indicates character received ;---------------------------------------------------------------------------- ;Variables CBLOCK 0x020 Flags ;byte to store indicator flags RxByteCount ;number of bytes received TxByteCount ;number of bytes to transmit TxPointer ;pointer to data in buffer ENDC CBLOCK 0x0A0 TxBuffer:TX_BUF_LEN ;buffer for data to transmit ENDC CBLOCK 0x120 RxBuffer:RX_BUF_LEN ;buffer for data received ENDC ;---------------------------------------------------------------------------- ;Macros to select the register bank ;Many bank changes can be optimized when only one STATUS bit changes Bank0 MACRO ;macro to select data RAM bank 0 bcf STATUS,RP0 bcf STATUS,RP1 ENDM Bank1 MACRO ;macro to select data RAM bank 1 bsf STATUS,RP0 bcf STATUS,RP1 ENDM Bank2 MACRO ;macro to select data RAM bank 2 bcf STATUS,RP0 bsf STATUS,RP1 ENDM Bank3 MACRO ;macro to select data RAM bank 3 bsf STATUS,RP0 bsf STATUS,RP1 ENDM ;---------------------------------------------------------------------------- ;This code executes when a reset occurs. ORG 0x0000 ;place code at reset vector ResetCode: clrf PCLATH ;select program memory page 0 goto Main ;go to beginning of program ;---------------------------------------------------------------------------- ;This code executes when an interrupt occurs. ORG 0x0004 ;place code at interrupt vector InterruptCode: ;do interrupts here retfie ;return from interrupt ;---------------------------------------------------------------------------- ;Main routine calls the transmit and receive polling routines and checks for a ;carriage return. It then calls a routine to copy the data to transmit back. Main: call SetupSerial ;set up serial port and buffers ;do other initialization here MainLoop: call TransmitSerial ;go transmit data if possible call ReceiveSerial ;go get received data if possible btfsc Flags,ReceivedCR ;check if received call CopyRxToTx ;if so then go copy the data ;do other stuff here goto MainLoop ;go do main loop again ;---------------------------------------------------------------------------- ;Check if data received and if so, place in a buffer. Also check for . ReceiveSerial: Bank0 ;select bank 0 btfss PIR1,RCIF ;check if data return ;return if no data btfsc RCSTA,OERR ;if overrun error occurred goto ErrSerialOverr ; then go handle error btfsc RCSTA,FERR ;if framing error occurred goto ErrSerialFrame ; then go handle error movlw RX_BUF_LEN ;get buffer length xorwf RxByteCount,W ;and compare with byte count btfsc STATUS,Z ;check if buffer is full goto ErrRxBufOver ; go handle it if full ReceiveSer1: BANKISEL RxBuffer ;bank bit for indirect addressing movlw LOW RxBuffer ;get start address of buffer addwf RxByteCount,W ;add current byte number movwf FSR ;and place in FSR pointer movf RCREG,W ;get received data movwf INDF ;and place in buffer xorlw 0x0d ;compare with btfsc STATUS,Z ;check if the same bsf Flags,ReceivedCR ;indicate character received incf RxByteCount,F ;increment count of bytes received return ;error because OERR overrun error bit is set ;can do special error handling here - this code simply clears and continues ErrSerialOverr: bcf RCSTA,CREN ;reset the receiver logic bsf RCSTA,CREN ;enable reception again return ;error because FERR framing error bit is set ;can do special error handling here - this code simply clears and continues ErrSerialFrame: movf RCREG,W ;discard received data that has error return ;error because Rx buffer is full and new data has been received ;can do special error handling here - this code simply overwrites last data ErrRxBufOver: decf RxByteCount,F ;decrement byte count to overwrite last goto ReceiveSer1 ;---------------------------------------------------------------------------- ;Transmit data if there is data in the transmit buffer. TransmitSerial: Bank0 ;select bank 0 movf TxByteCount,F ;check if data to be transmitted btfsc STATUS,Z return ;return if no data to be transmitted btfss PIR1,TXIF ;check if transmitter busy return ;return if transmitter busy BANKISEL TxBuffer ;bank bit for indirect addressing movf TxPointer,W ;put pointer into WREG movwf FSR ;and then into FSR movf INDF,W ;get the data to be transmitted movwf TXREG ;and transmit decf TxByteCount,F ;decrement number of bytes left incf TxPointer,F ;increment pointer to next data return ;---------------------------------------------------------------------------- ;Set up serial port and buffers. SetupSerial: Bank1 ;select bank 1 movlw 0xc0 ;set tris bits for TX and RX iorwf TRISC,F movlw SPBRG_VAL ;set baud rate movwf SPBRG movlw 0x24 ;enable transmission and high baud rate movwf TXSTA Bank0 ;select bank 0 movlw 0x90 ;enable serial port and reception movwf RCSTA clrf TxByteCount ;clear transmit buffer data count clrf RxByteCount ;clear receive buffer data count clrf Flags ;clear all flags return ;---------------------------------------------------------------------------- ;Copy data from receive buffer to transmit buffer to echo the line back CopyRxToTx: Bank0 ;select bank 0 movf TxByteCount,F ;check if still transmitting data btfss STATUS,Z goto ErrTxBufOver ;go handle error if still busy CopyRxTx1: BANKISEL RxBuffer ;bank bit for indirect addressing movlw LOW RxBuffer ;get start address of buffer addwf TxByteCount,W ;add current byte number movwf FSR ;and place in FSR pointer movf INDF,W ;get data from Rx buffer movwf TxPointer ;and save for later (reusing register) BANKISEL TxBuffer ;bank bit for indirect addressing movlw LOW TxBuffer ;get start address of buffer addwf TxByteCount,W ;add current byte number movwf FSR ;and place in FSR pointer movf TxPointer,W ;get saved data (not a pointer) movwf INDF ;and place in Tx buffer incf TxByteCount,F ;increment count of bytes in TxBuffer decfsz RxByteCount,F ;decrement counter and see if all done goto CopyRxTx1 ;repeat if not done movlw LOW TxBuffer ;take address of transmit buffer movwf TxPointer ;and place in transmit pointer bcf Flags,ReceivedCR ;clear indicator for received return ;error because still transmitting data and new data is available to transmit ;can do special error handling here - this code simply discards the new data ErrTxBufOver: clrf RxByteCount ;reset received byte count bcf Flags,ReceivedCR ;clear indicator for received return ;---------------------------------------------------------------------------- END gpsim-0.27.0/regression/microchip_usart/p16_tprp.stc0000664000076400007640000000032712121325222017405 00000000000000load p16_tprp.cod p16f877 .frequency=4e6 module library libgpsim_modules module load usart U1 node PIC_tx node PIC_rx attach PIC_tx portc6 U1.RXPIN attach PIC_rx portc7 U1.TXPIN U1.txbaud = 9600 U1.rxbaud = 9600 gpsim-0.27.0/regression/microchip_usart/p16_twrp.asm0000666000076400007640000001435307523652614017433 00000000000000;============================================================================= ; Software License Agreement ; ; The software supplied herewith by Microchip Technology Incorporated ; (the "Company") for its PICmicro® Microcontroller is intended and ; supplied to you, the Company’s customer, for use solely and ; exclusively on Microchip PICmicro Microcontroller products. The ; software is owned by the Company and/or its supplier, and is ; protected under applicable copyright laws. All rights are reserved. ; Any use in violation of the foregoing restrictions may subject the ; user to criminal sanctions under applicable laws, as well as to ; civil liability for the breach of the terms and conditions of this ; license. ; ; THIS SOFTWARE IS PROVIDED IN AN "AS IS" CONDITION. NO WARRANTIES, ; WHETHER EXPRESS, IMPLIED OR STATUTORY, INCLUDING, BUT NOT LIMITED ; TO, IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A ; PARTICULAR PURPOSE APPLY TO THIS SOFTWARE. THE COMPANY SHALL NOT, ; IN ANY CIRCUMSTANCES, BE LIABLE FOR SPECIAL, INCIDENTAL OR ; CONSEQUENTIAL DAMAGES, FOR ANY REASON WHATSOEVER. ; ;============================================================================= ; Filename: p16_twrp.asm ;============================================================================= ; Author: Mike Garbutt ; Company: Microchip Technology Inc. ; Revision: 1.00 ; Date: August 6, 2002 ; Assembled using MPASMWIN V3.20 ;============================================================================= ; Include Files: p16f877.inc V1.12 ;============================================================================= ; PIC16XXX USART example code with receive polling and transmit waiting. ; The main routine calls a subroutine that polls for received data and ; if there is data it is returned in the working register. The main ; routine then calls a subroutine that waits until the transmitter is ; ready and transmits the data. ;============================================================================= list p=16f877 ;list directive to define processor #include ;processor specific definitions errorlevel -302 ;suppress "not in bank 0" message __CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _XT_OSC & _WRT_ENABLE_OFF & _LVP_OFF & _DEBUG_OFF & _CPD_OFF ;---------------------------------------------------------------------------- ;Constants SPBRG_VAL EQU .25 ;set baud rate 9600 for 4Mhz clock ;---------------------------------------------------------------------------- ;Bit Definitions GotNewData EQU 0 ;bit indicates new data received ;---------------------------------------------------------------------------- ;Variables CBLOCK 0x020 Flags ;byte to store indicator flags ENDC ;---------------------------------------------------------------------------- ;Macros to select the register bank ;Many bank changes can be optimized when only one STATUS bit changes Bank0 MACRO ;macro to select data RAM bank 0 bcf STATUS,RP0 bcf STATUS,RP1 ENDM Bank1 MACRO ;macro to select data RAM bank 1 bsf STATUS,RP0 bcf STATUS,RP1 ENDM Bank2 MACRO ;macro to select data RAM bank 2 bcf STATUS,RP0 bsf STATUS,RP1 ENDM Bank3 MACRO ;macro to select data RAM bank 3 bsf STATUS,RP0 bsf STATUS,RP1 ENDM ;---------------------------------------------------------------------------- ;This code executes when a reset occurs. ORG 0x0000 ;place code at reset vector ResetCode: clrf PCLATH ;select program memory page 0 goto Main ;go to beginning of program ;---------------------------------------------------------------------------- ;This code executes when an interrupt occurs. ORG 0x0004 ;place code at interrupt vector InterruptCode: ;do interrupts here retfie ;return from interrupt ;---------------------------------------------------------------------------- ;Main routine calls the receive polling routine and checks for a byte ;received. It then calls a routine to transmit the data back. Main: call SetupSerial ;set up serial port and buffers ;do other initialization here MainLoop: call ReceiveSerial ;go get received data if available btfsc Flags,GotNewData ;check if data received call TransmitSerial ;if so then go transmit the data bcf Flags,GotNewData ;indicate no data received ;do other stuff here goto MainLoop ;go do main loop again ;---------------------------------------------------------------------------- ;Check if data received and if so, return it in the working register. ReceiveSerial: Bank0 ;select bank 0 btfss PIR1,RCIF ;check if data return ;return if no data btfsc RCSTA,OERR ;if overrun error occurred goto ErrSerialOverr ; then go handle error btfsc RCSTA,FERR ;if framing error occurred goto ErrSerialFrame ; then go handle error movf RCREG,W ;get received data bsf Flags,GotNewData ;indicate new data received return ;error because OERR overrun error bit is set ;can do special error handling here - this code simply clears and continues ErrSerialOverr: bcf RCSTA,CREN ;reset the receiver logic bsf RCSTA,CREN ;enable reception again return ;error because FERR framing error bit is set ;can do special error handling here - this code simply clears and continues ErrSerialFrame: movf RCREG,W ;discard received data that has error return ;---------------------------------------------------------------------------- ;Transmit data in WREG when the transmit register is empty. TransmitSerial: Bank0 ;select bank 0 btfss PIR1,TXIF ;check if transmitter busy goto $-1 ;wait until transmitter is not busy movwf TXREG ;and transmit the data return ;---------------------------------------------------------------------------- ;Set up serial port. SetupSerial: Bank1 ;select bank 1 movlw 0xc0 ;set tris bits for TX and RX iorwf TRISC,F movlw SPBRG_VAL ;set baud rate movwf SPBRG movlw 0x24 ;enable transmission and high baud rate movwf TXSTA Bank0 ;select bank 0 movlw 0x90 ;enable serial port and reception movwf RCSTA clrf Flags ;clear all flags return ;---------------------------------------------------------------------------- END gpsim-0.27.0/regression/microchip_usart/16f877.lkr0000644000076400007640000000275012121052676016605 00000000000000// Sample linker command file for 16F877 LIBPATH . CODEPAGE NAME=page0 START=0x0 END=0x7FF CODEPAGE NAME=page1 START=0x800 END=0xFFF CODEPAGE NAME=page2 START=0x1000 END=0x17FF CODEPAGE NAME=page3 START=0x1800 END=0x1FFF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x21FF PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xEF DATABANK NAME=gpr2 START=0x110 END=0x16F DATABANK NAME=gpr3 START=0x190 END=0x1EF SHAREBANK NAME=gprnobnk START=0x70 END=0x7F SHAREBANK NAME=gprnobnk START=0xF0 END=0xFF PROTECTED SHAREBANK NAME=gprnobnk START=0x170 END=0x17F PROTECTED SHAREBANK NAME=gprnobnk START=0x1F0 END=0x1FF PROTECTED SECTION NAME=PROG1 ROM=page0 // ROM code space - page0 SECTION NAME=PROG2 ROM=page1 // ROM code space - page1 SECTION NAME=PROG3 ROM=page2 // ROM code space - page2 SECTION NAME=PROG4 ROM=page3 // ROM code space - page3 SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/startup.stc0000644000076400007640000000005710563700470014251 00000000000000# gpsim configuration file. load STC run quit gpsim-0.27.0/regression/p1xf18xx/0000775000076400007640000000000012210742356013523 500000000000000gpsim-0.27.0/regression/p1xf18xx/p16f1823_i2c_v2.asm0000664000076400007640000004323612162224370016410 00000000000000; ; ; Copyright (c) 2013 Roy Rankin ; MACROS and some code included the following ;************************************************************************ ;* Microchip Technology Inc. 2006 ;* 02/15/06 ;* Designed to run at 20MHz ;************************************************************************ list p=16f1823 include include __CONFIG _CONFIG1, _CP_OFF & _WDTE_ON & _FOSC_INTOSC & _PWRTE_ON & _BOREN_OFF & _MCLRE_OFF & _CLKOUTEN_OFF __CONFIG _CONFIG2, _PLLEN_OFF ;; The purpose of this program is to test gpsim's ability ;; to simulate a pic 16F1823. ;; Specifically, slave modes of I2C errorlevel -302 ; Printf Command .command macro x .direct "C", x endm _ClkIn equ 8000000 ; Input Clock Frequency _ClkOut equ (_ClkIn >> 2) ; ; Compute the delay constants for setup & hold times ; _40uS_Delay set (_ClkOut/250000) _47uS_Delay set (_ClkOut/212766) _50uS_Delay set (_ClkOut/200000) TRUE equ 1 FALSE equ 0 LSB equ 0 MSB equ 7 ; These parameters are for the Software master #define SCL_PIN 0 #define SDA_PIN 1 #define I2CPORT PORTA #define I2CTRI TRISA #define _SCL_D I2CPORT,SCL_PIN #define _SCL I2CTRI,SCL_PIN #define _SDA I2CTRI,SDA_PIN #define _SDA_D I2CPORT,SDA_PIN #define T0IE TMR0IE #define T0IF TMR0IF #define _ENABLE_BUS_FREE_TIME TRUE #define _CLOCK_STRETCH_CHECK TRUE #define _OPTION_INIT (0xC0 | 0x02) ; Prescaler to TMR0 for Appox 1 mSec timeout ;***************************************************************************** ; I2C Bus Status Reg Bit Definitions ;***************************************************************************** #define _Bus_Busy Bus_Status,0 #define _Abort Bus_Status,1 #define _Txmt_Progress Bus_Status,2 #define _Rcv_Progress Bus_Status,3 #define _Txmt_Success Bus_Status,4 #define _Rcv_Success Bus_Status,5 #define _Fatal_Error Bus_Status,6 #define _ACK_Error Bus_Status,7 ;***************************************************************************** ; I2C Bus Contro Register ;***************************************************************************** #define _10BitAddr Bus_Control,0 #define _Slave_RW Bus_Control,1 #define _Last_Byte_Rcv Bus_Control,2 #define _SlaveActive Bus_Control,6 #define _TIME_OUT_ Bus_Control,7 RELEASE_BUS MACRO banksel TRISA bsf _SDA ; tristate SDA bsf _SCL ; tristate SCL ; bcf _Bus_Busy ; Bus Not Busy, TEMP ????, set/clear on Start & Stop ENDM ;**************************************************************************** ; A MACRO To Load 8 OR 10 Bit Address To The Address Registers ; ; SLAVE_ADDRESS is a constant and is loaded into the SlaveAddress Register(s) ; depending on 8 or 10 bit addressing modes ;**************************************************************************** LOAD_ADDR_10 MACRO SLAVE_ADDRESS bsf _10BitAddr ; Slave has 10 bit address movlw (SLAVE_ADDRESS & 0xff) movwf SlaveAddr ; load low byte of address movlw (((SLAVE_ADDRESS >> 7) & 0x06) | 0xF0) ; 10 bit addr 11110AA0 movwf SlaveAddr+1 ; hi order address ENDM LOAD_ADDR_8 MACRO SLAVE_ADDRESS bcf _10BitAddr ; Set for 8 Bit Address Mode movlw (SLAVE_ADDRESS & 0xff) movwf SlaveAddr ENDM ;**************************************************************************** ; I2C_WRITE_SUB ; ; Writes a message just like I2C_WRITE, except that the data is preceeded ; by a sub-address to a slave device. ; Eg. : A serial EEPROM would need an address of memory location for ; Random Writes ; ; Parameters : ; _BYTES_ #of bytes starting from RAM pointer _SourcePointer_ (constant) ; _SourcePointer_ Data Start Buffer pointer in RAM (file Registers) ; _Sub_Address_ Sub-address of Slave (constant) ; ; Sequence : ; S-SlvAW-A-SubA-A-D[0]-A.....A-D[N-1]-A-P ; ; If an error occurs then the routine simply returns and user should check for ; flags in Bus_Status Reg (for eg. _Txmt_Success flag ; ; Returns : WREG = 1 on success, else WREG = 0 ; ; NOTE : The address of the slave must be loaded into SlaveAddress Registers, ; and 10 or 8 bit mode addressing must be set ; ; COMMENTS : ; I2C_WR may prove to be more efficient than this macro in most situations ; Advantages will be found for Random Address Block Writes for Slaves with ; Auto Increment Sub-Addresses (like Microchip's 24CXX series Serial ; EEPROMS) ; ;**************************************************************************** I2C_WR_SUB MACRO _BYTES_, _SourcePointer_, _Sub_Address_ movlw (_BYTES_ + 1) movwf tempCount movlw (_SourcePointer_ - 1) movwf FSR0L moviw FSR0 movwf StoreTemp_1 ; temporarily store contents of (_SourcePointer_ -1) movlw _Sub_Address_ movwi FSR0 call _i2c_block_write ; write _BYTES_+1 block of data movf StoreTemp_1,W movwf (_SourcePointer_ - 1) ; restore contents of (_SourcePointer_ - 1) ; call TxmtStopBit ; Issue a stop bit to end transmission ENDM I2C_WR_SUB2 MACRO _BYTES_, _SourcePointer_, _Sub_Address_, _Sub_Address2_ movlw (_BYTES_ + 2) movwf tempCount movlw (_SourcePointer_ - 2) movwf FSR0L moviw FSR0 movwf StoreTemp_1 ; temporarily store contents of (_SourcePointer_ -2) movlw _Sub_Address_ movwi FSR0 movlw (_SourcePointer_ - 1) movwf FSR0L movlw _Sub_Address2_ movwi FSR0 movlw (_SourcePointer_ - 2) movwf FSR0L call _i2c_block_write ; write _BYTES_+1 block of data movf StoreTemp_1,W ; movwf (_SourcePointer_ - 2) ; restore contents of (_SourcePointer_ - 1) ; call TxmtStopBit ; Issue a stop bit to end transmission ENDM ;**************************************************************************** ; I2C_WRITE ; ; A basic macro for writing a block of data to a slave ; ; Parameters : ; _BYTES_ #of bytes starting from RAM pointer _SourcePointer_ ; _SourcePointer_ Data Start Buffer pointer in RAM (file Registers) ; ; Sequence : ; S-SlvAW-A-D[0]-A.....A-D[N-1]-A-P ; ; If an error occurs then the routine simply returns and user should check for ; flags in Bus_Status Reg (for eg. _Txmt_Success flag) ; ; NOTE : The address of the slave must be loaded into SlaveAddress Registers, ; and 10 or 8 bit mode addressing must be set ;**************************************************************************** I2C_WR MACRO _BYTES_, _SourcePointer_ movlw _BYTES_ movwf tempCount movlw _SourcePointer_ movwf FSR0L call _i2c_block_write call TxmtStopBit ; Issue a stop bit for slave to end transmission ENDM ;***************************************************************************** ; ; I2C_READ ; ; The basic MACRO/procedure to read a block message from a slave device ; ; Parameters : ; _BYTES_ : constant : #of bytes to receive ; _DestPointer_ : destination pointer of RAM (File Registers) ; ; Sequence : ; S-SlvAR-A-D[0]-A-.....-A-D[N-1]-N-P ; ; If last byte, then Master will NOT Acknowledge (send NACK) ; ; NOTE : The address of the slave must be loaded into SlaveAddress Registers, ; and 10 or 8 bit mode addressing must be set ; ;***************************************************************************** I2C_READ MACRO _BYTES_, _DestPointer_ movlw (_BYTES_ -1) movwf tempCount ; -1 because, the last byte is used out of loop movlw _DestPointer_ movwf FSR0L ; FIFO destination address pointer call _i2c_block_read ENDM ;*************************************************************************** ; ; I2C_READ_SUB ; This MACRO/Subroutine reads a message from a slave device preceeded by ; a write of the sub-address. ; Between the sub-addrers write & the following reads, a STOP condition ; is not issued and a "REPEATED START" condition is used so that an other ; master will not take over the bus, and also that no other master will ; overwrite the sub-address of the same salve. ; ; This function is very commonly used in accessing Random/Sequential reads ; from a memory device (e.g : 24Cxx serial of Serial EEPROMs from Microchip). ; ; Parameters : ; _BYTES_ # of bytes to read ; _DestPointer_ The destination pointer of data to be received. ; _BubAddress_ The sub-address of the slave ; ; Sequence : ; S-SlvAW-A-SubAddr-A-S-SlvAR-A-D[0]-A-.....-A-D[N-1]-N-P ; ; ;*************************************************************************** I2C_READ_SUB MACRO _BYTES_, _DestPointer_, _SubAddress_ bcf _Slave_RW ; set for write operation call TxmtStartBit ; send START bit call Txmt_Slave_Addr ; if successful, then _Txmt_Success bit is set movlw _SubAddress_ movwf DataByte ; START address of EEPROM(slave 1) call SendData ; write sub address ; ; do not send STOP after this, use REPEATED START condition ; I2C_READ _BYTES_, _DestPointer_ ENDM I2C_READ_SUB2 MACRO _BYTES_, _DestPointer_, _SubAddress_, _SubAddress2_ bcf _Slave_RW ; set for write operation call TxmtStartBit ; send START bit call Txmt_Slave_Addr ; if successful, then _Txmt_Success bit is set movlw _SubAddress_ movwf DataByte ; START address of EEPROM(slave 1) call SendData ; write sub address movlw _SubAddress2_ movwf DataByte ; START address of EEPROM(slave 1) call SendData ; write sub address ; ; do not send STOP after this, use REPEATED START condition ; I2C_READ _BYTES_, _DestPointer_ ENDM ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- ; cblock 0x20 UDATA ADD RES 2 IO_buf RES 10 IN_buf RES 10 ; cblock 0xf0 UDATA_SHR w_temp RES 1 status_temp RES 1 SlaveAddr RES 1 ; Slave Addr must be loader into this reg SlaveAddrHi RES 1 ; for 10 bit addressing mode DataByte RES 1 ; load this reg with the data to be transmitted BitCount RES 1 ; The bit number (0:7) transmitted or received Bus_Status RES 1 ; Status Reg of I2C Bus for both TXMT & RCVE Bus_Control RES 1 ; control Register of I2C Bus DelayCount RES 1 DataByteCopy RES 1 ; copy of DataByte for Left Shifts (destructive) SubAddr RES 1 ; sub-address of slave (used in I2C_HIGH.ASM) SrcPtr RES 1 ; source pointer for data to be transmitted tempCount RES 1 ; a temp variable for scratch RAM StoreTemp_1 RES 1 ; a temp variable for scratch RAM, do not disturb contents SEN_test RES 1 ; ACKTIM not tested _End_I2C_Ram RES 1 ; unused, only for ref of end of RAM allocation ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlp high start ; load upper byte of 'start' label goto start ; go to beginning of program INT_VECTOR CODE 0X004 ;; ;; Interrupt ;; BANKSEL PIR1 if _CLOCK_STRETCH_CHECK ; TMR0 Interrupts enabled only if Clock Stretching is Used btfss INTCON,T0IF goto check ; other Interrupts bsf _TIME_OUT_ ; MUST set this Flag bcf INTCON,T0IF goto int_ret endif check: btfss PIR1,SSP1IF goto int_ret bcf PIR1,SSP1IF call sspint int_ret: retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "module lib libgpsim_modules" .sim "p16f1823.xpos = 48" .sim "p16f1823.ypos = 36" .sim "module load pu pu1" .sim "pu1.xpos = 216" .sim "pu1.ypos = 48" .sim "module load pu pu2" .sim "pu2.xpos = 216" .sim "pu2.ypos = 96" .sim "node n1" .sim "attach n1 portc0 pu1.pin porta0" ; ee.SCL" .sim "node n2" .sim "attach n2 portc1 pu2.pin porta1" ; ee.SDA" .sim "scope.ch0 = \"porta0\"" .sim "scope.ch1 = \"porta1\"" BANKSEL APFCON bsf APFCON,0 ;; should not change anything bsf APFCON,6 ;; select alternate SDO bsf APFCON,3 ;; select alternate T1G BANKSEL ANSELA clrf ANSELA clrf ANSELC BANKSEL OSCCON movlw (0xe<<3)|2 ; set internal RC to 8 Mhz movwf OSCCON ;RRR clrf TRISA bsf PIE1,SSP1IE ; allow SSP interrupts bsf INTCON,GIE ; allow interrupts bsf INTCON,PEIE ; allow interrupts BANKSEL PORTA ; bsf PORTA,0 ; Write protect ; bsf PORTA,1 ; A0 movlw 0x10 movwf tempCount movlw IO_buf movwf FSR0L Fill_loop: movf FSR0L,W movwi FSR0++ decfsz tempCount,F goto Fill_loop bsf SEN_test,0 banksel SSPCON ; test slave receive of data with SEN set ; I2C Slave mode, 7-bit address movlw (1<. ;; The purpose of this program is to test gpsim's ability to ;; simulate a pic 16F1823. ;; Specifically, basic port operation, eerom, interrupts, ;; a2d, dac, SR latch, capacitor sense, and enhanced instructions list p=16f1823 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros __CONFIG _CONFIG1, _CP_OFF & _WDTE_ON & _FOSC_INTOSC & _PWRTE_ON & _BOREN_OFF & _MCLRE_OFF & _CLKOUTEN_OFF __CONFIG _CONFIG2, _STVREN_ON ; & _WRT_BOOT ;------------------------------------------------------------------------ ; gpsim command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR temp RES 1 w_temp RES 1 status_temp RES 1 cmif_cnt RES 1 tmr0_cnt RES 1 tmr1_cnt RES 1 eerom_cnt RES 1 adr_cnt RES 1 data_cnt RES 1 inte_cnt RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlp high start ; load upper byte of 'start' label goto start ; go to beginning of program .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup V1" .sim "V1.resistance = 10000.0" .sim "V1.capacitance = 20e-12" .sim "V1.voltage=1.0" .sim "node n1" .sim "attach n1 porta0 porta3" .sim "node n2" .sim "attach n2 porta1 porta4" .sim "node n3" .sim "attach n3 porta2 porta5" .sim "node n4" .sim "attach n4 portc0 V1.pin" .sim "p16f1823.xpos = 72" .sim "p16f1823.ypos = 72" .sim "V1.xpos = 216" .sim "V1.ypos = 120" ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location ; many of the core registers now saved and restored automatically ; movwf w_temp ; swapf STATUS,W clrf BSR ; set bank 0 ; movwf status_temp btfsc PIR2,EEIF goto ee_int btfsc INTCON,T0IF goto tmr0_int btfsc INTCON,IOCIF goto inte_int .assert "\"***FAILED p16f1823 unexpected interrupt\"" nop ; Interrupt from TMR0 tmr0_int incf tmr0_cnt,F bcf INTCON,T0IF goto exit_int ; Interrupt from eerom ee_int incf eerom_cnt,F bcf PIR2,EEIF goto exit_int ; Interrupt from INT pin inte_int incf inte_cnt,F bcf INTCON,IOCIF goto exit_int exit_int: retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start ;set clock to 16 Mhz BANKSEL OSCCON bsf OSCCON,6 call cap_sense BANKSEL FVRCON ; Enable Core Temp, high range, FVR AD 2.048v movlw (1< __CONFIG _CONFIG1, _CP_OFF & _WDTE_ON & _FOSC_INTOSC & _PWRTE_ON & _BOREN_OFF & _MCLRE_OFF & _CLKOUTEN_OFF #define SCL_PIN 0 #define SDA_PIN 1 #define I2CPORT PORTC #define I2CTRI TRISC #define _SCL_D I2CPORT,SCL_PIN #define _SCL I2CTRI,SCL_PIN #define _SDA I2CTRI,SDA_PIN #define _SCL_DRIVE I2CTRI,2 #define _SDA_DRIVE I2CTRI,3 errorlevel -302 variables UDATA_SHR temp1 RES 1 temp2 RES 1 STARTUP CODE NOP goto start NOP NOP NOP PROG1 CODE ; start .sim "break c 0x100000" .sim "module lib libgpsim_modules" .sim "module load e24xx024 ee" .sim "module load pu pu1" .sim "module load pu pu2" .sim "node n1" .sim "attach n1 portc1 pu1.pin portc3 ee.SDA" ; SDA .sim "node n2" .sim "attach n2 portc0 pu2.pin portc2 ee.SCL" ; SCL .sim "node n3" .sim "attach n3 porta0 ee.WP" .sim "node n4" .sim "attach n4 porta1 ee.A0" .sim "node n5" .sim "attach n5 porta2 ee.A1" .sim "node n6" .sim "attach n6 porta4 ee.A2" .sim "scope.ch0 = \"portc3\"" .sim "scope.ch1 = \"portc2\"" .sim "pu1.xpos = 372." .sim "pu1.ypos = 156." .sim "pu2.xpos = 252." .sim "pu2.ypos = 156" .sim "ee.xpos = 252." .sim "ee.ypos = 60." .sim "p16f1823.xpos = 72." .sim "p16f1823.ypos = 24." call ProgInit ; Get everything running step-by-step call I2CSendResult call write_eeprom call is_ready call read_eeprom .command "dump e ee dump.hex" nop call is_ready call clr_eeprom .command "load e ee dump.hex" nop call is_ready call read_eeprom .assert "\"*** PASSED p16f1823 I2C test\"" goto $ ;****************************** SUBROUTINES **************************** ;************************************************************************ START_I2C MACRO banksel SSPCON2 ; Generate I2C start bsf SSPCON2,SEN btfsc SSPCON2,SEN goto $-1 banksel PORTA ENDM RSTART_I2C MACRO banksel SSPCON2 ; Generate I2C repeat start bsf SSPCON2,RSEN btfsc SSPCON2,RSEN goto $-1 banksel PORTA ENDM STOP_I2C MACRO banksel SSPCON2 ; Generate I2C stop bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 banksel PORTA ENDM IDLE_WAIT_I2C MACRO banksel SSPCON2 movlw 0x1f andwf SSPCON2,W BNZ $-3 btfsc SSPSTAT,R_NOT_W goto $-1 banksel PORTA ENDM ;****************** Initialize Registers and Variables ***************** ;************************************************************************ ProgInit banksel ANSELA clrf ANSELA clrf ANSELC banksel PORTA clrf PORTA ; Set all bits to zero on Port A banksel TRISA clrf TRISA ; clrf TRISC bsf _SDA_DRIVE banksel SSPADD movlw 0x0C ; Set I2C baud rate to 385 kHz movwf SSPADD movlw 0x08 ; Set for I2C master mode movwf SSPCON movlw 0x28 ; Enable I2C movwf SSPCON return ;************************************************************************ I2CSendResult banksel SSPCON2 ; Generate I2C start, bus collision bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 bsf SSPCON2,SEN banksel I2CTRI bcf _SCL_DRIVE IDLE_WAIT_I2C .assert "(pir2 & 0x08) == 0x08, \"FAILED BCL1IF for start\"" nop banksel I2CTRI bsf _SCL_DRIVE banksel PIR2 bcf PIR2,BCL1IF banksel SSPCON2 ; Generate I2C start bsf SSPCON2,SEN IDLE_WAIT_I2C .assert "(portc & 0x03) == 0, \"FAILED Start SCL, SDL low\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED Start SSP1IF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED Start BCL1IF clear\"" nop .assert "(sspstat & 0x3f) == 0x08, \"FAILED Start S bit set\"" nop banksel PIR1 bcf PIR1,SSP1IF banksel SSPCON2 ; Generate I2C restart bsf SSPCON2,RSEN btfsc SSPCON2,RSEN goto $-1 .assert "(portc & 0x03) == 0, \"FAILED RStart SCL, SDL low\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED RStart SSP1IF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED RStart BCL1IF clear\"" nop .assert "(sspstat & 0x3f) == 0x08, \"FAILED RStart S bit set\"" nop banksel PIR1 bcf PIR1,SSP1IF banksel SSPCON2 bsf SSPCON2,ACKDT bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 .assert "(portc & 0x03) == 0x02, \"FAILED ACKEN SCL low, SDL high\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED ACKEN SSP1IF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED ACKEN BCL1IF clear\"" nop .assert "(sspstat & 0x3f) == 0x08, \"FAILED ACKEN S bit set\"" nop bcf SSPCON2,ACKDT bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 banksel PIR1 bcf PIR1,SSP1IF banksel SSPCON2 ; Generate I2C restart bsf SSPCON2,RSEN btfsc SSPCON2,RSEN goto $-1 .assert "(portc & 0x03) == 0, \"FAILED RStart SCL, SDL low\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED RStart SSP1IF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED RStart BCL1IF clear\"" nop .assert "(sspstat & 0x3f) == 0x08, \"FAILED RStart S bit set\"" nop banksel PIR1 bcf PIR1,SSP1IF banksel SSPCON2 ; Generate I2C stop bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 .assert "(portc & 0x03) == 0x03, \"FAILED Stop SCL, SDL high\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED Stop SSP1IF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED Stop BCL1IF clear\"" nop .assert "(sspstat & 0x3f) == 0x10, \"FAILED Stop P bit set\"" nop return ; ; repeatedly send command to eeprom until an ACK ; is received back ; ; The call of delay is not required for operation of the code, ; but it speeds up the simulation with the GUI running. -- RRR ; is_ready banksel SSPCON movlw 0x04 movwf temp2 clrf temp1 call delay banksel SSPCON2 ; Generate I2C start bsf SSPCON2,SEN btfsc SSPCON2,SEN goto $-1 movlw 0xa0 ; write command to eeprom call I2C_send_w call I2C_stop banksel SSPCON2 ; Generate I2C start btfsc SSPCON2,ACKSTAT goto is_ready banksel PIR2 bcf PIR2,BCL1IF return write_eeprom_address banksel SSPCON2 ; Generate I2C start bsf SSPCON2,SEN btfsc SSPCON2,SEN goto $-1 movlw 0xa0 ; write command to eeprom call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write command to eeprom ACK\"" nop .assert "(sspstat & 0x01) == 0x00, \"FAILED write to eeprom BF clear\"" nop banksel PIR1 bcf PIR1,SSP1IF movlw 0x00 ; write eeprom address call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write address to eeprom ACK\"" nop return write_eeprom call write_eeprom_address banksel PIR1 bcf PIR1,SSP1IF movlw 0x80 ; write data1 call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write data1 to eeprom ACK\"" nop banksel PIR1 bcf PIR1,SSP1IF movlw 0x81 ; write data2 call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write data2 to eeprom ACK\"" nop nop call I2C_stop return clr_eeprom call write_eeprom_address banksel PIR1 bcf PIR1,SSP1IF movlw 0x00 ; write data1 call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write data1 to eeprom ACK\"" nop banksel PIR1 bcf PIR1,SSP1IF movlw 0x00 ; write data2 call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write data2 to eeprom ACK\"" nop nop call I2C_stop return read_eeprom call write_eeprom_address banksel SSPCON2 ; Generate I2C repeated start bsf SSPCON2,RSEN btfsc SSPCON2,RSEN goto $-1 movlw 0xa1 ; Send address/read to eeprom banksel SSPBUF movwf SSPBUF banksel SSPCON2 ; wait for idle (ACKEN,RCEN,PEN,RSEN,SEN) == 0 movlw 0x1f andwf SSPCON2,W BNZ $-3 btfsc SSPSTAT,R_NOT_W ; also R_W == 0 goto $-1 .assert "(sspstat & 0x01) == 0x00, \"FAILED address/read to eeprom BF clear\"" nop banksel PIR1 bcf PIR1,SSP1IF banksel SSPCON2 bsf SSPCON2,RCEN ; read data from eeprom btfsc SSPCON2,RCEN goto $-1 .assert "(pir1 & 0x08) == 0x08, \"FAILED RCEN SSP1IF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED RCEN BCL1IF clear\"" nop .assert "(sspstat & 0x01) == 0x01, \"FAILED RCEN BF set\"" nop banksel SSPBUF movf SSPBUF,W .assert "W == 0x80, \"FAILED RCEN, read Data\"" nop banksel PIR1 bcf PIR1,SSP1IF banksel SSPCON2 bcf SSPCON2,ACKDT ; send ACK bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 banksel PIR1 bcf PIR1,SSP1IF banksel SSPCON2 bsf SSPCON2,RCEN ; read next byte btfsc SSPCON2,RCEN goto $-1 banksel SSPBUF movf SSPBUF,W .assert "W == 0x81, \"FAILED RCEN, read Data2\"" nop banksel SSPCON2 bsf SSPCON2,ACKDT ; send NACK bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 return I2C_stop banksel SSPCON2 ; Generate I2C stop bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 return delay decfsz temp1,f goto $+2 decfsz temp2,f goto delay return ;********************** Output byte in W via I2C bus ******************** ;************************************************************************ I2C_send_w banksel SSPBUF ; Second byte of data (middle) movwf SSPBUF banksel SSPSTAT btfsc SSPSTAT,R_NOT_W goto $-1 return end gpsim-0.27.0/regression/p1xf18xx/16f1823_g.lkr0000664000076400007640000002703612162224370015402 00000000000000// File: 16f1823_g.lkr // Generic linker script for the PIC16F1823 processor #DEFINE _CODEEND _DEBUGCODESTART - 1 #DEFINE _CEND _CODEEND + _DEBUGCODELEN #DEFINE _DATAEND _DEBUGDATASTART - 1 #DEFINE _DEND _DATAEND + _DEBUGDATALEN LIBPATH . #IFDEF _DEBUGCODESTART CODEPAGE NAME=page0 START=0x0 END=_CODEEND CODEPAGE NAME=debug START=_DEBUGCODESTART END=_CEND PROTECTED #ELSE CODEPAGE NAME=page0 START=0x0 END=0x7FF #FI CODEPAGE NAME=.idlocs START=0x8000 END=0x8003 PROTECTED CODEPAGE NAME=.devid START=0x8006 END=0x8006 PROTECTED CODEPAGE NAME=.config START=0x8007 END=0x8008 PROTECTED CODEPAGE NAME=eedata START=0xF000 END=0xF0FF PROTECTED LINEARMEM NAME=linear0 START=0x2000 END=0x206F PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x11F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x19F PROTECTED DATABANK NAME=sfr4 START=0x200 END=0x21F PROTECTED DATABANK NAME=sfr5 START=0x280 END=0x29F PROTECTED DATABANK NAME=sfr6 START=0x300 END=0x31F PROTECTED DATABANK NAME=sfr7 START=0x380 END=0x39F PROTECTED DATABANK NAME=sfr8 START=0x400 END=0x41F PROTECTED DATABANK NAME=sfr9 START=0x480 END=0x49F PROTECTED DATABANK NAME=sfr10 START=0x500 END=0x51F PROTECTED DATABANK NAME=sfr11 START=0x580 END=0x59F PROTECTED DATABANK NAME=sfr12 START=0x600 END=0x61F PROTECTED DATABANK NAME=sfr13 START=0x680 END=0x69F PROTECTED DATABANK NAME=sfr14 START=0x700 END=0x71F PROTECTED DATABANK NAME=sfr15 START=0x780 END=0x79F PROTECTED DATABANK NAME=sfr16 START=0x800 END=0x81F PROTECTED DATABANK NAME=sfr17 START=0x880 END=0x89F PROTECTED DATABANK NAME=sfr18 START=0x900 END=0x91F PROTECTED DATABANK NAME=sfr19 START=0x980 END=0x99F PROTECTED DATABANK NAME=sfr20 START=0xA00 END=0xA1F PROTECTED DATABANK NAME=sfr21 START=0xA80 END=0xA9F PROTECTED DATABANK NAME=sfr22 START=0xB00 END=0xB1F PROTECTED DATABANK NAME=sfr23 START=0xB80 END=0xB9F PROTECTED DATABANK NAME=sfr24 START=0xC00 END=0xC1F PROTECTED DATABANK NAME=sfr25 START=0xC80 END=0xC9F PROTECTED DATABANK NAME=sfr26 START=0xD00 END=0xD1F PROTECTED DATABANK NAME=sfr27 START=0xD80 END=0xD9F PROTECTED DATABANK NAME=sfr28 START=0xE00 END=0xE1F PROTECTED DATABANK NAME=sfr29 START=0xE80 END=0xE9F PROTECTED DATABANK NAME=sfr30 START=0xF00 END=0xF1F PROTECTED DATABANK NAME=sfr31 START=0xF80 END=0xFEF PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x6F SHADOW=linear0:0x2000 #IFDEF _DEBUGDATASTART DATABANK NAME=gpr1 START=0xA0 END=_DATAEND SHADOW=linear0:0x2050 DATABANK NAME=dbgspr START=_DEBUGDATASTART END=_DEND PROTECTED #ELSE //no debug DATABANK NAME=gpr1 START=0xA0 END=0xBF SHADOW=linear0:0x2050 #FI #IFDEF _DEBUGDATASTART SHAREBANK NAME=dbgnobnk START=0x70 END=0x70 RESERVED SHAREBANK NAME=dbgnobnk START=0xF0 END=0xF0 RESERVED SHAREBANK NAME=dbgnobnk START=0x170 END=0x170 RESERVED SHAREBANK NAME=dbgnobnk START=0x1F0 END=0x1F0 RESERVED SHAREBANK NAME=dbgnobnk START=0x270 END=0x270 RESERVED SHAREBANK NAME=dbgnobnk START=0x2F0 END=0x2F0 RESERVED SHAREBANK NAME=dbgnobnk START=0x370 END=0x370 RESERVED SHAREBANK NAME=dbgnobnk START=0x3F0 END=0x3F0 RESERVED SHAREBANK NAME=dbgnobnk START=0x470 END=0x470 RESERVED SHAREBANK NAME=dbgnobnk START=0x4F0 END=0x4F0 RESERVED SHAREBANK NAME=dbgnobnk START=0x570 END=0x570 RESERVED SHAREBANK NAME=dbgnobnk START=0x5F0 END=0x5F0 RESERVED SHAREBANK NAME=dbgnobnk START=0x670 END=0x670 RESERVED SHAREBANK NAME=dbgnobnk START=0x6F0 END=0x6F0 RESERVED SHAREBANK NAME=dbgnobnk START=0x770 END=0x770 RESERVED SHAREBANK NAME=dbgnobnk START=0x7F0 END=0x7F0 RESERVED SHAREBANK NAME=dbgnobnk START=0x870 END=0x870 RESERVED SHAREBANK NAME=dbgnobnk START=0x8F0 END=0x8F0 RESERVED SHAREBANK NAME=dbgnobnk START=0x970 END=0x970 RESERVED SHAREBANK NAME=dbgnobnk START=0x9F0 END=0x9F0 RESERVED SHAREBANK NAME=dbgnobnk START=0xA70 END=0xA70 RESERVED SHAREBANK NAME=dbgnobnk START=0xAF0 END=0xAF0 RESERVED SHAREBANK NAME=dbgnobnk START=0xB70 END=0xB70 RESERVED SHAREBANK NAME=dbgnobnk START=0xBF0 END=0xBF0 RESERVED SHAREBANK NAME=dbgnobnk START=0xC70 END=0xC70 RESERVED SHAREBANK NAME=dbgnobnk START=0xCF0 END=0xCF0 RESERVED SHAREBANK NAME=dbgnobnk START=0xD70 END=0xD70 RESERVED SHAREBANK NAME=dbgnobnk START=0xDF0 END=0xDF0 RESERVED SHAREBANK NAME=dbgnobnk START=0xE70 END=0xE70 RESERVED SHAREBANK NAME=dbgnobnk START=0xEF0 END=0xEF0 RESERVED SHAREBANK NAME=dbgnobnk START=0xF70 END=0xF70 RESERVED SHAREBANK NAME=dbgnobnk START=0xFF0 END=0xFF0 RESERVED SHAREBANK NAME=gprnobank START=0x71 END=0x7F SHAREBANK NAME=gprnobank START=0xF1 END=0xFF PROTECTED SHAREBANK NAME=gprnobank START=0x171 END=0x17F PROTECTED SHAREBANK NAME=gprnobank START=0x1F1 END=0x1FF PROTECTED SHAREBANK NAME=gprnobank START=0x271 END=0x27F PROTECTED SHAREBANK NAME=gprnobank START=0x2F1 END=0x2FF PROTECTED SHAREBANK NAME=gprnobank START=0x371 END=0x37F PROTECTED SHAREBANK NAME=gprnobank START=0x3F1 END=0x3FF PROTECTED SHAREBANK NAME=gprnobank START=0x471 END=0x47F PROTECTED SHAREBANK NAME=gprnobank START=0x4F1 END=0x4FF PROTECTED SHAREBANK NAME=gprnobank START=0x571 END=0x57F PROTECTED SHAREBANK NAME=gprnobank START=0x5F1 END=0x5FF PROTECTED SHAREBANK NAME=gprnobank START=0x671 END=0x67F PROTECTED SHAREBANK NAME=gprnobank START=0x6F1 END=0x6FF PROTECTED SHAREBANK NAME=gprnobank START=0x771 END=0x77F PROTECTED SHAREBANK NAME=gprnobank START=0x7F1 END=0x7FF PROTECTED SHAREBANK NAME=gprnobank START=0x871 END=0x87F PROTECTED SHAREBANK NAME=gprnobank START=0x8F1 END=0x8FF PROTECTED SHAREBANK NAME=gprnobank START=0x971 END=0x97F PROTECTED SHAREBANK NAME=gprnobank START=0x9F1 END=0x9FF PROTECTED SHAREBANK NAME=gprnobank START=0xA71 END=0xA7F PROTECTED SHAREBANK NAME=gprnobank START=0xAF1 END=0xAFF PROTECTED SHAREBANK NAME=gprnobank START=0xB71 END=0xB7F PROTECTED SHAREBANK NAME=gprnobank START=0xBF1 END=0xBFF PROTECTED SHAREBANK NAME=gprnobank START=0xC71 END=0xC7F PROTECTED SHAREBANK NAME=gprnobank START=0xCF1 END=0xCFF PROTECTED SHAREBANK NAME=gprnobank START=0xD71 END=0xD7F PROTECTED SHAREBANK NAME=gprnobank START=0xDF1 END=0xDFF PROTECTED SHAREBANK NAME=gprnobank START=0xE71 END=0xE7F PROTECTED SHAREBANK NAME=gprnobank START=0xEF1 END=0xEFF PROTECTED SHAREBANK NAME=gprnobank START=0xF71 END=0xF7F PROTECTED SHAREBANK NAME=gprnobank START=0xFF1 END=0xFFF PROTECTED #ELSE SHAREBANK NAME=gprnobank START=0x70 END=0x7F SHAREBANK NAME=gprnobank START=0xF0 END=0xFF PROTECTED SHAREBANK NAME=gprnobank START=0x170 END=0x17F PROTECTED SHAREBANK NAME=gprnobank START=0x1F0 END=0x1FF PROTECTED SHAREBANK NAME=gprnobank START=0x270 END=0x27F PROTECTED SHAREBANK NAME=gprnobank START=0x2F0 END=0x2FF PROTECTED SHAREBANK NAME=gprnobank START=0x370 END=0x37F PROTECTED SHAREBANK NAME=gprnobank START=0x3F0 END=0x3FF PROTECTED SHAREBANK NAME=gprnobank START=0x470 END=0x47F PROTECTED SHAREBANK NAME=gprnobank START=0x4F0 END=0x4FF PROTECTED SHAREBANK NAME=gprnobank START=0x570 END=0x57F PROTECTED SHAREBANK NAME=gprnobank START=0x5F0 END=0x5FF PROTECTED SHAREBANK NAME=gprnobank START=0x670 END=0x67F PROTECTED SHAREBANK NAME=gprnobank START=0x6F0 END=0x6FF PROTECTED SHAREBANK NAME=gprnobank START=0x770 END=0x77F PROTECTED SHAREBANK NAME=gprnobank START=0x7F0 END=0x7FF PROTECTED SHAREBANK NAME=gprnobank START=0x870 END=0x87F PROTECTED SHAREBANK NAME=gprnobank START=0x8F0 END=0x8FF PROTECTED SHAREBANK NAME=gprnobank START=0x970 END=0x97F PROTECTED SHAREBANK NAME=gprnobank START=0x9F0 END=0x9FF PROTECTED SHAREBANK NAME=gprnobank START=0xA70 END=0xA7F PROTECTED SHAREBANK NAME=gprnobank START=0xAF0 END=0xAFF PROTECTED SHAREBANK NAME=gprnobank START=0xB70 END=0xB7F PROTECTED SHAREBANK NAME=gprnobank START=0xBF0 END=0xBFF PROTECTED SHAREBANK NAME=gprnobank START=0xC70 END=0xC7F PROTECTED SHAREBANK NAME=gprnobank START=0xCF0 END=0xCFF PROTECTED SHAREBANK NAME=gprnobank START=0xD70 END=0xD7F PROTECTED SHAREBANK NAME=gprnobank START=0xDF0 END=0xDFF PROTECTED SHAREBANK NAME=gprnobank START=0xE70 END=0xE7F PROTECTED SHAREBANK NAME=gprnobank START=0xEF0 END=0xEFF PROTECTED SHAREBANK NAME=gprnobank START=0xF70 END=0xF7F PROTECTED SHAREBANK NAME=gprnobank START=0xFF0 END=0xFFF PROTECTED #FI SECTION NAME=PROG0 ROM=page0 // ROM code space - page0 SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=DEEPROM ROM=eedata // Data EEPROM SECTION NAME=LINEAR0 RAM=linear0 // Linear Memory gpsim-0.27.0/regression/p1xf18xx/p16f1823_comp.asm0000664000076400007640000002630412162224370016257 00000000000000; ; ; Copyright (c) 2013 Roy Rankin ; ; This file is part of the gpsim regression tests ; ; This library is free software; you can redistribute it and/or ; modify it under the terms of the GNU Lesser General Public ; License as published by the Free Software Foundation; either ; version 2.1 of the License, or (at your option) any later version. ; ; This library is distributed in the hope that it will be useful, ; but WITHOUT ANY WARRANTY; without even the implied warranty of ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ; Lesser General Public License for more details. ; ; You should have received a copy of the GNU Lesser General Public ; License along with this library; if not, see ; . list p=16f1823 include include __CONFIG _CONFIG1, _CP_OFF & _WDTE_OFF & _FOSC_INTOSC & _LVP_OFF & _MCLRE_OFF __CONFIG _CONFIG2, _PLLEN_OFF ;; The purpose of this program is to test gpsim's ability to ;; simulate a pic 16F1823. ;; Specifically, the comparator and gate function of Tmr1 is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR int_cm1 RES 1 int_cm2 RES 1 x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 GLOBAL int_cm1, int_cm2 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlp high start ; load upper byte of 'start' label goto start ; go to beginning of program ;; ;; Interrupt ;; INTERRUPT_VECTOR CODE 0X004 goto interrupt ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "p16f1823.xpos = 72" .sim "p16f1823.ypos = 72" .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup V1" .sim "V1.resistance = 100.0" .sim "V1.xpos = 240" .sim "V1.ypos = 72" .sim "V1.voltage = 2.0" .sim "module load pullup V2" .sim "V2.resistance = 100.0" .sim "V2.xpos = 84" .sim "V2.ypos = 24" .sim "V2.voltage = 2.5" .sim "module load pullup V3" .sim "V3.resistance = 100.0" .sim "V3.xpos = 240" .sim "V3.ypos = 120" .sim "V3.voltage = 4.5" .sim "node na0" .sim "attach na0 V3.pin porta0 portc0" ; C1IN+, C2IN+ .sim "node na1" .sim "attach na1 V1.pin portc1" ; C12IN1- .sim "node na3" .sim "attach na3 V2.pin porta1" ; C12IN0- movlw 0x03 BANKSEL ANSELA clrf ANSELA clrf ANSELC movwf ANSELA ; select AN0, AN1 movwf ANSELC ; select AN4, AN5 BANKSEL TRISA movwf TRISA ; movlw 0x02 movwf TRISC ; portc0 (AN4) portc1(AN5) input, portc4 output bsf INTCON,GIE ;Global interrupts bsf INTCON,PEIE ;Peripheral interrupts BANKSEL PIE2 bsf PIE2,C1IE ;CM1 interrupts bsf PIE2,C2IE ;CM2 interrupts call test_compar call test_tot1 ; can C2 increment TMR1 call test_sr ; can CM control SR latch .assert "\"*** PASSED 16F1823 comparator test\"" nop goto $-1 ; ; Test Comparator driving SR latch ; Assumes called with C1OUT = C2OUT = 0 and ; C1POL = 0, C2POL = 1 ; test_sr: BANKSEL SRCON0 ; turn on Q output pin movlw (1<. ;; The purpose of this program is to test gpsim's ability to ;; simulate a pic 12F1822. list p=12f1822 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros __CONFIG _CONFIG1, _CP_OFF & _WDTE_ON & _FOSC_INTOSC & _PWRTE_ON & _BOREN_OFF & _MCLRE_OFF & _CLKOUTEN_OFF __CONFIG _CONFIG2, _STVREN_ON ; & _WRT_BOOT ;------------------------------------------------------------------------ ; gpsim command .command macro x .direct "C", x endm GLOBAL temp, temp2, temp3, A0 ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR temp RES 1 w_temp RES 1 temp2 RES 1 temp3 RES 1 status_temp RES 1 cmif_cnt RES 1 tmr0_cnt RES 1 tmr1_cnt RES 1 eerom_cnt RES 1 adr_cnt RES 1 data_cnt RES 1 inte_cnt RES 1 GPR_DATA2 UDATA 0xa0 A0 RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlp high start ; load upper byte of 'start' label goto start ; go to beginning of program .sim "node n1" .sim "attach n1 porta0 porta3" .sim "node n2" .sim "attach n2 porta1 porta4" .sim "node n3" .sim "attach n3 porta2 porta5" .sim "p12f1822.BreakOnReset = false" .sim "log w W" .sim "log r W" ;.sim "log lxt" .sim "log on" ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location ; many of the core registers now saved and restored automatically clrf BSR ; set bank 0 btfsc PIR2,EEIF goto ee_int btfsc INTCON,T0IF goto tmr0_int btfsc INTCON,IOCIF goto inte_int .assert "\"***FAILED p12f1822 unexpected interrupt\"" nop ; Interrupt from TMR0 tmr0_int incf tmr0_cnt,F bcf INTCON,T0IF goto exit_int ; Interrupt from eerom ee_int incf eerom_cnt,F bcf PIR2,EEIF goto exit_int ; Interrupt from INT pin inte_int incf inte_cnt,F bcf INTCON,IOCIF goto exit_int exit_int: ;; STATUS and W now restored by RETFIE retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start BANKSEL PCON btfss PCON,NOT_RI goto soft_reset BANKSEL STKPTR movf STKPTR,W ; ; ; test pins in analog mode return 0 on register read BANKSEL TRISA clrf STATUS clrf TRISA .assert "trisa == 0x08, \"**FAILED 12f1822 TRISA clears to 0x08\"" nop BANKSEL PORTA movlw 0xff movwf PORTA .assert "porta == 0x28, \"**FAILED 12f1822 analog bits read 0\"" nop movf PORTA,W ; ; test PORTA works as expected ; clrf PORTA BANKSEL ANSELA clrf ANSELA ; set port to digital BANKSEL TRISA movlw 0x38 movwf TRISA ;PORTA 0,1,2 output 3,4,5 input clrf BSR ; bank 0 .assert "porta == 0x00, \"PORTA = 0x00\"" nop movlw 0x07 movwf PORTA ; drive 0,1,2 bits high .assert "porta == 0x3f, \"PORTA = 0x3f\"" nop BANKSEL LATA movf LATA,W BANKSEL TRISA movlw 0x07 movwf TRISA ; PORTA 4, 5 output 0,1,2,3 input (3 input only) BANKSEL PORTA .assert "porta == 0x09, \"PORTA = 0x09\"" nop movlw 0x38 movwf PORTA ; drive output bits high .assert "porta == 0x3f, \"PORTA = 0x3f\"" nop call test_eerom call test_int call read_config_data call test_indr reset soft_reset: .assert "cycles > 100, \"*** FAILED 12f1822 Unexpected soft reset\"" nop .assert "\"*** PASSED 12f1822 Functionality\"" nop goto $ test_eerom: ; ; test can write and read to all 128 eeprom locations ; using intterupts clrf adr_cnt clrf data_cnt ; setup interrupts bsf INTCON,PEIE bsf INTCON,GIE BANKSEL PIE1 bsf PIE2,EEIE BANKSEL PIR1 ; ; write to EEPROM starting at EEPROM address 0 ; value of address as data using interrupts to ; determine write complete. ; read and verify data l1: movf adr_cnt,W clrf eerom_cnt BANKSEL EEADRL movwf EEADRL movf data_cnt,W movwf EEDATL bcf EECON1, CFGS ;Deselect Configuration space bcf EECON1, EEPGD ;Point to DATA memory bsf EECON1, WREN ;Enable writes bcf INTCON,GIE ;Disable interrupts while enabling write movlw 0x55 ;Magic sequence to enable eeprom write movwf EECON2 movlw 0xaa movwf EECON2 bsf EECON1,WR ;Begin eeprom write bsf INTCON,GIE ;Re-enable interrupts bcf EECON1, WREN ;Disable writes ;; clrf BSR ; Bank 0 movf eerom_cnt,W skpnz goto $-2 ; ; read what we just wrote ; movf adr_cnt,W BANKSEL EEADRL movwf EEADRL bcf EECON1, CFGS ;Deselect Config space bcf EECON1, EEPGD ;Point to DATA memory bsf EECON1,RD ; start read operation movf EEDATL,W ; Read data BANKSEL PIR1 xorwf data_cnt,W ; did we read what we wrote ? skpz goto eefail incf adr_cnt,W andlw 0x7f movwf adr_cnt movwf data_cnt skpz goto l1 return eefail: .assert "\"***FAILED 12f1822 eerom write/read error\"" nop test_tmr0: return test_int: BANKSEL TRISA bsf TRISA,2 bcf TRISA,5 BANKSEL PORTA clrf PORTA BANKSEL IOCAP bsf IOCAP,2 ; set interrupt on + edge of porta2 BANKSEL OPTION_REG bsf OPTION_REG,INTEDG BANKSEL INTCON bsf INTCON,GIE ;Global interrupts bcf INTCON,PEIE ;No Peripheral interrupts bcf INTCON,IOCIF ;Clear flag bsf INTCON,IOCIE clrf inte_cnt bsf PORTA,5 ; make a rising edge nop movf inte_cnt,w .assert "W == 0x01, \"*** FAILED 12f1822 INT test - No int on rising edge\"" nop .assert "iocaf == 0x04, \"*** FAILED 12f1822 IOCAF bit 2 not set\"" nop clrf inte_cnt bcf PORTA,5 ; make a falling edge nop movf inte_cnt,w .assert "W == 0x00, \"*** FAILED 12f1822 INT test - Unexpected int on falling edge\"" nop ; Setup - edge interrupt BANKSEL IOCAP clrf IOCAP bsf IOCAN,2 clrf IOCAF BANKSEL INTCON bcf INTCON,IOCIF ;Clear flag clrf inte_cnt bsf PORTA,5 ; make a rising edge nop movf inte_cnt,w .assert "W == 0x00, \"*** FAILED 12f1822 INT test - Unexpected int on rising edge\"" nop clrf inte_cnt bcf PORTA,5 ; make a falling edge nop movf inte_cnt,w .assert "W == 0x01, \"*** FAILED 12f1822 INT test - No int on falling edge\"" nop .assert "iocaf == 0x04, \"*** FAILED 12f1822 IOCAF bit 2 not set\"" nop return ; ; Test reading and writing Configuration data via eeprom interface ; read_config_data: BANKSEL EEADRL ; Select correct Bank movlw 0x06 ; movwf EEADRL ; Store LSB of address clrf EEADRH ; Clear MSB of address bsf EECON1,CFGS ; Select Configuration Space bcf INTCON,GIE ; Disable interrupts bsf EECON1,RD ; Initiate read nop nop bsf INTCON,GIE ; Restore interrupts .assert "eedatah == 0x27 && eedata == 0x00, \"*** FAILED 12f1822 Device ID\"" nop ; test write BANKSEL PIR2 clrf PIR2 BANKSEL EECON1 movlw 0x01 ; movwf EEADRL ; Store LSB of address bsf EECON1, WREN ;Enable writes bcf INTCON,GIE movlw 0x55 ;Magic sequence to enable eeprom write movwf EECON2 movlw 0xaa movwf EECON2 bsf EECON1,WR nop nop bsf INTCON,GIE bcf EECON1, WREN ;Enable writes BANKSEL PIR2 btfss PIR2,EEIF goto $-1 .assert "UserID2 == 0x2700, \"*** FAILED 12f1822 write to UserID2\"" nop return clear_prog: ; This row erase routine assumes the following: ; 1. A valid address within the erase block is loaded in ADDRH:ADDRL ; 2. ADDRH and ADDRL are located in shared data memory 0x70 - 0x7F bcf INTCON,GIE ; Disable ints so required sequences will execute properly BANKSEL EEADRL movlw 0 movwf EEADRL movlw 1 movwf EEADRH bsf EECON1,EEPGD ; Point to program memory bcf EECON1,CFGS ; Not configuration space bsf EECON1,FREE ; Specify an erase operation bsf EECON1,WREN ; Enable writes movlw 0x55 ; Start of required sequence to initiate erase movwf EECON2 movlw 0xAA movwf EECON2 bsf EECON1,WR ; Set WR bit to begin erase nop nop bcf EECON1,WREN ; Disable writes bsf INTCON,GIE ; Enable interrupts btfsc EECON1,WR goto $-1 return write_prog: bcf INTCON,GIE ; Disable ints so required sequences will execute properly BANKSEL EEADRH ; Bank 3 ; movf ADDRH,W ; Load initial address movlw 0x03 movwf EEADRH ; ; movf ADDRL,W ; movlw 0x00 movwf EEADRL ; movlw 0x00 ; movlw LOW DATA_ADDR ; Load initial data address movwf FSR0L ; movlw 0x20 ; Program memory ; movlw HIGH DATA_ADDR ; Load initial data address movwf FSR0H ; bsf EECON1,EEPGD ; Point to program memory bcf EECON1,CFGS ; Not configuration space bsf EECON1,WREN ; Enable writes bsf EECON1,LWLO ; Only Load Write Latches LOOP moviw FSR0++ ; Load first data byte into lower movwf EEDATL ; moviw FSR0++ ; Load second data byte into upper movwf EEDATH ; movf EEADRL,W ; Check if lower bits of address are '000' xorlw 0x07 ; Check if we're on the last of 8 addresses andlw 0x07 ; btfsc STATUS,Z ; Exit if last of eight words, goto START_WRITE ; movlw 0x55 ; Start of required write sequence: movwf EECON2 movlw 0xAA ; movwf EECON2 bsf EECON1,WR ; Set WR bit to begin write nop nop incf EEADRL,F ; Still loading latches Increment address goto LOOP ; Write next latches START_WRITE bcf EECON1,LWLO ; No more loading latches - Actually start Flash program ; memory write movlw 0x55 ; Start of required write sequence: movwf EECON2 movlw 0xAA movwf EECON2 bsf EECON1,WR ; Set WR bit to begin write nop nop bcf EECON1,WREN ; Disable writes bsf INTCON,GIE ; Enable interrupts return test_indr: movlb 0 ; select bank 0 ; read low byte of program memory starting at 0x300 movlw 0x83 movwf FSR1H clrf FSR1L clrf temp moviw FSR1++ addwf temp,F moviw FSR1++ addwf temp,F moviw FSR1++ addwf temp,F moviw FSR1++ addwf temp,F moviw FSR1++ addwf temp,F .assert "temp == 0xff, \"*** FAILED read program memory\"" nop ; put address of temp into temp, FSR0 and 0x20 movlw temp movwf temp movwf FSR0L movwf 0x20 clrf FSR0H ; put address of w_temp into w_temp movlw temp+1 movwf w_temp moviw ++FSR0 .assert "W == 0x71, \"*** FAILED 12f1822 ++FSR0 read of w_temp\"" nop moviw -1[FSR0] .assert "W == 0x70, \"*** FAILED 12f1822 -1[FSR0] read of temp\"" nop moviw -20[FSR1] moviw 0[FSR0] movlw 0xf1 movwi ++FSR0 .assert "temp2 == 0xf1, \"*** FAILED 12f1822 ++FSR0 write\"" nop addlw 1 movwi 1[FSR0] .assert "temp3 == 0xf2, \"*** FAILED 12f1822 1[FSR0] write\"" nop movwi 10[FSR1] ; not valid to write indirect to program memory moviw 10[FSR1] ; read unchanged program memory .assert "W == 0xff, \"*** FAILED 12f1822 10[FSR1] W/R program memory(no write)\"" nop movlw 0x20 movwf FSR1L clrf FSR1H movf INDF0,W addwf INDF1,W .assert "W == 0x61, \"*** FAILED 12f1822 INDF operations\"" nop clrf FSR1L movlw 0x80 movwf FSR1H incf FSR1L,F movf INDF1,W .assert "W == 0x16, \"*** FAILED 12f1822 INDF operations program mem\"" nop movlw 0x20 ; linear memory address 0x20000 == 0x20 movwf FSR0H movlw 0x6f movwf 0x6f movlw 0x4f movwf FSR0L ; 0x204f points to 0x6f movwf INDF0 ; write 0x4f to 0x6f (bank 0) incf FSR0L,F ; 0x2050 points to 0xa0 movwf INDF0 ; write 0x4f to 0xa0 (bank 1) .assert "A0 == 0x4f, \"*** FAILED 12f1822 INDF operations linear memory\"" nop return org 0x300 rrDATA dw 0x01, 0x02, 0x03, 0x04, 0xf5 end gpsim-0.27.0/regression/p1xf18xx/p16f1823_spi.asm0000664000076400007640000001574312162224370016121 00000000000000; ; ; Copyright (c) 2013 Roy Rankin ; ; This file is part of the gpsim regression tests ; ; This library is free software; you can redistribute it and/or ; modify it under the terms of the GNU Lesser General Public ; License as published by the Free Software Foundation; either ; version 2.1 of the License, or (at your option) any later version. ; ; This library is distributed in the hope that it will be useful, ; but WITHOUT ANY WARRANTY; without even the implied warranty of ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ; Lesser General Public License for more details. ; ; You should have received a copy of the GNU Lesser General Public ; License along with this library; if not, see ; . list p=16f1823 include include ;; The purpose of this program is to test gpsim's ability to ;; simulate a pic 16f1823. ;; Specifically, SPI errorlevel -302 ; Printf Command .command macro x .direct "C", x endm __CONFIG _CONFIG2, _PLLEN_OFF #define SDO_PORT PORTC,2 #define SDI_PORT PORTC,1 #define SCK_PORT PORTC,0 #define SS_PORT PORTC,3 #define SDO_TRIS TRISC,2 #define SDI_TRIS TRISC,1 #define SCK_TRIS TRISC,0 #define SS_TRIS TRISC,3 #define DRV_CLOCK PORTA,1 #define DRV_CLOCK_TRIS TRISA,1 ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR w_temp RES 1 status_temp RES 1 loopcnt RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlp high start ; load upper byte of 'start' label goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp btfss PIE1,SSP1IF goto check ; other Interrupts ; bsf _TIME_OUT_ ; MUST set this Flag bcf PIE1,SSP1IF check: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "module lib libgpsim_modules" .sim "module load pu pu1" .sim "module load pu pu2" .sim "module load not not" ; .sim "p16f88.xpos = 132." ; .sim "p16f88.ypos = 96." .sim "not.xpos=264." .sim "not.ypos=180." .sim "pu1.xpos=252." .sim "pu1.ypos=96." .sim "pu2.xpos=264." .sim "pu2.ypos=252." .sim "node ss" .sim "attach ss portc3 porta2" ; Not SS .sim "node sck" .sim "attach sck portc0 porta1 pu1.pin" ; SCK .sim "node sdo" .sim "attach sdo not.in0 portc2 pu2.pin" .sim "node sdi" .sim "attach sdi portc1 not.out" BANKSEL ANSELA clrf ANSELA clrf ANSELC BANKSEL OSCCON movlw (0xe<<3)|3 ; set internal RC to 8 Mhz movwf OSCCON BANKSEL TRISC bcf SDO_TRIS ; SDO bcf SCK_TRIS ; SCK movlw 0xff BANKSEL SSPSTAT movwf SSPSTAT .assert "sspstat == 0xC0, \"SPI sspstat only SMP, CKE writable\"" nop clrf SSPSTAT ; ; Test SPI Master mode ; movlw 0x21 ; SSPEN | SPI master Fosc/16 movwf SSPCON1 movlw 0xab movwf SSPBUF BANKSEL PIR1 bcf PIR1,SSP1IF loop: btfss PIR1,SSP1IF goto loop .assert "(sspstat & 1) == 1, \"FAILED MSSP SPI Master BF not set\"" nop BANKSEL SSPBUF movf SSPBUF,W .assert "(sspstat & 1) == 0, \"FAILED MSSP SPI Master BF not cleared\"" nop .assert "W == 0x54, \"FAILED MSSP SPI Master wrong data\"" nop ; ; TEST SPI Slave mode with SS ; clrf SSPCON1 BANKSEL TRISC bcf DRV_CLOCK_TRIS ; external SCK drive bsf SCK_TRIS ; SCK bsf SS_TRIS ; SS BANKSEL PORTA bcf DRV_CLOCK bcf PIR1,SSP1IF banksel SSPCON1 movlw 0x24 ; SSPEN | SPI slave mode SS enable movwf SSPCON1 movlw 0xab movwf SSPBUF BANKSEL PORTA bsf DRV_CLOCK bcf DRV_CLOCK BANKSEL SSPBUF movwf SSPBUF ; test WCOL set .assert "(sspcon & 0x80) == 0x80, \"FAILED MSSP SPI WCOL set\"" nop bcf SSPCON1,WCOL ; clear WCOL bit .assert "(sspcon & 0x80) == 0x00, \"FAILED MSSP SPI WCOL was cleared\"" nop clrf loopcnt BANKSEL PORTA loop2: incf loopcnt,F bsf DRV_CLOCK bcf DRV_CLOCK btfss PIR1,SSP1IF goto loop2 BANKSEL SSPBUF movf SSPBUF,W .assert "W == 0x54, \"FAILED MSSP SPI Slave data\"" nop ; ; Test Slave receive overrun ; movlw 0x10 movwf loopcnt BANKSEL PORTA loop4: bsf DRV_CLOCK bcf DRV_CLOCK decfsz loopcnt,F goto loop4 .assert "(sspcon & 0x40) == 0x40, \"FAILED MSSP SPI SSPOV\"" nop ; ; Test SPI Master mode TMR2 ; BANKSEL SSPCON1 clrf SSPCON1 BANKSEL TRISA bsf DRV_CLOCK_TRIS ; external SCK drive off bcf SCK_TRIS ; SCK output BANKSEL PR2 movlw 0x1 movwf PR2 clrf TMR2 movlw 0x3C ; prescale = 1 postscale 16 movwf T2CON bcf PIR1,SSP1IF BANKSEL SSPCON1 movlw 0x23 ; SSPEN | SPI master TMR2 movwf SSPCON1 movlw 0xab movwf SSPBUF BANKSEL PIR1 loop3: btfss PIR1,SSP1IF goto loop3 .assert "(sspstat & 1) == 1, \"FAILED MSSP SPI Master TMR2, BF not set\"" nop BANKSEL SSPBUF movf SSPBUF,W .assert "(sspstat & 1) == 0, \"FAILED MSSP SPI Master TMR2, BF not cleared\"" nop .assert "W == 0x54, \"FAILED MSSP SPI Master TMR2 wrong data\"" nop ; ; Test SPI Master mode with different clock phasing ; movlw 0x31 ; SSPEN | SPI master Fosc/16 / CKP=1 movwf SSPCON1 bsf SSPSTAT,CKE ; Delayed clock phasing movlw 0xc9 movwf SSPBUF BANKSEL PIR1 bcf PIR1,SSP1IF loop5: btfss PIR1,SSP1IF goto loop5 .assert "(sspstat & 1) == 1, \"FAILED MSSP SPI Master BF not set\"" nop BANKSEL SSPBUF movf SSPBUF,W .assert "(sspstat & 1) == 0, \"FAILED MSSP SPI Master BF not cleared\"" nop .assert "W == 0x36, \"FAILED MSSP SPI Master (CKP) wrong data\"" nop ; ; Test SPI Master mode with BOEN set (MSSP1) ; bsf SSPCON3,BOEN movlw 0x3 movwf SSPADD ; Fosc/16 (sspadd+1)*4 movlw (1< ; processor specific variable definitions include ; Grab some useful macros .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA failures RES 1 ;; The Port Stimulus port, tris, and latch registers get mapped to these addresses: P1_DATA UDATA 0x10 P1_Port RES 1 P1_Tris RES 1 P1_Lat RES 1 P1_Pullup RES 1 ;; Alternate addresses to map the port stimulus. P1_AltPort RES 1 P1_AltTris RES 1 P1_AltLat RES 1 P1_AltPullup RES 1 GLOBAL P1_Port, P1_Tris, P1_Lat, P1_Pullup GLOBAL P1_AltPort, P1_AltTris, P1_AltLat, P1_AltPullup ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE 0x000 nop .sim "module library libgpsim_modules" .sim "module load PortStimulus P1" .sim "P1.xpos = 250.0" .sim "P1.ypos = 100.0" ;# First, create 8 nodes: .sim "node n0" .sim "node n1" .sim "node n2" .sim "node n3" .sim "node n4" .sim "node n5" .sim "node n6" .sim "node n7" ;# Now tie the ports together: .sim "attach n0 portb0 P1.p1" .sim "attach n1 portb1 P1.p2" .sim "attach n2 portb2 P1.p3" .sim "attach n3 portb3 P1.p4" .sim "attach n4 portb4 P1.p5" .sim "attach n5 portb5 P1.p6" .sim "attach n6 portb6 P1.p7" .sim "attach n7 portb7 P1.p8" ;# specify the PortStimulus addresses. ;These are the PIC addresses to where the PortStimulus registers are mapped. .sim "P1.portAdr = &P1_Port" .sim "P1.trisAdr = &P1_Tris" .sim "P1.latAdr = &P1_Lat" .sim "P1.pullupAdr = &P1_Pullup" CLRF failures ;Assume success CLRF BSR MOVLW 0xff MOVWF TRISB ;Port B is an input CLRF P1_Pullup ;Turn off the pullups (should already be off). CLRF P1_Tris ;Stimulus port is an output CLRF P1_Lat a_to_b_loop: MOVWF P1_Lat ;PortStimulus and Port B are externally XORWF PORTB,W ;connected. So we should see the bnz FAILED ;same thing on each port. DECFSZ PORTB,W goto a_to_b_loop ; Now let the P1's Pullups drive the bus. We'll simulate an ; open collector with a pullup resistor. The TRIS register ; will switch the driver direction. When configured as an output, ; the port module will drive low. When configured as an input, ; the pull up resistors will drive high. COMF P1_Pullup,F ;Turn on all of the pullups COMF P1_Tris,F ;Port Stimulus is now an input port CLRF P1_Lat ;make all of the drivers low MOVLW 0xff a_to_b_loop_pullups: MOVWF P1_Tris ;PortStimulus and Port B are externally XORWF PORTB,W ;connected. So we should see the bnz FAILED ;same thing on each port. DECFSZ PORTB,W goto a_to_b_loop_pullups ; Now let's write from PORTB to the PortStimulus. MOVLW 0xff ;Make the PortStimulus an input MOVWF P1_Tris COMF TRISB,F ;Port B is now an output port CLRW b_to_a_loop: MOVWF LATB ;Drive to Pic's Port B XORWF P1_Port,W ;Read the result on the PortStimulus. bnz FAILED ;Should be the same thing on each port. DECFSZ PORTB,W bra b_to_a_loop ; Now lets remap the port stimulus. CLRF P1_AltLat MOVLW 0x55 MOVWF LATB .assert "P1.port == 0x55 ,\"Failed - Unable to write to memory mapped port\"" nop ; Next check that reading the register as a register returns the expected value. ; Note, we have to use the reg() operator because had we written 'P1_Port == 0x55' ; we'd be comparing 0x55 to the symbolic representation of the register we replaced ; during the remap .assert "reg(&P1_Port) == 0x55 ,\"Failed - Unable to write to memory mapped port\"" nop .command "P1.portAdr = &P1_AltPort" .command "P1.trisAdr = &P1_AltTris" .command "P1.latAdr = &P1_AltLat" nop .assert "P1.port == 0x55 ,\"Failed - Unable to read port stimulus after remapping\"" nop ; note .assert "P1_Port == 0 ,\"Failed - Unable to restore register after port remapping\"" nop .assert "reg(&P1_Port) == 0 ,\"Failed - Unable to restore register after port remapping\"" nop .assert "reg(&P1_AltPort) == 0x55 ,\"Failed - Unable to remap port register a second time\"" nop .assert "\"*** PASSED 18F452 port test\"" bra $ FAILED: .assert "\"*** FAILED 18F452 port test\"" bra $ end gpsim-0.27.0/regression/rrr/0000775000076400007640000000000012210742356012721 500000000000000gpsim-0.27.0/regression/rrr/q2455.asm0000664000076400007640000000026712123721327014126 00000000000000list P=PIC18f2455 #include ORG 0 MAIN_LOOP: movlw 0x09 addlw 0x01 movlw 0 addwf PCL,F bsf PCL,1 clrf PCL nop goto MAIN_LOOP END gpsim-0.27.0/regression/rrr/q.asm0000664000076400007640000000022712123721337013603 00000000000000list P=PIC12F508 #include ORG 0 MAIN_LOOP: movlw 0 addwf PCL,F bsf PCL,0 clrf PCL nop goto MAIN_LOOP END gpsim-0.27.0/regression/rrr/netlist.stc0000664000076400007640000000010312122127253015023 00000000000000p18f2455.xpos = 48 p18f2455.ypos = 48 U1.xpos = 240 U1.ypos = 168 gpsim-0.27.0/regression/rrr/reset.asm0000644000076400007640000002170711522236707014475 00000000000000 ; 18f2455 gpsim regression test ; ; The purpose of this test is to verify that the 'C509 ; is implemented correctly. Here's a list of specific things ; tested: ; ; 1) Reset conditions ; 2) WDT ; 3) Sleep ; 4) Wakeup on PIN change. list p=18f2455 include include __CONFIG _CONFIG2H, _WDT_ON_2H radix dec ; Printf Command .command macro x .direct "C", x endm GPR_DATA UDATA ResetSequence RES 1 optionShadow RES 1 w_temp RES 1 status_temp RES 1 temp1 RES 1 GLOBAL optionShadow, ResetSequence ; Define the reset conditions to be checked. eRSTSequence_PowerOnReset equ 1 eRSTSequence_AwakeMCLR equ 2 eRSTSequence_AwakeWDT equ 3 eRSTSequence_AwakeIO equ 4 eRSTSequence_WDTTimeOut equ 5 ;---------------------------------------------------------------------- ; ********************* STARTUP LOCATION *************************** ;---------------------------------------------------------------------- START CODE 0x000 ; ;############################################################ ;# Create a stimulus to simulate a switch ; .sim "p18f2455.xpos = 84" .sim "p18f2455.ypos = 96" .sim "module lib libgpsim_modules" .sim "module load pulsegen P_INTF" .sim "module load pulsegen P_RBIF" .sim "module load pulsegen RESET" .sim "RESET.initial = 5.0" .sim "RESET.xpos = 84" .sim "RESET.ypos = 36" .sim "P_INTF.clear = 0" ; At cycle 0, .sim "P_INTF.set = 1" .sim "P_INTF.xpos = 240" .sim "P_INTF.ypos = 192" .sim "P_RBIF.clear = 0" ; At cycle 0, .sim "P_RBIF.set = 1" .sim "P_RBIF.xpos = 240" .sim "P_RBIF.ypos = 132" ;############################################################ .sim "node nINTF" .sim "attach nINTF portb0 P_INTF.pin" .sim "node nRBIF" .sim "attach nRBIF portb4 P_RBIF.pin" .sim "node nRESET" ; .sim "attach nRESET p16f84.MCLR RESET.pin" .sim "attach nRESET MCLR RESET.pin" ;############################################################ .sim "symbol resetCounter=1" ; NOT_GPWU = 0 - Enable wakeup if I/O pins 0,1, or 3 change states ; NOT_GPPU = 1 - Disable weak pullups on I/O pins 0,1, and 3 ; TOCS = 0 - Let the clock source for TMR0 be the internal fosc/4 ; TOSE = 0 - don't care - TMR0 source edge. ; PSA = 1 - assign Prescale to the WDT ; PS2:0 = 000 - prescale = 2^0=1 .sim "optionShadow=8" ; PSA=1 .sim "ResetSequence=0" .sim ".BreakOnReset = false" .sim "p18f2455.frequency=100000" ; Set a cycle break point far in the future in case the resets fail. .sim "break c 0x1000000" RESET_VECTOR CODE 0x000 ; processor reset vector .assert "(trisa&0x1f)==0x1f, \"*** FAILED 18f2455 reset bad TRISA\"" .assert "(trisb&0xff)==0xff, \"*** FAILED 18f2455 reset bad TRISB\"" movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x008 ; interrupt vector location movwf w_temp swapf STATUS,W movwf status_temp check_rbi: btfsc INTCON,RBIF btfss INTCON,RBIE goto check_int ; bsf temp5,1 ;Set a flag to indicate rb4-7 int occured bcf INTCON,RBIF movf PORTB,w check_int: btfsc INTCON,INT0IF btfss INTCON,INT0IE goto check_t0 ; bsf temp5,0 ;Set a flag to indicate rb0 int occured bcf INTCON,INT0IF check_t0: btfsc INTCON,T0IF btfss INTCON,T0IE goto exit_int ;; tmr0 has rolled over bcf INTCON,T0IF ; Clear the pending interrupt bsf temp1,0 ; Set a flag to indicate rollover exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie bSWITCH equ 0 ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE 0x100 start ; OPTION register setup MOVF optionShadow,W ;optionShadow is initialized by the gpsim script ; GPIO setup ; If this is a PowerOn reset, then the state of the GPIO output register ; is unknown. If this is not a PowerOn reset then the GPIO pins have ; the same state they had prior to the reset. ; ; TRIS register setup - The I/O pins are always configured as Inputs after ; any reset. nop goto highcode nop RB0 equ 0 RB4 equ 4 MOVLW (1< /MCLR while sleeping ; -or- Interrupt wake-up from sleep goto PowerOnReset ;/TO=1, /PD=1 ==> Power has just been applied TO_is_low BTFSS RCON,NOT_PD goto AwakeWDT ;/TO=0, /PD=0 ==> WDT while sleeping goto WDTTimeOut ;/TO=0, /PD=1 ==> WDT while not sleeping BTFSC INTCON, RBIF ;Did we just wake up from SLEEP due goto AwakeIO ;to a change in the I/O pins? ;======================================================================== ; ; PowerOnReset ; ;======================================================================== PowerOnReset: movf ResetSequence,W XORLW eRSTSequence_AwakeMCLR skpnz goto done movf PORTB,W ;Clear RBIF .assert "(intcon&1)==0, \"*** FAILED to clear INTCON\"" nop .assert "resetCounter==1,\"*** FAILED Power On Reset\"" nop MOVLW eRSTSequence_PowerOnReset MOVWF ResetSequence CLRWDT .command "resetCounter = resetCounter+1" SLEEP ; The WDT should cause a reset. So we shouldn't fall through ; (note, the instruction after the SLEEP should not be executed). ; RRR WDT will not cause a reset but will fall through nop ;RRR .command "resetCounter = resetCounter+1" nop ;======================================================================== ; ; AwakeWDT - WDT timed out while we were sleeping. ; ;======================================================================== AwakeWDT: .assert "resetCounter==2,\"*** FAILED WDT Reset\"" nop MOVLW eRSTSequence_AwakeWDT MOVWF ResetSequence .command "resetCounter = resetCounter+1" CLRWDT ; loop until WDT times out here: goto here ;======================================================================== ; ; WDTTimeOut - WatchDog timer timed out while we were awake. ; ;======================================================================== WDTTimeOut: .assert "resetCounter==3,\"*** FAILED WDT timeout\"" nop MOVLW eRSTSequence_WDTTimeOut MOVWF ResetSequence CLRWDT .command "P_RBIF.clear = cycles+100" nop ; Keep interrupts enabled, but turn on RBIE. Changes on ; RB4-RB7 should wake us from sleep MOVLW 1< include CONFIG WDT=OFF ;; CONFIG MCLRE=ON CONFIG LPT1OSC=OFF CONFIG PBADEN=OFF CONFIG CCP2MX=ON, FOSC = INTOSCIO_EC ;; __CONFIG _CONFIG2H, _WDT_OFF_2H errorlevel -302 radix dec BAUDHI equ ((100000/4)/48)-1 BAUDLO equ 129 ;---------------------------------------------------------------------- ; RAM Declarations ; INT_VAR UDATA 0x00 w_temp RES 1 status_temp RES 1 pclath_temp RES 1 GPR_DAT UDATA #define RX_BUF_SIZE 0x10 temp1 RES 1 temp2 RES 1 temp3 RES 1 tx_ptr RES 1 rxLastByte RES 1 rxFlag RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x018 ; interrupt vector location movwf w_temp swapf STATUS,w clrf STATUS movwf status_temp movf PCLATH,w movwf pclath_temp clrf PCLATH btfsc INTCON,PEIE btfss PIR1,RCIF goto int_done ;;; Received a Character .assert "rcreg == txreg, \"*** FAILED sent character looped back\"" nop movf RCREG,W movwf rxLastByte bsf rxFlag,0 int_done: clrf STATUS movf pclath_temp,w movwf PCLATH swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;; ---------------------------------------------------- ;; ;; start ;; MAIN CODE start .sim ".frequency=10e6" .sim "break c 0x100000" .sim "module library libgpsim_modules" .sim "module load usart U1" .sim ".xpos = 48" .sim ".ypos = 48" .sim "U1.xpos = 240.0" .sim "U1.ypos = 168" .sim "node PIC_tx" .sim "node PIC_rx" ;; Tie the USART module to the PIC .sim "attach PIC_tx portc6 U1.RXPIN" .sim "attach PIC_rx portc7 U1.TXPIN" ;; Set the USART module's Baud Rate .sim "U1.txbaud = 4800" .sim "U1.rxbaud = 4800" .sim "U1.loop = true" ;; USART Initialization ;; ;; Turn on the high baud rate (BRGH), disable the transmitter, ;; disable synchronous mode. ;; clrf STATUS bsf PORTC,6 ;Make sure the TX line drives high when ;it is programmed as an output. clrf TRISC ;RRR test bsf TRISC,6 ;RX is an input bsf TRISC,7 ;TX EUSART sets pin direction ;; CSRC - clock source is a don't care ;; TX9 - 0 8-bit data ;; TXEN - 0 don't enable the transmitter. ;; SYNC - 0 Asynchronous ;; BRGH - 1 Select high baud rate divisor ;; TRMT - x read only ;; TX9D - 0 not used movlw (1< 9 bits ; and < 10 bits or between 0.9375 and 1.041 msec. ; with oscillator at 20MHz and TMR0 / 64 expect between 73 and 81 ; TMR0 cycles. movf TMR0L,W .assert "tmr0 > 73 && tmr0 < 81, \"*** FAILED baud rate\"" nop clrf rxFlag call rx_loop ; Disable interrupts because the following tests don't give good receive bytes bcf PIE1,RCIE bsf TXSTA,SENDB ; request a break sequence btfss PORTC,6 ; Shouldn't happen just yet .assert "\"*** FAILED break sent too soon\"" nop clrf TMR0L movlw 0x55 movwf TXREG rcall delay btfsc PORTC,6 ; Should happen by now .assert "\"*** FAILED to send break\"" nop btfss PORTC,6 ; Wait for stop bit bra $-2 ; ; At 4800 baud each bit takes 0.208 msec. Output will be low for ; start + 12 bit times or 2.70 msec. With 10Mhz TMR0 / 64 is 106 TMR0 counts. movf TMR0L,W .assert "tmr0 > 101 && tmr0 < 111, \"*** FAILED sync pulse\"" nop done: .assert "\"*** PASSED E-Usart on 18F2455\"" goto $ tx_message: incf tx_ptr,w andlw 0x0f movwf tx_ptr addlw 0x30 return delay: decfsz temp2,f bra delay return TransmitNextByte: clrf rxFlag call tx_message movwf TXREG clrwdt rx_loop: btfss rxFlag,0 bra rx_loop ; clrf temp2 ; call delay ;; Delay between bytes. btfss PIR1,TXIF bra $-1 return end gpsim-0.27.0/regression/rrr/eusart_4455.asm0000664000076400007640000001513612122131065015324 00000000000000 ;; EUSART test ;; ;; The purpose of this program is to verify that gpsim's ;; USART functions properly when configured as an EUSART. ;; The USART module is used to loop ;; characters back to the receiver testing RCIF interupts. ;; ;; ;; list p=18f4455 include include CONFIG WDT=OFF ;; CONFIG MCLRE=ON CONFIG LPT1OSC=OFF CONFIG PBADEN=OFF CONFIG CCP2MX=ON, FOSC = INTOSCIO_EC ;; __CONFIG _CONFIG2H, _WDT_OFF_2H errorlevel -302 radix dec BAUDHI equ ((100000/4)/48)-1 BAUDLO equ 129 ;---------------------------------------------------------------------- ; RAM Declarations ; INT_VAR UDATA 0x00 w_temp RES 1 status_temp RES 1 pclath_temp RES 1 GPR_DAT UDATA #define RX_BUF_SIZE 0x10 temp1 RES 1 temp2 RES 1 temp3 RES 1 tx_ptr RES 1 rxLastByte RES 1 rxFlag RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x018 ; interrupt vector location movwf w_temp swapf STATUS,w clrf STATUS movwf status_temp movf PCLATH,w movwf pclath_temp clrf PCLATH btfsc INTCON,PEIE btfss PIR1,RCIF goto int_done ;;; Received a Character .assert "rcreg == txreg, \"*** FAILED sent character looped back\"" nop movf RCREG,W movwf rxLastByte bsf rxFlag,0 int_done: clrf STATUS movf pclath_temp,w movwf PCLATH swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;; ---------------------------------------------------- ;; ;; start ;; MAIN CODE start .sim ".frequency=10e6" .sim "break c 0x100000" .sim "module library libgpsim_modules" .sim "module load usart U1" .sim ".xpos = 48" .sim ".ypos = 48" .sim "U1.xpos = 240.0" .sim "U1.ypos = 168" .sim "node PIC_tx" .sim "node PIC_rx" ;; Tie the USART module to the PIC .sim "attach PIC_tx portc6 U1.RXPIN" .sim "attach PIC_rx portc7 U1.TXPIN" ;; Set the USART module's Baud Rate .sim "U1.txbaud = 4800" .sim "U1.rxbaud = 4800" .sim "U1.loop = true" ;; USART Initialization ;; ;; Turn on the high baud rate (BRGH), disable the transmitter, ;; disable synchronous mode. ;; clrf STATUS bsf PORTC,6 ;Make sure the TX line drives high when ;it is programmed as an output. clrf TRISC ;RRR test bsf TRISC,6 ;RX is an input bsf TRISC,7 ;TX EUSART sets pin direction ;; CSRC - clock source is a don't care ;; TX9 - 0 8-bit data ;; TXEN - 0 don't enable the transmitter. ;; SYNC - 0 Asynchronous ;; BRGH - 1 Select high baud rate divisor ;; TRMT - x read only ;; TX9D - 0 not used movlw (1< 9 bits ; and < 10 bits or between 0.9375 and 1.041 msec. ; with oscillator at 20MHz and TMR0 / 64 expect between 73 and 81 ; TMR0 cycles. movf TMR0L,W .assert "tmr0 > 73 && tmr0 < 81, \"*** FAILED baud rate\"" nop clrf rxFlag call rx_loop ; Disable interrupts because the following tests don't give good receive bytes bcf PIE1,RCIE bsf TXSTA,SENDB ; request a break sequence btfss PORTC,6 ; Shouldn't happen just yet .assert "\"*** FAILED break sent too soon\"" nop clrf TMR0L movlw 0x55 movwf TXREG rcall delay btfsc PORTC,6 ; Should happen by now .assert "\"*** FAILED to send break\"" nop btfss PORTC,6 ; Wait for stop bit bra $-2 ; ; At 4800 baud each bit takes 0.208 msec. Output will be low for ; start + 12 bit times or 2.70 msec. With 10Mhz TMR0 / 64 is 106 TMR0 counts. movf TMR0L,W .assert "tmr0 > 101 && tmr0 < 111, \"*** FAILED sync pulse\"" nop done: .assert "\"*** PASSED E-Usart on 18F4455\"" goto $ tx_message: incf tx_ptr,w andlw 0x0f movwf tx_ptr addlw 0x30 return delay: decfsz temp2,f bra delay return TransmitNextByte: clrf rxFlag call tx_message movwf TXREG clrwdt rx_loop: btfss rxFlag,0 bra rx_loop ; clrf temp2 ; call delay ;; Delay between bytes. btfss PIR1,TXIF bra $-1 return end gpsim-0.27.0/regression/rrr/16f628.lkr0000644000076400007640000000240312123722123014175 00000000000000// Sample linker command file for 16F628 // $Id: 16f628.lkr,v 1.9 2006/08/19 02:50:39 craigfranklin Exp $ LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page START=0x5 END=0x7FF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x217F PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x11F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x19F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xEF DATABANK NAME=gpr2 START=0x120 END=0x14F SHAREBANK NAME=gprnobnk START=0x70 END=0x7F SHAREBANK NAME=gprnobnk START=0xF0 END=0xFF SHAREBANK NAME=gprnobnk START=0x170 END=0x17F SHAREBANK NAME=gprnobnk START=0x1F0 END=0x1FF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/rrr/Makefile0000644000076400007640000000175112141137013014272 00000000000000 #EXTENDED_INSTRUCTIONS=1 include ../make.regression SCRIPT = 18f2455.lkr PROJECT = instructions OBJECTS = $(PROJECT).o OUTPUT = $(PROJECT).hex COD = $(PROJECT).cod STC = $(PROJECT).stc all : reset.cod eusart_2455.cod eusart_4455.cod q.cod q2455.cod dc628.cod stack.cod stack_reset.cod reset.cod: reset.o $(SCRIPT) gplink --map -s $(SCRIPT) -o reset.cod reset.o stack.cod: stack.o $(SCRIPT) gplink --map -s $(SCRIPT) -o stack.cod stack.o stack_reset.cod: stack_reset.o $(SCRIPT) gplink --map -s $(SCRIPT) -o stack_reset.cod stack_reset.o q2455.cod: q2455.o $(SCRIPT) gplink --map -s $(SCRIPT) -o q2455.cod q2455.o q.cod: q.o 12f508_g.lkr gplink --map -s 12f508_g.lkr -o q.cod q.o dc628.cod: dc628.o 16f628.lkr gplink --map -s 16f628.lkr -o dc628.cod dc628.o eusart_2455.cod: eusart_2455.o 18f2455.lkr gplink --map -s 18f2455.lkr -o eusart_2455.cod eusart_2455.o eusart_4455.cod: eusart_4455.o 18f2455.lkr gplink --map -s 18f2455.lkr -o eusart_4455.cod eusart_4455.o sim: gpsim-0.27.0/regression/rrr/stack_reset.asm0000644000076400007640000000537012141136725015655 00000000000000 ; 18f2455 gpsim regression test ; ; The purpose of this test is to verify that the 'C509 ; is implemented correctly. Here's a list of specific things ; tested: ; ; 1) Reset conditions ; 2) WDT ; 3) Sleep ; 4) Wakeup on PIN change. list p=18f2455 include include ;__CONFIG _CONFIG2H, _WDT_ON_2H CONFIG STVREN=ON, WDT=ON radix dec ; Printf Command .command macro x .direct "C", x endm GPR_DATA UDATA ResetSequence RES 1 optionShadow RES 1 w_temp RES 1 status_temp RES 1 temp1 RES 1 GLOBAL optionShadow, ResetSequence ; Define the reset conditions to be checked. eRSTSequence_PowerOnReset equ 1 eRSTSequence_AwakeMCLR equ 2 eRSTSequence_AwakeWDT equ 3 eRSTSequence_AwakeIO equ 4 eRSTSequence_WDTTimeOut equ 5 ;---------------------------------------------------------------------- ; ********************* STARTUP LOCATION *************************** ;---------------------------------------------------------------------- START CODE 0x000 ; ;############################################################ ;# Create a stimulus to simulate a switch ; RESET_VECTOR CODE 0x000 ; processor reset vector .assert "(trisa&0x1f)==0x1f, \"*** FAILED 18f2455 reset bad TRISA\"" .assert "(trisb&0xff)==0xff, \"*** FAILED 18f2455 reset bad TRISB\"" movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x008 ; interrupt vector location movwf w_temp swapf STATUS,W movwf status_temp exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie bSWITCH equ 0 ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE 0x100 start .sim ".BreakOnReset = false" btfsc STKPTR,STKUNF ; Stack undeflow has occured goto test_overflow btfsc STKPTR,STKFUL ; Stack overflow reset has occured goto finish return ; this should cause underflow and go to pc=0 .assert "\"***FAILED \"" nop test_overflow bcf STKPTR,STKUNF clrf temp1 call rrr finish .assert "\"TEST passed\"" nop rrr: incf temp1,F movf STKPTR,W btfss STKPTR,STKFUL ; Stack overflow has occured rcall rrr return end gpsim-0.27.0/regression/rrr/dc628.asm0000664000076400007640000000046112123727534014176 00000000000000list P=PIC16f628a #include include ORG 0 MAIN_LOOP: movlw 0x09 addlw 0x01 btfsc STATUS,DC goto BAD addlw 0x06 btfsc STATUS,DC goto OK BAD: .assert "\"DC set W -> 0x0a\"" nop OK: .assert "\"Test Passed\"" nop goto MAIN_LOOP END gpsim-0.27.0/regression/rrr/stack.asm0000644000076400007640000000512012141164601014436 00000000000000 ; 18f2455 gpsim regression test ; ; The purpose of this test is to verify the stack ; underflow and overflow conditions with STVREN off list p=18f2455 include include CONFIG STVREN=OFF, WDT=ON radix dec ; Printf Command .command macro x .direct "C", x endm GPR_DATA UDATA ResetSequence RES 1 optionShadow RES 1 w_temp RES 1 status_temp RES 1 temp1 RES 1 GLOBAL optionShadow, ResetSequence ; Define the reset conditions to be checked. eRSTSequence_PowerOnReset equ 1 eRSTSequence_AwakeMCLR equ 2 eRSTSequence_AwakeWDT equ 3 eRSTSequence_AwakeIO equ 4 eRSTSequence_WDTTimeOut equ 5 ;---------------------------------------------------------------------- ; ********************* STARTUP LOCATION *************************** ;---------------------------------------------------------------------- START CODE 0x000 ; ;############################################################ ;# Create a stimulus to simulate a switch ; RESET_VECTOR CODE 0x000 ; processor reset vector .assert "(trisa&0x1f)==0x1f, \"*** FAILED 18f2455 reset bad TRISA\"" .assert "(trisb&0xff)==0xff, \"*** FAILED 18f2455 reset bad TRISB\"" movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x008 ; interrupt vector location movwf w_temp swapf STATUS,W movwf status_temp exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie bSWITCH equ 0 ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE 0x100 start btfsc STKPTR,STKUNF ; Stack undeflow has occured goto test_overflow btfsc STKPTR,STKFUL ; Stack overflow reset has occured goto finish return ; this should cause underflow and go to pc=0 .assert "\"***FAILED \"" nop test_overflow bcf STKPTR,STKUNF clrf temp1 call rrr finish .assert "\"TEST passed\"" nop rrr: incf temp1,F movf STKPTR,W btfss STKPTR,STKFUL ; Stack overflow has occured rcall rrr return end gpsim-0.27.0/regression/rrr/12f508_g.lkr0000644000076400007640000000217412123452745014513 00000000000000// File: 12f508_g.lkr // Generic linker script for the PIC12F508 processor #DEFINE _CODEEND _DEBUGCODESTART - 1 #DEFINE _CEND _CODEEND + _DEBUGCODELEN #DEFINE _DATAEND _DEBUGDATASTART - 1 #DEFINE _DEND _DATAEND + _DEBUGDATALEN LIBPATH . #IFDEF _DEBUGCODESTART CODEPAGE NAME=page START=0x0 END=_CODEEND CODEPAGE NAME=debug START=_DEBUGCODESTART END=_CEND PROTECTED #ELSE CODEPAGE NAME=page START=0x0 END=0x1FF #FI CODEPAGE NAME=.idlocs START=0x200 END=0x203 PROTECTED CODEPAGE NAME=.config START=0xFFF END=0xFFF PROTECTED DATABANK NAME=sfrs START=0x0 END=0x6 PROTECTED #IFDEF _DEBUGDATASTART DATABANK NAME=gprs START=0x7 END=_DATAEND DATABANK NAME=dbgspr START=_DEBUGDATASTART END=_DEND PROTECTED #ELSE //no debug DATABANK NAME=gprs START=0x7 END=0x1F #FI SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations gpsim-0.27.0/regression/rrr/qq.asm0000644000076400007640000000575612141164653014000 00000000000000 ; 18f2455 gpsim regression test ; ; The purpose of this test is to verify that the 'C509 ; is implemented correctly. Here's a list of specific things ; tested: ; ; 1) Reset conditions ; 2) WDT ; 3) Sleep ; 4) Wakeup on PIN change. list p=18f2455 include include __CONFIG _CONFIG2H, _WDT_ON_2H CONFIG STRVEN=OFF radix dec ; Printf Command .command macro x .direct "C", x endm GPR_DATA UDATA ResetSequence RES 1 optionShadow RES 1 w_temp RES 1 status_temp RES 1 temp1 RES 1 GLOBAL optionShadow, ResetSequence ; Define the reset conditions to be checked. eRSTSequence_PowerOnReset equ 1 eRSTSequence_AwakeMCLR equ 2 eRSTSequence_AwakeWDT equ 3 eRSTSequence_AwakeIO equ 4 eRSTSequence_WDTTimeOut equ 5 ;---------------------------------------------------------------------- ; ********************* STARTUP LOCATION *************************** ;---------------------------------------------------------------------- START CODE 0x000 ; ;############################################################ ;# Create a stimulus to simulate a switch ; RESET_VECTOR CODE 0x000 ; processor reset vector .assert "(trisa&0x1f)==0x1f, \"*** FAILED 18f2455 reset bad TRISA\"" .assert "(trisb&0xff)==0xff, \"*** FAILED 18f2455 reset bad TRISB\"" movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x008 ; interrupt vector location movwf w_temp swapf STATUS,W movwf status_temp check_rbi: btfsc INTCON,RBIF btfss INTCON,RBIE goto check_int ; bsf temp5,1 ;Set a flag to indicate rb4-7 int occured bcf INTCON,RBIF movf PORTB,w check_int: btfsc INTCON,INT0IF btfss INTCON,INT0IE goto check_t0 ; bsf temp5,0 ;Set a flag to indicate rb0 int occured bcf INTCON,INT0IF check_t0: btfsc INTCON,T0IF btfss INTCON,T0IE goto exit_int ;; tmr0 has rolled over bcf INTCON,T0IF ; Clear the pending interrupt bsf temp1,0 ; Set a flag to indicate rollover exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie bSWITCH equ 0 ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE 0x100 start return call rrr rrr: call rrr return end gpsim-0.27.0/regression/rrr/18f2455.lkr0000644000076400007640000000235011212460646014267 00000000000000// File: 18f2455.lkr // Sample linker script for the PIC18F2455 processor // Not intended for use with MPLAB C18. For C18 projects, // use the linker scripts provided with that product. LIBPATH . CODEPAGE NAME=page START=0x0 END=0x5FFF CODEPAGE NAME=idlocs START=0x200000 END=0x200007 PROTECTED CODEPAGE NAME=config START=0x300000 END=0x30000D PROTECTED CODEPAGE NAME=devid START=0x3FFFFE END=0x3FFFFF PROTECTED CODEPAGE NAME=eedata START=0xF00000 END=0xF000FF PROTECTED ACCESSBANK NAME=accessram START=0x0 END=0x5F DATABANK NAME=gpr0 START=0x60 END=0xFF DATABANK NAME=gpr1 START=0x100 END=0x1FF DATABANK NAME=gpr2 START=0x200 END=0x2FF DATABANK NAME=gpr3 START=0x300 END=0x3FF DATABANK NAME=usb4 START=0x400 END=0x4FF PROTECTED DATABANK NAME=usb5 START=0x500 END=0x5FF PROTECTED DATABANK NAME=usb6 START=0x600 END=0x6FF PROTECTED DATABANK NAME=usb7 START=0x700 END=0x7FF PROTECTED ACCESSBANK NAME=accesssfr START=0xF60 END=0xFFF PROTECTED gpsim-0.27.0/regression/wavegen/0000775000076400007640000000000012210742356013550 500000000000000gpsim-0.27.0/regression/wavegen/pulsegen.stc0000644000076400007640000000002410434255043016015 00000000000000 load pulsegen.cod gpsim-0.27.0/regression/wavegen/pulsegen.asm0000644000076400007640000002275510525705325016027 00000000000000 ;; Pulse Generator ;; ;; Test gpsim's built in pulse generator module list p=16f877a include include __CONFIG _WDT_OFF errorlevel -302 radix dec ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA var1 RES 1 var2 RES 1 var3 RES 1 failures RES 1 status_temp RES 1 w_temp RES 1 interrupt_temp RES 1 GLOBAL var1,var2,var3,failures GLOBAL done ;; The capTime 16-bit register is a working register that keeps track ;; of the capture edge. capTimeH RES 1 capTimeL RES 1 capTimeHb RES 1 capTimeLb RES 1 GLOBAL capTimeH, capTimeL, capTimeHb, capTimeLb temp1 RES 1 temp2 RES 1 t1 RES 1 t2 RES 1 t3 RES 1 kz RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; Simulation Script .sim "module lib libgpsim_modules" .sim "module load pulsegen PG1" .sim "node nRC2" .sim "PG1.set = 0" .sim "PG1.clear = 0x200" .sim "PG1.period = 0x400" .sim "attach nRC2 PG1.pin portc2" ;---------------------------------------------------------------------- ; ******************* INTERRUPT VECTOR LOCATION ******************** ;---------------------------------------------------------------------- INT_VECTOR CODE 0x004 ; interrupt vector location ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp ;; Are peripheral interrupts enabled? btfss INTCON,PEIE goto exit_int bsf STATUS,RP0 movf PIE1 ^ 0x80,W bcf STATUS,RP0 movwf interrupt_temp check_tmr1: btfsc PIR1,TMR1IF btfss interrupt_temp,TMR1IE goto check_ccp1 ;; tmr1 has rolled over bcf PIR1,TMR1IF ; Clear the pending interrupt bsf temp1,0 ; Set a flag to indicate rollover check_ccp1: btfsc PIR1,CCP1IF btfss interrupt_temp,CCP1IE goto exit_int bcf PIR1,CCP1IF ; Clear the pending interrupt bsf temp1,1 ; Set a flag to indicate match exit_int: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start clrf failures ;Assume success. clrf kz ;kz == Known Zero. ;; disable (primarily) global and peripheral interrupts clrf INTCON ;; ;; CCP test ;; ;; The CCP module is intricately intertwined with the TMR1 ;; module. So first, let's initialize TMR1: ;; Clear all of the bits of the TMR1 control register: ;; this will: ;; Turn the tmr off ;; Select Fosc/4 as the clock source ;; Disable the External oscillator feedback circuit ;; Select a 1:1 prescale ;; In this mode, TMR1 will count instruction cycles. clrf T1CON ; clrf PIR1 ; Clear the interrupt/roll over flag ;; Zero TMR1 clrf TMR1L clrf TMR1H ;; Start the timer bsf T1CON,TMR1ON ccp_test1: movlw (1< 5 call ccpWaitForPORTC2_low call ccpWaitForPORTC2_high call ccpCaptureTwoEvents .assert "(capTimeL==0) && (capTimeH==4)" clrf temp1 ;Clear the software interrupt flag. incf CCP1CON,F ;Next mode --> 6 call ccpWaitForPORTC2_high call ccpCaptureTwoEvents .assert "(capTimeL==0) && (capTimeH==0x10)" clrf temp1 ;Clear the software interrupt flag. incf CCP1CON,F ;Next mode --> 7 call ccpWaitForPORTC2_high call ccpCaptureTwoEvents .assert "(capTimeL==0) && (capTimeH==0x40)" goto done ;------------------------------------------------------------------------ ;ccpCaptureTwoEvents ; ; Capture two events for the current CCP setting and return the time ; difference between them ccpCaptureTwoEvents: call ccpWaitForCapture movf CCPR1L,W movwf capTimeLb movf CCPR1H,W movwf capTimeHb call ccpWaitForCapture movf CCPR1L,W movwf capTimeL movf CCPR1H,W movwf capTimeH ; Subtract the time of the most recently captured edge from the previous one movf capTimeLb,W subwf capTimeL,F movf capTimeHb,W skpc incfsz capTimeHb,W subwf capTimeH,F return ;------------------------------------------------------------------------ ;ccpWaitForCapture ; ; Spin loop that polls an interrupt flag that is set whenever a capture ; interrupt triggers. ccpWaitForCapture: clrf t1 ;A 16-bit software timeout counter clrf t2 ccpWaitLoop: ;; The watchdog counter ensures we don't loop forever! call ccpWDCounter ;; ;; when an edge is captured, the interrupt routine will ;; set a flag: ;; btfss temp1,1 goto ccpWaitLoop bcf temp1,1 return ;------------------------------------------------------------------------ ccpWaitForPORTC2_high: btfsc PORTC,2 return call ccpWDCounter goto ccpWaitForPORTC2_high ccpWaitForPORTC2_low: btfss PORTC,2 return call ccpWDCounter goto ccpWaitForPORTC2_high ;------------------------------------------------------------------------ ; ccpWDCounter ; a 16bit watch dog counter is incremented by 1. If it rolls over then we failed. ccpWDCounter: incfsz t1,f return incfsz t2,f return goto failed ;If we get here then we haven't caught anything! ;Either a) there's a gpsim bug or b) the stimulus ;file is incorrect. ; movlw 1 ;This 16-bit software counter ; addwf t1,f ;will time out if there's something wrong, ; rlf kz,w ; addwf t2,f ; skpc ; return ;; ;; Compare ;; ;; Now for the compare mode. ccp_test2: goto done ;;########################################## clrf T1CON clrf TMR1L clrf TMR1H bsf STATUS,RP0 bcf PORTC,2 ;CCP bit is an output bcf STATUS,RP0 ;; Start off the compare mode by setting the output on a compare match ;; ;; ccp = 8 <- Set output on match ;; ccp = 9 <- Clear output on match ;; ccp = 10 <- Just set the ccp1if flag, but don't change the output ;; ccp = 11 <- Reset tmr1 on a match movlw 0x8 movwf CCP1CON ;; clrf PIR1 ;; Initialize the 16-bit compare register: movlw 0x34 movwf CCPR1L movlw 0x12 movwf CCPR1H ;; Clear the interrupt flag clrf temp1 tt3: ;; Stop and clear tmr1 clrf T1CON clrf TMR1L clrf TMR1H ;; Now start it bsf T1CON,TMR1ON ;; Wait for the interrupt routine to set the flag: btfss temp1,1 goto $-1 bcf temp1,1 ;; Try the next capture mode incf CCP1CON,F ;; If bit 2 of ccp1con is set then we're through with capture modes ;; (and are starting pwm modes) btfsc CCP1CON,2 goto done goto tt3 failed: .assert "\"*** FAILED Pulse Generator test\"" incf failures,F goto $ done: .assert "\"*** PASSED Pulse Generator test\"" goto $ end gpsim-0.27.0/regression/wavegen/Makefile0000644000076400007640000000030310563700443015122 00000000000000include ../make.regression all : pulsegen.cod pulsegen.cod : pulsegen.o gplink --map -s 16f877a.lkr -o $@ $^ sim: pulsegen pulsegen: pulsegen.cod $(GPSIM) -i -I $(STARTUP_STC) -D STC=$< gpsim-0.27.0/regression/wavegen/16f877a.lkr0000644000076400007640000000332010525705325015203 00000000000000// Sample linker command file for 16F877a and 876a // $Id: 16f877a.lkr 1828 2006-11-10 18:59:10Z borutr $ LIBPATH . CODEPAGE NAME=vectors START=0x0000 END=0x0004 PROTECTED CODEPAGE NAME=page0 START=0x0005 END=0x07FF CODEPAGE NAME=page1 START=0x0800 END=0x0FFF CODEPAGE NAME=page2 START=0x1000 END=0x17FF CODEPAGE NAME=page3 START=0x1800 END=0x1FFF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x21FF PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xEF DATABANK NAME=gpr2 START=0x110 END=0x16F DATABANK NAME=gpr3 START=0x190 END=0x1EF SHAREBANK NAME=gprnobnk START=0x70 END=0x7F SHAREBANK NAME=gprnobnk START=0xF0 END=0xFF SHAREBANK NAME=gprnobnk START=0x170 END=0x17F SHAREBANK NAME=gprnobnk START=0x1F0 END=0x1FF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG1 ROM=page0 // ROM code space - page0 SECTION NAME=PROG2 ROM=page1 // ROM code space - page1 SECTION NAME=PROG3 ROM=page2 // ROM code space - page2 SECTION NAME=PROG4 ROM=page3 // ROM code space - page3 SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/spi/0000775000076400007640000000000012210742356012707 500000000000000gpsim-0.27.0/regression/spi/16c62.lkr0000644000076400007640000000147410525705325014110 00000000000000// Sample linker command file for 16C62 // $Id: 16c62.lkr 1828 2006-11-10 18:59:10Z borutr $ LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page START=0x5 END=0x7FF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x7F DATABANK NAME=gpr1 START=0xA0 END=0xBF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location gpsim-0.27.0/regression/spi/p16f88.asm0000644000076400007640000001165210525705325014272 00000000000000 list p=16f88 include include __CONFIG _CONFIG1, _CP_OFF & _WDT_OFF & _INTRC_IO & _PWRTE_ON & _LVP_OFF & _BODEN_OFF & _MCLR_OFF __CONFIG _CONFIG2, _IESO_OFF & _FCMEN_OFF ;; The purpose of this program is to test gpsim's ability to simulate a pic 16F88. ;; Specifically, I2C errorlevel -302 ; Printf Command .command macro x .direct "C", x endm #define SDO_PORT PORTB,2 #define SDI_PORT PORTB,1 #define SCK_PORT PORTB,4 #define SS_PORT PORTB,5 #define SDO_TRIS TRISB,2 #define SDI_TRIS TRISB,1 #define SCK_TRIS TRISB,4 #define SS_TRIS TRISB,5 #define DRV_CLOCK PORTA,1 #define DRV_CLOCK_TRIS TRISA,1 ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR w_temp RES 1 status_temp RES 1 loopcnt RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp bcf STATUS,RP0 ;adcon0 is in bank 0 btfss INTCON,SSPIF goto check ; other Interrupts ; bsf _TIME_OUT_ ; MUST set this Flag bcf INTCON,SSPIF check: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "module lib libgpsim_modules" .sim "module load pu pu1" .sim "module load pu pu2" .sim "module load not not" ; .sim "p16f88.xpos = 132." ; .sim "p16f88.ypos = 96." .sim "not.xpos=96." .sim "not.ypos=216." .sim "pu1.xpos=228." .sim "pu1.ypos=216." .sim "node ss" .sim "attach ss portb5 porta2" ; Not SS .sim "node sck" .sim "attach sck portb4 porta1 pu1.pin" ; SCK .sim "node sdo" .sim "attach sdo not.in0 portb2 pu2.pin" .sim "node sdi" .sim "attach sdi portb1 not.out" bsf STATUS,RP0 ; bank 1 movlw 0xf6 ; set internal RC to 8 Mhz movwf OSCCON bcf SDO_TRIS ; SDO bcf SCK_TRIS ; SCK movlw 0xff movwf SSPSTAT .assert "sspstat == 0xC0, \"SPI sspstat only SMP, CKE writable\"" clrf SSPSTAT bcf STATUS,RP0 ; bank 0 ; ; Test SPI Master mode ; movlw 0x21 ; SSPEN | SPI master Fosc/16 movwf SSPCON bcf PIR1,SSPIF movlw 0xab movwf SSPBUF loop: btfss PIR1,SSPIF goto loop .assert "(sspstat & 1) == 1, \"FAILED SSP SPI Master BF not set\"" nop movf SSPBUF,W .assert "(sspstat & 1) == 0, \"FAILED SSP SPI Master BF not cleared\"" nop .assert "W == 0x54, \"FAILED SSP SPI Master wrong data\"" nop ; ; TEST SPI Slave mode with SS ; clrf SSPCON bsf STATUS,RP0 ; bank 1 bcf DRV_CLOCK_TRIS ; external SCK drive bsf SCK_TRIS ; SCK bsf SS_TRIS ; SS bcf STATUS,RP0 ; bank 0 bcf DRV_CLOCK movlw 0x24 ; SSPEN | SPI slave mode SS enable movwf SSPCON bcf PIR1,SSPIF movlw 0xab movwf SSPBUF bsf DRV_CLOCK bcf DRV_CLOCK movwf SSPBUF ; test WCOL set .assert "(sspcon & 0x80) == 0x80, \"SSP SPI WCOL set\"" nop bcf SSPCON,WCOL ; clear WCOL bit .assert "(sspcon & 0x80) == 0x00, \"SSP SPI WCOL was cleared\"" nop clrf loopcnt loop2: incf loopcnt,F bsf DRV_CLOCK bcf DRV_CLOCK btfss PIR1,SSPIF goto loop2 movf SSPBUF,W .assert "W == 0x54, \"FAILED SSP SPI Slave data\"" nop ; ; Test Slave receive overrun ; movlw 0x10 movwf loopcnt loop4: bsf DRV_CLOCK bcf DRV_CLOCK decfsz loopcnt,F goto loop4 .assert "(sspcon & 0x40) == 0x40, \"FAILED SSP SPI SSPOV\"" nop ; ; Test SPI Master mode TMR2 ; clrf SSPCON bsf STATUS,RP0 ; bank 1 bsf DRV_CLOCK_TRIS ; external SCK drive off bcf SCK_TRIS ; SCK output movlw 0x1 movwf PR2 bcf STATUS,RP0 ; bank 0 clrf TMR2 movlw 0x3C ; prescale = 1 postscale 16 movwf T2CON movlw 0x23 ; SSPEN | SPI master TMR2 movwf SSPCON bcf PIR1,SSPIF movlw 0xab movwf SSPBUF loop3: btfss PIR1,SSPIF goto loop3 .assert "(sspstat & 1) == 1, \"FAILED SSP SPI Master TMR2, BF not set\"" nop movf SSPBUF,W .assert "(sspstat & 1) == 0, \"FAILED SSP SPI Master TMR2, BF not cleared\"" nop .assert "W == 0x54, \"FAILED SSP SPI Master TMR2 wrong data\"" nop .assert "\"*** PASSED 16f88 SSP SPI test\"" goto $ end gpsim-0.27.0/regression/spi/Makefile0000644000076400007640000000063610563700442014271 00000000000000# PSP (Parallel Slave Port) module regression test # # include ../make.regression all : p16f88.cod p18f242.cod p16c62.cod p%.cod : p%.o gplink --map -s $*.lkr -o $@ $< sim: sim_p16f88 sim_p18f242 sim_p16c62 #sim_88: p16f88.cod # $(GPSIM) -i -c $(STARTUP_STC) -D STC=$< # #sim_242: p18f242.cod # $(GPSIM) -i -c $(STARTUP_STC) -D STC=$< # #sim_c62: p16c62.cod # $(GPSIM) -i -c $(STARTUP_STC) -D STC=$< # gpsim-0.27.0/regression/spi/16f88.lkr0000644000076400007640000000304110525705325014113 00000000000000// Sample linker command file for 16F88 LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page0 START=0x5 END=0x7FF CODEPAGE NAME=page1 START=0x800 END=0xFFF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.device_id START=0x2006 END=0x2006 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2009 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x21FF PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18F PROTECTED SHAREBANK NAME=sfrnobnk START=0x70 END=0x7F SHAREBANK NAME=sfrnobnk START=0xF0 END=0xFF SHAREBANK NAME=sfrnobnk START=0x170 END=0x17F SHAREBANK NAME=sfrnobnk START=0x1F0 END=0x1FF DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xEF DATABANK NAME=gpr2 START=0x110 END=0x16F DATABANK NAME=gpr3 START=0x190 END=0x1EF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG0 ROM=page0 // ROM code space SECTION NAME=PROG1 ROM=page1 // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=DEVICEID ROM=.device_id // Device ID SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/spi/p16c62.asm0000644000076400007640000001141110525705325014250 00000000000000 list p=16c62 include include __CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON ;; The purpose of this program is to test gpsim's ability to simulate a pic 16F88. ;; Specifically, SPI errorlevel -302 ; Printf Command .command macro x .direct "C", x endm #define SDO_PORT PORTC,5 #define SDI_PORT PORTC,4 #define SCK_PORT PORTC,3 #define SS_PORT PORTA,5 #define SDO_TRIS TRISC,5 #define SDI_TRIS TRISC,4 #define SCK_TRIS TRISC,3 #define SS_TRIS TRISA,5 #define DRV_CLOCK PORTA,1 #define DRV_CLOCK_TRIS TRISA,1 ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA w_temp RES 1 status_temp RES 1 loopcnt RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp bcf STATUS,RP0 ;adcon0 is in bank 0 btfss INTCON,SSPIF goto check ; other Interrupts ; bsf _TIME_OUT_ ; MUST set this Flag bcf INTCON,SSPIF check: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "module lib libgpsim_modules" .sim "module load pu pu1" .sim "module load pu pu2" .sim "module load not not" .sim "not.xpos=240." .sim "not.ypos=200." .sim "pu1.xpos=228." .sim "pu1.ypos=72." .sim "pu2.xpos=228." .sim "pu2.ypos=120." .sim "node ss" .sim "attach ss porta5 porta2" ; Not SS .sim "node sck" .sim "attach sck portc3 porta1 pu1.pin" ; SCK .sim "node sdo" .sim "attach sdo not.in0 portc5 pu2.pin" .sim "node sdi" .sim "attach sdi portc4 not.out" bsf STATUS,RP0 ; bank 1 bcf SDO_TRIS ; SDO bcf SCK_TRIS ; SCK movlw 0xff movwf SSPSTAT .assert "sspstat == 0x00, \"SPI BSSP sspstat not writable\"" clrf SSPSTAT bcf STATUS,RP0 ; bank 0 ; ; Test SPI Master mode ; movlw 0x21 ; SSPEN | SPI master Fosc/16 movwf SSPCON bcf PIR1,SSPIF movlw 0xab movwf SSPBUF loop: btfss PIR1,SSPIF goto loop .assert "(sspstat & 1) == 1, \"FAILED BSSP SPI Master BF not set\"" nop movf SSPBUF,W .assert "(sspstat & 1) == 0, \"FAILED BSSP SPI Master BF not cleared\"" nop .assert "W == 0x54, \"FAILED BSSP SPI Master wrong data\"" nop ; ; TEST SPI Slave mode with SS ; clrf SSPCON bsf STATUS,RP0 ; bank 1 bcf DRV_CLOCK_TRIS ; external SCK drive bsf SCK_TRIS ; SCK bsf SS_TRIS ; SS bcf STATUS,RP0 ; bank 0 bcf DRV_CLOCK movlw 0x24 ; SSPEN | SPI slave mode SS enable movwf SSPCON bcf PIR1,SSPIF movlw 0xab movwf SSPBUF bsf DRV_CLOCK bcf DRV_CLOCK movwf SSPBUF ; test WCOL set .assert "(sspcon & 0x80) == 0x80, \"FAILED BSSP SPI WCOL set\"" nop bcf SSPCON,WCOL ; clear WCOL bit .assert "(sspcon & 0x80) == 0x00, \"FAILED BSSP SPI WCOL was cleared\"" nop clrf loopcnt loop2: incf loopcnt,F bsf DRV_CLOCK bcf DRV_CLOCK btfss PIR1,SSPIF goto loop2 movf SSPBUF,W .assert "W == 0x54, \"FAILED BSSP SPI Slave data\"" nop ; ; Test Slave receive overrun ; movlw 0x10 movwf loopcnt loop4: bsf DRV_CLOCK bcf DRV_CLOCK decfsz loopcnt,F goto loop4 .assert "(sspcon & 0x40) == 0x40, \"FAILED BSSP SPI SSPOV\"" nop ; ; Test SPI Master mode TMR2 ; clrf SSPCON bsf STATUS,RP0 ; bank 1 bsf DRV_CLOCK_TRIS ; external SCK drive off bcf SCK_TRIS ; SCK output movlw 0x1 movwf PR2 bcf STATUS,RP0 ; bank 0 clrf TMR2 movlw 0x3C ; prescale = 1 postscale 16 movwf T2CON movlw 0x23 ; SSPEN | SPI master TMR2 movwf SSPCON bcf PIR1,SSPIF movlw 0xab movwf SSPBUF loop3: btfss PIR1,SSPIF goto loop3 .assert "(sspstat & 1) == 1, \"FAILED BSSP SPI Master TMR2, BF not set\"" nop movf SSPBUF,W .assert "(sspstat & 1) == 0, \"FAILED BSSP SPI Master TMR2, BF not cleared\"" nop .assert "W == 0x54, \"FAILED BSSP SPI Master TMR2 wrong data\"" nop .assert "\"*** PASSED 16c62 BSSP SPI test\"" goto $ end gpsim-0.27.0/regression/spi/p18f242.asm0000664000076400007640000001223611454166155014351 00000000000000 list p=18f242 include include ;; The purpose of this program is to test gpsim's ability to simulate a pic 16F88. ;; Specifically, SPI errorlevel -302 ; Printf Command .command macro x .direct "C", x endm #define SDO_PORT PORTC,5 #define SDI_PORT PORTC,4 #define SCK_PORT PORTC,3 #define SS_PORT PORTA,5 #define SDO_TRIS TRISC,5 #define SDI_TRIS TRISC,4 #define SCK_TRIS TRISC,3 #define SS_TRIS TRISA,5 #define DRV_CLOCK PORTA,1 #define DRV_CLOCK_TRIS TRISA,1 ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA w_temp RES 1 status_temp RES 1 loopcnt RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp btfss INTCON,SSPIF goto check ; other Interrupts ; bsf _TIME_OUT_ ; MUST set this Flag bcf INTCON,SSPIF check: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "module lib libgpsim_modules" .sim "module load pu pu1" .sim "module load pu pu2" .sim "module load not not" ; .sim "p16f88.xpos = 132." ; .sim "p16f88.ypos = 96." .sim "not.xpos=252." .sim "not.ypos=216." .sim "pu1.xpos=84." .sim "pu1.ypos=316." .sim "pu2.xpos=228." .sim "pu2.ypos=108." .sim "node ss" .sim "attach ss porta5 porta2" ; Not SS .sim "node sck" .sim "attach sck portc3 porta1 pu1.pin" ; SCK .sim "node sdo" .sim "attach sdo not.in0 portc5 pu2.pin" .sim "node sdi" .sim "attach sdi portc4 not.out" movlw 0xf6 ; set internal RC to 8 Mhz movwf OSCCON bcf SDO_TRIS ; SDO bcf SCK_TRIS ; SCK movlw 0xff movwf SSPSTAT .assert "sspstat == 0xC0, \"SPI sspstat only SMP, CKE writable\"" clrf SSPSTAT ; ; Test SPI Master mode ; movlw 0x21 ; SSPEN | SPI master Fosc/16 movwf SSPCON1 bcf PIR1,SSPIF movlw 0xab movwf SSPBUF loop: btfss PIR1,SSPIF goto loop .assert "(sspstat & 1) == 1, \"FAILED MSSP SPI Master BF not set\"" nop movf SSPBUF,W .assert "(sspstat & 1) == 0, \"FAILED MSSP SPI Master BF not cleared\"" nop .assert "W == 0x54, \"FAILED MSSP SPI Master wrong data\"" nop ; ; TEST SPI Slave mode with SS ; clrf SSPCON1 bcf DRV_CLOCK_TRIS ; external SCK drive bsf SCK_TRIS ; SCK bsf SS_TRIS ; SS bcf DRV_CLOCK movlw 0x24 ; SSPEN | SPI slave mode SS enable movwf SSPCON1 bcf PIR1,SSPIF movlw 0xab movwf SSPBUF bsf DRV_CLOCK bcf DRV_CLOCK movwf SSPBUF ; test WCOL set .assert "(sspcon & 0x80) == 0x80, \"FAILED MSSP SPI WCOL set\"" nop bcf SSPCON1,WCOL ; clear WCOL bit .assert "(sspcon & 0x80) == 0x00, \"FAILED MSSP SPI WCOL was cleared\"" nop clrf loopcnt loop2: incf loopcnt,F bsf DRV_CLOCK bcf DRV_CLOCK btfss PIR1,SSPIF goto loop2 movf SSPBUF,W .assert "W == 0x54, \"FAILED MSSP SPI Slave data\"" nop ; ; Test Slave receive overrun ; movlw 0x10 movwf loopcnt loop4: bsf DRV_CLOCK bcf DRV_CLOCK decfsz loopcnt,F goto loop4 .assert "(sspcon & 0x40) == 0x40, \"FAILED MSSP SPI SSPOV\"" nop ; ; Test SPI Master mode TMR2 ; clrf SSPCON1 bsf DRV_CLOCK_TRIS ; external SCK drive off bcf SCK_TRIS ; SCK output movlw 0x1 movwf PR2 clrf TMR2 movlw 0x3C ; prescale = 1 postscale 16 movwf T2CON movlw 0x23 ; SSPEN | SPI master TMR2 movwf SSPCON1 bcf PIR1,SSPIF movlw 0xab movwf SSPBUF loop3: btfss PIR1,SSPIF goto loop3 .assert "(sspstat & 1) == 1, \"FAILED MSSP SPI Master TMR2, BF not set\"" nop movf SSPBUF,W .assert "(sspstat & 1) == 0, \"FAILED MSSP SPI Master TMR2, BF not cleared\"" nop .assert "W == 0x54, \"FAILED MSSP SPI Master TMR2 wrong data\"" nop ; ; Test SPI Master mode with different clock phasing ; movlw 0x31 ; SSPEN | SPI master Fosc/16 / CKP=1 movwf SSPCON1 bsf SSPSTAT,CKE ; Delayed clock phasing bcf PIR1,SSPIF movlw 0xc9 movwf SSPBUF loop5: btfss PIR1,SSPIF goto loop5 .assert "(sspstat & 1) == 1, \"FAILED MSSP SPI Master BF not set\"" nop movf SSPBUF,W .assert "(sspstat & 1) == 0, \"FAILED MSSP SPI Master BF not cleared\"" nop .assert "W == 0x36, \"FAILED MSSP SPI Master (CKP) wrong data\"" nop .assert "\"*** PASSED 18f242 MSSP SPI test\"" goto $ end gpsim-0.27.0/regression/spi/18f242.lkr0000644000076400007640000000164110525705325014171 00000000000000// $Id: 18f242.lkr 1828 2006-11-10 18:59:10Z borutr $ // File: 18f242.lkr // Sample linker script for the PIC18F242 processor LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x29 PROTECTED CODEPAGE NAME=page START=0x2A END=0x3FFF CODEPAGE NAME=idlocs START=0x200000 END=0x200007 PROTECTED CODEPAGE NAME=config START=0x300000 END=0x30000D PROTECTED CODEPAGE NAME=devid START=0x3FFFFE END=0x3FFFFF PROTECTED CODEPAGE NAME=eedata START=0xF00000 END=0xF000FF PROTECTED ACCESSBANK NAME=accessram START=0x0 END=0x7F DATABANK NAME=gpr0 START=0x80 END=0xFF DATABANK NAME=gpr1 START=0x100 END=0x1FF DATABANK NAME=gpr2 START=0x200 END=0x2FF ACCESSBANK NAME=accesssfr START=0xF80 END=0xFFF PROTECTED SECTION NAME=CONFIG ROM=config gpsim-0.27.0/regression/wdt/0000775000076400007640000000000012210742356012712 500000000000000gpsim-0.27.0/regression/wdt/nwdt_16f88.asm0000644000076400007640000000265510724434462015156 00000000000000 ;; 16F88 WDT tests ;; ;; This regression test, tests the following WDT functions ;; WDT disabled by configuration word ;; WDT turned on by SWDTEN bit of WDTCON register list p=16f88 include "p16f88.inc" include .command macro x .direct "C", x endm __CONFIG _CONFIG1, _CP_OFF & _WDT_OFF & _INTRC_IO & _MCLR_OFF __CONFIG _CONFIG2, _IESO_OFF & _FCMEN_OFF cblock 0x20 temp tmp2 phase endc ORG 0 .sim "p16f88.BreakOnReset = false" .sim "break c 0x10000" .sim "p16f88.frequency=10000" btfss STATUS,NOT_TO goto wdt_reset ; Delay past time WDT expected to go off call delay1 call delay1 movlw 0x07 ; turn on WDT with prescale 256 banksel WDTCON movwf WDTCON banksel temp incf phase, F ; WDT should now go off in less than one delay call delay1 nop done: .assert "\"*** FAILED p16f88 SWDTEN did not turn on WDT\"" nop GOTO $ wdt_reset: btfss phase,0 goto FAILED .assert "(status & 0x18) == 0x08,\"*** FAILED 16f88 status after WDT Reset\"" nop .assert "\"*** PASSED p16f88 no WDT, SWDTEN\"" goto $ FAILED: .assert "\"*** FAILED p16f88 unexpected WDT triggered\"" nop goto $ ; delay about 1.85 seconds delay1 movlw 0x06 movwf tmp2 Oloop clrf temp ; LOOP1 decfsz temp, F goto LOOP1 decfsz tmp2,F goto Oloop return end gpsim-0.27.0/regression/wdt/nwdt_16f628.asm0000644000076400007640000000171210724434462015227 00000000000000 ;; 16F628 WDT tests ;; ;; This regression test, tests the following WDT functions ;; WDT disabled by configuration word list p=16f628 include "p16f628.inc" include .command macro x .direct "C", x endm __CONFIG _CP_OFF & _WDT_OFF & _INTRC_OSC_NOCLKOUT & _MCLRE_OFF cblock 0x20 temp tmp2 endc ORG 0 .sim "p16f628.BreakOnReset = false" .sim "p16f628.frequency = 10000" .sim "break c 0x10000" btfss STATUS,NOT_TO goto wdt_reset ; Delay past time WDT expected to go off call delay1 call delay1 done: .assert "\"*** PASSED p16f628 no WDT test\"" nop GOTO $ ; delay about 1.85 seconds delay1 movlw 0x06 movwf tmp2 Oloop clrf temp ; LOOP1 decfsz temp, F goto LOOP1 decfsz tmp2,F goto Oloop return wdt_reset: .assert "\"*** FAILED p16f628 unexpected WDT triggered\"" nop goto $ end gpsim-0.27.0/regression/wdt/nwdt_18f452.asm0000644000076400007640000000254510724434462015231 00000000000000 ;; 18F452 WDT tests ;; ;; This regression test, tests the following WDT functions ;; WDT disabled by configuration word ;; WDT turned on by SWDTEN bit of WDTCON register list p=18f452 include "p18f452.inc" include .command macro x .direct "C", x endm __CONFIG _CONFIG2H, _WDT_OFF_2H & _WDTPS_64_2H cblock 0x20 temp tmp2 phase endc ORG 0 .sim "p18f452.BreakOnReset = false" .sim "break c 0x10000" .sim "p18f452.frequency=10000" btfss RCON,NOT_TO goto wdt_reset ; Delay past time WDT expected to go off call delay1 call delay1 movlw 0x01 ; turn on WDT banksel WDTCON movwf WDTCON banksel temp incf phase, F ; WDT should now go off in less than one delay call delay1 nop done: .assert "\"*** FAILED p18f452 SWDTEN did not turn on WDT\"" nop GOTO $ wdt_reset: btfss phase,0 goto FAILED .assert "(rcon & 0x0c) == 0x04,\"*** FAILED 18f452 status after WDT Reset\"" nop .assert "\"*** PASSED p18f452 no WDT, SWDTEN\"" goto $ FAILED: .assert "\"*** FAILED p18f452 unexpected WDT triggered\"" nop goto $ ; delay about 1.85 seconds delay1 movlw 0x06 movwf tmp2 Oloop clrf temp ; LOOP1 decfsz temp, F goto LOOP1 decfsz tmp2,F goto Oloop return end gpsim-0.27.0/regression/wdt/16f648a.lkr0000664000076400007640000000310611560505775014354 00000000000000// Sample linker command file for 16F648A LIBPATH . CODEPAGE NAME=page0 START=0x0 END=0x7FF CODEPAGE NAME=page1 START=0x800 END=0xFFF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.devid START=0x2006 END=0x2006 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=.oscval START=0x2008 END=0x2008 PROTECTED CODEPAGE NAME=.test START=0x2009 END=0x200F PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x21FF PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x11F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x19F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xEF DATABANK NAME=gpr2 START=0x120 END=0x16F SHAREBANK NAME=gprnobnk START=0x70 END=0x7F SHAREBANK NAME=gprnobnk START=0xF0 END=0xFF PROTECTED SHAREBANK NAME=gprnobnk START=0x170 END=0x17F PROTECTED SHAREBANK NAME=gprnobnk START=0x1F0 END=0x1FF PROTECTED SECTION NAME=PROG1 ROM=page0 // ROM code space SECTION NAME=PROG2 ROM=page1 // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=DEVID ROM=.devid // device id SECTION NAME=OSCVAL ROM=.oscval // Oscillator value SECTION NAME=TEST ROM=.test // Test program memory SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/wdt/wdt_18f4620.asm0000664000076400007640000000360212162224367015130 00000000000000 ;; 18F452 WDT tests ;; ;; This regression test, tests the following WDT functions ;; WDT enabled by default without configuration word ;; clrwdt works ;; WDT wakes up sleep without reset ;; WDT causes reset ;; ;; The test assumes that the clock speed is about 10 kHz ;; list p=18f4620 include "p18f4620.inc" include .command macro x .direct "C", x endm cblock 0x20 temp tmp2 phase endc ORG 0 .sim "p18f4620.BreakOnReset = false" .sim "break c 0x10000" .sim "p18f4620.frequency=10000" ; are we seeing a WDT reset? btfss RCON,NOT_TO goto wdt_reset ; ; WDT should be about 2.3 seconds in gpsim with default postscaler of 128 ; (on real device may be soon as 0.9 sec) ; In the following test WDT should be longer then delay1, but shorter ; than twice delay1. The clrwdt thus prevents the WDT from going off. call delay1 clrwdt call delay1 ; ; During sleep, Ń–f the WDT goes off, PC = PC + 2 bcf T0CON,5 ; set tmr0 as timer movf TMR0L,W sleep .assert "(rcon & 0x0c) == 0x00,\"*** FAILED p18f4620 status after sleep\"" nop .assert "(tmr0l - W) <= 0x4,\"*** FAILED p18f4620 TMR0 stops during sleep\"" nop incf phase, F ; ; Test the WDT cause a reset in under 2 * delay1 clrwdt .assert "(rcon & 0x0c) == 0x0c,\"*** FAILED p18f4620 status after clrwdt\"" call delay1 call delay1 FAILED: .assert "\"*** FAILED p18f4620 no WDT reset\"" goto $ FAILED2: .assert "\"*** FAILED p18f4620 unexpected WDT reset\"" goto $ ; delay about 1.85 seconds delay1 movlw 0x06 movwf tmp2 Oloop clrf temp ; LOOP1 decfsz temp, F goto LOOP1 decfsz tmp2,F goto Oloop return wdt_reset: btfss phase,0 goto FAILED2 .assert "(rcon & 0x0c) == 0x04,\"*** FAILED p18f4620 status after WDT Reset\"" nop .assert "\"*** PASSED p18f4620 WDT\"" goto $ end gpsim-0.27.0/regression/wdt/18f4620.lkr0000644000076400007640000000315412065423264014261 00000000000000// File: 18f4620.lkr // Sample linker script for the PIC18F4620 processor // Not intended for use with MPLAB C18. For C18 projects, // use the linker scripts provided with that product. LIBPATH . CODEPAGE NAME=page START=0x0 END=0xFFFF CODEPAGE NAME=idlocs START=0x200000 END=0x200007 PROTECTED CODEPAGE NAME=config START=0x300000 END=0x30000D PROTECTED CODEPAGE NAME=devid START=0x3FFFFE END=0x3FFFFF PROTECTED CODEPAGE NAME=eedata START=0xF00000 END=0xF003FF PROTECTED ACCESSBANK NAME=accessram START=0x0 END=0x7F DATABANK NAME=gpr0 START=0x80 END=0xFF DATABANK NAME=gpr1 START=0x100 END=0x1FF DATABANK NAME=gpr2 START=0x200 END=0x2FF DATABANK NAME=gpr3 START=0x300 END=0x3FF DATABANK NAME=gpr4 START=0x400 END=0x4FF DATABANK NAME=gpr5 START=0x500 END=0x5FF DATABANK NAME=gpr6 START=0x600 END=0x6FF DATABANK NAME=gpr7 START=0x700 END=0x7FF DATABANK NAME=gpr8 START=0x800 END=0x8FF DATABANK NAME=gpr9 START=0x900 END=0x9FF DATABANK NAME=gpr10 START=0xA00 END=0xAFF DATABANK NAME=gpr11 START=0xB00 END=0xBFF DATABANK NAME=gpr12 START=0xC00 END=0xCFF DATABANK NAME=gpr13 START=0xD00 END=0xDFF DATABANK NAME=gpr14 START=0xE00 END=0xEFF DATABANK NAME=gpr15 START=0xF00 END=0xF7F ACCESSBANK NAME=accesssfr START=0xF80 END=0xFFF PROTECTED gpsim-0.27.0/regression/wdt/18f452.lkr0000644000076400007640000000200510724434462014174 00000000000000// $Id: 18f452.lkr 1458 2006-02-18 05:12:33Z sdattalo $ // File: 18f452.lkr // Sample linker script for the PIC18F452 processor LIBPATH . CODEPAGE NAME=page START=0x00 END=0x7FFF CODEPAGE NAME=idlocs START=0x200000 END=0x200007 PROTECTED CODEPAGE NAME=config START=0x300000 END=0x30000D PROTECTED CODEPAGE NAME=devid START=0x3FFFFE END=0x3FFFFF PROTECTED CODEPAGE NAME=eedata START=0xF00000 END=0xF000FF PROTECTED ACCESSBANK NAME=accessram START=0x0 END=0x7F DATABANK NAME=gpr0 START=0x80 END=0xFF DATABANK NAME=gpr1 START=0x100 END=0x1FF DATABANK NAME=gpr2 START=0x200 END=0x2FF DATABANK NAME=gpr3 START=0x300 END=0x3FF DATABANK NAME=gpr4 START=0x400 END=0x4FF DATABANK NAME=gpr5 START=0x500 END=0x5FF ACCESSBANK NAME=accesssfr START=0xF80 END=0xFFF PROTECTED SECTION NAME=CONFIG ROM=config gpsim-0.27.0/regression/wdt/16f628.lkr0000644000076400007640000000240310724434462014201 00000000000000// Sample linker command file for 16F628 // $Id: 16f628.lkr,v 1.9 2006/08/19 02:50:39 craigfranklin Exp $ LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page START=0x5 END=0x7FF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x217F PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x11F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x19F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xEF DATABANK NAME=gpr2 START=0x120 END=0x14F SHAREBANK NAME=gprnobnk START=0x70 END=0x7F SHAREBANK NAME=gprnobnk START=0xF0 END=0xFF SHAREBANK NAME=gprnobnk START=0x170 END=0x17F SHAREBANK NAME=gprnobnk START=0x1F0 END=0x1FF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/wdt/nwdt_16c64.asm0000644000076400007640000000164210724434462015140 00000000000000 ;; 16C64 WDT tests ;; ;; This regression test, tests the following WDT functions ;; WDT disabled by configuration word list p=16c64 include "p16c64.inc" include .command macro x .direct "C", x endm __CONFIG _WDT_OFF & _RC_OSC cblock 0x20 temp tmp2 endc ORG 0 .sim "p16c64.BreakOnReset = false" .sim "p16c64.frequency = 10000" .sim "break c 0x10000" btfss STATUS,NOT_TO goto wdt_reset ; Delay past time WDT expected to go off call delay1 call delay1 done: .assert "\"*** PASSED p16c64 no WDT test\"" nop GOTO $ ; delay about 1.85 seconds delay1 movlw 0x06 movwf tmp2 Oloop clrf temp ; LOOP1 decfsz temp, F goto LOOP1 decfsz tmp2,F goto Oloop return wdt_reset: .assert "\"*** FAILED p16c64 unexpected WDT triggered\"" nop goto $ end gpsim-0.27.0/regression/wdt/Makefile0000664000076400007640000000113612127371554014300 00000000000000# WDT module regression test # # include ../make.regression all : wdt_16f88.cod nwdt_16f88.cod wdt_16f628.cod nwdt_16f628.cod \ wdt_16c64.cod nwdt_16c64.cod wdt_18f452.cod nwdt_18f452.cod \ wdt_10f200.cod nwdt_16f648a.cod wdt_18f4620.cod nwdt_18f4620.cod p%.cod : p%.o gplink --map -s $*.lkr -o $@ $< wdt_%.cod : wdt_%.o gplink --map -s $*.lkr -o $@ $< nwdt_%.cod : nwdt_%.o gplink --map -s $*.lkr -o $@ $< sim: sim_wdt_16f88 sim_nwdt_16f88 sim_wdt_16f628 sim_nwdt_16f628 \ sim_wdt_16c64 sim_nwdt_16c64 sim_wdt_18f452 sim_nwdt_18f452 \ sim_wdt_10f200 sim_wdt_18f4620 sim_nwdt_18f4620 gpsim-0.27.0/regression/wdt/wdt_16f88.asm0000644000076400007640000000353411223066611014765 00000000000000 ;; 16F88 WDT tests ;; ;; This regression test, tests the following WDT functions ;; WDT enabled by default without configuration word ;; OPTION_REG Postscaler Rate select bits work ;; clrwdt works ;; WDT wakes up sleep without reset ;; WDT causes reset ;; ;; The test assumes that the clock speed is about 10 KHz ;; list p=16f88 include "p16f88.inc" include .command macro x .direct "C", x endm cblock 0x20 temp tmp2 phase endc ORG 0 .sim "p16f88.BreakOnReset = false" .sim "break c 0x10000" .sim "p16f88.frequency=10000" ; are we seeing a WDT reset? btfss STATUS,NOT_TO goto wdt_reset ; ; WDT should be about 2.3 seconds in gpsim with default postscaler of 128 ; (on real device may be soon as 0.9 sec) ; In the following test WDT should be longer then delay1, but shorter ; than twice delay1. The clrwdt thus prevents the WDT from going off. call delay1 clrwdt call delay1 ; ; My reading of the specs indicate sleep should continue (no reset) ; when the WDT goes off sleeps continue sleep nop .assert "(status & 0x18) == 0x00,\"*** FAILED 16f88 status after sleep\"" nop incf phase, F ; ; Test the WDT cause a reset in under 2 * delay1 clrwdt .assert "(status & 0x18) == 0x18,\"*** FAILED 16f88 status after clrwdt\"" nop call delay1 call delay1 FAILED: .assert "\"*** FAILED p16f88 no WDT reset\"" goto $ FAILED2: .assert "\"*** FAILED p16f88 unexpected WDT reset\"" goto $ ; delay about 1.85 seconds delay1 movlw 0x06 movwf tmp2 Oloop clrf temp ; LOOP1 decfsz temp, F goto LOOP1 decfsz tmp2,F goto Oloop return wdt_reset: btfss phase,0 goto FAILED2 .assert "(status & 0x18) == 0x08,\"*** FAILED 16f88 status after WDT Reset\"" nop .assert "\"*** PASSED p16f88 WDT\"" goto $ end gpsim-0.27.0/regression/wdt/wdt_18f452.asm0000664000076400007640000000357412162224367015057 00000000000000 ;; 18F452 WDT tests ;; ;; This regression test, tests the following WDT functions ;; WDT enabled by default without configuration word ;; clrwdt works ;; WDT wakes up sleep without reset ;; WDT causes reset ;; ;; The test assumes that the clock speed is about 10 kHz ;; list p=18f452 include "p18f452.inc" include .command macro x .direct "C", x endm cblock 0x20 temp tmp2 phase endc ORG 0 .sim "p18f452.BreakOnReset = false" .sim "break c 0x10000" .sim "p18f452.frequency=10000" ; are we seeing a WDT reset? btfss RCON,NOT_TO goto wdt_reset ; ; WDT should be about 2.3 seconds in gpsim with default postscaler of 128 ; (on real device may be soon as 0.9 sec) ; In the following test WDT should be longer then delay1, but shorter ; than twice delay1. The clrwdt thus prevents the WDT from going off. call delay1 clrwdt call delay1 ; ; During sleep, Ń–f the WDT goes off, PC = PC + 2 bcf T0CON,5 ; set tmr0 as timer movf TMR0L,W sleep nop .assert "(rcon & 0x0c) == 0x00,\"*** FAILED p18f452 status after sleep\"" nop .assert "(tmr0l - W) <= 0x4,\"*** FAILED p18f452 TMR0 stops during sleep\"" nop incf phase, F ; ; Test the WDT cause a reset in under 2 * delay1 clrwdt .assert "(rcon & 0x0c) == 0x0c,\"*** FAILED p18f452 status after clrwdt\"" call delay1 call delay1 FAILED: .assert "\"*** FAILED p18f452 no WDT reset\"" goto $ FAILED2: .assert "\"*** FAILED p18f452 unexpected WDT reset\"" goto $ ; delay about 1.85 seconds delay1 movlw 0x06 movwf tmp2 Oloop clrf temp ; LOOP1 decfsz temp, F goto LOOP1 decfsz tmp2,F goto Oloop return wdt_reset: btfss phase,0 goto FAILED2 .assert "(rcon & 0x0c) == 0x04,\"*** FAILED p18f452 status after WDT Reset\"" nop .assert "\"*** PASSED p18f452 WDT\"" goto $ end gpsim-0.27.0/regression/wdt/16c64.lkr0000644000076400007640000000140110724434462014105 00000000000000// Sample linker command file for 16C64 // $Id: 16c64.lkr,v 1.9 2006/08/19 02:50:37 craigfranklin Exp $ LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page START=0x5 END=0x7FF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x7F DATABANK NAME=gpr1 START=0xA0 END=0xBF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations gpsim-0.27.0/regression/wdt/nwdt_16f648a.asm0000664000076400007640000000171611560506101015365 00000000000000 ;; 16F648 WDT tests ;; ;; This regression test, tests the following WDT functions ;; WDT disabled by configuration word list p=16f648a include "p16f648a.inc" include .command macro x .direct "C", x endm __CONFIG _CP_OFF & _WDT_OFF & _INTRC_OSC_NOCLKOUT & _MCLRE_OFF cblock 0x20 temp tmp2 endc ORG 0 .sim "p16f648a.BreakOnReset = false" .sim "p16f648a.frequency = 10000" .sim "break c 0x10000" btfss STATUS,NOT_TO goto wdt_reset ; Delay past time WDT expected to go off call delay1 call delay1 done: .assert "\"*** PASSED p16f648 no WDT test\"" nop GOTO $ ; delay about 1.85 seconds delay1 movlw 0x06 movwf tmp2 Oloop clrf temp ; LOOP1 decfsz temp, F goto LOOP1 decfsz tmp2,F goto Oloop return wdt_reset: .assert "\"*** FAILED p16f648 unexpected WDT triggered\"" nop goto $ end gpsim-0.27.0/regression/wdt/10f200.lkr0000664000076400007640000000070511560506045014156 00000000000000// Sample linker command file for 10F200 LIBPATH . CODEPAGE NAME=page START=0x0 END=0xFF CODEPAGE NAME=.idlocs START=0x100 END=0x103 PROTECTED CODEPAGE NAME=.config START=0xFFF END=0xFFF PROTECTED DATABANK NAME=sfrs START=0x0 END=0x07 PROTECTED DATABANK NAME=gprs START=0x10 END=0x1F SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations gpsim-0.27.0/regression/wdt/16f88.lkr0000644000076400007640000000304110724434462014120 00000000000000// Sample linker command file for 16F88 LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page0 START=0x5 END=0x7FF CODEPAGE NAME=page1 START=0x800 END=0xFFF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.device_id START=0x2006 END=0x2006 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2009 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x21FF PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18F PROTECTED SHAREBANK NAME=sfrnobnk START=0x70 END=0x7F SHAREBANK NAME=sfrnobnk START=0xF0 END=0xFF SHAREBANK NAME=sfrnobnk START=0x170 END=0x17F SHAREBANK NAME=sfrnobnk START=0x1F0 END=0x1FF DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xEF DATABANK NAME=gpr2 START=0x110 END=0x16F DATABANK NAME=gpr3 START=0x190 END=0x1EF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG0 ROM=page0 // ROM code space SECTION NAME=PROG1 ROM=page1 // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=DEVICEID ROM=.device_id // Device ID SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/wdt/wdt_16c64.asm0000644000076400007640000000353410724434462014764 00000000000000 ;; 16C64 WDT tests ;; ;; This regression test, tests the following WDT functions ;; WDT enabled by default without configuration word ;; OPTION_REG Postscaler Rate select bits work ;; clrwdt works ;; WDT wakes up sleep without reset ;; WDT causes reset ;; ;; The test assumes that the clock speed is about 10 KHz ;; list p=16c64 include "p16c64.inc" include .command macro x .direct "C", x endm cblock 0x20 temp tmp2 phase endc ORG 0 .sim "p16c64.BreakOnReset = false" .sim "break c 0x10000" .sim "p16c64.frequency=10000" ; are we seeing a WDT reset? btfss STATUS,NOT_TO goto wdt_reset ; ; WDT should be about 2.3 seconds in gpsim with default postscaler of 128 ; (on real device may be soon as 0.9 sec) ; In the following test WDT should be longer then delay1, but shorter ; than twice delay1. The clrwdt thus prevents the WDT from going off. call delay1 clrwdt call delay1 ; ; My reading of the specs indicate sleep should continue (no reset) ; when the WDT goes off sleeps continue sleep nop .assert "(status & 0x18) == 0x00,\"*** FAILED 16c64 status after sleep\"" nop incf phase, F ; ; Test the WDT cause a reset in under 2 * delay1 clrwdt .assert "(status & 0x18) == 0x18,\"*** FAILED 16c64 status after clrwdt\"" nop call delay1 call delay1 FAILED: .assert "\"*** FAILED p16c64 no WDT reset\"" goto $ FAILED2: .assert "\"*** FAILED p16c64 unexpected WDT reset\"" goto $ ; delay about 1.85 seconds delay1 movlw 0x06 movwf tmp2 Oloop clrf temp ; LOOP1 decfsz temp, F goto LOOP1 decfsz tmp2,F goto Oloop return wdt_reset: btfss phase,0 goto FAILED2 .assert "(status & 0x18) == 0x08,\"*** FAILED 16c64 status after WDT Reset\"" nop .assert "\"*** PASSED p16c64 WDT\"" goto $ end gpsim-0.27.0/regression/wdt/wdt_10f200.asm0000664000076400007640000000354411560506101015021 00000000000000 ;; 10F200 WDT tests ;; ;; This regression test, tests the following WDT functions ;; WDT enabled by default without configuration word ;; OPTION_REG Postscaler Rate select bits work ;; clrwdt works ;; WDT wakes up sleep without reset ;; WDT causes reset ;; ;; The test assumes that the clock speed is about 10 KHz ;; list p=10f200 include "p10f200.inc" include .command macro x .direct "C", x endm cblock 0x10 temp tmp2 phase endc ORG 0 .sim "p10f200.BreakOnReset = false" .sim "break c 0x10000" .sim "p10f200.frequency=10000" ; are we seeing a WDT reset? btfss STATUS,NOT_TO goto wdt_reset ; ; WDT should be about 2.3 seconds in gpsim with default postscaler of 128 ; (on real device may be soon as 0.9 sec) ; In the following test WDT should be longer then delay1, but shorter ; than twice delay1. The clrwdt thus prevents the WDT from going off. call delay1 clrwdt call delay1 ; ; My reading of the specs indicate ; when the WDT goes off during sleep then reset sleep nop .assert "(status & 0x18) != 0x00,\"*** FAILED 10f200 WDT continue after sleep\"" nop next_phase: incf phase, F ; ; Test the WDT cause a reset in under 2 * delay1 clrwdt .assert "(status & 0x18) == 0x18,\"*** FAILED 10f200 status after clrwdt\"" nop call delay1 call delay1 FAILED: .assert "\"*** FAILED p10f200 no WDT reset\"" goto $ FAILED2: .assert "\"*** FAILED p10f200 unexpected WDT reset\"" goto $ ; delay about 1.85 seconds delay1 movlw 0x06 movwf tmp2 Oloop clrf temp ; LOOP1 decfsz temp, F goto LOOP1 decfsz tmp2,F goto Oloop return wdt_reset: btfss phase,0 goto next_phase .assert "(status & 0x18) == 0x08,\"*** FAILED 10f200 status after WDT Reset\"" nop .assert "\"*** PASSED p10f200 WDT\"" goto $ end gpsim-0.27.0/regression/wdt/nwdt_18f4620.asm0000644000076400007640000000255612065423203015303 00000000000000 ;; 18F4620 WDT tests ;; ;; This regression test, tests the following WDT functions ;; WDT disabled by configuration word ;; WDT turned on by SWDTEN bit of WDTCON register list p=18f4620 include "p18f4620.inc" include .command macro x .direct "C", x endm __CONFIG _CONFIG2H, _WDT_OFF_2H & _WDTPS_64_2H cblock 0x20 temp tmp2 phase endc ORG 0 .sim "p18f4620.BreakOnReset = false" .sim "break c 0x10000" .sim "p18f4620.frequency=10000" btfss RCON,NOT_TO goto wdt_reset ; Delay past time WDT expected to go off call delay1 call delay1 movlw 0x01 ; turn on WDT banksel WDTCON movwf WDTCON banksel temp incf phase, F ; WDT should now go off in less than one delay call delay1 nop done: .assert "\"*** FAILED p18f4620 SWDTEN did not turn on WDT\"" nop GOTO $ wdt_reset: btfss phase,0 goto FAILED .assert "(rcon & 0x0c) == 0x04,\"*** FAILED 18f4620 status after WDT Reset\"" nop .assert "\"*** PASSED p18f4620 no WDT, SWDTEN\"" goto $ FAILED: .assert "\"*** FAILED p18f4620 unexpected WDT triggered\"" nop goto $ ; delay about 1.85 seconds delay1 movlw 0x06 movwf tmp2 Oloop clrf temp ; LOOP1 decfsz temp, F goto LOOP1 decfsz tmp2,F goto Oloop return end gpsim-0.27.0/regression/wdt/wdt_16f628.asm0000644000076400007640000000354710724434462015061 00000000000000 ;; 16F628 WDT tests ;; ;; This regression test, tests the following WDT functions ;; WDT enabled by default without configuration word ;; OPTION_REG Postscaler Rate select bits work ;; clrwdt works ;; WDT wakes up sleep without reset ;; WDT causes reset ;; ;; The test assumes that the clock speed is about 10 KHz ;; list p=16f628 include "p16f628.inc" include .command macro x .direct "C", x endm cblock 0x20 temp tmp2 phase endc ORG 0 .sim "p16f628.BreakOnReset = false" .sim "break c 0x10000" .sim "p16f628.frequency=10000" ; are we seeing a WDT reset? btfss STATUS,NOT_TO goto wdt_reset ; ; WDT should be about 2.3 seconds in gpsim with default postscaler of 128 ; (on real device may be soon as 0.9 sec) ; In the following test WDT should be longer then delay1, but shorter ; than twice delay1. The clrwdt thus prevents the WDT from going off. call delay1 clrwdt call delay1 ; ; My reading of the specs indicate sleep should continue (no reset) ; when the WDT goes off sleeps continue sleep nop .assert "(status & 0x18) == 0x00,\"*** FAILED 16f628 status after sleep\"" nop incf phase, F ; ; Test the WDT cause a reset in under 2 * delay1 clrwdt .assert "(status & 0x18) == 0x18,\"*** FAILED 16f628 status after clrwdt\"" nop call delay1 call delay1 FAILED: .assert "\"*** FAILED p16f628 no WDT reset\"" goto $ FAILED2: .assert "\"*** FAILED p16f628 unexpected WDT reset\"" goto $ ; delay about 1.85 seconds delay1 movlw 0x06 movwf tmp2 Oloop clrf temp ; LOOP1 decfsz temp, F goto LOOP1 decfsz tmp2,F goto Oloop return wdt_reset: btfss phase,0 goto FAILED2 .assert "(status & 0x18) == 0x08,\"*** FAILED 16f628 status after WDT Reset\"" nop .assert "\"*** PASSED p16f628 WDT\"" goto $ end gpsim-0.27.0/regression/breakpoints/0000775000076400007640000000000012210742355014434 500000000000000gpsim-0.27.0/regression/breakpoints/breakpoints.stc0000644000076400007640000000011410416271500017375 00000000000000 # simple script to load and start the simulation load s breakpoints.cod gpsim-0.27.0/regression/breakpoints/Makefile0000644000076400007640000000052510563700450016013 00000000000000include ../make.regression SCRIPT = 16f873.lkr PROJECT = breakpoints OBJECTS = $(PROJECT).o OUTPUT = $(PROJECT).hex COD = $(PROJECT).cod STC = $(PROJECT).stc all : $(OUTPUT) $(OUTPUT) $(COD) : $(OBJECTS) $(SCRIPT) gplink --map -s $(SCRIPT) -o $(OUTPUT) $(OBJECTS) sim: $(COD) $(GPSIM) -i -I $(STARTUP_STC) -D STC="breakpoints.stc" gpsim-0.27.0/regression/breakpoints/breakpoints.asm0000644000076400007640000000477010563700450017404 00000000000000 ;; Breakpoints.asm ;; ;; The purpose of this program is to test gpsim's ;; breakpoints. ;; ;; ;; list p=16f873 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros __CONFIG (_CP_OFF & _WDT_ON & _BODEN_ON & _PWRTE_ON & _HS_OSC & _WRT_ENABLE_ON & _LVP_OFF & _CPD_OFF) errorlevel -302 ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA var1 RES 1 var2 RES 1 var3 RES 1 failures RES 1 GLOBAL var1,var2,var3,failures GLOBAL done ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start clrf var1 clrf var2 clrf var3 call delay .assert "var1==0" incf var1,F ;This write will cause a break .assert "var1==4" movf var1,W movlw 50 movwf var3 L_StopWatchDelayTest: call delay decfsz var3,F goto L_StopWatchDelayTest passed: clrf failures done: ; If no expression is specified, then break unconditionally .assert "\"*** PASSED breakpoint test\"" goto done delay: goto $+1 goto $+1 return ; Don't let the simulation run forever. .sim "break c 0x10000" .sim "step 6" .sim "echo Breakpoints:" .sim "break" .sim "break w var1" .sim "run" .sim "var1=4" .sim "echo stepping over breakpoint" .sim "step" .sim "trace 5" .sim "stopwatch.enable = true" .sim "stopwatch.rollover = 300" .sim "break stopwatch" ;, \"Hit stopwatch breakpoint\"" .sim "run" ; This run will take us to the stopwatch break .sim "run" ; This run will take us to the done label end gpsim-0.27.0/regression/breakpoints/16f873.lkr0000644000076400007640000000530410416271500015717 00000000000000//********************************************************************* // * // Software License Agreement * // * // The software supplied herewith by Microchip Technology * // Incorporated (the "Company") for its PICmicro® Microcontroller * // is intended and supplied to you, the Company’s customer, for use * // solely and exclusively on Microchip PICmicro Microcontroller * // products. The software is owned by the Company and/or its * // supplier, and is protected under applicable copyright laws. All * // rights are reserved. Any use in violation of the foregoing * // restrictions may subject the user to criminal sanctions under * // applicable laws, as well as to civil liability for the breach of * // the terms and conditions of this license. * // * // THIS SOFTWARE IS PROVIDED IN AN "AS IS" CONDITION. NO * // WARRANTIES, WHETHER EXPRESS, IMPLIED OR STATUTORY, INCLUDING, * // BUT NOT LIMITED TO, IMPLIED WARRANTIES OF MERCHANTABILITY AND * // FITNESS FOR A PARTICULAR PURPOSE APPLY TO THIS SOFTWARE. THE * // COMPANY SHALL NOT, IN ANY CIRCUMSTANCES, BE LIABLE FOR SPECIAL, * // INCIDENTAL OR CONSEQUENTIAL DAMAGES, FOR ANY REASON WHATSOEVER. * // * //********************************************************************* // File: 16f873.lkr // Linker Script file, modified // Date: 06/07/2000 // Modified 7/18/2000 -.RLF LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x70 PROTECTED CODEPAGE NAME=page0 START=0x71 END=0x7FF CODEPAGE NAME=page1 START=0x800 END=0xFFF PROTECTED CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x7F DATABANK NAME=gpr1 START=0xA0 END=0xFF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG1 ROM=page0 // ROM code space - page0 SECTION NAME=PROG2 ROM=page1 // ROM code space - page1 SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location gpsim-0.27.0/regression/resistor/0000775000076400007640000000000012210742356013766 500000000000000gpsim-0.27.0/regression/resistor/Makefile0000644000076400007640000000046010563700447015350 00000000000000include ../make.regression SCRIPT = 16f873.lkr PROJECT = resistor OBJECTS = $(PROJECT).o OUTPUT = $(PROJECT).hex COD = $(PROJECT).cod all : $(OUTPUT) $(OUTPUT) $(COD) : $(OBJECTS) $(SCRIPT) gplink --map -s $(SCRIPT) -o $(OUTPUT) $(OBJECTS) sim: $(COD) $(GPSIM) -i -I $(STARTUP_STC) -D STC="$<" gpsim-0.27.0/regression/resistor/resistor.asm0000644000076400007640000000760111210233055016252 00000000000000 ;; Resistor test ;; ;; The purpose of this program is to verify that gpsim's ;; resistor modules function. ;; ;; ;; list p=16f873 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros __CONFIG (_CP_OFF & _WDT_ON & _BODEN_ON & _PWRTE_ON & _HS_OSC & _WRT_ENABLE_ON & _LVP_OFF & _CPD_OFF) errorlevel -302 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start .sim "module library libgpsim_modules" .sim "module load pu pu1" .sim "pu1.xpos = 220." .sim "pu1.ypos = 40." .sim "module load pd pd1" .sim "pd1.xpos = 72." .sim "pd1.ypos = 300." ; .sim "pu1.resistance=1000." .sim "pd1.resistance=3900." .sim "node A" .sim "attach A porta0 porta1 pu1.pin" .sim "node B" .sim "attach B porta2 portb0 pd1.pin" ; ; the following test for a core dump bug ; .sim "node C" .sim "attach C pd1" nop ; Turn off the A2D converter and make PORTA's I/O's digital: bsf STATUS,RP0 movlw (1< ; processor specific variable definitions include ; Grab some useful macros ;------------------------------------------------------------------------ ; gpsim command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA temp RES 1 temp1 RES 1 temp2 RES 1 GLOBAL done ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE ;---------------------------------------------------------------------- ; gpsim configuration script ; ; The configuration environment consists of a switch SW1 connecting ; portb0 and portc0 to portc1. Resistors on either side of the switch ; ensure that the nodes are never floating and allow the switch voltage ; to be checked. ; ; SW2.A is connected to the same node as SW1.A and SW2.B is connected to ; portc2. This allows checking of 2 switch infinite regression bug. ; ; Portb0 is used to drive the switch while portc 0-2 monitor the results ; ; PU1 SW1 ; | A \ B ; portb0 >--+--+----O \O-----+--> portc1 ; | | ; portc0 <--+ | ; | A \ B PD1 ; |-----O \O----------> portc2 ; SW2 ; ; The pull up and pull down resistors are modelled as parallel RC networks: ; ; ; 5V ; ^ x ; | | ; +--+--+ +--+--+ ; | | | | ; R \ === C R \ === C ; / | / | ; | | | | ; +--+--+ +--+--+ ; | | ; x /// ; ; Pull up Pull Down ; ; The 'x' is connection point. ; ;# Module libraries: .sim "module library libgpsim_modules" ;# The processor's reference designator is U1 .sim "U1.xpos = 48.0" .sim "U1.ypos = 36.0" .sim "module load switch SW1" .sim "SW1.state=false" .sim "SW1.xpos = 216.0" .sim "SW1.ypos = 156.0" .sim "SW1.Ropen = 1.0e8" .sim "module load pullup PU1" .sim "PU1.resistance=1.0e8" .sim "PU1.capacitance=2.00e-07" .sim "PU1.xpos = 204.0" .sim "PU1.ypos = 36.0" .sim "module load pulldown PD1" .sim "PD1.resistance=5000." .sim "PD1.capacitance=4.00e-06" .sim "PD1.xpos = 204.0" .sim "PD1.ypos = 96.0" .sim "module load switch SW2" .sim "SW2.state=open" .sim "SW2.xpos = 216.0" .sim "SW2.ypos = 228.0" .sim "SW2.Ropen = 1.0e6" ;# Connections: .sim "node nb0" .sim "attach nb0 SW1.A portb0 portc0 PU1.pin SW2.A" .sim "node nc0" .sim "attach nc0 SW1.B PD1.pin portc1" .sim "node nc1" .sim "attach nc1 SW2.B portc2" .sim "frequency 10.0e6" ;# Scope monitoring .sim "scope.ch0=\"portb0\"" .sim "scope.ch1=\"portc0\"" .sim "scope.ch2=\"portc1\"" .sim "scope.ch3=\"portc2\"" ;# End of configuration ; ;------------------------------------------------------------------------ start BSF STATUS,RP0 movlw 0x07 ; RC2,RC1 and RC0 are inputs movwf TRISC CLRF TRISB^0x80 ;Port B is an output BCF STATUS,RP0 ; The switch is open and portb0 is driving one side of it and portc0. ; The other side goes to portc1 and is pulled up by the pullup resistor ; Toggling portb0 should have no effect on portc1 BCF PORTB,0 ; both sides of switch should be 0 .assert "(portc & 3) == 0, \"SW open, both sides 0\"" nop BSF PORTB,0 .assert "(portc & 3) == 1, \"SW open, drive high\"" ; drive side only high nop ; Close the switch because of capacitance portc1 will go high after a delay: ; R=145, C=4.2e-6 TC=6.11e-4 or 1527 cycles 0-2 volts requires 0.51 Tc .command "SW1.state=true" nop ; portc0 should be same as portc1 .assert "(portc & 3) == 0, \"SW1 closed, cap holds low\"" nop nop movlw 1 ; wait 1280 cycles call delay nop .assert "(portc & 3) == 3, \"Sw1 closed, after < 1TC\"" nop movlw 8 ; let voltage go all the way high call delay ; drive portb low, voltages should from ~5 to 1 volts in 1.6 TC ; or 2443 cycles, but because of RC step need 3 delay loops BCF PORTB,0 ; change drive voltage movlw 3 call delay .assert "(portc & 3) == 0, \"drive low 1.6TC\"" ; both sides now low nop movlw 6 ; let voltages go to 0 call delay ; ; test capacitance delay on drive transition ; BSF PORTB,0 ; drive high again movlw 9 call delay .assert "(portc & 3) == 3, \"prepare switch open\"" ; make sure both sides are high nop ; Open the switch, the time constant for the floating side is 0.02 sec. ; At 10 MHz oscillator frequency the time constant is 50,000 instruction ; cycles. To go from 5 to 0.5 volts requires 2.3 time constants or ; 1.15e5 cycles. As delay loop is 1277 want to delay 90 loops (5A hex). ; Note, although 1 Volt is the h2l transition voltage at 1.6 time constants, ; we miss this. ; ; The drive side time constant is 150 * 2e-7 = 3e-5 sec or 75 cycles ; so drive side goes low as soon as drive does. ; .command "SW1.state=false" nop ; driven side still driven, floating side ; held by capacitance. .assert "(portc & 3) == 3, \"SW1 open driving high\"" nop BCF PORTB,0 .assert "(portc & 3) == 2, \" SW1 open driving low\"" nop movlw 0x29 ; delay 52,480 cycles call delay .assert "(portc & 3) == 2, \"SW1 open float still high\"" nop movlw 0x31 ; delay another 62,720 cycles call delay nop .assert "(portc & 3) == 0, \"SW1 open float low after 115215 cycles\"" nop ; Turn off Capacitance to test DC behaviour ; .command "PD1.capacitance=0.0" nop .command "PU1.capacitance=0." nop .assert "(portc & 3) == 0" nop BSF PORTB,0 ; Drive one side of switch high .assert "(portc & 3) == 1, \"Drive side high C=0\"" nop ; Close the switch: .command "SW1.state=true" nop .assert "(portc & 3) == 3, \"Both sides high C=0\"" nop BCF PORTB,0 .assert "(portc & 3) == 0, \"Both sides low C=0\"" nop ; Close the SW2 switch, portc2 should be same as portc0 and portc1 BSF PORTB,0 ; Drive one side of switch high .command "SW2.state=closed" nop .assert "(portc & 7) == 7, \"2 Switch drive high\"" nop BCF PORTB,0 .assert "(portc & 7) == 0, \"2 switch drive low\"" nop ; Now test very large switch resistance .command "SW1.state=false" nop .command "SW2.state=open" nop BCF PORTB,0 .assert "(portc & 3) == 0, \"Both sides low C=0 Starting Large Ron\"" nop .command "SW1.Rclosed=1e4" nop .command "PD1.capacitance=0.50e-06" nop .assert "(portc & 3) == 0, \"SW1.Rclosed = 10k\"" nop .command "SW1.state=true" ; Now with the switch closed, the switch resistance and ; the pull down resistance form a voltage divider: ; ; 10k ; portb0 -----/\/\/\---+----+------ portc0 ; \ | ; / | ; 5k \ === 4uF ; / | ; | | ; /// /// ; ; When portb0 is driven to 5.0V, portc0 will rise to 5/3=1.66V BSF PORTB,0 ; Drive one side of switch high movlw 30 call delay BCF PORTB,0 ; Drive the switch low again movlw 30 call delay ; Remove the pull down resistor by making its value very large ; Now when we drive portb0 high, the other side can rise to 5.0V .command "PD1.resistance=1.0e8" nop BSF PORTB,0 ; Drive one side of switch high movlw 9 call delay BCF PORTB,0 ; Drive the switch low again movlw 9 call delay nop done: .assert "\"*** PASSED Switch Test on 16f877\"" goto $ FAILED: .assert "\"*** FAILED Switch Test on 16f877\"" goto $ delay ; W=9 = delay about 11,500 cycles or 1.2 ms at 10 Mhz clrwdt movwf temp2 clrf temp1 delay_loop decfsz temp1,f goto $+2 decfsz temp2,f goto delay_loop return end gpsim-0.27.0/regression/switch_test/16f877.lkr0000644000076400007640000000330510416271534015750 00000000000000// Sample linker command file for 16F877 // $Id: 16f877.lkr 1351 2005-11-12 16:18:52Z sdattalo $ LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page0 START=0x5 END=0x7FF CODEPAGE NAME=page1 START=0x800 END=0xFFF CODEPAGE NAME=page2 START=0x1000 END=0x17FF CODEPAGE NAME=page3 START=0x1800 END=0x1FFF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x21FF PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xEF DATABANK NAME=gpr2 START=0x110 END=0x16F DATABANK NAME=gpr3 START=0x190 END=0x1EF SHAREBANK NAME=gprnobnk START=0x70 END=0x7F SHAREBANK NAME=gprnobnk START=0xF0 END=0xFF SHAREBANK NAME=gprnobnk START=0x170 END=0x17F SHAREBANK NAME=gprnobnk START=0x1F0 END=0x1FF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG1 ROM=page0 // ROM code space - page0 SECTION NAME=PROG2 ROM=page1 // ROM code space - page1 SECTION NAME=PROG3 ROM=page2 // ROM code space - page2 SECTION NAME=PROG4 ROM=page3 // ROM code space - page3 SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/README0000644000076400007640000000644310416271572012724 00000000000000Regression tests for gpsim Introduction ------------ The purpose of the regression tests is to ensure that gpsim works. Basic elements like instruction simulation and breakpoints are verified. In addition when new bugs are found and fixed, specific tests are created to ensure that future versions of gpsim are not infected. Each regression test or a collection of similar regression tests occupies a subdirectory that is child of this README's directory. The item(s) to be tested are placed into their own .asm file. This file is assembled by gpasm and simulated by gpsim and then the results are "analyzed" by a script. Once the .asm file is created, the whole process becomes automatic. However, the regression files need to adhere to a format that is understood by the scripts. Running ------- If you want to perform a regression test with the default set up then run: On *nix: ./run_regression.sh On WIN32 + Cygwin from the shell: ./run_regression.sh '/cygdrive/c/Program Files/gpsim/bin' (You may need to change the file to an executable [chmod +x]). This should step through each test and print PASS or FAIL results. The 'run_regression.sh' script consists of a list of regression tests that are to be tested. Each of these is a single line that invokes the secondary script 'rt.sh'. This script takes two parameters: the directory containing the regression test and the name of the Makefile target the test should invoke. Typically there is a 'sim' target. So an example of rt.sh action would be: cd node_test make sim Files needed for a regression test ---------------------------------- Each test requires a .asm file and a .stc file. The .asm file contains the assembly code (of course) and the .stc file contains startup commands that allow you to configure your simulation environment for your test. For example, if your test involves measuring the width of a pulse then you'll want to create an asynchronous stimulus to generate the pulse. If there are no special startup conditions, then the .stc file can be really simple. For example, 14-bit core instruction test .stc file contains only: # simple script to load the simulation load s instructions_14bit.cod It's also possible to embed gpsim scripts directly in the assembly source files. See the logic_test/ regression test for an example. Assembly file format -------------------- The assembly file must be in the relocatable code format. The reason is because gpsim makes use of gpasm directives that are only available in this format. The assembly file can contain anything you want. However, to simplify the parsing of the results there must be an assertion that contains the string "*** PASSED". For example, something like this: .assert ",\"*** PASSED MidRange core interrupt test\"" This assertion should be placed in the assembly file at an instruction that executes only after all of the tests have completed. (Note, this type of assertion has no break condition expression - so therefore it will always assert and gpsim will halt the simulation when this is encountered. The message will be printed to stdout.) Makefiles --------- In addition to the Assembly File format, there must also be a Makefile in each regression directory. This Makefile can be anything you want, but at some point there must be a make target that can invoke gpsim. gpsim-0.27.0/regression/logic_test/0000775000076400007640000000000012210742355014247 500000000000000gpsim-0.27.0/regression/logic_test/logic_test.stc0000644000076400007640000000011310416271522017026 00000000000000 # simple script to load and start the simulation load s logic_test.cod gpsim-0.27.0/regression/logic_test/Makefile0000644000076400007640000000046110563700443015627 00000000000000include ../make.regression SCRIPT = 16f873.lkr PROJECT = logic_test OBJECTS = $(PROJECT).o OUTPUT = $(PROJECT).hex COD = $(PROJECT).cod all : $(OUTPUT) $(OUTPUT) $(COD) : $(OBJECTS) $(SCRIPT) gplink --map -s $(SCRIPT) -o $(OUTPUT) $(OBJECTS) sim: $(COD) $(GPSIM) -i -I $(STARTUP_STC) -D STC="$<" gpsim-0.27.0/regression/logic_test/logic_test.asm0000644000076400007640000001512010644005155017021 00000000000000 ;; Logic test ;; ;; The purpose of this program is to verify that gpsim's ;; Logic modules function. ;; ;; ;; list p=16f873 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros __CONFIG (_CP_OFF & _WDT_ON & _BODEN_ON & _PWRTE_ON & _HS_OSC & _WRT_ENABLE_ON & _LVP_OFF & _CPD_OFF) errorlevel -302 ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA var1 RES 1 var2 RES 1 var3 RES 1 failures RES 1 GLOBAL var1,var2,var3,failures GLOBAL done ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start clrf var1 clrf var2 clrf var3 bsf STATUS,RP0 clrf TRISA^0x80 ;Port A is an output clrf TRISB^0x80 ;Port B is an output movlw 0xff movwf TRISC^0x80 ;Port C is an input ; Turn off the A2D converter and make PORTA's I/O's digital: movlw (1<>2) | (porta>>1) | porta) & 1)" btfss PORTA,3 goto L_OrCheck ; AND Gate check. ; U3_or ; portb3 ---|-+ U4_or ; |& )----|-+ ; portb4 ---|-+ |& )---+ ; +--|-+ | ; portb5 --------+ | ; | ; portc1 ------------------+ ; .sim "node nb3" .sim "attach nb3 U3_and.in0 portb3" .sim "node nb4" .sim "attach nb4 U3_and.in1 portb4" .sim "node n3_4" .sim "attach n3_4 U3_and.out U4_and.in0" .sim "node nb5" .sim "attach nb5 U4_and.in1 portb5" .sim "node nc1" .sim "attach nc1 U4_and.out portc1" ; Loop through the 8 states: L_AndCheck movlw 1<<3 addwf PORTB,F .assert "((portc>>1) & 1) == ( ((portb>>5) & (portb>>4) & (portb>>3)) & 1)" movf PORTB,W andlw b'111000' skpz goto L_AndCheck ; xor Gate check. ; U1_xor ; portb0 ---))-\ U2_xor ; ))^ )---))-\ ; portb1 ---))-/ ))^ )--+ ; +--))-/ | ; portb2 --------+ | ; | ; portc2 ------------------+ ; .sim "node nb0" .sim "attach nb0 U1_xor.in0 portb0" .sim "node nb1" .sim "attach nb1 U1_xor.in1 portb1" .sim "node n1_2" .sim "attach n1_2 U1_xor.out U2_xor.in0" .sim "node nb2" .sim "attach nb2 U2_xor.in1 portb2" .sim "node nc2" .sim "attach nc2 U2_xor.out portc2" ; Loop through the 8 states: L_XorCheck: incf PORTB,F .assert "((portc>>2) & 1) == ( ((portb>>2) ^ (portb>>1) ^ portb) & 1)" btfss PORTB,3 goto L_XorCheck ; Not Gate test ; U7_not ; |\ ; portb6 ---| O-----+ ; |/ | ; portc3 -----------+ ; ; U8_not U9_not ; |\ |\ ; portb7 ---| O-----| O---+ ; |/ |/ | ; portc4 -----------------+ ; .sim "node nb6" .sim "attach nb6 U7_not.in0 portb6" .sim "node nc3" .sim "attach nc3 U7_not.out portc3" bsf PORTB, 6 ;(don't need to do this...) .assert "((portc>>3) & 1) == ( ((portb>>6) & 1)^1)" bcf PORTB, 6 .assert "((portc>>3) & 1) == ( ((portb>>6) & 1)^1)" nop .sim "node nb7" .sim "attach nb7 U8_not.in0 portb7" .sim "node n7_8" .sim "attach n7_8 U8_not.out U9_not.in0" .sim "node nc4" .sim "attach nc4 U9_not.out portc4" bsf PORTB, 7 ;(don't need to do this...) .assert "((portc>>4) & 1) == ( ((portb>>7) & 1))" bcf PORTB, 7 .assert "((portc>>4) & 1) == ( ((portb>>7) & 1))" nop passed: clrf failures done: ; If no expression is specified, then break unconditionally #define UNRELEASED_GPASM ifdef UNRELEASED_GPASM .assert "\"*** PASSED Logic Module test\"" else .assert "" endif goto done nop end end gpsim-0.27.0/regression/logic_test/16f873.lkr0000644000076400007640000000530410416271522015536 00000000000000//********************************************************************* // * // Software License Agreement * // * // The software supplied herewith by Microchip Technology * // Incorporated (the "Company") for its PICmicro® Microcontroller * // is intended and supplied to you, the Company’s customer, for use * // solely and exclusively on Microchip PICmicro Microcontroller * // products. The software is owned by the Company and/or its * // supplier, and is protected under applicable copyright laws. All * // rights are reserved. Any use in violation of the foregoing * // restrictions may subject the user to criminal sanctions under * // applicable laws, as well as to civil liability for the breach of * // the terms and conditions of this license. * // * // THIS SOFTWARE IS PROVIDED IN AN "AS IS" CONDITION. NO * // WARRANTIES, WHETHER EXPRESS, IMPLIED OR STATUTORY, INCLUDING, * // BUT NOT LIMITED TO, IMPLIED WARRANTIES OF MERCHANTABILITY AND * // FITNESS FOR A PARTICULAR PURPOSE APPLY TO THIS SOFTWARE. THE * // COMPANY SHALL NOT, IN ANY CIRCUMSTANCES, BE LIABLE FOR SPECIAL, * // INCIDENTAL OR CONSEQUENTIAL DAMAGES, FOR ANY REASON WHATSOEVER. * // * //********************************************************************* // File: 16f873.lkr // Linker Script file, modified // Date: 06/07/2000 // Modified 7/18/2000 -.RLF LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x70 PROTECTED CODEPAGE NAME=page0 START=0x71 END=0x7FF CODEPAGE NAME=page1 START=0x800 END=0xFFF PROTECTED CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x7F DATABANK NAME=gpr1 START=0xA0 END=0xFF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG1 ROM=page0 // ROM code space - page0 SECTION NAME=PROG2 ROM=page1 // ROM code space - page1 SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location gpsim-0.27.0/regression/eeprom_wide/0000775000076400007640000000000012210742355014412 500000000000000gpsim-0.27.0/regression/eeprom_wide/Makefile0000644000076400007640000000051110563700462015767 00000000000000include ../make.regression SCRIPT = 16f873.lkr PROJECT = eeprom_wide OBJECTS = $(PROJECT).o OUTPUT = $(PROJECT).hex COD = $(PROJECT).cod STC = $(PROJECT).stc all : $(OUTPUT) $(OUTPUT) $(COD) : $(OBJECTS) $(SCRIPT) gplink --map -s $(SCRIPT) -o $(OUTPUT) $(OBJECTS) sim: $(COD) $(GPSIM) -i -I $(STARTUP_STC) -D STC=$(STC) gpsim-0.27.0/regression/eeprom_wide/eeprom_wide.asm0000644000076400007640000001337110416271530017334 00000000000000 list p=p16f873 radix dec ; ; Test EEPROM and FLASH program single byte reads and writes. ; on 16f873 which uses wide mode __config _WDT_OFF include "p16f873.inc" include ; Grab some useful macros cblock 0x20 ; bank 0 and 2 adr_cnt data_cnt status_temp datah datal ee_int endc ; W shadowing for interrupts ; When an interrupt occurs, we don't know what the current bank settings ; are. The solution here is to declare two temporaries that have the ; same base address. That way we don't need to worry about the bank setting. cblock 0x70 w_temp ; W is stored here during interrupts if the ; bank bits point to bank 0 or 2 endc cblock 0xf0 w_temp_shadow ; W is stored here during interrupts if the ; bank bits point to bank 0 or 2 endc ;;======================================================================== ;;======================================================================== ; ; Start ; org 0 goto start org 4 ;;************** ;; Interrupt ;;************* movwf w_temp swapf STATUS,W clrf STATUS ;Bank 0 movwf status_temp btfss PIR2,EEIF goto check ;;; eeprom has interrupted bcf PIR2,EEIE incf ee_int,F goto i_ret check: .assert "\"*** FAILED wide EEPROM unexpected interrupt\"" nop i_ret: clrf STATUS ;bank 0 swapf status_temp,W movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;;************* ;; end of interrupt ;;************* start: clrf STATUS ;Point to Bank 0 clrf adr_cnt clrf data_cnt ; bsf INTCON,EEIE bsf INTCON,PEIE bsf INTCON,GIE bsf STATUS,RP0 ;Bank 1 bsf PIR2,EEIE bcf STATUS,RP0 ;Bank 0 ; ; write to EEPROM starting at EEPROM address 0 ; value of address as data using interrupts to ; determine write complete. ; read and verify data l1: bcf PIR2,EEIF movf adr_cnt,W clrf ee_int bcf STATUS,RP0 bsf STATUS,RP1 ;Bank 2 movwf EEADR ^ 0x100 movf data_cnt,W movwf EEDATA ^ 0x100 bcf INTCON,GIE ;Disable interrupts while enabling write bsf STATUS,RP0 ; Bank 3 bcf (EECON1 ^ 0x180),EEPGD ;Point to data Memory bsf (EECON1 ^ 0x180),WREN ;Enable eeprom writes movlw 0x55 ;Magic sequence to enable eeprom write movwf (EECON2 ^ 0x180) movlw 0xaa movwf (EECON2 ^ 0x180) bsf (EECON1 ^ 0x180),WR ;Begin eeprom write bsf INTCON,GIE ;Re-enable interrupts clrf STATUS ; Bank 0 movf ee_int,W skpnz goto $-2 ; ; read what we just wrote ; movf adr_cnt,W bsf STATUS,RP1 bcf STATUS,RP0 ; Bank 2 movwf EEADR bsf STATUS,RP0 ; Bank 3 bcf EECON1,EEPGD ; point ot data memory bsf EECON1,RD ; start read operation bcf STATUS,RP0 ; Bank 2 movf EEDATA,W ; Read data clrf STATUS ; Bank 0 xorwf data_cnt,W ; did we read what we wrote ? skpz goto fail incf adr_cnt,W andlw 0x7f movwf adr_cnt movwf data_cnt skpz goto l1 goto flash fail: .assert "\"*** FAILED wide EEPROM Compare written and read\"" goto $ ; ; test program FLASH read and writes ; read low program memory (0x00XX) ; write to higher memory (0x01XX) ; read and compare higher memory (0x1XX) flash: bsf STATUS,RP1 bcf STATUS,RP0 ; Bank 2 loop_prg: ; ; read low memory 0x00XX ; bsf STATUS,RP1 bcf STATUS,RP0 ; Bank 2 movwf adr_cnt movwf EEADR clrf EEADRH bsf STATUS,RP0 ; Bank 3 bsf EECON1,EEPGD ; point to program memory bsf EECON1,RD ; start read operation nop nop bcf STATUS,RP0 ; Bank 2 movf EEDATA,W ; save read data movwf datal movf EEDATH,W movwf datah ; ; Write to High address (0x01XX) data alredy in EEDATA, EEDATAH ; movlw 0x01 movwf EEADRH movf adr_cnt,W movwf EEADR ^ 0x100 bcf INTCON,GIE ;Disable interrupts while enabling write bsf STATUS,RP0 ; Bank 3 bsf (EECON1 ^ 0x180),EEPGD ;Point to program Memory bsf (EECON1 ^ 0x180),WREN ;Enable eeprom writes movlw 0x55 ;Magic sequence to enable write movwf (EECON2 ^ 0x180) movlw 0xaa movwf (EECON2 ^ 0x180) bsf (EECON1 ^ 0x180),WR ;Begin write nop nop bsf INTCON,GIE ;Re-enable interrupts bcf (EECON1 ^ 0x180),WREN ;Disable writes btfsc (EECON1 & 0x7f),WR goto $-1 ; ; read what we just wrote ; bcf STATUS,RP0 ; Bank 2 movf adr_cnt,W movwf EEADR movlw 0x01 movwf EEADRH bsf STATUS,RP0 ; Bank 3 bsf EECON1,EEPGD ; point to program memory bsf EECON1,RD ; start read operation bcf STATUS,RP0 ; Bank 2 movf EEDATA,W ; Read data xorwf datal,W skpz goto fail_prog ; low byte does not match movf EEDATH,W ; Read data xorwf datah,W skpz goto fail_prog ; low byte does not match nop nop incf adr_cnt,W andlw 0x3f movwf adr_cnt skpz goto loop_prg .assert "\"*** PASSED wide EEPROM and program FLASH read-write test\"" goto $ fail_prog: .assert "\"*** FAILED wide program FLASH Compare written and read\"" goto $ org 0x2100 de "0123456789ABCDEF" de "Linux is cool!",0 de 0xaa,0x55,0xf0,0x0f de 'g','p','s','i','m' end gpsim-0.27.0/regression/eeprom_wide/eeprom_wide.stc0000644000076400007640000000113010421050635017330 00000000000000 load eeprom_wide.cod # Module libraries: module library libgpsim_modules # Modules: #p16f877A.xpos=84. #p16f877A.ypos=36. module load pullup PU1 PU1.resistance=10000. #PU1.xpos=96. #PU1.ypos=312. module load pulldown PD2 PD2.resistance=10000. #PD2.xpos=96. #PD2.ypos=360. module load pullup PU2 #PU2.xpos=96. #PU2.ypos=420. # Connections: node nb0 attach nb0 porta0 portb0 PU1.pin PD2.pin #attach nb0 porta0 portb0 node nb1 attach nb1 porta1 portb1 node nb2 attach nb2 porta2 portb2 node nb3 attach nb3 porta3 portb3 node nb4 attach nb4 porta4 portb4 PU2.pin break c 1000000 # End. gpsim-0.27.0/regression/eeprom_wide/16f873.lkr0000644000076400007640000000530410416271530015700 00000000000000//********************************************************************* // * // Software License Agreement * // * // The software supplied herewith by Microchip Technology * // Incorporated (the "Company") for its PICmicro® Microcontroller * // is intended and supplied to you, the Company’s customer, for use * // solely and exclusively on Microchip PICmicro Microcontroller * // products. The software is owned by the Company and/or its * // supplier, and is protected under applicable copyright laws. All * // rights are reserved. Any use in violation of the foregoing * // restrictions may subject the user to criminal sanctions under * // applicable laws, as well as to civil liability for the breach of * // the terms and conditions of this license. * // * // THIS SOFTWARE IS PROVIDED IN AN "AS IS" CONDITION. NO * // WARRANTIES, WHETHER EXPRESS, IMPLIED OR STATUTORY, INCLUDING, * // BUT NOT LIMITED TO, IMPLIED WARRANTIES OF MERCHANTABILITY AND * // FITNESS FOR A PARTICULAR PURPOSE APPLY TO THIS SOFTWARE. THE * // COMPANY SHALL NOT, IN ANY CIRCUMSTANCES, BE LIABLE FOR SPECIAL, * // INCIDENTAL OR CONSEQUENTIAL DAMAGES, FOR ANY REASON WHATSOEVER. * // * //********************************************************************* // File: 16f873.lkr // Linker Script file, modified // Date: 06/07/2000 // Modified 7/18/2000 -.RLF LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x70 PROTECTED CODEPAGE NAME=page0 START=0x71 END=0x7FF CODEPAGE NAME=page1 START=0x800 END=0xFFF PROTECTED CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x7F DATABANK NAME=gpr1 START=0xA0 END=0xFF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG1 ROM=page0 // ROM code space - page0 SECTION NAME=PROG2 ROM=page1 // ROM code space - page1 SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location gpsim-0.27.0/regression/p16f628/0000775000076400007640000000000012210742355013127 500000000000000gpsim-0.27.0/regression/p16f628/nwdt_16f88.asm0000644000076400007640000000153210717157621015366 00000000000000 ;; 16F628 tests ;; ;; This regression test exercises the 16f628. ;; ;; Tests performed: ;; ;; 1) Verify Comparators can be disabled and that ;; PORTA can work as a digital I/O port. list p=16f88 include "p16f88.inc" include .command macro x .direct "C", x endm __CONFIG _CONFIG1, _CP_OFF & _WDT_OFF & _INTRC_IO & _MCLR_ON __CONFIG _CONFIG2, _IESO_OFF & _FCMEN_OFF cblock 0x20 temp endc ORG 0 .sim "p16f88.BreakOnReset = false" .sim "break c 0x10000" btfss STATUS,NOT_TO goto wdt_reset clrf temp ; LOOP2 goto $+1 goto $+1 goto $+1 decfsz temp, F goto LOOP2 done: .assert "\"*** PASSED p16f88 no WDT test\"" nop GOTO $ wdt_reset: .assert "\"*** FAILED p16f88 unexpected WDT triggered\"" nop goto $ end gpsim-0.27.0/regression/p16f628/q.asm0000644000076400007640000000107310716530164014012 00000000000000 ;; 16F628 tests ;; ;; This regression test exercises the 16f628. ;; ;; Tests performed: ;; ;; 1) Verify Comparators can be disabled and that ;; PORTA can work as a digital I/O port. list p=16f88 include "p16f88.inc" CONFIG_WORD EQU _CP_OFF & _WDT_ON & _INTRC_IO & _MCLR_OFF __CONFIG _CONFIG1, CONFIG_WORD __CONFIG _CONFIG2, _IESO_OFF & _FCMEN_OFF cblock 0x20 failures endc ORG 0 btfss STATUS,NOT_TO goto wdt_reset goto $ FAILED: nop done: nop GOTO $ wdt_reset: nop goto $ end gpsim-0.27.0/regression/p16f628/netlist.stc0000644000076400007640000000032711222007650015236 00000000000000 .sim "p16f628.xpos = 180" .sim "p16f628.ypos = 72" .sim "P_INTF.xpos = 60" .sim "P_INTF.ypos = 252" .sim "P_RBIF.xpos = 216" .sim "P_RBIF.ypos = 252" .sim "RESET.xpos = 60" .sim "RESET.ypos = 36" gpsim-0.27.0/regression/p16f628/16f628.lkr0000644000076400007640000000240310714027177014417 00000000000000// Sample linker command file for 16F628 // $Id: 16f628.lkr,v 1.9 2006/08/19 02:50:39 craigfranklin Exp $ LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page START=0x5 END=0x7FF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x217F PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x11F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x19F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xEF DATABANK NAME=gpr2 START=0x120 END=0x14F SHAREBANK NAME=gprnobnk START=0x70 END=0x7F SHAREBANK NAME=gprnobnk START=0xF0 END=0xFF SHAREBANK NAME=gprnobnk START=0x170 END=0x17F SHAREBANK NAME=gprnobnk START=0x1F0 END=0x1FF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/p16f628/16f88wdt.lkr0000644000076400007640000000304110715506764015062 00000000000000// Sample linker command file for 16F88 LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page0 START=0x5 END=0x7FF CODEPAGE NAME=page1 START=0x800 END=0xFFF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.device_id START=0x2006 END=0x2006 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2009 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x21FF PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18F PROTECTED SHAREBANK NAME=sfrnobnk START=0x70 END=0x7F SHAREBANK NAME=sfrnobnk START=0xF0 END=0xFF SHAREBANK NAME=sfrnobnk START=0x170 END=0x17F SHAREBANK NAME=sfrnobnk START=0x1F0 END=0x1FF DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xEF DATABANK NAME=gpr2 START=0x110 END=0x16F DATABANK NAME=gpr3 START=0x190 END=0x1EF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG0 ROM=page0 // ROM code space SECTION NAME=PROG1 ROM=page1 // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=DEVICEID ROM=.device_id // Device ID SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/p16f628/p16f628.stc0000644000076400007640000000101311210175453014565 00000000000000 # Node Test # # This script will tie Port A and Port B together # # First, create 8 nodes: node loop_back0 node loop_back1 node loop_back2 node loop_back3 node loop_back4 node loop_back5 node loop_back6 node loop_back7 # Now tie the ports together: attach loop_back0 portb0 porta0 attach loop_back1 portb1 porta1 attach loop_back2 portb2 porta2 attach loop_back3 portb3 porta3 attach loop_back4 portb4 porta4 attach loop_back5 portb5 porta5 attach loop_back6 portb6 porta6 attach loop_back7 portb7 porta7 gpsim-0.27.0/regression/p16f628/p16f628.asm0000644000076400007640000000404311210175453014562 00000000000000 ;; 16F628 tests ;; ;; This regression test exercises the 16f628. ;; ;; Tests performed: ;; ;; 1) Verify Comparators can be disabled and that ;; PORTA can work as a digital I/O port. list p=16f628a include "p16f628a.inc" CONFIG_WORD EQU _CP_OFF & _WDT_OFF & _INTRC_OSC_NOCLKOUT & _MCLRE_OFF __CONFIG CONFIG_WORD cblock 0x20 failures endc ORG 0 CLRF failures ;Assume success MOVLW 0xff BSF STATUS,RP0 CLRF TRISA^0x80 ;Port A is an output MOVWF TRISB^0x80 ;Port B is an input CLRF VRCON^0x80 ;Turn off the Voltage Reference module. BCF STATUS,RP0 ;; ;; Turn off the comparator module ;; MOVLW (1< include __CONFIG _WDT_ON radix dec ; Printf Command .command macro x .direct "C", x endm GPR_DATA UDATA ResetSequence RES 1 optionShadow RES 1 w_temp RES 1 status_temp RES 1 temp1 RES 1 GLOBAL optionShadow, ResetSequence ; Define the reset conditions to be checked. eRSTSequence_PowerOnReset equ 1 eRSTSequence_AwakeMCLR equ 2 eRSTSequence_AwakeWDT equ 3 eRSTSequence_AwakeIO equ 4 eRSTSequence_WDTTimeOut equ 5 ;---------------------------------------------------------------------- ; ********************* STARTUP LOCATION *************************** ;---------------------------------------------------------------------- START CODE 0x000 ; ;############################################################ ;# Create a stimulus to simulate a switch ; .sim "module lib libgpsim_modules" .sim "module load pulsegen P_INTF" .sim "module load pulsegen P_RBIF" .sim "module load pulsegen RESET" .sim "p16f628.xpos = 180" .sim "p16f628.ypos = 72" .sim "RESET.xpos = 60" .sim "RESET.ypos = 36" .sim "RESET.initial = 5.0" .sim "P_INTF.clear = 0" ; At cycle 0, .sim "P_INTF.set = 1" .sim "P_INTF.xpos = 60" .sim "P_INTF.ypos = 252" .sim "P_RBIF.clear = 0" ; At cycle 0, .sim "P_RBIF.set = 1" .sim "P_RBIF.xpos = 216" .sim "P_RBIF.ypos = 252" ;############################################################ .sim "node nINTF" .sim "attach nINTF portb0 P_INTF.pin" .sim "node nRBIF" .sim "attach nRBIF portb4 P_RBIF.pin" .sim "node nRESET" ; .sim "attach nRESET p16f84.MCLR RESET.pin" .sim "attach nRESET porta5 RESET.pin" ;############################################################ .sim "symbol resetCounter=1" ; NOT_GPWU = 0 - Enable wakeup if I/O pins 0,1, or 3 change states ; NOT_GPPU = 1 - Disable weak pullups on I/O pins 0,1, and 3 ; TOCS = 0 - Let the clock source for TMR0 be the internal fosc/4 ; TOSE = 0 - don't care - TMR0 source edge. ; PSA = 1 - assign Prescale to the WDT ; PS2:0 = 000 - prescale = 2^0=1 .sim "optionShadow=8" ; PSA=1 .sim "ResetSequence=0" .sim ".BreakOnReset = false" .sim "p16f628.frequency=100000" ; Set a cycle break point far in the future in case the resets fail. .sim "break c 0x1000000" RESET_VECTOR CODE 0x000 ; processor reset vector .assert "option_reg==0xff,\"*** FAILED 16f628 reset bad OPTION_REG\"" .assert "(trisa&0x1f)==0x1f, \"*** FAILED 16f628 reset bad TRISA\"" .assert "(trisb&0xff)==0xff, \"*** FAILED 16f628 reset bad TRISB\"" movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,W movwf status_temp check_rbi: btfsc INTCON,RBIF btfss INTCON,RBIE goto check_int ; bsf temp5,1 ;Set a flag to indicate rb4-7 int occured bcf INTCON,RBIF movf PORTB,w check_int: btfsc INTCON,INTF btfss INTCON,INTE goto check_t0 ; bsf temp5,0 ;Set a flag to indicate rb0 int occured bcf INTCON,INTF check_t0: btfsc INTCON,T0IF btfss INTCON,T0IE goto exit_int ;; tmr0 has rolled over bcf INTCON,T0IF ; Clear the pending interrupt bsf temp1,0 ; Set a flag to indicate rollover exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie bSWITCH equ 0 ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start ; OPTION register setup BANKSEL OPTION_REG MOVF optionShadow,W ;optionShadow is initialized by the gpsim script MOVWF OPTION_REG ; GPIO setup ; If this is a PowerOn reset, then the state of the GPIO output register ; is unknown. If this is not a PowerOn reset then the GPIO pins have ; the same state they had prior to the reset. ; ; TRIS register setup - The I/O pins are always configured as Inputs after ; any reset. RB0 equ 0 RB4 equ 4 MOVLW (1< /MCLR while sleeping ; -or- Interrupt wake-up from sleep goto PowerOnReset ;/TO=1, /PD=1 ==> Power has just been applied TO_is_low BTFSS STATUS,NOT_PD goto AwakeWDT ;/TO=0, /PD=0 ==> WDT while sleeping goto WDTTimeOut ;/TO=0, /PD=1 ==> WDT while not sleeping BTFSC INTCON, RBIF ;Did we just wake up from SLEEP due goto AwakeIO ;to a change in the I/O pins? ;======================================================================== ; ; PowerOnReset ; ;======================================================================== PowerOnReset: movf ResetSequence,W XORLW eRSTSequence_AwakeMCLR skpnz goto done movf PORTB,W ;Clear RBIF .assert "(intcon&1)==0, \"*** FAILED to clear INTCON\"" nop .assert "resetCounter==1,\"*** FAILED Power On Reset\"" MOVLW eRSTSequence_PowerOnReset MOVWF ResetSequence CLRWDT .command "resetCounter = resetCounter+1" SLEEP ; The WDT should cause a reset. So we shouldn't fall through ; (note, the instruction after the SLEEP should not be executed). ; RRR WDT will not cause a reset but will fall through nop ;RRR .command "resetCounter = resetCounter+1" nop ;======================================================================== ; ; AwakeWDT - WDT timed out while we were sleeping. ; ;======================================================================== AwakeWDT: .assert "resetCounter==2,\"*** FAILED WDT Reset\"" MOVLW eRSTSequence_AwakeWDT MOVWF ResetSequence .command "resetCounter = resetCounter+1" CLRWDT ; loop until WDT times out here: goto here ;======================================================================== ; ; WDTTimeOut - WatchDog timer timed out while we were awake. ; ;======================================================================== WDTTimeOut: .assert "resetCounter==3,\"*** FAILED WDT timeout\"" MOVLW eRSTSequence_WDTTimeOut MOVWF ResetSequence CLRWDT .command "P_RBIF.clear = cycles+100" nop ; Keep interrupts enabled, but turn on RBIE. Changes on ; RB4-RB7 should wake us from sleep MOVLW 1< .command macro x .direct "C", x endm ; __CONFIG _CONFIG1, _CP_OFF & _WDT_ON & _INTRC_IO & _MCLR_ON ; __CONFIG _CONFIG2, _IESO_OFF & _FCMEN_OFF cblock 0x20 temp phase endc ORG 0 .sim "p16f88.BreakOnReset = false" .sim "break c 0x10000" .sim "p16f88.frequency=32150" btfss STATUS,NOT_TO goto wdt_reset clrf phase clrf temp ; LOOP1 clrwdt goto $+1 goto $+1 goto $+1 decfsz temp, F goto LOOP1 incf phase, F clrf temp ; LOOP2 goto $+1 goto $+1 goto $+1 decfsz temp, F goto LOOP2 FAILED: .assert "\"*** FAILED p16f88 no WDT\"" nop goto $ wdt_reset: btfss phase,0 goto FAILED .assert "\"*** PASSED p16f88 WDT triggered\"" nop goto $ end gpsim-0.27.0/regression/p16f628/p16f88nwdt.asm0000644000076400007640000000123310715545617015411 00000000000000 ;; 16F628 tests ;; ;; This regression test exercises the 16f628. ;; ;; Tests performed: ;; ;; 1) Verify Comparators can be disabled and that ;; PORTA can work as a digital I/O port. list p=16f88 include "p16f88.inc" include CONFIG_WORD EQU _CP_OFF & _WDT_OFF & _INTRC_IO & _MCLR_OFF __CONFIG CONFIG_WORD cblock 0x20 failures endc ORG 0 btfss STATUS,NOT_TO goto wdt_reset goto $ FAILED: .assert "\"*** FAILED p16f628a\"" nop done: .assert "\"*** PASSED p16f628a WDT test\"" nop GOTO $ wdt_reset: .assert "\"*** PASSED p16f628a WDT triggered\"" nop goto $ end gpsim-0.27.0/regression/p16f628/16f88.lkr0000644000076400007640000000304110717131663014335 00000000000000// Sample linker command file for 16F88 LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page0 START=0x5 END=0x7FF CODEPAGE NAME=page1 START=0x800 END=0xFFF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.device_id START=0x2006 END=0x2006 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2009 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x21FF PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18F PROTECTED SHAREBANK NAME=sfrnobnk START=0x70 END=0x7F SHAREBANK NAME=sfrnobnk START=0xF0 END=0xFF SHAREBANK NAME=sfrnobnk START=0x170 END=0x17F SHAREBANK NAME=sfrnobnk START=0x1F0 END=0x1FF DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xEF DATABANK NAME=gpr2 START=0x110 END=0x16F DATABANK NAME=gpr3 START=0x190 END=0x1EF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG0 ROM=page0 // ROM code space SECTION NAME=PROG1 ROM=page1 // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=DEVICEID ROM=.device_id // Device ID SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/p16f628/p16f88wdt.asm0000644000076400007640000000123210715511341015215 00000000000000 ;; 16F628 tests ;; ;; This regression test exercises the 16f628. ;; ;; Tests performed: ;; ;; 1) Verify Comparators can be disabled and that ;; PORTA can work as a digital I/O port. list p=16f88 include "p16f88.inc" include CONFIG_WORD EQU _CP_OFF & _WDT_ON & _INTRC_IO & _MCLR_OFF __CONFIG CONFIG_WORD cblock 0x20 failures endc ORG 0 btfss STATUS,NOT_TO goto wdt_reset goto $ FAILED: .assert "\"*** FAILED p16f628a\"" nop done: .assert "\"*** PASSED p16f628a WDT test\"" nop GOTO $ wdt_reset: .assert "\"*** PASSED p16f628a WDT triggered\"" nop goto $ end gpsim-0.27.0/regression/p16f628/16f88nwdt.lkr0000644000076400007640000000304110715546023015230 00000000000000// Sample linker command file for 16F88 LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page0 START=0x5 END=0x7FF CODEPAGE NAME=page1 START=0x800 END=0xFFF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.device_id START=0x2006 END=0x2006 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2009 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x21FF PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18F PROTECTED SHAREBANK NAME=sfrnobnk START=0x70 END=0x7F SHAREBANK NAME=sfrnobnk START=0xF0 END=0xFF SHAREBANK NAME=sfrnobnk START=0x170 END=0x17F SHAREBANK NAME=sfrnobnk START=0x1F0 END=0x1FF DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xEF DATABANK NAME=gpr2 START=0x110 END=0x16F DATABANK NAME=gpr3 START=0x190 END=0x1EF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG0 ROM=page0 // ROM code space SECTION NAME=PROG1 ROM=page1 // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=DEVICEID ROM=.device_id // Device ID SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/interrupts_14bit/0000775000076400007640000000000012210742355015335 500000000000000gpsim-0.27.0/regression/interrupts_14bit/interrupts_14bit.stc0000644000076400007640000000165611220512542021211 00000000000000load interrupts_14bit.cod # another test stimulation file # # the '#' marks the beginning of a comment # # This stimulation file illustrates how two (or more) # iopins may be connected to one another. In this example, # port A bit 4 is tied to port B bit 0. # Also, note that this file does not define the processor # or the source .hex ... echo I/O pin Stimulus file that connects port A 4 echo port B 0. # Define a node to which the pins can attach. node test_node # Now specify which two I/O pins are attached to the # new node. Note, that it is possible to specify more # than two iopins (or two of any stimuli). The iopins # are assigned the names portxn - where x is a,b,c,d,e # and n is 0 through 7. attach test_node porta4 portb0 # Here are a couple of more stimuli that are used to # test rbif node n1 n2 n3 attach n1 portb1 portb5 attach n2 portb2 portb6 attach n3 portb3 portb7 attach test_node portb4 break c 0x200000 gpsim-0.27.0/regression/interrupts_14bit/16f84.lkr0000644000076400007640000000160410416271503016534 00000000000000// Sample linker command file for 16F84 // $Id: 16f84.lkr 1228 2005-08-23 16:36:11Z sdattalo $ LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page START=0x5 END=0x3FF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x213F PROTECTED DATABANK NAME=sfr0 START=0x0 END=0xB PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x8B PROTECTED DATABANK NAME=gprs START=0xC END=0x4F SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/interrupts_14bit/interrupts_14bit.asm0000664000076400007640000002274411560506101021204 00000000000000 ;; The purpose of this program is to test gpsim's ability to ;; simulate interrupts on the midrange core (specifically the 'f84). list p=16f84 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros ;; Suppress warnings of using 'option' instruction. errorlevel -224 __CONFIG _WDT_ON GPR_DATA UDATA temp RES 1 temp1 RES 1 temp2 RES 1 temp3 RES 1 temp4 RES 1 temp5 RES 1 adr_cnt RES 1 data_cnt RES 1 failures RES 1 w_temp RES 1 status_temp RES 1 GLOBAL temp,temp1,temp2,temp3,temp4,temp5 GLOBAL start ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,W movwf status_temp check_rbi: btfsc INTCON,RBIF btfss INTCON,RBIE goto check_int bsf temp5,1 ;Set a flag to indicate rb4-7 int occured bcf INTCON,RBIF movf PORTB,w check_int: btfsc INTCON,INTF btfss INTCON,INTE goto check_t0 bsf temp5,0 ;Set a flag to indicate rb0 int occured bcf INTCON,INTF check_t0: btfsc INTCON,T0IF btfss INTCON,T0IE goto exit_int ;; tmr0 has rolled over bcf INTCON,T0IF ; Clear the pending interrupt bsf temp1,0 ; Set a flag to indicate rollover exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w clrwdt retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start ;; Assume no failures clrf failures ;; ;; tmr0 test ;; ;; The following block of code tests tmr0 together with interrupts. ;; Each prescale value (0-7) is loaded into the timer. The software ;; waits until the interrupt due to tmr0 rollover occurs before ;; loading the new prescale value. bsf INTCON,T0IE ;Enable TMR0 overflow interrupts bsf INTCON,GIE ;Global interrupts clrf temp1 ;Software flag used to monitor when the ;interrupt has been serviced. clrw test_tmr0: option ;Assign new prescale value btfss temp1,0 ;Wait for the interrupt to occur and goto $-1 ;get serviced clrf temp1 ;Clear flag for the next time bsf STATUS,RP0 incf (OPTION_REG^0x80),W bcf STATUS,RP0 andlw 0x7 ;Check the prescaler skpz goto test_tmr0 bcf INTCON,T0IE ;Disable tmr0 interrupts ;; Now check tmr0 with an external clock source ;; ;; It assumes that port b bit 0 is the stimulus. ;; This requires that the following gpsim commands be invoked: ;; gpsim> node new_test_node ;; gpsim> attach new_test_node porta4 portb0 bsf STATUS,RP0 bcf (TRISB ^ 0x80),0 ;portb bit 0 is an output bcf STATUS,RP0 ;; assign the prescaler to the wdt so that tmr0 counts every edge ;; select the clock source to be tocki ;; and capture low to high transitions (tose = 0) movlw (1< node new_test_node ;; gpsim> attach new_test_node porta4 portb0 ;; ;; Also, recall that porta bit 4 is an open collector ;; output (it can't drive high). So to generate the ;; the logic highs, the portb weak pull-up resistors ;; need to be enabled. clrwdt test_inte: bsf STATUS,RP0 bcf (TRISA ^ 0x80),4 ;Make porta bit 4 an output bsf (TRISB ^ 0x80),0 ;and portb bit 0 an input bcf (OPTION_REG^0x80),NOT_RBPU ;Enable the portb weak pull-ups bsf (OPTION_REG^0x80),INTEDG ;Interrupt on rising edge bcf STATUS,RP0 bcf PORTA,4 bcf INTCON,T0IE call test_int_pin .assert "(temp2) == 0x40,\"*** FAILED 14bit-interrupts, no int0 rising\"" nop .assert "(temp1) == 0x00,\"*** FAILED 14bit-interrupts, int0 interrupt on wrong edge\"" nop bcf INTCON,INTE ;Disable inte interrupt bsf STATUS,RP0 bcf (OPTION_REG^0x80),INTEDG ;Interrupt on falling edge bcf STATUS,RP0 call test_int_pin .assert "(temp1) == 0x40,\"*** FAILED 14bit-interrupts, no int0 falling\"" nop .assert "(temp2) == 0x00,\"*** FAILED 14bit-interrupts, int0 interrupt on wrong edge\"" nop ;; ;; test_rbif ;; ;; This next block tests the interrupt on change feature of ;; port b's I/O pins 4-7 ;; clrwdt test_rbif: bcf INTCON,INTE ;Disable the rb0 interrupt bsf STATUS,RP0 bsf (TRISA ^ 0x80),4 ;Porta bit 4 is now an input bcf STATUS,RP0 clrf temp5 ;Interrupt flag clrf temp1 movlw 0x10 movwf temp2 movlw 6 movwf PORTB clrwdt rbif_l1: bcf INTCON,RBIE movf temp2,w tris PORTB ; clrf PORTB movf PORTB,W clrf temp5 ;Interrupt flag bcf INTCON,RBIF bsf INTCON,RBIE swapf temp2,w xorwf PORTB,f btfsc temp5,1 iorwf temp1,f .assert "(temp5 & 2) == 2" clrc rlf temp2,f skpc goto rbif_l1 done: .assert "\"*** PASSED MidRange core interrupt test\"" goto $ failed: .assert "\"*** FAILED MidRange core interrupt test\"" goto $ ;; ;; This routine toggles one of the porta bits with the hope of generating ;; an interrupt on one of the portb bits. ;; temp1 counts the number of interrupts due to falling edges ;; temp2 counts the number of interrupts due to rising edges ;; test_int_pin: bsf STATUS,RP0 bcf (TRISA ^ 0x80),4 ;Make porta bit 4 an output bsf (TRISB ^ 0x80),0 ;and portb bit 0 an input bcf (OPTION_REG^0x80),NOT_RBPU ;Enable the portb weak pull-ups bcf STATUS,RP0 clrf temp1 clrf temp2 movlw 0x40 movwf temp3 ; used for counting movwf temp4 bcf PORTA,4 bcf INTCON,INTF bsf INTCON,INTE ;; ;; Now loop round 64 times toggling the pin and count the interrupts ;; inte_edgecount: bcf temp5,0 ;Interrupt flag clrz bsf PORTA,4 ;Falling edge btfsc temp5,0 incf temp2,f ;Falling edge caused the interrupt bcf temp5,0 bcf PORTA,4 ;Rising edge btfsc temp5,0 incf temp1,f ;Rising edge caused the interrupt decfsz temp3,f goto inte_edgecount return end gpsim-0.27.0/regression/interrupts_14bit/Makefile0000644000076400007640000000051510563700450016713 00000000000000include ../make.regression SCRIPT = 16f84.lkr PROJECT = interrupts_14bit OBJECTS = $(PROJECT).o OUTPUT = $(PROJECT).hex COD = $(PROJECT).cod STC = $(PROJECT).stc all : $(OUTPUT) $(OUTPUT) $(COD) : $(OBJECTS) $(SCRIPT) gplink --map -s $(SCRIPT) -o $(OUTPUT) $(OBJECTS) sim: $(COD) $(GPSIM) -i -I $(STARTUP_STC) -D STC=$(STC) gpsim-0.27.0/regression/p16f690/0000775000076400007640000000000012210742355013126 500000000000000gpsim-0.27.0/regression/p16f690/nwdt_16f631.asm0000644000076400007640000000241711506334536015441 00000000000000 ;; 16F631 tests ;; ;; This regression test exercises the 16f631. ;; ;; Tests performed: ;; ;; 1) Verify no WDT with _WDT_OFF in __CONFIG ;; 2) Verify WDT with WDTCON,SWDTEN set list p=16f631 include "p16f631.inc" include .command macro x .direct "C", x endm __CONFIG _CP_OFF & _WDT_OFF & _MCLRE_OFF cblock 0x40 temp flag endc ORG 0 .sim "p16f631.BreakOnReset = false" .sim "break c 0x100000" .sim "p16f631.frequency=10000" btfss STATUS,NOT_TO goto wdt_reset clrf flag banksel OPTION_REG bcf OPTION_REG,PSA BANKSEL TRISA clrf TRISA ; bcf OPTION_REG,NOT_RABPU ; enable pullups on portA BANKSEL PORTA movlw 0xff movwf PORTA banksel PORTA call delay incf flag banksel WDTCON bsf WDTCON,SWDTEN ; turn on WDT bcf OPTION_REG,PSA banksel PORTA call delay .assert "\"*** FAILED p16f631 no WDT with SWDTEN\"" nop done: .assert "\"*** PASSED p16f631 no WDT test\"" nop GOTO $ wdt_reset: btfsc flag,0 goto done .assert "\"*** FAILED p16f631 unexpected WDT triggered\"" nop goto $ delay clrf temp ; LOOP2 goto $+1 goto $+1 goto $+1 decfsz temp, F goto LOOP2 return end gpsim-0.27.0/regression/p16f690/netlist.stc0000664000076400007640000000335411536224424015252 00000000000000 # This file was written by gpsim. # You can use this file for example like this: # gpsim -s mycode.cod -c netlist.stc # If you want to add commands, you can create another .stc file # and load this file from it. Something like this: # ----------- myproject.stc --------------- # load s mycode.cod # frequency 12000000 # load c netlist.stc # ----------------------------------------- # You can then just load this new file: # gpsim -c myproject.stc # and use netlist.stc whenever you save from the breadboard. # # Processor position: module library libgpsim_modules # Modules: p16f690.BreakOnReset = true p16f690.SafeMode = true p16f690.UnknownMode = true p16f690.WarnMode = true p16f690.tmr1_freq = 32768 p16f690.xpos = 72 p16f690.ypos = 72 module load pullup R1 R1.capacitance = 0 R1.resistance = 10000 R1.voltage = 2 R1.xpos = 264 R1.ypos = 36 module load pullup R2 R2.capacitance = 0 R2.resistance = 10000 R2.voltage = 2.5 R2.xpos = 252 R2.ypos = 96 module load pullup R3 R3.capacitance = 0 R3.resistance = 10000 R3.voltage = 4 R3.xpos = 252 R3.ypos = 156 module load not not not.xpos = 108 not.ypos = 360 module load pu pu2 pu2.capacitance = 0 pu2.resistance = 10000 pu2.voltage = 5 pu2.xpos = 96 pu2.ypos = 420 module load usart U1 U1.rxbaud = 4800 U1.txbaud = 4800 U1.xpos = 84 U1.ypos = 264 # Connections: node CVREF attach CVREF Cvref_pu Cvref_pd a2d_cvref cm1_cvref node V0.6REF attach V0.6REF vref_06v a2d_v06ref cm1_v06ref node n1 attach n1 porta2 porta3 portc6 node n2 attach n2 porta0 porta5 R1.pin node n3 attach n3 porta1 porta4 portb6 R2.pin node n4 node PIC_tx attach PIC_tx portb7 U1.RXPIN node PIC_rx attach PIC_rx portb5 U1.TXPIN node sdo attach sdo not.in0 portc7 pu2.pin node sdi attach sdi portb4 not.out # End. gpsim-0.27.0/regression/p16f690/Makefile0000664000076400007640000000172112171000204014471 00000000000000 include ../make.regression # # Use 16f631.lkr for all processors in this family # SCRIPT = 16f631.lkr all : nwdt_16f631.cod wdt_16f677.cod p16f690.cod epwm.cod \ wdt_16f685.cod eusart.cod eusart_690.cod nwdt_16f631.cod: nwdt_16f631.o $(SCRIPT) gplink --map -s $(SCRIPT) -o nwdt_16f631.cod nwdt_16f631.o wdt_16f677.cod: wdt_16f677.o $(SCRIPT) gplink --map -s $(SCRIPT) -o wdt_16f677.cod wdt_16f677.o wdt_16f685.cod: wdt_16f685.o $(SCRIPT) gplink --map -s $(SCRIPT) -o wdt_16f685.cod wdt_16f685.o p16f690.cod: p16f690.o $(SCRIPT) gplink --map -s $(SCRIPT) -o p16f690.cod p16f690.o eusart.cod: eusart.o $(SCRIPT) gplink --map -s $(SCRIPT) -o eusart.cod eusart.o eusart_690.cod: eusart_690.o $(SCRIPT) gplink --map -s $(SCRIPT) -o eusart_690.cod eusart_690.o epwm.cod: epwm.o $(SCRIPT) gplink --map -s $(SCRIPT) -o epwm.cod epwm.o sim: sim_epwm sim_eusart sim_p16f690 sim_nwdt_16f631 sim_wdt_16f677 \ sim_wdt_16f685 gpsim-0.27.0/regression/p16f690/usart.asm0000664000076400007640000001603312121570261014705 00000000000000;-------------------------------------------------------- ; File Created by SDCC : free open source ANSI-C Compiler ; Version 2.9.0 #5416 (Feb 3 2010) (UNIX) ; This file was generated Mon Jan 14 09:25:17 2013 ;-------------------------------------------------------- ; PIC port for the 14-bit core ;-------------------------------------------------------- ; .file "usart.c" list p=16f690 radix dec include "p16f690.inc" ;-------------------------------------------------------- ; config word ;-------------------------------------------------------- __config 0x30d4 ;-------------------------------------------------------- ; external declarations ;-------------------------------------------------------- extern _ADCON0_bits extern _ADCON1_bits extern _ANSEL_bits extern _ANSELH_bits extern _BAUDCTL_bits extern _CCP1CON_bits extern _CM1CON0_bits extern _CM2CON0_bits extern _CM2CON1_bits extern _ECCPAS_bits extern _EECON1_bits extern _INTCON_bits extern _IOC_bits extern _IOCA_bits extern _IOCB_bits extern _OPTION_REG_bits extern _OSCCON_bits extern _OSCTUNE_bits extern _PCON_bits extern _PIE1_bits extern _PIE2_bits extern _PIR1_bits extern _PIR2_bits extern _PORTA_bits extern _PORTB_bits extern _PORTC_bits extern _PSTRCON_bits extern _PWM1CON_bits extern _RCSTA_bits extern _SPBRG_bits extern _SPBRGH_bits extern _SRCON_bits extern _SSPCON_bits extern _SSPSTAT_bits extern _STATUS_bits extern _T1CON_bits extern _T2CON_bits extern _TRISA_bits extern _TRISB_bits extern _TRISC_bits extern _TXSTA_bits extern _VRCON_bits extern _WDTCON_bits extern _WPUA_bits extern _WPUB_bits extern _INDF extern _TMR0 extern _PCL extern _STATUS extern _FSR extern _PORTA extern _PORTB extern _PORTC extern _PCLATH extern _INTCON extern _PIR1 extern _PIR2 extern _TMR1L extern _TMR1H extern _T1CON extern _TMR2 extern _T2CON extern _SSPBUF extern _SSPCON extern _CCPR1L extern _CCPR1H extern _CCP1CON extern _RCSTA extern _TXREG extern _RCREG extern _PWM1CON extern _ECCPAS extern _ADRESH extern _ADCON0 extern _OPTION_REG extern _TRISA extern _TRISB extern _TRISC extern _PIE1 extern _PIE2 extern _PCON extern _OSCCON extern _OSCTUNE extern _PR2 extern _SSPADD extern _MSK extern _SSPMSK extern _SSPSTAT extern _WPU extern _WPUA extern _IOC extern _IOCA extern _WDTCON extern _TXSTA extern _BAUDCTL extern _ADRESL extern _ADCON1 extern _EEDAT extern _EEDATA extern _EEADR extern _EEDATH extern _EEADRH extern _WPUB extern _IOCB extern _VRCON extern _CM1CON0 extern _CM2CON0 extern _CM2CON1 extern _EECON1 extern _EECON2 extern _PSTRCON extern _SRCON extern __gptrget1 extern __sdcc_gsinit_startup ;-------------------------------------------------------- ; global declarations ;-------------------------------------------------------- global _main global PSAVE global SSAVE global WSAVE global STK12 global STK11 global STK10 global STK09 global STK08 global STK07 global STK06 global STK05 global STK04 global STK03 global STK02 global STK01 global STK00 sharebank udata_ovr 0x0070 PSAVE res 1 SSAVE res 1 WSAVE res 1 STK12 res 1 STK11 res 1 STK10 res 1 STK09 res 1 STK08 res 1 STK07 res 1 STK06 res 1 STK05 res 1 STK04 res 1 STK03 res 1 STK02 res 1 STK01 res 1 STK00 res 1 ;-------------------------------------------------------- ; global definitions ;-------------------------------------------------------- ;-------------------------------------------------------- ; absolute symbol definitions ;-------------------------------------------------------- ;-------------------------------------------------------- ; compiler-defined variables ;-------------------------------------------------------- UDL_usart_0 udata r0x1000 res 1 r0x1001 res 1 r0x1002 res 1 r0x1003 res 1 r0x1004 res 1 ;-------------------------------------------------------- ; initialized data ;-------------------------------------------------------- ID_usart_0 code _str retlw 0x48 retlw 0x65 retlw 0x6c retlw 0x6c retlw 0x6f retlw 0x20 retlw 0x77 retlw 0x6f retlw 0x72 retlw 0x6c retlw 0x64 retlw 0x21 retlw 0x00 ;-------------------------------------------------------- ; overlayable items in internal ram ;-------------------------------------------------------- ; udata_ovr ;-------------------------------------------------------- ; reset vector ;-------------------------------------------------------- STARTUP code 0x0000 nop pagesel _main goto _main ;-------------------------------------------------------- ; code ;-------------------------------------------------------- code_usart code ;*** ; pBlock Stats: dbName = M ;*** ;entry: _main ;Function start ; 2 exit points ;has an exit ;functions called: ; __gptrget1 ; __gptrget1 ; __gptrget1 ; __gptrget1 ;7 compiler assigned registers: ; r0x1000 ; r0x1001 ; r0x1002 ; r0x1003 ; STK01 ; STK00 ; r0x1004 ;; Starting pCode block _main ;Function start ; 2 exit points ; .line 42; "usart.c" ANSEL = 0; BANKSEL ANSEL CLRF ANSEL ; .line 43; "usart.c" ANSELH = 0; CLRF ANSELH ; .line 46; "usart.c" CM1CON0 = 0; CLRF CM1CON0 ; .line 47; "usart.c" CM2CON0 = 0; CLRF CM2CON0 ; .line 49; "usart.c" TRISB5 = 1; BANKSEL TRISB BSF TRISB,5 ; .line 50; "usart.c" TRISB7 = 0; BCF TRISB,7 ; .line 52; "usart.c" PORTB = 1; MOVLW 0x01 BANKSEL PORTB MOVWF PORTB ; .line 54; "usart.c" TX9 = 0; BANKSEL TXSTA BCF TXSTA,6 ; .line 55; "usart.c" BRG16 = 0; BCF BAUDCTL,3 ; .line 56; "usart.c" BRGH = 1; BSF TXSTA,2 ; .line 58; "usart.c" SPBRG = 25; MOVLW 0x19 MOVWF SPBRG ; .line 60; "usart.c" SYNC = 0; // Disable Synchronous/Enable Asynchronous BCF TXSTA,4 ; .line 61; "usart.c" SPEN = 1; // Enable serial port BANKSEL RCSTA BSF RCSTA,7 ; .line 62; "usart.c" CREN = 0; BCF RCSTA,4 ; .line 64; "usart.c" TXEN = 1; // Enable transmission mode BANKSEL TXSTA BSF TXSTA,5 ; .line 66; "usart.c" for(i=0; str[i] != '\0'; i++) BANKSEL r0x1000 CLRF r0x1000 CLRF r0x1001 _00108_DS_ BANKSEL r0x1000 MOVF r0x1000,W ADDLW (_str + 0) MOVWF r0x1002 MOVLW high (_str + 0) MOVWF r0x1003 MOVF r0x1001,W BTFSC STATUS,0 INCFSZ r0x1001,W ADDWF r0x1003,F MOVF r0x1002,W MOVWF STK01 MOVF r0x1003,W MOVWF STK00 MOVLW 0x80 ;; PAGESEL __gptrget1 ;; CALL __gptrget1 PAGESEL $ BANKSEL r0x1004 MOVWF r0x1004 ; .line 68; "usart.c" while (!TRMT) {}; // wait until TSR is empty MOVF r0x1004,W BTFSC STATUS,2 GOTO _00113_DS_ _00105_DS_ BANKSEL TXSTA BTFSS TXSTA,1 GOTO _00105_DS_ ; .line 69; "usart.c" TXREG = str[i]; // Add a character to the output buffer BANKSEL r0x1000 MOVF r0x1000,W ADDLW (_str + 0) MOVWF r0x1002 MOVLW high (_str + 0) MOVWF r0x1003 MOVF r0x1001,W BTFSC STATUS,0 INCFSZ r0x1001,W ADDWF r0x1003,F MOVF r0x1002,W MOVWF STK01 MOVF r0x1003,W MOVWF STK00 MOVLW 0x80 ;; PAGESEL __gptrget1 ;; CALL __gptrget1 PAGESEL $ BANKSEL TXREG MOVWF TXREG ; .line 66; "usart.c" for(i=0; str[i] != '\0'; i++) BANKSEL r0x1000 INCF r0x1000,F BTFSC STATUS,2 INCF r0x1001,F GOTO _00108_DS_ _00113_DS_ GOTO _00113_DS_ RETURN ; exit point of _main ; code size estimation: ; 62+ 17 = 79 instructions ( 192 byte) end gpsim-0.27.0/regression/p16f690/eusart.asm0000644000076400007640000001532011517513262015054 00000000000000 ;; EUSART test ;; ;; The purpose of this program is to verify that gpsim's ;; USART functions properly when configured as an EUSART. ;; The USART module is used to loop ;; characters back to the receiver testing RCIF interupts. ;; ;; ;; list p=16f687 include include __CONFIG _WDT_OFF & _INTRC_OSC_NOCLKOUT errorlevel -302 radix dec BAUDHI equ ((100000/4)/48)-1 BAUDLO equ 129 ;---------------------------------------------------------------------- ; RAM Declarations ; GPR_DATA UDATA_SHR #define RX_BUF_SIZE 0x10 w_temp RES 1 status_temp RES 1 pclath_temp RES 1 temp1 RES 1 temp2 RES 1 temp3 RES 1 tx_ptr RES 1 rxLastByte RES 1 rxFlag RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,w clrf STATUS movwf status_temp movf PCLATH,w movwf pclath_temp clrf PCLATH btfsc INTCON,PEIE btfss PIR1,RCIF goto int_done ;;; Received a Character .assert "rcreg == txreg, \"*** FAILED sent character looped back\"" nop movf RCREG,W movwf rxLastByte bsf rxFlag,0 int_done: clrf STATUS movf pclath_temp,w movwf PCLATH swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;; ---------------------------------------------------- ;; ;; start ;; MAIN CODE start .sim ".frequency=10e6" .sim "break c 0x100000" .sim "module library libgpsim_modules" .sim "module load usart U1" .sim "U1.xpos = 84" .sim "U1.ypos = 276" .sim "node PIC_tx" .sim "node PIC_rx" ;; Tie the USART module to the PIC .sim "attach PIC_tx portb7 U1.RXPIN" .sim "attach PIC_rx portb5 U1.TXPIN" ;; Set the USART module's Baud Rate .sim "U1.txbaud = 4800" .sim "U1.rxbaud = 4800" .sim "U1.loop = true" ;; USART Initialization ;; ;; Turn on the high baud rate (BRGH), disable the transmitter, ;; disable synchronous mode. ;; clrf STATUS bsf PORTB,7 ;Make sure the TX line drives high when ;it is programmed as an output. BANKSEL ANSELH bcf ANSELH,ANS11 BANKSEL TRISB bsf TRISB,5 ;RX is an input bsf TRISB,7 ;TX EUSART sets pin direction ;; CSRC - clock source is a don't care ;; TX9 - 0 8-bit data ;; TXEN - 0 don't enable the transmitter. ;; SYNC - 0 Asynchronous ;; BRGH - 1 Select high baud rate divisor ;; TRMT - x read only ;; TX9D - 0 not used BANKSEL TXSTA movlw (1< 9 bits ; and < 10 bits or between 0.9375 and 1.041 msec. ; with oscillator at 20MHz and TMR0 / 64 expect between 73 and 81 ; TMR0 cycles. BANKSEL TMR0 movf TMR0,W .assert "tmr0 > 73 && tmr0 < 81, \"*** FAILED baud rate\"" nop clrf rxFlag call rx_loop ; Disable interrupts because the following tests don't give good receive bytes BANKSEL PIE1 bcf PIE1,RCIE BANKSEL TXSTA bsf TXSTA,SENB ; request a break sequence BANKSEL PORTB btfss PORTB,7 ; Shouldn't happen just yet .assert "\"*** FAILED break sent too soon\"" nop clrf TMR0 movlw 0x55 movwf TXREG call delay btfsc PORTB,7 ; Should happen by now .assert "\"*** FAILED to send break\"" nop btfss PORTB,7 ; Wait for stop bit goto $-1 ; ; At 4800 baud each bit takes 0.208 msec. Output will be low for ; start + 12 bit times or 2.70 msec. With 10Mhz TMR0 / 64 is 106 TMR0 counts. movf TMR0,W .assert "tmr0 > 101 && tmr0 < 111, \"*** FAILED sync pulse\"" nop done: .assert "\"*** PASSED E-Usart on 16F687\"" goto $ tx_message: incf tx_ptr,w andlw 0x0f movwf tx_ptr addlw 0x30 return delay: decfsz temp2,f goto delay return TransmitNextByte: BANKSEL TXREG clrf rxFlag call tx_message movwf TXREG rx_loop: btfss rxFlag,0 goto rx_loop ; clrf temp2 ; call delay ;; Delay between bytes. btfss PIR1,TXIF goto $-1 return end gpsim-0.27.0/regression/p16f690/wdt_16f685.asm0000755000076400007640000000354711533254140015274 00000000000000 ;; 16F685 WDT tests ;; ;; This regression test, tests the following WDT functions ;; WDT enabled by default without configuration word ;; OPTION_REG Postscaler Rate select bits work ;; clrwdt works ;; WDT wakes up sleep without reset ;; WDT causes reset ;; ;; The test assumes that the clock speed is about 10 KHz ;; list p=16f685 include "p16f685.inc" include .command macro x .direct "C", x endm cblock 0x40 temp tmp2 phase endc ORG 0 .sim "p16f685.BreakOnReset = false" .sim "break c 0x10000" .sim "p16f685.frequency=10000" ; are we seeing a WDT reset? btfss STATUS,NOT_TO goto wdt_reset ; ; WDT should be about 2.3 seconds in gpsim with default postscaler of 128 ; (on real device may be soon as 0.9 sec) ; In the following test WDT should be longer then delay1, but shorter ; than twice delay1. The clrwdt thus prevents the WDT from going off. call delay1 clrwdt call delay1 ; ; My reading of the specs indicate sleep should continue (no reset) ; when the WDT goes off sleeps continue sleep nop .assert "(status & 0x18) == 0x00,\"*** FAILED 16f685 status after sleep\"" nop incf phase, F ; ; Test the WDT cause a reset in under 2 * delay1 clrwdt .assert "(status & 0x18) == 0x18,\"*** FAILED 16f685 status after clrwdt\"" nop call delay1 call delay1 FAILED: .assert "\"*** FAILED p16f685 no WDT reset\"" goto $ FAILED2: .assert "\"*** FAILED p16f685 unexpected WDT reset\"" goto $ ; delay about 1.85 seconds delay1 movlw 0x06 movwf tmp2 Oloop clrf temp ; LOOP1 decfsz temp, F goto LOOP1 decfsz tmp2,F goto Oloop return wdt_reset: btfss phase,0 goto FAILED2 .assert "(status & 0x18) == 0x08,\"*** FAILED 16f685 status after WDT Reset\"" nop .assert "\"*** PASSED p16f685 WDT\"" goto $ end gpsim-0.27.0/regression/p16f690/eusart_690.asm0000644000076400007640000001532012121561744015452 00000000000000 ;; EUSART test ;; ;; The purpose of this program is to verify that gpsim's ;; USART functions properly when configured as an EUSART. ;; The USART module is used to loop ;; characters back to the receiver testing RCIF interupts. ;; ;; ;; list p=16f690 include include __CONFIG _WDT_OFF & _INTRC_OSC_NOCLKOUT errorlevel -302 radix dec BAUDHI equ ((100000/4)/48)-1 BAUDLO equ 129 ;---------------------------------------------------------------------- ; RAM Declarations ; GPR_DATA UDATA_SHR #define RX_BUF_SIZE 0x10 w_temp RES 1 status_temp RES 1 pclath_temp RES 1 temp1 RES 1 temp2 RES 1 temp3 RES 1 tx_ptr RES 1 rxLastByte RES 1 rxFlag RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,w clrf STATUS movwf status_temp movf PCLATH,w movwf pclath_temp clrf PCLATH btfsc INTCON,PEIE btfss PIR1,RCIF goto int_done ;;; Received a Character .assert "rcreg == txreg, \"*** FAILED sent character looped back\"" nop movf RCREG,W movwf rxLastByte bsf rxFlag,0 int_done: clrf STATUS movf pclath_temp,w movwf PCLATH swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;; ---------------------------------------------------- ;; ;; start ;; MAIN CODE start .sim ".frequency=10e6" .sim "break c 0x100000" .sim "module library libgpsim_modules" .sim "module load usart U1" .sim "U1.xpos = 84" .sim "U1.ypos = 276" .sim "node PIC_tx" .sim "node PIC_rx" ;; Tie the USART module to the PIC .sim "attach PIC_tx portb7 U1.RXPIN" .sim "attach PIC_rx portb5 U1.TXPIN" ;; Set the USART module's Baud Rate .sim "U1.txbaud = 4800" .sim "U1.rxbaud = 4800" .sim "U1.loop = true" ;; USART Initialization ;; ;; Turn on the high baud rate (BRGH), disable the transmitter, ;; disable synchronous mode. ;; clrf STATUS bsf PORTB,7 ;Make sure the TX line drives high when ;it is programmed as an output. BANKSEL ANSELH bcf ANSELH,ANS11 BANKSEL TRISB bsf TRISB,5 ;RX is an input bsf TRISB,7 ;TX EUSART sets pin direction ;; CSRC - clock source is a don't care ;; TX9 - 0 8-bit data ;; TXEN - 0 don't enable the transmitter. ;; SYNC - 0 Asynchronous ;; BRGH - 1 Select high baud rate divisor ;; TRMT - x read only ;; TX9D - 0 not used BANKSEL TXSTA movlw (1< 9 bits ; and < 10 bits or between 0.9375 and 1.041 msec. ; with oscillator at 20MHz and TMR0 / 64 expect between 73 and 81 ; TMR0 cycles. BANKSEL TMR0 movf TMR0,W .assert "tmr0 > 73 && tmr0 < 81, \"*** FAILED baud rate\"" nop clrf rxFlag call rx_loop ; Disable interrupts because the following tests don't give good receive bytes BANKSEL PIE1 bcf PIE1,RCIE BANKSEL TXSTA bsf TXSTA,SENB ; request a break sequence BANKSEL PORTB btfss PORTB,7 ; Shouldn't happen just yet .assert "\"*** FAILED break sent too soon\"" nop clrf TMR0 movlw 0x55 movwf TXREG call delay btfsc PORTB,7 ; Should happen by now .assert "\"*** FAILED to send break\"" nop btfss PORTB,7 ; Wait for stop bit goto $-1 ; ; At 4800 baud each bit takes 0.208 msec. Output will be low for ; start + 12 bit times or 2.70 msec. With 10Mhz TMR0 / 64 is 106 TMR0 counts. movf TMR0,W .assert "tmr0 > 101 && tmr0 < 111, \"*** FAILED sync pulse\"" nop done: .assert "\"*** PASSED E-Usart on 16F690\"" goto $ tx_message: incf tx_ptr,w andlw 0x0f movwf tx_ptr addlw 0x30 return delay: decfsz temp2,f goto delay return TransmitNextByte: BANKSEL TXREG clrf rxFlag call tx_message movwf TXREG rx_loop: btfss rxFlag,0 goto rx_loop ; clrf temp2 ; call delay ;; Delay between bytes. btfss PIR1,TXIF goto $-1 return end gpsim-0.27.0/regression/p16f690/16f631.lkr0000644000076400007640000000217611474342654014423 00000000000000// Sample linker command file for 16F677 LIBPATH . CODEPAGE NAME=page START=0x0 END=0x3FF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=.calib START=0x2008 END=0x2008 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x217F PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x11F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x19F PROTECTED DATABANK NAME=gpr0 START=0x40 END=0x6F SHAREBANK NAME=gprnobnk START=0x70 END=0x7F SHAREBANK NAME=gprnobnk START=0xF0 END=0xFF PROTECTED SHAREBANK NAME=gprnobnk START=0x170 END=0x17F PROTECTED SHAREBANK NAME=gprnobnk START=0x1F0 END=0x1FF PROTECTED SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CALIBR ROM=.calib // Calibration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/p16f690/p16f690.asm0000775000076400007640000005210612175377100014574 00000000000000 ;; Node test ;; ;; The purpose of this program is to verify that nodes ;; can interconnect I/O pins. list p=16f690 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros __CONFIG _CP_OFF & _WDT_ON & _INTRC_OSC_NOCLKOUT & _PWRTE_ON & _MCLRE_OFF ;------------------------------------------------------------------------ ; gpsim command .command macro x .direct "C", x endm #define SDO_PORT PORTC,7 #define SDI_PORT PORTB,4 #define SCK_PORT PORTB,6 #define SS_PORT PORTC,6 #define SS_DRIVE PORTA,2 #define SDO_TRIS TRISC,7 #define SDI_TRIS TRISB,4 #define SCK_TRIS TRISB,6 #define SS_TRIS TRISC,6 #define SS_DRIVE_TRI TRISA,2 #define DRV_CLOCK PORTA,1 #define DRV_CLOCK_TRIS TRISA,1 radix dec BAUDHI equ ((100000/4)/48)-1 BAUDLO equ 129 radix hex ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR temp RES 1 w_temp RES 1 status_temp RES 1 cmif_cnt RES 1 tmr0_cnt RES 1 tmr1_cnt RES 1 eerom_cnt RES 1 adr_cnt RES 1 data_cnt RES 1 adc_cnt RES 1 rxFlag RES 1 rxLastByte RES 1 tx_ptr RES 1 temp2 RES 1 loopcnt RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup R1" .sim "R1.resistance = 10000.0" .sim "R1.voltage = 2.0" .sim "R1.xpos = 264" .sim "R1.ypos = 36" ; Use a pullup resistor as a voltage reference .sim "module load pullup R2" .sim "R2.resistance = 10000.0" .sim "R2.voltage = 2.5" .sim "R2.xpos = 252" .sim "R2.ypos = 96" .sim "module load not not" .sim "not.xpos=108." .sim "not.ypos=360." .sim "module load pu pu2" .sim "pu2.xpos = 96" .sim "pu2.ypos = 420" .sim "node n1" .sim "attach n1 porta2 porta3 portc6" .sim "node n2" .sim "attach n2 porta0 porta5 R1.pin" .sim "node n3" .sim "attach n3 porta1 porta4 portb6 R2.pin" .sim "node n4" .sim ".frequency=10e6" .sim "break c 0x200000" .sim "module library libgpsim_modules" .sim "module load usart U1" .sim "U1.xpos = 84" .sim "U1.ypos = 276" .sim "node PIC_tx" .sim "node PIC_rx" ;; Tie the USART module to the PIC .sim "attach PIC_tx portb7 U1.RXPIN" .sim "attach PIC_rx portb5 U1.TXPIN" ;; Set the USART module's Baud Rate .sim "U1.txbaud = 4800" .sim "U1.rxbaud = 4800" .sim "U1.loop = true" .sim "node sdo" .sim "attach sdo not.in0 portc7 pu2.pin" .sim "node sdi" .sim "attach sdi portb4 not.out" ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,W clrf STATUS movwf status_temp btfsc PIR2,C1IF goto cmif_int btfsc PIR1,RCIF goto rcif_int btfsc PIR1,TMR1IF goto tmr1_int btfsc PIR2,EEIF goto ee_int btfsc PIR1,ADIF goto adc_int btfsc INTCON,T0IF goto tmr0_int btfsc PIR1,TXIF goto txif_int .assert "\"***FAILED p16f690 unexpected interrupt\"" nop ; Interrupt from Comparator cmif_int incf cmif_cnt,F bcf PIR2,C1IF goto exit_int ; Interrupt from USART receive rcif_int .assert "rcreg == txreg, \"*** FAILED USART sent character looped back\"" nop movf RCREG,W movwf rxLastByte bsf rxFlag,0 goto exit_int ; Interrupt from USART transmitter txif_int goto exit_int ; Interrupt from TMR0 tmr0_int incf tmr0_cnt,F bcf INTCON,T0IF goto exit_int ; Interrupt from TMR1 tmr1_int incf tmr1_cnt,F bcf PIR1,TMR1IF goto exit_int ; Interrupt from eerom ee_int incf eerom_cnt,F bcf PIR2,EEIF goto exit_int ; Interrupt from adc adc_int incf adc_cnt,F bcf PIR1,ADIF goto exit_int exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start ; BANKSEL VRCON ; bsf VRCON,VP6EN ; bsf VRCON,VRR ; bcf VRCON,VRR ; bsf VRCON,C1VREN ; ; test pins in analog mode return 0 on register read BANKSEL TRISA movlw 0xff movwf TRISA .assert "trisa == 0x3f, \"***FAILED 16f690 trisa 1 writable\"" nop clrf TRISA .assert "trisa == 0x08, \"***FAILED 16f690 trisa 0 writable\"" nop ; bcf OPTION_REG,NOT_RABPU ; enable pullups on portA BANKSEL PORTA movlw 0xff movwf PORTA .assert "(porta & 0x17) == 0, \"**FAILED 16f690 analog bits read 0\"" nop clrf PORTA movwf PORTA movf PORTA,W BANKSEL ANSEL clrf ANSEL ; turn off analog port selects clrf ANSELH ; ; test PORTA works as expected ; BANKSEL PORTA clrf PORTA BANKSEL TRISA movlw 0x38 movwf TRISA ;PORTA 0,1,2 output 3,4,5 input bcf STATUS,RP0 .assert "porta == 0x00, \"**FAILED 16f690 PORTA = 0x00\"" nop movlw 0x07 movwf PORTA ; drive 0,1,2 bits high .assert "porta == 0x3f, \"**FAILED 16f690 PORTA = 0x3f\"" nop movlw 0x0b movwf PORTA ; drive 0,1,3 bits high bsf STATUS,RP0 movlw 0x0b movwf TRISA ; PORTA 2, 4, 5 output 0,1,3 input (3 input only) bcf STATUS,RP0 .assert "porta == 0x00, \"**FAILED 16f690 PORTA = 0x00\"" nop movlw 0x34 movwf PORTA ; drive output 2, 4, 5 bits high .assert "porta == 0x3f, \"**FAILED 16f690 PORTA = 0x33\"" nop call test_compare call test_tmr1 call test_eerom call test_adc call test_eusart call test_ssp .assert "\"*** PASSED 16f690 Functionality\"" goto $ test_compare: BANKSEL TRISA movlw 0x33 movwf TRISA BANKSEL CM1CON0 movlw 0xff movwf CM2CON1 ; test writable bits movlw 0x03 movwf ANSEL ;Inputs analog .assert "cm2con1 == 0x33, \"FAILED 16f690 cm2con1 writable bits\"" nop clrf CM2CON1 bsf CM1CON0,C1POL ; toggle ouput polarity, not ON bsf CM1CON0,C1OE ; C1OUT t0 RA2 .assert "cm1con0 == 0x30, \"FAILED 16f690 cm1con0 off toggle\"" nop .assert "cm2con1 == 0x00, \"FAILED 16f690 cm2con1 mirror C1OUT\"" nop movlw (1< 9 bits ; and < 10 bits or between 0.9375 and 1.041 msec. ; with oscillator at 20MHz and TMR0 / 64 expect between 73 and 81 ; TMR0 cycles. BANKSEL TMR0 movf TMR0,W .assert "tmr0 > 73 && tmr0 < 81, \"*** FAILED baud rate\"" nop clrf rxFlag call rx_loop ; Disable interrupts because the following tests don't give good receive bytes BANKSEL PIE1 bcf PIE1,RCIE BANKSEL TXSTA bsf TXSTA,SENB ; request a break sequence BANKSEL PORTB btfss PORTB,7 ; Shouldn't happen just yet .assert "\"*** FAILED break sent too soon\"" nop clrf TMR0 movlw 0x55 movwf TXREG call delay btfsc PORTB,7 ; Should happen by now .assert "\"*** FAILED to send break\"" nop btfss PORTB,7 ; Wait for stop bit goto $-1 ; ; At 4800 baud each bit takes 0.208 msec. Output will be low for ; start + 12 bit times or 2.70 msec. With 10Mhz TMR0 / 64 is 106 TMR0 counts. movf TMR0,W .assert "tmr0 > 101 && tmr0 < 111, \"*** FAILED sync pulse\"" nop return tx_message: incf tx_ptr,w andlw 0x0f movwf tx_ptr addlw 0x30 return delay: decfsz temp2,f goto delay return TransmitNextByte: BANKSEL TXREG clrf rxFlag call tx_message movwf TXREG rx_loop: btfss rxFlag,0 goto rx_loop ; clrf temp2 ; call delay ;; Delay between bytes. btfss PIR1,TXIF goto $-1 return test_ssp: ;banksel WDTCON ;movlw 0x16 ;movwf WDTCON clrwdt banksel ANSEL clrf ANSEL clrf ANSELH banksel TRISA bcf SDO_TRIS ; SDO bcf SCK_TRIS ; SCK bcf OPTION_REG,NOT_RABPU movlw 0xff movwf SSPSTAT .assert "sspstat == 0xc0, \"SPI BSSP sspstat not writable\"" nop clrf SSPSTAT bcf STATUS,RP0 ; bank 0 ; ; Test SPI Master mode ; movlw 0x21 ; SSPEN | SPI master Fosc/16 movwf SSPCON bcf PIR1,SSPIF movlw 0xab movwf SSPBUF btfss PIR1,SSPIF goto $-1 .assert "(sspstat & 1) == 1, \"FAILED BSSP SPI Master BF not set\"" nop movf SSPBUF,W .assert "(sspstat & 1) == 0, \"FAILED BSSP SPI Master BF not cleared\"" nop .assert "W == 0x54, \"FAILED BSSP SPI Master wrong data\"" nop ; ; TEST SPI Slave mode with SS ; clrf SSPCON bsf STATUS,RP0 ; bank 1 bcf DRV_CLOCK_TRIS ; external SCK drive bsf SCK_TRIS ; SCK bsf SS_TRIS ; SS bcf SS_DRIVE_TRI ; SS drive output bcf STATUS,RP0 ; bank 0 bcf SS_DRIVE ; drive SS low bcf DRV_CLOCK movlw 0x24 ; SSPEN | SPI slave mode SS enable movwf SSPCON bcf PIR1,SSPIF movlw 0xab movwf SSPBUF bsf DRV_CLOCK bcf DRV_CLOCK movwf SSPBUF ; test WCOL set .assert "(sspcon & 0x80) == 0x80, \"FAILED BSSP SPI WCOL set\"" nop bcf SSPCON,WCOL ; clear WCOL bit .assert "(sspcon & 0x80) == 0x00, \"FAILED BSSP SPI WCOL was cleared\"" nop clrf loopcnt loop2: incf loopcnt,F bsf DRV_CLOCK bcf DRV_CLOCK btfss PIR1,SSPIF goto loop2 movf SSPBUF,W .assert "W == 0x54, \"FAILED BSSP SPI Slave data\"" nop ; ; Test Slave receive overrun ; movlw 0x10 movwf loopcnt loop4: bsf DRV_CLOCK bcf DRV_CLOCK decfsz loopcnt,F goto loop4 .assert "(sspcon & 0x40) == 0x40, \"FAILED BSSP SPI SSPOV\"" nop ; ; Test SPI Master mode TMR2 ; clrf SSPCON bsf STATUS,RP0 ; bank 1 bsf DRV_CLOCK_TRIS ; external SCK drive off bcf SCK_TRIS ; SCK output movlw 0x1 movwf PR2 bcf STATUS,RP0 ; bank 0 clrf TMR2 movlw 0x3C ; prescale = 1 postscale 16 movwf T2CON movlw 0x23 ; SSPEN | SPI master TMR2 movwf SSPCON bcf PIR1,SSPIF movlw 0xab movwf SSPBUF loop3: btfss PIR1,SSPIF goto loop3 .assert "(sspstat & 1) == 1, \"FAILED BSSP SPI Master TMR2, BF not set\"" nop movf SSPBUF,W .assert "(sspstat & 1) == 0, \"FAILED BSSP SPI Master TMR2, BF not cleared\"" nop .assert "W == 0x54, \"FAILED BSSP SPI Master TMR2 wrong data\"" nop return end gpsim-0.27.0/regression/p16f690/epwm.asm0000755000076400007640000001636711517255143014541 00000000000000 list p=16f690 include include __CONFIG _WDT_OFF ;; The purpose of this program is to test gpsim's ability to simulate a pic 16c71. ;; Specifically, the pwm is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR t0_1 RES 1 t0_2 RES 1 x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W clrf STATUS movwf status_temp bcf STATUS,RP0 ;adcon0 is in bank 0 .assert "\"FAILED 16F690 unexpected interrupt\"" nop check: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "scope.ch0 = \"portc5\"" ; P1A .sim "scope.ch1 = \"portc4\"" ; P1B .sim "scope.ch2 = \"portc3\"" ; P1C .sim "scope.ch3 = \"portc2\"" ; P1D .sim "scope.ch4 = \"portb4\"" .sim "node na0" ; .sim "attach na0 portb2 portb0" call setup call full_forward call full_reverse call wait_period call wait_period call half_mode call pwm_shutdown clrf CCP1CON ; turn off PWM .assert "\"*** PASSED 16f690 PWM test\"" nop goto $-0 pwm_shutdown BANKSEL CM1CON0 movlw (1< PR2, expect TMR2 to wrap around ; bsf STATUS, RP0 ; Bank1 movlw 0x84 ; Tmr0 internal clock prescaler 32 movwf OPTION_REG bcf STATUS, RP0 ; Bank0 clrf TMR0 movlw 0x30 movwf TMR2 ; update timer ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x77, \"CCP1 duty cycle after wrap\"" nop bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x80, \"TMR2 > PR2 causes wrap\"" nop ; ; write reduced PR2 ; clrf TMR0 ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x0f, \"CCP1 duty cycle PR2 to 0x20\"" nop bsf STATUS, RP0 ; Bank1 movlw 0x20 movwf PR2 bcf STATUS, RP0 ; Bank0 ; ; Wait for end of PWM cycle ; bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x10, \"TMR2 period PR2 to 0x20\"" nop ; ; write reduced PR2 < TRM2 ; clrf TMR0 ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x0f, \"CCP1 duty cycle PR2 to 0x10\"" nop bsf STATUS, RP0 ; Bank1 movlw 0x10 movwf PR2 bcf STATUS, RP0 ; Bank0 ; ; Wait for end of PWM cycle ; bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x88, \"TMR2 period PR2 to 0x10 wraps\"" nop return setup: banksel CCP1CON clrf CCP1CON ; CCP Module is off clrf TMR2 ; Clear Timer2 clrf TMR0 ; Clear Timer0 banksel ANSEL clrf ANSEL ; turn ports to digital clrf ANSELH banksel CCPR1L movlw 0x1F ; movwf CCPR1L ; Duty Cycle is 25% of PWM Period clrf INTCON ; Disable interrupts and clear T0IF banksel TRISC ; Make output pins bcf TRISC, 1 ; Make pin output bcf TRISC, 5 ; P1A bcf TRISC,4 ; P1B bcf TRISC,3 ; P1C bcf TRISC,2 ; P1D clrf PIE1 ; Disable peripheral interrupts movlw 0x03 ; Port B pull-up Tmr0 internal clock prescaler 16 movwf OPTION_REG banksel PIR1 ; Bank0 clrf PIR1 ; Clear peripheral interrupts Flags return end gpsim-0.27.0/regression/p16f690/wdt_16f677.asm0000644000076400007640000000354711503360426015274 00000000000000 ;; 16F677 WDT tests ;; ;; This regression test, tests the following WDT functions ;; WDT enabled by default without configuration word ;; OPTION_REG Postscaler Rate select bits work ;; clrwdt works ;; WDT wakes up sleep without reset ;; WDT causes reset ;; ;; The test assumes that the clock speed is about 10 KHz ;; list p=16f677 include "p16f677.inc" include .command macro x .direct "C", x endm cblock 0x40 temp tmp2 phase endc ORG 0 .sim "p16f677.BreakOnReset = false" .sim "break c 0x10000" .sim "p16f677.frequency=10000" ; are we seeing a WDT reset? btfss STATUS,NOT_TO goto wdt_reset ; ; WDT should be about 2.3 seconds in gpsim with default postscaler of 128 ; (on real device may be soon as 0.9 sec) ; In the following test WDT should be longer then delay1, but shorter ; than twice delay1. The clrwdt thus prevents the WDT from going off. call delay1 clrwdt call delay1 ; ; My reading of the specs indicate sleep should continue (no reset) ; when the WDT goes off sleeps continue sleep nop .assert "(status & 0x18) == 0x00,\"*** FAILED 16f677 status after sleep\"" nop incf phase, F ; ; Test the WDT cause a reset in under 2 * delay1 clrwdt .assert "(status & 0x18) == 0x18,\"*** FAILED 16f677 status after clrwdt\"" nop call delay1 call delay1 FAILED: .assert "\"*** FAILED p16f677 no WDT reset\"" goto $ FAILED2: .assert "\"*** FAILED p16f677 unexpected WDT reset\"" goto $ ; delay about 1.85 seconds delay1 movlw 0x06 movwf tmp2 Oloop clrf temp ; LOOP1 decfsz temp, F goto LOOP1 decfsz tmp2,F goto Oloop return wdt_reset: btfss phase,0 goto FAILED2 .assert "(status & 0x18) == 0x08,\"*** FAILED 16f677 status after WDT Reset\"" nop .assert "\"*** PASSED p16f677 WDT\"" goto $ end gpsim-0.27.0/regression/assertions/0000775000076400007640000000000012210742355014305 500000000000000gpsim-0.27.0/regression/assertions/assertions.asm0000644000076400007640000000600310416271517017121 00000000000000;************************************************************************ ; ; Assertion test ; ;************************************************************************ list p=16f873 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros __CONFIG (_CP_OFF & _WDT_ON & _BODEN_ON & _PWRTE_ON & _HS_OSC & _WRT_ENABLE_ON & _LVP_OFF & _CPD_OFF) errorlevel -302 ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA var1 RES 1 var2 RES 1 var3 RES 1 failures RES 1 GLOBAL var1,var2,var3,failures GLOBAL done ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start ; Create a script for controlling the simulation ; Any valid gpsim command can appear in the quotes (fixme - load???) ; When this file is loaded into gpsim, all of the commands are ; are collected. When the processor has been initialized, then ; the commands are played back. .sim "failures=1" ; Assume the test fails .sim "run" ; runs to the first assertion (that's designed to fail) .sim "failures=failures+1" .sim "run" ; runs to the second assertion .sim "failures=failures+1" .sim "run" .sim "failures" if 0 .sim "failures=42" ; gpasm should ignore this script command. endif clrf var1 clrf var2 clrf var3 ; var1 and var2 have just been cleared, so the following two ; assertions should fail. However the script controlling the ; this regression test expects this and will continue running .assert "var1!=0" nop .assert "var2==1" nop ; compound expression - this one shouldn't halt the simulation .assert "var2==0 || var1==0" nop ; failures has been set to 3 by the script. ; Let's set it back to 0. Note that if any of the ; assertions fail to behave as expected, then the ; value of failures (when the simulation does eventually ; stop) will be non-zero. movlw 3 xorwf failures,F done: ; If no expression is specified, then break unconditionally .assert "" goto done nop end gpsim-0.27.0/regression/assertions/Makefile0000644000076400007640000000034510416271517015670 00000000000000include ../make.regression SCRIPT = 16f873.lkr OBJECTS = assertions.o OUTPUT = assertions.hex all : $(OUTPUT) $(OUTPUT) : $(OBJECTS) $(SCRIPT) gplink --map -s $(SCRIPT) -o $(OUTPUT) $(OBJECTS) assertions.o : assertions.asm gpsim-0.27.0/regression/assertions/16f873.lkr0000644000076400007640000000530410416271517015600 00000000000000//********************************************************************* // * // Software License Agreement * // * // The software supplied herewith by Microchip Technology * // Incorporated (the "Company") for its PICmicro® Microcontroller * // is intended and supplied to you, the Company’s customer, for use * // solely and exclusively on Microchip PICmicro Microcontroller * // products. The software is owned by the Company and/or its * // supplier, and is protected under applicable copyright laws. All * // rights are reserved. Any use in violation of the foregoing * // restrictions may subject the user to criminal sanctions under * // applicable laws, as well as to civil liability for the breach of * // the terms and conditions of this license. * // * // THIS SOFTWARE IS PROVIDED IN AN "AS IS" CONDITION. NO * // WARRANTIES, WHETHER EXPRESS, IMPLIED OR STATUTORY, INCLUDING, * // BUT NOT LIMITED TO, IMPLIED WARRANTIES OF MERCHANTABILITY AND * // FITNESS FOR A PARTICULAR PURPOSE APPLY TO THIS SOFTWARE. THE * // COMPANY SHALL NOT, IN ANY CIRCUMSTANCES, BE LIABLE FOR SPECIAL, * // INCIDENTAL OR CONSEQUENTIAL DAMAGES, FOR ANY REASON WHATSOEVER. * // * //********************************************************************* // File: 16f873.lkr // Linker Script file, modified // Date: 06/07/2000 // Modified 7/18/2000 -.RLF LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x70 PROTECTED CODEPAGE NAME=page0 START=0x71 END=0x7FF CODEPAGE NAME=page1 START=0x800 END=0xFFF PROTECTED CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x7F DATABANK NAME=gpr1 START=0xA0 END=0xFF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG1 ROM=page0 // ROM code space - page0 SECTION NAME=PROG2 ROM=page1 // ROM code space - page1 SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location gpsim-0.27.0/regression/p12f675/0000775000076400007640000000000012210742355013125 500000000000000gpsim-0.27.0/regression/p12f675/12f683.lkr0000644000076400007640000000145711230515520014406 00000000000000// Sample linker command file for 12F683 LIBPATH . CODEPAGE NAME=page START=0x0 END=0x7FF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x21FF PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xBF SHAREBANK NAME=gprnobnk START=0x70 END=0x7F SHAREBANK NAME=gprnobnk START=0xF0 END=0xFF PROTECTED SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/p12f675/12f675.lkr0000644000076400007640000000207711201245203014402 00000000000000// Sample linker command file for 12F675 LIBPATH . CODEPAGE NAME=page START=0x0 END=0x3FE CODEPAGE NAME=.oscval START=0x3FF END=0x3FF PROTECTED CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.icdinst START=0x2004 END=0x2004 PROTECTED CODEPAGE NAME=.mfgcode START=0x2005 END=0x2005 PROTECTED CODEPAGE NAME=.devid START=0x2006 END=0x2006 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=.reserve START=0x2008 END=0x200F PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x217F PROTECTED DATABANK NAME=sfr0nobnk START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1nobnk START=0x80 END=0x9F PROTECTED SHAREBANK NAME=gpr0nobnk START=0x20 END=0x5F SHAREBANK NAME=gpr0nobnk START=0xA0 END=0xDF PROTECTED SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=OSCVAL ROM=.oscval // Oscillator Cal Value SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/p12f675/p12f675.asm0000644000076400007640000003204611244103100014545 00000000000000 ;; Node test ;; ;; The purpose of this program is to verify that nodes ;; can interconnect I/O pins. list p=12f675 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros __CONFIG _CP_OFF & _WDT_ON & _INTRC_OSC_NOCLKOUT & _PWRTE_ON & _BODEN_OFF & _MCLRE_OFF ;------------------------------------------------------------------------ ; gpsim command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR temp RES 1 w_temp RES 1 status_temp RES 1 cmif_cnt RES 1 tmr0_cnt RES 1 tmr1_cnt RES 1 eerom_cnt RES 1 adr_cnt RES 1 data_cnt RES 1 adc_cnt RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup R1" .sim "R1.resistance = 10000.0" .sim "R1.voltage = 2.0" .sim "R1.xpos = 252" .sim "R1.ypos = 84" ; Use a pullup resistor as a voltage reference .sim "module load pullup R2" .sim "R2.resistance = 10000.0" .sim "R2.voltage = 4.0" .sim "R2.xpos = 252" .sim "R2.ypos = 120" .sim "node n1" .sim "attach n1 gpio2 gpio3" .sim "node n2" .sim "attach n2 gpio0 gpio5 R1.pin" .sim "node n3" .sim "attach n3 gpio1 gpio4 R2.pin" ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,W bcf STATUS,RP0 ; set bank 0 movwf status_temp btfsc PIR1,CMIF goto cmif_int btfsc PIR1,TMR1IF goto tmr1_int btfsc PIR1,EEIF goto ee_int btfsc PIR1,ADIF goto adc_int btfsc INTCON,T0IF goto tmr0_int .assert "\"***FAILED p12f675 unexpected interrupt\"" nop ; Interrupt from Comparator cmif_int incf cmif_cnt,F bcf PIR1,CMIF goto exit_int ; Interrupt from TMR0 tmr0_int incf tmr0_cnt,F bcf INTCON,T0IF goto exit_int ; Interrupt from TMR1 tmr1_int incf tmr1_cnt,F bcf PIR1,TMR1IF goto exit_int ; Interrupt from eerom ee_int incf eerom_cnt,F bcf PIR1,EEIF goto exit_int ; Interrupt from adc adc_int incf adc_cnt,F bcf PIR1,ADIF goto exit_int exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start ; ; test pins in analog mode return 0 on register read BANKSEL TRISIO clrf TRISIO BANKSEL GPIO movlw 0xff movwf GPIO .assert "gpio == 0x28, \"**FAILED 12f675 analog bits read 0\"" nop movf GPIO,W movlw 0xff movwf CMCON ; turn off Comparator .assert "cmcon == 0x1f, \"**FAILED 12f675 CMCON read 0 bits\"" nop BANKSEL ANSEL clrf ANSEL ; turn off ADC port selects BANKSEL GPIO ; ; test GPIO works as expected ; clrf GPIO bsf STATUS,RP0 movlw 0x38 movwf TRISIO ;GPIO 0,1,2 output 3,4,5 input bcf STATUS,RP0 .assert "gpio == 0x00, \"GPIO = 0x00\"" nop movlw 0x07 movwf GPIO ; drive 0,1,2 bits high .assert "gpio == 0x3f, \"GPIO = 0x3f\"" nop bsf STATUS,RP0 movlw 0x07 movwf TRISIO ; GPIO 4, 5 output 0,1,2,3 input (3 input only) bcf STATUS,RP0 .assert "gpio == 0x0c, \"GPIO = 0x0c\"" nop movlw 0x38 movwf GPIO ; drive output bits high .assert "gpio == 0x3f, \"GPIO = 0x3f\"" nop call test_compare call test_tmr1 call test_eerom call test_adc .assert "\"*** PASSED 12f675 Functionality\"" goto $ test_compare: ;; Comparator Tests ;; ;; Mode 1 (Comparator with Output) ;; CIN- > CIN+ COUT = 0 and gpio2 low unless CINV=1 ;; CIS has no effect on output ;; CIN- < CIN+ gives output ;; Mode 3 (Comparator with output and Vref) ;; CIN- high COUT = 0 ;; CІN- low COUT = 1 ;; CIS has no effect on COUT ;; Mode 5 (Mux input with output and Vref) ;; CIN- low, CIS = 0 COUT = 1 ;; CIN+ high (CIN- low) with CIS = 0 has no effect on COUT ;; CIN+ high, CIN- low, CIS 1 COUT = 0 ;; CIN+ low (CIN- high) CIS 1 COUT = 1 ;; CIN+ high (CIN- high) CIS 1 COUT = 0 ;; enable and catch interrupt when CINV set ; ; Test mode 1 Comparator with output ; bsf STATUS,RP0 movlw 0x03 movwf TRISIO ; GPIO 2, 4, 5 output 0,1,3 input (3 input only) bcf STATUS,RP0 movlw 0x20 movwf GPIO ; AN0 1 AN1 0 movlw 0x01 movwf CMCON .assert "cmcon == 1, \"*** FAILED 12f675 cmcon Comp mode 1 Cinv 0 v+ > v-\"" nop .assert "(gpio & 0x04) == 0, \"*** FAILED 12f675 gpio2 Comp mode 1 Cinv 0 v+ > v-\"" nop bsf CMCON,CINV ; Cinv = 1 .assert "cmcon == 0x51, \"*** FAILED 12f675 cmcon Comp mode 1 Cinv 1 v+ > v-\"" nop bsf CMCON,CIS ; CIS = 1 .assert "cmcon == 0x59, \"*** FAILED 12f675 cmcon Comp mode 1 Cinv 1 CIS 1 v+ > v-\"" nop .assert "(gpio & 0x04) == 0x04, \"*** FAILED 12f675 gpio2 Comp mode 1 Cinv 1 v+ > v-\"" nop movlw 0x01 movwf CMCON ; clear CINV and CIS movlw 0x10 movwf GPIO ; AN0 0 AN1 1 .assert "cmcon == 0x41, \"*** FAILED 12f675 Comp mode1 v+ < v-\"" nop .assert "(gpio & 0x04) == 0x04, \"*** FAILED 12f675 gpio2 Comp mode 1 Cinv 1 v+ < v-\"" nop bsf CMCON,CINV .assert "cmcon == 0x11, \"*** FAILED 12f675 cmcon Comp mode 1 Cinv 1 v+ < v-\"" nop .assert "(gpio & 0x04) == 0, \"*** FAILED 12f675 gpio2 Comp mode 1 Cinv 1 v+ < v-\"" nop nop ; ; Mode 3 internal reference with output ; BANKSEL VRCON bsf VRCON,VREN ; Voltage reference high range BANKSEL CMCON movlw 0x03 movwf CMCON .assert "cmcon == 0x03, \"*** FAILED 12f675 cmcon Comp mode 3 Cinv 0 AN1 5V\"" nop bcf GPIO,4 ; drive AN1 to low .assert "cmcon == 0x43, \"*** FAILED 12f675 cmcon Comp mode 3 Cinv 0 AN1 0V\"" nop bsf CMCON,CIS ; CIS should not change output .assert "cmcon == 0x4b, \"*** FAILED 12f675 cmcon Comp mode 3 Cinv 0 Cis 1 AN1 0V\"" nop ; ; test mode 5 - MUX input with Vref and Output ; movlw 0x05 movwf CMCON ; mode 5 and AN1 .assert "cmcon == 0x45, \"*** FAILED 12f675 cmcon Comp mode 5 CIS 0 AN0 0V AN1 0V\"" nop bsf GPIO,5 ; Drive AN0 high (AN1 low) .assert "cmcon == 0x45, \"*** FAILED 12f675 cmcon Comp mode 5 CIS 0 AN0 5V AN1 0V\"" nop bsf CMCON,CIS ; select AN0 (GPIO0) .assert "cmcon == 0x0d, \"*** FAILED 12f675 cmcon Comp mode 5 CIS 1 AN0 5V AN1 0V\"" nop movlw 0x10 ; Drive AN0 low AN1 High movwf GPIO .assert "cmcon == 0x4d, \"*** FAILED 12f675 cmcon Comp mode 5 CIS 1 AN0 0V AN1 5V\"" nop bsf GPIO,5 ; Drive AN0 high (AN1 high) .assert "cmcon == 0x0d, \"*** FAILED 12f675 cmcon Comp mode 5 CIS 1 AN0 5V AN1 5V\"" nop ; ; test comparator interupts ; bcf PIR1,CMIF BANKSEL PIE1 movlw (1 << GIE) | ( 1 << PEIE ) movwf INTCON bsf PIE1,CMIE BANKSEL CMCON bsf CMCON,CINV ; this should change output and cause interrupt cm_loop: movf cmif_cnt,W btfsc STATUS,Z goto cm_loop clrf INTCON movlw 0x07 ; turn off comparator movwf CMCON return test_tmr1: ;; Here are the tests performed: ;; ;; -- TMR1L and TMR1H can be read and written ;; -- TMR1 driven Fosc/4 with prescale of 8 and generates an interrupt ; Load TMR1H, TMR1L with 0x8000 CLRF TMR1L MOVLW 0x80 MOVWF TMR1H BCF PIR1,TMR1IF ;Clear any TMR1 pending interrupt BANKSEL PIE1 BSF PIE1,TMR1IE ;Enable TMR1 interrupts BANKSEL TMR1L BSF INTCON,PEIE ;Enable Peripheral interrupts BSF INTCON,GIE ;Enable Global interrupts ; TMR1 not running yet, TMR1H and TMR1L should be unchanged MOVF TMR1L,W ; test read .assert "W==0, \"*** FAILED 12f675 TMR1 test TMR1L read\"" nop MOVF TMR1H,W .assert "W==0x80, \"*** FAILED 12f675 TMR1 test TMR1H read\"" nop ; at 4Mhz prescale of 8 Fosc/4 should interrupt in 0.1 seconds movlw 0xcf movwf TMR1H movlw 0x2c movwf TMR1L MOVLW (1< ; processor specific variable definitions errorlevel -302 ; suppress message 302 from list file __CONFIG _FCMEN_ON & _IESO_OFF & _CP_OFF & _CPD_OFF & _BOD_OFF & _MCLRE_ON & _WDT_OFF & _PWRTE_ON & _INTRC_OSC_NOCLKOUT cblock 0x20 KeyBuffer:4 Keys Previous codevalue d1 d2 endc org 0x0000 ; org sets the origin, 0x0000 goto main ; go to beginning of program org 0x0004 ;interrupt vector goto main main movlw 07h ; Set GPIO <2:0) to movwf CMCON0 ; digital I/O movlw b'001111' banksel TRISIO movwf TRISIO clrf ANSEL ; digital I/0 banksel GPIO clrf GPIO clrf Previous GetLoop movlw KeyBuffer movwf FSR movlw b'1001' movwf codevalue call KeyLoop movfw KeyBuffer ;test the first key press xorlw b'0001' ;was it key 1 btfss STATUS,Z ;yes so skip goto GetLoop ;no so go back and get new keys movfw KeyBuffer+1 ;test the second key press xorlw b'0010' ;2 btfss STATUS,Z goto GetLoop movfw KeyBuffer+2 ;test the third key press xorlw b'0100' ;3 btfss STATUS,Z goto GetLoop movfw KeyBuffer+3 ;test the fourth key press xorlw b'0001' ;1 btfss STATUS,Z goto GetLoop ;if it get's to here then keys 1,2,3,1 were pressed. ;turn on LED here LedOn banksel GPIO bsf GPIO,GP5 ;turn on a led and hang out here goto LedOn goto GetLoop KeyLoop call Delay10mS ;debounce delay movfw Keys ;keep copy of previous keys movwf Previous movfw GPIO ;get key state xorlw 0xff ;1 = key pressed andlw 0x0f ;keep only 0-3 bits <-added movwf Keys ;save for later xorwf Previous,W ;find keys that have changed andwf Keys,W ;and are currently pressed btfsc STATUS,Z goto KeyLoop movwf INDF ;store the key incf FSR,f ;move pointer forward movfw FSR ;see if we have 4 keys yet xorlw KeyBuffer+4 btfss STATUS,Z goto KeyLoop ;here KeyBuffer will contain 4 key values. return Delay10mS ;9998 cycles movlw 0xCF movwf d1 movlw 0x08 movwf d2 Delay_0 decfsz d1, f goto $+2 decfsz d2, f goto Delay_0 ;2 cycles goto $+1 return end gpsim-0.27.0/regression/p12f675/p12f629.asm0000664000076400007640000001523511560506101014560 00000000000000 ;; Node test ;; ;; The purpose of this program is to verify that nodes ;; can interconnect I/O pins. list p=12f629 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros __CONFIG _CP_OFF & _WDT_ON & _INTRC_OSC_NOCLKOUT & _PWRTE_ON & _BODEN_OFF & _MCLRE_OFF ;------------------------------------------------------------------------ ; gpsim command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR temp RES 1 w_temp RES 1 status_temp RES 1 cmif_cnt RES 1 tmr0_cnt RES 1 tmr1_cnt RES 1 eerom_cnt RES 1 adr_cnt RES 1 data_cnt RES 1 inte_cnt RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program .sim "node n1" .sim "attach n1 gpio0 gpio3" .sim "node n2" .sim "attach n2 gpio1 gpio4" .sim "node n3" .sim "attach n3 gpio2 gpio5" ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,W bcf STATUS,RP0 ; set bank 0 movwf status_temp btfsc PIR1,EEIF goto ee_int btfsc INTCON,T0IF goto tmr0_int btfsc INTCON,INTF goto inte_int .assert "\"***FAILED p12f629 unexpected interrupt\"" nop ; Interrupt from TMR0 tmr0_int incf tmr0_cnt,F bcf INTCON,T0IF goto exit_int ; Interrupt from eerom ee_int incf eerom_cnt,F bcf PIR1,EEIF goto exit_int ; Interrupt from INT pin inte_int incf inte_cnt,F bcf INTCON,INTF goto exit_int exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start ; ; test pins in analog mode return 0 on register read BANKSEL TRISIO clrf TRISIO BANKSEL GPIO movlw 0xff movwf GPIO .assert "gpio == 0x3C, \"**FAILED 12f629 analog bits read 0\"" nop movf GPIO,W movlw 0xff movwf CMCON ; turn off Comparator .assert "cmcon == 0x1f, \"**FAILED 12f629 CMCON read 0 bits\"" nop ; ; test GPIO works as expected ; clrf GPIO bsf STATUS,RP0 movlw 0x38 movwf TRISIO ;GPIO 0,1,2 output 3,4,5 input bcf STATUS,RP0 .assert "gpio == 0x00, \"GPIO = 0x00\"" nop movlw 0x07 movwf GPIO ; drive 0,1,2 bits high .assert "gpio == 0x3f, \"GPIO = 0x3f\"" nop bsf STATUS,RP0 movlw 0x07 movwf TRISIO ; GPIO 4, 5 output 0,1,2,3 input (3 input only) bcf STATUS,RP0 .assert "gpio == 0x09, \"GPIO = 0x09\"" nop movlw 0x38 movwf GPIO ; drive output bits high .assert "gpio == 0x3f, \"GPIO = 0x3f\"" nop call test_eerom call test_int .assert "\"*** PASSED 12f629 Functionality\"" goto $ test_eerom: ; ; test can write and read to all 128 eeprom locations ; using intterupts clrf adr_cnt clrf data_cnt ; setup interrupts bsf INTCON,PEIE bsf INTCON,GIE BANKSEL PIE1 bsf PIE1,EEIE BANKSEL PIR1 ; ; write to EEPROM starting at EEPROM address 0 ; value of address as data using interrupts to ; determine write complete. ; read and verify data l1: movf adr_cnt,W clrf eerom_cnt BANKSEL EEADR movwf EEADR movf data_cnt,W movwf EEDATA bcf INTCON,GIE ;Disable interrupts while enabling write bsf EECON1,WREN ;Enable eeprom writes movlw 0x55 ;Magic sequence to enable eeprom write movwf EECON2 movlw 0xaa movwf EECON2 bsf EECON1,WR ;Begin eeprom write bsf INTCON,GIE ;Re-enable interrupts BANKSEL PIR1 clrf STATUS ; Bank 0 movf eerom_cnt,W skpnz goto $-2 ; ; read what we just wrote ; movf adr_cnt,W BANKSEL EEADR movwf EEADR bsf EECON1,RD ; start read operation movf EEDATA,W ; Read data BANKSEL PIR1 xorwf data_cnt,W ; did we read what we wrote ? skpz goto eefail incf adr_cnt,W andlw 0x7f movwf adr_cnt movwf data_cnt skpz goto l1 return eefail: .assert "\"***FAILED 12f629 eerom write/read error\"" nop test_tmr0: return test_int: BANKSEL TRISIO bsf TRISIO,2 bcf TRISIO,5 BANKSEL GPIO clrf GPIO BANKSEL OPTION_REG bsf OPTION_REG,INTEDG BANKSEL INTCON bsf INTCON,GIE ;Global interrupts bcf INTCON,PEIE ;No Peripheral interrupts bcf INTCON,INTF ;Clear flag bsf INTCON,INTE clrf inte_cnt bsf GPIO,5 ; make a rising edge nop movf inte_cnt,w .assert "W == 0x01, \"*** FAILED 12f629 INT test - No int on rising edge\"" nop clrf inte_cnt bcf GPIO,5 ; make a falling edge nop movf inte_cnt,w .assert "W == 0x00, \"*** FAILED 12f629 INT test - Unexpected int on falling edge\"" nop BANKSEL OPTION_REG bcf OPTION_REG,INTEDG BANKSEL INTCON bcf INTCON,INTF ;Clear flag clrf inte_cnt bsf GPIO,5 ; make a rising edge nop movf inte_cnt,w .assert "W == 0x00, \"*** FAILED 12f629 INT test - Unexpected int on rising edge\"" nop clrf inte_cnt bcf GPIO,5 ; make a falling edge nop movf inte_cnt,w .assert "W == 0x01, \"*** FAILED 12f629 INT test - No int on falling edge\"" nop return end gpsim-0.27.0/regression/p12f675/p12f683.asm0000644000076400007640000003304211244101047014551 00000000000000 ;; Node test ;; ;; The purpose of this program is to verify that nodes ;; can interconnect I/O pins. list p=12f683 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros __CONFIG _CP_OFF & _WDT_OFF & _INTRC_OSC_NOCLKOUT & _PWRTE_ON & _MCLRE_OFF #ifndef TMR1GE #define TMR1GE 6 #endif ;------------------------------------------------------------------------ ; gpsim command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR temp RES 1 w_temp RES 1 status_temp RES 1 cmif_cnt RES 1 tmr0_cnt RES 1 tmr1_cnt RES 1 eerom_cnt RES 1 adr_cnt RES 1 data_cnt RES 1 adc_cnt RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup R1" .sim "R1.resistance = 10000.0" .sim "R1.voltage = 2.0" .sim "R1.xpos = 252" .sim "R1.ypos = 84" ; Use a pullup resistor as a voltage reference .sim "module load pullup R2" .sim "R2.resistance = 10000.0" .sim "R2.voltage = 4.0" .sim "R2.xpos = 252" .sim "R2.ypos = 120" .sim "node n1" .sim "attach n1 gpio2 gpio3" .sim "node n2" .sim "attach n2 gpio0 gpio5 R1.pin" .sim "node n3" .sim "attach n3 gpio1 gpio4 R2.pin" ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,W bcf STATUS,RP0 ; set bank 0 movwf status_temp btfsc PIR1,CMIF goto cmif_int btfsc PIR1,TMR1IF goto tmr1_int btfsc PIR1,EEIF goto ee_int btfsc PIR1,ADIF goto adc_int btfsc INTCON,T0IF goto tmr0_int .assert "\"***FAILED p12f683 unexpected interrupt\"" nop ; Interrupt from Comparator cmif_int incf cmif_cnt,F bcf PIR1,CMIF goto exit_int ; Interrupt from TMR0 tmr0_int incf tmr0_cnt,F bcf INTCON,T0IF goto exit_int ; Interrupt from TMR1 tmr1_int incf tmr1_cnt,F bcf PIR1,TMR1IF goto exit_int ; Interrupt from eerom ee_int incf eerom_cnt,F bcf PIR1,EEIF goto exit_int ; Interrupt from adc adc_int incf adc_cnt,F bcf PIR1,ADIF goto exit_int exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start ; ; test pins in analog mode return 0 on register read BANKSEL TRISIO clrf TRISIO BANKSEL GPIO movlw 0xff movwf GPIO .assert "gpio == 0x28, \"**FAILED 12f683 analog bits read 0\"" nop movf GPIO,W movlw 0xff movwf CMCON0 ; turn off Comparator .assert "cmcon0 == 0x1f, \"**FAILED 12f683 CMCON0 read 0 bits\"" nop BANKSEL ANSEL clrf ANSEL ; turn off ADC port selects BANKSEL GPIO ; ; test GPIO works as expected ; clrf GPIO bsf STATUS,RP0 movlw 0x38 movwf TRISIO ;GPIO 0,1,2 output 3,4,5 input bcf STATUS,RP0 .assert "gpio == 0x00, \"GPIO = 0x00\"" nop movlw 0x07 movwf GPIO ; drive 0,1,2 bits high .assert "gpio == 0x3f, \"GPIO = 0x3f\"" nop bsf STATUS,RP0 movlw 0x07 movwf TRISIO ; GPIO 4, 5 output 0,1,2,3 input (3 input only) bcf STATUS,RP0 .assert "gpio == 0x0c, \"GPIO = 0x0c\"" nop movlw 0x38 movwf GPIO ; drive output bits high .assert "gpio == 0x3f, \"GPIO = 0x3f\"" nop call test_compare call test_tmr1 call test_eerom call test_adc .assert "\"*** PASSED 12f683 Functionality\"" goto $ test_compare: ;; Comparator Tests ;; ;; Mode 1 (Comparator with Output) ;; CIN- > CIN+ COUT = 0 and gpio2 low unless CINV=1 ;; CIS has no effect on output ;; CIN- < CIN+ gives output ;; Mode 3 (Comparator with output and Vref) ;; CIN- high COUT = 0 ;; CІN- low COUT = 1 ;; CIS has no effect on COUT ;; Mode 5 (Mux input with output and Vref) ;; CIN- low, CIS = 0 COUT = 1 ;; CIN+ high (CIN- low) with CIS = 0 has no effect on COUT ;; CIN+ high, CIN- low, CIS 1 COUT = 0 ;; CIN+ low (CIN- high) CIS 1 COUT = 1 ;; CIN+ high (CIN- high) CIS 1 COUT = 0 ;; enable and catch interrupt when CINV set ; ; Test mode 1 Comparator with output ; bsf STATUS,RP0 movlw 0x03 movwf TRISIO ; GPIO 2, 4, 5 output 0,1,3 input (3 input only) bcf STATUS,RP0 movlw 0x20 movwf GPIO ; AN0 1 AN1 0 movlw 0x01 movwf CMCON0 .assert "cmcon0 == 1, \"*** FAILED 12f683 cmcon0 Comp mode 1 Cinv 0 v+ > v-\"" nop .assert "(gpio & 0x04) == 0, \"*** FAILED 12f683 gpio2 Comp mode 1 Cinv 0 v+ > v-\"" nop bsf CMCON0,CINV ; Cinv = 1 .assert "cmcon0 == 0x51, \"*** FAILED 12f683 cmcon0 Comp mode 1 Cinv 1 v+ > v-\"" nop bsf CMCON0,CIS ; CIS = 1 .assert "cmcon0 == 0x59, \"*** FAILED 12f683 cmcon0 Comp mode 1 Cinv 1 CIS 1 v+ > v-\"" nop .assert "(gpio & 0x04) == 0x04, \"*** FAILED 12f683 gpio2 Comp mode 1 Cinv 1 v+ > v-\"" nop movlw 0x01 movwf CMCON0 ; clear CINV and CIS movlw 0x10 movwf GPIO ; AN0 0 AN1 1 .assert "cmcon0 == 0x41, \"*** FAILED 12f683 Comp mode1 v+ < v-\"" nop .assert "(gpio & 0x04) == 0x04, \"*** FAILED 12f683 gpio2 Comp mode 1 Cinv 1 v+ < v-\"" nop bsf CMCON0,CINV .assert "cmcon0 == 0x11, \"*** FAILED 12f683 cmcon0 Comp mode 1 Cinv 1 v+ < v-\"" nop .assert "(gpio & 0x04) == 0, \"*** FAILED 12f683 gpio2 Comp mode 1 Cinv 1 v+ < v-\"" nop nop ; ; Mode 3 internal reference with output ; BANKSEL VRCON bsf VRCON,VREN ; Voltage reference high range BANKSEL CMCON0 movlw 0x03 movwf CMCON0 .assert "cmcon0 == 0x03, \"*** FAILED 12f683 cmcon0 Comp mode 3 Cinv 0 AN1 5V\"" nop bcf GPIO,4 ; drive AN1 to low .assert "cmcon0 == 0x43, \"*** FAILED 12f683 cmcon0 Comp mode 3 Cinv 0 AN1 0V\"" nop bsf CMCON0,CIS ; CIS should not change output .assert "cmcon0 == 0x4b, \"*** FAILED 12f683 cmcon0 Comp mode 3 Cinv 0 Cis 1 AN1 0V\"" nop ; ; test mode 5 - MUX input with Vref and Output ; movlw 0x05 movwf CMCON0 ; mode 5 and AN1 .assert "cmcon0 == 0x45, \"*** FAILED 12f683 cmcon0 Comp mode 5 CIS 0 AN0 0V AN1 0V\"" nop bsf GPIO,5 ; Drive AN0 high (AN1 low) .assert "cmcon0 == 0x45, \"*** FAILED 12f683 cmcon0 Comp mode 5 CIS 0 AN0 5V AN1 0V\"" nop bsf CMCON0,CIS ; select AN0 (GPIO0) .assert "cmcon0 == 0x0d, \"*** FAILED 12f683 cmcon0 Comp mode 5 CIS 1 AN0 5V AN1 0V\"" nop movlw 0x10 ; Drive AN0 low AN1 High movwf GPIO .assert "cmcon0 == 0x4d, \"*** FAILED 12f683 cmcon0 Comp mode 5 CIS 1 AN0 0V AN1 5V\"" nop bsf GPIO,5 ; Drive AN0 high (AN1 high) .assert "cmcon0 == 0x0d, \"*** FAILED 12f683 cmcon0 Comp mode 5 CIS 1 AN0 5V AN1 5V\"" nop ; ; test comparator interupts ; bcf PIR1,CMIF BANKSEL PIE1 movlw (1 << GIE) | ( 1 << PEIE ) movwf INTCON bsf PIE1,CMIE BANKSEL CMCON0 bsf CMCON0,CINV ; this should change output and cause interrupt cm_loop: movf cmif_cnt,W btfsc STATUS,Z goto cm_loop nop ;RRR clrf INTCON movlw 0x07 ; turn off comparator movwf CMCON0 return test_tmr1: ;; Here are the tests performed: ;; ;; -- TMR1L and TMR1H can be read and written ;; -- TMR1 driven Fosc/4 with prescale of 8 and generates an interrupt ; Load TMR1H, TMR1L with 0x8000 CLRF TMR1L MOVLW 0x80 MOVWF TMR1H BCF PIR1,TMR1IF ;Clear any TMR1 pending interrupt BANKSEL PIE1 BSF PIE1,TMR1IE ;Enable TMR1 interrupts BANKSEL TMR1L BSF INTCON,PEIE ;Enable Peripheral interrupts BSF INTCON,GIE ;Enable Global interrupts ; TMR1 not running yet, TMR1H and TMR1L should be unchanged MOVF TMR1L,W ; test read .assert "W==0, \"*** FAILED 12f683 TMR1 test TMR1L read\"" nop MOVF TMR1H,W .assert "W==0x80, \"*** FAILED 12f683 TMR1 test TMR1H read\"" nop ; at 4Mhz prescale of 8 Fosc/4 should interrupt in 0.1 seconds movlw 0xcf movwf TMR1H movlw 0x2c movwf TMR1L MOVLW (1< $LOGFILE grep "PASSED" $LOGFILE if [ $? -ne 0 ] ; then echo "!!! FAILED $1/make $2" grep "FAILED" $LOGFILE fi gpsim-0.27.0/regression/usart_test/0000775000076400007640000000000012210742356014311 500000000000000gpsim-0.27.0/regression/usart_test/netlist.stc0000664000076400007640000000167112121323253016423 00000000000000 # This file was written by gpsim. # You can use this file for example like this: # gpsim -s mycode.cod -c netlist.stc # If you want to add commands, you can create another .stc file # and load this file from it. Something like this: # ----------- myproject.stc --------------- # load s mycode.cod # frequency 12000000 # load c netlist.stc # ----------------------------------------- # You can then just load this new file: # gpsim -c myproject.stc # and use netlist.stc whenever you save from the breadboard. # # Processor position: module library libgpsim_modules # Modules: p16f877.BreakOnReset = true p16f877.SafeMode = true p16f877.UnknownMode = true p16f877.WarnMode = true p16f877.tmr1_freq = 32768 p16f877.xpos = 48 p16f877.ypos = 36 module load usart U1 U1.rxbaud = 4800 U1.txbaud = 4800 U1.xpos = 240 U1.ypos = 204 # Connections: node PIC_tx attach PIC_tx portc6 U1.RXPIN node PIC_rx attach PIC_rx portc7 U1.TXPIN # End. gpsim-0.27.0/regression/usart_test/eusart_2455.asm0000664000076400007640000001513612122236150016713 00000000000000 ;; EUSART test ;; ;; The purpose of this program is to verify that gpsim's ;; USART functions properly when configured as an EUSART. ;; The USART module is used to loop ;; characters back to the receiver testing RCIF interupts. ;; ;; ;; list p=18f2455 include include CONFIG WDT=OFF ;; CONFIG MCLRE=ON CONFIG LPT1OSC=OFF CONFIG PBADEN=OFF CONFIG CCP2MX=ON, FOSC = INTOSCIO_EC ;; __CONFIG _CONFIG2H, _WDT_OFF_2H errorlevel -302 radix dec BAUDHI equ ((100000/4)/48)-1 BAUDLO equ 129 ;---------------------------------------------------------------------- ; RAM Declarations ; INT_VAR UDATA 0x00 w_temp RES 1 status_temp RES 1 pclath_temp RES 1 GPR_DAT UDATA #define RX_BUF_SIZE 0x10 temp1 RES 1 temp2 RES 1 temp3 RES 1 tx_ptr RES 1 rxLastByte RES 1 rxFlag RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x018 ; interrupt vector location movwf w_temp swapf STATUS,w clrf STATUS movwf status_temp movf PCLATH,w movwf pclath_temp clrf PCLATH btfsc INTCON,PEIE btfss PIR1,RCIF goto int_done ;;; Received a Character .assert "rcreg == txreg, \"*** FAILED sent character looped back\"" nop movf RCREG,W movwf rxLastByte bsf rxFlag,0 int_done: clrf STATUS movf pclath_temp,w movwf PCLATH swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;; ---------------------------------------------------- ;; ;; start ;; MAIN CODE start .sim ".frequency=10e6" .sim "break c 0x100000" .sim "module library libgpsim_modules" .sim "module load usart U1" .sim ".xpos = 48" .sim ".ypos = 48" .sim "U1.xpos = 240.0" .sim "U1.ypos = 168" .sim "node PIC_tx" .sim "node PIC_rx" ;; Tie the USART module to the PIC .sim "attach PIC_tx portc6 U1.RXPIN" .sim "attach PIC_rx portc7 U1.TXPIN" ;; Set the USART module's Baud Rate .sim "U1.txbaud = 4800" .sim "U1.rxbaud = 4800" .sim "U1.loop = true" ;; USART Initialization ;; ;; Turn on the high baud rate (BRGH), disable the transmitter, ;; disable synchronous mode. ;; clrf STATUS bsf PORTC,6 ;Make sure the TX line drives high when ;it is programmed as an output. clrf TRISC ;RRR test bsf TRISC,6 ;RX is an input bsf TRISC,7 ;TX EUSART sets pin direction ;; CSRC - clock source is a don't care ;; TX9 - 0 8-bit data ;; TXEN - 0 don't enable the transmitter. ;; SYNC - 0 Asynchronous ;; BRGH - 1 Select high baud rate divisor ;; TRMT - x read only ;; TX9D - 0 not used movlw (1< 9 bits ; and < 10 bits or between 0.9375 and 1.041 msec. ; with oscillator at 20MHz and TMR0 / 64 expect between 73 and 81 ; TMR0 cycles. movf TMR0L,W .assert "tmr0 > 73 && tmr0 < 81, \"*** FAILED baud rate\"" nop clrf rxFlag call rx_loop ; Disable interrupts because the following tests don't give good receive bytes bcf PIE1,RCIE bsf TXSTA,SENDB ; request a break sequence btfss PORTC,6 ; Shouldn't happen just yet .assert "\"*** FAILED break sent too soon\"" nop clrf TMR0L movlw 0x55 movwf TXREG rcall delay btfsc PORTC,6 ; Should happen by now .assert "\"*** FAILED to send break\"" nop btfss PORTC,6 ; Wait for stop bit bra $-2 ; ; At 4800 baud each bit takes 0.208 msec. Output will be low for ; start + 12 bit times or 2.70 msec. With 10Mhz TMR0 / 64 is 106 TMR0 counts. movf TMR0L,W .assert "tmr0 > 101 && tmr0 < 111, \"*** FAILED sync pulse\"" nop done: .assert "\"*** PASSED E-Usart on 18F2455\"" goto $ tx_message: incf tx_ptr,w andlw 0x0f movwf tx_ptr addlw 0x30 return delay: decfsz temp2,f bra delay return TransmitNextByte: clrf rxFlag call tx_message movwf TXREG clrwdt rx_loop: btfss rxFlag,0 bra rx_loop ; clrf temp2 ; call delay ;; Delay between bytes. btfss PIR1,TXIF bra $-1 return end gpsim-0.27.0/regression/usart_test/16f628.lkr0000644000076400007640000000250010525705331015571 00000000000000// Sample linker command file for 16F628 // $Id: 16f628.lkr 1828 2006-11-10 18:59:10Z borutr $ LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page START=0x5 END=0x7FF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x217F PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x11F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x19F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xEF DATABANK NAME=gpr2 START=0x120 END=0x14F SHAREBANK NAME=gprnobnk START=0x70 END=0x7F SHAREBANK NAME=gprnobnk START=0xF0 END=0xFF SHAREBANK NAME=gprnobnk START=0x170 END=0x17F SHAREBANK NAME=gprnobnk START=0x1F0 END=0x1FF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/usart_test/Makefile0000664000076400007640000000156512122236561015676 00000000000000# USART module regression test # # include ../make.regression SCRIPT = 16f877.lkr PROJECT = usart_test OBJECTS = $(PROJECT).o OUTPUT = $(PROJECT).hex COD = $(PROJECT).cod STC = $(PROJECT).stc all : usart_pir2v1.cod usart_pir1v2.cod eusart.cod eusart_2455.cod sim: sim_pir1v1 sim_pir1v2 sim_eusart sim_eusart_2455 sim_pir1v1: usart_pir1v1.cod $(GPSIM) -i -I $(STARTUP_STC) -D STC=$< sim_pir1v2: usart_pir1v2.cod $(GPSIM) -i -I $(STARTUP_STC) -D STC=$< sim_eusart: eusart.cod $(GPSIM) -i -I $(STARTUP_STC) -D STC=$< sim_eusart_2455: eusart_2455.cod $(GPSIM) -i -I $(STARTUP_STC) -D STC=$< usart_pir1v1.cod : usart_pir1v1.o gplink --map -s 16f628.lkr -o $@ $< usart_pir1v2.cod : usart_pir1v2.o gplink --map -s 16f877.lkr -o $@ $< eusart.cod : eusart.o gplink --map -s 18f2221.lkr -o $@ $< eusart_2455.cod : eusart_2455.o gplink --map -s 18f2455.lkr -o $@ $< gpsim-0.27.0/regression/usart_test/usart_pir1v1.asm0000644000076400007640000001417511225762076017307 00000000000000 ;; USART test ;; ;; The purpose of this program is to verify that gpsim's ;; USART functions properly. The USART module is used to loop ;; characters back to the receiver testing RCIF interupts. ;; ;; ;; list p=16f628 include include __CONFIG _WDT_OFF errorlevel -302 radix dec ;---------------------------------------------------------------------- ; RAM Declarations ; INT_VAR UDATA 0x20 w_temp RES 1 status_temp RES 1 pclath_temp RES 1 ;fsr_temp RES 1 temp1 RES 1 temp2 RES 1 temp3 RES 1 tx_ptr RES 1 rxLastByte RES 1 rxFlag RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,w clrf STATUS movwf status_temp movf PCLATH,w movwf pclath_temp clrf PCLATH bcf STATUS,RP0 btfsc INTCON,PEIE btfss PIR1,RCIF goto int_done ;;; Received a Character .assert "rcreg == txreg, \"sent character looped back\"" nop movf RCREG,W movwf rxLastByte bsf rxFlag,0 int_done: clrf STATUS movf pclath_temp,w movwf PCLATH swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;; ---------------------------------------------------- ;; ;; start ;; MAIN CODE start .sim ".frequency=20e6" .sim "break c 0x100000" .sim "module library libgpsim_modules" .sim "module load usart U1" ; .sim "U1.xpos = 250.0" ; .sim "U1.ypos = 80.0" .sim "node PIC_tx" .sim "node PIC_rx" ;; Tie the USART module to the PIC .sim "attach PIC_tx portb2 U1.RXPIN" .sim "attach PIC_rx portb1 U1.TXPIN" ;; Set the USART module's Baud Rate .sim "U1.txbaud = 9600" .sim "U1.rxbaud = 9600" .sim "U1.loop = true" ;; USART Initialization ;; ;; Turn on the high baud rate (BRGH), disable the transmitter, ;; disable synchronous mode. ;; clrf STATUS bsf PORTB,2 ;Make sure the TX line drives high when ;it is programmed as an output. bsf STATUS,RP0 ; select bank 0 ; bcf OPTION_REG,NOT_RBPU ; turn on B pullups bsf TRISB,1 ;RX is an input bcf TRISB,2 ;TX is an output ;; CSRC - clock source is a don't care ;; TX9 - 0 8-bit data ;; TXEN - 0 don't enable the transmitter. ;; SYNC - 0 Asynchronous ;; BRGH - 1 Select high baud rate divisor ;; TRMT - x read only ;; TX9D - 0 not used movlw (1< 9 bits ; and < 10 bits or between 0.9375 and 1.041 msec. ; with oscillator at 20MHz and TMR0 / 64 expect between 73 and 81 ; TMR0 cycles. movf TMR0,W .assert "tmr0 > 73 && tmr0 < 81, \"*** FAILED baud rate\"" nop clrf rxFlag call rx_loop done: .assert "\"*** PASSED Usart with PIR1V1\"" goto $ TransmitNextByte: clrf rxFlag call tx_message movwf TXREG rx_loop: btfss rxFlag,0 goto rx_loop ; clrf temp2 ; call delay ;; Delay between bytes. btfss PIR1,TXIF goto $-1 return tx_message incf tx_ptr,w andlw 0x0f movwf tx_ptr addlw TX_TABLE skpnc incf PCLATH,f movwf PCL TX_TABLE dt "0123456789ABCDEF",0 delay decfsz temp1,f goto $+2 decfsz temp2,f goto delay return end gpsim-0.27.0/regression/usart_test/eusart.asm0000664000076400007640000001470411560506101016235 00000000000000 ;; EUSART test ;; ;; The purpose of this program is to verify that gpsim's ;; USART functions properly when configured as an EUSART. ;; The USART module is used to loop ;; characters back to the receiver testing RCIF interupts. ;; ;; ;; list p=18f2221 include include CONFIG WDT=OFF CONFIG MCLRE=ON, LPT1OSC=OFF, PBADEN=DIG, CCP2MX=RC1 errorlevel -302 radix dec BAUDHI equ ((100000/4)/48)-1 BAUDLO equ 129 ;---------------------------------------------------------------------- ; RAM Declarations ; INT_VAR UDATA 0x00 w_temp RES 1 status_temp RES 1 pclath_temp RES 1 GPR_DAT UDATA #define RX_BUF_SIZE 0x10 temp1 RES 1 temp2 RES 1 temp3 RES 1 tx_ptr RES 1 rxLastByte RES 1 rxFlag RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x018 ; interrupt vector location movwf w_temp swapf STATUS,w clrf STATUS movwf status_temp movf PCLATH,w movwf pclath_temp clrf PCLATH btfsc INTCON,PEIE btfss PIR1,RCIF goto int_done ;;; Received a Character .assert "rcreg == txreg, \"*** FAILED sent character looped back\"" nop movf RCREG,W movwf rxLastByte bsf rxFlag,0 int_done: clrf STATUS movf pclath_temp,w movwf PCLATH swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;; ---------------------------------------------------- ;; ;; start ;; MAIN CODE start .sim ".frequency=10e6" .sim "break c 0x100000" .sim "module library libgpsim_modules" .sim "module load usart U1" ; .sim "U1.xpos = 250.0" ; .sim "U1.ypos = 80.0" .sim "node PIC_tx" .sim "node PIC_rx" ;; Tie the USART module to the PIC .sim "attach PIC_tx portc6 U1.RXPIN" .sim "attach PIC_rx portc7 U1.TXPIN" ;; Set the USART module's Baud Rate .sim "U1.txbaud = 4800" .sim "U1.rxbaud = 4800" .sim "U1.loop = true" ;; USART Initialization ;; ;; Turn on the high baud rate (BRGH), disable the transmitter, ;; disable synchronous mode. ;; clrf STATUS bsf PORTC,6 ;Make sure the TX line drives high when ;it is programmed as an output. bsf TRISC,7 ;RX is an input bsf TRISC,6 ;TX EUSART sets pin direction ;; CSRC - clock source is a don't care ;; TX9 - 0 8-bit data ;; TXEN - 0 don't enable the transmitter. ;; SYNC - 0 Asynchronous ;; BRGH - 1 Select high baud rate divisor ;; TRMT - x read only ;; TX9D - 0 not used movlw (1< 9 bits ; and < 10 bits or between 0.9375 and 1.041 msec. ; with oscillator at 20MHz and TMR0 / 64 expect between 73 and 81 ; TMR0 cycles. movf TMR0L,W .assert "tmr0 > 73 && tmr0 < 81, \"*** FAILED baud rate\"" nop clrf rxFlag call rx_loop ; Disable interrupts because the following tests don't give good receive bytes bcf PIE1,RCIE bsf TXSTA,SENDB ; request a break sequence btfss PORTC,6 ; Shouldn't happen just yet .assert "\"*** FAILED break sent too soon\"" nop clrf TMR0L movlw 0x55 movwf TXREG rcall delay btfsc PORTC,6 ; Should happen by now .assert "\"*** FAILED to send break\"" nop btfss PORTC,6 ; Wait for stop bit bra $-2 ; ; At 4800 baud each bit takes 0.208 msec. Output will be low for ; start + 12 bit times or 2.70 msec. With 10Mhz TMR0 / 64 is 106 TMR0 counts. movf TMR0L,W .assert "tmr0 > 101 && tmr0 < 111, \"*** FAILED sync pulse\"" nop done: .assert "\"*** PASSED E-Usart on 18F2221\"" goto $ tx_message: incf tx_ptr,w andlw 0x0f movwf tx_ptr addlw 0x30 return delay: decfsz temp2,f bra delay return TransmitNextByte: clrf rxFlag call tx_message movwf TXREG clrwdt rx_loop: btfss rxFlag,0 bra rx_loop ; clrf temp2 ; call delay ;; Delay between bytes. btfss PIR1,TXIF bra $-1 return end gpsim-0.27.0/regression/usart_test/18f2455.lkr0000664000076400007640000000235012122236170015653 00000000000000// File: 18f2455.lkr // Sample linker script for the PIC18F2455 processor // Not intended for use with MPLAB C18. For C18 projects, // use the linker scripts provided with that product. LIBPATH . CODEPAGE NAME=page START=0x0 END=0x5FFF CODEPAGE NAME=idlocs START=0x200000 END=0x200007 PROTECTED CODEPAGE NAME=config START=0x300000 END=0x30000D PROTECTED CODEPAGE NAME=devid START=0x3FFFFE END=0x3FFFFF PROTECTED CODEPAGE NAME=eedata START=0xF00000 END=0xF000FF PROTECTED ACCESSBANK NAME=accessram START=0x0 END=0x5F DATABANK NAME=gpr0 START=0x60 END=0xFF DATABANK NAME=gpr1 START=0x100 END=0x1FF DATABANK NAME=gpr2 START=0x200 END=0x2FF DATABANK NAME=gpr3 START=0x300 END=0x3FF DATABANK NAME=usb4 START=0x400 END=0x4FF PROTECTED DATABANK NAME=usb5 START=0x500 END=0x5FF PROTECTED DATABANK NAME=usb6 START=0x600 END=0x6FF PROTECTED DATABANK NAME=usb7 START=0x700 END=0x7FF PROTECTED ACCESSBANK NAME=accesssfr START=0xF60 END=0xFFF PROTECTED gpsim-0.27.0/regression/usart_test/usart_pir1v2.asm0000664000076400007640000001504412121461357017300 00000000000000 ;; USART test ;; ;; The purpose of this program is to verify that gpsim's ;; USART functions properly. The USART module is used to loop ;; characters back to the receiver testing RCIF interupts. ;; ;; ;; list p=16f877 include include __CONFIG _WDT_OFF errorlevel -302 radix dec ;---------------------------------------------------------------------- ; RAM Declarations ; INT_VAR UDATA 0x20 w_temp RES 1 status_temp RES 1 pclath_temp RES 1 ;fsr_temp RES 1 INT_VAR1 UDATA 0xA0 w_temp1 RES 1 ;Alias for w_temp at address 0x20 GPR_DAT UDATA #define RX_BUF_SIZE 0x10 temp1 RES 1 temp2 RES 1 temp3 RES 1 tx_ptr RES 1 rxLastByte RES 1 rxFlag RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,w clrf STATUS movwf status_temp movf PCLATH,w movwf pclath_temp clrf PCLATH bcf STATUS,RP0 btfsc INTCON,PEIE btfss PIR1,RCIF goto int_done ;;; Received a Character .assert "rcreg == txreg, \"sent character looped back\"" nop movf RCREG,W movwf rxLastByte bsf rxFlag,0 int_done: clrf STATUS movf pclath_temp,w movwf PCLATH swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;; ---------------------------------------------------- ;; ;; start ;; MAIN CODE start .sim ".frequency=10e6" .sim ".xpos = 48" .sim ".ypos = 36" .sim "break c 0x100000" .sim "module library libgpsim_modules" .sim "module load usart U1" .sim "U1.xpos = 240" .sim "U1.ypos = 204" .sim "node PIC_tx" .sim "node PIC_rx" ;; Tie the USART module to the PIC .sim "attach PIC_tx portc6 U1.RXPIN" .sim "attach PIC_rx portc7 U1.TXPIN" ;; Set the USART module's Baud Rate .sim "U1.txbaud = 4800" .sim "U1.rxbaud = 4800" .sim "U1.loop = true" ;; USART Initialization ;; ;; Turn on the high baud rate (BRGH), disable the transmitter, ;; disable synchronous mode. ;; clrf STATUS bsf PORTC,6 ;Make sure the TX line drives high when ;it is programmed as an output. bsf STATUS,RP0 bsf TRISC,7 ;RX is an input bcf TRISC,6 ;TX is an output ;; CSRC - clock source is a don't care ;; TX9 - 0 8-bit data ;; TXEN - 0 don't enable the transmitter. ;; SYNC - 0 Asynchronous ;; BRGH - 1 Select high baud rate divisor ;; TRMT - x read only ;; TX9D - 0 not used movlw (1< 9 bits ; and < 10 bits or between 0.9375 and 1.041 msec. ; with oscillator at 20MHz and TMR0 / 64 expect between 73 and 81 ; TMR0 cycles. Or 146 - 162 for 2 characters movf TMR0,W .assert "tmr0 > 146 && tmr0 < 162, \"*** FAILED baud rate\"" nop clrf rxFlag call rx_loop .assert "(pir1 & 0x10) == 0x10, \"*** FAILED TXIF low double send\"" nop done: .assert "\"*** PASSED Usart with PIR1V2\"" goto $ TransmitNextByte: clrf rxFlag call tx_message movwf TXREG rx_loop: btfss rxFlag,0 goto rx_loop ; clrf temp2 ; call delay ;; Delay between bytes. btfss PIR1,TXIF goto $-1 return tx_message incf tx_ptr,w andlw 0x0f movwf tx_ptr addlw TX_TABLE skpnc incf PCLATH,f movwf PCL TX_TABLE dt "0123456789ABCDEF",0 delay decfsz temp1,f goto $+2 decfsz temp2,f goto delay return end gpsim-0.27.0/regression/usart_test/18f2321.lkr0000755000076400007640000000167311116730226015656 00000000000000// $Id: 18f2321.lkr 448 2006-08-19 02:52:41Z craigfranklin $ // File: 18f2321.lkr // Sample linker script for the PIC18F2321 processor // Not intended for use with MPLAB C18. For C18 projects, // use the linker scripts provided with that product. LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x29 PROTECTED CODEPAGE NAME=page START=0x2A END=0x1FFF CODEPAGE NAME=idlocs START=0x200000 END=0x200007 PROTECTED CODEPAGE NAME=config START=0x300000 END=0x30000D PROTECTED CODEPAGE NAME=devid START=0x3FFFFE END=0x3FFFFF PROTECTED CODEPAGE NAME=eedata START=0xF00000 END=0xF000FF PROTECTED ACCESSBANK NAME=accessram START=0x0 END=0x7F DATABANK NAME=gpr0 START=0x80 END=0xFF DATABANK NAME=gpr1 START=0x100 END=0x1FF ACCESSBANK NAME=accesssfr START=0xF80 END=0xFFF PROTECTED gpsim-0.27.0/regression/usart_test/16f877.lkr0000644000076400007640000000330510416271525015605 00000000000000// Sample linker command file for 16F877 // $Id: 16f877.lkr 1250 2005-09-03 17:25:24Z sdattalo $ LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page0 START=0x5 END=0x7FF CODEPAGE NAME=page1 START=0x800 END=0xFFF CODEPAGE NAME=page2 START=0x1000 END=0x17FF CODEPAGE NAME=page3 START=0x1800 END=0x1FFF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x21FF PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xEF DATABANK NAME=gpr2 START=0x110 END=0x16F DATABANK NAME=gpr3 START=0x190 END=0x1EF SHAREBANK NAME=gprnobnk START=0x70 END=0x7F SHAREBANK NAME=gprnobnk START=0xF0 END=0xFF SHAREBANK NAME=gprnobnk START=0x170 END=0x17F SHAREBANK NAME=gprnobnk START=0x1F0 END=0x1FF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG1 ROM=page0 // ROM code space - page0 SECTION NAME=PROG2 ROM=page1 // ROM code space - page1 SECTION NAME=PROG3 ROM=page2 // ROM code space - page2 SECTION NAME=PROG4 ROM=page3 // ROM code space - page3 SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/usart_test/18f2221.lkr0000664000076400007640000000147711560506101015652 00000000000000// File: 18f2221.lkr // Sample linker script for the PIC18F2221 processor // Not intended for use with MPLAB C18. For C18 projects, // use the linker scripts provided with that product. LIBPATH . CODEPAGE NAME=page START=0x0 END=0xFFF CODEPAGE NAME=idlocs START=0x200000 END=0x200007 PROTECTED CODEPAGE NAME=config START=0x300000 END=0x30000D PROTECTED CODEPAGE NAME=devid START=0x3FFFFE END=0x3FFFFF PROTECTED CODEPAGE NAME=eedata START=0xF00000 END=0xF000FF PROTECTED ACCESSBANK NAME=accessram START=0x0 END=0x7F DATABANK NAME=gpr0 START=0x80 END=0xFF DATABANK NAME=gpr1 START=0x100 END=0x1FF ACCESSBANK NAME=accesssfr START=0xF80 END=0xFFF PROTECTED gpsim-0.27.0/regression/instructions_16bit/0000775000076400007640000000000012210742355015664 500000000000000gpsim-0.27.0/regression/instructions_16bit/18f452.lkr0000644000076400007640000000205211354350767017156 00000000000000// $Id: 18f452.lkr 2087 2010-03-29 20:37:10Z bdt-rob $ // File: 18f452.lkr // Sample linker script for the PIC18F452 processor LIBPATH . CODEPAGE NAME=page START=0x00 END=0x7FFF CODEPAGE NAME=idlocs START=0x200000 END=0x200007 PROTECTED CODEPAGE NAME=config START=0x300000 END=0x30000D PROTECTED CODEPAGE NAME=devid START=0x3FFFFE END=0x3FFFFF PROTECTED CODEPAGE NAME=eedata START=0xF00000 END=0xF000FF PROTECTED ACCESSBANK NAME=accessram START=0x0 END=0x7F DATABANK NAME=gpr0 START=0x80 END=0xFF DATABANK NAME=gpr1 START=0x100 END=0x1FF DATABANK NAME=gpr2 START=0x200 END=0x2FF DATABANK NAME=gpr3 START=0x300 END=0x3FF DATABANK NAME=gpr4 START=0x400 END=0x4FF DATABANK NAME=gpr5 START=0x500 END=0x5FF ACCESSBANK NAME=accesssfr START=0xF80 END=0xFFF PROTECTED SECTION NAME=CONFIG ROM=config SECTION NAME=IDLOCS ROM=idlocs gpsim-0.27.0/regression/instructions_16bit/instructions_16bit.asm0000664000076400007640000004100112160746025022055 00000000000000 ;; it.asm ;; ;; The purpose of this program is to test how well gpsim can simulate ;; a 16bit-core pic (like the 18cxxx family not the 17c family. ;; Nothing useful is performed - this program is only used to ;; debug gpsim. list p=18f452 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA temp RES 1 temp1 RES 1 temp2 RES 1 failures RES 1 GLOBAL done, temp IDLOCS CODE db "ID" ; This is the id locations ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE clrf temp1 ;Assume clrf works... ; bra start failed1: ; a relatively local label bra failed start: ;; Perform some basic tests on some important instructions setc ;set the Carry flag skpc ;and verify that it happened bra failed1 bnc failed1 clrc ;Now try clearing the carry skpnc bra failed1 bc failed1 setz ;set the Zero flag skpz ;and verify that it happened bra failed1 bnz failed1 clrz ;Now try clearing it skpnz bra failed1 bz failed1 setdc ;set the Digit Carry flag skpdc ;and verify that it happened bra failed clrdc ;Now try clearing it skpndc bra failed setov ;set the Over Flow flag skpov ;and verify that it happened bra failed bnov failed1 clrov ;Now try clearing it skpnov bra failed bov failed1 setn ;set the negative flag skpn ;and verify that it happened bra failed bnn failed1 clrn ;Now try clearing it skpnn bra failed bn failed1 movlw 1 movwf temp movf temp,f bz failed1 movlw 0 movwf temp movf temp,f bnz failed1 clrf temp ;Clear a register bnz failed1 ;and verify that the Z bit is set movf temp,w ;Read the register that was just bnz failed1 ;and verify that the Z bit is set incf temp,w ;Now this should cause the Z bit to bz failed1 ;get cleared. movlw 0xff movwf temp incf temp,F bnz failed1 ;; ;; incfsz ;; movlw 0xff movwf temp movf temp,f ;Should clear Z incfsz temp,w bra failed bz failed1 ;incfsz shouldn't affect Z incfsz temp,f ;temp should now be zero bra failed incfsz temp,w ;the following inst. shouldn't be skipped skpnz ;Z should be clear from above. bra failed ;; ;; addwf test: ;; ;; The purpose of this test is to a) verify that the addwf instruction ;; adds correctly and b) that the appropriate status register bits are ;; set correctly. clrw clrf temp addwf temp,w ; 0+0 bc failed1 bnz failed1 skpndc bra failed movlw 1 ; 0+1 addwf temp,w bc failed1 bz failed1 bn failed1 bov failed1 skpndc bra failed movlw 8 ; 8+8 , test dc movwf temp addwf temp,w bc failed1 bz failed1 skpdc bra failed bn failed1 bov failed1 movlw 0x88 ; 0x88+0x88 movwf temp addwf temp,w bnc failed1 bz failed1 skpdc bra failed bn failed1 bnov failed1 movlw 0x80 ; 0x80+0x80 movwf temp addwf temp,w bnc failed1 bnz failed1 skpndc bra failed bn failed1 bnov failed1 clrw addwf temp,w ; 0x80+0 skpc skpnz bra failed skpndc bra failed skpnn skpov bra failed clrf temp addwf temp,w ; 0+0x80 skpc skpnz bra failed skpndc bra failed skpnn skpnov bra failed movlw 1 movwf temp movlw 0xff addwf temp,w skpc bra failed skpz bra failed skpdc bra failed clrc clrdc ;; ;; andwf test: ;; clrf temp movlw 1 andwf temp,f skpz bra failed skpc skpndc bra failed andwf temp,w skpz bra failed skpc skpndc bra failed movlw 1 movwf temp andwf temp,f skpnz bra failed skpc skpndc bra failed movlw 0xff andwf temp,f ;1 & 0xff should = 1 skpnz bra failed skpc skpndc bra failed movlw 0xff ;Now add 0xff to see if temp addwf temp,f ;really is 1. (should cause a carry) skpnz skpc bra failed ;; ;; decf ;; clrf temp decf temp,F ;0==>0xff skpc skpnz bra failed decf temp,F ;0xff==>0xfe skpnc skpnz bra failed incf temp,F skpc skpnz bra failed incf temp,F skpnc skpz bra failed ;; ;; iorwf ;; movlw 0 movwf temp iorwf temp,f skpz bra failed movlw 1 iorwf temp,f skpnz bra failed movlw 0xff addwf temp,f skpnz skpc bra failed ;; ;; rlcf ;; clrdc clrf temp clrc rlcf temp,w skpdc skpnc bra failed skpz bra failed setc rlcf temp,f skpdc skpnc bra failed skpnz bra failed movlw 0xff addwf temp,f skpnz skpc bra failed rlcf temp,f skpnc bra failed movlw 0x80 movwf temp rlcf temp,w skpc bra failed movwf temp addwf temp,w skpz bra failed ;; ;; rrcf ;; clrdc clrf temp clrc rrcf temp,w skpdc skpnc bra failed skpz bra failed setc rrcf temp,f skpdc skpnc bra failed skpnz bra failed movlw 0x80 addwf temp,f skpnz skpc bra failed rrcf temp,f skpnc bra failed movlw 1 movwf temp rrcf temp,w skpc bra failed movwf temp addwf temp,w skpz bra failed ;; ;; subwf test: ;; clrf WREG clrf temp subwf temp,w ; 0-0 skpc bra failed skpz bra failed skpdc bra failed movlw 1 ; 0-1 subwf temp,w skpnc bra failed skpnz bra failed skpndc bra failed movlw 0x10 ; 0x10-0x10 movwf temp subwf temp,w skpc bra failed skpz bra failed skpdc bra failed movlw 0x88 ; 0x88-0x88 movwf temp subwf temp,w skpc bra failed skpz bra failed skpdc bra failed clrf temp movlw 0x80 ; 0 - 0x80 subwf temp,f skpnc bra failed skpnz bra failed skpdc bra failed movlw 0 ; 0x80 - 0 subwf temp,w skpc bra failed skpnz bra failed skpdc bra failed movlw 1 ; 0x80 - 1 subwf temp,w skpc bra failed skpnz bra failed skpndc bra failed movlw 0x05 movwf temp ;; positive - positive => positive no overflow movlw 0x03 subwf temp,W bov failed2 ;; positive - positive => negative, no overflow movlw 0x07 subwf temp,W bov failed2 ;; positive - negative => positive, no overflow. movlw 0xff subwf temp,W bov failed2 ;; positive - negative => negative, overflow. movlw 0x81 subwf temp,W bnov failed2 movlw -0x05 movwf temp ;; negative - positive => positive, overflow movlw 0x7e subwf temp,W bnov failed2 ;; negative - positive => negative, no overflow movlw 0x02 subwf temp,W bov failed2 ;; negative - negative => positive, no overflow. movlw -0x07 subwf temp,W bov failed2 ;; negative - negative => negative, overflow. movlw -0x02 subwf temp,W bov failed2 ;; test subwfc movlw 0xf0 subwfb temp,W ;; temp=fb - W=f0 - B = W=a .assert "W == 0xa, \"*** FAILED subwfb fb - f0 - 1 = a\"" nop subwfb temp,F ;; temp=fb - W=a -0 = temp=f1 .assert "temp == 0xf1, \"*** FAILED subwfb fb - a - 0 = f1\"" nop clrc clrdc ;; ;; xorwf ;; clrf temp movlw 0xff xorwf temp,f skpc skpndc bra failed bz failed xorwf temp,f bnz failed xorwf temp,f incfsz temp,f bra failed ;; ;; swapf ;; movlw 0x0f movwf temp swapf temp,f xorwf temp,f incfsz temp,f bra failed ;; ;; daw ;; ; trivial case : 13+25=38, DAW makes no adjustment movlw 0x13 addlw 0x25 daw bc failed xorlw 0x38 bnz failed ; simple case : 28+39=67, DAW adjusts lower nibble only movlw 0x28 addlw 0x39 daw bc failed xorlw 0x67 bnz failed ; carry case : 84+39=123, DAW adjusts both nibbles and sets carry movlw 0x84 addlw 0x39 daw bnc failed xorlw 0x23 bnz failed ; corner case : 96+84=180, DAW adjusts both nibbles but must leave existing carry set movlw 0x96 addlw 0x84 daw bnc failed ; this used to fail xorlw 0x80 bnz failed if 0 ; subtract case : 47-19=28, DAW adjusts lower nibble only ; Not sure the real PIC works here - the data sheet says "addition" movlw 0x19 sublw 0x47 daw bnc failed xorlw 0x28 bnz failed endif ;; clrf temp negf temp bnz failed incf temp,f negf temp bz failed incfsz temp,f bra failed goto BranchTest failed2: ; interim label for tests above bra failed BranchTest: call CallTest bra MultiWordInstructions CallTest return MultiWordInstructions: movlw 0xa5 movwf temp1 movff WREG,temp2 xorwf temp2,W bnz failed ;; LFSR LFSR 0,temp1 MOVF INDF0,W xorwf INDF0,W bnz failed TableRead: ; get a pointer to the start of the table area clrf TBLPTRU movlw LOW(TableDATA) movwf TBLPTRL movlw HIGH(TableDATA) movwf TBLPTRH ; read the table and test the autoinc and autodec. tblrd *+ movlw 0x11 rcall TestTablat tblrd * movlw 0x22 rcall TestTablat tblrd *+ movlw 0x22 rcall TestTablat tblrd *- movlw 0x33 rcall TestTablat tblrd * movlw 0x22 rcall TestTablat tblrd +* movlw 0x33 rcall TestTablat clrf TBLPTRH setf TBLPTRL tblrd *+ movlw 1 cpfseq TBLPTRH .assert "\"FAILED tblrd increment over boundary\"" bra failed tblrd *- movlw 0 cpfseq TBLPTRH .assert "\"FAILED tblrd decrement over boundary\"" bra failed clrf TBLPTRL tblrd *- movlw 0xFF cpfseq TBLPTRH .assert "\"FAILED tblrd decrement over boundary\"" bra failed tblrd +* movlw 0 cpfseq TBLPTRH .assert "\"FAILED tblrd increment over boundary\"" bra failed ; Now a quick check of an ID location movlw 0x20 movwf TBLPTRU clrf TBLPTRH clrf TBLPTRL tblrd *+ movlw 0x49 rcall TestTablat tblrd * movlw 0x44 rcall TestTablat bra TableReadEnd TableDATA: db 0x11,0x22,0x33,0x44 TestTablat: cpfseq TABLAT .assert "\"FAILED tblrd indexing / value\"" bra failed return TableReadEnd: ; ; Now test 16-bit core SFRs (which should be done in an SFR test but there isn't one) ; movlw 0xFF movwf PCLATH .assert "pclath == 0xFF, \"*** FAILED 16-bit PCLATH masking\"" nop clrf PCLATH movlb 5 .assert "bsr == 5, \"*** FAILED movlb\"" nop done: .assert "\"*** PASSED 16bit-core instruction test\"" bra $ failed: movlw 1 movwf failures .assert "\"*** FAILED 16bit-core instruction test\"" bra done if 0 ;; ;; Test indirect branching ;; test_pcl: clrf temp clrf temp1 tt1: movf temp,w call table_test xorwf temp,w skpz bsf temp1,0 incf temp,f btfss temp,4 goto tt1 goto test_pcl2 table_test: addwf PCL,f table: retlw 0 retlw 1 retlw 2 retlw 3 retlw 4 retlw 5 retlw 6 retlw 7 retlw 8 retlw 9 retlw 10 retlw 11 retlw 12 retlw 13 retlw 14 retlw 15 test_pcl2: btfsc temp2,0 goto test_pcl3 movlw 0x20 movwf FSR0L clrf FSR0H next clrf INDF0 incf FSR0L,1 btfss FSR0L,4 goto next bsf temp2,0 clrf PCL test_pcl3: movlw ly movwf PCL ; == goto ly lx goto test_pcl4 ly movlw lx movwf PCL test_pcl4: goto $ endif end gpsim-0.27.0/regression/instructions_16bit/Makefile0000644000076400007640000000052010563700466017245 00000000000000include ../make.regression SCRIPT = 18f452.lkr PROJECT = instructions_16bit OBJECTS = $(PROJECT).o OUTPUT = $(PROJECT).hex COD = $(PROJECT).cod STC = $(PROJECT).stc all : $(OUTPUT) $(OUTPUT) $(COD) : $(OBJECTS) $(SCRIPT) gplink --map -s $(SCRIPT) -o $(OUTPUT) $(OBJECTS) sim: $(COD) $(GPSIM) -i -I $(STARTUP_STC) -D STC=$(STC) gpsim-0.27.0/regression/instructions_16bit/instructions_16bit.stc0000644000076400007640000000010710416271562022067 00000000000000# simple script to load the simulation load s instructions_16bit.cod gpsim-0.27.0/regression/make.regression0000644000076400007640000000162211226337047015055 00000000000000# Top-level make file included by all of the regression test makefiles ifdef GPSIM_PATH PATH := $(GPSIM_PATH):$(PATH) else PATH := ../../gpsim:$(PATH) endif ifdef EXTENDED_INSTRUCTIONS ASM_FLAGS = -c --extended else ASM_FLAGS = -c endif # The gpsim startup configuration script is loaded # at the invocation of each regression test. STARTUP_STC=../startup.stc GPSIM = gpsim %.o : %.asm gpasm $(ASM_FLAGS) $< # this rule will expands the sim_% target # for example, in the a2d regression test there are # several tests that have targets of the form 'sim_p16f88' # This rule will make that target depend on p16f88.cod # (which in turn has a dependency on p16f88.asm) and will # invoke the simulator sim_%: %.cod $(GPSIM) -i -I $(STARTUP_STC) -D STC="$<" %.-: %.cod $(GPSIM) -s $< # Each regression test has a target 'all' top: all clean: rm -f *~ *.o *.lst *.map *.hex *.cod *.log startup.stc gpsim-0.27.0/regression/digital_stim/0000775000076400007640000000000012210742355014564 500000000000000gpsim-0.27.0/regression/digital_stim/16f84.lkr0000644000076400007640000000160410416271563015771 00000000000000// Sample linker command file for 16F84 // $Id: 16f84.lkr 1228 2005-08-23 16:36:11Z sdattalo $ LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page START=0x5 END=0x3FF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x213F PROTECTED DATABANK NAME=sfr0 START=0x0 END=0xB PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x8B PROTECTED DATABANK NAME=gprs START=0xC END=0x4F SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/digital_stim/Makefile0000644000076400007640000000051110563700447016144 00000000000000include ../make.regression SCRIPT = 16f84.lkr PROJECT = digital_stim OBJECTS = $(PROJECT).o OUTPUT = $(PROJECT).hex COD = $(PROJECT).cod STC = $(PROJECT).stc all : $(OUTPUT) $(OUTPUT) $(COD) : $(OBJECTS) $(SCRIPT) gplink --map -s $(SCRIPT) -o $(OUTPUT) $(OBJECTS) sim: $(COD) $(GPSIM) -i -I $(STARTUP_STC) -D STC=$(STC) gpsim-0.27.0/regression/digital_stim/digital_stim.asm0000644000076400007640000000466411175473637017704 00000000000000 radix dec ;; The purpose of this regression test is to test ;; digital stimuli. ;; It also tests portb0 will cause interrupt on leading edge during ;; sleep. list p=16f84 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros __CONFIG _WDT_ON ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA temp RES 1 temp1 RES 1 temp2 RES 1 failures RES 1 w_temp RES 1 status_temp RES 1 GLOBAL done ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program Interupt_vector CODE 0x004 goto interrupt ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start clrf failures clrf temp1 ; a counter clrf temp2 ; a flag keeping track of the state of port b begin: ;; Count the rising edges on portb bit 0 movf PORTB,W xorwf temp2,w xorwf temp2,f andwf temp2,w andlw 1 skpz incf temp1,f btfss PORTB,1 goto begin movf temp1,W #define EXPECTED_PULSES .20 xorlw EXPECTED_PULSES skpz .assert "\"*** FAILED digital stimulus test\"" incf failures,F ; test interrupt movlw 0x90 movwf INTCON sleep clrf INTCON done: .assert "\"*** PASSED digital stimulus test\"" goto done interrupt movwf w_temp movf INTCON,W .assert "(portb & 1) == 1, \"*** FAILED digital stimulus test-interrupt not on rising edge\"" nop movlw 0x90 movwf INTCON swapf w_temp,F swapf w_temp,W retfie end gpsim-0.27.0/regression/digital_stim/digital_stim.stc0000644000076400007640000000234710416271563017700 00000000000000load digital_stim.cod # Digital Stimulus Test # # Two stimuli are created. One puts out a stream of # pulses and the other a single step. The firmware # will count the pulses until it sees the step. # echo Digital Stimulus test ############################################################ # define a stimulus to generate two pulses every 1000 # cycles stimulus asynchronous_stimulus # The initial state AND the state the stimulus is when # it rolls over initial_state 0 # all times are with respect to the cpu's cycle counter start_cycle 0 # the asynchronous stimulus will roll over in 'period' # cycles. Delete this line if you don't want a roll over. period 1000 { 100, 1, 200, 0, 300, 1, 400, 0 } # Give the stimulus a name: name two_pulse_repeat end ############################################################ # define a stimulus that generates a step function # stimulus asynchronous_stimulus initial_state 0 # all times are with respect to the cpu's cycle counter start_cycle 0 { 10000, 1 } # Give the stimulus a name: name step_function end # Create the nodes node pulse_node node step_node # attach the stimuli to the I/O pins attach pulse_node two_pulse_repeat portb0 attach step_node step_function portb1 gpsim-0.27.0/regression/p16f684/0000775000076400007640000000000012210742355013131 500000000000000gpsim-0.27.0/regression/p16f684/reset.asm0000664000076400007640000001773312175377100014712 00000000000000 ; 16f684 gpsim regression test ; ; The purpose of this test is to verify that the 16f684 ; is implemented correctly. Here's a list of specific things ; tested: ; ; 1) Power On Reset ; 2) WDT during sleep ; 3) WDT during execution ; 4) Interrupt on PIN change during sleep ; 5) MCLR during sleep ; 6) MCLR during execution list p=16f684 include include __CONFIG _WDT_ON & _MCLRE_ON radix dec ; Printf Command .command macro x .direct "C", x endm GPR_DATA UDATA_SHR ResetSequence RES 1 optionShadow RES 1 aint_cnt RES 1 w_temp RES 1 status_temp RES 1 GLOBAL optionShadow, ResetSequence, aint_cnt ; Define the reset conditions to be checked. eRSTSequence_PowerOnReset equ 1 eRSTSequence_AwakeMCLR equ 2 eRSTSequence_AwakeWDT equ 3 eRSTSequence_AwakeIO equ 4 eRSTSequence_WDTTimeOut equ 5 ;---------------------------------------------------------------------- ; ********************* Reset Vector LOCATION *************************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program NT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,W movwf status_temp btfsc INTCON,RAIF goto raif_int .assert "\"***FAILED p16f684 unexpected interrupt\"" nop exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ; Interrupt from porta state change raif_int incf aint_cnt,F movf PORTA,W ; reading ports should clear RAIF .assert "(intcon & 1) == 0, \"***FAILED p16f684 RAIF clear on read porta\"" nop goto exit_int ;############################################################ ;# Create a stimulus to simulate a switch ; .sim "module lib libgpsim_modules" .sim "p16f684.xpos = 72" .sim "p16f684.ypos = 72" .sim "module load pulsegen PG1" .sim "PG1.clear = 0" .sim "PG1.period = 0" .sim "PG1.set = 1" .sim "PG1.xpos = 228" .sim "PG1.ypos = 84" .sim "module load pulsegen MCLRE" .sim "MCLRE.clear = 0" .sim "MCLRE.period = 0" .sim "MCLRE.set = 1" .sim "MCLRE.xpos = 84" .sim "MCLRE.ypos = 204" .sim "MCLRE.initial = 5.0" ;############################################################ .sim "node nSwitch" .sim "attach nSwitch porta0 PG1.pin" .sim "node nMCLR" .sim "attach nMCLR MCLR MCLRE.pin" ;############################################################ .sim "symbol resetCounter=1" ; NOT_GPWU = 0 - Enable wakeup if I/O pins 0,1, or 3 change states ; NOT_GPPU = 1 - Disable weak pullups on I/O pins 0,1, and 3 ; TOCS = 0 - Let the clock source for TMR0 be the internal fosc/4 ; TOSE = 0 - don't care - TMR0 source edge. ; PSA = 1 - assign Prescale to the WDT ; PS2:0 = 000 - prescale = 2^0=1 .sim "optionShadow=8" ; PSA=1 .sim "ResetSequence=0" .sim ".BreakOnReset = false" ; Set a cycle break point far in the future in case the resets fail. .sim "break c 0x1000000" bSWITCH equ 0 start .assert "option_reg==0xff, \"*** FAILED p16f684 resets, option 0xff on reset\"" nop .assert "trisa==0x3f, \"*** FAILED p16f684 resets, trisa 0x3f on reset\"" nop ;RRR MOVWF OSCCAL ; put calibration into oscillator cal reg ; PORTA setup ; If this is a PowerOn reset, then the state of the PORTA output register ; is unknown. If this is not a PowerOn reset then the PORTA pins have ; the same state they had prior to the reset. ; ; TRIS register setup - The I/O pins are always configured as Inputs after ; any reset. MOVF optionShadow,W ;optionShadow is initialized by the gpsim script BANKSEL TRISA MOVWF OPTION_REG MOVLW 1< /MCLR while sleeping goto PowerOnReset ;/TO=1, /PD=1 ==> Power has just been applied TO_is_low BTFSS STATUS,NOT_PD goto AwakeWDT ;/TO=0, /PD=0 ==> WDT while sleeping goto WDTTimeOut ;/TO=0, /PD=1 ==> WDT while not sleeping ;======================================================================== ; ; PowerOnReset ; ;======================================================================== PowerOnReset: movf ResetSequence,W XORLW eRSTSequence_AwakeMCLR skpnz goto done .assert "resetCounter==1,\"*** FAILED Power On Reset\"" nop MOVLW eRSTSequence_PowerOnReset MOVWF ResetSequence .command "resetCounter = resetCounter+1" nop SLEEP ;======================================================================== ; ; AwakeWDT - WDT timed out while we were sleeping. ; ;======================================================================== AwakeWDT: MOVLW eRSTSequence_AwakeWDT .assert "resetCounter==2,\"*** FAILED WDT Reset\"" nop MOVWF ResetSequence .command "resetCounter = resetCounter+1" nop CLRWDT ; loop until WDT times out here: goto here ;======================================================================== ; ; WDTTimeOut - WatchDog timer timed out while we were awake. ; ;======================================================================== WDTTimeOut: .assert "resetCounter==3,\"*** FAILED WDT timeout\"" nop MOVLW eRSTSequence_WDTTimeOut MOVWF ResetSequence .command "resetCounter = resetCounter+1" nop CLRWDT .command "PG1.clear = cycles+100" nop CLRF aint_cnt SLEEP ;======================================================================== ; ; AwakeIO - an I/O pin changed state when in analog mode ; This should not wakeup from sleep (continue with WDT wakeup) ; ;======================================================================== .assert "aint_cnt==0, \"*** FAILED Wakeup on analog pin change\"" nop BANKSEL ANSEL CLRF ANSEL ; turn off ADC BANKSEL PORTA CLRF aint_cnt ; we may get an interrupt on this change .command "PG1.set = cycles+100" nop SLEEP ;======================================================================== ; ; AwakeIO - an I/O pin changed states to awaken us from sleep. ; ;======================================================================== AwakeIO: .assert "aint_cnt==1, \"*** FAILED No Wakeup on I/O pin change\"" nop MOVLW eRSTSequence_AwakeIO .assert "resetCounter==4,\"*** FAILED Unexpected Wakeup on I/O pin change\"" nop MOVWF ResetSequence .command "resetCounter = resetCounter+1" nop CLRWDT ; reset the processor by driving /MCLR low for a few cycles .command "MCLRE.clear = cycles+100" .command "MCLRE.set = cycles+110" nop SLEEP .assert "\"*** FAILED Unexpected Wakeup waiting for MCLR\"" nop ;======================================================================== ; ; AwakeMCLR - MCLR went low while we were sleeping. ; ;======================================================================== AwakeMCLR: MOVLW eRSTSequence_AwakeMCLR .assert "resetCounter==5,\"*** FAILED /MCLR Reset\"" nop MOVWF ResetSequence .command "resetCounter = resetCounter+1" nop CLRWDT ; reset the processor by driving /MCLR low for a few cycles .command "MCLRE.clear = cycles+100" .command "MCLRE.set = cycles+110" nop waitForMCLR: goto waitForMCLR .assert "\"*** PASSED 16f684 Sleep and Reset test\"" done: goto done end gpsim-0.27.0/regression/p16f684/16f684.lkr0000664000076400007640000000244412127373223014426 00000000000000// Sample linker command file for 16F684 LIBPATH . CODEPAGE NAME=page START=0x0 END=0x7FF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=icd_inst START=0x2004 END=0x2004 PROTECTED CODEPAGE NAME=mfg_code START=0x2005 END=0x2005 PROTECTED CODEPAGE NAME=.device_id START=0x2006 END=0x2006 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=.calib START=0x2008 END=0x2008 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x21FF PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xBF SHAREBANK NAME=gprnobnk START=0x70 END=0x7F SHAREBANK NAME=gprnobnk START=0xF0 END=0xFF PROTECTED SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=ICD_INST ROM=icd_inst // ICD instruction SECTION NAME=MFG_CODE ROM=mfg_code // Manufacturing code SECTION NAME=DEVICEID ROM=.device_id // Device ID SECTION NAME=CALIBR ROM=.config // Calibration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/p16f684/Makefile0000664000076400007640000000234112127373223014512 00000000000000 include ../make.regression # # Use 16f684.lkr for all processors in this family # SCRIPT = 16f684.lkr all : nwdt_16f684.cod compar_684.cod wdt_16f684.cod epwm.cod a2d_684.cod reset.cod # wdt_16f685.cod eusart.cod nwdt_16f684.cod: nwdt_16f684.o $(SCRIPT) gplink --map -s $(SCRIPT) -o nwdt_16f684.cod nwdt_16f684.o wdt_16f684.cod: wdt_16f684.o $(SCRIPT) gplink --map -s $(SCRIPT) -o wdt_16f684.cod wdt_16f684.o a2d_684.cod: a2d_684.o $(SCRIPT) gplink --map -s $(SCRIPT) -o a2d_684.cod a2d_684.o compar_684.cod: compar_684.o $(SCRIPT) gplink --map -s $(SCRIPT) -o compar_684.cod compar_684.o epwm.cod: epwm.o $(SCRIPT) gplink --map -s $(SCRIPT) -o epwm.cod epwm.o reset.cod: reset.o $(SCRIPT) gplink --map -s $(SCRIPT) -o reset.cod reset.o sim: sim_epwm sim_nwdt_16f684 \ sim_wdt_16f684 sim_reset sim_compar_684 sim_epwm: epwm.cod $(GPSIM) -i -I $(STARTUP_STC) -D STC=$< sim_reset: reset.cod $(GPSIM) -i -I $(STARTUP_STC) -D STC=$< sim_compar_684: compar_684.cod $(GPSIM) -i -I $(STARTUP_STC) -D STC=compar_684.stc sim_nwdt_16f684: nwdt_16f684.cod $(GPSIM) -i -I $(STARTUP_STC) -D STC=$< sim_wdt_16f684: wdt_16f684.cod $(GPSIM) -i -I $(STARTUP_STC) -D STC=$< gpsim-0.27.0/regression/p16f684/compar_684.asm0000664000076400007640000001676212127373223015452 00000000000000 ;; Node test ;; ;; The purpose of this program is to verify that nodes ;; can interconnect I/O pins. list p=16f684 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros __CONFIG _EXTRC_OSC_NOCLKOUT ;------------------------------------------------------------------------ ; gpsim command .command macro x .direct "C", x endm CMODE0 EQU H'0000' CMODE1 EQU H'0001' CMODE2 EQU H'0002' CMODE3 EQU H'0003' CMODE4 EQU H'0004' CMODE5 EQU H'0005' CMODE6 EQU H'0006' CMODE7 EQU H'0007' ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR temp RES 1 w_temp RES 1 status_temp RES 1 GLOBAL done1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,W movwf status_temp btfsc PIR1,C1IF goto icm1 goto exit_int icm1: bcf PIR1,C1IF goto done1 exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start .assert "cmcon0 == 0x00, \"FAILED 16f684 CMCON0 POR\"" ; Rest value nop BANKSEL PIR1 clrf PIR1 movlw CMODE7 ; turn off comparater movwf CMCON0 BANKSEL ANSEL clrf ANSEL movlw 0x0f ; RA3-RA0 are inputs movwf TRISA movlw 0xAB ; enable Vref 11 low range movwf VRCON ; ; test mode 2 - Four Inputs muxed to two comparators with Vref ; movlw CMODE2 ; comparater mux reference BANKSEL CMCON0 movwf CMCON0 .assert "(cmcon0 & 0xc0) == 0x80, \"FAILED 16f684 m2 C1OUT=0 C2OUT=1\"" nop .assert "(pir1 & 0x18) == 0x10, \"FAILED 16f684 C1if=0 C2IF=1\"" nop clrf PIR1 movlw 0x8B ; enable Vref 11 high range BANKSEL VRCON movwf VRCON .assert "(cmcon0 & 0xc0) == 0xc0, \"FAILED 16f684 m2 C1OUT=1 C2OUT=1\"" nop bcf OPTION_REG,T0CS ; Timer not from RA4 movlw 0x03 movwf TRISC BCF STATUS,RP0 .assert "(cmcon0 & 0xc0) == 0xc0, \"FAILED 16f684 m2 C1OUT=1 C2OUT=1\"" nop .assert "(pir1 & 0x18) == 0x08, \"FAILED 16f684 C1IF=1 C2IF=0\"" nop bcf PIR1,C1IF .assert "(pir1 & 0x18) == 0x00, \"FAILED 16f684 C1IF=0 C2IF=0\"" nop bsf PORTC,5 ; drive comp 1 input high .assert "(cmcon0 & 0xc0) == 0x80, \"FAILED 16f684 m2 C1OUT=0 C2OUT=1\"" nop .assert "(pir1 & 0x18) == 0x08, \"FAILED 16f684 C1IF=1\"" nop bcf PIR1,C1IF bsf CMCON0,C1INV ; invert output bsf CMCON0,C2INV .assert "(cmcon0 & 0xc0) == 0x40, \"FAILED 16f684 m2 invert C1OUT=1 C2OUT=0\"" nop .assert "(pir1 & 0x18) == 0x18, \"FAILED 16f684 C1IF=1\"" nop bcf PIR1,C1IF bcf PIR1,C2IF bsf PORTA,4 ; drive comp 2 input high bcf PORTC,5 ; drive comp 1 input low bsf PORTC,3 ; drive comp 1 input 2 high .assert "(cmcon0 & 0xc0) == 0x80, \"FAILED 16f684 m2 new inputs C1OUT=0 C2OUT=1\"" nop .assert "(pir1 & 0x18) == 0x18, \"FAILED 16f684 C1IF=1 C2IF=1\"" nop bsf CMCON0,CIS ; switch pins .assert "(cmcon0 & 0xc0) == 0x40, \"FAILED 16f684 m2 new inputs C1OUT=1 C2OUT=0\"" nop movlw CMODE2 ; comparater mux reference movwf CMCON0 .assert "(cmcon0 & 0xc0) == 0x40, \"FAILED 16f684 m6 invert normal C1OUT=1 C2OUT=0\"" nop clrf PIR1 BANKSEL PIE1 bsf PIE1,C1IE ; enable Comparator interupts bsf PIE1,C2IE ; enable Comparator interupts bsf INTCON,PEIE ; enable Periperal inturrupts bsf INTCON,GIE ; and globale interupts BANKSEL PORTC bsf PORTC,5 ; drive comp1 input low to trigger interrupt nop nop goto FAILED ; no interrupt done1: ; ; mode1 - 3 inputs mux to two comparators ; bsf PORTC,3 ; c1- = H bcf PORTC,5 ; c1+ = 0 bcf PORTC,2 ; c2- = 0 bsf PORTA,4 ; cx+ = H movlw CMODE1 movwf CMCON0 .assert "(cmcon0 & 0xc0) == 0x80, \"FAILED 16f684 m1 C1OUT=0 C2OUT=1\"" nop bsf CMCON0,CIS .assert "(cmcon0 & 0xc0) == 0xc0, \"FAILED 16f684 m1 C1OUT=1 C2OUT=1\"" nop ; ; mode 4 - Two independant Comparators ; ; Both Comparator true bcf PORTC,3 ; c1- = 0 bsf PORTC,5 ; c1+ = H bcf PORTC,2 ; c2- = 0 bsf PORTA,4 ; c2+ = H movlw CMODE4 movwf CMCON0 .assert "(cmcon0 & 0xc0) == 0xc0, \"FAILED 16f684 m4 C1OUT=1 C2OUT=1\"" nop ; C1 high only bcf PORTA,4 bsf PORTC,2 .assert "(cmcon0 & 0xc0) == 0x40, \"FAILED 16f684 m4 C1OUT=1 C2OUT=0\"" nop ; C2 only high bsf PORTC,3 ; c1- = H bcf PORTC,5 ; c1+ = 0 bcf PORTC,2 ; c2- = 0 bsf PORTA,4 ; c2+ = H .assert "(cmcon0 & 0xc0) == 0x80, \"FAILED 16f684 m4 C1OUT=0 C2OUT=1\"" nop ; both low bsf PORTC,2 ; c2- = H bcf PORTA,4 ; c2+ = 0 .assert "(cmcon0 & 0xc0) == 0x00, \"FAILED 16f684 m4 C1OUT=0 C2OUT=0\"" nop ; ; mode 3 - Two common reference Comparators ; movlw CMODE3 movwf CMCON0 bsf PORTC,3 ; c1- = H bcf PORTC,2 ; c2- = 0 bsf PORTA,4 ; cx+ = H .assert "(cmcon0 & 0xc0) == 0x80, \"FAILED 16f684 m3 C1OUT=0 C2OUT=1\"" nop bcf PORTC,3 ; c1- = 0 bsf PORTC,2 ; c2- = H .assert "(cmcon0 & 0xc0) == 0x40, \"FAILED 16f684 m3 C1OUT=1 C2OUT=0\"" nop bcf PORTC,2 ; c2- = 0 .assert "(cmcon0 & 0xc0) == 0xc0, \"FAILED 16f684 m3 C1OUT=1 C2OUT=1\"" nop ; ; mode 5 - One independant Comparator ; movlw CMODE5 movwf CMCON0 .assert "(cmcon0 & 0xc0) == 0x80, \"FAILED 16f684 m5 C1OUT=0 C2OUT=1\"" nop ; ; mode 6 two common reference Comparators with Outputs ; BANKSEL TRISA bcf TRISA,2 BANKSEL CMCON0 movlw CMODE6 movwf CMCON0 .assert "(cmcon0 & 0xc0) == 0xc0, \"FAILED 16f684 m6 C1OUT=1 C2OUT=1\"" nop .assert "(porta & 0x04) == 0x04, \"FAILED 16f684 m6 porta2=1\"" nop .assert "(portc & 0x10) == 0x10, \"FAILED 16f684 m6 portc4=1\"" nop bcf PORTA,4 ; cx+ = 0 .assert "(cmcon0 & 0xc0) == 0x00, \"FAILED 16f684 m6 C1OUT=0 C2OUT=0\"" nop .assert "(porta & 0x04) == 0x00, \"FAILED 16f684 m6 porta2=0\"" nop .assert "(portc & 0x10) == 0x00, \"FAILED 16f684 m6 portc4=0\"" nop .assert "\"*** PASSED Comparator on 16f684\"" goto $ FAILED: .assert "\"*** FAILED Comparator no interupt 16f684\"" goto $ end gpsim-0.27.0/regression/p16f684/a2d_684.asm0000664000076400007640000001206212127373223014624 00000000000000 list p=16f684 include include __CONFIG _WDT_OFF ;; The purpose of this program is to test gpsim's ability ;; to simulate a pic 16f684. ;; Specifically, the a/d converter is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp bcf STATUS,RP0 ;adcon0 is in bank 0 btfsc INTCON,ADIE btfsc PIR1,ADIF goto inta2d .assert "\"FAILED 16F684 a2d unexpected interupt\"" nop goto check ;; An A/D interrupt has occurred inta2d: bsf t1,0 ;Set a flag to indicate we got the int. bcf PIR1,ADIF ;Clear the a/d interrupt check: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup V1" .sim "V1.resistance = 100.0" .sim "V1.xpos = 252" .sim "V1.ypos = 84" .sim "node na0" .sim "attach na0 V1.pin porta0" .sim "module load pullup V2" .sim "V2.resistance = 100.0" .sim "V2.xpos = 252" .sim "V2.ypos = 144" .sim "node na1" .sim "attach na1 V2.pin porta1" BANKSEL PIR1 clrf PIR1 movlw 0x07 ; turn off comparater movwf CMCON0 BANKSEL ANSEL movlw 0x03 ; an0 only movwf ANSEL ;; Let's use the ADC's interrupt ; RA0 is an Analog Input. ; RA1 - RA5 are all configured as outputs. ; movwf TRISA bsf PIE1,ADIE ;A2D interrupts ; Use VDD and VSS for Voltage references. ; ; PCFG = 1110 == AN0 is the only analog input ; ADCS = 110 == FOSC/64 ; ADFM = 0 == 6 LSB of ADRESL are 0. movlw 0x60 ; FOSC/64 movwf ADCON1 ; ; Left justify results, use Vdd Reference, use AN0, and turn on A2D ; BANKSEL ADCON0 movlw (1< .command macro x .direct "C", x endm __CONFIG _CP_OFF & _WDT_OFF & _MCLRE_OFF cblock 0x40 temp flag endc ORG 0 .sim "p16f684.BreakOnReset = false" .sim "break c 0x100000" .sim "p16f684.frequency=10000" btfss STATUS,NOT_TO goto wdt_reset clrf flag banksel OPTION_REG bcf OPTION_REG,PSA BANKSEL TRISA clrf TRISA ; bcf OPTION_REG,NOT_RABPU ; enable pullups on portA BANKSEL PORTA movlw 0xff movwf PORTA banksel PORTA call delay incf flag banksel WDTCON bsf WDTCON,SWDTEN ; turn on WDT bcf OPTION_REG,PSA banksel PORTA call delay .assert "\"*** FAILED p16f684 no WDT with SWDTEN\"" nop done: .assert "\"*** PASSED p16f684 no WDT test\"" nop GOTO $ wdt_reset: btfsc flag,0 goto done .assert "\"*** FAILED p16f684 unexpected WDT triggered\"" nop goto $ delay clrf temp ; LOOP2 goto $+1 goto $+1 goto $+1 decfsz temp, F goto LOOP2 return end gpsim-0.27.0/regression/p16f684/wdt_16f684.asm0000664000076400007640000000354712127373223015301 00000000000000 ;; 16F684 WDT tests ;; ;; This regression test, tests the following WDT functions ;; WDT enabled by default without configuration word ;; OPTION_REG Postscaler Rate select bits work ;; clrwdt works ;; WDT wakes up sleep without reset ;; WDT causes reset ;; ;; The test assumes that the clock speed is about 10 KHz ;; list p=16f684 include "p16f684.inc" include .command macro x .direct "C", x endm cblock 0x20 temp tmp2 phase endc ORG 0 .sim "p16f684.BreakOnReset = false" .sim "break c 0x10000" .sim "p16f684.frequency=10000" ; are we seeing a WDT reset? btfss STATUS,NOT_TO goto wdt_reset ; ; WDT should be about 2.3 seconds in gpsim with default postscaler of 128 ; (on real device may be soon as 0.9 sec) ; In the following test WDT should be longer then delay1, but shorter ; than twice delay1. The clrwdt thus prevents the WDT from going off. call delay1 clrwdt call delay1 ; ; My reading of the specs indicate sleep should continue (no reset) ; when the WDT goes off sleeps continue sleep nop .assert "(status & 0x18) == 0x00,\"*** FAILED 16f684 status after sleep\"" nop incf phase, F ; ; Test the WDT cause a reset in under 2 * delay1 clrwdt .assert "(status & 0x18) == 0x18,\"*** FAILED 16f684 status after clrwdt\"" nop call delay1 call delay1 FAILED: .assert "\"*** FAILED p16f684 no WDT reset\"" goto $ FAILED2: .assert "\"*** FAILED p16f684 unexpected WDT reset\"" goto $ ; delay about 1.85 seconds delay1 movlw 0x06 movwf tmp2 Oloop clrf temp ; LOOP1 decfsz temp, F goto LOOP1 decfsz tmp2,F goto Oloop return wdt_reset: btfss phase,0 goto FAILED2 .assert "(status & 0x18) == 0x08,\"*** FAILED 16f684 status after WDT Reset\"" nop .assert "\"*** PASSED p16f684 WDT\"" goto $ end gpsim-0.27.0/regression/p16f684/compar_684.stc0000664000076400007640000000130012127373223015441 00000000000000 #set verbose 2 load compar_684.cod U1 # Module libraries: module library libgpsim_modules # Modules: U1.xpos=84. U1.ypos=24. module load pullup PU1 PU1.capacitance = 0 PU1.resistance = 10000 PU1.voltage = 5 PU1.xpos = 300 PU1.ypos = 36 module load pulldown PD2 PD2.capacitance = 0 PD2.resistance = 10000 PD2.voltage = 0 PD2.xpos = 300 PD2.ypos = 96 #module load pullup PU2 # Connections: node nb0 attach nb0 porta1 portc5 PU1.pin PD2.pin #attach nb0 porta0 portc0 node nb1 attach nb1 porta0 portc3 # node nb2 attach nb2 portc0 portc2 # node nb3 attach nb3 portc1 porta4 # #node nb4 ##attach nb4 porta4 portc4 PU2.pin #attach nb4 porta4 portc4 # #node nb5 #attach nb5 porta5 portc5 # End. gpsim-0.27.0/regression/p16f684/epwm.asm0000775000076400007640000001645512127373223014542 00000000000000 list p=16f684 include include __CONFIG _WDT_OFF ;; The purpose of this program is to test gpsim's ability to ;; simulate a pic 16f684. ;; Specifically, the pwm is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR t0_1 RES 1 t0_2 RES 1 x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W clrf STATUS movwf status_temp bcf STATUS,RP0 ;adcon0 is in bank 0 .assert "\"FAILED 16F684 unexpected interrupt\"" nop check: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "scope.ch0 = \"portc5\"" ; P1A .sim "scope.ch1 = \"portc4\"" ; P1B .sim "scope.ch2 = \"portc3\"" ; P1C .sim "scope.ch3 = \"portc2\"" ; P1D ;.sim "scope.ch4 = \"portb4\"" .sim "node na0" ; .sim "attach na0 portb2 portb0" call setup call full_forward call full_reverse call wait_period call wait_period call half_mode call pwm_shutdown clrf CCP1CON ; turn off PWM .assert "\"*** PASSED 16f684 PWM test\"" nop goto $-0 pwm_shutdown BANKSEL CMCON0 ; movlw (1< PR2, expect TMR2 to wrap around ; bsf STATUS, RP0 ; Bank1 movlw 0x84 ; Tmr0 internal clock prescaler 32 movwf OPTION_REG bcf STATUS, RP0 ; Bank0 clrf TMR0 movlw 0x30 movwf TMR2 ; update timer ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x77, \"CCP1 duty cycle after wrap\"" nop bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x80, \"TMR2 > PR2 causes wrap\"" nop ; ; write reduced PR2 ; clrf TMR0 ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x0f, \"CCP1 duty cycle PR2 to 0x20\"" nop bsf STATUS, RP0 ; Bank1 movlw 0x20 movwf PR2 bcf STATUS, RP0 ; Bank0 ; ; Wait for end of PWM cycle ; bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x10, \"TMR2 period PR2 to 0x20\"" nop ; ; write reduced PR2 < TRM2 ; clrf TMR0 ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x0f, \"CCP1 duty cycle PR2 to 0x10\"" nop bsf STATUS, RP0 ; Bank1 movlw 0x10 movwf PR2 bcf STATUS, RP0 ; Bank0 ; ; Wait for end of PWM cycle ; bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x88, \"TMR2 period PR2 to 0x10 wraps\"" nop return setup: banksel CCP1CON clrf CCP1CON ; CCP Module is off clrf TMR2 ; Clear Timer2 clrf TMR0 ; Clear Timer0 movlw 0x07 movwf CMCON0 banksel ANSEL clrf ANSEL ; turn ports to digital banksel CCPR1L movlw 0x1F ; movwf CCPR1L ; Duty Cycle is 25% of PWM Period clrf INTCON ; Disable interrupts and clear T0IF banksel TRISC ; Make output pins bcf TRISC, 1 ; Make pin output bcf TRISC, 5 ; P1A bcf TRISC,4 ; P1B bcf TRISC,3 ; P1C bcf TRISC,2 ; P1D clrf PIE1 ; Disable peripheral interrupts movlw 0x03 ; Port B pull-up Tmr0 internal clock prescaler 16 movwf OPTION_REG banksel PIR1 ; Bank0 movlw 0xff movwf PIR1 clrf PIR1 ; Clear peripheral interrupts Flags return end gpsim-0.27.0/regression/interrupts_16bit/0000775000076400007640000000000012210742355015337 500000000000000gpsim-0.27.0/regression/interrupts_16bit/18f1320.lkr0000644000076400007640000000140611402645360016674 00000000000000// File: 18f1320.lkr // Sample linker script for the PIC18F1320 processor // Not intended for use with MPLAB C18. For C18 projects, // use the linker scripts provided with that product. LIBPATH . CODEPAGE NAME=page START=0x0 END=0x1FFF CODEPAGE NAME=idlocs START=0x200000 END=0x200007 PROTECTED CODEPAGE NAME=config START=0x300000 END=0x30000D PROTECTED CODEPAGE NAME=devid START=0x3FFFFE END=0x3FFFFF PROTECTED CODEPAGE NAME=eedata START=0xF00000 END=0xF000FF PROTECTED ACCESSBANK NAME=accessram START=0x0 END=0x7F DATABANK NAME=gpr0 START=0x80 END=0xFF ACCESSBANK NAME=accesssfr START=0xF80 END=0xFFF PROTECTED gpsim-0.27.0/regression/interrupts_16bit/int_18f1320.stc0000644000076400007640000000165111402647675017564 00000000000000load int_18f1320.cod # another test stimulation file # # the '#' marks the beginning of a comment # # This stimulation file illustrates how two (or more) # iopins may be connected to one another. In this example, # port A bit 4 is tied to port B bit 0. # Also, note that this file does not define the processor # or the source .hex ... echo I/O pin Stimulus file that connects port A 4 echo port B 0. # Define a node to which the pins can attach. node test_node # Now specify which two I/O pins are attached to the # new node. Note, that it is possible to specify more # than two iopins (or two of any stimuli). The iopins # are assigned the names portxn - where x is a,b,c,d,e # and n is 0 through 7. attach test_node porta4 portb0 # Here are a couple of more stimuli that are used to # test rbif node n1 n2 n3 attach n1 portb1 portb5 attach n2 portb2 portb6 attach n3 portb3 portb7 attach test_node portb4 break c 0x200000 gpsim-0.27.0/regression/interrupts_16bit/priority.asm0000644000076400007640000003462111463237206017651 00000000000000 ;; The purpose of this program is to test gpsim's ability to ;; simulate interrupts on the midrange core (specifically the 'f2321). list p=18f2321 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros ;; Suppress warnings of using 'option' instruction. errorlevel -224 CONFIG WDT=OFF CONFIG MCLRE=ON, LPT1OSC=OFF, PBADEN=DIG, CCP2MX=RC1 GPR_DATA UDATA intflags RES 1 temp1 RES 1 temp2 RES 1 temp3 RES 1 temp4 RES 1 temp5 RES 1 adr_cnt RES 1 data_cnt RES 1 failures RES 1 w_temp RES 1 status_temp RES 1 GLOBAL temp1,temp2,temp3,temp4,temp5,intflags GLOBAL start ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ HI_PRI CODE 0x008 ; interrupt vector location bra hi_pri_isr LO_PRI CODE 0x018 ; interrupt vector location movwf w_temp movff STATUS,status_temp check_rbi: btfsc INTCON,RBIF btfss INTCON,RBIE bra check_int bsf intflags,0 ;Set a flag to indicate rb4-7 int occured bcf INTCON,RBIF movf PORTB,w check_int: btfsc INTCON,INT0IF btfss INTCON,INT0IE bra check_t0 bsf intflags,1 ;Set a flag to indicate rb0 int occured bcf INTCON,INT0IF check_t0: btfsc PIR1,TMR2IF btfss PIE1,TMR2IE bra check_int1 ;; tmr0 has rolled over bcf PIR1,TMR2IF ; Clear the pending interrupt bsf intflags,2 ; Set a flag to indicate rollover check_int1: btfsc INTCON3,INT1IF btfss INTCON3,INT1IE bra check_int2 bsf temp3,0 ;Set a flag to indicate rb1 int occured bcf INTCON3,INT1IF check_int2: btfsc INTCON3,INT2IF btfss INTCON3,INT2IE bra exit_int bsf temp3,1 ;Set a flag to indicate rb2 int occured bcf INTCON3,INT2IF exit_int: movf w_temp,w movff status_temp,STATUS retfie hi_pri_isr: check_int1hi: btfsc INTCON3,INT1IF btfss INTCON3,INT1IE bra check_int2hi bsf temp3,2 ;Set a flag to indicate rb1 int occured bcf INTCON3,INT1IF check_int2hi: btfsc INTCON3,INT2IF btfss INTCON3,INT2IE bra check_rbih bsf temp3,3 ;Set a flag to indicate rb2 int occured bcf INTCON3,INT2IF check_rbih: btfsc INTCON,RBIF btfss INTCON,RBIE bra check_inth bsf intflags,4 ; Set a flag to indicate rb4-7 int occured bcf INTCON,RBIF movf PORTB,w check_inth: btfsc INTCON,INT0IF btfss INTCON,INT0IE bra check_t0h bsf intflags,5 ; Set a flag to indicate rb0 int occured bcf INTCON,INT0IF check_t0h: btfsc PIR1,TMR2IF btfss PIE1,TMR2IE bra exit_inth ;; tmr1 has rolled over bcf PIR1,TMR2IF ; Clear the pending interrupt bsf intflags,6 ; Set a flag to indicate rollover btfsc temp5,7 ; Is a nesting test in progress? btg PORTB,2 nop nop btfsc intflags,0 .assert "\"*** FAILED - low priority PORTB interrupt serviced during high priority ISR\"" bsf failures,7 exit_inth: retfie FAST ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start ;; Assume no failures clrf failures clrf temp5 movlw 0Fh ; Configure all A/D movwf ADCON1 ; for digital inputs movwf 07h ; Configure comparators movwf CMCON ; for digital input clrf INTCON bsf RCON,IPEN ; Enable priority mode movlw 080h movwf INTCON2 clrf INTCON3 bsf RCON,IPEN bsf INTCON,GIE ;Enable high priority interrupts ;; First we test that with only high priority interrupts enabled, ;; those set to low priority are ignored ;; ;; inte test ;; ;; The following block of code tests the interrupt on ;; change for port b bit 0. It assumes that port a bit 4 ;; is the stimulus. This requires that the following ;; gpsim commands be invoked: ;; gpsim> node new_test_node ;; gpsim> attach new_test_node porta4 portb0 ;; ;; Also, recall that porta bit 4 is an open collector ;; output (it can't drive high). So to generate the ;; the logic highs, the portb weak pull-up resistors ;; need to be enabled. test_inte: bsf TRISB,0 ;and portb bit 0 an input bcf TRISA,4 ;Make porta bit 4 an output bcf INTCON2,NOT_RBPU ;Enable the portb weak pull-ups bsf INTCON2,INTEDG0 ;Interrupt on rising edge movlw 0xff movwf temp1 movwf temp2 movwf temp3 movwf temp4 bcf PORTA,4 bcf INTCON,INT0IF bsf INTCON,INT0IE ;; ;; This routine toggles porta bit 4 with the hope of generating ;; an interrupt on portb bit 0. Note that INT0 is ALWAYS high priority ;; inte_edgecount: clrf intflags ;Interrupt flag bsf PORTA,4 ;Rising edge bcf PORTA,4 ;Falling edge nop nop .assert "intflags == 0x20, \"*** FAILED INT0 interrupt not high priority\"" movlw 0x20 cpfseq intflags bra failed bcf INTCON,INT0IF bcf INTCON,INT0IE ;Disable the rb0 interrupt ;; ;; test_rbif ;; ;; This next block uses the interrupt on change feature of ;; port b's I/O pins 4-7 to confirm that a low priority interrupt ;; is masked. ;; test_rbif: bsf TRISA,4 ; Porta bit 4 is now an input movlw 0xF0 movwf TRISB ; Upper nibble of port B is connected to lower nibble movlw 0x10 movwf temp2 movlw 6 movwf PORTB rbif_l1: bcf INTCON,RBIE movf PORTB,W clrf intflags ; Interrupt flag bcf INTCON,RBIF bcf INTCON2,RBIP bsf INTCON,RBIE swapf temp2,w xorwf PORTB,f .assert "intflags == 0, \"*** FAILED low priority portB interrupt not masked\"" tstfsz intflags bra failed .assert "(intcon&1) == 1, \"*** FAILED Toggle of portb pin not detected\"" btfss INTCON,RBIF bra failed clrc rlcf temp2,f skpc bra rbif_l1 ;; ;; The following block of code tests tmr2 together with interrupts. bsf PIE1,TMR2IE ;Enable TMR2 overflow interrupts clrf intflags ;Software flag used to monitor when the ;interrupt has been serviced. movlw 0x04 movwf T2CON ;Assign new prescale value movlw 0x80 movwf PR2 clrf temp1 decfsz temp1,f ; Hang around long enough that an overflow should occur goto $-2 btfss PIR1,TMR2IF ; check the overflow happened .assert "\"*** FAILED no TMR2 overflow detected\"" bra failed .assert "intflags == 0, \"*** FAILED low priority TRM2 interrupt not masked\"" tstfsz intflags bra failed bcf PIE1,TMR2IE ;Disable TMR2 overflow interrupts clrf T2CON ; and switch off TMR2 ;; Next we test that with low priority interrupts enabled, ;; those set to low priority are handled by the low priority ISR ;; bsf INTCON,GIEL ;Enable low priority interrupts ;; ;; test_rbif ;; ;; This next block uses the interrupt on change feature of ;; port b's I/O pins 4-7 to confirm that a low priority interrupt ;; is responded to as such. ;; test_rbif_2: bsf TRISA,4 ; Porta bit 4 is now an input movlw 0xF0 movwf TRISB ; Upper nibble of port B is connected to lower nibble movlw 0x10 movwf temp2 movlw 6 movwf PORTB rbif_l2: bcf INTCON,RBIE movf PORTB,W clrf intflags ; Interrupt flag bcf INTCON,RBIF bcf INTCON2,RBIP bsf INTCON,RBIE swapf temp2,w xorwf PORTB,f .assert "intflags == 1, \"*** FAILED low priority portB interrupt not seen\"" decfsz intflags,w bra failed clrc rlcf temp2,f skpc bra rbif_l2 ;; ;; The following block of code tests tmr2 together with interrupts. bsf PIE1,TMR2IE ;Enable TMR2 overflow interrupts clrf intflags ;Software flag used to monitor when the ;interrupt has been serviced. movlw 0x04 movwf T2CON ;Assign new prescale value movlw 0x80 movwf PR2 clrf temp1 decfsz temp1,f ; Hang around long enough that an overflow should occur goto $-2 btfsc PIR1,TMR2IF ; check the overflow happened .assert "\"*** FAILED no TMR2 overflow detected\"" bra failed .assert "intflags == 4, \"*** FAILED low priority TMR2 interrupt not masked\"" bcf PIE1,TMR2IE ;Disable TMR2 overflow interrupts clrf T2CON ; and switch off TMR2 ;; Finally test that setting peripherals to high priority causes the ;; right ISR to be run ;; bsf INTCON,GIEL ;Enable low priority interrupts ;; ;; test_rbif ;; ;; This next block uses the interrupt on change feature of ;; port b's I/O pins 4-7 to confirm that a low priority interrupt ;; is responded to as such. ;; test_rbif_3: bsf TRISA,4 ; Porta bit 4 is now an input movlw 0xF0 movwf TRISB ; Upper nibble of port B is connected to lower nibble movlw 0x10 movwf temp2 movlw 6 movwf PORTB bsf INTCON2,RBIP rbif_l3: bcf INTCON,RBIE movf PORTB,W clrf intflags ; Interrupt flag bcf INTCON,RBIF bsf INTCON,RBIE swapf temp2,w xorwf PORTB,f .assert "intflags == 0x10, \"*** FAILED high priority portB interrupt not seen\"" ; decfsz intflags,w ; bra failed clrc rlcf temp2,f skpc bra rbif_l3 ;; ;; The following block of code tests tmr2 together with interrupts. bsf PIE1,TMR2IE ;Enable TMR2 overflow interrupts bsf IPR1,TMR2IP ; ... as high priority clrf intflags ;Software flag used to monitor when the ;interrupt has been serviced. movlw 0x04 movwf T2CON ;Assign new prescale value movlw 0x80 movwf PR2 clrf temp1 decfsz temp1,f ; Hang around long enough that an overflow should occur goto $-2 btfsc PIR1,TMR2IF ; check the overflow happened .assert "\"*** FAILED no TMR2 overflow detected\"" bra failed .assert "intflags == 0x40, \"*** FAILED high priority TMR2 interrupt not seen\"" ;; ;; The following block of code tests nesting of interrupts, by generating a ;; high priority TMR2 interrupt with the "cause PORTB interrupt" flag set. ;; The high priority ISR then triggers a low priority interrupt, which should ;; be handled after leaving the high priority but before doing any more of ;; the background stuff. bcf INTCON2,RBIP bsf temp5,7 ; TMR2 ISR triggers a PORTB event clrf intflags ;Software flag used to monitor when the ;interrupt has been serviced. ; clrf temp1 ; decfsz temp1,f ; Hang around long enough that an overflow should occur ; goto $-2 btfss intflags,6 ; Wait for the TMR2 interrupt (must only see one) goto $-2 .assert "intflags == 0x41, \"*** FAILED priority nesting test\"" nop bcf PIE1,TMR2IE ;Disable TMR2 overflow interrupts clrf T2CON ; and switch off TMR2 ;; Test int1 and int2 ;; 1> low priority with GIEL=0 (no inturrupt expected) ;; 2> log priority with GIEL=1 bcf INTCON,GIEL ;disable low priority interrupts movlw 0x6 ; b5 drives b1 b6 drives b2 movwf TRISB bcf PORTB,5 bcf PORTB,6 clrf temp3 movlw (1< ; processor specific variable definitions include ; Grab some useful macros ;; Suppress warnings of using 'option' instruction. errorlevel -224 CONFIG WDT=OFF CONFIG MCLRE=ON ;LPT1OSC=OFF, PBADEN=DIG, CCP2MX=RC1 GPR_DATA UDATA temp RES 1 temp1 RES 1 temp2 RES 1 temp3 RES 1 temp4 RES 1 temp5 RES 1 adr_cnt RES 1 data_cnt RES 1 failures RES 1 w_temp RES 1 status_temp RES 1 GLOBAL temp,temp1,temp2,temp3,temp4,temp5 GLOBAL start ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x008 ; interrupt vector location movwf w_temp swapf STATUS,W movwf status_temp check_rbi: btfsc INTCON,RBIF btfss INTCON,RBIE bra check_int bsf temp5,1 ;Set a flag to indicate rb4-7 int occured bcf INTCON,RBIF movf PORTB,w check_int: btfsc INTCON,INT0IF btfss INTCON,INT0IE bra check_t0 bsf temp5,0 ;Set a flag to indicate rb0 int occured bcf INTCON,INT0IF check_t0: btfsc INTCON,TMR0IF btfss INTCON,TMR0IE bra exit_int ;; tmr0 has rolled over bcf INTCON,TMR0IF ; Clear the pending interrupt bsf temp1,0 ; Set a flag to indicate rollover exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start ;; Assume no failures clrf failures movlw 7Fh ; Configure all A/D movwf ADCON1 ; for digital inputs ;; ;; tmr0 test ;; ;; The following block of code tests tmr0 together with interrupts. ;; Each prescale value (0-7) is loaded into the timer. The software ;; waits until the interrupt due to tmr0 rollover occurs before ;; loading the new prescale value. bsf INTCON,TMR0IE ;Enable TMR0 overflow interrupts bsf INTCON,GIE ;Global interrupts clrf temp1 ;Software flag used to monitor when the ;interrupt has been serviced. movlw 0xC0 movwf T0CON ;Assign new prescale value test_tmr0: btfss temp1,0 ;Wait for the interrupt to occur and bra test_tmr0 ;get serviced clrf temp1 ;Clear flag for the next time incf T0CON,f btfss T0CON,3 ; When we've done all prescaler values, PSA gets set bra test_tmr0 bcf INTCON,TMR0IE ;Disable tmr0 interrupts ;; Now check tmr0 with an external clock source ;; ;; It assumes that port b bit 0 is the stimulus. ;; This requires that the following gpsim commands be invoked: ;; gpsim> node new_test_node ;; gpsim> attach new_test_node porta4 portb0 bcf TRISB,0 ;portb bit 0 is an output ;; assign the prescaler to the wdt so that tmr0 counts every edge ;; select the clock source to be tocki ;; and capture low to high transitions (tose = 0) movlw (1< node new_test_node ;; gpsim> attach new_test_node porta4 portb0 ;; ;; Also, recall that porta bit 4 is an open collector ;; output (it can't drive high). So to generate the ;; the logic highs, the portb weak pull-up resistors ;; need to be enabled. test_inte: bsf TRISB,0 ;and portb bit 0 an input bcf TRISA,4 ;Make porta bit 4 an output bcf INTCON2,NOT_RBPU ;Enable the portb weak pull-ups bsf INTCON2,INTEDG0 ;Interrupt on rising edge movlw 0xff movwf temp1 movwf temp2 movwf temp3 movwf temp4 bcf PORTA,4 bcf INTCON,INT0IF bsf INTCON,INT0IE ;; ;; This routine toggles porta bit 4 with the hope of generating ;; an interrupt on portb bit 0. ;; temp1 counts the number of times an interrupt has occurred ;; temp2 counts the number of times the interrupt was due to ;; a rising edge. inte_edgecount: bcf temp5,0 ;Interrupt flag clrz bcf PORTA,4 ;Falling edge btfsc temp5,0 decf temp2,f ;Falling edge caused the interrupt bcf temp5,0 bsf PORTA,4 ;Rising edge btfsc temp5,0 decf temp3,f ;Rising edge caused the interrupt ;; if either temp2 or temp3 decremented to zero, then z will be set bnz inte_edgecount incfsz temp4,f bra test_rbif ;; Now let's test the falling edge bcf INTCON,INT0IE ;Disable inte interrupt bcf PORTA,4 bcf INTCON,INT0IF bcf INTCON2,INTEDG0 ;Interrupt on falling edge bsf INTCON,INT0IE goto inte_edgecount ;; ;; test_rbif ;; ;; This next block tests the interrupt on change feature of ;; port b's I/O pins 4-7 ;; test_rbif bcf INTCON,INT0IE ;Disable the rb0 interrupt bsf TRISA,4 ;Porta bit 4 is now an input clrf temp5 ;Interrupt flag clrf temp1 movlw 0x10 movwf temp2 movlw 6 movwf PORTB rbif_l1: bcf INTCON,RBIE movf temp2,w movwf TRISB ; clrf PORTB movf PORTB,W clrf temp5 ;Interrupt flag bcf INTCON,RBIF bsf INTCON,RBIE swapf temp2,w xorwf PORTB,f btfsc temp5,1 iorwf temp1,f .assert "(temp5 & 2) == 2" clrc rlcf temp2,f skpc bra rbif_l1 done: .assert "\"*** PASSED 16bit-core basic interrupt test\"" goto $ failed: .assert "\"*** FAILED 16bit-core basic interrupt test\"" goto $ end gpsim-0.27.0/regression/interrupts_16bit/Makefile0000644000076400007640000000077711402646000016720 00000000000000include ../make.regression all : interrupts_16bit.cod priority.cod int_18f1320.cod interrupts_16bit.cod : interrupts_16bit.o gplink --map -s 18f2321.lkr -o $@ $^ priority.cod : priority.o gplink --map -s 18f2321.lkr -o $@ $^ int_18f1320.cod : int_18f1320.o gplink --map -s 18f1320.lkr -o $@ $^ test_basic: interrupts_16bit.cod $(GPSIM) -i -I $(STARTUP_STC) -D STC=interrupts_16bit.stc test_priority: priority.cod $(GPSIM) -i -I $(STARTUP_STC) -D STC=priority.stc sim: test_basic test_priority gpsim-0.27.0/regression/interrupts_16bit/interrupts_16bit.asm0000664000076400007640000002562211474656277021236 00000000000000 ;; The purpose of this program is to test gpsim's ability to ;; simulate interrupts on the midrange core (specifically the 'f2321). list p=18f2321 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros ;; Suppress warnings of using 'option' instruction. errorlevel -224 CONFIG WDT=OFF CONFIG MCLRE=ON, LPT1OSC=OFF, PBADEN=DIG, CCP2MX=RC1 GPR_DATA UDATA temp RES 1 temp1 RES 1 temp2 RES 1 temp3 RES 1 temp4 RES 1 temp5 RES 1 adr_cnt RES 1 data_cnt RES 1 failures RES 1 w_temp RES 1 status_temp RES 1 GLOBAL temp,temp1,temp2,temp3,temp4,temp5 GLOBAL start ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x008 ; Hi priority interrupt vector location movwf w_temp swapf STATUS,W movwf status_temp goto check_rbi LOW_INT_VECTOR CODE 0x018 ; Low priority interrupt vector .assert "\"*** FAILED 16bit-core basic interrupt test low interrupt\"" goto $ check_rbi: btfsc INTCON,RBIF btfss INTCON,RBIE bra check_int bsf temp5,1 ;Set a flag to indicate rb4-7 int occured bcf INTCON,RBIF movf PORTB,w check_int: btfsc INTCON,INT0IF btfss INTCON,INT0IE bra check_b1 bsf temp5,0 ;Set a flag to indicate rb0 int occured bcf INTCON,INT0IF check_b1: btfsc INTCON3,INT1IF btfss INTCON3,INT1IE bra check_b2 bsf temp5,2 ;Set a flag to indicate rb1 int occured bcf INTCON3,INT1IF check_b2: btfsc INTCON3,INT2IF btfss INTCON3,INT2IE bra check_t0 bsf temp5,3 ;Set a flag to indicate rb2 int occured bcf INTCON3,INT2IF check_t0: btfsc INTCON,T0IF btfss INTCON,T0IE bra exit_int ;; tmr0 has rolled over bcf INTCON,T0IF ; Clear the pending interrupt bsf temp1,0 ; Set a flag to indicate rollover exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start ;; Assume no failures clrf failures movlw 0Fh ; Configure all A/D movwf ADCON1 ; for digital inputs movwf 07h ; Configure comparators movwf CMCON ; for digital input ;; ;; tmr0 test ;; ;; The following block of code tests tmr0 together with interrupts. ;; Each prescale value (0-7) is loaded into the timer. The software ;; waits until the interrupt due to tmr0 rollover occurs before ;; loading the new prescale value. bsf INTCON,T0IE ;Enable TMR0 overflow interrupts bsf INTCON,GIE ;Global interrupts clrf temp1 ;Software flag used to monitor when the ;interrupt has been serviced. movlw 0xC0 movwf T0CON ;Assign new prescale value test_tmr0: btfss temp1,0 ;Wait for the interrupt to occur and bra test_tmr0 ;get serviced clrf temp1 ;Clear flag for the next time incf T0CON,f btfss T0CON,3 ; When we've done all prescaler values, PSA gets set bra test_tmr0 bcf INTCON,T0IE ;Disable tmr0 interrupts ;; Now check tmr0 with an external clock source ;; ;; It assumes that port b bit 0 is the stimulus. ;; This requires that the following gpsim commands be invoked: ;; gpsim> node new_test_node ;; gpsim> attach new_test_node porta4 portb0 bcf TRISB,0 ;portb bit 0 is an output ;; assign the prescaler to the wdt so that tmr0 counts every edge ;; select the clock source to be tocki ;; and capture low to high transitions (tose = 0) movlw (1< node new_test_node ;; gpsim> attach new_test_node porta4 portb0 ;; ;; Also, recall that porta bit 4 is an open collector ;; output (it can't drive high). So to generate the ;; the logic highs, the portb weak pull-up resistors ;; need to be enabled. test_inte: bsf TRISB,0 ;Make portb bit 0 an input bcf TRISA,4 ; and porta bit 4 an output bcf INTCON2,NOT_RBPU ;Enable the portb weak pull-ups bsf INTCON2,INTEDG0 ;Interrupt on rising edge rcall test_int_pin .assert "(temp2) == 0x40,\"*** FAILED 16bit-core, no int0 rising\"" nop .assert "(temp1) == 0x00,\"*** FAILED 16bit-core, int0 interrupt on wrong edge\"" nop bcf INTCON,INT0IE ;Disable inte interrupt bcf INTCON2,INTEDG0 ;Interrupt on falling edge rcall test_int_pin .assert "(temp1) == 0x40,\"*** FAILED 16bit-core, no int0 falling\"" nop .assert "(temp2) == 0x00,\"*** FAILED 16bit-core, int0 interrupt on wrong edge\"" nop ;; ;; test_rbif ;; ;; This next block tests the interrupt on change feature of ;; port b's I/O pins 4-7 ;; test_rbif: bcf INTCON,INT0IE ;Disable the rb0 interrupt bsf TRISA,4 ;Porta bit 4 is now an input clrf temp5 ;Interrupt flag clrf temp1 movlw 0x10 movwf temp2 movlw 6 movwf PORTB rbif_l1: bcf INTCON,RBIE movf temp2,w movwf TRISB ; clrf PORTB movf PORTB,W clrf temp5 ;Interrupt flag bcf INTCON,RBIF bsf INTCON,RBIE swapf temp2,w xorwf PORTB,f btfsc temp5,1 iorwf temp1,f .assert "(temp5 & 2) == 2" clrc rlcf temp2,f skpc bra rbif_l1 ;; Test int1, interrupts using intcon3 register ;; B5 drives B1 test_int1 bcf INTCON,RBIE ; turn off b 4-7 intterupts bsf TRISB,1 ; and portb bit 1 an input bcf PORTB,5 ; drive portb1 low clrf temp5 bcf INTCON3,INT1IF bsf INTCON3,INT1IP ; priority interrupt bsf INTCON3,INT1IE bsf PORTB,5 ; drive portb1 high .assert "(temp5) == 4,\"*** FAILED 16bit-core basic, no int1 interrupt\"" nop clrf temp5 bcf PORTB,5 ; drive portb1 low .assert "(temp5) == 0,\"*** FAILED 16bit-core basic, unexpected int1 interrupt\"" nop ;; Test int2, interrupts using intcon3 register ;; B6 drives B2 test_int2 bsf TRISB,2 ; and portb bit 2 an input bcf PORTB,6 ; drive portb2 low clrf temp5 bcf INTCON3,INT2IF bsf INTCON3,INT2IP ; priority interrupt bsf INTCON3,INT2IE bsf PORTB,6 ; drive portb2 high .assert "(temp5) == 8,\"*** FAILED 16bit-core basic, no int2 interrupt\"" nop clrf temp5 bcf PORTB,6 ; drive portb2 low .assert "(temp5) == 0,\"*** FAILED 16bit-core basic, unexpected int2 interrupt\"" nop done: .assert "\"*** PASSED 16bit-core basic interrupt test\"" goto $ failed: .assert "\"*** FAILED 16bit-core basic interrupt test\"" goto $ ;; ;; This routine toggles one of the porta bits with the hope of generating ;; an interrupt on one of the portb bits. ;; temp1 counts the number of interrupts due to falling edges ;; temp2 counts the number of interrupts due to rising edges ;; test_int_pin: bsf TRISB,0 ;and portb bit 0 an input bcf TRISA,4 ;Make porta bit 4 an output bcf INTCON2,NOT_RBPU ;Enable the portb weak pull-ups clrf temp1 clrf temp2 movlw 0x40 movwf temp3 ; used for counting movwf temp4 bcf PORTA,4 bcf INTCON,INT0IF bsf INTCON,INT0IE ;; ;; Now loop round 64 times toggling the pin and count the interrupts ;; inte_edgecount: bcf temp5,0 ;Interrupt flag clrz bsf PORTA,4 ;Falling edge btfsc temp5,0 incf temp2,f ;Falling edge caused the interrupt bcf temp5,0 bcf PORTA,4 ;Rising edge btfsc temp5,0 incf temp1,f ;Rising edge caused the interrupt decfsz temp3,f bra inte_edgecount return end gpsim-0.27.0/regression/interrupts_16bit/interrupts_16bit.stc0000644000076400007640000000165611220514077021222 00000000000000load interrupts_16bit.cod # another test stimulation file # # the '#' marks the beginning of a comment # # This stimulation file illustrates how two (or more) # iopins may be connected to one another. In this example, # port A bit 4 is tied to port B bit 0. # Also, note that this file does not define the processor # or the source .hex ... echo I/O pin Stimulus file that connects port A 4 echo port B 0. # Define a node to which the pins can attach. node test_node # Now specify which two I/O pins are attached to the # new node. Note, that it is possible to specify more # than two iopins (or two of any stimuli). The iopins # are assigned the names portxn - where x is a,b,c,d,e # and n is 0 through 7. attach test_node porta4 portb0 # Here are a couple of more stimuli that are used to # test rbif node n1 n2 n3 attach n1 portb1 portb5 attach n2 portb2 portb6 attach n3 portb3 portb7 attach test_node portb4 break c 0x200000 gpsim-0.27.0/regression/interrupts_16bit/priority.stc0000644000076400007640000000152311116621766017660 00000000000000load priority.cod # another test stimulation file # # the '#' marks the beginning of a comment # # This stimulation file illustrates how two (or more) # iopins may be connected to one another. In this example, # port A bit 4 is tied to port B bit 0. # Also, note that this file does not define the processor # or the source .hex ... # Define a node to which the pins can attach. node test_node # Now specify which two I/O pins are attached to the # new node. Note, that it is possible to specify more # than two iopins (or two of any stimuli). The iopins # are assigned the names portxn - where x is a,b,c,d,e # and n is 0 through 7. attach test_node porta4 portb0 # Here are a couple of more stimuli that are used to # test rbif node n1 n2 n3 attach n1 portb1 portb5 attach n2 portb2 portb6 attach n3 portb3 portb7 attach test_node portb4 gpsim-0.27.0/regression/interrupts_16bit/18f2321.lkr0000644000076400007640000000167311116621766016712 00000000000000// $Id: 18f2321.lkr 448 2006-08-19 02:52:41Z craigfranklin $ // File: 18f2321.lkr // Sample linker script for the PIC18F2321 processor // Not intended for use with MPLAB C18. For C18 projects, // use the linker scripts provided with that product. LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x29 PROTECTED CODEPAGE NAME=page START=0x2A END=0x1FFF CODEPAGE NAME=idlocs START=0x200000 END=0x200007 PROTECTED CODEPAGE NAME=config START=0x300000 END=0x30000D PROTECTED CODEPAGE NAME=devid START=0x3FFFFE END=0x3FFFFF PROTECTED CODEPAGE NAME=eedata START=0xF00000 END=0xF000FF PROTECTED ACCESSBANK NAME=accessram START=0x0 END=0x7F DATABANK NAME=gpr0 START=0x80 END=0xFF DATABANK NAME=gpr1 START=0x100 END=0x1FF ACCESSBANK NAME=accesssfr START=0xF80 END=0xFFF PROTECTED gpsim-0.27.0/regression/node_test/0000775000076400007640000000000012210742355014077 500000000000000gpsim-0.27.0/regression/node_test/node_test.asm0000644000076400007640000000327710416271506016515 00000000000000 ;; Node test ;; ;; The purpose of this program is to verify that nodes ;; can interconnect I/O pins. list p=16f877 ; list directive to define processor include ; processor specific variable definitions include ; Grab some useful macros ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA temp RES 1 GLOBAL done ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start MOVLW 0xff BSF STATUS,RP0 CLRF TRISB^0x80 ;Port B is an output MOVWF TRISC^0x80 ;Port C is an input BCF STATUS,RP0 b_to_c_loop: MOVWF PORTB ;Port B and Port C are externally XORWF PORTC,W ;connected. So we should see the SKPZ ;same thing on each port. GOTO FAILED DECFSZ PORTC,W goto b_to_c_loop done: .assert "\"*** PASSED Node Test on 16f877\"" goto $ FAILED: .assert "\"*** FAILED Node Test on 16f877\"" goto $ end gpsim-0.27.0/regression/node_test/node_test.stc0000644000076400007640000000103510416271506016514 00000000000000 # Node Test # # This script will tie Port B and Port C together # load node_test.cod # First, create 8 nodes: node loop_back0 node loop_back1 node loop_back2 node loop_back3 node loop_back4 node loop_back5 node loop_back6 node loop_back7 # Now tie the ports together: attach loop_back0 portb0 portc0 attach loop_back1 portb1 portc1 attach loop_back2 portb2 portc2 attach loop_back3 portb3 portc3 attach loop_back4 portb4 portc4 attach loop_back5 portb5 portc5 attach loop_back6 portb6 portc6 attach loop_back7 portb7 portc7 gpsim-0.27.0/regression/node_test/Makefile0000644000076400007640000000050710563700454015462 00000000000000include ../make.regression SCRIPT = 16f877.lkr PROJECT = node_test OBJECTS = $(PROJECT).o OUTPUT = $(PROJECT).hex COD = $(PROJECT).cod STC = $(PROJECT).stc all : $(OUTPUT) $(OUTPUT) $(COD) : $(OBJECTS) $(SCRIPT) gplink --map -s $(SCRIPT) -o $(OUTPUT) $(OBJECTS) sim: $(COD) $(GPSIM) -i -I $(STARTUP_STC) -D STC=$(STC) gpsim-0.27.0/regression/node_test/16f877.lkr0000644000076400007640000000330510416271506015373 00000000000000// Sample linker command file for 16F877 // $Id: 16f877.lkr 1228 2005-08-23 16:36:11Z sdattalo $ LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page0 START=0x5 END=0x7FF CODEPAGE NAME=page1 START=0x800 END=0xFFF CODEPAGE NAME=page2 START=0x1000 END=0x17FF CODEPAGE NAME=page3 START=0x1800 END=0x1FFF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x21FF PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xEF DATABANK NAME=gpr2 START=0x110 END=0x16F DATABANK NAME=gpr3 START=0x190 END=0x1EF SHAREBANK NAME=gprnobnk START=0x70 END=0x7F SHAREBANK NAME=gprnobnk START=0xF0 END=0xFF SHAREBANK NAME=gprnobnk START=0x170 END=0x17F SHAREBANK NAME=gprnobnk START=0x1F0 END=0x1FF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG1 ROM=page0 // ROM code space - page0 SECTION NAME=PROG2 ROM=page1 // ROM code space - page1 SECTION NAME=PROG3 ROM=page2 // ROM code space - page2 SECTION NAME=PROG4 ROM=page3 // ROM code space - page3 SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/p16f873/0000775000076400007640000000000012210742356013132 500000000000000gpsim-0.27.0/regression/p16f873/Makefile0000644000076400007640000000021210644134037014503 00000000000000include ../make.regression SCRIPT = 16f873.lkr all : p16f873.cod %.cod : %.o gplink --map -s $(SCRIPT) -o $@ $< sim: sim_p16f873 gpsim-0.27.0/regression/p16f873/p16f873.asm0000644000076400007640000000556410416271570014603 00000000000000 list p=p16f873 radix dec __config _WDT_OFF include "p16f873.inc" ;Regression Test for 16f873's data EEPROM ; cblock 0x20 adr_cnt data_cnt status_temp endc ; W shadowing for interrupts ; When an interrupt occurs, we don't know what the current bank settings ; are. The solution here is to declare two temporaries that have the ; same base address. That way we don't need to worry about the bank setting. cblock 0x70 w_temp ; W is stored here during interrupts if the ; bank bits point to bank 0 or 2 endc cblock 0xf0 w_temp_shadow ; W is stored here during interrupts if the ; bank bits point to bank 0 or 2 endc ;;======================================================================== ;;======================================================================== ; ; Start ; org 0 goto start org 4 ;;************** ;; Interrupt ;;************* movwf w_temp swapf STATUS,W clrf STATUS ;Bank 0 movwf status_temp bsf STATUS,RP0 btfss (EECON1 & 0x7f),EEIF goto check ;;; eeprom has interrupted bcf (EECON1 & 0x7f),EEIF check: clrf STATUS ;bank 0 swapf status_temp,W movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;;************* ;; end of interrupt ;;************* start: clrf STATUS ;Point to Bank 0 clrf adr_cnt clrf data_cnt incf data_cnt,F bsf INTCON,EEIE l1: movf adr_cnt,W bcf STATUS,RP0 bsf STATUS,RP1 movwf EEADR ^ 0x100 movf data_cnt,W movwf EEDATA ^ 0x100 bcf INTCON,GIE ;Disable interrupts while enabling write bsf STATUS,RP0 bsf (EECON1 ^ 0x180),WREN ;Enable eeprom writes movlw 0x55 ;Magic sequence to enable eeprom write movwf (EECON2 ^ 0x180) movlw 0xaa movwf (EECON2 ^ 0x180) bsf (EECON1 ^ 0x180),WR ;Begin eeprom write bsf INTCON,GIE ;Re-enable interrupts btfsc (EECON1 & 0x7f),WR goto $-1 clrf STATUS ; Point back to bank0 incf adr_cnt,W andlw 0x3f movwf adr_cnt skpz goto l1 incfsz data_cnt,F goto l1 goto l1 ;A place to set a break point (for timing how long ;it takes to fill the eeprom 256 times org 0x2100 de "Linux is cool!",0 de 0xaa,0x55,0xf0,0x0f de 'g','p','s','i','m' end gpsim-0.27.0/regression/p16f873/16f873.lkr0000644000076400007640000000244210644133754014427 00000000000000// Sample linker command file for 16F873 // $Id: 16f873.lkr,v 1.8 2005/03/24 04:17:17 craigfranklin Exp $ LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x4 PROTECTED CODEPAGE NAME=page0 START=0x5 END=0x7FF CODEPAGE NAME=page1 START=0x800 END=0xFFF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x217F PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18F PROTECTED SHAREBANK NAME=gpr0 START=0x20 END=0x7F SHAREBANK NAME=gpr0 START=0x120 END=0x17F SHAREBANK NAME=gpr1 START=0xA0 END=0xFF SHAREBANK NAME=gpr1 START=0x1A0 END=0x1FF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG1 ROM=page0 // ROM code space - page0 SECTION NAME=PROG2 ROM=page1 // ROM code space - page1 SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/ccp/0000775000076400007640000000000012210742355012660 500000000000000gpsim-0.27.0/regression/ccp/18f6520.lkr0000664000076400007640000000242711463237707014243 00000000000000// $Id: 18f6520.lkr 448 2006-08-19 02:52:41Z craigfranklin $ // File: 18f6520.lkr // Sample linker script for the PIC18F6520 processor // Not intended for use with MPLAB C18. For C18 projects, // use the linker scripts provided with that product. LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x29 PROTECTED CODEPAGE NAME=page START=0x2A END=0x7FFF CODEPAGE NAME=idlocs START=0x200000 END=0x200007 PROTECTED CODEPAGE NAME=config START=0x300000 END=0x30000D PROTECTED CODEPAGE NAME=devid START=0x3FFFFE END=0x3FFFFF PROTECTED CODEPAGE NAME=eedata START=0xF00000 END=0xF003FF PROTECTED ACCESSBANK NAME=accessram START=0x0 END=0x5F DATABANK NAME=gpr0 START=0x60 END=0xFF DATABANK NAME=gpr1 START=0x100 END=0x1FF DATABANK NAME=gpr2 START=0x200 END=0x2FF DATABANK NAME=gpr3 START=0x300 END=0x3FF DATABANK NAME=gpr4 START=0x400 END=0x4FF DATABANK NAME=gpr5 START=0x500 END=0x5FF DATABANK NAME=gpr6 START=0x600 END=0x6FF DATABANK NAME=gpr7 START=0x700 END=0x7FF ACCESSBANK NAME=accesssfr START=0xF60 END=0xFFF PROTECTED gpsim-0.27.0/regression/ccp/Makefile0000664000076400007640000000063011463237707014250 00000000000000include ../make.regression all : ccp_877a.cod pwm_877a.cod ccp_819.cod pwm_6520.cod ccp_877a.cod : ccp_877a.o gplink --map -s 16f877a.lkr -o $@ $^ ccp_819.cod : ccp_819.o gplink --map -s 16f819.lkr -o $@ $^ pwm_877a.cod : pwm_877a.o gplink --map -s 16f877a.lkr -o $@ $^ pwm_6520.cod : pwm_6520.o gplink --map -s 18f6520.lkr -o $@ $^ sim: sim_ccp_877a sim_pwm_877a sim_ccp_819 sim_pwm_6520 gpsim-0.27.0/regression/ccp/ccp.stc0000644000076400007640000000211710416271542014060 00000000000000# another test stimulation file # # the '#' marks the beginning of a comment # # This stimulus file is used for testing portc # echo I/O pin Stimulus file for port C. # Define a node to which the pins can attach. node test_node_C # Create an asynchronous stimulus that's 1000 cycles long # and attach it to portc bit 2. stimulus asynchronous_stimulus # or we could've used asy # The initial state AND the state the stimulus is when # it rolls over initial_state 0 # all times are with respect to the cpu's cycle counter start_cycle 0x10000 # the asynchronous stimulus will roll over in 'period' period 0x200 # Indicate that this is digital data (default): digital # Now the cycles at which stimulus changes states are # specified. The initial cycle was specified above. { 0x100, 1} # Give the stimulus a name: name asy1 # Finally, tell the command line interface that we're done # with the stimulus end # but we can still have more stuff echo asy should've been created stimulus # Attach the stimulus to the IO port attach test_node_C asy1 portc2 echo stimulus created gpsim-0.27.0/regression/ccp/pwm_6520.asm0000664000076400007640000001576212162224367014600 00000000000000 list p=18f6520 include include CONFIG WDT=OFF ;; The purpose of this program is to test gpsim's ability to simulate a ;; pic with more than two PWM channels. The 18F6520 is such a device. ;; CCP1 is set with a 50% duty cycle and used to test timing ;; CCP2 is set with a 25% duty cycle and used to test order ;; CCP3 is set beyond the period and tied to INT0 to test 100% duty ;; CCP4 is set with a 75% duty cycle ;; CCP5 is set with a 75% duty cycle to test two simultaneous PWM edges errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA t0_1 RES 1 t0_2 RES 1 x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector goto start ; go to beginning of program INTERRUPT CODE 0x008 ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp .assert "\"FAILED 18f6520 unexpected interrupt\"" nop check: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie .sim "node pwm3" .sim "attach pwm3 portg0 portb0" ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: clrf CCP1CON ; CCP Module is off clrf CCP2CON ; CCP Module is off clrf CCP3CON ; CCP Module is off clrf CCP4CON ; CCP Module is off clrf CCP5CON ; CCP Module is off clrf TMR2 ; Clear Timer2 clrf TMR0L ; Clear Timer0 movlw 0x1F ; movwf CCPR1L ; Duty Cycle is 50% of PWM Period movlw 0x0F ; movwf CCPR2L ; Duty Cycle is 25% of PWM Period movlw 0x4F ; movwf CCPR3L ; Duty Cycle is 125% of PWM Period movlw 0x2F ; movwf CCPR4L ; Duty Cycle is 75% of PWM Period movlw 0x2F ; movwf CCPR5L ; Duty Cycle is 75% of PWM Period clrf INTCON ; Disable interrupts and clear T0IF clrf INTCON2 ; external interrupt pins trigger on falling edge movlw 0x3F ; movwf PR2 ; bcf TRISC, 1 ; Make pin output bcf TRISC, 2 ; Make pin output bcf TRISG, 0 ; Make pin output bcf TRISG, 3 ; Make pin output bcf TRISG, 4 ; Make pin output clrf PIE1 ; Disable peripheral interrupts movlw 0x83 ; Tmr0 internal clock prescaler 16 movwf T0CON clrf PIR1 ; Clear peripheral interrupts Flags movlw 0x2C ; PWM mode, 2 LSbs of Duty cycle = 10 movwf CCP1CON ; movlw 0x06 ; Start Timer2 prescaler is 16 (to match TMR0, of course!) movwf T2CON movlw 0x2C ; PWM mode, 2 LSbs of Duty cycle = 10 movwf CCP2CON ; movwf CCP3CON ; movwf CCP4CON ; movwf CCP5CON ; .assert "ccpr1l != ccpr1h, \"CCPR1H before TMR2 reset\"" nop ; ; The CCP1 interrupt is disabled, ; do polling on the TMR2 Interrupt flag bit ; PWM_Period_Match btfss PIR1, TMR2IF goto PWM_Period_Match clrf TMR0L .assert "ccpr1l == ccpr1h, \"CCPR1H loaded from CCPR1H\"" nop bcf INTCON,INT0IF ; INT0 is tied to CCP3, which should remain always high .assert "(portc & 0x6) == 0x6, \"CCP1, CCP2 are high\"" nop ; loop until CCP2 goes low btfsc PORTC,1 goto $-1 .assert "tmr0 == 0x0f, \"CCP2 duty cycle\"" nop ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x1f, \"CCP1 duty cycle\"" nop ; loop until CCP4 goes low btfsc PORTG,3 goto $-1 .assert "tmr0 == 0x2f, \"CCP4 duty cycle\"" nop ; ; Wait for end of PWM cycle ; bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "(intcon & 2) == 0, \"PWM duty > PR2 : pin goes low\"" nop .assert "tmr0 == 0x3f, \"TMR2 period\"" nop ; ; Increase TMR2 but less than first duty cycle ; movlw 0x0D movwf TMR2 ; update timer clrf TMR0L ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "(portc & 0x6) == 0x0, \"TMR2 put, only change period\"" nop ; loop until CCP5 goes low btfsc PORTG,4 goto $-1 .assert "tmr0 == 0x22, \"TMR2 put, only change period\"" nop bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x33, \"TMR2 put, only change period\"" nop ; ; Increase TMR2 between first and second duty cycle ; clrf TMR0L movlw 0x1D movwf TMR2 ; update timer ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "(portc & 0x6) == 0x2, \"TMR2 put, between duty cycles\"" nop bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x23, \"TMR2 put, between duty cycles\"" nop ; ; in this test TMR2 > PR2, expect TMR2 to wrap around ; movlw 0x84 ; Tmr0 internal clock prescaler 32 movwf T0CON clrf TMR0L movlw 0x40 movwf TMR2 ; update timer ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x6F, \"CCP1 duty cycle after wrap\"" nop bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x80, \"TMR2 > PR2 causes wrap\"" nop ; ; write reduced PR2 ; clrf TMR0L ; loop until CCP2 goes low btfsc PORTC,1 goto $-1 .assert "tmr0 == 0x07, \"CCP2 duty cycle PR2 to 0x20\"" nop ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x0f, \"CCP1 duty cycle PR2 to 0x20\"" nop movlw 0x20 movwf PR2 ; ; Wait for end of PWM cycle ; bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x10, \"TMR2 period PR2 to 0x20\"" nop ; ; write reduced PR2 < TRM2 ; clrf TMR0L ; loop until CCP2 goes low btfsc PORTC,1 goto $-1 .assert "tmr0 == 0x07, \"CCP2 duty cycle PR2 to 0x10\"" nop ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x0f, \"CCP1 duty cycle PR2 to 0x10\"" nop movlw 0x10 movwf PR2 ; ; Wait for end of PWM cycle ; bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x88, \"TMR2 period PR2 to 0x10 wraps\"" nop clrf CCP1CON ; turn off PWM clrf CCP2CON ; turn off PWM clrf CCP3CON ; turn off PWM clrf CCP4CON ; turn off PWM .assert "\"*** PASSED 18f6520 PWM test\"" goto $-1 end gpsim-0.27.0/regression/ccp/ccp_877a.stc0000644000076400007640000000006610433051634014624 00000000000000 #set verbose 1 load ccp_877a.cod load ccp_877a.cod gpsim-0.27.0/regression/ccp/ccp.asm0000644000076400007640000001577310416271542014063 00000000000000 list p=16c64 __config _WDT_OFF ;; The purpose of this program is to test gpsim's ability to simulate ;; the Capture Compare peripherals in a midrange pic (e.g. pic16c64). include "p16c64.inc" cblock 0x20 status_temp,w_temp interrupt_temp failures ;; The capTime 16-bit register is a working register that keeps track ;; of the capture edge. capTimeH, capTimeL temp1,temp2 t1,t2,t3 kz endc cblock 0xa0 status_temp_alias,w_temp_alias endc org 0 goto main org 4 ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp ;; Are peripheral interrupts enabled? btfss INTCON,PEIE goto exit_int bsf STATUS,RP0 movf PIE1 ^ 0x80,W bcf STATUS,RP0 movwf interrupt_temp check_tmr1: btfsc PIR1,TMR1IF btfss interrupt_temp,TMR1IE goto check_ccp1 ;; tmr1 has rolled over bcf PIR1,TMR1IF ; Clear the pending interrupt bsf temp1,0 ; Set a flag to indicate rollover check_ccp1: btfsc PIR1,CCP1IF btfss interrupt_temp,CCP1IE goto exit_int bcf PIR1,CCP1IF ; Clear the pending interrupt bsf temp1,1 ; Set a flag to indicate match exit_int: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie main: clrf failures ;Assume success. clrf kz ;kz == Known Zero. ;; disable (primarily) global and peripheral interrupts clrf INTCON ;; ;; CCP test ;; ;; The CCP module is intricately intertwined with the TMR1 ;; module. So first, let's initialize TMR1: ;; Clear all of the bits of the TMR1 control register: ;; this will: ;; Turn the tmr off ;; Select Fosc/4 as the clock source ;; Disable the External oscillator feedback circuit ;; Select a 1:1 prescale ;; In this mode, TMR1 will count instruction cycles. clrf T1CON ; clrf PIR1 ; Clear the interrupt/roll over flag ;; Zero TMR1 clrf TMR1L clrf TMR1H ;; Start the timer bsf T1CON,TMR1ON ccp_test1: movlw (1< include __CONFIG _WDT_OFF errorlevel -302 radix dec ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA var1 RES 1 var2 RES 1 var3 RES 1 failures RES 1 status_temp RES 1 w_temp RES 1 interrupt_temp RES 1 GLOBAL var1,var2,var3,failures GLOBAL done ;; The capTime 16-bit register is a working register that keeps track ;; of the capture edge. capTimeH RES 1 capTimeL RES 1 capTimeHb RES 1 capTimeLb RES 1 GLOBAL capTimeH, capTimeL, capTimeHb, capTimeLb temp1 RES 1 temp2 RES 1 t1 RES 1 t2 RES 1 t3 RES 1 kz RES 1 GLOBAL temp1, temp2, t1, t2, t3, kz ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; Simulation Script .sim "node test_node_C" ;# Create an asynchronous stimulus that's 1000 cycles long ;# and attach it to portc bit 2. .sim "stimulus asynchronous_stimulus" .sim "initial_state 0" .sim "start_cycle 0x100" .sim "period 0x400" .sim "{ 0x200, 1}" ; .sim "0x300, 0," ; .sim "0x400, 1," ; .sim "0x600, 0," ; .sim "0x700, 1," ; .sim "0x800, 0}" .sim "name asy1" .sim "end" .sim "attach test_node_C asy1 portc2" ;---------------------------------------------------------------------- ; ******************* INTERRUPT VECTOR LOCATION ******************** ;---------------------------------------------------------------------- INT_VECTOR CODE 0x004 ; interrupt vector location ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp ;; Are peripheral interrupts enabled? btfss INTCON,PEIE goto exit_int bsf STATUS,RP0 movf PIE1 ^ 0x80,W bcf STATUS,RP0 movwf interrupt_temp check_tmr1: btfsc PIR1,TMR1IF btfss interrupt_temp,TMR1IE goto check_ccp1 ;; tmr1 has rolled over bcf PIR1,TMR1IF ; Clear the pending interrupt bsf temp1,0 ; Set a flag to indicate rollover check_ccp1: btfsc PIR1,CCP1IF btfss interrupt_temp,CCP1IE goto check_ccp2 bcf PIR1,CCP1IF ; Clear the pending interrupt bsf temp1,1 ; Set a flag to indicate match check_ccp2: bsf STATUS,RP0 movf PIE2 ^ 0x80,W bcf STATUS,RP0 movwf interrupt_temp btfsc PIR2,CCP2IF btfss interrupt_temp,CCP2IE goto exit_int bcf PIR2,CCP2IF ; Clear the pending interrupt bsf temp1,2 ; Set a flag to indicate match exit_int: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start clrf failures ;Assume success. clrf kz ;kz == Known Zero. ;; disable (primarily) global and peripheral interrupts clrf INTCON ;; ;; CCP test ;; ;; The CCP module is intricately intertwined with the TMR1 ;; module. So first, let's initialize TMR1: ;; Clear all of the bits of the TMR1 control register: ;; this will: ;; Turn the tmr off ;; Select Fosc/4 as the clock source ;; Disable the External oscillator feedback circuit ;; Select a 1:1 prescale ;; In this mode, TMR1 will count instruction cycles. clrf T1CON ; clrf PIR1 ; Clear the interrupt/roll over flag clrf PIR2 ;; Zero TMR1 clrf TMR1L clrf TMR1H ;; Start the timer bsf T1CON,TMR1ON ccp_test1: movlw (1< 5 call ccpWaitForPORTC2_low call ccpWaitForPORTC2_high call ccpCaptureTwoEvents .assert "(capTimeL==0) && (capTimeH==4), \"*** FAILED CCP 16f877a mode 5\"" nop clrf temp1 ;Clear the software interrupt flag. incf CCP1CON,F ;Next mode --> 6 call ccpWaitForPORTC2_high call ccpCaptureTwoEvents .assert "(capTimeL==0) && (capTimeH==0x10), \"*** FAILED CCP 16f877a mode 6\"" nop clrf temp1 ;Clear the software interrupt flag. incf CCP1CON,F ;Next mode --> 7 call ccpWaitForPORTC2_high call ccpCaptureTwoEvents .assert "(capTimeL==0) && (capTimeH==0x40), \"*** FAILED CCP 16f877a mode 7\"" nop goto test_ccp1_compare ;------------------------------------------------------------------------ ;ccpCaptureTwoEvents ; ; Capture two events for the current CCP setting and return the time ; difference between them ccpCaptureTwoEvents: call ccpWaitForCapture movf CCPR1L,W movwf capTimeLb movf CCPR1H,W movwf capTimeHb call ccpWaitForCapture movf CCPR1L,W movwf capTimeL movf CCPR1H,W movwf capTimeH ; Subtract the time of the most recently captured edge from the previous one movf capTimeLb,W subwf capTimeL,F movf capTimeHb,W skpc incfsz capTimeHb,W subwf capTimeH,F return ;------------------------------------------------------------------------ ;ccpWaitForCapture ; ; Spin loop that polls an interrupt flag that is set whenever a capture ; interrupt triggers. ccpWaitForCapture: clrf t1 ;A 16-bit software timeout counter clrf t2 ccpWaitLoop: ;; The watchdog counter ensures we don't loop forever! call ccpWDCounter ;; ;; when an edge is captured, the interrupt routine will ;; set a flag: ;; btfss temp1,1 goto ccpWaitLoop bcf temp1,1 return ;------------------------------------------------------------------------ ccpWaitForPORTC2_high: btfsc PORTC,2 return call ccpWDCounter goto ccpWaitForPORTC2_high ccpWaitForPORTC2_low: btfss PORTC,2 return call ccpWDCounter goto ccpWaitForPORTC2_high ;------------------------------------------------------------------------ ; ccpWDCounter ; a 16bit watch dog counter is incremented by 1. If it rolls over then we failed. ccpWDCounter: incfsz t1,f return incfsz t2,f return goto failed ;If we get here then we haven't caught anything! ;Either a) there's a gpsim bug or b) the stimulus ;file is incorrect. ; movlw 1 ;This 16-bit software counter ; addwf t1,f ;will time out if there's something wrong, ; rlf kz,w ; addwf t2,f ; skpc ; return ;; ;; Compare ;; ;; Now for the compare mode. test_ccp1_compare: clrf T1CON clrf TMR1L clrf TMR1H bsf STATUS,RP0 bcf PORTC,2 ;CCP bit is an output bcf STATUS,RP0 ;; Start off the compare mode by setting the output on a compare match ;; ;; ccp = 8 <- Set output on match ;; ccp = 9 <- Clear output on match ;; ccp = 10 <- Just set the ccp1if flag, but don't change the output ;; ccp = 11 <- Reset tmr1 on a match movlw 0x8 movwf CCP1CON ;; clrf PIR1 ;; Initialize the 16-bit compare register: movlw 0x34 movwf CCPR1L movlw 0x12 movwf CCPR1H ;; Clear the interrupt flag clrf temp1 tt3: ;; Stop and clear tmr1 clrf T1CON clrf TMR1L clrf TMR1H ;; Now start it bsf T1CON,TMR1ON ;; Wait for the interrupt routine to set the flag: btfss temp1,1 goto $-1 bcf temp1,1 ;; Try the next capture mode incf CCP1CON,F ;; If bit 2 of ccp1con is set then we're through with capture modes ;; (and are starting pwm modes) btfsc CCP1CON,2 goto done_ccp1 goto tt3 done_ccp1: ; goto done .assert "(tmr1h==0) && (tmr1l<0x40), \"*** FAILED CCP 16f877a ccp1con=b no tmr1 reset\"" nop clrf T1CON clrf TMR1L clrf TMR1H bsf STATUS,RP0 bcf TRISC ^ 0x80, 1 ;CCP bit is an output bsf PIE2 ^ 0x80, CCP2IE bcf STATUS,RP0 ;; Start off the compare mode by setting the output on a compare match ;; ;; ccp = 8 <- Set output on match ;; ccp = 9 <- Clear output on match ;; ccp = 10 <- Just set the ccp1if flag, but don't change the output ;; ccp = 11 <- Reset tmr1 on a match movlw 0x8 movwf CCP2CON ;; clrf PIR2 ;; Initialize the 16-bit compare register: movlw 0x34 movwf CCPR2L movlw 0x0 movwf CCPR2H ;; Clear the interrupt flag clrf temp1 tt4: ;; Stop and clear tmr1 clrf T1CON clrf TMR1L clrf TMR1H ;; Now start it bsf T1CON,TMR1ON ;; Wait for the interrupt routine to set the flag: btfss temp1,2 goto $-1 bcf temp1,2 ;; Try the next capture mode incf CCP2CON,F ;; If bit 2 of ccp2con is set then we're through with capture modes ;; (and are starting pwm modes) btfsc CCP2CON,2 goto done_ccp2 goto tt4 done_ccp2: ; ; test running both CCPs in compare mode at the same time ; clrf T1CON clrf TMR1L clrf TMR1H bsf STATUS,RP0 bcf TRISC, 2 ;CCP bit is an output bcf TRISC, 1 ;CCP bit is an output bsf PIE2, CCP2IE bcf STATUS,RP0 movlw 0x8 movwf CCP2CON movwf CCP1CON ;; clrf PIR2 ;; Initialize the 16-bit compare register: movlw 0x34 movwf CCPR2L movlw 0x0 movwf CCPR2H movlw 0x34 movwf CCPR1L movlw 0x2 movwf CCPR1H ;; Clear the interrupt flag clrf temp1 ;; Now start T1 bsf T1CON,TMR1ON ;; Wait for the interrupt routine to set the flag: ccp12_loop1: movf temp1,W btfsc STATUS,Z goto ccp12_loop1 ;; Now confirm that it wasn't CCP1 that happened first .assert "(temp1 & 0x3) != 2, \"*** FAILED CCP 877a test both CCP running\"" nop ;; Wait until the timer reaches 0x300 ccp12_loop2: movf TMR1H,W xorlw 3 btfss STATUS,Z goto ccp12_loop2 ;; and confirm that both CCPs have fired by now .assert "(temp1 == 6), \"*** FAILED CCP 877a test both CCP running\"" nop goto done failed: .assert "\"*** FAILED CCP 877a test\"" incf failures,F goto $ done: .assert "\"*** PASSED CCP 877a test\"" goto $ ; .sim "set verbose 4" end gpsim-0.27.0/regression/ccp/16f877a.lkr0000644000076400007640000000332010525705327014316 00000000000000// Sample linker command file for 16F877a and 876a // $Id: 16f877a.lkr 1828 2006-11-10 18:59:10Z borutr $ LIBPATH . CODEPAGE NAME=vectors START=0x0000 END=0x0004 PROTECTED CODEPAGE NAME=page0 START=0x0005 END=0x07FF CODEPAGE NAME=page1 START=0x0800 END=0x0FFF CODEPAGE NAME=page2 START=0x1000 END=0x17FF CODEPAGE NAME=page3 START=0x1800 END=0x1FFF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2007 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x21FF PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x10F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x18F PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x6F DATABANK NAME=gpr1 START=0xA0 END=0xEF DATABANK NAME=gpr2 START=0x110 END=0x16F DATABANK NAME=gpr3 START=0x190 END=0x1EF SHAREBANK NAME=gprnobnk START=0x70 END=0x7F SHAREBANK NAME=gprnobnk START=0xF0 END=0xFF SHAREBANK NAME=gprnobnk START=0x170 END=0x17F SHAREBANK NAME=gprnobnk START=0x1F0 END=0x1FF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG1 ROM=page0 // ROM code space - page0 SECTION NAME=PROG2 ROM=page1 // ROM code space - page1 SECTION NAME=PROG3 ROM=page2 // ROM code space - page2 SECTION NAME=PROG4 ROM=page3 // ROM code space - page3 SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/ccp/ccp_819.asm0000644000076400007640000002330111147232752014450 00000000000000 ;; ccp_819 ;; The purpose of this program is to test gpsim's ability to simulate ;; the Capture Compare peripherals in a midrange pic (e.g. pic16c64). list p=16f819 include include __CONFIG _WDT_OFF & _CCP1_RB3 errorlevel -302 radix dec ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR failures RES 1 status_temp RES 1 w_temp RES 1 interrupt_temp RES 1 GLOBAL failures GLOBAL done ;; The capTime 16-bit register is a working register that keeps track ;; of the capture edge. capTimeH RES 1 capTimeL RES 1 capTimeHb RES 1 capTimeLb RES 1 GLOBAL capTimeH, capTimeL, capTimeHb, capTimeLb temp1 RES 1 temp2 RES 1 t1 RES 1 t2 RES 1 t3 RES 1 kz RES 1 GLOBAL temp1, temp2, t1, t2, t3, kz ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; Simulation Script .sim "node test_node_C" ;# Create an asynchronous stimulus that's 1000 cycles long ;# and attach it to portb bit 3. .sim "stimulus asynchronous_stimulus" .sim "initial_state 0" .sim "start_cycle 0x100" .sim "period 0x400" .sim "{ 0x200, 1}" ; .sim "0x300, 0," ; .sim "0x400, 1," ; .sim "0x600, 0," ; .sim "0x700, 1," ; .sim "0x800, 0}" .sim "name asy1" .sim "end" .sim "attach test_node_C asy1 portb3" ;---------------------------------------------------------------------- ; ******************* INTERRUPT VECTOR LOCATION ******************** ;---------------------------------------------------------------------- INT_VECTOR CODE 0x004 ; interrupt vector location ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp ;; Are peripheral interrupts enabled? btfss INTCON,PEIE goto exit_int bsf STATUS,RP0 movf PIE1 ^ 0x80,W bcf STATUS,RP0 movwf interrupt_temp check_tmr1: btfsc PIR1,TMR1IF btfss interrupt_temp,TMR1IE goto check_ccp1 ;; tmr1 has rolled over bcf PIR1,TMR1IF ; Clear the pending interrupt bsf temp1,0 ; Set a flag to indicate rollover check_ccp1: btfsc PIR1,CCP1IF btfss interrupt_temp,CCP1IE goto exit_int bcf PIR1,CCP1IF ; Clear the pending interrupt bsf temp1,1 ; Set a flag to indicate match exit_int: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start clrf failures ;Assume success. clrf kz ;kz == Known Zero. ;; disable (primarily) global and peripheral interrupts clrf INTCON ;; ;; CCP test ;; ;; The CCP module is intricately intertwined with the TMR1 ;; module. So first, let's initialize TMR1: ;; Clear all of the bits of the TMR1 control register: ;; this will: ;; Turn the tmr off ;; Select Fosc/4 as the clock source ;; Disable the External oscillator feedback circuit ;; Select a 1:1 prescale ;; In this mode, TMR1 will count instruction cycles. clrf T1CON ; clrf PIR1 ; Clear the interrupt/roll over flag ;; Zero TMR1 clrf TMR1L clrf TMR1H ;; Start the timer bsf T1CON,TMR1ON ccp_test1: movlw (1< 5 call ccpWaitForPORTC2_low call ccpWaitForPORTC2_high call ccpCaptureTwoEvents .assert "(capTimeL==0) && (capTimeH==4)" clrf temp1 ;Clear the software interrupt flag. incf CCP1CON,F ;Next mode --> 6 call ccpWaitForPORTC2_high call ccpCaptureTwoEvents .assert "(capTimeL==0) && (capTimeH==0x10)" clrf temp1 ;Clear the software interrupt flag. incf CCP1CON,F ;Next mode --> 7 call ccpWaitForPORTC2_high call ccpCaptureTwoEvents .assert "(capTimeL==0) && (capTimeH==0x40)" goto done ;------------------------------------------------------------------------ ;ccpCaptureTwoEvents ; ; Capture two events for the current CCP setting and return the time ; difference between them ccpCaptureTwoEvents: call ccpWaitForCapture movf CCPR1L,W movwf capTimeLb movf CCPR1H,W movwf capTimeHb call ccpWaitForCapture movf CCPR1L,W movwf capTimeL movf CCPR1H,W movwf capTimeH ; Subtract the time of the most recently captured edge from the previous one movf capTimeLb,W subwf capTimeL,F movf capTimeHb,W skpc incfsz capTimeHb,W subwf capTimeH,F return ;------------------------------------------------------------------------ ;ccpWaitForCapture ; ; Spin loop that polls an interrupt flag that is set whenever a capture ; interrupt triggers. ccpWaitForCapture: clrf t1 ;A 16-bit software timeout counter clrf t2 ccpWaitLoop: ;; The watchdog counter ensures we don't loop forever! call ccpWDCounter ;; ;; when an edge is captured, the interrupt routine will ;; set a flag: ;; btfss temp1,1 goto ccpWaitLoop bcf temp1,1 return ;------------------------------------------------------------------------ ccpWaitForPORTC2_high: btfsc PORTB,3 return call ccpWDCounter goto ccpWaitForPORTC2_high ccpWaitForPORTC2_low: btfss PORTB,3 return call ccpWDCounter goto ccpWaitForPORTC2_high ;------------------------------------------------------------------------ ; ccpWDCounter ; a 16bit watch dog counter is incremented by 1. If it rolls over then we failed. ccpWDCounter: incfsz t1,f return incfsz t2,f return goto failed ;If we get here then we haven't caught anything! ;Either a) there's a gpsim bug or b) the stimulus ;file is incorrect. ; movlw 1 ;This 16-bit software counter ; addwf t1,f ;will time out if there's something wrong, ; rlf kz,w ; addwf t2,f ; skpc ; return ;; ;; Compare ;; ;; Now for the compare mode. ccp_test2: goto done ;;########################################## clrf T1CON clrf TMR1L clrf TMR1H bsf STATUS,RP0 bcf PORTB,3 ;CCP bit is an output bcf STATUS,RP0 ;; Start off the compare mode by setting the output on a compare match ;; ;; ccp = 8 <- Set output on match ;; ccp = 9 <- Clear output on match ;; ccp = 10 <- Just set the ccp1if flag, but don't change the output ;; ccp = 11 <- Reset tmr1 on a match movlw 0x8 movwf CCP1CON ;; clrf PIR1 ;; Initialize the 16-bit compare register: movlw 0x34 movwf CCPR1L movlw 0x12 movwf CCPR1H ;; Clear the interrupt flag clrf temp1 tt3: ;; Stop and clear tmr1 clrf T1CON clrf TMR1L clrf TMR1H ;; Now start it bsf T1CON,TMR1ON ;; Wait for the interrupt routine to set the flag: btfss temp1,1 goto $-1 bcf temp1,1 ;; Try the next capture mode incf CCP1CON,F ;; If bit 2 of ccp1con is set then we're through with capture modes ;; (and are starting pwm modes) btfsc CCP1CON,2 goto done goto tt3 failed: .assert "\"*** FAILED CCP 819 test\"" incf failures,F goto $ done: .assert "\"*** PASSED CCP 819 test\"" goto $ end gpsim-0.27.0/regression/ccp/pwm_877a.asm0000664000076400007640000001351011506243036014652 00000000000000 list p=16f877a include include __CONFIG _WDT_OFF ;; The purpose of this program is to test gpsim's ability to simulate a pic 16c71. ;; Specifically, the pwm is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR t0_1 RES 1 t0_2 RES 1 x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp bcf STATUS,RP0 ;adcon0 is in bank 0 .assert "\"FAILED 16F877a unexpected interrupt\"" nop check: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: clrf CCP1CON ; CCP Module is off clrf CCP2CON ; CCP Module is off clrf TMR2 ; Clear Timer2 clrf TMR0 ; Clear Timer0 movlw 0x1F ; movwf CCPR1L ; Duty Cycle is 25% of PWM Period movlw 0x0F ; movwf CCPR2L ; Duty Cycle is 25% of PWM Period clrf INTCON ; Disable interrupts and clear T0IF bsf STATUS, RP0 ; Bank1 movlw 0x2F ; movwf PR2 ; bcf TRISC, 1 ; Make pin output bcf TRISC, 2 ; Make pin output clrf PIE1 ; Disable peripheral interrupts movlw 0x83 ; Tmr0 internal clock prescaler 16 movwf OPTION_REG bcf STATUS, RP0 ; Bank0 clrf PIR1 ; Clear peripheral interrupts Flags movlw 0x2C ; PWM mode, 2 LSbs of Duty cycle = 10 movwf CCP1CON ; movlw 0x06 ; Start Timer2 prescaler is 16, just like TMR0 movwf T2CON movlw 0x2C ; PWM mode, 2 LSbs of Duty cycle = 00 movwf CCP2CON ; .assert "ccpr1l != ccpr1h, \"CCPR1H before TRM2 reset\"" nop ; ; The CCP1 interrupt is disabled, ; do polling on the TMR2 Interrupt flag bit ; PWM_Period_Match btfss PIR1, TMR2IF goto PWM_Period_Match clrf TMR0 .assert "ccpr1l == ccpr1h, \"CCPR1H loaded from CCPR1H\"" nop .assert "(portc & 0x6) == 0x6, \"CCP1, CCP2 are high\"" nop ; loop until CCP2 goes low btfsc PORTC,1 goto $-1 .assert "tmr0 == 0x0f, \"CCP2 duty cycle\"" nop ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x1f, \"CCP1 duty cycle\"" nop ; ; Wait for end of PWM cycle ; bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x2f, \"TMR2 period\"" nop ; ; Increase TMR2 but less than first duty cycle ; clrf TMR0 movlw 0x0D movwf TMR2 ; update timer ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "(portc & 0x6) == 0x0, \"TMR2 put, only change period\"" nop bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x23, \"TMR2 put, only change period\"" nop ; ; Increase TMR2 between first and second duty cycle ; clrf TMR0 movlw 0x1D movwf TMR2 ; update timer ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "(portc & 0x6) == 0x2, \"TMR2 put, between duty cycles\"" nop bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x13, \"TMR2 put, between duty cycles\"" nop ; ; in this test TMR2 > PR2, expect TMR2 to wrap around ; bsf STATUS, RP0 ; Bank1 movlw 0x84 ; Tmr0 internal clock prescaler 32 movwf OPTION_REG bcf STATUS, RP0 ; Bank0 clrf TMR0 movlw 0x30 movwf TMR2 ; update timer ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x77, \"CCP1 duty cycle after wrap\"" nop bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x80, \"TMR2 > PR2 causes wrap\"" nop ; ; write reduced PR2 ; clrf TMR0 ; loop until CCP2 goes low btfsc PORTC,1 goto $-1 .assert "tmr0 == 0x07, \"CCP2 duty cycle PR2 to 0x20\"" nop ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x0f, \"CCP1 duty cycle PR2 to 0x20\"" nop bsf STATUS, RP0 ; Bank1 movlw 0x20 movwf PR2 bcf STATUS, RP0 ; Bank0 ; ; Wait for end of PWM cycle ; bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x10, \"TMR2 period PR2 to 0x20\"" nop ; ; write reduced PR2 < TRM2 ; clrf TMR0 ; loop until CCP2 goes low btfsc PORTC,1 goto $-1 .assert "tmr0 == 0x07, \"CCP2 duty cycle PR2 to 0x10\"" nop ; loop until CCP1 goes low btfsc PORTC,2 goto $-1 .assert "tmr0 == 0x0f, \"CCP1 duty cycle PR2 to 0x10\"" nop bsf STATUS, RP0 ; Bank1 movlw 0x10 movwf PR2 bcf STATUS, RP0 ; Bank0 ; ; Wait for end of PWM cycle ; bcf PIR1, TMR2IF btfss PIR1, TMR2IF goto $-1 .assert "tmr0 == 0x88, \"TMR2 period PR2 to 0x10 wraps\"" nop clrf CCP1CON ; turn off PWM clrf CCP2CON ; turn off PWM .assert "\"*** PASSED 16f877a PWM test\"" goto $-1 end gpsim-0.27.0/regression/ccp/16f819.lkr0000644000076400007640000000267410655217262014164 00000000000000// Sample linker command file for 16F819.lkr LIBPATH . CODEPAGE NAME=vectors START=0x0000 END=0x0004 PROTECTED CODEPAGE NAME=page START=0x0005 END=0x07FF CODEPAGE NAME=.idlocs START=0x2000 END=0x2003 PROTECTED CODEPAGE NAME=.device_id START=0x2006 END=0x2006 PROTECTED CODEPAGE NAME=.config START=0x2007 END=0x2009 PROTECTED CODEPAGE NAME=eedata START=0x2100 END=0x21FF PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x11F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x19F PROTECTED DATABANK NAME=gpr0 START=0xA0 END=0xEF DATABANK NAME=gpr1 START=0x120 END=0x16F SHAREBANK NAME=gprnobnk0 START=0x20 END=0x6F SHAREBANK NAME=gprnobnk0 START=0x1A0 END=0x1EF SHAREBANK NAME=gprnobnk1 START=0x70 END=0x7F SHAREBANK NAME=gprnobnk1 START=0xF0 END=0xFF SHAREBANK NAME=gprnobnk1 START=0x170 END=0x17F SHAREBANK NAME=gprnobnk1 START=0x1F0 END=0x1FF SECTION NAME=STARTUP ROM=vectors // Reset and interrupt vectors SECTION NAME=PROG ROM=page // ROM code space SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=DEVICEID ROM=.device_id // ID locations SECTION NAME=CONFIG ROM=.config // Configuration bits location SECTION NAME=DEEPROM ROM=eedata // Data EEPROM gpsim-0.27.0/regression/a2d/0000775000076400007640000000000012210742355012561 500000000000000gpsim-0.27.0/regression/a2d/netlist.stc0000644000076400007640000000027611215163300014670 00000000000000 .sim "p16f88.xpos = 72" .sim "p16f88.ypos = 72" .sim "V1.xpos = 240" .sim "V1.ypos = 72" .sim "V2.xpos = 84" .sim "V2.ypos = 24" .sim "V3.xpos = 240" .sim "V3.ypos = 120" gpsim-0.27.0/regression/a2d/p16f88.asm0000644000076400007640000001276011223570642014144 00000000000000 list p=16f88 include include __CONFIG _CONFIG1, _CP_OFF & _WDT_OFF & _INTRC_IO & _PWRTE_ON & _LVP_OFF & _BODEN_OFF & _MCLR_OFF __CONFIG _CONFIG2, _IESO_OFF & _FCMEN_OFF ;; The purpose of this program is to test gpsim's ability to ;; simulate a pic 16F88. ;; Specifically, the a/d converter is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp bcf STATUS,RP0 ;adcon0 is in bank 0 btfsc INTCON,ADIE btfsc PIR1,ADIF goto check .assert "\"FAILED 16F88 unexpected interrupt\"" nop ;; An A/D interrupt has occurred check: bsf t1,0 ;Set a flag to indicate we got the int. bcf PIR1,ADIF ;Clear the a/d interrupt swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "p16f88.xpos = 72" .sim "p16f88.ypos = 72" .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup V1" .sim "V1.resistance = 100.0" .sim "V1.xpos = 240" .sim "V1.ypos = 72" .sim "module load pullup V2" .sim "V2.resistance = 100.0" .sim "V2.xpos = 84" .sim "V2.ypos = 24" ; V3 and node na0 required for A/D to see pin voltage ; this may be a bug RRR 5/06 .sim "module load pullup V3" .sim "V3.resistance = 10e6" .sim "V3.xpos = 240" .sim "V3.ypos = 120" .sim "node na0" .sim "attach na0 V3.pin porta0" .sim "node na1" .sim "attach na1 V1.pin porta1" .sim "node na3" .sim "attach na3 V2.pin porta3" ;; Let's use the ADC's interrupt ; RA1 is an Analog Input. ; RA0, RA2 - RA6 are all configured as outputs. ; ; Use VDD and VSS for Voltage references. ; ; PCFG = 1110 == AN0 is the only analog input ; ADCS = 110 == FOSC/64 ; ADFM = 0 == 6 LSB of ADRESL are 0. ; bsf STATUS,RP0 ;adcon1 is in bank 1 movlw 3 movwf ANSEL ; select AN0, AN1 movwf TRISA movlw (1< ; processor specific variable definitions include ; Grab some useful macros .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA temp RES 1 temp1 RES 1 temp2 RES 1 failures RES 1 a2dIntFlag RES 1 ;LSB is set when an A2D interrupt occurs GLOBAL done GLOBAL a2dIntFlag __CONFIG _CONFIG3H, _MCLRE_OFF_3H ;------------------------------------------------------------------------ STARTUP CODE 0 bra Start ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x008 ; interrupt vector location check_TMR0_interrupt: btfsc PIR1,ADIF ;If A2D int flag is not set btfsc PIE1,ADIE ;Or the interrupt is not enabled goto a2dint .assert "\"FAIL 18F4321 unexpected interrupt\"" nop RETFIE 1 ; Then leave ;; An A/D interrupt has occurred a2dint: bsf a2dIntFlag,0 ;Set a flag to indicate we got the int. bcf PIR1,ADIF ;Clear the a/d interrupt ExitInterrupt: RETFIE 1 ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE .sim "p18f4321.xpos = 192" .sim "p18f4321.ypos = 48" .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup V1" .sim "V1.resistance = 100.0" .sim "V1.xpos = 48" .sim "V1.ypos = 24" .sim "module load pullup V2" .sim "V2.resistance = 100.0" .sim "V2.xpos = 48" .sim "V2.ypos = 204" ; V3 and na1 required for A/D to see voltage bug ? ; RRR 5/06 .sim "module load pullup V3" .sim "V3.resistance = 10e6" .sim "V3.xpos = 48" .sim "V3.ypos = 120" .sim "node na0" .sim "attach na0 V1.pin porta0" .sim "node na1" .sim "attach na1 V3.pin porta1" .sim "node na3" .sim "attach na3 V2.pin porta3" Start: ; RA0 is an Analog Input. ; RA1 - RA5 are all configured as outputs. ; ; Use VDD and VSS for Voltage references. ; ; PCFG = 1110 == AN0 is the only analog input ; ADCS = 110 == FOSC/64 ; ADFM = 0 == 6 LSB of ADRESL are 0. ; clrf TRISA MOVLW 0xff movwf PORTA movf PORTA,W MOVLW 1< include __CONFIG _WDT_OFF ;; The purpose of this program is to test gpsim ;; Specifically, the a/d converter is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp bcf STATUS,RP0 ;adcon0 is in bank 0 btfsc INTCON,ADIE btfsc PIR1,ADIF goto inta2d .assert "\"FAILED 16F819 a2d unexpected interupt\"" nop goto check ;; An A/D interrupt has occurred inta2d: bsf t1,0 ;Set a flag to indicate we got the int. bcf PIR1,ADIF ;Clear the a/d interrupt check: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup V1" .sim "V1.resistance = 100.0" .sim "node na0" .sim "attach na0 V1.pin porta0" .sim "module load pullup V2" .sim "V2.resistance = 100.0" .sim "node na1" .sim "attach na1 V2.pin porta3" ;; Let's use the ADC's interrupt ; RA0 is an Analog Input. ; RA1 - RA5 are all configured as outputs. ; ; Use VDD and VSS for Voltage references. ; ; PCFG = 1110 == AN0 is the only analog input ; ADCS = 110 == FOSC/64 ; ADFM = 0 == 6 LSB of ADRESL are 0. ; bsf STATUS,RP0 ;adcon1 is in bank 1 movlw 1 movwf TRISA movlw (1< include __CONFIG _WDT_OFF ;; The purpose of this program is to test gpsim's ability to simulate a pic 16c71. ;; Specifically, the a/d converter is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp bcf STATUS,RP0 ;adcon0 is in bank 0 btfsc INTCON,ADIE btfsc PIR1,ADIF goto check .assert "\"FAILED 16F873a unexpected interrupt\"" nop ;; An A/D interrupt has occurred check: bsf t1,0 ;Set a flag to indicate we got the int. bcf PIR1,ADIF ;Clear the a/d interrupt swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup V1" .sim "V1.resistance = 100.0" .sim "node na0" .sim "attach na0 V1.pin porta0" .sim "module load pullup V2" .sim "V2.resistance = 100.0" .sim "node na1" .sim "attach na1 V2.pin porta3" ;; Let's use the ADC's interrupt ; RA0 is an Analog Input. ; RA1 - RA5 are all configured as outputs. ; ; Use VDD and VSS for Voltage references. ; ; PCFG = 1110 == AN0 is the only analog input ; ADCS = 110 == FOSC/64 ; ADFM = 0 == 6 LSB of ADRESL are 0. ; bsf STATUS,RP0 ;adcon1 is in bank 1 movlw 1 movwf TRISA movlw (1< ; processor specific variable definitions include __CONFIG _MCLRE_OFF & _CP_OFF & _WDT_ON & _MCPU_OFF & _IOFSCS_8MHZ ; The purpose of this test is to check the functioning of the ADC for a P10F222 ; 1> IO pin control ; 2> Channel 0 ; 3> Channel 1 ; 4> Internal reference on channels 2 and 3 ; 5> Sleep stops ADC and sets ADCON0 bits on waking ; Printf Command .command macro x .direct "C", x endm ;********************************************************************** RESET_VECTOR CODE 0x1FF ; processor reset vector ; Internal RC calibration value is placed at location 0xFF by Microchip ; as a movlw k, where the k is a literal value. MAIN CODE 0x000 .sim "p10f222.BreakOnReset = false" .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup V1" .sim "V1.resistance = 100.0" .sim "node na1" .sim "attach na1 V1.pin gpio0 gpio3" .sim "V1.voltage=1.0" .sim "module load pullup V2" .sim "V2.resistance = 1000.0" .sim "node na2" .sim "attach na2 V2.pin gpio1 gpio2" .sim "V2.voltage=2.0" .sim "V1.xpos = 72" .sim "V1.ypos = 36" .sim "V2.xpos = 72" .sim "V2.ypos = 156" ; are we seeing a WDT reset? btfss STATUS,NOT_TO goto after_sleep movlw 0x7f movwf OSCCAL ; update register with factory cal value movlw 0x81 movwf OSCCAL ; update register with factory cal value bcf OSCCAL,0 ; Make sure GP2 is not FOSC4 GOTO START ;================================================================ START ; No wakeup or pullup on pins ; clock T0 high to low, and T0 prescale 1 MOVLW 1< ; processor specific variable definitions include ; Grab some useful macros .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA temp RES 1 temp1 RES 1 temp2 RES 1 failures RES 1 a2dIntFlag RES 1 ;LSB is set when an A2D interrupt occurs GLOBAL done GLOBAL a2dIntFlag ; internal RC OSC PORTA 6,7 I/O __CONFIG _CONFIG1H, _INTIO2_OSC_1H ;------------------------------------------------------------------------ STARTUP CODE 0 bra Start ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x008 ; interrupt vector location check_TMR0_interrupt: btfsc PIR1,ADIF ;If A2D int flag is not set btfsc PIE1,ADIE ;Or the interrupt is not enabled goto a2dint .assert "\"FAIL 18F1220 unexpected interrupt\"" nop RETFIE 1 ; Then leave ;; An A/D interrupt has occurred a2dint: bsf a2dIntFlag,0 ;Set a flag to indicate we got the int. bcf PIR1,ADIF ;Clear the a/d interrupt ExitInterrupt: RETFIE 1 ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE .sim "p18f1220.xpos = 192" .sim "p18f1220.ypos = 120" .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup V1" .sim "V1.resistance = 100.0" .sim "V1.xpos = 204" .sim "V1.ypos = 36" .sim "module load pullup V2" .sim "V2.resistance = 100.0" .sim "V2.xpos = 72" .sim "V2.ypos = 156" ; V3 and na1 required for A/D to see voltage bug ? ; RRR 5/06 .sim "module load pullup V3" .sim "V3.resistance = 10e6" .sim "V3.xpos = 72" .sim "V3.ypos = 72" .sim "node na0" .sim "attach na0 V1.pin porta0" .sim "node na1" .sim "attach na1 V3.pin porta1" .sim "node na3" .sim "attach na3 V2.pin porta3" Start: .assert "p18f1220.frequency == 31250., \"FALIED 18F1220 a2d default frequency\"" nop movlw 0x70 movwf OSCCON .assert "p18f1220.frequency == 8000000., \"FALIED 18F1220 a2d full rc frequency\"" nop CLRF TRISA MOVLW 0xff MOVWF PORTA .assert "(porta & 0x0f) == 0, \"FALIED 18F1220 a2d analog pins read 0\"" nop CLRF TRISB MOVWF PORTB .assert "(portb & 0x13) == 0, \"FALIED 18F1220 a2d analog pins read 0\"" nop ; RA0 is an Analog Input. ; RA1 - RA6 are all configured as outputs. ; ; Use VDD and VSS for Voltage references. ; ; PCFG = 1111110 == AN0 is the only analog input ; ADCS = 110 == FOSC/64 ; ADFM = 0 == 6 LSB of ADRESL are 0. ; MOVLW 1< include __CONFIG _WDT_OFF ;; The purpose of this program is to test gpsim's ability to simulate a pic 16c71. ;; Specifically, the a/d converter is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp bcf STATUS,RP0 ;adcon0 is in bank 0 btfsc INTCON,ADIE btfsc PIR1,ADIF goto check .assert "\"FAILED 16F874a unexpected interrupt\"" nop ;; An A/D interrupt has occurred check: bsf t1,0 ;Set a flag to indicate we got the int. bcf PIR1,ADIF ;Clear the a/d interrupt swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup V1" .sim "V1.resistance = 100.0" .sim "node na0" .sim "attach na0 V1.pin porta0" .sim "module load pullup V2" .sim "V2.resistance = 100.0" .sim "node na1" .sim "attach na1 V2.pin porta3" ;; Let's use the ADC's interrupt ; RA0 is an Analog Input. ; RA1 - RA5 are all configured as outputs. ; ; Use VDD and VSS for Voltage references. ; ; PCFG = 1110 == AN0 is the only analog input ; ADCS = 110 == FOSC/64 ; ADFM = 0 == 6 LSB of ADRESL are 0. ; bsf STATUS,RP0 ;adcon1 is in bank 1 movlw 1 movwf TRISA movlw (1< ; processor specific variable definitions include ; Grab some useful macros .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA temp RES 1 temp1 RES 1 temp2 RES 1 failures RES 1 a2dIntFlag RES 1 ;LSB is set when an A2D interrupt occurs GLOBAL done GLOBAL a2dIntFlag ;------------------------------------------------------------------------ STARTUP CODE 0 bra Start ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x008 ; interrupt vector location check_TMR0_interrupt: btfsc PIR1,ADIF ;If A2D int flag is not set btfsc PIE1,ADIE ;Or the interrupt is not enabled goto a2dint .assert "\"FAIL 18F452 unexpected interrupt\"" nop RETFIE 1 ; Then leave ;; An A/D interrupt has occurred a2dint: bsf a2dIntFlag,0 ;Set a flag to indicate we got the int. bcf PIR1,ADIF ;Clear the a/d interrupt ExitInterrupt: RETFIE 1 ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE .sim "p18f452.xpos = 192" .sim "p18f452.ypos = 48" .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup V1" .sim "V1.resistance = 100.0" .sim "V1.xpos = 48" .sim "V1.ypos = 36" .sim "module load pullup V2" .sim "V2.resistance = 100.0" .sim "V2.xpos = 48" .sim "V2.ypos = 168" ; V3 and na1 required for A/D to see voltage bug ? ; RRR 5/06 .sim "module load pullup V3" .sim "V3.resistance = 10e6" .sim "V3.xpos = 48" .sim "V3.ypos = 96" .sim "node na0" .sim "attach na0 V1.pin porta0" .sim "node na1" .sim "attach na1 V3.pin porta1" .sim "node na3" .sim "attach na3 V2.pin porta3" Start: ; RA0 is an Analog Input. ; RA1 - RA5 are all configured as outputs. ; ; Use VDD and VSS for Voltage references. ; ; PCFG = 1110 == AN0 is the only analog input ; ADCS = 110 == FOSC/64 ; ADFM = 0 == 6 LSB of ADRESL are 0. ; MOVLW 1< include __CONFIG _WDT_OFF ;; The purpose of this program is to test gpsim's ability to simulate a pic 16c71. ;; Specifically, the a/d converter is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp bcf STATUS,RP0 ;adcon0 is in bank 0 btfsc INTCON,ADIE btfsc ADCON0,ADIF goto a2dint .assert "\"p16c71 FAIL unexpected interrupt\"" nop ;; An A/D interrupt has occurred a2dint: bsf t1,0 ;Set a flag to indicate we got the int. bcf ADCON0,ADIF ;Clear the a/d interrupt swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup V1" .sim "V1.resistance = 100.0" .sim "module load pullup V2" .sim "V2.voltage=2.0" .sim "V2.resistance = 100.0" .sim "node na0" .sim "attach na0 V1.pin porta0" .sim "node na1" .sim "attach na1 V2.pin porta3" ;; Let's use the ADC's interrupt clrf INTCON #define FAST_CONVERSION ((1< include __CONFIG _WDT_OFF ;; The purpose of this program is to test gpsim's ability to simulate a pic 16c71. ;; Specifically, the a/d converter is tested. errorlevel -302 ; Printf Command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA_SHR x RES 1 t1 RES 1 t2 RES 1 avg_lo RES 1 avg_hi RES 1 w_temp RES 1 status_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;; ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp bcf STATUS,RP0 ;adcon0 is in bank 0 btfsc INTCON,ADIE btfsc PIR1,ADIF goto inta2d .assert "\"FAILED 16F871 unexpected interupt\"" nop goto check ;; An A/D interrupt has occurred inta2d: bsf t1,0 ;Set a flag to indicate we got the int. bcf PIR1,ADIF ;Clear the a/d interrupt check: swapf status_temp,w movwf STATUS swapf w_temp,F swapf w_temp,W retfie ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: .sim "module library libgpsim_modules" ; Use a pullup resistor as a voltage source .sim "module load pullup V1" .sim "V1.resistance = 100.0" .sim "node na0" .sim "attach na0 V1.pin porta0" .sim "module load pullup V2" .sim "V2.resistance = 100.0" .sim "node na1" .sim "attach na1 V2.pin porta3" ;; Let's use the ADC's interrupt ; RA0 is an Analog Input. ; RA1 - RA5 are all configured as outputs. ; ; Use VDD and VSS for Voltage references. ; ; PCFG = 1110 == AN0 is the only analog input ; ADCS = 110 == FOSC/64 ; ADFM = 0 == 6 LSB of ADRESL are 0. ; bsf STATUS,RP0 ;adcon1 is in bank 1 movlw 1 movwf TRISA movlw (1< ; processor specific variable definitions include ; Grab some useful macros ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA temp RES 1 temp1 RES 1 temp2 RES 1 failures RES 1 GLOBAL done ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE clrf temp1 ;Assume clrf works... ; bra start failed1: ; a relatively local label bra failed start: ;; Perform some basic tests on some important instructions done: .assert "\"*** PASSED 16bit-core instruction test\"" bra $ failed: movlw 1 movwf failures .assert "\"*** FAILED 16bit-core instruction test\"" bra done end gpsim-0.27.0/regression/p18f/reset.asm0000664000076400007640000002404712162224370014442 00000000000000 ; 18f4321 gpsim regression test ; ; The purpose of this test is to verify that the 16bit processors ; is implemented correctly. Here's a list of specific things ; tested: ; ; 1) Reset conditions ; 2) WDT ; 3) Sleep ; 4) Wakeup on PIN change. list p=18f4321 include include ;__CONFIG _CONFIG2H, _WDT_ON_2H radix dec ; Printf Command .command macro x .direct "C", x endm GPR_DATA UDATA ResetSequence RES 1 optionShadow RES 1 w_temp RES 1 status_temp RES 1 temp1 RES 1 GLOBAL optionShadow, ResetSequence GLOBAL temp1 ; Define the reset conditions to be checked. eRSTSequence_PowerOnReset equ 1 eRSTSequence_AwakeMCLR equ 2 eRSTSequence_AwakeWDT equ 3 eRSTSequence_AwakeIO equ 4 eRSTSequence_WDTTimeOut equ 5 eRSTSequence_STKUNF equ 6 eRSTSequence_STKFUL equ 7 ;---------------------------------------------------------------------- ; ********************* STARTUP LOCATION *************************** ;---------------------------------------------------------------------- START CODE 0x000 ; ;############################################################ ;# Create a stimulus to simulate a switch ; .sim "p18f4321.xpos = 84" .sim "p18f4321.ypos = 96" .sim "module lib libgpsim_modules" .sim "module load pulsegen P_INTF" .sim "module load pulsegen P_RBIF" .sim "module load pulsegen RESET" .sim "RESET.initial = 5.0" .sim "RESET.xpos = 84" .sim "RESET.ypos = 36" .sim "P_INTF.clear = 0" ; At cycle 0, .sim "P_INTF.set = 1" .sim "P_INTF.xpos = 240" .sim "P_INTF.ypos = 192" .sim "P_RBIF.clear = 0" ; At cycle 0, .sim "P_RBIF.set = 1" .sim "P_RBIF.xpos = 240" .sim "P_RBIF.ypos = 132" ;############################################################ .sim "node nINTF" .sim "attach nINTF portb0 P_INTF.pin" .sim "node nRBIF" .sim "attach nRBIF portb4 P_RBIF.pin" .sim "node nRESET" ; .sim "attach nRESET p16f84.MCLR RESET.pin" .sim "attach nRESET MCLR RESET.pin" ;############################################################ .sim "symbol resetCounter=1" ; NOT_GPWU = 0 - Enable wakeup if I/O pins 0,1, or 3 change states ; NOT_GPPU = 1 - Disable weak pullups on I/O pins 0,1, and 3 ; TOCS = 0 - Let the clock source for TMR0 be the internal fosc/4 ; TOSE = 0 - don't care - TMR0 source edge. ; PSA = 1 - assign Prescale to the WDT ; PS2:0 = 000 - prescale = 2^0=1 .sim "optionShadow=8" ; PSA=1 .sim "ResetSequence=0" .sim ".BreakOnReset = false" .sim "p18f4321.frequency=100000" ; Set a cycle break point far in the future in case the resets fail. .sim "break c 0x1000000" RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x008 ; interrupt vector location movwf w_temp swapf STATUS,W movwf status_temp check_rbi: btfsc INTCON,RBIF btfss INTCON,RBIE goto check_int ; bsf temp5,1 ;Set a flag to indicate rb4-7 int occured bcf INTCON,RBIF movf PORTB,w check_int: btfsc INTCON,INT0IF btfss INTCON,INT0IE goto check_t0 ; bsf temp5,0 ;Set a flag to indicate rb0 int occured bcf INTCON,INT0IF check_t0: btfsc INTCON,T0IF btfss INTCON,T0IE goto exit_int ;; tmr0 has rolled over bcf INTCON,T0IF ; Clear the pending interrupt bsf temp1,0 ; Set a flag to indicate rollover exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie bSWITCH equ 0 ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start .assert "(trisa&0x1f)==0x1f, \"*** FAILED 18f4321 reset bad TRISA\"" nop .assert "trisb==0xff, \"*** FAILED 18f4321 reset bad TRISB\"" nop .assert "trisc==0xff, \"*** FAILED 18f4321 reset bad TRISC\"" nop .assert "trisd==0xff, \"*** FAILED 18f4321 reset bad TRISD\"" nop .assert "(trise&0x03)==0x03, \"*** FAILED 18f4321 reset bad TRISE\"" nop ; OPTION register setup MOVF optionShadow,W ;optionShadow is initialized by the gpsim script ; GPIO setup ; If this is a PowerOn reset, then the state of the GPIO output register ; is unknown. If this is not a PowerOn reset then the GPIO pins have ; the same state they had prior to the reset. ; ; TRIS register setup - The I/O pins are always configured as Inputs after ; any reset. MOVLW (1< /MCLR while sleeping ; -or- Interrupt wake-up from sleep btfsc STKPTR,STKUNF ; Stack undeflow has occured goto stack_underflow btfsc STKPTR,STKFUL ; Stack overflow has occured goto stack_overflow goto PowerOnReset ;/TO=1, /PD=1 ==> Power has just been applied TO_is_low BTFSS RCON,NOT_PD goto AwakeWDT ;/TO=0, /PD=0 ==> WDT while sleeping goto WDTTimeOut ;/TO=0, /PD=1 ==> WDT while not sleeping BTFSC INTCON, RBIF ;Did we just wake up from SLEEP due goto AwakeIO ;to a change in the I/O pins? ;======================================================================== ; ; PowerOnReset ; ;======================================================================== PowerOnReset: movf ResetSequence,W XORLW eRSTSequence_AwakeMCLR skpnz goto to_underflow movf PORTB,W ;Clear RBIF .assert "(intcon&1)==0, \"*** FAILED to clear INTCON\"" nop .assert "resetCounter==1,\"*** FAILED Power On Reset\"" nop MOVLW eRSTSequence_PowerOnReset MOVWF ResetSequence CLRWDT .command "resetCounter = resetCounter+1" SLEEP ; The WDT should cause a reset. So we shouldn't fall through ; (note, the instruction after the SLEEP should not be executed). ; RRR WDT will not cause a reset but will fall through nop .assert "(trisa&0x1f)==0x00, \"*** FAILED 18f4321 WDT sleep bad TRISA\"" nop .assert "trisb==0x11, \"*** FAILED 18f4321 WDT sleep bad TRISB\"" nop .assert "trisc==0x00, \"*** FAILED 18f4321 WDT sleep bad TRISC\"" nop .assert "trisd==0x00, \"*** FAILED 18f4321 WDT sleep bad TRISD\"" nop .assert "(trise&0x03)==0x00, \"*** FAILED 18f4321 WDT sleep bad TRISE\"" nop ;RRR .command "resetCounter = resetCounter+1" nop ;======================================================================== ; ; AwakeWDT - WDT timed out while we were sleeping. ; ;======================================================================== AwakeWDT: .assert "resetCounter==2,\"*** FAILED WDT Reset\"" nop MOVLW eRSTSequence_AwakeWDT MOVWF ResetSequence .command "resetCounter = resetCounter+1" CLRWDT ; loop until WDT times out here: goto here ;======================================================================== ; ; WDTTimeOut - WatchDog timer timed out while we were awake. ; ;======================================================================== WDTTimeOut: .assert "resetCounter==3,\"*** FAILED WDT timeout\"" nop MOVLW eRSTSequence_WDTTimeOut MOVWF ResetSequence CLRWDT .command "P_RBIF.clear = cycles+100" nop ; Keep interrupts enabled, but turn on RBIE. Changes on ; RB4-RB7 should wake us from sleep MOVLW 1< ; processor specific variable definitions include ; Grab some useful macros radix dec CONFIG XINST=ON ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA temp RES 1 temp1 RES 1 temp2 RES 1 failures RES 1 dataStack RES 32 dataStackEnd RES 1 GLOBAL done GLOBAL temp1 GLOBAL dataStack GLOBAL dataStackEnd ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE bra start ;------------------------------------------------------------ ; function vectors ; The function vectors are branch instructions to functions ; that reside at addresses for which PC>256. They're used to ; make indirect calls with the extended CALLW instruction. vf1 bra f1 vf2 bra f2 vf3 bra f3 vf4 bra f4 vf5 bra f5 start: clrf temp1 ;Assume clrf works... ; lfsr 0,0 lfsr 1,0 lfsr 2,0x1ff clrf BSR addfsr 0,15 .assert "(fsr0l==15) && (fsr0h==0)" nop addfsr 1,15 .assert "(fsr1l==15) && (fsr1h==0)" nop addfsr 2,15 ; 0x1ff + 15 = 0x20e .assert "(fsr2l==0x0e) && (fsr2h==2)" nop subfsr 0,10 .assert "(fsr0l==5) && (fsr0h==0)" nop subfsr 1,10 .assert "(fsr1l==5) && (fsr1h==0)" nop subfsr 2,15 ; 0x20e - 15 = 0x1ff .assert "(fsr2l==0xff) && (fsr2h==1)" nop lfsr 2,0x80 movlw 0x10 movwf temp1 addwf [1],W .assert "W == 0x20" nop addwfc [1],W bsf [1],0 .assert "temp1 == 0x11" nop clrf [1] .assert "temp1==0" nop setf [1] .assert "temp1 == 0xff" nop call test_addulnk .assert "(fsr2l==0x81) && (fsr2h==0)" nop movlw 0xf0 andwf [0],W .assert "W==0xf0" nop bcf [0],0 .assert "temp1==0xfe" nop btfsc [0],0 goto failed btfss [0],1 goto failed btg [0],0 .assert "temp1==0xff" nop comf [0],F .assert "temp1==0x00" nop movlw 0 cpfseq [0] goto failed nop decf [0],F .assert "temp1==0xff" nop cpfsgt [0] goto failed cpfslt [0] goto $+8 goto failed decfsz [0],W goto $+8 goto failed dcfsnz [0],W goto failed incfsz [0],F goto failed infsnz [0],F goto failed iorwf [0],W .assert "W==0xff" nop movf [0],W .assert "W==0x01" nop movlw 2 movwf [0] mulwf [0] .assert "(prodl==4) && (prodh==0)" nop negf [0] .assert "temp1==0xfe" nop rlcf [0],W .assert "W==0xfc" nop rlncf [0],W .assert "W==0xfd" nop rrcf [0],W .assert "W==0xff" nop rrncf [0],W .assert "W==0x7f" nop subfwb [0],W .assert "W==0x80" nop subwfb [0],W .assert "W==0x7d" nop swapf [0],F .assert "temp1==0xef" nop tstfsz [0] goto $+8 goto failed xorwf [0],W .assert "W==0x92" nop ;; Also test that addfsr followed immediately by and INDF access works clrf dataStackEnd movlw 0x55 lfsr 1,dataStack addfsr 1,32 movwf POSTDEC1 .assert "dataStackEnd == 0x55" nop ;; CALLW test ;; This test makes 5 indirect calls using the callw instruction. ;; There is a function vector table in low memory that redirects ;; calls to high memory. The reason for this table is to allow the ;; destination address for the CALLW instruction to fit entirely ;; in the WREG clrf PCLATU clrf PCLATH movlw 5 movwf temp1 ;temp1 is used as the index into nop ;function vector table. callw_loop: rlncf temp1,W ;program memory indexes through even addresses addlw vf1-2 ;offset to the start of the function vectors. callw ;Make the indirect call decfsz temp1,F ;next vector bra callw_loop ;; Test interaction of postdec and movsf lfsr 2,dataStack+1 movlw 0xAA movwf POSTDEC2 movsf [1],temp1 .assert "temp1 == 0xAA" nop ;; lfsr 2, dataStack+10 clrf dataStack pushl 0x42 .assert "(fsr2l == ((&dataStack)+10-1))" nop movsf [1],WREG .assert "W == 0x42" nop ;; Test for the mixed-mode-repeat condition c.f. bug #3309120 pushl 0x01 pushl 0x02 pushl 0x03 movlw 3 movff PLUSW2,POSTDEC2 movff PLUSW2,POSTDEC2 pushl 0x04 pushl 0x05 .assert "(fsr2l == ((&dataStack)+10-8))" nop movsf [1],WREG .assert "W == 0x05" nop movss [1],[3] .assert "(*(fsr2l+1))==(*(fsr2l+3))" nop bra done ;------------------------------------------------------------ ; CALLW functions - here are 5 functions that are called indirectly ; by the callw instruction. All they do is return. However, the assertion ; verifies that the index (temp1) used to calculate the address of the ; indirect call is correct. f1: .assert "temp1==1" return f2: .assert "temp1==2" return f3: .assert "temp1==3" return f4: .assert "temp1==4" return f5: .assert "temp1==5" return failed1: ; a relatively local label bra failed ;; Perform some basic tests on some important instructions done: .assert "\"*** PASSED 16bit-core extended instruction test\"" bra $ failed: movlw 1 movwf failures .assert "\"*** FAILED 16bit-core extended instruction test\"" bra done test_addulnk: addulnk 1 ; should do return end gpsim-0.27.0/regression/p18f/reset2.asm0000644000076400007640000002305412117303136014515 00000000000000 ; 18f6520 gpsim regression test ; ; The purpose of this test is to verify that the 16bit processors ; is implemented correctly. Here's a list of specific things ; tested: ; ; 1) Reset conditions ; 2) WDT ; 3) Sleep ; 4) Wakeup on PIN change. list p=18f6520 include include ;__CONFIG _CONFIG2H, _WDT_ON_2H radix dec ; Printf Command .command macro x .direct "C", x endm GPR_DATA UDATA ResetSequence RES 1 optionShadow RES 1 w_temp RES 1 status_temp RES 1 temp1 RES 1 GLOBAL optionShadow, ResetSequence ; Define the reset conditions to be checked. eRSTSequence_PowerOnReset equ 1 eRSTSequence_AwakeMCLR equ 2 eRSTSequence_AwakeWDT equ 3 eRSTSequence_AwakeIO equ 4 eRSTSequence_WDTTimeOut equ 5 ;---------------------------------------------------------------------- ; ********************* STARTUP LOCATION *************************** ;---------------------------------------------------------------------- START CODE 0x000 ; ;############################################################ ;# Create a stimulus to simulate a switch ; .sim "p18f6520.xpos = 84" .sim "p18f6520.ypos = 96" .sim "module lib libgpsim_modules" .sim "module load pulsegen P_INTF" .sim "module load pulsegen P_RBIF" .sim "module load pulsegen RESET" .sim "RESET.initial = 5.0" .sim "RESET.xpos = 84" .sim "RESET.ypos = 36" .sim "P_INTF.clear = 0" ; At cycle 0, .sim "P_INTF.set = 1" .sim "P_INTF.xpos = 240" .sim "P_INTF.ypos = 192" .sim "P_RBIF.clear = 0" ; At cycle 0, .sim "P_RBIF.set = 1" .sim "P_RBIF.xpos = 240" .sim "P_RBIF.ypos = 132" ;############################################################ .sim "node nINTF" .sim "attach nINTF portb0 P_INTF.pin" .sim "node nRBIF" .sim "attach nRBIF portb4 P_RBIF.pin" .sim "node nRESET" ; .sim "attach nRESET p16f84.MCLR RESET.pin" .sim "attach nRESET MCLR RESET.pin" ;############################################################ .sim "symbol resetCounter=1" ; NOT_GPWU = 0 - Enable wakeup if I/O pins 0,1, or 3 change states ; NOT_GPPU = 1 - Disable weak pullups on I/O pins 0,1, and 3 ; TOCS = 0 - Let the clock source for TMR0 be the internal fosc/4 ; TOSE = 0 - don't care - TMR0 source edge. ; PSA = 1 - assign Prescale to the WDT ; PS2:0 = 000 - prescale = 2^0=1 .sim "optionShadow=8" ; PSA=1 .sim "ResetSequence=0" .sim ".BreakOnReset = false" .sim "p18f6520.frequency=100000" ; Set a cycle break point far in the future in case the resets fail. .sim "break c 0x1000000" RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x008 ; interrupt vector location movwf w_temp swapf STATUS,W movwf status_temp check_rbi: btfsc INTCON,RBIF btfss INTCON,RBIE goto check_int ; bsf temp5,1 ;Set a flag to indicate rb4-7 int occured bcf INTCON,RBIF movf PORTB,w check_int: btfsc INTCON,INT0IF btfss INTCON,INT0IE goto check_t0 ; bsf temp5,0 ;Set a flag to indicate rb0 int occured bcf INTCON,INT0IF check_t0: btfsc INTCON,T0IF btfss INTCON,T0IE goto exit_int ;; tmr0 has rolled over bcf INTCON,T0IF ; Clear the pending interrupt bsf temp1,0 ; Set a flag to indicate rollover exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie bSWITCH equ 0 ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start .assert "trisa==0x7f, \"*** FAILED 18f6520 reset bad TRISA\"" nop .assert "trisb==0xff, \"*** FAILED 18f6520 reset bad TRISB\"" nop .assert "trisc==0xff, \"*** FAILED 18f6520 reset bad TRISC\"" nop .assert "trisd==0xff, \"*** FAILED 18f6520 reset bad TRISD\"" nop .assert "trise==0xff, \"*** FAILED 18f6520 reset bad TRISE\"" nop .assert "trisf==0xff, \"*** FAILED 18f6520 reset bad TRISF\"" nop .assert "trisg==0x1f, \"*** FAILED 18f6520 reset bad TRISG\"" nop ; OPTION register setup MOVF optionShadow,W ;optionShadow is initialized by the gpsim script ; GPIO setup ; If this is a PowerOn reset, then the state of the GPIO output register ; is unknown. If this is not a PowerOn reset then the GPIO pins have ; the same state they had prior to the reset. ; ; TRIS register setup - The I/O pins are always configured as Inputs after ; any reset. MOVLW (1< /MCLR while sleeping ; -or- Interrupt wake-up from sleep goto PowerOnReset ;/TO=1, /PD=1 ==> Power has just been applied TO_is_low BTFSS RCON,NOT_PD goto AwakeWDT ;/TO=0, /PD=0 ==> WDT while sleeping goto WDTTimeOut ;/TO=0, /PD=1 ==> WDT while not sleeping BTFSC INTCON, RBIF ;Did we just wake up from SLEEP due goto AwakeIO ;to a change in the I/O pins? ;======================================================================== ; ; PowerOnReset ; ;======================================================================== PowerOnReset: movf ResetSequence,W XORLW eRSTSequence_AwakeMCLR skpnz goto done movf PORTB,W ;Clear RBIF .assert "(intcon&1)==0, \"*** FAILED to clear INTCON\"" nop .assert "resetCounter==1,\"*** FAILED Power On Reset\"" nop MOVLW eRSTSequence_PowerOnReset MOVWF ResetSequence CLRWDT .command "resetCounter = resetCounter+1" SLEEP ; The WDT should cause a reset. So we shouldn't fall through ; (note, the instruction after the SLEEP should not be executed). ; RRR WDT will not cause a reset but will fall through nop .assert "(trisa&0x1f)==0x00, \"*** FAILED 18f6520 WDT sleep bad TRISA\"" nop .assert "trisb==0x11, \"*** FAILED 18f6520 WDT sleep bad TRISB\"" nop .assert "trisc==0x00, \"*** FAILED 18f6520 WDT sleep bad TRISC\"" nop .assert "trisd==0x00, \"*** FAILED 18f6520 WDT sleep bad TRISD\"" nop .assert "(trise&0x03)==0x00, \"*** FAILED 18f6520 WDT sleep bad TRISE\"" nop ;RRR .command "resetCounter = resetCounter+1" nop ;======================================================================== ; ; AwakeWDT - WDT timed out while we were sleeping. ; ;======================================================================== AwakeWDT: .assert "resetCounter==2,\"*** FAILED WDT Reset\"" nop MOVLW eRSTSequence_AwakeWDT MOVWF ResetSequence .command "resetCounter = resetCounter+1" CLRWDT ; loop until WDT times out here: goto here ;======================================================================== ; ; WDTTimeOut - WatchDog timer timed out while we were awake. ; ;======================================================================== WDTTimeOut: .assert "resetCounter==3,\"*** FAILED WDT timeout\"" nop MOVLW eRSTSequence_WDTTimeOut MOVWF ResetSequence CLRWDT .command "P_RBIF.clear = cycles+100" nop ; Keep interrupts enabled, but turn on RBIE. Changes on ; RB4-RB7 should wake us from sleep MOVLW 1< c #000071C60000", ", c #000065950000", "< c #000059650000", "1 c #000051440000", "2 c #000045140000", "3 c #00003CF30000", "4 c #000030C20000", "5 c #000028A20000", "6 c #00001C710000", "7 c #000014510000", " ...... ", " .XooO++. ", " ..@@@#XoO+.. ", " .$$$$$%@#XO++. ", " .&&*&&=$%@XO+. ", ".*-;;;-*&=%@XO+.", ".;:>>>:;-&=%#o+.", ".>,<<<,>:-&$@XO.", ".<12321<>;*=%#o.", ".1345431,:-&$@o.", ".2467642<>;&$@X.", " .57.753<>;*$@. ", " .467642<>;&$@. ", " ..5431,:-&.. ", " .21<>;*. ", " ...... "}; gpsim-0.27.0/xpms/stopp.xpm0000644000076400007640000000052411116621771012536 00000000000000/* XPM */ static const char * stopp_xpm[] = { "14 14 2 1", " c None", ". c #0000FF", " ..", " ...", " ... ", " ... ", " ... ", " ... ", " ... ", " ... ", " ... ", " ... ", " ... ", " ... ", " ...", " .."}; gpsim-0.27.0/xpms/font.xpm0000644000076400007640000000162610416272675012352 00000000000000/* XPM */ static char * font_xpm[] = { "26 26 3 1", " c #None", ". c #000000000000", "X c #000000000000", " ", " ", " ", " . ", " ... ", " ... ", " ..... ", " ..... ", " .. .... ", " .. .... ", " .. .... ", " ......... ", " ........... ", " .. .... ", " .. .... ", " .. .... ", " ..... ....... ", " ", " ", " ", " XXXXXXXXXXXXXXXX ", " XXXXXXXXXXXXXXXX ", " XXXXXXXXXXXXXXXX ", " XXXXXXXXXXXXXXXX ", " ", " ", " "}; gpsim-0.27.0/xpms/Makefile.in0000664000076400007640000003056112210742105012705 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = xpms DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ EXTRA_DIST = break.xpm bullet.xpm center.xpm font_large.xpm \ font.xpm left.xpm paint.xpm pc.xpm right.xpm startp.xpm \ stopp.xpm canbreak.xpm MOSTLYCLEANFILES = *~ CLEANFILES = *~ DISTCLEANFILES = *~ MAINTAINERCLEANFILES = *~ all: all-am .SUFFIXES: $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu xpms/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu xpms/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags TAGS: ctags CTAGS: cscope cscopelist: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: -test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES) clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES) clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ cscopelist-am ctags-am distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags-am uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/xpms/Makefile.am0000644000076400007640000000036210416272675012706 00000000000000EXTRA_DIST = break.xpm bullet.xpm center.xpm font_large.xpm \ font.xpm left.xpm paint.xpm pc.xpm right.xpm startp.xpm \ stopp.xpm canbreak.xpm MOSTLYCLEANFILES = *~ CLEANFILES = *~ DISTCLEANFILES = *~ MAINTAINERCLEANFILES = *~ gpsim-0.27.0/xpms/paint.xpm0000755000076400007640000000215410416272675012517 00000000000000/* XPM */ static char *paint_xpm [] = { "26 26 6 1", ". c #None", "a c #000000000000", "e c #929292929292", "g c #DBDBDBDBDBDB", "h c #FFFFFFFFFFFF", "X c #FFFFFFFFFFFF", "............................", "............................", "............ee..............", "...........eeee.............", "..........eeggee............", "..........eegaee............", "..........eeahee............", "..........aahheeaa..........", "..........ahhgeegaaa........", ".........ahhghaeggaaa.......", "........ahhghagaggeaaa......", ".......ahhghggaggeeaaae.....", "......ahhghgggggeeaaaae.....", "......ahghgggggeeaeaaae.....", ".......ahgggggeeaeeaaae.....", "........ahgggeeaee.aaae.....", ".........aggeeaee..aaee.....", "..........aeeaee...aee......", "...........aaee.....e.......", "............ee..............", "............................", ".....XXXXXXXXXXXXXXXXXX....." ".....XXXXXXXXXXXXXXXXXX....." ".....XXXXXXXXXXXXXXXXXX....." ".....XXXXXXXXXXXXXXXXXX....." "............................", "............................", }; gpsim-0.27.0/xpms/center.xpm0000755000076400007640000000173710416272675012672 00000000000000/* XPM */ static char *center_xpm [] = { "26 26 2 1", ". c #None", "X c #000000000000", " ", " ", " ", " ", " XXXXXXXXXXXXXXXXXX ", " XXXXXXXXXXXXXXXXXX ", " ", " XXXXXXXXXXXX ", " XXXXXXXXXXXX ", " ", " XXXXXXXXXXXXXXXXXX ", " XXXXXXXXXXXXXXXXXX ", " ", " XXXXXXXXXXXX ", " XXXXXXXXXXXX ", " ", " XXXXXXXXXXXXXXXXXX ", " XXXXXXXXXXXXXXXXXX ", " ", " XXXXXXXXXXXX ", " XXXXXXXXXXXX ", " ", " ", " ", " ", " ", }; gpsim-0.27.0/xpms/font_large.xpm0000644000076400007640000000166410416272675013526 00000000000000/* XPM */ static char * font_xpm[] = { "26 26 3 1", " c #None", ". c #000000000000", "X c #000000000000", " ", " . ", " . ", " ... ", " ... ", " ..... ", " ..... ", " ..... ", " .. .... ", " .. .... ", " .. .... ", " .. .... ", " .. .... ", " ......... ", " ........... ", " .. .... ", " .. .... ", " .. .... ", " .. .... ", " .... ...... ", " ", " XXXXXXXXXXXXXXXX ", " XXXXXXXXXXXXXXXX ", " XXXXXXXXXXXXXXXX ", " XXXXXXXXXXXXXXXX ", " ", " ", " "}; gpsim-0.27.0/xpms/canbreak.xpm0000644000076400007640000000054011116621771013135 00000000000000/* XPM */ static const char * canbreak_xpm[] = { "14 14 3 1", " c None", ". c gray", "X c white", " ", " ....... ", " ......... ", " ........... ", " ...XXXXX.... ", " ...XXXXX.... ", " ...XXXXX.... ", " ...XXXXX.... ", " ...XXXXX.... ", " ........... ", " ......... ", " ....... ", " ", " "}; gpsim-0.27.0/xpms/pc.xpm0000644000076400007640000000052011116621771011767 00000000000000/* XPM */ static const char * pc_xpm[] = { "14 14 2 1", " c None", ". c #009B1C", " ", " ", " . ", " .. ", " .. ", " ... ", "............ ", "............. ", "............ ", " ... ", " .. ", " .. ", " . ", " "}; gpsim-0.27.0/xpms/startp.xpm0000644000076400007640000000052411116621771012706 00000000000000/* XPM */ static const char * startp_xpm[] = { "14 14 2 1", " c #0000FF", ". c None", " ............", " ...........", ". ..........", ".. .........", "... ........", ".... .......", "..... ......", "..... ......", ".... .......", "... ........", ".. .........", ". ..........", " ...........", " ............"}; gpsim-0.27.0/xpms/break.xpm0000644000076400007640000000053411116621771012456 00000000000000/* XPM */ static const char * break_xpm[] = { "14 14 3 1", " c None", ". c red", "X c white", " ..... ", " ....... ", " ......... ", " .....X..... ", "....XXXXX.... ", "....XXXXX.... ", "...XXXXXXX... ", "....XXXXX.... ", "....XXXXX.... ", " .....X..... ", " ......... ", " ....... ", " ..... ", " "}; gpsim-0.27.0/xpms/right.xpm0000755000076400007640000000167410416272675012527 00000000000000/* XPM */ static char *right_xpm [] = { "26 26 2 1", ". c #None", "X c #000000000000", " ", " ", " ", " ", " XXXXXXXXXXXXXXXXXX ", " XXXXXXXXXXXXXXXXXX ", " ", " XXXXXXXXXXXXX ", " XXXXXXXXXXXXX ", " ", " XXXXXXXXXXXXXXXXXX ", " XXXXXXXXXXXXXXXXXX ", " ", " XXXXXXXXXXXXX ", " XXXXXXXXXXXXX ", " ", " XXXXXXXXXXXXXXXXXX ", " XXXXXXXXXXXXXXXXXX ", " ", " XXXXXXXXXXXXX ", " XXXXXXXXXXXXX ", " ", " ", " ", " ", }; gpsim-0.27.0/xpms/left.xpm0000755000076400007640000000173510416272675012342 00000000000000/* XPM */ static char *left_xpm [] = { "26 26 2 1", ". c #None", "X c #000000000000", " ", " ", " ", " ", " XXXXXXXXXXXXXXXXXX ", " XXXXXXXXXXXXXXXXXX ", " ", " XXXXXXXXXXXXX ", " XXXXXXXXXXXXX ", " ", " XXXXXXXXXXXXXXXXXX ", " XXXXXXXXXXXXXXXXXX ", " ", " XXXXXXXXXXXXX ", " XXXXXXXXXXXXX ", " ", " XXXXXXXXXXXXXXXXXX ", " XXXXXXXXXXXXXXXXXX ", " ", " XXXXXXXXXXXXX ", " XXXXXXXXXXXXX ", " ", " ", " ", " ", " ", }; gpsim-0.27.0/m4/0000775000076400007640000000000012210742351010247 500000000000000gpsim-0.27.0/m4/ltoptions.m40000644000076400007640000003007312153313341012464 00000000000000# Helper functions for option handling. -*- Autoconf -*- # # Copyright (C) 2004, 2005, 2007, 2008, 2009 Free Software Foundation, # Inc. # Written by Gary V. Vaughan, 2004 # # This file 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. # serial 7 ltoptions.m4 # This is to help aclocal find these macros, as it can't see m4_define. AC_DEFUN([LTOPTIONS_VERSION], [m4_if([1])]) # _LT_MANGLE_OPTION(MACRO-NAME, OPTION-NAME) # ------------------------------------------ m4_define([_LT_MANGLE_OPTION], [[_LT_OPTION_]m4_bpatsubst($1__$2, [[^a-zA-Z0-9_]], [_])]) # _LT_SET_OPTION(MACRO-NAME, OPTION-NAME) # --------------------------------------- # Set option OPTION-NAME for macro MACRO-NAME, and if there is a # matching handler defined, dispatch to it. Other OPTION-NAMEs are # saved as a flag. m4_define([_LT_SET_OPTION], [m4_define(_LT_MANGLE_OPTION([$1], [$2]))dnl m4_ifdef(_LT_MANGLE_DEFUN([$1], [$2]), _LT_MANGLE_DEFUN([$1], [$2]), [m4_warning([Unknown $1 option `$2'])])[]dnl ]) # _LT_IF_OPTION(MACRO-NAME, OPTION-NAME, IF-SET, [IF-NOT-SET]) # ------------------------------------------------------------ # Execute IF-SET if OPTION is set, IF-NOT-SET otherwise. m4_define([_LT_IF_OPTION], [m4_ifdef(_LT_MANGLE_OPTION([$1], [$2]), [$3], [$4])]) # _LT_UNLESS_OPTIONS(MACRO-NAME, OPTION-LIST, IF-NOT-SET) # ------------------------------------------------------- # Execute IF-NOT-SET unless all options in OPTION-LIST for MACRO-NAME # are set. m4_define([_LT_UNLESS_OPTIONS], [m4_foreach([_LT_Option], m4_split(m4_normalize([$2])), [m4_ifdef(_LT_MANGLE_OPTION([$1], _LT_Option), [m4_define([$0_found])])])[]dnl m4_ifdef([$0_found], [m4_undefine([$0_found])], [$3 ])[]dnl ]) # _LT_SET_OPTIONS(MACRO-NAME, OPTION-LIST) # ---------------------------------------- # OPTION-LIST is a space-separated list of Libtool options associated # with MACRO-NAME. If any OPTION has a matching handler declared with # LT_OPTION_DEFINE, dispatch to that macro; otherwise complain about # the unknown option and exit. m4_defun([_LT_SET_OPTIONS], [# Set options m4_foreach([_LT_Option], m4_split(m4_normalize([$2])), [_LT_SET_OPTION([$1], _LT_Option)]) m4_if([$1],[LT_INIT],[ dnl dnl Simply set some default values (i.e off) if boolean options were not dnl specified: _LT_UNLESS_OPTIONS([LT_INIT], [dlopen], [enable_dlopen=no ]) _LT_UNLESS_OPTIONS([LT_INIT], [win32-dll], [enable_win32_dll=no ]) dnl dnl If no reference was made to various pairs of opposing options, then dnl we run the default mode handler for the pair. For example, if neither dnl `shared' nor `disable-shared' was passed, we enable building of shared dnl archives by default: _LT_UNLESS_OPTIONS([LT_INIT], [shared disable-shared], [_LT_ENABLE_SHARED]) _LT_UNLESS_OPTIONS([LT_INIT], [static disable-static], [_LT_ENABLE_STATIC]) _LT_UNLESS_OPTIONS([LT_INIT], [pic-only no-pic], [_LT_WITH_PIC]) _LT_UNLESS_OPTIONS([LT_INIT], [fast-install disable-fast-install], [_LT_ENABLE_FAST_INSTALL]) ]) ])# _LT_SET_OPTIONS ## --------------------------------- ## ## Macros to handle LT_INIT options. ## ## --------------------------------- ## # _LT_MANGLE_DEFUN(MACRO-NAME, OPTION-NAME) # ----------------------------------------- m4_define([_LT_MANGLE_DEFUN], [[_LT_OPTION_DEFUN_]m4_bpatsubst(m4_toupper([$1__$2]), [[^A-Z0-9_]], [_])]) # LT_OPTION_DEFINE(MACRO-NAME, OPTION-NAME, CODE) # ----------------------------------------------- m4_define([LT_OPTION_DEFINE], [m4_define(_LT_MANGLE_DEFUN([$1], [$2]), [$3])[]dnl ])# LT_OPTION_DEFINE # dlopen # ------ LT_OPTION_DEFINE([LT_INIT], [dlopen], [enable_dlopen=yes ]) AU_DEFUN([AC_LIBTOOL_DLOPEN], [_LT_SET_OPTION([LT_INIT], [dlopen]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the `dlopen' option into LT_INIT's first parameter.]) ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_DLOPEN], []) # win32-dll # --------- # Declare package support for building win32 dll's. LT_OPTION_DEFINE([LT_INIT], [win32-dll], [enable_win32_dll=yes case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-cegcc*) AC_CHECK_TOOL(AS, as, false) AC_CHECK_TOOL(DLLTOOL, dlltool, false) AC_CHECK_TOOL(OBJDUMP, objdump, false) ;; esac test -z "$AS" && AS=as _LT_DECL([], [AS], [1], [Assembler program])dnl test -z "$DLLTOOL" && DLLTOOL=dlltool _LT_DECL([], [DLLTOOL], [1], [DLL creation program])dnl test -z "$OBJDUMP" && OBJDUMP=objdump _LT_DECL([], [OBJDUMP], [1], [Object dumper program])dnl ])# win32-dll AU_DEFUN([AC_LIBTOOL_WIN32_DLL], [AC_REQUIRE([AC_CANONICAL_HOST])dnl _LT_SET_OPTION([LT_INIT], [win32-dll]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the `win32-dll' option into LT_INIT's first parameter.]) ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_WIN32_DLL], []) # _LT_ENABLE_SHARED([DEFAULT]) # ---------------------------- # implement the --enable-shared flag, and supports the `shared' and # `disable-shared' LT_INIT options. # DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'. m4_define([_LT_ENABLE_SHARED], [m4_define([_LT_ENABLE_SHARED_DEFAULT], [m4_if($1, no, no, yes)])dnl AC_ARG_ENABLE([shared], [AS_HELP_STRING([--enable-shared@<:@=PKGS@:>@], [build shared libraries @<:@default=]_LT_ENABLE_SHARED_DEFAULT[@:>@])], [p=${PACKAGE-default} case $enableval in yes) enable_shared=yes ;; no) enable_shared=no ;; *) enable_shared=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_shared=yes fi done IFS="$lt_save_ifs" ;; esac], [enable_shared=]_LT_ENABLE_SHARED_DEFAULT) _LT_DECL([build_libtool_libs], [enable_shared], [0], [Whether or not to build shared libraries]) ])# _LT_ENABLE_SHARED LT_OPTION_DEFINE([LT_INIT], [shared], [_LT_ENABLE_SHARED([yes])]) LT_OPTION_DEFINE([LT_INIT], [disable-shared], [_LT_ENABLE_SHARED([no])]) # Old names: AC_DEFUN([AC_ENABLE_SHARED], [_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[shared]) ]) AC_DEFUN([AC_DISABLE_SHARED], [_LT_SET_OPTION([LT_INIT], [disable-shared]) ]) AU_DEFUN([AM_ENABLE_SHARED], [AC_ENABLE_SHARED($@)]) AU_DEFUN([AM_DISABLE_SHARED], [AC_DISABLE_SHARED($@)]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AM_ENABLE_SHARED], []) dnl AC_DEFUN([AM_DISABLE_SHARED], []) # _LT_ENABLE_STATIC([DEFAULT]) # ---------------------------- # implement the --enable-static flag, and support the `static' and # `disable-static' LT_INIT options. # DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'. m4_define([_LT_ENABLE_STATIC], [m4_define([_LT_ENABLE_STATIC_DEFAULT], [m4_if($1, no, no, yes)])dnl AC_ARG_ENABLE([static], [AS_HELP_STRING([--enable-static@<:@=PKGS@:>@], [build static libraries @<:@default=]_LT_ENABLE_STATIC_DEFAULT[@:>@])], [p=${PACKAGE-default} case $enableval in yes) enable_static=yes ;; no) enable_static=no ;; *) enable_static=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_static=yes fi done IFS="$lt_save_ifs" ;; esac], [enable_static=]_LT_ENABLE_STATIC_DEFAULT) _LT_DECL([build_old_libs], [enable_static], [0], [Whether or not to build static libraries]) ])# _LT_ENABLE_STATIC LT_OPTION_DEFINE([LT_INIT], [static], [_LT_ENABLE_STATIC([yes])]) LT_OPTION_DEFINE([LT_INIT], [disable-static], [_LT_ENABLE_STATIC([no])]) # Old names: AC_DEFUN([AC_ENABLE_STATIC], [_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[static]) ]) AC_DEFUN([AC_DISABLE_STATIC], [_LT_SET_OPTION([LT_INIT], [disable-static]) ]) AU_DEFUN([AM_ENABLE_STATIC], [AC_ENABLE_STATIC($@)]) AU_DEFUN([AM_DISABLE_STATIC], [AC_DISABLE_STATIC($@)]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AM_ENABLE_STATIC], []) dnl AC_DEFUN([AM_DISABLE_STATIC], []) # _LT_ENABLE_FAST_INSTALL([DEFAULT]) # ---------------------------------- # implement the --enable-fast-install flag, and support the `fast-install' # and `disable-fast-install' LT_INIT options. # DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'. m4_define([_LT_ENABLE_FAST_INSTALL], [m4_define([_LT_ENABLE_FAST_INSTALL_DEFAULT], [m4_if($1, no, no, yes)])dnl AC_ARG_ENABLE([fast-install], [AS_HELP_STRING([--enable-fast-install@<:@=PKGS@:>@], [optimize for fast installation @<:@default=]_LT_ENABLE_FAST_INSTALL_DEFAULT[@:>@])], [p=${PACKAGE-default} case $enableval in yes) enable_fast_install=yes ;; no) enable_fast_install=no ;; *) enable_fast_install=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_fast_install=yes fi done IFS="$lt_save_ifs" ;; esac], [enable_fast_install=]_LT_ENABLE_FAST_INSTALL_DEFAULT) _LT_DECL([fast_install], [enable_fast_install], [0], [Whether or not to optimize for fast installation])dnl ])# _LT_ENABLE_FAST_INSTALL LT_OPTION_DEFINE([LT_INIT], [fast-install], [_LT_ENABLE_FAST_INSTALL([yes])]) LT_OPTION_DEFINE([LT_INIT], [disable-fast-install], [_LT_ENABLE_FAST_INSTALL([no])]) # Old names: AU_DEFUN([AC_ENABLE_FAST_INSTALL], [_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[fast-install]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the `fast-install' option into LT_INIT's first parameter.]) ]) AU_DEFUN([AC_DISABLE_FAST_INSTALL], [_LT_SET_OPTION([LT_INIT], [disable-fast-install]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the `disable-fast-install' option into LT_INIT's first parameter.]) ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_ENABLE_FAST_INSTALL], []) dnl AC_DEFUN([AM_DISABLE_FAST_INSTALL], []) # _LT_WITH_PIC([MODE]) # -------------------- # implement the --with-pic flag, and support the `pic-only' and `no-pic' # LT_INIT options. # MODE is either `yes' or `no'. If omitted, it defaults to `both'. m4_define([_LT_WITH_PIC], [AC_ARG_WITH([pic], [AS_HELP_STRING([--with-pic@<:@=PKGS@:>@], [try to use only PIC/non-PIC objects @<:@default=use both@:>@])], [lt_p=${PACKAGE-default} case $withval in yes|no) pic_mode=$withval ;; *) pic_mode=default # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for lt_pkg in $withval; do IFS="$lt_save_ifs" if test "X$lt_pkg" = "X$lt_p"; then pic_mode=yes fi done IFS="$lt_save_ifs" ;; esac], [pic_mode=default]) test -z "$pic_mode" && pic_mode=m4_default([$1], [default]) _LT_DECL([], [pic_mode], [0], [What type of objects to build])dnl ])# _LT_WITH_PIC LT_OPTION_DEFINE([LT_INIT], [pic-only], [_LT_WITH_PIC([yes])]) LT_OPTION_DEFINE([LT_INIT], [no-pic], [_LT_WITH_PIC([no])]) # Old name: AU_DEFUN([AC_LIBTOOL_PICMODE], [_LT_SET_OPTION([LT_INIT], [pic-only]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the `pic-only' option into LT_INIT's first parameter.]) ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_PICMODE], []) ## ----------------- ## ## LTDL_INIT Options ## ## ----------------- ## m4_define([_LTDL_MODE], []) LT_OPTION_DEFINE([LTDL_INIT], [nonrecursive], [m4_define([_LTDL_MODE], [nonrecursive])]) LT_OPTION_DEFINE([LTDL_INIT], [recursive], [m4_define([_LTDL_MODE], [recursive])]) LT_OPTION_DEFINE([LTDL_INIT], [subproject], [m4_define([_LTDL_MODE], [subproject])]) m4_define([_LTDL_TYPE], []) LT_OPTION_DEFINE([LTDL_INIT], [installable], [m4_define([_LTDL_TYPE], [installable])]) LT_OPTION_DEFINE([LTDL_INIT], [convenience], [m4_define([_LTDL_TYPE], [convenience])]) gpsim-0.27.0/m4/libtool.m40000644000076400007640000105743212153313341012106 00000000000000# libtool.m4 - Configure libtool for the host system. -*-Autoconf-*- # # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, # 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # Written by Gordon Matzigkeit, 1996 # # This file 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. m4_define([_LT_COPYING], [dnl # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, # 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # Written by Gordon Matzigkeit, 1996 # # This file is part of GNU Libtool. # # GNU Libtool 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. # # As a special exception to the GNU General Public License, # if you distribute this file as part of a program or library that # is built using GNU Libtool, you may include this file under the # same distribution terms that you use for the rest of that program. # # GNU Libtool 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 GNU Libtool; see the file COPYING. If not, a copy # can be downloaded from http://www.gnu.org/licenses/gpl.html, or # obtained by writing to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. ]) # serial 57 LT_INIT # LT_PREREQ(VERSION) # ------------------ # Complain and exit if this libtool version is less that VERSION. m4_defun([LT_PREREQ], [m4_if(m4_version_compare(m4_defn([LT_PACKAGE_VERSION]), [$1]), -1, [m4_default([$3], [m4_fatal([Libtool version $1 or higher is required], 63)])], [$2])]) # _LT_CHECK_BUILDDIR # ------------------ # Complain if the absolute build directory name contains unusual characters m4_defun([_LT_CHECK_BUILDDIR], [case `pwd` in *\ * | *\ *) AC_MSG_WARN([Libtool does not cope well with whitespace in `pwd`]) ;; esac ]) # LT_INIT([OPTIONS]) # ------------------ AC_DEFUN([LT_INIT], [AC_PREREQ([2.58])dnl We use AC_INCLUDES_DEFAULT AC_REQUIRE([AC_CONFIG_AUX_DIR_DEFAULT])dnl AC_BEFORE([$0], [LT_LANG])dnl AC_BEFORE([$0], [LT_OUTPUT])dnl AC_BEFORE([$0], [LTDL_INIT])dnl m4_require([_LT_CHECK_BUILDDIR])dnl dnl Autoconf doesn't catch unexpanded LT_ macros by default: m4_pattern_forbid([^_?LT_[A-Z_]+$])dnl m4_pattern_allow([^(_LT_EOF|LT_DLGLOBAL|LT_DLLAZY_OR_NOW|LT_MULTI_MODULE)$])dnl dnl aclocal doesn't pull ltoptions.m4, ltsugar.m4, or ltversion.m4 dnl unless we require an AC_DEFUNed macro: AC_REQUIRE([LTOPTIONS_VERSION])dnl AC_REQUIRE([LTSUGAR_VERSION])dnl AC_REQUIRE([LTVERSION_VERSION])dnl AC_REQUIRE([LTOBSOLETE_VERSION])dnl m4_require([_LT_PROG_LTMAIN])dnl _LT_SHELL_INIT([SHELL=${CONFIG_SHELL-/bin/sh}]) dnl Parse OPTIONS _LT_SET_OPTIONS([$0], [$1]) # This can be used to rebuild libtool when needed LIBTOOL_DEPS="$ltmain" # Always use our own libtool. LIBTOOL='$(SHELL) $(top_builddir)/libtool' AC_SUBST(LIBTOOL)dnl _LT_SETUP # Only expand once: m4_define([LT_INIT]) ])# LT_INIT # Old names: AU_ALIAS([AC_PROG_LIBTOOL], [LT_INIT]) AU_ALIAS([AM_PROG_LIBTOOL], [LT_INIT]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_PROG_LIBTOOL], []) dnl AC_DEFUN([AM_PROG_LIBTOOL], []) # _LT_CC_BASENAME(CC) # ------------------- # Calculate cc_basename. Skip known compiler wrappers and cross-prefix. m4_defun([_LT_CC_BASENAME], [for cc_temp in $1""; do case $cc_temp in compile | *[[\\/]]compile | ccache | *[[\\/]]ccache ) ;; distcc | *[[\\/]]distcc | purify | *[[\\/]]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` ]) # _LT_FILEUTILS_DEFAULTS # ---------------------- # It is okay to use these file commands and assume they have been set # sensibly after `m4_require([_LT_FILEUTILS_DEFAULTS])'. m4_defun([_LT_FILEUTILS_DEFAULTS], [: ${CP="cp -f"} : ${MV="mv -f"} : ${RM="rm -f"} ])# _LT_FILEUTILS_DEFAULTS # _LT_SETUP # --------- m4_defun([_LT_SETUP], [AC_REQUIRE([AC_CANONICAL_HOST])dnl AC_REQUIRE([AC_CANONICAL_BUILD])dnl AC_REQUIRE([_LT_PREPARE_SED_QUOTE_VARS])dnl AC_REQUIRE([_LT_PROG_ECHO_BACKSLASH])dnl _LT_DECL([], [PATH_SEPARATOR], [1], [The PATH separator for the build system])dnl dnl _LT_DECL([], [host_alias], [0], [The host system])dnl _LT_DECL([], [host], [0])dnl _LT_DECL([], [host_os], [0])dnl dnl _LT_DECL([], [build_alias], [0], [The build system])dnl _LT_DECL([], [build], [0])dnl _LT_DECL([], [build_os], [0])dnl dnl AC_REQUIRE([AC_PROG_CC])dnl AC_REQUIRE([LT_PATH_LD])dnl AC_REQUIRE([LT_PATH_NM])dnl dnl AC_REQUIRE([AC_PROG_LN_S])dnl test -z "$LN_S" && LN_S="ln -s" _LT_DECL([], [LN_S], [1], [Whether we need soft or hard links])dnl dnl AC_REQUIRE([LT_CMD_MAX_LEN])dnl _LT_DECL([objext], [ac_objext], [0], [Object file suffix (normally "o")])dnl _LT_DECL([], [exeext], [0], [Executable file suffix (normally "")])dnl dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_CHECK_SHELL_FEATURES])dnl m4_require([_LT_PATH_CONVERSION_FUNCTIONS])dnl m4_require([_LT_CMD_RELOAD])dnl m4_require([_LT_CHECK_MAGIC_METHOD])dnl m4_require([_LT_CHECK_SHAREDLIB_FROM_LINKLIB])dnl m4_require([_LT_CMD_OLD_ARCHIVE])dnl m4_require([_LT_CMD_GLOBAL_SYMBOLS])dnl m4_require([_LT_WITH_SYSROOT])dnl _LT_CONFIG_LIBTOOL_INIT([ # See if we are running on zsh, and set the options which allow our # commands through without removal of \ escapes INIT. if test -n "\${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi ]) if test -n "${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi _LT_CHECK_OBJDIR m4_require([_LT_TAG_COMPILER])dnl case $host_os in aix3*) # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test "X${COLLECT_NAMES+set}" != Xset; then COLLECT_NAMES= export COLLECT_NAMES fi ;; esac # Global variables: ofile=libtool can_build_shared=yes # All known linkers require a `.a' archive for static linking (except MSVC, # which needs '.lib'). libext=a with_gnu_ld="$lt_cv_prog_gnu_ld" old_CC="$CC" old_CFLAGS="$CFLAGS" # Set sane defaults for various variables test -z "$CC" && CC=cc test -z "$LTCC" && LTCC=$CC test -z "$LTCFLAGS" && LTCFLAGS=$CFLAGS test -z "$LD" && LD=ld test -z "$ac_objext" && ac_objext=o _LT_CC_BASENAME([$compiler]) # Only perform the check for file, if the check method requires it test -z "$MAGIC_CMD" && MAGIC_CMD=file case $deplibs_check_method in file_magic*) if test "$file_magic_cmd" = '$MAGIC_CMD'; then _LT_PATH_MAGIC fi ;; esac # Use C for the default configuration in the libtool script LT_SUPPORTED_TAG([CC]) _LT_LANG_C_CONFIG _LT_LANG_DEFAULT_CONFIG _LT_CONFIG_COMMANDS ])# _LT_SETUP # _LT_PREPARE_SED_QUOTE_VARS # -------------------------- # Define a few sed substitution that help us do robust quoting. m4_defun([_LT_PREPARE_SED_QUOTE_VARS], [# Backslashify metacharacters that are still active within # double-quoted strings. sed_quote_subst='s/\([["`$\\]]\)/\\\1/g' # Same as above, but do not quote variable references. double_quote_subst='s/\([["`\\]]\)/\\\1/g' # Sed substitution to delay expansion of an escaped shell variable in a # double_quote_subst'ed string. delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' # Sed substitution to delay expansion of an escaped single quote. delay_single_quote_subst='s/'\''/'\'\\\\\\\'\''/g' # Sed substitution to avoid accidental globbing in evaled expressions no_glob_subst='s/\*/\\\*/g' ]) # _LT_PROG_LTMAIN # --------------- # Note that this code is called both from `configure', and `config.status' # now that we use AC_CONFIG_COMMANDS to generate libtool. Notably, # `config.status' has no value for ac_aux_dir unless we are using Automake, # so we pass a copy along to make sure it has a sensible value anyway. m4_defun([_LT_PROG_LTMAIN], [m4_ifdef([AC_REQUIRE_AUX_FILE], [AC_REQUIRE_AUX_FILE([ltmain.sh])])dnl _LT_CONFIG_LIBTOOL_INIT([ac_aux_dir='$ac_aux_dir']) ltmain="$ac_aux_dir/ltmain.sh" ])# _LT_PROG_LTMAIN ## ------------------------------------- ## ## Accumulate code for creating libtool. ## ## ------------------------------------- ## # So that we can recreate a full libtool script including additional # tags, we accumulate the chunks of code to send to AC_CONFIG_COMMANDS # in macros and then make a single call at the end using the `libtool' # label. # _LT_CONFIG_LIBTOOL_INIT([INIT-COMMANDS]) # ---------------------------------------- # Register INIT-COMMANDS to be passed to AC_CONFIG_COMMANDS later. m4_define([_LT_CONFIG_LIBTOOL_INIT], [m4_ifval([$1], [m4_append([_LT_OUTPUT_LIBTOOL_INIT], [$1 ])])]) # Initialize. m4_define([_LT_OUTPUT_LIBTOOL_INIT]) # _LT_CONFIG_LIBTOOL([COMMANDS]) # ------------------------------ # Register COMMANDS to be passed to AC_CONFIG_COMMANDS later. m4_define([_LT_CONFIG_LIBTOOL], [m4_ifval([$1], [m4_append([_LT_OUTPUT_LIBTOOL_COMMANDS], [$1 ])])]) # Initialize. m4_define([_LT_OUTPUT_LIBTOOL_COMMANDS]) # _LT_CONFIG_SAVE_COMMANDS([COMMANDS], [INIT_COMMANDS]) # ----------------------------------------------------- m4_defun([_LT_CONFIG_SAVE_COMMANDS], [_LT_CONFIG_LIBTOOL([$1]) _LT_CONFIG_LIBTOOL_INIT([$2]) ]) # _LT_FORMAT_COMMENT([COMMENT]) # ----------------------------- # Add leading comment marks to the start of each line, and a trailing # full-stop to the whole comment if one is not present already. m4_define([_LT_FORMAT_COMMENT], [m4_ifval([$1], [ m4_bpatsubst([m4_bpatsubst([$1], [^ *], [# ])], [['`$\]], [\\\&])]m4_bmatch([$1], [[!?.]$], [], [.]) )]) ## ------------------------ ## ## FIXME: Eliminate VARNAME ## ## ------------------------ ## # _LT_DECL([CONFIGNAME], VARNAME, VALUE, [DESCRIPTION], [IS-TAGGED?]) # ------------------------------------------------------------------- # CONFIGNAME is the name given to the value in the libtool script. # VARNAME is the (base) name used in the configure script. # VALUE may be 0, 1 or 2 for a computed quote escaped value based on # VARNAME. Any other value will be used directly. m4_define([_LT_DECL], [lt_if_append_uniq([lt_decl_varnames], [$2], [, ], [lt_dict_add_subkey([lt_decl_dict], [$2], [libtool_name], [m4_ifval([$1], [$1], [$2])]) lt_dict_add_subkey([lt_decl_dict], [$2], [value], [$3]) m4_ifval([$4], [lt_dict_add_subkey([lt_decl_dict], [$2], [description], [$4])]) lt_dict_add_subkey([lt_decl_dict], [$2], [tagged?], [m4_ifval([$5], [yes], [no])])]) ]) # _LT_TAGDECL([CONFIGNAME], VARNAME, VALUE, [DESCRIPTION]) # -------------------------------------------------------- m4_define([_LT_TAGDECL], [_LT_DECL([$1], [$2], [$3], [$4], [yes])]) # lt_decl_tag_varnames([SEPARATOR], [VARNAME1...]) # ------------------------------------------------ m4_define([lt_decl_tag_varnames], [_lt_decl_filter([tagged?], [yes], $@)]) # _lt_decl_filter(SUBKEY, VALUE, [SEPARATOR], [VARNAME1..]) # --------------------------------------------------------- m4_define([_lt_decl_filter], [m4_case([$#], [0], [m4_fatal([$0: too few arguments: $#])], [1], [m4_fatal([$0: too few arguments: $#: $1])], [2], [lt_dict_filter([lt_decl_dict], [$1], [$2], [], lt_decl_varnames)], [3], [lt_dict_filter([lt_decl_dict], [$1], [$2], [$3], lt_decl_varnames)], [lt_dict_filter([lt_decl_dict], $@)])[]dnl ]) # lt_decl_quote_varnames([SEPARATOR], [VARNAME1...]) # -------------------------------------------------- m4_define([lt_decl_quote_varnames], [_lt_decl_filter([value], [1], $@)]) # lt_decl_dquote_varnames([SEPARATOR], [VARNAME1...]) # --------------------------------------------------- m4_define([lt_decl_dquote_varnames], [_lt_decl_filter([value], [2], $@)]) # lt_decl_varnames_tagged([SEPARATOR], [VARNAME1...]) # --------------------------------------------------- m4_define([lt_decl_varnames_tagged], [m4_assert([$# <= 2])dnl _$0(m4_quote(m4_default([$1], [[, ]])), m4_ifval([$2], [[$2]], [m4_dquote(lt_decl_tag_varnames)]), m4_split(m4_normalize(m4_quote(_LT_TAGS)), [ ]))]) m4_define([_lt_decl_varnames_tagged], [m4_ifval([$3], [lt_combine([$1], [$2], [_], $3)])]) # lt_decl_all_varnames([SEPARATOR], [VARNAME1...]) # ------------------------------------------------ m4_define([lt_decl_all_varnames], [_$0(m4_quote(m4_default([$1], [[, ]])), m4_if([$2], [], m4_quote(lt_decl_varnames), m4_quote(m4_shift($@))))[]dnl ]) m4_define([_lt_decl_all_varnames], [lt_join($@, lt_decl_varnames_tagged([$1], lt_decl_tag_varnames([[, ]], m4_shift($@))))dnl ]) # _LT_CONFIG_STATUS_DECLARE([VARNAME]) # ------------------------------------ # Quote a variable value, and forward it to `config.status' so that its # declaration there will have the same value as in `configure'. VARNAME # must have a single quote delimited value for this to work. m4_define([_LT_CONFIG_STATUS_DECLARE], [$1='`$ECHO "$][$1" | $SED "$delay_single_quote_subst"`']) # _LT_CONFIG_STATUS_DECLARATIONS # ------------------------------ # We delimit libtool config variables with single quotes, so when # we write them to config.status, we have to be sure to quote all # embedded single quotes properly. In configure, this macro expands # each variable declared with _LT_DECL (and _LT_TAGDECL) into: # # ='`$ECHO "$" | $SED "$delay_single_quote_subst"`' m4_defun([_LT_CONFIG_STATUS_DECLARATIONS], [m4_foreach([_lt_var], m4_quote(lt_decl_all_varnames), [m4_n([_LT_CONFIG_STATUS_DECLARE(_lt_var)])])]) # _LT_LIBTOOL_TAGS # ---------------- # Output comment and list of tags supported by the script m4_defun([_LT_LIBTOOL_TAGS], [_LT_FORMAT_COMMENT([The names of the tagged configurations supported by this script])dnl available_tags="_LT_TAGS"dnl ]) # _LT_LIBTOOL_DECLARE(VARNAME, [TAG]) # ----------------------------------- # Extract the dictionary values for VARNAME (optionally with TAG) and # expand to a commented shell variable setting: # # # Some comment about what VAR is for. # visible_name=$lt_internal_name m4_define([_LT_LIBTOOL_DECLARE], [_LT_FORMAT_COMMENT(m4_quote(lt_dict_fetch([lt_decl_dict], [$1], [description])))[]dnl m4_pushdef([_libtool_name], m4_quote(lt_dict_fetch([lt_decl_dict], [$1], [libtool_name])))[]dnl m4_case(m4_quote(lt_dict_fetch([lt_decl_dict], [$1], [value])), [0], [_libtool_name=[$]$1], [1], [_libtool_name=$lt_[]$1], [2], [_libtool_name=$lt_[]$1], [_libtool_name=lt_dict_fetch([lt_decl_dict], [$1], [value])])[]dnl m4_ifval([$2], [_$2])[]m4_popdef([_libtool_name])[]dnl ]) # _LT_LIBTOOL_CONFIG_VARS # ----------------------- # Produce commented declarations of non-tagged libtool config variables # suitable for insertion in the LIBTOOL CONFIG section of the `libtool' # script. Tagged libtool config variables (even for the LIBTOOL CONFIG # section) are produced by _LT_LIBTOOL_TAG_VARS. m4_defun([_LT_LIBTOOL_CONFIG_VARS], [m4_foreach([_lt_var], m4_quote(_lt_decl_filter([tagged?], [no], [], lt_decl_varnames)), [m4_n([_LT_LIBTOOL_DECLARE(_lt_var)])])]) # _LT_LIBTOOL_TAG_VARS(TAG) # ------------------------- m4_define([_LT_LIBTOOL_TAG_VARS], [m4_foreach([_lt_var], m4_quote(lt_decl_tag_varnames), [m4_n([_LT_LIBTOOL_DECLARE(_lt_var, [$1])])])]) # _LT_TAGVAR(VARNAME, [TAGNAME]) # ------------------------------ m4_define([_LT_TAGVAR], [m4_ifval([$2], [$1_$2], [$1])]) # _LT_CONFIG_COMMANDS # ------------------- # Send accumulated output to $CONFIG_STATUS. Thanks to the lists of # variables for single and double quote escaping we saved from calls # to _LT_DECL, we can put quote escaped variables declarations # into `config.status', and then the shell code to quote escape them in # for loops in `config.status'. Finally, any additional code accumulated # from calls to _LT_CONFIG_LIBTOOL_INIT is expanded. m4_defun([_LT_CONFIG_COMMANDS], [AC_PROVIDE_IFELSE([LT_OUTPUT], dnl If the libtool generation code has been placed in $CONFIG_LT, dnl instead of duplicating it all over again into config.status, dnl then we will have config.status run $CONFIG_LT later, so it dnl needs to know what name is stored there: [AC_CONFIG_COMMANDS([libtool], [$SHELL $CONFIG_LT || AS_EXIT(1)], [CONFIG_LT='$CONFIG_LT'])], dnl If the libtool generation code is destined for config.status, dnl expand the accumulated commands and init code now: [AC_CONFIG_COMMANDS([libtool], [_LT_OUTPUT_LIBTOOL_COMMANDS], [_LT_OUTPUT_LIBTOOL_COMMANDS_INIT])]) ])#_LT_CONFIG_COMMANDS # Initialize. m4_define([_LT_OUTPUT_LIBTOOL_COMMANDS_INIT], [ # The HP-UX ksh and POSIX shell print the target directory to stdout # if CDPATH is set. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH sed_quote_subst='$sed_quote_subst' double_quote_subst='$double_quote_subst' delay_variable_subst='$delay_variable_subst' _LT_CONFIG_STATUS_DECLARATIONS LTCC='$LTCC' LTCFLAGS='$LTCFLAGS' compiler='$compiler_DEFAULT' # A function that is used when there is no print builtin or printf. func_fallback_echo () { eval 'cat <<_LTECHO_EOF \$[]1 _LTECHO_EOF' } # Quote evaled strings. for var in lt_decl_all_varnames([[ \ ]], lt_decl_quote_varnames); do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[[\\\\\\\`\\"\\\$]]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED \\"\\\$sed_quote_subst\\"\\\`\\\\\\"" ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done # Double-quote double-evaled strings. for var in lt_decl_all_varnames([[ \ ]], lt_decl_dquote_varnames); do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[[\\\\\\\`\\"\\\$]]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\"" ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done _LT_OUTPUT_LIBTOOL_INIT ]) # _LT_GENERATED_FILE_INIT(FILE, [COMMENT]) # ------------------------------------ # Generate a child script FILE with all initialization necessary to # reuse the environment learned by the parent script, and make the # file executable. If COMMENT is supplied, it is inserted after the # `#!' sequence but before initialization text begins. After this # macro, additional text can be appended to FILE to form the body of # the child script. The macro ends with non-zero status if the # file could not be fully written (such as if the disk is full). m4_ifdef([AS_INIT_GENERATED], [m4_defun([_LT_GENERATED_FILE_INIT],[AS_INIT_GENERATED($@)])], [m4_defun([_LT_GENERATED_FILE_INIT], [m4_require([AS_PREPARE])]dnl [m4_pushdef([AS_MESSAGE_LOG_FD])]dnl [lt_write_fail=0 cat >$1 <<_ASEOF || lt_write_fail=1 #! $SHELL # Generated by $as_me. $2 SHELL=\${CONFIG_SHELL-$SHELL} export SHELL _ASEOF cat >>$1 <<\_ASEOF || lt_write_fail=1 AS_SHELL_SANITIZE _AS_PREPARE exec AS_MESSAGE_FD>&1 _ASEOF test $lt_write_fail = 0 && chmod +x $1[]dnl m4_popdef([AS_MESSAGE_LOG_FD])])])# _LT_GENERATED_FILE_INIT # LT_OUTPUT # --------- # This macro allows early generation of the libtool script (before # AC_OUTPUT is called), incase it is used in configure for compilation # tests. AC_DEFUN([LT_OUTPUT], [: ${CONFIG_LT=./config.lt} AC_MSG_NOTICE([creating $CONFIG_LT]) _LT_GENERATED_FILE_INIT(["$CONFIG_LT"], [# Run this file to recreate a libtool stub with the current configuration.]) cat >>"$CONFIG_LT" <<\_LTEOF lt_cl_silent=false exec AS_MESSAGE_LOG_FD>>config.log { echo AS_BOX([Running $as_me.]) } >&AS_MESSAGE_LOG_FD lt_cl_help="\ \`$as_me' creates a local libtool stub from the current configuration, for use in further configure time tests before the real libtool is generated. Usage: $[0] [[OPTIONS]] -h, --help print this help, then exit -V, --version print version number, then exit -q, --quiet do not print progress messages -d, --debug don't remove temporary files Report bugs to ." lt_cl_version="\ m4_ifset([AC_PACKAGE_NAME], [AC_PACKAGE_NAME ])config.lt[]dnl m4_ifset([AC_PACKAGE_VERSION], [ AC_PACKAGE_VERSION]) configured by $[0], generated by m4_PACKAGE_STRING. Copyright (C) 2011 Free Software Foundation, Inc. This config.lt script is free software; the Free Software Foundation gives unlimited permision to copy, distribute and modify it." while test $[#] != 0 do case $[1] in --version | --v* | -V ) echo "$lt_cl_version"; exit 0 ;; --help | --h* | -h ) echo "$lt_cl_help"; exit 0 ;; --debug | --d* | -d ) debug=: ;; --quiet | --q* | --silent | --s* | -q ) lt_cl_silent=: ;; -*) AC_MSG_ERROR([unrecognized option: $[1] Try \`$[0] --help' for more information.]) ;; *) AC_MSG_ERROR([unrecognized argument: $[1] Try \`$[0] --help' for more information.]) ;; esac shift done if $lt_cl_silent; then exec AS_MESSAGE_FD>/dev/null fi _LTEOF cat >>"$CONFIG_LT" <<_LTEOF _LT_OUTPUT_LIBTOOL_COMMANDS_INIT _LTEOF cat >>"$CONFIG_LT" <<\_LTEOF AC_MSG_NOTICE([creating $ofile]) _LT_OUTPUT_LIBTOOL_COMMANDS AS_EXIT(0) _LTEOF chmod +x "$CONFIG_LT" # configure is writing to config.log, but config.lt does its own redirection, # appending to config.log, which fails on DOS, as config.log is still kept # open by configure. Here we exec the FD to /dev/null, effectively closing # config.log, so it can be properly (re)opened and appended to by config.lt. lt_cl_success=: test "$silent" = yes && lt_config_lt_args="$lt_config_lt_args --quiet" exec AS_MESSAGE_LOG_FD>/dev/null $SHELL "$CONFIG_LT" $lt_config_lt_args || lt_cl_success=false exec AS_MESSAGE_LOG_FD>>config.log $lt_cl_success || AS_EXIT(1) ])# LT_OUTPUT # _LT_CONFIG(TAG) # --------------- # If TAG is the built-in tag, create an initial libtool script with a # default configuration from the untagged config vars. Otherwise add code # to config.status for appending the configuration named by TAG from the # matching tagged config vars. m4_defun([_LT_CONFIG], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl _LT_CONFIG_SAVE_COMMANDS([ m4_define([_LT_TAG], m4_if([$1], [], [C], [$1]))dnl m4_if(_LT_TAG, [C], [ # See if we are running on zsh, and set the options which allow our # commands through without removal of \ escapes. if test -n "${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi cfgfile="${ofile}T" trap "$RM \"$cfgfile\"; exit 1" 1 2 15 $RM "$cfgfile" cat <<_LT_EOF >> "$cfgfile" #! $SHELL # `$ECHO "$ofile" | sed 's%^.*/%%'` - Provide generalized library-building support services. # Generated automatically by $as_me ($PACKAGE$TIMESTAMP) $VERSION # Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: # NOTE: Changes made to this file will be lost: look at ltmain.sh. # _LT_COPYING _LT_LIBTOOL_TAGS # ### BEGIN LIBTOOL CONFIG _LT_LIBTOOL_CONFIG_VARS _LT_LIBTOOL_TAG_VARS # ### END LIBTOOL CONFIG _LT_EOF case $host_os in aix3*) cat <<\_LT_EOF >> "$cfgfile" # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test "X${COLLECT_NAMES+set}" != Xset; then COLLECT_NAMES= export COLLECT_NAMES fi _LT_EOF ;; esac _LT_PROG_LTMAIN # We use sed instead of cat because bash on DJGPP gets confused if # if finds mixed CR/LF and LF-only lines. Since sed operates in # text mode, it properly converts lines to CR/LF. This bash problem # is reportedly fixed, but why not run on old versions too? sed '$q' "$ltmain" >> "$cfgfile" \ || (rm -f "$cfgfile"; exit 1) _LT_PROG_REPLACE_SHELLFNS mv -f "$cfgfile" "$ofile" || (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") chmod +x "$ofile" ], [cat <<_LT_EOF >> "$ofile" dnl Unfortunately we have to use $1 here, since _LT_TAG is not expanded dnl in a comment (ie after a #). # ### BEGIN LIBTOOL TAG CONFIG: $1 _LT_LIBTOOL_TAG_VARS(_LT_TAG) # ### END LIBTOOL TAG CONFIG: $1 _LT_EOF ])dnl /m4_if ], [m4_if([$1], [], [ PACKAGE='$PACKAGE' VERSION='$VERSION' TIMESTAMP='$TIMESTAMP' RM='$RM' ofile='$ofile'], []) ])dnl /_LT_CONFIG_SAVE_COMMANDS ])# _LT_CONFIG # LT_SUPPORTED_TAG(TAG) # --------------------- # Trace this macro to discover what tags are supported by the libtool # --tag option, using: # autoconf --trace 'LT_SUPPORTED_TAG:$1' AC_DEFUN([LT_SUPPORTED_TAG], []) # C support is built-in for now m4_define([_LT_LANG_C_enabled], []) m4_define([_LT_TAGS], []) # LT_LANG(LANG) # ------------- # Enable libtool support for the given language if not already enabled. AC_DEFUN([LT_LANG], [AC_BEFORE([$0], [LT_OUTPUT])dnl m4_case([$1], [C], [_LT_LANG(C)], [C++], [_LT_LANG(CXX)], [Go], [_LT_LANG(GO)], [Java], [_LT_LANG(GCJ)], [Fortran 77], [_LT_LANG(F77)], [Fortran], [_LT_LANG(FC)], [Windows Resource], [_LT_LANG(RC)], [m4_ifdef([_LT_LANG_]$1[_CONFIG], [_LT_LANG($1)], [m4_fatal([$0: unsupported language: "$1"])])])dnl ])# LT_LANG # _LT_LANG(LANGNAME) # ------------------ m4_defun([_LT_LANG], [m4_ifdef([_LT_LANG_]$1[_enabled], [], [LT_SUPPORTED_TAG([$1])dnl m4_append([_LT_TAGS], [$1 ])dnl m4_define([_LT_LANG_]$1[_enabled], [])dnl _LT_LANG_$1_CONFIG($1)])dnl ])# _LT_LANG m4_ifndef([AC_PROG_GO], [ ############################################################ # NOTE: This macro has been submitted for inclusion into # # GNU Autoconf as AC_PROG_GO. When it is available in # # a released version of Autoconf we should remove this # # macro and use it instead. # ############################################################ m4_defun([AC_PROG_GO], [AC_LANG_PUSH(Go)dnl AC_ARG_VAR([GOC], [Go compiler command])dnl AC_ARG_VAR([GOFLAGS], [Go compiler flags])dnl _AC_ARG_VAR_LDFLAGS()dnl AC_CHECK_TOOL(GOC, gccgo) if test -z "$GOC"; then if test -n "$ac_tool_prefix"; then AC_CHECK_PROG(GOC, [${ac_tool_prefix}gccgo], [${ac_tool_prefix}gccgo]) fi fi if test -z "$GOC"; then AC_CHECK_PROG(GOC, gccgo, gccgo, false) fi ])#m4_defun ])#m4_ifndef # _LT_LANG_DEFAULT_CONFIG # ----------------------- m4_defun([_LT_LANG_DEFAULT_CONFIG], [AC_PROVIDE_IFELSE([AC_PROG_CXX], [LT_LANG(CXX)], [m4_define([AC_PROG_CXX], defn([AC_PROG_CXX])[LT_LANG(CXX)])]) AC_PROVIDE_IFELSE([AC_PROG_F77], [LT_LANG(F77)], [m4_define([AC_PROG_F77], defn([AC_PROG_F77])[LT_LANG(F77)])]) AC_PROVIDE_IFELSE([AC_PROG_FC], [LT_LANG(FC)], [m4_define([AC_PROG_FC], defn([AC_PROG_FC])[LT_LANG(FC)])]) dnl The call to [A][M_PROG_GCJ] is quoted like that to stop aclocal dnl pulling things in needlessly. AC_PROVIDE_IFELSE([AC_PROG_GCJ], [LT_LANG(GCJ)], [AC_PROVIDE_IFELSE([A][M_PROG_GCJ], [LT_LANG(GCJ)], [AC_PROVIDE_IFELSE([LT_PROG_GCJ], [LT_LANG(GCJ)], [m4_ifdef([AC_PROG_GCJ], [m4_define([AC_PROG_GCJ], defn([AC_PROG_GCJ])[LT_LANG(GCJ)])]) m4_ifdef([A][M_PROG_GCJ], [m4_define([A][M_PROG_GCJ], defn([A][M_PROG_GCJ])[LT_LANG(GCJ)])]) m4_ifdef([LT_PROG_GCJ], [m4_define([LT_PROG_GCJ], defn([LT_PROG_GCJ])[LT_LANG(GCJ)])])])])]) AC_PROVIDE_IFELSE([AC_PROG_GO], [LT_LANG(GO)], [m4_define([AC_PROG_GO], defn([AC_PROG_GO])[LT_LANG(GO)])]) AC_PROVIDE_IFELSE([LT_PROG_RC], [LT_LANG(RC)], [m4_define([LT_PROG_RC], defn([LT_PROG_RC])[LT_LANG(RC)])]) ])# _LT_LANG_DEFAULT_CONFIG # Obsolete macros: AU_DEFUN([AC_LIBTOOL_CXX], [LT_LANG(C++)]) AU_DEFUN([AC_LIBTOOL_F77], [LT_LANG(Fortran 77)]) AU_DEFUN([AC_LIBTOOL_FC], [LT_LANG(Fortran)]) AU_DEFUN([AC_LIBTOOL_GCJ], [LT_LANG(Java)]) AU_DEFUN([AC_LIBTOOL_RC], [LT_LANG(Windows Resource)]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_CXX], []) dnl AC_DEFUN([AC_LIBTOOL_F77], []) dnl AC_DEFUN([AC_LIBTOOL_FC], []) dnl AC_DEFUN([AC_LIBTOOL_GCJ], []) dnl AC_DEFUN([AC_LIBTOOL_RC], []) # _LT_TAG_COMPILER # ---------------- m4_defun([_LT_TAG_COMPILER], [AC_REQUIRE([AC_PROG_CC])dnl _LT_DECL([LTCC], [CC], [1], [A C compiler])dnl _LT_DECL([LTCFLAGS], [CFLAGS], [1], [LTCC compiler flags])dnl _LT_TAGDECL([CC], [compiler], [1], [A language specific compiler])dnl _LT_TAGDECL([with_gcc], [GCC], [0], [Is the compiler the GNU compiler?])dnl # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC ])# _LT_TAG_COMPILER # _LT_COMPILER_BOILERPLATE # ------------------------ # Check for compiler boilerplate output or warnings with # the simple compiler test code. m4_defun([_LT_COMPILER_BOILERPLATE], [m4_require([_LT_DECL_SED])dnl ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" >conftest.$ac_ext eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_compiler_boilerplate=`cat conftest.err` $RM conftest* ])# _LT_COMPILER_BOILERPLATE # _LT_LINKER_BOILERPLATE # ---------------------- # Check for linker boilerplate output or warnings with # the simple link test code. m4_defun([_LT_LINKER_BOILERPLATE], [m4_require([_LT_DECL_SED])dnl ac_outfile=conftest.$ac_objext echo "$lt_simple_link_test_code" >conftest.$ac_ext eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_linker_boilerplate=`cat conftest.err` $RM -r conftest* ])# _LT_LINKER_BOILERPLATE # _LT_REQUIRED_DARWIN_CHECKS # ------------------------- m4_defun_once([_LT_REQUIRED_DARWIN_CHECKS],[ case $host_os in rhapsody* | darwin*) AC_CHECK_TOOL([DSYMUTIL], [dsymutil], [:]) AC_CHECK_TOOL([NMEDIT], [nmedit], [:]) AC_CHECK_TOOL([LIPO], [lipo], [:]) AC_CHECK_TOOL([OTOOL], [otool], [:]) AC_CHECK_TOOL([OTOOL64], [otool64], [:]) _LT_DECL([], [DSYMUTIL], [1], [Tool to manipulate archived DWARF debug symbol files on Mac OS X]) _LT_DECL([], [NMEDIT], [1], [Tool to change global to local symbols on Mac OS X]) _LT_DECL([], [LIPO], [1], [Tool to manipulate fat objects and archives on Mac OS X]) _LT_DECL([], [OTOOL], [1], [ldd/readelf like tool for Mach-O binaries on Mac OS X]) _LT_DECL([], [OTOOL64], [1], [ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4]) AC_CACHE_CHECK([for -single_module linker flag],[lt_cv_apple_cc_single_mod], [lt_cv_apple_cc_single_mod=no if test -z "${LT_MULTI_MODULE}"; then # By default we will add the -single_module flag. You can override # by either setting the environment variable LT_MULTI_MODULE # non-empty at configure time, or by adding -multi_module to the # link flags. rm -rf libconftest.dylib* echo "int foo(void){return 1;}" > conftest.c echo "$LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib -Wl,-single_module conftest.c" >&AS_MESSAGE_LOG_FD $LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib -Wl,-single_module conftest.c 2>conftest.err _lt_result=$? # If there is a non-empty error log, and "single_module" # appears in it, assume the flag caused a linker warning if test -s conftest.err && $GREP single_module conftest.err; then cat conftest.err >&AS_MESSAGE_LOG_FD # Otherwise, if the output was created with a 0 exit code from # the compiler, it worked. elif test -f libconftest.dylib && test $_lt_result -eq 0; then lt_cv_apple_cc_single_mod=yes else cat conftest.err >&AS_MESSAGE_LOG_FD fi rm -rf libconftest.dylib* rm -f conftest.* fi]) AC_CACHE_CHECK([for -exported_symbols_list linker flag], [lt_cv_ld_exported_symbols_list], [lt_cv_ld_exported_symbols_list=no save_LDFLAGS=$LDFLAGS echo "_main" > conftest.sym LDFLAGS="$LDFLAGS -Wl,-exported_symbols_list,conftest.sym" AC_LINK_IFELSE([AC_LANG_PROGRAM([],[])], [lt_cv_ld_exported_symbols_list=yes], [lt_cv_ld_exported_symbols_list=no]) LDFLAGS="$save_LDFLAGS" ]) AC_CACHE_CHECK([for -force_load linker flag],[lt_cv_ld_force_load], [lt_cv_ld_force_load=no cat > conftest.c << _LT_EOF int forced_loaded() { return 2;} _LT_EOF echo "$LTCC $LTCFLAGS -c -o conftest.o conftest.c" >&AS_MESSAGE_LOG_FD $LTCC $LTCFLAGS -c -o conftest.o conftest.c 2>&AS_MESSAGE_LOG_FD echo "$AR cru libconftest.a conftest.o" >&AS_MESSAGE_LOG_FD $AR cru libconftest.a conftest.o 2>&AS_MESSAGE_LOG_FD echo "$RANLIB libconftest.a" >&AS_MESSAGE_LOG_FD $RANLIB libconftest.a 2>&AS_MESSAGE_LOG_FD cat > conftest.c << _LT_EOF int main() { return 0;} _LT_EOF echo "$LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a" >&AS_MESSAGE_LOG_FD $LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a 2>conftest.err _lt_result=$? if test -s conftest.err && $GREP force_load conftest.err; then cat conftest.err >&AS_MESSAGE_LOG_FD elif test -f conftest && test $_lt_result -eq 0 && $GREP forced_load conftest >/dev/null 2>&1 ; then lt_cv_ld_force_load=yes else cat conftest.err >&AS_MESSAGE_LOG_FD fi rm -f conftest.err libconftest.a conftest conftest.c rm -rf conftest.dSYM ]) case $host_os in rhapsody* | darwin1.[[012]]) _lt_dar_allow_undefined='${wl}-undefined ${wl}suppress' ;; darwin1.*) _lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;; darwin*) # darwin 5.x on # if running on 10.5 or later, the deployment target defaults # to the OS version, if on x86, and 10.4, the deployment # target defaults to 10.4. Don't you love it? case ${MACOSX_DEPLOYMENT_TARGET-10.0},$host in 10.0,*86*-darwin8*|10.0,*-darwin[[91]]*) _lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;; 10.[[012]]*) _lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;; 10.*) _lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;; esac ;; esac if test "$lt_cv_apple_cc_single_mod" = "yes"; then _lt_dar_single_mod='$single_module' fi if test "$lt_cv_ld_exported_symbols_list" = "yes"; then _lt_dar_export_syms=' ${wl}-exported_symbols_list,$output_objdir/${libname}-symbols.expsym' else _lt_dar_export_syms='~$NMEDIT -s $output_objdir/${libname}-symbols.expsym ${lib}' fi if test "$DSYMUTIL" != ":" && test "$lt_cv_ld_force_load" = "no"; then _lt_dsymutil='~$DSYMUTIL $lib || :' else _lt_dsymutil= fi ;; esac ]) # _LT_DARWIN_LINKER_FEATURES([TAG]) # --------------------------------- # Checks for linker and compiler features on darwin m4_defun([_LT_DARWIN_LINKER_FEATURES], [ m4_require([_LT_REQUIRED_DARWIN_CHECKS]) _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_automatic, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported if test "$lt_cv_ld_force_load" = "yes"; then _LT_TAGVAR(whole_archive_flag_spec, $1)='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience ${wl}-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`' m4_case([$1], [F77], [_LT_TAGVAR(compiler_needs_object, $1)=yes], [FC], [_LT_TAGVAR(compiler_needs_object, $1)=yes]) else _LT_TAGVAR(whole_archive_flag_spec, $1)='' fi _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(allow_undefined_flag, $1)="$_lt_dar_allow_undefined" case $cc_basename in ifort*) _lt_dar_can_shared=yes ;; *) _lt_dar_can_shared=$GCC ;; esac if test "$_lt_dar_can_shared" = "yes"; then output_verbose_link_cmd=func_echo_all _LT_TAGVAR(archive_cmds, $1)="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod${_lt_dsymutil}" _LT_TAGVAR(module_cmds, $1)="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dsymutil}" _LT_TAGVAR(archive_expsym_cmds, $1)="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring ${_lt_dar_single_mod}${_lt_dar_export_syms}${_lt_dsymutil}" _LT_TAGVAR(module_expsym_cmds, $1)="sed -e 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dar_export_syms}${_lt_dsymutil}" m4_if([$1], [CXX], [ if test "$lt_cv_apple_cc_single_mod" != "yes"; then _LT_TAGVAR(archive_cmds, $1)="\$CC -r -keep_private_externs -nostdlib -o \${lib}-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \${lib}-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring${_lt_dsymutil}" _LT_TAGVAR(archive_expsym_cmds, $1)="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -r -keep_private_externs -nostdlib -o \${lib}-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \${lib}-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring${_lt_dar_export_syms}${_lt_dsymutil}" fi ],[]) else _LT_TAGVAR(ld_shlibs, $1)=no fi ]) # _LT_SYS_MODULE_PATH_AIX([TAGNAME]) # ---------------------------------- # Links a minimal program and checks the executable # for the system default hardcoded library path. In most cases, # this is /usr/lib:/lib, but when the MPI compilers are used # the location of the communication and MPI libs are included too. # If we don't find anything, use the default library path according # to the aix ld manual. # Store the results from the different compilers for each TAGNAME. # Allow to override them for all tags through lt_cv_aix_libpath. m4_defun([_LT_SYS_MODULE_PATH_AIX], [m4_require([_LT_DECL_SED])dnl if test "${lt_cv_aix_libpath+set}" = set; then aix_libpath=$lt_cv_aix_libpath else AC_CACHE_VAL([_LT_TAGVAR([lt_cv_aix_libpath_], [$1])], [AC_LINK_IFELSE([AC_LANG_PROGRAM],[ lt_aix_libpath_sed='[ /Import File Strings/,/^$/ { /^0/ { s/^0 *\([^ ]*\) *$/\1/ p } }]' _LT_TAGVAR([lt_cv_aix_libpath_], [$1])=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$_LT_TAGVAR([lt_cv_aix_libpath_], [$1])"; then _LT_TAGVAR([lt_cv_aix_libpath_], [$1])=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi],[]) if test -z "$_LT_TAGVAR([lt_cv_aix_libpath_], [$1])"; then _LT_TAGVAR([lt_cv_aix_libpath_], [$1])="/usr/lib:/lib" fi ]) aix_libpath=$_LT_TAGVAR([lt_cv_aix_libpath_], [$1]) fi ])# _LT_SYS_MODULE_PATH_AIX # _LT_SHELL_INIT(ARG) # ------------------- m4_define([_LT_SHELL_INIT], [m4_divert_text([M4SH-INIT], [$1 ])])# _LT_SHELL_INIT # _LT_PROG_ECHO_BACKSLASH # ----------------------- # Find how we can fake an echo command that does not interpret backslash. # In particular, with Autoconf 2.60 or later we add some code to the start # of the generated configure script which will find a shell with a builtin # printf (which we can use as an echo command). m4_defun([_LT_PROG_ECHO_BACKSLASH], [ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO AC_MSG_CHECKING([how to print strings]) # Test print first, because it will be a builtin if present. if test "X`( print -r -- -n ) 2>/dev/null`" = X-n && \ test "X`print -r -- $ECHO 2>/dev/null`" = "X$ECHO"; then ECHO='print -r --' elif test "X`printf %s $ECHO 2>/dev/null`" = "X$ECHO"; then ECHO='printf %s\n' else # Use this function as a fallback that always works. func_fallback_echo () { eval 'cat <<_LTECHO_EOF $[]1 _LTECHO_EOF' } ECHO='func_fallback_echo' fi # func_echo_all arg... # Invoke $ECHO with all args, space-separated. func_echo_all () { $ECHO "$*" } case "$ECHO" in printf*) AC_MSG_RESULT([printf]) ;; print*) AC_MSG_RESULT([print -r]) ;; *) AC_MSG_RESULT([cat]) ;; esac m4_ifdef([_AS_DETECT_SUGGESTED], [_AS_DETECT_SUGGESTED([ test -n "${ZSH_VERSION+set}${BASH_VERSION+set}" || ( ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO PATH=/empty FPATH=/empty; export PATH FPATH test "X`printf %s $ECHO`" = "X$ECHO" \ || test "X`print -r -- $ECHO`" = "X$ECHO" )])]) _LT_DECL([], [SHELL], [1], [Shell to use when invoking shell scripts]) _LT_DECL([], [ECHO], [1], [An echo program that protects backslashes]) ])# _LT_PROG_ECHO_BACKSLASH # _LT_WITH_SYSROOT # ---------------- AC_DEFUN([_LT_WITH_SYSROOT], [AC_MSG_CHECKING([for sysroot]) AC_ARG_WITH([sysroot], [ --with-sysroot[=DIR] Search for dependent libraries within DIR (or the compiler's sysroot if not specified).], [], [with_sysroot=no]) dnl lt_sysroot will always be passed unquoted. We quote it here dnl in case the user passed a directory name. lt_sysroot= case ${with_sysroot} in #( yes) if test "$GCC" = yes; then lt_sysroot=`$CC --print-sysroot 2>/dev/null` fi ;; #( /*) lt_sysroot=`echo "$with_sysroot" | sed -e "$sed_quote_subst"` ;; #( no|'') ;; #( *) AC_MSG_RESULT([${with_sysroot}]) AC_MSG_ERROR([The sysroot must be an absolute path.]) ;; esac AC_MSG_RESULT([${lt_sysroot:-no}]) _LT_DECL([], [lt_sysroot], [0], [The root where to search for ]dnl [dependent libraries, and in which our libraries should be installed.])]) # _LT_ENABLE_LOCK # --------------- m4_defun([_LT_ENABLE_LOCK], [AC_ARG_ENABLE([libtool-lock], [AS_HELP_STRING([--disable-libtool-lock], [avoid locking (might break parallel builds)])]) test "x$enable_libtool_lock" != xno && enable_libtool_lock=yes # Some flags need to be propagated to the compiler or linker for good # libtool support. case $host in ia64-*-hpux*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then case `/usr/bin/file conftest.$ac_objext` in *ELF-32*) HPUX_IA64_MODE="32" ;; *ELF-64*) HPUX_IA64_MODE="64" ;; esac fi rm -rf conftest* ;; *-*-irix6*) # Find out which ABI we are using. echo '[#]line '$LINENO' "configure"' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then if test "$lt_cv_prog_gnu_ld" = yes; then case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -melf32bsmip" ;; *N32*) LD="${LD-ld} -melf32bmipn32" ;; *64-bit*) LD="${LD-ld} -melf64bmip" ;; esac else case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -32" ;; *N32*) LD="${LD-ld} -n32" ;; *64-bit*) LD="${LD-ld} -64" ;; esac fi fi rm -rf conftest* ;; x86_64-*kfreebsd*-gnu|x86_64-*linux*|ppc*-*linux*|powerpc*-*linux*| \ s390*-*linux*|s390*-*tpf*|sparc*-*linux*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then case `/usr/bin/file conftest.o` in *32-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_i386_fbsd" ;; x86_64-*linux*) LD="${LD-ld} -m elf_i386" ;; ppc64-*linux*|powerpc64-*linux*) LD="${LD-ld} -m elf32ppclinux" ;; s390x-*linux*) LD="${LD-ld} -m elf_s390" ;; sparc64-*linux*) LD="${LD-ld} -m elf32_sparc" ;; esac ;; *64-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_x86_64_fbsd" ;; x86_64-*linux*) LD="${LD-ld} -m elf_x86_64" ;; ppc*-*linux*|powerpc*-*linux*) LD="${LD-ld} -m elf64ppc" ;; s390*-*linux*|s390*-*tpf*) LD="${LD-ld} -m elf64_s390" ;; sparc*-*linux*) LD="${LD-ld} -m elf64_sparc" ;; esac ;; esac fi rm -rf conftest* ;; *-*-sco3.2v5*) # On SCO OpenServer 5, we need -belf to get full-featured binaries. SAVE_CFLAGS="$CFLAGS" CFLAGS="$CFLAGS -belf" AC_CACHE_CHECK([whether the C compiler needs -belf], lt_cv_cc_needs_belf, [AC_LANG_PUSH(C) AC_LINK_IFELSE([AC_LANG_PROGRAM([[]],[[]])],[lt_cv_cc_needs_belf=yes],[lt_cv_cc_needs_belf=no]) AC_LANG_POP]) if test x"$lt_cv_cc_needs_belf" != x"yes"; then # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf CFLAGS="$SAVE_CFLAGS" fi ;; *-*solaris*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then case `/usr/bin/file conftest.o` in *64-bit*) case $lt_cv_prog_gnu_ld in yes*) case $host in i?86-*-solaris*) LD="${LD-ld} -m elf_x86_64" ;; sparc*-*-solaris*) LD="${LD-ld} -m elf64_sparc" ;; esac # GNU ld 2.21 introduced _sol2 emulations. Use them if available. if ${LD-ld} -V | grep _sol2 >/dev/null 2>&1; then LD="${LD-ld}_sol2" fi ;; *) if ${LD-ld} -64 -r -o conftest2.o conftest.o >/dev/null 2>&1; then LD="${LD-ld} -64" fi ;; esac ;; esac fi rm -rf conftest* ;; esac need_locks="$enable_libtool_lock" ])# _LT_ENABLE_LOCK # _LT_PROG_AR # ----------- m4_defun([_LT_PROG_AR], [AC_CHECK_TOOLS(AR, [ar], false) : ${AR=ar} : ${AR_FLAGS=cru} _LT_DECL([], [AR], [1], [The archiver]) _LT_DECL([], [AR_FLAGS], [1], [Flags to create an archive]) AC_CACHE_CHECK([for archiver @FILE support], [lt_cv_ar_at_file], [lt_cv_ar_at_file=no AC_COMPILE_IFELSE([AC_LANG_PROGRAM], [echo conftest.$ac_objext > conftest.lst lt_ar_try='$AR $AR_FLAGS libconftest.a @conftest.lst >&AS_MESSAGE_LOG_FD' AC_TRY_EVAL([lt_ar_try]) if test "$ac_status" -eq 0; then # Ensure the archiver fails upon bogus file names. rm -f conftest.$ac_objext libconftest.a AC_TRY_EVAL([lt_ar_try]) if test "$ac_status" -ne 0; then lt_cv_ar_at_file=@ fi fi rm -f conftest.* libconftest.a ]) ]) if test "x$lt_cv_ar_at_file" = xno; then archiver_list_spec= else archiver_list_spec=$lt_cv_ar_at_file fi _LT_DECL([], [archiver_list_spec], [1], [How to feed a file listing to the archiver]) ])# _LT_PROG_AR # _LT_CMD_OLD_ARCHIVE # ------------------- m4_defun([_LT_CMD_OLD_ARCHIVE], [_LT_PROG_AR AC_CHECK_TOOL(STRIP, strip, :) test -z "$STRIP" && STRIP=: _LT_DECL([], [STRIP], [1], [A symbol stripping program]) AC_CHECK_TOOL(RANLIB, ranlib, :) test -z "$RANLIB" && RANLIB=: _LT_DECL([], [RANLIB], [1], [Commands used to install an old-style archive]) # Determine commands to create old-style static archives. old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs' old_postinstall_cmds='chmod 644 $oldlib' old_postuninstall_cmds= if test -n "$RANLIB"; then case $host_os in openbsd*) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB -t \$tool_oldlib" ;; *) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$tool_oldlib" ;; esac old_archive_cmds="$old_archive_cmds~\$RANLIB \$tool_oldlib" fi case $host_os in darwin*) lock_old_archive_extraction=yes ;; *) lock_old_archive_extraction=no ;; esac _LT_DECL([], [old_postinstall_cmds], [2]) _LT_DECL([], [old_postuninstall_cmds], [2]) _LT_TAGDECL([], [old_archive_cmds], [2], [Commands used to build an old-style archive]) _LT_DECL([], [lock_old_archive_extraction], [0], [Whether to use a lock for old archive extraction]) ])# _LT_CMD_OLD_ARCHIVE # _LT_COMPILER_OPTION(MESSAGE, VARIABLE-NAME, FLAGS, # [OUTPUT-FILE], [ACTION-SUCCESS], [ACTION-FAILURE]) # ---------------------------------------------------------------- # Check whether the given compiler option works AC_DEFUN([_LT_COMPILER_OPTION], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_SED])dnl AC_CACHE_CHECK([$1], [$2], [$2=no m4_if([$4], , [ac_outfile=conftest.$ac_objext], [ac_outfile=$4]) echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="$3" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [[^ ]]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&AS_MESSAGE_LOG_FD) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&AS_MESSAGE_LOG_FD echo "$as_me:$LINENO: \$? = $ac_status" >&AS_MESSAGE_LOG_FD if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then $2=yes fi fi $RM conftest* ]) if test x"[$]$2" = xyes; then m4_if([$5], , :, [$5]) else m4_if([$6], , :, [$6]) fi ])# _LT_COMPILER_OPTION # Old name: AU_ALIAS([AC_LIBTOOL_COMPILER_OPTION], [_LT_COMPILER_OPTION]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_COMPILER_OPTION], []) # _LT_LINKER_OPTION(MESSAGE, VARIABLE-NAME, FLAGS, # [ACTION-SUCCESS], [ACTION-FAILURE]) # ---------------------------------------------------- # Check whether the given linker option works AC_DEFUN([_LT_LINKER_OPTION], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_SED])dnl AC_CACHE_CHECK([$1], [$2], [$2=no save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS $3" echo "$lt_simple_link_test_code" > conftest.$ac_ext if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then # The linker can only warn and ignore the option if not recognized # So say no if there are warnings if test -s conftest.err; then # Append any errors to the config.log. cat conftest.err 1>&AS_MESSAGE_LOG_FD $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if diff conftest.exp conftest.er2 >/dev/null; then $2=yes fi else $2=yes fi fi $RM -r conftest* LDFLAGS="$save_LDFLAGS" ]) if test x"[$]$2" = xyes; then m4_if([$4], , :, [$4]) else m4_if([$5], , :, [$5]) fi ])# _LT_LINKER_OPTION # Old name: AU_ALIAS([AC_LIBTOOL_LINKER_OPTION], [_LT_LINKER_OPTION]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_LINKER_OPTION], []) # LT_CMD_MAX_LEN #--------------- AC_DEFUN([LT_CMD_MAX_LEN], [AC_REQUIRE([AC_CANONICAL_HOST])dnl # find the maximum length of command line arguments AC_MSG_CHECKING([the maximum length of command line arguments]) AC_CACHE_VAL([lt_cv_sys_max_cmd_len], [dnl i=0 teststring="ABCD" case $build_os in msdosdjgpp*) # On DJGPP, this test can blow up pretty badly due to problems in libc # (any single argument exceeding 2000 bytes causes a buffer overrun # during glob expansion). Even if it were fixed, the result of this # check would be larger than it should be. lt_cv_sys_max_cmd_len=12288; # 12K is about right ;; gnu*) # Under GNU Hurd, this test is not required because there is # no limit to the length of command line arguments. # Libtool will interpret -1 as no limit whatsoever lt_cv_sys_max_cmd_len=-1; ;; cygwin* | mingw* | cegcc*) # On Win9x/ME, this test blows up -- it succeeds, but takes # about 5 minutes as the teststring grows exponentially. # Worse, since 9x/ME are not pre-emptively multitasking, # you end up with a "frozen" computer, even though with patience # the test eventually succeeds (with a max line length of 256k). # Instead, let's just punt: use the minimum linelength reported by # all of the supported platforms: 8192 (on NT/2K/XP). lt_cv_sys_max_cmd_len=8192; ;; mint*) # On MiNT this can take a long time and run out of memory. lt_cv_sys_max_cmd_len=8192; ;; amigaos*) # On AmigaOS with pdksh, this test takes hours, literally. # So we just punt and use a minimum line length of 8192. lt_cv_sys_max_cmd_len=8192; ;; netbsd* | freebsd* | openbsd* | darwin* | dragonfly*) # This has been around since 386BSD, at least. Likely further. if test -x /sbin/sysctl; then lt_cv_sys_max_cmd_len=`/sbin/sysctl -n kern.argmax` elif test -x /usr/sbin/sysctl; then lt_cv_sys_max_cmd_len=`/usr/sbin/sysctl -n kern.argmax` else lt_cv_sys_max_cmd_len=65536 # usable default for all BSDs fi # And add a safety zone lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` ;; interix*) # We know the value 262144 and hardcode it with a safety zone (like BSD) lt_cv_sys_max_cmd_len=196608 ;; os2*) # The test takes a long time on OS/2. lt_cv_sys_max_cmd_len=8192 ;; osf*) # Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure # due to this test when exec_disable_arg_limit is 1 on Tru64. It is not # nice to cause kernel panics so lets avoid the loop below. # First set a reasonable default. lt_cv_sys_max_cmd_len=16384 # if test -x /sbin/sysconfig; then case `/sbin/sysconfig -q proc exec_disable_arg_limit` in *1*) lt_cv_sys_max_cmd_len=-1 ;; esac fi ;; sco3.2v5*) lt_cv_sys_max_cmd_len=102400 ;; sysv5* | sco5v6* | sysv4.2uw2*) kargmax=`grep ARG_MAX /etc/conf/cf.d/stune 2>/dev/null` if test -n "$kargmax"; then lt_cv_sys_max_cmd_len=`echo $kargmax | sed 's/.*[[ ]]//'` else lt_cv_sys_max_cmd_len=32768 fi ;; *) lt_cv_sys_max_cmd_len=`(getconf ARG_MAX) 2> /dev/null` if test -n "$lt_cv_sys_max_cmd_len"; then lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` else # Make teststring a little bigger before we do anything with it. # a 1K string should be a reasonable start. for i in 1 2 3 4 5 6 7 8 ; do teststring=$teststring$teststring done SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}} # If test is not a shell built-in, we'll probably end up computing a # maximum length that is only half of the actual maximum length, but # we can't tell. while { test "X"`env echo "$teststring$teststring" 2>/dev/null` \ = "X$teststring$teststring"; } >/dev/null 2>&1 && test $i != 17 # 1/2 MB should be enough do i=`expr $i + 1` teststring=$teststring$teststring done # Only check the string length outside the loop. lt_cv_sys_max_cmd_len=`expr "X$teststring" : ".*" 2>&1` teststring= # Add a significant safety factor because C++ compilers can tack on # massive amounts of additional arguments before passing them to the # linker. It appears as though 1/2 is a usable value. lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2` fi ;; esac ]) if test -n $lt_cv_sys_max_cmd_len ; then AC_MSG_RESULT($lt_cv_sys_max_cmd_len) else AC_MSG_RESULT(none) fi max_cmd_len=$lt_cv_sys_max_cmd_len _LT_DECL([], [max_cmd_len], [0], [What is the maximum length of a command?]) ])# LT_CMD_MAX_LEN # Old name: AU_ALIAS([AC_LIBTOOL_SYS_MAX_CMD_LEN], [LT_CMD_MAX_LEN]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_SYS_MAX_CMD_LEN], []) # _LT_HEADER_DLFCN # ---------------- m4_defun([_LT_HEADER_DLFCN], [AC_CHECK_HEADERS([dlfcn.h], [], [], [AC_INCLUDES_DEFAULT])dnl ])# _LT_HEADER_DLFCN # _LT_TRY_DLOPEN_SELF (ACTION-IF-TRUE, ACTION-IF-TRUE-W-USCORE, # ACTION-IF-FALSE, ACTION-IF-CROSS-COMPILING) # ---------------------------------------------------------------- m4_defun([_LT_TRY_DLOPEN_SELF], [m4_require([_LT_HEADER_DLFCN])dnl if test "$cross_compiling" = yes; then : [$4] else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext <<_LT_EOF [#line $LINENO "configure" #include "confdefs.h" #if HAVE_DLFCN_H #include #endif #include #ifdef RTLD_GLOBAL # define LT_DLGLOBAL RTLD_GLOBAL #else # ifdef DL_GLOBAL # define LT_DLGLOBAL DL_GLOBAL # else # define LT_DLGLOBAL 0 # endif #endif /* We may have to define LT_DLLAZY_OR_NOW in the command line if we find out it does not work in some platform. */ #ifndef LT_DLLAZY_OR_NOW # ifdef RTLD_LAZY # define LT_DLLAZY_OR_NOW RTLD_LAZY # else # ifdef DL_LAZY # define LT_DLLAZY_OR_NOW DL_LAZY # else # ifdef RTLD_NOW # define LT_DLLAZY_OR_NOW RTLD_NOW # else # ifdef DL_NOW # define LT_DLLAZY_OR_NOW DL_NOW # else # define LT_DLLAZY_OR_NOW 0 # endif # endif # endif # endif #endif /* When -fvisbility=hidden is used, assume the code has been annotated correspondingly for the symbols needed. */ #if defined(__GNUC__) && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3)) int fnord () __attribute__((visibility("default"))); #endif int fnord () { return 42; } int main () { void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); int status = $lt_dlunknown; if (self) { if (dlsym (self,"fnord")) status = $lt_dlno_uscore; else { if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; else puts (dlerror ()); } /* dlclose (self); */ } else puts (dlerror ()); return status; }] _LT_EOF if AC_TRY_EVAL(ac_link) && test -s conftest${ac_exeext} 2>/dev/null; then (./conftest; exit; ) >&AS_MESSAGE_LOG_FD 2>/dev/null lt_status=$? case x$lt_status in x$lt_dlno_uscore) $1 ;; x$lt_dlneed_uscore) $2 ;; x$lt_dlunknown|x*) $3 ;; esac else : # compilation failed $3 fi fi rm -fr conftest* ])# _LT_TRY_DLOPEN_SELF # LT_SYS_DLOPEN_SELF # ------------------ AC_DEFUN([LT_SYS_DLOPEN_SELF], [m4_require([_LT_HEADER_DLFCN])dnl if test "x$enable_dlopen" != xyes; then enable_dlopen=unknown enable_dlopen_self=unknown enable_dlopen_self_static=unknown else lt_cv_dlopen=no lt_cv_dlopen_libs= case $host_os in beos*) lt_cv_dlopen="load_add_on" lt_cv_dlopen_libs= lt_cv_dlopen_self=yes ;; mingw* | pw32* | cegcc*) lt_cv_dlopen="LoadLibrary" lt_cv_dlopen_libs= ;; cygwin*) lt_cv_dlopen="dlopen" lt_cv_dlopen_libs= ;; darwin*) # if libdl is installed we need to link against it AC_CHECK_LIB([dl], [dlopen], [lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl"],[ lt_cv_dlopen="dyld" lt_cv_dlopen_libs= lt_cv_dlopen_self=yes ]) ;; *) AC_CHECK_FUNC([shl_load], [lt_cv_dlopen="shl_load"], [AC_CHECK_LIB([dld], [shl_load], [lt_cv_dlopen="shl_load" lt_cv_dlopen_libs="-ldld"], [AC_CHECK_FUNC([dlopen], [lt_cv_dlopen="dlopen"], [AC_CHECK_LIB([dl], [dlopen], [lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl"], [AC_CHECK_LIB([svld], [dlopen], [lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-lsvld"], [AC_CHECK_LIB([dld], [dld_link], [lt_cv_dlopen="dld_link" lt_cv_dlopen_libs="-ldld"]) ]) ]) ]) ]) ]) ;; esac if test "x$lt_cv_dlopen" != xno; then enable_dlopen=yes else enable_dlopen=no fi case $lt_cv_dlopen in dlopen) save_CPPFLAGS="$CPPFLAGS" test "x$ac_cv_header_dlfcn_h" = xyes && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H" save_LDFLAGS="$LDFLAGS" wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\" save_LIBS="$LIBS" LIBS="$lt_cv_dlopen_libs $LIBS" AC_CACHE_CHECK([whether a program can dlopen itself], lt_cv_dlopen_self, [dnl _LT_TRY_DLOPEN_SELF( lt_cv_dlopen_self=yes, lt_cv_dlopen_self=yes, lt_cv_dlopen_self=no, lt_cv_dlopen_self=cross) ]) if test "x$lt_cv_dlopen_self" = xyes; then wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $lt_prog_compiler_static\" AC_CACHE_CHECK([whether a statically linked program can dlopen itself], lt_cv_dlopen_self_static, [dnl _LT_TRY_DLOPEN_SELF( lt_cv_dlopen_self_static=yes, lt_cv_dlopen_self_static=yes, lt_cv_dlopen_self_static=no, lt_cv_dlopen_self_static=cross) ]) fi CPPFLAGS="$save_CPPFLAGS" LDFLAGS="$save_LDFLAGS" LIBS="$save_LIBS" ;; esac case $lt_cv_dlopen_self in yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;; *) enable_dlopen_self=unknown ;; esac case $lt_cv_dlopen_self_static in yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;; *) enable_dlopen_self_static=unknown ;; esac fi _LT_DECL([dlopen_support], [enable_dlopen], [0], [Whether dlopen is supported]) _LT_DECL([dlopen_self], [enable_dlopen_self], [0], [Whether dlopen of programs is supported]) _LT_DECL([dlopen_self_static], [enable_dlopen_self_static], [0], [Whether dlopen of statically linked programs is supported]) ])# LT_SYS_DLOPEN_SELF # Old name: AU_ALIAS([AC_LIBTOOL_DLOPEN_SELF], [LT_SYS_DLOPEN_SELF]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_DLOPEN_SELF], []) # _LT_COMPILER_C_O([TAGNAME]) # --------------------------- # Check to see if options -c and -o are simultaneously supported by compiler. # This macro does not hard code the compiler like AC_PROG_CC_C_O. m4_defun([_LT_COMPILER_C_O], [m4_require([_LT_DECL_SED])dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_TAG_COMPILER])dnl AC_CACHE_CHECK([if $compiler supports -c -o file.$ac_objext], [_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)], [_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=no $RM -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [[^ ]]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&AS_MESSAGE_LOG_FD) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&AS_MESSAGE_LOG_FD echo "$as_me:$LINENO: \$? = $ac_status" >&AS_MESSAGE_LOG_FD if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then _LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=yes fi fi chmod u+w . 2>&AS_MESSAGE_LOG_FD $RM conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files $RM out/* && rmdir out cd .. $RM -r conftest $RM conftest* ]) _LT_TAGDECL([compiler_c_o], [lt_cv_prog_compiler_c_o], [1], [Does compiler simultaneously support -c and -o options?]) ])# _LT_COMPILER_C_O # _LT_COMPILER_FILE_LOCKS([TAGNAME]) # ---------------------------------- # Check to see if we can do hard links to lock some files if needed m4_defun([_LT_COMPILER_FILE_LOCKS], [m4_require([_LT_ENABLE_LOCK])dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl _LT_COMPILER_C_O([$1]) hard_links="nottested" if test "$_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)" = no && test "$need_locks" != no; then # do not overwrite the value of need_locks provided by the user AC_MSG_CHECKING([if we can lock with hard links]) hard_links=yes $RM conftest* ln conftest.a conftest.b 2>/dev/null && hard_links=no touch conftest.a ln conftest.a conftest.b 2>&5 || hard_links=no ln conftest.a conftest.b 2>/dev/null && hard_links=no AC_MSG_RESULT([$hard_links]) if test "$hard_links" = no; then AC_MSG_WARN([`$CC' does not support `-c -o', so `make -j' may be unsafe]) need_locks=warn fi else need_locks=no fi _LT_DECL([], [need_locks], [1], [Must we lock files when doing compilation?]) ])# _LT_COMPILER_FILE_LOCKS # _LT_CHECK_OBJDIR # ---------------- m4_defun([_LT_CHECK_OBJDIR], [AC_CACHE_CHECK([for objdir], [lt_cv_objdir], [rm -f .libs 2>/dev/null mkdir .libs 2>/dev/null if test -d .libs; then lt_cv_objdir=.libs else # MS-DOS does not allow filenames that begin with a dot. lt_cv_objdir=_libs fi rmdir .libs 2>/dev/null]) objdir=$lt_cv_objdir _LT_DECL([], [objdir], [0], [The name of the directory that contains temporary libtool files])dnl m4_pattern_allow([LT_OBJDIR])dnl AC_DEFINE_UNQUOTED(LT_OBJDIR, "$lt_cv_objdir/", [Define to the sub-directory in which libtool stores uninstalled libraries.]) ])# _LT_CHECK_OBJDIR # _LT_LINKER_HARDCODE_LIBPATH([TAGNAME]) # -------------------------------------- # Check hardcoding attributes. m4_defun([_LT_LINKER_HARDCODE_LIBPATH], [AC_MSG_CHECKING([how to hardcode library paths into programs]) _LT_TAGVAR(hardcode_action, $1)= if test -n "$_LT_TAGVAR(hardcode_libdir_flag_spec, $1)" || test -n "$_LT_TAGVAR(runpath_var, $1)" || test "X$_LT_TAGVAR(hardcode_automatic, $1)" = "Xyes" ; then # We can hardcode non-existent directories. if test "$_LT_TAGVAR(hardcode_direct, $1)" != no && # If the only mechanism to avoid hardcoding is shlibpath_var, we # have to relink, otherwise we might link with an installed library # when we should be linking with a yet-to-be-installed one ## test "$_LT_TAGVAR(hardcode_shlibpath_var, $1)" != no && test "$_LT_TAGVAR(hardcode_minus_L, $1)" != no; then # Linking always hardcodes the temporary library directory. _LT_TAGVAR(hardcode_action, $1)=relink else # We can link without hardcoding, and we can hardcode nonexisting dirs. _LT_TAGVAR(hardcode_action, $1)=immediate fi else # We cannot hardcode anything, or else we can only hardcode existing # directories. _LT_TAGVAR(hardcode_action, $1)=unsupported fi AC_MSG_RESULT([$_LT_TAGVAR(hardcode_action, $1)]) if test "$_LT_TAGVAR(hardcode_action, $1)" = relink || test "$_LT_TAGVAR(inherit_rpath, $1)" = yes; then # Fast installation is not supported enable_fast_install=no elif test "$shlibpath_overrides_runpath" = yes || test "$enable_shared" = no; then # Fast installation is not necessary enable_fast_install=needless fi _LT_TAGDECL([], [hardcode_action], [0], [How to hardcode a shared library path into an executable]) ])# _LT_LINKER_HARDCODE_LIBPATH # _LT_CMD_STRIPLIB # ---------------- m4_defun([_LT_CMD_STRIPLIB], [m4_require([_LT_DECL_EGREP]) striplib= old_striplib= AC_MSG_CHECKING([whether stripping libraries is possible]) if test -n "$STRIP" && $STRIP -V 2>&1 | $GREP "GNU strip" >/dev/null; then test -z "$old_striplib" && old_striplib="$STRIP --strip-debug" test -z "$striplib" && striplib="$STRIP --strip-unneeded" AC_MSG_RESULT([yes]) else # FIXME - insert some real tests, host_os isn't really good enough case $host_os in darwin*) if test -n "$STRIP" ; then striplib="$STRIP -x" old_striplib="$STRIP -S" AC_MSG_RESULT([yes]) else AC_MSG_RESULT([no]) fi ;; *) AC_MSG_RESULT([no]) ;; esac fi _LT_DECL([], [old_striplib], [1], [Commands to strip libraries]) _LT_DECL([], [striplib], [1]) ])# _LT_CMD_STRIPLIB # _LT_SYS_DYNAMIC_LINKER([TAG]) # ----------------------------- # PORTME Fill in your ld.so characteristics m4_defun([_LT_SYS_DYNAMIC_LINKER], [AC_REQUIRE([AC_CANONICAL_HOST])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_OBJDUMP])dnl m4_require([_LT_DECL_SED])dnl m4_require([_LT_CHECK_SHELL_FEATURES])dnl AC_MSG_CHECKING([dynamic linker characteristics]) m4_if([$1], [], [ if test "$GCC" = yes; then case $host_os in darwin*) lt_awk_arg="/^libraries:/,/LR/" ;; *) lt_awk_arg="/^libraries:/" ;; esac case $host_os in mingw* | cegcc*) lt_sed_strip_eq="s,=\([[A-Za-z]]:\),\1,g" ;; *) lt_sed_strip_eq="s,=/,/,g" ;; esac lt_search_path_spec=`$CC -print-search-dirs | awk $lt_awk_arg | $SED -e "s/^libraries://" -e $lt_sed_strip_eq` case $lt_search_path_spec in *\;*) # if the path contains ";" then we assume it to be the separator # otherwise default to the standard path separator (i.e. ":") - it is # assumed that no part of a normal pathname contains ";" but that should # okay in the real world where ";" in dirpaths is itself problematic. lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED 's/;/ /g'` ;; *) lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED "s/$PATH_SEPARATOR/ /g"` ;; esac # Ok, now we have the path, separated by spaces, we can step through it # and add multilib dir if necessary. lt_tmp_lt_search_path_spec= lt_multi_os_dir=`$CC $CPPFLAGS $CFLAGS $LDFLAGS -print-multi-os-directory 2>/dev/null` for lt_sys_path in $lt_search_path_spec; do if test -d "$lt_sys_path/$lt_multi_os_dir"; then lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path/$lt_multi_os_dir" else test -d "$lt_sys_path" && \ lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path" fi done lt_search_path_spec=`$ECHO "$lt_tmp_lt_search_path_spec" | awk ' BEGIN {RS=" "; FS="/|\n";} { lt_foo=""; lt_count=0; for (lt_i = NF; lt_i > 0; lt_i--) { if ($lt_i != "" && $lt_i != ".") { if ($lt_i == "..") { lt_count++; } else { if (lt_count == 0) { lt_foo="/" $lt_i lt_foo; } else { lt_count--; } } } } if (lt_foo != "") { lt_freq[[lt_foo]]++; } if (lt_freq[[lt_foo]] == 1) { print lt_foo; } }'` # AWK program above erroneously prepends '/' to C:/dos/paths # for these hosts. case $host_os in mingw* | cegcc*) lt_search_path_spec=`$ECHO "$lt_search_path_spec" |\ $SED 's,/\([[A-Za-z]]:\),\1,g'` ;; esac sys_lib_search_path_spec=`$ECHO "$lt_search_path_spec" | $lt_NL2SP` else sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" fi]) library_names_spec= libname_spec='lib$name' soname_spec= shrext_cmds=".so" postinstall_cmds= postuninstall_cmds= finish_cmds= finish_eval= shlibpath_var= shlibpath_overrides_runpath=unknown version_type=none dynamic_linker="$host_os ld.so" sys_lib_dlsearch_path_spec="/lib /usr/lib" need_lib_prefix=unknown hardcode_into_libs=no # when you set need_version to no, make sure it does not cause -set_version # flags to be left without arguments need_version=unknown case $host_os in aix3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a' shlibpath_var=LIBPATH # AIX 3 has no versioning support, so we append a major version to the name. soname_spec='${libname}${release}${shared_ext}$major' ;; aix[[4-9]]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no hardcode_into_libs=yes if test "$host_cpu" = ia64; then # AIX 5 supports IA64 library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH else # With GCC up to 2.95.x, collect2 would create an import file # for dependence libraries. The import file would start with # the line `#! .'. This would cause the generated library to # depend on `.', always an invalid library. This was fixed in # development snapshots of GCC prior to 3.0. case $host_os in aix4 | aix4.[[01]] | aix4.[[01]].*) if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' echo ' yes ' echo '#endif'; } | ${CC} -E - | $GREP yes > /dev/null; then : else can_build_shared=no fi ;; esac # AIX (on Power*) has no versioning support, so currently we can not hardcode correct # soname into executable. Probably we can add versioning support to # collect2, so additional links can be useful in future. if test "$aix_use_runtimelinking" = yes; then # If using run time linking (on AIX 4.2 or later) use lib.so # instead of lib.a to let people know that these are not # typical AIX shared libraries. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' else # We preserve .a as extension for shared libraries through AIX4.2 # and later when we are not doing run time linking. library_names_spec='${libname}${release}.a $libname.a' soname_spec='${libname}${release}${shared_ext}$major' fi shlibpath_var=LIBPATH fi ;; amigaos*) case $host_cpu in powerpc) # Since July 2007 AmigaOS4 officially supports .so libraries. # When compiling the executable, add -use-dynld -Lsobjs: to the compileline. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' ;; m68k) library_names_spec='$libname.ixlibrary $libname.a' # Create ${libname}_ixlibrary.a entries in /sys/libs. finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([[^/]]*\)\.ixlibrary$%\1%'\''`; test $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' ;; esac ;; beos*) library_names_spec='${libname}${shared_ext}' dynamic_linker="$host_os ld.so" shlibpath_var=LIBRARY_PATH ;; bsdi[[45]]*) version_type=linux # correct to gnu/linux during the next big refactor need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" # the default ld.so.conf also contains /usr/contrib/lib and # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow # libtool to hard-code these into programs ;; cygwin* | mingw* | pw32* | cegcc*) version_type=windows shrext_cmds=".dll" need_version=no need_lib_prefix=no case $GCC,$cc_basename in yes,*) # gcc library_names_spec='$libname.dll.a' # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \${file}`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname~ chmod a+x \$dldir/$dlname~ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then eval '\''$striplib \$dldir/$dlname'\'' || exit \$?; fi' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes case $host_os in cygwin*) # Cygwin DLLs use 'cyg' prefix rather than 'lib' soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}' m4_if([$1], [],[ sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/lib/w32api"]) ;; mingw* | cegcc*) # MinGW DLLs use traditional 'lib' prefix soname_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}' ;; pw32*) # pw32 DLLs use 'pw' prefix rather than 'lib' library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}' ;; esac dynamic_linker='Win32 ld.exe' ;; *,cl*) # Native MSVC libname_spec='$name' soname_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}' library_names_spec='${libname}.dll.lib' case $build_os in mingw*) sys_lib_search_path_spec= lt_save_ifs=$IFS IFS=';' for lt_path in $LIB do IFS=$lt_save_ifs # Let DOS variable expansion print the short 8.3 style file name. lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"` sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path" done IFS=$lt_save_ifs # Convert to MSYS style. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([[a-zA-Z]]\\):| /\\1|g' -e 's|^ ||'` ;; cygwin*) # Convert to unix form, then to dos form, then back to unix form # but this time dos style (no spaces!) so that the unix form looks # like /cygdrive/c/PROGRA~1:/cygdr... sys_lib_search_path_spec=`cygpath --path --unix "$LIB"` sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null` sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` ;; *) sys_lib_search_path_spec="$LIB" if $ECHO "$sys_lib_search_path_spec" | [$GREP ';[c-zC-Z]:/' >/dev/null]; then # It is most probably a Windows format PATH. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` else sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` fi # FIXME: find the short name or the path components, as spaces are # common. (e.g. "Program Files" -> "PROGRA~1") ;; esac # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \${file}`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes dynamic_linker='Win32 link.exe' ;; *) # Assume MSVC wrapper library_names_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext} $libname.lib' dynamic_linker='Win32 ld.exe' ;; esac # FIXME: first we should search . and the directory the executable is in shlibpath_var=PATH ;; darwin* | rhapsody*) dynamic_linker="$host_os dyld" version_type=darwin need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${major}$shared_ext ${libname}$shared_ext' soname_spec='${libname}${release}${major}$shared_ext' shlibpath_overrides_runpath=yes shlibpath_var=DYLD_LIBRARY_PATH shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`' m4_if([$1], [],[ sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/local/lib"]) sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' ;; dgux*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; freebsd* | dragonfly*) # DragonFly does not have aout. When/if they implement a new # versioning mechanism, adjust this. if test -x /usr/bin/objformat; then objformat=`/usr/bin/objformat` else case $host_os in freebsd[[23]].*) objformat=aout ;; *) objformat=elf ;; esac fi version_type=freebsd-$objformat case $version_type in freebsd-elf*) library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' need_version=no need_lib_prefix=no ;; freebsd-*) library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix' need_version=yes ;; esac shlibpath_var=LD_LIBRARY_PATH case $host_os in freebsd2.*) shlibpath_overrides_runpath=yes ;; freebsd3.[[01]]* | freebsdelf3.[[01]]*) shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; freebsd3.[[2-9]]* | freebsdelf3.[[2-9]]* | \ freebsd4.[[0-5]] | freebsdelf4.[[0-5]] | freebsd4.1.1 | freebsdelf4.1.1) shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; *) # from 4.6 on, and DragonFly shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; esac ;; gnu*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; haiku*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no dynamic_linker="$host_os runtime_loader" library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LIBRARY_PATH shlibpath_overrides_runpath=yes sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib' hardcode_into_libs=yes ;; hpux9* | hpux10* | hpux11*) # Give a soname corresponding to the major version so that dld.sl refuses to # link against other versions. version_type=sunos need_lib_prefix=no need_version=no case $host_cpu in ia64*) shrext_cmds='.so' hardcode_into_libs=yes dynamic_linker="$host_os dld.so" shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' if test "X$HPUX_IA64_MODE" = X32; then sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" else sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" fi sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; hppa*64*) shrext_cmds='.sl' hardcode_into_libs=yes dynamic_linker="$host_os dld.sl" shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; *) shrext_cmds='.sl' dynamic_linker="$host_os dld.sl" shlibpath_var=SHLIB_PATH shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' ;; esac # HP-UX runs *really* slowly unless shared libraries are mode 555, ... postinstall_cmds='chmod 555 $lib' # or fails outright, so override atomically: install_override_mode=555 ;; interix[[3-9]]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; irix5* | irix6* | nonstopux*) case $host_os in nonstopux*) version_type=nonstopux ;; *) if test "$lt_cv_prog_gnu_ld" = yes; then version_type=linux # correct to gnu/linux during the next big refactor else version_type=irix fi ;; esac need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}' case $host_os in irix5* | nonstopux*) libsuff= shlibsuff= ;; *) case $LD in # libtool.m4 will add one of these switches to LD *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") libsuff= shlibsuff= libmagic=32-bit;; *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") libsuff=32 shlibsuff=N32 libmagic=N32;; *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") libsuff=64 shlibsuff=64 libmagic=64-bit;; *) libsuff= shlibsuff= libmagic=never-match;; esac ;; esac shlibpath_var=LD_LIBRARY${shlibsuff}_PATH shlibpath_overrides_runpath=no sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" hardcode_into_libs=yes ;; # No shared lib support for Linux oldld, aout, or coff. linux*oldld* | linux*aout* | linux*coff*) dynamic_linker=no ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no # Some binutils ld are patched to set DT_RUNPATH AC_CACHE_VAL([lt_cv_shlibpath_overrides_runpath], [lt_cv_shlibpath_overrides_runpath=no save_LDFLAGS=$LDFLAGS save_libdir=$libdir eval "libdir=/foo; wl=\"$_LT_TAGVAR(lt_prog_compiler_wl, $1)\"; \ LDFLAGS=\"\$LDFLAGS $_LT_TAGVAR(hardcode_libdir_flag_spec, $1)\"" AC_LINK_IFELSE([AC_LANG_PROGRAM([],[])], [AS_IF([ ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null], [lt_cv_shlibpath_overrides_runpath=yes])]) LDFLAGS=$save_LDFLAGS libdir=$save_libdir ]) shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath # This implies no fast_install, which is unacceptable. # Some rework will be needed to allow for fast_install # before this can be enabled. hardcode_into_libs=yes # Add ABI-specific directories to the system library path. sys_lib_dlsearch_path_spec="/lib64 /usr/lib64 /lib /usr/lib" # Append ld.so.conf contents to the search path if test -f /etc/ld.so.conf; then lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \[$]2)); skip = 1; } { if (!skip) print \[$]0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '` sys_lib_dlsearch_path_spec="$sys_lib_dlsearch_path_spec $lt_ld_extra" fi # We used to test for /lib/ld.so.1 and disable shared libraries on # powerpc, because MkLinux only supported shared libraries with the # GNU dynamic linker. Since this was broken with cross compilers, # most powerpc-linux boxes support dynamic linking these days and # people can always --disable-shared, the test was removed, and we # assume the GNU/Linux dynamic linker is in use. dynamic_linker='GNU/Linux ld.so' ;; netbsd*) version_type=sunos need_lib_prefix=no need_version=no if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' dynamic_linker='NetBSD (a.out) ld.so' else library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='NetBSD ld.elf_so' fi shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; newsos6) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; *nto* | *qnx*) version_type=qnx need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes dynamic_linker='ldqnx.so' ;; openbsd*) version_type=sunos sys_lib_dlsearch_path_spec="/usr/lib" need_lib_prefix=no # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. case $host_os in openbsd3.3 | openbsd3.3.*) need_version=yes ;; *) need_version=no ;; esac library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' shlibpath_var=LD_LIBRARY_PATH if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then case $host_os in openbsd2.[[89]] | openbsd2.[[89]].*) shlibpath_overrides_runpath=no ;; *) shlibpath_overrides_runpath=yes ;; esac else shlibpath_overrides_runpath=yes fi ;; os2*) libname_spec='$name' shrext_cmds=".dll" need_lib_prefix=no library_names_spec='$libname${shared_ext} $libname.a' dynamic_linker='OS/2 ld.exe' shlibpath_var=LIBPATH ;; osf3* | osf4* | osf5*) version_type=osf need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec" ;; rdos*) dynamic_linker=no ;; solaris*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes # ldd complains unless libraries are executable postinstall_cmds='chmod +x $lib' ;; sunos4*) version_type=sunos library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes if test "$with_gnu_ld" = yes; then need_lib_prefix=no fi need_version=yes ;; sysv4 | sysv4.3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH case $host_vendor in sni) shlibpath_overrides_runpath=no need_lib_prefix=no runpath_var=LD_RUN_PATH ;; siemens) need_lib_prefix=no ;; motorola) need_lib_prefix=no need_version=no shlibpath_overrides_runpath=no sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' ;; esac ;; sysv4*MP*) if test -d /usr/nec ;then version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}' soname_spec='$libname${shared_ext}.$major' shlibpath_var=LD_LIBRARY_PATH fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) version_type=freebsd-elf need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes if test "$with_gnu_ld" = yes; then sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib' else sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' case $host_os in sco3.2v5*) sys_lib_search_path_spec="$sys_lib_search_path_spec /lib" ;; esac fi sys_lib_dlsearch_path_spec='/usr/lib' ;; tpf*) # TPF is a cross-target only. Preferred cross-host = GNU/Linux. version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; uts4*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; *) dynamic_linker=no ;; esac AC_MSG_RESULT([$dynamic_linker]) test "$dynamic_linker" = no && can_build_shared=no variables_saved_for_relink="PATH $shlibpath_var $runpath_var" if test "$GCC" = yes; then variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" fi if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec" fi if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec" fi _LT_DECL([], [variables_saved_for_relink], [1], [Variables whose values should be saved in libtool wrapper scripts and restored at link time]) _LT_DECL([], [need_lib_prefix], [0], [Do we need the "lib" prefix for modules?]) _LT_DECL([], [need_version], [0], [Do we need a version for libraries?]) _LT_DECL([], [version_type], [0], [Library versioning type]) _LT_DECL([], [runpath_var], [0], [Shared library runtime path variable]) _LT_DECL([], [shlibpath_var], [0],[Shared library path variable]) _LT_DECL([], [shlibpath_overrides_runpath], [0], [Is shlibpath searched before the hard-coded library search path?]) _LT_DECL([], [libname_spec], [1], [Format of library name prefix]) _LT_DECL([], [library_names_spec], [1], [[List of archive names. First name is the real one, the rest are links. The last name is the one that the linker finds with -lNAME]]) _LT_DECL([], [soname_spec], [1], [[The coded name of the library, if different from the real name]]) _LT_DECL([], [install_override_mode], [1], [Permission mode override for installation of shared libraries]) _LT_DECL([], [postinstall_cmds], [2], [Command to use after installation of a shared archive]) _LT_DECL([], [postuninstall_cmds], [2], [Command to use after uninstallation of a shared archive]) _LT_DECL([], [finish_cmds], [2], [Commands used to finish a libtool library installation in a directory]) _LT_DECL([], [finish_eval], [1], [[As "finish_cmds", except a single script fragment to be evaled but not shown]]) _LT_DECL([], [hardcode_into_libs], [0], [Whether we should hardcode library paths into libraries]) _LT_DECL([], [sys_lib_search_path_spec], [2], [Compile-time system search path for libraries]) _LT_DECL([], [sys_lib_dlsearch_path_spec], [2], [Run-time system search path for libraries]) ])# _LT_SYS_DYNAMIC_LINKER # _LT_PATH_TOOL_PREFIX(TOOL) # -------------------------- # find a file program which can recognize shared library AC_DEFUN([_LT_PATH_TOOL_PREFIX], [m4_require([_LT_DECL_EGREP])dnl AC_MSG_CHECKING([for $1]) AC_CACHE_VAL(lt_cv_path_MAGIC_CMD, [case $MAGIC_CMD in [[\\/*] | ?:[\\/]*]) lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path. ;; *) lt_save_MAGIC_CMD="$MAGIC_CMD" lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR dnl $ac_dummy forces splitting on constant user-supplied paths. dnl POSIX.2 word splitting is done only on the output of word expansions, dnl not every word. This closes a longstanding sh security hole. ac_dummy="m4_if([$2], , $PATH, [$2])" for ac_dir in $ac_dummy; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$1; then lt_cv_path_MAGIC_CMD="$ac_dir/$1" if test -n "$file_magic_test_file"; then case $deplibs_check_method in "file_magic "*) file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"` MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | $EGREP "$file_magic_regex" > /dev/null; then : else cat <<_LT_EOF 1>&2 *** Warning: the command libtool uses to detect shared libraries, *** $file_magic_cmd, produces output that libtool cannot recognize. *** The result is that libtool may fail to recognize shared libraries *** as such. This will affect the creation of libtool libraries that *** depend on shared libraries, but programs linked with such libtool *** libraries will work regardless of this problem. Nevertheless, you *** may want to report the problem to your system manager and/or to *** bug-libtool@gnu.org _LT_EOF fi ;; esac fi break fi done IFS="$lt_save_ifs" MAGIC_CMD="$lt_save_MAGIC_CMD" ;; esac]) MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if test -n "$MAGIC_CMD"; then AC_MSG_RESULT($MAGIC_CMD) else AC_MSG_RESULT(no) fi _LT_DECL([], [MAGIC_CMD], [0], [Used to examine libraries when file_magic_cmd begins with "file"])dnl ])# _LT_PATH_TOOL_PREFIX # Old name: AU_ALIAS([AC_PATH_TOOL_PREFIX], [_LT_PATH_TOOL_PREFIX]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_PATH_TOOL_PREFIX], []) # _LT_PATH_MAGIC # -------------- # find a file program which can recognize a shared library m4_defun([_LT_PATH_MAGIC], [_LT_PATH_TOOL_PREFIX(${ac_tool_prefix}file, /usr/bin$PATH_SEPARATOR$PATH) if test -z "$lt_cv_path_MAGIC_CMD"; then if test -n "$ac_tool_prefix"; then _LT_PATH_TOOL_PREFIX(file, /usr/bin$PATH_SEPARATOR$PATH) else MAGIC_CMD=: fi fi ])# _LT_PATH_MAGIC # LT_PATH_LD # ---------- # find the pathname to the GNU or non-GNU linker AC_DEFUN([LT_PATH_LD], [AC_REQUIRE([AC_PROG_CC])dnl AC_REQUIRE([AC_CANONICAL_HOST])dnl AC_REQUIRE([AC_CANONICAL_BUILD])dnl m4_require([_LT_DECL_SED])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_PROG_ECHO_BACKSLASH])dnl AC_ARG_WITH([gnu-ld], [AS_HELP_STRING([--with-gnu-ld], [assume the C compiler uses GNU ld @<:@default=no@:>@])], [test "$withval" = no || with_gnu_ld=yes], [with_gnu_ld=no])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 $CC]) 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. [[\\/]]* | ?:[[\\/]]*) re_direlt='/[[^/]][[^/]]*/\.\./' # Canonicalize the pathname 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. with_gnu_ld=unknown ;; esac elif test "$with_gnu_ld" = yes; then AC_MSG_CHECKING([for GNU ld]) else AC_MSG_CHECKING([for non-GNU ld]) fi AC_CACHE_VAL(lt_cv_path_LD, [if test -z "$LD"; then lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR for ac_dir in $PATH; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then lt_cv_path_LD="$ac_dir/$ac_prog" # Check to see if the program is GNU ld. I'd rather use --version, # but apparently some variants of GNU ld only accept -v. # Break only if it was the GNU/non-GNU ld that we prefer. case `"$lt_cv_path_LD" -v 2>&1 &1 /dev/null 2>&1; then lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' lt_cv_file_magic_cmd='func_win32_libid' else # Keep this pattern in sync with the one in func_win32_libid. lt_cv_deplibs_check_method='file_magic file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)' lt_cv_file_magic_cmd='$OBJDUMP -f' fi ;; cegcc*) # use the weaker test based on 'objdump'. See mingw*. lt_cv_deplibs_check_method='file_magic file format pe-arm-.*little(.*architecture: arm)?' lt_cv_file_magic_cmd='$OBJDUMP -f' ;; darwin* | rhapsody*) lt_cv_deplibs_check_method=pass_all ;; freebsd* | dragonfly*) if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then case $host_cpu in i*86 ) # Not sure whether the presence of OpenBSD here was a mistake. # Let's accept both of them until this is cleared up. lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD|DragonFly)/i[[3-9]]86 (compact )?demand paged shared library' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*` ;; esac else lt_cv_deplibs_check_method=pass_all fi ;; gnu*) lt_cv_deplibs_check_method=pass_all ;; haiku*) lt_cv_deplibs_check_method=pass_all ;; hpux10.20* | hpux11*) lt_cv_file_magic_cmd=/usr/bin/file case $host_cpu in ia64*) lt_cv_deplibs_check_method='file_magic (s[[0-9]][[0-9]][[0-9]]|ELF-[[0-9]][[0-9]]) shared object file - IA64' lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so ;; hppa*64*) [lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF[ -][0-9][0-9])(-bit)?( [LM]SB)? shared object( file)?[, -]* PA-RISC [0-9]\.[0-9]'] lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl ;; *) lt_cv_deplibs_check_method='file_magic (s[[0-9]][[0-9]][[0-9]]|PA-RISC[[0-9]]\.[[0-9]]) shared library' lt_cv_file_magic_test_file=/usr/lib/libc.sl ;; esac ;; interix[[3-9]]*) # PIC code is broken on Interix 3.x, that's why |\.a not |_pic\.a here lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so|\.a)$' ;; irix5* | irix6* | nonstopux*) case $LD in *-32|*"-32 ") libmagic=32-bit;; *-n32|*"-n32 ") libmagic=N32;; *-64|*"-64 ") libmagic=64-bit;; *) libmagic=never-match;; esac lt_cv_deplibs_check_method=pass_all ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu) lt_cv_deplibs_check_method=pass_all ;; netbsd*) if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so|_pic\.a)$' fi ;; newos6*) lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (executable|dynamic lib)' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=/usr/lib/libnls.so ;; *nto* | *qnx*) lt_cv_deplibs_check_method=pass_all ;; openbsd*) if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|\.so|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|_pic\.a)$' fi ;; osf3* | osf4* | osf5*) lt_cv_deplibs_check_method=pass_all ;; rdos*) lt_cv_deplibs_check_method=pass_all ;; solaris*) lt_cv_deplibs_check_method=pass_all ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) lt_cv_deplibs_check_method=pass_all ;; sysv4 | sysv4.3*) case $host_vendor in motorola) lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (shared object|dynamic lib) M[[0-9]][[0-9]]* Version [[0-9]]' lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*` ;; ncr) lt_cv_deplibs_check_method=pass_all ;; sequent) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[LM]]SB (shared object|dynamic lib )' ;; sni) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method="file_magic ELF [[0-9]][[0-9]]*-bit [[LM]]SB dynamic lib" lt_cv_file_magic_test_file=/lib/libc.so ;; siemens) lt_cv_deplibs_check_method=pass_all ;; pc) lt_cv_deplibs_check_method=pass_all ;; esac ;; tpf*) lt_cv_deplibs_check_method=pass_all ;; esac ]) file_magic_glob= want_nocaseglob=no if test "$build" = "$host"; then case $host_os in mingw* | pw32*) if ( shopt | grep nocaseglob ) >/dev/null 2>&1; then want_nocaseglob=yes else file_magic_glob=`echo aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ | $SED -e "s/\(..\)/s\/[[\1]]\/[[\1]]\/g;/g"` fi ;; esac fi file_magic_cmd=$lt_cv_file_magic_cmd deplibs_check_method=$lt_cv_deplibs_check_method test -z "$deplibs_check_method" && deplibs_check_method=unknown _LT_DECL([], [deplibs_check_method], [1], [Method to check whether dependent libraries are shared objects]) _LT_DECL([], [file_magic_cmd], [1], [Command to use when deplibs_check_method = "file_magic"]) _LT_DECL([], [file_magic_glob], [1], [How to find potential files when deplibs_check_method = "file_magic"]) _LT_DECL([], [want_nocaseglob], [1], [Find potential files using nocaseglob when deplibs_check_method = "file_magic"]) ])# _LT_CHECK_MAGIC_METHOD # LT_PATH_NM # ---------- # find the pathname to a BSD- or MS-compatible name lister AC_DEFUN([LT_PATH_NM], [AC_REQUIRE([AC_PROG_CC])dnl AC_CACHE_CHECK([for BSD- or MS-compatible name lister (nm)], lt_cv_path_NM, [if test -n "$NM"; then # Let the user override the test. lt_cv_path_NM="$NM" else lt_nm_to_check="${ac_tool_prefix}nm" if test -n "$ac_tool_prefix" && test "$build" = "$host"; then lt_nm_to_check="$lt_nm_to_check nm" fi for lt_tmp_nm in $lt_nm_to_check; do lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR for ac_dir in $PATH /usr/ccs/bin/elf /usr/ccs/bin /usr/ucb /bin; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. tmp_nm="$ac_dir/$lt_tmp_nm" if test -f "$tmp_nm" || test -f "$tmp_nm$ac_exeext" ; then # Check to see if the nm accepts a BSD-compat flag. # Adding the `sed 1q' prevents false positives on HP-UX, which says: # nm: unknown option "B" ignored # Tru64's nm complains that /dev/null is an invalid object file case `"$tmp_nm" -B /dev/null 2>&1 | sed '1q'` in */dev/null* | *'Invalid file or object type'*) lt_cv_path_NM="$tmp_nm -B" break ;; *) case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in */dev/null*) lt_cv_path_NM="$tmp_nm -p" break ;; *) lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but continue # so that we can try to find one that supports BSD flags ;; esac ;; esac fi done IFS="$lt_save_ifs" done : ${lt_cv_path_NM=no} fi]) if test "$lt_cv_path_NM" != "no"; then NM="$lt_cv_path_NM" else # Didn't find any BSD compatible name lister, look for dumpbin. if test -n "$DUMPBIN"; then : # Let the user override the test. else AC_CHECK_TOOLS(DUMPBIN, [dumpbin "link -dump"], :) case `$DUMPBIN -symbols /dev/null 2>&1 | sed '1q'` in *COFF*) DUMPBIN="$DUMPBIN -symbols" ;; *) DUMPBIN=: ;; esac fi AC_SUBST([DUMPBIN]) if test "$DUMPBIN" != ":"; then NM="$DUMPBIN" fi fi test -z "$NM" && NM=nm AC_SUBST([NM]) _LT_DECL([], [NM], [1], [A BSD- or MS-compatible name lister])dnl AC_CACHE_CHECK([the name lister ($NM) interface], [lt_cv_nm_interface], [lt_cv_nm_interface="BSD nm" echo "int some_variable = 0;" > conftest.$ac_ext (eval echo "\"\$as_me:$LINENO: $ac_compile\"" >&AS_MESSAGE_LOG_FD) (eval "$ac_compile" 2>conftest.err) cat conftest.err >&AS_MESSAGE_LOG_FD (eval echo "\"\$as_me:$LINENO: $NM \\\"conftest.$ac_objext\\\"\"" >&AS_MESSAGE_LOG_FD) (eval "$NM \"conftest.$ac_objext\"" 2>conftest.err > conftest.out) cat conftest.err >&AS_MESSAGE_LOG_FD (eval echo "\"\$as_me:$LINENO: output\"" >&AS_MESSAGE_LOG_FD) cat conftest.out >&AS_MESSAGE_LOG_FD if $GREP 'External.*some_variable' conftest.out > /dev/null; then lt_cv_nm_interface="MS dumpbin" fi rm -f conftest*]) ])# LT_PATH_NM # Old names: AU_ALIAS([AM_PROG_NM], [LT_PATH_NM]) AU_ALIAS([AC_PROG_NM], [LT_PATH_NM]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AM_PROG_NM], []) dnl AC_DEFUN([AC_PROG_NM], []) # _LT_CHECK_SHAREDLIB_FROM_LINKLIB # -------------------------------- # how to determine the name of the shared library # associated with a specific link library. # -- PORTME fill in with the dynamic library characteristics m4_defun([_LT_CHECK_SHAREDLIB_FROM_LINKLIB], [m4_require([_LT_DECL_EGREP]) m4_require([_LT_DECL_OBJDUMP]) m4_require([_LT_DECL_DLLTOOL]) AC_CACHE_CHECK([how to associate runtime and link libraries], lt_cv_sharedlib_from_linklib_cmd, [lt_cv_sharedlib_from_linklib_cmd='unknown' case $host_os in cygwin* | mingw* | pw32* | cegcc*) # two different shell functions defined in ltmain.sh # decide which to use based on capabilities of $DLLTOOL case `$DLLTOOL --help 2>&1` in *--identify-strict*) lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib ;; *) lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib_fallback ;; esac ;; *) # fallback: assume linklib IS sharedlib lt_cv_sharedlib_from_linklib_cmd="$ECHO" ;; esac ]) sharedlib_from_linklib_cmd=$lt_cv_sharedlib_from_linklib_cmd test -z "$sharedlib_from_linklib_cmd" && sharedlib_from_linklib_cmd=$ECHO _LT_DECL([], [sharedlib_from_linklib_cmd], [1], [Command to associate shared and link libraries]) ])# _LT_CHECK_SHAREDLIB_FROM_LINKLIB # _LT_PATH_MANIFEST_TOOL # ---------------------- # locate the manifest tool m4_defun([_LT_PATH_MANIFEST_TOOL], [AC_CHECK_TOOL(MANIFEST_TOOL, mt, :) test -z "$MANIFEST_TOOL" && MANIFEST_TOOL=mt AC_CACHE_CHECK([if $MANIFEST_TOOL is a manifest tool], [lt_cv_path_mainfest_tool], [lt_cv_path_mainfest_tool=no echo "$as_me:$LINENO: $MANIFEST_TOOL '-?'" >&AS_MESSAGE_LOG_FD $MANIFEST_TOOL '-?' 2>conftest.err > conftest.out cat conftest.err >&AS_MESSAGE_LOG_FD if $GREP 'Manifest Tool' conftest.out > /dev/null; then lt_cv_path_mainfest_tool=yes fi rm -f conftest*]) if test "x$lt_cv_path_mainfest_tool" != xyes; then MANIFEST_TOOL=: fi _LT_DECL([], [MANIFEST_TOOL], [1], [Manifest tool])dnl ])# _LT_PATH_MANIFEST_TOOL # LT_LIB_M # -------- # check for math library AC_DEFUN([LT_LIB_M], [AC_REQUIRE([AC_CANONICAL_HOST])dnl LIBM= case $host in *-*-beos* | *-*-cegcc* | *-*-cygwin* | *-*-haiku* | *-*-pw32* | *-*-darwin*) # These system don't have libm, or don't need it ;; *-ncr-sysv4.3*) AC_CHECK_LIB(mw, _mwvalidcheckl, LIBM="-lmw") AC_CHECK_LIB(m, cos, LIBM="$LIBM -lm") ;; *) AC_CHECK_LIB(m, cos, LIBM="-lm") ;; esac AC_SUBST([LIBM]) ])# LT_LIB_M # Old name: AU_ALIAS([AC_CHECK_LIBM], [LT_LIB_M]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_CHECK_LIBM], []) # _LT_COMPILER_NO_RTTI([TAGNAME]) # ------------------------------- m4_defun([_LT_COMPILER_NO_RTTI], [m4_require([_LT_TAG_COMPILER])dnl _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)= if test "$GCC" = yes; then case $cc_basename in nvcc*) _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -Xcompiler -fno-builtin' ;; *) _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin' ;; esac _LT_COMPILER_OPTION([if $compiler supports -fno-rtti -fno-exceptions], lt_cv_prog_compiler_rtti_exceptions, [-fno-rtti -fno-exceptions], [], [_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)="$_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1) -fno-rtti -fno-exceptions"]) fi _LT_TAGDECL([no_builtin_flag], [lt_prog_compiler_no_builtin_flag], [1], [Compiler flag to turn off builtin functions]) ])# _LT_COMPILER_NO_RTTI # _LT_CMD_GLOBAL_SYMBOLS # ---------------------- m4_defun([_LT_CMD_GLOBAL_SYMBOLS], [AC_REQUIRE([AC_CANONICAL_HOST])dnl AC_REQUIRE([AC_PROG_CC])dnl AC_REQUIRE([AC_PROG_AWK])dnl AC_REQUIRE([LT_PATH_NM])dnl AC_REQUIRE([LT_PATH_LD])dnl m4_require([_LT_DECL_SED])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_TAG_COMPILER])dnl # Check for command to grab the raw symbol name followed by C symbol from nm. AC_MSG_CHECKING([command to parse $NM output from $compiler object]) AC_CACHE_VAL([lt_cv_sys_global_symbol_pipe], [ # These are sane defaults that work on at least a few old systems. # [They come from Ultrix. What could be older than Ultrix?!! ;)] # Character class describing NM global symbol codes. symcode='[[BCDEGRST]]' # Regexp to match symbols that can be accessed directly from C. sympat='\([[_A-Za-z]][[_A-Za-z0-9]]*\)' # Define system-specific variables. case $host_os in aix*) symcode='[[BCDT]]' ;; cygwin* | mingw* | pw32* | cegcc*) symcode='[[ABCDGISTW]]' ;; hpux*) if test "$host_cpu" = ia64; then symcode='[[ABCDEGRST]]' fi ;; irix* | nonstopux*) symcode='[[BCDEGRST]]' ;; osf*) symcode='[[BCDEGQRST]]' ;; solaris*) symcode='[[BDRT]]' ;; sco3.2v5*) symcode='[[DT]]' ;; sysv4.2uw2*) symcode='[[DT]]' ;; sysv5* | sco5v6* | unixware* | OpenUNIX*) symcode='[[ABDT]]' ;; sysv4) symcode='[[DFNSTU]]' ;; esac # If we're using GNU nm, then use its standard symbol codes. case `$NM -V 2>&1` in *GNU* | *'with BFD'*) symcode='[[ABCDGIRSTW]]' ;; esac # Transform an extracted symbol line into a proper C declaration. # Some systems (esp. on ia64) link data and code symbols differently, # so use this general approach. lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'" # Transform an extracted symbol line into symbol name and symbol address lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([[^ ]]*\)[[ ]]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([[^ ]]*\) \([[^ ]]*\)$/ {\"\2\", (void *) \&\2},/p'" lt_cv_sys_global_symbol_to_c_name_address_lib_prefix="sed -n -e 's/^: \([[^ ]]*\)[[ ]]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([[^ ]]*\) \(lib[[^ ]]*\)$/ {\"\2\", (void *) \&\2},/p' -e 's/^$symcode* \([[^ ]]*\) \([[^ ]]*\)$/ {\"lib\2\", (void *) \&\2},/p'" # Handle CRLF in mingw tool chain opt_cr= case $build_os in mingw*) opt_cr=`$ECHO 'x\{0,1\}' | tr x '\015'` # option cr in regexp ;; esac # Try without a prefix underscore, then with it. for ac_symprfx in "" "_"; do # Transform symcode, sympat, and symprfx into a raw symbol and a C symbol. symxfrm="\\1 $ac_symprfx\\2 \\2" # Write the raw and C identifiers. if test "$lt_cv_nm_interface" = "MS dumpbin"; then # Fake it for dumpbin and say T for any non-static function # and D for any global variable. # Also find C++ and __fastcall symbols from MSVC++, # which start with @ or ?. lt_cv_sys_global_symbol_pipe="$AWK ['"\ " {last_section=section; section=\$ 3};"\ " /^COFF SYMBOL TABLE/{for(i in hide) delete hide[i]};"\ " /Section length .*#relocs.*(pick any)/{hide[last_section]=1};"\ " \$ 0!~/External *\|/{next};"\ " / 0+ UNDEF /{next}; / UNDEF \([^|]\)*()/{next};"\ " {if(hide[section]) next};"\ " {f=0}; \$ 0~/\(\).*\|/{f=1}; {printf f ? \"T \" : \"D \"};"\ " {split(\$ 0, a, /\||\r/); split(a[2], s)};"\ " s[1]~/^[@?]/{print s[1], s[1]; next};"\ " s[1]~prfx {split(s[1],t,\"@\"); print t[1], substr(t[1],length(prfx))}"\ " ' prfx=^$ac_symprfx]" else lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[[ ]]\($symcode$symcode*\)[[ ]][[ ]]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'" fi lt_cv_sys_global_symbol_pipe="$lt_cv_sys_global_symbol_pipe | sed '/ __gnu_lto/d'" # Check to see that the pipe works correctly. pipe_works=no rm -f conftest* cat > conftest.$ac_ext <<_LT_EOF #ifdef __cplusplus extern "C" { #endif char nm_test_var; void nm_test_func(void); void nm_test_func(void){} #ifdef __cplusplus } #endif int main(){nm_test_var='a';nm_test_func();return(0);} _LT_EOF if AC_TRY_EVAL(ac_compile); then # Now try to grab the symbols. nlist=conftest.nm if AC_TRY_EVAL(NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist) && test -s "$nlist"; then # Try sorting and uniquifying the output. if sort "$nlist" | uniq > "$nlist"T; then mv -f "$nlist"T "$nlist" else rm -f "$nlist"T fi # Make sure that we snagged all the symbols we need. if $GREP ' nm_test_var$' "$nlist" >/dev/null; then if $GREP ' nm_test_func$' "$nlist" >/dev/null; then cat <<_LT_EOF > conftest.$ac_ext /* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */ #if defined(_WIN32) || defined(__CYGWIN__) || defined(_WIN32_WCE) /* DATA imports from DLLs on WIN32 con't be const, because runtime relocations are performed -- see ld's documentation on pseudo-relocs. */ # define LT@&t@_DLSYM_CONST #elif defined(__osf__) /* This system does not cope well with relocations in const data. */ # define LT@&t@_DLSYM_CONST #else # define LT@&t@_DLSYM_CONST const #endif #ifdef __cplusplus extern "C" { #endif _LT_EOF # Now generate the symbol file. eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | $GREP -v main >> conftest.$ac_ext' cat <<_LT_EOF >> conftest.$ac_ext /* The mapping between symbol names and symbols. */ LT@&t@_DLSYM_CONST struct { const char *name; void *address; } lt__PROGRAM__LTX_preloaded_symbols[[]] = { { "@PROGRAM@", (void *) 0 }, _LT_EOF $SED "s/^$symcode$symcode* \(.*\) \(.*\)$/ {\"\2\", (void *) \&\2},/" < "$nlist" | $GREP -v main >> conftest.$ac_ext cat <<\_LT_EOF >> conftest.$ac_ext {0, (void *) 0} }; /* This works around a problem in FreeBSD linker */ #ifdef FREEBSD_WORKAROUND static const void *lt_preloaded_setup() { return lt__PROGRAM__LTX_preloaded_symbols; } #endif #ifdef __cplusplus } #endif _LT_EOF # Now try linking the two files. mv conftest.$ac_objext conftstm.$ac_objext lt_globsym_save_LIBS=$LIBS lt_globsym_save_CFLAGS=$CFLAGS LIBS="conftstm.$ac_objext" CFLAGS="$CFLAGS$_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)" if AC_TRY_EVAL(ac_link) && test -s conftest${ac_exeext}; then pipe_works=yes fi LIBS=$lt_globsym_save_LIBS CFLAGS=$lt_globsym_save_CFLAGS else echo "cannot find nm_test_func in $nlist" >&AS_MESSAGE_LOG_FD fi else echo "cannot find nm_test_var in $nlist" >&AS_MESSAGE_LOG_FD fi else echo "cannot run $lt_cv_sys_global_symbol_pipe" >&AS_MESSAGE_LOG_FD fi else echo "$progname: failed program was:" >&AS_MESSAGE_LOG_FD cat conftest.$ac_ext >&5 fi rm -rf conftest* conftst* # Do not use the global_symbol_pipe unless it works. if test "$pipe_works" = yes; then break else lt_cv_sys_global_symbol_pipe= fi done ]) if test -z "$lt_cv_sys_global_symbol_pipe"; then lt_cv_sys_global_symbol_to_cdecl= fi if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then AC_MSG_RESULT(failed) else AC_MSG_RESULT(ok) fi # Response file support. if test "$lt_cv_nm_interface" = "MS dumpbin"; then nm_file_list_spec='@' elif $NM --help 2>/dev/null | grep '[[@]]FILE' >/dev/null; then nm_file_list_spec='@' fi _LT_DECL([global_symbol_pipe], [lt_cv_sys_global_symbol_pipe], [1], [Take the output of nm and produce a listing of raw symbols and C names]) _LT_DECL([global_symbol_to_cdecl], [lt_cv_sys_global_symbol_to_cdecl], [1], [Transform the output of nm in a proper C declaration]) _LT_DECL([global_symbol_to_c_name_address], [lt_cv_sys_global_symbol_to_c_name_address], [1], [Transform the output of nm in a C name address pair]) _LT_DECL([global_symbol_to_c_name_address_lib_prefix], [lt_cv_sys_global_symbol_to_c_name_address_lib_prefix], [1], [Transform the output of nm in a C name address pair when lib prefix is needed]) _LT_DECL([], [nm_file_list_spec], [1], [Specify filename containing input files for $NM]) ]) # _LT_CMD_GLOBAL_SYMBOLS # _LT_COMPILER_PIC([TAGNAME]) # --------------------------- m4_defun([_LT_COMPILER_PIC], [m4_require([_LT_TAG_COMPILER])dnl _LT_TAGVAR(lt_prog_compiler_wl, $1)= _LT_TAGVAR(lt_prog_compiler_pic, $1)= _LT_TAGVAR(lt_prog_compiler_static, $1)= m4_if([$1], [CXX], [ # C++ specific cases for pic, static, wl, etc. if test "$GXX" = yes; then _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' case $host_os in aix*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; m68k) # FIXME: we need at least 68020 code to build shared libraries, but # adding the `-m68020' flag to GCC prevents building anything better, # like `-m68040'. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-m68020 -resident32 -malways-restore-a4' ;; esac ;; beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) # PIC is the default for these OSes. ;; mingw* | cygwin* | os2* | pw32* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). # Although the cygwin gcc ignores -fPIC, still need this for old-style # (--disable-auto-import) libraries m4_if([$1], [GCJ], [], [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common' ;; *djgpp*) # DJGPP does not support shared libraries at all _LT_TAGVAR(lt_prog_compiler_pic, $1)= ;; haiku*) # PIC is the default for Haiku. # The "-static" flag exists, but is broken. _LT_TAGVAR(lt_prog_compiler_static, $1)= ;; interix[[3-9]]*) # Interix 3.x gcc -fpic/-fPIC options generate broken code. # Instead, we relocate shared libraries at runtime. ;; sysv4*MP*) if test -d /usr/nec; then _LT_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic fi ;; hpux*) # PIC is the default for 64-bit PA HP-UX, but not for 32-bit # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag # sets the default TLS model and affects inlining. case $host_cpu in hppa*64*) ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; esac ;; *qnx* | *nto*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; esac else case $host_os in aix[[4-9]]*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' else _LT_TAGVAR(lt_prog_compiler_static, $1)='-bnso -bI:/lib/syscalls.exp' fi ;; chorus*) case $cc_basename in cxch68*) # Green Hills C++ Compiler # _LT_TAGVAR(lt_prog_compiler_static, $1)="--no_auto_instantiation -u __main -u __premain -u _abort -r $COOL_DIR/lib/libOrb.a $MVME_DIR/lib/CC/libC.a $MVME_DIR/lib/classix/libcx.s.a" ;; esac ;; mingw* | cygwin* | os2* | pw32* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). m4_if([$1], [GCJ], [], [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) ;; dgux*) case $cc_basename in ec++*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' ;; ghcx*) # Green Hills C++ Compiler _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' ;; *) ;; esac ;; freebsd* | dragonfly*) # FreeBSD uses GNU C++ ;; hpux9* | hpux10* | hpux11*) case $cc_basename in CC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='${wl}-a ${wl}archive' if test "$host_cpu" != ia64; then _LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z' fi ;; aCC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='${wl}-a ${wl}archive' case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z' ;; esac ;; *) ;; esac ;; interix*) # This is c89, which is MS Visual C++ (no shared libs) # Anyone wants to do a port? ;; irix5* | irix6* | nonstopux*) case $cc_basename in CC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' # CC pic flag -KPIC is the default. ;; *) ;; esac ;; linux* | k*bsd*-gnu | kopensolaris*-gnu) case $cc_basename in KCC*) # KAI C++ Compiler _LT_TAGVAR(lt_prog_compiler_wl, $1)='--backend -Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; ecpc* ) # old Intel C++ for x86_64 which still supported -KPIC. _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; icpc* ) # Intel C++, used to be incompatible with GCC. # ICC 10 doesn't accept -KPIC any more. _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; pgCC* | pgcpp*) # Portland Group C++ compiler _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; cxx*) # Compaq C++ # Make sure the PIC flag is empty. It appears that all Alpha # Linux and Compaq Tru64 Unix objects are PIC. _LT_TAGVAR(lt_prog_compiler_pic, $1)= _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; xlc* | xlC* | bgxl[[cC]]* | mpixl[[cC]]*) # IBM XL 8.0, 9.0 on PPC and BlueGene _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-qpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-qstaticlink' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' ;; esac ;; esac ;; lynxos*) ;; m88k*) ;; mvs*) case $cc_basename in cxx*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-W c,exportall' ;; *) ;; esac ;; netbsd*) ;; *qnx* | *nto*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' ;; osf3* | osf4* | osf5*) case $cc_basename in KCC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='--backend -Wl,' ;; RCC*) # Rational C++ 2.4.1 _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' ;; cxx*) # Digital/Compaq C++ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # Make sure the PIC flag is empty. It appears that all Alpha # Linux and Compaq Tru64 Unix objects are PIC. _LT_TAGVAR(lt_prog_compiler_pic, $1)= _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; *) ;; esac ;; psos*) ;; solaris*) case $cc_basename in CC* | sunCC*) # Sun C++ 4.2, 5.x and Centerline C++ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' ;; gcx*) # Green Hills C++ Compiler _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' ;; *) ;; esac ;; sunos4*) case $cc_basename in CC*) # Sun C++ 4.x _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; lcc*) # Lucid _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' ;; *) ;; esac ;; sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) case $cc_basename in CC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; esac ;; tandem*) case $cc_basename in NCC*) # NonStop-UX NCC 3.20 _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' ;; *) ;; esac ;; vxworks*) ;; *) _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no ;; esac fi ], [ if test "$GCC" = yes; then _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' case $host_os in aix*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; m68k) # FIXME: we need at least 68020 code to build shared libraries, but # adding the `-m68020' flag to GCC prevents building anything better, # like `-m68040'. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-m68020 -resident32 -malways-restore-a4' ;; esac ;; beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) # PIC is the default for these OSes. ;; mingw* | cygwin* | pw32* | os2* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). # Although the cygwin gcc ignores -fPIC, still need this for old-style # (--disable-auto-import) libraries m4_if([$1], [GCJ], [], [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common' ;; haiku*) # PIC is the default for Haiku. # The "-static" flag exists, but is broken. _LT_TAGVAR(lt_prog_compiler_static, $1)= ;; hpux*) # PIC is the default for 64-bit PA HP-UX, but not for 32-bit # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag # sets the default TLS model and affects inlining. case $host_cpu in hppa*64*) # +Z the default ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; esac ;; interix[[3-9]]*) # Interix 3.x gcc -fpic/-fPIC options generate broken code. # Instead, we relocate shared libraries at runtime. ;; msdosdjgpp*) # Just because we use GCC doesn't mean we suddenly get shared libraries # on systems that don't support them. _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no enable_shared=no ;; *nto* | *qnx*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' ;; sysv4*MP*) if test -d /usr/nec; then _LT_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic fi ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; esac case $cc_basename in nvcc*) # Cuda Compiler Driver 2.2 _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Xlinker ' if test -n "$_LT_TAGVAR(lt_prog_compiler_pic, $1)"; then _LT_TAGVAR(lt_prog_compiler_pic, $1)="-Xcompiler $_LT_TAGVAR(lt_prog_compiler_pic, $1)" fi ;; esac else # PORTME Check for flag to pass linker flags through the system compiler. case $host_os in aix*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' else _LT_TAGVAR(lt_prog_compiler_static, $1)='-bnso -bI:/lib/syscalls.exp' fi ;; mingw* | cygwin* | pw32* | os2* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). m4_if([$1], [GCJ], [], [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) ;; hpux9* | hpux10* | hpux11*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but # not for PA HP-UX. case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z' ;; esac # Is there a better lt_prog_compiler_static that works with the bundled CC? _LT_TAGVAR(lt_prog_compiler_static, $1)='${wl}-a ${wl}archive' ;; irix5* | irix6* | nonstopux*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # PIC (with -KPIC) is the default. _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; linux* | k*bsd*-gnu | kopensolaris*-gnu) case $cc_basename in # old Intel for x86_64 which still supported -KPIC. ecc*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; # icc used to be incompatible with GCC. # ICC 10 doesn't accept -KPIC any more. icc* | ifort*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; # Lahey Fortran 8.1. lf95*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='--shared' _LT_TAGVAR(lt_prog_compiler_static, $1)='--static' ;; nagfor*) # NAG Fortran compiler _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,-Wl,,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*) # Portland Group compilers (*not* the Pentium gcc compiler, # which looks to be a dead project) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; ccc*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # All Alpha code is PIC. _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; xl* | bgxl* | bgf* | mpixl*) # IBM XL C 8.0/Fortran 10.1, 11.1 on PPC and BlueGene _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-qpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-qstaticlink' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ Ceres\ Fortran* | *Sun*Fortran*\ [[1-7]].* | *Sun*Fortran*\ 8.[[0-3]]*) # Sun Fortran 8.3 passes all unrecognized flags to the linker _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='' ;; *Sun\ F* | *Sun*Fortran*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' ;; *Sun\ C*) # Sun C 5.9 _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' ;; *Intel*\ [[CF]]*Compiler*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; *Portland\ Group*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; esac ;; esac ;; newsos6) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; *nto* | *qnx*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' ;; osf3* | osf4* | osf5*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # All OSF/1 code is PIC. _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; rdos*) _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; solaris*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' case $cc_basename in f77* | f90* | f95* | sunf77* | sunf90* | sunf95*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ';; *) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,';; esac ;; sunos4*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; sysv4 | sysv4.2uw2* | sysv4.3*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; sysv4*MP*) if test -d /usr/nec ;then _LT_TAGVAR(lt_prog_compiler_pic, $1)='-Kconform_pic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' fi ;; sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; unicos*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no ;; uts4*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; *) _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no ;; esac fi ]) case $host_os in # For platforms which do not support PIC, -DPIC is meaningless: *djgpp*) _LT_TAGVAR(lt_prog_compiler_pic, $1)= ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)="$_LT_TAGVAR(lt_prog_compiler_pic, $1)@&t@m4_if([$1],[],[ -DPIC],[m4_if([$1],[CXX],[ -DPIC],[])])" ;; esac AC_CACHE_CHECK([for $compiler option to produce PIC], [_LT_TAGVAR(lt_cv_prog_compiler_pic, $1)], [_LT_TAGVAR(lt_cv_prog_compiler_pic, $1)=$_LT_TAGVAR(lt_prog_compiler_pic, $1)]) _LT_TAGVAR(lt_prog_compiler_pic, $1)=$_LT_TAGVAR(lt_cv_prog_compiler_pic, $1) # # Check to make sure the PIC flag actually works. # if test -n "$_LT_TAGVAR(lt_prog_compiler_pic, $1)"; then _LT_COMPILER_OPTION([if $compiler PIC flag $_LT_TAGVAR(lt_prog_compiler_pic, $1) works], [_LT_TAGVAR(lt_cv_prog_compiler_pic_works, $1)], [$_LT_TAGVAR(lt_prog_compiler_pic, $1)@&t@m4_if([$1],[],[ -DPIC],[m4_if([$1],[CXX],[ -DPIC],[])])], [], [case $_LT_TAGVAR(lt_prog_compiler_pic, $1) in "" | " "*) ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)=" $_LT_TAGVAR(lt_prog_compiler_pic, $1)" ;; esac], [_LT_TAGVAR(lt_prog_compiler_pic, $1)= _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no]) fi _LT_TAGDECL([pic_flag], [lt_prog_compiler_pic], [1], [Additional compiler flags for building library objects]) _LT_TAGDECL([wl], [lt_prog_compiler_wl], [1], [How to pass a linker flag through the compiler]) # # Check to make sure the static flag actually works. # wl=$_LT_TAGVAR(lt_prog_compiler_wl, $1) eval lt_tmp_static_flag=\"$_LT_TAGVAR(lt_prog_compiler_static, $1)\" _LT_LINKER_OPTION([if $compiler static flag $lt_tmp_static_flag works], _LT_TAGVAR(lt_cv_prog_compiler_static_works, $1), $lt_tmp_static_flag, [], [_LT_TAGVAR(lt_prog_compiler_static, $1)=]) _LT_TAGDECL([link_static_flag], [lt_prog_compiler_static], [1], [Compiler flag to prevent dynamic linking]) ])# _LT_COMPILER_PIC # _LT_LINKER_SHLIBS([TAGNAME]) # ---------------------------- # See if the linker supports building shared libraries. m4_defun([_LT_LINKER_SHLIBS], [AC_REQUIRE([LT_PATH_LD])dnl AC_REQUIRE([LT_PATH_NM])dnl m4_require([_LT_PATH_MANIFEST_TOOL])dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_DECL_SED])dnl m4_require([_LT_CMD_GLOBAL_SYMBOLS])dnl m4_require([_LT_TAG_COMPILER])dnl AC_MSG_CHECKING([whether the $compiler linker ($LD) supports shared libraries]) m4_if([$1], [CXX], [ _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' _LT_TAGVAR(exclude_expsyms, $1)=['_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*'] case $host_os in aix[[4-9]]*) # If we're using GNU nm, then we don't want the "-C" option. # -C means demangle to AIX nm, but means don't demangle with GNU nm # Also, AIX nm treats weak defined symbols like other global defined # symbols, whereas GNU nm marks them as "W". if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then _LT_TAGVAR(export_symbols_cmds, $1)='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' else _LT_TAGVAR(export_symbols_cmds, $1)='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' fi ;; pw32*) _LT_TAGVAR(export_symbols_cmds, $1)="$ltdll_cmds" ;; cygwin* | mingw* | cegcc*) case $cc_basename in cl*) _LT_TAGVAR(exclude_expsyms, $1)='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*' ;; *) _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1 DATA/;s/^.*[[ ]]__nm__\([[^ ]]*\)[[ ]][[^ ]]*/\1 DATA/;/^I[[ ]]/d;/^[[AITW]][[ ]]/s/.* //'\'' | sort | uniq > $export_symbols' _LT_TAGVAR(exclude_expsyms, $1)=['[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname'] ;; esac ;; *) _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' ;; esac ], [ runpath_var= _LT_TAGVAR(allow_undefined_flag, $1)= _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(archive_cmds, $1)= _LT_TAGVAR(archive_expsym_cmds, $1)= _LT_TAGVAR(compiler_needs_object, $1)=no _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' _LT_TAGVAR(hardcode_automatic, $1)=no _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(hardcode_libdir_separator, $1)= _LT_TAGVAR(hardcode_minus_L, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported _LT_TAGVAR(inherit_rpath, $1)=no _LT_TAGVAR(link_all_deplibs, $1)=unknown _LT_TAGVAR(module_cmds, $1)= _LT_TAGVAR(module_expsym_cmds, $1)= _LT_TAGVAR(old_archive_from_new_cmds, $1)= _LT_TAGVAR(old_archive_from_expsyms_cmds, $1)= _LT_TAGVAR(thread_safe_flag_spec, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= # include_expsyms should be a list of space-separated symbols to be *always* # included in the symbol list _LT_TAGVAR(include_expsyms, $1)= # exclude_expsyms can be an extended regexp of symbols to exclude # it will be wrapped by ` (' and `)$', so one must not match beginning or # end of line. Example: `a|bc|.*d.*' will exclude the symbols `a' and `bc', # as well as any symbol that contains `d'. _LT_TAGVAR(exclude_expsyms, $1)=['_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*'] # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out # platforms (ab)use it in PIC code, but their linkers get confused if # the symbol is explicitly referenced. Since portable code cannot # rely on this symbol name, it's probably fine to never include it in # preloaded symbol tables. # Exclude shared library initialization/finalization symbols. dnl Note also adjust exclude_expsyms for C++ above. extract_expsyms_cmds= case $host_os in cygwin* | mingw* | pw32* | cegcc*) # FIXME: the MSVC++ port hasn't been tested in a loooong time # When not using gcc, we currently assume that we are using # Microsoft Visual C++. if test "$GCC" != yes; then with_gnu_ld=no fi ;; interix*) # we just hope/assume this is gcc and not c89 (= MSVC++) with_gnu_ld=yes ;; openbsd*) with_gnu_ld=no ;; esac _LT_TAGVAR(ld_shlibs, $1)=yes # On some targets, GNU ld is compatible enough with the native linker # that we're better off using the native interface for both. lt_use_gnu_ld_interface=no if test "$with_gnu_ld" = yes; then case $host_os in aix*) # The AIX port of GNU ld has always aspired to compatibility # with the native linker. However, as the warning in the GNU ld # block says, versions before 2.19.5* couldn't really create working # shared libraries, regardless of the interface used. case `$LD -v 2>&1` in *\ \(GNU\ Binutils\)\ 2.19.5*) ;; *\ \(GNU\ Binutils\)\ 2.[[2-9]]*) ;; *\ \(GNU\ Binutils\)\ [[3-9]]*) ;; *) lt_use_gnu_ld_interface=yes ;; esac ;; *) lt_use_gnu_ld_interface=yes ;; esac fi if test "$lt_use_gnu_ld_interface" = yes; then # If archive_cmds runs LD, not CC, wlarc should be empty wlarc='${wl}' # Set some defaults for GNU ld with shared library support. These # are reset later if shared libraries are not supported. Putting them # here allows them to be overridden if necessary. runpath_var=LD_RUN_PATH _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' # ancient GNU ld didn't support --whole-archive et. al. if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then _LT_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' else _LT_TAGVAR(whole_archive_flag_spec, $1)= fi supports_anon_versioning=no case `$LD -v 2>&1` in *GNU\ gold*) supports_anon_versioning=yes ;; *\ [[01]].* | *\ 2.[[0-9]].* | *\ 2.10.*) ;; # catch versions < 2.11 *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ... *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ... *\ 2.11.*) ;; # other 2.11 versions *) supports_anon_versioning=yes ;; esac # See if GNU ld supports shared libraries. case $host_os in aix[[3-9]]*) # On AIX/PPC, the GNU linker is very broken if test "$host_cpu" != ia64; then _LT_TAGVAR(ld_shlibs, $1)=no cat <<_LT_EOF 1>&2 *** Warning: the GNU linker, at least up to release 2.19, is reported *** to be unable to reliably create shared libraries on AIX. *** Therefore, libtool is disabling shared libraries support. If you *** really care for shared libraries, you may want to install binutils *** 2.20 or above, or modify your PATH so that a non-GNU linker is found. *** You will then need to restart the configuration process. _LT_EOF fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='' ;; m68k) _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_minus_L, $1)=yes ;; esac ;; beos*) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(allow_undefined_flag, $1)=unsupported # Joseph Beckenbach says some releases of gcc # support --undefined. This deserves some investigation. FIXME _LT_TAGVAR(archive_cmds, $1)='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; cygwin* | mingw* | pw32* | cegcc*) # _LT_TAGVAR(hardcode_libdir_flag_spec, $1) is actually meaningless, # as there is no search path for DLLs. _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-all-symbols' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1 DATA/;s/^.*[[ ]]__nm__\([[^ ]]*\)[[ ]][[^ ]]*/\1 DATA/;/^I[[ ]]/d;/^[[AITW]][[ ]]/s/.* //'\'' | sort | uniq > $export_symbols' _LT_TAGVAR(exclude_expsyms, $1)=['[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname'] if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' # If the export-symbols file already is a .def file (1st line # is EXPORTS), use it as is; otherwise, prepend... _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then cp $export_symbols $output_objdir/$soname.def; else echo EXPORTS > $output_objdir/$soname.def; cat $export_symbols >> $output_objdir/$soname.def; fi~ $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; haiku*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(link_all_deplibs, $1)=yes ;; interix[[3-9]]*) _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. # Instead, shared libraries are loaded at an image base (0x10000000 by # default) and relocated if they conflict, which is a slow very memory # consuming and fragmenting process. To avoid this, we pick a random, # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link # time. Moving up from 0x10000000 also allows more sbrk(2) space. _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' ;; gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu) tmp_diet=no if test "$host_os" = linux-dietlibc; then case $cc_basename in diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn) esac fi if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \ && test "$tmp_diet" = no then tmp_addflag=' $pic_flag' tmp_sharedflag='-shared' case $cc_basename,$host_cpu in pgcc*) # Portland Group C compiler _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' tmp_addflag=' $pic_flag' ;; pgf77* | pgf90* | pgf95* | pgfortran*) # Portland Group f77 and f90 compilers _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' tmp_addflag=' $pic_flag -Mnomain' ;; ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64 tmp_addflag=' -i_dynamic' ;; efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64 tmp_addflag=' -i_dynamic -nofor_main' ;; ifc* | ifort*) # Intel Fortran compiler tmp_addflag=' -nofor_main' ;; lf95*) # Lahey Fortran 8.1 _LT_TAGVAR(whole_archive_flag_spec, $1)= tmp_sharedflag='--shared' ;; xl[[cC]]* | bgxl[[cC]]* | mpixl[[cC]]*) # IBM XL C 8.0 on PPC (deal with xlf below) tmp_sharedflag='-qmkshrobj' tmp_addflag= ;; nvcc*) # Cuda Compiler Driver 2.2 _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' _LT_TAGVAR(compiler_needs_object, $1)=yes ;; esac case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C 5.9 _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' _LT_TAGVAR(compiler_needs_object, $1)=yes tmp_sharedflag='-G' ;; *Sun\ F*) # Sun Fortran 8.3 tmp_sharedflag='-G' ;; esac _LT_TAGVAR(archive_cmds, $1)='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' if test "x$supports_anon_versioning" = xyes; then _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' fi case $cc_basename in xlf* | bgf* | bgxlf* | mpixlf*) # IBM XL Fortran 10.1 on PPC cannot create shared libs itself _LT_TAGVAR(whole_archive_flag_spec, $1)='--whole-archive$convenience --no-whole-archive' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(archive_cmds, $1)='$LD -shared $libobjs $deplibs $linker_flags -soname $soname -o $lib' if test "x$supports_anon_versioning" = xyes; then _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $LD -shared $libobjs $deplibs $linker_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib' fi ;; esac else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; netbsd*) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' wlarc= else _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' fi ;; solaris*) if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then _LT_TAGVAR(ld_shlibs, $1)=no cat <<_LT_EOF 1>&2 *** Warning: The releases 2.8.* of the GNU linker cannot reliably *** create shared libraries on Solaris systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.9.1 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*) case `$LD -v 2>&1` in *\ [[01]].* | *\ 2.[[0-9]].* | *\ 2.1[[0-5]].*) _LT_TAGVAR(ld_shlibs, $1)=no cat <<_LT_EOF 1>&2 *** Warning: Releases of the GNU linker prior to 2.16.91.0.3 can not *** reliably create shared libraries on SCO systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.16.91.0.3 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF ;; *) # For security reasons, it is highly recommended that you always # use absolute paths for naming shared libraries, and exclude the # DT_RUNPATH tag from executables and libraries. But doing so # requires that you compile everything twice, which is a pain. if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; sunos4*) _LT_TAGVAR(archive_cmds, $1)='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' wlarc= _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac if test "$_LT_TAGVAR(ld_shlibs, $1)" = no; then runpath_var= _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= fi else # PORTME fill in a description of your system's linker (not GNU ld) case $host_os in aix3*) _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=yes _LT_TAGVAR(archive_expsym_cmds, $1)='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname' # Note: this linker hardcodes the directories in LIBPATH if there # are no directories specified by -L. _LT_TAGVAR(hardcode_minus_L, $1)=yes if test "$GCC" = yes && test -z "$lt_prog_compiler_static"; then # Neither direct hardcoding nor static linking is supported with a # broken collect2. _LT_TAGVAR(hardcode_direct, $1)=unsupported fi ;; aix[[4-9]]*) if test "$host_cpu" = ia64; then # On IA64, the linker does run time linking by default, so we don't # have to do anything special. aix_use_runtimelinking=no exp_sym_flag='-Bexport' no_entry_flag="" else # If we're using GNU nm, then we don't want the "-C" option. # -C means demangle to AIX nm, but means don't demangle with GNU nm # Also, AIX nm treats weak defined symbols like other global # defined symbols, whereas GNU nm marks them as "W". if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then _LT_TAGVAR(export_symbols_cmds, $1)='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' else _LT_TAGVAR(export_symbols_cmds, $1)='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' fi aix_use_runtimelinking=no # Test if we are trying to use run time linking or normal # AIX style linking. If -brtl is somewhere in LDFLAGS, we # need to do runtime linking. case $host_os in aix4.[[23]]|aix4.[[23]].*|aix[[5-9]]*) for ld_flag in $LDFLAGS; do if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then aix_use_runtimelinking=yes break fi done ;; esac exp_sym_flag='-bexport' no_entry_flag='-bnoentry' fi # When large executables or shared objects are built, AIX ld can # have problems creating the table of contents. If linking a library # or program results in "error TOC overflow" add -mminimal-toc to # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. _LT_TAGVAR(archive_cmds, $1)='' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(hardcode_libdir_separator, $1)=':' _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(file_list_spec, $1)='${wl}-f,' if test "$GCC" = yes; then case $host_os in aix4.[[012]]|aix4.[[012]].*) # We only want to do this on AIX 4.2 and lower, the check # below for broken collect2 doesn't work under 4.3+ collect2name=`${CC} -print-prog-name=collect2` if test -f "$collect2name" && strings "$collect2name" | $GREP resolve_lib_name >/dev/null then # We have reworked collect2 : else # We have old collect2 _LT_TAGVAR(hardcode_direct, $1)=unsupported # It fails to find uninstalled libraries when the uninstalled # path is not listed in the libpath. Setting hardcode_minus_L # to unsupported forces relinking _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)= fi ;; esac shared_flag='-shared' if test "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi else # not using gcc if test "$host_cpu" = ia64; then # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release # chokes on -Wl,-G. The following line is correct: shared_flag='-G' else if test "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi fi fi _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-bexpall' # It seems that -bexpall does not export symbols beginning with # underscore (_), so it is better to generate a list of symbols to export. _LT_TAGVAR(always_export_symbols, $1)=yes if test "$aix_use_runtimelinking" = yes; then # Warning - without using the other runtime loading flags (-brtl), # -berok will link without error, but may produce a broken library. _LT_TAGVAR(allow_undefined_flag, $1)='-berok' # Determine the default libpath from the value encoded in an # empty executable. _LT_SYS_MODULE_PATH_AIX([$1]) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath" _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $libdir:/usr/lib:/lib' _LT_TAGVAR(allow_undefined_flag, $1)="-z nodefs" _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols" else # Determine the default libpath from the value encoded in an # empty executable. _LT_SYS_MODULE_PATH_AIX([$1]) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath" # Warning - without using the other run time loading flags, # -berok will link without error, but may produce a broken library. _LT_TAGVAR(no_undefined_flag, $1)=' ${wl}-bernotok' _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-berok' if test "$with_gnu_ld" = yes; then # We only use this code for GNU lds that support --whole-archive. _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive$convenience ${wl}--no-whole-archive' else # Exported symbols can be pulled into shared objects from archives _LT_TAGVAR(whole_archive_flag_spec, $1)='$convenience' fi _LT_TAGVAR(archive_cmds_need_lc, $1)=yes # This is similar to how AIX traditionally builds its shared libraries. _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' fi fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='' ;; m68k) _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_minus_L, $1)=yes ;; esac ;; bsdi[[45]]*) _LT_TAGVAR(export_dynamic_flag_spec, $1)=-rdynamic ;; cygwin* | mingw* | pw32* | cegcc*) # When not using gcc, we currently assume that we are using # Microsoft Visual C++. # hardcode_libdir_flag_spec is actually meaningless, as there is # no search path for DLLs. case $cc_basename in cl*) # Native MSVC _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' ' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=yes _LT_TAGVAR(file_list_spec, $1)='@' # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. _LT_TAGVAR(archive_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-dll~linknames=' _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then sed -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp; else sed -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $export_symbols > $output_objdir/$soname.exp; fi~ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~ linknames=' # The linker will not automatically build a static lib if we build a DLL. # _LT_TAGVAR(old_archive_from_new_cmds, $1)='true' _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes _LT_TAGVAR(exclude_expsyms, $1)='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*' _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1,DATA/'\'' | $SED -e '\''/^[[AITW]][[ ]]/s/.*[[ ]]//'\'' | sort | uniq > $export_symbols' # Don't use ranlib _LT_TAGVAR(old_postinstall_cmds, $1)='chmod 644 $oldlib' _LT_TAGVAR(postlink_cmds, $1)='lt_outputfile="@OUTPUT@"~ lt_tool_outputfile="@TOOL_OUTPUT@"~ case $lt_outputfile in *.exe|*.EXE) ;; *) lt_outputfile="$lt_outputfile.exe" lt_tool_outputfile="$lt_tool_outputfile.exe" ;; esac~ if test "$MANIFEST_TOOL" != ":" && test -f "$lt_outputfile.manifest"; then $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1; $RM "$lt_outputfile.manifest"; fi' ;; *) # Assume MSVC wrapper _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' ' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. _LT_TAGVAR(archive_cmds, $1)='$CC -o $lib $libobjs $compiler_flags `func_echo_all "$deplibs" | $SED '\''s/ -lc$//'\''` -link -dll~linknames=' # The linker will automatically build a .lib file if we build a DLL. _LT_TAGVAR(old_archive_from_new_cmds, $1)='true' # FIXME: Should let the user specify the lib program. _LT_TAGVAR(old_archive_cmds, $1)='lib -OUT:$oldlib$oldobjs$old_deplibs' _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes ;; esac ;; darwin* | rhapsody*) _LT_DARWIN_LINKER_FEATURES($1) ;; dgux*) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor # support. Future versions do this automatically, but an explicit c++rt0.o # does not break anything, and helps significantly (at the cost of a little # extra space). freebsd2.2*) _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; # Unfortunately, older versions of FreeBSD 2 do not have this feature. freebsd2.*) _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; # FreeBSD 3 and greater uses gcc -shared to do shared libraries. freebsd* | dragonfly*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; hpux9*) if test "$GCC" = yes; then _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -shared $pic_flag ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' else _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(hardcode_direct, $1)=yes # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' ;; hpux10*) if test "$GCC" = yes && test "$with_gnu_ld" = no; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' else _LT_TAGVAR(archive_cmds, $1)='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' fi if test "$with_gnu_ld" = no; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. _LT_TAGVAR(hardcode_minus_L, $1)=yes fi ;; hpux11*) if test "$GCC" = yes && test "$with_gnu_ld" = no; then case $host_cpu in hppa*64*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' ;; esac else case $host_cpu in hppa*64*) _LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) _LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) m4_if($1, [], [ # Older versions of the 11.00 compiler do not understand -b yet # (HP92453-01 A.11.01.20 doesn't, HP92453-01 B.11.X.35175-35176.GP does) _LT_LINKER_OPTION([if $CC understands -b], _LT_TAGVAR(lt_cv_prog_compiler__b, $1), [-b], [_LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags'], [_LT_TAGVAR(archive_cmds, $1)='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags'])], [_LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags']) ;; esac fi if test "$with_gnu_ld" = no; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: case $host_cpu in hppa*64*|ia64*) _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *) _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. _LT_TAGVAR(hardcode_minus_L, $1)=yes ;; esac fi ;; irix5* | irix6* | nonstopux*) if test "$GCC" = yes; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' # Try to use the -exported_symbol ld option, if it does not # work, assume that -exports_file does not work either and # implicitly export all symbols. # This should be the same for all languages, so no per-tag cache variable. AC_CACHE_CHECK([whether the $host_os linker accepts -exported_symbol], [lt_cv_irix_exported_symbol], [save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS -shared ${wl}-exported_symbol ${wl}foo ${wl}-update_registry ${wl}/dev/null" AC_LINK_IFELSE( [AC_LANG_SOURCE( [AC_LANG_CASE([C], [[int foo (void) { return 0; }]], [C++], [[int foo (void) { return 0; }]], [Fortran 77], [[ subroutine foo end]], [Fortran], [[ subroutine foo end]])])], [lt_cv_irix_exported_symbol=yes], [lt_cv_irix_exported_symbol=no]) LDFLAGS="$save_LDFLAGS"]) if test "$lt_cv_irix_exported_symbol" = yes; then _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations ${wl}-exports_file ${wl}$export_symbols -o $lib' fi else _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -exports_file $export_symbols -o $lib' fi _LT_TAGVAR(archive_cmds_need_lc, $1)='no' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(inherit_rpath, $1)=yes _LT_TAGVAR(link_all_deplibs, $1)=yes ;; netbsd*) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out else _LT_TAGVAR(archive_cmds, $1)='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; newsos6) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *nto* | *qnx*) ;; openbsd*) if test -f /usr/libexec/ld.so; then _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=yes if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' else case $host_os in openbsd[[01]].* | openbsd2.[[0-7]] | openbsd2.[[0-7]].*) _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' ;; esac fi else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; os2*) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(archive_cmds, $1)='$ECHO "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~echo DATA >> $output_objdir/$libname.def~echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def' _LT_TAGVAR(old_archive_from_new_cmds, $1)='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' ;; osf3*) if test "$GCC" = yes; then _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' else _LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' fi _LT_TAGVAR(archive_cmds_need_lc, $1)='no' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: ;; osf4* | osf5*) # as osf3* with the addition of -msym flag if test "$GCC" = yes; then _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $pic_flag $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' else _LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~ $CC -shared${allow_undefined_flag} ${wl}-input ${wl}$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib~$RM $lib.exp' # Both c and cxx compiler support -rpath directly _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' fi _LT_TAGVAR(archive_cmds_need_lc, $1)='no' _LT_TAGVAR(hardcode_libdir_separator, $1)=: ;; solaris*) _LT_TAGVAR(no_undefined_flag, $1)=' -z defs' if test "$GCC" = yes; then wlarc='${wl}' _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' else case `$CC -V 2>&1` in *"Compilers 5.0"*) wlarc='' _LT_TAGVAR(archive_cmds, $1)='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp' ;; *) wlarc='${wl}' _LT_TAGVAR(archive_cmds, $1)='$CC -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' ;; esac fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no case $host_os in solaris2.[[0-5]] | solaris2.[[0-5]].*) ;; *) # The compiler driver will combine and reorder linker options, # but understands `-z linker_flag'. GCC discards it without `$wl', # but is careful enough not to reorder. # Supported since Solaris 2.6 (maybe 2.5.1?) if test "$GCC" = yes; then _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract' else _LT_TAGVAR(whole_archive_flag_spec, $1)='-z allextract$convenience -z defaultextract' fi ;; esac _LT_TAGVAR(link_all_deplibs, $1)=yes ;; sunos4*) if test "x$host_vendor" = xsequent; then # Use $CC to link under sequent, because it throws in some extra .o # files that make .init and .fini sections work. _LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags' else _LT_TAGVAR(archive_cmds, $1)='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; sysv4) case $host_vendor in sni) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_direct, $1)=yes # is this really true??? ;; siemens) ## LD is ld it makes a PLAMLIB ## CC just makes a GrossModule. _LT_TAGVAR(archive_cmds, $1)='$LD -G -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(reload_cmds, $1)='$CC -r -o $output$reload_objs' _LT_TAGVAR(hardcode_direct, $1)=no ;; motorola) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_direct, $1)=no #Motorola manual says yes, but my tests say they lie ;; esac runpath_var='LD_RUN_PATH' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; sysv4.3*) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(export_dynamic_flag_spec, $1)='-Bexport' ;; sysv4*MP*) if test -d /usr/nec; then _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no runpath_var=LD_RUN_PATH hardcode_runpath_var=yes _LT_TAGVAR(ld_shlibs, $1)=yes fi ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[[01]].[[10]]* | unixware7* | sco3.2v5.0.[[024]]*) _LT_TAGVAR(no_undefined_flag, $1)='${wl}-z,text' _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no runpath_var='LD_RUN_PATH' if test "$GCC" = yes; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else _LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; sysv5* | sco3.2v5* | sco5v6*) # Note: We can NOT use -z defs as we might desire, because we do not # link with -lc, and that would cause any symbols used from libc to # always be unresolved, which means just about no library would # ever link correctly. If we're not using GNU ld we use -z text # though, which does catch some bad symbols but isn't as heavy-handed # as -z defs. _LT_TAGVAR(no_undefined_flag, $1)='${wl}-z,text' _LT_TAGVAR(allow_undefined_flag, $1)='${wl}-z,nodefs' _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R,$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=':' _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-Bexport' runpath_var='LD_RUN_PATH' if test "$GCC" = yes; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else _LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; uts4*) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *) _LT_TAGVAR(ld_shlibs, $1)=no ;; esac if test x$host_vendor = xsni; then case $host in sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-Blargedynsym' ;; esac fi fi ]) AC_MSG_RESULT([$_LT_TAGVAR(ld_shlibs, $1)]) test "$_LT_TAGVAR(ld_shlibs, $1)" = no && can_build_shared=no _LT_TAGVAR(with_gnu_ld, $1)=$with_gnu_ld _LT_DECL([], [libext], [0], [Old archive suffix (normally "a")])dnl _LT_DECL([], [shrext_cmds], [1], [Shared library suffix (normally ".so")])dnl _LT_DECL([], [extract_expsyms_cmds], [2], [The commands to extract the exported symbol list from a shared archive]) # # Do we need to explicitly link libc? # case "x$_LT_TAGVAR(archive_cmds_need_lc, $1)" in x|xyes) # Assume -lc should be added _LT_TAGVAR(archive_cmds_need_lc, $1)=yes if test "$enable_shared" = yes && test "$GCC" = yes; then case $_LT_TAGVAR(archive_cmds, $1) in *'~'*) # FIXME: we may have to deal with multi-command sequences. ;; '$CC '*) # Test whether the compiler implicitly links with -lc since on some # systems, -lgcc has to come before -lc. If gcc already passes -lc # to ld, don't add -lc before -lgcc. AC_CACHE_CHECK([whether -lc should be explicitly linked in], [lt_cv_]_LT_TAGVAR(archive_cmds_need_lc, $1), [$RM conftest* echo "$lt_simple_compile_test_code" > conftest.$ac_ext if AC_TRY_EVAL(ac_compile) 2>conftest.err; then soname=conftest lib=conftest libobjs=conftest.$ac_objext deplibs= wl=$_LT_TAGVAR(lt_prog_compiler_wl, $1) pic_flag=$_LT_TAGVAR(lt_prog_compiler_pic, $1) compiler_flags=-v linker_flags=-v verstring= output_objdir=. libname=conftest lt_save_allow_undefined_flag=$_LT_TAGVAR(allow_undefined_flag, $1) _LT_TAGVAR(allow_undefined_flag, $1)= if AC_TRY_EVAL(_LT_TAGVAR(archive_cmds, $1) 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) then lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1)=no else lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1)=yes fi _LT_TAGVAR(allow_undefined_flag, $1)=$lt_save_allow_undefined_flag else cat conftest.err 1>&5 fi $RM conftest* ]) _LT_TAGVAR(archive_cmds_need_lc, $1)=$lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1) ;; esac fi ;; esac _LT_TAGDECL([build_libtool_need_lc], [archive_cmds_need_lc], [0], [Whether or not to add -lc for building shared libraries]) _LT_TAGDECL([allow_libtool_libs_with_static_runtimes], [enable_shared_with_static_runtimes], [0], [Whether or not to disallow shared libs when runtime libs are static]) _LT_TAGDECL([], [export_dynamic_flag_spec], [1], [Compiler flag to allow reflexive dlopens]) _LT_TAGDECL([], [whole_archive_flag_spec], [1], [Compiler flag to generate shared objects directly from archives]) _LT_TAGDECL([], [compiler_needs_object], [1], [Whether the compiler copes with passing no objects directly]) _LT_TAGDECL([], [old_archive_from_new_cmds], [2], [Create an old-style archive from a shared archive]) _LT_TAGDECL([], [old_archive_from_expsyms_cmds], [2], [Create a temporary old-style archive to link instead of a shared archive]) _LT_TAGDECL([], [archive_cmds], [2], [Commands used to build a shared archive]) _LT_TAGDECL([], [archive_expsym_cmds], [2]) _LT_TAGDECL([], [module_cmds], [2], [Commands used to build a loadable module if different from building a shared archive.]) _LT_TAGDECL([], [module_expsym_cmds], [2]) _LT_TAGDECL([], [with_gnu_ld], [1], [Whether we are building with GNU ld or not]) _LT_TAGDECL([], [allow_undefined_flag], [1], [Flag that allows shared libraries with undefined symbols to be built]) _LT_TAGDECL([], [no_undefined_flag], [1], [Flag that enforces no undefined symbols]) _LT_TAGDECL([], [hardcode_libdir_flag_spec], [1], [Flag to hardcode $libdir into a binary during linking. This must work even if $libdir does not exist]) _LT_TAGDECL([], [hardcode_libdir_separator], [1], [Whether we need a single "-rpath" flag with a separated argument]) _LT_TAGDECL([], [hardcode_direct], [0], [Set to "yes" if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the resulting binary]) _LT_TAGDECL([], [hardcode_direct_absolute], [0], [Set to "yes" if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the resulting binary and the resulting library dependency is "absolute", i.e impossible to change by setting ${shlibpath_var} if the library is relocated]) _LT_TAGDECL([], [hardcode_minus_L], [0], [Set to "yes" if using the -LDIR flag during linking hardcodes DIR into the resulting binary]) _LT_TAGDECL([], [hardcode_shlibpath_var], [0], [Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into the resulting binary]) _LT_TAGDECL([], [hardcode_automatic], [0], [Set to "yes" if building a shared library automatically hardcodes DIR into the library and all subsequent libraries and executables linked against it]) _LT_TAGDECL([], [inherit_rpath], [0], [Set to yes if linker adds runtime paths of dependent libraries to runtime path list]) _LT_TAGDECL([], [link_all_deplibs], [0], [Whether libtool must link a program against all its dependency libraries]) _LT_TAGDECL([], [always_export_symbols], [0], [Set to "yes" if exported symbols are required]) _LT_TAGDECL([], [export_symbols_cmds], [2], [The commands to list exported symbols]) _LT_TAGDECL([], [exclude_expsyms], [1], [Symbols that should not be listed in the preloaded symbols]) _LT_TAGDECL([], [include_expsyms], [1], [Symbols that must always be exported]) _LT_TAGDECL([], [prelink_cmds], [2], [Commands necessary for linking programs (against libraries) with templates]) _LT_TAGDECL([], [postlink_cmds], [2], [Commands necessary for finishing linking programs]) _LT_TAGDECL([], [file_list_spec], [1], [Specify filename containing input files]) dnl FIXME: Not yet implemented dnl _LT_TAGDECL([], [thread_safe_flag_spec], [1], dnl [Compiler flag to generate thread safe objects]) ])# _LT_LINKER_SHLIBS # _LT_LANG_C_CONFIG([TAG]) # ------------------------ # Ensure that the configuration variables for a C compiler are suitably # defined. These variables are subsequently used by _LT_CONFIG to write # the compiler configuration to `libtool'. m4_defun([_LT_LANG_C_CONFIG], [m4_require([_LT_DECL_EGREP])dnl lt_save_CC="$CC" AC_LANG_PUSH(C) # Source file extension for C test sources. ac_ext=c # Object file extension for compiled C test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="int some_variable = 0;" # Code to be used in simple link tests lt_simple_link_test_code='int main(){return(0);}' _LT_TAG_COMPILER # Save the default compiler, since it gets overwritten when the other # tags are being tested, and _LT_TAGVAR(compiler, []) is a NOP. compiler_DEFAULT=$CC # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... if test -n "$compiler"; then _LT_COMPILER_NO_RTTI($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_SYS_DYNAMIC_LINKER($1) _LT_LINKER_HARDCODE_LIBPATH($1) LT_SYS_DLOPEN_SELF _LT_CMD_STRIPLIB # Report which library types will actually be built AC_MSG_CHECKING([if libtool supports shared libraries]) AC_MSG_RESULT([$can_build_shared]) AC_MSG_CHECKING([whether to build shared libraries]) test "$can_build_shared" = "no" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[[4-9]]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no fi ;; esac AC_MSG_RESULT([$enable_shared]) AC_MSG_CHECKING([whether to build static libraries]) # Make sure either enable_shared or enable_static is yes. test "$enable_shared" = yes || enable_static=yes AC_MSG_RESULT([$enable_static]) _LT_CONFIG($1) fi AC_LANG_POP CC="$lt_save_CC" ])# _LT_LANG_C_CONFIG # _LT_LANG_CXX_CONFIG([TAG]) # -------------------------- # Ensure that the configuration variables for a C++ compiler are suitably # defined. These variables are subsequently used by _LT_CONFIG to write # the compiler configuration to `libtool'. m4_defun([_LT_LANG_CXX_CONFIG], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_PATH_MANIFEST_TOOL])dnl if test -n "$CXX" && ( test "X$CXX" != "Xno" && ( (test "X$CXX" = "Xg++" && `g++ -v >/dev/null 2>&1` ) || (test "X$CXX" != "Xg++"))) ; then AC_PROG_CXXCPP else _lt_caught_CXX_error=yes fi AC_LANG_PUSH(C++) _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(allow_undefined_flag, $1)= _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(archive_expsym_cmds, $1)= _LT_TAGVAR(compiler_needs_object, $1)=no _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(hardcode_libdir_separator, $1)= _LT_TAGVAR(hardcode_minus_L, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported _LT_TAGVAR(hardcode_automatic, $1)=no _LT_TAGVAR(inherit_rpath, $1)=no _LT_TAGVAR(module_cmds, $1)= _LT_TAGVAR(module_expsym_cmds, $1)= _LT_TAGVAR(link_all_deplibs, $1)=unknown _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds _LT_TAGVAR(no_undefined_flag, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no # Source file extension for C++ test sources. ac_ext=cpp # Object file extension for compiled C++ test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # No sense in running all these tests if we already determined that # the CXX compiler isn't working. Some variables (like enable_shared) # are currently assumed to apply to all compilers on this platform, # and will be corrupted by setting them based on a non-working compiler. if test "$_lt_caught_CXX_error" != yes; then # Code to be used in simple compile tests lt_simple_compile_test_code="int some_variable = 0;" # Code to be used in simple link tests lt_simple_link_test_code='int main(int, char *[[]]) { return(0); }' # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC=$CC lt_save_CFLAGS=$CFLAGS lt_save_LD=$LD lt_save_GCC=$GCC GCC=$GXX lt_save_with_gnu_ld=$with_gnu_ld lt_save_path_LD=$lt_cv_path_LD if test -n "${lt_cv_prog_gnu_ldcxx+set}"; then lt_cv_prog_gnu_ld=$lt_cv_prog_gnu_ldcxx else $as_unset lt_cv_prog_gnu_ld fi if test -n "${lt_cv_path_LDCXX+set}"; then lt_cv_path_LD=$lt_cv_path_LDCXX else $as_unset lt_cv_path_LD fi test -z "${LDCXX+set}" || LD=$LDCXX CC=${CXX-"c++"} CFLAGS=$CXXFLAGS compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_CC_BASENAME([$compiler]) if test -n "$compiler"; then # We don't want -fno-exception when compiling C++ code, so set the # no_builtin_flag separately if test "$GXX" = yes; then _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin' else _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)= fi if test "$GXX" = yes; then # Set up default GNU C++ configuration LT_PATH_LD # Check if GNU C++ uses GNU ld as the underlying linker, since the # archiving commands below assume that GNU ld is being used. if test "$with_gnu_ld" = yes; then _LT_TAGVAR(archive_cmds, $1)='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' # If archive_cmds runs LD, not CC, wlarc should be empty # XXX I think wlarc can be eliminated in ltcf-cxx, but I need to # investigate it a little bit more. (MM) wlarc='${wl}' # ancient GNU ld didn't support --whole-archive et. al. if eval "`$CC -print-prog-name=ld` --help 2>&1" | $GREP 'no-whole-archive' > /dev/null; then _LT_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' else _LT_TAGVAR(whole_archive_flag_spec, $1)= fi else with_gnu_ld=no wlarc= # A generic and very simple default shared library creation # command for GNU C++ for the case where it uses the native # linker, instead of GNU ld. If possible, this setting should # overridden to take advantage of the native linker features on # the platform it is being used on. _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' fi # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' else GXX=no with_gnu_ld=no wlarc= fi # PORTME: fill in a description of your system's C++ link characteristics AC_MSG_CHECKING([whether the $compiler linker ($LD) supports shared libraries]) _LT_TAGVAR(ld_shlibs, $1)=yes case $host_os in aix3*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; aix[[4-9]]*) if test "$host_cpu" = ia64; then # On IA64, the linker does run time linking by default, so we don't # have to do anything special. aix_use_runtimelinking=no exp_sym_flag='-Bexport' no_entry_flag="" else aix_use_runtimelinking=no # Test if we are trying to use run time linking or normal # AIX style linking. If -brtl is somewhere in LDFLAGS, we # need to do runtime linking. case $host_os in aix4.[[23]]|aix4.[[23]].*|aix[[5-9]]*) for ld_flag in $LDFLAGS; do case $ld_flag in *-brtl*) aix_use_runtimelinking=yes break ;; esac done ;; esac exp_sym_flag='-bexport' no_entry_flag='-bnoentry' fi # When large executables or shared objects are built, AIX ld can # have problems creating the table of contents. If linking a library # or program results in "error TOC overflow" add -mminimal-toc to # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. _LT_TAGVAR(archive_cmds, $1)='' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(hardcode_libdir_separator, $1)=':' _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(file_list_spec, $1)='${wl}-f,' if test "$GXX" = yes; then case $host_os in aix4.[[012]]|aix4.[[012]].*) # We only want to do this on AIX 4.2 and lower, the check # below for broken collect2 doesn't work under 4.3+ collect2name=`${CC} -print-prog-name=collect2` if test -f "$collect2name" && strings "$collect2name" | $GREP resolve_lib_name >/dev/null then # We have reworked collect2 : else # We have old collect2 _LT_TAGVAR(hardcode_direct, $1)=unsupported # It fails to find uninstalled libraries when the uninstalled # path is not listed in the libpath. Setting hardcode_minus_L # to unsupported forces relinking _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)= fi esac shared_flag='-shared' if test "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi else # not using gcc if test "$host_cpu" = ia64; then # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release # chokes on -Wl,-G. The following line is correct: shared_flag='-G' else if test "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi fi fi _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-bexpall' # It seems that -bexpall does not export symbols beginning with # underscore (_), so it is better to generate a list of symbols to # export. _LT_TAGVAR(always_export_symbols, $1)=yes if test "$aix_use_runtimelinking" = yes; then # Warning - without using the other runtime loading flags (-brtl), # -berok will link without error, but may produce a broken library. _LT_TAGVAR(allow_undefined_flag, $1)='-berok' # Determine the default libpath from the value encoded in an empty # executable. _LT_SYS_MODULE_PATH_AIX([$1]) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath" _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $libdir:/usr/lib:/lib' _LT_TAGVAR(allow_undefined_flag, $1)="-z nodefs" _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols" else # Determine the default libpath from the value encoded in an # empty executable. _LT_SYS_MODULE_PATH_AIX([$1]) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath" # Warning - without using the other run time loading flags, # -berok will link without error, but may produce a broken library. _LT_TAGVAR(no_undefined_flag, $1)=' ${wl}-bernotok' _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-berok' if test "$with_gnu_ld" = yes; then # We only use this code for GNU lds that support --whole-archive. _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive$convenience ${wl}--no-whole-archive' else # Exported symbols can be pulled into shared objects from archives _LT_TAGVAR(whole_archive_flag_spec, $1)='$convenience' fi _LT_TAGVAR(archive_cmds_need_lc, $1)=yes # This is similar to how AIX traditionally builds its shared # libraries. _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' fi fi ;; beos*) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(allow_undefined_flag, $1)=unsupported # Joseph Beckenbach says some releases of gcc # support --undefined. This deserves some investigation. FIXME _LT_TAGVAR(archive_cmds, $1)='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; chorus*) case $cc_basename in *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; cygwin* | mingw* | pw32* | cegcc*) case $GXX,$cc_basename in ,cl* | no,cl*) # Native MSVC # hardcode_libdir_flag_spec is actually meaningless, as there is # no search path for DLLs. _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' ' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=yes _LT_TAGVAR(file_list_spec, $1)='@' # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. _LT_TAGVAR(archive_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-dll~linknames=' _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then $SED -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp; else $SED -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $export_symbols > $output_objdir/$soname.exp; fi~ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~ linknames=' # The linker will not automatically build a static lib if we build a DLL. # _LT_TAGVAR(old_archive_from_new_cmds, $1)='true' _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes # Don't use ranlib _LT_TAGVAR(old_postinstall_cmds, $1)='chmod 644 $oldlib' _LT_TAGVAR(postlink_cmds, $1)='lt_outputfile="@OUTPUT@"~ lt_tool_outputfile="@TOOL_OUTPUT@"~ case $lt_outputfile in *.exe|*.EXE) ;; *) lt_outputfile="$lt_outputfile.exe" lt_tool_outputfile="$lt_tool_outputfile.exe" ;; esac~ func_to_tool_file "$lt_outputfile"~ if test "$MANIFEST_TOOL" != ":" && test -f "$lt_outputfile.manifest"; then $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1; $RM "$lt_outputfile.manifest"; fi' ;; *) # g++ # _LT_TAGVAR(hardcode_libdir_flag_spec, $1) is actually meaningless, # as there is no search path for DLLs. _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-all-symbols' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' # If the export-symbols file already is a .def file (1st line # is EXPORTS), use it as is; otherwise, prepend... _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then cp $export_symbols $output_objdir/$soname.def; else echo EXPORTS > $output_objdir/$soname.def; cat $export_symbols >> $output_objdir/$soname.def; fi~ $CC -shared -nostdlib $output_objdir/$soname.def $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; darwin* | rhapsody*) _LT_DARWIN_LINKER_FEATURES($1) ;; dgux*) case $cc_basename in ec++*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; ghcx*) # Green Hills C++ Compiler # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; freebsd2.*) # C++ shared libraries reported to be fairly broken before # switch to ELF _LT_TAGVAR(ld_shlibs, $1)=no ;; freebsd-elf*) _LT_TAGVAR(archive_cmds_need_lc, $1)=no ;; freebsd* | dragonfly*) # FreeBSD 3 and later use GNU C++ and GNU ld with standard ELF # conventions _LT_TAGVAR(ld_shlibs, $1)=yes ;; gnu*) ;; haiku*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(link_all_deplibs, $1)=yes ;; hpux9*) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_minus_L, $1)=yes # Not in the search PATH, # but as the default # location of the library. case $cc_basename in CC*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; aCC*) _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -b ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | $EGREP "\-L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' ;; *) if test "$GXX" = yes; then _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -shared -nostdlib $pic_flag ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' else # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; hpux10*|hpux11*) if test $with_gnu_ld = no; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: case $host_cpu in hppa*64*|ia64*) ;; *) _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' ;; esac fi case $host_cpu in hppa*64*|ia64*) _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *) _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(hardcode_minus_L, $1)=yes # Not in the search PATH, # but as the default # location of the library. ;; esac case $cc_basename in CC*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; aCC*) case $host_cpu in hppa*64*) _LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; ia64*) _LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; esac # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | $GREP "\-L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' ;; *) if test "$GXX" = yes; then if test $with_gnu_ld = no; then case $host_cpu in hppa*64*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib -fPIC ${wl}+h ${wl}$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; ia64*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $pic_flag ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; esac fi else # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; interix[[3-9]]*) _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. # Instead, shared libraries are loaded at an image base (0x10000000 by # default) and relocated if they conflict, which is a slow very memory # consuming and fragmenting process. To avoid this, we pick a random, # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link # time. Moving up from 0x10000000 also allows more sbrk(2) space. _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' ;; irix5* | irix6*) case $cc_basename in CC*) # SGI C++ _LT_TAGVAR(archive_cmds, $1)='$CC -shared -all -multigot $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' # Archives containing C++ object files must be created using # "CC -ar", where "CC" is the IRIX C++ compiler. This is # necessary to make sure instantiated templates are included # in the archive. _LT_TAGVAR(old_archive_cmds, $1)='$CC -ar -WR,-u -o $oldlib $oldobjs' ;; *) if test "$GXX" = yes; then if test "$with_gnu_ld" = no; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' else _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` -o $lib' fi fi _LT_TAGVAR(link_all_deplibs, $1)=yes ;; esac _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(inherit_rpath, $1)=yes ;; linux* | k*bsd*-gnu | kopensolaris*-gnu) case $cc_basename in KCC*) # Kuck and Associates, Inc. (KAI) C++ Compiler # KCC will only create a shared library if the output file # ends with ".so" (or ".sl" for HP-UX), so rename the library # to its proper name (with version) after linking. _LT_TAGVAR(archive_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib ${wl}-retain-symbols-file,$export_symbols; mv \$templib $lib' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`$CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 | $GREP "ld"`; rm -f libconftest$shared_ext; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' # Archives containing C++ object files must be created using # "CC -Bstatic", where "CC" is the KAI C++ compiler. _LT_TAGVAR(old_archive_cmds, $1)='$CC -Bstatic -o $oldlib $oldobjs' ;; icpc* | ecpc* ) # Intel C++ with_gnu_ld=yes # version 8.0 and above of icpc choke on multiply defined symbols # if we add $predep_objects and $postdep_objects, however 7.1 and # earlier do not add the objects themselves. case `$CC -V 2>&1` in *"Version 7."*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' ;; *) # Version 8.0 or newer tmp_idyn= case $host_cpu in ia64*) tmp_idyn=' -i_dynamic';; esac _LT_TAGVAR(archive_cmds, $1)='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' ;; esac _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive$convenience ${wl}--no-whole-archive' ;; pgCC* | pgcpp*) # Portland Group C++ compiler case `$CC -V` in *pgCC\ [[1-5]].* | *pgcpp\ [[1-5]].*) _LT_TAGVAR(prelink_cmds, $1)='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $objs $libobjs $compile_deplibs~ compile_command="$compile_command `find $tpldir -name \*.o | sort | $NL2SP`"' _LT_TAGVAR(old_archive_cmds, $1)='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $oldobjs$old_deplibs~ $AR $AR_FLAGS $oldlib$oldobjs$old_deplibs `find $tpldir -name \*.o | sort | $NL2SP`~ $RANLIB $oldlib' _LT_TAGVAR(archive_cmds, $1)='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $predep_objects $libobjs $deplibs $convenience $postdep_objects~ $CC -shared $pic_flag $predep_objects $libobjs $deplibs `find $tpldir -name \*.o | sort | $NL2SP` $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $predep_objects $libobjs $deplibs $convenience $postdep_objects~ $CC -shared $pic_flag $predep_objects $libobjs $deplibs `find $tpldir -name \*.o | sort | $NL2SP` $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname ${wl}-retain-symbols-file ${wl}$export_symbols -o $lib' ;; *) # Version 6 and above use weak symbols _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname ${wl}-retain-symbols-file ${wl}$export_symbols -o $lib' ;; esac _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}--rpath ${wl}$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' ;; cxx*) # Compaq C++ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib ${wl}-retain-symbols-file $wl$export_symbols' runpath_var=LD_RUN_PATH _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "ld"`; templist=`func_echo_all "$templist" | $SED "s/\(^.*ld.*\)\( .*ld .*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "X$list" | $Xsed' ;; xl* | mpixl* | bgxl*) # IBM XL 8.0 on PPC, with GNU ld _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' _LT_TAGVAR(archive_cmds, $1)='$CC -qmkshrobj $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' if test "x$supports_anon_versioning" = xyes; then _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $CC -qmkshrobj $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' fi ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 _LT_TAGVAR(no_undefined_flag, $1)=' -zdefs' _LT_TAGVAR(archive_cmds, $1)='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-retain-symbols-file ${wl}$export_symbols' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' _LT_TAGVAR(compiler_needs_object, $1)=yes # Not sure whether something based on # $CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 # would be better. output_verbose_link_cmd='func_echo_all' # Archives containing C++ object files must be created using # "CC -xar", where "CC" is the Sun C++ compiler. This is # necessary to make sure instantiated templates are included # in the archive. _LT_TAGVAR(old_archive_cmds, $1)='$CC -xar -o $oldlib $oldobjs' ;; esac ;; esac ;; lynxos*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; m88k*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; mvs*) case $cc_basename in cxx*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; netbsd*) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $predep_objects $libobjs $deplibs $postdep_objects $linker_flags' wlarc= _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no fi # Workaround some broken pre-1.5 toolchains output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP conftest.$objext | $SED -e "s:-lgcc -lc -lgcc::"' ;; *nto* | *qnx*) _LT_TAGVAR(ld_shlibs, $1)=yes ;; openbsd2*) # C++ shared libraries are fairly broken _LT_TAGVAR(ld_shlibs, $1)=no ;; openbsd*) if test -f /usr/libexec/ld.so; then _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-retain-symbols-file,$export_symbols -o $lib' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' _LT_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' fi output_verbose_link_cmd=func_echo_all else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; osf3* | osf4* | osf5*) case $cc_basename in KCC*) # Kuck and Associates, Inc. (KAI) C++ Compiler # KCC will only create a shared library if the output file # ends with ".so" (or ".sl" for HP-UX), so rename the library # to its proper name (with version) after linking. _LT_TAGVAR(archive_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo "$lib" | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: # Archives containing C++ object files must be created using # the KAI C++ compiler. case $host in osf3*) _LT_TAGVAR(old_archive_cmds, $1)='$CC -Bstatic -o $oldlib $oldobjs' ;; *) _LT_TAGVAR(old_archive_cmds, $1)='$CC -o $oldlib $oldobjs' ;; esac ;; RCC*) # Rational C++ 2.4.1 # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; cxx*) case $host in osf3*) _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $soname `test -n "$verstring" && func_echo_all "${wl}-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' ;; *) _LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done~ echo "-hidden">> $lib.exp~ $CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname ${wl}-input ${wl}$lib.exp `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib~ $RM $lib.exp' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' ;; esac _LT_TAGVAR(hardcode_libdir_separator, $1)=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "ld" | $GREP -v "ld:"`; templist=`func_echo_all "$templist" | $SED "s/\(^.*ld.*\)\( .*ld.*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' ;; *) if test "$GXX" = yes && test "$with_gnu_ld" = no; then _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' case $host in osf3*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' ;; esac _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' else # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; psos*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; sunos4*) case $cc_basename in CC*) # Sun C++ 4.x # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; lcc*) # Lucid # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; solaris*) case $cc_basename in CC* | sunCC*) # Sun C++ 4.2, 5.x and Centerline C++ _LT_TAGVAR(archive_cmds_need_lc,$1)=yes _LT_TAGVAR(no_undefined_flag, $1)=' -zdefs' _LT_TAGVAR(archive_cmds, $1)='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G${allow_undefined_flag} ${wl}-M ${wl}$lib.exp -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no case $host_os in solaris2.[[0-5]] | solaris2.[[0-5]].*) ;; *) # The compiler driver will combine and reorder linker options, # but understands `-z linker_flag'. # Supported since Solaris 2.6 (maybe 2.5.1?) _LT_TAGVAR(whole_archive_flag_spec, $1)='-z allextract$convenience -z defaultextract' ;; esac _LT_TAGVAR(link_all_deplibs, $1)=yes output_verbose_link_cmd='func_echo_all' # Archives containing C++ object files must be created using # "CC -xar", where "CC" is the Sun C++ compiler. This is # necessary to make sure instantiated templates are included # in the archive. _LT_TAGVAR(old_archive_cmds, $1)='$CC -xar -o $oldlib $oldobjs' ;; gcx*) # Green Hills C++ Compiler _LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' # The C++ compiler must be used to create the archive. _LT_TAGVAR(old_archive_cmds, $1)='$CC $LDFLAGS -archive -o $oldlib $oldobjs' ;; *) # GNU C++ compiler with Solaris linker if test "$GXX" = yes && test "$with_gnu_ld" = no; then _LT_TAGVAR(no_undefined_flag, $1)=' ${wl}-z ${wl}defs' if $CC --version | $GREP -v '^2\.7' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -shared $pic_flag -nostdlib ${wl}-M $wl$lib.exp -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' else # g++ 2.7 appears to require `-G' NOT `-shared' on this # platform. _LT_TAGVAR(archive_cmds, $1)='$CC -G -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G -nostdlib ${wl}-M $wl$lib.exp -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -G $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $wl$libdir' case $host_os in solaris2.[[0-5]] | solaris2.[[0-5]].*) ;; *) _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract' ;; esac fi ;; esac ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[[01]].[[10]]* | unixware7* | sco3.2v5.0.[[024]]*) _LT_TAGVAR(no_undefined_flag, $1)='${wl}-z,text' _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no runpath_var='LD_RUN_PATH' case $cc_basename in CC*) _LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' ;; esac ;; sysv5* | sco3.2v5* | sco5v6*) # Note: We can NOT use -z defs as we might desire, because we do not # link with -lc, and that would cause any symbols used from libc to # always be unresolved, which means just about no library would # ever link correctly. If we're not using GNU ld we use -z text # though, which does catch some bad symbols but isn't as heavy-handed # as -z defs. _LT_TAGVAR(no_undefined_flag, $1)='${wl}-z,text' _LT_TAGVAR(allow_undefined_flag, $1)='${wl}-z,nodefs' _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R,$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=':' _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-Bexport' runpath_var='LD_RUN_PATH' case $cc_basename in CC*) _LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(old_archive_cmds, $1)='$CC -Tprelink_objects $oldobjs~ '"$_LT_TAGVAR(old_archive_cmds, $1)" _LT_TAGVAR(reload_cmds, $1)='$CC -Tprelink_objects $reload_objs~ '"$_LT_TAGVAR(reload_cmds, $1)" ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' ;; esac ;; tandem*) case $cc_basename in NCC*) # NonStop-UX NCC 3.20 # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; vxworks*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac AC_MSG_RESULT([$_LT_TAGVAR(ld_shlibs, $1)]) test "$_LT_TAGVAR(ld_shlibs, $1)" = no && can_build_shared=no _LT_TAGVAR(GCC, $1)="$GXX" _LT_TAGVAR(LD, $1)="$LD" ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... _LT_SYS_HIDDEN_LIBDEPS($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_SYS_DYNAMIC_LINKER($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi # test -n "$compiler" CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS LDCXX=$LD LD=$lt_save_LD GCC=$lt_save_GCC with_gnu_ld=$lt_save_with_gnu_ld lt_cv_path_LDCXX=$lt_cv_path_LD lt_cv_path_LD=$lt_save_path_LD lt_cv_prog_gnu_ldcxx=$lt_cv_prog_gnu_ld lt_cv_prog_gnu_ld=$lt_save_with_gnu_ld fi # test "$_lt_caught_CXX_error" != yes AC_LANG_POP ])# _LT_LANG_CXX_CONFIG # _LT_FUNC_STRIPNAME_CNF # ---------------------- # func_stripname_cnf prefix suffix name # strip PREFIX and SUFFIX off of NAME. # PREFIX and SUFFIX must not contain globbing or regex special # characters, hashes, percent signs, but SUFFIX may contain a leading # dot (in which case that matches only a dot). # # This function is identical to the (non-XSI) version of func_stripname, # except this one can be used by m4 code that may be executed by configure, # rather than the libtool script. m4_defun([_LT_FUNC_STRIPNAME_CNF],[dnl AC_REQUIRE([_LT_DECL_SED]) AC_REQUIRE([_LT_PROG_ECHO_BACKSLASH]) func_stripname_cnf () { case ${2} in .*) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%\\\\${2}\$%%"`;; *) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%${2}\$%%"`;; esac } # func_stripname_cnf ])# _LT_FUNC_STRIPNAME_CNF # _LT_SYS_HIDDEN_LIBDEPS([TAGNAME]) # --------------------------------- # Figure out "hidden" library dependencies from verbose # compiler output when linking a shared library. # Parse the compiler output and extract the necessary # objects, libraries and library flags. m4_defun([_LT_SYS_HIDDEN_LIBDEPS], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl AC_REQUIRE([_LT_FUNC_STRIPNAME_CNF])dnl # Dependencies to place before and after the object being linked: _LT_TAGVAR(predep_objects, $1)= _LT_TAGVAR(postdep_objects, $1)= _LT_TAGVAR(predeps, $1)= _LT_TAGVAR(postdeps, $1)= _LT_TAGVAR(compiler_lib_search_path, $1)= dnl we can't use the lt_simple_compile_test_code here, dnl because it contains code intended for an executable, dnl not a library. It's possible we should let each dnl tag define a new lt_????_link_test_code variable, dnl but it's only used here... m4_if([$1], [], [cat > conftest.$ac_ext <<_LT_EOF int a; void foo (void) { a = 0; } _LT_EOF ], [$1], [CXX], [cat > conftest.$ac_ext <<_LT_EOF class Foo { public: Foo (void) { a = 0; } private: int a; }; _LT_EOF ], [$1], [F77], [cat > conftest.$ac_ext <<_LT_EOF subroutine foo implicit none integer*4 a a=0 return end _LT_EOF ], [$1], [FC], [cat > conftest.$ac_ext <<_LT_EOF subroutine foo implicit none integer a a=0 return end _LT_EOF ], [$1], [GCJ], [cat > conftest.$ac_ext <<_LT_EOF public class foo { private int a; public void bar (void) { a = 0; } }; _LT_EOF ], [$1], [GO], [cat > conftest.$ac_ext <<_LT_EOF package foo func foo() { } _LT_EOF ]) _lt_libdeps_save_CFLAGS=$CFLAGS case "$CC $CFLAGS " in #( *\ -flto*\ *) CFLAGS="$CFLAGS -fno-lto" ;; *\ -fwhopr*\ *) CFLAGS="$CFLAGS -fno-whopr" ;; *\ -fuse-linker-plugin*\ *) CFLAGS="$CFLAGS -fno-use-linker-plugin" ;; esac dnl Parse the compiler output and extract the necessary dnl objects, libraries and library flags. if AC_TRY_EVAL(ac_compile); then # Parse the compiler output and extract the necessary # objects, libraries and library flags. # Sentinel used to keep track of whether or not we are before # the conftest object file. pre_test_object_deps_done=no for p in `eval "$output_verbose_link_cmd"`; do case ${prev}${p} in -L* | -R* | -l*) # Some compilers place space between "-{L,R}" and the path. # Remove the space. if test $p = "-L" || test $p = "-R"; then prev=$p continue fi # Expand the sysroot to ease extracting the directories later. if test -z "$prev"; then case $p in -L*) func_stripname_cnf '-L' '' "$p"; prev=-L; p=$func_stripname_result ;; -R*) func_stripname_cnf '-R' '' "$p"; prev=-R; p=$func_stripname_result ;; -l*) func_stripname_cnf '-l' '' "$p"; prev=-l; p=$func_stripname_result ;; esac fi case $p in =*) func_stripname_cnf '=' '' "$p"; p=$lt_sysroot$func_stripname_result ;; esac if test "$pre_test_object_deps_done" = no; then case ${prev} in -L | -R) # Internal compiler library paths should come after those # provided the user. The postdeps already come after the # user supplied libs so there is no need to process them. if test -z "$_LT_TAGVAR(compiler_lib_search_path, $1)"; then _LT_TAGVAR(compiler_lib_search_path, $1)="${prev}${p}" else _LT_TAGVAR(compiler_lib_search_path, $1)="${_LT_TAGVAR(compiler_lib_search_path, $1)} ${prev}${p}" fi ;; # The "-l" case would never come before the object being # linked, so don't bother handling this case. esac else if test -z "$_LT_TAGVAR(postdeps, $1)"; then _LT_TAGVAR(postdeps, $1)="${prev}${p}" else _LT_TAGVAR(postdeps, $1)="${_LT_TAGVAR(postdeps, $1)} ${prev}${p}" fi fi prev= ;; *.lto.$objext) ;; # Ignore GCC LTO objects *.$objext) # This assumes that the test object file only shows up # once in the compiler output. if test "$p" = "conftest.$objext"; then pre_test_object_deps_done=yes continue fi if test "$pre_test_object_deps_done" = no; then if test -z "$_LT_TAGVAR(predep_objects, $1)"; then _LT_TAGVAR(predep_objects, $1)="$p" else _LT_TAGVAR(predep_objects, $1)="$_LT_TAGVAR(predep_objects, $1) $p" fi else if test -z "$_LT_TAGVAR(postdep_objects, $1)"; then _LT_TAGVAR(postdep_objects, $1)="$p" else _LT_TAGVAR(postdep_objects, $1)="$_LT_TAGVAR(postdep_objects, $1) $p" fi fi ;; *) ;; # Ignore the rest. esac done # Clean up. rm -f a.out a.exe else echo "libtool.m4: error: problem compiling $1 test program" fi $RM -f confest.$objext CFLAGS=$_lt_libdeps_save_CFLAGS # PORTME: override above test on systems where it is broken m4_if([$1], [CXX], [case $host_os in interix[[3-9]]*) # Interix 3.5 installs completely hosed .la files for C++, so rather than # hack all around it, let's just trust "g++" to DTRT. _LT_TAGVAR(predep_objects,$1)= _LT_TAGVAR(postdep_objects,$1)= _LT_TAGVAR(postdeps,$1)= ;; linux*) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 # The more standards-conforming stlport4 library is # incompatible with the Cstd library. Avoid specifying # it if it's in CXXFLAGS. Ignore libCrun as # -library=stlport4 depends on it. case " $CXX $CXXFLAGS " in *" -library=stlport4 "*) solaris_use_stlport4=yes ;; esac if test "$solaris_use_stlport4" != yes; then _LT_TAGVAR(postdeps,$1)='-library=Cstd -library=Crun' fi ;; esac ;; solaris*) case $cc_basename in CC* | sunCC*) # The more standards-conforming stlport4 library is # incompatible with the Cstd library. Avoid specifying # it if it's in CXXFLAGS. Ignore libCrun as # -library=stlport4 depends on it. case " $CXX $CXXFLAGS " in *" -library=stlport4 "*) solaris_use_stlport4=yes ;; esac # Adding this requires a known-good setup of shared libraries for # Sun compiler versions before 5.6, else PIC objects from an old # archive will be linked into the output, leading to subtle bugs. if test "$solaris_use_stlport4" != yes; then _LT_TAGVAR(postdeps,$1)='-library=Cstd -library=Crun' fi ;; esac ;; esac ]) case " $_LT_TAGVAR(postdeps, $1) " in *" -lc "*) _LT_TAGVAR(archive_cmds_need_lc, $1)=no ;; esac _LT_TAGVAR(compiler_lib_search_dirs, $1)= if test -n "${_LT_TAGVAR(compiler_lib_search_path, $1)}"; then _LT_TAGVAR(compiler_lib_search_dirs, $1)=`echo " ${_LT_TAGVAR(compiler_lib_search_path, $1)}" | ${SED} -e 's! -L! !g' -e 's!^ !!'` fi _LT_TAGDECL([], [compiler_lib_search_dirs], [1], [The directories searched by this compiler when creating a shared library]) _LT_TAGDECL([], [predep_objects], [1], [Dependencies to place before and after the objects being linked to create a shared library]) _LT_TAGDECL([], [postdep_objects], [1]) _LT_TAGDECL([], [predeps], [1]) _LT_TAGDECL([], [postdeps], [1]) _LT_TAGDECL([], [compiler_lib_search_path], [1], [The library search path used internally by the compiler when linking a shared library]) ])# _LT_SYS_HIDDEN_LIBDEPS # _LT_LANG_F77_CONFIG([TAG]) # -------------------------- # Ensure that the configuration variables for a Fortran 77 compiler are # suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to `libtool'. m4_defun([_LT_LANG_F77_CONFIG], [AC_LANG_PUSH(Fortran 77) if test -z "$F77" || test "X$F77" = "Xno"; then _lt_disable_F77=yes fi _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(allow_undefined_flag, $1)= _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(archive_expsym_cmds, $1)= _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(hardcode_libdir_separator, $1)= _LT_TAGVAR(hardcode_minus_L, $1)=no _LT_TAGVAR(hardcode_automatic, $1)=no _LT_TAGVAR(inherit_rpath, $1)=no _LT_TAGVAR(module_cmds, $1)= _LT_TAGVAR(module_expsym_cmds, $1)= _LT_TAGVAR(link_all_deplibs, $1)=unknown _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds _LT_TAGVAR(no_undefined_flag, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no # Source file extension for f77 test sources. ac_ext=f # Object file extension for compiled f77 test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # No sense in running all these tests if we already determined that # the F77 compiler isn't working. Some variables (like enable_shared) # are currently assumed to apply to all compilers on this platform, # and will be corrupted by setting them based on a non-working compiler. if test "$_lt_disable_F77" != yes; then # Code to be used in simple compile tests lt_simple_compile_test_code="\ subroutine t return end " # Code to be used in simple link tests lt_simple_link_test_code="\ program t end " # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC="$CC" lt_save_GCC=$GCC lt_save_CFLAGS=$CFLAGS CC=${F77-"f77"} CFLAGS=$FFLAGS compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_CC_BASENAME([$compiler]) GCC=$G77 if test -n "$compiler"; then AC_MSG_CHECKING([if libtool supports shared libraries]) AC_MSG_RESULT([$can_build_shared]) AC_MSG_CHECKING([whether to build shared libraries]) test "$can_build_shared" = "no" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[[4-9]]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no fi ;; esac AC_MSG_RESULT([$enable_shared]) AC_MSG_CHECKING([whether to build static libraries]) # Make sure either enable_shared or enable_static is yes. test "$enable_shared" = yes || enable_static=yes AC_MSG_RESULT([$enable_static]) _LT_TAGVAR(GCC, $1)="$G77" _LT_TAGVAR(LD, $1)="$LD" ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_SYS_DYNAMIC_LINKER($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi # test -n "$compiler" GCC=$lt_save_GCC CC="$lt_save_CC" CFLAGS="$lt_save_CFLAGS" fi # test "$_lt_disable_F77" != yes AC_LANG_POP ])# _LT_LANG_F77_CONFIG # _LT_LANG_FC_CONFIG([TAG]) # ------------------------- # Ensure that the configuration variables for a Fortran compiler are # suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to `libtool'. m4_defun([_LT_LANG_FC_CONFIG], [AC_LANG_PUSH(Fortran) if test -z "$FC" || test "X$FC" = "Xno"; then _lt_disable_FC=yes fi _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(allow_undefined_flag, $1)= _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(archive_expsym_cmds, $1)= _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(hardcode_libdir_separator, $1)= _LT_TAGVAR(hardcode_minus_L, $1)=no _LT_TAGVAR(hardcode_automatic, $1)=no _LT_TAGVAR(inherit_rpath, $1)=no _LT_TAGVAR(module_cmds, $1)= _LT_TAGVAR(module_expsym_cmds, $1)= _LT_TAGVAR(link_all_deplibs, $1)=unknown _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds _LT_TAGVAR(no_undefined_flag, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no # Source file extension for fc test sources. ac_ext=${ac_fc_srcext-f} # Object file extension for compiled fc test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # No sense in running all these tests if we already determined that # the FC compiler isn't working. Some variables (like enable_shared) # are currently assumed to apply to all compilers on this platform, # and will be corrupted by setting them based on a non-working compiler. if test "$_lt_disable_FC" != yes; then # Code to be used in simple compile tests lt_simple_compile_test_code="\ subroutine t return end " # Code to be used in simple link tests lt_simple_link_test_code="\ program t end " # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC="$CC" lt_save_GCC=$GCC lt_save_CFLAGS=$CFLAGS CC=${FC-"f95"} CFLAGS=$FCFLAGS compiler=$CC GCC=$ac_cv_fc_compiler_gnu _LT_TAGVAR(compiler, $1)=$CC _LT_CC_BASENAME([$compiler]) if test -n "$compiler"; then AC_MSG_CHECKING([if libtool supports shared libraries]) AC_MSG_RESULT([$can_build_shared]) AC_MSG_CHECKING([whether to build shared libraries]) test "$can_build_shared" = "no" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[[4-9]]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no fi ;; esac AC_MSG_RESULT([$enable_shared]) AC_MSG_CHECKING([whether to build static libraries]) # Make sure either enable_shared or enable_static is yes. test "$enable_shared" = yes || enable_static=yes AC_MSG_RESULT([$enable_static]) _LT_TAGVAR(GCC, $1)="$ac_cv_fc_compiler_gnu" _LT_TAGVAR(LD, $1)="$LD" ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... _LT_SYS_HIDDEN_LIBDEPS($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_SYS_DYNAMIC_LINKER($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi # test -n "$compiler" GCC=$lt_save_GCC CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS fi # test "$_lt_disable_FC" != yes AC_LANG_POP ])# _LT_LANG_FC_CONFIG # _LT_LANG_GCJ_CONFIG([TAG]) # -------------------------- # Ensure that the configuration variables for the GNU Java Compiler compiler # are suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to `libtool'. m4_defun([_LT_LANG_GCJ_CONFIG], [AC_REQUIRE([LT_PROG_GCJ])dnl AC_LANG_SAVE # Source file extension for Java test sources. ac_ext=java # Object file extension for compiled Java test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="class foo {}" # Code to be used in simple link tests lt_simple_link_test_code='public class conftest { public static void main(String[[]] argv) {}; }' # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC=$CC lt_save_CFLAGS=$CFLAGS lt_save_GCC=$GCC GCC=yes CC=${GCJ-"gcj"} CFLAGS=$GCJFLAGS compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_TAGVAR(LD, $1)="$LD" _LT_CC_BASENAME([$compiler]) # GCJ did not exist at the time GCC didn't implicitly link libc in. _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... if test -n "$compiler"; then _LT_COMPILER_NO_RTTI($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi AC_LANG_RESTORE GCC=$lt_save_GCC CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS ])# _LT_LANG_GCJ_CONFIG # _LT_LANG_GO_CONFIG([TAG]) # -------------------------- # Ensure that the configuration variables for the GNU Go compiler # are suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to `libtool'. m4_defun([_LT_LANG_GO_CONFIG], [AC_REQUIRE([LT_PROG_GO])dnl AC_LANG_SAVE # Source file extension for Go test sources. ac_ext=go # Object file extension for compiled Go test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="package main; func main() { }" # Code to be used in simple link tests lt_simple_link_test_code='package main; func main() { }' # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC=$CC lt_save_CFLAGS=$CFLAGS lt_save_GCC=$GCC GCC=yes CC=${GOC-"gccgo"} CFLAGS=$GOFLAGS compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_TAGVAR(LD, $1)="$LD" _LT_CC_BASENAME([$compiler]) # Go did not exist at the time GCC didn't implicitly link libc in. _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... if test -n "$compiler"; then _LT_COMPILER_NO_RTTI($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi AC_LANG_RESTORE GCC=$lt_save_GCC CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS ])# _LT_LANG_GO_CONFIG # _LT_LANG_RC_CONFIG([TAG]) # ------------------------- # Ensure that the configuration variables for the Windows resource compiler # are suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to `libtool'. m4_defun([_LT_LANG_RC_CONFIG], [AC_REQUIRE([LT_PROG_RC])dnl AC_LANG_SAVE # Source file extension for RC test sources. ac_ext=rc # Object file extension for compiled RC test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # Code to be used in simple compile tests lt_simple_compile_test_code='sample MENU { MENUITEM "&Soup", 100, CHECKED }' # Code to be used in simple link tests lt_simple_link_test_code="$lt_simple_compile_test_code" # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC="$CC" lt_save_CFLAGS=$CFLAGS lt_save_GCC=$GCC GCC= CC=${RC-"windres"} CFLAGS= compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_CC_BASENAME([$compiler]) _LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=yes if test -n "$compiler"; then : _LT_CONFIG($1) fi GCC=$lt_save_GCC AC_LANG_RESTORE CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS ])# _LT_LANG_RC_CONFIG # LT_PROG_GCJ # ----------- AC_DEFUN([LT_PROG_GCJ], [m4_ifdef([AC_PROG_GCJ], [AC_PROG_GCJ], [m4_ifdef([A][M_PROG_GCJ], [A][M_PROG_GCJ], [AC_CHECK_TOOL(GCJ, gcj,) test "x${GCJFLAGS+set}" = xset || GCJFLAGS="-g -O2" AC_SUBST(GCJFLAGS)])])[]dnl ]) # Old name: AU_ALIAS([LT_AC_PROG_GCJ], [LT_PROG_GCJ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([LT_AC_PROG_GCJ], []) # LT_PROG_GO # ---------- AC_DEFUN([LT_PROG_GO], [AC_CHECK_TOOL(GOC, gccgo,) ]) # LT_PROG_RC # ---------- AC_DEFUN([LT_PROG_RC], [AC_CHECK_TOOL(RC, windres,) ]) # Old name: AU_ALIAS([LT_AC_PROG_RC], [LT_PROG_RC]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([LT_AC_PROG_RC], []) # _LT_DECL_EGREP # -------------- # If we don't have a new enough Autoconf to choose the best grep # available, choose the one first in the user's PATH. m4_defun([_LT_DECL_EGREP], [AC_REQUIRE([AC_PROG_EGREP])dnl AC_REQUIRE([AC_PROG_FGREP])dnl test -z "$GREP" && GREP=grep _LT_DECL([], [GREP], [1], [A grep program that handles long lines]) _LT_DECL([], [EGREP], [1], [An ERE matcher]) _LT_DECL([], [FGREP], [1], [A literal string matcher]) dnl Non-bleeding-edge autoconf doesn't subst GREP, so do it here too AC_SUBST([GREP]) ]) # _LT_DECL_OBJDUMP # -------------- # If we don't have a new enough Autoconf to choose the best objdump # available, choose the one first in the user's PATH. m4_defun([_LT_DECL_OBJDUMP], [AC_CHECK_TOOL(OBJDUMP, objdump, false) test -z "$OBJDUMP" && OBJDUMP=objdump _LT_DECL([], [OBJDUMP], [1], [An object symbol dumper]) AC_SUBST([OBJDUMP]) ]) # _LT_DECL_DLLTOOL # ---------------- # Ensure DLLTOOL variable is set. m4_defun([_LT_DECL_DLLTOOL], [AC_CHECK_TOOL(DLLTOOL, dlltool, false) test -z "$DLLTOOL" && DLLTOOL=dlltool _LT_DECL([], [DLLTOOL], [1], [DLL creation program]) AC_SUBST([DLLTOOL]) ]) # _LT_DECL_SED # ------------ # Check for a fully-functional sed program, that truncates # as few characters as possible. Prefer GNU sed if found. m4_defun([_LT_DECL_SED], [AC_PROG_SED test -z "$SED" && SED=sed Xsed="$SED -e 1s/^X//" _LT_DECL([], [SED], [1], [A sed program that does not truncate output]) _LT_DECL([], [Xsed], ["\$SED -e 1s/^X//"], [Sed that helps us avoid accidentally triggering echo(1) options like -n]) ])# _LT_DECL_SED m4_ifndef([AC_PROG_SED], [ ############################################################ # NOTE: This macro has been submitted for inclusion into # # GNU Autoconf as AC_PROG_SED. When it is available in # # a released version of Autoconf we should remove this # # macro and use it instead. # ############################################################ m4_defun([AC_PROG_SED], [AC_MSG_CHECKING([for a sed that does not truncate output]) AC_CACHE_VAL(lt_cv_path_SED, [# Loop through the user's path and test for sed and gsed. # Then use that list of sed's as ones to test for truncation. as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for lt_ac_prog in sed gsed; do for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$lt_ac_prog$ac_exec_ext"; then lt_ac_sed_list="$lt_ac_sed_list $as_dir/$lt_ac_prog$ac_exec_ext" fi done done done IFS=$as_save_IFS lt_ac_max=0 lt_ac_count=0 # Add /usr/xpg4/bin/sed as it is typically found on Solaris # along with /bin/sed that truncates output. for lt_ac_sed in $lt_ac_sed_list /usr/xpg4/bin/sed; do test ! -f $lt_ac_sed && continue cat /dev/null > conftest.in lt_ac_count=0 echo $ECHO_N "0123456789$ECHO_C" >conftest.in # Check for GNU sed and select it if it is found. if "$lt_ac_sed" --version 2>&1 < /dev/null | grep 'GNU' > /dev/null; then lt_cv_path_SED=$lt_ac_sed break fi while true; do cat conftest.in conftest.in >conftest.tmp mv conftest.tmp conftest.in cp conftest.in conftest.nl echo >>conftest.nl $lt_ac_sed -e 's/a$//' < conftest.nl >conftest.out || break cmp -s conftest.out conftest.nl || break # 10000 chars as input seems more than enough test $lt_ac_count -gt 10 && break lt_ac_count=`expr $lt_ac_count + 1` if test $lt_ac_count -gt $lt_ac_max; then lt_ac_max=$lt_ac_count lt_cv_path_SED=$lt_ac_sed fi done done ]) SED=$lt_cv_path_SED AC_SUBST([SED]) AC_MSG_RESULT([$SED]) ])#AC_PROG_SED ])#m4_ifndef # Old name: AU_ALIAS([LT_AC_PROG_SED], [AC_PROG_SED]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([LT_AC_PROG_SED], []) # _LT_CHECK_SHELL_FEATURES # ------------------------ # Find out whether the shell is Bourne or XSI compatible, # or has some other useful features. m4_defun([_LT_CHECK_SHELL_FEATURES], [AC_MSG_CHECKING([whether the shell understands some XSI constructs]) # Try some XSI features xsi_shell=no ( _lt_dummy="a/b/c" test "${_lt_dummy##*/},${_lt_dummy%/*},${_lt_dummy#??}"${_lt_dummy%"$_lt_dummy"}, \ = c,a/b,b/c, \ && eval 'test $(( 1 + 1 )) -eq 2 \ && test "${#_lt_dummy}" -eq 5' ) >/dev/null 2>&1 \ && xsi_shell=yes AC_MSG_RESULT([$xsi_shell]) _LT_CONFIG_LIBTOOL_INIT([xsi_shell='$xsi_shell']) AC_MSG_CHECKING([whether the shell understands "+="]) lt_shell_append=no ( foo=bar; set foo baz; eval "$[1]+=\$[2]" && test "$foo" = barbaz ) \ >/dev/null 2>&1 \ && lt_shell_append=yes AC_MSG_RESULT([$lt_shell_append]) _LT_CONFIG_LIBTOOL_INIT([lt_shell_append='$lt_shell_append']) if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then lt_unset=unset else lt_unset=false fi _LT_DECL([], [lt_unset], [0], [whether the shell understands "unset"])dnl # test EBCDIC or ASCII case `echo X|tr X '\101'` in A) # ASCII based system # \n is not interpreted correctly by Solaris 8 /usr/ucb/tr lt_SP2NL='tr \040 \012' lt_NL2SP='tr \015\012 \040\040' ;; *) # EBCDIC based system lt_SP2NL='tr \100 \n' lt_NL2SP='tr \r\n \100\100' ;; esac _LT_DECL([SP2NL], [lt_SP2NL], [1], [turn spaces into newlines])dnl _LT_DECL([NL2SP], [lt_NL2SP], [1], [turn newlines into spaces])dnl ])# _LT_CHECK_SHELL_FEATURES # _LT_PROG_FUNCTION_REPLACE (FUNCNAME, REPLACEMENT-BODY) # ------------------------------------------------------ # In `$cfgfile', look for function FUNCNAME delimited by `^FUNCNAME ()$' and # '^} FUNCNAME ', and replace its body with REPLACEMENT-BODY. m4_defun([_LT_PROG_FUNCTION_REPLACE], [dnl { sed -e '/^$1 ()$/,/^} # $1 /c\ $1 ()\ {\ m4_bpatsubsts([$2], [$], [\\], [^\([ ]\)], [\\\1]) } # Extended-shell $1 implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: ]) # _LT_PROG_REPLACE_SHELLFNS # ------------------------- # Replace existing portable implementations of several shell functions with # equivalent extended shell implementations where those features are available.. m4_defun([_LT_PROG_REPLACE_SHELLFNS], [if test x"$xsi_shell" = xyes; then _LT_PROG_FUNCTION_REPLACE([func_dirname], [dnl case ${1} in */*) func_dirname_result="${1%/*}${2}" ;; * ) func_dirname_result="${3}" ;; esac]) _LT_PROG_FUNCTION_REPLACE([func_basename], [dnl func_basename_result="${1##*/}"]) _LT_PROG_FUNCTION_REPLACE([func_dirname_and_basename], [dnl case ${1} in */*) func_dirname_result="${1%/*}${2}" ;; * ) func_dirname_result="${3}" ;; esac func_basename_result="${1##*/}"]) _LT_PROG_FUNCTION_REPLACE([func_stripname], [dnl # pdksh 5.2.14 does not do ${X%$Y} correctly if both X and Y are # positional parameters, so assign one to ordinary parameter first. func_stripname_result=${3} func_stripname_result=${func_stripname_result#"${1}"} func_stripname_result=${func_stripname_result%"${2}"}]) _LT_PROG_FUNCTION_REPLACE([func_split_long_opt], [dnl func_split_long_opt_name=${1%%=*} func_split_long_opt_arg=${1#*=}]) _LT_PROG_FUNCTION_REPLACE([func_split_short_opt], [dnl func_split_short_opt_arg=${1#??} func_split_short_opt_name=${1%"$func_split_short_opt_arg"}]) _LT_PROG_FUNCTION_REPLACE([func_lo2o], [dnl case ${1} in *.lo) func_lo2o_result=${1%.lo}.${objext} ;; *) func_lo2o_result=${1} ;; esac]) _LT_PROG_FUNCTION_REPLACE([func_xform], [ func_xform_result=${1%.*}.lo]) _LT_PROG_FUNCTION_REPLACE([func_arith], [ func_arith_result=$(( $[*] ))]) _LT_PROG_FUNCTION_REPLACE([func_len], [ func_len_result=${#1}]) fi if test x"$lt_shell_append" = xyes; then _LT_PROG_FUNCTION_REPLACE([func_append], [ eval "${1}+=\\${2}"]) _LT_PROG_FUNCTION_REPLACE([func_append_quoted], [dnl func_quote_for_eval "${2}" dnl m4 expansion turns \\\\ into \\, and then the shell eval turns that into \ eval "${1}+=\\\\ \\$func_quote_for_eval_result"]) # Save a `func_append' function call where possible by direct use of '+=' sed -e 's%func_append \([[a-zA-Z_]]\{1,\}\) "%\1+="%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: else # Save a `func_append' function call even when '+=' is not available sed -e 's%func_append \([[a-zA-Z_]]\{1,\}\) "%\1="$\1%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: fi if test x"$_lt_function_replace_fail" = x":"; then AC_MSG_WARN([Unable to substitute extended shell functions in $ofile]) fi ]) # _LT_PATH_CONVERSION_FUNCTIONS # ----------------------------- # Determine which file name conversion functions should be used by # func_to_host_file (and, implicitly, by func_to_host_path). These are needed # for certain cross-compile configurations and native mingw. m4_defun([_LT_PATH_CONVERSION_FUNCTIONS], [AC_REQUIRE([AC_CANONICAL_HOST])dnl AC_REQUIRE([AC_CANONICAL_BUILD])dnl AC_MSG_CHECKING([how to convert $build file names to $host format]) AC_CACHE_VAL(lt_cv_to_host_file_cmd, [case $host in *-*-mingw* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_host_file_cmd=func_convert_file_msys_to_w32 ;; *-*-cygwin* ) lt_cv_to_host_file_cmd=func_convert_file_cygwin_to_w32 ;; * ) # otherwise, assume *nix lt_cv_to_host_file_cmd=func_convert_file_nix_to_w32 ;; esac ;; *-*-cygwin* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_host_file_cmd=func_convert_file_msys_to_cygwin ;; *-*-cygwin* ) lt_cv_to_host_file_cmd=func_convert_file_noop ;; * ) # otherwise, assume *nix lt_cv_to_host_file_cmd=func_convert_file_nix_to_cygwin ;; esac ;; * ) # unhandled hosts (and "normal" native builds) lt_cv_to_host_file_cmd=func_convert_file_noop ;; esac ]) to_host_file_cmd=$lt_cv_to_host_file_cmd AC_MSG_RESULT([$lt_cv_to_host_file_cmd]) _LT_DECL([to_host_file_cmd], [lt_cv_to_host_file_cmd], [0], [convert $build file names to $host format])dnl AC_MSG_CHECKING([how to convert $build file names to toolchain format]) AC_CACHE_VAL(lt_cv_to_tool_file_cmd, [#assume ordinary cross tools, or native build. lt_cv_to_tool_file_cmd=func_convert_file_noop case $host in *-*-mingw* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_tool_file_cmd=func_convert_file_msys_to_w32 ;; esac ;; esac ]) to_tool_file_cmd=$lt_cv_to_tool_file_cmd AC_MSG_RESULT([$lt_cv_to_tool_file_cmd]) _LT_DECL([to_tool_file_cmd], [lt_cv_to_tool_file_cmd], [0], [convert $build files to toolchain format])dnl ])# _LT_PATH_CONVERSION_FUNCTIONS gpsim-0.27.0/m4/ltsugar.m40000644000076400007640000001042412153313341012110 00000000000000# ltsugar.m4 -- libtool m4 base layer. -*-Autoconf-*- # # Copyright (C) 2004, 2005, 2007, 2008 Free Software Foundation, Inc. # Written by Gary V. Vaughan, 2004 # # This file 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. # serial 6 ltsugar.m4 # This is to help aclocal find these macros, as it can't see m4_define. AC_DEFUN([LTSUGAR_VERSION], [m4_if([0.1])]) # lt_join(SEP, ARG1, [ARG2...]) # ----------------------------- # Produce ARG1SEPARG2...SEPARGn, omitting [] arguments and their # associated separator. # Needed until we can rely on m4_join from Autoconf 2.62, since all earlier # versions in m4sugar had bugs. m4_define([lt_join], [m4_if([$#], [1], [], [$#], [2], [[$2]], [m4_if([$2], [], [], [[$2]_])$0([$1], m4_shift(m4_shift($@)))])]) m4_define([_lt_join], [m4_if([$#$2], [2], [], [m4_if([$2], [], [], [[$1$2]])$0([$1], m4_shift(m4_shift($@)))])]) # lt_car(LIST) # lt_cdr(LIST) # ------------ # Manipulate m4 lists. # These macros are necessary as long as will still need to support # Autoconf-2.59 which quotes differently. m4_define([lt_car], [[$1]]) m4_define([lt_cdr], [m4_if([$#], 0, [m4_fatal([$0: cannot be called without arguments])], [$#], 1, [], [m4_dquote(m4_shift($@))])]) m4_define([lt_unquote], $1) # lt_append(MACRO-NAME, STRING, [SEPARATOR]) # ------------------------------------------ # Redefine MACRO-NAME to hold its former content plus `SEPARATOR'`STRING'. # Note that neither SEPARATOR nor STRING are expanded; they are appended # to MACRO-NAME as is (leaving the expansion for when MACRO-NAME is invoked). # No SEPARATOR is output if MACRO-NAME was previously undefined (different # than defined and empty). # # This macro is needed until we can rely on Autoconf 2.62, since earlier # versions of m4sugar mistakenly expanded SEPARATOR but not STRING. m4_define([lt_append], [m4_define([$1], m4_ifdef([$1], [m4_defn([$1])[$3]])[$2])]) # lt_combine(SEP, PREFIX-LIST, INFIX, SUFFIX1, [SUFFIX2...]) # ---------------------------------------------------------- # Produce a SEP delimited list of all paired combinations of elements of # PREFIX-LIST with SUFFIX1 through SUFFIXn. Each element of the list # has the form PREFIXmINFIXSUFFIXn. # Needed until we can rely on m4_combine added in Autoconf 2.62. m4_define([lt_combine], [m4_if(m4_eval([$# > 3]), [1], [m4_pushdef([_Lt_sep], [m4_define([_Lt_sep], m4_defn([lt_car]))])]]dnl [[m4_foreach([_Lt_prefix], [$2], [m4_foreach([_Lt_suffix], ]m4_dquote(m4_dquote(m4_shift(m4_shift(m4_shift($@)))))[, [_Lt_sep([$1])[]m4_defn([_Lt_prefix])[$3]m4_defn([_Lt_suffix])])])])]) # lt_if_append_uniq(MACRO-NAME, VARNAME, [SEPARATOR], [UNIQ], [NOT-UNIQ]) # ----------------------------------------------------------------------- # Iff MACRO-NAME does not yet contain VARNAME, then append it (delimited # by SEPARATOR if supplied) and expand UNIQ, else NOT-UNIQ. m4_define([lt_if_append_uniq], [m4_ifdef([$1], [m4_if(m4_index([$3]m4_defn([$1])[$3], [$3$2$3]), [-1], [lt_append([$1], [$2], [$3])$4], [$5])], [lt_append([$1], [$2], [$3])$4])]) # lt_dict_add(DICT, KEY, VALUE) # ----------------------------- m4_define([lt_dict_add], [m4_define([$1($2)], [$3])]) # lt_dict_add_subkey(DICT, KEY, SUBKEY, VALUE) # -------------------------------------------- m4_define([lt_dict_add_subkey], [m4_define([$1($2:$3)], [$4])]) # lt_dict_fetch(DICT, KEY, [SUBKEY]) # ---------------------------------- m4_define([lt_dict_fetch], [m4_ifval([$3], m4_ifdef([$1($2:$3)], [m4_defn([$1($2:$3)])]), m4_ifdef([$1($2)], [m4_defn([$1($2)])]))]) # lt_if_dict_fetch(DICT, KEY, [SUBKEY], VALUE, IF-TRUE, [IF-FALSE]) # ----------------------------------------------------------------- m4_define([lt_if_dict_fetch], [m4_if(lt_dict_fetch([$1], [$2], [$3]), [$4], [$5], [$6])]) # lt_dict_filter(DICT, [SUBKEY], VALUE, [SEPARATOR], KEY, [...]) # -------------------------------------------------------------- m4_define([lt_dict_filter], [m4_if([$5], [], [], [lt_join(m4_quote(m4_default([$4], [[, ]])), lt_unquote(m4_split(m4_normalize(m4_foreach(_Lt_key, lt_car([m4_shiftn(4, $@)]), [lt_if_dict_fetch([$1], _Lt_key, [$2], [$3], [_Lt_key ])])))))])[]dnl ]) gpsim-0.27.0/m4/ltversion.m40000644000076400007640000000126212153313341012454 00000000000000# ltversion.m4 -- version numbers -*- Autoconf -*- # # Copyright (C) 2004 Free Software Foundation, Inc. # Written by Scott James Remnant, 2004 # # This file 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. # @configure_input@ # serial 3337 ltversion.m4 # This file is part of GNU Libtool m4_define([LT_PACKAGE_VERSION], [2.4.2]) m4_define([LT_PACKAGE_REVISION], [1.3337]) AC_DEFUN([LTVERSION_VERSION], [macro_version='2.4.2' macro_revision='1.3337' _LT_DECL(, macro_version, 0, [Which release of libtool.m4 was used?]) _LT_DECL(, macro_revision, 0) ]) gpsim-0.27.0/m4/lt~obsolete.m40000644000076400007640000001375612153313341013014 00000000000000# lt~obsolete.m4 -- aclocal satisfying obsolete definitions. -*-Autoconf-*- # # Copyright (C) 2004, 2005, 2007, 2009 Free Software Foundation, Inc. # Written by Scott James Remnant, 2004. # # This file 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. # serial 5 lt~obsolete.m4 # These exist entirely to fool aclocal when bootstrapping libtool. # # In the past libtool.m4 has provided macros via AC_DEFUN (or AU_DEFUN) # which have later been changed to m4_define as they aren't part of the # exported API, or moved to Autoconf or Automake where they belong. # # The trouble is, aclocal is a bit thick. It'll see the old AC_DEFUN # in /usr/share/aclocal/libtool.m4 and remember it, then when it sees us # using a macro with the same name in our local m4/libtool.m4 it'll # pull the old libtool.m4 in (it doesn't see our shiny new m4_define # and doesn't know about Autoconf macros at all.) # # So we provide this file, which has a silly filename so it's always # included after everything else. This provides aclocal with the # AC_DEFUNs it wants, but when m4 processes it, it doesn't do anything # because those macros already exist, or will be overwritten later. # We use AC_DEFUN over AU_DEFUN for compatibility with aclocal-1.6. # # Anytime we withdraw an AC_DEFUN or AU_DEFUN, remember to add it here. # Yes, that means every name once taken will need to remain here until # we give up compatibility with versions before 1.7, at which point # we need to keep only those names which we still refer to. # This is to help aclocal find these macros, as it can't see m4_define. AC_DEFUN([LTOBSOLETE_VERSION], [m4_if([1])]) m4_ifndef([AC_LIBTOOL_LINKER_OPTION], [AC_DEFUN([AC_LIBTOOL_LINKER_OPTION])]) m4_ifndef([AC_PROG_EGREP], [AC_DEFUN([AC_PROG_EGREP])]) m4_ifndef([_LT_AC_PROG_ECHO_BACKSLASH], [AC_DEFUN([_LT_AC_PROG_ECHO_BACKSLASH])]) m4_ifndef([_LT_AC_SHELL_INIT], [AC_DEFUN([_LT_AC_SHELL_INIT])]) m4_ifndef([_LT_AC_SYS_LIBPATH_AIX], [AC_DEFUN([_LT_AC_SYS_LIBPATH_AIX])]) m4_ifndef([_LT_PROG_LTMAIN], [AC_DEFUN([_LT_PROG_LTMAIN])]) m4_ifndef([_LT_AC_TAGVAR], [AC_DEFUN([_LT_AC_TAGVAR])]) m4_ifndef([AC_LTDL_ENABLE_INSTALL], [AC_DEFUN([AC_LTDL_ENABLE_INSTALL])]) m4_ifndef([AC_LTDL_PREOPEN], [AC_DEFUN([AC_LTDL_PREOPEN])]) m4_ifndef([_LT_AC_SYS_COMPILER], [AC_DEFUN([_LT_AC_SYS_COMPILER])]) m4_ifndef([_LT_AC_LOCK], [AC_DEFUN([_LT_AC_LOCK])]) m4_ifndef([AC_LIBTOOL_SYS_OLD_ARCHIVE], [AC_DEFUN([AC_LIBTOOL_SYS_OLD_ARCHIVE])]) m4_ifndef([_LT_AC_TRY_DLOPEN_SELF], [AC_DEFUN([_LT_AC_TRY_DLOPEN_SELF])]) m4_ifndef([AC_LIBTOOL_PROG_CC_C_O], [AC_DEFUN([AC_LIBTOOL_PROG_CC_C_O])]) m4_ifndef([AC_LIBTOOL_SYS_HARD_LINK_LOCKS], [AC_DEFUN([AC_LIBTOOL_SYS_HARD_LINK_LOCKS])]) m4_ifndef([AC_LIBTOOL_OBJDIR], [AC_DEFUN([AC_LIBTOOL_OBJDIR])]) m4_ifndef([AC_LTDL_OBJDIR], [AC_DEFUN([AC_LTDL_OBJDIR])]) m4_ifndef([AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH], [AC_DEFUN([AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH])]) m4_ifndef([AC_LIBTOOL_SYS_LIB_STRIP], [AC_DEFUN([AC_LIBTOOL_SYS_LIB_STRIP])]) m4_ifndef([AC_PATH_MAGIC], [AC_DEFUN([AC_PATH_MAGIC])]) m4_ifndef([AC_PROG_LD_GNU], [AC_DEFUN([AC_PROG_LD_GNU])]) m4_ifndef([AC_PROG_LD_RELOAD_FLAG], [AC_DEFUN([AC_PROG_LD_RELOAD_FLAG])]) m4_ifndef([AC_DEPLIBS_CHECK_METHOD], [AC_DEFUN([AC_DEPLIBS_CHECK_METHOD])]) m4_ifndef([AC_LIBTOOL_PROG_COMPILER_NO_RTTI], [AC_DEFUN([AC_LIBTOOL_PROG_COMPILER_NO_RTTI])]) m4_ifndef([AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE], [AC_DEFUN([AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE])]) m4_ifndef([AC_LIBTOOL_PROG_COMPILER_PIC], [AC_DEFUN([AC_LIBTOOL_PROG_COMPILER_PIC])]) m4_ifndef([AC_LIBTOOL_PROG_LD_SHLIBS], [AC_DEFUN([AC_LIBTOOL_PROG_LD_SHLIBS])]) m4_ifndef([AC_LIBTOOL_POSTDEP_PREDEP], [AC_DEFUN([AC_LIBTOOL_POSTDEP_PREDEP])]) m4_ifndef([LT_AC_PROG_EGREP], [AC_DEFUN([LT_AC_PROG_EGREP])]) m4_ifndef([LT_AC_PROG_SED], [AC_DEFUN([LT_AC_PROG_SED])]) m4_ifndef([_LT_CC_BASENAME], [AC_DEFUN([_LT_CC_BASENAME])]) m4_ifndef([_LT_COMPILER_BOILERPLATE], [AC_DEFUN([_LT_COMPILER_BOILERPLATE])]) m4_ifndef([_LT_LINKER_BOILERPLATE], [AC_DEFUN([_LT_LINKER_BOILERPLATE])]) m4_ifndef([_AC_PROG_LIBTOOL], [AC_DEFUN([_AC_PROG_LIBTOOL])]) m4_ifndef([AC_LIBTOOL_SETUP], [AC_DEFUN([AC_LIBTOOL_SETUP])]) m4_ifndef([_LT_AC_CHECK_DLFCN], [AC_DEFUN([_LT_AC_CHECK_DLFCN])]) m4_ifndef([AC_LIBTOOL_SYS_DYNAMIC_LINKER], [AC_DEFUN([AC_LIBTOOL_SYS_DYNAMIC_LINKER])]) m4_ifndef([_LT_AC_TAGCONFIG], [AC_DEFUN([_LT_AC_TAGCONFIG])]) m4_ifndef([AC_DISABLE_FAST_INSTALL], [AC_DEFUN([AC_DISABLE_FAST_INSTALL])]) m4_ifndef([_LT_AC_LANG_CXX], [AC_DEFUN([_LT_AC_LANG_CXX])]) m4_ifndef([_LT_AC_LANG_F77], [AC_DEFUN([_LT_AC_LANG_F77])]) m4_ifndef([_LT_AC_LANG_GCJ], [AC_DEFUN([_LT_AC_LANG_GCJ])]) m4_ifndef([AC_LIBTOOL_LANG_C_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_C_CONFIG])]) m4_ifndef([_LT_AC_LANG_C_CONFIG], [AC_DEFUN([_LT_AC_LANG_C_CONFIG])]) m4_ifndef([AC_LIBTOOL_LANG_CXX_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_CXX_CONFIG])]) m4_ifndef([_LT_AC_LANG_CXX_CONFIG], [AC_DEFUN([_LT_AC_LANG_CXX_CONFIG])]) m4_ifndef([AC_LIBTOOL_LANG_F77_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_F77_CONFIG])]) m4_ifndef([_LT_AC_LANG_F77_CONFIG], [AC_DEFUN([_LT_AC_LANG_F77_CONFIG])]) m4_ifndef([AC_LIBTOOL_LANG_GCJ_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_GCJ_CONFIG])]) m4_ifndef([_LT_AC_LANG_GCJ_CONFIG], [AC_DEFUN([_LT_AC_LANG_GCJ_CONFIG])]) m4_ifndef([AC_LIBTOOL_LANG_RC_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_RC_CONFIG])]) m4_ifndef([_LT_AC_LANG_RC_CONFIG], [AC_DEFUN([_LT_AC_LANG_RC_CONFIG])]) m4_ifndef([AC_LIBTOOL_CONFIG], [AC_DEFUN([AC_LIBTOOL_CONFIG])]) m4_ifndef([_LT_AC_FILE_LTDLL_C], [AC_DEFUN([_LT_AC_FILE_LTDLL_C])]) m4_ifndef([_LT_REQUIRED_DARWIN_CHECKS], [AC_DEFUN([_LT_REQUIRED_DARWIN_CHECKS])]) m4_ifndef([_LT_AC_PROG_CXXCPP], [AC_DEFUN([_LT_AC_PROG_CXXCPP])]) m4_ifndef([_LT_PREPARE_SED_QUOTE_VARS], [AC_DEFUN([_LT_PREPARE_SED_QUOTE_VARS])]) m4_ifndef([_LT_PROG_ECHO_BACKSLASH], [AC_DEFUN([_LT_PROG_ECHO_BACKSLASH])]) m4_ifndef([_LT_PROG_F77], [AC_DEFUN([_LT_PROG_F77])]) m4_ifndef([_LT_PROG_FC], [AC_DEFUN([_LT_PROG_FC])]) m4_ifndef([_LT_PROG_CXX], [AC_DEFUN([_LT_PROG_CXX])]) gpsim-0.27.0/README0000644000076400007640000001520411402412110010514 00000000000000. gpsim - Gnu Pic Simulator, a simulator for Microchip's PIC microcontrollers. http://gpsim.sourceforge.net/ Please see the INSTALL.gpsim file to get instructions on how to install gpsim. Please see the TODO file to get an idea of the current status and a little background on how the code works. Please see the HISTORY file to see how gpsim has evolved. Please see the README.EXAMPLES file for information about the examples. Please see the PROCESSORS file to see a list of supported processors. Please see doc/gpsim.lyx or doc/gpsim.ps for the latest documentation Gpsim is licensed under GPLv2+ with the exception of eXdbm/ src/ and modules/ files which are under LGPLv2+. Please see COPYING and COPYING.LESSER for the terms of these licenses. System Requirements: -------------------- gpsim runs under Linux and Windows. For Windows, all non-standard dll's are packaged with gpsim. So the standard install should run. Borut Razem has the latest gpsim installer on his web page: http://gpsim.sourceforge.net/gpsimWin32/gpsimWin32.html For Linux, it's assumed that you have GTK+ 2.x and gtk+extra >= 2.1.2 or a patched version of gtk+extra-2.1.1 installed. Installing: ---------- See the INSTALL.gpsim file. Invoking: --------- Run gpsim by typing: $ gpsim --help gpsim - the GNUPIC simulator version: 0.22.0 type help for help Usage: lt-gpsim [OPTION...] -p, --processor= processor (e.g. -pp16c84 for the 'c84) -c, --command=STRING startup command file -s, --symbol=STRING .cod symbol file -L, -- colon separated list of directories to search. -v, --version gpsim version -i, --cli command line mode only -d, --icd=STRING use ICD (e.g. -d /dev/ttyS0). Examples: gpsim -s myprog.cod <-- loads a symbol file gpsim -p p16f877 myprog.hex <-- select processor and load hex gpsim -c myscript.stc <-- loads a script Help options: -?, --help Show this help message --usage Display brief usage message for example: $gpsim -pp16c61 pichexfile.hex will start the simulator, select a 'c61 as the target and load the program memory with pichexfile.hex hex file. There are several pic source files in the /examples subdirectory. or (preferred) $gpsim -s piccodfile.cod # note, you don't need to specify the processor for .cod files Once started, a very simple command line prompt will process your requests: gpsim> help ! Shell out to another program or module's command line interface attach Attach stimuli to nodes break Set a break point clear Remove a break point disassemble Disassemble the current cpu dump Display either the RAM or EEPROM frequency Set the clock frequency help Type help "command" for more help on a command icd ICD command. list Display source and list files load Load either a hex,command, or .cod file log Log/record events to a file macro macro definition and listing module Select & Display modules node Add or display stimulus nodes processor Select & Display processors quit Quit gpsim reset Reset all or parts of the simulation run Execute the pic program set display and control gpsim behavior flags step Execute one or more instructions. stimulus Create a stimulus symbol Add or display symbols trace Dump the trace history version Display the gpsim's version x examine and/or modify memory More help is available for each command by typing help "command". For example, help break prints this: gpsim> help break The 'break' command can be used to examine or set breakpoints. gpsim supports execution style breaks, register access breaks, complex expression breaks, attribute breaks, and other special breaks. Program Memory breaks: break e|r|w ADDRESS [expr] Halts when the address is executed, read, or written. The ADDRESS can be a symbol or a number. If the optional expr is specified, then it must evaluate to true before the simulation will halt. Register Memory breaks: break r|w REGISTER [expr] Halts when 'REGISTER' is read or written and the optional expression evaluates to true. break r|w boolean_expression older style to be deprecated...Cycle counter breaks: break c VALUE Halts when the cycle counter reaches 'VALUE'. Attribute breaks: break attribute Arms the breakpoint condition for those attributes that support breaks. For example, the stopwatch (help stopwatch) attribute can cause a break. Miscellaneous breaks: break so # halts on stack overflow. break su # halts on stack underflow. break wdt # halts on Watch Dog Timer timeout. Expressions: The conditional expressions mentioned above are syntactically similar to C's expressions. Examples: break # display all of the break points break e 0x20 # set an execution break point at address 0x20 break w reg1 == 0 # break if a zero is written to register reg1 break w reg2 & 0x30 == 0xf0 # break if '3' is written to the # upper nibble or reg2 break w reg3 (reg4 > 45) # break if reg4>45 while writing to reg3 break c 1000000 # break on the one million'th cycle The cli is available even when the gui is used. Major Features: -------------- Standard simulator stuff: o Breakpoints - execution, read and write memory, wdt, o Assertions o single stepping o step over o run until break o disassemble o dump memory/eeprom o Trace o stimulus files - analog and digital o configuration files o symbolic debugging Gui stuff: o Register viewer o Source file viewer o Program opcode window o Symbol viewer o Watch window o Pinout/breadboard window o Stack Viewer o Scope Viewer o Oscilloscope Viewer gpsim specific o Simulate multiple processors (not fully supported) o Dynamically loaded modules Peripherals supported: o eeprom o WDT o TMR0 o I/O Ports o TMR1 o TMR2 o CCP o PWM o A/D o UART o I2C BUGS: ---- I'm absolutely certain there are bugs. If you find one, send it to me at either scott@dattalo.com or post it to the gnupic mailing list: mailto:gnupic@linuxhacker.org Finally, see the file Contributions for people who have submitted suggestions and patches. NOTES: ----- gtk+extra2 is needed by gpsim. Please see the gpsim web page for more info gpsim-0.27.0/INSTALL0000644000076400007640000003660512157551763010727 00000000000000Installation Instructions ************************* Copyright (C) 1994-1996, 1999-2002, 2004-2013 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted in any medium without royalty provided the copyright notice and this notice are preserved. This file is offered as-is, without warranty of any kind. Basic Installation ================== Briefly, the shell commands `./configure; make; make install' should configure, build, and install this package. The following more-detailed instructions are generic; see the `README' file for instructions specific to this package. Some packages provide this `INSTALL' file but do not implement all of the features documented below. The lack of an optional feature in a given package is not necessarily a bug. More recommendations for GNU packages can be found in *note Makefile Conventions: (standards)Makefile Conventions. The `configure' shell script attempts to guess correct values for various system-dependent variables used during compilation. It uses those values to create a `Makefile' in each directory of the package. It may also create one or more `.h' files containing system-dependent definitions. Finally, it creates a shell script `config.status' that you can run in the future to recreate the current configuration, and a file `config.log' containing compiler output (useful mainly for debugging `configure'). It can also use an optional file (typically called `config.cache' and enabled with `--cache-file=config.cache' or simply `-C') that saves the results of its tests to speed up reconfiguring. Caching is disabled by default to prevent problems with accidental use of stale cache files. If you need to do unusual things to compile the package, please try to figure out how `configure' could check whether to do them, and mail diffs or instructions to the address given in the `README' so they can be considered for the next release. If you are using the cache, and at some point `config.cache' contains results you don't want to keep, you may remove or edit it. The file `configure.ac' (or `configure.in') is used to create `configure' by a program called `autoconf'. You need `configure.ac' if you want to change it or regenerate `configure' using a newer version of `autoconf'. The simplest way to compile this package is: 1. `cd' to the directory containing the package's source code and type `./configure' to configure the package for your system. Running `configure' might take a while. While running, it prints some messages telling which features it is checking for. 2. Type `make' to compile the package. 3. Optionally, type `make check' to run any self-tests that come with the package, generally using the just-built uninstalled binaries. 4. Type `make install' to install the programs and any data files and documentation. When installing into a prefix owned by root, it is recommended that the package be configured and built as a regular user, and only the `make install' phase executed with root privileges. 5. Optionally, type `make installcheck' to repeat any self-tests, but this time using the binaries in their final installed location. This target does not install anything. Running this target as a regular user, particularly if the prior `make install' required root privileges, verifies that the installation completed correctly. 6. You can remove the program binaries and object files from the source code directory by typing `make clean'. To also remove the files that `configure' created (so you can compile the package for a different kind of computer), type `make distclean'. There is also a `make maintainer-clean' target, but that is intended mainly for the package's developers. If you use it, you may have to get all sorts of other programs in order to regenerate files that came with the distribution. 7. Often, you can also type `make uninstall' to remove the installed files again. In practice, not all packages have tested that uninstallation works correctly, even though it is required by the GNU Coding Standards. 8. Some packages, particularly those that use Automake, provide `make distcheck', which can by used by developers to test that all other targets like `make install' and `make uninstall' work correctly. This target is generally not run by end users. Compilers and Options ===================== Some systems require unusual options for compilation or linking that the `configure' script does not know about. Run `./configure --help' for details on some of the pertinent environment variables. You can give `configure' initial values for configuration parameters by setting variables in the command line or in the environment. Here is an example: ./configure CC=c99 CFLAGS=-g LIBS=-lposix *Note Defining Variables::, for more details. Compiling For Multiple Architectures ==================================== You can compile the package for more than one kind of computer at the same time, by placing the object files for each architecture in their own directory. To do this, you can use GNU `make'. `cd' to the directory where you want the object files and executables to go and run the `configure' script. `configure' automatically checks for the source code in the directory that `configure' is in and in `..'. This is known as a "VPATH" build. With a non-GNU `make', it is safer to compile the package for one architecture at a time in the source code directory. After you have installed the package for one architecture, use `make distclean' before reconfiguring for another architecture. On MacOS X 10.5 and later systems, you can create libraries and executables that work on multiple system types--known as "fat" or "universal" binaries--by specifying multiple `-arch' options to the compiler but only a single `-arch' option to the preprocessor. Like this: ./configure CC="gcc -arch i386 -arch x86_64 -arch ppc -arch ppc64" \ CXX="g++ -arch i386 -arch x86_64 -arch ppc -arch ppc64" \ CPP="gcc -E" CXXCPP="g++ -E" This is not guaranteed to produce working output in all cases, you may have to build one architecture at a time and combine the results using the `lipo' tool if you have problems. Installation Names ================== By default, `make install' installs the package's commands under `/usr/local/bin', include files under `/usr/local/include', etc. You can specify an installation prefix other than `/usr/local' by giving `configure' the option `--prefix=PREFIX', where PREFIX must be an absolute file name. You can specify separate installation prefixes for architecture-specific files and architecture-independent files. If you pass the option `--exec-prefix=PREFIX' to `configure', the package uses PREFIX as the prefix for installing programs and libraries. Documentation and other data files still use the regular prefix. In addition, if you use an unusual directory layout you can give options like `--bindir=DIR' to specify different values for particular kinds of files. Run `configure --help' for a list of the directories you can set and what kinds of files go in them. In general, the default for these options is expressed in terms of `${prefix}', so that specifying just `--prefix' will affect all of the other directory specifications that were not explicitly provided. The most portable way to affect installation locations is to pass the correct locations to `configure'; however, many packages provide one or both of the following shortcuts of passing variable assignments to the `make install' command line to change installation locations without having to reconfigure or recompile. The first method involves providing an override variable for each affected directory. For example, `make install prefix=/alternate/directory' will choose an alternate location for all directory configuration variables that were expressed in terms of `${prefix}'. Any directories that were specified during `configure', but not in terms of `${prefix}', must each be overridden at install time for the entire installation to be relocated. The approach of makefile variable overrides for each directory variable is required by the GNU Coding Standards, and ideally causes no recompilation. However, some platforms have known limitations with the semantics of shared libraries that end up requiring recompilation when using this method, particularly noticeable in packages that use GNU Libtool. The second method involves providing the `DESTDIR' variable. For example, `make install DESTDIR=/alternate/directory' will prepend `/alternate/directory' before all installation names. The approach of `DESTDIR' overrides is not required by the GNU Coding Standards, and does not work on platforms that have drive letters. On the other hand, it does better at avoiding recompilation issues, and works well even when some directory options were not specified in terms of `${prefix}' at `configure' time. Optional Features ================= If the package supports it, you can cause programs to be installed with an extra prefix or suffix on their names by giving `configure' the option `--program-prefix=PREFIX' or `--program-suffix=SUFFIX'. Some packages pay attention to `--enable-FEATURE' options to `configure', where FEATURE indicates an optional part of the package. They may also pay attention to `--with-PACKAGE' options, where PACKAGE is something like `gnu-as' or `x' (for the X Window System). The `README' should mention any `--enable-' and `--with-' options that the package recognizes. For packages that use the X Window System, `configure' can usually find the X include and library files automatically, but if it doesn't, you can use the `configure' options `--x-includes=DIR' and `--x-libraries=DIR' to specify their locations. Some packages offer the ability to configure how verbose the execution of `make' will be. For these packages, running `./configure --enable-silent-rules' sets the default to minimal output, which can be overridden with `make V=1'; while running `./configure --disable-silent-rules' sets the default to verbose, which can be overridden with `make V=0'. Particular systems ================== On HP-UX, the default C compiler is not ANSI C compatible. If GNU CC is not installed, it is recommended to use the following options in order to use an ANSI C compiler: ./configure CC="cc -Ae -D_XOPEN_SOURCE=500" and if that doesn't work, install pre-built binaries of GCC for HP-UX. HP-UX `make' updates targets which have the same time stamps as their prerequisites, which makes it generally unusable when shipped generated files such as `configure' are involved. Use GNU `make' instead. On OSF/1 a.k.a. Tru64, some versions of the default C compiler cannot parse its `' header file. The option `-nodtk' can be used as a workaround. If GNU CC is not installed, it is therefore recommended to try ./configure CC="cc" and if that doesn't work, try ./configure CC="cc -nodtk" On Solaris, don't put `/usr/ucb' early in your `PATH'. This directory contains several dysfunctional programs; working variants of these programs are available in `/usr/bin'. So, if you need `/usr/ucb' in your `PATH', put it _after_ `/usr/bin'. On Haiku, software installed for all users goes in `/boot/common', not `/usr/local'. It is recommended to use the following options: ./configure --prefix=/boot/common Specifying the System Type ========================== There may be some features `configure' cannot figure out automatically, but needs to determine by the type of machine the package will run on. Usually, assuming the package is built to be run on the _same_ architectures, `configure' can figure that out, but if it prints a message saying it cannot guess the machine type, give it the `--build=TYPE' option. TYPE can either be a short name for the system type, such as `sun4', or a canonical name which has the form: CPU-COMPANY-SYSTEM where SYSTEM can have one of these forms: OS KERNEL-OS See the file `config.sub' for the possible values of each field. If `config.sub' isn't included in this package, then this package doesn't need to know the machine type. If you are _building_ compiler tools for cross-compiling, you should use the option `--target=TYPE' to select the type of system they will produce code for. If you want to _use_ a cross compiler, that generates code for a platform different from the build platform, you should specify the "host" platform (i.e., that on which the generated programs will eventually be run) with `--host=TYPE'. Sharing Defaults ================ If you want to set default values for `configure' scripts to share, you can create a site shell script called `config.site' that gives default values for variables like `CC', `cache_file', and `prefix'. `configure' looks for `PREFIX/share/config.site' if it exists, then `PREFIX/etc/config.site' if it exists. Or, you can set the `CONFIG_SITE' environment variable to the location of the site script. A warning: not all `configure' scripts look for a site script. Defining Variables ================== Variables not defined in a site shell script can be set in the environment passed to `configure'. However, some packages may run configure again during the build, and the customized values of these variables may be lost. In order to avoid this problem, you should set them in the `configure' command line, using `VAR=value'. For example: ./configure CC=/usr/local2/bin/gcc causes the specified `gcc' to be used as the C compiler (unless it is overridden in the site shell script). Unfortunately, this technique does not work for `CONFIG_SHELL' due to an Autoconf limitation. Until the limitation is lifted, you can use this workaround: CONFIG_SHELL=/bin/bash ./configure CONFIG_SHELL=/bin/bash `configure' Invocation ====================== `configure' recognizes the following options to control how it operates. `--help' `-h' Print a summary of all of the options to `configure', and exit. `--help=short' `--help=recursive' Print a summary of the options unique to this package's `configure', and exit. The `short' variant lists options used only in the top level, while the `recursive' variant lists options also present in any nested packages. `--version' `-V' Print the version of Autoconf used to generate the `configure' script, and exit. `--cache-file=FILE' Enable the cache: use and save the results of the tests in FILE, traditionally `config.cache'. FILE defaults to `/dev/null' to disable caching. `--config-cache' `-C' Alias for `--cache-file=config.cache'. `--quiet' `--silent' `-q' Do not print messages saying which checks are being made. To suppress all normal output, redirect it to `/dev/null' (any error messages will still be shown). `--srcdir=DIR' Look for the package's source code in directory DIR. Usually `configure' can determine that directory automatically. `--prefix=DIR' Use DIR as the installation prefix. *note Installation Names:: for more details, including other options available for fine-tuning the installation locations. `--no-create' `-n' Run the configure checks, but stop before creating any output files. `configure' also accepts some other, not widely useful, options. Run `configure --help' for more details. gpsim-0.27.0/eXdbm/0000775000076400007640000000000012210742352010767 500000000000000gpsim-0.27.0/eXdbm/Makefile.orig0000644000076400007640000000302110416272727013312 00000000000000 .SUFFIXES: .SUFFIXES: .c .o CC = gcc AR = ar cru RANLIB = ranlib #CCFLAGS = -g -Wall CCFLAGS = -O3 -Wall CHECKOUT = co DEPEND = gccmakedep DATE = $$(date +%m%d%y) LFLAGS = -lm LIBSRCS = hash.c parse.c misc.c eXdbm.c LIBOBJS = hash.o parse.o misc.o eXdbm.o LIBINC = hash.h parse.h eXdbm.h eXdbmErrors.h eXdbmTypes.h misc.h INCPATH = ./ INCDIR = /usr/local/include/ LIBDIR = /usr/local/lib/ DOCDIR = /usr/local/doc/eXdbm LIBNAME = libeXdbm.a all : depend lib examples build : getheaders depend lib examples getheaders : $(LIBINC) $(CHECKOUT) $(LIBINC) depend : $(LIBSRCS) $(DEPEND) $(LIBSRCS) lib : $(LIBOBJS) $(AR) $(LIBNAME) $(LIBOBJS) $(RANLIB) $(LIBNAME) examples : test1 test2 test3 test1 : test1.o test1.cfg.orig cp test1.cfg.orig test1.cfg $(CC) $< $(LIBNAME) $(LFLAGS) -o $@ test2 : test2.o test1.cfg.orig cp test1.cfg.orig test1.cfg $(CC) $< $(LIBNAME) $(LFLAGS) -o $@ test3 : test3.o test1.cfg.orig cp test1.cfg.orig test1.cfg $(CC) $< $(LIBNAME) $(LFLAGS) -o $@ .c.o : $(CC) -I$(INCPATH) -c $(CCFLAGS) -o $@ $< archive : $(LIBINC) $(LIBSRCS) test1.c test2.c test3.c test1.cfg.orig eXdbm.txt cp Makefile.orig Makefile cp test1.cfg.orig test1.cfg tar cvzf eXdbm-beta-1.0b1.tar.gz $(LIBINC) $(LIBSRCS) test1.c test2.c test3.c test1.cfg eXdbm.txt install : cp eXdbmErrors.h eXdbmTypes.h eXdbm.h $(INCDIR) cp libeXdbm.a $(LIBDIR) mkdir $(DOCDIR) cp eXdbm.txt $(DOCDIR) @echo "installation done" clean : rm -f *.o *~ realclean : clean rm -f *.a test1 test1.cfg ; cp Makefile.orig Makefile gpsim-0.27.0/eXdbm/README.gpsim0000644000076400007640000000140710416272727012717 00000000000000eXdbm was not developed by the gpsim developers. It is only included with the gpsim distribution to make it easier to build gpsim. We do not intend to maintain or enhance this package in anyway specific to gpsim. If you find a bug in here, please contact either us or the eXdbm developers and we'll make sure the next version is fixed. gpsim version 0.20.14 Starting with this version, eXdbm will now be distributed as part of gpsim. The purpose for this is to simplify install issues that gpsim users have had with eXdbm in the past. Also, a few minor bugs have been fixed with eXdbm by the gpsim development team. Unfortunately, the original authors do not appear to be supporting eXdbm any longer (hmm, that's probably a hint). eXdbm, like gpsim, is licensed under GPL. gpsim-0.27.0/eXdbm/AUTHORS0000644000076400007640000000000010416272727011755 00000000000000gpsim-0.27.0/eXdbm/test2.c0000644000076400007640000000761610416272727012136 00000000000000 /* $Id: test2.c 230 2002-04-15 22:03:02Z linas $ */ /***** * test2.c : eXdbm example * * This file Version $Revision: 230 $ * * Last modification: $Date: 2002-04-16 08:03:02 +1000 (Tue, 16 Apr 2002) $ * By: $Author: linas $ * Current State: $State$ * * Copyright (C) 1997 Fred Pesch * All Rights Reserved * * This file is part of the eXdbm Library. * * This 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. * * This 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 this library; if not, write to the Free * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * *****/ #ifndef lint static char vcid[] = "$Id: test2.c 230 2002-04-15 22:03:02Z linas $"; #endif /* lint */ #include #include "eXdbm.h" extern TDbmDbList *DbmDbList; int main(void) { DB_ID dbid; int ret; printf(" \n*************************************************************"); printf(" \n***** Test2.c : read the file test1.cfg, and rewrite it *****"); printf(" \n*************************************************************\n\n"); printf("**** Database manager initialization *****\n\n"); ret = eXdbmInit(); if(ret==-1) { fprintf(stderr, "\n%s\n", eXdbmGetErrorString(eXdbmGetLastError())); return(-1); } printf("**** Opening database in file test1.cfg ****\n\n"); ret = eXdbmOpenDatabase("test1.cfg", &dbid); if(ret==-1) { fprintf(stderr, "\nParsing databases aborted line %d", eXdbmLastLineParsed()); fprintf(stderr, "\n%s\n", eXdbmGetErrorString(eXdbmGetLastError())); return(-1); } fprintf(stderr, "%d lines parsed \n\n", eXdbmLastLineParsed()); printf("**** Updating database file ****\n\n"); ret = eXdbmUpdateDatabase(dbid); if(ret == -1) { fprintf(stderr, "\nUpdating databases aborted"); fprintf(stderr, "\n%s\n", eXdbmGetErrorString(eXdbmGetLastError())); return(-1); } printf("**** Make a backup copy of the database in test1.cfg.backup ****\n\n"); ret = eXdbmBackupDatabase(dbid, "test1.cfg.backup"); if(ret == -1) { fprintf(stderr, "\nDatabase Backup aborted"); fprintf(stderr, "\n%s\n", eXdbmGetErrorString(eXdbmGetLastError())); return(-1); } printf("**** Closing database (no update) ****\n\n"); ret = eXdbmCloseDatabase(dbid, 0); printf("**** Try to reload the database ****\n\n"); ret = eXdbmOpenDatabase("test1.cfg", &dbid); if(ret==-1) { fprintf(stderr, "\nParsing databases aborted line %d", eXdbmLastLineParsed()); fprintf(stderr, "\n%s\n", eXdbmGetErrorString(eXdbmGetLastError())); return(-1); } fprintf(stderr, "%d lines parsed \n\n", eXdbmLastLineParsed()); printf("**** Reloading the database (no update) ****\n\n"); ret = eXdbmReloadDatabase(&dbid, 0); if(ret == -1) { fprintf(stderr, "\nReloading database aborted"); fprintf(stderr, "\n%s\n", eXdbmGetErrorString(eXdbmGetLastError())); return(-1); } printf("**** Reloading the database (with update) ****"); ret = eXdbmReloadDatabase(&dbid, 1); if(ret == -1) { fprintf(stderr, "\nReloading database aborted"); fprintf(stderr, "\n%s\n", eXdbmGetErrorString(eXdbmGetLastError())); return(-1); } printf("\n\n**** Closing the database (with update) ****\n\n"); ret = eXdbmCloseDatabase(dbid, 1); if(ret == -1) { fprintf(stderr, "\nClosing database aborted"); fprintf(stderr, "\n%s\n", eXdbmGetErrorString(eXdbmGetLastError())); return(-1); } printf("****** eXDbm exit without error *****\n\n"); return(0); } gpsim-0.27.0/eXdbm/Makefile.in0000664000076400007640000005305312210742104012755 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = eXdbm DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am \ $(top_srcdir)/depcomp $(gpsim_eXdbminclude_HEADERS) AUTHORS \ COPYING COPYING.LIB ChangeLog INSTALL NEWS README ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(libdir)" \ "$(DESTDIR)$(gpsim_eXdbmincludedir)" LTLIBRARIES = $(lib_LTLIBRARIES) libgpsim_eXdbm_la_DEPENDENCIES = am_libgpsim_eXdbm_la_OBJECTS = hash.lo parse.lo misc.lo eXdbm.lo libgpsim_eXdbm_la_OBJECTS = $(am_libgpsim_eXdbm_la_OBJECTS) AM_V_lt = $(am__v_lt_@AM_V@) am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@) am__v_lt_0 = --silent am__v_lt_1 = AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) \ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ $(AM_CFLAGS) $(CFLAGS) AM_V_CC = $(am__v_CC_@AM_V@) am__v_CC_ = $(am__v_CC_@AM_DEFAULT_V@) am__v_CC_0 = @echo " CC " $@; am__v_CC_1 = CCLD = $(CC) LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ $(AM_LDFLAGS) $(LDFLAGS) -o $@ AM_V_CCLD = $(am__v_CCLD_@AM_V@) am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@) am__v_CCLD_0 = @echo " CCLD " $@; am__v_CCLD_1 = SOURCES = $(libgpsim_eXdbm_la_SOURCES) DIST_SOURCES = $(libgpsim_eXdbm_la_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac HEADERS = $(gpsim_eXdbminclude_HEADERS) am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) # Read a list of newline-separated strings from the standard input, # and print each of them once, without duplicates. Input order is # *not* preserved. am__uniquify_input = $(AWK) '\ BEGIN { nonempty = 0; } \ { items[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in items) print i; }; } \ ' # Make sure the list of sources is unique. This is necessary because, # e.g., the same source file might be shared among _SOURCES variables # for different programs/libraries. am__define_uniq_tagged_files = \ list='$(am__tagged_files)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | $(am__uniquify_input)` ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ AM_CPPFLAGS = @X_CFLAGS@ lib_LTLIBRARIES = libgpsim_eXdbm.la gpsim_eXdbmincludedir = $(includedir)/eXdbm libgpsim_eXdbm_la_SOURCES = hash.c parse.c misc.c eXdbm.c \ hash.h parse.h misc.h gpsim_eXdbminclude_HEADERS = eXdbm.h eXdbmErrors.h eXdbmTypes.h libgpsim_eXdbm_la_LIBADD = @X_LDFLAGS@ EXTRA_DIST = \ Makefile.orig README LICENSE COPYING.LIB eXdbm.txt \ test1.c test2.c test3.c test1.cfg.orig test2.cfg \ README.gpsim all: all-am .SUFFIXES: .SUFFIXES: .c .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu eXdbm/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu eXdbm/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-libLTLIBRARIES: $(lib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \ } uninstall-libLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \ done clean-libLTLIBRARIES: -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) @list='$(lib_LTLIBRARIES)'; \ locs=`for p in $$list; do echo $$p; done | \ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ sort -u`; \ test -z "$$locs" || { \ echo rm -f $${locs}; \ rm -f $${locs}; \ } libgpsim_eXdbm.la: $(libgpsim_eXdbm_la_OBJECTS) $(libgpsim_eXdbm_la_DEPENDENCIES) $(EXTRA_libgpsim_eXdbm_la_DEPENDENCIES) $(AM_V_CCLD)$(LINK) -rpath $(libdir) $(libgpsim_eXdbm_la_OBJECTS) $(libgpsim_eXdbm_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/eXdbm.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hash.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/misc.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/parse.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(AM_V_CC)$(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LTCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-gpsim_eXdbmincludeHEADERS: $(gpsim_eXdbminclude_HEADERS) @$(NORMAL_INSTALL) @list='$(gpsim_eXdbminclude_HEADERS)'; test -n "$(gpsim_eXdbmincludedir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(gpsim_eXdbmincludedir)'"; \ $(MKDIR_P) "$(DESTDIR)$(gpsim_eXdbmincludedir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(gpsim_eXdbmincludedir)'"; \ $(INSTALL_HEADER) $$files "$(DESTDIR)$(gpsim_eXdbmincludedir)" || exit $$?; \ done uninstall-gpsim_eXdbmincludeHEADERS: @$(NORMAL_UNINSTALL) @list='$(gpsim_eXdbminclude_HEADERS)'; test -n "$(gpsim_eXdbmincludedir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(gpsim_eXdbmincludedir)'; $(am__uninstall_files_from_dir) ID: $(am__tagged_files) $(am__define_uniq_tagged_files); mkid -fID $$unique tags: tags-am TAGS: tags tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) set x; \ here=`pwd`; \ $(am__define_uniq_tagged_files); \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: ctags-am CTAGS: ctags ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) $(am__define_uniq_tagged_files); \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" cscopelist: cscopelist-am cscopelist-am: $(am__tagged_files) list='$(am__tagged_files)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(LTLIBRARIES) $(HEADERS) installdirs: for dir in "$(DESTDIR)$(libdir)" "$(DESTDIR)$(gpsim_eXdbmincludedir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-gpsim_eXdbmincludeHEADERS install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-libLTLIBRARIES install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-gpsim_eXdbmincludeHEADERS \ uninstall-libLTLIBRARIES .MAKE: install-am install-strip .PHONY: CTAGS GTAGS TAGS all all-am check check-am clean clean-generic \ clean-libLTLIBRARIES clean-libtool cscopelist-am ctags \ ctags-am distclean distclean-compile distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-gpsim_eXdbmincludeHEADERS install-html \ install-html-am install-info install-info-am \ install-libLTLIBRARIES install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-compile \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags tags-am uninstall uninstall-am \ uninstall-gpsim_eXdbmincludeHEADERS uninstall-libLTLIBRARIES # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/eXdbm/Makefile.am0000664000076400007640000000167012177043163012755 00000000000000## Process this file with automake to produce Makefile.in ## T. Scott Dattalo - created this makefile so that eXdbm ## could be packaged with the gpsim distribution. The source ## code was unchanged except for the following minor change: ## ## --- misc.h Mon Jan 17 20:25:24 2000 ## +++ misc.h~ Sat Dec 27 13:46:53 1997 ## @@ -35,7 +35,7 @@ ## #define MISC_H ## ## #include ## -#include "eXdbmTypes.h" ## +#include ## ## void RaiseError(int errorcode); ## int DbmIsInit(void); AM_CPPFLAGS = @X_CFLAGS@ lib_LTLIBRARIES = libgpsim_eXdbm.la gpsim_eXdbmincludedir = $(includedir)/eXdbm libgpsim_eXdbm_la_SOURCES = hash.c parse.c misc.c eXdbm.c \ hash.h parse.h misc.h gpsim_eXdbminclude_HEADERS = eXdbm.h eXdbmErrors.h eXdbmTypes.h libgpsim_eXdbm_la_LIBADD = @X_LDFLAGS@ EXTRA_DIST = \ Makefile.orig README LICENSE COPYING.LIB eXdbm.txt \ test1.c test2.c test3.c test1.cfg.orig test2.cfg \ README.gpsim gpsim-0.27.0/eXdbm/eXdbmTypes.h0000644000076400007640000000541210416272727013156 00000000000000 /* $Id: eXdbmTypes.h 230 2002-04-15 22:03:02Z linas $ */ /***** * eXdbmTypes.h : eXdbm private data types * * This file Version $Revision: 230 $ * * Last modification: $Date: 2002-04-16 08:03:02 +1000 (Tue, 16 Apr 2002) $ * By: $Author: linas $ * Current State: $State$ * * Copyright (C) 1997 Fred Pesch * All Rights Reserved * * This file is part of the eXdbm Library. * * This 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. * * This 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 this library; if not, write to the Free * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * *****/ #ifndef EXDBM_TYPES_H #define EXDBM_TYPES_H /* defines */ #define HASH_LENGTH 8 /* the number of bits of the hash values */ #define HASH_MAX_ENTRIES (1 << HASH_LENGTH) /* number of elements in a hash tabl e */ #define MAX_ENTRY_LENGTH 64 /* maximum length for a token */ #define MIN_ORDER_SIZE 256 /* minimum size of the order array */ #define TRUE 1 #define FALSE 0 /* enumerations */ enum { DBM_ENTRY_NOT_FOUND=-1, DBM_ENTRY_VAR_INT = 0, DBM_ENTRY_VAR_REAL = 1, DBM_ENTRY_VAR_BOOL = 2, DBM_ENTRY_VAR_STRING = 3, DBM_ENTRY_VAR_IDENT = 4, DBM_ENTRY_LIST = 5, DBM_ENTRY_ROOT = 6 }; /* List entry typedefs */ typedef struct { double real_val; char *str_val; int int_val; } TDbmEntryValue; typedef struct DbmListEntry { char *key; /* key name */ char *comment; /* entry comment */ int entry_type; /* entry type */ TDbmEntryValue value; /* entry value */ struct DbmListEntry* next; /* next entry sharing the same key value */ struct DbmListEntry** child; /* children list */ int current_order; /* number of elemens in order array */ int size_order; /* size of the order array */ struct DbmListEntry** order; /* order array */ } TDbmListEntry; typedef TDbmListEntry *DB_LIST; /* Database typedefs */ typedef struct { char *filename; /* database filename */ TDbmListEntry *root; /* the root entry */ } TDbmDatabase; typedef struct { int nb_db; /* number of loaded databases */ int array_size; /* the size of the array of databases */ TDbmDatabase *dblist; /* list of databases */ } TDbmDbList; typedef int DB_ID; /* database identifier */ #endif gpsim-0.27.0/eXdbm/LICENSE0000644000076400007640000000174610416272727011734 00000000000000 This File: LICENSE for eXdbm Version 1.0 Beta 1 This is a public BETA release of eXdbm, a configuration library using a structured plain ascii file format. (C) Copyright 1997 Fred Pesch This 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. This 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 this library; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. Fred Pesch eXode project coordinator pesch@club-internet.fr http://www.linux-france.com/pesch gpsim-0.27.0/eXdbm/eXdbm.c0000664000076400007640000011426512163701216012124 00000000000000 /***************************************************************************** * EXODE DATABASE MANAGER LIBRARY * * * * (C) 1997, Fred Pesch * *****************************************************************************/ /***** * eXdbm.c : eXdbm main source file * * This file Version $Revision: 2216 $ * * Last modification: $Date: 2013-06-30 10:56:58 +1000 (Sun, 30 Jun 2013) $ * By: $Author: roy_r_rankin $ * Current State: $State$ * * Copyright (C) 1997 Fred Pesch * All Rights Reserved * * This file is part of the eXdbm Library. * * This 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. * * This 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 this library; if not, write to the Free * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * *****/ /* $Id: eXdbm.c 2216 2013-06-30 00:56:58Z roy_r_rankin $ */ /* includes */ #include #include #include #include "eXdbmTypes.h" #include "eXdbmErrors.h" #include "misc.h" #include "parse.h" /* error messages */ const char * DbmErrorMsgs[] = { "eXdbm : No error", "eXdbm : Memory allocation error", "eXdbm : Database manager not initialized", "eXdbmInit : Database manager already initialized", "eXdbm : Cannot access the specified file", "eXdbmOpenDatabase : Cannot parse comment", "eXdbmOpenDatabase : Cannot parse identifier", "eXdbmOpenDatabase : Cannot parse variable value", "eXdbmOpenDatabase : Unexpected End Of File", "eXdbm : Cannot access Database file", "eXdbm : Wrong database ID", "eXdbm : Write error", "eXdbm : Cannot destroy database", "eXdbm : wrong variable type", "eXdbm : entry not found", "eXdbm : Bad parameter in eXdbm function call", "eXdbmCreate : Duplicate entry identifier" }; /* global variables */ int DbmLastErrorCode = DBM_NO_ERROR; /* the current error value */ TDbmDbList *DbmDbList=NULL; /* private list variable */ unsigned long DbmParseLineNumber; /* line counter for parser */ /* public functions */ int eXdbmGetLastError(void); const char *eXdbmGetErrorString(int errorcode); int eXdbmLastLineParsed(void); int eXdbmInit(void); int eXdbmOpenDatabase(char *filename, DB_ID *dbid); int eXdbmNewDatabase(char *filename, DB_ID *dbid); int eXdbmUpdateDatabase(DB_ID dbid); int eXdbmBackupDatabase(DB_ID dbid, char *filename); int eXdbmCloseDatabase(DB_ID dbid, int update); int eXdbmReloadDatabase(DB_ID *dbid, int update); int eXdbmGetEntryType(DB_ID dbid, DB_LIST list, char *entryname); char *eXdbmGetEntryComment(DB_ID dbid, DB_LIST list, char *entryname); int eXdbmGetVarInt(DB_ID dbid, DB_LIST list, char *entryname, int *value); int eXdbmGetVarReal(DB_ID dbid, DB_LIST list, char *entryname, double *value); int eXdbmGetVarString(DB_ID dbid, DB_LIST list, char *entryname, char **value); int eXdbmGetVarIdent(DB_ID dbid, DB_LIST list, char *entryname, char **value); int eXdbmGetVarBool(DB_ID dbid, DB_LIST list, char *entryname, int *value); DB_LIST eXdbmGetList(DB_ID dbid, DB_LIST list, char *listname); DB_LIST eXdbmSearchList(DB_ID dbid, DB_LIST list, char *listname); DB_LIST eXdbmPathList(DB_ID dbid, char *path); int eXdbmChangeEntryComment(DB_ID dbid, DB_LIST list, char *entryname, char *comment); int eXdbmChangeVarInt(DB_ID dbid, DB_LIST list, char *entryname, int newvalue); int eXdbmChangeVarReal(DB_ID dbid, DB_LIST list, char *entryname, double newvalue); int eXdbmChangeVarString(DB_ID dbid, DB_LIST list, char *entryname, char *newvalue); int eXdbmChangeVarIdent(DB_ID dbid, DB_LIST list, char *entryname, char *newvalue); int eXdbmChangeVarBool(DB_ID dbid, DB_LIST list, char *entryname, int newvalue); int eXdbmCreateList(DB_ID dbid, DB_LIST list, char *entryname, char *comment); int eXdbmCreateVarInt(DB_ID dbid, DB_LIST list, char *entryname, char *comment, int value); int eXdbmCreateVarReal(DB_ID dbid, DB_LIST list, char *entryname, char *comment, double value); int eXdbmCreateVarBool(DB_ID dbid, DB_LIST list, char *entryname, char *comment, int value); int eXdbmCreateVarString(DB_ID dbid, DB_LIST list, char *entryname, char *comment, char *value); int eXdbmCreateVarIdent(DB_ID dbid, DB_LIST list, char *entryname, char *comment, char *value); int eXdbmDeleteEntry(DB_ID dbid, DB_LIST list, char *entryname); /***************************************************************************** * ERROR HANDLING * *****************************************************************************/ int eXdbmGetLastError(void) { int temp; temp = DbmLastErrorCode; DbmLastErrorCode = DBM_NO_ERROR; return temp; } const char *eXdbmGetErrorString(int errorcode) { if(errorcodenb_db = 0; DbmDbList->dblist = NULL; DbmDbList->array_size = 0; return 1; } /***************************************************************************** * OPENING A NEW DATABASE * *****************************************************************************/ int eXdbmOpenDatabase(char *filename, DB_ID *dbid) { FILE *f; DB_ID temp_id = 0; int ret; int i; int addarray; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* try to open the file */ f = fopen(filename, "rt"); if(f==NULL) { RaiseError(DBM_OPEN_FILE); return -1; } /* search if there's an empty place in the array of databases */ addarray = 1; for(i=0;i< DbmDbList->array_size; i++) if(DbmDbList->dblist[i].root==NULL) { temp_id = i; addarray = 0; } if(addarray == 1) { DbmDbList->array_size++; DbmDbList->dblist = (TDbmDatabase *) realloc( DbmDbList->dblist, sizeof(TDbmDatabase) * DbmDbList->array_size); if(DbmDbList->dblist==NULL) { RaiseError(DBM_ALLOC); fclose(f); return -1; } temp_id = DbmDbList->array_size - 1; } /* create the database variable */ DbmDbList->dblist[temp_id].filename = (char *) malloc(sizeof(char)* (strlen(filename)+1)); if(DbmDbList->dblist[temp_id].filename == NULL) { RaiseError(DBM_ALLOC); return(-1); } strcpy(DbmDbList->dblist[temp_id].filename, filename); DbmDbList->nb_db++; /* initialize the root list entry */ DbmDbList->dblist[temp_id].root = (TDbmListEntry *) malloc (sizeof(TDbmListEntry)); if(DbmDbList->dblist[temp_id].root == NULL) { RaiseError(DBM_ALLOC); fclose(f); return -1; } DbmDbList->dblist[temp_id].root->key = NULL ; /* unique root identifier */ DbmDbList->dblist[temp_id].root->comment = NULL; DbmDbList->dblist[temp_id].root->entry_type = DBM_ENTRY_ROOT; DbmDbList->dblist[temp_id].root->value.int_val = -1; DbmDbList->dblist[temp_id].root->value.real_val = -1; DbmDbList->dblist[temp_id].root->value.str_val = NULL; DbmDbList->dblist[temp_id].root->next = NULL; DbmDbList->dblist[temp_id].root->order = (TDbmListEntry **) malloc(sizeof(TDbmListEntry *) * MIN_ORDER_SIZE); if(DbmDbList->dblist[temp_id].root->order == NULL) { RaiseError(DBM_ALLOC); fclose(f); return(-1); } DbmDbList->dblist[temp_id].root->size_order = MIN_ORDER_SIZE; DbmDbList->dblist[temp_id].root->current_order = 0; DbmDbList->dblist[temp_id].root->child = (TDbmListEntry **) malloc( sizeof(TDbmListEntry *) * HASH_MAX_ENTRIES); if(DbmDbList->dblist[temp_id].root->child == NULL) { RaiseError(DBM_ALLOC); fclose(f); return(-1); } for (i=0; i < HASH_MAX_ENTRIES ; i++) DbmDbList->dblist[temp_id].root->child[i]=NULL; /* now, parse the file */ DbmParseLineNumber=1; ret = ParseFile(f, DbmDbList->dblist[temp_id].root, 0); if(ret==-1) { fclose(f); return -1; } /* termination */ fclose(f); *dbid = temp_id; return 1; /* no error */ } /***************************************************************************** * CREATING A NEW DATABASE * *****************************************************************************/ int eXdbmNewDatabase(char *filename, DB_ID *dbid) { /* FILE *f; */ DB_ID temp_id = 0; int ret; int i; int addarray; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* try to open the file */ /* f = fopen(filename, "wt"); if(f==NULL) { RaiseError(DBM_OPEN_FILE); return -1; } fclose(f); */ /* search if there's an empty place in the array of databases */ addarray = 1; for(i=0;i< DbmDbList->array_size; i++) if(DbmDbList->dblist[i].root==NULL) { temp_id = i; addarray = 0; } if(addarray == 1) { DbmDbList->array_size++; DbmDbList->dblist = (TDbmDatabase *) realloc( DbmDbList->dblist, sizeof(TDbmDatabase) * DbmDbList->array_size); if(DbmDbList->dblist==NULL) { RaiseError(DBM_ALLOC); /* fclose(f); */ return -1; } temp_id = DbmDbList->array_size - 1; } /* create the database variable */ DbmDbList->dblist[temp_id].filename = (char *) malloc(sizeof(char)* (strlen(filename)+1)); if(DbmDbList->dblist[temp_id].filename == NULL) { RaiseError(DBM_ALLOC); return(-1); } strcpy(DbmDbList->dblist[temp_id].filename, filename); DbmDbList->nb_db++; /* initialize the root list entry */ DbmDbList->dblist[temp_id].root = (TDbmListEntry *) malloc (sizeof(TDbmListEntry)); if(DbmDbList->dblist[temp_id].root == NULL) { RaiseError(DBM_ALLOC); /* fclose(f); */ return -1; } DbmDbList->dblist[temp_id].root->key = NULL ; /* unique root identifier */ DbmDbList->dblist[temp_id].root->comment = NULL; DbmDbList->dblist[temp_id].root->entry_type = DBM_ENTRY_ROOT; DbmDbList->dblist[temp_id].root->value.int_val = -1; DbmDbList->dblist[temp_id].root->value.real_val = -1; DbmDbList->dblist[temp_id].root->value.str_val = NULL; DbmDbList->dblist[temp_id].root->next = NULL; DbmDbList->dblist[temp_id].root->order = (TDbmListEntry **) malloc(sizeof(TDbmListEntry *) * MIN_ORDER_SIZE); if(DbmDbList->dblist[temp_id].root->order == NULL) { RaiseError(DBM_ALLOC); /* fclose(f); */ return(-1); } DbmDbList->dblist[temp_id].root->size_order = MIN_ORDER_SIZE; DbmDbList->dblist[temp_id].root->current_order = 0; DbmDbList->dblist[temp_id].root->child = (TDbmListEntry **) malloc( sizeof(TDbmListEntry *) * HASH_MAX_ENTRIES); if(DbmDbList->dblist[temp_id].root->child == NULL) { RaiseError(DBM_ALLOC); /* fclose(f); */ return(-1); } for (i=0; i < HASH_MAX_ENTRIES ; i++) DbmDbList->dblist[temp_id].root->child[i]=NULL; /* termination */ *dbid = temp_id; return 1; /* no error */ } /***************************************************************************** * UPDATING A DATABASE * *****************************************************************************/ int eXdbmUpdateDatabase(DB_ID dbid) { FILE *f; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the database identifier */ ret = CheckDbIdent(dbid); if(ret==-1) { RaiseError(DBM_WRONG_ID); return(-1); } /* open the file for writing */ f = fopen(DbmDbList->dblist[dbid].filename, "wt"); if(f==NULL) { RaiseError(DBM_UPDATE_FILE); return -1; } ret = WriteDatabase(f, DbmDbList->dblist[dbid].root, 0); if(ret==-1) { RaiseError(DBM_UPDATE_WRITE_ERROR); return(-1); } fclose(f); return(1); } /***************************************************************************** * DATABASE BACKUP * *****************************************************************************/ int eXdbmBackupDatabase(DB_ID dbid, char *filename) { FILE *f; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the database identifier */ if(CheckDbIdent(dbid)==-1) { RaiseError(DBM_WRONG_ID); return(-1); } /* open the file for writing */ f = fopen(filename, "wt"); if(f==NULL) { RaiseError(DBM_UPDATE_FILE); return -1; } ret = WriteDatabase(f, DbmDbList->dblist[dbid].root, 0); if(ret==-1) { RaiseError(DBM_UPDATE_WRITE_ERROR); return(-1); } fclose(f); return(1); } /***************************************************************************** * CLOSING A DATABASE * *****************************************************************************/ int eXdbmCloseDatabase(DB_ID dbid, int update) { int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the database identifier */ if(CheckDbIdent(dbid)==-1) { RaiseError(DBM_WRONG_ID); return(-1); } /* update the database if asked */ if(update) ret = eXdbmUpdateDatabase(dbid); if(ret == -1) return (-1); /* now destroy the database entries */ ret = DestroyDatabase(DbmDbList->dblist[dbid].root); if( ret == -1) return(-1); /* and the database itself */ free(DbmDbList->dblist[dbid].root->child); free(DbmDbList->dblist[dbid].root->order); free(DbmDbList->dblist[dbid].root); DbmDbList->dblist[dbid].root=NULL; free(DbmDbList->dblist[dbid].filename); DbmDbList->nb_db--; return(1); } /***************************************************************************** * RELOAD A DATABASE * *****************************************************************************/ int eXdbmReloadDatabase(DB_ID *dbid, int update) { int ret; char *filename; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the database identifier */ if(CheckDbIdent(*dbid) == -1) { RaiseError(DBM_WRONG_ID); return(-1); } /* get the database file name */ filename = (char *) malloc(sizeof(char) * (strlen(DbmDbList->dblist[*dbid].filename)+1)); strcpy(filename, DbmDbList->dblist[*dbid].filename); /* first, close the database */ ret = eXdbmCloseDatabase(*dbid, update); if(ret == -1) return(-1); /* then, reopen it */ ret = eXdbmOpenDatabase(filename, dbid); if(ret == -1) { free(filename); return(-1); } free(filename); return(1); } /***************************************************************************** * GET THE NAME OF THE FILE ASSOCIATED TO A DATABASE * *****************************************************************************/ char * eXdbmGetDatabaseFileName(DB_ID dbid) { int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(NULL); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(NULL); } return(DbmDbList->dblist[dbid].filename); } /***************************************************************************** * DATABASE QUERY FUNCTIONS * *****************************************************************************/ /************************/ /*** Entry type query ***/ /************************/ int eXdbmGetEntryType(DB_ID dbid, DB_LIST list, char *entryname) { TDbmListEntry *search; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(DBM_ENTRY_NOT_FOUND); } /* search entryname in list */ if(list==NULL) /* level 0 search */ search = SearchListEntry(DbmDbList->dblist[dbid].root, entryname); else /* sublist search */ search = SearchListEntry(list, entryname); if (search==NULL) return(DBM_ENTRY_NOT_FOUND); return (search->entry_type); } /***************************/ /*** Entry comment query ***/ /***************************/ char *eXdbmGetEntryComment(DB_ID dbid, DB_LIST list, char *entryname) { TDbmListEntry *search; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(NULL); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(NULL); } /* search entryname in list */ if(list==NULL) /* level 0 search */ search = SearchListEntry(DbmDbList->dblist[dbid].root, entryname); else /* sublist search */ search = SearchListEntry(list, entryname); if (search==NULL) return(NULL); /* a comment is available ? */ if(search->comment!=NULL) return(search->comment); return(NULL); } /***************************/ /*** integer value query ***/ /***************************/ int eXdbmGetVarInt(DB_ID dbid, DB_LIST list, char *entryname, int *value) { TDbmListEntry *search; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(DBM_ENTRY_NOT_FOUND); } /* search entryname in list */ if(list==NULL) /* level 0 search */ search = SearchListEntry(DbmDbList->dblist[dbid].root, entryname); else /* sublist search */ search = SearchListEntry(list, entryname); if (search==NULL) return(DBM_ENTRY_NOT_FOUND); /* check the variable type */ if(search->entry_type== DBM_ENTRY_VAR_INT) { *value = search->value.int_val; return (search->entry_type); } /* wrong type */ RaiseError(DBM_WRONG_TYPE); return(DBM_ENTRY_NOT_FOUND); } /************************/ /*** Real value query ***/ /************************/ int eXdbmGetVarReal(DB_ID dbid, DB_LIST list, char *entryname, double *value) { TDbmListEntry *search; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(DBM_ENTRY_NOT_FOUND); } /* search entryname in list */ if(list==NULL) /* level 0 search */ search = SearchListEntry(DbmDbList->dblist[dbid].root, entryname); else /* sublist search */ search = SearchListEntry(list, entryname); if (search==NULL) return(DBM_ENTRY_NOT_FOUND); /* check the variable type */ if(search->entry_type== DBM_ENTRY_VAR_REAL) { *value = search->value.real_val; return (search->entry_type); } /* wrong type */ RaiseError(DBM_WRONG_TYPE); return(DBM_ENTRY_NOT_FOUND); } /**************************/ /*** String value query ***/ /**************************/ int eXdbmGetVarString(DB_ID dbid, DB_LIST list, char *entryname, char **value) { TDbmListEntry *search; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(DBM_ENTRY_NOT_FOUND); } /* search entryname in list */ if(list==NULL) /* level 0 search */ search = SearchListEntry(DbmDbList->dblist[dbid].root, entryname); else /* sublist search */ search = SearchListEntry(list, entryname); if (search==NULL) return(DBM_ENTRY_NOT_FOUND); /* check the variable type */ if(search->entry_type== DBM_ENTRY_VAR_STRING) { *value = (char *) malloc(sizeof(char) *(strlen(search->value.str_val)+1)); if(*value == NULL) { RaiseError(DBM_ALLOC); return(-1); } strcpy(*value,search->value.str_val); return (search->entry_type); } /* wrong type */ RaiseError(DBM_WRONG_TYPE); return(DBM_ENTRY_NOT_FOUND); } /******************************/ /*** Identifier value query ***/ /******************************/ int eXdbmGetVarIdent(DB_ID dbid, DB_LIST list, char *entryname, char **value) { TDbmListEntry *search; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(DBM_ENTRY_NOT_FOUND); } /* search entryname in list */ if(list==NULL) /* level 0 search */ search = SearchListEntry(DbmDbList->dblist[dbid].root, entryname); else /* sublist search */ search = SearchListEntry(list, entryname); if (search==NULL) return(DBM_ENTRY_NOT_FOUND); /* check the variable type */ if(search->entry_type== DBM_ENTRY_VAR_IDENT) { *value = (char *) malloc(sizeof(char) *(strlen(search->value.str_val)+1)); if(*value == NULL) { RaiseError(DBM_ALLOC); return(-1); } strcpy(*value,search->value.str_val); return (search->entry_type); } /* wrong type */ RaiseError(DBM_WRONG_TYPE); return(DBM_ENTRY_NOT_FOUND); } /***************************/ /*** Boolean value query ***/ /***************************/ int eXdbmGetVarBool(DB_ID dbid, DB_LIST list, char *entryname, int *value) { TDbmListEntry *search; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(DBM_ENTRY_NOT_FOUND); } /* search entryname in list */ if(list==NULL) /* level 0 search */ search = SearchListEntry(DbmDbList->dblist[dbid].root, entryname); else /* sublist search */ search = SearchListEntry(list, entryname); if (search==NULL) return(DBM_ENTRY_NOT_FOUND); /* check the variable type */ if(search->entry_type== DBM_ENTRY_VAR_BOOL) { *value = search->value.int_val; return (search->entry_type); } /* wrong type */ RaiseError(DBM_WRONG_TYPE); return(DBM_ENTRY_NOT_FOUND); } /********************/ /*** List queries ***/ /********************/ /* one level search */ DB_LIST eXdbmGetList(DB_ID dbid, DB_LIST list, char *listname) { TDbmListEntry *search; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(NULL); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(NULL); } /* search entryname in list */ if(list==NULL) /* level 0 search */ search = SearchListEntry(DbmDbList->dblist[dbid].root, listname); else /* sublist search */ search = SearchListEntry(list, listname); if (search==NULL) return(NULL); /* check the variable type */ if(search->entry_type== DBM_ENTRY_LIST) return (search); /* wrong type */ RaiseError(DBM_WRONG_TYPE); return(NULL); } /* recursive search */ DB_LIST eXdbmSearchList(DB_ID dbid, DB_LIST list, char *listname) { TDbmListEntry *search; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(NULL); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(NULL); } /* search entryname in list */ if(list==NULL) /* level 0 search */ search = SearchListEntryRec(DbmDbList->dblist[dbid].root, listname); else /* sublist search */ search = SearchListEntryRec(list, listname); if (search==NULL) return(NULL); /* check the variable type */ if(search->entry_type== DBM_ENTRY_LIST) return (search); /* wrong type */ RaiseError(DBM_WRONG_TYPE); return(NULL); } /* one level search */ DB_LIST eXdbmPathList(DB_ID dbid, char *path) { TDbmListEntry *search; char *found; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(NULL); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(NULL); } /* parse the path string */ search = DbmDbList->dblist[dbid].root; found = strtok(path, ":"); while(found!=NULL) { /* search entryname in list */ search = SearchListEntry (search, found); if(search==NULL) return(NULL); found = strtok(NULL, ":"); } return(search); } /***************************************************************************** * ENTRY VALUE MODIFICATIONS * *****************************************************************************/ /****************************/ /*** Change entry comment ***/ /****************************/ int eXdbmChangeEntryComment(DB_ID dbid, DB_LIST list, char *entryname, char *comment) { TDbmListEntry *search; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(-1); } /* check the comment value */ if(comment==NULL) { RaiseError(DBM_BAD_PARAMETER); return(-1); } /* search entryname in list */ if(list==NULL) /* level 0 search */ search = SearchListEntry(DbmDbList->dblist[dbid].root, entryname); else /* sublist search */ search = SearchListEntry(list, entryname); if (search==NULL) return(DBM_ENTRY_NOT_FOUND); /* a comment is available ? */ if(search->comment!=NULL) free(search->comment); search->comment = (char *) malloc( sizeof(char) * (strlen(comment)+1)); if(search->comment == NULL) { RaiseError(DBM_ALLOC); return(-1); } strcpy(search->comment, comment); return(1); } /****************************/ /*** change integer value ***/ /****************************/ int eXdbmChangeVarInt(DB_ID dbid, DB_LIST list, char *entryname, int newvalue) { TDbmListEntry *search; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(DBM_ENTRY_NOT_FOUND); } /* search entryname in list */ if(list==NULL) /* level 0 search */ search = SearchListEntry(DbmDbList->dblist[dbid].root, entryname); else /* sublist search */ search = SearchListEntry(list, entryname); if (search==NULL) return(DBM_ENTRY_NOT_FOUND); /* check the variable type */ if(search->entry_type== DBM_ENTRY_VAR_INT) { search->value.int_val=newvalue; return (search->entry_type); } /* wrong type */ RaiseError(DBM_WRONG_TYPE); return(DBM_ENTRY_NOT_FOUND); } /*************************/ /*** change real value ***/ /*************************/ int eXdbmChangeVarReal(DB_ID dbid, DB_LIST list, char *entryname, double newvalue) { TDbmListEntry *search; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(DBM_ENTRY_NOT_FOUND); } /* search entryname in list */ if(list==NULL) /* level 0 search */ search = SearchListEntry(DbmDbList->dblist[dbid].root, entryname); else /* sublist search */ search = SearchListEntry(list, entryname); if (search==NULL) return(DBM_ENTRY_NOT_FOUND); /* check the variable type */ if(search->entry_type== DBM_ENTRY_VAR_REAL) { search->value.real_val=newvalue; return (search->entry_type); } /* wrong type */ RaiseError(DBM_WRONG_TYPE); return(DBM_ENTRY_NOT_FOUND); } /***************************/ /*** change string value ***/ /***************************/ int eXdbmChangeVarString(DB_ID dbid, DB_LIST list, char *entryname, char *newvalue) { TDbmListEntry *search; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(-1); } /* check the newvalue parameter */ if(newvalue==NULL) { RaiseError(DBM_BAD_PARAMETER); return(-1); } /* search entryname in list */ if(list==NULL) /* level 0 search */ search = SearchListEntry(DbmDbList->dblist[dbid].root, entryname); else /* sublist search */ search = SearchListEntry(list, entryname); if (search==NULL) return(DBM_ENTRY_NOT_FOUND); /* check the variable type */ if(search->entry_type== DBM_ENTRY_VAR_STRING) { if(search->value.str_val!=NULL) free(search->value.str_val); search->value.str_val = (char *) malloc(sizeof(char) * (strlen(newvalue)+1)); if(search->value.str_val==NULL) { RaiseError(DBM_ALLOC); return(-1); } strcpy(search->value.str_val, newvalue); return (search->entry_type); } /* wrong type */ RaiseError(DBM_WRONG_TYPE); return(DBM_ENTRY_NOT_FOUND); } /*******************************/ /*** Change identifier value ***/ /*******************************/ int eXdbmChangeVarIdent(DB_ID dbid, DB_LIST list, char *entryname, char *newvalue) { TDbmListEntry *search; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(-1); } /* check the string parameter */ if( newvalue==NULL) { RaiseError(DBM_BAD_PARAMETER); return(-1); } /* search entryname in list */ if(list==NULL) /* level 0 search */ search = SearchListEntry(DbmDbList->dblist[dbid].root, entryname); else /* sublist search */ search = SearchListEntry(list, entryname); if (search==NULL) return(DBM_ENTRY_NOT_FOUND); /* check the variable type */ if(search->entry_type== DBM_ENTRY_VAR_IDENT) { if(search->value.str_val!=NULL) free(search->value.str_val); search->value.str_val = (char *) malloc(sizeof(char) * (strlen(newvalue)+1)); if(search->value.str_val==NULL) { RaiseError(DBM_ALLOC); return(-1); } strcpy(search->value.str_val, newvalue); return (search->entry_type); } /* wrong type */ RaiseError(DBM_WRONG_TYPE); return(DBM_ENTRY_NOT_FOUND); } /****************************/ /*** Change boolean value ***/ /****************************/ int eXdbmChangeVarBool(DB_ID dbid, DB_LIST list, char *entryname, int newvalue) { TDbmListEntry *search; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(DBM_ENTRY_NOT_FOUND); } /* check the newvalue parameter */ if(newvalue!=0 && newvalue!=1) { RaiseError(DBM_BAD_PARAMETER); return(-1); } /* search entryname in list */ if(list==NULL) /* level 0 search */ search = SearchListEntry(DbmDbList->dblist[dbid].root, entryname); else /* sublist search */ search = SearchListEntry(list, entryname); if (search==NULL) return(DBM_ENTRY_NOT_FOUND); /* check the variable type */ if(search->entry_type== DBM_ENTRY_VAR_BOOL) { search->value.int_val = newvalue; return (search->entry_type); } /* wrong type */ RaiseError(DBM_WRONG_TYPE); return(DBM_ENTRY_NOT_FOUND); } /***************************************************************************** * ENTRY CREATIONS * *****************************************************************************/ /***************************/ /*** Create a list entry ***/ /***************************/ int eXdbmCreateList(DB_ID dbid, DB_LIST list, char *entryname, char *comment) { TDbmListEntry *node; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(-1); } /* create entryname in list */ if(list==NULL) /* level 0 search */ node = CreateListEntry(DbmDbList->dblist[dbid].root, entryname, comment, DBM_ENTRY_LIST); else /* sublist search */ node = CreateListEntry(list, entryname, comment, DBM_ENTRY_LIST); if (node==NULL) return(-1); return (1); } /**********************************/ /*** Create an integer variable ***/ /**********************************/ int eXdbmCreateVarInt(DB_ID dbid, DB_LIST list, char *entryname, char *comment, int value) { TDbmListEntry *node; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(-1); } /* create entryname in list */ if(list==NULL) /* level 0 search */ node = CreateListEntry(DbmDbList->dblist[dbid].root, entryname, comment, DBM_ENTRY_VAR_INT); else /* sublist search */ node = CreateListEntry(list, entryname, comment, DBM_ENTRY_VAR_INT); if (node==NULL) return(-1); node->value.int_val = value; node->value.real_val = value; return (1); } /******************************/ /*** Create a real variable ***/ /******** *********************/ int eXdbmCreateVarReal(DB_ID dbid, DB_LIST list, char *entryname, char *comment, double value) { TDbmListEntry *node; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(-1); } /* create entryname in list */ if(list==NULL) /* level 0 search */ node = CreateListEntry(DbmDbList->dblist[dbid].root, entryname, comment, DBM_ENTRY_VAR_REAL); else /* sublist search */ node = CreateListEntry(list, entryname, comment, DBM_ENTRY_VAR_REAL); if (node==NULL) return(-1); node->value.int_val = (int)ceil(value); node->value.real_val = value; return (1); } /*********************************/ /*** Create a boolean variable ***/ /******** ************************/ int eXdbmCreateVarBool(DB_ID dbid, DB_LIST list, char *entryname, char *comment, int value) { TDbmListEntry *node; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(-1); } /* check the value parameter */ if(value!=0 && value!=1) { RaiseError(DBM_BAD_PARAMETER); return(-1); } /* create entryname in list */ if(list==NULL) /* level 0 search */ node = CreateListEntry(DbmDbList->dblist[dbid].root, entryname, comment, DBM_ENTRY_VAR_BOOL); else /* sublist search */ node = CreateListEntry(list, entryname, comment, DBM_ENTRY_VAR_BOOL); if (node==NULL) return(-1); node->value.int_val = value; return (1); } /***************** **************/ /*** Create a string variable ***/ /******** ***********************/ int eXdbmCreateVarString(DB_ID dbid, DB_LIST list, char *entryname, char *comment, char *value) { TDbmListEntry *node; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(-1); } /* check the value parameter */ if(value==NULL) { RaiseError(DBM_BAD_PARAMETER); return(-1); } /* create entryname in list */ if(list==NULL) /* level 0 search */ node = CreateListEntry(DbmDbList->dblist[dbid].root, entryname, comment, DBM_ENTRY_VAR_STRING); else /* sublist search */ node = CreateListEntry(list, entryname, comment, DBM_ENTRY_VAR_STRING); if (node==NULL) return(-1); node->value.str_val = (char *) malloc(sizeof(char) * (strlen(value)+1)); if(node->value.str_val==NULL) { RaiseError(DBM_ALLOC); return(-1); } strcpy(node->value.str_val, value); return (1); } /*************************************/ /*** Create an identifier variable ***/ /******** ****************************/ int eXdbmCreateVarIdent(DB_ID dbid, DB_LIST list, char *entryname, char *comment, char *value) { TDbmListEntry *node; int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(-1); } /* check the value parameter */ if(value==NULL) { RaiseError(DBM_BAD_PARAMETER); return(-1); } /* create entryname in list */ if(list==NULL) /* level 0 search */ node = CreateListEntry(DbmDbList->dblist[dbid].root, entryname, comment, DBM_ENTRY_VAR_IDENT); else /* sublist search */ node = CreateListEntry(list, entryname, comment, DBM_ENTRY_VAR_IDENT); if (node==NULL) return(-1); node->value.str_val = (char *) malloc(sizeof(char) * (strlen(value)+1)); if(node->value.str_val==NULL) { RaiseError(DBM_ALLOC); return(-1); } strcpy(node->value.str_val, value); return (1); } /***************************************************************************** * DELETE ENTRY FUNCTION * *****************************************************************************/ int eXdbmDeleteEntry(DB_ID dbid, DB_LIST list, char *entryname) { int ret; /* the database manager must be initialized */ ret = DbmIsInit(); if( ret == -1) return(-1); /* check the dbid parameter */ if(CheckDbIdent(dbid) == -1) { RaiseError(DBM_WRONG_ID); return(-1); } /* search entryname in list */ if(list==NULL) /* level 0 search */ ret = DeleteListEntry(DbmDbList->dblist[dbid].root, entryname); else /* sublist search */ ret = DeleteListEntry(list, entryname); if (ret==-1) return(-1); return(1); } gpsim-0.27.0/eXdbm/ChangeLog0000644000076400007640000000000010416272727012457 00000000000000gpsim-0.27.0/eXdbm/parse.h0000644000076400007640000000231310416272727012201 00000000000000 /* $Id: parse.h 230 2002-04-15 22:03:02Z linas $ */ /***** * parse.h : eXdbm parser header * * This file Version $Revision: 230 $ * * Last modification: $Date: 2002-04-16 08:03:02 +1000 (Tue, 16 Apr 2002) $ * By: $Author: linas $ * Current State: $State$ * * Copyright (C) 1997 Fred Pesch * All Rights Reserved * * This file is part of the eXdbm Library. * * This 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. * * This 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 this library; if not, write to the Free * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * *****/ #ifndef PARSE_H #define PARSE_H #include #include "eXdbmTypes.h" int ParseFile(FILE *f, TDbmListEntry *list, int level); #endif gpsim-0.27.0/eXdbm/eXdbm.h0000644000076400007640000000703010416272727012127 00000000000000 /***** * eXdbm.h : eXdbm main header * * This file Version $Revision: 230 $ * * Last modification: $Date: 2002-04-16 08:03:02 +1000 (Tue, 16 Apr 2002) $ * By: $Author: linas $ * Current State: $State$ * * Copyright (C) 1997 Fred Pesch * All Rights Reserved * * This file is part of the eXdbm Library. * * This 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. * * This 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 this library; if not, write to the Free * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * *****/ #ifndef EXDBM_H #define EXDBM_H #include "eXdbmTypes.h" #include "eXdbmErrors.h" /* error handling */ int eXdbmGetLastError(void); const char *eXdbmGetErrorString(int errorcode); int eXdbmLastLineParsed(void); /* database functions */ int eXdbmInit(void); int eXdbmOpenDatabase(char *filename, DB_ID *dbid); int eXdbmNewDatabase(char *filename, DB_ID *dbid); int eXdbmUpdateDatabase(DB_ID dbid); int eXdbmBackupDatabase(DB_ID dbid, char *filename); int eXdbmCloseDatabase(DB_ID dbid, int update); int eXdbmReloadDatabase(DB_ID *dbid, int update); char *eXdbmGetDatabaseFileName(DB_ID dbid); /* get entry values functions */ int eXdbmGetEntryType(DB_ID dbid, DB_LIST list, char *entryname); char *eXdbmGetEntryComment(DB_ID dbid, DB_LIST list, char *entryname); int eXdbmGetVarInt(DB_ID dbid, DB_LIST list, char *entryname, int *value); int eXdbmGetVarReal(DB_ID dbid, DB_LIST list, char *entryname, double *value); int eXdbmGetVarString(DB_ID dbid, DB_LIST list, char *entryname, char **value); int eXdbmGetVarIdent(DB_ID dbid, DB_LIST list, char *entryname, char **value); int eXdbmGetVarBool(DB_ID dbid, DB_LIST list, char *entryname, int *value); DB_LIST eXdbmGetList(DB_ID dbid, DB_LIST list, char *listname); DB_LIST eXdbmSearchList(DB_ID dbid, DB_LIST list, char *listname); DB_LIST eXdbmPathList(DB_ID dbid, char *path); /* change entry functions */ int eXdbmChangeEntryComment(DB_ID dbid, DB_LIST list, char *entryname, char *comment); int eXdbmChangeVarInt(DB_ID dbid, DB_LIST list, char *entryname, int newvalue); int eXdbmChangeVarReal(DB_ID dbid, DB_LIST list, char *entryname, double newvalue); int eXdbmChangeVarString(DB_ID dbid, DB_LIST list, char *entryname, char *newvalue); int eXdbmChangeVarIdent(DB_ID dbid, DB_LIST list, char *entryname, char *newvalue); int eXdbmChangeVarBool(DB_ID dbid, DB_LIST list, char *entryname, int newvalue); /* create entry functions */ int eXdbmCreateList(DB_ID dbid, DB_LIST list, char *entryname, char *comment); int eXdbmCreateVarInt(DB_ID dbid, DB_LIST list, char *entryname, char *comment, int value); int eXdbmCreateVarReal(DB_ID dbid, DB_LIST list, char *entryname, char *comment, double value); int eXdbmCreateVarBool(DB_ID dbid, DB_LIST list, char *entryname, char *comment, int value); int eXdbmCreateVarString(DB_ID dbid, DB_LIST list, char *entryname, char *comment, char *value); int eXdbmCreateVarIdent(DB_ID dbid, DB_LIST list, char *entryname, char *comment, char *value); /* delete entry function */ int eXdbmDeleteEntry(DB_ID dbid, DB_LIST list, char *entryname); #endif /* end of eXdbm.h */ gpsim-0.27.0/eXdbm/eXdbmErrors.h0000644000076400007640000000306610416272727013331 00000000000000 /* $Id: eXdbmErrors.h 230 2002-04-15 22:03:02Z linas $ */ /***** * eXdbmErrors.h : eXdbm error numbers * * This file Version $Revision: 230 $ * * Last modification: $Date: 2002-04-16 08:03:02 +1000 (Tue, 16 Apr 2002) $ * By: $Author: linas $ * Current State: $State$ * * Copyright (C) 1997 Fred Pesch * All Rights Reserved * * This file is part of the eXdbm Library. * * This 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. * * This 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 this library; if not, write to the Free * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * *****/ #ifndef EXDBM_ERRORS_H #define EXDBM_ERRORS_H enum { DBM_NO_ERROR = 0, DBM_ALLOC = 1, DBM_INIT_NEEDED = 2, DBM_INIT_REINIT = 3, DBM_OPEN_FILE = 4, DBM_PARSE_COMMENT = 5, DBM_PARSE_ID = 6, DBM_PARSE_VALUE = 7, DBM_PARSE_UNEXP_END = 8, DBM_UPDATE_FILE = 9, DBM_WRONG_ID = 10, DBM_UPDATE_WRITE_ERROR = 11, DBM_DESTROY = 12, DBM_WRONG_TYPE = 13, DBM_BAD_PARAMETER = 14, DBM_DUPLICATE_ENTRY = 15, DBM_END_ERROR = 16 }; #endif /* end of eXdbmErrors.h */ gpsim-0.27.0/eXdbm/hash.h0000644000076400007640000000050410416272727012012 00000000000000 #ifndef HASH_H #define HASH_H /* DON'T MODIFY THE FOLLOWING DEFINES ! */ #define HASH_LENGTH 8 /* the number of bits of the hash values */ #define HASH_MAX_ENTRIES (1 << HASH_LENGTH) /* number of elements in a hash table */ /* hash value function */ int HashValueGenerator( char *name ); #endif /* end of hash.h */ gpsim-0.27.0/eXdbm/hash.c0000644000076400007640000000103610416272727012006 00000000000000 #include #include #include "hash.h" #define HASH_THETA 0.6180339887 /* value used by the hash value generator */ /***** hash value calculation *****/ int HashValueGenerator( char *name ) { size_t len; size_t i; unsigned char cvalue; double mvalue; /* compression */ len = strlen(name); cvalue = 0; for(i=0; i a database identifier DB_LIST -> a list variable 4.2. error handling ------------------- The eXdbm functions return 0 on error and 1 on success. NAME eXdbmGetLastError() SYNOPSIS int eXdbmGetLastError(void); DESCRIPTION Get the last error code RETURN VALUE An eXode error code NAME eXdbmGetErrorString() SYNOPSIS const char * eXdbmGetErrorString(int errorcode); DESCRIPTION Get an error message corresponding to the error parameter RETURN VALUE A string containing the error message NAME eXdbmLastLineParsed(); SYNOPSIS int eXdbmLastLineParsed(void); DESCRIPTION This function returns the number of the last line parsed while reading the last database file. This is usefull to locate a parsing error. EXAMPLE The following code prints a detailed error message #include #include int ret; DB_ID dbid; int error; char *message; int last_line; ... ret = eXdbmOpenDatabse("mydb.cfg", &dbid); if(ret == -1) { printf("\nAn error has occured\n); /* get the error number */ error = eXdbmGetLastError(); /* get the standard error message */ message = eXdbmGetErrorString(error); /* get the last line parsed */ last_line = eXdbmLastLineParsed(); /* print a detailed error message */ printf("Error number %d : %s\n", error, message); printf("Last line parsed = %d\n", last_line); } ... Example of output : An error has occured eXdbmOpenDatabase : Cannot parse variable value Last line parsed = 25 RETURN VALUE -1 on error >0 on success 4.3. opening & closing a databases ---------------------------------- NAME eXdbmInit() SYNOPSIS int eXdbmInit(void); DESCRIPTION Initialize the database manager. This function must be call before any other eXdbm function call. RETURN VALUE -1 on error >0 on success NAME eXdbmOpenDatabase() SYNOPSIS int eXdbmOpenDatabase(char *filename, DBID *dbid); DESCRIPTION Open the filename database file. dbid is a pointer to an integer : an unique identifier for the opened database RETURN VALUE -1 on error >0 on success NAME eXdbmNewDatabase() SYNOPSIS int eXdbmOpenDatabase(char *filename, DB_ID *dbid); DESCRIPTION Create a new database which will use the file filename. dbid is a pointer to an integer : an unique identifier for the opened database RETURN VALUE -1 on error >0 on success NAME eXdbmUpdateDatabase() SYNOPSIS int eXdbmUpdateDatabase(DB_ID dbid); DESCRIPTION Save the database identified by dbid. This assure the actual database contents is the same in memory and on disk. RETURN VALUE -1 on error >0 on success NAME eXdbmBackupDatabase() SYNOPSIS int eXdbmBackupDatabase(DB_ID dbid, char *filename); DESCRIPTION Make a backup copy of the database identified by dbid in the file filename. This file must be writeable by the current user. RETURN VALUE -1 on error >0 on success NAME eXdbmCloseDatabase() SYNOPSIS int eXdbmCloseDatabase(DBID dbid, int update) DESCRIPTION The function you have to call to close a database. If udate = 1 (defined as TRUE in eXdbm.h), the database file will be updated, see eXdbmUpdateDatabase(). RETURN VALUE -1 on error >0 on success 4.4. Generic entry management ----------------------------- 4.4.1. get the type of an entry ------------------------------- NAME eXdbmGetEntryType() SYNOPSIS int eXdbmGetEntryType(DB_ID dbid, DB_LIST list, char *entryname); DESCRIPTION This function returns the type of the entry identified by : dbid : the database identifier list : the parent's list of the entry (NULL for level 0 entry) entryname : the name of the entry RETURN VALUE -1 (DBM_ENTRY_NOT_FOUND) on error On succes, the type of the entry : - DBM_ENTRY_LIST : a list entry - DBM_ENTRY_VAR_INT : an integer variable - DBM_ENTRY_VAR_BOOL : a boolean variable - DBM_ENTRY_VAR_REAL : a real number variable - DBM_ENTRY_VAR_STRING : a string variable - DBM_ENTRY_VAR_ID : an identifier variable 4.4.2. Comments management -------------------------- NAME eXdbmGetEntryComment() SYNOPSIS char * eXdbmGetEntryComment(DB_ID dbid, DB_LIST list, char *entryname); DESCRIPTION Returns the associated comment of an entry if it exists, or NULL. The entry is specified by : dbid : the database identifier list : the parent's list of the entry (NULL for level 0 entry) entryname : the name of the entry RETURN VALUE A pointer to the comment string or NULL NAME eXdbmChangeEntryComment() SYNOPSIS int eXdbmChangeEntryComment(DB_ID dbid, DB_LIST list, char *entryname, char *comment); DESCRIPTION Changes the associated comment of an entry. The entry is specified by : dbid : the database identifier list : the parent's list of the entry (NULL for level 0 entry) entryname : the name of the entry comment is the new comment string NOTE The function allocates the memory needed for the comment and copy the string you provide. You must ensure the specifier string starts with a # character. If this is not the case, eXdbm won't be able to parse the database file containing a comment that is not starting with #. RETURN VALUE -1 on error >0 on success 4.4.3 delete an entry --------------------- NAME eXdbmDeleteEntry() SYNOPSIS int eXdbmDeleteEntry(DB_ID dbid, DB_LIST list, char *entryname); DESCRIPTION This function deletes the entry specified by dbid : the database identifier list : the parent's list of the entry (NULL for level 0 entry) entryname : the name of the entry if the entry is a list, all the entries is contains are also destroyed, recursively. RETURN VALUE -1 on error >0 on sucess 4.5. list management -------------------- 4.5.1. get a list identifier ---------------------------- NAME eXdbmGetList() SYNOPSIS DB_LIST eXdbmGetList(DB_ID dbid, DB_LIST list, char *listname); DESCRIPTION get the identifier of the sublist of name listname in list. if list is NULL, sublistname is the name of a first level list RETURN VALUE A pointer to the found DB_LIST structure. If the value is NULL, the Sublist doesn't exist (an error is raised, the eXdbmGetError returns an error). NAME eXdbmSearchList() SYNOPSIS DB_LIST eXdbmSearchList(DB_ID dbid, DB_LIST list, char *listname); DESCRIPTION search recursively the list of name listname in list and all of its sublists. If list is NULL, search in all the lists of the database. NOTE The behaviour of this function is hard to predict if more than one list is of name listname. RETURN VALUE A pointer to the found LIST structure. If the value is NULL, the Sublist doesn't exist (an error is raised, the eXdbmGetError returns an error). NAME eXdbmPathList() SYNOPSIS DB_LIST eXdbmPathList(DB_ID dbid, char *path); DESCRIPTION This function returns the list referenced by its full path name in the database. A pathname is a serie of list names separated by colons. EXAMPLE list:sublist:susublist refers to the list of name subsublist defined in sublist which is defined in list. NOTE The root list (referenced as NULL) is implicit RETURN VALUE A pointer to the found LIST structure. If the value is NULL, the list doesn't exist (an error is raised, the eXdbmGetError returns an error). 4.5.2. create an empty list --------------------------- NAME eXdbmCreateList() SYNOPSIS int eXdbmCreateList(DBID dbid, LIST *list, char *entryname, char *comment); DESCRIPTION Create an empty list of name entryname list is the parent list (NULL is the new list is global) comment is a string to comment the new list RETURN VALUE -1 on error >0 on success 4.6. Variable management ------------------------ In the following functions : must be replaced by the type of the variable : Int, Real, Bool, Ident or String. is the corresponding C datatype. Int int Real double Bool int (0 = FALSE, 1 = TRUE) Ident char * String char * 4.6.1. read a value ------------------- NAME eXdbmGetVar() SYNOPSIS int eXdbmGetVar (DBID dbid, DB_LIST list, char *entryname, * value); DESCRIPTION Read the value of a variable. dbid is the database ID list is the parent's list entry is the name of the variable. V Value is a pointer to a variable of the desired C type. EXAMPLE ... int ival; double rval; char *sval; int bval; char *idval; int ret; ... ret = eXdbmGetVarInt(dbid, parent, "intvar", &ival); ret = eXdbmGetVarBool(dbid, parent, "boolvar", &bval); ret = eXdbmGetVarReal(dbid, parent, "realvar", &rval); ret = eXdbmGetVarString(dbid, parent, "stringvar", &sval); ret = eXdbmGetVarIdent(dbid, parent, "identvar", &idval); ... NOTE If is String or Ident, the value pointer references a copy of the value coded by the variable. You must free() this memory when you don't need it anymore. RETURN VALUE -1 on error >0 on success 4.6.2. create a variable ------------------------ NAME eXdbmCreateVar() SYNOPSIS int eXdbmCreateVar(DBID dbid, DB_LIST list, char *entryname, char *comment, value); DESCRIPTION Add a variable to the database. dbid is the database ID list is the parent list of the entry (NULL is root for parent) entryname is the name of the new variable comment is the comment string associated to the variable (or NULL) value is the value of the variable. NOTE The function allocates the memory needed for the comment and copy the string you provide. RETURN VALUE -1 on error >0 on success 4.6.3. Modify a variable ------------------------ NAME eXdbmChangeVar () SYNOPSIS int eXdbmChangeVar(DBID dbid, DB_LIST list, char *entryname, newvalue); DESCRIPTION Change the value of a variable in the database. dbid is the database ID list is the parent list of the entry (NULL is root for parent) entryname is the name of the variable to be modified newvalue is the new value of the variable. NOTE Use eXdbmChangeEntryComment() to change the comment associated to a variable. RETURN VALUE -1 on error >0 on success 5. Using the library -------------------- 5.1. Installation instructions ------------------------------ First, get the file : eXdbm-status-version.tar.gz where status is : alpha, beta or empty (final) version is the version number (1.0b1 is the last version) Then uncompress the file : gzip -d eXdbm-status-version.tar.gz tar xvf eXdbm-status-version.tar Now, cd to eXdbm-status-version/ Then type : make and, as root : make install The default installation directories are : /usr/local/include : header files /usr/local/lib : library /usr/local/doc/eXdbm : documentation You can change these defaults by modifying the LIBDIR, INCDIR and DOCDIR make variable in Makefile.orig 5.2. Linking programs with libeXdbm.a ------------------------------------- This is the command line you have to use in order to link your C programs with the eXdbm library : cc myprogram.c -I/usr/local/include -L/usr/local/lib -leXdbm -lm NOTE : Don't forget the -lm statement, eXdbm uses a few math functions. 5.3. Sample programs -------------------- The following programs demonstrates the use of the eXdbm library : - test1 (test1.c) Basic open/update/close functions - test2 (test2.c) Backup function test - test3 (test3.c) A console oriented small database manager that uses every functions provided in the eXdbm library. gpsim-0.27.0/eXdbm/INSTALL0000644000076400007640000000000010416272727011736 00000000000000gpsim-0.27.0/eXdbm/eXdbm.txt0000644000076400007640000004037110416272727012524 00000000000000 Editor: Fred Pesch, pech@club-internet.fr Copyright: eXode Developers Team Status of this document ----------------------- This is an eXode documentation for review by eXode members and other interested parties. It is a released document but may be updated, replaced or obsoleted by other documents in future relases. Abstract -------- This document explains the eXdbm (eXode Database Manager) file format. This is the configuration file format of the eXode clients (esp. the core tools). The provided API is also explained here. Table of contents ----------------- 1. Recent Changes 2. Introduction 3. eXdbm file format 3.1. general structure 3.2. special chararcters 3.3. comments 3.4. datatypes 3.5. variables 3.6. lists 3.7. keywords 4. Proposed API 4.1. new types 4.2. error handling 4.3. opening & closing a database 4.4. generic entry management 4.5. list management 4.6. variable management 5. Using the library 5.1. Installation 5.2. Linking programs with libeXdbm 5.3. Sample programs 1. Recent changes ----------------- Dec-27-97: - version 1.0beta1 to be released - removed keyword concept (too eXode specific) Dec-10-97: - new keyword specification. - few changes in the API - no more disk media - new error code (-1) Oct-04-97: - First draft translated and modified, renamed eXdbm July-xx-97: - First draft (was eXhcl) 2. Introduction --------------- The X Resource manager is a normal choice for Motif based applications configuration but it lacks of high level data structures like lists or trees. Derived from the fof's configuration file format, eXdbm is an ASCII-based database format. eXdbm will be used to manage the configuration files of the eXode clients. The resource files will also be generated by eXconfig from the eXdbm files. The proposed API for the eXdbm management follows the description of the format. The library uses a tree of hash tables structures stored in memory, favouring speed upon memory consumption. This is not a general purpose database library, its efficiency is based on the fact that the databases managed contain less than a few thousand entries. Note that eXdbm is a general purpose configuration library, it can be used in many other applications without relations to the eXode project. 3. eXdbm file format -------------------- 3.1. general structure ---------------------- The eXdbm files are standard text files. Each line of text is a definition (the end of line char is a delimiter). The possible definitions are : - comments - variable - list header - list footer An empty line doesn't contain any definition and is simply ignored. 3.2. special characters ----------------------- The following characters are reserved : - # : starts a comment - " : string definition delimiter - = : variable definition - { : starts a list definition - } : ends a list definition Exceptions : - in a string definition, the only reserved char are %, " and \ - in a comment, there is no reserved char 3.3. comments ------------- A comment begins with the reserved char # and continues until the next end of line character (this is a sh-like behaviour). Each comment is associated to the first entry definition that follows. Ex.: # I am a comment Variable = 12 3.4. datatypes -------------- The basic datatypes are : - Integer : [+-][0-9]+ - Real numbers : [+-][0-9]+.[0-9]+[[eE][+-][0-9]+] - Booleans : TRUE | FALSE - Strings : "string contents" - Identifiers : my_identifier (string without space) 3.5. variables -------------- You can declare a variable using the syntax : VarName = Value Where VarName is a string (no spaces or special chars) and Value is of type int, real, bool or string. note : the type of the variable is implicit Ex.: DefaultBackgroundColor = "Red" RefreshInterval = 1000 AlwaysConfirm = TRUE # according to eXdbm, pi is a variable ! PI = 3.14159265 3.6. lists ---------- A list definition starts on a new line by the name of the list followed by a {. Each element of a list is a variable definition or a sublist. A list is ended with a } on a new line. note : The variable declared outside a list is called a global variable. Ex.: FORMAT_LIST { TAR_GZ { Description = "gzipped tar archive" Magic = "\\032\\341" Pattern = "*.tar.gz:*.tgz:*_tar.gz" ViewCommand = "%DEFAULT" EditCommand = "eXtar" } IMAGE { Description = "graphic image" Magic = "%NONE" Pattern = "*.gif":"*.jpg":"*.tga" ViewCommand = "%DEFAULT" EditCommand = "gimp" } IMAGE_GIF { Description = "gif image" Magic = "\\0123\\0321" Pattern = "*.gif" ViewCommand = "%DEFAULT" EditCommand = "gimp" } } 4. Provided API --------------- 4.1. new types -------------- DB_ID -> a database identifier DB_LIST -> a list variable 4.2. error handling ------------------- The eXdbm functions return 0 on error and 1 on success. NAME eXdbmGetLastError() SYNOPSIS int eXdbmGetLastError(void); DESCRIPTION Get the last error code RETURN VALUE An eXode error code NAME eXdbmGetErrorString() SYNOPSIS const char * eXdbmGetErrorString(int errorcode); DESCRIPTION Get an error message corresponding to the error parameter RETURN VALUE A string containing the error message NAME eXdbmLastLineParsed(); SYNOPSIS int eXdbmLastLineParsed(void); DESCRIPTION This function returns the number of the last line parsed while reading the last database file. This is usefull to locate a parsing error. EXAMPLE The following code prints a detailed error message #include #include int ret; DB_ID dbid; int error; char *message; int last_line; ... ret = eXdbmOpenDatabse("mydb.cfg", &dbid); if(ret == -1) { printf("\nAn error has occured\n); /* get the error number */ error = eXdbmGetLastError(); /* get the standard error message */ message = eXdbmGetErrorString(error); /* get the last line parsed */ last_line = eXdbmLastLineParsed(); /* print a detailed error message */ printf("Error number %d : %s\n", error, message); printf("Last line parsed = %d\n", last_line); } ... Example of output : An error has occured eXdbmOpenDatabase : Cannot parse variable value Last line parsed = 25 RETURN VALUE -1 on error >0 on success 4.3. opening & closing a databases ---------------------------------- NAME eXdbmInit() SYNOPSIS int eXdbmInit(void); DESCRIPTION Initialize the database manager. This function must be call before any other eXdbm function call. RETURN VALUE -1 on error >0 on success NAME eXdbmOpenDatabase() SYNOPSIS int eXdbmOpenDatabase(char *filename, DBID *dbid); DESCRIPTION Open the filename database file. dbid is a pointer to an integer : an unique identifier for the opened database RETURN VALUE -1 on error >0 on success NAME eXdbmNewDatabase() SYNOPSIS int eXdbmOpenDatabase(char *filename, DB_ID *dbid); DESCRIPTION Create a new database which will use the file filename. dbid is a pointer to an integer : an unique identifier for the opened database RETURN VALUE -1 on error >0 on success NAME eXdbmUpdateDatabase() SYNOPSIS int eXdbmUpdateDatabase(DB_ID dbid); DESCRIPTION Save the database identified by dbid. This assure the actual database contents is the same in memory and on disk. RETURN VALUE -1 on error >0 on success NAME eXdbmBackupDatabase() SYNOPSIS int eXdbmBackupDatabase(DB_ID dbid, char *filename); DESCRIPTION Make a backup copy of the database identified by dbid in the file filename. This file must be writeable by the current user. RETURN VALUE -1 on error >0 on success NAME eXdbmCloseDatabase() SYNOPSIS int eXdbmCloseDatabase(DBID dbid, int update) DESCRIPTION The function you have to call to close a database. If udate = 1 (defined as TRUE in eXdbm.h), the database file will be updated, see eXdbmUpdateDatabase(). RETURN VALUE -1 on error >0 on success 4.4. Generic entry management ----------------------------- 4.4.1. get the type of an entry ------------------------------- NAME eXdbmGetEntryType() SYNOPSIS int eXdbmGetEntryType(DB_ID dbid, DB_LIST list, char *entryname); DESCRIPTION This function returns the type of the entry identified by : dbid : the database identifier list : the parent's list of the entry (NULL for level 0 entry) entryname : the name of the entry RETURN VALUE -1 (DBM_ENTRY_NOT_FOUND) on error On succes, the type of the entry : - DBM_ENTRY_LIST : a list entry - DBM_ENTRY_VAR_INT : an integer variable - DBM_ENTRY_VAR_BOOL : a boolean variable - DBM_ENTRY_VAR_REAL : a real number variable - DBM_ENTRY_VAR_STRING : a string variable - DBM_ENTRY_VAR_ID : an identifier variable 4.4.2. Comments management -------------------------- NAME eXdbmGetEntryComment() SYNOPSIS char * eXdbmGetEntryComment(DB_ID dbid, DB_LIST list, char *entryname); DESCRIPTION Returns the associated comment of an entry if it exists, or NULL. The entry is specified by : dbid : the database identifier list : the parent's list of the entry (NULL for level 0 entry) entryname : the name of the entry RETURN VALUE A pointer to the comment string or NULL NAME eXdbmChangeEntryComment() SYNOPSIS int eXdbmChangeEntryComment(DB_ID dbid, DB_LIST list, char *entryname, char *comment); DESCRIPTION Changes the associated comment of an entry. The entry is specified by : dbid : the database identifier list : the parent's list of the entry (NULL for level 0 entry) entryname : the name of the entry comment is the new comment string NOTE The function allocates the memory needed for the comment and copy the string you provide. You must ensure the specifier string starts with a # character. If this is not the case, eXdbm won't be able to parse the database file containing a comment that is not starting with #. RETURN VALUE -1 on error >0 on success 4.4.3 delete an entry --------------------- NAME eXdbmDeleteEntry() SYNOPSIS int eXdbmDeleteEntry(DB_ID dbid, DB_LIST list, char *entryname); DESCRIPTION This function deletes the entry specified by dbid : the database identifier list : the parent's list of the entry (NULL for level 0 entry) entryname : the name of the entry if the entry is a list, all the entries is contains are also destroyed, recursively. RETURN VALUE -1 on error >0 on sucess 4.5. list management -------------------- 4.5.1. get a list identifier ---------------------------- NAME eXdbmGetList() SYNOPSIS DB_LIST eXdbmGetList(DB_ID dbid, DB_LIST list, char *listname); DESCRIPTION get the identifier of the sublist of name listname in list. if list is NULL, sublistname is the name of a first level list RETURN VALUE A pointer to the found DB_LIST structure. If the value is NULL, the Sublist doesn't exist (an error is raised, the eXdbmGetError returns an error). NAME eXdbmSearchList() SYNOPSIS DB_LIST eXdbmSearchList(DB_ID dbid, DB_LIST list, char *listname); DESCRIPTION search recursively the list of name listname in list and all of its sublists. If list is NULL, search in all the lists of the database. NOTE The behaviour of this function is hard to predict if more than one list is of name listname. RETURN VALUE A pointer to the found LIST structure. If the value is NULL, the Sublist doesn't exist (an error is raised, the eXdbmGetError returns an error). NAME eXdbmPathList() SYNOPSIS DB_LIST eXdbmPathList(DB_ID dbid, char *path); DESCRIPTION This function returns the list referenced by its full path name in the database. A pathname is a serie of list names separated by colons. EXAMPLE list:sublist:susublist refers to the list of name subsublist defined in sublist which is defined in list. NOTE The root list (referenced as NULL) is implicit RETURN VALUE A pointer to the found LIST structure. If the value is NULL, the list doesn't exist (an error is raised, the eXdbmGetError returns an error). 4.5.2. create an empty list --------------------------- NAME eXdbmCreateList() SYNOPSIS int eXdbmCreateList(DBID dbid, LIST *list, char *entryname, char *comment); DESCRIPTION Create an empty list of name entryname list is the parent list (NULL is the new list is global) comment is a string to comment the new list RETURN VALUE -1 on error >0 on success 4.6. Variable management ------------------------ In the following functions : must be replaced by the type of the variable : Int, Real, Bool, Ident or String. is the corresponding C datatype. Int int Real double Bool int (0 = FALSE, 1 = TRUE) Ident char * String char * 4.6.1. read a value ------------------- NAME eXdbmGetVar() SYNOPSIS int eXdbmGetVar (DBID dbid, DB_LIST list, char *entryname, * value); DESCRIPTION Read the value of a variable. dbid is the database ID list is the parent's list entry is the name of the variable. V Value is a pointer to a variable of the desired C type. EXAMPLE ... int ival; double rval; char *sval; int bval; char *idval; int ret; ... ret = eXdbmGetVarInt(dbid, parent, "intvar", &ival); ret = eXdbmGetVarBool(dbid, parent, "boolvar", &bval); ret = eXdbmGetVarReal(dbid, parent, "realvar", &rval); ret = eXdbmGetVarString(dbid, parent, "stringvar", &sval); ret = eXdbmGetVarIdent(dbid, parent, "identvar", &idval); ... NOTE If is String or Ident, the value pointer references a copy of the value coded by the variable. You must free() this memory when you don't need it anymore. RETURN VALUE -1 on error >0 on success 4.6.2. create a variable ------------------------ NAME eXdbmCreateVar() SYNOPSIS int eXdbmCreateVar(DBID dbid, DB_LIST list, char *entryname, char *comment, value); DESCRIPTION Add a variable to the database. dbid is the database ID list is the parent list of the entry (NULL is root for parent) entryname is the name of the new variable comment is the comment string associated to the variable (or NULL) value is the value of the variable. NOTE The function allocates the memory needed for the comment and copy the string you provide. RETURN VALUE -1 on error >0 on success 4.6.3. Modify a variable ------------------------ NAME eXdbmChangeVar () SYNOPSIS int eXdbmChangeVar(DBID dbid, DB_LIST list, char *entryname, newvalue); DESCRIPTION Change the value of a variable in the database. dbid is the database ID list is the parent list of the entry (NULL is root for parent) entryname is the name of the variable to be modified newvalue is the new value of the variable. NOTE Use eXdbmChangeEntryComment() to change the comment associated to a variable. RETURN VALUE -1 on error >0 on success 5. Using the library -------------------- 5.1. Installation instructions ------------------------------ First, get the file : eXdbm-status-version.tar.gz where status is : alpha, beta or empty (final) version is the version number (1.0b1 is the last version) Then uncompress the file : gzip -d eXdbm-status-version.tar.gz tar xvf eXdbm-status-version.tar Now, cd to eXdbm-status-version/ Then type : make and, as root : make install The default installation directories are : /usr/local/include : header files /usr/local/lib : library /usr/local/doc/eXdbm : documentation You can change these defaults by modifying the LIBDIR, INCDIR and DOCDIR make variable in Makefile.orig 5.2. Linking programs with libeXdbm.a ------------------------------------- This is the command line you have to use in order to link your C programs with the eXdbm library : cc myprogram.c -I/usr/local/include -L/usr/local/lib -leXdbm -lm NOTE : Don't forget the -lm statement, eXdbm uses a few math functions. 5.3. Sample programs -------------------- The following programs demonstrates the use of the eXdbm library : - test1 (test1.c) Basic open/update/close functions - test2 (test2.c) Backup function test - test3 (test3.c) A console oriented small database manager that uses every functions provided in the eXdbm library. gpsim-0.27.0/eXdbm/test3.c0000644000076400007640000004756710416272727012150 00000000000000 /* $Id: test3.c 230 2002-04-15 22:03:02Z linas $ */ /***** * test3.c : eXdbm database tool * * This file Version $Revision: 230 $ * * Last modification: $Date: 2002-04-16 08:03:02 +1000 (Tue, 16 Apr 2002) $ * By: $Author: linas $ * Current State: $State$ * * Copyright (C) 1997 Fred Pesch * All Rights Reserved * * This file is part of the eXdbm Library. * * This 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. * * This 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 this library; if not, write to the Free * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * *****/ #ifndef lint static char vcid[] = "$Id: test3.c 230 2002-04-15 22:03:02Z linas $"; #endif /* lint */ #include #include #include #include #include "eXdbm.h" #define MAX_DB 16 int DbCount=0; DB_ID Databases[MAX_DB]; void ErrorMessage(void) { printf("\n*******************\n"); printf("Error received : \n"); printf(" ===> %s\n", eXdbmGetErrorString(eXdbmGetLastError())); printf("*******************\n"); } void HitKey(void) { char toto; printf("\nHit to continue"); scanf("%c",&toto); printf("\n"); } void OpenDatabase(void) { char fname[256]; int ret; int dbid; printf("\n\n"); printf("Opening a new database"); printf("----------------------\n"); if(DbCount>MAX_DB) { printf("Error ==> already %d databases in memory\n", DbCount); HitKey(); return; } printf("\nDatabase filename : "); scanf("%s", fname); ret = eXdbmOpenDatabase(fname, &dbid); if(ret==-1) { ErrorMessage(); HitKey(); return; } Databases[DbCount++] = dbid; printf("\nDatabase opened with identifier : %d\n\n", dbid); HitKey(); } void NewDatabase(void) { char fname[256]; int ret; int dbid; printf("\n\n"); printf("Creating a new database"); printf("-----------------------\n"); if(DbCount>MAX_DB) { printf("Error ==> already %d databases in memory\n", DbCount); HitKey(); return; } printf("\nDatabase filename : "); scanf("%s", fname); ret = eXdbmNewDatabase(fname, &dbid); if(ret==-1) { ErrorMessage(); HitKey(); return; } Databases[DbCount++] = dbid; printf("\nDatabase created with identifier : %d\n", dbid); HitKey(); } void PrintAvailableDatabases(void) { int i; printf("\nAvailable databases: \n\n"); if(DbCount==0) { printf("No available database\n"); HitKey(); return; } printf("Identifier\t\tFile name\n"); for(i=0;i<80;i++) printf("-"); for(i=0; i no database in memory\n"); HitKey(); return; } PrintAvailableDatabases(); printf("\n Choose a database ==> "); scanf("%d", &dbid); found = -1; for(i=0;i Wrong database ID\n"); HitKey(); return; } ret = eXdbmCloseDatabase(dbid, 0); if(ret==-1) { ErrorMessage(); return; } for(i=found; i < DbCount-1 ; i++) Databases[i] = Databases[i+1]; DbCount--; printf("\nDatabase %d removed\n", dbid); HitKey(); } void UpdateDatabase(void) { DB_ID dbid; int i; int found; int ret; printf("\n\n"); printf("Update a database file"); printf("----------------------"); if(DbCount==0) { printf("\n\nError ==> no database in memory\n"); HitKey(); return; } PrintAvailableDatabases(); printf("\n Choose a database ==> "); scanf("%d", &dbid); found = -1; for(i=0;i Wrong database ID\n"); HitKey(); return; } ret = eXdbmUpdateDatabase(dbid); if(ret==-1) { ErrorMessage(); return; } printf("\nDatabase %d updated\n", dbid); HitKey(); } void BackupDatabase(void) { DB_ID dbid; int i; int found; int ret; char fname[256]; printf("\n\n"); printf("Backup a database"); printf("-----------------"); if(DbCount==0) { printf("\n\nError ==> no database in memory\n"); HitKey(); return; } PrintAvailableDatabases(); printf("\n Choose a database ==> "); scanf("%d", &dbid); found = -1; for(i=0;i Wrong database ID\n"); HitKey(); return; } printf("\nChoose a backup file name ==> "); scanf("%s", fname); ret = eXdbmBackupDatabase(dbid, fname); if(ret==-1) { ErrorMessage(); HitKey(); return; } printf("\nDatabase %d backup successfull\n", dbid); HitKey(); } void ReloadDatabase(void) { DB_ID dbid; int i; int found; int ret; printf("\n\n"); printf("Reload a database file"); printf("----------------------"); if(DbCount==0) { printf("\n\nError ==> no database in memory\n"); HitKey(); return; } PrintAvailableDatabases(); printf("\n Choose a database ==> "); scanf("%d", &dbid); found = -1; for(i=0;i Wrong database ID\n"); HitKey(); return; } ret = eXdbmReloadDatabase(&Databases[found],0); if(ret==-1) { ErrorMessage(); return; } printf("\nDatabase %d realoaded\n", dbid); HitKey(); } void PrintDatabase(void) { DB_ID dbid; int i; int found; int ret; printf("\n\n"); printf("Printing a database contents"); printf("----------------------------"); if(DbCount==0) { printf("\n\nError ==> no database in memory\n"); HitKey(); return; } PrintAvailableDatabases(); printf("\n Choose a database ==> "); scanf("%d", &dbid); found = -1; for(i=0;i Wrong database ID\n"); HitKey(); return; } ret = eXdbmBackupDatabase(dbid, "test.database.tmp"); if(ret==-1) { ErrorMessage(); HitKey(); return; } system("less test.database.tmp"); printf("\n====================\n"); system("rm test.database.tmp"); } DB_ID ChooseDatabase(void) { DB_ID dbid; int i; int found; if(DbCount==0) { printf("\n\nError ==> no database in memory\n"); HitKey(); return(-1); } PrintAvailableDatabases(); printf("\n Choose a database ==> "); scanf("%d", &dbid); found = -1; for(i=0;i Wrong database ID\n"); HitKey(); return(-1); } return(dbid); } DB_LIST ChooseParentList(DB_ID dbid) { int choice = 0; char cbuf; char name[256]; char path[16384]; char searchpath[16384]; DB_LIST current = NULL; DB_LIST newlist; strcpy(path, "Root:"); while(1) { while (choice<1 || choice>5) { printf("\n"); printf("Choose the parent's list of the entry : \n\n"); printf("\nCurrent list = %s\n\n", path); printf("1) Root list\n"); printf("2) Get sublist\n"); printf("3) Search sublist recursively\n"); printf("4) Enter full path of list\n"); printf("\n5) Use the current list\n"); printf("\n Your choice ==> "); choice=0; scanf("%d", &choice); if(choice==0) scanf("%c", &cbuf); } switch(choice) { case 1 : strcpy(path,"Root:"); current = NULL; break; case 2: printf("\nEnter sublist name ==> "); scanf("%s", name); newlist = eXdbmGetList(dbid, current, name); if(newlist==NULL) { ErrorMessage(); } else { current = newlist; strcat(path,name); strcat(path,":"); } break; case 3: printf("\nEnter sublist name ==> "); scanf("%s", name); newlist = eXdbmSearchList(dbid, current, name); if(newlist==NULL) { ErrorMessage(); } else { current = newlist; strcat(path, "...:"); strcat(path, name); strcat(path,":"); } break; case 4: printf("\nEnter list path (except Root:) ==> "); scanf("%s", searchpath); newlist = eXdbmPathList(dbid, searchpath); if(newlist==NULL) { ErrorMessage(); } else { current = newlist; strcpy(path, "Root:"); strcat(path, searchpath); strcat(path, ":"); } break; case 5: return(current); } choice=0; } return(NULL); } void PrintValues(void) { int dbid; DB_LIST parent; char name[256]; int etype; char *comment; DB_LIST list; int ival; double rval; char *sval; printf("\n\n"); printf("Values of an entry\n"); printf("------------------\n"); dbid = ChooseDatabase(); if(dbid==-1) return; parent = ChooseParentList(dbid); printf("\nChoose entry name ==> "); scanf("%s", name); etype = eXdbmGetEntryType(dbid, parent, name); if(etype==-1) { ErrorMessage(); HitKey(); return; } printf("\nEntry values :\n"); printf( "------------\n\n"); printf("[NAME] = %s\n\n", name); comment = eXdbmGetEntryComment(dbid, parent, name); if(comment!=NULL) printf("[COMMENT] = %s\n\n", comment); switch(etype) { case DBM_ENTRY_LIST : printf("[TYPE] = List\n\n"); list = eXdbmGetList(dbid, parent, name); printf("Info : This list contains %d entries\n\n", list->current_order); break; case DBM_ENTRY_VAR_INT : printf("[TYPE] = integer variable\n\n"); eXdbmGetVarInt(dbid, parent, name, &ival); printf("[VALUE] = %d\n\n", ival); break; case DBM_ENTRY_VAR_REAL : printf("[TYPE] = real number variable\n\n"); eXdbmGetVarReal(dbid, parent, name, &rval); printf("[VALUE] = %f\n\n", rval); break; case DBM_ENTRY_VAR_BOOL : printf("[TYPE] = boolean variable\n\n"); eXdbmGetVarBool(dbid, parent, name, &ival); if(ival==0) printf("[VALUE] = FALSE\n\n"); else printf("[VALUE] = TRUE\n\n"); break; case DBM_ENTRY_VAR_STRING : printf("[TYPE] = string variable\n\n"); eXdbmGetVarString(dbid, parent, name, &sval); printf("[VALUE] = %s\n\n", sval); free(sval); break; case DBM_ENTRY_VAR_IDENT : printf("[TYPE] = identifier variable\n\n"); eXdbmGetVarIdent(dbid, parent, name, &sval); printf("[VALUE] = %s\n\n", sval); free(sval); break; } HitKey(); } void AddEntry(void) { int dbid; DB_LIST parent; char name[256]; int etype; char *comment; char comval[256]; int ival; double rval; char sval[256]; char choice[10]; int ret; printf("\n\n"); printf("Create an entry\n"); printf("---------------\n"); dbid = ChooseDatabase(); if(dbid==-1) return; parent = ChooseParentList(dbid); printf("\nChoose entry name ==> "); scanf("%s", name); etype = eXdbmGetEntryType(dbid, parent, name); if(etype!=-1) { printf("\nerror ==> entry already defined\n"); HitKey(); return; } printf("\nEntry values :\n"); printf( "------------\n\n"); printf("[NAME] = %s\n\n", name); printf("Do you want to specify a comment (y/n) ? "); scanf("%s", choice); comment = NULL; if(toupper(choice[0])=='Y') { printf("[COMMENT] = "); gets(comval); comment = comval; } etype = 0; while(etype<1 || etype > 6) { printf("\nChoose the type of the entry :\n\n"); printf("1 => integer\n"); printf("2 => real\n"); printf("3 => bool\n"); printf("4 => string\n"); printf("5 => idenfifier\n"); printf("6 => list\n"); printf("\n Your choice ==> "); etype=0; scanf("%d", &etype); if(etype==0) scanf("%s", choice); } etype--; switch(etype) { case DBM_ENTRY_LIST : printf("[TYPE] = List\n\n"); ret = eXdbmCreateList(dbid, parent, name, comment); if(ret==-1) { ErrorMessage(); HitKey(); return; } break; case DBM_ENTRY_VAR_INT : printf("[TYPE] = integer variable\n\n"); printf("[VALUE] = "); scanf("%d", &ival); ret = eXdbmCreateVarInt(dbid, parent, name, comment, ival); if(ret==-1) { ErrorMessage(); HitKey(); return; } break; case DBM_ENTRY_VAR_REAL : printf("[TYPE] = real number variable\n\n"); printf("[VALUE] = "); scanf("%lf", &rval); ret = eXdbmCreateVarReal(dbid, parent, name, comment, rval); if(ret==-1) { ErrorMessage(); HitKey(); return; } break; case DBM_ENTRY_VAR_BOOL : printf("[TYPE] = boolean variable\n\n"); printf("[VALUE] = "); scanf("%s", sval); if(strcmp(sval, "FALSE")==0) ret = eXdbmCreateVarBool(dbid, parent, name, comment, 0); else ret = eXdbmCreateVarBool(dbid, parent, name, comment, 1); if(ret==-1) { ErrorMessage(); HitKey(); return; } break; case DBM_ENTRY_VAR_STRING : printf("[TYPE] = string variable\n\n"); printf("[VALUE] = "); scanf("%s", sval); ret = eXdbmCreateVarString(dbid, parent, name, comment, sval); if(ret==-1) { ErrorMessage(); HitKey(); return; } break; case DBM_ENTRY_VAR_IDENT : printf("[TYPE] = identifier variable\n\n"); printf("[VALUE] = "); scanf("%s", sval); ret = eXdbmCreateVarIdent(dbid, parent, name, comment, sval); if(ret==-1) { ErrorMessage(); HitKey(); return; } break; } HitKey(); } void ChangeEntry(void) { int dbid; DB_LIST parent; char name[256]; int etype; char *comment; char comval[256]; int ival; double rval; char sval[256]; char choice[10]; int ret; printf("\n\n"); printf("Change an entry\n"); printf("---------------\n"); dbid = ChooseDatabase(); if(dbid==-1) return; parent = ChooseParentList(dbid); printf("\nChoose entry name ==> "); scanf("%s", name); etype = eXdbmGetEntryType(dbid, parent, name); if(etype==-1) { printf("\nerror ==> entry not defined\n"); HitKey(); return; } printf("\nEntry values :\n"); printf( "------------\n\n"); printf("[NAME] = %s\n\n", name); comment = eXdbmGetEntryComment(dbid, parent, name); if(comment!=NULL) printf("[COMMENT] = %s\n\n", comment); printf("Do you want to specify a new comment (y/n) ? "); scanf("%s", choice); comment = NULL; if(toupper(choice[0])=='Y') { printf("[COMMENT] = "); gets(comval); comment = comval; } if(comment!=NULL) eXdbmChangeEntryComment(dbid, parent, name, comment); switch(etype) { case DBM_ENTRY_LIST : printf("[TYPE] = List\n\n"); printf("Cannot change a list entry\n"); break; case DBM_ENTRY_VAR_INT : printf("[TYPE] = integer variable\n\n"); printf("[VALUE] = "); scanf("%d", &ival); ret = eXdbmChangeVarInt(dbid, parent, name, ival); if(ret==-1) { ErrorMessage(); HitKey(); return; } break; case DBM_ENTRY_VAR_REAL : printf("[TYPE] = real number variable\n\n"); printf("[VALUE] = "); scanf("%lf", &rval); ret = eXdbmChangeVarReal(dbid, parent, name, rval); if(ret==-1) { ErrorMessage(); HitKey(); return; } break; case DBM_ENTRY_VAR_BOOL : printf("[TYPE] = boolean variable\n\n"); printf("[VALUE] = "); scanf("%s", sval); if(strcmp(sval, "FALSE")==0) ret = eXdbmChangeVarBool(dbid, parent, name, 0); else ret = eXdbmChangeVarBool(dbid, parent, name, 1); if(ret==-1) { ErrorMessage(); HitKey(); return; } break; case DBM_ENTRY_VAR_STRING : printf("[TYPE] = string variable\n\n"); printf("[VALUE] = "); gets(sval); ret = eXdbmChangeVarString(dbid, parent, name, sval); if(ret==-1) { ErrorMessage(); HitKey(); return; } break; case DBM_ENTRY_VAR_IDENT : printf("[TYPE] = identifier variable\n\n"); printf("[VALUE] = "); gets(sval); ret = eXdbmChangeVarIdent(dbid, parent, name, sval); if(ret==-1) { ErrorMessage(); HitKey(); return; } break; } HitKey(); } void DeleteEntry(void) { int dbid; DB_LIST parent; char name[256]; int etype; char *comment; char choice[10]; int ret; printf("\n\n"); printf("Delete an entry\n"); printf("---------------\n"); dbid = ChooseDatabase(); if(dbid==-1) return; parent = ChooseParentList(dbid); printf("\nChoose entry name ==> "); scanf("%s", name); etype = eXdbmGetEntryType(dbid, parent, name); if(etype==-1) { printf("\nerror ==> entry not defined\n"); HitKey(); return; } printf("\nEntry values :\n"); printf( "------------\n\n"); printf("[NAME] = %s\n\n", name); if(comment!=NULL) eXdbmChangeEntryComment(dbid, parent, name, comment); switch(etype) { case DBM_ENTRY_LIST : printf("[TYPE] = List\n\n"); printf("Cannot change a list entry\n"); break; case DBM_ENTRY_VAR_INT : printf("[TYPE] = integer variable\n\n"); break; case DBM_ENTRY_VAR_REAL : printf("[TYPE] = real number variable\n\n"); break; case DBM_ENTRY_VAR_BOOL : printf("[TYPE] = boolean variable\n\n"); break; case DBM_ENTRY_VAR_STRING : printf("[TYPE] = string variable\n\n"); break; case DBM_ENTRY_VAR_IDENT : printf("[TYPE] = identifier variable\n\n"); break; } printf("Do you want to erase this variable (y/n) ? "); scanf("%s", choice); if(toupper(choice[0])=='Y') { ret = eXdbmDeleteEntry(dbid, parent, name); if(ret==-1) { ErrorMessage(); HitKey(); return; } printf("\nEntry deleted successfully\n"); } else printf("\nEntry not deleted\n"); HitKey(); } int MainMenu(void) { int choice=0; while(choice<1 || choice>12) { printf("\n\n"); printf("eXdbm test application main menu\n"); printf("================================\n"); printf("\n"); printf("%d database(s) in memory\n\n", DbCount); printf("Database management : \n"); printf("------------------- \n"); printf("1) Open a database\n"); printf("2) New database\n"); printf("3) Close a database\n"); printf("4) Update database\n"); printf("5) Backup database\n"); printf("6) Reload a database\n"); printf("7) Print database contents\n"); printf("Entry management :\n"); printf("----------------\n"); printf("8) Print entry values\n"); printf("9) Add an entry\n"); printf("10) Change entry values\n"); printf("11) Delete an entry\n"); printf("12) Quit\n"); printf("\n Make your choice ===> "); choice=0; scanf ("%d", &choice); if(choice==0) HitKey(); } return(choice); } int main(void) { int choice; int ret; ret = eXdbmInit(); if(ret==-1) { ErrorMessage(); return(EXIT_FAILURE); } choice=-1; while(choice!=12) { choice = MainMenu(); switch(choice) { case 1 : OpenDatabase(); break; case 2 : NewDatabase(); break; case 3 : CloseDatabase(); break; case 4 : UpdateDatabase(); break; case 5 : BackupDatabase(); break; case 6 : ReloadDatabase(); break; case 7 : PrintDatabase(); break; case 8 : PrintValues(); break; case 9 : AddEntry(); break; case 10: ChangeEntry(); break; case 11 : DeleteEntry(); break; } } printf("\n\nBye bye ...\n"); return(1); } gpsim-0.27.0/eXdbm/misc.h0000644000076400007640000000341410416272727012025 00000000000000 /* $Id: misc.h 230 2002-04-15 22:03:02Z linas $ */ /***** * misc.h : eXdbm misc. functions header * * This file Version $Revision: 230 $ * * Last modification: $Date: 2002-04-16 08:03:02 +1000 (Tue, 16 Apr 2002) $ * By: $Author: linas $ * Current State: $State$ * * Copyright (C) 1997 Fred Pesch * All Rights Reserved * * This file is part of the eXdbm Library. * * This 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. * * This 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 this library; if not, write to the Free * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * *****/ #ifndef MISC_H #define MISC_H #include #include "eXdbmTypes.h" void RaiseError(int errorcode); int DbmIsInit(void); int CheckDbIdent(DB_ID dbid); int WriteDatabase(FILE *f, TDbmListEntry *list, int level); int DestroyDatabase(TDbmListEntry *list); void PrintDatabase(TDbmListEntry *list, int level); TDbmListEntry * SearchListEntry(TDbmListEntry *list, char *namevar); TDbmListEntry * SearchListEntryRec(TDbmListEntry *list, char *entryname); TDbmListEntry * CreateListEntry(TDbmListEntry *list, char *entryname, char *comment, int entrytype); int DeleteListEntry(TDbmListEntry *list, char *entryname); int AddOrderEntry(TDbmListEntry *list, TDbmListEntry *element); #endif /* end of misc.h */ gpsim-0.27.0/eXdbm/misc.c0000664000076400007640000002457212163701216012021 00000000000000 /* $Id: misc.c 2216 2013-06-30 00:56:58Z roy_r_rankin $ */ /***** * misc.c : eXdbm misc. functions * * This file Version $Revision: 2216 $ * * Last modification: $Date: 2013-06-30 10:56:58 +1000 (Sun, 30 Jun 2013) $ * By: $Author: roy_r_rankin $ * Current State: $State$ * * Copyright (C) 1997 Fred Pesch * All Rights Reserved * * This file is part of the eXdbm Library. * * This 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. * * This 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 this library; if not, write to the Free * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * *****/ #include #include #include #include "eXdbmTypes.h" #include "eXdbmErrors.h" #include "hash.h" #include "misc.h" /* externals */ extern int DbmLastErrorCode; extern TDbmDbList *DbmDbList; /* error handling */ void RaiseError(int errorcode) { DbmLastErrorCode = errorcode; } /* is the database initialized ? */ int DbmIsInit(void) { if(DbmDbList==NULL) { RaiseError(DBM_INIT_NEEDED); return(-1); } return(1); } /* check a database identifier */ int CheckDbIdent(DB_ID dbid) { if(dbid>=DbmDbList->array_size) return(-1); if(DbmDbList->dblist[dbid].root == NULL) return(-1); return(1); } /* write a database to a file */ int WriteDatabase(FILE *f, TDbmListEntry *list, int level) { int i; int j; TDbmListEntry *node; int ret; for(i=0; i< list->current_order; i++) { node = list->order[i]; switch(node->entry_type) { case DBM_ENTRY_VAR_INT : if(node->comment!=NULL) { fprintf(f, "\n"); for(j=0;jcomment); } fprintf(f,"\n"); for(j=0;jkey, node->value.int_val); break; case DBM_ENTRY_VAR_REAL : if(node->comment!=NULL) { fprintf(f, "\n"); for(j=0;jcomment); } fprintf(f,"\n"); for(j=0;jkey, node->value.real_val); break; case DBM_ENTRY_VAR_STRING : if(node->comment!=NULL) { fprintf(f, "\n"); for(j=0;jcomment); } fprintf(f,"\n"); for(j=0;jkey, node->value.str_val); break; case DBM_ENTRY_VAR_IDENT : if(node->comment!=NULL) { fprintf(f, "\n"); for(j=0;jcomment); } fprintf(f,"\n"); for(j=0;jkey, node->value.str_val); break; case DBM_ENTRY_VAR_BOOL : if(node->comment!=NULL) { fprintf(f, "\n"); for(j=0;jcomment); } fprintf(f,"\n"); for(j=0;jvalue.int_val==1) fprintf(f,"%s = TRUE\n", node->key); else fprintf(f,"%s = FALSE\n", node->key); break; case DBM_ENTRY_LIST : if(node->comment!=NULL) { fprintf(f, "\n"); for(j=0;jcomment); } fprintf(f,"\n"); for(j=0;jkey); ret = WriteDatabase(f, node, level+1); if(ret==-1) { RaiseError(DBM_UPDATE_WRITE_ERROR); return(-1); } fprintf(f,"\n"); for(j=0;jcurrent_order; i++) { node = list->order[i]; switch(node->entry_type) { case DBM_ENTRY_VAR_INT : if(node->comment!=NULL) free(node->comment); free(node->key); break; case DBM_ENTRY_VAR_REAL : if(node->comment!=NULL) free(node->comment); free(node->key); break; case DBM_ENTRY_VAR_STRING : if(node->comment!=NULL) free(node->comment); free(node->key); free(node->value.str_val); break; case DBM_ENTRY_VAR_IDENT : if(node->comment!=NULL) free(node->comment); free(node->key); free(node->value.str_val); break; case DBM_ENTRY_VAR_BOOL : if(node->comment!=NULL) free(node->comment); free(node->key); break; case DBM_ENTRY_LIST : if(node->comment!=NULL) free(node->comment); free(node->key); ret = DestroyDatabase(node); if(ret==-1) { RaiseError(DBM_DESTROY); return(-1); } free(node->child); free(node->order); break; default : RaiseError(DBM_DESTROY); return(-1); } } return(0); } /* search an entry in a list */ TDbmListEntry * SearchListEntry(TDbmListEntry *list, char *entryname) { int hash_value; TDbmListEntry *node; if(list==NULL || list->child==NULL || entryname==NULL) return(NULL); hash_value = HashValueGenerator(entryname); node = list->child[hash_value]; while(node!=NULL) { if(strcmp(node->key, entryname)==0) { /* we've found the entry */ return(node); } node=node->next; } return(NULL); } /* search an entry in a list and all sublists recursively */ TDbmListEntry * SearchListEntryRec(TDbmListEntry *list, char *entryname) { TDbmListEntry *node; int i; node = SearchListEntry(list, entryname); if(node!=NULL) return(node); /* search in sublists */ for(i=0;i< list->current_order ; i++) { if(list->order[i]->entry_type==DBM_ENTRY_LIST) { node = SearchListEntryRec(list->order[i], entryname); if(node!=NULL) return(node); } } return(NULL); } /* create a new entry */ TDbmListEntry * CreateListEntry(TDbmListEntry *list, char *entryname, char *comment, int entrytype) { int hash_value; TDbmListEntry *node; int i; int ret; node = SearchListEntry(list, entryname); if(node!=NULL) { RaiseError(DBM_DUPLICATE_ENTRY); return(NULL); } hash_value = HashValueGenerator(entryname); node = list->child[hash_value]; if(node!=NULL) { while(node->next!=NULL) node=node->next; /* create the new entry */ node->next = (TDbmListEntry *) malloc(sizeof(TDbmListEntry)); if(node->next==NULL) { RaiseError(DBM_ALLOC); return(NULL); } node=node->next; } else { node = (TDbmListEntry *) malloc(sizeof(TDbmListEntry)); if(node==NULL) { RaiseError(DBM_ALLOC); return(NULL); } list->child[hash_value]=node; } /* fill the new entry */ node->key = (char *) malloc(sizeof(char) * (strlen(entryname)+1)); if(node->key==NULL) { RaiseError(DBM_ALLOC); return(NULL); } strcpy(node->key, entryname); if(comment!=NULL) { node->comment = (char *) malloc(sizeof(char) * (strlen(comment)+1)); if(node->comment==NULL) { RaiseError(DBM_ALLOC); return(NULL); } strcpy(node->comment, comment); } else node->comment = NULL; node->entry_type = entrytype; node->value.str_val = NULL; node->value.int_val = -1; node->value.real_val = -1; node->child = NULL; if(node->entry_type == DBM_ENTRY_LIST) { node->child = (TDbmListEntry **) malloc( sizeof(TDbmListEntry *) * HASH_MAX_ENTRIES); if(node->child == NULL) { RaiseError(DBM_ALLOC); return(NULL); } for (i=0; i < HASH_MAX_ENTRIES ; i++) node->child[i] = NULL; node->order = (TDbmListEntry **) malloc( sizeof(TDbmListEntry *) * MIN_ORDER_SIZE); if(node->order == NULL) { RaiseError(DBM_ALLOC); return(NULL); } for(i=0; i < MIN_ORDER_SIZE ; i++) node->order[i] = NULL; node->size_order = MIN_ORDER_SIZE; node->current_order = 0; } else { node->size_order = 0; node->current_order = 0; node->order = NULL; } node->next = NULL; /* add the list to the order array */ list->current_order++; ret = AddOrderEntry( list, node); if(ret == -1) return(NULL); return(node); } /* Delete an entry in a list */ int DeleteListEntry(TDbmListEntry *list, char *entryname) { int hash_value; TDbmListEntry *node; int found; TDbmListEntry *before; TDbmListEntry *after; int i,j; if(list==NULL || list->child==NULL || entryname==NULL) return(-1); hash_value = HashValueGenerator(entryname); node = list->child[hash_value]; if(node==NULL) return(-1); found = 0; before = NULL; after = node->next; while(!found && node!=NULL) { if(strcmp(node->key, entryname)==0) /* we've found the entry */ found = 1; if(!found) { before = node; node=node->next; } after = node->next; } if(node==NULL) return(-1); /* remove the list order entry */ i=0; while(node!=list->order[i]) i++; for(j=i; j< list->current_order-1; j++) list->order[j] = list->order[j+1]; list->order[list->current_order-1] = NULL; list->current_order--; /* delete the entry */ free(node->key); if(node->comment!=NULL) free(node->comment); switch(node->entry_type) { case DBM_ENTRY_VAR_STRING : case DBM_ENTRY_VAR_IDENT : if(node->value.str_val!=NULL ) free(node->value.str_val); break; case DBM_ENTRY_LIST : DestroyDatabase(node); free(node->child); free(node->order); break; } /* update the chained list */ if(before!=NULL) before->next = after; else list->child[hash_value] = after; return(1); } /* add element in order array */ int AddOrderEntry(TDbmListEntry *list, TDbmListEntry *element) { /* need new elements in array ? */ if(list->current_order > list->size_order) { list->size_order *= 2; list->order = (TDbmListEntry **) realloc( list->order, sizeof(TDbmListEntry *) * (list->size_order)); if(list->order == NULL) { RaiseError(DBM_ALLOC); return(-1); } } /* fill the element */ (list->order)[list->current_order-1] = element; return(1); } gpsim-0.27.0/eXdbm/test1.c0000644000076400007640000000534610416272727012133 00000000000000 /* $Id: test1.c 230 2002-04-15 22:03:02Z linas $ */ /***** * test1.c : eXdbm example * * This file Version $Revision: 230 $ * * Last modification: $Date: 2002-04-16 08:03:02 +1000 (Tue, 16 Apr 2002) $ * By: $Author: linas $ * Current State: $State$ * * Copyright (C) 1997 Fred Pesch * All Rights Reserved * * This file is part of the eXdbm Library. * * This 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. * * This 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 this library; if not, write to the Free * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * *****/ #ifndef lint static char vcid[] = "$Id: test1.c 230 2002-04-15 22:03:02Z linas $"; #endif /* lint */ #include #include extern TDbmDbList *DbmDbList; int main(void) { DB_ID dbid; int ret; printf(" \n*********************************************"); printf(" \n***** Test1.c : read the file test1.cfg *****"); printf(" \n*********************************************\n\n"); printf("**** Database manager initialization *****\n\n"); ret = eXdbmInit(); if(ret==-1) { fprintf(stderr, "\n%s\n", eXdbmGetErrorString(eXdbmGetLastError())); return(-1); } printf("**** Opening database in file test1.cfg ****\n\n"); ret = eXdbmOpenDatabase("test1.cfg", &dbid); if(ret==-1) { fprintf(stderr, "\nParsing databases aborted line %d", eXdbmLastLineParsed()); fprintf(stderr, "\n%s\n", eXdbmGetErrorString(eXdbmGetLastError())); return(-1); } fprintf(stderr, "%d lines parsed \n\n", eXdbmLastLineParsed()); printf("**** Checking database contents ****\n"); WriteDatabase(stdout, DbmDbList->dblist[dbid].root, 0); printf("\n\n<<<>>>"); printf("\n\n**** Updating database file ****\n\n"); ret = eXdbmUpdateDatabase(dbid); if(ret == -1) { fprintf(stderr, "\nUpdating databases aborted"); fprintf(stderr, "\n%s\n", eXdbmGetErrorString(eXdbmGetLastError())); return(-1); } printf("**** Closing database (no update) ****\n\n"); ret = eXdbmCloseDatabase(dbid, 0); if(ret == -1) { fprintf(stderr, "\nClosing databases aborted"); fprintf(stderr, "\n%s\n", eXdbmGetErrorString(eXdbmGetLastError())); return(-1); } printf("****** eXDbm exit without error *****\n\n"); return(0); } gpsim-0.27.0/eXdbm/test2.cfg0000644000076400007640000000065010416272727012442 00000000000000 # a small list example ThisIsAList { # a boolean variable example BoolVariable = 1 StringVariable = "320" RealVariable = 1430000000000.000000 } Othervar = toto OtherVar2leRetour = "un autre toto" # this is a small example of configuration file ThisIsAnIntegerVar = 31 ThisIsAnIntegerVar = 31 #this comment is for the next variable ThisIsAStringVar = "This is a string" ThisisTheLastVariable = AnIdentifier gpsim-0.27.0/eXdbm/NEWS0000644000076400007640000000000010416272727011404 00000000000000gpsim-0.27.0/eXdbm/test1.cfg.orig0000644000076400007640000000054010416272727013376 00000000000000 # a small list example list1 { # a boolean variable example var1list1 = TRUE StringVar = "320" list2 { varlist2 = 14 list3 { varlist3 = "deepest var" } } # a real value var2list1 = 1430000000000.000000 } var1 = 31 #this comment is for the next variable var2 = "This is a string" var3 = AnIdentifier gpsim-0.27.0/eXdbm/parse.c0000664000076400007640000003364512163701216012201 00000000000000 /* $Id: parse.c 2216 2013-06-30 00:56:58Z roy_r_rankin $ */ /***** * parse.c : eXdbm parser * * This file Version $Revision: 2216 $ * * Last modification: $Date: 2013-06-30 10:56:58 +1000 (Sun, 30 Jun 2013) $ * By: $Author: roy_r_rankin $ * Current State: $State$ * * Copyright (C) 1997 Fred Pesch * All Rights Reserved * * This file is part of the eXdbm Library. * * This 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. * * This 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 this library; if not, write to the Free * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * *****/ #include #include #include #include #include "eXdbmErrors.h" #include "eXdbmTypes.h" #include "parse.h" #include "misc.h" #include "hash.h" /* externals */ extern unsigned long DbmParseLineNumber; /* enumerations */ enum { DBM_TOKEN_LIST_ID = 0, DBM_TOKEN_VAR_ID = 1, DBM_TOKEN_INT = 2, DBM_TOKEN_REAL = 3, DBM_TOKEN_BOOL = 4, DBM_TOKEN_STRING = 5 }; /***** parse a comment *****/ int ParseComment(FILE *f, char *comment) { int current; int pos_in_comment=0; do { current=fgetc(f); if(current==EOF) { comment[pos_in_comment]=(char)0; return(EOF); } if(current!='\n') { comment[pos_in_comment]=current; pos_in_comment++; if(pos_in_comment+1>=MAX_ENTRY_LENGTH) return(-1); } } while(current!='\n'); DbmParseLineNumber++; comment[pos_in_comment]= (char) 0; return(1); } /***** parse an identifier *****/ int ParseIdentifier(FILE *f, char *token) { int current; int pos_in_token=0; /* the first char is available */ token[pos_in_token++] = fgetc(f); /* read the identifier name */ do { current = fgetc(f); if(current==EOF) return(-1); if(isalnum(current) || current=='_') token[pos_in_token++]=current; else if(!isspace(current)) return(-1); if(pos_in_token+1>=MAX_ENTRY_LENGTH) return(-1); } while(!isspace(current)); token[pos_in_token] = (char) 0; while(isspace(current)) { if(current=='\n') return(-1); current=fgetc(f); if(current==EOF) return(-1); } /* check if it's a list or a variable */ switch(current) { case '{': /* this is a list */ current=fgetc(f); while(current!='\n') { if(!isspace(current)) return(-1); current=fgetc(f); if(current==EOF) return(-1); } while(current=='\n') { DbmParseLineNumber++; current=fgetc(f); } return(DBM_TOKEN_LIST_ID); break; case '=' : /* this is a variable */ do { current=fgetc(f); if(current==EOF || current=='\n') return(-1); } while(isspace(current)); ungetc((int) current, f); return(DBM_TOKEN_VAR_ID); break; default : return(-1); } return(-1); } /***** parse an entry value *****/ int ParseEntryValue(FILE *f, TDbmEntryValue *value) { int current; int state; char value_string[MAX_ENTRY_LENGTH]; int pos_in_string = 0; state=0; while(1) { current = fgetc(f); if(current==EOF) return(-1); /* unexpected end of file */ switch(state) { case 0 : /* initial state */ if(isdigit(current)) { value_string[pos_in_string++] = current; state=2; } else if(current=='+' || current=='-') { value_string[pos_in_string++] = current; state=1; } else if (isalpha(current)) { value_string[pos_in_string++] = current; state=12; } else if (current == '"') state=14; else return(-1); break; case 1 : /* a '+' or a '-' starts the string */ while(isspace(current)) { if(current == '\n' || current == EOF) return(-1); current = fgetc(f); } ungetc(current, f); state=2; break; case 2 : /* read numbers */ while(isdigit(current)) { value_string[pos_in_string++] = current; if(pos_in_string+1>=MAX_ENTRY_LENGTH) return(-1); current = fgetc(f); } if(isspace(current) || current==EOF) { while(isspace(current)) { if(current=='\n') DbmParseLineNumber++; current=fgetc(f); } if(current!=EOF) ungetc(current, f); value_string[pos_in_string] = (char) 0; value->int_val = atoi(value_string); value->real_val = atof(value_string); value->str_val = NULL; return(DBM_ENTRY_VAR_INT); } if(current=='e' || current=='E') { value_string[pos_in_string++] = current; state=4; } else if(current=='.') { value_string[pos_in_string++] = current; state=7; } else return(-1); break; case 4 : /* an integer with exposant */ if(current=='+' || current=='-') { value_string[pos_in_string++] = current; current=fgetc(f); if(current==EOF || isspace(current)) return(-1); } if(!isdigit(current)) return(-1); while(isdigit(current)) { value_string[pos_in_string++] = current; if(pos_in_string+1>=MAX_ENTRY_LENGTH) return(-1); current=fgetc(f); } if(!isspace(current) && current!=EOF) return(-1); while(isspace(current)) { if(current=='\n') DbmParseLineNumber++; current=fgetc(f); } ungetc(current, f); value->int_val = atoi(value_string); value->real_val = atof(value_string); value->str_val = NULL; return(DBM_ENTRY_VAR_INT); break; case 7: /* a real number */ if(!isdigit(current)) return(-1); while(isdigit(current)) { value_string[pos_in_string++] = current; if(pos_in_string+1>=MAX_ENTRY_LENGTH) return -1; current = fgetc(f); } if(current=='e' || current=='E') { value_string[pos_in_string++] = current; current=fgetc(f); if(current=='+' || current=='-') { value_string[pos_in_string++] = current; current=fgetc(f); if(current==EOF || isspace(current)) return(-1); } if(!isdigit(current)) return(-1); while(isdigit(current)) { value_string[pos_in_string++] = current; if(pos_in_string+1>=MAX_ENTRY_LENGTH) return(-1); current=fgetc(f); } } if(isspace(current) || current==EOF) { while(isspace(current)) { if(current=='\n') DbmParseLineNumber++; current=fgetc(f); } if(current!=EOF) ungetc(current, f); value_string[pos_in_string] = (char) 0; value->real_val = atof(value_string); value->int_val = (int)ceil(value->real_val); value->str_val = NULL; return(DBM_ENTRY_VAR_REAL); } else return(-1); break; case 12 : /* an identifier string */ while(isalnum(current) || current=='_') { value_string[pos_in_string++] = current; if(pos_in_string+1>=MAX_ENTRY_LENGTH) return(-1); current=fgetc(f); } if(isspace(current) || current == EOF) { while(isspace(current)) { if(current=='\n') DbmParseLineNumber++; current=fgetc(f); } if(current!=EOF) ungetc(current, f); value_string[pos_in_string] = (char) 0; if(strcmp(value_string,"TRUE")==0) { /* a boolean value = TRUE */ value->real_val = -1; value->int_val = 1; value->str_val = NULL; return(DBM_ENTRY_VAR_BOOL); } if(strcmp(value_string,"FALSE")==0) { /* a boolean value = FALSE */ value->real_val = -1; value->int_val = 0; value->str_val = NULL; return(DBM_ENTRY_VAR_BOOL); } /* an identifier */ value->real_val = -1; value->int_val = -1; value->str_val = (char *) malloc(sizeof(char) * (strlen(value_string)+1)); if(value->str_val==NULL) return(-1); strcpy(value->str_val,value_string); return(DBM_ENTRY_VAR_IDENT); } else return(-1); break; case 14: /* a complete string */ while(current!='"') { if(current=='\n') DbmParseLineNumber++; if(current==EOF) return(-1); value_string[pos_in_string++] = current; if(pos_in_string+1>=MAX_ENTRY_LENGTH) return(-1); current = fgetc(f); } current = fgetc(f); if(isspace(current) || current == EOF) { while(isspace(current)) { if(current=='\n') DbmParseLineNumber++; current=fgetc(f); } if(current!=EOF) ungetc(current, f); value_string[pos_in_string] = (char) 0; value->real_val = -1; value->int_val = -1; value->str_val = (char *) malloc(sizeof(char) * (strlen(value_string)+1)); if(value->str_val==NULL) return(-1); strcpy(value->str_val,value_string); return(DBM_ENTRY_VAR_STRING); } else return(-1); break; default : return(-1); } if(pos_in_string+1>=MAX_ENTRY_LENGTH) return(-1); } return(-1); } /***** main parsing function *****/ int ParseFile(FILE *f, TDbmListEntry *list, int level) { static char current_token[MAX_ENTRY_LENGTH]; int token_type; static char last_comment[MAX_ENTRY_LENGTH]; static int last_comment_available = 0; int current; int hash_value; TDbmListEntry *newnode; int ret; int i; do { /* skip the preceeding spaces & empty lines (counted) */ current=fgetc(f); while(isspace(current)) { if(current=='\n') DbmParseLineNumber++; current=fgetc(f); } if(current == EOF || current=='}') continue; if(current=='#') { ungetc(current, f); /* parse a comment */ last_comment_available = ParseComment(f, last_comment); if(last_comment_available==-1) { RaiseError(DBM_PARSE_COMMENT); return(-1); } if(last_comment_available==EOF) { current=EOF; continue; } } else if(isalpha(current)) { ungetc(current, f); /* parse a variable or list identifier */ token_type = ParseIdentifier(f, current_token); switch(token_type) { case DBM_TOKEN_LIST_ID : /* new list entry */ hash_value = HashValueGenerator ( current_token ); if ( list->child[hash_value] == NULL ) { list->child[hash_value] = ( TDbmListEntry *) malloc( sizeof(TDbmListEntry) ); if(list->child[hash_value] == NULL) { RaiseError(DBM_ALLOC); return(-1); } newnode = list->child[hash_value]; newnode->next = NULL; } else { /* there's already an entry at this place */ newnode = list->child[hash_value]; while(newnode->next!=NULL) newnode = newnode->next; newnode->next = (TDbmListEntry *) malloc( sizeof(TDbmListEntry) ); if(newnode->next == NULL) { RaiseError(DBM_ALLOC); return(-1); } newnode=newnode->next; newnode->next = NULL; } /* fill the new entry */ /* key name */ newnode->key = (char *) malloc (sizeof(char) * (strlen(current_token) + 1)); if(newnode->key == NULL) { RaiseError(DBM_ALLOC); return(-1); } strcpy(newnode->key, current_token); /* comment */ if(last_comment_available) { newnode->comment = (char *) malloc (sizeof(char) * (strlen(last_comment) + 1)); if(newnode->comment == NULL) { RaiseError(DBM_ALLOC); return(-1); } strcpy(newnode->comment, last_comment); last_comment_available = 0; } else newnode->comment = NULL; /* entry type */ newnode->entry_type = DBM_ENTRY_LIST; /* child list */ newnode->child = (TDbmListEntry **) malloc( sizeof(TDbmListEntry *) * HASH_MAX_ENTRIES); if(newnode->child == NULL) { RaiseError(DBM_ALLOC); return(-1); } for (i=0; i < HASH_MAX_ENTRIES ; i++) newnode->child[i] = NULL; /* order array */ newnode->order = (TDbmListEntry **) malloc( sizeof(TDbmListEntry *) * MIN_ORDER_SIZE); if(newnode->order == NULL) { RaiseError(DBM_ALLOC); return(-1); } newnode->size_order = MIN_ORDER_SIZE; newnode->current_order = 0; /* add the list to the order array */ list->current_order++; ret = AddOrderEntry( list, newnode); if(ret==-1) return(-1); /* continue the parsing recursively */ ret = ParseFile(f, newnode, level+1); if(ret == -1) return(-1); break; case DBM_TOKEN_VAR_ID : /* new variable entry */ hash_value = HashValueGenerator ( current_token ); if ( list->child[hash_value] == NULL ) { list->child[hash_value] = ( TDbmListEntry *) malloc( sizeof(TDbmListEntry) ); if(list->child[hash_value] == NULL) { RaiseError(DBM_ALLOC); return(-1); } newnode = list->child[hash_value]; newnode->next = NULL; } else { /* there's already an entry at this place */ newnode = list->child[hash_value]; while(newnode->next!=NULL) newnode = newnode->next; newnode->next = (TDbmListEntry *) malloc( sizeof(TDbmListEntry) ); if(newnode->next == NULL) { RaiseError(DBM_ALLOC); return(-1); } newnode=newnode->next; } /* fill the new entry */ /* next */ newnode->next = NULL; /* key name */ newnode->key = (char *) malloc (sizeof(char) * (strlen(current_token) + 1)); if(newnode->key == NULL) { RaiseError(DBM_ALLOC); return(-1); } strcpy(newnode->key, current_token); /* comment */ if(last_comment_available) { newnode->comment = (char *) malloc (sizeof(char) * (strlen(last_comment) + 1)); if(newnode->comment == NULL) { RaiseError(DBM_ALLOC); return(-1); } strcpy(newnode->comment, last_comment); last_comment_available = 0; } else newnode->comment = NULL; /* entry type */ newnode->entry_type = ParseEntryValue(f, &newnode->value); if(newnode->entry_type == -1) { RaiseError(DBM_PARSE_VALUE); return(-1); } /* no child list for variable entries */ newnode->child = NULL; /* no order array */ newnode->order = NULL; newnode->size_order = 0; newnode->current_order = 0; /* add the variable to the order array */ list->current_order++; ret = AddOrderEntry( list, newnode); if(ret==-1) return(-1); break; default : /* unknown entry */ RaiseError(DBM_PARSE_ID); return(-1); } } else return(-1); } while(current!=EOF && current!='}'); if(current==EOF && level>0) { RaiseError(DBM_PARSE_UNEXP_END); return(-1); } return(1); } gpsim-0.27.0/eXdbm/COPYING.LIB0000644000076400007640000006126110416272727012365 00000000000000 GNU LIBRARY GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1991 Free Software Foundation, Inc. 675 Mass Ave, Cambridge, MA 02139, USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. [This is the first released version of the library GPL. It is numbered 2 because it goes with version 2 of the ordinary GPL.] Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public Licenses are intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This license, the Library General Public License, applies to some specially designated Free Software Foundation software, and to any other libraries whose authors decide to use it. You can use it for your libraries, 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 library, or if you modify it. For example, if you distribute copies of the library, whether gratis or for a fee, you must give the recipients all the rights that we gave you. You must make sure that they, too, receive or can get the source code. If you link a program with the library, you must provide complete object files to the recipients so that they can relink them with the library, after making changes to the library and recompiling it. And you must show them these terms so they know their rights. Our method of protecting your rights has two steps: (1) copyright the library, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the library. Also, for each distributor's protection, we want to make certain that everyone understands that there is no warranty for this free library. If the library is modified by someone else and passed on, we want its recipients to know that what they have is not the original version, 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 companies distributing free software will individually obtain patent licenses, thus in effect transforming the program into proprietary software. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. Most GNU software, including some libraries, is covered by the ordinary GNU General Public License, which was designed for utility programs. This license, the GNU Library General Public License, applies to certain designated libraries. This license is quite different from the ordinary one; be sure to read it in full, and don't assume that anything in it is the same as in the ordinary license. The reason we have a separate public license for some libraries is that they blur the distinction we usually make between modifying or adding to a program and simply using it. Linking a program with a library, without changing the library, is in some sense simply using the library, and is analogous to running a utility program or application program. However, in a textual and legal sense, the linked executable is a combined work, a derivative of the original library, and the ordinary General Public License treats it as such. Because of this blurred distinction, using the ordinary General Public License for libraries did not effectively promote software sharing, because most developers did not use the libraries. We concluded that weaker conditions might promote sharing better. However, unrestricted linking of non-free programs would deprive the users of those programs of all benefit from the free status of the libraries themselves. This Library General Public License is intended to permit developers of non-free programs to use free libraries, while preserving your freedom as a user of such programs to change the free libraries that are incorporated in them. (We have not seen how to achieve this as regards changes in header files, but we have achieved it as regards changes in the actual functions of the Library.) The hope is that this will lead to faster development of free libraries. The precise terms and conditions for copying, distribution and modification follow. Pay close attention to the difference between a "work based on the library" and a "work that uses the library". The former contains code derived from the library, while the latter only works together with the library. Note that it is possible for a library to be covered by the ordinary General Public License rather than by this special one. GNU LIBRARY GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License Agreement applies to any software library which contains a notice placed by the copyright holder or other authorized party saying it may be distributed under the terms of this Library General Public License (also called "this License"). Each licensee is addressed as "you". A "library" means a collection of software functions and/or data prepared so as to be conveniently linked with application programs (which use some of those functions and data) to form executables. The "Library", below, refers to any such software library or work which has been distributed under these terms. A "work based on the Library" means either the Library or any derivative work under copyright law: that is to say, a work containing the Library or a portion of it, either verbatim or with modifications and/or translated straightforwardly into another language. (Hereinafter, translation is included without limitation in the term "modification".) "Source code" for a work means the preferred form of the work for making modifications to it. For a library, 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 library. Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running a program using the Library is not restricted, and output from such a program is covered only if its contents constitute a work based on the Library (independent of the use of the Library in a tool for writing it). Whether that is true depends on what the Library does and what the program that uses the Library does. 1. You may copy and distribute verbatim copies of the Library's complete 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 distribute a copy of this License along with the Library. 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 Library or any portion of it, thus forming a work based on the Library, 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) The modified work must itself be a software library. b) You must cause the files modified to carry prominent notices stating that you changed the files and the date of any change. c) You must cause the whole of the work to be licensed at no charge to all third parties under the terms of this License. d) If a facility in the modified Library refers to a function or a table of data to be supplied by an application program that uses the facility, other than as an argument passed when the facility is invoked, then you must make a good faith effort to ensure that, in the event an application does not supply such function or table, the facility still operates, and performs whatever part of its purpose remains meaningful. (For example, a function in a library to compute square roots has a purpose that is entirely well-defined independent of the application. Therefore, Subsection 2d requires that any application-supplied function or table used by this function must be optional: if the application does not supply it, the square root function must still compute square roots.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Library, 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 Library, 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 Library. In addition, mere aggregation of another work not based on the Library with the Library (or with a work based on the Library) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may opt to apply the terms of the ordinary GNU General Public License instead of this License to a given copy of the Library. To do this, you must alter all the notices that refer to this License, so that they refer to the ordinary GNU General Public License, version 2, instead of to this License. (If a newer version than version 2 of the ordinary GNU General Public License has appeared, then you can specify that version instead if you wish.) Do not make any other change in these notices. Once this change is made in a given copy, it is irreversible for that copy, so the ordinary GNU General Public License applies to all subsequent copies and derivative works made from that copy. This option is useful when you wish to copy part of the code of the Library into a program that is not a library. 4. You may copy and distribute the Library (or a portion or derivative of it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you 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. If distribution of 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 satisfies the requirement to distribute the source code, even though third parties are not compelled to copy the source along with the object code. 5. A program that contains no derivative of any portion of the Library, but is designed to work with the Library by being compiled or linked with it, is called a "work that uses the Library". Such a work, in isolation, is not a derivative work of the Library, and therefore falls outside the scope of this License. However, linking a "work that uses the Library" with the Library creates an executable that is a derivative of the Library (because it contains portions of the Library), rather than a "work that uses the library". The executable is therefore covered by this License. Section 6 states terms for distribution of such executables. When a "work that uses the Library" uses material from a header file that is part of the Library, the object code for the work may be a derivative work of the Library even though the source code is not. Whether this is true is especially significant if the work can be linked without the Library, or if the work is itself a library. The threshold for this to be true is not precisely defined by law. If such an object file uses only numerical parameters, data structure layouts and accessors, and small macros and small inline functions (ten lines or less in length), then the use of the object file is unrestricted, regardless of whether it is legally a derivative work. (Executables containing this object code plus portions of the Library will still fall under Section 6.) Otherwise, if the work is a derivative of the Library, you may distribute the object code for the work under the terms of Section 6. Any executables containing that work also fall under Section 6, whether or not they are linked directly with the Library itself. 6. As an exception to the Sections above, you may also compile or link a "work that uses the Library" with the Library to produce a work containing portions of the Library, and distribute that work under terms of your choice, provided that the terms permit modification of the work for the customer's own use and reverse engineering for debugging such modifications. You must give prominent notice with each copy of the work that the Library is used in it and that the Library and its use are covered by this License. You must supply a copy of this License. If the work during execution displays copyright notices, you must include the copyright notice for the Library among them, as well as a reference directing the user to the copy of this License. Also, you must do one of these things: a) Accompany the work with the complete corresponding machine-readable source code for the Library including whatever changes were used in the work (which must be distributed under Sections 1 and 2 above); and, if the work is an executable linked with the Library, with the complete machine-readable "work that uses the Library", as object code and/or source code, so that the user can modify the Library and then relink to produce a modified executable containing the modified Library. (It is understood that the user who changes the contents of definitions files in the Library will not necessarily be able to recompile the application to use the modified definitions.) b) Accompany the work with a written offer, valid for at least three years, to give the same user the materials specified in Subsection 6a, above, for a charge no more than the cost of performing this distribution. c) If distribution of the work is made by offering access to copy from a designated place, offer equivalent access to copy the above specified materials from the same place. d) Verify that the user has already received a copy of these materials or that you have already sent this user a copy. For an executable, the required form of the "work that uses the Library" must include any data and utility programs needed for reproducing the executable from it. 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. It may happen that this requirement contradicts the license restrictions of other proprietary libraries that do not normally accompany the operating system. Such a contradiction means you cannot use both them and the Library together in an executable that you distribute. 7. You may place library facilities that are a work based on the Library side-by-side in a single library together with other library facilities not covered by this License, and distribute such a combined library, provided that the separate distribution of the work based on the Library and of the other library facilities is otherwise permitted, and provided that you do these two things: a) Accompany the combined library with a copy of the same work based on the Library, uncombined with any other library facilities. This must be distributed under the terms of the Sections above. b) Give prominent notice with the combined library of the fact that part of it is a work based on the Library, and explaining where to find the accompanying uncombined form of the same work. 8. You may not copy, modify, sublicense, link with, or distribute the Library except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense, link with, or distribute the Library 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. 9. 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 Library or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Library (or any work based on the Library), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Library or works based on it. 10. Each time you redistribute the Library (or any work based on the Library), the recipient automatically receives a license from the original licensor to copy, distribute, link with or modify the Library 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. 11. 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 Library at all. For example, if a patent license would not permit royalty-free redistribution of the Library 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 Library. 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. 12. If the distribution and/or use of the Library is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Library 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. 13. The Free Software Foundation may publish revised and/or new versions of the Library 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 Library 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 Library does not specify a license version number, you may choose any version ever published by the Free Software Foundation. 14. If you wish to incorporate parts of the Library into other free programs whose distribution conditions are incompatible with these, 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 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE LIBRARY "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 LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 16. 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 LIBRARY 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 LIBRARY (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 LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS Appendix: How to Apply These Terms to Your New Libraries If you develop a new library, and you want it to be of the greatest possible use to the public, we recommend making it free software that everyone can redistribute and change. You can do so by permitting redistribution under these terms (or, alternatively, under the terms of the ordinary General Public License). To apply these terms, attach the following notices to the library. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This 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. This 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 this library; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. Also add information on how to contact you by electronic and paper mail. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the library, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the library `Frob' (a library for tweaking knobs) written by James Random Hacker. , 1 April 1990 Ty Coon, President of Vice That's all there is to it! gpsim-0.27.0/eXdbm/COPYING0000644000076400007640000000000010416272727011740 00000000000000gpsim-0.27.0/depcomp0000755000076400007640000005601612157551763011251 00000000000000#! /bin/sh # depcomp - compile a program generating dependencies as side-effects scriptversion=2013-05-30.07; # UTC # Copyright (C) 1999-2013 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program. If not, see . # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # Originally written by Alexandre Oliva . case $1 in '') echo "$0: No command. Try '$0 --help' for more information." 1>&2 exit 1; ;; -h | --h*) cat <<\EOF Usage: depcomp [--help] [--version] PROGRAM [ARGS] Run PROGRAMS ARGS to compile a file, generating dependencies as side-effects. Environment variables: depmode Dependency tracking mode. source Source file read by 'PROGRAMS ARGS'. object Object file output by 'PROGRAMS ARGS'. DEPDIR directory where to store dependencies. depfile Dependency file to output. tmpdepfile Temporary file to use when outputting dependencies. libtool Whether libtool is used (yes/no). Report bugs to . EOF exit $? ;; -v | --v*) echo "depcomp $scriptversion" exit $? ;; esac # Get the directory component of the given path, and save it in the # global variables '$dir'. Note that this directory component will # be either empty or ending with a '/' character. This is deliberate. set_dir_from () { case $1 in */*) dir=`echo "$1" | sed -e 's|/[^/]*$|/|'`;; *) dir=;; esac } # Get the suffix-stripped basename of the given path, and save it the # global variable '$base'. set_base_from () { base=`echo "$1" | sed -e 's|^.*/||' -e 's/\.[^.]*$//'` } # If no dependency file was actually created by the compiler invocation, # we still have to create a dummy depfile, to avoid errors with the # Makefile "include basename.Plo" scheme. make_dummy_depfile () { echo "#dummy" > "$depfile" } # Factor out some common post-processing of the generated depfile. # Requires the auxiliary global variable '$tmpdepfile' to be set. aix_post_process_depfile () { # If the compiler actually managed to produce a dependency file, # post-process it. if test -f "$tmpdepfile"; then # Each line is of the form 'foo.o: dependency.h'. # Do two passes, one to just change these to # $object: dependency.h # and one to simply output # dependency.h: # which is needed to avoid the deleted-header problem. { sed -e "s,^.*\.[$lower]*:,$object:," < "$tmpdepfile" sed -e "s,^.*\.[$lower]*:[$tab ]*,," -e 's,$,:,' < "$tmpdepfile" } > "$depfile" rm -f "$tmpdepfile" else make_dummy_depfile fi } # A tabulation character. tab=' ' # A newline character. nl=' ' # Character ranges might be problematic outside the C locale. # These definitions help. upper=ABCDEFGHIJKLMNOPQRSTUVWXYZ lower=abcdefghijklmnopqrstuvwxyz digits=0123456789 alpha=${upper}${lower} if test -z "$depmode" || test -z "$source" || test -z "$object"; then echo "depcomp: Variables source, object and depmode must be set" 1>&2 exit 1 fi # Dependencies for sub/bar.o or sub/bar.obj go into sub/.deps/bar.Po. depfile=${depfile-`echo "$object" | sed 's|[^\\/]*$|'${DEPDIR-.deps}'/&|;s|\.\([^.]*\)$|.P\1|;s|Pobj$|Po|'`} tmpdepfile=${tmpdepfile-`echo "$depfile" | sed 's/\.\([^.]*\)$/.T\1/'`} rm -f "$tmpdepfile" # Avoid interferences from the environment. gccflag= dashmflag= # Some modes work just like other modes, but use different flags. We # parameterize here, but still list the modes in the big case below, # to make depend.m4 easier to write. Note that we *cannot* use a case # here, because this file can only contain one case statement. if test "$depmode" = hp; then # HP compiler uses -M and no extra arg. gccflag=-M depmode=gcc fi if test "$depmode" = dashXmstdout; then # This is just like dashmstdout with a different argument. dashmflag=-xM depmode=dashmstdout fi cygpath_u="cygpath -u -f -" if test "$depmode" = msvcmsys; then # This is just like msvisualcpp but w/o cygpath translation. # Just convert the backslash-escaped backslashes to single forward # slashes to satisfy depend.m4 cygpath_u='sed s,\\\\,/,g' depmode=msvisualcpp fi if test "$depmode" = msvc7msys; then # This is just like msvc7 but w/o cygpath translation. # Just convert the backslash-escaped backslashes to single forward # slashes to satisfy depend.m4 cygpath_u='sed s,\\\\,/,g' depmode=msvc7 fi if test "$depmode" = xlc; then # IBM C/C++ Compilers xlc/xlC can output gcc-like dependency information. gccflag=-qmakedep=gcc,-MF depmode=gcc fi case "$depmode" in gcc3) ## gcc 3 implements dependency tracking that does exactly what ## we want. Yay! Note: for some reason libtool 1.4 doesn't like ## it if -MD -MP comes after the -MF stuff. Hmm. ## Unfortunately, FreeBSD c89 acceptance of flags depends upon ## the command line argument order; so add the flags where they ## appear in depend2.am. Note that the slowdown incurred here ## affects only configure: in makefiles, %FASTDEP% shortcuts this. for arg do case $arg in -c) set fnord "$@" -MT "$object" -MD -MP -MF "$tmpdepfile" "$arg" ;; *) set fnord "$@" "$arg" ;; esac shift # fnord shift # $arg done "$@" stat=$? if test $stat -ne 0; then rm -f "$tmpdepfile" exit $stat fi mv "$tmpdepfile" "$depfile" ;; gcc) ## Note that this doesn't just cater to obsosete pre-3.x GCC compilers. ## but also to in-use compilers like IMB xlc/xlC and the HP C compiler. ## (see the conditional assignment to $gccflag above). ## There are various ways to get dependency output from gcc. Here's ## why we pick this rather obscure method: ## - Don't want to use -MD because we'd like the dependencies to end ## up in a subdir. Having to rename by hand is ugly. ## (We might end up doing this anyway to support other compilers.) ## - The DEPENDENCIES_OUTPUT environment variable makes gcc act like ## -MM, not -M (despite what the docs say). Also, it might not be ## supported by the other compilers which use the 'gcc' depmode. ## - Using -M directly means running the compiler twice (even worse ## than renaming). if test -z "$gccflag"; then gccflag=-MD, fi "$@" -Wp,"$gccflag$tmpdepfile" stat=$? if test $stat -ne 0; then rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" echo "$object : \\" > "$depfile" # The second -e expression handles DOS-style file names with drive # letters. sed -e 's/^[^:]*: / /' \ -e 's/^['$alpha']:\/[^:]*: / /' < "$tmpdepfile" >> "$depfile" ## This next piece of magic avoids the "deleted header file" problem. ## The problem is that when a header file which appears in a .P file ## is deleted, the dependency causes make to die (because there is ## typically no way to rebuild the header). We avoid this by adding ## dummy dependencies for each header file. Too bad gcc doesn't do ## this for us directly. ## Some versions of gcc put a space before the ':'. On the theory ## that the space means something, we add a space to the output as ## well. hp depmode also adds that space, but also prefixes the VPATH ## to the object. Take care to not repeat it in the output. ## Some versions of the HPUX 10.20 sed can't process this invocation ## correctly. Breaking it into two sed invocations is a workaround. tr ' ' "$nl" < "$tmpdepfile" \ | sed -e 's/^\\$//' -e '/^$/d' -e "s|.*$object$||" -e '/:$/d' \ | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; hp) # This case exists only to let depend.m4 do its work. It works by # looking at the text of this script. This case will never be run, # since it is checked for above. exit 1 ;; sgi) if test "$libtool" = yes; then "$@" "-Wp,-MDupdate,$tmpdepfile" else "$@" -MDupdate "$tmpdepfile" fi stat=$? if test $stat -ne 0; then rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" if test -f "$tmpdepfile"; then # yes, the sourcefile depend on other files echo "$object : \\" > "$depfile" # Clip off the initial element (the dependent). Don't try to be # clever and replace this with sed code, as IRIX sed won't handle # lines with more than a fixed number of characters (4096 in # IRIX 6.2 sed, 8192 in IRIX 6.5). We also remove comment lines; # the IRIX cc adds comments like '#:fec' to the end of the # dependency line. tr ' ' "$nl" < "$tmpdepfile" \ | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' \ | tr "$nl" ' ' >> "$depfile" echo >> "$depfile" # The second pass generates a dummy entry for each header file. tr ' ' "$nl" < "$tmpdepfile" \ | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' -e 's/$/:/' \ >> "$depfile" else make_dummy_depfile fi rm -f "$tmpdepfile" ;; xlc) # This case exists only to let depend.m4 do its work. It works by # looking at the text of this script. This case will never be run, # since it is checked for above. exit 1 ;; aix) # The C for AIX Compiler uses -M and outputs the dependencies # in a .u file. In older versions, this file always lives in the # current directory. Also, the AIX compiler puts '$object:' at the # start of each line; $object doesn't have directory information. # Version 6 uses the directory in both cases. set_dir_from "$object" set_base_from "$object" if test "$libtool" = yes; then tmpdepfile1=$dir$base.u tmpdepfile2=$base.u tmpdepfile3=$dir.libs/$base.u "$@" -Wc,-M else tmpdepfile1=$dir$base.u tmpdepfile2=$dir$base.u tmpdepfile3=$dir$base.u "$@" -M fi stat=$? if test $stat -ne 0; then rm -f "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" exit $stat fi for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" do test -f "$tmpdepfile" && break done aix_post_process_depfile ;; tcc) # tcc (Tiny C Compiler) understand '-MD -MF file' since version 0.9.26 # FIXME: That version still under development at the moment of writing. # Make that this statement remains true also for stable, released # versions. # It will wrap lines (doesn't matter whether long or short) with a # trailing '\', as in: # # foo.o : \ # foo.c \ # foo.h \ # # It will put a trailing '\' even on the last line, and will use leading # spaces rather than leading tabs (at least since its commit 0394caf7 # "Emit spaces for -MD"). "$@" -MD -MF "$tmpdepfile" stat=$? if test $stat -ne 0; then rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" # Each non-empty line is of the form 'foo.o : \' or ' dep.h \'. # We have to change lines of the first kind to '$object: \'. sed -e "s|.*:|$object :|" < "$tmpdepfile" > "$depfile" # And for each line of the second kind, we have to emit a 'dep.h:' # dummy dependency, to avoid the deleted-header problem. sed -n -e 's|^ *\(.*\) *\\$|\1:|p' < "$tmpdepfile" >> "$depfile" rm -f "$tmpdepfile" ;; ## The order of this option in the case statement is important, since the ## shell code in configure will try each of these formats in the order ## listed in this file. A plain '-MD' option would be understood by many ## compilers, so we must ensure this comes after the gcc and icc options. pgcc) # Portland's C compiler understands '-MD'. # Will always output deps to 'file.d' where file is the root name of the # source file under compilation, even if file resides in a subdirectory. # The object file name does not affect the name of the '.d' file. # pgcc 10.2 will output # foo.o: sub/foo.c sub/foo.h # and will wrap long lines using '\' : # foo.o: sub/foo.c ... \ # sub/foo.h ... \ # ... set_dir_from "$object" # Use the source, not the object, to determine the base name, since # that's sadly what pgcc will do too. set_base_from "$source" tmpdepfile=$base.d # For projects that build the same source file twice into different object # files, the pgcc approach of using the *source* file root name can cause # problems in parallel builds. Use a locking strategy to avoid stomping on # the same $tmpdepfile. lockdir=$base.d-lock trap " echo '$0: caught signal, cleaning up...' >&2 rmdir '$lockdir' exit 1 " 1 2 13 15 numtries=100 i=$numtries while test $i -gt 0; do # mkdir is a portable test-and-set. if mkdir "$lockdir" 2>/dev/null; then # This process acquired the lock. "$@" -MD stat=$? # Release the lock. rmdir "$lockdir" break else # If the lock is being held by a different process, wait # until the winning process is done or we timeout. while test -d "$lockdir" && test $i -gt 0; do sleep 1 i=`expr $i - 1` done fi i=`expr $i - 1` done trap - 1 2 13 15 if test $i -le 0; then echo "$0: failed to acquire lock after $numtries attempts" >&2 echo "$0: check lockdir '$lockdir'" >&2 exit 1 fi if test $stat -ne 0; then rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" # Each line is of the form `foo.o: dependent.h', # or `foo.o: dep1.h dep2.h \', or ` dep3.h dep4.h \'. # Do two passes, one to just change these to # `$object: dependent.h' and one to simply `dependent.h:'. sed "s,^[^:]*:,$object :," < "$tmpdepfile" > "$depfile" # Some versions of the HPUX 10.20 sed can't process this invocation # correctly. Breaking it into two sed invocations is a workaround. sed 's,^[^:]*: \(.*\)$,\1,;s/^\\$//;/^$/d;/:$/d' < "$tmpdepfile" \ | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; hp2) # The "hp" stanza above does not work with aCC (C++) and HP's ia64 # compilers, which have integrated preprocessors. The correct option # to use with these is +Maked; it writes dependencies to a file named # 'foo.d', which lands next to the object file, wherever that # happens to be. # Much of this is similar to the tru64 case; see comments there. set_dir_from "$object" set_base_from "$object" if test "$libtool" = yes; then tmpdepfile1=$dir$base.d tmpdepfile2=$dir.libs/$base.d "$@" -Wc,+Maked else tmpdepfile1=$dir$base.d tmpdepfile2=$dir$base.d "$@" +Maked fi stat=$? if test $stat -ne 0; then rm -f "$tmpdepfile1" "$tmpdepfile2" exit $stat fi for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" do test -f "$tmpdepfile" && break done if test -f "$tmpdepfile"; then sed -e "s,^.*\.[$lower]*:,$object:," "$tmpdepfile" > "$depfile" # Add 'dependent.h:' lines. sed -ne '2,${ s/^ *// s/ \\*$// s/$/:/ p }' "$tmpdepfile" >> "$depfile" else make_dummy_depfile fi rm -f "$tmpdepfile" "$tmpdepfile2" ;; tru64) # The Tru64 compiler uses -MD to generate dependencies as a side # effect. 'cc -MD -o foo.o ...' puts the dependencies into 'foo.o.d'. # At least on Alpha/Redhat 6.1, Compaq CCC V6.2-504 seems to put # dependencies in 'foo.d' instead, so we check for that too. # Subdirectories are respected. set_dir_from "$object" set_base_from "$object" if test "$libtool" = yes; then # Libtool generates 2 separate objects for the 2 libraries. These # two compilations output dependencies in $dir.libs/$base.o.d and # in $dir$base.o.d. We have to check for both files, because # one of the two compilations can be disabled. We should prefer # $dir$base.o.d over $dir.libs/$base.o.d because the latter is # automatically cleaned when .libs/ is deleted, while ignoring # the former would cause a distcleancheck panic. tmpdepfile1=$dir$base.o.d # libtool 1.5 tmpdepfile2=$dir.libs/$base.o.d # Likewise. tmpdepfile3=$dir.libs/$base.d # Compaq CCC V6.2-504 "$@" -Wc,-MD else tmpdepfile1=$dir$base.d tmpdepfile2=$dir$base.d tmpdepfile3=$dir$base.d "$@" -MD fi stat=$? if test $stat -ne 0; then rm -f "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" exit $stat fi for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" do test -f "$tmpdepfile" && break done # Same post-processing that is required for AIX mode. aix_post_process_depfile ;; msvc7) if test "$libtool" = yes; then showIncludes=-Wc,-showIncludes else showIncludes=-showIncludes fi "$@" $showIncludes > "$tmpdepfile" stat=$? grep -v '^Note: including file: ' "$tmpdepfile" if test $stat -ne 0; then rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" echo "$object : \\" > "$depfile" # The first sed program below extracts the file names and escapes # backslashes for cygpath. The second sed program outputs the file # name when reading, but also accumulates all include files in the # hold buffer in order to output them again at the end. This only # works with sed implementations that can handle large buffers. sed < "$tmpdepfile" -n ' /^Note: including file: *\(.*\)/ { s//\1/ s/\\/\\\\/g p }' | $cygpath_u | sort -u | sed -n ' s/ /\\ /g s/\(.*\)/'"$tab"'\1 \\/p s/.\(.*\) \\/\1:/ H $ { s/.*/'"$tab"'/ G p }' >> "$depfile" echo >> "$depfile" # make sure the fragment doesn't end with a backslash rm -f "$tmpdepfile" ;; msvc7msys) # This case exists only to let depend.m4 do its work. It works by # looking at the text of this script. This case will never be run, # since it is checked for above. exit 1 ;; #nosideeffect) # This comment above is used by automake to tell side-effect # dependency tracking mechanisms from slower ones. dashmstdout) # Important note: in order to support this mode, a compiler *must* # always write the preprocessed file to stdout, regardless of -o. "$@" || exit $? # Remove the call to Libtool. if test "$libtool" = yes; then while test "X$1" != 'X--mode=compile'; do shift done shift fi # Remove '-o $object'. IFS=" " for arg do case $arg in -o) shift ;; $object) shift ;; *) set fnord "$@" "$arg" shift # fnord shift # $arg ;; esac done test -z "$dashmflag" && dashmflag=-M # Require at least two characters before searching for ':' # in the target name. This is to cope with DOS-style filenames: # a dependency such as 'c:/foo/bar' could be seen as target 'c' otherwise. "$@" $dashmflag | sed "s|^[$tab ]*[^:$tab ][^:][^:]*:[$tab ]*|$object: |" > "$tmpdepfile" rm -f "$depfile" cat < "$tmpdepfile" > "$depfile" # Some versions of the HPUX 10.20 sed can't process this sed invocation # correctly. Breaking it into two sed invocations is a workaround. tr ' ' "$nl" < "$tmpdepfile" \ | sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' \ | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; dashXmstdout) # This case only exists to satisfy depend.m4. It is never actually # run, as this mode is specially recognized in the preamble. exit 1 ;; makedepend) "$@" || exit $? # Remove any Libtool call if test "$libtool" = yes; then while test "X$1" != 'X--mode=compile'; do shift done shift fi # X makedepend shift cleared=no eat=no for arg do case $cleared in no) set ""; shift cleared=yes ;; esac if test $eat = yes; then eat=no continue fi case "$arg" in -D*|-I*) set fnord "$@" "$arg"; shift ;; # Strip any option that makedepend may not understand. Remove # the object too, otherwise makedepend will parse it as a source file. -arch) eat=yes ;; -*|$object) ;; *) set fnord "$@" "$arg"; shift ;; esac done obj_suffix=`echo "$object" | sed 's/^.*\././'` touch "$tmpdepfile" ${MAKEDEPEND-makedepend} -o"$obj_suffix" -f"$tmpdepfile" "$@" rm -f "$depfile" # makedepend may prepend the VPATH from the source file name to the object. # No need to regex-escape $object, excess matching of '.' is harmless. sed "s|^.*\($object *:\)|\1|" "$tmpdepfile" > "$depfile" # Some versions of the HPUX 10.20 sed can't process the last invocation # correctly. Breaking it into two sed invocations is a workaround. sed '1,2d' "$tmpdepfile" \ | tr ' ' "$nl" \ | sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' \ | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" "$tmpdepfile".bak ;; cpp) # Important note: in order to support this mode, a compiler *must* # always write the preprocessed file to stdout. "$@" || exit $? # Remove the call to Libtool. if test "$libtool" = yes; then while test "X$1" != 'X--mode=compile'; do shift done shift fi # Remove '-o $object'. IFS=" " for arg do case $arg in -o) shift ;; $object) shift ;; *) set fnord "$@" "$arg" shift # fnord shift # $arg ;; esac done "$@" -E \ | sed -n -e '/^# [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' \ -e '/^#line [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' \ | sed '$ s: \\$::' > "$tmpdepfile" rm -f "$depfile" echo "$object : \\" > "$depfile" cat < "$tmpdepfile" >> "$depfile" sed < "$tmpdepfile" '/^$/d;s/^ //;s/ \\$//;s/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; msvisualcpp) # Important note: in order to support this mode, a compiler *must* # always write the preprocessed file to stdout. "$@" || exit $? # Remove the call to Libtool. if test "$libtool" = yes; then while test "X$1" != 'X--mode=compile'; do shift done shift fi IFS=" " for arg do case "$arg" in -o) shift ;; $object) shift ;; "-Gm"|"/Gm"|"-Gi"|"/Gi"|"-ZI"|"/ZI") set fnord "$@" shift shift ;; *) set fnord "$@" "$arg" shift shift ;; esac done "$@" -E 2>/dev/null | sed -n '/^#line [0-9][0-9]* "\([^"]*\)"/ s::\1:p' | $cygpath_u | sort -u > "$tmpdepfile" rm -f "$depfile" echo "$object : \\" > "$depfile" sed < "$tmpdepfile" -n -e 's% %\\ %g' -e '/^\(.*\)$/ s::'"$tab"'\1 \\:p' >> "$depfile" echo "$tab" >> "$depfile" sed < "$tmpdepfile" -n -e 's% %\\ %g' -e '/^\(.*\)$/ s::\1\::p' >> "$depfile" rm -f "$tmpdepfile" ;; msvcmsys) # This case exists only to let depend.m4 do its work. It works by # looking at the text of this script. This case will never be run, # since it is checked for above. exit 1 ;; none) exec "$@" ;; *) echo "Unknown depmode $depmode" 1>&2 exit 1 ;; esac exit 0 # Local Variables: # mode: shell-script # sh-indentation: 2 # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "scriptversion=" # time-stamp-format: "%:y-%02m-%02d.%02H" # time-stamp-time-zone: "UTC" # time-stamp-end: "; # UTC" # End: gpsim-0.27.0/examples/0000775000076400007640000000000012210742353011547 500000000000000gpsim-0.27.0/examples/Makefile.in0000664000076400007640000004506412210742104013537 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = examples DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive cscopelist-recursive \ ctags-recursive dvi-recursive html-recursive info-recursive \ install-data-recursive install-dvi-recursive \ install-exec-recursive install-html-recursive \ install-info-recursive install-pdf-recursive \ install-ps-recursive install-recursive installcheck-recursive \ installdirs-recursive pdf-recursive ps-recursive \ tags-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive am__recursive_targets = \ $(RECURSIVE_TARGETS) \ $(RECURSIVE_CLEAN_TARGETS) \ $(am__extra_recursive_targets) AM_RECURSIVE_TARGETS = $(am__recursive_targets:-recursive=) TAGS CTAGS \ distdir am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) # Read a list of newline-separated strings from the standard input, # and print each of them once, without duplicates. Input order is # *not* preserved. am__uniquify_input = $(AWK) '\ BEGIN { nonempty = 0; } \ { items[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in items) print i; }; } \ ' # Make sure the list of sources is unique. This is necessary because, # e.g., the same source file might be shared among _SOURCES variables # for different programs/libraries. am__define_uniq_tagged_files = \ list='$(am__tagged_files)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | $(am__uniquify_input)` ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ SUBDIRS = modules projects MOSTLYCLEANFILES = *.hex *.cod *.lst *~ CLEANFILES = *.hex *.cod *.lst *~ DISTCLEANFILES = *.hex *.cod *.lst *~ MAINTAINERCLEANFILES = *.hex *.cod *.lst *~ all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu examples/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu examples/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run 'make' without going through this Makefile. # To change the values of 'make' variables: instead of editing Makefiles, # (1) if the variable is set in 'config.status', edit 'config.status' # (which will cause the Makefiles to be regenerated when you run 'make'); # (2) otherwise, pass the desired values on the 'make' command line. $(am__recursive_targets): @fail=; \ if $(am__make_keepgoing); then \ failcom='fail=yes'; \ else \ failcom='exit 1'; \ fi; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" ID: $(am__tagged_files) $(am__define_uniq_tagged_files); mkid -fID $$unique tags: tags-recursive TAGS: tags tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ $(am__define_uniq_tagged_files); \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: ctags-recursive CTAGS: ctags ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) $(am__define_uniq_tagged_files); \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" cscopelist: cscopelist-recursive cscopelist-am: $(am__tagged_files) list='$(am__tagged_files)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: -test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES) clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES) clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(am__recursive_targets) install-am install-strip .PHONY: $(am__recursive_targets) CTAGS GTAGS TAGS all all-am check \ check-am clean clean-generic clean-libtool cscopelist-am ctags \ ctags-am distclean distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ installdirs-am maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \ ps ps-am tags tags-am uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/examples/Makefile.am0000644000076400007640000000027110516516073013526 00000000000000SUBDIRS = modules projects MOSTLYCLEANFILES = *.hex *.cod *.lst *~ CLEANFILES = *.hex *.cod *.lst *~ DISTCLEANFILES = *.hex *.cod *.lst *~ MAINTAINERCLEANFILES = *.hex *.cod *.lst *~ gpsim-0.27.0/examples/projects/0000775000076400007640000000000012210742353013400 500000000000000gpsim-0.27.0/examples/projects/Makefile.in0000664000076400007640000003132112210742104015357 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = examples/projects DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am README ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ EXTRA_DIST = \ README \ digital_stim/Makefile digital_stim/digital_stim.asm digital_stim/digital_stim.stc \ digital_stim/README digital_stim/ChangeLog \ p16f628_test/Makefile p16f628_test/README p16f628_test/f628.asm p16f628_test/f628.stc \ p16f628_test/ChangeLog \ stack_test/Makefile stack_test/README stack_test/ChangeLog stack_test/stack_test.asm \ stack_test/stack_test.stc MOSTLYCLEANFILES = *.hex *.cod *.lst *~ CLEANFILES = *.hex *.cod *.lst *~ DISTCLEANFILES = *.hex *.cod *.lst *~ MAINTAINERCLEANFILES = *.hex *.cod *.lst *~ all: all-am .SUFFIXES: $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu examples/projects/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu examples/projects/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags TAGS: ctags CTAGS: cscope cscopelist: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: -test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES) clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES) clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ cscopelist-am ctags-am distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags-am uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/examples/projects/Makefile.am0000644000076400007640000000103710416273117015356 00000000000000EXTRA_DIST = \ README \ digital_stim/Makefile digital_stim/digital_stim.asm digital_stim/digital_stim.stc \ digital_stim/README digital_stim/ChangeLog \ p16f628_test/Makefile p16f628_test/README p16f628_test/f628.asm p16f628_test/f628.stc \ p16f628_test/ChangeLog \ stack_test/Makefile stack_test/README stack_test/ChangeLog stack_test/stack_test.asm \ stack_test/stack_test.stc MOSTLYCLEANFILES = *.hex *.cod *.lst *~ CLEANFILES = *.hex *.cod *.lst *~ DISTCLEANFILES = *.hex *.cod *.lst *~ MAINTAINERCLEANFILES = *.hex *.cod *.lst *~ gpsim-0.27.0/examples/projects/README0000644000076400007640000000165510416273117014210 00000000000000 gpsim/examples/projects/ In this directory you'll find sample projects that can serve as a template for creating a new project. Each project here attempts to be very simple to illustrate one or two new points. If you want to see an example of a more sophisticated project the please look at gpsim's CVS in the extras/ directory. In there you'll find the LCD module example. digital_stim/ - This project illustrates the use of asynchronous stimuli. The gpsim start up command script is also introduced. stack_test/ - This project illustrates the how gpsim simulates the mid-range core's stack. A trivial multi-tasking switcher is implemented by taking advantage of the circular stack. p16f628_test/ - This project tests all aspects of the 16f628. The '628 is rapidly replacing the 'f84 as the PIC of choice among hobbiest. gpsim-0.27.0/examples/projects/stack_test/0000775000076400007640000000000012210742353015544 500000000000000gpsim-0.27.0/examples/projects/stack_test/ChangeLog0000644000076400007640000000006510416273112017233 00000000000000Tue Dec 25 11:12:34 PST 2001 * Started this example gpsim-0.27.0/examples/projects/stack_test/Makefile0000644000076400007640000000275610516516070017136 00000000000000# Example # # # system programs RM = /bin/rm -f ARC = tar -cvf GZIP = gzip ZIP = zip # gpasm programs ASM = gpasm DIASM = gpdasm CODVIEWER = gpvc -d # simulator GPSIM = gpsim # Programmer DEVICE = 16F84 SERIAL_PORT = /dev/ttyS1 PROG = picp $(SERIAL_PORT) $(DEVICE) -wp # project data PROJECT = stack_test VERSION = 1 SOURCES = stack_test.asm stack_test.stc HEADER = /usr/local/share/gpasm/header DIST_FILES = $(SOURCES) \ stack_test.hex stack_test.asm stack_test.stc \ ChangeLog \ Makefile \ README # derived variables PROJ_VER = $(PROJECT)-$(VERSION) ARCHIVE = $(PROJ_VER).tar ZIP_PROJ_VER = $(PROJECT)$(VERSION) ZIPARCHIVE = $(ZIP_PROJ_VER) LATEST_HEX = $(PROJECT)$(VERSION).hex all: $(PROJECT).cod sim: $(PROJECT).cod $(GPSIM) -c $(PROJECT).stc $(PROJECT).cod: $(SOURCES) $(ASM) -I $(HEADER) $(PROJECT).asm #$(PROJECT).hex: $(PROJECT).asm # $(ASM) -I $(HEADER) $(PROJECT).asm $(ARCHIVE): $(DIST_FILES) mkdir $(PROJ_VER) cp $(DIST_FILES) $(PROJ_VER)/. $(ARC) $(ARCHIVE) $(PROJ_VER) rm -rf $(PROJ_VER) #zip: $(DIST_FILES) zip: $(PROJECT).cod mkdir $(ZIP_PROJ_VER) cp $(DIST_FILES) $(ZIP_PROJ_VER)/. cp $(PROJECT).hex $(ZIP_PROJ_VER)/$(LATEST_HEX) cp $(PROJECT).hex $(LATEST_HEX) $(ZIP) -r $(ZIP_PROJ_VER) $(ZIP_PROJ_VER) rm -rf $(ZIP_PROJ_VER) archive: $(ARCHIVE) $(GZIP) $(ARCHIVE) prog: $(PROJECT).cod $(PROG) $(PROJECT).hex clean: $(RM) *.lst *.cod $(PROJECT)*.gz *~ gpsim-0.27.0/examples/projects/stack_test/README0000644000076400007640000000031610416273112016340 00000000000000Sample project. This project illustrates interesting things you can do with the PIC's circular stack. Assemble the .cod file: $ make Simulate the program: $ make sim or $ gpsim -c stack_test.stc gpsim-0.27.0/examples/projects/stack_test/stack_test.stc0000644000076400007640000000403410516516070020344 00000000000000# another test stimulation file # # the '#' marks the beginning of a comment # # Define an asynchronus stimulus # # This stimulation file illustrates how the stimulus command # may span several lines of input. The only requirement # is that 'end' must be the last statement (of the stimulus) echo Sample asynchronous stimulus file # Create the processor that's to be simulated load s stack_test.cod # If you want to see gpsim spew a ton of debug junk, # then uncomment the next line. # set verbose 0xff stimulus asynchronous_stimulus # or we could've used asy # The initial state AND the state the stimulus is when # it rolls over initial_state 1 # all times are with respect to the cpu's cycle counter start_cycle 100 # the asynchronous stimulus will roll over in 'period' # cycles. Delete this line if you don't want a roll over. period 5000 # Now the cycles at which stimulus changes states are # specified. The initial cycle was specified above. So # the first cycle specified below will toggle this state. # In this example, the stimulus will go high at cycle 100 # and then go low at cycle 200, high at 300, and so on { 203, 0, 300, 1, 400, 0, 600, 1, 1000, 0, 3000, 1 } # specify the ioport that this stimulus drives # starting with 0.0.5 # you'll want to specify the port connection # with the attach command - but, this still works. # port portb 0 # Give the stimulus a name: name asy_test # Finally, tell the command line interface that we're done # with the stimulus end # but we can still have more stuff # Create a stimulus node: node test_node # Now attach the stimulus to an I/O port # Note, the I/O ports are given the name # portxn where x = a,b,c, etc # and n is the bit within the I/O port attach test_node asy_test portb0 # Just for the heck of it, let's set a break point # after we've counted the stimulus going high 16 times: break w temp2==0x10 # In case there's a bug in the program, let's halt simulation # after a million cycles. break c 1000000 set verbose 0 gpsim-0.27.0/examples/projects/stack_test/stack_test.asm0000644000076400007640000000271010516516070020332 00000000000000 list p=16f84 ;; The purpose of this program is to test gpsim's capability to simulate ;; the PIC's stack. ;; ;; Start gpsim: ;; $ gpsim ;; then load the Startup command file 'stack_test.stc': ;; gpsim> load c stack_test.stc ;; ;; OR ;; ;; invoke gpsim with the command file ;; $ gpsim -c stack_test.stc ;; ;; OR ;; ;; invoke the simualtion from the Makefile: ;; make sim ;; In all cases, the stimulus file will load the simulation ;; file and create the stimuli. In the Makefile case, the ;; simulation file will be (re)created if the .asm has been ;; been changed. ;; ;; include "p16f84.inc" cblock 0x20 temp1 temp2 temp3 endc org 0 goto start org 4 start clrf temp1 ; a counter clrf temp2 ; a flag keeping track of the state of port b init_tasks goto Task_0_init init_done return begin ;; Count the rising edges on portb bit 0 movf PORTB,w xorwf temp2,w xorwf temp2,f andwf temp2,w andlw 1 skpz incf temp1,f goto begin Task_0_init: call Task_1_init Task_0: return Task_1_init: call Task_2_init Task_1: btfsc PORTB,0 goto t1b call $+1 t1a movlw 2 return t1b movlw 3 return Task_2_init: call Task_3_init Task_2: return Task_3_init: call Task_4_init Task_3: return Task_4_init: call Task_5_init Task_4: return Task_5_init: call Task_6_init Task_5: return Task_6_init: call Task_7_init Task_6: return Task_7_init: call init_done Task_7: return end gpsim-0.27.0/examples/projects/digital_stim/0000775000076400007640000000000012210742353016051 500000000000000gpsim-0.27.0/examples/projects/digital_stim/ChangeLog0000644000076400007640000000016510416273114017543 00000000000000Wed Nov 28 06:44:31 PST 2001 * Started this example. This is mostly an organized copy of one of gpsim examples. gpsim-0.27.0/examples/projects/digital_stim/Makefile0000644000076400007640000000300110516516072017425 00000000000000# Module example # # # system programs RM = /bin/rm -f ARC = tar -cvf GZIP = gzip ZIP = zip # gpasm programs ASM = gpasm DISASM = gpdasm CODVIEWER = gpvc -d # simulator GPSIM = gpsim # Programmer DEVICE = 16F84 SERIAL_PORT = /dev/ttyS1 PROG = picp $(SERIAL_PORT) $(DEVICE) -wp # project data PROJECT = digital_stim VERSION = 1 SOURCES = digital_stim.asm digital_stim.stc HEADER = /usr/local/share/gpasm/header DIST_FILES = $(SOURCES) \ digital_stim.hex digital_stim.asm digital_stim.stc \ ChangeLog \ Makefile \ README # derived variables PROJ_VER = $(PROJECT)-$(VERSION) ARCHIVE = $(PROJ_VER).tar ZIP_PROJ_VER = $(PROJECT)$(VERSION) ZIPARCHIVE = $(ZIP_PROJ_VER) LATEST_HEX = $(PROJECT)$(VERSION).hex all: $(PROJECT).cod sim: $(PROJECT).cod $(GPSIM) -c $(PROJECT).stc $(PROJECT).cod: $(SOURCES) $(ASM) -I $(HEADER) $(PROJECT).asm #$(PROJECT).hex: $(PROJECT).asm # $(ASM) -I $(HEADER) $(PROJECT).asm $(ARCHIVE): $(DIST_FILES) mkdir $(PROJ_VER) cp $(DIST_FILES) $(PROJ_VER)/. $(ARC) $(ARCHIVE) $(PROJ_VER) rm -rf $(PROJ_VER) #zip: $(DIST_FILES) zip: $(PROJECT).cod mkdir $(ZIP_PROJ_VER) cp $(DIST_FILES) $(ZIP_PROJ_VER)/. cp $(PROJECT).hex $(ZIP_PROJ_VER)/$(LATEST_HEX) cp $(PROJECT).hex $(LATEST_HEX) $(ZIP) -r $(ZIP_PROJ_VER) $(ZIP_PROJ_VER) rm -rf $(ZIP_PROJ_VER) archive: $(ARCHIVE) $(GZIP) $(ARCHIVE) prog: $(PROJECT).cod $(PROG) $(PROJECT).hex clean: $(RM) *.lst *.cod $(PROJECT)*.gz *~ gpsim-0.27.0/examples/projects/digital_stim/README0000644000076400007640000000022410416273114016645 00000000000000Sample project. This project illustrates digital stimuli as used with gpsim. Assemble the .cod file: $ make Simulate the program: $ make sim gpsim-0.27.0/examples/projects/digital_stim/digital_stim.asm0000644000076400007640000000207110516516072021146 00000000000000 list p=16f84 ;; The purpose of this program is to test gpsim's stimulation capability ;; A stimulus is attached to PORTB pin 0 and this program will count ;; the rising edges that are seen on that pin. ;; ;; Start gpsim: ;; $ gpsim ;; then load the Startup command file 'digital_stim.stc': ;; gpsim> load c digital_stim.stc ;; ;; OR ;; ;; invoke gpsim with the command file ;; $ gpsim -c digital_stim.stc ;; ;; OR ;; ;; invoke the simulation from the Makefile: ;; make sim ;; In all cases, the stimulus file will load the simulation ;; file and create the stimuli. In the Makefile case, the ;; simulation file will be (re)created if the .asm has been ;; been changed. ;; ;; include "p16f84.inc" cblock 0x20 temp1 temp2 temp3 endc org 0 goto start org 4 start clrf temp1 ; a counter clrf temp2 ; a flag keeping track of the state of port b begin ;; Count the rising edges on portb bit 0 movf PORTB,w xorwf temp2,w xorwf temp2,f andwf temp2,w andlw 1 skpz incf temp1,f goto begin end gpsim-0.27.0/examples/projects/digital_stim/digital_stim.stc0000644000076400007640000000403510516516072021161 00000000000000# another test stimulation file # # the '#' marks the beginning of a comment # # Define an asynchronus stimulus # # This stimulation file illustrates how the stimulus command # may span several lines of input. The only requirement # is that 'end' must be the last statement (of the stimulus) echo Sample asynchronous stimulus file # Create the processor that's to be simulated load s digital_stim.cod # If you want to see gpsim spew a ton of debug junk, # then uncomment the next line. # set verbose 0xff stimulus asynchronous_stimulus # or we could've used asy # The initial state AND the state the stimulus is when # it rolls over initial_state 1 # all times are with respect to the cpu's cycle counter start_cycle 100 # the asynchronous stimulus will roll over in 'period' # cycles. Delete this line if you don't want a roll over. period 5000 # Now the cycles at which stimulus changes states are # specified. The initial cycle was specified above. So # the first cycle specified below will toggle this state. # In this example, the stimulus will go high at cycle 100 # and then go low at cycle 200, high at 300, and so on { 203, 0, 300, 1, 400, 0, 600, 1, 1000, 0, 3000, 1 } # specify the ioport that this stimulus drives # starting with 0.0.5 # you'll want to specify the port connection # with the attach command - but, this still works. # port portb 0 # Give the stimulus a name: name asy_test # Finally, tell the command line interface that we're done # with the stimulus end # but we can still have more stuff # Create a stimulus node: node test_node # Now attach the stimulus to an I/O port # Note, the I/O ports are given the name # portxn where x = a,b,c, etc # and n is the bit within the I/O port attach test_node asy_test portb0 # Just for the heck of it, let's set a break point # after we've counted the stimulus going high 16 times: break w temp1==0x10 # In case there's a bug in the program, let's halt simulation # after a million cycles. break c 1000000 set verbose 0 gpsim-0.27.0/examples/projects/p16f628_test/0000775000076400007640000000000012210742353015453 500000000000000gpsim-0.27.0/examples/projects/p16f628_test/f628.asm0000644000076400007640000001626110516516073016573 00000000000000 list p=16f628 __CONFIG _WDT_OFF ;; The purpose of this program is to test gpsim's stimulation capability ;; A stimulus is attached to PORTB pin 0 and this program will count ;; the rising edges that are seen on that pin. ;; ;; Start gpsim: ;; $ gpsim ;; then load the Startup command file 'digital_stim.stc': ;; gpsim> load c digital_stim.stc ;; ;; OR ;; ;; invoke gpsim with the command file ;; $ gpsim -c digital_stim.stc ;; ;; OR ;; ;; invoke the simualtion from the Makefile: ;; make sim ;; In all cases, the stimulus file will load the simulation ;; file and create the stimuli. In the Makefile case, the ;; simulation file will be (re)created if the .asm has been ;; been changed. ;; ;; ;; The purpose of this program is to test gpsim's ability to simulate a pic 16f627/8. ;; (this was derived from the similar program for testing the c64). include "p16f628.inc" cblock 0x20 x,y t1,t2,t3 pma_string ; starting here's where a string will be copied from flash endc ;; Take advantage of the upper 16 bytes all banks being aliased cblock 0x70 adr_cnt data_cnt w_temp status_temp endc DATA14 macro _a, _b data (_a<<7) | (_b) endm org 0 goto main org 4 ;; Interrupt ;; movwf w_temp swapf STATUS,W movwf status_temp btfss INTCON,PEIE goto exit_int bcf STATUS,RP1 bcf STATUS,RP0 btfss PIR1,EEIF goto exit_int ;;; eeprom has interrupted bcf PIR1,EEIF exit_int: swapf status_temp,W movwf STATUS swapf w_temp,F swapf w_temp,W retfie main: ;; clear ram movlw 0 call preset_ram movlw 0x55 call preset_ram movlw 0 call preset_ram ;; disable (primarily) global and peripheral interrupts clrf INTCON call obliterate_data_eeprom call bank_access_test call tmr1_test call tmr2_test call tmr1_test2 call tmr1_test3 call pwm_test1 goto $ ;; ;; TMR1 test ;; tmr1_test: ;; Clear all of the bits of the TMR1 control register: ;; this will: ;; Turn the tmr off ;; Select Fosc/4 as the clock source ;; Disable the External oscillator feedback circuit ;; Select a 1:1 prescale clrf T1CON ; bcf PIR1,TMR1IF ; Clear the interrupt/roll over flag ;; Zero the TMR1 clrf TMR1L clrf TMR1H ;; Test rollover ;; the following block of code will test tmr1's rollover for ;; each of the 4 prescale values. clrf x ;; Start the timer bsf T1CON,TMR1ON tmr1_test1: ;; Loop until the timer rolls over: btfss PIR1,TMR1IF goto $-1 bcf PIR1,TMR1IF incf x,F btfss x,2 goto tmr1_test1 clrf x movf T1CON,W addlw (1< fsr =0x120 ;; write to address 0x120 - 0x14f cb2: movwf INDF incf FSR,F btfsc FSR,6 ;loop until fsr == 0x50 btfss FSR,4 ;i.e. check for the bit pattern x1x1xxxx goto cb2 bsf FSR,7 ;fsr == 0xd0 bsf FSR,5 ;fsr == 0xf0 ;; write to address 0x1f0 - 0x1ff cb3: movwf INDF incfsz FSR,F goto cb3 clrf STATUS ;clear irp,rp0,rp1 return ;; ========================================================= ;; bank_access_test: ;; ;; use the indirect register to increment register 0x70. ;; This register is aliased in all four banks. ;; Then use direct addressing to verify that the increment ;; occurred. Note that bank switching is necessary to access ;; 0x70 directly in the other banks (that is to access 0xf0, ;; 0x170 and 0x1f0 directly, you need to switch to bank 1,2 ;; or 3 respectively). bank_access_test: bcf STATUS,RP0 movlw 0x70 movwf FSR clrf 0x70 incf INDF,F btfss 0x70,0 goto $-1 bsf STATUS,RP0 ;bank 1 incf INDF,F btfsc 0x70,0 goto $-1 bsf STATUS,RP1 ;bank 3 incf INDF,F btfss 0x70,0 goto $-1 bcf STATUS,RP0 ;bank 2 incf INDF,F btfsc 0x70,0 goto $-1 bcf STATUS,RP1 ;bank 0 return ;------------------------------------------------------------- ; obliterate_data_eeprom ; ; This routine will loop 255 times and write the loop iteration ;number to the entire contents of the EEPROM. I.e. on the first ;pass all 1's are written, on the second pass all 2's are written ;and so on. obliterate_data_eeprom clrf adr_cnt clrf data_cnt incf data_cnt,f bcf STATUS,RP1 ;Point to bank 1 bsf STATUS,RP0 ;(That's where the EEPROM registers are) bsf PIE1,EEIE ;Enable eeprom interrupts bsf INTCON,PEIE ;The peripheral interrupt bit mus also be set ;to allow ints. l1: movf adr_cnt,W movwf EEADR movf data_cnt,W movwf EEDATA bcf INTCON,GIE ;Disable interrupts while enabling write bsf EECON1,WREN ;Enable eeprom writes movlw 0x55 ;Magic sequence to enable eeprom write movwf EECON2 movlw 0xaa movwf EECON2 bsf EECON1,WR ;Begin eeprom write bsf INTCON,GIE ;Re-enable interrupts btfsc EECON1,WR ;Wait for the write to complete goto $-1 incf adr_cnt,f btfss adr_cnt,7 ;Does the address == 0x80? goto l1 clrf adr_cnt incfsz data_cnt,F goto l1 return org 0x2100 de "Linux is cool!",0 de 0xaa,0x55,0xf0,0x0f de 'g','p','s','i','m' de "f628.asm - a program to test " de "eveything an 'f877 can possibly do." end gpsim-0.27.0/examples/projects/p16f628_test/ChangeLog0000644000076400007640000000006610416273117017150 00000000000000Sat Dec 29 08:22:01 PST 2001 * Started this example. gpsim-0.27.0/examples/projects/p16f628_test/f628.stc0000644000076400007640000000345210516516073016602 00000000000000# another test stimulation file # # the '#' marks the beginning of a comment # # Define an asynchronus stimulus # # This stimulation file illustrates how the stimulus command # may span several lines of input. The only requirement # is that 'end' must be the last statement (of the stimulus) echo Sample asynchronous stimulus file # Create the processor that's to be simulated load s f628.cod # If you want to see gpsim spew a ton of debug junk, # then uncomment the next line. # set verbose 0xff stimulus asynchronous_stimulus # or we could've used asy # The initial state AND the state the stimulus is when # it rolls over initial_state 1 # all times are with respect to the cpu's cycle counter start_cycle 100 # the asynchronous stimulus will roll over in 'period' # cycles. Delete this line if you don't want a roll over. period 5000 # Now the cycles at which stimulus changes states are # specified. The initial cycle was specified above. So # the first cycle specified below will toggle this state. # In this example, the stimulus will go high at cycle 100 # and then go low at cycle 200, high at 300, and so on { 203, 0, 300, 1, 400, 0, 600, 1, 1000, 0, 3000, 1 } # specify the ioport that this stimulus drives # starting with 0.0.5 # you'll want to specify the port connection # with the attach command - but, this still works. # port portb 0 # Give the stimulus a name: name asy_test # Finally, tell the command line interface that we're done # with the stimulus end # but we can still have more stuff # Create a stimulus node: node test_node # Now attach the stimulus to an I/O port # Note, the I/O ports are given the name # portxn where x = a,b,c, etc # and n is the bit within the I/O port attach test_node asy_test portb0 set verbose 0 gpsim-0.27.0/examples/projects/p16f628_test/Makefile0000644000076400007640000000272110516516073017040 00000000000000# Module example # # # system programs RM = /bin/rm -f ARC = tar -cvf GZIP = gzip ZIP = zip # gpasm programs ASM = gpasm DISASM = gpdasm CODVIEWER = gpvc -d # simulator GPSIM = gpsim # Programmer DEVICE = 16F84 SERIAL_PORT = /dev/ttyS1 PROG = picp $(SERIAL_PORT) $(DEVICE) -wp # project data PROJECT = f628 VERSION = 1 SOURCES = f628.asm f628.stc HEADER = /usr/local/share/gpasm/header DIST_FILES = $(SOURCES) \ f628.hex f628.asm f628.stc \ ChangeLog \ Makefile \ README # derived variables PROJ_VER = $(PROJECT)-$(VERSION) ARCHIVE = $(PROJ_VER).tar ZIP_PROJ_VER = $(PROJECT)$(VERSION) ZIPARCHIVE = $(ZIP_PROJ_VER) LATEST_HEX = $(PROJECT)$(VERSION).hex all: $(PROJECT).cod sim: $(PROJECT).cod $(GPSIM) -c $(PROJECT).stc $(PROJECT).cod: $(SOURCES) $(ASM) -I $(HEADER) $(PROJECT).asm #$(PROJECT).hex: $(PROJECT).asm # $(ASM) -I $(HEADER) $(PROJECT).asm $(ARCHIVE): $(DIST_FILES) mkdir $(PROJ_VER) cp $(DIST_FILES) $(PROJ_VER)/. $(ARC) $(ARCHIVE) $(PROJ_VER) rm -rf $(PROJ_VER) #zip: $(DIST_FILES) zip: $(PROJECT).cod mkdir $(ZIP_PROJ_VER) cp $(DIST_FILES) $(ZIP_PROJ_VER)/. cp $(PROJECT).hex $(ZIP_PROJ_VER)/$(LATEST_HEX) cp $(PROJECT).hex $(LATEST_HEX) $(ZIP) -r $(ZIP_PROJ_VER) $(ZIP_PROJ_VER) rm -rf $(ZIP_PROJ_VER) archive: $(ARCHIVE) $(GZIP) $(ARCHIVE) prog: $(PROJECT).cod $(PROG) $(PROJECT).hex clean: $(RM) *.lst *.cod $(PROJECT)*.gz *~ gpsim-0.27.0/examples/projects/p16f628_test/README0000644000076400007640000000017610416273117016260 00000000000000Sample project. This project illustrates the p16f628. Assemble the .cod file: $ make Simulate the program: $ make sim gpsim-0.27.0/examples/modules/0000775000076400007640000000000012210742353013217 500000000000000gpsim-0.27.0/examples/modules/Makefile.in0000664000076400007640000003144312210742104015203 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = examples/modules DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ EXTRA_DIST = \ mod_test/mod_test.asm mod_test/mod_test.stc mod_test/Makefile mod_test/README \ led_test/led_mod.asm led_test/led_mod.stc led_test/Makefile led_test/README \ usart_test/16f877.lkr usart_test/Makefile usart_test/README \ usart_test/usart_test.asm usart_test/usart_test.stc \ usart_gui/Makefile usart_gui/README usart_gui/usart_gui.asm \ usart_gui/usart_gui.stc \ logic_test/logic_mod.asm logic_test/logic_mod.stc \ logic_test/Makefile logic_test/README MOSTLYCLEANFILES = *.hex *.cod *.lst *~ CLEANFILES = *.hex *.cod *.lst *~ DISTCLEANFILES = *.hex *.cod *.lst *~ MAINTAINERCLEANFILES = *.hex *.cod *.lst *~ all: all-am .SUFFIXES: $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu examples/modules/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu examples/modules/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags TAGS: ctags CTAGS: cscope cscopelist: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: -test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES) clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES) clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ cscopelist-am ctags-am distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags-am uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/examples/modules/Makefile.am0000644000076400007640000000117310516516067015203 00000000000000EXTRA_DIST = \ mod_test/mod_test.asm mod_test/mod_test.stc mod_test/Makefile mod_test/README \ led_test/led_mod.asm led_test/led_mod.stc led_test/Makefile led_test/README \ usart_test/16f877.lkr usart_test/Makefile usart_test/README \ usart_test/usart_test.asm usart_test/usart_test.stc \ usart_gui/Makefile usart_gui/README usart_gui/usart_gui.asm \ usart_gui/usart_gui.stc \ logic_test/logic_mod.asm logic_test/logic_mod.stc \ logic_test/Makefile logic_test/README MOSTLYCLEANFILES = *.hex *.cod *.lst *~ CLEANFILES = *.hex *.cod *.lst *~ DISTCLEANFILES = *.hex *.cod *.lst *~ MAINTAINERCLEANFILES = *.hex *.cod *.lst *~ gpsim-0.27.0/examples/modules/mod_test/0000775000076400007640000000000012210742353015035 500000000000000gpsim-0.27.0/examples/modules/mod_test/mod_test.stc0000644000076400007640000000177610516516067017327 00000000000000# Script for testing modules # # The purpose of this script is to load a simple # program for a PIC (16F84), load the gpsim module library, # and illustrate how modules can be connected to pics. load s mod_test.cod # load the gpsim module library. Not that this is a 'shared library'. # If the library fails to load then 1) it's not installed (try installing # gpsim) 2) or the path to library is not available (see the documentation # on modules). module library libgpsim_modules.so # display all of the modules that are in the library: # module list # load a specific module from the module library and give it a name # In this case we're loading two pull up resistors and two pull downs # (notice the alias of pu for pullup) module load pullup R1 module load pu R2 module load pulldown R3 module load pd R4 # create nodes that can connect the Pic and the resistors node n1 node n2 node n3 node n4 attach n1 portb0 R1.pin attach n2 portb1 R2.pin attach n3 portb2 R3.pin attach n4 portb3 R4.pin gpsim-0.27.0/examples/modules/mod_test/Makefile0000644000076400007640000000125510416273110016412 00000000000000# Module example # # # system programs RM = /bin/rm -f ARC = tar -cvf ZIP = gzip # gpasm programs ASM = gpasm DIASM = gpdasm CODVIEWER = gpvc -d # simulator GPSIM = gpsim # project data PROJECT = mod_test VERSION = 0.0.1 HEADER = /usr/local/share/gpasm/header # derived variables ARCHIVE = $(PROJECT)-$(VERSION).tar all: $(PROJECT).cod sim: $(PROJECT).cod $(GPSIM) -c $(PROJECT).stc $(PROJECT).cod: $(PROJECT).asm $(ASM) -I $(HEADER) $(PROJECT).asm $(ARCHIVE): $(ARC) $(ARCHIVE) * archive: $(ARCHIVE) $(ZIP) $(ARCHIVE) clean: $(RM) *.hex *.lst *.cod $(PROJECT)*.gz *~ gpsim-0.27.0/examples/modules/mod_test/README0000644000076400007640000000054510516770313015643 00000000000000mod_test The mod_test is a very simple example of PIC code interfacing with gpsim modules. The modules illustrated are pullup and pulldown resistors. Two of each are instantiated and connected to the lower nibble of portb. The PIC program is a simple loop that writes values out to port B. RUNNING The example is run by: $ gpsim -c mod_test.stc gpsim-0.27.0/examples/modules/mod_test/mod_test.asm0000644000076400007640000000073110416273110017270 00000000000000 list p=16c84 ;; ;; mod_test.asm - a simple program to test gpsim's ability to interface ;; to modules ;; include "p16c84.inc" cblock 0x0c pb_shadow temp endc org 0 begin ;; Make all of portb I/O pins inputs movlw 0xff bsf STATUS,RP0 movwf TRISB^0x80 bcf STATUS,RP0 movf PORTB,w movwf pb_shadow bsf STATUS,RP0 clrf TRISB^0x80 bcf STATUS,RP0 bsf temp,4 l1: incf PORTB,f decfsz temp,f goto l1 clrf PORTB goto begin endgpsim-0.27.0/examples/modules/usart_gui/0000775000076400007640000000000012210742353015221 500000000000000gpsim-0.27.0/examples/modules/usart_gui/usart_gui.stc0000644000076400007640000000253510416273101017655 00000000000000# # Startup commands for testing a p16f628 usart # # uncomment for debugging gpsim # set verbose 3 # Source code: load s usart_gui.cod # Set the Clock frequency to 4 Mhz. frequency 4000000 module library libgpsim_modules # load the usart module from the module library and give it a name module load usart U1 # Stimuli: # Tie rx and tx together to create a loop back. # This will cause whatever is transmitted to be received... #node loop_back #attach loop_back portc6 portc7 node PIC_tx node PIC_rx # usart pin out: # 1 - Tx - Transmit # 2 - Rx - Receive # 3 - CTS - Clear To Send # 4 - RTS - Request To Send # Let the usart receiver monitor the data flow. attach PIC_tx portb2 U1.RXPIN attach PIC_rx portb1 U1.TXPIN # set the usart module's baud rate U1.txbaud=9600 U1.rxbaud=9600 gpsim-0.27.0/examples/modules/usart_gui/Makefile0000644000076400007640000000034410416273101016574 00000000000000PROJECT = usart_gui OBJECTS = $(PROJECT).o OUTPUT = $(PROJECT).cod STC = $(PROJECT).stc SRC = $(PROJECT).asm GPSIM = gpsim all : $(OUTPUT) $(OUTPUT) : $(SRC) gpasm -w1 $(SRC) clean: rm -f *~ *.o *.lst *.map *.hex *.cod gpsim-0.27.0/examples/modules/usart_gui/usart_gui.asm0000644000076400007640000001201110446477750017655 00000000000000 ;; The purpose of this program is to test gpsim's ability to simulate ;; USART in the 14bit core. list p=16f628 __CONFIG _CP_OFF & _WDT_OFF & _HS_OSC & _PWRTE_ON & _LVP_OFF & _BODEN_OFF & _MCLRE_OFF include "p16f628.inc" #define RX_BUF_SIZE 0x10 #define ECHO 7 #define CTL_A 6 cblock 0x20 rx_buffer : RX_BUF_SIZE ; must start at 0xn0 line_buffer : RX_BUF_SIZE ; must start at 0xn0 temp1 temp2 temp3 status_temp fsr_temp line_ptr rx_ptr cmd_mode line_first ; first character in line buffer line_last ; last character in line buffer rx_first ; first character to rx rx_last ; last character to rx endc cblock 0x70 w_temp ; avalable at any bank endc org 0 goto start org 4 ;; Interrupt ;; movwf w_temp ; save W swapf STATUS,w bcf STATUS,RP0 movwf status_temp ; save STATUS btfsc INTCON,PEIE btfss PIR1,RCIF goto int_done ;;; movf FSR,w movwf fsr_temp call rx_put movf fsr_temp,w movwf FSR int_done: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie GREET dt "If you can see this then USART module can receive data\n" dt "Focus on this window and type on keyboard. If charaters " dt "appear in window, USART module can send and reciever.\n", 0 send_greet movlw GREET movwf line_ptr goto prompt_loop ;; ---------------------------------------------------- ;; ;; start ;; start clrf STATUS call rx_init clrf cmd_mode ; initialize command mode clrf PORTA clrf PORTB movlw 0x07 ; turn off comparitor movwf CMCON ;; USART Initialization ;; ;; Turn on the high baud rate (BRGH), disable the transmitter, ;; disable synchronous mode. ;; bsf STATUS,RP0 movlw (1< include __CONFIG _WDT_OFF errorlevel -302 radix dec ;---------------------------------------------------------------------- ; RAM Declarations ; INT_VAR UDATA 0x20 w_temp RES 1 status_temp RES 1 pclath_temp RES 1 fsr_temp RES 1 INT_VAR1 UDATA 0xA0 w_temp1 RES 1 ;Alias for w_temp at address 0x20 GPR_DAT UDATA #define RX_BUF_SIZE 0x10 temp1 RES 1 temp2 RES 1 temp3 RES 1 tx_ptr RES 1 rx_ptr RES 1 rx_buffer RES RX_BUF_SIZE ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,w clrf STATUS movwf status_temp movf PCLATH,w movwf pclath_temp clrf PCLATH bcf STATUS,RP0 btfsc INTCON,PEIE btfss PIR1,RCIF goto int_done ;;; movf FSR,w movwf fsr_temp incf rx_ptr,w andlw 0x0f movwf rx_ptr addlw rx_buffer movwf FSR movf RCREG,w movwf INDF movf fsr_temp,w movwf FSR int_done: clrf STATUS movf pclath_temp,w movwf PCLATH swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;; ---------------------------------------------------- ;; ;; start ;; MAIN CODE start .sim ".frequency=20e6" .sim "module library libgpsim_modules" .sim "module load usart U1" ; .sim "U1.xpos = 250.0" ; .sim "U1.ypos = 80.0" .sim "node PIC_tx" .sim "node PIC_rx" ;; Tie the USART module to the PIC .sim "attach PIC_tx portc6 U1.RXPIN" .sim "attach PIC_rx portc7 U1.TXPIN" ;; Set the USART module's Baud Rate .sim "U1.txbaud = 9600" .sim "U1.rxbaud = 9600" .sim "U1.xpos = 216.0" .sim "U1.ypos = 48.0" ;; USART Initialization ;; ;; Turn on the high baud rate (BRGH), disable the transmitter, ;; disable synchronous mode. ;; clrf STATUS bsf PORTC,6 ;Make sure the TX line drives high when ;it is programmed as an output. bsf STATUS,RP0 bsf TRISC,7 ;RX is an input bcf TRISC,6 ;TX is an output ;; CSRC - clock source is a don't care ;; TX9 - 0 8-bit data ;; TXEN - 0 don't enable the transmitter. ;; SYNC - 0 Asynchronous ;; BRGH - 1 Select high baud rate divisor ;; TRMT - x read only ;; TX9D - 0 not used movlw (1< 0.25.0-1 - Add LGPLv2+ license, do not include *.a files * Sun Mar 01 2009 Roy Rankin 0.23.0-1 - Convert doc files to UTF8 character set, version 0.23.0 * Thu Sep 27 2007 Alain Portal 0.22.0-5 - Add BR popt-devel * Tue Aug 21 2007 Alain Portal 0.22.0-4 - Licence tag clarification * Tue Feb 13 2007 Alain Portal 0.22.0-3 - Remove Makefiles that are in conflict between i386 and x86_64 arch Fix #228362 * Mon Feb 5 2007 Alain Portal 0.22.0-2 - FE7 rebuild * Tue Nov 14 2006 Alain Portal 0.22.0-1 - New upstream version - Remove patches that are no more needed (applied by upstream) * Thu Oct 05 2006 Christian Iseli 0.21.11-9 - rebuilt for unwind info generation, broken in gcc-4.1.1-21 * Sat Sep 23 2006 Alain Portal 0.21.11-8 - Add patch to fix a ktechlab crash, a ktechlab upstream contribution See http://ktechlab.org/download/gpsim.php - Use macros for rm and make - Use macro style instead of variable style * Fri Sep 1 2006 Alain Portal 0.21.11-7 - FE6 rebuild * Wed Mar 15 2006 Alain Portal 0.21.11-6 - Update Patch * Wed Mar 15 2006 Alain Portal 0.21.11-5 - Update Patch * Tue Mar 14 2006 Alain Portal 0.21.11-4 - Patch to make gcc-4.1.0 happy * Mon Mar 13 2006 Alain Portal 0.21.11-3 - Rebuild for FE5 * Thu Oct 6 2005 Alain Portal 0.21.11-2 - Remove useless Requires * Wed Oct 5 2005 Alain Portal 0.21.11-1 - New version - Improve download url * Fri Sep 30 2005 Alain Portal 0.21.4-5 - Improve prep section to make rpmlint happy - Contributions of Jose Pedro Oliveira Thanks to him. * Mon Sep 19 2005 Alain Portal 0.21.4-4 - Add missing a rm -rf RPM_BUILD_ROOT statement in the install section * Thu Sep 15 2005 Alain Portal 0.21.4-3 - Exclude .la file - Add examples * Tue Sep 13 2005 Alain Portal 0.21.4-2 - License is GPL - Add french summary and description * Mon Sep 12 2005 Alain Portal 0.21.4-1 - New version * Mon Nov 8 2004 Alain Portal 0:0.21.2-0.fdr.2 - Add BuildRequires flex, readline-devel * Wed Oct 27 2004 Alain Portal 0:0.21.2-0.fdr.1 - Initial Fedora RPM gpsim-0.27.0/HISTORY0000644000076400007640000001730610416272361010745 00000000000000gpsim - Gnu Pic Simulator, a simulator for Microchip's PIC microcontrollers. T. Scott Dattalo See the ChangeLog for changes since 0.20.0 28JUL00 gpsim-0.20.0 o Modules - gpsim now supports dynamically loaded modules -- module command o gui - upgraded to latest versions of gtk & gtkextra o gui - Menu items now work o gui - button bar o gui - now refreshes while simulating o gui - Stack Window has been added o BSD is now supported o numerous bug fixes 05APR00 gpsim-0.19.0 o Daniel Schudel joins gpsim development. -- Added support for the 16x5x family o Added 16f87x family o gui - Added Program Memory sheet -- Added support for program memory writes o gui - Added Breadboard window (graphical pinout) o Asynchronous mode of the usart fixed. o A/D converter enhanced o Analog Stimuli revisited. o Scripting was fixed. o cli - Once again, gpsim can be built without the gui. 03FEB00 gpsim-0.18.0 o cli - added 'processor pins' command to display the state of a pic's I/O pins o cli - added 'set' command for modifying gpsim behavior flags. set options supported: -- verbose - if set, diagnostic info will be displayed -- radix - not supported yet -- gui_update - controls the rate at which the gui is refreshed o cli - added 's' option to the dump command to display only the special function registers (and not the rest of ram). o 18cxxx: -- TBLRD & TBLWT instructions are now supported -- MULLW & MULWF instructions are now supported -- configuration word support -- tmr0 interrupt o Cycle counter - 64 bits is now fully supported o config word bug fixed o gui - added Watch window o gui - added more color coding to register window o gui - removed stagnant menu selections o gui - window state is saved between gpsim sessions -- This requires a new package `eXdbm'. o getopt is now used to process invocation options (now you can have spaces between the options and file names). o support >64k object code in .cod files o gtksheet has been removed from the distribution -- This means that you'll have to install gtk+-extra, the package that supports gtk-sheet (see INSTALL) o .cod file format bug fixes (you'll need the latest gpasm) o __config word for 18cxxx family is now supported 16NOV99 gpsim-0.17.0 o gui - Major overhaul of Register Window o gui - Symbol window added o 18Cxxx -- Interrupts are now supported -- TMR0 is implemented -- USART asynchronous mode is supported o automake is now used to create the makefiles o version numbering has changed so that 'minor releases' (which by definition are the only ones I've made) are now expressed in the middle revision instead of the last revision number. o numerous bug fixes o Cycle counter is now 64 bits. gpsim-0.0.16 o 18Cxxx core has been added o Ralf Forsberg has joined me in development. His major contributions have been in the gui code. Some of what he's done: - Wrote a new source browser with these features: -- Syntax highlighting (e.g. opcodes and comments are colored differently) -- Iconic indicators (e.g. bitmaps indicating breaks, current pc...) -- Multiple sources - Significant restructuring of the gpsim to gui interface 28JUL99 gpsim-0.0.15 o gui - asm source browser o gui - program memory browser o gui - register viewer enhancements o gui - control menu o numerous bug fixes 30JUN99 gpsim-0.0.14 o gui o numerous bug fixes 25APR99 gpsim-0.0.13 o Split the command line interface from simulator - created a `src' directory for the simulator - created a `cli' directory for the command line interface o Re-wrote the cli to use bison and flex (whew - whatabitch) o Hi-Tech C-compiler .cod files can be loaded by gpsim now. o Fixed C++ errors that egcs abhored but gcc ignored. 08MAR99 gpsim-0.0.12 o Added support for .cod files (mostly in cod.cc) o Added more symbolic debugging features o Added 'list' command for listing source files o Updated the 'load' command for loading .cod files o Repeat last command with carriage return o Added more documentation 10JAN99 gpsim-0.0.11 o Added support for the PIC16C74 o Fixed core dumps associated with the 12C50x (again, dammit) o Fundamentally changed the way registers are created. o Added a 'config' script 20DEC98 gpsim-0.0.10 o Added support for the PIC16C71 o Enhanced the asynchronous stimulus to support analog values o Added a triangle_wave stimulus (mainly for testing) o Changed the behavior of 'run' to ignore a breakpoint if there is one set at the current instruction (see below) o Added a few examples illustrating the use of analog stimuli 07DEC98 gpsim-0.0.9 o Added support for the 12c508 and 12c509 o Bug Fixes: - DC bit wasn't updated correctly in add's and sub's (if W was the destination) - stack was rolling over after 7 pushes - goto's and call's were limited to 10 bits o Added the command line option '-v' and the command version. Both echo gpsim's version. o Enhanced 'it.asm' and added 'it_12bit.asm' - two routines that exercise gpsim's ability to simulate the pic instructions. o Added a trace for skipped instructions (before you'd see skipped instructions the same as non skipped ones in the trace buffer). 16NOV98 gpsim-0.0.8 o Fixed pcl related bugs (see the new pcl_test.asm for examples) o Implemented the TMR2 peripheral o Implemented the CCP1 and CCP2 peripherals o Implemented the TMR1 peripheral o added more support for the PIC16C64 o began support for the PIC16C65 o fixed the configuration word loading that got broke in the last release 21OCT98 gpsim-0.0.7 o added new command 'processor' o added new command 'load' - Startup command files can now be loaded any time and can be nested. o added new command 'symbol' o added new command 'reset' o redesigned the pic processor base class o added new file p16x8x o added support for the PIC16CR83, PIC16CR84, PIC16F83, PIC16F84 o added new file p16x6x o added support for the PIC16C61 o began support for the PIC16C64 o Changed the command line invocation: -p now selects a processor and not a core (e.g. -p14 used to be the way gp sim liked to select a device within the midrange, 14-bit family; now you must specify the specific device you wish to simulate: -pp16c61 .) o Generally overhauled everything in anticipation of supporting the 12-bit core 30SEP98 gpsim-0.0.6 o now can asynchronously halt the execution. o Multiplexed I/O pins are now supported (better). It's possible to clock TMR0 from an external clock now o The c84 is now fully supported - though not thoroughly debugged o I fixed two nasty cycle breakpoint bugs, single-stepping during a pending interrupt, and a couple of other minor annoyances. o I've begun formal documentation, but it is not included with this release. 18SEP98 gpsim-0.0.5 o added new command 'node' o added new command 'attach' o redesigned the stimulus infrastructure. o added 'name' option to stimuli o iopins are now considered stimuli 04SEP98 gpsim-0.0.4 o added new command 'stimulus' o added new command 'echo' o redesigned the breakpoint mechanism for register breaks o added support for startup configuration files o began support for stimulus files o began support for symbols o interrupts are working 28AUG98 gpsim-0.0.3 o added support for interrupts o TMR0 and WDT are now working o added new command 'x' for examining/modifying registers o added a 'break wdt' - break on wdt timeout o now you can step over a breakpoint 17AUG98 gpsim-0.0.2 o added readline library and made the command line interface more robust o eeprom is now working 30JUL98 gpsim-0.0.1 o initial release - basic stuff gpsim-0.27.0/gui/0000775000076400007640000000000012210742353010515 500000000000000gpsim-0.27.0/gui/gui_symbols.h0000644000076400007640000000256110416272633013151 00000000000000/* Copyright (C) 1998,1999,2000,2001,2002,2003,2004 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __GUI_SYMBOLS_H__ #define __GUI_SYMBOLS_H__ // // The symbol window // class Symbol_Window : public GUI_Object { public: GtkWidget *symbol_clist; GList *symbols; GtkWidget *popup_menu; int current_row; int filter_addresses; int filter_constants; int filter_registers; GtkWidget *addressesbutton; GtkWidget *constantsbutton; GtkWidget *registersbutton; int load_symbols; Symbol_Window(GUI_Processor *gp); virtual void Build(void); virtual void Update(void); void NewSymbols(void); void SelectSymbolName(char *name); }; #endif // __GUI_SYMBOLS_H__ gpsim-0.27.0/gui/gui_statusbar.cc0000644000076400007640000004157311402374355013635 00000000000000/* Copyright (C) 1998,1999,2000,2001 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "../config.h" #ifdef HAVE_GUI #include #include #include #include #include #include //#define DEBUG #include "gui.h" #include "gui_statusbar.h" #include "../src/processor.h" //======================================================================== class StatusBarXREF : public CrossReferenceToGUI { public: void Update(int new_value) { StatusBar_Window *sbw; sbw = (StatusBar_Window *) (parent_window); sbw->Update(); } }; //------------------------------------------------------------------------ static void LabeledEntry_callback(GtkWidget *entry, LabeledEntry *le) { const char *text; unsigned int value; char *bad_position; if(!gpGuiProcessor || !gpGuiProcessor->cpu || !le || !le->entry) return; text=gtk_entry_get_text (GTK_ENTRY (le->entry)); value = strtoul(text, &bad_position, 16); if( strlen(bad_position) ) return; /* string contains an invalid number */ le->put_value(value); if(le->parent) le->parent->Update(); return; } //======================================================================== EntryWidget::EntryWidget() { entry = 0; parent = 0; } void EntryWidget::SetEntryWidth(int string_width) { if(entry) gtk_entry_set_width_chars(GTK_ENTRY (entry), string_width); } void EntryWidget::AssignParent(GUI_Object *new_parent) { parent = new_parent; } void EntryWidget::Create(bool isEditable) { entry = gtk_entry_new (); if(!isEditable) gtk_entry_set_editable(GTK_ENTRY(entry),0); gtk_widget_show (entry); } //======================================================================== LabeledEntry::LabeledEntry(void) { label = 0; } #if GTK_MAJOR_VERSION < 2 #define gtk_style_get_font(X) X->font #endif void LabeledEntry::Create(GtkWidget *box, char *clabel, int string_width, bool isEditable=true) { label = (GtkWidget *)gtk_label_new (clabel); gtk_misc_set_alignment (GTK_MISC (label), 1.0, 0.5); gtk_widget_set_usize (label, 0, 15); gtk_box_pack_start (GTK_BOX (box), label, FALSE, FALSE, 0); gtk_widget_show (label); EntryWidget::Create(isEditable); gtk_entry_set_text (GTK_ENTRY (entry), "----"); SetEntryWidth(string_width); gtk_box_pack_start (GTK_BOX (box), entry, FALSE, FALSE, 0); } void LabeledEntry::Update(void) { } void LabeledEntry::put_value(unsigned int new_value) { } void LabeledEntry::NewLabel(char *clabel) { if(label) gtk_label_set_text(GTK_LABEL(label),clabel); } //------------------------------------------------------------------------ RegisterLabeledEntry::RegisterLabeledEntry(GtkWidget *box, Register *new_reg, bool isEditable=true) : LabeledEntry() { reg = new_reg; if(reg) { pCellFormat = new char[10]; sprintf(pCellFormat,"0x%%0%dx",reg->register_size()*2); label = (GtkWidget *)gtk_label_new ((char *) reg->name().c_str()); gtk_misc_set_alignment (GTK_MISC (label), 1.0, 0.5); gtk_box_pack_start (GTK_BOX (box), label, FALSE, FALSE, 0); gtk_widget_show (label); entry = gtk_entry_new (); SetEntryWidth(2 + reg->register_size()*2); Update(); gtk_box_pack_start (GTK_BOX (box), entry, FALSE, FALSE, 0); gtk_widget_show (entry); if(!isEditable) gtk_entry_set_editable(GTK_ENTRY(entry),0); gtk_signal_connect(GTK_OBJECT(entry), "activate", GTK_SIGNAL_FUNC(LabeledEntry_callback), this); } else pCellFormat=0; } void RegisterLabeledEntry::put_value(unsigned int new_value) { if(reg) reg->put_value(new_value); } void RegisterLabeledEntry::Update(void) { char buffer[32]; if(reg && pCellFormat) { unsigned int value = reg->get_value(); sprintf(buffer,pCellFormat,value); gtk_entry_set_text (GTK_ENTRY (entry), buffer); } } void RegisterLabeledEntry::AssignRegister(Register *new_reg) { reg = new_reg; if(pCellFormat) delete pCellFormat; if(reg) { pCellFormat = new char[10]; sprintf(pCellFormat,"0x%%0%dx",reg->register_size()*2); NewLabel((char *) reg->name().c_str()); SetEntryWidth(2 + reg->register_size()*2); } } //------------------------------------------------------------------------ void StatusBar_Window::Update(void) { if (!created) return; //update the displayed values if(!gp || !gp->cpu) return; list::iterator iRLE; for(iRLE = entries.begin(); iRLE != entries.end(); ++iRLE) (*iRLE)->Update(); } /* * CreateStatusBar * * Create the status bar at the bottom of the window * * * vbox_main - The box to which we will append. * */ void StatusBar_Window::Create(GtkWidget *vbox_main) { if(created) return; Dprintf((" %s\n",__FUNCTION__)); /* --- Put up h-box --- */ gtk_box_pack_end (GTK_BOX (vbox_main), hbox, FALSE, FALSE, 0); gtk_widget_show (hbox); created=1; } /* NewProcessor * */ void StatusBar_Window::NewProcessor(GUI_Processor *_gp, MemoryAccess *_ma) { if(!_gp || !_gp->cpu || !_ma) return; if(ma) return; gp = _gp; ma = _ma; Dprintf((" %s\n",__FUNCTION__)); list::iterator iReg; for(iReg = ma->SpecialRegisters.begin(); iReg != ma->SpecialRegisters.end(); ++iReg) entries.push_back(new RegisterLabeledEntry(hbox, *iReg)); /* Now create a cross-reference link that the simulator can use to * send information back to the gui */ Program_Counter * pPC; ProgramMemoryAccess* pPMA; pPMA = dynamic_cast(ma); if(gp->cpu && gp->cpu->pc) { pPC = pPMA == NULL ? gp->cpu->pc : pPMA->GetProgramCounter(); StatusBarXREF *cross_reference; cross_reference = new StatusBarXREF(); cross_reference->parent_window_type = WT_status_bar; cross_reference->parent_window = (gpointer) this; cross_reference->data = (gpointer) this; pPC->add_xref((gpointer) cross_reference); } Update(); } StatusBar_Window::StatusBar_Window(void) { gp = 0; ma = 0; cpu_cycles = 0; time = 0; created = false; /* --- Create h-box for holding the status line --- */ hbox = gtk_hbox_new (FALSE, 0); } #if 0 class CyclesLabeledEntry : public LabeledEntry { public: CyclesLabeledEntry(); virtual void Update(void); }; typedef enum { MENU_TIME_USECONDS, MENU_TIME_MSECONDS, MENU_TIME_SECONDS, MENU_TIME_HHMMSS } menu_id; typedef struct _menu_item { char *name; menu_id id; } menu_item; class TimeLabeledEntry : public LabeledEntry { public: TimeLabeledEntry(); virtual void Update(void); GtkWidget *build_menu(); void set_time_format(menu_id id) { time_format = id; } GtkWidget *menu; menu_id time_format; }; struct popup_data { TimeLabeledEntry *tle; menu_id id; }; //======================================================================== class StatusBarXREF : public CrossReferenceToGUI { public: void Update(int new_value) { StatusBar_Window *sbw; sbw = (StatusBar_Window *) (parent_window); sbw->Update(); } /** * Remove() * Override to circumvent the default behavior */ void Remove(void) {} }; //------------------------------------------------------------------------ static void LabeledEntry_callback(GtkWidget *entry, LabeledEntry *le) { const char *text; unsigned int value; char *bad_position; if(!gp || !gp->cpu || !le || !le->entry) return; text=gtk_entry_get_text (GTK_ENTRY (le->entry)); value = strtoul(text, &bad_position, 16); if( strlen(bad_position) ) return; /* string contains an invalid number */ le->put_value(value); if(le->sbw) le->sbw->Update(); return; } //======================================================================== LabeledEntry::LabeledEntry(void) { label = 0; entry = 0; sbw = 0; } LabeledEntry::~LabeledEntry() { gtk_widget_destroy(entry); gtk_widget_destroy(label); } #if GTK_MAJOR_VERSION < 2 #define gtk_style_get_font(X) X->font #endif void LabeledEntry::Create(GtkWidget *box, char *clabel, int string_width, bool isEditable=true) { // Entry to the right entry = gtk_entry_new (); gtk_entry_set_text (GTK_ENTRY (entry), "----"); SetEntryWidth(string_width); gtk_box_pack_end (GTK_BOX (box), entry, FALSE, FALSE, 0); gtk_widget_show (entry); if(!isEditable) gtk_entry_set_editable(GTK_ENTRY(entry),0); // Lable to the left of the entry label = (GtkWidget *)gtk_label_new (clabel); gtk_misc_set_alignment (GTK_MISC (label), 1.0, 0.5); gtk_widget_set_usize (label, 0, 15); gtk_box_pack_end (GTK_BOX (box), label, FALSE, FALSE, 0); gtk_widget_show (label); } void LabeledEntry::SetEntryWidth(int string_width) { if(entry) gtk_widget_set_usize (entry, string_width * gdk_string_width (gtk_style_get_font(entry->style), "9") + 6, -1); } void LabeledEntry::AssignParent(StatusBar_Window *new_sbw) { sbw = new_sbw; } void LabeledEntry::Update(void) { // if(sbw) // sbw->Update(); } void LabeledEntry::put_value(unsigned int new_value) { } void LabeledEntry::NewLabel(char *clabel) { if(label) gtk_label_set_text(GTK_LABEL(label),clabel); } //------------------------------------------------------------------------ RegisterLabeledEntry::RegisterLabeledEntry(GtkWidget *box, Register *new_reg, bool isEditable) : LabeledEntry() { reg = new_reg; if(reg) { pCellFormat = new char[10]; sprintf(pCellFormat,"0x%%0%dx",reg->register_size()*2); label = (GtkWidget *)gtk_label_new ((char *) reg->name().c_str()); gtk_misc_set_alignment (GTK_MISC (label), 1.0, 0.5); // gtk_widget_set_usize (label, 0, 15); gtk_box_pack_start (GTK_BOX (box), label, FALSE, FALSE, 0); gtk_widget_show (label); entry = gtk_entry_new (); // gtk_entry_set_text (GTK_ENTRY (entry), "----"); SetEntryWidth(2 + reg->register_size()*2); Update(); //SetEntryWidth(string_width); gtk_box_pack_start (GTK_BOX (box), entry, FALSE, FALSE, 0); gtk_widget_show (entry); if(!isEditable) gtk_entry_set_editable(GTK_ENTRY(entry),0); gtk_signal_connect(GTK_OBJECT(entry), "activate", GTK_SIGNAL_FUNC(LabeledEntry_callback), this); } else pCellFormat=0; } RegisterLabeledEntry::~RegisterLabeledEntry() { delete pCellFormat; } void RegisterLabeledEntry::put_value(unsigned int new_value) { if(reg) reg->put_value(new_value); } void RegisterLabeledEntry::Update(void) { char buffer[32]; if(reg && pCellFormat) { unsigned int value = reg->get_value(); sprintf(buffer,pCellFormat,value); gtk_entry_set_text (GTK_ENTRY (entry), buffer); } } void RegisterLabeledEntry::AssignRegister(Register *new_reg) { reg = new_reg; if(pCellFormat) delete pCellFormat; if(reg) { pCellFormat = new char[10]; sprintf(pCellFormat,"0x%%0%dx",reg->register_size()*2); NewLabel((char *) reg->name().c_str()); SetEntryWidth(2 + reg->register_size()*2); } } //------------------------------------------------------------------------ CyclesLabeledEntry::CyclesLabeledEntry() { } void CyclesLabeledEntry::Update(void) { char buffer[32]; sprintf(buffer,"0x%016" PRINTF_INT64_MODIFIER "x",get_cycles().value); gtk_entry_set_text (GTK_ENTRY (entry), buffer); } TimeLabeledEntry::TimeLabeledEntry() { time_format = MENU_TIME_USECONDS; menu = 0; } void TimeLabeledEntry::Update() { char buffer[32]; double time_db = gp->cpu->get_InstPeriod() * get_cycles().value; switch(time_format) { case MENU_TIME_USECONDS: time_db *= 1e6; sprintf(buffer,"%19.2f us",time_db); break; case MENU_TIME_MSECONDS: time_db *= 1e3; sprintf(buffer,"%19.3f ms",time_db); break; case MENU_TIME_HHMMSS: { double v=time_db + 0.005; // round msec int hh=(int)(v/3600),mm,ss,cc; v-=hh*3600.0; mm=(int)(v/60); v-=mm*60.0; ss=(int)v; cc=(int)((v-ss)*100.0); sprintf(buffer," %02d:%02d:%02d.%02d",hh,mm,ss,cc); } break; default: sprintf(buffer,"%19.3f s",time_db); } gtk_entry_set_text (GTK_ENTRY (entry), buffer); } //---------------------------------------- // called when user has selected a menu item static void popup_activated(GtkWidget *widget, gpointer data) { if(!widget || !data) return; popup_data *pd = (popup_data *)data; if(pd->tle) { pd->tle->set_time_format(pd->id); pd->tle->Update(); } } GtkWidget * TimeLabeledEntry::build_menu(void) { static menu_item menu_items[] = { {"Micro seconds", MENU_TIME_USECONDS}, {"Mili seconds", MENU_TIME_MSECONDS}, {"Seconds", MENU_TIME_SECONDS}, {"HH:MM:SS.CC", MENU_TIME_HHMMSS} }; GtkWidget *item; unsigned int i; menu=gtk_menu_new(); item = gtk_tearoff_menu_item_new (); gtk_menu_append (GTK_MENU (menu), item); gtk_widget_show (item); for (i=0; i < (sizeof(menu_items)/sizeof(menu_items[0])) ; i++){ item=gtk_menu_item_new_with_label(menu_items[i].name); popup_data *pd = new popup_data; pd->tle = this; pd->id = menu_items[i].id; gtk_signal_connect(GTK_OBJECT(item),"activate", (GtkSignalFunc) popup_activated, pd); gtk_widget_show(item); gtk_menu_append(GTK_MENU(menu),item); } return menu; } //------------------------------------------------------------------------ void StatusBar_Window::Update(void) { if( !created) return; //update the displayed values if(!gp || !gp->cpu) return; RegisterLabeledList::iterator iRLE; for(iRLE = entries.begin(); iRLE != entries.end(); ++iRLE) (*iRLE)->Update(); cpu_cycles->Update(); time->Update(); } // button press handler static gint do_popup(GtkWidget *widget, GdkEventButton *event, TimeLabeledEntry *tle) { if(!widget || !event || !tle) return 0; if( (event->type == GDK_BUTTON_PRESS) && (event->button == 3) ) { gtk_menu_popup(GTK_MENU(tle->menu), 0, 0, 0, 0, 3, event->time); // It looks like we need it to avoid a selection in the entry. // For this we tell the entry to stop reporting this event. gtk_signal_emit_stop_by_name(GTK_OBJECT(tle->entry),"button_press_event"); } return FALSE; } /* * CreateStatusBar * * Create the status bar at the bottom of the window * * * vbox_main - The box to which we will append. * */ void StatusBar_Window::Create(GtkWidget *vbox_main) { if(created) return; Dprintf((" %s",__FUNCTION__)); /* --- Put up h-box --- */ gtk_box_pack_end (GTK_BOX (vbox_main), hbox, FALSE, FALSE, 0); gtk_widget_show (hbox); created=1; } /* NewProcessor * */ void StatusBar_Window::NewProcessor(GUI_Processor *_gp, MemoryAccess *_ma) { if(!_gp || !_gp->cpu || !_ma || !hbox) return; gp = _gp; ma = _ma; Dprintf((" %s",__FUNCTION__)); if(cpu_cycles == NULL) { cpu_cycles = new CyclesLabeledEntry(); cpu_cycles->Create(hbox,"Cycles:", 18,false); } if(time == NULL) { TimeLabeledEntry *tle = new TimeLabeledEntry(); time = tle; time->Create(hbox,"Time:", 22,false); /* create popupmenu */ tle->build_menu(); gtk_signal_connect(GTK_OBJECT(time->entry), "button_press_event", (GtkSignalFunc) do_popup, tle); /* Now create a cross-reference link that the simulator can use to * send information back to the gui */ if(gp->cpu && gp->cpu->pc) { StatusBarXREF *cross_reference; cross_reference = new StatusBarXREF(); cross_reference->parent_window_type = WT_status_bar; cross_reference->parent_window = (gpointer) this; cross_reference->data = (gpointer) this; gp->cpu->pc->add_xref((gpointer) cross_reference); } } list::iterator iReg; entries.clear(); for(iReg = ma->SpecialRegisters.begin(); iReg != ma->SpecialRegisters.end(); ++iReg) { //cout << " Adding " << ((*iReg)->showType()) << " to status bar\n"; entries.push_back(hbox, *iReg); } Update(); } StatusBar_Window::StatusBar_Window(void) { gp = 0; ma = 0; cpu_cycles = 0; time = 0; created = false; time = NULL; cpu_cycles = NULL; /* --- Create h-box for holding the status line --- */ hbox = gtk_hbox_new (FALSE, 0); } #endif #endif // HAVE_GUI gpsim-0.27.0/gui/gui_src_opcode.cc0000664000076400007640000013531612201276457013750 00000000000000/* Copyright (C) 1998,1999,2000,2001 T. Scott Dattalo and Ralf Forsberg Copyright (C) 2011 Roy R Rankin This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "../config.h" #ifdef HAVE_GUI #include #include #include #include #include #include #include #include #include extern int gui_question(const char *question, const char *a, const char *b); #include "gui.h" #include "gui_src.h" #include #define PROGRAM_MEMORY_WINDOW_COLUMNS 4 //yuk #define DEFAULT_ROWS 1 #define OPCODES_PER_ROW 16 #define PROFILE_COLUMN 0 #define ADDRESS_COLUMN 1 #define OPCODE_COLUMN 2 #define MNEMONIC_COLUMN 3 typedef enum { MENU_BREAK_CLEAR, MENU_BREAK_READ, MENU_BREAK_WRITE, MENU_BREAK_EXECUTE, MENU_ADD_WATCH, MENU_ASCII_1BYTE, MENU_ASCII_2BYTELSB, MENU_ASCII_2BYTEMSB, MENU_SETTINGS, } menu_id; typedef struct _menu_item { const char *name; menu_id id; } menu_item; static menu_item sheet_menu_items[] = { {"Clear breakpoints", MENU_BREAK_CLEAR}, {"Set break on read", MENU_BREAK_READ}, {"Set break on write", MENU_BREAK_WRITE}, {"Set break on execute", MENU_BREAK_EXECUTE}, {"Add watch", MENU_ADD_WATCH}, {"Settings...",MENU_SETTINGS} }; static menu_item sheet_submenu_items[] = { {"One byte per cell", MENU_ASCII_1BYTE}, {"Two bytes per cell, MSB first", MENU_ASCII_2BYTEMSB}, {"Two bytes per cell, LSB first", MENU_ASCII_2BYTELSB}, }; static menu_item clist_menu_items[] = { {"Settings...",MENU_SETTINGS} }; // Used only in popup menus SourceBrowserOpcode_Window *popup_sbow; static char profile_buffer[128]; static char address_buffer[128]; static char opcode_buffer[128]; static char mnemonic_buffer[128]; static char *row_text[PROGRAM_MEMORY_WINDOW_COLUMNS]={ profile_buffer,address_buffer,opcode_buffer,mnemonic_buffer }; static int dlg_x=200, dlg_y=200; static int settings_dialog(SourceBrowserOpcode_Window *sbow); extern int font_dialog_browse(GtkWidget *w, gpointer user_data); //======================================================================== class SourceOpcodeXREF : public CrossReferenceToGUI { public: void Update(int new_value) { SourceBrowserOpcode_Window *sbow; sbow = (SourceBrowserOpcode_Window*)(parent_window); sbow->SetPC(new_value); } void Remove() { } }; //======================================================================== // update ascii column in sheet static void update_ascii( SourceBrowserOpcode_Window *sbow, gint row) { gint i; gchar name[45]; unsigned char byte; if(sbow == 0 || row<0 || row > GTK_SHEET(sbow->sheet)->maxrow) { printf("Warning update_ascii(%p,%x)\n",sbow,row); return; } if(row<0 || row>GTK_SHEET(sbow->sheet)->maxrow) return; switch(sbow->ascii_mode) { case 0: for(i=0; i<16; i++) { byte = sbow->memory[row*16 + i]&0xff; name[i] = byte; if( (name[i] < ' ') || (name[i]>'z')) name[i] = '.'; } name[i] = 0; break; case 1: // two bytes, MSB first for(i=0; i<32; i++) { if(i%2) byte = sbow->memory[row*16 + i/2]&0xff; else byte = (sbow->memory[row*16 + i/2]&0xff00) >>8; name[i] = byte; if( (name[i] < ' ') || (name[i]>'z')) name[i] = '.'; } name[i] = 0; break; case 2: // two bytes, LSB first for(i=0; i<32; i++) { if(i%2) byte = (sbow->memory[row*16 + i/2]&0xff00) >>8; else byte = sbow->memory[row*16 + i/2]&0xff; name[i] = byte; if( (name[i] < ' ') || (name[i]>'z')) name[i] = '.'; } name[i] = 0; break; } gtk_sheet_set_cell(GTK_SHEET(sbow->sheet), row,OPCODES_PER_ROW, GTK_JUSTIFY_RIGHT,name); } // called when user has selected a menu item static void popup_activated(GtkWidget *widget, gpointer data) { GtkSheet *sheet; menu_item *item; int i,j; GtkSheetRange range; int pm_size; gint char_width; if(!widget || !data) return; if(!popup_sbow || !popup_sbow->gp || !popup_sbow->gp->cpu) { printf("%s:%d - 0 pointer \n",__FILE__,__LINE__); return; } item = (menu_item *)data; sheet=GTK_SHEET(popup_sbow->sheet); range = sheet->range; pm_size = popup_sbow->gp->cpu->program_memory_size(); #if GTK_MAJOR_VERSION >= 2 char_width = gdk_string_width(gtk_style_get_font(popup_sbow->normal_style), "9"); #else char_width = gdk_string_width (popup_sbow->normal_style->font,"9"); #endif switch(item->id) { case MENU_BREAK_WRITE: case MENU_BREAK_READ: printf("This function is not implemented\n"); for(j=range.row0;j<=range.rowi;j++) for(i=range.col0;i<=range.coli;i++) { unsigned address = popup_sbow->gp->cpu->map_pm_index2address(j*16+i); popup_sbow->gp->cpu->pma->toggle_break_at_address(address); } break; case MENU_BREAK_EXECUTE: for(j=range.row0;j<=range.rowi;j++) for(i=range.col0;i<=range.coli;i++) { unsigned address = popup_sbow->gp->cpu->map_pm_index2address(j*16+i); popup_sbow->gp->cpu->pma->set_break_at_address(address); } break; case MENU_BREAK_CLEAR: for(j=range.row0;j<=range.rowi;j++) for(i=range.col0;i<=range.coli;i++) { unsigned address = popup_sbow->gp->cpu->map_pm_index2address(j*16+i); popup_sbow->gp->cpu->pma->set_break_at_address(address); } break; case MENU_ADD_WATCH: puts("not implemented"); /* for(j=range.row0;j<=range.rowi;j++) for(i=range.col0;i<=range.coli;i++) { unsigned address = popup_sbow->gp->cpu->map_pm_index2address(j*16+i); WatchWindow_add(popup_sbow->gui_obj.gp->watch_window,pic_id, popup_sbow->type, address); } */ break; case MENU_ASCII_1BYTE: popup_sbow->ascii_mode=0; config_set_variable(popup_sbow->name(),"ascii_mode",popup_sbow->ascii_mode); gtk_sheet_set_column_width (GTK_SHEET(popup_sbow->sheet), 16, 16*char_width + 6); for(i=0;iascii_mode=1; config_set_variable(popup_sbow->name(),"ascii_mode",popup_sbow->ascii_mode); gtk_sheet_set_column_width (GTK_SHEET(popup_sbow->sheet), 16, 32*char_width + 6); for(i=0;iascii_mode=2; config_set_variable(popup_sbow->name(),"ascii_mode",popup_sbow->ascii_mode); gtk_sheet_set_column_width (GTK_SHEET(popup_sbow->sheet), 16, 32*char_width + 6); for(i=0;iascii_mode) gtk_check_menu_item_set_active(GTK_CHECK_MENU_ITEM(item),1); gtk_menu_append(GTK_MENU(submenu),item); } item = gtk_menu_item_new_with_label ("ASCII mode"); gtk_menu_append (GTK_MENU (menu), item); gtk_widget_show (item); gtk_menu_item_set_submenu (GTK_MENU_ITEM (item), submenu); return menu; } static GtkWidget * build_menu_for_clist(SourceBrowserOpcode_Window *sbow) { GtkWidget *menu; GtkWidget *item; unsigned int i; if(sbow==0) { printf("Warning build_menu_for_sheet(%p)\n",sbow); return 0; } popup_sbow=sbow; menu=gtk_menu_new(); item = gtk_tearoff_menu_item_new (); gtk_menu_append (GTK_MENU (menu), item); gtk_widget_show (item); for (i=0; i < (sizeof(clist_menu_items)/sizeof(clist_menu_items[0])) ; i++){ item=gtk_menu_item_new_with_label(clist_menu_items[i].name); gtk_signal_connect(GTK_OBJECT(item),"activate", (GtkSignalFunc) popup_activated, &clist_menu_items[i]); GTK_WIDGET_SET_FLAGS (item, GTK_SENSITIVE | GTK_CAN_FOCUS); if(clist_menu_items[i].id==MENU_ADD_WATCH) { GTK_WIDGET_UNSET_FLAGS (item, GTK_SENSITIVE | GTK_CAN_FOCUS); } gtk_widget_show(item); gtk_menu_append(GTK_MENU(menu),item); } return menu; } // button press handler static gint button_press(GtkWidget *widget, GdkEventButton *event, SourceBrowserOpcode_Window *sbow) { GtkWidget *popup; int break_row; if(!sbow || !sbow->gp || !sbow->gp->cpu) return 0; if(widget==0 || event==0) { printf("Warning button_press(%p,%p,%p)\n",widget,event,sbow); return 0; } if( (event->type == GDK_BUTTON_PRESS) && (event->button == 3) ) { popup_sbow = sbow; if(GTK_IS_CLIST(GTK_OBJECT(widget))) { popup=sbow->clist_popup_menu; gtk_menu_popup(GTK_MENU(popup), 0, 0, 0, 0, 3, event->time); } else { popup=sbow->sheet_popup_menu; gtk_menu_popup(GTK_MENU(popup), 0, 0, 0, 0, 3, event->time); } } if ((event->type == GDK_2BUTTON_PRESS) && (event->button == 1)) { if(GTK_IS_CLIST(GTK_OBJECT(widget))) { break_row = GTK_CLIST (sbow->clist)->focus_row; unsigned address = sbow->gp->cpu->map_pm_index2address(break_row); sbow->gp->cpu->pma->toggle_break_at_address(address); return TRUE; } } return FALSE; } static void filter(char *clean, char *dirty, int max) { int i=0,j; if(dirty!=0) { do { if(*dirty == '\t') for(j=0,dirty++; j<8 && i%8; j++,i++) *clean++ = ' '; else if (*dirty <' ') dirty++; else *clean++ = *dirty++; } while(*dirty && ++i < max); } *clean = 0; } static void update_styles(SourceBrowserOpcode_Window *sbow, int address) { GtkSheetRange range; int index = address; if(sbow->gp->cpu) index = sbow->gp->cpu->map_pm_address2index(address); int row=index/16; int column=index%16; range.row0=row; range.rowi=row; range.col0=column; range.coli=column; if(!sbow->gp->cpu) { gtk_sheet_range_set_background(GTK_SHEET(sbow->sheet), &range, &sbow->normal_pm_bg_color); return; } gtk_sheet_range_set_font(GTK_SHEET(sbow->sheet), &range, sbow->normalPFD); if(sbow->gp->cpu && sbow->gp->cpu->pma->address_has_break(address)) { gtk_clist_set_row_style (GTK_CLIST (sbow->clist), index, sbow->breakpoint_line_number_style); gtk_sheet_range_set_background(GTK_SHEET(sbow->sheet), &range, &sbow->breakpoint_color); } else { gtk_clist_set_row_style (GTK_CLIST (sbow->clist), index, sbow->normal_style); if(sbow->gp->cpu->pma->isModified(address)) gtk_sheet_range_set_background(GTK_SHEET(sbow->sheet), &range, &sbow->pm_has_changed_color); else gtk_sheet_range_set_background(GTK_SHEET(sbow->sheet), &range, &sbow->normal_pm_bg_color); } } static void update_label(SourceBrowserOpcode_Window *sbow, int address) { char labeltext[128]; char entrytext[128]; GtkEntry *sheet_entry; unsigned int oc; if(!sbow || !sbow->gp || !sbow->gp->cpu) return; if(address<0) { entrytext[0]=0; strcpy(labeltext,"ASCII"); } else { oc = sbow->gp->cpu->pma->get_opcode(address); filter(labeltext, sbow->gp->cpu->pma->get_opcode_name(address,entrytext,sizeof(entrytext)), sizeof(labeltext)); sprintf(entrytext, "0x%04X", oc); } sheet_entry = GTK_ENTRY(gtk_sheet_get_entry(GTK_SHEET(sbow->sheet))); gtk_label_set(GTK_LABEL(sbow->label), labeltext); gtk_entry_set_max_length(GTK_ENTRY(sbow->entry), GTK_ENTRY(sheet_entry)->text_max_length); gtk_entry_set_text(GTK_ENTRY(sbow->entry), entrytext); } static void update_values(SourceBrowserOpcode_Window *sbow, int address) { if(!sbow || !sbow->gp || !sbow->gp->cpu || !sbow->memory) return; unsigned uMemoryIndex = sbow->gp->cpu->map_pm_address2index(address); int row=uMemoryIndex/16; int column=uMemoryIndex%16; char buf[128]; unsigned int oc; oc = sbow->gp->cpu->pma->get_opcode(address); if(oc != sbow->memory[uMemoryIndex]) { sbow->memory[address]=oc; // Put new values, in case they changed sprintf (row_text[ADDRESS_COLUMN], "0x%04X", address); sprintf(row_text[OPCODE_COLUMN], "0x%04X", oc); filter(row_text[MNEMONIC_COLUMN], sbow->gp->cpu->pma->get_opcode_name(address,buf,sizeof(buf)), sizeof(buf)); gtk_clist_set_text (GTK_CLIST (sbow->clist), address, OPCODE_COLUMN, row_text[OPCODE_COLUMN]); gtk_clist_set_text (GTK_CLIST (sbow->clist), address, MNEMONIC_COLUMN, row_text[MNEMONIC_COLUMN]); gtk_sheet_set_cell(GTK_SHEET(sbow->sheet), row,column, GTK_JUSTIFY_RIGHT,row_text[OPCODE_COLUMN]+2); } } static void update(SourceBrowserOpcode_Window *sbow, int address) { if(!sbow->gp->cpu) return; update_values(sbow,address); update_styles(sbow,address); } static gint configure_event(GtkWidget *widget, GdkEventConfigure *e, gpointer data) { if(widget->window==0) return 0; gdk_window_get_root_origin(widget->window,&dlg_x,&dlg_y); return 0; // what should be returned?, FIXME } static int load_styles(SourceBrowserOpcode_Window *sbow) { GdkColor text_fg; GdkColor text_bg; GdkColormap *colormap = gdk_colormap_get_system(); if ((sbow->normal_style) == 0) { gdk_color_parse("black", &text_fg); gdk_color_parse("light cyan", &text_bg); gdk_colormap_alloc_color(colormap, &text_fg,FALSE,TRUE ); gdk_colormap_alloc_color(colormap, &text_bg,FALSE,TRUE ); sbow->normal_style = gtk_style_new (); sbow->normal_style->fg[GTK_STATE_NORMAL] = text_fg; sbow->normal_style->base[GTK_STATE_NORMAL] = text_bg; } #if GTK_MAJOR_VERSION >= 2 if (sbow->normalPFD) pango_font_description_free(sbow->normalPFD); sbow->normalPFD = pango_font_description_from_string(sbow->normalfont_string); sbow->normal_style->font_desc = sbow->normalPFD; #else sbow->normalfont=gdk_fontset_load (sbow->normalfont_string); #endif if ((sbow->current_line_number_style) == 0) { text_bg.red = 60000; text_bg.green = 60000; text_bg.blue = 60000; gdk_colormap_alloc_color(colormap, &text_bg,FALSE,TRUE ); sbow->current_line_number_style = gtk_style_new (); sbow->current_line_number_style->fg[GTK_STATE_NORMAL] = text_fg; sbow->current_line_number_style->base[GTK_STATE_NORMAL] = text_bg; } #if GTK_MAJOR_VERSION >= 2 if (sbow->current_line_numberPFD) pango_font_description_free(sbow->current_line_numberPFD); sbow->current_line_numberPFD = pango_font_description_from_string( sbow->pcfont_string); sbow->current_line_number_style->font_desc = sbow->current_line_numberPFD; #else gdk_font_unref (sbow->current_line_number_style->font); gtk_style_set_font(sbow->current_line_number_style, sbow->current_line_number_style->font = gdk_fontset_load (sbow->pcfont_string); #endif if ((sbow->breakpoint_line_number_style) == 0) { gdk_color_parse("red", &text_bg); sbow->breakpoint_color=text_bg; gdk_colormap_alloc_color(colormap, &sbow->breakpoint_color,FALSE,TRUE ); sbow->breakpoint_line_number_style = gtk_style_new (); sbow->breakpoint_line_number_style->fg[GTK_STATE_NORMAL] = text_fg; sbow->breakpoint_line_number_style->base[GTK_STATE_NORMAL] = text_bg; } #if GTK_MAJOR_VERSION >= 2 if (sbow->breakpoint_line_numberPFD) pango_font_description_free(sbow->breakpoint_line_numberPFD); sbow->breakpoint_line_numberPFD = pango_font_description_from_string(sbow->breakpointfont_string); sbow->breakpoint_line_number_style->font_desc = sbow->breakpoint_line_numberPFD; #else gdk_font_unref (sbow->breakpoint_line_number_style->font); sbow->breakpoint_line_number_style->font = gdk_fontset_load (sbow->breakpointfont_string); #endif gdk_color_parse("white",&sbow->normal_pm_bg_color); gdk_colormap_alloc_color(colormap, &sbow->normal_pm_bg_color,FALSE,TRUE); gdk_color_parse("light gray",&sbow->pm_has_changed_color); gdk_colormap_alloc_color(colormap, &sbow->pm_has_changed_color,FALSE,TRUE); #if GTK_MAJOR_VERSION >= 2 if (gtk_style_get_font(sbow->breakpoint_line_number_style) == 0 || gtk_style_get_font(sbow->current_line_number_style) == 0 || gtk_style_get_font(sbow->normal_style) == 0) return 0; #else if(sbow->breakpoint_line_number_style->font==0) return 0; if(sbow->current_line_number_style->font==0) return 0; if(sbow->normal_style->font==0) return 0; #endif return 1; } /********************** Settings dialog ***************************/ static int settings_active; static void settingsok_cb(GtkWidget *w, gpointer user_data) { if(settings_active) { settings_active=0; } } static int settings_dialog(SourceBrowserOpcode_Window *sbow) { static GtkWidget *dialog=0; GtkWidget *button; static int retval; GtkWidget *hbox; static GtkWidget *normalfontstringentry; static GtkWidget *breakpointfontstringentry; static GtkWidget *pcfontstringentry; GtkWidget *label; int fonts_ok=0; if(dialog==0) { dialog = gtk_dialog_new(); gtk_window_set_title (GTK_WINDOW (dialog), "Opcode browser settings"); gtk_signal_connect(GTK_OBJECT(dialog), "configure_event",GTK_SIGNAL_FUNC(configure_event),0); gtk_signal_connect_object(GTK_OBJECT(dialog), "delete_event",GTK_SIGNAL_FUNC(gtk_widget_hide),GTK_OBJECT(dialog)); // Normal font hbox = gtk_hbox_new(0,0); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->vbox), hbox,FALSE,FALSE,20); gtk_widget_show(hbox); label=gtk_label_new("Normal font:"); gtk_box_pack_start(GTK_BOX(hbox), label, FALSE,FALSE, 20); gtk_widget_show(label); normalfontstringentry=gtk_entry_new(); gtk_box_pack_start(GTK_BOX(hbox), normalfontstringentry, TRUE, TRUE, 0); gtk_widget_show(normalfontstringentry); button = gtk_button_new_with_label("Browse..."); gtk_widget_show(button); gtk_box_pack_start(GTK_BOX(hbox), button, FALSE,FALSE,10); gtk_signal_connect(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(font_dialog_browse),(gpointer)normalfontstringentry); // Breakpoint font hbox = gtk_hbox_new(0,0); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->vbox), hbox,FALSE,FALSE,20); gtk_widget_show(hbox); label=gtk_label_new("Breakpoint font:"); gtk_box_pack_start(GTK_BOX(hbox), label, FALSE,FALSE, 20); gtk_widget_show(label); breakpointfontstringentry=gtk_entry_new(); gtk_box_pack_start(GTK_BOX(hbox), breakpointfontstringentry, TRUE, TRUE, 0); gtk_widget_show(breakpointfontstringentry); button = gtk_button_new_with_label("Browse..."); gtk_widget_show(button); gtk_box_pack_start(GTK_BOX(hbox), button, FALSE,FALSE,10); gtk_signal_connect(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(font_dialog_browse),(gpointer)breakpointfontstringentry); // PC font hbox = gtk_hbox_new(0,0); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->vbox), hbox,FALSE,FALSE,20); gtk_widget_show(hbox); label=gtk_label_new("PC font:"); gtk_box_pack_start(GTK_BOX(hbox), label, FALSE,FALSE, 20); gtk_widget_show(label); pcfontstringentry=gtk_entry_new(); gtk_box_pack_start(GTK_BOX(hbox), pcfontstringentry, TRUE, TRUE, 0); gtk_widget_show(pcfontstringentry); button = gtk_button_new_with_label("Browse..."); gtk_widget_show(button); gtk_box_pack_start(GTK_BOX(hbox), button, FALSE,FALSE,10); gtk_signal_connect(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(font_dialog_browse),(gpointer)pcfontstringentry); // OK button button = gtk_button_new_with_label("OK"); gtk_widget_show(button); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->action_area), button, FALSE,FALSE,10); gtk_signal_connect(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(settingsok_cb),(gpointer)dialog); } gtk_entry_set_text(GTK_ENTRY(normalfontstringentry), sbow->normalfont_string); gtk_entry_set_text(GTK_ENTRY(breakpointfontstringentry), sbow->breakpointfont_string); gtk_entry_set_text(GTK_ENTRY(breakpointfontstringentry), sbow->breakpointfont_string); gtk_entry_set_text(GTK_ENTRY(pcfontstringentry), sbow->pcfont_string); gtk_widget_set_uposition(GTK_WIDGET(dialog),dlg_x,dlg_y); gtk_widget_show_now(dialog); bool change = false; while(fonts_ok!=3) { char fontname[256]; #if GTK_MAJOR_VERSION >= 2 PangoFontDescription *font; #else GdkFont *font; #endif settings_active=1; while(settings_active) gtk_main_iteration(); fonts_ok=0; strcpy(fontname,gtk_entry_get_text(GTK_ENTRY(normalfontstringentry))); #if GTK_MAJOR_VERSION >= 2 if((font=pango_font_description_from_string(fontname))==0) { #else if((font=gdk_fontset_load(fontname))==0) { #endif if(gui_question("Normalfont did not load!","Try again","Ignore/Cancel")==FALSE) break; } else { #if GTK_MAJOR_VERSION >= 2 if (!pango_font_description_equal(font, sbow->normalPFD)) #else if (strcmp( sbow->normalfont_string, fontname )) #endif { strcpy(sbow->normalfont_string, fontname); config_set_string(sbow->name(),"normalfont",sbow->normalfont_string); change = true; } fonts_ok++; #if GTK_MAJOR_VERSION >= 2 pango_font_description_free(font); #else gdk_font_unref(font); #endif } strcpy(fontname,gtk_entry_get_text(GTK_ENTRY(breakpointfontstringentry))); #if GTK_MAJOR_VERSION >= 2 if((font=pango_font_description_from_string(fontname))==0) #else if((font=gdk_fontset_load(fontname))==0) #endif { if(gui_question("Breakpointfont did not load!","Try again","Ignore/Cancel")==FALSE) break; } else { #if GTK_MAJOR_VERSION >= 2 if (!pango_font_description_equal(font, sbow->breakpoint_line_numberPFD)) #else if (strcmp( sbow->breakpointfont_string, gtk_entry_get_text(GTK_ENTRY(breakpointfontstringentry)))) #endif { strcpy(sbow->breakpointfont_string, gtk_entry_get_text(GTK_ENTRY(breakpointfontstringentry))); config_set_string(sbow->name(),"breakpointfont",sbow->breakpointfont_string); change = true; } fonts_ok++; #if GTK_MAJOR_VERSION >= 2 pango_font_description_free(font); #else gdk_font_unref(font); #endif } strcpy(fontname,gtk_entry_get_text(GTK_ENTRY(pcfontstringentry))); #if GTK_MAJOR_VERSION >= 2 if((font=pango_font_description_from_string(fontname))==0) #else if((font=gdk_fontset_load(fontname))==0) #endif { if(gui_question("PCfont did not load!","Try again","Ignore/Cancel")==FALSE) break; } else { #if GTK_MAJOR_VERSION >= 2 if (!pango_font_description_equal(font, sbow->current_line_numberPFD)) #else if (strcmp( sbow->pcfont_string, gtk_entry_get_text(GTK_ENTRY(pcfontstringentry)))) #endif { strcpy(sbow->pcfont_string, gtk_entry_get_text(GTK_ENTRY(pcfontstringentry))); config_set_string(sbow->name(),"pcfont",sbow->pcfont_string); change = true; } fonts_ok++; #if GTK_MAJOR_VERSION >= 2 pango_font_description_free(font); #else gdk_font_unref(font); #endif } } if (change) { load_styles(sbow); sbow->Fill(); } gtk_widget_hide(dialog); return retval; } static unsigned long get_number_in_string(const char *number_string) { unsigned long retval = 0; char *bad_position; int current_base = 16; if(number_string==0) { printf("Warning get_number_in_string(%p)\n",number_string); errno = EINVAL; return (unsigned long)-1; } errno = 0; retval = strtoul(number_string, &bad_position, current_base); if( strlen(bad_position) ) errno = EINVAL; /* string contains an invalid number */ /* if(retval > 255) errno = ERANGE; */ return(retval); } // when a new cell is selected, we write changes in // previously selected cell to gpsim static void parse_numbers(GtkWidget *widget, int row, int col, SourceBrowserOpcode_Window *sbow) { if(!sbow || !sbow->gp || !sbow->gp->cpu || !widget) return; GtkSheet *sheet; const gchar *text; sheet=GTK_SHEET(widget); if(row>sheet->maxrow || row<0 || col>sheet->maxcol || col<0) { printf("Warning parse_numbers(%p,%x,%x,%p)\n",widget,row,col,sbow); return; } if(sbow->memory==0) return; if(col < OPCODES_PER_ROW) { int reg = row*16+col; unsigned int n=0; text = gtk_entry_get_text(GTK_ENTRY(sheet->sheet_entry)); errno = 0; if(strlen(text)>0) n = get_number_in_string(text); else errno = ERANGE; if(errno != 0) { n = sbow->gp->cpu->pma->get_opcode(reg); sbow->memory[reg] = INVALID_VALUE; } if(n != sbow->memory[reg]) { printf("Writing new value, new %d, last %d\n",n,sbow->memory[reg]); sbow->memory[reg]=n; sbow->gp->cpu->pma->put_opcode(reg, n); update_ascii(sbow,row); } } else ; // ignore user changes in ascii column for right now } /* when the entry above the sheet is changed (typed a digit), we copy it to the cell entry */ static void show_sheet_entry(GtkWidget *widget, SourceBrowserOpcode_Window *sbow) { const char *text; GtkSheet *sheet; GtkEntry *sheet_entry; //RRRint row,col; if(widget==0|| sbow==0) { printf("Warning show_sheet_entry(%p,%p)\n",widget,sbow); return; } if(!GTK_WIDGET_HAS_FOCUS(widget)) return; sheet=GTK_SHEET(sbow->sheet); sheet_entry = GTK_ENTRY(gtk_sheet_get_entry(sheet)); //RRRrow=sheet->active_cell.row; col=sheet->active_cell.col; if((text=gtk_entry_get_text (GTK_ENTRY(sbow->entry)))) gtk_entry_set_text(sheet_entry, text); } /* when we have new data in the entry above the sheet, we copy the data to the cells/registers this doesn't get called when it is clicked in, only when we hit return */ static void activate_sheet_entry(GtkWidget *widget, SourceBrowserOpcode_Window *sbow) { GtkSheet *sheet; gint row, col; if(widget==0|| sbow==0) { printf("Warning activate_sheet_entry(%p,%p)\n",widget,sbow); return; } sheet=GTK_SHEET(sbow->sheet); row=sheet->active_cell.row; col=sheet->active_cell.col; parse_numbers(GTK_WIDGET(sheet),sheet->active_cell.row,sheet->active_cell.col,sbow); update_label(sbow,sbow->gp->cpu->map_pm_index2address(row*16+col)); } /* we get here when the entry in a cell is changed (typed a digit), we copy it to the entry above the sheet. */ static void show_entry(GtkWidget *widget, SourceBrowserOpcode_Window *sbow) { const char *text; GtkSheet *sheet; GtkWidget * sheet_entry; // gint row, col; if(widget==0|| sbow==0) { printf("Warning show_entry(%p,%p)\n",widget,sbow); return; } if(!GTK_WIDGET_HAS_FOCUS(widget)) return; sheet=GTK_SHEET(sbow->sheet); sheet_entry = gtk_sheet_get_entry(sheet); //row=sheet->active_cell.row; col=sheet->active_cell.col; if((text=gtk_entry_get_text (GTK_ENTRY(sheet_entry)))) gtk_entry_set_text(GTK_ENTRY(sbow->entry), text); } /* when a cell is activated, we set the label and entry above the sheet */ static gint activate_sheet_cell(GtkWidget *widget, gint row, gint column, SourceBrowserOpcode_Window *sbow) { GtkSheet *sheet; GtkSheetCellAttr attributes; if (!sbow || !sbow->gp || ! sbow->gp->cpu) return 0; sheet=GTK_SHEET(sbow->sheet); if(widget==0 || row>sheet->maxrow || row<0|| column>sheet->maxcol || column<0 || sbow==0) { printf("Warning activate_sheet_cell(%p,%x,%x,%p)\n",widget,row,column,sbow); return 0; } if(column<16) { update_label(sbow,sbow->gp->cpu->map_pm_index2address(row*16+column)); } else update_label(sbow,-1); gtk_sheet_get_attributes(sheet,sheet->active_cell.row, sheet->active_cell.col, &attributes); gtk_entry_set_editable(GTK_ENTRY(sbow->entry), attributes.is_editable); gtk_sheet_range_set_justification(sheet, &sheet->range, GTK_JUSTIFY_RIGHT); return TRUE; } void SourceBrowserOpcode_Window::SelectAddress(int address) { if(!enabled) return; unsigned int row = address; if(gp->cpu) row = gp->cpu->map_pm_address2index(address); gtk_clist_unselect_all(GTK_CLIST(clist)); gtk_clist_select_row(GTK_CLIST(clist),row,0); if(GTK_VISIBILITY_FULL != gtk_clist_row_is_visible (GTK_CLIST (clist),row)) gtk_clist_moveto (GTK_CLIST (clist), row, 0, .5, 0.0); } void SourceBrowserOpcode_Window::UpdateLine(int address) { if(!enabled) return; if(address >= 0) update(this,address); } void SourceBrowserOpcode_Window::SetPC(int address) { gint last_address; if(!enabled) return; last_address = current_address; current_address = address; if(address != last_address) UpdateLine(last_address); { UpdateLine(address); gtk_clist_set_row_style (GTK_CLIST (clist), gp->cpu->map_pm_address2index(address), current_line_number_style); GtkSheetRange range; int index = address; if(gp->cpu) index = gp->cpu->map_pm_address2index(address); range.row0 = range.rowi = index/16; range.col0 = range.coli = index%16; gtk_sheet_range_set_background(GTK_SHEET(sheet), &range, &(current_line_number_style->base[GTK_STATE_NORMAL])); } unsigned int current_row = gp->cpu->map_pm_address2index(current_address); if(GTK_VISIBILITY_FULL != gtk_clist_row_is_visible (GTK_CLIST (clist), current_row)) { gtk_clist_moveto (GTK_CLIST (clist), current_row, 0, .5, 0.0); } } //======================================================================== // Fill() // // copy the processor's program memory contents to the both the disassembly // and opcode windows. void SourceBrowserOpcode_Window::Fill() { GtkSheetRange range; if(!bIsBuilt) Build(); if(!gp || !gp->cpu) return; char buf[128]; unsigned int opcode; gint i; int pm_size; int pc; gint column_width,char_width; // Clearing and appending is faster than changing gtk_clist_clear(GTK_CLIST(clist)); pm_size = gp->cpu->program_memory_size(); if(memory!=0) free(memory); memory=(unsigned int*)malloc(pm_size*sizeof(*memory)); gchar _name[10]; gtk_clist_freeze(GTK_CLIST (clist)); gtk_sheet_freeze(GTK_SHEET(sheet)); #if GTK_MAJOR_VERSION >= 2 PangoRectangle rect; PangoLayout *layout; layout = gtk_widget_create_pango_layout (GTK_WIDGET(sheet), "A"); pango_layout_set_font_description (layout, normalPFD); pango_layout_get_extents (layout, NULL, &rect); char_width = PANGO_PIXELS(rect.width); column_width = 4 * char_width + 5; g_object_unref(layout); #else char_width = gdk_string_width (normal_style->font,"9"); column_width = 5 * char_width + 5; #endif for(i=0; imaxcol; i++){ sprintf(_name,"%02x",gp->cpu->map_pm_index2address(i)); gtk_sheet_column_button_add_label(GTK_SHEET(sheet), i, _name); gtk_sheet_set_column_title(GTK_SHEET(sheet), i, _name); gtk_sheet_set_column_width (GTK_SHEET(sheet), i, column_width); } range.row0=0;range.col0=0; range.rowi=GTK_SHEET(sheet)->maxrow; range.coli=GTK_SHEET(sheet)->maxcol; gtk_sheet_range_set_font(GTK_SHEET(sheet), &range, normalPFD); for(i=0; i < pm_size; i++) { int address = gp->cpu->map_pm_index2address(i); opcode = gp->cpu->pma->get_opcode(address); memory[i]=opcode; sprintf (row_text[ADDRESS_COLUMN], "0x%04X", address); sprintf(row_text[OPCODE_COLUMN], "0x%04X", opcode); filter(row_text[MNEMONIC_COLUMN], gp->cpu->pma->get_opcode_name(address,buf,sizeof(buf)), 128); if(GTK_SHEET(sheet)->maxrow < i/16) { int j = i/16; gtk_sheet_add_row(GTK_SHEET(sheet),1); sprintf(_name,"%04x",gp->cpu->map_pm_index2address(i)); gtk_sheet_row_button_add_label(GTK_SHEET(sheet), j, _name); gtk_sheet_set_row_title(GTK_SHEET(sheet), j, _name); } gtk_sheet_set_cell(GTK_SHEET(sheet), i/16, i%16, GTK_JUSTIFY_RIGHT,row_text[OPCODE_COLUMN]+2); gtk_clist_append (GTK_CLIST (clist), row_text); update_styles(this, address); } for(i=0;icpu->pma->get_PC(); SetPC(pc); update_label(this,pc); } void SourceBrowserOpcode_Window::NewSource(GUI_Processor *_gp) { if(!gp) return; current_address=0; if(!enabled) return; if(!bIsBuilt) Build(); assert(wt==WT_opcode_source_window); /* Now create a cross-reference link that the * simulator can use to send information back to the gui */ if(gp->cpu && gp->cpu->pc) { SourceOpcodeXREF *cross_reference; cross_reference = new SourceOpcodeXREF(); cross_reference->parent_window_type = WT_status_bar; cross_reference->parent_window = (gpointer) this; cross_reference->data = (gpointer) this; gp->cpu->pc->add_xref((gpointer) cross_reference); } Fill(); } void SourceBrowserOpcode_Window::NewProcessor(GUI_Processor *_gp) { GtkSheetRange range; if(!gp || !gp->cpu) return; current_address=0; if(!enabled) return; if(!bIsBuilt) Build(); assert(wt==WT_opcode_source_window); pma = gp->cpu->pma; range.row0=0;range.col0=0; range.rowi=GTK_SHEET(sheet)->maxrow; range.coli=GTK_SHEET(sheet)->maxcol; gtk_sheet_range_set_background(GTK_SHEET(sheet), &range, &normal_pm_bg_color); #if GTK_MAJOR_VERSION >= 2 // --tsd - commented this out when the new gtkextra package was released. //gtk_sheet_range_set_font(GTK_SHEET(sheet), &range, normal_style->font_desc); #else gtk_sheet_range_set_font(GTK_SHEET(sheet), &range, normal_style->font); #endif range.row0=range.rowi=0; range.col0=range.coli=0; gtk_sheet_select_range(GTK_SHEET(sheet),&range); update_label(this,0); } void SourceBrowserOpcode_Window::Build(void) { if(bIsBuilt) return; GtkWidget *hbox; GtkWidget *scrolled_win; GtkRequisition request; gchar _name[10]; gint column_width,char_width; gint i; static GtkStyle *style=0; char *fontstring; if(window!=0) gtk_widget_destroy(window); SourceBrowser_Window::Create(); gtk_window_set_title (GTK_WINDOW (window), "Program memory"); notebook = gtk_notebook_new(); gtk_widget_show(notebook); gtk_box_pack_start (GTK_BOX (vbox), notebook, TRUE, TRUE, 0); gtk_window_set_default_size(GTK_WINDOW(window), width,height); gtk_widget_set_uposition(GTK_WIDGET(window),x,y); /**************************** load fonts *********************************/ #if GTK_MAJOR_VERSION >= 2 #define DEFAULT_NORMALFONT "Nimbus Mono L 12" #define DEFAULT_BREAKPOINTFONT "Nimbus Mono L Bold 12" #define DEFAULT_PCFONT "Nimbus Mono L Bold 12" style = gtk_style_new(); if (style->font_desc) { strcpy(normalfont_string, pango_font_description_to_string(style->font_desc)); strcpy(breakpointfont_string, normalfont_string); strcpy(pcfont_string, normalfont_string); } else { strcpy(normalfont_string,DEFAULT_NORMALFONT); strcpy(breakpointfont_string,DEFAULT_BREAKPOINTFONT); strcpy(pcfont_string,DEFAULT_PCFONT); } #else #define DEFAULT_NORMALFONT "-adobe-courier-*-r-*-*-*-140-*-*-*-*-*-*" #define DEFAULT_BREAKPOINTFONT "-adobe-courier-bold-r-*-*-*-140-*-*-*-*-*-*" #define DEFAULT_PCFONT "-adobe-courier-bold-r-*-*-*-140-*-*-*-*-*-*" strcpy(normalfont_string,DEFAULT_NORMALFONT); strcpy(breakpointfont_string,DEFAULT_BREAKPOINTFONT); strcpy(pcfont_string,DEFAULT_PCFONT); #endif if(config_get_string(name(),"normalfont",&fontstring)) strcpy(normalfont_string,fontstring); if(config_get_string(name(),"breakpointfont",&fontstring)) strcpy(breakpointfont_string,fontstring); if(config_get_string(name(),"pcfont",&fontstring)) strcpy(pcfont_string,fontstring); while(!load_styles(this)) { if(gui_question("Some fonts did not load.","Open font dialog","Try defaults")==FALSE) { strcpy(normalfont_string,DEFAULT_NORMALFONT); strcpy(breakpointfont_string,DEFAULT_BREAKPOINTFONT); strcpy(pcfont_string,DEFAULT_PCFONT); config_set_string(name(),"normalfont",normalfont_string); config_set_string(name(),"breakpointfont",breakpointfont_string); config_set_string(name(),"pcfont",pcfont_string); } else { settings_dialog(this); } } ///////////////////////////////////////////////////////////////// // create clist ///////////////////////////////////////////////////////////////// scrolled_win = gtk_scrolled_window_new (0, 0); gtk_widget_show(scrolled_win); gtk_container_set_border_width (GTK_CONTAINER (scrolled_win), 5); gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolled_win), GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC); /* create GtkCList here so we have a pointer to throw at the * button callbacks -- more is done with it later */ clist = gtk_clist_new_with_titles (columns, (gchar **)column_titles); // The following line is silly but it stops GTK printing an assert // in Fedora 19 with Adwaita theme gtk_widget_set_style(clist, gtk_widget_get_style(clist)); gtk_widget_show(clist); gtk_container_add (GTK_CONTAINER (scrolled_win), clist); /* Add a signal handler for button press events. This will capture * commands for setting and/or clearing break points */ gtk_signal_connect(GTK_OBJECT(clist),"button_press_event", (GtkSignalFunc) button_press, (gpointer) this); gtk_notebook_append_page(GTK_NOTEBOOK(notebook), scrolled_win, gtk_label_new("Assembly")); gtk_clist_set_row_height (GTK_CLIST (clist), 18); gtk_widget_set_usize (clist, 300, 100); gtk_clist_set_selection_mode (GTK_CLIST (clist), GTK_SELECTION_EXTENDED); for (i = 0; i < columns; i++) { gtk_clist_set_column_width (GTK_CLIST (clist), i, 80); gtk_clist_set_column_auto_resize (GTK_CLIST (clist), i, FALSE); gtk_clist_set_column_justification (GTK_CLIST (clist), i, GTK_JUSTIFY_LEFT); // %%% FIX ME // Hide the profile column for now... if(i == 0) gtk_clist_set_column_visibility (GTK_CLIST (clist), i, FALSE); } for (i = 0; i < DEFAULT_ROWS; i++) { sprintf (row_text[ADDRESS_COLUMN], "0x%04X", i); gtk_clist_append (GTK_CLIST (clist), row_text); gtk_clist_set_row_style (GTK_CLIST (clist), i, normal_style); } ///////////////////////////////////////////////////////////////// // create sheet ///////////////////////////////////////////////////////////////// vbox=gtk_vbox_new(FALSE,1); gtk_widget_show(vbox); // Create entry bar hbox=gtk_hbox_new(FALSE,1); gtk_widget_show(hbox); gtk_box_pack_start(GTK_BOX(vbox), hbox, FALSE, TRUE, 0); label=gtk_label_new(""); style=gtk_style_new(); #if GTK_MAJOR_VERSION >= 2 gtk_style_set_font(style, gtk_style_get_font(normal_style)); #else style->font=normal_style->font; #endif gtk_widget_set_style(label,style); gtk_widget_size_request(label, &request); gtk_widget_set_usize(label, 160, request.height); gtk_widget_show(label); gtk_box_pack_start(GTK_BOX(hbox), label, FALSE, TRUE, 0); entry=gtk_entry_new(); style=gtk_style_new(); #if GTK_MAJOR_VERSION >= 2 gtk_style_set_font(style, gtk_style_get_font(normal_style)); #else style->font=normal_style->font; #endif gtk_widget_set_style(entry,style); gtk_widget_show(entry); gtk_box_pack_start(GTK_BOX(hbox), entry, TRUE, TRUE, 0); // Create sheet scrolled_win=gtk_scrolled_window_new(0, 0); gtk_widget_show(scrolled_win); gtk_box_pack_start(GTK_BOX(vbox), scrolled_win, TRUE, TRUE, 0); sheet=gtk_sheet_new(1,17,"where does this string go?"); gtk_widget_show(sheet); gtk_container_add(GTK_CONTAINER(scrolled_win), sheet); gtk_notebook_append_page(GTK_NOTEBOOK(notebook), vbox, gtk_label_new("Opcodes")); #if GTK_MAJOR_VERSION >= 2 PangoRectangle rect; PangoLayout *layout; layout = gtk_widget_create_pango_layout (GTK_WIDGET(sheet), "A"); pango_layout_set_font_description (layout, normalPFD); pango_layout_get_extents (layout, NULL, &rect); char_width = PANGO_PIXELS(rect.width); column_width = 4 * char_width + 5; g_object_unref(layout); #else char_width = gdk_string_width (normal_style->font,"9"); column_width = 5 * char_width + 5; #endif for(i=0; imaxcol; i++){ sprintf(_name,"%02x",i); gtk_sheet_column_button_add_label(GTK_SHEET(sheet), i, _name); gtk_sheet_set_column_title(GTK_SHEET(sheet), i, _name); gtk_sheet_set_column_width (GTK_SHEET(sheet), i, column_width); } sprintf(_name,"ASCII"); gtk_sheet_column_button_add_label(GTK_SHEET(sheet), i, _name); gtk_sheet_set_column_title(GTK_SHEET(sheet), i, _name); gtk_sheet_set_row_titles_width(GTK_SHEET(sheet), column_width); gtk_signal_connect(GTK_OBJECT(sheet), "button_press_event", (GtkSignalFunc) button_press, this); gtk_signal_connect(GTK_OBJECT(gtk_sheet_get_entry(GTK_SHEET(sheet))), "changed", (GtkSignalFunc)show_entry, this); gtk_signal_connect(GTK_OBJECT(sheet), "activate", (GtkSignalFunc)activate_sheet_cell, (gpointer) this); gtk_signal_connect(GTK_OBJECT(entry), "changed", (GtkSignalFunc)show_sheet_entry, this); gtk_signal_connect(GTK_OBJECT(entry), "activate", (GtkSignalFunc)activate_sheet_entry, this); gtk_signal_connect(GTK_OBJECT(sheet), "set_cell", (GtkSignalFunc) parse_numbers, this); ///////////////////////////////////////////////////////////////// gtk_widget_show(scrolled_win); gtk_widget_show(sheet); gtk_signal_connect_after(GTK_OBJECT(window), "configure_event", GTK_SIGNAL_FUNC(gui_object_configure_event),this); gtk_widget_show(window); bIsBuilt = true; //GTKWAIT; NewProcessor(gp); NewSource(gp); /* create popupmenu for sheet */ sheet_popup_menu=build_menu_for_sheet(this); /* create popupmenu for clist */ clist_popup_menu=build_menu_for_clist(this); UpdateMenuItem(); } SourceBrowserOpcode_Window::SourceBrowserOpcode_Window(GUI_Processor *_gp) { static const gchar *titles[] = { "profile", "address", "opcode", "instruction" }; #if GTK_MAJOR_VERSION >= 2 normalPFD = 0; current_line_numberPFD = 0; breakpoint_line_numberPFD = 0; #endif normal_style = 0; current_line_number_style = 0; breakpoint_line_number_style = 0; menu = "
    /Windows/Program memory"; window = 0; pma =0; status_bar = 0; column_titles = titles; columns = 4; gp = _gp; set_name("program_memory"); wc = WC_source; wt = WT_opcode_source_window; memory=0; current_address=0; ascii_mode=1; /// default, two bytes/cell, MSB first int tmp=0; config_get_variable(name(),"ascii_mode",&tmp); ascii_mode = tmp; get_config(); if(enabled) Build(); } #endif // HAVE_GUI gpsim-0.27.0/gui/gui_statusbar.h0000644000076400007640000000541210416272633013467 00000000000000/* Copyright (C) 2004 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __GUI_STATUSBAR_H__ #define __GUI_STATUSBAR_H__ #include "gui.h" class RegisterLabeledEntry; // in gui_statusbar.cc class CyclesLabeledEntry; // in gui_statusbar.cc class TimeLabeledEntry; // in gui_statusbar.cc class MemoryAccess; // in src/processor.h class StatusBar_Window; //======================================================================== // // A LabeledEntry is an object consisting of gtk entry // widget that is labeled (with a gtk lable widget) // /* class LabeledEntry { public: GtkWidget *label; GtkWidget *entry; StatusBar_Window *sbw; LabeledEntry(void); ~LabeledEntry(); void Create(GtkWidget *box,char *clabel, int string_width, bool isEditable); void SetEntryWidth(int string_width); void NewLabel(char *clabel); virtual void Update(void); void AssignParent(StatusBar_Window *); virtual void put_value(unsigned int); }; class RegisterLabeledEntry : public LabeledEntry { public: Register *reg; char *pCellFormat; RegisterLabeledEntry(GtkWidget *,Register *,bool isEditable=true); ~RegisterLabeledEntry(); virtual void put_value(unsigned int); void AssignRegister(Register *new_reg); virtual void Update(void); }; */ // // The Status Bar window // class StatusBar_Window { public: GUI_Processor *gp; CyclesLabeledEntry *cpu_cycles; TimeLabeledEntry *time; list entries; /* class RegisterLabeledList : public list { public: void push_back(GtkWidget *hbox, Register *reg) { list::push_back(new RegisterLabeledEntry(hbox, reg)); } void clear() { iterator iRLE; for(iRLE = begin(); iRLE != end(); ++iRLE) { delete *iRLE; } list::clear(); } }; RegisterLabeledList entries; */ StatusBar_Window(void); void NewProcessor(GUI_Processor *_gp, MemoryAccess *); void Create(GtkWidget *vbox_main); void Update(void); private: MemoryAccess *ma; bool created; GtkWidget *hbox; }; #endif //__GUI_STATUSBAR_H__ gpsim-0.27.0/gui/gui_callbacks.cc0000644000076400007640000000363610416272633013542 00000000000000/* Copyright (C) 1998,1999,2000,2001 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* gui_callbacks.cc * * callback functions for the register viewer */ #include "../config.h" #ifdef HAVE_GUI #include #include /*---------------------------------------------------* * * gui_cb_quit - 'quit' callback * *---------------------------------------------------*/ void gui_cb_quit (GtkWidget *widget, gpointer data) { gtk_main_quit (); } /*---------------------------------------------------* * * gui_cb_break - 'break' callback * *---------------------------------------------------*/ void gui_cb_break (GtkWidget *widget, gpointer data) { printf("break\n"); } /*---------------------------------------------------* * * gui_cb_break_r - 'break_r' callback for break on read * *---------------------------------------------------*/ void gui_cb_break_r (GtkWidget *widget, gpointer data) { printf("break on read\n"); } /*---------------------------------------------------* * * gui_cb_break_w - 'break_w' callback for break on write * *---------------------------------------------------*/ void gui_cb_break_w (GtkWidget *widget, gpointer data) { printf("break on write\n"); } #endif // HAVE_GUI gpsim-0.27.0/gui/gui_regwin.h0000644000076400007640000000613510704252776012763 00000000000000/* Copyright (C) 1998,1999,2000,2001,2002,2003,2004 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __GUI_REGWIN_H__ #define __GUI_REGWIN_H__ #include "gui_register.h" class StatusBar_Window; //====================================================================== // The register window // #define REGISTERS_PER_ROW 16 #define MAX_ROWS ((MAX_REGISTERS)/(REGISTERS_PER_ROW)) class Register_Window : public GUI_Object { public: // This array is indexed with row, and gives the address of the // first cell in the given row. int row_to_address[MAX_ROWS]; char normalfont_string[256]; #if GTK_MAJOR_VERSION >= 2 PangoFontDescription *normalfont; #else GdkFont *normalfont; #endif GtkStyle *current_line_number_style; GtkStyle *breakpoint_line_number_style; REGISTER_TYPE type; GUIRegisterList *registers; GtkSheet *register_sheet; RegisterMemoryAccess *rma; // Apointer to the Processor's rma or ema. GtkWidget *entry; GtkWidget *location; GtkWidget *popup_menu; int registers_loaded; // non zero when registers array is loaded virtual void Build(); int LoadStyles(); int SettingsDialog(); void UpdateStyle(); void SetRegisterSize(); virtual void Update(); virtual void UpdateASCII(int row); virtual void UpdateLabel(); virtual void UpdateEntry(); virtual void UpdateLabelEntry(); virtual void SelectRegister(Value *); virtual void SelectRegister(int reg_number); virtual void NewProcessor(GUI_Processor *gp); virtual GUIRegister *getRegister(int row, int col); virtual gboolean UpdateRegisterCell(unsigned int reg_number); GUIRegister *operator [] (int address); int column_width(int col); int row_height(int row); Register_Window(GUI_Processor *gp); Register_Window(); private: // Formatting int register_size; // The size (in bytes) of a single register char *pCellFormat; // dynamically created format string int char_width; // nominal character width. int char_height; // nominal character height int chars_per_column; // width of 1 column }; class RAM_RegisterWindow : public Register_Window { public: RAM_RegisterWindow(GUI_Processor *gp); virtual void NewProcessor(GUI_Processor *gp); virtual void Update(); StatusBar_Window *sbw; }; class EEPROM_RegisterWindow : public Register_Window { public: EEPROM_RegisterWindow(GUI_Processor *gp); virtual void NewProcessor(GUI_Processor *gp); }; #endif // __GUI_REGWIN_H__ gpsim-0.27.0/gui/gui_main.cc0000664000076400007640000002623712177133234012552 00000000000000/* Copyright (C) 1998,1999,2000,2001 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "../config.h" #ifdef HAVE_GUI #include #include #include #include #include #include "../src/gpsim_def.h" #include "../src/gpsim_interface.h" #include "gui.h" #include "gui_breadboard.h" #include "gui_interface.h" #include "gui_processor.h" #include "gui_profile.h" #include "gui_register.h" #include "gui_regwin.h" #include "gui_scope.h" #include "gui_src.h" #include "gui_stack.h" #include "gui_statusbar.h" #include "gui_stopwatch.h" #include "gui_symbols.h" #include "gui_trace.h" #include "gui_watch.h" #ifndef _WIN32 #undef TRUE #undef FALSE #include "settings_exdbm.h" #else #include "settings_reg.h" #endif extern int gui_animate_delay; // in milliseconds /* * --- Function prototypes */ void init_link_to_gpsim(GUI_Processor *gp); void link_src_to_gpsim(GUI_Processor *gp); /* * --- Global variables */ GUI_Processor *gpGuiProcessor=0; GSList *gui_processors=0; unsigned int interface_id=0; Settings *settings; extern GtkWidget *dispatcher_window; extern void dispatch_Update(); //------------------------------------------------------------------------ // extern bool gUsingThreads(); // in ../src/interface.cc //------------------------------------------------------------------------ // debug static void gtl() { #if GLIB_MAJOR_VERSION >= 2 #ifdef GPSIM_THREAD if(gUsingThreads()) gdk_threads_leave (); #endif #endif } static void gte() { #if GLIB_MAJOR_VERSION >= 2 #ifdef GPSIM_THREAD if(gUsingThreads()) gdk_threads_enter (); #endif #endif } //------------------------------------------------------------------------ void CrossReferenceToGUI::Update(int new_value) { printf("CrossReferenceToGUI::Update shouldn't be called!\n"); } void CrossReferenceToGUI::Remove(void) { printf("CrossReferenceToGUI::Remove shouldn't be called!\n"); } //------------------------------------------------------------------------ // class GUI_Interface : public Interface { private: GUI_Processor *gp; public: virtual void UpdateObject (gpointer xref,int new_value); virtual void RemoveObject (gpointer xref); virtual void SimulationHasStopped (gpointer object); virtual void NewProcessor (Processor *); virtual void NewModule (Module *module); virtual void NodeConfigurationChanged (Stimulus_Node *node); virtual void NewProgram (Processor *); virtual void Update (gpointer object); virtual ~GUI_Interface(); GUI_Interface(GUI_Processor *_gp); }; GUI_Interface::GUI_Interface(GUI_Processor *_gp) : Interface ( (gpointer *) _gp) { gp = _gp; } GUI_Interface::~GUI_Interface() { if(gp) { gp->regwin_ram->set_config(); gp->regwin_eeprom->set_config(); gp->program_memory->set_config(); gp->source_browser->set_config(); gp->watch_window->set_config(); gp->stack_window->set_config(); gp->breadboard_window->set_config(); gp->trace_window->set_config(); gp->profile_window->set_config(); gp->stopwatch_window->set_config(); gp->scope_window->set_config(); } } /*------------------------------------------------------------------ * UpdateObject * * Each 'thing' that the gui displays about a simulated pic has an * associated cross reference structure. Sometimes these 'things' * displayed in more than one place (like the status register). * Each graphical instance has its own structure. All of the structures * pertaining to the same pic object (again, like the status register) * are stored in a singly-linked list. This routine scans through * this list and updates each instance of the object. */ void GUI_Interface::UpdateObject(gpointer gui_xref,int new_value) { gte (); CrossReferenceToGUI *xref = (CrossReferenceToGUI *)gui_xref; xref->Update(new_value); gtl (); } /*------------------------------------------------------------------ * RemoveObject * */ void GUI_Interface::RemoveObject(gpointer gui_xref) { CrossReferenceToGUI *xref = (CrossReferenceToGUI *)gui_xref; xref->Remove(); } #if GLIB_MAJOR_VERSION >= 2 #ifdef GPSIM_THREAD // thread variables. static GMutex *muSimStopMutex=0; static GCond *cvSimStopCondition=0; #endif #endif extern int gui_animate_delay; // in milliseconds static GUI_Processor *lgp=0; static void *SimulationHasStopped( void *ptr ) { #if GLIB_MAJOR_VERSION >= 2 #ifdef GPSIM_THREAD while(1) { if(gUsingThreads()) { g_mutex_lock(muSimStopMutex); g_cond_wait(cvSimStopCondition, muSimStopMutex); } #endif #endif if(lgp) { GTKWAIT; lgp->regwin_ram->Update(); lgp->regwin_eeprom->Update(); lgp->program_memory->Update(); lgp->source_browser->Update(); lgp->watch_window->Update(); lgp->stack_window->Update(); lgp->breadboard_window->Update(); lgp->trace_window->Update(); lgp->profile_window->Update(); lgp->stopwatch_window->Update(); lgp->scope_window->Update(); } if(gui_animate_delay!=0) usleep(1000*gui_animate_delay); dispatch_Update(); #if GLIB_MAJOR_VERSION >= 2 #ifdef GPSIM_THREAD if(gUsingThreads()) g_mutex_unlock(muSimStopMutex); else return 0; } #endif #endif return 0; } /*------------------------------------------------------------------ * SimulationHasStopped * */ void GUI_Interface::SimulationHasStopped(gpointer callback_data) { if(callback_data) { lgp = (GUI_Processor *) callback_data; #if GLIB_MAJOR_VERSION >= 2 #ifdef GPSIM_THREAD if(gUsingThreads()) { g_mutex_lock(muSimStopMutex); g_cond_signal(cvSimStopCondition); g_mutex_unlock(muSimStopMutex); } else #endif #endif ::SimulationHasStopped(0); } } /*------------------------------------------------------------------ * NewProcessor - Add a new processor * * This routine adds another processor to the list of currently * simulated processors (as of 0.0.14 though, you're still limited * to a list of one). It then notifies each child window. Finally * a communication link between the gui and the simulator is established. */ void GUI_Interface::NewProcessor (Processor *new_cpu) { // Create a gui representation of the new processor if(gp) { gte (); gp->SetCPU(new_cpu); gui_processors = g_slist_append(gui_processors,gp); gp->regwin_ram->NewProcessor(gp); // RRR gp->program_memory->NewProcessor(gp); gp->source_browser->CloseSource(); gp->source_browser->NewProcessor(gp); gp->symbol_window->NewSymbols(); //gp->watch_window->NewProcessor(gp); gp->breadboard_window->NewProcessor(gp); gp->stack_window->NewProcessor(gp); gp->trace_window->NewProcessor(gp); gp->profile_window->NewProcessor(gp); gp->stopwatch_window->NewProcessor(gp); //gp->scope_window->NewProcessor(gp); Dprintf((" New processor has been added")); gtl (); } } /*------------------------------------------------------------------ * */ void GUI_Interface::NewModule (Module *module) { // FIX ME - need to search for *p in the gp list... if(gp) gp->breadboard_window->NewModule(module); } /*------------------------------------------------------------------ * */ void GUI_Interface::NodeConfigurationChanged (Stimulus_Node *node) { // FIX ME - need to search for *p in the gp list... if(gp) gp->breadboard_window->NodeConfigurationChanged(node); } /*------------------------------------------------------------------ * */ void GUI_Interface::NewProgram (Processor *new_cpu) { if(gp) { gte (); gp->regwin_eeprom->NewProcessor(gp); gp->source_browser->CloseSource(); gp->source_browser->NewSource(gp); gp->symbol_window->NewSymbols(); gp->program_memory->NewSource(gp); gp->profile_window->NewProgram(gp); gp->watch_window->NewProcessor(gp); link_src_to_gpsim( gp); gtl (); } } void GUI_Interface::Update(gpointer object) { SimulationHasStopped(object); } /*------------------------------------------------------------------ * */ #if GTK_MAJOR_VERSION >= 2 int gStringWidth(PangoFontDescription *font, const char *str) { return (font && str) ? gdk_string_width (gdk_font_from_description(font),str) : 0; } int gStringHeight(PangoFontDescription *font, const char *str) { return (font && str) ? gdk_string_height (gdk_font_from_description(font),str) : 0; } GdkFont *gFontFromDescription(PangoFontDescription *font) { return (font ? gdk_font_from_description(font) : 0); } #else int gStringWidth(GdkFont *font, const char *str) { return (font && str) ? gdk_string_width (font,str) : 0; } int gStringHeight(GdkFont *font, const char *str) { return (font && str) ? gdk_string_height (font,str) : 0; } #endif /*------------------------------------------------------------------ * quit_gui * */ void quit_gui(void) { if(!get_interface().bUsingGUI()) return; int x,y,width,height; gdk_window_get_root_origin(dispatcher_window->window,&x,&y); gdk_window_get_size(dispatcher_window->window,&width,&height); config_set_variable("dispatcher", "enable", 1); config_set_variable("dispatcher", "x", x); config_set_variable("dispatcher", "y", y); config_set_variable("dispatcher", "width", width); config_set_variable("dispatcher", "height", height); get_interface().remove_interface(interface_id); gtk_main_quit(); } /*------------------------------------------------------------------ * gui_init * */ int gui_init (int argc, char **argv) { #ifndef _WIN32 settings = new SettingsEXdbm("gpsim"); #else settings = new SettingsReg("gpsim"); #endif #if GLIB_MAJOR_VERSION >= 2 // This code is not currently used #ifdef GPSIM_THREAD if(gUsingThreads()) { GThread *Thread1; GError *err1 = NULL ; muSimStopMutex = g_mutex_new (); cvSimStopCondition = g_cond_new (); g_mutex_lock(muSimStopMutex); if( (Thread1 = g_thread_create((GThreadFunc)SimulationHasStopped, (void *)0, TRUE, &err1)) == NULL) { printf("Thread create failed: %s!!\n", err1->message ); g_error_free ( err1 ) ; } g_mutex_unlock(muSimStopMutex); } #endif // GPSIM_THREAD #endif if (!gtk_init_check (&argc, &argv)) { return -1; } // standardize IO format ref bug 1832702 setlocale(LC_NUMERIC, "C"); gte(); gpGuiProcessor = new GUI_Processor(); interface_id = get_interface().add_interface(new GUI_Interface(gpGuiProcessor)); gtl(); return(0); } void gui_main(void) { gte (); gtk_main (); gtl (); } #endif //HAVE_GUI gpsim-0.27.0/gui/gui_stack.cc0000664000076400007640000002165412201276457012734 00000000000000/* Copyright (C) 2000,2001 Ralf Forsberg Copyright (c) 2013 Roy R Rankin This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include #include "../config.h" #ifdef HAVE_GUI #include #include #include #include #include #include #include "../src/sim_context.h" #include "../src/interface.h" #include "../src/symbol.h" #include "gui.h" #include "gui_stack.h" #include "gui_src.h" struct stack_entry { unsigned int depth; // index in stack array unsigned int retaddress; // last known return address }; #define COLUMNS 2 #define DEPTHCOL 0 #define RETADDRCOL 1 static const gchar *stack_titles[COLUMNS]={"depth", "return address"}; /* */ static gint sigh_button_event(GtkWidget *widget, GdkEventButton *event, Stack_Window *sw) { struct stack_entry *entry; assert(event&&sw); if(!sw->gp || !sw->gp->cpu) return 0; if(event->type==GDK_2BUTTON_PRESS && event->button==1) { int row=sw->current_row; entry = (struct stack_entry*) gtk_clist_get_row_data(GTK_CLIST(sw->stack_clist), row); if(entry) sw->gp->cpu->pma->toggle_break_at_address(entry->retaddress); return 1; } return 0; } static gint stack_list_row_selected(GtkCList *stacklist,gint row, gint column,GdkEvent *event, Stack_Window *sw) { struct stack_entry *entry; sw->current_row=row; sw->current_column=column; entry = (struct stack_entry*) gtk_clist_get_row_data(GTK_CLIST(sw->stack_clist), row); if(!entry) return TRUE; sw->gp->source_browser->SelectAddress(entry->retaddress); sw->gp->program_memory->SelectAddress(entry->retaddress); return 0; } static void stack_click_column(GtkCList *clist, int column) { static int last_col=-1; static GtkSortType last_sort_type=GTK_SORT_DESCENDING; if(last_col==-1) last_col=column; if(last_col == column) { if(last_sort_type==GTK_SORT_DESCENDING) { gtk_clist_set_sort_type(clist,GTK_SORT_ASCENDING); last_sort_type=GTK_SORT_ASCENDING; } else { gtk_clist_set_sort_type(clist,GTK_SORT_DESCENDING); last_sort_type=GTK_SORT_DESCENDING; } } gtk_clist_set_sort_column(clist,column); gtk_clist_sort(clist); last_col=column; } static int delete_event(GtkWidget *widget, GdkEvent *event, Stack_Window *sw) { sw->ChangeView(VIEW_HIDE); return TRUE; } // find name of label closest before 'address' and copy found data // into name and offset static int get_closest_label(Stack_Window *sw, int address, char *name, int *offset) { // this function assumes that address symbols are sorted Value *closest_symbol = 0; #if 0 int minimum_delta=0x2000000; int delta; Symbol_Table &st = CSimulationContext::GetContext()->GetSymbolTable(); Symbol_Table::iterator symIt; Symbol_Table::iterator symItEnd = st.end(); for(symIt=st.begin(); symIt != symItEnd; symIt++) { Value *s = *symIt; if( (typeid(*s) == typeid(AddressSymbol)) /*|| (typeid(*s) == typeid(line_number_symbol))*/) { int i; s->get(i); delta = abs( i - address); if(delta < minimum_delta) { minimum_delta = delta; closest_symbol = s; } } } #endif if(verbose) cout << "FIXME gui_stack.cc get closest label\n"; if(closest_symbol) { strcpy(name,closest_symbol->name().data()); int i; closest_symbol->get(i); *offset=address-i; return 1; } return 0; } void Stack_Window::Update(void) { int i=0; int nrofentries; //unsigned int pic_id; char depth_string[64]; char retaddress_string[64]; char labelname[64]; int labeloffset; char *entry[COLUMNS]={depth_string,retaddress_string}; unsigned int retaddress; struct stack_entry *stack_entry; if(!gp || !enabled) return; //pic_id = gp->pic_id; pic_processor *pic = dynamic_cast(gp->cpu); if(!pic) return; // Enhanced 14bit processors use 0x1f(31) for empty index which is // also P18 max stack slot, so we mask with 0x1f nrofentries = pic->stack->pointer & 0x1f; if (nrofentries && ((nrofentries-1) > (int)pic->stack->stack_mask)) return; if(last_stacklen!=nrofentries) { // stack has changed, update stack clist gtk_clist_freeze (GTK_CLIST (stack_clist)); while(last_stacklen!=nrofentries) { if(last_stacklen>nrofentries) { // Stack has shrunk // remove row 0 stack_entry = (struct stack_entry*) gtk_clist_get_row_data(GTK_CLIST(stack_clist), 0); free(stack_entry); gtk_clist_remove(GTK_CLIST(stack_clist),0); last_stacklen--; } else { // stack has grown strcpy(depth_string,""); retaddress=pic->stack->contents[last_stacklen & pic->stack->stack_mask]; if(get_closest_label(this,retaddress,labelname,&labeloffset)) sprintf(retaddress_string,"0x%04x (%s+%d)",retaddress,labelname,labeloffset); else sprintf(retaddress_string,"0x%04x",retaddress); gtk_clist_insert (GTK_CLIST(stack_clist), 0, entry); // FIXME this memory is never freed? stack_entry = (struct stack_entry*) malloc(sizeof(struct stack_entry)); stack_entry->retaddress=retaddress; stack_entry->depth=i; gtk_clist_set_row_data(GTK_CLIST(stack_clist), 0, (gpointer)stack_entry); last_stacklen++; } } // update depth column for(i=0;i #include #include #include #include "../config.h" #ifdef HAVE_GUI #include #include #include #include #include #include "../src/bitlog.h" #include "../src/symbol.h" //#define DEBUG #include "gui_scope.h" //static GtkObject *bit_adjust; // ,*delay_adjust; static GdkColor signal_line_color,grid_line_color,grid_v_line_color; static GdkColor highDensity_line_color; //static int bit_left,bit_right,bit_points,update_delay; class WaveformSink; class Waveform; /*********************************************************************** timeMap - a structure that's used to map horizontal screen coordinates into simulation time. */ struct timeMap { // simulation time double time; // pixel x-coordinate int pos; // index into array holding event (fixme - exposes Logger implementation) unsigned int eventIndex; // The event int event; }; /*********************************************************************** WaveSource This is an attribute that provides the interface between the WaveForm class (below) and the names of nodes or stimuli that source information. */ class WaveformSource : public String { public: WaveformSource(Waveform *pParent, const char *_name); // Override the String::set method so that name assignments can // be intercepted. virtual void set(const char *cp, int len=0); private: Waveform *m_pParent; bool m_bHaveSource; }; /*********************************************************************** zoom */ class ZoomAttribute : public Integer { public: ZoomAttribute(Scope_Window *); virtual void set(gint64 i); private: Scope_Window *m_pSW; }; /*********************************************************************** pan */ class PanAttribute : public Integer { public: PanAttribute(Scope_Window *); virtual void set(gint64 i); private: Scope_Window *m_pSW; }; /*********************************************************************** */ class PixMap { public: PixMap(GdkDrawable *pParent, gint w, gint h, gint y); GdkPixmap *pixmap() { return m_pixmap; } gint width; gint height; gint yoffset; // protected: GdkPixmap *m_pixmap; }; PixMap::PixMap(GdkDrawable *pParent, gint w, gint h, gint y) : width(w), height(h), yoffset(y) { m_pixmap = gdk_pixmap_new(pParent, width, height, -1); } GtkWidget *waveDrawingArea=0; GtkWidget *signalDrawingArea=0; // use this if signalDrawingArea is just a drawing area //#define SignalWindow signalDrawingArea->window // use this if signalDrawingArea is a layout widget #define SignalWindow GTK_LAYOUT (signalDrawingArea)->bin_window GdkGC *drawing_gc=0; // Line styles, etc. GdkGC *highDensity_gc=0; // Line styles, etc. GdkGC *text_gc=0; // signal names GdkGC *grid_gc=0; // Grid color GdkGC *leftMarker_gc=0; // Marker style & color /*********************************************************************** SignalNameEntry - a class to control gui editing of signal names */ class SignalNameEntry { public: SignalNameEntry(Scope_Window *parent,GtkEntry *); bool Select(WaveBase *); bool unSelect(); bool isSelected(WaveBase *); WaveBase *getSelected(); GtkEntry *m_entry; protected: Scope_Window *m_parent; WaveBase *m_selectedWave; }; /*********************************************************************** Wavebase class */ class WaveBase { public: WaveBase(Scope_Window *parent, const char *name); virtual ~WaveBase() { } virtual void Update(guint64 start=0, guint64 stop=0)=0; virtual void Build(PixMap *pWavePixmap, PixMap *pSignalPixmap); void setPixmaps(GdkPixmap *, GdkPixmap *); PixMap *wavePixmap() { return m_wavePixmap; } PixMap *signalPixmap() { return m_signalPixmap;} const char *get_text(); virtual void setSource(const char *) { } protected: Scope_Window *sw; // Parent bool isBuilt; // True after the gui has been built. guint64 m_start; // Start time of plotted waveform guint64 m_stop; // Stop time of plotted waveform PixMap *m_wavePixmap; // The Waveform is rendered in this pixmap. PixMap *m_signalPixmap; // The signal name is rendered in this pixmap. PangoLayout *m_layout; // Pango layout for rendering signal name }; /*********************************************************************** TimeAxis - A special 'Waveform' for plotting the time */ class TimeAxis : public WaveBase { public: TimeAxis(Scope_Window *parent, const char *name); virtual ~TimeAxis() { } virtual void Build(PixMap *pWavePixmap, PixMap *pSignalPixmap); virtual void Update(guint64 start=0, guint64 stop=0); protected: PangoLayout *m_TicText; }; TimeAxis *m_TimeAxis; /*********************************************************************** Waveform class This holds the gui information related with a gpsim waveform */ class Waveform : public WaveBase { public: Waveform(Scope_Window *parent, const char *name); virtual ~Waveform() { } virtual void Update(guint64 start=0, guint64 stop=0); virtual void Build(PixMap *pWavePixmap, PixMap *pSignalPixmap); void Resize(int width, int height); void SearchAndPlot(timeMap &left, timeMap &right); void Dump(); // debug void setData(char c); virtual void setSource(const char *); void updateLayout(); protected: void PlotTo(timeMap &left, timeMap &right); PinMonitor *m_ppm; WaveformSink *m_pSink; ThreeStateEventLogger *m_logger; timeMap m_last; WaveformSource *m_pSourceName; }; //------------------------------------------------------------------------ // // Scope_Window data items that need to go into the Scope_Window class. // The reason they're here now is simply for development convenience. // // const int nSignals=8; Waveform *signals[nSignals]; // hack int aw=0; int ah=0; /*********************************************************************** WaveformSink - A "sink" is an object that receives data from a "source". In the context of waveform viewer, a source is a stimulus and the viewer is the sink. */ class WaveformSink : public SignalSink { public: WaveformSink(Waveform *pParent); virtual void setSinkState(char); virtual void release() { cout << "Fixme - WaveformSink::release need to notify scope\n"; } protected: Waveform *m_pWaveform; }; //======================================================================== class ZoomInEvent : public KeyEvent { public: virtual ~ZoomInEvent() { } void press(gpointer data) { Scope_Window *sw = (Scope_Window *)(data); if (sw) sw->zoom(2); } void release(gpointer data) {} }; //======================================================================== class ZoomOutEvent : public KeyEvent { public: virtual ~ZoomOutEvent() { } void press(gpointer data) { Scope_Window *sw = (Scope_Window *)(data); if (sw) sw->zoom(-2); } void release(gpointer data) {} }; //======================================================================== class PanLeftEvent : public KeyEvent { public: virtual ~PanLeftEvent() { } void press(gpointer data) { Scope_Window *sw = (Scope_Window *)(data); if (sw) sw->pan(-( (gint64) sw->getSpan()/4)); } void release(gpointer data) {} }; //======================================================================== class PanRightEvent : public KeyEvent { public: virtual ~PanRightEvent() { } void press(gpointer data) { Scope_Window *sw = (Scope_Window *)(data); if (sw) sw->pan( (gint64) sw->getSpan()/4); } void release(gpointer data) {} }; //======================================================================== static map KeyMap; static gint key_press(GtkWidget *widget, GdkEventKey *key, gpointer data) { Dprintf (("press 0x%x\n",key->keyval)); KeyEvent *pKE = KeyMap[key->keyval]; if(pKE) { pKE->press(data); return TRUE; } return FALSE; } static gint key_release(GtkWidget *widget, GdkEventKey *key, gpointer data) { return TRUE; } static gint scroll_event(GtkWidget *widget, GdkEventScroll *scroll, gpointer data) { //printf ("scroll: x:%g y:%g dir:%d keymod:0x%x\n",scroll->x,scroll->y,scroll->direction,scroll->state); return TRUE; } //======================================================================== // WaveformSource WaveformSource::WaveformSource(Waveform *pParent, const char *_name) : String(_name, "", "view or set gui scope waveforms"), m_pParent(pParent), m_bHaveSource(false) { assert(m_pParent); // Prevent removal from the symbol table (all clearable symbols are // removed from the symbol table when a new processor is loaded). } void WaveformSource::set(const char *cp, int len) { if (!m_bHaveSource) { String::set(cp,len); m_pParent->setSource(cp); m_bHaveSource = true; } } //======================================================================== ZoomAttribute::ZoomAttribute(Scope_Window *pSW) : Integer("scope.zoom",0,"Scope Zoom; positive values zoom in, negative values zoom out"), m_pSW(pSW) { assert(m_pSW); } void ZoomAttribute::set(gint64 i) { Integer::set(i); m_pSW->zoom(i); } //======================================================================== PanAttribute::PanAttribute(Scope_Window *pSW) : Integer("scope.pan",0,"Scope Pan; positive values pan right, negative values pan left"), m_pSW(pSW) { assert(m_pSW); } void PanAttribute::set(gint64 i) { Integer::set(i); m_pSW->pan(i); } //======================================================================== WaveformSink::WaveformSink(Waveform *pParent) : SignalSink(), m_pWaveform(pParent) { assert(m_pWaveform); } void WaveformSink::setSinkState(char c) { m_pWaveform->setData(c); } //************************************************************************ WaveBase::WaveBase(Scope_Window *parent, const char *name) : sw(parent), isBuilt(false), m_start(1), m_stop(1), m_wavePixmap(0), m_signalPixmap(0), m_layout(0) { } void WaveBase::Build(PixMap *pWavePixmap, PixMap *pSignalPixmap) { if (m_wavePixmap && m_wavePixmap->pixmap()) gdk_pixmap_unref(m_wavePixmap->pixmap()); m_wavePixmap = pWavePixmap; if (m_signalPixmap && m_signalPixmap->pixmap()) gdk_pixmap_unref(m_signalPixmap->pixmap()); m_signalPixmap = pSignalPixmap; m_layout = gtk_widget_create_pango_layout (GTK_WIDGET (signalDrawingArea), ""); isBuilt = true; Update(0,0); } const char *WaveBase::get_text() { return m_layout ? pango_layout_get_text(m_layout) : 0; } //************************************************************************ Waveform::Waveform(Scope_Window *parent, const char *name) : WaveBase(parent,name), m_ppm(0) { m_pSink = new WaveformSink(this); m_logger = new ThreeStateEventLogger(); m_pSourceName = new WaveformSource(this,name); globalSymbolTable().addSymbol(m_pSourceName); m_logger->event('0'); } void Waveform::Build(PixMap *pWavePixmap, PixMap *pSignalPixmap) { WaveBase::Build(pWavePixmap, pSignalPixmap); updateLayout(); } void Waveform::setData(char c) { m_logger->event(c); } void Waveform::updateLayout() { if (m_layout) { char buffer[100]; m_pSourceName->get(buffer, sizeof(buffer)); pango_layout_set_text(m_layout,buffer,-1); } } void Waveform::setSource(const char *sourceName) { //IOPIN *ppin = dynamic_cast(get_symbol_table().findStimulus(sourceName)); IOPIN *ppin = dynamic_cast(globalSymbolTable().find(string(sourceName))); if (ppin) { if (m_ppm) m_ppm->removeSink(m_pSink); m_ppm = ppin->getMonitor(); if (m_ppm) m_ppm->addSink(m_pSink); updateLayout(); // Invalidate wave area. m_start = m_stop = 1; Update(0,0); if (sw) sw->Expose(this); } else if(sourceName) printf("'%s' is not a valid source for the scope\n",sourceName); } //---------------------------------------- void Waveform::Resize(int w, int h) { Update(); } static bool plotDebug=false; //---------------------------------------- // void Waveform::PlotTo(timeMap &left, timeMap &right) { // Event(s) has(have) been found. // The plotting region has been subdivided as finely as possible // and there are one or more events. // First draw a horizontal line from the last known event to here: gdk_draw_line(m_wavePixmap->pixmap(),drawing_gc, m_last.pos, m_last.event, // last point drawn right.pos, m_last.event); // right most point of this region. // Now draw a vertical line for the event int nextEvent = (m_logger->get_state(right.eventIndex) == '1') ? 1 : (m_wavePixmap->height-3); // Draw a thicker line if there is more than one event. unsigned int nEvents = m_logger->get_nEvents(left.eventIndex,right.eventIndex); if (nEvents>1) { guint16 c = (nEvents < 4) ? (0x4000*nEvents+0x8000) : 0xffff; if (c != highDensity_line_color.blue) { gdk_colormap_free_colors(gdk_colormap_get_system(), &highDensity_line_color, 1); // variations of yellow highDensity_line_color.green = 0xffff; highDensity_line_color.red = 0xffff; highDensity_line_color.blue = c; gdk_colormap_alloc_color(gdk_colormap_get_system(), &highDensity_line_color, TRUE, TRUE); gdk_gc_set_foreground(highDensity_gc,&highDensity_line_color); } gdk_draw_line(m_wavePixmap->pixmap(),highDensity_gc, right.pos, 1, right.pos, m_wavePixmap->height-3); if (left.pos != right.pos) gdk_draw_line(m_wavePixmap->pixmap(),highDensity_gc, left.pos, 1, left.pos, m_wavePixmap->height-3); } else gdk_draw_line(m_wavePixmap->pixmap(),drawing_gc, right.pos, m_last.event, // last point drawn right.pos, nextEvent); // next event if (plotDebug) printf("pos=%d time=%g\n",right.pos,right.time); m_last = right; m_last.event = nextEvent; } //---------------------------------------- // // Waveform SearchAndPlot // // Recursively divide the plotting area into smaller and smaller // regions until either only one event exists or the region can // be divided no smaller. // void Waveform::SearchAndPlot(timeMap &left, timeMap &right) { if (right.eventIndex == left.eventIndex) // The time span cannot be divided any smaller. // If there are no events in this subdivided region // So just return. // m_last = left; ; else if (left.pos+1 >= right.pos) PlotTo(left,right); else { // the subdivided region is larger than 1-pixel wide // and there is at least one event. So subdivide even smaller // and recursively call timeMap mid; mid.time = (left.time + right.time) / 2; mid.pos = (left.pos + right.pos) / 2; mid.eventIndex = m_logger->get_index ((guint64)mid.time); if (plotDebug) cout << " Mid pos="<pixmap(), waveDrawingArea->style->black_gc, TRUE, 0, 0, m_wavePixmap->width, m_wavePixmap->height); gdk_draw_rectangle (m_signalPixmap->pixmap(), signalDrawingArea->style->bg_gc[GTK_STATE_NORMAL], //signalDrawingArea->style->black_gc, TRUE, 0, 0, m_signalPixmap->width, m_signalPixmap->height); if (m_layout) { updateLayout(); int text_height=0; pango_layout_get_pixel_size(m_layout, NULL, &text_height); Dprintf(("signal name update:%s\n",pango_layout_get_text(m_layout))); gdk_draw_layout (GDK_DRAWABLE(m_signalPixmap->pixmap()), signalDrawingArea->style->fg_gc[GTK_STATE_NORMAL], 0, (m_signalPixmap->height-text_height)/2, m_layout); } // // Draw Vertical Grid Lines: // int i; for (i=0; iMajorTicks().sze(); i++) { int x = sw->MajorTicks().pixel(i); gdk_draw_line(m_wavePixmap->pixmap(),grid_gc, x,1, x,m_wavePixmap->height-1); } // // Draw Horizontal Grid Lines: // gdk_draw_line(m_wavePixmap->pixmap(),grid_gc, 0,m_wavePixmap->height-1, m_wavePixmap->width,m_wavePixmap->height-1); if (m_stop == 0) return; // Draw Signals: timeMap left; timeMap right; left.pos = 0; left.time = m_start; left.eventIndex = m_logger->get_index(m_start); left.event = (m_logger->get_state(left.eventIndex) == '1') ? 1 : (m_wavePixmap->height-3); m_last = left; right.pos = m_wavePixmap->width; right.time = m_stop; right.eventIndex = m_logger->get_index(m_stop); SearchAndPlot(left,right); if (right.pos > m_last.pos) gdk_draw_line(m_wavePixmap->pixmap(),drawing_gc, m_last.pos, m_last.event, // last point drawn right.pos, m_last.event); // right most point } //======================================================================== TimeAxis::TimeAxis(Scope_Window *parent, const char *name) : WaveBase(parent,name), m_TicText(0) { } //---------------------------------------- // // TimeAxis Update // void TimeAxis::Update(guint64 uiStart, guint64 uiEnd) { if(!isBuilt) return; if(!m_wavePixmap) { cout << __FUNCTION__ << " pixmap is NULL\n"; return; } if (uiEnd == 0) uiEnd = get_cycles().get(); if (m_start == uiStart && m_stop == uiEnd) return; m_start = uiStart; m_stop = uiEnd; gdk_draw_rectangle (m_wavePixmap->pixmap(), waveDrawingArea->style->bg_gc[GTK_STATE_NORMAL], TRUE, 0, 0, m_wavePixmap->width, m_wavePixmap->height); gdk_draw_rectangle (m_signalPixmap->pixmap(), signalDrawingArea->style->bg_gc[GTK_STATE_NORMAL], TRUE, 0, 0, m_signalPixmap->width, m_signalPixmap->height); // // Draw Major Ticks: // int i; for (i=0; iMajorTicks().sze(); i++) { int x = sw->MajorTicks().pixel(i); gdk_draw_line(m_wavePixmap->pixmap(),grid_gc, x,m_wavePixmap->height-3, x,m_wavePixmap->height-1); if (m_TicText) { char buff[100]; snprintf(buff, sizeof(buff),"%" PRINTF_GINT64_MODIFIER "d", sw->MajorTicks().cycle(i)); pango_layout_set_text(m_TicText, buff, -1); int text_height=0; int text_width=0; pango_layout_get_pixel_size(m_TicText, &text_width, &text_height); text_width /= 2; x = ((x-text_width) < 0) ? 0 : (x-text_width); x = ((x+text_width) > m_wavePixmap->width) ? (x-text_width) : x; gdk_draw_layout (GDK_DRAWABLE(m_wavePixmap->pixmap()), waveDrawingArea->style->fg_gc[GTK_STATE_NORMAL], x, (m_wavePixmap->height-text_height)/2, m_TicText); } } // // Draw Minor Ticks: // for (i=0; iMinorTicks().sze(); i++) { int x = sw->MinorTicks().pixel(i); gdk_draw_line(m_wavePixmap->pixmap(),grid_gc, x,m_wavePixmap->height-3, x,m_wavePixmap->height-1); } // // Draw Horizontal Grid Lines: // gdk_draw_line(m_wavePixmap->pixmap(),grid_gc, 0,m_wavePixmap->height-1, m_wavePixmap->width,m_wavePixmap->height-1); } void TimeAxis::Build(PixMap *pWavePixmap, PixMap *pSignalPixmap) { WaveBase::Build(pWavePixmap, pSignalPixmap); // Invalidate the start time after the build. // This is for the case where the scope window gets opened after // the simulation has already been started. m_start=m_stop=0; /* if (m_layout) pango_layout_set_text(m_layout,"Time", -1); */ m_TicText = gtk_widget_create_pango_layout (GTK_WIDGET (waveDrawingArea), ""); } //------------------------------------------------------------------------ // Signals //---------------------------------------- // // When a user clicks on the "X" in the window managers border of the // scope window, we'll capture that event and hide the scope. // static int delete_event(GtkWidget *widget, GdkEvent *event, Scope_Window *sw) { sw->ChangeView(VIEW_HIDE); return TRUE; } static gint Scope_Window_expose_event (GtkWidget *widget, GdkEventExpose *event, Scope_Window *sw) { Dprintf(( " %s\n",__FUNCTION__)); g_return_val_if_fail (widget != NULL, TRUE); // g_return_val_if_fail (GTK_IS_DRAWING_AREA (widget), TRUE); if(sw) { sw->refreshSignalNameGraphics(); } return FALSE; } static gint DrawingArea_expose_event (GtkWidget *widget, GdkEventExpose *event, Scope_Window *sw) { Dprintf(( " %s\n",__FUNCTION__)); if(sw) sw->Update(); return FALSE; } //------------------------------------------------------------------------ class TimeMarker : public Integer { public: TimeMarker(Scope_Window *parent, const char *_name, const char *desc); virtual void set(gint64 i); private: Scope_Window *m_pParent; }; TimeMarker::TimeMarker(Scope_Window *parent, const char *_name, const char *desc) : Integer(_name,0,desc), m_pParent(parent) { assert(m_pParent); } void TimeMarker::set(gint64 i) { Integer::set(i); m_pParent->Update(); } //======================================================================== GridPointMapping::GridPointMapping(int nPointsToMap) : m_pointsAllocated(nPointsToMap), m_nPoints(0) { m_pixel = new int[m_pointsAllocated]; m_cycle = new guint64[m_pointsAllocated]; } //======================================================================== // SignalNameEntry SignalNameEntry::SignalNameEntry(Scope_Window *parent,GtkEntry *entry) : m_entry(entry), m_parent(parent), m_selectedWave(0) { gtk_widget_hide (GTK_WIDGET(m_entry)); } bool SignalNameEntry::Select(WaveBase *pWave) { if (pWave) { gtk_entry_set_text (GTK_ENTRY(m_entry), pWave->get_text()); gtk_widget_show (GTK_WIDGET(m_entry)); gtk_widget_grab_focus (GTK_WIDGET(m_entry)); m_selectedWave = pWave; return true; } return unSelect(); } bool SignalNameEntry::unSelect() { gtk_widget_hide (GTK_WIDGET(m_entry)); m_selectedWave = 0; return false; } bool SignalNameEntry::isSelected(WaveBase *pWave) { return pWave == m_selectedWave; } WaveBase *SignalNameEntry::getSelected() { return m_selectedWave; } //======================================================================== void Scope_Window::refreshSignalNameGraphics() { GTKWAIT; Expose(m_TimeAxis); for (int i=0; igetVal(); guint64 stop = m_Markers[eStop]->getVal(); if (!stop) stop = get_cycles().get(); if (uiStart) *uiStart = start; if (uiEnd) *uiEnd = stop; // // Draw Vertical Grid Lines: // double t1 = (double) start; double t2 = (double) stop; double dt = t2-t1; int iMajor=0; int iMinor=0; m_MajorTicks.m_nPoints = 0; m_MinorTicks.m_nPoints = 0; if (dt > 1.0) { double exp1 = floor(log10(dt)); double dt_tic = pow(10.0,exp1); double nTics = floor(dt/dt_tic); if (nTics < 5.0 && exp1>0.0) dt_tic /= 2.0; const int nMinorTics=5; const double dt_minor= dt_tic/nMinorTics; double ta = ceil(t1/dt_tic); double tb = floor(t2/dt_tic); for (double t=ta; t<=tb; t+=1.0) { double ttic=t*dt_tic; guint64 uiTime = (guint64)(floor(ttic)); m_MajorTicks.m_pixel[iMajor] = mapTimeToPixel(uiTime); m_MajorTicks.m_cycle[iMajor] = uiTime; /* printf ("t=%g dt_tic=%g tmajor=%g %d %lld\n", t,dt_tic,ttic,m_MajorTicks.m_pixel[iMajor],uiTime); */ iMajor++; ttic+=dt_minor; for (int it=1; itallocation.width - gtk_paned_get_position(GTK_PANED(m_pHpaned)))) *gNormalizedHorizontalPosition); } void Scope_Window::Expose(WaveBase *wf) { if(!wf || !waveDrawingArea) return; int xoffset = waveXoffset(); PixMap *pm = wf->wavePixmap(); gdk_draw_pixmap(waveDrawingArea->window, waveDrawingArea->style->fg_gc[GTK_STATE_NORMAL], pm->pixmap(), xoffset,0, // source 0,pm->yoffset, // destination pm->width,pm->height); pm = wf->signalPixmap(); // If the Waveform is selected for editing, then there's a gtk_entry // widget exposed showing the signal name. If we're not editing, then // show the pixmap with the signal name: if (!m_entry->isSelected(wf)) { gdk_draw_pixmap(SignalWindow, signalDrawingArea->style->fg_gc[GTK_STATE_NORMAL], pm->pixmap(), 0,0, // source 0,pm->yoffset, // destination pm->width,pm->height); } } //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% #if 0 // defined but not used static void ScrollAdjustments(GtkViewport *viewport, GtkAdjustment *arg1, GtkAdjustment *arg2, gpointer user_data) { printf("%s\n",__FUNCTION__); } static void ScrollChildren(GtkScrolledWindow *scrolledwindow, GtkScrollType *arg1, gboolean arg2, gpointer user_data) { printf("%s\n",__FUNCTION__); } #endif static void hAdjVChange(GtkAdjustment *pAdj, gpointer user_data) { gdouble width = pAdj->upper - pAdj->lower - pAdj->page_size; gNormalizedHorizontalPosition = pAdj->value/ (width ? width : 1.0); } static gint button_press(GtkWidget *widget, GdkEventButton *pEventButton, Scope_Window *sw) { if (pEventButton) { Dprintf (("button: button:%d x=%g y=%g evt=%d modifier=0x%x\n", pEventButton->button, pEventButton->x,pEventButton->y,pEventButton->type,pEventButton->state)); if (sw) { sw->UpdateMarker(pEventButton->x,pEventButton->y, pEventButton->button, pEventButton->state); } } return TRUE; } bool Scope_Window::endSignalNameSelection(bool bAccept) { gtk_widget_grab_focus (GTK_WIDGET(waveDrawingArea)); WaveBase *pwf = m_entry->getSelected(); if (pwf) { if (bAccept) pwf->setSource(gtk_entry_get_text(m_entry->m_entry)); m_entry->Select(0); return true; } return false; } //------------------------------------------------------------------------ bool Scope_Window::selectSignalName(int y) { int timeHeight=15; int waveHeight=20; bool bRet=true; y = (y > timeHeight) ? ((y-timeHeight)/waveHeight) : -1; if (y>=0 && yisSelected(signals[y])) return false; m_entry->unSelect(); PixMap *pm = signals[y]->wavePixmap(); if (pm) gtk_layout_move(GTK_LAYOUT(signalDrawingArea), GTK_WIDGET(m_entry->m_entry), 0,pm->yoffset-2); bRet = m_entry->Select(signals[y]); } else bRet = endSignalNameSelection(true); if (bRet) refreshSignalNameGraphics(); return bRet; } //************************************************************************ // S I G N A L S //************************************************************************ gint Scope_Window::signalEntryKeyPress(GtkEntry *widget, GdkEventKey *key, Scope_Window *sw) { Dprintf (("Entry keypress 0x%x\n",key->keyval)); if ( key){ if ( key->keyval==GDK_Return) sw->endSignalNameSelection(true); if ( key->keyval==GDK_Escape) sw->endSignalNameSelection(false); } return FALSE; } gint Scope_Window::signalButtonPress(GtkWidget *widget, GdkEventButton *pEventButton, Scope_Window *sw) { if (pEventButton) { Dprintf ((" Signal: button:%d x=%g y=%g evt=%d modifier=0x%x\n", pEventButton->button, pEventButton->x,pEventButton->y,pEventButton->type,pEventButton->state)); sw->selectSignalName((int)(pEventButton->y)); } return TRUE; } //------------------------------------------------------------------------ // // Scope_Window member functions // // // ------------------------------------------ // | Window // | -------------------------------------- // | | Horizontal pane // | | ---------------+ +------------------------+ // | | | signal name | | Wave layout // | | | drawing area | | +--------------------- // | | | // //------------------------------------------------------------------------ void Scope_Window::Build() { window = gtk_window_new (GTK_WINDOW_TOPLEVEL); if (!window) return; // The "realize" operation creates basic resources like GC's etc. that // are referenced below. Without this call, those resources will be NULL. gtk_widget_realize (window); gtk_window_set_title(GTK_WINDOW(window), "Scope"); gtk_window_set_default_size(GTK_WINDOW(window), width,height); gtk_widget_set_uposition(GTK_WIDGET(window),x,y); gtk_tooltips_new(); gtk_signal_connect(GTK_OBJECT (window), "delete_event", GTK_SIGNAL_FUNC(delete_event), this); gtk_signal_connect (GTK_OBJECT (window), "expose_event", GTK_SIGNAL_FUNC (Scope_Window_expose_event), this); #if 0 GtkWidget *spin_button; button = gtk_button_new_with_label ("Zoom In"); gtk_signal_connect (GTK_OBJECT (button), "clicked", GTK_SIGNAL_FUNC (analyzer_zoom_in_callback),this); gtk_table_attach_defaults (GTK_TABLE(table),button,2,4,9,10); button = gtk_button_new_with_label ("Zoom Out"); gtk_signal_connect (GTK_OBJECT (button), "clicked", GTK_SIGNAL_FUNC (analyzer_zoom_out_callback),this); gtk_table_attach_defaults (GTK_TABLE(table),button,4,6,9,10); button = gtk_button_new_with_label ("About"); gtk_signal_connect (GTK_OBJECT (button), "clicked", GTK_SIGNAL_FUNC (analyzer_screen_about),this); gtk_table_attach_defaults (GTK_TABLE(table),button,6,8,9,10); #endif // // Define the drawing colors // // The signal color is bright red signal_line_color.red = 0xff00; signal_line_color.green = 0x0000; signal_line_color.blue = 0x0000; gdk_colormap_alloc_color(gdk_colormap_get_system(), &signal_line_color, FALSE, TRUE); // The grid color is bright green grid_line_color.red = 0x4000; grid_line_color.green = 0x4000; grid_line_color.blue = 0x4000; gdk_colormap_alloc_color(gdk_colormap_get_system(), &grid_line_color, FALSE, TRUE); // The vertical grid color is dark green grid_v_line_color.red = 0x0000; grid_v_line_color.green = 0x2200; grid_v_line_color.blue = 0x0000; gdk_colormap_alloc_color(gdk_colormap_get_system(), &grid_v_line_color, FALSE, TRUE); // The vertical grid color is dark green highDensity_line_color.red = 0xff00; highDensity_line_color.green = 0xff00; highDensity_line_color.blue = 0xff00; gdk_colormap_alloc_color(gdk_colormap_get_system(), &highDensity_line_color, TRUE, TRUE); waveDrawingArea = gtk_drawing_area_new (); gint dawidth = 400; gint daheight = 100; gtk_widget_set_usize (waveDrawingArea,dawidth,daheight); gtk_widget_set_events (waveDrawingArea, GDK_EXPOSURE_MASK | GDK_BUTTON_PRESS_MASK | GDK_KEY_PRESS_MASK | GDK_KEY_RELEASE_MASK ); signalDrawingArea = gtk_layout_new (NULL, NULL); gtk_widget_set_usize (signalDrawingArea,100,daheight); gtk_widget_set_events (signalDrawingArea, GDK_EXPOSURE_MASK | GDK_BUTTON_PRESS_MASK | GDK_KEY_PRESS_MASK | GDK_KEY_RELEASE_MASK ); pvbox = gtk_vbox_new(FALSE,0); gtk_container_add (GTK_CONTAINER (window), pvbox); m_pHpaned = gtk_hpaned_new (); gtk_widget_show (m_pHpaned); gtk_box_pack_start_defaults (GTK_BOX (pvbox), m_pHpaned); m_hAdj = gtk_adjustment_new (0.0, // value 0.0, // lower m_PixmapWidth, // upper m_PixmapWidth/100.0,// step_increment m_PixmapWidth/10.0, // page_increment m_PixmapWidth/5.0); // page_size m_phScrollBar = gtk_hscrollbar_new(GTK_ADJUSTMENT(m_hAdj)); gtk_box_pack_start_defaults(GTK_BOX(pvbox),m_phScrollBar); gtk_signal_connect(m_hAdj,"value-changed", (GtkSignalFunc) hAdjVChange, this); // Add the drawing areas to the panes gtk_paned_add1(GTK_PANED(m_pHpaned), signalDrawingArea); gtk_paned_add2(GTK_PANED(m_pHpaned), waveDrawingArea); gtk_paned_set_position(GTK_PANED(m_pHpaned),50); gtk_widget_show(waveDrawingArea); gtk_widget_show(signalDrawingArea); // Graphics Context: drawing_gc = gdk_gc_new(waveDrawingArea->window); grid_gc = gdk_gc_new(waveDrawingArea->window); highDensity_gc = gdk_gc_new(waveDrawingArea->window); leftMarker_gc = gdk_gc_new(waveDrawingArea->window); gdk_gc_set_foreground(grid_gc,&grid_line_color); gdk_gc_set_foreground(drawing_gc,&signal_line_color); gdk_gc_set_foreground(highDensity_gc,&highDensity_line_color); gdk_gc_set_foreground(leftMarker_gc,&highDensity_line_color); gdk_gc_set_function(leftMarker_gc,GDK_XOR); text_gc = waveDrawingArea->style->white_gc; guint64 start,stop; gridPoints(&start,&stop); int timeHeight = 15; m_TimeAxis->Build(new PixMap(waveDrawingArea->window, m_PixmapWidth, timeHeight, 0), new PixMap(waveDrawingArea->window, 100, timeHeight, 0)); m_TimeAxis->Update(start,stop); for(int i=0; iBuild(new PixMap(waveDrawingArea->window, m_PixmapWidth, waveHeight, yoffset), new PixMap(waveDrawingArea->window, 100, waveHeight, yoffset)); } gtk_signal_connect (GTK_OBJECT (waveDrawingArea), "expose_event", GTK_SIGNAL_FUNC (DrawingArea_expose_event), this); KeyMap['z'] = new ZoomInEvent(); KeyMap['Z'] = new ZoomOutEvent(); KeyMap['l'] = new PanLeftEvent(); KeyMap['r'] = new PanRightEvent(); /* Add a signal handler for key press events. This will capture * key commands for single stepping, running, etc. */ gtk_signal_connect(GTK_OBJECT(waveDrawingArea), "key_press_event", (GtkSignalFunc) key_press, (gpointer) this); gtk_signal_connect(GTK_OBJECT(waveDrawingArea), "button_press_event", (GtkSignalFunc) button_press, (gpointer) this); gtk_signal_connect(GTK_OBJECT(waveDrawingArea), "key_release_event", (GtkSignalFunc) key_release, (gpointer) this); gtk_signal_connect(GTK_OBJECT(waveDrawingArea), "scroll-event", (GtkSignalFunc) scroll_event, (gpointer) this); GTK_WIDGET_SET_FLAGS( waveDrawingArea, GTK_CAN_FOCUS ); gtk_signal_connect(GTK_OBJECT(signalDrawingArea), "button_press_event", (GtkSignalFunc) signalButtonPress, (gpointer) this); gtk_widget_show_all (window); bIsBuilt = true; UpdateMenuItem(); aw = window->allocation.width; ah = window->allocation.height; m_entry = new SignalNameEntry(this, GTK_ENTRY(gtk_entry_new ())); gtk_layout_put(GTK_LAYOUT(signalDrawingArea), GTK_WIDGET(m_entry->m_entry), 0,0); gtk_signal_connect(GTK_OBJECT(m_entry->m_entry), "key_press_event", (GtkSignalFunc) signalEntryKeyPress, (gpointer) this); } void Scope_Window::Update() { int i; if(!enabled) return; if(!bIsBuilt) Build(); if(m_bFrozen) return; /* cout << "function:" << __FUNCTION__ << "\n"; cout << " a x " << window->allocation.x << " a y " << window->allocation.y << " a width " << window->allocation.width << " a height " << window->allocation.height << endl; cout << " r width " << window->requisition.width << " r height " << window->requisition.height << endl; */ // Compute the grid points guint64 start,stop; gridPoints(&start,&stop); // Horizontal scroll // the scroll bar maps pixel positions into time. // the span of the scroll bar is the span of time that is currently // cached (or soon to be cached) in the waveform pixmaps. // the thumb position is the current view into the cache. // the page-size property is 20% of the span double dspan = stop-start; dspan = (dspanUpdate(start,stop); Expose(m_TimeAxis); for(i=0; iUpdate(start,stop); Expose(signals[i]); } } // Markers int xpos = mapTimeToPixel(m_Markers[eLeftButton]->getVal()) + waveXoffset(); if (xpos) gdk_draw_line(waveDrawingArea->window,leftMarker_gc, xpos, 0, xpos, 1000); /* cout << "Left marker pos="</Windows/Scope"; set_name("scope"); get_config(); m_Markers[eStart] = new TimeMarker(this, "scope.start", "Scope window start time"); m_Markers[eStop] = new TimeMarker(this, "scope.stop", "Scope window stop time"); m_Markers[eLeftButton] = new TimeMarker(this, "scope.left", "Scope window left marker"); m_Markers[eRightButton] = new TimeMarker(this, "scope.right", "Scope window right marker"); m_zoom = new ZoomAttribute(this); m_pan = new PanAttribute(this); globalSymbolTable().addSymbol(m_Markers[eStart]); globalSymbolTable().addSymbol(m_Markers[eStop]); globalSymbolTable().addSymbol(m_Markers[eLeftButton]); globalSymbolTable().addSymbol(m_Markers[eRightButton]); globalSymbolTable().addSymbol(m_zoom); globalSymbolTable().addSymbol(m_pan); m_bFrozen = false; // // Create the signals for the scope window. // signals[0] = new Waveform(this,"scope.ch0"); signals[1] = new Waveform(this,"scope.ch1"); signals[2] = new Waveform(this,"scope.ch2"); signals[3] = new Waveform(this,"scope.ch3"); signals[4] = new Waveform(this,"scope.ch4"); signals[5] = new Waveform(this,"scope.ch5"); signals[6] = new Waveform(this,"scope.ch6"); signals[7] = new Waveform(this,"scope.ch7"); m_TimeAxis = new TimeAxis(this,"scope.time"); if(enabled) Build(); } // zoom(i) // const int minSpan = 10; void Scope_Window::zoom(int i) { m_bFrozen = true; gint64 start = (gint64) m_Markers[eStart]->getVal(); gint64 stop = (gint64) m_Markers[eStop]->getVal(); gint64 now = (gint64) get_cycles().get(); if (!stop) stop = now; gint64 mid = (start + stop)/2; gint64 span = (stop - start)/2; if (i>0) span /= i; else span *= -i; span = span < minSpan ? minSpan : span; start = mid - span; stop = mid + span; if (start > stop) { start = mid - 1; stop = mid + 1; } start = (start < 0) ? 0 : start; stop = (stop >= now) ? 0 : stop; m_Markers[eStart]->set(start); m_Markers[eStop]->set(stop); m_bFrozen = false; Update(); } void Scope_Window::pan(int i) { gint64 start = i+(gint64) m_Markers[eStart]->getVal(); gint64 stop = (gint64) m_Markers[eStop]->getVal(); gint64 now = (gint64) get_cycles().get(); if (start < 0) return; if (!stop) return; if ((stop+i) > now) return; m_Markers[eStart]->set(start); m_Markers[eStop]->set(stop+i); } gdouble Scope_Window::getSpan() { guint64 start = m_Markers[eStart]->getVal(); guint64 stop = m_Markers[eStop]->getVal(); stop = stop ? stop : get_cycles().get(); return start > stop ? 0.0 : ((gdouble)(stop-start)); } guint64 Scope_Window::mapPixelToTime(unsigned int pixel) { gdouble x = (pixel>=0 && pixelgetVal()); } /// mapTimeToPixel - convert time to a pixel horizontal offset. int Scope_Window::mapTimeToPixel(guint64 time) { gdouble span = getSpan(); guint64 start = m_Markers[eStart]->getVal(); return (int) ((time>start && time<=(start+span)) ? ((time-start)*m_PixmapWidth)/span : 0); } #endif //HAVE_GUI gpsim-0.27.0/gui/Makefile.in0000664000076400007640000005660412210742104012507 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ # gpsim gui VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = gui DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am \ $(top_srcdir)/depcomp ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(libdir)" LTLIBRARIES = $(lib_LTLIBRARIES) libgpsimgui_la_DEPENDENCIES = ../eXdbm/libgpsim_eXdbm.la \ ../src/libgpsim.la ../cli/libgpsimcli.la am_libgpsimgui_la_OBJECTS = gui_break.lo gui_callbacks.lo \ gui_dialog.lo gui_init.lo gui_main.lo gui_menu.lo \ gui_processor.lo gui_regwin.lo gui_src.lo gui_src_asm.lo \ gui_src_opcode.lo gui_statusbar.lo gui_symbols.lo gui_watch.lo \ gui_breadboard.lo gui_stack.lo gui_trace.lo gui_profile.lo \ gui_stopwatch.lo gui_object.lo gui_scope.lo settings_exdbm.lo \ preferences.lo libgpsimgui_la_OBJECTS = $(am_libgpsimgui_la_OBJECTS) AM_V_lt = $(am__v_lt_@AM_V@) am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@) am__v_lt_0 = --silent am__v_lt_1 = AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/depcomp am__depfiles_maybe = depfiles am__mv = mv -f CXXCOMPILE = $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) LTCXXCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) \ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ $(AM_CXXFLAGS) $(CXXFLAGS) AM_V_CXX = $(am__v_CXX_@AM_V@) am__v_CXX_ = $(am__v_CXX_@AM_DEFAULT_V@) am__v_CXX_0 = @echo " CXX " $@; am__v_CXX_1 = CXXLD = $(CXX) CXXLINK = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CXXLD) $(AM_CXXFLAGS) \ $(CXXFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@ AM_V_CXXLD = $(am__v_CXXLD_@AM_V@) am__v_CXXLD_ = $(am__v_CXXLD_@AM_DEFAULT_V@) am__v_CXXLD_0 = @echo " CXXLD " $@; am__v_CXXLD_1 = COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) \ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ $(AM_CFLAGS) $(CFLAGS) AM_V_CC = $(am__v_CC_@AM_V@) am__v_CC_ = $(am__v_CC_@AM_DEFAULT_V@) am__v_CC_0 = @echo " CC " $@; am__v_CC_1 = CCLD = $(CC) LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ $(AM_LDFLAGS) $(LDFLAGS) -o $@ AM_V_CCLD = $(am__v_CCLD_@AM_V@) am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@) am__v_CCLD_0 = @echo " CCLD " $@; am__v_CCLD_1 = SOURCES = $(libgpsimgui_la_SOURCES) DIST_SOURCES = $(libgpsimgui_la_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) # Read a list of newline-separated strings from the standard input, # and print each of them once, without duplicates. Input order is # *not* preserved. am__uniquify_input = $(AWK) '\ BEGIN { nonempty = 0; } \ { items[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in items) print i; }; } \ ' # Make sure the list of sources is unique. This is necessary because, # e.g., the same source file might be shared among _SOURCES variables # for different programs/libraries. am__define_uniq_tagged_files = \ list='$(am__tagged_files)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | $(am__uniquify_input)` ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ AM_CPPFLAGS = @X_CFLAGS@ @Y_CFLAGS@ lib_LTLIBRARIES = libgpsimgui.la libgpsimgui_la_SOURCES = gui_break.cc gui_callbacks.cc gui_dialog.cc gui_init.cc gui_main.cc \ gui_menu.cc gui_processor.cc gui_regwin.cc gui_src.cc gui_src_asm.cc \ gui_src_opcode.cc gui_statusbar.cc gui.h gui_callbacks.h \ gui_interface.h gui_symbols.cc gui_watch.cc gui_breadboard.cc \ gui_stack.cc gui_trace.cc gui_profile.cc \ gui_stopwatch.cc gui_object.cc gui_scope.cc settings_exdbm.cc \ gui_breadboard.h gui_object.h gui_processor.h gui_profile.h \ gui_register.h gui_regwin.h \ gui_scope.h gui_src.h gui_stack.h gui_statusbar.h gui_stopwatch.h \ gui_symbols.h gui_trace.h gui_watch.h \ preferences.cc preferences.h \ settings.h settings_exdbm.h libgpsimgui_la_LIBADD = @X_LDFLAGS@ @Y_LDFLAGS@ @GTK@ @GDK@ @GLIB@ @LIBREADLINE@ ../eXdbm/libgpsim_eXdbm.la ../src/libgpsim.la ../cli/libgpsimcli.la pixmapdir = $(datadir)/gpsim AM_CFLAGS = AM_CXXFLAGS = EXTRA_DIST = makefile.mingw all: all-am .SUFFIXES: .SUFFIXES: .cc .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gui/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gui/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-libLTLIBRARIES: $(lib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \ } uninstall-libLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \ done clean-libLTLIBRARIES: -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) @list='$(lib_LTLIBRARIES)'; \ locs=`for p in $$list; do echo $$p; done | \ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ sort -u`; \ test -z "$$locs" || { \ echo rm -f $${locs}; \ rm -f $${locs}; \ } libgpsimgui.la: $(libgpsimgui_la_OBJECTS) $(libgpsimgui_la_DEPENDENCIES) $(EXTRA_libgpsimgui_la_DEPENDENCIES) $(AM_V_CXXLD)$(CXXLINK) -rpath $(libdir) $(libgpsimgui_la_OBJECTS) $(libgpsimgui_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gui_breadboard.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gui_break.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gui_callbacks.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gui_dialog.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gui_init.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gui_main.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gui_menu.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gui_object.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gui_processor.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gui_profile.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gui_regwin.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gui_scope.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gui_src.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gui_src_asm.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gui_src_opcode.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gui_stack.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gui_statusbar.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gui_stopwatch.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gui_symbols.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gui_trace.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gui_watch.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/preferences.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/settings_exdbm.Plo@am__quote@ .cc.o: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(CXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(CXXCOMPILE) -c -o $@ $< .cc.obj: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(CXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(CXXCOMPILE) -c -o $@ `$(CYGPATH_W) '$<'` .cc.lo: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(LTCXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(LTCXXCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs ID: $(am__tagged_files) $(am__define_uniq_tagged_files); mkid -fID $$unique tags: tags-am TAGS: tags tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) set x; \ here=`pwd`; \ $(am__define_uniq_tagged_files); \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: ctags-am CTAGS: ctags ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) $(am__define_uniq_tagged_files); \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" cscopelist: cscopelist-am cscopelist-am: $(am__tagged_files) list='$(am__tagged_files)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(LTLIBRARIES) installdirs: for dir in "$(DESTDIR)$(libdir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-libLTLIBRARIES install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-libLTLIBRARIES .MAKE: install-am install-strip .PHONY: CTAGS GTAGS TAGS all all-am check check-am clean clean-generic \ clean-libLTLIBRARIES clean-libtool cscopelist-am ctags \ ctags-am distclean distclean-compile distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-libLTLIBRARIES install-man install-pdf \ install-pdf-am install-ps install-ps-am install-strip \ installcheck installcheck-am installdirs maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-compile \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags tags-am uninstall uninstall-am uninstall-libLTLIBRARIES # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/gui/Makefile.am0000664000076400007640000000173312177043162012501 00000000000000# gpsim gui AM_CPPFLAGS = @X_CFLAGS@ @Y_CFLAGS@ lib_LTLIBRARIES = libgpsimgui.la libgpsimgui_la_SOURCES = gui_break.cc gui_callbacks.cc gui_dialog.cc gui_init.cc gui_main.cc \ gui_menu.cc gui_processor.cc gui_regwin.cc gui_src.cc gui_src_asm.cc \ gui_src_opcode.cc gui_statusbar.cc gui.h gui_callbacks.h \ gui_interface.h gui_symbols.cc gui_watch.cc gui_breadboard.cc \ gui_stack.cc gui_trace.cc gui_profile.cc \ gui_stopwatch.cc gui_object.cc gui_scope.cc settings_exdbm.cc \ gui_breadboard.h gui_object.h gui_processor.h gui_profile.h \ gui_register.h gui_regwin.h \ gui_scope.h gui_src.h gui_stack.h gui_statusbar.h gui_stopwatch.h \ gui_symbols.h gui_trace.h gui_watch.h \ preferences.cc preferences.h \ settings.h settings_exdbm.h libgpsimgui_la_LIBADD = @X_LDFLAGS@ @Y_LDFLAGS@ @GTK@ @GDK@ @GLIB@ @LIBREADLINE@ ../eXdbm/libgpsim_eXdbm.la ../src/libgpsim.la ../cli/libgpsimcli.la pixmapdir = $(datadir)/gpsim AM_CFLAGS = AM_CXXFLAGS = EXTRA_DIST = makefile.mingw gpsim-0.27.0/gui/gui_processor.h0000644000076400007640000000417110416272633013477 00000000000000/* Copyright (C) 1998,1999,2000,2001,2002,2003,2004 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __GUI_PROCESSOR_H__ #define __GUI_PROCESSOR_H__ #define NEW_SOURCE_BROWSER // Forward references to all of the classes. class RAM_RegisterWindow; class EEPROM_RegisterWindow; #if defined(NEW_SOURCE_BROWSER) class SourceWindow; #endif class SourceBrowser_Window; class SourceBrowserParent_Window; class Symbol_Window; class Watch_Window; class Stack_Window; class Breadboard_Window; class Trace_Window; class Profile_Window; class StopWatch_Window; class Scope_Window; class Processor; class GUIRegisterList; // The gui_processor structure ties the gui window(s) // to a pic that is being simulated. // class GUI_Processor { public: GUI_Processor(void); void SetCPU(Processor *new_cpu); RAM_RegisterWindow *regwin_ram; EEPROM_RegisterWindow *regwin_eeprom; #if defined(NEW_SOURCE_BROWSER) SourceWindow *source_window; #endif SourceBrowser_Window *program_memory; SourceBrowserParent_Window *source_browser; Symbol_Window *symbol_window; Watch_Window *watch_window; Stack_Window *stack_window; Breadboard_Window *breadboard_window; Trace_Window *trace_window; Profile_Window *profile_window; StopWatch_Window *stopwatch_window; Scope_Window *scope_window; // The pic that's associated with the gui Processor *cpu; GUIRegisterList * m_pGUIRamRegisters; GUIRegisterList * m_pGUIEEPromRegisters; }; #endif //__GUI_PROCESSOR_H__ gpsim-0.27.0/gui/gui_menu.cc0000664000076400007640000013625712175377102012600 00000000000000/* Copyright (C) 1998,1999,2000,2001 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include "../config.h" #ifdef HAVE_GUI #ifdef DOING_GNOME #include #endif #include #include #include #include #include #include #include #include #include #include "gui.h" #include "preferences.h" #include "gui_callbacks.h" #include "gui_breadboard.h" #include "gui_processor.h" #include "gui_profile.h" #include "gui_register.h" #include "gui_regwin.h" #include "gui_scope.h" #include "gui_src.h" #include "gui_stack.h" #include "gui_stopwatch.h" #include "gui_symbols.h" #include "gui_trace.h" #include "gui_watch.h" #include "../cli/input.h" // for gpsim_open() #include "../src/gpsim_interface.h" typedef struct _note_book_item { gchar *name; GtkSignalFunc func; } NotebookItem; GtkItemFactory *item_factory=0; extern GUI_Processor *gpGuiProcessor; static void do_quit_app(GtkWidget *widget) { exit_gpsim(0); } static void show_message (const char *title, const char *message) { GtkWidget *window; GtkWidget *label; GtkWidget *button; window = gtk_dialog_new (); gtk_window_set_title (GTK_WINDOW (window), title); gtk_container_set_border_width (GTK_CONTAINER (window), 0); button = gtk_button_new_with_label ("close"); gtk_container_set_border_width (GTK_CONTAINER (button), 10); gtk_signal_connect_object (GTK_OBJECT (button), "clicked", GTK_SIGNAL_FUNC(gtk_widget_destroy), GTK_OBJECT (window)); GTK_WIDGET_SET_FLAGS (button, GTK_CAN_DEFAULT); gtk_box_pack_start (GTK_BOX (GTK_DIALOG (window)->action_area), button, TRUE, TRUE, 0); gtk_widget_grab_default(button); gtk_widget_show(button); label = gtk_label_new (message); gtk_misc_set_padding (GTK_MISC (label), 10, 10); gtk_box_pack_start (GTK_BOX (GTK_DIALOG (window)->vbox), label, TRUE, TRUE, 0); gtk_widget_show (label); gtk_widget_show (window); gtk_grab_add (window); } //======================================================================== static void about_cb (gpointer callback_data, guint callback_action, GtkWidget *widget) { show_message( "The GNUPIC Simulator - " VERSION, "A simulator for Microchip PIC microcontrollers.\n" "by T. Scott Dattalo - mailto:scott@dattalo.com\n" " Ralf Forsberg - mailto:rfg@home.se\n" " Borut Ra" "\xc5\xbe" "em - mailto:borut.razem@gmail.com\n\n" "gpsim homepage: http://gpsim.sourceforge.net/gpsim.html\n" "gpsimWin32: http://gpsim.sourceforge.net/gpsimWin32/gpsimWin32.html\n"); } //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% #if defined(NEW_SOURCE_BROWSER) //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% //======================================================================== // // class ColorButton // // Creates a GtkColorButton and places it into a parent widget. // When the color button is clicked and changed, the signal will // call back into this class and keep track of the selected // color state. class SourceBrowserPreferences; class ColorButton { public: ColorButton (GtkWidget *pParent, TextStyle *pStyle, const char *label, SourceBrowserPreferences * ); static void setColor_cb(GtkColorButton *widget, ColorButton *This); void apply(); void cancel(); TextStyle *m_pStyle; private: SourceBrowserPreferences *m_prefs; const char *m_label; }; //======================================================================== // // class MarginButton // // Creates a GtkCheckButton that is used to select whether line numbers, // addresses or opcodes will be displayed in the source browser margin. class MarginButton { public: enum eMarginType { eLineNumbers, eAddresses, eOpcodes }; MarginButton (GtkWidget *pParent, const char *pName, eMarginType id, SourceBrowserPreferences * ); static void toggle_cb(GtkToggleButton *widget, MarginButton *This); void set_active(); private: GtkWidget *m_button; SourceBrowserPreferences *m_prefs; eMarginType m_id; }; //======================================================================== // // class TabButton // // Creates a GtkCheckButton that is used to select whether line numbers, // addresses or opcodes will be displayed in the source browser margin. class TabButton { public: TabButton (GtkWidget *pParent, GtkWidget *pButton, int id, SourceBrowserPreferences * ); static void toggle_cb(GtkToggleButton *widget, TabButton *This); void set_active(); private: GtkWidget *m_button; SourceBrowserPreferences *m_prefs; int m_id; }; //======================================================================== // // class FontSelection // class FontSelection { public: FontSelection (GtkWidget *pParent, SourceBrowserPreferences * ); static void setFont_cb(GtkFontButton *widget, FontSelection *This); void setFont(); private: SourceBrowserPreferences *m_prefs; GtkWidget *m_fontButton; }; //======================================================================== // class SourceBrowserPreferences : public SourceWindow { public: SourceBrowserPreferences(GtkWidget *pParent); void apply(); void cancel(); void update(); void toggleBreak(int line); void movePC(int line); virtual int getPCLine(int page); virtual int getAddress(NSourcePage *pPage, int line); virtual bool bAddressHasBreak(int address); virtual int getOpcode(int address); void setTabPosition(int); void setFont(const char *); const char *getFont(); private: ColorButton *m_LabelColor; ColorButton *m_MnemonicColor; ColorButton *m_SymbolColor; ColorButton *m_CommentColor; ColorButton *m_ConstantColor; MarginButton *m_LineNumbers; MarginButton *m_Addresses; MarginButton *m_Opcodes; int m_currentTabPosition; int m_originalTabPosition; TabButton *m_Up; TabButton *m_Left; TabButton *m_Down; TabButton *m_Right; TabButton *m_None; FontSelection *m_FontSelector; }; //------------------------------------------------------------------------ class gpsimGuiPreferences { public: gpsimGuiPreferences(); ~gpsimGuiPreferences(); static void setup (gpointer callback_data, guint callback_action, GtkWidget *widget); private: SourceBrowserPreferences *m_SourceBrowser; static gint cancel_cb (gpsimGuiPreferences *Self); static gint apply_cb (gpsimGuiPreferences *Self); void apply() { m_SourceBrowser->apply();} void cancel() { m_SourceBrowser->cancel();} GtkWidget *window; }; static GtkWidget *LocalWindow=0; void gpsimGuiPreferences::setup (gpointer callback_data, guint callback_action, GtkWidget *widget) { new gpsimGuiPreferences(); } gint gpsimGuiPreferences::cancel_cb (gpsimGuiPreferences *Self) { Self->cancel(); delete Self; return TRUE; } gint gpsimGuiPreferences::apply_cb (gpsimGuiPreferences *Self) { Self->apply(); delete Self; return TRUE; } //------------------------------------------------------------------------ // ColorButton Constructor ColorButton::ColorButton(GtkWidget *pParent, TextStyle *pStyle, const char *colorName,SourceBrowserPreferences *prefs) : m_pStyle(pStyle),m_prefs(prefs), m_label(colorName) { GtkWidget *hbox = gtk_hbox_new(0,0); gtk_box_pack_start (GTK_BOX (pParent), hbox, FALSE, TRUE, 0); GtkWidget *colorButton = gtk_color_button_new_with_color (pStyle->mFG.CurrentColor()); gtk_color_button_set_title (GTK_COLOR_BUTTON(colorButton), colorName); gtk_box_pack_start (GTK_BOX(hbox),colorButton,FALSE, FALSE, 0); gtk_widget_show(colorButton); gtk_signal_connect (GTK_OBJECT(colorButton), "color-set", GTK_SIGNAL_FUNC(setColor_cb), this); const int cBORDER = 10; // pixels GtkWidget *label = gtk_label_new(colorName); gtk_box_pack_start (GTK_BOX(hbox),label,FALSE,FALSE, cBORDER); gtk_widget_show (label); gtk_widget_show (hbox); } //------------------------------------------------------------------------ void ColorButton::setColor_cb(GtkColorButton *widget, ColorButton *This) { GdkColor newColor; gtk_color_button_get_color (widget, &newColor); This->m_pStyle->setFG(&newColor); } void ColorButton::apply() { m_pStyle->apply(); } void ColorButton::cancel() { m_pStyle->revert(); } //------------------------------------------------------------------------ MarginButton::MarginButton(GtkWidget *pParent, const char *pName, eMarginType id, SourceBrowserPreferences *prefs) : m_prefs(prefs), m_id(id) { m_button = gtk_check_button_new_with_label (pName); bool bState = false; switch (m_id) { case eLineNumbers: bState = m_prefs->margin().bLineNumbers(); break; case eAddresses: bState = m_prefs->margin().bAddresses(); break; case eOpcodes: bState = m_prefs->margin().bOpcodes(); break; } gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON(m_button), bState); gtk_box_pack_start (GTK_BOX (pParent), m_button, FALSE, TRUE, 10); gtk_signal_connect (GTK_OBJECT(m_button), "toggled", GTK_SIGNAL_FUNC(toggle_cb), this); } //------------------------------------------------------------------------ void MarginButton::toggle_cb(GtkToggleButton *widget, MarginButton *This) { // This->m_pStyle->setFG(&newColor); This->set_active(); } void MarginButton::set_active() { bool bNewState = gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(m_button)) ? true : false; switch (m_id) { case eLineNumbers: m_prefs->margin().enableLineNumbers(bNewState); break; case eAddresses: m_prefs->margin().enableAddresses(bNewState); break; case eOpcodes: m_prefs->margin().enableOpcodes(bNewState); break; } } //------------------------------------------------------------------------ TabButton::TabButton(GtkWidget *pParent, GtkWidget *pButton, int id, SourceBrowserPreferences *prefs) : m_button(pButton), m_prefs(prefs), m_id(id) { gtk_box_pack_start (GTK_BOX (pParent), m_button, FALSE, TRUE, 5); gtk_signal_connect (GTK_OBJECT(m_button), "toggled", GTK_SIGNAL_FUNC(toggle_cb), this); } //------------------------------------------------------------------------ void TabButton::toggle_cb(GtkToggleButton *widget, TabButton *This) { // This->m_pStyle->setFG(&newColor); This->set_active(); } void TabButton::set_active() { if (gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(m_button))) m_prefs->setTabPosition(m_id); } //------------------------------------------------------------------------ FontSelection::FontSelection (GtkWidget *pParent, SourceBrowserPreferences *pPrefs) : m_prefs(pPrefs) { GtkWidget *frame = gtk_frame_new ("Font"); gtk_box_pack_start (GTK_BOX (pParent), frame, FALSE, TRUE, 0); GtkWidget *hbox = gtk_hbox_new(0,0); gtk_container_add (GTK_CONTAINER (frame), hbox); m_fontButton = gtk_font_button_new_with_font (m_prefs->getFont()); const char *fontDescription = "Font Selector"; gtk_font_button_set_title (GTK_FONT_BUTTON(m_fontButton), fontDescription); gtk_box_pack_start (GTK_BOX(hbox),m_fontButton,FALSE, FALSE, 0); gtk_widget_show(m_fontButton); gtk_signal_connect (GTK_OBJECT(m_fontButton), "font-set", GTK_SIGNAL_FUNC(setFont_cb), this); const char *fontName = "font"; const int cBORDER = 10; // pixels GtkWidget *label = gtk_label_new(fontName); gtk_box_pack_start (GTK_BOX(hbox),label,TRUE, TRUE, cBORDER); gtk_widget_show (label); gtk_widget_show (hbox); } //------------------------------------------------------------------------ void FontSelection::setFont_cb (GtkFontButton *pFontButton, FontSelection *This) { This->setFont(); } void FontSelection::setFont() { m_prefs->setFont(gtk_font_button_get_font_name (GTK_FONT_BUTTON(m_fontButton))); } //------------------------------------------------------------------------ #if 0 // defined but not used static bool isButtonEvent (GdkEventType type) { return type == GDK_BUTTON_PRESS || type == GDK_2BUTTON_PRESS || type == GDK_3BUTTON_PRESS || type == GDK_BUTTON_RELEASE; } static gboolean TagEvent (GtkTextTag *texttag, GObject *arg1, GdkEvent *event, GtkTextIter *arg2, gpointer user_data) { printf("Received tag event signal Tag:%p arg1:%p Event:%p iter:%p user:%p %08X Line:%d\n", texttag, arg1,event,arg2, user_data, event->type, gtk_text_iter_get_line(arg2)); if (isButtonEvent(event->type)) { GdkEventButton *evtButton = (GdkEventButton *) event; printf("Button Event: button:%d modifier:%d coords(%g,%g)\n", evtButton->button, evtButton->state, evtButton->x,evtButton->y); // If the right mouse button is pressed then suppress the GTK pop up menu. if (evtButton->button == 3) return TRUE; } return FALSE; } //------------------------------------------------------------------------ static void preferences_AddFontSelect(GtkWidget *pParent, const char *fontDescription, const char *fontName ) { } #endif void SourceBrowserPreferences::toggleBreak(int line) { } void SourceBrowserPreferences::movePC(int line) { } //======================================================================== SourceBrowserPreferences::SourceBrowserPreferences(GtkWidget *pParent) : SourceWindow(0,0,false,0) { if (!gpGuiProcessor && !gpGuiProcessor->source_browser) return; printf("RRR SourceBrowserPreferences::SourceBrowserPreferences\n"); GtkWidget *notebook = gtk_notebook_new(); gtk_notebook_set_tab_pos((GtkNotebook*)notebook,GTK_POS_TOP); gtk_box_pack_start (GTK_BOX (pParent), notebook, TRUE, TRUE, 0); gtk_widget_show(notebook); m_pParent = gpGuiProcessor->source_browser; GtkWidget *label; { // Color Frame for Source Browser configuration GtkWidget *vbox = gtk_vbox_new(0,0); GtkWidget *colorFrame = gtk_frame_new ("Colors"); gtk_box_pack_start (GTK_BOX (vbox), colorFrame, FALSE, TRUE, 0); GtkWidget *colorVbox = gtk_vbox_new(0,0); gtk_container_add (GTK_CONTAINER (colorFrame), colorVbox); m_LabelColor = new ColorButton(colorVbox, m_pParent->mLabel, "Label", this); m_MnemonicColor = new ColorButton(colorVbox, m_pParent->mMnemonic, "Mnemonic", this); m_SymbolColor = new ColorButton(colorVbox, m_pParent->mSymbol, "Symbols", this); m_ConstantColor = new ColorButton(colorVbox, m_pParent->mConstant, "Constants", this); m_CommentColor = new ColorButton(colorVbox, m_pParent->mComment, "Comments", this); // Font selector //preferences_AddFontSelect(GTK_WIDGET(vbox), "Font Selector", "font"); m_FontSelector = new FontSelection(vbox,this); label = gtk_label_new("Font"); gtk_notebook_append_page(GTK_NOTEBOOK(notebook),vbox,label); } { // Tab Frame for the Source browser m_currentTabPosition = m_pParent->getTabPosition(); m_originalTabPosition = m_currentTabPosition; GtkWidget *hbox = gtk_hbox_new(0,0); GtkWidget *tabFrame = gtk_frame_new ("Notebook Tabs"); gtk_box_pack_start (GTK_BOX (hbox), tabFrame, FALSE, TRUE, 0); GtkWidget *radioUp = gtk_radio_button_new_with_label (NULL,"up"); GtkRadioButton *rb = GTK_RADIO_BUTTON(radioUp); GtkWidget *tabVbox = gtk_vbox_new(0,0); gtk_container_add (GTK_CONTAINER (tabFrame), tabVbox); m_Up = new TabButton(tabVbox, radioUp, GTK_POS_TOP, this); m_Left = new TabButton(tabVbox, gtk_radio_button_new_with_label_from_widget (rb,"left"), GTK_POS_LEFT, this); m_Down = new TabButton(tabVbox, gtk_radio_button_new_with_label_from_widget (rb,"down"), GTK_POS_BOTTOM, this); m_Right = new TabButton(tabVbox, gtk_radio_button_new_with_label_from_widget (rb,"right"), GTK_POS_RIGHT, this); m_None = new TabButton(tabVbox, gtk_radio_button_new_with_label_from_widget (rb,"none"), -1, this); // Source browser margin GtkWidget *marginFrame = gtk_frame_new ("Margin"); gtk_box_pack_start (GTK_BOX (hbox), marginFrame, FALSE, TRUE, 0); GtkWidget *marginVbox = gtk_vbox_new(0,0); gtk_container_add (GTK_CONTAINER (marginFrame), marginVbox); m_LineNumbers = new MarginButton(marginVbox, "Line Numbers", MarginButton::eLineNumbers, this); m_Addresses = new MarginButton(marginVbox, "Addresses", MarginButton::eAddresses, this); m_Opcodes = new MarginButton(marginVbox, "Opcodes", MarginButton::eOpcodes, this); label = gtk_label_new("Margins"); gtk_notebook_append_page(GTK_NOTEBOOK(notebook),hbox,label); } { SourceBuffer *pBuffer = new SourceBuffer (m_pParent->getTagTable(),0,m_pParent); GtkWidget *frame = gtk_frame_new ("Sample"); gtk_box_pack_start (GTK_BOX (pParent), frame, FALSE, TRUE, 0); m_Notebook = gtk_notebook_new(); //m_currentTabPosition = m_pParent->getTabPosition(); //gtk_notebook_set_tab_pos((GtkNotebook*)m_Notebook,m_TabPosition); setTabPosition(m_pParent->getTabPosition()); gtk_container_add (GTK_CONTAINER (frame), m_Notebook); bIsBuilt = true; int id = AddPage (pBuffer, "file1.asm"); pages[id]->m_pBuffer->parseLine( " MOVLW 0x34 ; Comment",1); pages[id]->m_pBuffer->parseLine( "; Comment only",1); pages[id]->m_pBuffer->parseLine( "Label: ADDWF Variable,F ; Comment",1); gtk_widget_show_all(frame); #if 1 label = gtk_label_new("file2.asm"); GtkWidget *emptyBox = gtk_hbox_new(0,0); gtk_notebook_append_page(GTK_NOTEBOOK(m_Notebook),emptyBox,label); #endif } gtk_widget_show_all(notebook); } void SourceBrowserPreferences::setTabPosition(int tabPosition) { m_currentTabPosition = tabPosition; m_pParent->setTabPosition(tabPosition); if (tabPosition >= 0) { gtk_notebook_set_show_tabs(GTK_NOTEBOOK(m_Notebook),TRUE); gtk_notebook_set_tab_pos(GTK_NOTEBOOK(m_Notebook), (GtkPositionType) m_currentTabPosition); } else { gtk_notebook_set_show_tabs(GTK_NOTEBOOK(m_Notebook),FALSE); } Update(); } void SourceBrowserPreferences::setFont(const char *cpFont) { m_pParent->setFont(cpFont); } const char *SourceBrowserPreferences::getFont() { return m_pParent->getFont(); } void SourceBrowserPreferences::apply() { m_LabelColor->apply(); m_MnemonicColor->apply(); m_SymbolColor->apply(); m_ConstantColor->apply(); m_CommentColor->apply(); m_pParent->setTabPosition(m_currentTabPosition); } void SourceBrowserPreferences::cancel() { m_LabelColor->cancel(); m_MnemonicColor->cancel(); m_SymbolColor->cancel(); m_ConstantColor->cancel(); m_CommentColor->cancel(); m_pParent->setTabPosition(m_originalTabPosition); } int SourceBrowserPreferences::getPCLine(int page) { return 1; } int SourceBrowserPreferences::getAddress(NSourcePage *pPage, int line) { return 0x1234; } bool SourceBrowserPreferences::bAddressHasBreak(int address) { return false; } int SourceBrowserPreferences::getOpcode(int address) { return 0xABCD; } //======================================================================== gpsimGuiPreferences::gpsimGuiPreferences() { GtkWidget *button; LocalWindow = gtk_dialog_new (); window = LocalWindow; gtk_widget_show (window); gtk_window_set_title (GTK_WINDOW (window), "Source Browser configuration"); gtk_container_set_border_width (GTK_CONTAINER (window), 0); GtkWidget *vbox = GTK_DIALOG (window)->vbox; m_SourceBrowser = new SourceBrowserPreferences(vbox); gtk_widget_show_all(vbox); // Cancel and Apply buttons GtkWidget *buttonBox = gtk_hbutton_box_new(); gtk_box_pack_start (GTK_BOX (vbox), buttonBox, TRUE, TRUE, 0); button = gtk_button_new_from_stock (GTK_STOCK_CANCEL); gtk_container_set_border_width (GTK_CONTAINER (button), 10); gtk_signal_connect_object (GTK_OBJECT (button), "clicked", GTK_SIGNAL_FUNC(gpsimGuiPreferences::cancel_cb), this); GTK_WIDGET_SET_FLAGS (button, GTK_CAN_DEFAULT); gtk_box_pack_start (GTK_BOX (buttonBox), button, TRUE, TRUE, 0); gtk_widget_grab_default(button); button = gtk_button_new_from_stock (GTK_STOCK_APPLY); gtk_container_set_border_width (GTK_CONTAINER (button), 10); gtk_signal_connect_object (GTK_OBJECT (button), "clicked", GTK_SIGNAL_FUNC(gpsimGuiPreferences::apply_cb), this); GTK_WIDGET_SET_FLAGS (button, GTK_CAN_DEFAULT); gtk_box_pack_start (GTK_BOX (buttonBox), button, TRUE, TRUE, 0); gtk_widget_show_all(buttonBox); gtk_widget_show (window); } gpsimGuiPreferences::~gpsimGuiPreferences() { gtk_widget_destroy (window); delete m_SourceBrowser; } //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% #endif //if defined(NEW_SOURCE_BROWSER) //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% //======================================================================== void file_selection_hide_fileops (GtkWidget *widget, GtkFileSelection *fs) { gtk_file_selection_hide_fileop_buttons (fs); } extern int gui_message(const char *message); void file_selection_ok (GtkWidget *w, GtkFileSelection *fs) { const char *file; char msg[200]; if(gpGuiProcessor) { file=gtk_file_selection_get_filename (fs); if(!gpsim_open(gpGuiProcessor->cpu, file, 0, 0)) { sprintf(msg, "Open failedCould not open \"%s\"", (char *)file); gui_message(msg); } } gtk_widget_hide (GTK_WIDGET (fs)); } extern int gui_question(char *question, char *a, char *b); static GtkItemFactoryCallback fileopen_dialog(gpointer callback_data, guint callback_action, GtkWidget *widget) { static GtkWidget *window = 0; GtkWidget *button; if (!window) { window = gtk_file_selection_new ("file selection dialog"); gtk_file_selection_hide_fileop_buttons (GTK_FILE_SELECTION (window)); gtk_window_set_position (GTK_WINDOW (window), GTK_WIN_POS_MOUSE); gtk_signal_connect (GTK_OBJECT (GTK_FILE_SELECTION (window)->ok_button), "clicked", GTK_SIGNAL_FUNC(file_selection_ok), window); gtk_signal_connect_object (GTK_OBJECT (GTK_FILE_SELECTION (window)->cancel_button), "clicked", GTK_SIGNAL_FUNC(gtk_widget_hide), GTK_OBJECT (window)); button = gtk_button_new_with_label ("Hide Fileops"); gtk_signal_connect (GTK_OBJECT (button), "clicked", (GtkSignalFunc) file_selection_hide_fileops, (gpointer) window); gtk_box_pack_start (GTK_BOX (GTK_FILE_SELECTION (window)->action_area), button, FALSE, FALSE, 0); gtk_widget_show (button); button = gtk_button_new_with_label ("Show Fileops"); gtk_signal_connect (GTK_OBJECT (button), "clicked", (GtkSignalFunc) gtk_file_selection_show_fileop_buttons, (gpointer) window); gtk_box_pack_start (GTK_BOX (GTK_FILE_SELECTION (window)->action_area), button, FALSE, FALSE, 0); gtk_widget_show (button); } gtk_widget_show (window); return 0; } // Menuhandler for Windows menu buttons static GtkItemFactoryCallback toggle_window (gpointer callback_data, guint callback_action, GtkWidget *widget) { GtkWidget *menu_item = 0; menu_item = gtk_item_factory_get_item (item_factory, gtk_item_factory_path_from_widget (widget)); if(gpGuiProcessor && menu_item) { int view_state = GTK_CHECK_MENU_ITEM(menu_item)->active ? VIEW_SHOW : VIEW_HIDE; switch(callback_action) { case WT_opcode_source_window: gpGuiProcessor->program_memory->ChangeView(view_state); break; case WT_asm_source_window: gpGuiProcessor->source_browser->ChangeView(view_state); break; case WT_register_window: gpGuiProcessor->regwin_ram->ChangeView(view_state); break; case WT_eeprom_window: gpGuiProcessor->regwin_eeprom->ChangeView(view_state); break; case WT_watch_window: gpGuiProcessor->watch_window->ChangeView(view_state); break; case WT_symbol_window: gpGuiProcessor->symbol_window->ChangeView(view_state); break; case WT_breadboard_window: gpGuiProcessor->breadboard_window->ChangeView(view_state); break; case WT_stack_window: gpGuiProcessor->stack_window->ChangeView(view_state); break; case WT_trace_window: gpGuiProcessor->trace_window->ChangeView(view_state); break; case WT_profile_window: gpGuiProcessor->profile_window->ChangeView(view_state); break; case WT_stopwatch_window: gpGuiProcessor->stopwatch_window->ChangeView(view_state); break; case WT_scope_window: gpGuiProcessor->scope_window->ChangeView(view_state); //cout << " The Scope is disabled right now\n"; break; default: puts("unknown menu action"); } } return 0; } //======================================================================== // Button callbacks static void runbutton_cb(GtkWidget *widget) { get_interface().start_simulation(); } static void stopbutton_cb(GtkWidget *widget) { if(gpGuiProcessor && gpGuiProcessor->cpu) gpGuiProcessor->cpu->pma->stop(); } static void stepbutton_cb(GtkWidget *widget) { if(gpGuiProcessor && gpGuiProcessor->cpu) gpGuiProcessor->cpu->pma->step(1); } static void overbutton_cb(GtkWidget *widget) { if(gpGuiProcessor && gpGuiProcessor->cpu) gpGuiProcessor->cpu->pma->step_over(); } static void finishbutton_cb(GtkWidget *widget) { if(gpGuiProcessor && gpGuiProcessor->cpu) gpGuiProcessor->cpu->pma->finish(); } static void resetbutton_cb(GtkWidget *widget) { if(gpGuiProcessor && gpGuiProcessor->cpu) gpGuiProcessor->cpu->reset(POR_RESET); } int gui_animate_delay; // in milliseconds //======================================================================== //======================================================================== // // UpdateRateMenuItem //======================================================================== // // Class declaration -- probaby should move to a .h file. class UpdateRateMenuItem { public: char id; int menu_index; bool bRealTime; bool bWithGui; bool bAnimate; int update_rate; UpdateRateMenuItem(GtkWidget *,char, const char *, int update_rate=0, bool _bRealTime=false, bool _bWithGui=false); void Select(); static GtkWidget *menu; static int seq_no; }; //======================================================================== // UpdateRateMenuItem members GtkWidget * UpdateRateMenuItem::menu = 0; int UpdateRateMenuItem::seq_no=0; map UpdateRateMenuItemMap; map UpdateRateMenuItemIndexed; static void gui_update_cb(GtkWidget *widget, gpointer data) { GtkComboBox *combo_box = GTK_COMBO_BOX(widget); gint index = combo_box ? gtk_combo_box_get_active(combo_box) : 0; UpdateRateMenuItem *umi = UpdateRateMenuItemIndexed[index]; if (umi) umi->Select(); else cout << "Error UpdateRateMenuItem bad index:" << index << endl; } UpdateRateMenuItem::UpdateRateMenuItem(GtkWidget *parent, char _id, const char *label, int _update_rate, bool _bRealTime, bool _bWithGui) : id(_id), bRealTime(_bRealTime), bWithGui(_bWithGui), update_rate(_update_rate) { if(update_rate <0) { bAnimate = true; update_rate = -update_rate; } else bAnimate = false; if(!menu) menu = gtk_menu_new(); gtk_combo_box_append_text (GTK_COMBO_BOX(parent), label); menu_index = seq_no; seq_no++; UpdateRateMenuItemMap[id] = this; UpdateRateMenuItemIndexed[menu_index] = this; } void UpdateRateMenuItem::Select() { EnableRealTimeMode(bRealTime); EnableRealTimeModeWithGui(bWithGui); if(bAnimate) { gui_animate_delay = update_rate; get_interface().set_update_rate(1); } else { gui_animate_delay = 0; get_interface().set_update_rate(update_rate); } if(gpGuiProcessor && gpGuiProcessor->cpu) gpGuiProcessor->cpu->pma->stop(); config_set_variable("dispatcher", "SimulationMode", id); if (0) cout << "Update gui refresh: " << hex << update_rate << " ID:" << id << "Seq no:" << menu_index << endl; } //======================================================================== //======================================================================== class TimeWidget; class TimeFormatter { public: enum eMenuID { eCyclesHex=0, eCyclesDec, eMicroSeconds, eMilliSeconds, eSeconds, eHHMMSS } time_format; TimeFormatter(TimeWidget *_tw,GtkWidget *menu, const char*menu_text) : tw(_tw) { AddToMenu(menu,menu_text); } virtual ~TimeFormatter() { } void ChangeFormat(); void AddToMenu(GtkWidget *menu, const char*menu_text); virtual void Format(char *, int)=0; TimeWidget *tw; }; class TimeWidget : public EntryWidget { public: TimeWidget(); void Create(GtkWidget *); virtual void Update(); void NewFormat(TimeFormatter *tf); TimeFormatter *current_format; GtkWidget *menu; }; class TimeMicroSeconds : public TimeFormatter { public: TimeMicroSeconds(TimeWidget *tw, GtkWidget *menu) : TimeFormatter(tw,menu,"MicroSeconds") {} virtual ~TimeMicroSeconds() { } void Format(char *buf, int size) { double time_db = 0.; if(gpGuiProcessor && gpGuiProcessor->cpu) time_db = gpGuiProcessor->cpu->get_InstPeriod() * get_cycles().get() * 1e6; snprintf(buf,size, "%19.2f us",time_db); } }; class TimeMilliSeconds : public TimeFormatter { public: TimeMilliSeconds(TimeWidget *tw, GtkWidget *menu) : TimeFormatter(tw,menu,"MilliSeconds") {} virtual ~TimeMilliSeconds() { } void Format(char *buf, int size) { double time_db = 0.; if(gpGuiProcessor && gpGuiProcessor->cpu) time_db = gpGuiProcessor->cpu->get_InstPeriod() * get_cycles().get() * 1e3; snprintf(buf,size, "%19.3f ms",time_db); } }; class TimeSeconds : public TimeFormatter { public: TimeSeconds(TimeWidget *tw, GtkWidget *menu) : TimeFormatter(tw,menu,"Seconds") {} virtual ~TimeSeconds() { } void Format(char *buf, int size) { double time_db = 0.; if(gpGuiProcessor && gpGuiProcessor->cpu) time_db = gpGuiProcessor->cpu->get_InstPeriod() * get_cycles().get(); snprintf(buf,size, "%19.3f Sec",time_db); } }; class TimeHHMMSS : public TimeFormatter { public: TimeHHMMSS(TimeWidget *tw, GtkWidget *menu) : TimeFormatter(tw,menu,"HH:MM:SS.mmm") {} virtual ~TimeHHMMSS() { } void Format(char *buf, int size) { double time_db = 0.; if(gpGuiProcessor && gpGuiProcessor->cpu) time_db = gpGuiProcessor->cpu->get_InstPeriod() * get_cycles().get(); double v=time_db + 0.005; // round msec int hh=(int)(v/3600),mm,ss,cc; v-=hh*3600.0; mm=(int)(v/60); v-=mm*60.0; ss=(int)v; cc=(int)((v-ss)*100.0); snprintf(buf,size," %02d:%02d:%02d.%02d",hh,mm,ss,cc); } }; class TimeCyclesHex : public TimeFormatter { public: TimeCyclesHex(TimeWidget *tw, GtkWidget *menu) : TimeFormatter(tw,menu,"Cycles (Hex)") {} virtual ~TimeCyclesHex() { } void Format(char *buf, int size) { snprintf(buf,size,"0x%016" PRINTF_GINT64_MODIFIER "x",get_cycles().get()); } }; class TimeCyclesDec : public TimeFormatter { public: TimeCyclesDec(TimeWidget *tw, GtkWidget *menu) : TimeFormatter(tw,menu,"Cycles (Dec)") {} virtual ~TimeCyclesDec() { } void Format(char *buf, int size) { snprintf(buf,size,"%016" PRINTF_GINT64_MODIFIER "d",get_cycles().get()); } }; //======================================================================== // called when user has selected a menu item from the time format menu static void cbTimeFormatActivated(GtkWidget *widget, gpointer data) { if(!widget || !data) return; TimeFormatter *tf = static_cast(data); tf->ChangeFormat(); } // button press handler static gint cbTimeFormatPopup(GtkWidget *widget, GdkEventButton *event, TimeWidget *tw) { if(!widget || !event || !tw) return 0; if( (event->type == GDK_BUTTON_PRESS) ) {// && (event->button == 3) ) { gtk_menu_popup(GTK_MENU(tw->menu), 0, 0, 0, 0, 3, event->time); // It looks like we need it to avoid a selection in the entry. // For this we tell the entry to stop reporting this event. gtk_signal_emit_stop_by_name(GTK_OBJECT(tw->entry),"button_press_event"); } return FALSE; } void TimeFormatter::ChangeFormat() { if(tw) tw->NewFormat(this); } void TimeFormatter::AddToMenu(GtkWidget *menu, const char*menu_text) { GtkWidget *item = gtk_menu_item_new_with_label(menu_text); gtk_signal_connect(GTK_OBJECT(item),"activate", (GtkSignalFunc) cbTimeFormatActivated, this); gtk_widget_show(item); gtk_menu_append(GTK_MENU(menu),item); } void TimeWidget::Create(GtkWidget *container) { EntryWidget::Create(false); gtk_container_add(GTK_CONTAINER(container),entry); SetEntryWidth(18); menu = gtk_menu_new(); GtkWidget *item = gtk_tearoff_menu_item_new (); gtk_menu_append (GTK_MENU (menu), item); gtk_widget_show (item); // Create an entry for each item in the formatter pop up window. new TimeMicroSeconds(this,menu); new TimeMilliSeconds(this,menu); new TimeSeconds(this,menu); new TimeHHMMSS(this,menu); NewFormat(new TimeCyclesHex(this,menu)); new TimeCyclesDec(this,menu); // Associate a callback with the user button-click actions gtk_signal_connect(GTK_OBJECT(entry), "button_press_event", (GtkSignalFunc) cbTimeFormatPopup, this); } void TimeWidget::NewFormat(TimeFormatter *tf) { if(tf && tf != current_format) { current_format = tf; Update(); } } void TimeWidget::Update() { if(!current_format) return; char buffer[32]; current_format->Format(buffer, sizeof(buffer)); gtk_entry_set_text (GTK_ENTRY (entry), buffer); } TimeWidget::TimeWidget() { menu = 0; current_format =0; } //======================================================================== static int dispatcher_delete_event(GtkWidget *widget, GdkEvent *event, gpointer data) { do_quit_app(0); return 0; } static GtkItemFactoryCallback gtk_ifactory_cb (gpointer callback_data, guint callback_action, GtkWidget *widget) { g_message ("\"%s\" is not supported yet.", gtk_item_factory_path_from_widget (widget)); return 0; } #define TOGGLE_WINDOW (GtkItemFactoryCallback)toggle_window static GtkItemFactoryEntry menu_items[] = { { (gchar *)"/_File", 0, 0, 0, (gchar *)"" }, { (gchar *)"/File/tearoff1", 0, (GtkItemFactoryCallback)gtk_ifactory_cb, 0, (gchar *)"" }, //{ (gchar *)"/File/_New", "N", (GtkItemFactoryCallback)gtk_ifactory_cb, 0 }, { (gchar *)"/File/_Open", (gchar *)"O", (GtkItemFactoryCallback)fileopen_dialog, 0 }, //{ (gchar *)"/File/_Save", "S", (GtkItemFactoryCallback)gtk_ifactory_cb, 0 }, //{ (gchar *)"/File/Save _As...", 0, (GtkItemFactoryCallback)gtk_ifactory_cb, 0 }, { (gchar *)"/File/sep1", 0, (GtkItemFactoryCallback)gtk_ifactory_cb, 0, (gchar *)"" }, { (gchar *)"/File/_Quit", (gchar *)"Q", (GtkItemFactoryCallback)do_quit_app, 0 }, // { (gchar *)"/_Processor", 0, 0, 0, "" }, // { (gchar *)"/_Processor/New", 0, (GtkItemFactoryCallback)new_processor_dialog, 0 }, // { (gchar *)"/_Processor/Delete",0, (GtkItemFactoryCallback)gtk_ifactory_cb, 0 }, // { (gchar *)"/_Processor/Switch",0, (GtkItemFactoryCallback)gtk_ifactory_cb, 0 }, // { (gchar *)"/_Break", 0, 0, 0, "" }, // { (gchar *)"/_Break/Set", 0, (GtkItemFactoryCallback)gtk_ifactory_cb, 0 }, // { (gchar *)"/_Break/Clear", 0, (GtkItemFactoryCallback)gtk_ifactory_cb, 0 }, { (gchar *)"/_Windows", 0, 0, 0, (gchar *)"" }, { (gchar *)"/Windows/Program _memory", 0, TOGGLE_WINDOW,WT_opcode_source_window,(gchar *)"" }, { (gchar *)"/Windows/_Source", 0, TOGGLE_WINDOW,WT_asm_source_window,(gchar *)"" }, { (gchar *)"/Windows/sep1", 0, (GtkItemFactoryCallback)gtk_ifactory_cb,0,(gchar *)"" }, { (gchar *)"/Windows/_Ram", 0, TOGGLE_WINDOW,WT_register_window,(gchar *)"" }, { (gchar *)"/Windows/_EEPROM", 0, TOGGLE_WINDOW,WT_eeprom_window,(gchar *)"" }, { (gchar *)"/Windows/_Watch", 0, TOGGLE_WINDOW,WT_watch_window,(gchar *)"" }, { (gchar *)"/Windows/Sta_ck", 0, TOGGLE_WINDOW,WT_stack_window,(gchar *)"" }, { (gchar *)"/Windows/sep2", 0, (GtkItemFactoryCallback)gtk_ifactory_cb,0,(gchar *)"" }, { (gchar *)"/Windows/Symbo_ls", 0, TOGGLE_WINDOW,WT_symbol_window,(gchar *)"" }, { (gchar *)"/Windows/_Breadboard", 0, TOGGLE_WINDOW,WT_breadboard_window,(gchar *)"" }, { (gchar *)"/Windows/sep3", 0, (GtkItemFactoryCallback)gtk_ifactory_cb,0,(gchar *)"" }, { (gchar *)"/Windows/_Trace", 0, TOGGLE_WINDOW,WT_trace_window,(gchar *)"" }, { (gchar *)"/Windows/Pro_file", 0, TOGGLE_WINDOW,WT_profile_window,(gchar *)"" }, { (gchar *)"/Windows/St_opwatch", 0, TOGGLE_WINDOW,WT_stopwatch_window,(gchar *)"" }, { (gchar *)"/Windows/Sco_pe", 0, TOGGLE_WINDOW,WT_scope_window,(gchar *)"" }, #if defined(NEW_SOURCE_BROWSER) { (gchar *)"/_Edit", 0, 0, 0, (gchar *)"" }, { (gchar *)"/Edit/Preferences", 0, (GtkItemFactoryCallback)gpsimGuiPreferences::setup, 0 }, #endif { (gchar *)"/_Help", 0, 0, 0, (gchar *)"" }, { (gchar *)"/Help/_About", 0, (GtkItemFactoryCallback)about_cb, 0 }, }; static int nmenu_items = sizeof (menu_items) / sizeof (menu_items[0]); GtkWidget *dispatcher_window = 0; //======================================================================== //======================================================================== class MainWindow { public: TimeWidget *timeW; void Update(); void Create(); MainWindow(); }; MainWindow TheWindow; MainWindow::MainWindow() { timeW=0; } void MainWindow::Update() { if(timeW) timeW->Update(); } //======================================================================== //======================================================================== void dispatch_Update() { if(!dispatcher_window) return; if(gpGuiProcessor && gpGuiProcessor->cpu) { TheWindow.Update(); } } void MainWindow::Create () { if (dispatcher_window) return; GtkWidget *box1; GtkWidget *buttonbox; GtkWidget *separator; GtkWidget *button; GtkWidget *frame; GtkAccelGroup *accel_group; int x,y,width,height; GtkWidget *update_rate_menu; int SimulationMode; dispatcher_window = gtk_window_new (GTK_WINDOW_TOPLEVEL); if(!config_get_variable("dispatcher", "x", &x)) x=10; if(!config_get_variable("dispatcher", "y", &y)) y=10; if(!config_get_variable("dispatcher", "width", &width)) width=1; if(!config_get_variable("dispatcher", "height", &height)) height=1; gtk_window_set_default_size(GTK_WINDOW(dispatcher_window), width,height); gtk_widget_set_uposition(GTK_WIDGET(dispatcher_window),x,y); gtk_signal_connect (GTK_OBJECT (dispatcher_window), "delete-event", GTK_SIGNAL_FUNC (dispatcher_delete_event), 0); #if GTK_MAJOR_VERSION >= 2 accel_group = gtk_accel_group_new(); #else accel_group = gtk_accel_group_get_default (); #endif item_factory = gtk_item_factory_new (GTK_TYPE_MENU_BAR, "
    ", accel_group); gtk_object_set_data_full (GTK_OBJECT (dispatcher_window), "
    ", item_factory, (GtkDestroyNotify) gtk_object_unref); // gtk_accel_group_attach (accel_group, GTK_OBJECT (dispatcher_window)); gtk_item_factory_create_items (item_factory, nmenu_items, menu_items, 0); gtk_window_set_title (GTK_WINDOW (dispatcher_window), VERSION); gtk_container_set_border_width (GTK_CONTAINER (dispatcher_window), 0); box1 = gtk_vbox_new (FALSE, 0); gtk_container_add (GTK_CONTAINER (dispatcher_window), box1); gtk_box_pack_start (GTK_BOX (box1), gtk_item_factory_get_widget (item_factory, "
    "), FALSE, FALSE, 0); buttonbox = gtk_hbox_new(FALSE,0); gtk_container_set_border_width (GTK_CONTAINER (buttonbox), 1); gtk_box_pack_start (GTK_BOX (box1), buttonbox, TRUE, TRUE, 0); // Buttons button = gtk_button_new_with_label ("step"); gtk_signal_connect(GTK_OBJECT(button), "clicked", (GtkSignalFunc) stepbutton_cb, 0); gtk_box_pack_start (GTK_BOX (buttonbox), button, TRUE, TRUE, 0); button = gtk_button_new_with_label ("over"); gtk_signal_connect(GTK_OBJECT(button), "clicked", (GtkSignalFunc) overbutton_cb, 0); gtk_box_pack_start (GTK_BOX (buttonbox), button, TRUE, TRUE, 0); button = gtk_button_new_with_label ("finish"); gtk_signal_connect(GTK_OBJECT(button), "clicked", (GtkSignalFunc) finishbutton_cb, 0); gtk_box_pack_start (GTK_BOX (buttonbox), button, TRUE, TRUE, 0); button = gtk_button_new_with_label ("run"); gtk_signal_connect(GTK_OBJECT(button), "clicked", (GtkSignalFunc) runbutton_cb, 0); gtk_box_pack_start (GTK_BOX (buttonbox), button, TRUE, TRUE, 0); button = gtk_button_new_with_label ("stop"); gtk_signal_connect(GTK_OBJECT(button), "clicked", (GtkSignalFunc) stopbutton_cb, 0); gtk_box_pack_start (GTK_BOX (buttonbox), button, TRUE, TRUE, 0); button = gtk_button_new_with_label ("reset"); gtk_signal_connect(GTK_OBJECT(button), "clicked", (GtkSignalFunc) resetbutton_cb, 0); gtk_box_pack_start (GTK_BOX (buttonbox), button, TRUE, TRUE, 0); // // Simulation Mode Frame // frame = gtk_frame_new("Simulation mode"); if(!config_get_variable("dispatcher", "SimulationMode", &SimulationMode)) { SimulationMode='4'; } // set_simulation_mode(SimulationMode); // // Gui Update Rate // cout << "SimulationMode:"<Select(); gtk_combo_box_set_active(GTK_COMBO_BOX(update_rate_menu), umi->menu_index); gtk_signal_connect(GTK_OBJECT(update_rate_menu),"changed", (GtkSignalFunc) gui_update_cb, (gpointer)update_rate_menu); gtk_box_pack_start (GTK_BOX (buttonbox), frame, FALSE, FALSE, 5); // // Simulation Time Frame // frame = gtk_frame_new("Simulation Time"); gtk_box_pack_start (GTK_BOX (buttonbox), frame, FALSE, FALSE, 5); timeW = new TimeWidget(); timeW->Create(frame); timeW->Update(); //gtk_box_pack_start (GTK_BOX (buttonbox), frame, TRUE, TRUE, 5); separator = gtk_hseparator_new (); gtk_box_pack_start (GTK_BOX (box1), separator, FALSE, TRUE, 5); button = gtk_button_new_with_label ("Quit gpsim"); gtk_signal_connect(GTK_OBJECT(button), "clicked", (GtkSignalFunc) do_quit_app, 0); gtk_box_pack_start (GTK_BOX (box1), button, FALSE, TRUE, 5); gtk_widget_show_all (dispatcher_window); } //======================================================================== void create_dispatcher () { TheWindow.Create(); } #endif // HAVE_GUI gpsim-0.27.0/gui/gui_src_asm.cc0000664000076400007640000037573512176602260013266 00000000000000/* Copyright (C) 1998,1999,2000,2001 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "../config.h" #ifdef HAVE_GUI #include #define GTK_ENABLE_BROKEN #include #include #include #include #include #include #include #include #include #include #include "gui.h" #include "gui_src.h" #include "gui_profile.h" #include "gui_symbols.h" #include "gui_statusbar.h" #include "gui_watch.h" #include #include "../src/fopen-path.h" #include "../xpms/pc.xpm" #include "../xpms/break.xpm" #include "../xpms/canbreak.xpm" #include "../xpms/startp.xpm" #include "../xpms/stopp.xpm" #define PAGE_BORDER 3 #define PIXMAP_SIZE 14 extern int gui_question(const char *question, const char *a, const char *b); static int load_fonts(SOURCE_WINDOW *sbaw); static void find_char_and_skip(char **str, char c) { char *res = strrchr(*str,c); if(res) { *str = ++res; } } //------------------------------------------------------------------------ // static char *strReverse(const char *start, char *dest, int nChars) { *dest-- = 0; while (nChars--) *dest-- = *start++; dest++; return dest; } //======================================================================== class SourceXREF : public CrossReferenceToGUI { public: void Update(int new_value) { SOURCE_WINDOW *sbaw = (SOURCE_WINDOW*)(parent_window); if(sbaw->bSourceLoaded()) sbaw->SetPC(new_value); } void Remove(void) {} }; #define BP_PIXEL_SIZE 10 #define PC_PIXEL_SIZE 10 #define MARGIN_WIDTH (PC_PIXEL_SIZE + BP_PIXEL_SIZE) #define PC_START (MARGIN_WIDTH - PC_PIXEL_SIZE) #define BP_START (MARGIN_WIDTH - PC_PIXEL_SIZE-BP_PIXEL_SIZE) static map PageMap; /* This function is taken from gtk+/tests/testtext.c */ static void gtk_source_view_get_lines (GtkTextView *text_view, gint first_y, gint last_y, GArray *buffer_coords, GArray *numbers, gint *countp) { GtkTextIter iter; gint count; gint last_line_num = -1; g_array_set_size (buffer_coords, 0); g_array_set_size (numbers, 0); /* Get iter at first y */ gtk_text_view_get_line_at_y (text_view, &iter, first_y, NULL); /* For each iter, get its location and add it to the arrays. * Stop when we pass last_y */ count = 0; while (!gtk_text_iter_is_end (&iter)) { gint y, height; gtk_text_view_get_line_yrange (text_view, &iter, &y, &height); g_array_append_val (buffer_coords, y); last_line_num = gtk_text_iter_get_line (&iter); g_array_append_val (numbers, last_line_num); ++count; if ((y + height) >= last_y) break; gtk_text_iter_forward_line (&iter); } if (gtk_text_iter_is_end (&iter)) { gint y, height; gint line_num; gtk_text_view_get_line_yrange (text_view, &iter, &y, &height); line_num = gtk_text_iter_get_line (&iter); if (line_num != last_line_num) { g_array_append_val (buffer_coords, y); g_array_append_val (numbers, line_num); ++count; } } *countp = count; } //------------------------------------------------------------------------ // gint NSourcePage::KeyPressHandler(GtkTextView *pView, GdkEventKey *key, SourceWindow *pSW) { GtkTextBuffer *pBuffer = gtk_text_view_get_buffer(pView); GtkTextMark *pMark = gtk_text_buffer_get_insert(pBuffer); GtkTextIter iter; gtk_text_buffer_get_iter_at_mark (pBuffer, &iter, pMark); int line = gtk_text_iter_get_line (&iter); NSourcePage *page = PageMap[pView]; Dprintf(("Received key press for view. line=%d page%p\n",line,page)); switch (key->keyval) { case 'b': case 'B': pSW->toggleBreak(page,line); break; default: return FALSE; } return TRUE; } gint NSourcePage::ViewExposeEventHandler(GtkTextView *pView, GdkEventExpose *pEvent, SourceWindow *pSW) { if (pEvent->window == gtk_text_view_get_window (pView, GTK_TEXT_WINDOW_LEFT)) { //gtk_source_view_paint_margin (view, event); //event_handled = TRUE; Dprintf(("Expose event for view margin %p\n",pSW)); gint y1 = pEvent->area.y; gint y2 = y1 + pEvent->area.height; NSourcePage *pPage = PageMap[pView]; gtk_text_view_window_to_buffer_coords (pView, GTK_TEXT_WINDOW_LEFT, 0, y1, NULL, &y1); gtk_text_view_window_to_buffer_coords (pView, GTK_TEXT_WINDOW_LEFT, 0, y2, NULL, &y2); pPage->updateMargin(y1,y2); } else { Dprintf(("Expose event for view %p\n",pSW)); } return FALSE; } //------------------------------------------------------------------------ // gint SourceWindow::KeyPressHandler(GtkWidget *widget, GdkEventKey *key, SourceWindow *pSW) { if (!pSW || !key) return FALSE; switch (key->keyval) { case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': pSW->step(key->keyval - '0'); break; case 's': case 'S': case GDK_F7: pSW->step(); break; case 'o': case 'O': case GDK_F8: pSW->step_over(); break; case 'r': case 'R': case GDK_F9: pSW->run(); break; case 'f': case 'F': pSW->finish(); break; case GDK_Escape: pSW->stop(); break; default: return FALSE; } return TRUE; } //====================================================================== // // When a user right-clicks in the source browser, a menu will popup. // There can only be one menu active at any given time. // // 'aPopupMenu' pointer is a local pointer to a GtkMenu. // static GtkWidget *aPopupMenu=0; // // 'pViewContainingPopup' is a pointer to the GtkTextView that was active // when the popup menu was opened. // static GtkTextView *pViewContainingPopup=0; typedef enum { MENU_FIND_TEXT, MENU_FIND_PC, MENU_MOVE_PC, MENU_RUN_HERE, MENU_BP_HERE, MENU_SELECT_SYMBOL, MENU_STEP, MENU_STEP_OVER, MENU_RUN, MENU_STOP, MENU_FINISH, MENU_RESET, MENU_SETTINGS, MENU_PROFILE_START_HERE, MENU_PROFILE_STOP_HERE, MENU_ADD_TO_WATCH, } menu_id; typedef struct _menu_item { const char *name; menu_id id; GtkWidget *item; } menu_item; static menu_item menu_items[] = { {"Find PC", MENU_FIND_PC,0}, {"Run to here", MENU_RUN_HERE,0}, {"Move PC here", MENU_MOVE_PC,0}, {"Breakpoint here", MENU_BP_HERE,0}, {"Profile start here", MENU_PROFILE_START_HERE,0}, {"Profile stop here", MENU_PROFILE_STOP_HERE,0}, {"Add to watch", MENU_ADD_TO_WATCH,0}, {"Find text...", MENU_FIND_TEXT,0}, {"Settings...", MENU_SETTINGS,0}, }; static menu_item submenu_items[] = { {"Step", MENU_STEP,0}, {"Step Over", MENU_STEP_OVER,0}, {"Run", MENU_RUN,0}, {"Stop", MENU_STOP,0}, {"Reset", MENU_RESET,0}, {"Finish", MENU_FINISH,0}, }; //------------------------------------------------------------------------ // ButtonPressHandler // Event handler for text view mouse clicks. gint NSourcePage::ButtonPressHandler(GtkTextView *pView, GdkEventButton *pButton, SourceWindow *pSW) { if (pButton->window == gtk_text_view_get_window (pView, GTK_TEXT_WINDOW_LEFT)) { // Margin NSourcePage *pPage = PageMap[pView]; gint x = (gint) pButton->x; gint y = (gint) pButton->y; gtk_text_view_window_to_buffer_coords (pView, GTK_TEXT_WINDOW_LEFT, x, y, &x, &y); GtkTextIter iter; gint line; gtk_text_view_get_line_at_y (pView, &iter, y, NULL); line = gtk_text_iter_get_line (&iter); pSW->toggleBreak(pPage, line); } else { // Text (i.e. not the margin if (pButton->button == 3) { if (aPopupMenu) { if (GTK_IS_TEXT_VIEW(pView)) pViewContainingPopup = pView; gtk_menu_popup(GTK_MENU(aPopupMenu), 0, 0, 0, 0, 3, pButton->time); } return TRUE; } } return FALSE; } //======================================================================== int SourceWindow::DeleteEventHandler(GtkWidget *widget, GdkEvent *event, SourceWindow *sw) { sw->ChangeView(VIEW_HIDE); return TRUE; } //======================================================================== // Helper functions for parsing static int isString(const char *cP) { int i=0; if (isalpha(*cP) || *cP=='_') while (isalnum(cP[i]) || cP[i]=='_') i++; return i; } static int isWhiteSpace(const char *cP) { int i=0; while (cP[i]==' ' || cP[i]=='\t') i++; return i; } static int isHexNumber(const char *cP) { int i=0; if ((*cP == '0' && toupper(cP[1])=='X') || (*cP == '$')) { i = (*cP=='0') ? 2 : 1; while (isxdigit(cP[i])) i++; } return i; } static int isNumber(const char *cP) { int i=isHexNumber(cP); if (!i) while (isdigit(cP[i])) i++; return i; } static bool isEnd(const char c) { return c=='\n' || c==0; } static int isComment(const char *cP) { int i = (*cP==';') ? 1 : 0; if (i) while (!isEnd(cP[i])) i++; return i; } //------------------------------------------------------------------------ static bool isButtonEvent (GdkEventType type) { return type == GDK_BUTTON_PRESS || type == GDK_2BUTTON_PRESS || type == GDK_3BUTTON_PRESS || type == GDK_BUTTON_RELEASE; } //------------------------------------------------------------------------ static gboolean TagEvent (GtkTextTag *texttag, GObject *arg1, GdkEvent *event, GtkTextIter *arg2, TextStyle *pTextStyle) { /* static int seq=0; printf("Received tag event signal Tag:%p arg1:%p seq %d Event:%p iter:%p user:%p %08X Line:%d\n", texttag, arg1,seq++,event,arg2, pTextStyle, event->type, gtk_text_iter_get_line(arg2)); */ if (isButtonEvent(event->type)) { GdkEventButton *evtButton = (GdkEventButton *) event; if (event->type == GDK_2BUTTON_PRESS && evtButton->button == 1) { Dprintf (("Double click left mouse\n")); if (pTextStyle) pTextStyle->doubleClickEvent(arg2); gint signal_id = g_signal_lookup ("button_press_event", G_TYPE_FROM_INSTANCE(arg1)); GSignalQuery query; g_signal_query (signal_id, &query); Dprintf (("Signal id=%d name=%s n_params=%d\n",signal_id,query.signal_name, query.n_params)); GtkWidget *toplevel = gtk_widget_get_toplevel (GTK_WIDGET (arg1)); gboolean b=FALSE; if (GTK_WIDGET_TOPLEVEL (toplevel)) { //g_signal_emit_by_name (toplevel, "button_press_event",evtButton,&b); g_signal_emit_by_name (GTK_WIDGET (arg1), "button_press_event",evtButton,&b); } else printf("TagEvent: arg1 is not toplevel\n"); } /* printf("Button Event: button:%d modifier:%d coords(%g,%g)\n", evtButton->button, evtButton->state, evtButton->x,evtButton->y); */ // If the right mouse button is pressed then suppress the GTK pop up menu. if (evtButton->button == 3) { if (aPopupMenu) { if (GTK_IS_TEXT_VIEW(arg1)) { pViewContainingPopup = GTK_TEXT_VIEW(arg1); NSourcePage *pPage = PageMap[pViewContainingPopup]; gint x = (gint) evtButton->x; gint y = (gint) evtButton->y; gtk_text_view_window_to_buffer_coords (pViewContainingPopup, GTK_TEXT_WINDOW_LEFT, x, y, &x, &y); GtkTextIter iter; gtk_text_view_get_line_at_y (pViewContainingPopup, &iter, y, NULL); pPage->getParent()->m_LineAtButtonClick = gtk_text_iter_get_line (&iter); } gtk_menu_popup(GTK_MENU(aPopupMenu), 0, 0, 0, 0, 3, evtButton->time); } return TRUE; } return FALSE; } return FALSE; } //------------------------------------------------------------------------ class SearchDialog { public: SearchDialog(); void Build(); void Show(SourceWindow *); bool bDirection(); bool bCase(); protected: bool m_bIsBuilt; bool m_bFound; bool m_bLooped; int m_iStart; int m_iLast; int m_iLastID; GtkWidget *m_Window; // The Search Dialog Window GtkWidget *m_Entry; // Widget that holds the search text. GtkWidget *m_BackButton; // GtkWidget *m_CaseButton; // GList *m_comboStrings; // SourceWindow *m_pSourceWindow; // The last source window that requested a search. static void find_cb(GtkWidget *w, SearchDialog *); static void find_clear_cb(GtkWidget *w, SearchDialog *pSearchDialog); void find(const char *); static gint configure_event(GtkWidget *widget, GdkEventConfigure *e, gpointer data); }; //------------------------------------------------------------------------ SearchDialog::SearchDialog() : m_bIsBuilt(false), m_bFound(false), m_bLooped(false),m_iStart(0),m_iLast(0),m_iLastID(0), m_pSourceWindow(0) { } gint SearchDialog::configure_event(GtkWidget *widget, GdkEventConfigure *e, gpointer data) { static int dlg_x=200, dlg_y=200; if(widget->window==0) return 0; gdk_window_get_root_origin(widget->window,&dlg_x,&dlg_y); return 0; } bool SearchDialog::bDirection() { return GTK_TOGGLE_BUTTON(m_BackButton)->active == TRUE; } bool SearchDialog::bCase() { return GTK_TOGGLE_BUTTON(m_CaseButton)->active == TRUE; } void SearchDialog::find_cb(GtkWidget *w, SearchDialog *pSearchDialog) { const char *p=gtk_entry_get_text(GTK_ENTRY(GTK_COMBO(pSearchDialog->m_Entry)->entry)); pSearchDialog->find(p); } void SearchDialog::find(const char *cpPattern) { if (m_pSourceWindow) m_iStart = m_pSourceWindow->findText(cpPattern,m_iStart,!bDirection(), bCase()); } void SearchDialog::find_clear_cb(GtkWidget *w, SearchDialog *pSearchDialog) { //gtk_entry_set_text(GTK_ENTRY(GTK_COMBO(searchdlg.entry)->entry),""); printf("find_clear_cb\n"); } //------------------------------------------------------------------------ void SearchDialog::Build() { GtkWidget *hbox; GtkWidget *button; GtkWidget *label; if (m_bIsBuilt) return; m_iLastID=-1; // will reset search m_Window = gtk_dialog_new(); gtk_signal_connect(GTK_OBJECT(m_Window), "configure_event",GTK_SIGNAL_FUNC(configure_event),0); gtk_signal_connect_object(GTK_OBJECT(m_Window), "delete_event",GTK_SIGNAL_FUNC(gtk_widget_hide), GTK_OBJECT(m_Window)); gtk_window_set_title(GTK_WINDOW(m_Window),"Find"); hbox = gtk_hbox_new(FALSE,15); gtk_widget_show(hbox); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(m_Window)->vbox),hbox, FALSE,TRUE,5); label = gtk_label_new("Find:"); gtk_widget_show(label); gtk_box_pack_start(GTK_BOX(hbox),label, FALSE,FALSE,5); m_Entry = gtk_combo_new(); gtk_widget_show(m_Entry); gtk_box_pack_start(GTK_BOX(hbox),m_Entry, TRUE,TRUE,5); gtk_combo_disable_activate(GTK_COMBO(m_Entry)); gtk_signal_connect(GTK_OBJECT(GTK_COMBO(m_Entry)->entry),"activate", GTK_SIGNAL_FUNC(find_cb),this); hbox = gtk_hbox_new(FALSE,15); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(m_Window)->vbox),hbox, FALSE,TRUE,5); gtk_widget_show(hbox); m_CaseButton = gtk_check_button_new_with_label("Case Sensitive"); gtk_widget_show(m_CaseButton); gtk_box_pack_start(GTK_BOX(hbox),m_CaseButton, FALSE,FALSE,5); m_BackButton = gtk_check_button_new_with_label("Find Backwards"); gtk_widget_show(m_BackButton); gtk_box_pack_start(GTK_BOX(hbox),m_BackButton, FALSE,FALSE,5); button = gtk_button_new_with_label("Find"); gtk_widget_show(button); gtk_box_pack_start_defaults(GTK_BOX(GTK_DIALOG(m_Window)->action_area),button); gtk_signal_connect(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(find_cb),this); GTK_WIDGET_SET_FLAGS(button,GTK_CAN_DEFAULT); gtk_widget_grab_default(button); button = gtk_button_new_with_label("Clear"); gtk_widget_show(button); gtk_box_pack_start_defaults(GTK_BOX(GTK_DIALOG(m_Window)->action_area),button); gtk_signal_connect(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(find_clear_cb),this); button = gtk_button_new_with_label("Close"); gtk_widget_show(button); gtk_box_pack_start_defaults(GTK_BOX(GTK_DIALOG(m_Window)->action_area),button); gtk_signal_connect_object(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(gtk_widget_hide),GTK_OBJECT(m_Window)); m_bIsBuilt = true; } void SearchDialog::Show(SourceWindow *pSourceWindow) { if (!m_bIsBuilt) Build(); m_pSourceWindow = pSourceWindow; m_iStart = 0; if (m_Window) gtk_widget_show(m_Window); } //------------------------------------------------------------------------ ColorHolder::ColorHolder (const char *pcColor) /* : m_cpCurr(0), m_cpTemp(0) */ { if (pcColor) { gdk_color_parse(pcColor, &mCurrentColor); mSaveColor = mCurrentColor; } } bool ColorHolder::set(GdkColor *pNewColor, bool saveOld) { if (!saveOld) mSaveColor = *pNewColor; if (!gdk_color_equal(pNewColor,&mCurrentColor)) { mCurrentColor = *pNewColor; return true; } return false; } char *ColorHolder::get(char *cParr, int size) { if (cParr) snprintf(cParr,size,"#%04X%04X%04X", mCurrentColor.red,mCurrentColor.green,mCurrentColor.blue); return cParr; } void ColorHolder::apply() { mSaveColor = mCurrentColor; } bool ColorHolder::revert() { return set(&mSaveColor,true); } GdkColor *ColorHolder::CurrentColor() { return &mCurrentColor; } //------------------------------------------------------------------------ TextStyle::TextStyle (const char *cpName, const char *pFGColor, const char *pBGColor) : mFG(pFGColor), mBG(pBGColor) { m_pTag = gtk_text_tag_new(cpName); g_object_set(G_OBJECT (m_pTag), "foreground-gdk", mFG.CurrentColor(), "background-gdk", mBG.CurrentColor(),NULL); g_signal_connect (G_OBJECT (m_pTag), "event", GTK_SIGNAL_FUNC(TagEvent), this); } void TextStyle::setFG(GdkColor *pNewColor) { if (mFG.set(pNewColor,true)) { g_object_set(G_OBJECT (m_pTag), "foreground-gdk", mFG.CurrentColor(),NULL); } } //------------------------------------------------------------------------ void TextStyle::doubleClickEvent(GtkTextIter *pIter) { } void TextStyle::apply() { mFG.apply(); mBG.apply(); } void TextStyle::revert() { if (mBG.revert()) g_object_set(G_OBJECT (m_pTag), "background-gdk", mBG.CurrentColor(),NULL); if (mFG.revert()) g_object_set(G_OBJECT (m_pTag), "foreground-gdk", mFG.CurrentColor(),NULL); } //======================================================================== //======================================================================== SourcePageMargin::SourcePageMargin() : m_bShowLineNumbers(true), m_bShowAddresses(false), m_bShowOpcodes(true) { } //======================================================================== //======================================================================== SourceBuffer::SourceBuffer(GtkTextTagTable *pTagTable, FileContext *pFC, SourceBrowserParent_Window *pParent) : m_pParent(pParent), m_pFC(pFC), m_SourceFile_t(eUnknownSource), m_bParsed(false) { assert(pTagTable); assert(pParent); m_buffer = gtk_text_buffer_new (pTagTable); assert(m_buffer); } //------------------------------------------------------------------------ eSourceFileType SourceBuffer::getSrcType() { return m_SourceFile_t; } void SourceBuffer::setSrcType(eSourceFileType new_SrcType) { m_SourceFile_t = new_SrcType; } //------------------------------------------------------------------------ // addTagRange(TextStyle *pStyle,int start_index, int end_index) // // Addtag range applies the tag state to a range of text in the buffer // using a given text style (i.e. the style contains a gtkTextTag) void SourceBuffer::addTagRange(TextStyle *pStyle, int start_index, int end_index) { if (!pStyle) return; GtkTextIter start; GtkTextIter end; gtk_text_buffer_get_iter_at_offset (m_buffer, &start, start_index); gtk_text_buffer_get_iter_at_offset (m_buffer, &end, end_index); gtk_text_buffer_apply_tag (m_buffer, pStyle->tag(), &start, &end); } //------------------------------------------------------------------------ bool SourceBuffer::IsParsed() { return m_bParsed; } //------------------------------------------------------------------------ void SourceBuffer::parse() { if (IsParsed() || !m_pParent) return; Dprintf(("parsing source buffer %s\n",m_pFC->name().c_str())); m_pParent->parseSource(this, m_pFC); m_bParsed = true; } GtkTextBuffer *SourceBuffer::getBuffer() { parse(); return m_buffer; } //------------------------------------------------------------------------ // /* void SourceBuffer::setBreak(int line) { Dprintf ((" setBreak line %d\n",line)); GtkTextIter iBegin, iEnd; gtk_text_buffer_get_iter_at_line_offset (m_buffer, &iBegin, line, STROFFSET_OF_OPCODE); gtk_text_buffer_get_iter_at_line_offset (m_buffer, &iEnd, line, STROFFSET_OF_OPCODE+STRLEN_OF_OPCODE); gtk_text_buffer_apply_tag (m_buffer, m_pParent->mBreakpointTag->tag(), &iBegin, &iEnd); } */ //------------------------------------------------------------------------ /* void SourceBuffer::clearBreak(int line) { Dprintf ((" clearBreak line %d\n",line)); GtkTextIter iBegin, iEnd; gtk_text_buffer_get_iter_at_line_offset (m_buffer, &iBegin, line, STROFFSET_OF_OPCODE); gtk_text_buffer_get_iter_at_line_offset (m_buffer, &iEnd, line, STROFFSET_OF_OPCODE+STRLEN_OF_OPCODE); gtk_text_buffer_remove_tag (m_buffer, m_pParent->mBreakpointTag->tag(), &iBegin, &iEnd); } */ //======================================================================== NSourcePage::NSourcePage(SourceWindow *pParent, SourceBuffer *pBuffer, int file_id, GtkWidget *pContainer) : m_fileid(file_id), m_pBuffer(pBuffer), m_marginWidth(0), m_Parent(pParent), m_cpFont(0), m_pContainer(pContainer), m_view(0) { } GtkTextBuffer *NSourcePage::buffer() { return m_pBuffer ? m_pBuffer->getBuffer() : 0; } //------------------------------------------------------------------------ SourceWindow::SourceWindow(GUI_Processor *pgp, SourceBrowserParent_Window *pParent, bool bUseConfig, const char *newName) : GUI_Object (), pma(0), status_bar(0), last_simulation_mode(eSM_INITIAL), m_Notebook(0), m_pParent(pParent) { Dprintf(("Constructor \n")); gp = pgp; stPSearchDialog=0; m_bLoadSource = false; m_bSourceLoaded = false; m_LineAtButtonClick = -1; if (newName) set_name(newName); else set_name("source_browser"); wc = WC_source; wt = WT_SourceWindow; m_Notebook = 0; mProgramCounter.bIsActive = false; pages = new NSourcePage *[SBAW_NRFILES]; for (int i=0; istep(n); } //------------------------------------------------------------------------ void SourceWindow::step_over() { if (pma) pma->step_over(); } //------------------------------------------------------------------------ void SourceWindow::stop() { if (pma) pma->stop(); } //------------------------------------------------------------------------ void SourceWindow::run() { // if (pma) // pma->run(); get_interface().start_simulation(); } //------------------------------------------------------------------------ void SourceWindow::finish() { if (pma) pma->finish(); } //------------------------------------------------------------------------ void SourceWindow::reset() { if (gp && gp->cpu) gp->cpu->reset(POR_RESET); } //------------------------------------------------------------------------ void SourceWindow::set_style_colors(const char *fg_color, const char *bg_color, GtkStyle **style) { GdkColor text_fg; GdkColor text_bg; gdk_color_parse(fg_color, &text_fg); gdk_color_parse(bg_color, &text_bg); *style = gtk_style_new(); (*style)->base[GTK_STATE_NORMAL] = text_bg; (*style)->fg[GTK_STATE_NORMAL] = text_fg; } //------------------------------------------------------------------------ // toggleBreak // // void SourceWindow::toggleBreak(NSourcePage *pPage, int line) { if (pma && pPage) { int address = pma->find_address_from_line(pPage->getFC(),line+1); if (address >= 0) pma->toggle_break_at_address(address); } } //------------------------------------------------------------------------ // movePC // // void SourceWindow::movePC(int line) { } //------------------------------------------------------------------------ void SourceWindow::findText() { if (!stPSearchDialog) stPSearchDialog = new SearchDialog(); stPSearchDialog->Show(this); } //------------------------------------------------------------------------ // strcasestr is a non standard function // #if defined _MSC_VER || defined __MINGW32__ || defined __CYGWIN__ char *strcasestr(const char *searchee, const char *lookfor) { if (*searchee == '\0') { if (*lookfor) return NULL; return (char *) searchee; } while (*searchee != '\0') { size_t i; for (i = 0; ; ++i) { if (lookfor[i] == '\0') return (char *) searchee; if (tolower(lookfor[i]) != tolower(searchee[i])) break; } searchee++; } return NULL; } #endif //------------------------------------------------------------------------ // findText // // Search for the pattern 'pText' in the source window. // if bDirection is true then search forward. int SourceWindow::findText(const char *pText, int start, bool bDirection, bool bCase) { if (!pText) return 0; unsigned int patternLen = strlen(pText); char buff[1024]; patternLen = (patternLen < sizeof(buff)) ? patternLen : sizeof(buff) -1; const char *pattern = bDirection ? pText : strReverse(pText, &buff[patternLen], patternLen); //printf("findText %s view:%p\n",pattern,pViewContainingPopup); NSourcePage *pPage = PageMap[pViewContainingPopup]; if (!pPage) return 0; GtkTextIter iStart; GtkTextIter iEnd; int line = 0; int offset = 0; int totalLines = gtk_text_buffer_get_line_count(pPage->buffer()); if (!start) { if (bDirection) { gtk_text_buffer_get_start_iter(pPage->buffer(), &iStart); gtk_text_buffer_get_iter_at_line(pPage->buffer(), &iEnd, line+1); } else { gtk_text_buffer_get_end_iter(pPage->buffer(), &iEnd); gtk_text_buffer_get_end_iter(pPage->buffer(), &iStart); gtk_text_iter_backward_line (&iStart); line = totalLines-2; } } else { gtk_text_buffer_get_iter_at_offset(pPage->buffer(), &iStart, start); line = gtk_text_iter_get_line (&iStart); if (bDirection) { if (line >= totalLines) { line = 0; gtk_text_buffer_get_iter_at_offset(pPage->buffer(), &iStart, 0); } } else { if (line <= 0) { line = totalLines-1; gtk_text_buffer_get_iter_at_line(pPage->buffer(), &iStart, line--); } } gtk_text_buffer_get_iter_at_line(pPage->buffer(), &iEnd, line); offset = start - gtk_text_iter_get_offset (&iEnd); gtk_text_buffer_get_iter_at_line(pPage->buffer(), &iEnd, line+1); } while (totalLines--) { const char *str = gtk_text_buffer_get_text(pPage->buffer(), &iStart, &iEnd, FALSE); unsigned int srcLen = strlen(str); const char *cpSource = str; char buffer2[1024]; if (!bDirection) { srcLen = (srcLen < sizeof(buffer2)) ? srcLen : sizeof(buffer2)-1; cpSource = strReverse(cpSource, &buffer2[srcLen], srcLen); } const char *pFound = bCase ? strstr(cpSource, pattern) : strcasestr(cpSource, pattern); if (pFound) { int pos = bDirection ? (pFound - cpSource) : (srcLen - (pFound - cpSource)); pos += offset; //printf("Found %s in %s starting at %s, pos=%d\n",pattern, str, pFound,pos); gtk_text_view_scroll_to_iter (pViewContainingPopup, &iStart, 0.0, TRUE, 0.0, 0.3); gtk_text_buffer_get_iter_at_line_offset(pPage->buffer(), &iStart, line, pos); gtk_text_buffer_get_iter_at_line_offset(pPage->buffer(), &iEnd, line, pos+ (bDirection ? patternLen : -patternLen)); gtk_text_buffer_select_range (pPage->buffer(), &iStart, &iEnd); return gtk_text_iter_get_offset(bDirection ? &iEnd : &iStart); } // Now we'll search whole lines. offset = 0; if (bDirection) { if (gtk_text_iter_forward_line (&iStart)==FALSE) return 0; gtk_text_iter_forward_line (&iEnd); line++; } else { if (gtk_text_iter_backward_line (&iStart)==FALSE) return gtk_text_buffer_get_char_count(pPage->buffer()) - 1; gtk_text_iter_backward_line (&iEnd); line--; } } printf("Did not find %s\n",pattern); return 0; } //------------------------------------------------------------------------ gint SourceWindow::cb_notebook_switchpage (GtkNotebook *notebook, GtkNotebookPage *page, guint page_num, SourceWindow *pSW) { return pSW->switch_page_cb(page_num); } gint SourceWindow::switch_page_cb(guint newPage) { Dprintf((" Switch page call back-- page=%d\n",newPage)); if (m_currentPage != newPage) { m_currentPage = newPage; NSourcePage *pPage = pages[m_currentPage]; if (!pPage || !gp->cpu->files[pPage->m_fileid]) return TRUE; if(gp->cpu->files[pPage->m_fileid]->IsHLL()) pma->set_hll_mode(ProgramMemoryAccess::HLL_MODE); else pma->set_hll_mode(ProgramMemoryAccess::ASM_MODE); pPage->setSource(); pPage->invalidateView(); } return TRUE; } //------------------------------------------------------------------------ // void NSourcePage::invalidateView() { if (m_view) { GdkRectangle vRect; vRect.x=0; vRect.y=0; vRect.width=100; vRect.height=100; gdk_window_invalidate_rect (gtk_text_view_get_window (m_view, GTK_TEXT_WINDOW_LEFT), &vRect, TRUE); } } static int settings_dialog(SOURCE_WINDOW *sbaw); //------------------------------------------------------------------------ static Register *findRegister(string text) { Register *pReg = dynamic_cast(globalSymbolTable().find(text)); if (!pReg) pReg = dynamic_cast(globalSymbolTable().find(text+string("_"))); if (!pReg) { toupper(text); pReg = dynamic_cast(globalSymbolTable().find(text)); } if (!pReg) pReg = dynamic_cast(globalSymbolTable().find(text+string("_"))); return pReg; } //------------------------------------------------------------------------ void SourceWindow::PopupMenuHandler(GtkWidget *widget, gpointer data) { unsigned int address; menu_item *item; SourceWindow *pSW = 0; NSourcePage *pPage = 0; // pViewContainingPopup is initialized when the view_button_press() // event handler is called. That function also initiates the event // that invokes this callback. if (!pViewContainingPopup) { printf("Warning popup without a textview\n"); } else { pPage = PageMap[pViewContainingPopup]; pSW = pPage ? pPage->getParent() : 0; } if (!pSW) { printf ("Warning (bug?): popup cannot be associate with any source\n"); return; } item = (menu_item *)data; switch(item->id) { case MENU_SETTINGS: settings_dialog(pSW); break; case MENU_FIND_TEXT: pSW->findText(); break; case MENU_FIND_PC: address=pSW->pma->get_PC(); pSW->SetPC(address); break; case MENU_MOVE_PC: if(-1 != pSW->m_LineAtButtonClick) { address = pSW->pma->find_closest_address_to_line( pPage->m_fileid,pSW->m_LineAtButtonClick + 1); if(address!=INVALID_VALUE) { pSW->pma->set_PC(address); pSW->SetPC(pSW->pma->get_PC()); } } break; case MENU_RUN_HERE: if(-1 != pSW->m_LineAtButtonClick) { address = pSW->pma->find_closest_address_to_line( pPage->m_fileid,pSW->m_LineAtButtonClick + 1); if(address!=INVALID_VALUE) { pSW->gp->cpu->run_to_address(address); pSW->SetPC(pSW->pma->get_PC()); // RP - update GUI after running } } break; case MENU_BP_HERE: if(-1 != pSW->m_LineAtButtonClick) { pSW->toggleBreak(pPage, pSW->m_LineAtButtonClick); } break; case MENU_PROFILE_START_HERE: if(-1 != pSW->m_LineAtButtonClick) { address = pSW->pma->find_closest_address_to_line( pPage->m_fileid,pSW->m_LineAtButtonClick + 1); pSW->gp->profile_window->StartExe(address); } break; case MENU_PROFILE_STOP_HERE: if(-1 != pSW->m_LineAtButtonClick) { address = pSW->pma->find_closest_address_to_line( pPage->m_fileid,pSW->m_LineAtButtonClick + 1); pSW->gp->profile_window->StopExe(address); } break; case MENU_SELECT_SYMBOL: case MENU_ADD_TO_WATCH: { GtkTextBuffer *pBuffer = pPage->buffer(); GtkTextIter itBegin, itEnd; if(gtk_text_buffer_get_selection_bounds( pBuffer, &itBegin, &itEnd) ) { gchar *text = gtk_text_buffer_get_text(pBuffer, &itBegin, &itEnd, FALSE); if(text != 0) { TrimWhiteSpaceFromString(text); if(text[0] != 0) { //register_symbol *pReg = get_symbol_table().findRegisterSymbol(text); /* if(pReg == NULL) { // We also try upper case. string sName(text); toupper(sName); pReg = get_symbol_table().findRegisterSymbol(sName.c_str()); } if(pReg == NULL) { // We also try with a '_' prefix. string sName("_"); sName.append(text); pReg = get_symbol_table().findRegisterSymbol(sName.c_str()); if(pReg == NULL) { // We also try upper case. toupper(sName); pReg = get_symbol_table().findRegisterSymbol(sName.c_str()); } } */ Register *pReg = findRegister(string(text)); if(!pReg) { GtkWidget *dialog = gtk_message_dialog_new( GTK_WINDOW(pSW->window), GTK_DIALOG_MODAL, GTK_MESSAGE_WARNING, GTK_BUTTONS_OK, "The symbol '%s' does not exist as a register symbol.\n" "Only register based symbols may be added to the Watch window.", text); gtk_dialog_run (GTK_DIALOG (dialog)); gtk_widget_destroy (dialog); } else { pSW->gp->watch_window->Add(pReg); } } } } } break; case MENU_STEP: if (pSW) pSW->step(); break; case MENU_STEP_OVER: if (pSW) pSW->step_over(); break; case MENU_RUN: if (pSW) pSW->run(); break; case MENU_STOP: if (pSW) pSW->stop(); break; case MENU_RESET: if (pSW) pSW->reset(); break; case MENU_FINISH: if (pSW) pSW->finish(); break; default: puts("Unhandled menuitem?"); break; } } //------------------------------------------------------------------------ GtkWidget * SourceWindow::BuildPopupMenu() { GtkWidget *menu; GtkWidget *submenu; GtkWidget *item; unsigned int i; menu=gtk_menu_new(); for (i=0; i < (sizeof(menu_items)/sizeof(menu_items[0])) ; i++){ item=gtk_menu_item_new_with_label(menu_items[i].name); menu_items[i].item=item; gtk_signal_connect(GTK_OBJECT(item),"activate", (GtkSignalFunc) PopupMenuHandler, &menu_items[i]); gtk_widget_show(item); gtk_menu_append(GTK_MENU(menu),item); } submenu=gtk_menu_new(); item = gtk_tearoff_menu_item_new (); gtk_menu_append (GTK_MENU (submenu), item); gtk_widget_show (item); for (i=0; i < (sizeof(submenu_items)/sizeof(submenu_items[0])) ; i++){ item=gtk_menu_item_new_with_label(submenu_items[i].name); submenu_items[i].item=item; gtk_signal_connect(GTK_OBJECT(item),"activate", (GtkSignalFunc) PopupMenuHandler, &submenu_items[i]); GTK_WIDGET_SET_FLAGS (item, GTK_SENSITIVE | GTK_CAN_FOCUS); gtk_widget_show(item); gtk_menu_append(GTK_MENU(submenu),item); } item = gtk_menu_item_new_with_label ("Controls"); gtk_menu_append (GTK_MENU (menu), item); gtk_widget_show (item); gtk_menu_item_set_submenu (GTK_MENU_ITEM (item), submenu); return menu; } //------------------------------------------------------------------------ // Build // // void SourceWindow::Build() { char *fontstring; Dprintf((" \n")); if(bIsBuilt) return; Dprintf((" \n")); window = gtk_window_new (GTK_WINDOW_TOPLEVEL); // get_config(); gtk_window_set_default_size(GTK_WINDOW(window), width,height); gtk_widget_set_uposition(GTK_WIDGET(window),x,y); gtk_window_set_wmclass(GTK_WINDOW(window),name(),"Gpsim"); g_signal_connect(GTK_OBJECT(window),"key_press_event", (GtkSignalFunc) KeyPressHandler, (gpointer) this); gtk_signal_connect (GTK_OBJECT (window), "delete_event", GTK_SIGNAL_FUNC(DeleteEventHandler), (gpointer) this); gtk_container_set_border_width (GTK_CONTAINER (window), 0); SetTitle(); GtkWidget *vbox = gtk_vbox_new (FALSE, 0); gtk_widget_show(vbox); gtk_container_add (GTK_CONTAINER (window), vbox); m_Notebook = gtk_notebook_new(); m_currentPage = 0; gtk_signal_connect (GTK_OBJECT (m_Notebook), "switch-page", GTK_SIGNAL_FUNC(cb_notebook_switchpage), (gpointer) this); gtk_notebook_set_tab_pos((GtkNotebook*)m_Notebook, GTK_POS_LEFT); gtk_notebook_set_scrollable ((GtkNotebook*)m_Notebook, TRUE); gtk_box_pack_start (GTK_BOX (vbox), m_Notebook, TRUE, TRUE, 0); status_bar = new StatusBar_Window(); if(status_bar) { Dprintf ((" creating status bar\n")); status_bar->Create(vbox); } gtk_widget_show_all(window); gtk_widget_show_all(vbox); gtk_widget_show_all(m_Notebook); aPopupMenu = BuildPopupMenu(); set_style_colors("black", "white", &default_text_style); set_style_colors("dark green", "white", &symbol_text_style); set_style_colors("orange", "white", &label_text_style); set_style_colors("red", "white", &instruction_text_style); set_style_colors("blue", "white", &number_text_style); set_style_colors("dim gray", "white", &comment_text_style); #define DEFAULT_COMMENTFONT "-adobe-courier-bold-o-*-*-*-120-*-*-*-*-*-*" #define DEFAULT_SOURCEFONT "-adobe-courier-bold-r-*-*-*-120-*-*-*-*-*-*" if(config_get_string(name(),"commentfont",&fontstring)) strcpy(commentfont_string,fontstring); else strcpy(commentfont_string,DEFAULT_COMMENTFONT); if(config_get_string(name(),"sourcefont",&fontstring)) strcpy(sourcefont_string,fontstring); else strcpy(sourcefont_string,DEFAULT_SOURCEFONT); while(!load_fonts(this)) { if(gui_question("Some fonts did not load.","Open font dialog","Try defaults")==FALSE) { strcpy(sourcefont_string,DEFAULT_SOURCEFONT); strcpy(commentfont_string,DEFAULT_COMMENTFONT); config_set_string(name(),"sourcefont",sourcefont_string); config_set_string(name(),"commentfont",commentfont_string); } else { settings_dialog(this); } } symbol_font = gtk_style_get_font(symbol_text_style); label_font = gtk_style_get_font(label_text_style); instruction_font = gtk_style_get_font(instruction_text_style); number_font = gtk_style_get_font(number_text_style); comment_font = gtk_style_get_font(comment_text_style); default_font = gtk_style_get_font(default_text_style); bIsBuilt = true; menu = "
    /Windows/Source"; gtk_window_set_title (GTK_WINDOW (window), "Source Browser"); UpdateMenuItem(); if(m_bLoadSource) { Dprintf((" \n")); NewSource(gp); } } //------------------------------------------------------------------------ // void SourceWindow::SetTitle() { if (!gp || !gp->cpu || !pma) return; if (last_simulation_mode != eSM_INITIAL && ((last_simulation_mode == eSM_RUNNING && gp->cpu->simulation_mode == eSM_RUNNING) || (last_simulation_mode != eSM_RUNNING && gp->cpu->simulation_mode != eSM_RUNNING)) && sLastPmaName == pma->name()) { return; } last_simulation_mode = gp->cpu->simulation_mode; const char * sStatus; if (gp->cpu->simulation_mode == eSM_RUNNING) sStatus = "Run"; else // if (gp->cpu->simulation_mode == eSM_STOPPED) sStatus = "Stopped"; char buffer[256]; snprintf(buffer,sizeof(buffer), "Source Browser: [%s] %s", sStatus, pma != NULL ? pma->name().c_str() : "" ); sLastPmaName = pma->name(); gtk_window_set_title (GTK_WINDOW (window), buffer); } //------------------------------------------------------------------------ // void SourceWindow::set_pma(ProgramMemoryAccess *new_pma) { Dprintf((" \n")); pma = new_pma; if(window && pma) { SetTitle(); } if(status_bar) status_bar->NewProcessor(gp, pma); } void SourceWindow::Create(void) { Dprintf((" \n")); } void SourceWindow::SelectAddress(int address) { Dprintf((" \n")); } void SourceWindow::SelectAddress(Value *) { Dprintf((" \n")); } //------------------------------------------------------------------------ // Update // // Called whenever the source window needs to be updated (like after break points). void SourceWindow::Update() { Dprintf((" \n")); if (!window || !enabled) return; if (m_Notebook && ((gtk_notebook_get_show_tabs(GTK_NOTEBOOK(m_Notebook))==false && m_pParent->getTabPosition()<0) || (m_pParent->getTabPosition() != gtk_notebook_get_tab_pos(GTK_NOTEBOOK(m_Notebook))))) { if (m_pParent->getTabPosition()<0) { gtk_notebook_set_show_tabs(GTK_NOTEBOOK(m_Notebook),FALSE); } else { gtk_notebook_set_show_tabs(GTK_NOTEBOOK(m_Notebook),TRUE); gtk_notebook_set_tab_pos(GTK_NOTEBOOK(m_Notebook), (GtkPositionType) m_pParent->getTabPosition()); } } if (m_Notebook) { gint currPage = gtk_notebook_get_current_page (GTK_NOTEBOOK(m_Notebook)); if (currPage>=0 && currPage < SBAW_NRFILES) { pages[currPage]->setSource(); pages[currPage]->setFont(m_pParent->getFont()); } } if(!gp || !pma || ! window) return; SetTitle(); SetPC(pma->get_PC()); if(status_bar) status_bar->Update(); } //------------------------------------------------------------------------ void SourceWindow::UpdateLine(int address) { assert(address>=0); Dprintf((" UpdateLine at address=%d\n",address)); if(!bSourceLoaded() || !pma || !enabled) return; gint currPage = gtk_notebook_get_current_page (GTK_NOTEBOOK(m_Notebook)); if (currPage < 0 || currPage > SBAW_NRFILES) return; NSourcePage *pPage = pages[currPage]; if (!pPage) return; pPage->setSource(); int line = (pPage->getFC()->IsList()) ? pma->getFromAddress(address)->get_lst_line() : pma->get_src_line(address); //int line = pma->get_src_line(address) - 1; line -= 1; GtkTextIter iBegin; gtk_text_buffer_get_iter_at_line (gtk_text_view_get_buffer(pPage->getView()), &iBegin, line); int y, h; gtk_text_view_get_line_yrange (pPage->getView(), &iBegin, &y, &h); if (pPage->m_marginWidth) { GdkRectangle vRect; gtk_text_view_buffer_to_window_coords (pPage->getView(), GTK_TEXT_WINDOW_LEFT, 0, y, NULL, &y); vRect.x=0; vRect.y=y; vRect.width=pPage->m_marginWidth; vRect.height=h; Dprintf((" UpdateLine line=%d invalidating region %d,%d %d,%d\n",line,0,y,vRect.width,h)); // Send an expose event to repaint the whole margin gdk_window_invalidate_rect (gtk_text_view_get_window (pPage->getView(), GTK_TEXT_WINDOW_LEFT), &vRect, TRUE); } return; } //------------------------------------------------------------------------ // int SourceWindow::getPCLine(int page) { if (mProgramCounter.bIsActive && mProgramCounter.page == page) return mProgramCounter.line; NSourcePage *pPage = pages[page]; return (pPage->getFC()->IsList()) ? pma->getFromAddress(pma->get_PC())->get_lst_line() : pma->get_src_line(pma->get_PC()); } int SourceWindow::getAddress(NSourcePage *pPage, int line) { return pma->find_address_from_line(pPage->getFC(),line); } bool SourceWindow::bAddressHasBreak(int address) { return address>=0 && pma->address_has_break(address); } int SourceWindow::getOpcode(int address) { return (address >= 0) ? gp->cpu->pma->get_opcode(address) : address; } //------------------------------------------------------------------------ bool SourcePageMargin::formatMargin(char *str, int len, int line, int addr, int opcode, bool bBreak) { if (str) { int pos = 0; int npos = 0; *str=0; npos = bBreak ? g_snprintf(&str[pos], len, "") : 0; pos += npos; len -= npos; npos = m_bShowLineNumbers ? g_snprintf(&str[pos], len, "%d",line) : 0; pos += npos; len -= npos; npos = (m_bShowAddresses && addr >= 0) ? g_snprintf(&str[pos], len, " %04X",addr) : 0; pos += npos; len -= npos; npos = (m_bShowOpcodes && opcode >= 0) ? g_snprintf(&str[pos], len, "%c%04X ", m_bShowAddresses?':':' ', opcode) : 0; pos += npos; len -= npos; pos += bBreak ? g_snprintf(&str[pos], len, "") : 0; return pos != 0; } return false; } //------------------------------------------------------------------------ SourceWindow *NSourcePage::getParent() { return m_Parent; } //------------------------------------------------------------------------ bool NSourcePage::bHasSource() { return m_pBuffer != 0; } FileContext * NSourcePage::getFC() { return m_pBuffer ? m_pBuffer->m_pFC : 0; } //------------------------------------------------------------------------ GtkTextView *NSourcePage::getView() { setSource(); return m_view; } //------------------------------------------------------------------------ void NSourcePage::setSource() { Dprintf((" \n")); if (!m_pBuffer) return; if (m_view) return; if (!m_pContainer) return; Dprintf(("SetSource fileid %d\n",m_fileid)); m_pBuffer->parse(); m_view = (GtkTextView *)gtk_text_view_new_with_buffer(m_pBuffer->getBuffer()); Dprintf(("NSourcePage::setSource() - view=%p\n",m_view)); gtk_text_view_set_border_window_size (GTK_TEXT_VIEW (m_view), GTK_TEXT_WINDOW_LEFT, MARGIN_WIDTH); PageMap[m_view] = this; g_signal_connect(GTK_OBJECT(m_view),"key_press_event", (GtkSignalFunc) KeyPressHandler, (gpointer) m_Parent); g_signal_connect(GTK_OBJECT(m_view),"button_press_event", (GtkSignalFunc) ButtonPressHandler, (gpointer) m_Parent); g_signal_connect(GTK_OBJECT(m_view),"expose_event", (GtkSignalFunc) ViewExposeEventHandler, (gpointer) m_Parent); GtkWidget *pSW = gtk_scrolled_window_new (0,0); gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (pSW), GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC); gtk_container_add (GTK_CONTAINER (m_pContainer), pSW); gtk_container_add (GTK_CONTAINER (pSW), GTK_WIDGET(m_view)); gtk_text_view_set_wrap_mode (m_view, GTK_WRAP_NONE); gtk_text_view_set_editable (m_view, FALSE); setFont(m_Parent->getFont()); gtk_widget_show_all(m_pContainer); } //------------------------------------------------------------------------ void NSourcePage::updateMargin(int y1, int y2) { Dprintf((" updateMargin y1=%d y2=%d\n",y1,y2)); GtkTextView * text_view = m_view; GArray *numbers; GArray *pixels; gint count; int PCline = m_Parent->getPCLine(m_fileid); numbers = g_array_new (FALSE, FALSE, sizeof (gint)); pixels = g_array_new (FALSE, FALSE, sizeof (gint)); GdkWindow *win = gtk_text_view_get_window (text_view, GTK_TEXT_WINDOW_LEFT); if (y1 < 0) { gint width; y1 = 0; gdk_window_get_size(win,&width,&y2); Dprintf((" updateMargin updating whole margin y1=%d y2=%d\n",y1,y2)); } /* get the line numbers and y coordinates. */ gtk_source_view_get_lines (text_view, y1, y2, pixels, numbers, &count); /* set size. */ gchar str [256]; PangoLayout *layout=0; gint text_width=0; FileContext *pFC = getFC(); gint addr_opcode = (pFC && !pFC->IsList()) ? 0x9999 : -1; if ( m_Parent->margin().formatMargin(str, sizeof(str), MAX (99, gtk_text_buffer_get_line_count (text_view->buffer)), addr_opcode, addr_opcode,false) ) { layout = gtk_widget_create_pango_layout (GTK_WIDGET (text_view), str); pango_layout_get_pixel_size (layout, &text_width, NULL); text_width+=2; } m_marginWidth = text_width + MARGIN_WIDTH; gtk_text_view_set_border_window_size (GTK_TEXT_VIEW (text_view), GTK_TEXT_WINDOW_LEFT, m_marginWidth); int i=0; while (i < count) { gint pos; gint line = g_array_index (numbers, gint, i) + 1; gtk_text_view_buffer_to_window_coords (text_view, GTK_TEXT_WINDOW_LEFT, 0, g_array_index (pixels, gint, i), NULL, &pos); int address = pFC && !pFC->IsList() ? m_Parent->getAddress(this,line) : - 1; int opcode = pFC && !pFC->IsList() && !pFC->IsHLL() ? m_Parent->getOpcode(address) : -1; bool bHasBreak = m_Parent->bAddressHasBreak(m_Parent->getAddress(this,line)); if (layout) { if ( m_Parent->margin().formatMargin(str, sizeof(str), line, address,opcode,bHasBreak)) { pango_layout_set_markup (layout, str, -1); gtk_paint_layout (GTK_WIDGET (text_view)->style, win, GTK_STATE_NORMAL, FALSE, NULL, GTK_WIDGET (text_view), NULL, 2, //text_width + 2, pos, layout); } } if (line == PCline) { gtk_paint_arrow (GTK_WIDGET (text_view)->style, win, GTK_STATE_NORMAL, GTK_SHADOW_OUT, // GtkShadowType shadow_type, NULL, GTK_WIDGET (text_view), NULL, GTK_ARROW_RIGHT, //GtkArrowType arrow_type, TRUE, //gboolean fill, text_width+PC_START,pos, PC_PIXEL_SIZE,15); Dprintf((" updating PC at line %d\n", line)); } if (m_Parent->getAddress(this,line) >= 0) { // There is code associated with this line. gtk_paint_diamond (GTK_WIDGET (text_view)->style, win, GTK_STATE_NORMAL, bHasBreak ? GTK_SHADOW_IN : GTK_SHADOW_OUT, NULL, GTK_WIDGET (text_view), NULL, text_width+BP_START, pos, BP_PIXEL_SIZE, BP_PIXEL_SIZE); } ++i; } if (layout) g_object_unref(layout); g_array_free (pixels, TRUE); g_array_free (numbers, TRUE); } //------------------------------------------------------------------------ void NSourcePage::setFont(const char *cp_newFont) { if (m_view && cp_newFont) { if (m_cpFont && strcmp(cp_newFont,m_cpFont)==0) return; g_free(m_cpFont); m_cpFont = g_strndup(cp_newFont,256); /* Change default font throughout the widget */ PangoFontDescription *font_desc; font_desc = pango_font_description_from_string (m_cpFont); gtk_widget_modify_font (GTK_WIDGET (m_view), font_desc); pango_font_description_free (font_desc); } } //------------------------------------------------------------------------ // SetPC // // Highlight the line corresponding to the current program counter. // void SourceWindow::SetPC(int address) { Dprintf((" \n")); if (!bSourceLoaded() || !pma) return; int currPage = m_Notebook ? gtk_notebook_get_current_page (GTK_NOTEBOOK(m_Notebook)) : -1; if (currPage>=0 && currPage < SBAW_NRFILES) pages[currPage]->setSource(); // Get the file id associated with the program counter address unsigned int sbawFileId = pma->get_file_id(address); if(sbawFileId == 0xffffffff) return; int id = -1; int PCline=-1; if (currPage>=0 && pages[currPage]->getFC()->IsList()) { // Don't automatically switch away from a page if it is a list file id = currPage; PCline = pma->getFromAddress(address)->get_lst_line(); } else { for (id=0; idm_fileid == sbawFileId) break; if (id >= SBAW_NRFILES) return; // page was not found. // Switch to the source browser page that contains the program counter. if (currPage != id) gtk_notebook_set_page(GTK_NOTEBOOK(m_Notebook),id); // Get the source line number associated with the program counter address. PCline = pma->get_src_line(address); if(PCline==(int)INVALID_VALUE) return; //PCline--; } bool bFirstUpdate=true; if (mProgramCounter.bIsActive) { bFirstUpdate=false; } else GTKWAIT; mProgramCounter.page = id; mProgramCounter.line = PCline; // Get a pointer to text_view margin window. GdkWindow *win = gtk_text_view_get_window (pages[id]->getView(), GTK_TEXT_WINDOW_LEFT); GdkRectangle PCloc; mProgramCounter.bIsActive = true; mProgramCounter.pBuffer = pages[id]->buffer(); gtk_text_buffer_get_iter_at_line(mProgramCounter.pBuffer, &mProgramCounter.iBegin, PCline); // Now we're going to check if the program counter is in view or not. // Get the program counter location gtk_text_view_get_iter_location (pages[id]->getView(), &mProgramCounter.iBegin, &PCloc); // Get the viewable region of the text buffer. The region is in buffer coordinates. GdkRectangle vRect; gtk_text_view_get_visible_rect (pages[id]->getView(), &vRect); // Now normalize the program counter's location. If yloc is between // 0 and 1.0 then the program counter is viewable. If not, then we // we need to scroll the text view so that the program counter is // viewable. double yloc = (PCloc.y - vRect.y) / (double) (vRect.height); if ( yloc < 0.05 || yloc > 0.95 || bFirstUpdate) { gtk_text_view_scroll_to_iter (pages[id]->getView(), &mProgramCounter.iBegin, 0.0, TRUE, 0.0, 0.3); gtk_text_view_get_visible_rect (pages[id]->getView(), &vRect); } // If there is a margin, then invalidate it so gtk will go off and redraw it. if (pages[id]->m_marginWidth) { vRect.x=0; vRect.y=0; vRect.width=pages[id]->m_marginWidth; // Send an expose event to repaint the whole margin gdk_window_invalidate_rect (win, &vRect, TRUE); } } void SourceWindow::CloseSource(void) { Dprintf((" \n")); } SourcePageMargin &SourceWindow::margin() { return m_pParent->margin(); } const char *SourceWindow::getFont() { return m_pParent->getFont(); } void SourceWindow::NewSource(GUI_Processor *gp) { Dprintf((" \n")); int i; unsigned int address; if(!gp || !gp->cpu || !gp->cpu->pma) return; Dprintf((" \n")); Processor * pProc = gp->cpu; if(!enabled) { m_bLoadSource=true; return; } Dprintf((" \n")); if(!pma) pma = pProc->pma; assert(wt==WT_SourceWindow); CloseSource(); m_bLoadSource=true; Dprintf(("NewSource\n")); /* Now create a cross-reference link that the * simulator can use to send information back to the gui */ if(pProc->pc) { SourceXREF *cross_reference = new SourceXREF(); cross_reference->parent_window_type = WT_asm_source_window; cross_reference->parent_window = (gpointer) this; cross_reference->data = (gpointer) 0; pProc->pc->add_xref((gpointer) cross_reference); if(pProc->pc != pma->GetProgramCounter()) { pma->GetProgramCounter()->add_xref((gpointer) cross_reference); } } i=0; while (m_pParent->ppSourceBuffers[i]) { AddPage(m_pParent->ppSourceBuffers[i]); i++; } m_bSourceLoaded = 1; // update breakpoint widgets unsigned uPMMaxIndex = pProc->program_memory_size(); for(unsigned int uPMIndex=0; uPMIndex < uPMMaxIndex; uPMIndex++) { int address = pProc->map_pm_index2address(uPMIndex); if(pma->address_has_break(address)) UpdateLine(address); } address=pProc->pma->get_PC(); if(address==INVALID_VALUE) puts("Warning, PC is invalid?"); else SetPC(address); Dprintf((" Source is loaded\n")); } //------------------------------------------------------------------------ // AddPage // Adds a page to the notebook, and returns notebook-id for that page. // int SourceWindow::AddPage(SourceBuffer *pSourceBuffer) { if (pSourceBuffer && pSourceBuffer->m_pFC) return AddPage(pSourceBuffer, pSourceBuffer->m_pFC->name().c_str()); return -1; } int SourceWindow::AddPage(SourceBuffer *pSourceBuffer, const char *fName) { if (!bIsBuilt || !pSourceBuffer) return -1; GTKWAIT; char str[256], *label_string; GtkWidget *label; strncpy(str,fName,sizeof(str)); label_string=str; find_char_and_skip(&label_string,'/'); find_char_and_skip(&label_string,'\\'); label=gtk_label_new(label_string); GtkWidget *pFrame = gtk_frame_new(NULL); gtk_notebook_append_page(GTK_NOTEBOOK(m_Notebook),pFrame,label); int id = gtk_notebook_page_num(GTK_NOTEBOOK(m_Notebook),pFrame); assert(id=0); NSourcePage *page = new NSourcePage(this, pSourceBuffer, id,pFrame); pages[id] = page; //page->setSource(); gtk_widget_show_all(pFrame); return id; } //######################################################################## // // Everything below is in the process of being deprecated... // //######################################################################## //#define PIXMAP_POS(sbaw,e) ((e)->pixel+(sbaw)->layout_offset+-PIXMAP_SIZE/2-(e)->font_center) static int file_id_to_source_mode[100]; // this should be in SourceBrowserAsm struct FIXME static struct { int found; // int looped; // if search hit start or end of text int start; // int lastfound; // index into text for start of last found string int i; // int lastid; // GtkWidget *window; // the window for find dialog GtkWidget *entry; // string GtkCombo GtkWidget *backwards_button; // togglebutton for direction GtkWidget *case_button; // togglebutton for case sensitivity GList *combo_strings; // list of strings for combo char *string; // current string, extracted from entry } searchdlg = {0,0,-1,0,0,0,0,0,0,0}; static int dlg_x=200, dlg_y=200; //======================================================================== void PixmapObject::CreateFromXPM(GdkWindow *window, GdkColor *transparent_color, gchar **xpm) { pixmap = gdk_pixmap_create_from_xpm_d(window, &mask, transparent_color, (gchar**)xpm); widget = gtk_pixmap_new(pixmap,mask); } //======================================================================== BreakPointInfo::BreakPointInfo(int _address, int _line, int _index, int _pos) : address(_address), pos(_pos), index(_index), line(_line), break_widget(0), canbreak_widget(0) { } BreakPointInfo::BreakPointInfo(BreakPointInfo & Dup) { address = Dup.address; index = Dup.index; line = Dup.line; pos = Dup.pos; break_widget = 0; canbreak_widget = 0; } BreakPointInfo::~BreakPointInfo() { if (break_widget) gtk_widget_destroy (break_widget); if (canbreak_widget) gtk_widget_destroy (canbreak_widget); } void BreakPointInfo::Set(GtkWidget *layout, GdkPixmap *pixmap_break, GdkBitmap *bp_mask) { if(!break_widget) { break_widget = gtk_pixmap_new(pixmap_break,bp_mask); gtk_layout_put(GTK_LAYOUT(layout), break_widget, PIXMAP_SIZE*0, pos ); } if(canbreak_widget) { gtk_widget_hide(canbreak_widget); } gtk_widget_show(break_widget); } void BreakPointInfo::Clear(GtkWidget *layout, GdkPixmap *pixmap_canbreak, GdkBitmap *bp_mask) { if(break_widget) { gtk_widget_hide(break_widget); } if(!canbreak_widget) { canbreak_widget = gtk_pixmap_new(pixmap_canbreak,bp_mask); gtk_layout_put(GTK_LAYOUT(layout), canbreak_widget, PIXMAP_SIZE*0, pos ); } gtk_widget_show(canbreak_widget); } void BreakPointInfo::setBreakWidget(GtkWidget *pBreak) { assert (break_widget==0); break_widget=pBreak; } void BreakPointInfo::setCanBreakWidget(GtkWidget *pCanBreak) { assert (canbreak_widget==0); canbreak_widget=pCanBreak; } //======================================================================== // all of these gui_xxxx_to_entry() do linear search. // Binary search is possible, the list is sorted. // pixel is 0 -> maxfont-1 for line zero. // maxfont -> maxfont*2-1 for line one // ... BreakPointInfo *SourceBrowserAsm_Window::getBPatPixel(int id, int pixel) { BreakPointInfo *e; // to simplify expressions GList *p; // iterator if(!sa_xlate_list[id]) return 0; if(pixel<0) return (BreakPointInfo*)sa_xlate_list[id]->data; p=sa_xlate_list[id]; // find listentry with address larger than argument while(p->next!=0) { e = (BreakPointInfo*)p->data; if(e->pos+12 > pixel) break; p=p->next; } e=(BreakPointInfo*)p->data; return e; } BreakPointInfo *SourceBrowserAsm_Window::getBPatLine(int id, unsigned int line) { BreakPointInfo *e; GList *p; if(!sa_xlate_list[id]) return 0; if(line>0xffff0000) return 0; p=sa_xlate_list[id]; /* locate listentry with index larger than argument */ while(p->next!=0) { e = (BreakPointInfo*)p->data; if(e->getLine() > (int)line) break; p=p->next; } assert(p->prev); // FIXME, happens if only one line of source p=p->prev; e=(BreakPointInfo*)p->data; return e; } BreakPointInfo *SourceBrowserAsm_Window::getBPatIndex(int id, unsigned int index) { BreakPointInfo *e; GList *p; if(!sa_xlate_list[id] || index<0) return 0; p=sa_xlate_list[id]; /* locate listentry with index larger than argument */ while(p->next!=0) { e = (BreakPointInfo*)p->data; if(e->index > index) break; p=p->next; } assert(p->prev); // FIXME, could happen p=p->prev; e=(BreakPointInfo*)p->data; return e; } class CFormattedTextFragment : public gpsimObject { public: CFormattedTextFragment(const char *pFragment, int length, GtkStyle *pStyle, GdkFont *font); GdkFont * m_font; GtkStyle * m_text_style; static int s_lineascent; static int s_linedescent; int m_length; string & m_Fragment; int s_TotalLength; void SetText(GtkText *source_text); int GetLength(); }; int CFormattedTextFragment::s_lineascent =-1; int CFormattedTextFragment::s_linedescent = -1; CFormattedTextFragment::CFormattedTextFragment( const char *pFragment, int length, GtkStyle *pStyle, GdkFont *font) : m_Fragment(name_str) { s_TotalLength = 0; m_text_style = pStyle; m_font = font; // Capture the largest line ascent and descent for // use in BreakPointInfo. if (s_lineascent < m_font->ascent) s_lineascent = m_font->ascent; if (s_linedescent < m_font->descent) s_linedescent = m_font->descent; if(length>0) m_Fragment.assign(pFragment, length); else m_Fragment.assign(pFragment); m_length = length; } void CFormattedTextFragment::SetText(GtkText *source_text) { gtk_text_insert(source_text, m_font, &m_text_style->fg[GTK_STATE_NORMAL], &m_text_style->base[GTK_STATE_NORMAL], m_Fragment.c_str(), m_length); } void SourceBrowserAsm_Window::DetermineBreakinfos(int id) { GList *iter = sa_xlate_list[id]; /* for(iter=sa_xlate_list[id];iter!=0;) { GList *next=iter->next; free( (BreakPointInfo*)iter->data ); g_list_remove(iter,iter->data); iter=next; } */ while (iter) { free( (BreakPointInfo*)iter->data ); iter = g_list_remove(iter,iter->data); } sa_xlate_list[id]=0; for(iter=s_global_sa_xlate_list[id];iter!=0;) { GList *next=iter->next; BreakPointInfo *pGlobal = (BreakPointInfo*)iter->data; BreakPointInfo *entry= new BreakPointInfo(*pGlobal); sa_xlate_list[id]=g_list_append(sa_xlate_list[id],entry); iter=next; } } void SourceBrowserAsm_Window::SetPC(int address) { BreakPointInfo *e; int row; gdouble inc; unsigned int i; int sbawFileId; GtkWidget *new_pcw; int id=-1; if(!m_bSourceLoaded) return; if(!pma) return; // find notebook page containing address 'address' sbawFileId = pma->get_file_id(address); if(sbawFileId == (int)0xffffffff) return; for(i=0;iget_src_line(address); if(row==(int)INVALID_VALUE) return; row--; if((int)current_page != id) gtk_notebook_set_page(GTK_NOTEBOOK(notebook),id); if(layout_offset<0) { // can it normally be less than zero? // FIXME, this should be done whenever windows are reconfigured. int xtext,ytext; int xfixed, yfixed; if(GTK_TEXT(pages[id].source_text)->text_area!=0 && pages[id].source_layout->window!=0) { gdk_window_get_origin(GTK_TEXT(pages[id].source_text)->text_area,&xtext,&ytext); gdk_window_get_origin(pages[id].source_layout->window,&xfixed,&yfixed); layout_offset = ytext-yfixed; //cout << " SetPC: " << name() << " updating layout offset " << layout_offset << endl; } } e = getBPatLine(id, row); if(e==0) return; inc = GTK_ADJUSTMENT(GTK_TEXT(pages[id].source_text)->vadj)->page_increment; if( (unsigned int)e->pos< GTK_TEXT(pages[id].source_text)->first_onscreen_ver_pixel || (unsigned int)e->pos> GTK_TEXT(pages[id].source_text)->first_onscreen_ver_pixel+inc ) { GtkAdjustment *adj = GTK_ADJUSTMENT( GTK_TEXT(pages[id].source_text)->vadj); gdouble nvalue = e->pos - inc/2; //printf("%d: setting adjustment to %g old value = %g\n",__LINE__,nvalue,adj->value); gtk_adjustment_set_value(adj, nvalue); } if(!GTK_WIDGET_VISIBLE(new_pcw)) { gtk_widget_show(new_pcw); } gtk_layout_move(GTK_LAYOUT(pages[id].source_layout), new_pcw, PIXMAP_SIZE, e->pos+1 ); } void SourceBrowserAsm_Window::SelectAddress(int address) { BreakPointInfo *e; int id=-1, i; gdouble inc; unsigned int line; if(!m_bSourceLoaded) return; if(!pma) return; for(i=0;iget_file_id(address)) id=i; } if(id==-1) { puts("SourceBrowserAsm_select_address(): could not find notebook page"); return; } gtk_notebook_set_page(GTK_NOTEBOOK(notebook),id); line = pma->get_src_line(address); if(line==INVALID_VALUE) return; e = getBPatLine(id, line); if(e==0) return; inc = GTK_ADJUSTMENT(GTK_TEXT(pages[id].source_text)->vadj)->page_increment; if( (unsigned int)e->pos <= GTK_TEXT(pages[id].source_text)->first_onscreen_ver_pixel || (unsigned int)e->pos >= GTK_TEXT(pages[id].source_text)->first_onscreen_ver_pixel+inc ) { gtk_adjustment_set_value(GTK_ADJUSTMENT( GTK_TEXT( pages[id].source_text)->vadj), e->pos-inc/2); } } void SourceBrowserAsm_Window::SelectAddress(Value *addrSym) { SourceBrowser_Window::SelectAddress(addrSym); } void SourceBrowserAsm_Window::Update(void) { if(!gp || !pma || ! window) return; SetTitle(); SetPC(pma->get_PC()); if(status_bar) status_bar->Update(); } /* this happens when breakpoint is set or unset ( Can it happen for another reason? ) */ void SourceBrowserAsm_Window::UpdateLine(int address) { unsigned int row; int i,id=-1; BreakPointInfo *e; assert(address>=0); if(!m_bSourceLoaded || !pma) return; for(i=0;iget_file_id(address)) id=i; } if(id==-1) { static int warned=0; if(warned<10) { puts("SourceBrowserAsm_update_line(): could not find notebook page"); warned++; } return; } if(id != (int)current_page) { return; } row = pma->get_src_line(address); if(row==INVALID_VALUE) return; row--; e = getBPatLine(id,row); if(e==0) return; /* printf("SrcBrowserAsm_Window::UpdateLine - address=%d line=%d\n", address,e->getLine()); */ breakpoints.Remove(address); notify_start_list.Remove(address); notify_stop_list.Remove(address); if(pma->address_has_profile_start(address)) notify_start_list.Add(address, gtk_pixmap_new(pixmap_profile_start,startp_mask), pages[id].source_layout, e->pos); else if(pma->address_has_profile_stop(address)) notify_stop_list.Add(address, gtk_pixmap_new(pixmap_profile_stop,stopp_mask), pages[id].source_layout, e->pos); else if(pma->address_has_break(address)) { e->Set(pages[id].source_layout,pixmap_break, bp_mask); breakpoints.Add(address, gtk_pixmap_new(pixmap_break,bp_mask), pages[id].source_layout, e->pos); } else { e->Clear(pages[id].source_layout, pixmap_canbreak, canbp_mask); } } SourceBrowserAsm_Window *popup_sbaw; void SourceBrowserAsm_Window::PopupMenuHandler(GtkWidget *widget, gpointer data) { menu_item *item; unsigned int id, address, line; char text[256]; if(!popup_sbaw || !popup_sbaw->gp || !popup_sbaw->gp->cpu || !popup_sbaw->pma) return; item = (menu_item *)data; id = gtk_notebook_get_current_page(GTK_NOTEBOOK(popup_sbaw->notebook)); switch(item->id) { case MENU_SETTINGS: break; case MENU_FIND_TEXT: gtk_widget_set_uposition(GTK_WIDGET(searchdlg.window),dlg_x,dlg_y); gtk_widget_show(searchdlg.window); break; case MENU_FIND_PC: address=popup_sbaw->pma->get_PC(); popup_sbaw->SetPC(address); break; case MENU_MOVE_PC: line = popup_sbaw->menu_data->getLine(); address = popup_sbaw->pma->find_closest_address_to_line(popup_sbaw->pages[id].pageindex_to_fileid,line+1); if(address!=INVALID_VALUE) popup_sbaw->pma->set_PC(address); break; case MENU_RUN_HERE: line = popup_sbaw->menu_data->getLine()+1; address = popup_sbaw->pma->find_closest_address_to_line(popup_sbaw->pages[id].pageindex_to_fileid,line); if(address!=INVALID_VALUE) popup_sbaw->gp->cpu->run_to_address(address); break; case MENU_BP_HERE: line = popup_sbaw->menu_data->getLine() + 1; popup_sbaw->pma->toggle_break_at_line(popup_sbaw->pages[id].pageindex_to_fileid,line); break; case MENU_PROFILE_START_HERE: /* line = popup_sbaw->menu_data->line; address = popup_sbaw->pma->find_closest_address_to_line(popup_sbaw->pages[id].pageindex_to_fileid,line+1); popup_sbaw->gp->profile_window->StartExe(address); */ break; case MENU_PROFILE_STOP_HERE: /* line = popup_sbaw->menu_data->line; address = popup_sbaw->pma->find_closest_address_to_line(popup_sbaw->pages[id].pageindex_to_fileid,line+1); popup_sbaw->gp->profile_window->StopExe(address); */ break; case MENU_SELECT_SYMBOL: case MENU_ADD_TO_WATCH: { //FIXME replicated code... gint i, temp; gint start, end; if (!gtk_editable_get_selection_bounds( GTK_EDITABLE(popup_sbaw->pages[id].source_text), &start, &end)) break; if(start != end) { if(start>end) { temp=start; start=end; end=temp; } if((end-start+2)>256) // FIXME bounds? end=start+256-2; for(i=start;ipages[id].source_text),(guint)i); unsigned int uLastCharIndex = i-start; text[uLastCharIndex]=0; TrimWhiteSpaceFromString(text); if(text[0] != 0) { /* register_symbol *pReg = get_symbol_table().findRegisterSymbol(text); if(pReg == NULL) { // We also try upper cased. string sName(text); toupper(sName); pReg = get_symbol_table().findRegisterSymbol(sName.c_str()); } if(pReg == NULL) { // We also try with a '_' prefix. string sName("_"); sName.append(text); pReg = get_symbol_table().findRegisterSymbol(sName.c_str()); if(pReg == NULL) { // We also try upper cased. toupper(sName); pReg = get_symbol_table().findRegisterSymbol(sName.c_str()); } } */ Register *pReg = findRegister(string(text)); if(pReg == NULL) { GtkWidget *dialog = gtk_message_dialog_new( GTK_WINDOW(popup_sbaw->window), GTK_DIALOG_MODAL, GTK_MESSAGE_WARNING, GTK_BUTTONS_OK, "The symbol '%s' does not exist as a register symbol.\n" "Only register based symbols may be added to the Watch window.", text); gtk_dialog_run (GTK_DIALOG (dialog)); gtk_widget_destroy (dialog); } else { popup_sbaw->gp->watch_window->Add(pReg); } } } // popup_sbaw->gp->symbol_window->SelectSymbolName(text); } break; case MENU_STEP: popup_sbaw->pma->step(1); break; case MENU_STEP_OVER: popup_sbaw->pma->step_over(); break; case MENU_RUN: popup_sbaw->gp->cpu->run(); break; case MENU_STOP: popup_sbaw->pma->stop(); break; case MENU_RESET: popup_sbaw->gp->cpu->reset(POR_RESET); break; case MENU_FINISH: popup_sbaw->pma->finish(); break; default: puts("Unhandled menuitem?"); break; } } GtkWidget * SourceBrowserAsm_Window::BuildPopupMenu(GtkWidget *sheet, SourceBrowserAsm_Window *sbaw) { GtkWidget *menu; GtkWidget *submenu; GtkWidget *item; unsigned int i; popup_sbaw=sbaw; gtk_notebook_get_current_page(GTK_NOTEBOOK(popup_sbaw->notebook)); menu=gtk_menu_new(); for (i=0; i < (sizeof(menu_items)/sizeof(menu_items[0])) ; i++){ item=gtk_menu_item_new_with_label(menu_items[i].name); menu_items[i].item=item; gtk_signal_connect(GTK_OBJECT(item),"activate", (GtkSignalFunc) PopupMenuHandler, &menu_items[i]); gtk_widget_show(item); gtk_menu_append(GTK_MENU(menu),item); } submenu=gtk_menu_new(); item = gtk_tearoff_menu_item_new (); gtk_menu_append (GTK_MENU (submenu), item); gtk_widget_show (item); for (i=0; i < (sizeof(submenu_items)/sizeof(submenu_items[0])) ; i++){ item=gtk_menu_item_new_with_label(submenu_items[i].name); submenu_items[i].item=item; gtk_signal_connect(GTK_OBJECT(item),"activate", (GtkSignalFunc) PopupMenuHandler, &submenu_items[i]); GTK_WIDGET_SET_FLAGS (item, GTK_SENSITIVE | GTK_CAN_FOCUS); gtk_widget_show(item); gtk_menu_append(GTK_MENU(submenu),item); } item = gtk_menu_item_new_with_label ("Controls"); gtk_menu_append (GTK_MENU (menu), item); gtk_widget_show (item); gtk_menu_item_set_submenu (GTK_MENU_ITEM (item), submenu); return menu; } //======================================================================== // BreakPointList - a helper class to assist in managing breakpoints BreakPointList::BreakPointList(void) { iter = 0; } //---------------------------------------- // Remove items from a breakpoint list // // Input: address - if this is less than 0 then all items are removed from // the list. Otherwise, only the items that match the address field // in the breakpoint structure are removed. void BreakPointList::Remove(int address = -1) { GList *li = iter; while(li) { GList *next = li->next; BreakPointInfo *bpi = (BreakPointInfo*)li->data; // remove the breakpoint if(address<0 || bpi->address==address) { iter = g_list_remove(li,li->data); if(bpi) delete bpi; } li = next; } if(address<0) iter = 0; } //---------------------------------------- // Add - add a new item to the breakpoint list. // void BreakPointList::Add(int address, GtkWidget *pwidget, GtkWidget *layout, int pos) { BreakPointInfo *bpi= new BreakPointInfo(address, 0,0,0); //printf("Add: address:%d, pos:%d\n",address,pos); bpi->setBreakWidget(pwidget); gtk_layout_put(GTK_LAYOUT(layout), pwidget, PIXMAP_SIZE*0, pos ); gtk_widget_show(pwidget); iter=g_list_append(iter,bpi); } void SourceBrowserAsm_Window::remove_all_points( SourceBrowserAsm_Window *sbaw) { sbaw->breakpoints.Remove(); sbaw->notify_start_list.Remove(); sbaw->notify_stop_list.Remove(); } gint SourceBrowserAsm_Window::switch_page_cb( GtkNotebook *notebook, GtkNotebookPage *page, guint page_num, SourceBrowserAsm_Window *sbaw) { if(!sbaw || !sbaw->gp || !sbaw->gp->cpu) return 1; if(sbaw->current_page!=page_num) { //printf("switch_page_cb: %s, from:%d to%d\n",sbaw->name(),sbaw->current_page,page_num); int id; unsigned int address; sbaw->current_page=page_num; id=sbaw->pages[page_num].pageindex_to_fileid; if (id != -1) sbaw->pma->set_hll_mode(file_id_to_source_mode[id]); // Update pc widget // address=sbaw->gp->cpu->pc->get_raw_value(); address = sbaw->pma->get_PC(); sbaw->SetPC(address); remove_all_points(sbaw); // update breakpoint widgets unsigned uPMMaxIndex = sbaw->gp->cpu->program_memory_size(); for(unsigned int uPMIndex=0; uPMIndex < uPMMaxIndex; uPMIndex++) sbaw->UpdateLine(sbaw->gp->cpu->map_pm_index2address(uPMIndex)); } return 1; } /* button event handler for sbaw->pages[id].source_text. If we get button1 doubleclick event then we toggle breakpoint If we get button3 buttonpress then we popup menu. */ gint SourceBrowserAsm_Window::sigh_button_event( GtkWidget *widget, GdkEventButton *event, SourceBrowserAsm_Window *sbaw) { int id; unsigned int i; GtkWidget *item; int vadj_value=0; assert(event&&sbaw); assert(sbaw->notebook != 0); id = gtk_notebook_get_current_page(GTK_NOTEBOOK(sbaw->notebook)); assert(id >= 0 && id < SBAW_NRFILES); assert(sbaw->pages[id].source_text != 0); assert(GTK_TEXT(sbaw->pages[id].source_text)->vadj != 0); vadj_value=(int)GTK_TEXT(sbaw->pages[id].source_text)->vadj->value; if(event->type==GDK_BUTTON_PRESS && event->button==3) { popup_sbaw=sbaw; sbaw->menu_data = sbaw->getBPatPixel(id, (int) (event->y+vadj_value)); for (i=0; i < (sizeof(menu_items)/sizeof(menu_items[0])) ; i++) { item=menu_items[i].item; switch(menu_items[i].id){ case MENU_SELECT_SYMBOL: { gint start, end; if (!gtk_editable_get_selection_bounds( GTK_EDITABLE(popup_sbaw->pages[id].source_text), &start, &end)) { gtk_widget_set_sensitive (item, FALSE); } else { gtk_widget_set_sensitive (item, TRUE); } break; } default: break; } } assert(GTK_MENU(sbaw->popup_menu)); gtk_menu_popup(GTK_MENU(sbaw->popup_menu), 0, 0, 0, 0, 3, event->time); // override pages[id].source_text's handler // is there a better way? FIXME gtk_signal_emit_stop_by_name(GTK_OBJECT(sbaw->pages[id].source_text),"button_press_event"); return 1; } // FIXME, doesn't get button4/5 in gtk2??? //printf("event->type %d, event->button %d\n",event->type,event->button); if(event->type==GDK_BUTTON_PRESS && event->button==4) { // wheel scroll up printf("scroll up\n"); GTK_TEXT(sbaw->pages[id].source_text)->vadj->value-=GTK_TEXT(sbaw->pages[id].source_text)->vadj->page_increment/4.0; if(GTK_TEXT(sbaw->pages[id].source_text)->vadj->value < GTK_TEXT(sbaw->pages[id].source_text)->vadj->lower) GTK_TEXT(sbaw->pages[id].source_text)->vadj->value = GTK_TEXT(sbaw->pages[id].source_text)->vadj->lower; gtk_adjustment_value_changed(GTK_TEXT(sbaw->pages[id].source_text)->vadj); return 1; } if(event->type==GDK_BUTTON_PRESS && event->button==5) { // wheel scroll down printf("scroll down\n"); GTK_TEXT(sbaw->pages[id].source_text)->vadj->value+=GTK_TEXT(sbaw->pages[id].source_text)->vadj->page_increment/4.0; if(GTK_TEXT(sbaw->pages[id].source_text)->vadj->value > GTK_TEXT(sbaw->pages[id].source_text)->vadj->upper-GTK_TEXT(sbaw->pages[id].source_text)->vadj->page_increment) GTK_TEXT(sbaw->pages[id].source_text)->vadj->value = GTK_TEXT(sbaw->pages[id].source_text)->vadj->upper-GTK_TEXT(sbaw->pages[id].source_text)->vadj->page_increment; gtk_adjustment_value_changed(GTK_TEXT(sbaw->pages[id].source_text)->vadj); return 1; } return 0; } static gint text_adj_cb(GtkAdjustment *adj, GtkAdjustment *adj_to_update) { // when sbaw->pages[id].source_text adjustment changes, we update the layout adj. // I assume that both adjustments count pixels assert(adj_to_update&&adj); if(adj_to_update && adj ) { if (adj_to_update->upper >= adj->value ) { //printf("%d: setting adjustment to %g old value %g\n",__LINE__,adj->value, adj_to_update->value); gtk_adjustment_set_value(adj_to_update, adj->value); } } return 0; } /* This is handler for motion, button press and release for source_layout. The GdkEventMotion and GdkEventButton are very similar so I (Ralf) use the same for both! This function is too complex, FIXME. */ static gint marker_cb(GtkWidget *w1, GdkEventButton *event, SourceBrowserAsm_Window *sbaw) { static int button_pressed; // static int button_pressed_y; // static int button_pressed_x; static int timeout_tag=-1; if(!sbaw || !sbaw->gp || !sbaw->gp->cpu) return 1; int id = gtk_notebook_get_current_page(GTK_NOTEBOOK(sbaw->notebook)); GTK_TEXT(sbaw->pages[id].source_text)->vadj->value; switch(event->type) { case GDK_MOTION_NOTIFY: break; case GDK_BUTTON_PRESS: if(button_pressed==1) break; // click number two(/three?) of a double click? button_pressed = 1; // button_pressed_x = (int)event->x; // and initial position of // button_pressed_y = (int)event->y; // possible drag action break; case GDK_2BUTTON_PRESS: if(event->button == 1) { int pos = (int)event->y - sbaw->layout_offset; BreakPointInfo *e = sbaw->getBPatPixel(id, pos); int line = e->getLine(); sbaw->pma->toggle_break_at_line(sbaw->pages[id].pageindex_to_fileid ,line+1); } break; case GDK_BUTTON_RELEASE: button_pressed=0; if(timeout_tag!=-1) { gtk_timeout_remove(timeout_tag); timeout_tag=-1; } break; default: printf("Whoops? event type %d\n",event->type); break; } return 0; } /* Adds a page to the notebook, and returns notebook-id for that page. */ int SourceBrowserAsm_Window::add_page( SourceBrowserAsm_Window *sbaw, int file_id) { char str[256], *label_string; GtkWidget *hbox, *label, *vscrollbar; GtkStyle *style=0; int id; hbox = gtk_hbox_new(0,0); gtk_container_set_border_width (GTK_CONTAINER (hbox), PAGE_BORDER); FileContext *fc = sbaw->gp->cpu->files[file_id]; strncpy(str,fc->name().c_str(),sizeof(str)); label_string=str; find_char_and_skip(&label_string,'/'); find_char_and_skip(&label_string,'\\'); label=gtk_label_new(label_string); gtk_notebook_append_page(GTK_NOTEBOOK(sbaw->notebook),hbox,label); id=gtk_notebook_page_num(GTK_NOTEBOOK(sbaw->notebook),hbox); assert(id=0); sbaw->pages[id].pageindex_to_fileid = file_id; sbaw->pages[id].notebook_child=hbox; gtk_widget_show(hbox); // Create the Gray column to the left of the Source text. sbaw->pages[id].source_layout_adj = (GtkAdjustment*)gtk_adjustment_new(0.0,0.0,0.0,0.0,0.0,0.0); sbaw->pages[id].source_layout = gtk_layout_new(0,sbaw->pages[id].source_layout_adj); gtk_widget_set_events(sbaw->pages[id].source_layout, gtk_widget_get_events(sbaw->pages[id].source_layout)| GDK_BUTTON_PRESS_MASK | GDK_BUTTON_MOTION_MASK | GDK_BUTTON_RELEASE_MASK); gtk_widget_show(sbaw->pages[id].source_layout); gtk_widget_set_usize(GTK_WIDGET(sbaw->pages[id].source_layout),PIXMAP_SIZE*2,0); gtk_box_pack_start(GTK_BOX(hbox), sbaw->pages[id].source_layout, FALSE,FALSE, 0); // Create the Scroll bar. vscrollbar = gtk_vscrollbar_new(0); gtk_widget_show(vscrollbar); // Create the text object for holding the Source text sbaw->pages[id].source_text = gtk_text_new(0,GTK_RANGE(vscrollbar)->adjustment); gtk_text_set_word_wrap(GTK_TEXT(sbaw->pages[id].source_text),0); gtk_text_set_line_wrap(GTK_TEXT(sbaw->pages[id].source_text),0); gtk_widget_show(sbaw->pages[id].source_text); style=gtk_style_new(); style->base[GTK_STATE_NORMAL].red=65535; style->base[GTK_STATE_NORMAL].green=65535; style->base[GTK_STATE_NORMAL].blue=65535; gtk_widget_set_style(GTK_WIDGET(sbaw->pages[id].source_text),style); gtk_signal_connect(GTK_OBJECT(sbaw->pages[id].source_text), "button_press_event", GTK_SIGNAL_FUNC(sigh_button_event), sbaw); gtk_box_pack_start_defaults(GTK_BOX(hbox), sbaw->pages[id].source_text); gtk_box_pack_start(GTK_BOX(hbox), vscrollbar, FALSE,FALSE, 0); gtk_signal_connect(GTK_OBJECT(GTK_TEXT(sbaw->pages[id].source_text)->vadj), "value_changed",GTK_SIGNAL_FUNC(text_adj_cb),sbaw->pages[id].source_layout_adj); gtk_signal_connect(GTK_OBJECT(sbaw->pages[id].source_layout),"motion-notify-event", GTK_SIGNAL_FUNC(marker_cb),sbaw); gtk_signal_connect(GTK_OBJECT(sbaw->pages[id].source_layout),"button_press_event", GTK_SIGNAL_FUNC(marker_cb),sbaw); gtk_signal_connect(GTK_OBJECT(sbaw->pages[id].source_layout),"button_release_event", GTK_SIGNAL_FUNC(marker_cb),sbaw); // display everything, so that gtk_notebook_get_current_page() works GTKWAIT; // We create pixmaps here, where the gtk_widget_get_style() call will // succeed. I tried putting this code in CreateSourceBrowserAsmWindow() // but then the window was not realized. And if I manually realized // it, then the call to gtk_window_set_default_size() was ignored. // Was that a bug in gtk? (gtk version 1.2.3) if(sbaw->pixmap_pc==0) { style = gtk_style_new(); sbaw->pc_mask = 0; sbaw->bp_mask = 0; sbaw->canbp_mask = 0; sbaw->startp_mask = 0; sbaw->stopp_mask = 0; sbaw->pixmap_pc = gdk_pixmap_create_from_xpm_d(sbaw->window->window, &sbaw->pc_mask, &style->bg[GTK_STATE_NORMAL], (gchar**)pc_xpm); sbaw->pixmap_break = gdk_pixmap_create_from_xpm_d(sbaw->window->window, &sbaw->bp_mask, &style->bg[GTK_STATE_NORMAL], (gchar**)break_xpm); sbaw->pixmap_canbreak = gdk_pixmap_create_from_xpm_d(sbaw->window->window, &sbaw->canbp_mask, &style->bg[GTK_STATE_NORMAL], (gchar**)canbreak_xpm); sbaw->pixmap_profile_start = gdk_pixmap_create_from_xpm_d(sbaw->window->window, &sbaw->startp_mask, &style->bg[GTK_STATE_NORMAL], (gchar**)startp_xpm); sbaw->pixmap_profile_stop = gdk_pixmap_create_from_xpm_d(sbaw->window->window, &sbaw->stopp_mask, &style->bg[GTK_STATE_NORMAL], (gchar**)stopp_xpm); } sbaw->pages[id].source_pcwidget = gtk_pixmap_new(sbaw->pixmap_pc,sbaw->pc_mask); gtk_layout_put(GTK_LAYOUT(sbaw->pages[id].source_layout), sbaw->pages[id].source_pcwidget,PIXMAP_SIZE,0); gtk_widget_show(sbaw->pages[id].source_pcwidget); return id; } // Return true of there are instructions corresponding to the source line int source_line_represents_code(Processor *cpu, FileContext *fc, unsigned int line) { int address; address = cpu->pma->find_address_from_line(fc,line); return address>=0; } static int s_TotalTextLength = 0; static CFormattedTextFragment * s_pLast = NULL; static void InitCache(FileContext::Cache &FileCache) { s_TotalTextLength = 0; s_pLast = NULL; } static void AddCache(FileContext::Cache &FileCache, const char *pFragment, int length, GtkStyle *pStyle, GdkFont *font) { if(s_pLast && s_pLast->m_text_style == pStyle) { if(length == -1) { s_pLast->m_length = -1; s_pLast->m_Fragment.append(pFragment); } else { s_pLast->m_length += length; s_pLast->m_Fragment.append(pFragment, length); } } else { s_pLast = new CFormattedTextFragment(pFragment, length, pStyle, font); FileCache.push_back(s_pLast); } s_TotalTextLength += (length == -1) ? strlen(pFragment) : length; } /* Fills sbaw->pages[id].source_text with text from file pointer sbaw->sbw.gui_obj.gp->p->files[file_id].file_ptr */ void SourceBrowserAsm_Window::SetText(int id, int file_id, FileContext *fc) { bool instruction_done; char text_buffer[256]; int cblock=0; int index; int line=0; FileContext::Cache &FileCache = fc->m_cache; // get a manageable pointer to the processor Processor *cpu = gp->cpu; GtkWidget *pSourceWindow = pages[id].source_text; gtk_text_freeze(GTK_TEXT(pSourceWindow)); gtk_editable_delete_text(GTK_EDITABLE(pSourceWindow),0,-1); remove_all_points(this); // Check the type of file (ASM or C), and seperate the pattern matching // into set_text_asm() and set_text_c(). // These functions fill the page with the colored source, and also fills // the sa_xlate_list[id] structure list with values, so that the pixmaps // are put on the right place. if(FileCache.size() == 0) { s_totallinesheight[id]=0; InitCache(FileCache); ParseSourceToFormattedText( id, s_totallinesheight[id], instruction_done, text_buffer, cblock, index, line, FileCache, cpu, pSourceWindow, fc, file_id ); } FileContext::Cache::iterator it; FileContext::Cache::iterator itEnd = FileCache.end(); for(it = FileCache.begin(); it != itEnd; it++) { CFormattedTextFragment* pFragment = (CFormattedTextFragment*)*it; pFragment->SetText(GTK_TEXT(pSourceWindow)); } DetermineBreakinfos(id); gtk_layout_set_size(GTK_LAYOUT(pages[id].source_layout), 2*PIXMAP_SIZE, s_totallinesheight[id]+5*PIXMAP_SIZE); gtk_text_thaw(GTK_TEXT(pSourceWindow)); } void SourceBrowserAsm_Window::ParseSourceToFormattedText( int id, int &totallinesheight, bool &instruction_done, char *text_buffer, int &cblock, int &index, int &line, FileContext::Cache &FileCache, Processor *cpu, GtkWidget *pSourceWindow, FileContext *fc, int file_id ) { GList *iter = s_global_sa_xlate_list[id]; /* for(iter=s_global_sa_xlate_list[id];iter!=0;) { GList *next=iter->next; free( (BreakPointInfo*)iter->data ); g_list_remove(iter,iter->data); iter=next; } */ while (iter) { free( (BreakPointInfo*)iter->data ); iter = g_list_remove(iter,iter->data); } s_global_sa_xlate_list[id]=0; BreakPointInfo *entry; char *p; fc->rewind(); while(fc->gets(text_buffer, 256)) { char *end, *q; instruction_done=false; // to separate instruction from other text (symbols) index = s_TotalTextLength; p=text_buffer; if(file_id_to_source_mode[file_id]==ProgramMemoryAccess::ASM_MODE) { if(*p=='#' || !strncmp(p,"include",7)) { // not a label q=p; q++; while(isalnum(*q) || *q=='_') q++; AddCache(FileCache, p, q-p,default_text_style, default_font); p=q; instruction_done=true; // well, variable misnamed } else if( (isalnum(*p) || *p=='_')) { // a label // locate end of label q=p; while(isalnum(*q) || *q=='_') q++; AddCache(FileCache, text_buffer, q-p, label_text_style, label_font); // advance the pointer p p=q; } } // 'end' is end of line end = text_buffer + strlen(text_buffer); // loop through the rest of the line while( p < end ) { if(!source_line_represents_code(cpu,fc,line+1)) { AddCache(FileCache, p, -1,comment_text_style, instruction_font); break; } if(file_id_to_source_mode[file_id]==ProgramMemoryAccess::HLL_MODE) { AddCache(FileCache, p, -1, default_text_style, default_font); break; } else { // Asm mode. if( *p == ';') { // comment comment_font = gtk_style_get_font(comment_text_style); AddCache(FileCache, p, -1, comment_text_style, comment_font); break; } else if(isalpha(*p) || *p=='_') { // instruction, symbol or cblock q=p; while(isalnum(*q) || *q=='_') q++; if( ( !instruction_done && cblock==0) || !strncasecmp(p,"endc",4) ) { // instruction or cblock instruction_done=true; cblock=0; if(!strncasecmp(p,"cblock",6)) cblock=1; AddCache(FileCache, p, q-p, instruction_text_style, instruction_font); } else { // symbol AddCache(FileCache, p, q-p, symbol_text_style, symbol_font); } p=q; } else if( isxdigit(*p)) { // number q=p; if(*p=='0' && toupper(*(p+1))=='X') q+=2; while(isxdigit(*q)) q++; AddCache(FileCache, p, q-p, number_text_style, number_font); p=q; } else { // default // FIXME, add a 'whitespace_text_style' // There is a small annoyance here. If the source // initially on a line have whitespace, followed by // a comment. Now if the comment have a smaller font // than the default font then the line will have line // spacing larger than nessesary. AddCache(FileCache, p, 1, default_text_style, default_font); p++; } } } //end of while( p < end ) totallinesheight += CFormattedTextFragment::s_linedescent + CFormattedTextFragment::s_lineascent; // create an entry in sa_xlate_list for this source line. // 'this source line' is the one in 'buf' with line number // 'line' and index 'index' into text int pos = totallinesheight - (CFormattedTextFragment::s_lineascent - CFormattedTextFragment::s_linedescent) - PIXMAP_SIZE/2 + PAGE_BORDER; entry= new BreakPointInfo(0, line,index,pos); s_global_sa_xlate_list[id]=g_list_append(s_global_sa_xlate_list[id],entry); line++; } // this made the end case of the search simpler once AddCache(FileCache, " ", 1, default_text_style, default_font); } void SourcePage::Close(void) { if(notebook != NULL && notebook_child != NULL) { int num=gtk_notebook_page_num(GTK_NOTEBOOK(notebook),notebook_child); gtk_notebook_remove_page(GTK_NOTEBOOK(notebook),num); // JRH - looks like gtk_notebook_remove_page() is also // deallocating notebook_chile. // gtk_widget_destroy(notebook_child); // this is all that is needed to destroy all child widgets // of notebook_child. notebook_child=0; source_layout_adj = 0; source_layout = 0; source_text = 0; pageindex_to_fileid = INVALID_VALUE; source_pcwidget = 0; } } void SourceBrowserAsm_Window::CloseSource(void) { m_bLoadSource=0; m_bSourceLoaded = 0; if(!enabled) return; pixmap_pc=0; pixmap_break=0; pixmap_profile_start=0; pixmap_profile_stop=0; remove_all_points(this); layout_offset=-1; for(int i=0;icpu || !gp->cpu->pma) return; Processor * pProc = gp->cpu; if(!enabled) { m_bLoadSource=1; return; } if(!pma) pma = pProc->pma; assert(wt==WT_asm_source_window); CloseSource(); m_bLoadSource=1; Dprintf(("NewSource\n")); /* Now create a cross-reference link that the * simulator can use to send information back to the gui */ if(pProc->pc) { SourceXREF *cross_reference = new SourceXREF(); cross_reference->parent_window_type = WT_asm_source_window; cross_reference->parent_window = (gpointer) this; cross_reference->data = (gpointer) 0; pProc->pc->add_xref((gpointer) cross_reference); if(pProc->pc != pma->GetProgramCounter()) { pma->GetProgramCounter()->add_xref((gpointer) cross_reference); } } if(pProc->files.nsrc_files() != 0) { for(i=0;ifiles.nsrc_files();i++) { FileContext *fc = pProc->files[i]; file_name = fc->name().c_str(); int iNameLength = strlen(file_name); if(strcmp(file_name+iNameLength-4,".lst") &&strcmp(file_name+iNameLength-4,".LST") &&strcmp(file_name+iNameLength-4,".cod") &&strcmp(file_name+iNameLength-4,".COD")) { if(!strcmp(file_name+iNameLength-2,".c") ||!strcmp(file_name+iNameLength-2,".C") ||!strcmp(file_name+iNameLength-4,".jal") ||!strcmp(file_name+iNameLength-4,".JAL") ) { // These are HLL sources file_id_to_source_mode[i]=ProgramMemoryAccess::HLL_MODE; pma->set_hll_mode(ProgramMemoryAccess::HLL_MODE); } // FIXME, gpsim may change sometime making this fail file_id = i; // Make sure that the file is open fc->open("r"); id = add_page(this,file_id); SetText(id,file_id, fc); } else { if(verbose) printf ("SourceBrowserAsm_new_source: skipping file: <%s>\n", file_name); } } m_bSourceLoaded = 1; } // Why is this needed? set_page() in SourceBrowserAsm_set_pc() // fails with widget_map() -> not visible GTKWAIT; address=pProc->pma->get_PC(); if(address==INVALID_VALUE) puts("Warning, PC is invalid?"); else SetPC(address); // update breakpoint widgets unsigned uPMMaxIndex = pProc->program_memory_size(); for(unsigned int uPMIndex=0; uPMIndex < uPMMaxIndex; uPMIndex++) UpdateLine(pProc->map_pm_index2address(uPMIndex)); GTKWAIT; Dprintf((" Source is loaded\n")); } static gint configure_event(GtkWidget *widget, GdkEventConfigure *e, gpointer data) { if(widget->window==0) return 0; gdk_window_get_root_origin(widget->window,&dlg_x,&dlg_y); return 0; } static int load_fonts(SOURCE_WINDOW *sbaw) { /* gtk_style_set_font(sbaw->comment_text_style, gdk_font_from_description(pango_font_description_from_string(sbaw->commentfont_string))); */ sbaw->comment_text_style->font_desc = pango_font_description_from_string(sbaw->commentfont_string); GdkFont *font = gdk_font_from_description(pango_font_description_from_string(sbaw->sourcefont_string)); gtk_style_set_font(sbaw->default_text_style, font); gtk_style_set_font(sbaw->label_text_style, font); gtk_style_set_font(sbaw->symbol_text_style, font); gtk_style_set_font(sbaw->instruction_text_style, font); gtk_style_set_font(sbaw->number_text_style, font); if (gtk_style_get_font(sbaw->comment_text_style) == 0) return 0; if (gtk_style_get_font(sbaw->default_text_style) == 0) return 0; return 1; } /*************** Font selection dialog *********************/ class DialogFontSelect { public: static gint DialogRun(GtkWidget *w, gpointer user_data); static GtkWidget *m_pFontSelDialog; }; GtkWidget * DialogFontSelect::m_pFontSelDialog = NULL; gint DialogFontSelect::DialogRun(GtkWidget *w, gpointer user_data) { GtkEntry *entry=GTK_ENTRY(user_data); const char *fontstring; gchar *fontname; if(m_pFontSelDialog==0) { m_pFontSelDialog=gtk_font_selection_dialog_new("Select font"); } fontstring=gtk_entry_get_text(entry); gtk_font_selection_dialog_set_font_name( (GtkFontSelectionDialog *) m_pFontSelDialog, fontstring); gint result = gtk_dialog_run (GTK_DIALOG (m_pFontSelDialog)); switch (result) { case GTK_RESPONSE_OK: fontname=gtk_font_selection_dialog_get_font_name(GTK_FONT_SELECTION_DIALOG(m_pFontSelDialog)); gtk_widget_hide(m_pFontSelDialog); gtk_entry_set_text(entry,fontname); g_free(fontname); break; default: break; } gtk_widget_hide(m_pFontSelDialog); return result; } // To give access to reg and opcode windows int font_dialog_browse(GtkWidget *w, gpointer user_data) { return DialogFontSelect::DialogRun(w, user_data); } /********************** Settings dialog ***************************/ static int settings_dialog(SOURCE_WINDOW *sbaw) { static GtkWidget *dialog=0; GtkWidget *button; static int retval; GtkWidget *hbox; static GtkWidget *commentfontstringentry; static GtkWidget *sourcefontstringentry; GtkWidget *label; int fonts_ok=0; if(dialog==0) { dialog = gtk_dialog_new(); gtk_window_set_title (GTK_WINDOW (dialog), "Source browser settings"); gtk_signal_connect(GTK_OBJECT(dialog), "configure_event",GTK_SIGNAL_FUNC(configure_event),0); gtk_signal_connect_object(GTK_OBJECT(dialog), "delete_event",GTK_SIGNAL_FUNC(gtk_widget_hide),GTK_OBJECT(dialog)); // Source font hbox = gtk_hbox_new(0,0); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->vbox), hbox,FALSE,FALSE,20); gtk_widget_show(hbox); label=gtk_label_new("Font for source:"); gtk_box_pack_start(GTK_BOX(hbox), label, FALSE,FALSE, 20); gtk_widget_show(label); sourcefontstringentry=gtk_entry_new(); gtk_widget_set_size_request(sourcefontstringentry, 200, -1); gtk_box_pack_start(GTK_BOX(hbox), sourcefontstringentry, TRUE, TRUE, 0); gtk_widget_show(sourcefontstringentry); button = gtk_button_new_with_label("Browse..."); gtk_widget_show(button); gtk_box_pack_start(GTK_BOX(hbox), button, FALSE,FALSE,10); gtk_signal_connect(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(DialogFontSelect::DialogRun), (gpointer)sourcefontstringentry); // Comment font hbox = gtk_hbox_new(0,0); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->vbox), hbox,FALSE,FALSE,20); gtk_widget_show(hbox); label=gtk_label_new("Font for comments:"); gtk_box_pack_start(GTK_BOX(hbox), label, FALSE,FALSE, 20); gtk_widget_show(label); commentfontstringentry=gtk_entry_new(); gtk_box_pack_start(GTK_BOX(hbox), commentfontstringentry, TRUE, TRUE, 0); gtk_widget_show(commentfontstringentry); button = gtk_button_new_with_label("Browse..."); gtk_widget_show(button); gtk_box_pack_start(GTK_BOX(hbox), button, FALSE,FALSE,10); gtk_signal_connect(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(DialogFontSelect::DialogRun), (gpointer)commentfontstringentry); // OK button gtk_dialog_add_button(GTK_DIALOG(dialog), "OK", GTK_RESPONSE_OK); } gtk_entry_set_text(GTK_ENTRY(sourcefontstringentry), sbaw->sourcefont_string); gtk_entry_set_text(GTK_ENTRY(commentfontstringentry), sbaw->commentfont_string); gtk_widget_set_uposition(GTK_WIDGET(dialog),dlg_x,dlg_y); gtk_widget_show_now(dialog); while(fonts_ok!=2) { char fontname[256]; #if GTK_MAJOR_VERSION >= 2 PangoFontDescription *font; #else GdkFont *font; #endif gtk_dialog_run (GTK_DIALOG (dialog)); fonts_ok=0; strcpy(fontname,gtk_entry_get_text(GTK_ENTRY(sourcefontstringentry))); #if GTK_MAJOR_VERSION >= 2 if((font=pango_font_description_from_string(fontname))==0) #else if((font=gdk_fontset_load(fontname))==0) #endif { if(gui_question("Sourcefont did not load!","Try again","Ignore/Cancel")==FALSE) break; } else { #if GTK_MAJOR_VERSION >= 2 #else gdk_font_unref(font); #endif strcpy(sbaw->sourcefont_string,gtk_entry_get_text(GTK_ENTRY(sourcefontstringentry))); config_set_string(sbaw->name(),"sourcefont",sbaw->sourcefont_string); fonts_ok++; } strcpy(fontname,gtk_entry_get_text(GTK_ENTRY(commentfontstringentry))); #if GTK_MAJOR_VERSION >= 2 if((font=pango_font_description_from_string(fontname))==0) #else if((font=gdk_fontset_load(fontname))==0) #endif { if(gui_question("Commentfont did not load!","Try again","Ignore/Cancel")==FALSE) break; } else { #if GTK_MAJOR_VERSION >= 2 #else gdk_font_unref(font); #endif strcpy(sbaw->commentfont_string,gtk_entry_get_text(GTK_ENTRY(commentfontstringentry))); config_set_string(sbaw->name(),"commentfont",sbaw->commentfont_string); fonts_ok++; } } load_fonts(sbaw); gtk_widget_hide(dialog); return retval; } /*********************** gui message dialog *************************/ static gboolean message_close_cb(GtkWidget *widget, gpointer d) { gtk_widget_hide(GTK_WIDGET(d)); return FALSE; } int gui_message(const char *message) { static GtkWidget *dialog=0; static GtkWidget *label; GtkWidget *button; GtkWidget *hbox; assert(message); if(dialog==0) { dialog = gtk_dialog_new(); gtk_signal_connect(GTK_OBJECT(dialog), "configure_event",GTK_SIGNAL_FUNC(configure_event),0); gtk_signal_connect_object(GTK_OBJECT(dialog), "delete_event",GTK_SIGNAL_FUNC(gtk_widget_hide),GTK_OBJECT(dialog)); hbox = gtk_hbox_new(0,0); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->vbox), hbox,FALSE,FALSE,20); button = gtk_button_new_with_label("OK"); gtk_widget_show(button); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->action_area), button, FALSE,FALSE,10); gtk_signal_connect(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(message_close_cb),(gpointer)dialog); GTK_WIDGET_SET_FLAGS(button,GTK_CAN_DEFAULT); gtk_widget_grab_default(button); label=gtk_label_new(message); gtk_box_pack_start(GTK_BOX(hbox), label, FALSE,FALSE, 20); gtk_widget_show(hbox); gtk_widget_show(label); } else { gtk_label_set_text(GTK_LABEL(label),message); } gtk_widget_set_uposition(GTK_WIDGET(dialog),dlg_x,dlg_y); gtk_widget_show_now(dialog); return 0; } /****************** gui question dialog **************************/ static void a_cb(GtkWidget *w, gpointer user_data) { *(int*)user_data=TRUE; } static void b_cb(GtkWidget *w, gpointer user_data) { *(int*)user_data=FALSE; } // modal dialog, asking a yes/no question int gui_question(const char *question, const char *a, const char *b) { static GtkWidget *dialog=0; static GtkWidget *label; static GtkWidget *abutton; static GtkWidget *bbutton; GtkWidget *hbox; static int retval=-1; if(dialog==0) { dialog = gtk_dialog_new(); gtk_signal_connect(GTK_OBJECT(dialog), "configure_event",GTK_SIGNAL_FUNC(configure_event),0); gtk_signal_connect_object(GTK_OBJECT(dialog), "delete_event",GTK_SIGNAL_FUNC(gtk_widget_hide),GTK_OBJECT(dialog)); hbox = gtk_hbox_new(0,0); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->vbox), hbox,FALSE,FALSE,20); abutton = gtk_button_new_with_label(a); gtk_widget_show(abutton); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->action_area), abutton, FALSE,FALSE,10); gtk_signal_connect(GTK_OBJECT(abutton),"clicked", GTK_SIGNAL_FUNC(a_cb),(gpointer)&retval); GTK_WIDGET_SET_FLAGS (abutton, GTK_CAN_DEFAULT); gtk_widget_grab_default(abutton); bbutton = gtk_button_new_with_label(b); gtk_widget_show(bbutton); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->action_area), bbutton, FALSE,FALSE,10); gtk_signal_connect(GTK_OBJECT(bbutton),"clicked", GTK_SIGNAL_FUNC(b_cb),(gpointer)&retval); label=gtk_label_new(question); gtk_box_pack_start(GTK_BOX(hbox), label, FALSE,FALSE, 20); gtk_widget_show(hbox); gtk_widget_show(label); } else { gtk_label_set_text(GTK_LABEL(label),question); gtk_label_set_text(GTK_LABEL(GTK_BIN(abutton)->child),a); gtk_label_set_text(GTK_LABEL(GTK_BIN(bbutton)->child),b); } gtk_widget_set_uposition(GTK_WIDGET(dialog),dlg_x,dlg_y); gtk_widget_show_now(dialog); gtk_grab_add(dialog); while(retval==-1 && GTK_WIDGET_VISIBLE(dialog)) gtk_main_iteration(); gtk_grab_remove(dialog); gtk_widget_hide(dialog); // puts(retval==1?"Yes":"No"); return retval; } /* A rather long function, simplify main loop. FIXME. */ void SourceBrowserAsm_Window::find_cb( GtkWidget *w, SourceBrowserAsm_Window *sbaw) { const char *p; GList *l; int casesensitive; int direction; int last_matched=0; int k=0; int char1, char2; int j; // index into search string int tlen; int id; SourceBrowserAsm_Window * pSrcWindow = popup_sbaw; if(!pSrcWindow->m_bSourceLoaded) return; id = gtk_notebook_get_current_page(GTK_NOTEBOOK(pSrcWindow->notebook)); SourcePage & SrcPage = pSrcWindow->pages[id]; if(id != searchdlg.lastid) { // Changed notebook tab since last search reset search. searchdlg.lastid=id; searchdlg.found=0; searchdlg.looped=0; searchdlg.start=0; searchdlg.lastfound=0; searchdlg.i=0; } if(GTK_TOGGLE_BUTTON(searchdlg.case_button)->active) casesensitive=TRUE; else casesensitive=FALSE; if(GTK_TOGGLE_BUTTON(searchdlg.backwards_button)->active) direction=-1; else direction=1; p=gtk_entry_get_text(GTK_ENTRY(GTK_COMBO(searchdlg.entry)->entry)); if(*p=='\0') return; if(searchdlg.string==0 || strcmp(searchdlg.string,p)) { // not same string as last time // search list to prevent duplicates l=searchdlg.combo_strings; while(l) { if(!strcmp((char*)l->data,p)) { // the string p already is in list // move it first?, FIXME searchdlg.string = (char*)l->data; break; } l=l->next; } if(l == 0) { // we didn't find string in history, create a new one searchdlg.string=(char*)malloc(strlen(p)+1); strcpy(searchdlg.string,p); searchdlg.combo_strings = g_list_prepend(searchdlg.combo_strings,searchdlg.string); gtk_combo_set_popdown_strings(GTK_COMBO(searchdlg.entry),searchdlg.combo_strings); } // initialize variables for a new search searchdlg.found=0; searchdlg.looped=0; searchdlg.i = pSrcWindow->getBPatPixel(id,0)->index; searchdlg.start = searchdlg.i; // remember where we started searching } tlen =gtk_text_get_length(GTK_TEXT(SrcPage.source_text)); j=0; for(;searchdlg.i>=0 && searchdlg.iend_i) { int temp=end_i; // swap, so that k is the smaller end_i=start_i; start_i=temp; } assert(start_igetBPatPixel(id,start_i)->pos + 12; inc = (float)GTK_ADJUSTMENT(GTK_TEXT(SrcPage.source_text)->vadj)->page_increment; gtk_adjustment_set_value(GTK_ADJUSTMENT( GTK_TEXT( SrcPage.source_text)->vadj), pixel-inc/2); //printf("%d: setting adjustment to %g\n",__LINE__,pixel-inc/2); gtk_editable_select_region(GTK_EDITABLE(SrcPage.source_text),start_i,end_i); return; } } if(searchdlg.looped && (searchdlg.start == searchdlg.i)) { if(searchdlg.found==0) { gui_message("Not found"); return; } else if(searchdlg.found==1) { gui_message("Just a single occurance in text"); // so that the next next call marks text too, we do: searchdlg.found=0; searchdlg.looped=0; searchdlg.lastfound=-1; return; } } // get another character char1=GTK_TEXT_INDEX(GTK_TEXT(SrcPage.source_text),(unsigned)searchdlg.i); if(direction==1) char2=searchdlg.string[j]; else char2=searchdlg.string[strlen(searchdlg.string)-1-j]; //FIXME, many calls to strlen if(casesensitive==FALSE) { char1=toupper(char1); // FIXME, what about native letters? char2=toupper(char2); } if(char1!=char2) { // if these characters don't match j=0; // set search index for string back to zero last_matched=0; // char in this loop didn't match } else { if(!last_matched) { k=searchdlg.i; // remember first matching index for later last_matched=1; // char in this loop matched } j++; // forward string index to compare next char } } // the string was not found in text between index 'search start' and // one end of text (index '0' or index 'tlen') // We ask user it he want to search from other end of file if(direction==1) { if(gui_question("End of file\ncontinue from start?","Yes","No")==(int)TRUE) { searchdlg.i=0; searchdlg.looped=1; find_cb(w,pSrcWindow); // tail recursive, FIXME return; } else searchdlg.i=tlen-1; } else { if(gui_question("Top of file\ncontinue from end?","Yes", "No")==(int)TRUE) { searchdlg.i=tlen-1; searchdlg.looped=1; find_cb(w,pSrcWindow); // tail recursive, FIXME return; } else searchdlg.i=0; } } void SourceBrowserAsm_Window::find_clear_cb( GtkWidget *w, SourceBrowserAsm_Window *sbaw) { gtk_entry_set_text(GTK_ENTRY(GTK_COMBO(searchdlg.entry)->entry),""); } void SourceBrowser_Window::set_pma(ProgramMemoryAccess *new_pma) { pma = new_pma; if(window && pma) { SetTitle(); } if(status_bar) status_bar->NewProcessor(gp, pma); } SourceBrowserAsm_Window::SourceBrowserAsm_Window(GUI_Processor *_gp, char* new_name=0) { m_SourceWindowIndex = m_SourceWindowCount; m_SourceWindowCount++; window = 0; gp = _gp; pma = 0; if(new_name) set_name(new_name); else set_name("source_browser"); wc = WC_source; wt = WT_asm_source_window; status_bar = new StatusBar_Window(); breakpoints.iter=0; notify_start_list.iter=0; notify_stop_list.iter=0; layout_offset=-1; pixmap_pc = 0; // these are created somewhere else pixmap_break=0; pixmap_profile_start=0; pixmap_profile_stop=0; m_bSourceLoaded = 0; m_bLoadSource=0; get_config(); current_page = 0xffffffff; for(int i=0; itag()); gtk_text_tag_table_add (mpTagTable, mMnemonic->tag()); gtk_text_tag_table_add (mpTagTable, mSymbol->tag()); gtk_text_tag_table_add (mpTagTable, mComment->tag()); gtk_text_tag_table_add (mpTagTable, mConstant->tag()); gtk_text_tag_table_add (mpTagTable, mDefault->tag()); gtk_text_tag_table_add (mpTagTable, mBreakpointTag->tag()); gtk_text_tag_table_add (mpTagTable, mNoBreakpointTag->tag()); gtk_text_tag_table_add (mpTagTable, mCurrentLineTag->tag()); m_FontDescription = 0; if (config_get_string(sName, "font", &fg)) setFont(fg); else setFont("Serif 8"); ppSourceBuffers = new SourceBuffer *[SBAW_NRFILES]; for (int i=0; i :: iterator sbaw_iterator; sbaw_iterator = children.begin(); return (sbaw_iterator != children.end()) ? *sbaw_iterator : 0; } void SourceBrowserParent_Window::Build(void) { list :: iterator sbaw_iterator; for (sbaw_iterator = children.begin(); sbaw_iterator != children.end(); sbaw_iterator++) (*sbaw_iterator)->Build(); UpdateMenuItem(); } void SourceBrowserParent_Window::NewProcessor(GUI_Processor *gp) { list :: iterator sbaw_iterator; list :: iterator pma_iterator; sbaw_iterator = children.begin(); pma_iterator = gp->cpu->pma_context.begin(); CreateSourceBuffers(gp); int child = 1; SOURCE_WINDOW *sbaw=0; while( (sbaw_iterator != children.end()) || (pma_iterator != gp->cpu->pma_context.end())) { char child_name[64]; if(sbaw_iterator == children.end()) { child++; sprintf(child_name,"source_browser%d",child); sbaw = new SOURCE_WINDOW(gp,this, true, child_name); children.push_back(sbaw); } else sbaw = *sbaw_iterator++; if(pma_iterator != gp->cpu->pma_context.end()) { sbaw->set_pma(*pma_iterator); pma_iterator++; } else { sbaw->set_pma(gp->cpu->pma); } } } void SourceBrowserParent_Window::SelectAddress(int address) { list :: iterator sbaw_iterator; for (sbaw_iterator = children.begin(); sbaw_iterator != children.end(); sbaw_iterator++) (*sbaw_iterator)->SelectAddress(address); } void SourceBrowserParent_Window::SelectAddress(Value *addrSym) { list :: iterator sbaw_iterator; for (sbaw_iterator = children.begin(); sbaw_iterator != children.end(); sbaw_iterator++) (*sbaw_iterator)->SelectAddress(addrSym); } void SourceBrowserParent_Window::Update(void) { list :: iterator sbaw_iterator; for (sbaw_iterator = children.begin(); sbaw_iterator != children.end(); sbaw_iterator++) (*sbaw_iterator)->Update(); } void SourceBrowserParent_Window::UpdateLine(int address) { list :: iterator sbaw_iterator; for (sbaw_iterator = children.begin(); sbaw_iterator != children.end(); sbaw_iterator++) (*sbaw_iterator)->UpdateLine(address); } void SourceBrowserParent_Window::SetPC(int address) { list :: iterator sbaw_iterator; for (sbaw_iterator = children.begin(); sbaw_iterator != children.end(); sbaw_iterator++) (*sbaw_iterator)->SetPC(address); } void SourceBrowserParent_Window::CloseSource(void) { list :: iterator sbaw_iterator; for (sbaw_iterator = children.begin(); sbaw_iterator != children.end(); sbaw_iterator++) (*sbaw_iterator)->CloseSource(); } void SourceBrowserParent_Window::NewSource(GUI_Processor *gp) { list :: iterator sbaw_iterator; CreateSourceBuffers(gp); for (sbaw_iterator = children.begin(); sbaw_iterator != children.end(); sbaw_iterator++) (*sbaw_iterator)->NewSource(gp); } void SourceBrowserParent_Window::ChangeView(int view_state) { list :: iterator sbaw_iterator; for (sbaw_iterator = children.begin(); sbaw_iterator != children.end(); sbaw_iterator++) (*sbaw_iterator)->ChangeView(view_state); } int SourceBrowserParent_Window::set_config() { list :: iterator sbaw_iterator; for (sbaw_iterator = children.begin(); sbaw_iterator != children.end(); sbaw_iterator++) (*sbaw_iterator)->set_config(); const char *sName = "source_config"; char buff[100]; config_set_string(sName,"mnemonic_fg",mMnemonic->mFG.get(buff, sizeof(buff))); config_set_string(sName,"label_fg",mLabel->mFG.get(buff, sizeof(buff))); config_set_string(sName,"symbol_fg",mSymbol->mFG.get(buff, sizeof(buff))); config_set_string(sName,"comment_fg",mComment->mFG.get(buff, sizeof(buff))); config_set_string(sName,"constant_fg",mConstant->mFG.get(buff, sizeof(buff))); config_set_string(sName,"font", getFont()); config_set_variable(sName, "tab_position", getTabPosition()); config_set_variable(sName, "line_numbers", margin().bLineNumbers()); config_set_variable(sName, "addresses", margin().bAddresses()); config_set_variable(sName, "opcodes", margin().bOpcodes()); return 0; } //------------------------------------------------------------------------ // parseLine // // Added a line of text to the source buffer. Apply syntax highlighting. // void SourceBuffer::parseLine(const char *cP, int parseStyle) { GtkTextIter iEnd; GtkTextBuffer *pTextBuffer = m_buffer; gtk_text_buffer_get_end_iter (pTextBuffer, &iEnd); int offset = gtk_text_iter_get_offset (&iEnd); gtk_text_buffer_insert (pTextBuffer, &iEnd, cP, -1); if (parseStyle<0) { addTagRange(m_pParent->mComment,offset,offset + strlen(cP)); return; } int i=0; int j=0; bool bHaveMnemonic = false; if (i != (j = isString(cP))) { addTagRange(m_pParent->mLabel,i+offset,j+offset); i=j; } while (!isEnd(cP[i])) { if ( (j=isWhiteSpace(&cP[i])) != 0) { i += j; } else if ( (j=isString(&cP[i])) != 0) { if (bHaveMnemonic) addTagRange(m_pParent->mSymbol,i+offset,i+j+offset); else addTagRange(m_pParent->mMnemonic,i+offset,i+j+offset); bHaveMnemonic = true; i += j; } else if ( (j=isNumber(&cP[i])) != 0) { addTagRange(m_pParent->mConstant,i+offset,i+j+offset); i += j; } else if ( (j=isComment(&cP[i])) != 0) { addTagRange(m_pParent->mComment,i+offset,i+j+offset); i += j; return; } else i++; } } //------------------------------------------------------------------------ SourcePageMargin &SourceBrowserParent_Window::margin() { return m_margin; } //------------------------------------------------------------------------ void SourceBrowserParent_Window::setTabPosition(int tt) { m_TabType = tt; Update(); } //------------------------------------------------------------------------ void SourceBrowserParent_Window::setFont(const char *cpNewFont) { if (cpNewFont) { g_free(m_FontDescription); m_FontDescription = g_strndup(cpNewFont,256); Update(); } } const char *SourceBrowserParent_Window::getFont() { return m_FontDescription; } //------------------------------------------------------------------------ // parseSource void SourceBrowserParent_Window::parseSource(SourceBuffer *pBuffer,FileContext *pFC) { pFC->rewind(); char text_buffer[256]; int line = 1; while(pFC->gets(text_buffer, sizeof(text_buffer))) { int address; // The syntax highlighting doesn't work on list files or hll files address = pFC->IsList()||pFC->IsHLL() ? -1 : gp->cpu->pma->find_address_from_line(pFC,line); // check if text_buffer in uft8 character set if (!g_utf8_validate(text_buffer, -1, NULL)) { gsize bytes_read, bytes_written; gchar *new_buffer; GError *Gerror = NULL; // try to convert to uft8 using current locale // if we succeed, do normal processing on converted text if ((new_buffer = g_locale_to_utf8((const gchar *)text_buffer, -1, &bytes_read, &bytes_written, &Gerror))) { pBuffer->parseLine(new_buffer,address); g_free(new_buffer); } // Conversion based on locale did not work else { // replace comment which may have unknown character set if((new_buffer = strchr(text_buffer, ';'))) { *new_buffer = 0; strcat(text_buffer, "; comment stripped, characters from unknown locale\n"); } // if still not OK replace entire line so line numbering still OK if (!g_utf8_validate(text_buffer, -1, NULL)) { strcpy(text_buffer, "; non-comment characters from unknow locale\n"); } pBuffer->parseLine(text_buffer,address); } } else pBuffer->parseLine(text_buffer,address); line++; } } //------------------------------------------------------------------------ void SourceBrowserParent_Window::CreateSourceBuffers(GUI_Processor *gp) { Dprintf((" \n")); int i; const char *file_name; if(!gp || !gp->cpu || !gp->cpu->pma) return; Dprintf((" \n")); Processor * pProc = gp->cpu; if(!pma) pma = pProc->pma; CloseSource(); Dprintf(("NewSource\n")); if(pProc->files.nsrc_files() != 0) { for(i=0;ifiles.nsrc_files();i++) { FileContext *fc = pProc->files[i]; file_name = fc->name().c_str(); int iNameLength = strlen(file_name); if(strcmp(file_name+iNameLength-4,".cod") && strcmp(file_name+iNameLength-4,".COD") && (i < SBAW_NRFILES) ) ppSourceBuffers[i] = new SourceBuffer(mpTagTable, fc, this); else { if(verbose) printf ("SourceBrowserAsm_new_source: skipping file: <%s>\n", file_name); } } } Dprintf((" Source is loaded\n")); } #endif // HAVE_GUI gpsim-0.27.0/gui/gui_callbacks.h0000644000076400007640000000066010416272633013376 00000000000000 #ifndef __GUI_CALLBACKS_H__ #define __GUI_CALLBACKS_H__ //#ifdef __cplusplus //extern "C" { //#endif /* __cplusplus */ void gui_cb_quit (GtkWidget *widget, gpointer data); void gui_cb_break (GtkWidget *widget, gpointer data); void gui_cb_break_r (GtkWidget *widget, gpointer data); void gui_cb_break_w (GtkWidget *widget, gpointer data); //#ifdef __cplusplus //} //#endif /* __cplusplus */ #endif /* __GUI_CALLBACKS_H__ */ gpsim-0.27.0/gui/settings.h0000644000076400007640000000244710416272633012460 00000000000000/* Copyright (C) 2004 Borut Razem This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef _SETTINGS_H #define _SETTINGS_H #include using namespace std; class Settings { public: Settings() { } virtual bool set(const char *module, const char *entry, const char *string) = 0; virtual bool set(const char *module, const char *entry, int value) = 0; virtual bool get(const char *module, const char *entry, char **string) = 0; virtual bool get(const char *module, const char *entry, int *value) = 0; virtual bool remove(const char *module, const char *entry) = 0; virtual ~Settings() { } protected: string name; }; #endif //_SETTINGS_H gpsim-0.27.0/gui/gui_profile.cc0000664000076400007640000022670112201276457013267 00000000000000/* Copyright (C) 1998,1999,2000,2001,2002,2003 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include #include "../config.h" //#define GTKEXTRA_2 #ifdef HAVE_GUI #include #include #include #include #include #include #include #include #include "../src/sim_context.h" #include "../src/interface.h" #include "../src/errors.h" #include "gui.h" #include "gui_profile.h" #include "gui_regwin.h" #include "../src/symbol.h" #include #include #include #ifdef GTKEXTRA_2 #include #endif #include #include #include #define PROFILE_COLUMNS 3 static const gchar *profile_titles[PROFILE_COLUMNS]={"Address", "Cycles","Instruction"}; #define PROFILE_RANGE_COLUMNS 3 static const gchar *profile_range_titles[PROFILE_RANGE_COLUMNS]={"Start address", "End address", "Cycles"}; #define PROFILE_REGISTER_COLUMNS 4 static const gchar *profile_register_titles[PROFILE_REGISTER_COLUMNS]={"Address", "Register", "Read count", "Write count"}; #define PROFILE_EXESTATS_COLUMNS 9 static const gchar *profile_exestats_titles[PROFILE_EXESTATS_COLUMNS]={"From address", "To address", "Executions", "Min", "Max", "Median", "Average", "Std. Dev.", "Total"}; struct profile_entry { unsigned int address; guint64 last_count; }; struct profile_range_entry { char startaddress_text[64]; char endaddress_text[64]; unsigned int startaddress; unsigned int endaddress; guint64 last_count; }; struct profile_register_entry { unsigned int address; guint64 last_count_read; guint64 last_count_write; }; typedef enum { MENU_REMOVE_GROUP, MENU_ADD_GROUP, MENU_ADD_ALL_LABELS, MENU_ADD_FUNCTION_LABELS, MENU_PLOT, MENU_SAVE_PS, MENU_PRINT, } menu_id; typedef struct _menu_item { const char *name; menu_id id; GtkWidget *item; } menu_item; static menu_item range_menu_items[] = { {"Remove range", MENU_REMOVE_GROUP}, {"Add range...", MENU_ADD_GROUP}, {"Add all labels", MENU_ADD_ALL_LABELS}, {"Add C functions (bad hack (labels not containing \"_DS_\"))", MENU_ADD_FUNCTION_LABELS}, {"Snapshot to plot", MENU_PLOT}, }; #if 0 // defined but not used static menu_item plot_menu_items[] = { {"Save postscript...", MENU_SAVE_PS}, {"Print", MENU_PRINT}, }; #endif static menu_item exestats_menu_items[] = { {"Plot distribution", MENU_PLOT}, }; extern int gui_message(const char *message); static GtkStyle *normal_style; int plot_profile(Profile_Window *pw, char **pointlabel, guint64 *cyclearray, int numpoints); int plot_routine_histogram(Profile_Window *pw); float calculate_stddev(GList *start, GList *stop, float average); double calculate_median(GList *start, GList *stop); // Used only in popup menus Profile_Window *popup_pw; //======================================================================== class ProfileEntry : public GUIRegister { public: Processor *cpu; unsigned int address; guint64 last_count; }; //======================================================================== static void remove_entry(Profile_Window *pw, struct profile_entry *entry) { gtk_clist_remove(GTK_CLIST(pw->profile_range_clist),pw->range_current_row); pw->profile_range_list=g_list_remove(pw->profile_range_list,entry); free(entry); } #if 0 // defined but not used static unsigned int lookup_address_symbol(const char *name) { Symbol_Table &st = CSimulationContext::GetContext()->GetSymbolTable(); Value *pValue = st.find(name); if(pValue != NULL) { int i; pValue->get(i); return i; } return UINT_MAX; } static void add_range(Profile_Window *pw, const char *startaddress_text, const char *endaddress_text) { guint64 gcycles; struct profile_range_entry *profile_range_entry; unsigned int startaddress; unsigned int endaddress; char count_string[100]; char *entry[PROFILE_COLUMNS]={(char *)startaddress_text,(char *)endaddress_text,count_string}; int row; unsigned int i; char *end; char msg[128]; startaddress = strtoul(startaddress_text,&end,0); if(*end!='\0') { // Try to look the address up in symbol table. startaddress=lookup_address_symbol(startaddress_text); if(startaddress==UINT_MAX) { startaddress=0; sprintf(msg,"Could not find symbol \"%s\"",startaddress_text); gui_message(msg); } } endaddress = strtoul(endaddress_text,&end,0); if(*end!='\0') { // Try to look the address up in symbol table. endaddress=lookup_address_symbol(endaddress_text); if(endaddress==UINT_MAX) { endaddress=0; sprintf(msg,"Could not find symbol \"%s\"",endaddress_text); gui_message(msg); } } gcycles=0; for(i=startaddress;icpu->cycles_used(i); } sprintf(count_string,"0x%" PRINTF_INT64_MODIFIER "x",gcycles); row=gtk_clist_append(GTK_CLIST(pw->profile_range_clist), entry); // FIXME this memory is never freed? profile_range_entry = (struct profile_range_entry*)malloc(sizeof(struct profile_range_entry)); strcpy(profile_range_entry->startaddress_text,startaddress_text); strcpy(profile_range_entry->endaddress_text,endaddress_text); profile_range_entry->startaddress=startaddress; profile_range_entry->endaddress=endaddress; profile_range_entry->last_count=gcycles; gtk_clist_set_row_data(GTK_CLIST(pw->profile_range_clist), row, (gpointer)profile_range_entry); pw->profile_range_list = g_list_append(pw->profile_range_list, (gpointer)profile_range_entry); gtk_clist_sort(GTK_CLIST(pw->profile_range_clist)); } static void a_cb(GtkWidget *w, gpointer user_data) { *(int*)user_data=TRUE; } static void b_cb(GtkWidget *w, gpointer user_data) { *(int*)user_data=FALSE; } static void add_range_dialog(Profile_Window *pw) { static GtkWidget *dialog=0; GtkWidget *button; GtkWidget *hbox; GtkWidget *label; static GtkWidget *startentry; static GtkWidget *endentry; int retval=-1; if(dialog==0) { dialog = gtk_dialog_new(); gtk_window_set_title(GTK_WINDOW(dialog),"Add range"); gtk_signal_connect_object(GTK_OBJECT(dialog), "delete_event", GTK_SIGNAL_FUNC(gtk_widget_hide), GTK_OBJECT(dialog)); label=gtk_label_new("addresses can be entered either as symbols, or as values. \nValues can be entered in decimal, hexadecimal, and octal.\nFor example: 31 is the same as 0x1f and 037"); gtk_widget_show(label); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->vbox), label,FALSE,FALSE,20); hbox = gtk_hbox_new(0,0); gtk_widget_show(hbox); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->vbox), hbox,FALSE,FALSE,20); button = gtk_button_new_with_label("Add range"); gtk_widget_show(button); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->action_area), button, FALSE,FALSE,10); gtk_signal_connect(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(a_cb),(gpointer)&retval); button = gtk_button_new_with_label("Cancel"); gtk_widget_show(button); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->action_area), button, FALSE,FALSE,10); gtk_signal_connect(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(b_cb),(gpointer)&retval); label=gtk_label_new("Enter start address"); gtk_widget_show(label); gtk_box_pack_start(GTK_BOX(hbox), label, FALSE,FALSE, 20); startentry=gtk_entry_new(); gtk_widget_show(startentry); gtk_box_pack_start(GTK_BOX(hbox), startentry,FALSE,FALSE,20); label=gtk_label_new("Enter stop address"); gtk_widget_show(label); gtk_box_pack_start(GTK_BOX(hbox), label, FALSE,FALSE, 20); endentry=gtk_entry_new(); gtk_widget_show(endentry); gtk_box_pack_start(GTK_BOX(hbox), endentry,FALSE,FALSE,20); } gtk_widget_show_now(dialog); gtk_grab_add(dialog); while(retval==-1 && GTK_WIDGET_VISIBLE(dialog)) gtk_main_iteration(); gtk_grab_remove(dialog); gtk_widget_hide(dialog); if(retval==(int)TRUE) { // Add range. const gchar *startentry_text; const gchar *endentry_text; startentry_text = gtk_entry_get_text(GTK_ENTRY(startentry)); if(*startentry_text!='\0') { endentry_text = gtk_entry_get_text(GTK_ENTRY(endentry)); if(*endentry_text!='\0') { add_range(pw, startentry_text, endentry_text); } } } return; } /* this function compares sym pointers for g_list_sort() */ static gint symcompare(Value *sym1, Value *sym2) { try { int i1,i2; sym1->get(i1); sym2->get(i2); if(i1 < i2) return -1; if(i1 > i2) return 1; } catch (Error *e) { delete e; } return 0; } static void file_selection_ok (GtkWidget *w, GtkFileSelection *fs) { const char *file; file=gtk_file_selection_get_filename (fs); #if GTK_MAJOR_VERSION >= 2 gtk_plot_canvas_export_ps(GTK_PLOT_CANVAS(popup_pw->plot_canvas), (char *)file, GTK_PLOT_PORTRAIT, 0, GTK_PLOT_LETTER); #else gtk_plot_canvas_export_ps(GTK_PLOT_CANVAS(popup_pw->plot_canvas), (char *)file, 0, 0, GTK_PLOT_LETTER); #endif gtk_widget_hide (GTK_WIDGET (fs)); } static void print_plot (Profile_Window *pw) { char *file; char cmd[200]; file=tempnam("/tmp","gpsimplot"); #if GTK_MAJOR_VERSION >= 2 gtk_plot_canvas_export_ps(GTK_PLOT_CANVAS(popup_pw->plot_canvas), file, GTK_PLOT_PORTRAIT, 0, GTK_PLOT_LETTER); #else gtk_plot_canvas_export_ps(GTK_PLOT_CANVAS(popup_pw->plot_canvas), file, 0, 0, GTK_PLOT_LETTER); #endif sprintf(cmd,"lpr %s",file); system(cmd); remove(file); } extern int gui_question(char *question, char *a, char *b); static GtkItemFactoryCallback open_plotsave_dialog(Profile_Window *pw) { static GtkWidget *window = 0; if (!window) { window = gtk_file_selection_new ("Save postscript to file..."); gtk_file_selection_hide_fileop_buttons (GTK_FILE_SELECTION (window)); gtk_window_set_position (GTK_WINDOW (window), GTK_WIN_POS_MOUSE); gtk_signal_connect_object(GTK_OBJECT(window), "delete_event", GTK_SIGNAL_FUNC(gtk_widget_hide), GTK_OBJECT(window)); // gtk_signal_connect_object (GTK_OBJECT (window), "destroy", // GTK_SIGNAL_FUNC(gtk_widget_destroyed), // GTK_OBJECT(window)); gtk_signal_connect (GTK_OBJECT (GTK_FILE_SELECTION (window)->ok_button), "clicked", GTK_SIGNAL_FUNC(file_selection_ok), window); gtk_signal_connect (GTK_OBJECT (GTK_FILE_SELECTION (window)->cancel_button), "clicked", GTK_SIGNAL_FUNC(gtk_widget_hide), GTK_OBJECT (window)); } gtk_widget_show (window); return 0; } // called when user has selected a menu item in plot window static void plot_popup_activated(GtkWidget *widget, gpointer data) { menu_item *item; struct profile_entry *entry; if(widget==0 || data==0) { printf("Warning plot_popup_activated(%p,%p)\n",widget,data); return; } item = (menu_item *)data; entry = (struct profile_entry *)gtk_clist_get_row_data(GTK_CLIST(popup_pw->profile_range_clist),popup_pw->range_current_row); switch(item->id) { case MENU_SAVE_PS: open_plotsave_dialog(popup_pw); break; case MENU_PRINT: print_plot(popup_pw); break; default: puts("Unhandled menuitem?"); break; } } #endif // called when user has selected a menu item in exestats tab static void exestats_popup_activated(GtkWidget *widget, gpointer data) { menu_item *item; if(widget==0 || data==0) { printf("Warning exestats_popup_activated(%p,%p)\n",widget,data); return; } item = (menu_item *)data; switch(item->id) { case MENU_PLOT: plot_routine_histogram(popup_pw); break; default: puts("Unhandled menuitem?"); break; } } #if 0 // defined but not used // called from plot_do_popup static GtkWidget * plot_build_menu(Profile_Window *pw) { GtkWidget *menu; GtkWidget *item; unsigned int i; if(pw==0) { printf("Warning build_menu(%p)\n",pw); return 0; } popup_pw = pw; menu=gtk_menu_new(); item = gtk_tearoff_menu_item_new (); gtk_menu_append (GTK_MENU (menu), item); gtk_widget_show (item); for (i=0; i < (sizeof(plot_menu_items)/sizeof(plot_menu_items[0])) ; i++){ plot_menu_items[i].item=item=gtk_menu_item_new_with_label(plot_menu_items[i].name); gtk_signal_connect(GTK_OBJECT(item),"activate", (GtkSignalFunc) plot_popup_activated, &plot_menu_items[i]); gtk_widget_show(item); gtk_menu_append(GTK_MENU(menu),item); } return menu; } #endif // called from exestats_do_popup static GtkWidget * exestats_build_menu(Profile_Window *pw) { GtkWidget *menu; GtkWidget *item; unsigned int i; if(pw==0) { printf("Warning build_menu(%p)\n",pw); return 0; } popup_pw = pw; menu=gtk_menu_new(); item = gtk_tearoff_menu_item_new (); gtk_menu_append (GTK_MENU (menu), item); gtk_widget_show (item); for (i=0; i < (sizeof(exestats_menu_items)/sizeof(exestats_menu_items[0])) ; i++){ exestats_menu_items[i].item=item=gtk_menu_item_new_with_label(exestats_menu_items[i].name); gtk_signal_connect(GTK_OBJECT(item),"activate", (GtkSignalFunc) exestats_popup_activated, &exestats_menu_items[i]); gtk_widget_show(item); gtk_menu_append(GTK_MENU(menu),item); } return menu; } // button press handler static gint exestats_do_popup(GtkWidget *widget, GdkEventButton *event, Profile_Window *pw) { GtkWidget *popup; if(widget==0 || event==0 || pw==0) { printf("Warning exestats_popup(%p,%p,%p)\n",widget,event,pw); return 0; } popup=pw->exestats_popup_menu; if( (event->type == GDK_BUTTON_PRESS) && (event->button == 3) ) { gtk_menu_popup(GTK_MENU(popup), 0, 0, 0, 0, 3, event->time); } return FALSE; } #if 0 // defined but not used // button press handler static gint plot_do_popup(GtkWidget *widget, GdkEventButton *event, Profile_Window *pw) { GtkWidget *popup; if(widget==0 || event==0 || pw==0) { printf("Warning do_popup(%p,%p,%p)\n",widget,event,pw); return 0; } popup=pw->plot_popup_menu; if( (event->type == GDK_BUTTON_PRESS) && (event->button == 3) ) { gtk_menu_popup(GTK_MENU(popup), 0, 0, 0, 0, 3, event->time); } return FALSE; } #endif int plot_profile(Profile_Window *pw, char **pointlabel, guint64 *cyclearray, int numpoints) { #if 0 static GtkWidget *window1; GtkWidget *vbox1; GtkWidget *scrollw1; static GtkWidget *active_plot; static GtkWidget *canvas; static GdkColor color1; static GdkColor color2; static GdkColor bg_color; gint page_width, page_height; int scale = 1; static GtkPlotText *infotext; static GtkPlotText **bartext; GtkWidget *plot; static GtkPlotData *dataset; char infostring[128]; char filename[128]; int i; guint64 i64, x; guint64 maxy=0; static double *px2;//[] = {.1, .2, .3, .4, .5, .6, .7, .8}; static double *py2;//[] = {.012*1000, .067*1000, .24*1000, .5*1000, .65*1000, .5*1000, .24*1000, .067*1000}; gdouble tickdelta; gdouble barwidth; time_t t; static int has_old_graph=0; static int last_numpoints=0; if(pw->gp->cpu->program_memory_size() <=0) return 0; if(has_old_graph) { gtk_plot_remove_text(GTK_PLOT(active_plot),infotext); for(i=0;i=10L) { x/=10L; i64*=10L; } tickdelta=x*i64/10; if(tickdelta<1) tickdelta=1; if(!pw || !pw->gp || !pw->gp->cpu) return 0; t=time(0); // Compute module name to put in infostring for(i=0;igp->cpu->files.nsrc_files();i++) { //struct file_context *gpsim_file; FileContext *fc = pw->gp->cpu->files[i]; const char *file_name; if(fc) file_name = fc->name().c_str(); else continue; //gpsim_file = &(gp->cpu->files[i]); //file_name = gpsim_file->name; if(!strcmp(file_name+strlen(file_name)-4,".asm") ||!strcmp(file_name+strlen(file_name)-4,".ASM") ||!strcmp(file_name+strlen(file_name)-4,".hex") ||!strcmp(file_name+strlen(file_name)-4,".HEX") ) { strncpy(filename,file_name,strlen(file_name)-4); filename[strlen(file_name)-4]=0; break; } } // This information is put at the top of the plot sprintf(infostring,"\\BFile:\\N\"%s\" \\BDate:\\N%s \\BProcessor:\\N\"%s\"", filename, ctime(&t), pw->gp->cpu->name().c_str()); // ctime adds a newline. Remove it. for(i=0;infostring[i];i++) if(infostring[i]=='\n') infostring[i]=' '; page_width = GTK_PLOT_LETTER_W * scale; page_height = GTK_PLOT_LETTER_H * scale; // Only create the window once. if(!window1) { window1=gtk_window_new(GTK_WINDOW_TOPLEVEL); gtk_window_set_title(GTK_WINDOW(window1), "Profile plot"); gtk_widget_set_usize(window1,WINDOWWIDTH,WINDOWHEIGHT); gtk_container_border_width(GTK_CONTAINER(window1),0); gtk_signal_connect_object(GTK_OBJECT(window1), "delete_event",GTK_SIGNAL_FUNC(gtk_widget_hide),GTK_OBJECT(window1)); // gtk_signal_connect_object (GTK_OBJECT (window1), "destroy", // GTK_SIGNAL_FUNC(gtk_widget_destroyed), // GTK_OBJECT(window1)); vbox1=gtk_vbox_new(FALSE,0); gtk_container_add(GTK_CONTAINER(window1),vbox1); gtk_widget_show(vbox1); scrollw1=gtk_scrolled_window_new(0, 0); gtk_container_border_width(GTK_CONTAINER(scrollw1),0); gtk_scrolled_window_set_policy(GTK_SCROLLED_WINDOW(scrollw1), GTK_POLICY_ALWAYS,GTK_POLICY_ALWAYS); gtk_box_pack_start(GTK_BOX(vbox1),scrollw1, TRUE, TRUE,0); gtk_widget_show(scrollw1); pw->plot_canvas=canvas = gtk_plot_canvas_new(page_width, page_height, 1.); GTK_PLOT_CANVAS_SET_FLAGS(GTK_PLOT_CANVAS(canvas), GTK_PLOT_CANVAS_DND_FLAGS); gtk_scrolled_window_add_with_viewport(GTK_SCROLLED_WINDOW(scrollw1), canvas); gtk_widget_show(canvas); pw->plot_popup_menu=plot_build_menu(pw); gtk_signal_connect(GTK_OBJECT(canvas), "button_press_event", (GtkSignalFunc) plot_do_popup, pw); plot = gtk_plot_new_with_size(0, PLOTWIDTH, PLOTHEIGHT); gtk_widget_show(plot); active_plot=plot; gdk_color_parse("light yellow", &bg_color); gdk_colormap_alloc_color(gtk_widget_get_colormap(active_plot), &bg_color, FALSE, TRUE); gtk_plot_set_background(GTK_PLOT(active_plot), &bg_color); gdk_color_parse("black", &color1); gdk_colormap_alloc_color(gtk_widget_get_colormap(active_plot), &color1, FALSE, TRUE); gdk_color_parse("black", &color2); gdk_colormap_alloc_color(gtk_widget_get_colormap(canvas), &color2, FALSE, TRUE); #ifdef GTKEXTRA_2 gtk_plot_hide_legends(GTK_PLOT(active_plot)); gtk_plot_axis_show_labels(gtk_plot_get_axis(GTK_PLOT(active_plot),GTK_PLOT_AXIS_TOP),0); gtk_plot_axis_show_labels(gtk_plot_get_axis(GTK_PLOT(active_plot),GTK_PLOT_AXIS_BOTTOM),0); gtk_plot_axis_show_labels(gtk_plot_get_axis(GTK_PLOT(active_plot),GTK_PLOT_AXIS_RIGHT),0); gtk_plot_axis_set_visible(gtk_plot_get_axis(GTK_PLOT(active_plot), GTK_PLOT_AXIS_TOP), TRUE); gtk_plot_grids_set_visible(GTK_PLOT(active_plot), TRUE, TRUE, TRUE, TRUE); gtk_plot_canvas_put_child(GTK_PLOT_CANVAS(canvas), gtk_plot_canvas_plot_new(GTK_PLOT(active_plot)), PLOTXPOS, PLOTYPOS, PLOTWIDTH, PLOTHEIGHT); gtk_plot_axis_hide_title(gtk_plot_get_axis(GTK_PLOT(active_plot), GTK_PLOT_AXIS_TOP)); gtk_plot_axis_hide_title(gtk_plot_get_axis(GTK_PLOT(active_plot), GTK_PLOT_AXIS_BOTTOM)); gtk_plot_axis_hide_title(gtk_plot_get_axis(GTK_PLOT(active_plot), GTK_PLOT_AXIS_LEFT)); gtk_plot_axis_hide_title(gtk_plot_get_axis(GTK_PLOT(active_plot), GTK_PLOT_AXIS_RIGHT)); #else gtk_plot_hide_legends(GTK_PLOT(active_plot)); gtk_plot_axis_show_labels(GTK_PLOT(active_plot),GTK_PLOT_AXIS_TOP,0); gtk_plot_axis_show_labels(GTK_PLOT(active_plot),GTK_PLOT_AXIS_BOTTOM,0); gtk_plot_axis_show_labels(GTK_PLOT(active_plot),GTK_PLOT_AXIS_RIGHT,0); gtk_plot_axis_set_visible(GTK_PLOT(active_plot), GTK_PLOT_AXIS_TOP, TRUE); gtk_plot_grids_set_visible(GTK_PLOT(active_plot), TRUE, TRUE, TRUE, TRUE); gtk_plot_canvas_add_plot(GTK_PLOT_CANVAS(canvas), GTK_PLOT(active_plot), PLOTXPOS, PLOTYPOS); gtk_plot_axis_hide_title(GTK_PLOT(active_plot), GTK_PLOT_AXIS_TOP); gtk_plot_axis_hide_title(GTK_PLOT(active_plot), GTK_PLOT_AXIS_BOTTOM); gtk_plot_axis_hide_title(GTK_PLOT(active_plot), GTK_PLOT_AXIS_LEFT); gtk_plot_axis_hide_title(GTK_PLOT(active_plot), GTK_PLOT_AXIS_RIGHT); #endif gtk_plot_set_legends_border(GTK_PLOT(active_plot), GTK_PLOT_BORDER_SHADOW, 3); gtk_plot_legends_move(GTK_PLOT(active_plot), .58, .05); gtk_widget_show(active_plot); dataset = GTK_PLOT_DATA(gtk_plot_bar_new(GTK_ORIENTATION_VERTICAL)); gtk_plot_add_data(GTK_PLOT(active_plot), GTK_PLOT_DATA(dataset)); } #ifdef GTKEXTRA_2 gtk_plot_axis_set_ticks(gtk_plot_get_axis(GTK_PLOT(active_plot), GTK_PLOT_AXIS_RIGHT), tickdelta, 0); gtk_plot_set_range(GTK_PLOT(active_plot), 0., 1., 0., (gdouble)maxy); gtk_plot_axis_set_labels_numbers(gtk_plot_get_axis(GTK_PLOT(active_plot), GTK_PLOT_AXIS_LEFT), maxy < 10000 ? GTK_PLOT_LABEL_FLOAT : GTK_PLOT_LABEL_EXP, 0); #else gtk_plot_axis_set_ticks(GTK_PLOT(active_plot), GTK_PLOT_AXIS_Y, tickdelta, 0); gtk_plot_set_range(GTK_PLOT(active_plot), 0., 1., 0., (gdouble)maxy); gtk_plot_axis_set_labels_numbers(GTK_PLOT(active_plot), GTK_PLOT_AXIS_LEFT, maxy<10000?0:GTK_PLOT_LABEL_EXP, 0); #endif gtk_plot_data_set_points(GTK_PLOT_DATA(dataset), px2, py2, 0, 0, numpoints); gtk_plot_data_set_symbol(GTK_PLOT_DATA(dataset), GTK_PLOT_SYMBOL_NONE, GTK_PLOT_SYMBOL_FILLED, 0, 4.0, &color1,&color2); #if GTK_MAJOR_VERSION >= 2 gtk_plot_data_set_line_attributes(GTK_PLOT_DATA(dataset), GTK_PLOT_LINE_NONE, GDK_CAP_BUTT, GDK_JOIN_MITER, 5, &color2); #else gtk_plot_data_set_line_attributes(GTK_PLOT_DATA(dataset), GTK_PLOT_LINE_NONE, 5, &color2); #endif gtk_plot_data_set_connector(GTK_PLOT_DATA(dataset), GTK_PLOT_CONNECT_NONE); gtk_widget_show(GTK_WIDGET(dataset)); // Put the description text under each bar in the plot. for(i=0;igp || !pw->gp->cpu) return 0; if(pw->gp->cpu->program_memory_size() <=0) return 0; if(pw->histogram_profile_list==0) return 0; if(has_old_graph) { gtk_plot_remove_text(GTK_PLOT(active_plot),infotext1); gtk_plot_remove_text(GTK_PLOT(active_plot),infotext2); free(px2); free(py2); } #define WINDOWWIDTH 550 #define WINDOWHEIGHT 650 #define PLOTXPOS 0.25 #define PLOTWIDTH 0.50 #define PLOTYPOS 0.15 #define PLOTHEIGHT 0.50 // Find the number of points and allocate the point arrays numpoints=0; iter=pw->histogram_profile_list; while(iter!=0) { numpoints++; iter=iter->next; } px2=(double*)malloc(numpoints*sizeof(double)); py2=(double*)malloc(numpoints*sizeof(double)); totalcycles=0; totalcount=0; // Find values, and put them in the point arrays j=0; iter=pw->histogram_profile_list; while(iter!=0) { struct cycle_histogram_counter *chc; chc=(struct cycle_histogram_counter*)iter->data; px2[j]=(double)chc->histo_cycles; py2[j]=(double)chc->count; if(maxycount) maxy=chc->count; if(maxxhisto_cycles) maxx=chc->histo_cycles; if(minx>chc->histo_cycles) minx=chc->histo_cycles; totalcycles+=chc->histo_cycles*chc->count; totalcount+=chc->count; j++; iter=iter->next; } mincycles=minx; maxcycles=maxx; averagecycles=totalcycles/(float)totalcount; mediancycles=calculate_median(pw->histogram_profile_list,0); stddevcycles=calculate_stddev(pw->histogram_profile_list,0,averagecycles); barwidth=PLOTWIDTH/(1.3*(maxx-minx/*numpoints*/)); // Compute tickdelta for easy reading. y=maxy; i64=1; while(y>=10L) { y/=10L; i64*=10L; } tickdelta_y=y*i64/10; if(tickdelta_y<1) tickdelta_y=1; // Compute tickdelta for easy reading. x=maxx-minx; i64=1; while(x>=10L) { x/=10L; i64*=10L; } tickdelta_x=x*i64/5; if(tickdelta_x<1) tickdelta_x=1; maxy=maxy +(maxy>>3)+1; margin = maxx-minx; margin= margin + (margin>>3) + (margin>>5)+1; maxx=maxx+margin; if(minx>margin) minx=minx-margin; else minx=0; page_width = GTK_PLOT_LETTER_W * scale; page_height = GTK_PLOT_LETTER_H * scale; // Only create the window once. if(!window1) { window1=gtk_window_new(GTK_WINDOW_TOPLEVEL); gtk_window_set_title(GTK_WINDOW(window1), "Routine histogram"); gtk_widget_set_usize(window1,WINDOWWIDTH,WINDOWHEIGHT); gtk_container_border_width(GTK_CONTAINER(window1),0); gtk_signal_connect_object(GTK_OBJECT(window1), "delete_event",GTK_SIGNAL_FUNC(gtk_widget_hide),GTK_OBJECT(window1)); vbox1=gtk_vbox_new(FALSE,0); gtk_container_add(GTK_CONTAINER(window1),vbox1); gtk_widget_show(vbox1); scrollw1=gtk_scrolled_window_new(0, 0); gtk_container_border_width(GTK_CONTAINER(scrollw1),0); gtk_scrolled_window_set_policy(GTK_SCROLLED_WINDOW(scrollw1), GTK_POLICY_ALWAYS,GTK_POLICY_ALWAYS); gtk_box_pack_start(GTK_BOX(vbox1),scrollw1, TRUE, TRUE,0); gtk_widget_show(scrollw1); pw->plot_canvas=canvas = gtk_plot_canvas_new(page_width, page_height, 1.); GTK_PLOT_CANVAS_SET_FLAGS(GTK_PLOT_CANVAS(canvas), GTK_PLOT_CANVAS_DND_FLAGS); gtk_scrolled_window_add_with_viewport(GTK_SCROLLED_WINDOW(scrollw1), canvas); gtk_widget_show(canvas); pw->plot_popup_menu=plot_build_menu(pw); gtk_signal_connect(GTK_OBJECT(canvas), "button_press_event", (GtkSignalFunc) plot_do_popup, pw); plot = gtk_plot_new_with_size(0, PLOTWIDTH, PLOTHEIGHT); gtk_widget_show(plot); active_plot=plot; gdk_color_parse("light yellow", &bg_color); gdk_colormap_alloc_color(gtk_widget_get_colormap(active_plot), &bg_color, FALSE, TRUE); gtk_plot_set_background(GTK_PLOT(active_plot), &bg_color); gdk_color_parse("black", &color1); gdk_colormap_alloc_color(gtk_widget_get_colormap(active_plot), &color1, FALSE, TRUE); gdk_color_parse("black", &color2); gdk_colormap_alloc_color(gtk_widget_get_colormap(canvas), &color2, FALSE, TRUE); #ifdef GTKEXTRA_2 gtk_plot_hide_legends(GTK_PLOT(active_plot)); gtk_plot_axis_show_labels(gtk_plot_get_axis(GTK_PLOT(active_plot),GTK_PLOT_AXIS_TOP),0); gtk_plot_axis_show_labels(gtk_plot_get_axis(GTK_PLOT(active_plot),GTK_PLOT_AXIS_RIGHT),0); gtk_plot_axis_set_visible(gtk_plot_get_axis(GTK_PLOT(active_plot), GTK_PLOT_AXIS_TOP), TRUE); gtk_plot_grids_set_visible(GTK_PLOT(active_plot), TRUE, TRUE, TRUE, TRUE); gtk_plot_canvas_put_child(GTK_PLOT_CANVAS(canvas), gtk_plot_canvas_plot_new(GTK_PLOT(active_plot)), PLOTXPOS, PLOTYPOS, PLOTWIDTH, PLOTHEIGHT); gtk_plot_axis_hide_title(gtk_plot_get_axis(GTK_PLOT(active_plot), GTK_PLOT_AXIS_TOP)); gtk_plot_axis_hide_title(gtk_plot_get_axis(GTK_PLOT(active_plot), GTK_PLOT_AXIS_RIGHT)); #else gtk_plot_hide_legends(GTK_PLOT(active_plot)); gtk_plot_axis_show_labels(GTK_PLOT(active_plot),GTK_PLOT_AXIS_TOP,0); gtk_plot_axis_show_labels(GTK_PLOT(active_plot),GTK_PLOT_AXIS_RIGHT,0); gtk_plot_axis_set_visible(GTK_PLOT(active_plot), GTK_PLOT_AXIS_TOP, TRUE); gtk_plot_grids_set_visible(GTK_PLOT(active_plot), TRUE, TRUE, TRUE, TRUE); gtk_plot_canvas_add_plot(GTK_PLOT_CANVAS(canvas), GTK_PLOT(active_plot), PLOTXPOS, PLOTYPOS); gtk_plot_axis_hide_title(GTK_PLOT(active_plot), GTK_PLOT_AXIS_TOP); gtk_plot_axis_hide_title(GTK_PLOT(active_plot), GTK_PLOT_AXIS_RIGHT); #endif gtk_plot_set_legends_border(GTK_PLOT(active_plot), GTK_PLOT_BORDER_SHADOW, 3); gtk_plot_legends_move(GTK_PLOT(active_plot), .58, .05); gtk_widget_show(active_plot); dataset = GTK_PLOT_DATA(gtk_plot_bar_new(GTK_ORIENTATION_VERTICAL)); gtk_plot_add_data(GTK_PLOT(active_plot), GTK_PLOT_DATA(dataset)); } #ifdef GTKEXTRA_2 gtk_plot_axis_set_ticks(gtk_plot_get_axis(GTK_PLOT(active_plot), GTK_PLOT_AXIS_RIGHT), tickdelta_y, 1); gtk_plot_axis_set_title(gtk_plot_get_axis(GTK_PLOT(active_plot), GTK_PLOT_AXIS_LEFT), "Frequency"); gtk_plot_axis_set_labels_numbers(gtk_plot_get_axis(GTK_PLOT(active_plot), GTK_PLOT_AXIS_LEFT), GTK_PLOT_LABEL_FLOAT, 0); gtk_plot_axis_set_ticks(gtk_plot_get_axis(GTK_PLOT(active_plot), GTK_PLOT_AXIS_LEFT), tickdelta_x, 1); gtk_plot_axis_set_title(gtk_plot_get_axis(GTK_PLOT(active_plot), GTK_PLOT_AXIS_BOTTOM), "Cycles"); gtk_plot_axis_set_labels_numbers(gtk_plot_get_axis(GTK_PLOT(active_plot), GTK_PLOT_AXIS_BOTTOM), maxx<10000 ? GTK_PLOT_LABEL_FLOAT : GTK_PLOT_LABEL_EXP, 0); #else gtk_plot_axis_set_ticks(GTK_PLOT(active_plot), GTK_PLOT_AXIS_Y, tickdelta_y, 1); gtk_plot_axis_set_title(GTK_PLOT(active_plot), GTK_PLOT_AXIS_LEFT, "Frequency"); gtk_plot_axis_set_labels_numbers(GTK_PLOT(active_plot), GTK_PLOT_AXIS_LEFT, 0, 0); gtk_plot_axis_set_ticks(GTK_PLOT(active_plot), GTK_PLOT_AXIS_X, tickdelta_x, 1); gtk_plot_axis_set_title(GTK_PLOT(active_plot), GTK_PLOT_AXIS_BOTTOM, "Cycles"); gtk_plot_axis_set_labels_numbers(GTK_PLOT(active_plot), GTK_PLOT_AXIS_BOTTOM, maxx<10000?0:GTK_PLOT_LABEL_EXP, 0); #endif gtk_plot_set_range(GTK_PLOT(active_plot), minx, (gdouble)maxx, 0., (gdouble)maxy); gtk_plot_data_set_points(GTK_PLOT_DATA(dataset), px2, py2, 0, 0, numpoints); gtk_plot_data_set_symbol(GTK_PLOT_DATA(dataset), GTK_PLOT_SYMBOL_NONE, GTK_PLOT_SYMBOL_FILLED, 0, 4.0, &color1,&color2); #if GTK_MAJOR_VERSION >= 2 gtk_plot_data_set_line_attributes(GTK_PLOT_DATA(dataset), GTK_PLOT_LINE_NONE, GDK_CAP_BUTT, GDK_JOIN_MITER, 5, &color2); #else gtk_plot_data_set_line_attributes(GTK_PLOT_DATA(dataset), GTK_PLOT_LINE_NONE, 5, &color2); #endif gtk_plot_data_set_connector(GTK_PLOT_DATA(dataset), GTK_PLOT_CONNECT_NONE); gtk_widget_show(GTK_WIDGET(dataset)); // Infostring1 t=time(0); // Compute module name to put in infostring for(i=0;igp->cpu->files.nsrc_files();i++) { //struct file_context *gpsim_file; FileContext *fc = pw->gp->cpu->files[i]; const char *file_name; if(fc) file_name = fc->name().c_str(); else continue; //gpsim_file = &(gp->cpu->files[i]); //file_name = gpsim_file->name; if(!strcmp(file_name+strlen(file_name)-4,".asm") ||!strcmp(file_name+strlen(file_name)-4,".ASM") ||!strcmp(file_name+strlen(file_name)-4,".hex") ||!strcmp(file_name+strlen(file_name)-4,".HEX") ) { strncpy(filename,file_name,strlen(file_name)-4); filename[strlen(file_name)-4]=0; break; } } // This information is put at top of the plot sprintf(infostring,"\\BFile:\\N\"%s\" \\BDate:\\N%s \\BProcessor:\\N\"%s\"", filename, ctime(&t), pw->gp->cpu->name().c_str()); // ctime adds a newline. Remove it. for(i=0;infostring[i];i++) if(infostring[i]=='\n') infostring[i]=' '; infotext1=gtk_plot_put_text(GTK_PLOT(active_plot), 0.5, PLOTYPOS-0.05, 0, 20, 00, 0, 0, TRUE, GTK_JUSTIFY_CENTER, infostring); gtk_plot_draw_text(GTK_PLOT(active_plot),*infotext1); static char * pInfoStringFormat = "\\BMin:\\N\%" PRINTF_INT64_MODIFIER "d \\BMax:\\N%" PRINTF_INT64_MODIFIER "d \\BAverage:\\N%.1f \\BMedian:\\N%.1f \\BStandard deviation:\\N%.1f"; // Infostring2 sprintf(infostring,pInfoStringFormat, // "\\BMin:\\N\%lld \\BMax:\\N%lld \\BAverage:\\N%.1f \\BMedian:\\N%.1f \\BStandard deviation:\\N%.1f", mincycles, maxcycles, averagecycles, mediancycles, stddevcycles); infotext2=gtk_plot_put_text(GTK_PLOT(active_plot), 0.5, PLOTYPOS-0.03, 0, 20, 00, 0, 0, TRUE, GTK_JUSTIFY_CENTER, infostring); gtk_plot_draw_text(GTK_PLOT(active_plot),*infotext2); gtk_widget_queue_draw(window1); gtk_widget_show(window1); has_old_graph=1; last_numpoints=numpoints; #endif return 0; } // called when user has selected a menu item static void popup_activated(GtkWidget *widget, gpointer data) { #if 0 //////// /// /// THIS CODE IS BROKEN. /// //////// char fromaddress_string[256]; char toaddress_string[256]; menu_item *item; sym *s; GList *symlist=0; GList *iter; struct profile_entry *entry; struct profile_range_entry *range_entry=0; if(widget==0 || data==0) { printf("Warning popup_activated(%p,%p)\n",widget,data); return; } Value *sym=0; Symbol_Table_Iterator sti; item = (menu_item *)data; entry = (struct profile_entry *)gtk_clist_get_row_data(GTK_CLIST(popup_pw->profile_range_clist),popup_pw->range_current_row); switch(item->id) { case MENU_REMOVE_GROUP: remove_entry(popup_pw,entry); break; case MENU_ADD_GROUP: add_range_dialog(popup_pw); break; case MENU_ADD_ALL_LABELS: for(sym=sti.begin(); sym != sti.end(); sym = sti.next()) { if(typeid(*sym) == typeid(address_symbol)) { char *pstr=(char*)malloc(sym->name().length()+1); strncpy(pstr, sym->name().data(), sym->name().length()); pstr[sym->name().length()]=0; sym * data=(sym*)malloc(sizeof(sym)); data->name = pstr; data->type = (*sti)->isa(); (*sti)->get(data->value); symlist=g_list_append(symlist,data); } } symlist=g_list_sort(symlist,(GCompareFunc)symcompare); strcpy(fromaddress_string,"0"); iter=symlist; while(iter!=0) { s=(sym*)iter->data; strcpy(toaddress_string,s->name); add_range(popup_pw,fromaddress_string,toaddress_string); strcpy(fromaddress_string,toaddress_string); toaddress_string[0]='\0'; free(s->name); free(s); iter=iter->next; } sprintf(toaddress_string,"%d",gp->cpu->program_address_limit()); add_range(popup_pw,fromaddress_string,toaddress_string); while(symlist!=0) symlist=g_list_remove(symlist,symlist->data); break; case MENU_ADD_FUNCTION_LABELS: for(Symbol_Table::iterator sti = st.begin(); sti != st.end(); sti++) { if(((*sti)->isa() == SYMBOL_ADDRESS) && !strstr((*sti)->name().data(),"_DS_")) { char *pstr=(char*)malloc((*sti)->name().length()+1); strncpy(pstr, (*sti)->name().data(), (*sti)->name().length()); pstr[(*sti)->name().length()]=0; sym * data=(sym*)malloc(sizeof(sym)); data->name = pstr; data->type = (*sti)->isa(); (*sti)->get(data->value); symlist=g_list_append(symlist,data); } } symlist=g_list_sort(symlist,(GCompareFunc)symcompare); iter=symlist; if(iter!=0) { s=(sym*)iter->data; strcpy(fromaddress_string,s->name); free(s->name); free(s); iter=iter->next; while(iter!=0) { s=(sym*)iter->data; strcpy(toaddress_string,s->name); add_range(popup_pw,fromaddress_string,toaddress_string); strcpy(fromaddress_string,toaddress_string); toaddress_string[0]='\0'; free(s); iter=iter->next; } sprintf(toaddress_string,"%d",gp->cpu->program_address_limit()); add_range(popup_pw,fromaddress_string,toaddress_string); } while(symlist!=0) symlist=g_list_remove(symlist,symlist->data); break; case MENU_PLOT: { guint64 *cyclearray;//{100,200,300,400,500,600,900,555}; char **pointlabel;/*={ "start - labelx 0", "start - labelx 1", "start - labelx 2", "start - dgfdslabelx 3", "start - labelx 4", "start - labelx 5", "start - labelx 6", "start - labelx 7" };*/ int numpoints=8; int i; pointlabel=(char**)malloc(sizeof(char*)*numpoints); cyclearray=(guint64*)malloc(sizeof(guint64)*numpoints); for(i=0;iprofile_range_clist),i); if(range_entry==0) { if(i!=0) plot_profile(popup_pw,pointlabel,cyclearray,i); break; } else { pointlabel[i]=(char*)malloc(128); sprintf(pointlabel[i],"%s (end: %s)",range_entry->startaddress_text,range_entry->endaddress_text); cyclearray[i]=range_entry->last_count; } } if(range_entry!=0) plot_profile(popup_pw,pointlabel,cyclearray,numpoints); } break; default: puts("Unhandled menuitem?"); break; } #endif } static void update_menus(Profile_Window *pw) { GtkWidget *item; struct profile_entry *entry; unsigned int i; for (i=0; i < (sizeof(range_menu_items)/sizeof(range_menu_items[0])) ; i++){ item=range_menu_items[i].item; // if(range_menu_items[i].id!=MENU_ADD_GROUP) { if(pw) { entry = (struct profile_entry *)gtk_clist_get_row_data(GTK_CLIST(pw->profile_range_clist),pw->range_current_row); if(range_menu_items[i].id!=MENU_ADD_GROUP && range_menu_items[i].id!=MENU_ADD_ALL_LABELS && range_menu_items[i].id!=MENU_ADD_FUNCTION_LABELS && range_menu_items[i].id!=MENU_PLOT && entry==0) gtk_widget_set_sensitive (item, FALSE); else gtk_widget_set_sensitive (item, TRUE); } else { gtk_widget_set_sensitive (item, FALSE); } } } } static gint key_press(GtkWidget *widget, GdkEventKey *key, gpointer data) { struct profile_range_entry *entry; Profile_Window *pw = (Profile_Window *) data; if(!pw) return(FALSE); if(!pw->gp) return(FALSE); if(!pw->gp->cpu) return(FALSE); switch(key->keyval) { case GDK_Delete: entry = (struct profile_range_entry *)gtk_clist_get_row_data(GTK_CLIST(pw->profile_range_clist),pw->range_current_row); if(entry!=0) remove_entry(pw,(struct profile_entry *)entry); break; } return TRUE; } static gint profile_range_list_row_selected(GtkCList *profilelist,gint row, gint column,GdkEvent *event, Profile_Window *pw) { struct profile_range_entry *entry; // int bit; pw->range_current_row=row; // pw->current_column=column; entry = (struct profile_range_entry *)gtk_clist_get_row_data(GTK_CLIST(pw->profile_clist), row); if(!entry) return TRUE; update_menus(pw); return 0; } // called from do_popup static GtkWidget * build_menu(Profile_Window *pw) { GtkWidget *menu; GtkWidget *item; unsigned int i; if(!pw) { printf("Warning profile window is null\n"); return 0; } popup_pw = pw; menu=gtk_menu_new(); item = gtk_tearoff_menu_item_new (); gtk_menu_append (GTK_MENU (menu), item); gtk_widget_show (item); for (i=0; i < (sizeof(range_menu_items)/sizeof(range_menu_items[0])) ; i++){ range_menu_items[i].item=item=gtk_menu_item_new_with_label(range_menu_items[i].name); gtk_signal_connect(GTK_OBJECT(item),"activate", (GtkSignalFunc) popup_activated, &range_menu_items[i]); gtk_widget_show(item); gtk_menu_append(GTK_MENU(menu),item); } update_menus(pw); return menu; } // button press handler static gint do_popup(GtkWidget *widget, GdkEventButton *event, Profile_Window *pw) { GtkWidget *popup; if(widget==0 || event==0 || pw==0) { printf("Warning do_popup(%p,%p,%p)\n",widget,event,pw); return 0; } popup=pw->range_popup_menu; if( (event->type == GDK_BUTTON_PRESS) && (event->button == 3) ) { gtk_menu_popup(GTK_MENU(popup), 0, 0, 0, 0, 3, event->time); } return FALSE; } /* the function comparing rows of profile list for sorting FIXME this can be improved. When we have equal cells in sort_column of the two rows, compare another column instead of returning 'match'. */ static gint profile_compare_func(GtkCList *clist, gconstpointer ptr1,gconstpointer ptr2) { char *text1, *text2; long val1, val2; GtkCListRow *row1 = (GtkCListRow *) ptr1; GtkCListRow *row2 = (GtkCListRow *) ptr2; // char *p; switch (row1->cell[clist->sort_column].type) { case GTK_CELL_TEXT: text1 = GTK_CELL_TEXT (row1->cell[clist->sort_column])->text; break; case GTK_CELL_PIXTEXT: text1 = GTK_CELL_PIXTEXT (row1->cell[clist->sort_column])->text; break; default: assert(0); break; } switch (row2->cell[clist->sort_column].type) { case GTK_CELL_TEXT: text2 = GTK_CELL_TEXT (row2->cell[clist->sort_column])->text; break; case GTK_CELL_PIXTEXT: text2 = GTK_CELL_PIXTEXT (row2->cell[clist->sort_column])->text; break; default: assert(0); break; } if (!text2) assert(0); // return (text1 != 0); if (!text1) assert(0); // return -1; if(1==sscanf(text1,"%li",&val1)) { if(1==sscanf(text2,"%li",&val2)) { // printf("Value %d %d\n",val1,val2); return val1-val2; } } return strcmp(text1,text2); } gint histogram_list_compare_func_cycles(gconstpointer a, gconstpointer b) { const struct cycle_histogram_counter *h1=(struct cycle_histogram_counter*)a; const struct cycle_histogram_counter *h2=(struct cycle_histogram_counter*)b; if(h1->histo_cycles > h2->histo_cycles) return 1; if(h1->histo_cycles == h2->histo_cycles) return 0; return -1; } gint histogram_list_compare_func(gconstpointer a, gconstpointer b) { const struct cycle_histogram_counter *h1=(struct cycle_histogram_counter*)a; const struct cycle_histogram_counter *h2=(struct cycle_histogram_counter*)b; if(h1->start_address > h2->start_address) return 1; if(h1->start_address == h2->start_address) { if(h1->stop_address > h2->stop_address) return 1; if(h1->stop_address == h2->stop_address) { if(h1->histo_cycles*h1->count > h2->histo_cycles*h2->count) return 1; if(h1->histo_cycles*h1->count == h2->histo_cycles*h2->count) return 0; } } return -1; } double calculate_median(GList *start, GList *stop) { GList *sorted_list=0; struct cycle_histogram_counter *chc_start, *chc_stop;//, *chc_result; // GList *result; int count_sum=0; if(start==0) return -4.2; if(stop==0) { stop=start; while(stop->next!=0) stop=stop->next; } // Copy list and sort it on cycles while(start!=stop) { sorted_list=g_list_append(sorted_list,start->data); start=start->next; } sorted_list=g_list_append(sorted_list,start->data); sorted_list=g_list_sort(sorted_list,histogram_list_compare_func_cycles); start=sorted_list; stop=start; while(stop->next!=0) stop=stop->next; chc_start=(struct cycle_histogram_counter*)start->data; chc_stop=(struct cycle_histogram_counter*)stop->data; while(start!=stop) { if(count_sum>=0) { // Move start to right start = start->next; count_sum-=chc_start->count; chc_start=(struct cycle_histogram_counter*)start->data; continue; } else { // Move stop to left stop=stop->prev; count_sum+=chc_stop->count; chc_stop=(struct cycle_histogram_counter*)stop->data; continue; } } if(count_sum>(int)chc_start->count) { start=start->next; chc_start=(struct cycle_histogram_counter*)start->data; g_list_free(sorted_list); return (double)chc_start->histo_cycles; } if(-count_sum>(int)chc_start->count) { start=start->prev; chc_start=(struct cycle_histogram_counter*)start->data; g_list_free(sorted_list); return (double)chc_start->histo_cycles; } if(-count_sum==(int)chc_start->count) { stop=stop->prev; chc_stop=(struct cycle_histogram_counter*)stop->data; g_list_free(sorted_list); return (chc_start->histo_cycles+chc_stop->histo_cycles)/2.0; } if(count_sum==(int)chc_start->count) { stop=stop->next; chc_stop=(struct cycle_histogram_counter*)stop->data; g_list_free(sorted_list); return (chc_start->histo_cycles+chc_stop->histo_cycles)/2.0; } if((unsigned int)abs(count_sum)count) { g_list_free(sorted_list); return (double)chc_start->histo_cycles; } assert(0); return 0.0; } float calculate_stddev(GList *start, GList *stop, float average) { float variance; int count=0; float sum=0; struct cycle_histogram_counter *chc_start; if(start==stop) return 0.0; if(stop==0) { stop=start; while(stop->next!=0) stop=stop->next; } while(start!=stop) { float diff, diff2; chc_start=(struct cycle_histogram_counter*)start->data; diff=chc_start->histo_cycles-average; diff2=diff*diff; sum+=diff2*chc_start->count; count+=chc_start->count; start=start->next; } variance=sum/count; return sqrt(variance); } void Profile_Window::Update() { unsigned int i; char count_string[100]; GList *iter; if(!enabled) return; if(!gp || !gp->cpu) { return; } // Update profile list iter=profile_list; while(iter) { struct profile_entry *entry; guint64 count; entry=(struct profile_entry*)iter->data; count=gp->cpu->cycles_used(gp->cpu->map_pm_address2index(entry->address)); if(entry->last_count!=count) { int row; entry->last_count=count; row=gtk_clist_find_row_from_data(GTK_CLIST(profile_clist),entry); if(row==-1) { break; } sprintf(count_string,"0x%" PRINTF_GINT64_MODIFIER "x",count); gtk_clist_set_text (GTK_CLIST(profile_clist),row,1,count_string); } iter=iter->next; } gtk_clist_sort(profile_clist); // Update range list iter=profile_range_list; while(iter) { struct profile_range_entry *range_entry; guint64 count; range_entry=(struct profile_range_entry*)iter->data; count=0; for(i=range_entry->startaddress;iendaddress;i++) { count+=gp->cpu->cycles_used(i); } if(range_entry->last_count!=count) { int row; range_entry->last_count=count; row=gtk_clist_find_row_from_data(GTK_CLIST(profile_range_clist),range_entry); if(row==-1) { break; } sprintf(count_string,"0x%" PRINTF_GINT64_MODIFIER "x",count); gtk_clist_set_text (GTK_CLIST(profile_range_clist),row,2,count_string); } iter=iter->next; } gtk_clist_sort(profile_range_clist); // Update register list iter=profile_register_list; while(iter) { struct profile_register_entry *register_entry; guint64 count_read, count_write; register_entry=(struct profile_register_entry*)iter->data; Register *reg = gp->cpu->rma.get_register(register_entry->address); count_read = reg->read_access_count; count_write = reg->write_access_count; if(register_entry->last_count_read!=count_read|| register_entry->last_count_write!=count_write) { int row; register_entry->last_count_read=count_read; register_entry->last_count_write=count_write; row=gtk_clist_find_row_from_data(GTK_CLIST(profile_register_clist),register_entry); if(row==-1) { break; } sprintf(count_string,"0x%" PRINTF_GINT64_MODIFIER "x",count_read); gtk_clist_set_text (GTK_CLIST(profile_register_clist),row,2,count_string); sprintf(count_string,"0x%" PRINTF_GINT64_MODIFIER "x",count_write); gtk_clist_set_text (GTK_CLIST(profile_register_clist),row,3,count_string); } iter=iter->next; } // Update cummulative statistics list histogram_profile_list = g_list_sort(histogram_profile_list, histogram_list_compare_func); // Remove all of clist (for now) gtk_clist_freeze(GTK_CLIST(profile_exestats_clist)); gtk_clist_clear(GTK_CLIST(profile_exestats_clist)); if(histogram_profile_list!=0) { struct cycle_histogram_counter *chc; int count_sum=0; unsigned int start=0xffffffff, stop=0xffffffff; guint64 min=0xffffffffffffffffULL, max=0; guint64 cycles_sum=0; GList *list_start=0, *list_end=0; char fromaddress_string[100]=""; char toaddress_string[100]=""; char executions_string[100]=""; char min_string[100]=""; char max_string[100]=""; char median_string[100]=""; char average_string[100]=""; char stddev_string[100]=""; char total_string[100]=""; char *entry[PROFILE_EXESTATS_COLUMNS]={ fromaddress_string, toaddress_string, executions_string, min_string, max_string, median_string, average_string, stddev_string, total_string }; iter=histogram_profile_list; list_start = iter; while(iter!=0) { chc=(struct cycle_histogram_counter*)iter->data; if(start==chc->start_address && stop==chc->stop_address) { // Add data to statistics count_sum+=chc->count; if(chc->histo_cycleshisto_cycles; if(chc->histo_cycles>max) max=chc->histo_cycles; cycles_sum+=chc->histo_cycles*chc->count; } else { if(count_sum!=0) { // We have data, display it. sprintf(fromaddress_string,"0x%04x",start); sprintf(toaddress_string,"0x%04x",stop); sprintf(executions_string,"%d",count_sum); sprintf(min_string,"%ld",(long)min); sprintf(max_string,"%ld",(long)max); sprintf(median_string,"%.1f", calculate_median(list_start,list_end)); sprintf(average_string,"%.1f",cycles_sum/(float)count_sum); sprintf(stddev_string,"%.1f",calculate_stddev(list_start,list_end,cycles_sum/(float)count_sum)); sprintf(total_string,"%d",(int)cycles_sum); gtk_clist_append(GTK_CLIST(profile_exestats_clist),entry); } // Start new calculation count_sum=chc->count; start = chc->start_address; stop = chc->stop_address; min=chc->histo_cycles; max=chc->histo_cycles; cycles_sum=chc->histo_cycles*chc->count; list_start = iter; } list_end=iter; iter=iter->next; } // add current to clist sprintf(fromaddress_string,"0x%04x",start); sprintf(toaddress_string,"0x%04x",stop); sprintf(executions_string,"%d",count_sum); sprintf(min_string,"%ld",(long)min); sprintf(max_string,"%ld",(long)max); sprintf(median_string,"%.1f", calculate_median(list_start,list_end)); sprintf(average_string,"%.1f",cycles_sum/(float)count_sum); sprintf(stddev_string,"%.1f",calculate_stddev(list_start,list_end,cycles_sum/(float)count_sum)); sprintf(total_string,"%d",(int)cycles_sum); gtk_clist_append(GTK_CLIST(profile_exestats_clist),entry); } gtk_clist_thaw(GTK_CLIST(profile_exestats_clist)); } #define END_OF_TIME 0xFFFFFFFFFFFFFFFFULL static guint64 startcycle=END_OF_TIME; static unsigned int startaddress; static guint64 stopcycle=END_OF_TIME; static unsigned int stopaddress; //------------------------------------------------------------------------ // // ProfileStart class // class ProfileStart : public TriggerObject { public: ProfileStart(Profile_Window *_pw, int _address) { pw = _pw; address = _address; } void callback(void) { if(!gpGuiProcessor || !gpGuiProcessor->cpu || !pw->gp->cpu) return; if(startcycle==END_OF_TIME) { startcycle = get_cycles().get(); startaddress = pw->gp->cpu->pma->get_PC(); } } private: Profile_Window *pw; int address; }; //------------------------------------------------------------------------ // // ProfileStop class // class ProfileStop : public TriggerObject { public: ProfileStop(Profile_Window *_pw, int _address) { pw = _pw; address = _address; } void callback(void) { if(!gpGuiProcessor || !gpGuiProcessor->cpu || !pw->gp->cpu) return; if(stopcycle==END_OF_TIME && startcycle!=END_OF_TIME) { stopcycle = get_cycles().get(); if(startcycle==stopcycle) // This was probably an attempt to measure the whole loop. // Set stopcycle to unset, and wait for the next one stopcycle=END_OF_TIME; else { guint64 cycles; GList *iter; stopaddress=pw->gp->cpu->pma->get_PC(); // We have a new measurement cycles=(int)stopcycle-(int)startcycle; // Search to see if there are an entry with this startaddress, // stopaddress and cycle count. iter=pw->histogram_profile_list; while(iter!=0) { struct cycle_histogram_counter *chc; chc=(struct cycle_histogram_counter*)iter->data; if(chc->start_address == startaddress && chc->stop_address == stopaddress && chc->histo_cycles == cycles) { // If so then add 1 to the counter chc->count++; break; } iter=iter->next; } if(iter==0) { // Else malloc a new struct, fill with values and add (sorted) to list struct cycle_histogram_counter *chc; chc=(struct cycle_histogram_counter*)malloc(sizeof(struct cycle_histogram_counter)); chc->start_address=startaddress; chc->stop_address=stopaddress; chc->histo_cycles=cycles; chc->count=1; pw->histogram_profile_list=g_list_append(pw->histogram_profile_list,chc); } startcycle=stopcycle=END_OF_TIME; } } } private: Profile_Window *pw; int address; }; /***************************************************************** * StartExe * * Create a 'profile start' object for the program memory. * */ void Profile_Window::StartExe(int address) { if(!enabled) ChangeView(VIEW_SHOW); if(gp->cpu->pma->address_has_profile_start(address)) gp->cpu->pma->clear_profile_start_at_address(address); else { if(gp->cpu->pma->address_has_profile_stop(address)) // Can't have both start and stop at the same address // ..it becomes difficult to calculate the cycles gp->cpu->pma->clear_profile_stop_at_address(address); // FIXME -- memory leak... gp->cpu->pma->set_profile_start_at_address(address, new ProfileStart(this,address)); } } /***************************************************************** * SopExe * * Create a 'profile stop' object for the program memory. * */ void Profile_Window::StopExe(int address) { if(enabled) ChangeView(VIEW_SHOW); if(gp->cpu->pma->address_has_profile_stop(address)) gp->cpu->pma->clear_profile_stop_at_address(address); else { if(gp->cpu->pma->address_has_profile_start(address)) // Can't have both start and stop at the same address // ..it becomes difficult to calculate the cycles gp->cpu->pma->clear_profile_start_at_address(address); // FIXME -- memory leak... gp->cpu->pma->set_profile_stop_at_address(address, new ProfileStop(this,address)); } } /***************************************************************** * ProfileWindow_new_program * * */ void Profile_Window::NewProgram(GUI_Processor *_gp) { int row; unsigned int uPMIndex; if(!_gp) return; gp = _gp; if(!gp->cpu) return; program=1; if(!enabled) return; profile_keeper.enable_profiling(); // Instruction clist gtk_clist_freeze(profile_clist); Processor *pProcessor = gp->cpu; ProgramMemoryAccess *pPMA = pProcessor->pma; for(uPMIndex=0; uPMIndex < pProcessor->program_memory_size(); uPMIndex++) { struct profile_entry *profile_entry; char address_string[100]; char instruction_string[100]; char count_string[100]; char *entry[PROFILE_COLUMNS]={address_string,count_string,instruction_string}; guint64 cycles; instruction * pInstruction = pProcessor->pma->getFromIndex(uPMIndex); unsigned int uAddress = pProcessor->map_pm_index2address(uPMIndex); if(pPMA->hasValid_opcode_at_index(uPMIndex)) { sprintf(address_string, "0x%04x",uAddress); strcpy(instruction_string, pInstruction->name().c_str()); cycles=pProcessor->cycles_used(uPMIndex); sprintf(count_string,"0x%" PRINTF_GINT64_MODIFIER "x",cycles); row=gtk_clist_append(GTK_CLIST(profile_clist), entry); // FIXME this memory is never freed? profile_entry = (struct profile_entry*)malloc(sizeof(struct profile_entry)); profile_entry->address=uAddress; profile_entry->last_count=cycles; gtk_clist_set_row_data(GTK_CLIST(profile_clist), row, (gpointer)profile_entry); profile_list = g_list_append(profile_list, (gpointer)profile_entry); } } gtk_clist_thaw(profile_clist); // Register clist gtk_clist_freeze(profile_register_clist); for(unsigned int i=0; i < pProcessor->rma.get_size(); i++) { struct profile_register_entry *profile_register_entry; char address_string[100]; char count_string_read[100]; char count_string_write[100]; char register_string[100]; char *entry_register[PROFILE_REGISTER_COLUMNS]={address_string,register_string,count_string_read,count_string_write}; guint64 read_cycles; guint64 write_cycles; char *name; Register *reg = pProcessor->rma.get_register(i); // // If the register is valid, but it's not aliased and it's not a special function // register, then we can profile it. // if(reg && reg->isa() != Register::INVALID_REGISTER // i.e. the register is valid && !((reg->isa() == Register::SFR_REGISTER) || (i != reg->address)) ) { sprintf(address_string,"0x%04x",i); name = (char*)reg->name().c_str(); if(name==0) name = address_string; strcpy(register_string, name); read_cycles=reg->read_access_count; sprintf(count_string_read,"0x%" PRINTF_GINT64_MODIFIER "x",read_cycles); write_cycles=reg->write_access_count; sprintf(count_string_write,"0x%" PRINTF_GINT64_MODIFIER "x",write_cycles); row=gtk_clist_append(GTK_CLIST(profile_register_clist), entry_register); // FIXME this memory is never freed? profile_register_entry = (struct profile_register_entry*) malloc(sizeof(struct profile_register_entry)); profile_register_entry->address=i; profile_register_entry->last_count_read = read_cycles; profile_register_entry->last_count_write = write_cycles; gtk_clist_set_row_data(GTK_CLIST(profile_register_clist), row, (gpointer)profile_register_entry); profile_register_list = g_list_append(profile_register_list, (gpointer)profile_register_entry); } } gtk_clist_thaw(profile_register_clist); } /***************************************************************** * ProfileWindow_new_processor * * */ void Profile_Window::NewProcessor(GUI_Processor *_gp) { if(!gp) return; if(!enabled) return; } static int delete_event(GtkWidget *widget, GdkEvent *event, Register_Window *rw) { rw->ChangeView(VIEW_HIDE); return TRUE; } gdouble gaussian(GtkPlot *plot, GtkPlotData *data, gdouble x, gboolean *err) { gdouble y; *err = FALSE; y = 1000*x;//.65*exp(-.5*pow(x-.5,2)/.02); return y; } void Profile_Window::Build(void) { if(bIsBuilt) return; GtkWidget *label; GtkWidget *main_vbox; GtkWidget *scrolled_window; window=gtk_window_new(GTK_WINDOW_TOPLEVEL); gtk_signal_connect(GTK_OBJECT (window), "delete_event", GTK_SIGNAL_FUNC(delete_event), this); main_vbox=gtk_vbox_new(FALSE,1); gtk_container_set_border_width(GTK_CONTAINER(main_vbox),0); gtk_container_add(GTK_CONTAINER(window), main_vbox); gtk_widget_show(main_vbox); gtk_window_set_title(GTK_WINDOW(window), "profile viewer"); notebook = gtk_notebook_new(); gtk_widget_show(notebook); gtk_box_pack_start (GTK_BOX (main_vbox), notebook, TRUE, TRUE, 0); // Instruction profile clist profile_clist=GTK_CLIST(gtk_clist_new_with_titles(PROFILE_COLUMNS, (gchar **)profile_titles)); // The following line is silly but it stops GTK printing an assert // in Fedora 19 with Adwaita theme gtk_widget_set_style(GTK_WIDGET(profile_clist), gtk_widget_get_style(GTK_WIDGET(profile_clist))); gtk_clist_set_column_auto_resize(GTK_CLIST(profile_clist),0,TRUE); gtk_clist_set_column_auto_resize(GTK_CLIST(profile_clist),1,TRUE); // gtk_clist_set_sort_column (pw->profile_clist,1); // gtk_clist_set_sort_type (pw->profile_clist,GTK_SORT_DESCENDING); gtk_clist_set_compare_func(GTK_CLIST(profile_clist), (GtkCListCompareFunc)profile_compare_func); GTK_WIDGET_UNSET_FLAGS(profile_clist,GTK_CAN_DEFAULT); scrolled_window=gtk_scrolled_window_new(0, 0); gtk_container_add(GTK_CONTAINER(scrolled_window), GTK_WIDGET(profile_clist)); gtk_widget_show(GTK_WIDGET(profile_clist)); gtk_widget_show(scrolled_window); // gtk_box_pack_start(GTK_BOX(main_vbox), scrolled_window, TRUE, TRUE, 0); label=gtk_label_new("Instruction profile"); gtk_notebook_append_page(GTK_NOTEBOOK(notebook),scrolled_window,label); /////////////////////////////////////////////////// /////////////////////////////////////////////////// // Instruction range profile clist profile_range_clist=GTK_CLIST(gtk_clist_new_with_titles(PROFILE_RANGE_COLUMNS,(gchar **)profile_range_titles)); // The following line is silly but it stops GTK printing an assert // in Fedora 19 with Adwaita theme gtk_widget_set_style(GTK_WIDGET(profile_range_clist), gtk_widget_get_style(GTK_WIDGET(profile_range_clist))); gtk_clist_set_column_auto_resize(profile_range_clist,0,TRUE); gtk_clist_set_column_auto_resize(profile_range_clist,1,TRUE); gtk_clist_set_sort_column (profile_range_clist,2); gtk_clist_set_sort_type (profile_range_clist,GTK_SORT_DESCENDING); gtk_clist_set_compare_func(GTK_CLIST(profile_range_clist), (GtkCListCompareFunc)profile_compare_func); GTK_WIDGET_UNSET_FLAGS(profile_range_clist,GTK_CAN_DEFAULT); range_popup_menu=build_menu(this); gtk_signal_connect(GTK_OBJECT(profile_range_clist), "button_press_event", (GtkSignalFunc) do_popup, this); gtk_signal_connect(GTK_OBJECT(profile_range_clist),"key_press_event", (GtkSignalFunc) key_press, (gpointer) this); gtk_signal_connect(GTK_OBJECT(profile_range_clist),"select_row", (GtkSignalFunc)profile_range_list_row_selected,this); scrolled_window=gtk_scrolled_window_new(0, 0); gtk_container_add(GTK_CONTAINER(scrolled_window), GTK_WIDGET(profile_range_clist)); gtk_widget_show(GTK_WIDGET(profile_range_clist)); gtk_widget_show(scrolled_window); label=gtk_label_new("Instruction range profile"); gtk_notebook_append_page(GTK_NOTEBOOK(notebook),scrolled_window,label); /////////////////////////////////////////////////// // Register profile clist profile_register_clist=GTK_CLIST(gtk_clist_new_with_titles(PROFILE_REGISTER_COLUMNS, (gchar **)profile_register_titles)); // The following line is silly but it stops GTK printing an assert // in Fedora 19 with Adwaita theme gtk_widget_set_style(GTK_WIDGET(profile_register_clist), gtk_widget_get_style(GTK_WIDGET(profile_register_clist))); gtk_clist_set_column_auto_resize(profile_register_clist,0,TRUE); gtk_clist_set_column_auto_resize(profile_register_clist,1,TRUE); gtk_clist_set_column_auto_resize(profile_register_clist,2,TRUE); gtk_clist_set_column_auto_resize(profile_register_clist,3,TRUE); // gtk_clist_set_sort_column (pw->profile_register_clist,1); // gtk_clist_set_sort_type (pw->profile_register_clist,GTK_SORT_DESCENDING); gtk_clist_set_compare_func(profile_register_clist, (GtkCListCompareFunc)profile_compare_func); GTK_WIDGET_UNSET_FLAGS(profile_register_clist,GTK_CAN_DEFAULT); scrolled_window=gtk_scrolled_window_new(0, 0); gtk_container_add(GTK_CONTAINER(scrolled_window), GTK_WIDGET(profile_register_clist)); gtk_widget_show(GTK_WIDGET(profile_register_clist)); gtk_widget_show(scrolled_window); // gtk_box_pack_start(GTK_BOX(main_vbox), scrolled_window, TRUE, TRUE, 0); label=gtk_label_new("Register profile"); gtk_notebook_append_page(GTK_NOTEBOOK(notebook),scrolled_window,label); /////////////////////////////////////////////////// // Execution time statistics tab profile_exestats_clist=GTK_CLIST(gtk_clist_new_with_titles(PROFILE_EXESTATS_COLUMNS, (gchar **)profile_exestats_titles)); // The following line is silly but it stops GTK printing an assert // in Fedora 19 with Adwaita theme gtk_widget_set_style(GTK_WIDGET(profile_exestats_clist), gtk_widget_get_style(GTK_WIDGET(profile_exestats_clist))); gtk_clist_set_column_auto_resize(profile_exestats_clist,0,TRUE); gtk_clist_set_column_auto_resize(profile_exestats_clist,1,TRUE); gtk_clist_set_column_auto_resize(profile_exestats_clist,2,TRUE); gtk_clist_set_column_auto_resize(profile_exestats_clist,3,TRUE); gtk_clist_set_column_auto_resize(profile_exestats_clist,4,TRUE); gtk_clist_set_column_auto_resize(profile_exestats_clist,5,TRUE); gtk_clist_set_column_auto_resize(profile_exestats_clist,6,TRUE); gtk_clist_set_column_auto_resize(profile_exestats_clist,7,TRUE); gtk_clist_set_column_auto_resize(profile_exestats_clist,8,TRUE); GTK_WIDGET_UNSET_FLAGS(profile_exestats_clist,GTK_CAN_DEFAULT); exestats_popup_menu=exestats_build_menu(this); gtk_signal_connect(GTK_OBJECT(profile_exestats_clist), "button_press_event", (GtkSignalFunc) exestats_do_popup, this); scrolled_window=gtk_scrolled_window_new(0, 0); gtk_container_add(GTK_CONTAINER(scrolled_window), GTK_WIDGET(profile_exestats_clist)); gtk_widget_show(GTK_WIDGET(profile_exestats_clist)); gtk_widget_show(scrolled_window); label=gtk_label_new("Routine profile"); gtk_notebook_append_page(GTK_NOTEBOOK(notebook),scrolled_window,label); /////////////////////////////////////////////////// gtk_window_set_default_size(GTK_WINDOW(window), width,height); gtk_widget_set_uposition(GTK_WIDGET(window),x,y); gtk_window_set_wmclass(GTK_WINDOW(window),name(),"Gpsim"); normal_style = gtk_style_new (); gtk_signal_connect_after(GTK_OBJECT(window), "configure_event", GTK_SIGNAL_FUNC(gui_object_configure_event),this); gtk_widget_show (window); bIsBuilt=true; NewProcessor(gp); if(program) NewProgram(gp); Update(); UpdateMenuItem(); } Profile_Window::Profile_Window(GUI_Processor *_gp) { menu = "
    /Windows/Profile"; gp = _gp; set_name("profile"); window = 0; wc = WC_data; wt = WT_profile_window; profile_list=0; profile_range_list=0; profile_register_list=0; histogram_profile_list=0; range_current_row = 0; program=0; get_config(); if(enabled) Build(); } #endif // HAVE_GUI gpsim-0.27.0/gui/gui_breadboard.cc0000664000076400007640000035377412201276457013727 00000000000000/* Copyright (C) 2000,2001,2002 Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #define GTK_ENABLE_BROKEN #include "../config.h" #ifdef HAVE_GUI #include #include #include #include #include #include #include #include #include #include #include "../src/modules.h" #include "../src/stimuli.h" #include "../src/pic-processor.h" #include "../src/symbol.h" #include "../src/stimuli.h" #include "../src/value.h" #include "../src/errors.h" #include "../src/packages.h" #include #include "gui.h" #include "gui_breadboard.h" #define PINLINEWIDTH 3 #define CASELINEWIDTH 4 #define CASEOFFSET (CASELINEWIDTH/2) #define FOORADIUS (CASELINEWIDTH) // radius of center top milling #define LABELPAD 4 // increase this so wide lines doesn't clutter labels static GdkColor high_output_color; static GdkColor low_output_color; static GdkColor black_color; static GdkColor gray_color; #define PINLENGTH (4*PINLINEWIDTH) static int pinspacing = PINLENGTH; #define LAYOUTSIZE_X 800 #define LAYOUTSIZE_Y 800 #define STRING_SIZE 128 #define ROUTE_RES (2*PINLINEWIDTH) // grid spacing static void treeselect_module(GtkItem *item, GuiModule *p); #define XSIZE LAYOUTSIZE_X/ROUTE_RES // grid size #define YSIZE LAYOUTSIZE_Y/ROUTE_RES /* If HMASK is set in board_matrix, then this position is unavailable for horizontal track */ #define HMASK 1 #define VMASK 2 /* board matrix contains information about how a track can be routed. */ static unsigned char board_matrix[XSIZE][YSIZE]; //======================================================================== class BreadBoardXREF : public CrossReferenceToGUI { public: void Update(int new_value) { Breadboard_Window *bbw = (Breadboard_Window *) (parent_window); bbw->Update(); } void Remove() { } }; //======================================================================== /* Check the flags in board_matrix to see if we are allowed to route horizontally here */ static inline int allow_horiz(point &p) { if(board_matrix[p.x][p.y] & HMASK) return FALSE; return TRUE; } /* Check the flags in board_matrix to see if we are allowed to route vertically here */ static inline int allow_vert(point &p) { if(board_matrix[p.x][p.y] & VMASK) return FALSE; return TRUE; } // Find the direction to go to get from s to e if there are no obstacles. static inline route_direction calculate_route_direction(point s, point e) { if(abs(s.x-e.x) > abs(s.y-e.y)) { // Left or right if(s.xp); if(dir==R_NONE) { // Both X and Y has changed. add_point=1; } else if(*pat!=0 && (*pat)->next!=0) { if((*pat)->p.x == p.x && (*pat)->next->p.x == p.x && (*pat)->dir==dir) { // same x, just change y (*pat)->p.y=p.y; } else if((*pat)->p.y == p.y && (*pat)->next->p.y == p.y && (*pat)->dir==dir) { // same y, just change x (*pat)->p.x=p.x; } else { add_point=1; } } else { add_point=1; } } else { add_point=1; } if(add_point)*/ // { // Lots and lots of mallocs, FIXME new_point = (path*)malloc(sizeof(path)); new_point->p=p; new_point->next = *pat; if((*pat)!=0) { dir = calculate_route_direction(p, (*pat)->p); if((*pat)->dir==R_NONE) (*pat)->dir=dir; } new_point->dir=dir; *pat = new_point; // } } // Free all memory in pat static void clear_path(path **pat) { path *current_path, *next; if(*pat==0) return; current_path = *pat; *pat = 0; while(current_path!=0) { next = current_path->next; free(current_path); current_path = next; } } #if 0 /* failed attempt to remove unnessessary points in paths. FIXME bug*/ // Compress sequences with same x or y to one sequence static void compress_path(path **pat) { int x,y; path *current_path; current_path = *pat; x=current_path->p.x; y=current_path->p.y; while(current_path!=0) { path *next_path = current_path->next; path *next2_path = next_path->next; if(next_path==0 || next2_path==0) break; if(current_path->p.x==next_path->p.x && current_path->p.x==next2_path->p.x && current_path->dir==next_path->dir && current_path->dir==next2_path->dir) { current_path->next=next2_path; free(next_path); continue; } if(current_path->p.y==next_path->p.y && current_path->p.y==next2_path->p.y && current_path->dir==next_path->dir && current_path->dir==next2_path->dir) { current_path->next=next2_path; free(next_path); continue; } current_path = current_path->next; } } #endif // mask_matrix is used by trace_two_poins to know where is has been, and // how quickly it came here. (depth is stored here if lower) static unsigned short mask_matrix[XSIZE][YSIZE]; // maxdepth is shortest path from start to end static unsigned short maxdepth; // Penalty for making a turn in a trace #define turnq(a,b) (((a)!=(b))*10) static unsigned long calls; /* This is an recursive routine that tries to find a path between p and end. */ static int trace_two_points(path **pat, // Pointer to resulting path point p, // Where we are now point end, // Where we want to go int depth, route_direction lastdir) // How deep in we are { int retval; route_direction dir; point up, left, right, down; if(depth==0) { // Initialize mask_matrix and maxdepth on first call int x,y; // Initialize mask_matrix and maxdepth //maxdepth=500; for(x=0;xmaxdepth) return FALSE; if(depth>mask_matrix[p.x][p.y]) return FALSE; if(abs(p.x-end.x)+abs(p.y-end.y)+depth>maxdepth) return FALSE; if(p.x == end.x && p.y==end.y) { // We are at end point if(depth < maxdepth) { // We found a new shortest path. //printf("Found path with length %d\n",depth); maxdepth = depth; clear_path(pat); prepend_point_to_path(pat, p); return TRUE; } return FALSE; } // Store new (closer) depth in mask_matrix. mask_matrix[p.x][p.y]=depth; // Find the general direction we want to go dir = calculate_route_direction(p,end); // Recursion return value retval=0; // Convenience up=p;up.y++; down=p;down.y--; left=p;left.x--; right=p;right.x++; /* Depending on where we wish to go, do recursion so that we likely will quickly find at least some kind of path to end. If we don't do that maxdepth will stay large, and the traceing will likely take a long time. We use allow_vert and allow_horiz to determine if the movement is allowed, of if there is something in our way. */ switch(dir) { case R_UP: if(allow_vert(up)) retval|=trace_two_points(pat,up,end,depth+1+turnq(lastdir,R_UP),R_UP); if(p.xnext!=0) { // If there are point in pat already, then check if // we can use that and just change the coords there. if((*pat)->p.x == p.x && (*pat)->next->p.x == p.x && (*pat)->dir==dir) { // same x, just change y (*pat)->p.y=p.y; } else if((*pat)->p.y == p.y && (*pat)->next->p.y == p.y) { // same y, just change x (*pat)->p.x=p.x; } else { // This is a turn in the trace. We need another point. prepend_point_to_path(pat, p, dir); } } else*/ { // This is first or second point. prepend_point_to_path(pat, p); } // if(depth==0) // { // printf("Successful trace with %ld steps\n",calls); // } return TRUE; } // if(depth==0) // { // printf("Unsuccessful trace with %ld steps\n",calls); // } return FALSE; } #if 0 // enable for debug // print huge ascii picture of the board_matrix for debugging void print_matrix(void) { int x,y; for(y=YSIZE-1;y>=0;y--) { for(x=0;xmodules; while(mi!=0) { GuiModule *p = static_cast(mi->data); if(p->IsBuilt()) { x=p->x; y=p->y/*-PINLENGTH*/; width=p->width/*+PINLENGTH*/; height=p->height/*+PINLENGTH*/; // Debug. This shows the boxes that limits traceing. gdk_draw_rectangle(bbw->layout_pixmap, bbw->case_gc,0, x,y,width,height); //printf("%dx%d @ %d,%d with %d pins\n",width,height,x,y,p->module->get_pin_count()); // Draw barriers around pins so the tracker can only get in // straigt to the pin and not from the side. for(i=1;i<=p->module()->get_pin_count();i++) { GList *e; e = g_list_nth(p->pins(), i-1); GuiPin *gp = static_cast(e->data); switch(gp->orientation) { case LEFT: y=p->y+gp->y; gdk_draw_line(bbw->layout_pixmap, bbw->case_gc, p->x+gp->x-PINLENGTH,y, p->x+gp->x+gp->width,y); y=p->y+gp->y+gp->height; gdk_draw_line(bbw->layout_pixmap, bbw->case_gc, p->x+gp->x-PINLENGTH,y, p->x+gp->x+gp->width,y); break; case RIGHT: y=p->y+gp->y; gdk_draw_line(bbw->layout_pixmap, bbw->case_gc, p->x+gp->x,y, p->x+gp->x+gp->width+PINLENGTH,y); y=p->y+gp->y+gp->height; gdk_draw_line(bbw->layout_pixmap, bbw->case_gc, p->x+gp->x,y, p->x+gp->x+gp->width+PINLENGTH,y); break; default: assert(0); } } } mi=mi->next; } } #endif static GList *nodepath_list; // Draw nodes in nodepath_list to layout_pixmap static void clear_nodes(Breadboard_Window *bbw) { GList *iter; path *nodepath; iter = nodepath_list; while(iter!=0) { nodepath = (path*)iter->data; clear_path(&nodepath); nodepath_list = g_list_remove(nodepath_list, iter->data); iter=nodepath_list; } } static void layout_adj_changed(GtkWidget *widget, Breadboard_Window *bbw); // Draw node in nodepath_list to layout_pixmap static void draw_nodes(Breadboard_Window *bbw) { GList *iter; gdk_draw_rectangle (bbw->layout_pixmap, bbw->window->style->bg_gc[GTK_WIDGET_STATE (bbw->window)], TRUE, 0, 0, LAYOUTSIZE_X, LAYOUTSIZE_Y); iter = nodepath_list; while(iter!=0) { int last_x, last_y; path *current_path; path *nodepath; nodepath = (path*)iter->data; current_path = nodepath; last_x = current_path->p.x*ROUTE_RES; last_y = current_path->p.y*ROUTE_RES; current_path=current_path->next; gdk_gc_set_foreground(bbw->pinline_gc,&black_color); while(current_path!=0) { int x,y; x=current_path->p.x*ROUTE_RES; y=current_path->p.y*ROUTE_RES; gdk_draw_line(bbw->layout_pixmap, bbw->pinline_gc, last_x,last_y, x,y); last_x=x; last_y=y; current_path = current_path->next; } iter=iter->next; } layout_adj_changed(0,bbw); } // Here we fill board_matrix with module packages, so that trace_two_points // know not to trace over them. static void update_board_matrix(Breadboard_Window *bbw) { int x,y, width, height; GList *mi; int i; // Clear first. for(y=YSIZE-1;y>=0;y--) { for(x=0;xmodules; while(mi!=0) { GuiModule *p = static_cast(mi->data); if(p && p->IsBuilt()) { x=p->x(); y=p->y(); width=p->width(); height=p->height(); for(y = p->y() - ROUTE_RES; y < p->y() + height + ROUTE_RES && y/ROUTE_RES < YSIZE; y += ROUTE_RES) { for(x = p->x(); x < p->x() + width && x/ROUTE_RESpin_count();i++) { GList *e; e = g_list_nth(p->pins(), i-1); GuiPin *gp = static_cast(e->data); switch(gp->orientation) { case LEFT: y = gp->y() - gp->height() / 2; for(x = gp->x() - PINLENGTH; x < gp->x() + gp->width(); x += ROUTE_RES) board_matrix[x/ROUTE_RES][y/ROUTE_RES]=(HMASK|VMASK); y = gp->y() + gp->height() / 2; for(x = gp->x() - PINLENGTH; x < gp->x() + gp->width(); x += ROUTE_RES) board_matrix[x/ROUTE_RES][y/ROUTE_RES]=(HMASK|VMASK); break; case RIGHT: y = gp->y() - gp->height() / 2; for(x = gp->x() - PINLENGTH; x < gp->x() + gp->width(); x += ROUTE_RES) board_matrix[x/ROUTE_RES][y/ROUTE_RES]=(HMASK|VMASK); y = gp->y() + gp->height() / 2; for(x = gp->x() - PINLENGTH; x < gp->x() + gp->width(); x += ROUTE_RES) board_matrix[x/ROUTE_RES][y/ROUTE_RES]=(HMASK|VMASK); break; default: assert(0); } } } mi=mi->next; } clear_nodes(bbw); draw_nodes(bbw); } // Add path to board_matrix. This will make trace_two_point to not trace // at its place. It can trace over it when in straight angle. static void add_path_to_matrix(path *pat) { int x=-1, y=-1; if(pat!=0) { x=pat->p.x; y=pat->p.y; pat=pat->next; } while(pat!=0) { if(pat->dir==R_LEFT || pat->dir==R_RIGHT) board_matrix[x][y]|=HMASK; if(pat->dir==R_DOWN || pat->dir==R_UP) board_matrix[x][y]|=VMASK; while(x!=pat->p.x || y!=pat->p.y) { if(xp.x) x++; if(x>pat->p.x) x--; if(yp.y) y++; if(y>pat->p.y) y--; if(pat->dir==R_LEFT || pat->dir==R_RIGHT) board_matrix[x][y]|=HMASK; if(pat->dir==R_DOWN || pat->dir==R_UP) board_matrix[x][y]|=VMASK; } pat = pat->next; } } static GuiPin *find_gui_pin(Breadboard_Window *bbw, stimulus *pin); #define MAX_PATHS 32 static path *shortest_path[100][100];//[MAX_PATHS]=0; static int pathlen[100][100]; static int *permutations; static int *shortest_permutation; #include static void reverse_path(path **pat) { path *next, *last=0; while(*pat != 0) { // Keep a pointer to next next = (*pat)->next; // New next poins to last (reversing the list) (*pat)->next = last; last = *pat; *pat = next; } *pat = last; } static void reverse_path_if_endpoint(point startpoint, path **pat) { point pat_start, pat_end; int dist_start, dist_end; path *iter; iter = *pat; pat_start = iter->p; while(iter->next!=0) iter=iter->next; pat_end = iter->p; dist_start = abs(pat_start.x-startpoint.x) + abs(pat_start.y-startpoint.y); dist_end = abs(pat_end.x-startpoint.x) + abs(pat_end.y-startpoint.y); if(dist_start > dist_end && dist_end<5) { // Reverse the list *pat reverse_path(pat); } } static void reverse_path_if_startpoint(point startpoint, path **pat) { point pat_start, pat_end; int dist_start, dist_end; path *iter; iter = *pat; pat_start = iter->p; while(iter->next!=0) iter=iter->next; pat_end = iter->p; dist_start = abs(pat_start.x-startpoint.x) + abs(pat_start.y-startpoint.y); dist_end = abs(pat_end.x-startpoint.x) + abs(pat_end.y-startpoint.y); if(dist_start < dist_end && dist_start<5) { // Reverse the list *pat reverse_path(pat); } } static void path_copy_and_cat(path **pat, path **source) { path *dest, *prev=0; dest = *pat; if(dest!=0) { reverse_path_if_startpoint((*source)->p, pat); while(dest->next!=0) { dest=dest->next; } reverse_path_if_endpoint(dest->p, source); if((abs((*source)->p.x-dest->p.x) + abs((*source)->p.y-dest->p.y)) > 5) { puts("Assert failure"); printf("%d, %d\n", abs((*source)->p.x-dest->p.x), abs((*source)->p.y-dest->p.y)); } prev = dest; dest=dest->next; } path *sourceiter = *source; while(sourceiter!=0) { dest = (path*) malloc(sizeof(path)); memcpy(dest, sourceiter, sizeof(path)); dest->next=0; if(*pat==0) *pat=dest; if(prev!=0) { prev->next = dest; } prev = dest; sourceiter=sourceiter->next; } } /* Trace a node, and add result to nodepath_list */ static void trace_node(struct gui_node *gn) { GuiPin *p; Breadboard_Window *bbw; stimulus *stimulus; GList *pinlist=0; int nr_of_nodes=0; int i,j; int didnt_work=0; point start={-1,-1},end; bbw=gn->bbw; stimulus = gn->node->stimuli; // Make a glist of all gui_pins in the node while(stimulus!=0) { p = find_gui_pin(bbw, stimulus); if (p) { pinlist = g_list_append(pinlist, p); nr_of_nodes++; } stimulus=stimulus->next; } // Allocate an array of shortest_paths, indexed with 2x glist position. //FIXME shortest_path = (path***) malloc(nr_of_nodes*nr_of_nodes*sizeof(path*)); permutations = (int*)malloc(sizeof(int)*nr_of_nodes); shortest_permutation = (int*)malloc(sizeof(int)*nr_of_nodes); for(i=0;i(li->data); fflush(stdout); for(j=i+1;j(lj->data); start.x=pi->x()/ROUTE_RES; start.y=pi->y()/ROUTE_RES; end.x=pj->x()/ROUTE_RES; end.y=pj->y()/ROUTE_RES; // printf("Tracing from %d,%d to %d,%d\n",start.x,start.y,end.x,end.y); maxdepth=abs(start.x-end.x)+abs(start.y-end.y); maxdepth=maxdepth*2+100; // Twice the distance, and 5 turns // printf("Trying maxdepth %d\n",maxdepth); trace_two_points(&shortest_path[i][j], start, end,0,R_UP); if(shortest_path[i][j]==0) { printf("\n### Couldn't trace from pin %s to pin %s!\n", pi->getIOpin()->name().c_str(), pj->getIOpin()->name().c_str()); didnt_work=1; } pathlen[i][j]=maxdepth; pathlen[j][i]=maxdepth; shortest_path[j][i]=shortest_path[i][j]; } } if(didnt_work) { printf("\n###### Couldn't trace node %s!\n",gn->node->name().c_str()); for(i=0;imodules; while(iter) { GuiModule *m = static_cast(iter->data); int i; for(i=1;i<=m->module()->get_pin_count();i++) { stimulus *p; p=m->module()->get_pin(i); if(p == pin) { GList *e; e = g_list_nth(m->pins(), i-1); return static_cast(e->data); } } iter = iter->next; } return 0; } static gboolean expose_pin(GtkWidget *widget, GdkEventExpose *event, GuiPin *p) { if(p->pixmap==0) { puts("bbw.c: no pixmap1!"); return 0; } gdk_draw_pixmap(widget->window, widget->style->fg_gc[GTK_WIDGET_STATE (widget)], p->pixmap, event->area.x, event->area.y, event->area.x, event->area.y, event->area.width, event->area.height); return 0; } static void treeselect_stimulus(GtkItem *item, GuiPin *pin) { char text[STRING_SIZE]; char string[STRING_SIZE]; const char *pText = "Not connected"; const char *pString = "Stimulus"; if(!pin) return; gtk_widget_show(pin->bbw()->stimulus_frame); gtk_widget_hide(pin->bbw()->node_frame); gtk_widget_hide(pin->bbw()->module_frame); gtk_widget_hide(pin->bbw()->pic_frame); if(pin->getIOpin()) { snprintf(string,sizeof(string),"Stimulus %s",pin->getIOpin()->name().c_str()); pString = string; if(pin->getSnode()!=0) snprintf(text,sizeof(text),"Connected to node %s", pin->getSnode()->name().c_str()); else snprintf(text,sizeof(text),"Not connected"); pText = text; } gtk_frame_set_label(GTK_FRAME(pin->bbw()->stimulus_frame),pString); gtk_label_set_text(GTK_LABEL(pin->bbw()->stimulus_settings_label), pText); pin->bbw()->selected_pin = pin; } static void treeselect_node(GtkItem *item, struct gui_node *gui_node) { char name[STRING_SIZE]; char *text[1]; stimulus *stimulus; char str[STRING_SIZE]; text[0]=name; // printf("treeselect_node %p\n",gui_node); if(gui_node->node!=0) { snprintf(str,sizeof(str),"Node %s",gui_node->node->name().c_str()); gtk_frame_set_label(GTK_FRAME(gui_node->bbw->node_frame),str); gtk_widget_show(gui_node->bbw->node_frame); } else { gtk_widget_hide(gui_node->bbw->node_frame); } gtk_widget_hide(gui_node->bbw->stimulus_frame); gtk_widget_hide(gui_node->bbw->module_frame); gtk_widget_hide(gui_node->bbw->pic_frame); // Clear node_clist gtk_clist_clear(GTK_CLIST(gui_node->bbw->node_clist)); if(gui_node->node!=0) { // Add to node_clist stimulus = gui_node->node->stimuli; while(stimulus!=0) { int row; strncpy(name, stimulus->name().c_str(), sizeof(name)); row = gtk_clist_append(GTK_CLIST(gui_node->bbw->node_clist), text); gtk_clist_set_row_data (GTK_CLIST(gui_node->bbw->node_clist), row, stimulus); stimulus = stimulus->next; } } gui_node->bbw->selected_node = gui_node; } static const char *mod_name; static void settings_clist_cb(GtkCList *clist, gint row, gint column, GdkEvent *event, Breadboard_Window *bbw) { // Save the Attribute* Value *attr; char str[256]; char val[256]; attr = (Value*) gtk_clist_get_row_data(GTK_CLIST(bbw->attribute_clist), row); //attr->getAsStr(attrstr,50); attr->get(val, sizeof(val)); if (mod_name) { sprintf(str,"%s.%s = %s",mod_name, attr->name().c_str(),val); } else { sprintf(str,"%s = %s",attr->name().c_str(),val); } gtk_entry_set_text(GTK_ENTRY(bbw->attribute_entry), str); } static void settings_set_cb(GtkWidget *button, Breadboard_Window *bbw) { const char *entry_string; char attribute_name[256]; char attribute_newval[256]; // We get here from both the button and entry->enter // Check the entry. entry_string=gtk_entry_get_text(GTK_ENTRY(bbw->attribute_entry)); sscanf(entry_string,"%s = %s",attribute_name, attribute_newval); printf("change attribute \"%s\" to \"%s\"\n",attribute_name, attribute_newval); Value *attr; // Change the Attribute //attr = bbw->selected_module->module->get_attribute(attribute_name); attr = globalSymbolTable().findValue(attribute_name); if(attr) { try { // Set attribute attr->set(attribute_newval); // Update clist treeselect_module(0, bbw->selected_module); } catch (Error *err) { if(err) cout << __FUNCTION__ <<": " << err->toString() << endl; delete err; } } else { printf("Could not find attribute \"%s\"\n",attribute_name); } } //static Breadboard_Window *lpBW; static GtkWidget *attribute_clist; static void clistOneAttribute(const SymbolEntry_t &sym) { Value *pVal = dynamic_cast(sym.second); if (attribute_clist && pVal) { // read attributes and add to clist char attribute_value[STRING_SIZE]; char attribute_string[STRING_SIZE]; char *text[1]={attribute_string}; // Filter out non-attributes if ( !strstr(typeid(*pVal).name(), "Attribute") ) return; pVal->get(attribute_value, sizeof(attribute_value)); sprintf(attribute_string,"%s = %s", pVal->name().c_str(),attribute_value); int row = gtk_clist_append(GTK_CLIST(attribute_clist), text); // add the Attribute* as data for the clist rows. gtk_clist_set_row_data(GTK_CLIST(attribute_clist), row, (gpointer)pVal); } } static void buildCLISTAttribute(const SymbolTableEntry_t &st) { if (strcmp(st.first.c_str(), mod_name) == 0) { if(verbose)cout << " gui Module Attribute Window: " << st.first << endl; (st.second)->ForEachSymbolTable(clistOneAttribute); } } static void UpdateModuleFrame(GuiModule *p, Breadboard_Window *bbw) { char buffer[STRING_SIZE]; snprintf(buffer,sizeof(buffer),"%s settings",p->module()->name().c_str()); gtk_frame_set_label(GTK_FRAME(p->bbw()->module_frame),buffer); if( !GTK_WIDGET_VISIBLE(GTK_CLIST(p->bbw()->attribute_clist))) return; // clear clist gtk_clist_clear(GTK_CLIST(p->bbw()->attribute_clist)); // lpBW = p->bbw(); attribute_clist = p->bbw()->attribute_clist; mod_name = p->module()->name().c_str(); globalSymbolTable().ForEachModule(buildCLISTAttribute); attribute_clist = NULL; // lpBW = 0; // mod_name = 0; gtk_entry_set_text(GTK_ENTRY(p->bbw()->attribute_entry), ""); } static void treeselect_module(GtkItem *item, GuiModule *p) { if (p) { gtk_widget_hide(p->bbw()->stimulus_frame); gtk_widget_hide(p->bbw()->node_frame); gtk_widget_hide(p->bbw()->pic_frame); gtk_widget_show(p->bbw()->module_frame); UpdateModuleFrame(p, p->bbw()); p->bbw()->selected_module = p; } } void GuiModule::SetPosition(int nx, int ny) { GList *piniter; nx=nx-nx%pinspacing; ny=ny-ny%pinspacing; if(nx != m_x || ny != m_y) { m_x=nx; m_y=ny; Value *xpos = dynamic_cast (m_module->findSymbol("xpos")); Value *ypos = dynamic_cast (m_module->findSymbol("ypos")); if(xpos) xpos->set(m_x); if(ypos) ypos->set(m_y); // Position module_widget if (m_pinLabel_widget) gtk_layout_move(GTK_LAYOUT(m_bbw->layout), m_pinLabel_widget, m_x, m_y); if (m_module_widget) gtk_layout_move(GTK_LAYOUT(m_bbw->layout), m_module_widget, m_x + m_module_x, m_y + m_module_y); // Position module_name gtk_layout_move(GTK_LAYOUT(m_bbw->layout), m_name_widget, m_x, m_y-20); // Position pins piniter = m_pins; while(piniter!=0) { GuiPin *pin = static_cast(piniter->data); if(pin->orientation==RIGHT) pin->SetPosition(m_x + pin->module_x()+PINLENGTH,m_y + pin->module_y() + pin->height()/2); else pin->SetPosition(m_x + pin->module_x(), m_y + pin->module_y() + pin->height()/2); gtk_layout_move(GTK_LAYOUT(m_bbw->layout), pin->m_pinDrawingArea,m_x+pin->module_x(),m_y+pin->module_y()); piniter = piniter->next; } } } void GuiModule::GetPosition(int &x, int &y) { Value *xpos = dynamic_cast (m_module->findSymbol("xpos")); Value *ypos = dynamic_cast (m_module->findSymbol("ypos")); x = xpos ? (gint64)*xpos : m_x; y = ypos ? (gint64)*ypos : m_y; } /* FIXME: calculate distance to the edges instead of the corners. */ double GuiModule::Distance(int px, int py) { double distance; double min_distance=100000000; // Upper left distance=sqrt((double)abs(m_x-px)*abs(m_x-px) + abs(m_y-py)*abs(m_y-py)); if(distancemodules; while(mi) { GuiModule *p = static_cast(mi->data); distance = p->Distance(x,y); if(distancenext; } return closest; } // FIXME static GuiModule *dragged_module=0; static int dragging=0; static int grab_next_module=0; void grab_module(GuiModule *p) { dragged_module = p; gdk_pointer_grab(p->bbw()->layout->window, TRUE, (GdkEventMask)(GDK_POINTER_MOTION_MASK|GDK_BUTTON_PRESS_MASK), p->bbw()->layout->window, 0, GDK_CURRENT_TIME); treeselect_module(0,dragged_module); dragging = 1; clear_nodes(p->bbw()); draw_nodes(p->bbw()); gtk_widget_set_app_paintable(p->bbw()->layout, FALSE); } static void pointer_cb(GtkWidget *w, GdkEventButton *event, Breadboard_Window *bbw) { static int x,y; x = (int) (event->x #if GTK_MAJOR_VERSION < 2 + bbw->hadj->value #endif ); y = (int) (event->y #if GTK_MAJOR_VERSION < 2 + bbw->vadj->value #endif ); switch(event->type) { case GDK_MOTION_NOTIFY: if(dragging && 0 != dragged_module) { dragged_module->SetPosition(x+pinspacing, y+pinspacing); } break; case GDK_BUTTON_PRESS: if(grab_next_module) { if(dragging) { gdk_pointer_ungrab(GDK_CURRENT_TIME); dragging = 0; gtk_widget_set_app_paintable(bbw->layout, TRUE); grab_next_module=0; update_board_matrix(bbw); } } else { dragged_module = find_closest_module(bbw, x, y); if (0 != dragged_module) { gdk_pointer_grab(w->window, TRUE, (GdkEventMask)(GDK_POINTER_MOTION_MASK|GDK_BUTTON_PRESS_MASK), w->window, 0, GDK_CURRENT_TIME); treeselect_module(0,dragged_module); dragging = 1; clear_nodes(bbw); draw_nodes(bbw); gtk_widget_set_app_paintable(bbw->layout, FALSE); } } break; case GDK_2BUTTON_PRESS: break; case GDK_BUTTON_RELEASE: if(dragging) { gdk_pointer_ungrab(GDK_CURRENT_TIME); update_board_matrix(bbw); dragging = 0; gtk_widget_set_app_paintable(bbw->layout, TRUE); update_board_matrix(bbw); UpdateModuleFrame(dragged_module, bbw); } break; default: printf("Whoops? event type %d\n",event->type); break; } } // When clicked on a pin static gint button(GtkWidget *widget, GdkEventButton *event, GuiPin *p) { if(event->type==GDK_BUTTON_PRESS && event->button==1) { if(p->getSnode()) { struct gui_node *gn; gn = (struct gui_node *) gtk_object_get_data(GTK_OBJECT(p->bbw()->node_tree), p->getSnode()->name().c_str()); if(gn!=0) { treeselect_node(0, gn); return 1; } } treeselect_stimulus(0, p); //puts("Stimulus should now be selected"); return 1; } if(event->type==GDK_2BUTTON_PRESS && event->button==1) { p->toggleState(); return 1; } if(event->type==GDK_BUTTON_PRESS && event->button==2) { if(p->getSnode()) { struct gui_node *gn; gn = (struct gui_node *) gtk_object_get_data(GTK_OBJECT(p->bbw()->node_tree), p->getSnode()->name().c_str()); trace_node(gn); draw_nodes(gn->bbw); } return 1; } return 0; } // get_string static void a_cb(GtkWidget *w, gpointer user_data) { *(int*)user_data=TRUE; } static void b_cb(GtkWidget *w, gpointer user_data) { *(int*)user_data=FALSE; } // used for reading a value from user when break on value is requested const char *gui_get_string(const char *prompt, const char *initial_text) { static GtkWidget *dialog=0; static GtkWidget *label; static GtkWidget *entry; static int retval; GtkWidget *button; GtkWidget *hbox; const char *string; retval=-1; if(dialog==0) { dialog = gtk_dialog_new(); gtk_window_set_title(GTK_WINDOW(dialog),"enter value"); gtk_signal_connect_object(GTK_OBJECT(dialog), "delete_event",GTK_SIGNAL_FUNC(gtk_widget_hide),GTK_OBJECT(dialog)); label=gtk_label_new("Enter string:"); gtk_widget_show(label); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->vbox), label,FALSE,FALSE,20); hbox = gtk_hbox_new(0,0); gtk_widget_show(hbox); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->vbox), hbox,FALSE,FALSE,20); button = gtk_button_new_with_label("OK"); gtk_widget_show(button); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->action_area), button, FALSE,FALSE,10); gtk_signal_connect(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(a_cb),(gpointer)&retval); button = gtk_button_new_with_label("Cancel"); gtk_widget_show(button); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->action_area), button, FALSE,FALSE,10); gtk_signal_connect(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(b_cb),(gpointer)&retval); label=gtk_label_new(prompt); gtk_widget_show(label); gtk_box_pack_start(GTK_BOX(hbox), label, FALSE,FALSE, 20); entry=gtk_entry_new(); gtk_widget_show(entry); gtk_box_pack_start(GTK_BOX(hbox), entry,FALSE,FALSE,20); GTK_WIDGET_SET_FLAGS (entry, GTK_CAN_FOCUS); gtk_signal_connect(GTK_OBJECT(entry), "activate", (GtkSignalFunc)a_cb, (gpointer)&retval); } else { gtk_label_set_text(GTK_LABEL(label),prompt); } gtk_entry_set_text(GTK_ENTRY(entry), initial_text); gtk_widget_show(dialog); gtk_widget_grab_focus (entry); gtk_grab_add(dialog); while(retval==-1 && GTK_WIDGET_VISIBLE(dialog)) gtk_main_iteration(); gtk_grab_remove(dialog); gtk_widget_hide(dialog); if(retval==(int)TRUE) string=gtk_entry_get_text(GTK_ENTRY(entry)); else string=0; return string; } static void add_new_snode(GtkWidget *button, Breadboard_Window *bbw) { const char *node_name = gui_get_string("Node name",""); if(node_name !=0) new Stimulus_Node(node_name); } //////////////////////////////////////////////////////////////////// static gint ok_cb(GtkWidget *widget, GdkEventButton *event, gpointer user_data) { if(event->type==GDK_2BUTTON_PRESS && event->button==1) { *(int*)user_data=FALSE; // cancel=FALSE; return 1; } return 0; } static void cancel_cb(GtkWidget *w, gpointer user_data) { *(int*)user_data=TRUE; // cancel=TRUE; } // Select row static void node_cb(GtkCList *clist, gint row, gint column, GdkEvent *event, gpointer user_data) { Stimulus_Node *snode; snode = (Stimulus_Node*)gtk_clist_get_row_data (clist, row); *((Stimulus_Node**) user_data)=snode; } static void module_cb(GtkCList *clist, gint row, gint column, GdkEvent *event, gpointer user_data) { char *module_type; module_type = (char*) gtk_clist_get_row_data (clist, row); strncpy((char*) user_data, module_type, STRING_SIZE); } static void copy_node_tree_to_clist(GtkWidget *item, gpointer clist) { Stimulus_Node *node; char name[STRING_SIZE]; char *text[1]={name}; int row; node = (Stimulus_Node*)gtk_object_get_data(GTK_OBJECT(item), "snode"); strcpy(name,node->name().c_str()); row = gtk_clist_append(GTK_CLIST(clist), text); gtk_clist_set_row_data (GTK_CLIST(clist), row, (gpointer)node); } static Stimulus_Node *select_node_dialog(Breadboard_Window *bbw) { static GtkWidget *dialog; static GtkWidget *node_clist; GtkWidget *cancelbutton; static int cancel; cancel=-1; Stimulus_Node *snode=0; GtkWidget *vbox; GtkWidget *scrolledwindow; if(dialog==0) { // Build window dialog = gtk_dialog_new(); gtk_window_set_title (GTK_WINDOW (dialog), "Select node to connect to"); vbox = GTK_DIALOG(dialog)->vbox; scrolledwindow = gtk_scrolled_window_new (0, 0); gtk_widget_show (scrolledwindow); gtk_box_pack_start (GTK_BOX (vbox), scrolledwindow, TRUE, TRUE, 0); gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolledwindow), GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC); node_clist = gtk_clist_new (1); // The following line is silly but it stops GTK printing an assert // in Fedora 19 with Adwaita theme gtk_widget_set_style(node_clist, gtk_widget_get_style(node_clist)); gtk_widget_show (node_clist); gtk_container_add (GTK_CONTAINER(scrolledwindow), node_clist); cancelbutton = gtk_button_new_with_label ("Cancel"); gtk_widget_show (cancelbutton); gtk_box_pack_start (GTK_BOX(GTK_DIALOG(dialog)->action_area), cancelbutton, FALSE, FALSE, 0); gtk_signal_connect(GTK_OBJECT(cancelbutton),"clicked", GTK_SIGNAL_FUNC(cancel_cb),(gpointer)&cancel); gtk_signal_connect(GTK_OBJECT(node_clist), "select_row", (GtkSignalFunc) node_cb, (gpointer)&snode); gtk_signal_connect(GTK_OBJECT(node_clist), "button_press_event", GTK_SIGNAL_FUNC(ok_cb), (gpointer)&cancel); gtk_window_set_default_size(GTK_WINDOW(dialog), 220, 400); } gtk_clist_clear(GTK_CLIST(node_clist)); // Add all nodes gtk_container_foreach(GTK_CONTAINER(bbw->node_tree), copy_node_tree_to_clist, (gpointer)node_clist); gtk_widget_show(dialog); gtk_grab_add(dialog); while(cancel==-1 && GTK_WIDGET_VISIBLE(dialog)) gtk_main_iteration(); gtk_grab_remove(dialog); if(cancel==(int)TRUE) { gtk_widget_hide(dialog); return 0; } gtk_widget_hide(dialog); return snode; } static char *select_module_dialog(Breadboard_Window *bbw) { static GtkWidget *dialog; static GtkWidget *module_clist; GtkWidget *cancelbutton; static int cancel; static char module_type[STRING_SIZE]; GtkWidget *vbox; GtkWidget *scrolledwindow; const gchar *module_clist_titles[]={"Name1","Name2", "Library"}; cancel=-1; if(dialog==0) { // Build window dialog = gtk_dialog_new(); gtk_window_set_title (GTK_WINDOW (dialog), "Select module to load"); vbox = GTK_DIALOG(dialog)->vbox; scrolledwindow = gtk_scrolled_window_new (0, 0); gtk_widget_show (scrolledwindow); gtk_box_pack_start (GTK_BOX (vbox), scrolledwindow, TRUE, TRUE, 0); gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolledwindow), GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC); #ifdef OLD_MODULE_LIBRARY module_clist = gtk_clist_new_with_titles (2, (gchar **)module_clist_titles); #else module_clist = gtk_clist_new_with_titles (3, (gchar **)module_clist_titles); #endif // The following line is silly but it stops GTK printing an assert // in Fedora 19 with Adwaita theme gtk_widget_set_style(module_clist, gtk_widget_get_style(module_clist)); gtk_clist_set_column_auto_resize(GTK_CLIST(module_clist),0,TRUE); gtk_widget_show (module_clist); gtk_container_add (GTK_CONTAINER(scrolledwindow), module_clist); cancelbutton = gtk_button_new_with_label ("Cancel"); gtk_widget_show (cancelbutton); gtk_box_pack_start (GTK_BOX(GTK_DIALOG(dialog)->action_area), cancelbutton, FALSE, FALSE, 0); gtk_signal_connect(GTK_OBJECT(cancelbutton),"clicked", GTK_SIGNAL_FUNC(cancel_cb),(gpointer)&cancel); gtk_signal_connect(GTK_OBJECT(module_clist), "select_row", (GtkSignalFunc) module_cb, (gpointer)&module_type); gtk_signal_connect(GTK_OBJECT(module_clist), "button_press_event", GTK_SIGNAL_FUNC(ok_cb), (gpointer)&cancel); gtk_window_set_default_size(GTK_WINDOW(dialog), 220, 400); } gtk_clist_clear(GTK_CLIST(module_clist)); #ifdef OLD_MODULE_LIBRARY ModuleLibrary::FileList::iterator mi; ModuleLibrary::FileList::iterator itFileListEnd(ModuleLibrary::GetFileList().end()); // Add all modules for (mi = ModuleLibrary::GetFileList().begin(); mi != itFileListEnd; mi++) { ModuleLibrary::File *t = *mi; cout << t->name() << '\n'; Module_Types * pFileTypes; if((pFileTypes = t->get_mod_list())) { // Loop through the list and display all of the modules. int i=0; while(pFileTypes[i].names[0]) { char name[STRING_SIZE]; char library[STRING_SIZE]; char *text[2]={name, library}; int row; strncpy(name,pFileTypes[i].names[0], STRING_SIZE); strncpy(library,t->name(), STRING_SIZE); row = gtk_clist_append(GTK_CLIST(module_clist), text); gtk_clist_set_row_data (GTK_CLIST(module_clist), row, (gpointer)pFileTypes[i].names[1]); i++; } } } #else //OLD_MODULE_LIBRARY extern ModuleLibraries_t ModuleLibraries; for ( ModuleLibraries_t::iterator mti = ModuleLibraries.begin(); mti != ModuleLibraries.end(); ++mti) { const char *text[3]; int row; Module_Types * (*get_mod_list)(void) = mti->second->mod_list(); Module_Types *pLibModList = get_mod_list(); text[2] = mti->second->user_name().c_str(); if(pLibModList) for(Module_Types *pModTypes = pLibModList; pModTypes->names[0]; pModTypes++) { text[0] = pModTypes->names[0]; text[1] = pModTypes->names[1]; row = gtk_clist_append(GTK_CLIST(module_clist), (gchar **)text); // dirty and dangerous cast from const char ** to gchar ** gtk_clist_set_row_data (GTK_CLIST(module_clist), row, (gpointer)(text[0])); } } #endif gtk_widget_show(dialog); gtk_grab_add(dialog); while(cancel==-1 && GTK_WIDGET_VISIBLE(dialog)) gtk_main_iteration(); gtk_grab_remove(dialog); if(cancel==(int)TRUE) { gtk_widget_hide(dialog); return 0; } gtk_widget_hide(dialog); return module_type; } #if 0 // Display a file in a text widget. static void text_dialog(const char *filename) { static GtkWidget *dialog; GtkWidget *cancelbutton; GtkWidget *vbox; GtkWidget *scrolledwindow; GtkWidget *text; char string[STRING_SIZE]; FILE *fi=fopen(filename,"r"); if(fi==0) return; if(dialog!=0) gtk_widget_destroy(dialog); // Build window dialog = gtk_dialog_new(); gtk_window_set_title (GTK_WINDOW (dialog), filename); vbox = GTK_DIALOG(dialog)->vbox; scrolledwindow = gtk_scrolled_window_new (0, 0); gtk_widget_show (scrolledwindow); gtk_box_pack_start (GTK_BOX (vbox), scrolledwindow, TRUE, TRUE, 0); gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolledwindow), GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC); text = gtk_text_new(0,0); gtk_container_add (GTK_CONTAINER(scrolledwindow), text); gtk_widget_show(text); cancelbutton = gtk_button_new_with_label ("Ok"); gtk_widget_show (cancelbutton); gtk_box_pack_start (GTK_BOX(GTK_DIALOG(dialog)->action_area), cancelbutton, FALSE, FALSE, 0); gtk_signal_connect_object(GTK_OBJECT(cancelbutton),"clicked", GTK_SIGNAL_FUNC(gtk_widget_hide),GTK_OBJECT(dialog)); gtk_window_set_default_size(GTK_WINDOW(dialog), 400, 400); while(fgets(string, sizeof(string), fi)!=0) { gtk_text_insert(GTK_TEXT(text), 0, 0, 0, string, strlen(string)); } fclose(fi); gtk_widget_show(dialog); return; } #endif static void stimulus_add_node(GtkWidget *button, Breadboard_Window *bbw) { Stimulus_Node *node; node = select_node_dialog(bbw); if(node!=0 && bbw->selected_pin!=0) { node->attach_stimulus(bbw->selected_pin->getIOpin()); // Update stimulus frame treeselect_stimulus(0, bbw->selected_pin); } } static void add_library(GtkWidget *button, Breadboard_Window *bbw) { #ifdef OLD_MODULE_LIBRARY const char *library_name; library_name = gui_get_string("Module library name (e.g. libgpsim_modules)",""); if(library_name) ModuleLibrary::LoadFile(library_name); #else const char *library_name; library_name = gui_get_string("Module library name (e.g. libgpsim_modules)",""); if(library_name) { string lib_name = library_name; ModuleLibrary::LoadFile(lib_name); } #endif } static void add_module(GtkWidget *button, Breadboard_Window *bbw) { char *module_type; const char *module_name; module_type = select_module_dialog(bbw); if(module_type!=0) { module_name = gui_get_string("Module name", module_type); grab_next_module = 1; if(module_name != 0) #ifdef OLD_MODULE_LIBRARY ModuleLibrary::NewObject(module_type, module_name); #else { string mName = module_type; string refDes = module_name; if(!ModuleLibrary::InstantiateObject(mName,refDes)) fprintf(stderr, "Module load of %s %s failed\n", module_type, module_name); } #endif } } static void remove_module(GtkWidget *button, Breadboard_Window *bbw) { GList *pin_iter; delete(bbw->selected_module->module()); // FIXME the rest should be as callback from src // Remove pins pin_iter=bbw->selected_module->pins(); while(pin_iter!=0) { GuiPin *pin = static_cast(pin_iter->data); gtk_widget_destroy(GTK_WIDGET(pin->m_pinDrawingArea)); pin_iter = pin_iter->next; } // Remove widget if (bbw->selected_module->module_widget()) gtk_container_remove(GTK_CONTAINER(bbw->layout), bbw->selected_module->module_widget()); if (bbw->selected_module->pinLabel_widget()) gtk_container_remove(GTK_CONTAINER(bbw->layout), bbw->selected_module->pinLabel_widget()); gtk_container_remove(GTK_CONTAINER(bbw->layout), bbw->selected_module->name_widget()); // Remove from local list of modules bbw->modules=g_list_remove(bbw->modules, bbw->selected_module); // Remove module from tree gtk_container_remove(GTK_CONTAINER(bbw->tree), bbw->selected_module->tree_item()); gtk_widget_hide(bbw->module_frame); gtk_widget_hide(bbw->pic_frame); free(bbw->selected_module); bbw->selected_module=0; } static void node_clist_cb(GtkCList *clist, gint row, gint column, GdkEvent *event, Breadboard_Window *bbw) { bbw->selected_node->selected_row = row; } static void remove_node(GtkWidget *button, Breadboard_Window *bbw) { gtk_object_remove_data(GTK_OBJECT(bbw->node_tree), bbw->selected_node->node->name().c_str()); gtk_object_remove_data(GTK_OBJECT(bbw->selected_node->tree_item), "snode"); gtk_container_remove(GTK_CONTAINER(bbw->node_tree), bbw->selected_node->tree_item); delete bbw->selected_node->node; free(bbw->selected_node); bbw->selected_node=0; gtk_widget_hide(bbw->node_frame); gtk_widget_hide(bbw->stimulus_frame); gtk_widget_hide(bbw->module_frame); gtk_widget_hide(bbw->pic_frame); } static void remove_node_stimulus(GtkWidget *button, Breadboard_Window *bbw) { stimulus *s; s = (stimulus*) gtk_clist_get_row_data(GTK_CLIST(bbw->node_clist), bbw->selected_node->selected_row); bbw->selected_node->node->detach_stimulus(s); gtk_clist_remove(GTK_CLIST(bbw->node_clist), bbw->selected_node->selected_row); bbw->selected_node->selected_row=-1; } ////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////// static const char *file_selection_name; static int fs_done; static void file_selection_ok (GtkWidget *w, GtkFileSelection *fs) { file_selection_name=gtk_file_selection_get_filename (fs); fs_done=1; } static void file_selection_cancel (GtkWidget *w, GtkFileSelection *fs) { file_selection_name=0; fs_done=1; } static const char *gui_get_filename(const char *filename) { static GtkWidget *window = 0; const char *prompt="Log settings"; if (!window) { window = gtk_file_selection_new (prompt); gtk_file_selection_hide_fileop_buttons (GTK_FILE_SELECTION (window)); gtk_window_set_position (GTK_WINDOW (window), GTK_WIN_POS_MOUSE); gtk_signal_connect_object(GTK_OBJECT(window), "delete_event",GTK_SIGNAL_FUNC(gtk_widget_hide),GTK_OBJECT(window)); gtk_signal_connect (GTK_OBJECT (GTK_FILE_SELECTION (window)->ok_button), "clicked", GTK_SIGNAL_FUNC(file_selection_ok), window); gtk_signal_connect (GTK_OBJECT (GTK_FILE_SELECTION (window)->cancel_button), "clicked", GTK_SIGNAL_FUNC(file_selection_cancel), window); } gtk_file_selection_set_filename(GTK_FILE_SELECTION (window), filename); file_selection_name=0; gtk_widget_show_now(window); fs_done=0; file_selection_name=0; gtk_grab_add(window); while(!fs_done && GTK_WIDGET_VISIBLE(window)) gtk_main_iteration(); gtk_grab_remove(window); gtk_widget_hide(window); if(file_selection_name==0) { return 0; } return file_selection_name; } static FILE *fo; static void OneAttribute(const SymbolEntry_t &sym) { Value *pVal = dynamic_cast(sym.second); if (pVal && fo) { // read attributes and add to clist if ( strstr(typeid(*pVal).name(), "Attribute") ) { char attribute_value[STRING_SIZE]; pVal->get(attribute_value, sizeof(attribute_value)); fprintf(fo, "%s.%s = %s\n", mod_name, pVal->name().c_str(), attribute_value); } } } ////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////// static void save_stc(GtkWidget *button, Breadboard_Window *bbw) { GList *module_iterator; Module *m; SymbolTable_t *st; const char *filename; filename = gui_get_filename("netlist.stc"); if(filename == NULL) filename="/tmp/foo.stc"; if ((fo = fopen(filename, "w")) == NULL) { perror(filename); return; } fprintf(fo, "\n# This file was written by gpsim.\n"); fprintf(fo, "\n# You can use this file for example like this:"); fprintf(fo, "\n# gpsim -s mycode.cod -c netlist.stc\n"); fprintf(fo, "\n# If you want to add commands, you can create another .stc file"); fprintf(fo, "\n# and load this file from it. Something like this:"); fprintf(fo, "\n# ----------- myproject.stc ---------------"); fprintf(fo, "\n# load s mycode.cod"); fprintf(fo, "\n# frequency 12000000"); fprintf(fo, "\n# load c netlist.stc"); fprintf(fo, "\n# -----------------------------------------"); fprintf(fo, "\n# You can then just load this new file:"); fprintf(fo, "\n# gpsim -c myproject.stc"); fprintf(fo, "\n# and use netlist.stc whenever you save from the breadboard."); fprintf(fo, "\n#"); fprintf(fo, "\n"); fprintf(fo, "\n\n# Processor position:\n"); #ifdef OLD_MODULE_LIBRARY // Save module libraries fprintf(fo, "\n\n# Module libraries:\n"); ModuleLibrary::FileList::iterator mi; // Add all modules for (mi = ModuleLibrary::GetFileList().begin(); mi != ModuleLibrary::GetFileList().end(); mi++) { ModuleLibrary::File *t = *mi; fprintf(fo, "module library %s\n", t->name()); } #else extern ModuleLibraries_t ModuleLibraries; for ( ModuleLibraries_t::iterator mti = ModuleLibraries.begin(); mti != ModuleLibraries.end(); ++mti) { fprintf(fo, "module library %s\n", mti->second->user_name().c_str()); } #endif // Save modules fprintf(fo, "\n\n# Modules:\n"); module_iterator = bbw->modules; while(module_iterator!=0) { GuiModule *p; p = static_cast( module_iterator->data); list :: iterator attribute_iterator; m = p->module(); st = &m->getSymbolTable(); Processor *cpu; cpu=dynamic_cast(m); if(cpu==0) { // Module, not a processor, so add the load command fprintf(fo, "module load %s %s\n", m->type(), m->name().c_str()); } /* else { fprintf(fo, "processor %s %s\n", m->type(), m->name().c_str()); } */ mod_name = m->name().c_str(); st->ForEachSymbolTable(OneAttribute); fprintf(fo, "\n"); module_iterator=module_iterator->next; } // Save nodes and connections fprintf(fo, "\n\n# Connections:\n"); GList *list; for(int i = 0; (list = g_list_nth(bbw->nodes,i)); i++) { Stimulus_Node *node = (Stimulus_Node *)list->data; stimulus *stimulus; fprintf(fo, "node %s\n",node->name().c_str()); if(node->stimuli!=0) { fprintf(fo, "attach %s",node->name().c_str()); for (stimulus = node->stimuli; stimulus; stimulus = stimulus->next) fprintf(fo, " %s",stimulus->name().c_str()); } fprintf(fo, "\n\n"); } fprintf(fo, "\n\n# End.\n"); fclose(fo); fo = NULL; //text_dialog(filename); } static void clear_traces(GtkWidget *button, Breadboard_Window *bbw) { update_board_matrix(bbw); } static void trace_all_foreach_function(GtkWidget *item, gpointer bbw_gpointer) { Stimulus_Node *node; Breadboard_Window *bbw = (Breadboard_Window*)bbw_gpointer; node = (Stimulus_Node*)gtk_object_get_data(GTK_OBJECT(item), "snode"); struct gui_node * gn = (struct gui_node*) gtk_object_get_data(GTK_OBJECT(((Breadboard_Window*)bbw)->node_tree), node->name().c_str()); trace_node(gn); } static void trace_all(GtkWidget *button, Breadboard_Window *bbw) { update_board_matrix(bbw); gtk_container_foreach(GTK_CONTAINER(bbw->node_tree), trace_all_foreach_function, (gpointer)bbw); draw_nodes(bbw); if (verbose) puts("Trace all is done."); } //======================================================================== GuiBreadBoardObject::GuiBreadBoardObject(Breadboard_Window *bbw,int x, int y) : m_bbw(bbw), m_x(x), m_y(y), m_width(0), m_height(0), m_bIsBuilt(false) { } GuiBreadBoardObject::~GuiBreadBoardObject() { } void GuiBreadBoardObject::SetPosition(int x, int y) { m_x = x; m_y = y; } void GuiPin::SetModulePosition(int x, int y) { m_module_x = x; m_module_y = y; } //======================================================================== GuiPin::GuiPin(Breadboard_Window *_bbw, GuiModule *pModule, Package *_package, unsigned int pin_number) : GuiBreadBoardObject(_bbw, 0, 0), package(_package), m_pModule(pModule), m_module_x(0), m_module_y(0), m_label_x(0), m_label_y(0), m_pkgPinNumber(pin_number) { IOPIN *iopin = getIOpin(); m_width=pinspacing; m_height=pinspacing; orientation = LEFT; gc=m_bbw->pinline_gc; if(iopin) { value=iopin->getState(); direction=iopin->get_direction()==0?PIN_INPUT:PIN_OUTPUT; //orientation=_orientation; type=PIN_DIGITAL; } else { value=false; direction=PIN_INPUT; //orientation=_orientation; type=PIN_OTHER; } // Create widget m_pinDrawingArea = gtk_drawing_area_new(); gtk_widget_set_events(m_pinDrawingArea, gtk_widget_get_events(m_pinDrawingArea)| GDK_BUTTON_PRESS_MASK); gtk_signal_connect(GTK_OBJECT(m_pinDrawingArea), "button_press_event", (GtkSignalFunc) button, this); gtk_drawing_area_size(GTK_DRAWING_AREA(m_pinDrawingArea),m_width,m_height); gtk_signal_connect(GTK_OBJECT(m_pinDrawingArea), "expose_event", (GtkSignalFunc) expose_pin, this); // Create pixmap for holding the pin graphics. pixmap = gdk_pixmap_new(m_bbw->window->window, m_width, m_height, -1); // Draw pin // Draw(); gtk_widget_show(m_pinDrawingArea); } const char *GuiPin::pinName() { IOPIN *iopin = getIOpin(); return iopin ? iopin->name().c_str() : 0; } //------------------------------------------------------------------------ // GuiPin::update() - check the state of the iopin and make the gui match // void GuiPin::Update() { IOPIN *iopin = getIOpin(); if(iopin) { bool value=iopin->getState(); eDirection dir=iopin->get_direction()==0?PIN_INPUT:PIN_OUTPUT; if(value!=getState() || dir!=direction) { putState(value); direction=dir; Draw(); } } } //------------------------------------------------------------------------ void GuiPin::toggleState() { IOPIN *iopin = getIOpin(); if(iopin) { char cPinState = iopin->getForcedDrivenState(); switch (cPinState) { case '0': case 'Z': case 'X': iopin->forceDrivenState('1'); break; case '1': iopin->forceDrivenState('0'); break; case 'W': iopin->forceDrivenState('w'); break; case 'w': iopin->forceDrivenState('W'); break; } m_bbw->Update(); } } //------------------------------------------------------------------------ // GuiPin::draw() - draw a single pin // // void GuiPin::Draw() { int pointx; int wingheight, wingx; int casex, endx; int y; switch(orientation) { case LEFT: casex = m_width; endx = 0; break; default: casex = 0; endx = m_width; break; } y = m_height/2; // Clear pixmap gdk_draw_rectangle (pixmap, m_bbw->window->style->bg_gc[GTK_WIDGET_STATE (m_pinDrawingArea)], TRUE, 0, 0, m_width, m_height); if(type==PIN_OTHER) gdk_gc_set_foreground(gc,&black_color); else gdk_gc_set_foreground(gc,getState() ? &high_output_color:&low_output_color); // Draw actual pin gdk_draw_line(pixmap,gc, casex,y,endx,y); if(type==PIN_OTHER) return; // Draw direction arrow wingheight=m_height/3; if(casex>endx) { if(direction==PIN_OUTPUT) { pointx = endx + PINLENGTH/3; wingx=endx+(PINLENGTH*2)/3; } else { pointx = endx + (PINLENGTH*2)/3; wingx=endx+PINLENGTH/3; } } else { if(direction==PIN_OUTPUT) { pointx = casex + (PINLENGTH*2)/3; wingx=casex+PINLENGTH/3; } else { pointx = casex + PINLENGTH/3; wingx=casex+(PINLENGTH*2)/3; } } // Draw an arrow poining at (endx,endy) gdk_draw_line(pixmap,gc, pointx,y,wingx,y+wingheight); gdk_draw_line(pixmap,gc, pointx,y,wingx,y-wingheight); if(m_pinDrawingArea->window!=0) gdk_draw_pixmap(m_pinDrawingArea->window, m_pinDrawingArea->style->fg_gc[GTK_WIDGET_STATE (m_pinDrawingArea)], pixmap, 0, 0, 0, 0, m_width, m_height); } //------------------------------------------------------------------------ void GuiPin::SetLabelPosition(int x, int y) { m_label_x = x; m_label_y = y; } //------------------------------------------------------------------------ // GuiPin::DrawLabel() - draw the label for a single pin // // void GuiPin::DrawLabel(GdkPixmap *module_pixmap) { const char *name; IOPIN *iopin = getIOpin(); name = iopin ? iopin->name().c_str() : ""; if(*name && m_bbw ) { gdk_draw_text(module_pixmap, #if GTK_MAJOR_VERSION >= 2 gdk_font_from_description(m_bbw->pinnamefont), #else m_bbw->pinnamefont, #endif m_bbw->pinname_gc, m_label_x, m_label_y, name,strlen(name)); } } //------------------------------------------------------------------------ // GuiPin::DrawGUIlabel() - Erase label and change to that set by newGUIname // // int GuiPin::DrawGUIlabel(GdkPixmap *module_pixmap, int pinnameWidths[]) { IOPIN *iopin = getIOpin(); const char *name; int orient; name = iopin ? iopin->GUIname().c_str() : ""; if(*name && m_bbw && iopin->is_newGUIname()) { iopin->clr_is_newGUIname(); orient = (m_label_x <= LABELPAD+CASELINEWIDTH)?0:2; // Left or Right label? // Clear label area gdk_draw_rectangle (module_pixmap, m_bbw->window->style->white_gc, TRUE, m_label_x, m_label_y-m_height+CASEOFFSET, pinnameWidths[orient], m_height); gdk_draw_text(module_pixmap, #if GTK_MAJOR_VERSION >= 2 gdk_font_from_description(m_bbw->pinnamefont), #else m_bbw->pinnamefont, #endif m_bbw->pinname_gc, m_label_x, m_label_y, name,strlen(name)); return 1; } return 0; } //------------------------------------------------------------------------ void GuiPin::addXref(CrossReferenceToGUI *newXref) { xref = newXref; } //------------------------------------------------------------------------ void GuiPin::Destroy() { if(xref) getIOpin()->remove_xref(xref); gdk_pixmap_unref(pixmap); gtk_widget_destroy(m_pinDrawingArea); } //------------------------------------------------------------------------ static gboolean name_expose(GtkWidget *widget, GdkEventExpose *event, GuiModule *p) { if(p->name_pixmap()==0) { puts("bbw.c: no pixmap2!"); return 0; } gdk_draw_pixmap(widget->window, widget->style->fg_gc[GTK_WIDGET_STATE (widget)], p->name_pixmap(), event->area.x, event->area.y, event->area.x, event->area.y, event->area.width, event->area.height); return 0; } static gboolean module_expose(GtkWidget *widget, GdkEventExpose *event, GuiModule *p) { if(p->module_pixmap()==0) { puts("bbw.c: no pixmap3!"); return 0; } gdk_draw_pixmap(widget->window, widget->style->fg_gc[GTK_WIDGET_STATE (widget)], p->module_pixmap(), event->area.x, event->area.y, event->area.x, event->area.y, event->area.width, event->area.height); return 0; } void GuiModule::Draw() { } void GuiModule::Destroy() { } #define PACKAGESPACING 15 void GuiModule::Update() { GList *pin_iter; gtk_widget_ref(m_pinLabel_widget); gtk_container_remove(GTK_CONTAINER(m_bbw->layout),m_pinLabel_widget); // Delete the static module pixmap if there is no widget // in the module. if(m_module->get_widget()==0) { gdk_pixmap_unref(m_module_pixmap); gtk_widget_destroy(m_pinLabel_widget); } // Delete the pins pin_iter=m_pins; while(pin_iter!=NULL) { GuiPin *pin = static_cast(pin_iter->data); pin->Destroy(); pin_iter=pin_iter->next; } // Destroy name widget gdk_pixmap_unref(m_name_pixmap); gtk_widget_destroy(m_name_widget); // Remove from gtk-tree gtk_tree_item_remove_subtree(GTK_TREE_ITEM(m_tree_item)); gtk_widget_destroy(m_tree_item); // Remove module from list m_bbw->modules=g_list_remove(m_bbw->modules, this); // rebuild module Build(); gtk_widget_unref(m_pinLabel_widget); } void GuiModule::UpdatePins() { int change = 0; GList *pin_iter; pin_iter=m_pins; while(pin_iter!=0) { GuiPin *pin = static_cast(pin_iter->data); change = pin->DrawGUIlabel(m_module_pixmap, pinnameWidths)?1:change; pin->Update(); pin_iter = pin_iter->next; } if (change && m_pinLabel_widget->window) // Pin label changed, Draw Labels { gdk_draw_pixmap(m_pinLabel_widget->window, m_pinLabel_widget->style->fg_gc[GTK_WIDGET_STATE (m_pinLabel_widget)], m_module_pixmap, 0, 0, 0, 0, m_width, m_height); } } //======================================================================== //======================================================================== class PositionAttribute : public Float { protected: Breadboard_Window *bbw; public: PositionAttribute(Breadboard_Window *_bbw,const char *n, double v); void set(Value *v); }; PositionAttribute::PositionAttribute(Breadboard_Window *_bbw, const char *n, double v) : Float(v), bbw(_bbw) { new_name((char*)n); } void PositionAttribute::set(Value *v) { Float::set(v); if(bbw) bbw->Update(); } //------------------------------------------------------------------------ void GuiModule::DrawCaseOutline(GtkWidget *da) { #if GTK_CHECK_VERSION(2,8,7) gdk_draw_rectangle (m_module_pixmap, m_bbw->window->style->bg_gc[GTK_WIDGET_STATE (m_bbw->window)], TRUE, 0, 0, m_width, m_height); cairo_t *cr = gdk_cairo_create (m_module_pixmap); cairo_rectangle(cr, CASEOFFSET,CASEOFFSET, m_width-2*CASEOFFSET, m_height-2*CASEOFFSET); cairo_set_source_rgb (cr, 1, 1, 1); cairo_fill_preserve (cr); cairo_set_source_rgb (cr, 0, 0, 0); cairo_stroke (cr); #else gdk_draw_rectangle (m_module_pixmap, m_bbw->window->style->white_gc, TRUE, CASEOFFSET, CASEOFFSET, m_width-CASEOFFSET, m_height-CASEOFFSET); // Draw case outline gdk_gc_set_foreground(m_bbw->case_gc,&black_color); gdk_draw_line(m_module_pixmap,m_bbw->case_gc,CASEOFFSET,CASEOFFSET, m_width-CASEOFFSET,CASEOFFSET); gdk_draw_line(m_module_pixmap,m_bbw->case_gc,m_width-CASEOFFSET,CASEOFFSET, m_width-CASEOFFSET,m_height-CASEOFFSET); gdk_draw_line(m_module_pixmap,m_bbw->case_gc,CASEOFFSET,m_height-CASEOFFSET, m_width-CASEOFFSET,m_height-CASEOFFSET); gdk_draw_line(m_module_pixmap,m_bbw->case_gc,CASEOFFSET,CASEOFFSET, CASEOFFSET,m_height-CASEOFFSET); #endif } //------------------------------------------------------------------------ // static float hackPackageHeight=0.0; void GuiModule::AddPin(unsigned int pin_number) { IOPIN *iopin = m_module->get_pin(pin_number); BreadBoardXREF *cross_reference = 0; if(iopin) { // Create xref cross_reference = new BreadBoardXREF(); cross_reference->parent_window_type = WT_breadboard_window; cross_reference->parent_window = (gpointer) m_bbw; cross_reference->data = (gpointer) 0; iopin->add_xref(cross_reference); } GuiPin *pin = new GuiPin(m_bbw, this, m_module->package, pin_number); pin->addXref(cross_reference); m_pins = g_list_append(m_pins, pin); } void GuiModule::AddPinGeometry(GuiPin *pin) { eOrientation orientation; unsigned int pin_number = pin->number(); // Get the X and Y coordinates for this pin // (the coordinates are referenced to the module's origin) int pin_x, pin_y; int label_x, label_y; const PinGeometry *pPinGeometry = m_module->package->getPinGeometry(pin_number); if (pPinGeometry->bNew) { switch (pPinGeometry->m_orientation) { case UP: pin_x = (int)pPinGeometry->m_x; pin_y = (int)pPinGeometry->m_y; label_x = pin_x + LABELPAD + CASELINEWIDTH; label_y = pin_y + LABELPAD + CASELINEWIDTH; orientation = UP; break; case LEFT: pin_x = (int)pPinGeometry->m_x - pinspacing; pin_y = (int)pPinGeometry->m_y; label_x = LABELPAD + CASELINEWIDTH; label_y = pin_y + LABELPAD + CASELINEWIDTH; orientation = LEFT; break; case RIGHT: pin_x = m_width + (int)pPinGeometry->m_x; pin_y = (int)pPinGeometry->m_y; label_x = pin_x + LABELPAD + CASELINEWIDTH + m_width/2; label_y = pin_y + LABELPAD + CASELINEWIDTH; orientation = RIGHT; break; case DOWN: pin_x = (int)pPinGeometry->m_x; pin_y = m_height + (int)pPinGeometry->m_y; label_x = pin_x + LABELPAD + CASELINEWIDTH; label_y = pin_y + LABELPAD + CASELINEWIDTH; orientation = DOWN; break; default: printf("################### Error:\n"); printf("Undefined orientation.\n"); assert(0); } } else { // old style -- to be deprecated. float pin_position=m_module->package->get_pin_position(pin_number); // Put pin in layout if(pin_position>=0.0 && pin_position<1.0) { pin_x=-pinspacing; pin_y=(int)(m_height/2+((pin_position-0.5)*hackPackageHeight))-pinspacing/2; orientation = LEFT; label_x=LABELPAD+CASELINEWIDTH; label_y=(int)(pin_position*hackPackageHeight); label_y+=LABELPAD+CASELINEWIDTH+pinspacing/2-m_bbw->pinnameheight/3; label_y+=PINLENGTH/2; } else if(pin_position>=2.0 && pin_position<3.0) { pin_x=m_width; pin_y=(int)(m_height/2+((3.0-pin_position-0.5)*hackPackageHeight))-pinspacing/2; orientation = RIGHT; label_x= m_width/2 + CASELINEWIDTH; label_y=(int)((3.0-pin_position)*hackPackageHeight); label_y+=LABELPAD+CASELINEWIDTH+pinspacing/2-m_bbw->pinnameheight/3; label_y+=PINLENGTH/2; } else { // FIXME printf("################### Error:\n"); printf("Number of pins %d\n",m_module->package->number_of_pins); printf("pin_position %f\n",pin_position); printf("pin_position2 %f\n",m_module->package->get_pin_position(pin_number)); printf("pin_number %d\n",pin_number); assert(0); } } pin->SetModulePosition(pin_x,pin_y); pin->SetLabelPosition(label_x,label_y); pin->SetOrientation(orientation); pin->Draw(); } //&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& // experimental // #if 0//GTK_CHECK_VERSION(2,8,7) static void CairoExperiment(Breadboard_Window *m_bbw,GdkPixmap *pixmap) { static bool bThrough = false; if (bThrough) return; cairo_t *cr = gdk_cairo_create (pixmap); gdk_gc_set_foreground(m_bbw->case_gc,&black_color); //gdk_draw_line(pixmap,m_bbw->case_gc, 10,10, 40,40); double xc = 50; double yc = 50; double radius = 30; double angle1 = 45.0 * (M_PI/180.0); /* angles are specified */ double angle2 = 180.0 * (M_PI/180.0); /* in radians */ /* cairo_arc (cr, xc, yc, radius, angle1, angle2); cairo_stroke (cr); cairo_set_source_rgba (cr, 1,0.2,0.2,0.6); cairo_arc (cr, xc, yc, 5, 0, 2*M_PI); cairo_fill (cr); cairo_set_line_width (cr, 1); cairo_arc (cr, xc, yc, radius, angle1, angle1); cairo_line_to (cr, xc, yc); cairo_arc (cr, xc, yc, radius, angle2, angle2); cairo_line_to (cr, xc, yc); */ cairo_scale (cr, 100, 100); cairo_set_line_width (cr, 0.04); cairo_move_to (cr, 0.4, 0.1); cairo_line_to (cr, 0.1, 0.1); cairo_line_to (cr, 0.1, 0.8); cairo_line_to (cr, 0.8, 0.8); cairo_line_to (cr, 0.8, 0.1); cairo_line_to (cr, 0.55, 0.1); cairo_curve_to (cr, 0.45, 0.15, 0.55, 0.15, 0.45, 0.1); /* cairo_move_to (cr, 0.5, 0.1); cairo_line_to (cr, 0.9, 0.9); cairo_rel_line_to (cr, -0.4, 0.0); cairo_curve_to (cr, 0.2, 0.9, 0.2, 0.5, 0.5, 0.5); */ cairo_close_path (cr); cairo_set_source_rgb (cr, 0, 0, 1); cairo_fill_preserve (cr); cairo_set_source_rgb (cr, 0, 0, 0); cairo_stroke (cr); //cairo_stroke (cr); bThrough=true; } #endif // end experimental //&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& static void createLabel(GtkWidget **da, GdkPixmap **pixmap, GtkWidget *parent, GdkGC *gc, const char *text, PangoFontDescription *font) { *da = gtk_drawing_area_new(); int height = gStringHeight(font,text); int width = gStringWidth(font,text); gtk_drawing_area_size(GTK_DRAWING_AREA(*da),width,height); *pixmap = gdk_pixmap_new(parent->window, width, height, -1); gdk_draw_rectangle (*pixmap, parent->style->bg_gc[GTK_WIDGET_STATE (*da)], TRUE, 0, 0, width, height); gdk_draw_text(*pixmap, gFontFromDescription(font), gc, 0,height, text,strlen(text)); } void GuiModule::BuildReferenceDesignator() { createLabel(&m_name_widget, &m_name_pixmap, m_bbw->window, m_bbw->pinname_gc, m_module->name().c_str(),m_bbw->pinnamefont); gtk_signal_connect(GTK_OBJECT(m_name_widget), "expose_event", (GtkSignalFunc) name_expose, this); } //------------------------------------------------------------------------ void GuiModule::Build() { if(m_bIsBuilt || !m_bbw) return; if(!m_bbw->enabled) return; int i; int nx, ny; BreadBoardXREF *cross_reference; m_width=50; m_height=18; Package *package = m_module->package; if(!package) return; // embedded module m_module_widget = (GtkWidget *)m_module->get_widget(); m_pins=0; m_pin_count=m_module->get_pin_count(); /* Value *xpos = m_module->get_attribute("xpos", false); Value *ypos = m_module->get_attribute("ypos", false); xpos->get(nx); ypos->get(ny); */ GetPosition(nx,ny); m_tree_item = gtk_tree_item_new_with_label (m_module->name().c_str()); gtk_signal_connect(GTK_OBJECT(m_tree_item), "select", (GtkSignalFunc) treeselect_module, this); gtk_widget_show(m_tree_item); gtk_tree_append(GTK_TREE(m_bbw->tree), m_tree_item); hackPackageHeight=(float)((m_pin_count/2+(m_pin_count&1)-1)*pinspacing); // Find the length of the longest pin name in each direction // The directions are in the order of left, up , right, down. int pinmax_x = 0; int pinmax_y = 0; for(i=1;i<=m_pin_count;i++) { PinGeometry *pPinGeometry = m_module->package->getPinGeometry(i); pPinGeometry->convertToNew(); if (pPinGeometry->bNew) { pinmax_x = pinmax_x < pPinGeometry->m_x ? pinmax_x : ((int) pPinGeometry->m_x); pinmax_y = pinmax_y < pPinGeometry->m_y ? pinmax_y : ((int) pPinGeometry->m_y); } int w=0; const char *name = m_module->get_pin_name(i).c_str(); if(name && pPinGeometry->m_bShowPinname) w = gStringWidth(m_bbw->pinnamefont, name); if(w > pinnameWidths[pPinGeometry->m_orientation]) pinnameWidths[pPinGeometry->m_orientation]= w; AddPin(i); } if(!m_module_widget) { // Create a static representation. m_width = pinnameWidths[0] + pinnameWidths[2] + 2 * FOORADIUS; m_width += 2*CASELINEWIDTH+2*LABELPAD; m_height = m_module->get_pin_count()/2*pinspacing; // pin name height if(m_module->get_pin_count()%2) m_height += pinspacing; m_height+=2*CASELINEWIDTH+2*LABELPAD; m_module_pixmap = gdk_pixmap_new(m_bbw->window->window, m_width, m_height, -1); m_pinLabel_widget = gtk_drawing_area_new(); gtk_drawing_area_size(GTK_DRAWING_AREA(m_pinLabel_widget),m_width,m_height); gtk_widget_show_all (m_pinLabel_widget); DrawCaseOutline(m_pinLabel_widget); gtk_signal_connect(GTK_OBJECT(m_pinLabel_widget), "expose_event", (GtkSignalFunc) module_expose, this); gtk_widget_show(m_pinLabel_widget); } else { // Get the [from the module] provided widget's size GtkRequisition req; gtk_widget_size_request(m_module_widget, &req); m_width=req.width; m_height=req.height; gtk_widget_show(m_module_widget); } // Create xref cross_reference = new BreadBoardXREF(); cross_reference->parent_window_type = WT_breadboard_window; cross_reference->parent_window = (gpointer) m_bbw; cross_reference->data = (gpointer) 0; m_module->xref->_add(cross_reference); // Create name_widget BuildReferenceDesignator(); gtk_widget_show(m_name_widget); // Create pins GtkWidget *hackSubtree = gtk_tree_new(); GtkWidget *sub_tree_item; gtk_widget_show(hackSubtree); gtk_tree_item_set_subtree(GTK_TREE_ITEM(m_tree_item), hackSubtree); GList *pin_iter; pin_iter=m_pins; while(pin_iter!=0) { GuiPin *pin = static_cast(pin_iter->data); AddPinGeometry(pin); if (m_module_pixmap) pin->DrawLabel(m_module_pixmap); gtk_layout_put(GTK_LAYOUT(m_bbw->layout),pin->m_pinDrawingArea,0,0); // Add pin to tree const char *name=pin->pinName(); if(name) { sub_tree_item = gtk_tree_item_new_with_label (name); gtk_signal_connect(GTK_OBJECT(sub_tree_item), "select", (GtkSignalFunc) treeselect_stimulus, pin); gtk_widget_show(sub_tree_item); gtk_tree_append(GTK_TREE(hackSubtree), sub_tree_item); } pin_iter = pin_iter->next; } if (m_pinLabel_widget) gtk_layout_put(GTK_LAYOUT(m_bbw->layout), m_pinLabel_widget, 0, 0); if (m_module_widget) gtk_layout_put(GTK_LAYOUT(m_bbw->layout), m_module_widget, 0, 0); gtk_layout_put(GTK_LAYOUT(m_bbw->layout), m_name_widget, 0,0); SetPosition(nx, ny); m_bIsBuilt = true; update_board_matrix(m_bbw); } //======================================================================== //======================================================================== GuiModule::GuiModule(Module *_module, Breadboard_Window *_bbw) : GuiBreadBoardObject(_bbw,0,0), m_module(_module) { m_pinLabel_widget=0; m_module_widget=0; m_module_x = 0; m_module_y = 0; m_name_widget=0; m_width=0; m_height=0; m_pin_count=0; m_module_pixmap=0; m_name_pixmap=0; m_tree_item=0; m_pins=0; pinnameWidths[0] = 0; pinnameWidths[1] = 0; pinnameWidths[2] = 0; pinnameWidths[3] = 0; if(m_bbw) { m_bbw->modules=g_list_append(m_bbw->modules, this); if (m_module) { Value *xpos = dynamic_cast (m_module->findSymbol("xpos")); Value *ypos = dynamic_cast (m_module->findSymbol("xpos")); if(!xpos || !ypos) { xpos = new PositionAttribute(m_bbw,"xpos",(double)80); ypos = new PositionAttribute(m_bbw,"ypos",(double)80); m_module->addSymbol(xpos); m_module->addSymbol(ypos); } } } } //======================================================================== GuiDipModule::GuiDipModule(Module *_module, Breadboard_Window *_bbw) : GuiModule(_module, _bbw) { } void GuiDipModule::DrawCaseOutline(GtkWidget *da) { #if GTK_CHECK_VERSION(2,8,7) gdk_draw_rectangle (m_module_pixmap, m_bbw->window->style->bg_gc[GTK_WIDGET_STATE (m_bbw->window)], TRUE, 0, 0, m_width, m_height); cairo_t *cr = gdk_cairo_create (m_module_pixmap); cairo_line_to (cr, CASEOFFSET, CASEOFFSET); cairo_line_to (cr, CASEOFFSET, m_height-2*CASEOFFSET); cairo_line_to (cr, m_width-CASEOFFSET, m_height-2*CASEOFFSET); cairo_line_to (cr, m_width-CASEOFFSET, CASEOFFSET); cairo_arc (cr, m_width/2-CASEOFFSET, CASEOFFSET, FOORADIUS, 0, M_PI); cairo_close_path (cr); cairo_set_source_rgb (cr, 1, 1, 1); cairo_fill_preserve (cr); cairo_set_source_rgb (cr, 0, 0, 0); cairo_stroke (cr); #else gdk_draw_rectangle (m_module_pixmap, m_bbw->window->style->white_gc, TRUE, CASEOFFSET, CASEOFFSET, m_width-CASEOFFSET, m_height-CASEOFFSET); // Draw case outline gdk_gc_set_foreground(m_bbw->case_gc,&black_color); gdk_draw_line(m_module_pixmap,m_bbw->case_gc,CASEOFFSET,CASEOFFSET, m_width/2-FOORADIUS,CASEOFFSET); gdk_draw_line(m_module_pixmap,m_bbw->case_gc,m_width-CASEOFFSET,CASEOFFSET, m_width/2+FOORADIUS,CASEOFFSET); gdk_draw_line(m_module_pixmap,m_bbw->case_gc,m_width-CASEOFFSET,CASEOFFSET, m_width-CASEOFFSET,m_height-CASEOFFSET); gdk_draw_line(m_module_pixmap,m_bbw->case_gc,CASEOFFSET,m_height-CASEOFFSET, m_width-CASEOFFSET,m_height-CASEOFFSET); gdk_draw_line(m_module_pixmap,m_bbw->case_gc,CASEOFFSET,CASEOFFSET, CASEOFFSET,m_height-CASEOFFSET); gdk_draw_arc(m_module_pixmap,m_bbw->window->style->bg_gc[GTK_WIDGET_STATE (da)], TRUE,m_width/2-FOORADIUS,CASEOFFSET-FOORADIUS,2*FOORADIUS,2*FOORADIUS, 180*64,180*64); gdk_draw_arc(m_module_pixmap,m_bbw->case_gc,FALSE,m_width/2-FOORADIUS,CASEOFFSET-FOORADIUS, 2*FOORADIUS,2*FOORADIUS,180*64,180*64); #endif } //======================================================================== void Breadboard_Window::Update(void) { GList *iter; int x,y; // loop all modules and look for changes if(!enabled) return; if(!GTK_WIDGET_VISIBLE(window)) return; iter=modules; while(iter!=0) { GuiModule *p = static_cast(iter->data); if(p->IsBuilt()) { // Check if module has changed number of pins if(p->pin_count()!=p->module()->get_pin_count()) // If so, refresh the gui widget p->Update(); // Check if module has changed its position p->GetPosition(x,y); if(p->x()!=x || p->y()!=y) { // If so, move the module p->SetPosition(x, y); update_board_matrix(p->bbw()); } // Check if pins have changed state p->UpdatePins(); } else { p->Build(); Update(); } iter = iter->next; } } static int delete_event(GtkWidget *widget, GdkEvent *event, Breadboard_Window *bww) { bww->ChangeView(VIEW_HIDE); return TRUE; } /* When a processor is created */ void Breadboard_Window::NewProcessor(GUI_Processor *_gp) { // Create a Gui representation (note that this memory is // placed onto the 'modules' list. /* Value *xpos = gp->cpu->get_attribute("xpos", false); Value *ypos = gp->cpu->get_attribute("ypos", false); if(!xpos || !ypos) { xpos = new PositionAttribute(this,"xpos",(double)80); ypos = new PositionAttribute(this,"ypos",(double)80); gp->cpu->add_attribute(xpos); gp->cpu->add_attribute(ypos); } */ m_MainCpuModule = new GuiDipModule(gp->cpu, this); if(!enabled) return; m_MainCpuModule->Build(); if(!gp || !gp->cpu) return; Update(); } /* When a module is created */ void Breadboard_Window::NewModule(Module *module) { // If the xpos and ypos attributes does not exist, then create them. static int sx=80; static int sy=280; /* Value *xpos = module->get_attribute("xpos", false); Value *ypos = module->get_attribute("ypos", false); if(!xpos || !ypos) { xpos = new PositionAttribute(this,"xpos",(double)sx); ypos = new PositionAttribute(this,"ypos",(double)sy); module->add_attribute(xpos); module->add_attribute(ypos); } */ sy+=100; if(sy>LAYOUTSIZE_Y) { sy=0; sx+=100; if(sx>LAYOUTSIZE_X) sx=50; } GuiModule *p=new GuiModule(module, this); if(!enabled) return; p->Build(); if(grab_next_module) grab_module(p); Update(); } /* When a stimulus is being connected or disconnected, or a new node is created */ void Breadboard_Window::NodeConfigurationChanged(Stimulus_Node *node) { if(!g_list_find(nodes, node)) nodes = g_list_append(nodes, node); if(!node_tree) return; struct gui_node * gn = (struct gui_node*) gtk_object_get_data(GTK_OBJECT(node_tree), node->name().c_str()); if(gn==0) { GtkWidget *node_item; gn = (struct gui_node *) malloc(sizeof(*gn)); gn->bbw=this; gn->node=node; node_item = gtk_tree_item_new_with_label (node->name().c_str()); gn->tree_item = node_item; gtk_signal_connect(GTK_OBJECT(node_item), "select", (GtkSignalFunc) treeselect_node, gn); gtk_widget_show(node_item); gtk_tree_append(GTK_TREE(node_tree), node_item); gtk_object_set_data(GTK_OBJECT(node_tree), node->name().c_str(), gn); gtk_object_set_data(GTK_OBJECT(node_item), "snode", node); } } static void layout_adj_changed(GtkWidget *widget, Breadboard_Window *bbw) { if(GTK_LAYOUT (bbw->layout)->bin_window==0) return; if(bbw->layout_pixmap==0) { puts("bbw.c: no pixmap4!"); return; } int xoffset=0, yoffset=0; GtkAdjustment *xadj, *yadj; xadj = gtk_layout_get_hadjustment (GTK_LAYOUT(bbw->layout)); yadj = gtk_layout_get_vadjustment (GTK_LAYOUT(bbw->layout)); xoffset = (int) GTK_ADJUSTMENT(xadj)->value; yoffset = (int) GTK_ADJUSTMENT(yadj)->value; gdk_draw_pixmap(GTK_LAYOUT (bbw->layout)->bin_window, bbw->window->style->white_gc, bbw->layout_pixmap, xoffset, yoffset, #if GTK_MAJOR_VERSION >= 2 xoffset, yoffset, #else 0, 0, #endif bbw->layout->allocation.width, bbw->layout->allocation.height); } static gboolean layout_expose(GtkWidget *widget, GdkEventExpose *event, Breadboard_Window *bbw) { if(bbw->layout_pixmap==0) { puts("bbw.c: no pixmap5!"); return 0; } layout_adj_changed(widget, bbw); return 0; } static GtkWidget *bb_vbox(GtkWidget *window, const char *name) { GtkWidget *vbox = gtk_vbox_new (FALSE, 0); gtk_widget_ref (vbox); gtk_object_set_data_full (GTK_OBJECT (window), name, vbox, (GtkDestroyNotify) gtk_widget_unref); gtk_widget_show (vbox); return vbox; } static GtkWidget *bb_hbox(GtkWidget *window, const char *name) { GtkWidget *hbox = gtk_hbox_new (FALSE, 0); gtk_widget_ref (hbox); gtk_object_set_data_full (GTK_OBJECT (window), name, hbox, (GtkDestroyNotify) gtk_widget_unref); gtk_widget_show (hbox); return hbox; } GtkWidget* Breadboard_Window::add_button(const char *label, const char *name, GtkSignalFunc f, GtkWidget *box) { GtkWidget *button = gtk_button_new_with_label (label); gtk_widget_ref (button); gtk_object_set_data_full (GTK_OBJECT (window), name, button, (GtkDestroyNotify) gtk_widget_unref); gtk_widget_show (button); gtk_box_pack_start (GTK_BOX (box), button, FALSE, FALSE, 0); gtk_signal_connect(GTK_OBJECT(button), "clicked", f, this); return button; } void Breadboard_Window::Build(void) { if(bIsBuilt) return; if(!enabled) return; GtkWidget *hpaned1; GtkWidget *vbox9; GtkWidget *vbox13; GtkWidget *scrolledwindow4; GtkWidget *viewport9; GtkWidget *tree1; GtkWidget *hbox12; GtkWidget *hbox15; GtkWidget *vbox12; GtkWidget *scrolledwindow3; GtkWidget *viewport8; GtkWidget *hbox11; GtkWidget *pic_settings_entry; GtkWidget *pic_settings_button; GtkWidget *vbox11; GtkWidget *scrolledwindow2; GtkWidget *viewport7; GtkWidget *hbox10; GtkWidget *vbox14; GtkWidget *hbox13; GtkWidget *vbox10; GtkWidget *scrolledwindow1; GtkWidget *viewport6; GtkWidget *hbox9; GtkWidget *hbox14; GtkWidget *scrolledwindow5; GdkColormap *colormap = gdk_colormap_get_system(); gdk_color_parse("red",&high_output_color); gdk_color_parse("green",&low_output_color); gdk_color_parse("black",&black_color); gdk_color_parse("gray",&gray_color); gdk_colormap_alloc_color(colormap, &high_output_color,FALSE,TRUE); gdk_colormap_alloc_color(colormap, &low_output_color,FALSE,TRUE); gdk_colormap_alloc_color(colormap, &black_color,FALSE,TRUE); // // Top level window // window = gtk_window_new (GTK_WINDOW_TOPLEVEL); gtk_object_set_data (GTK_OBJECT (window), "window", window); gtk_window_set_title (GTK_WINDOW (window), "Breadboard"); // // Horizontal pane // hpaned1 = gtk_hpaned_new (); gtk_widget_ref (hpaned1); gtk_object_set_data_full (GTK_OBJECT (window), "hpaned1", hpaned1, (GtkDestroyNotify) gtk_widget_unref); gtk_widget_show (hpaned1); gtk_container_add (GTK_CONTAINER (window), hpaned1); gtk_paned_set_position (GTK_PANED (hpaned1), 196); // vbox9 holds the left pane. vbox9 = bb_vbox(window, "vbox9"); gtk_paned_pack1 (GTK_PANED (hpaned1), vbox9, FALSE, TRUE); vbox13 = bb_vbox(window, "vbox13"); gtk_box_pack_start (GTK_BOX (vbox9), vbox13, TRUE, TRUE, 2); scrolledwindow4 = gtk_scrolled_window_new (0, 0); gtk_widget_ref (scrolledwindow4); gtk_object_set_data_full (GTK_OBJECT (window), "scrolledwindow4", scrolledwindow4, (GtkDestroyNotify) gtk_widget_unref); gtk_widget_show (scrolledwindow4); gtk_box_pack_start (GTK_BOX (vbox13), scrolledwindow4, TRUE, TRUE, 0); gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolledwindow4), GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC); viewport9 = gtk_viewport_new (0, 0); gtk_widget_ref (viewport9); gtk_object_set_data_full (GTK_OBJECT (window), "viewport9", viewport9, (GtkDestroyNotify) gtk_widget_unref); gtk_widget_show (viewport9); gtk_container_add (GTK_CONTAINER (scrolledwindow4), viewport9); tree = tree1 = gtk_tree_new (); gtk_widget_ref (tree1); gtk_object_set_data_full (GTK_OBJECT (window), "tree1", tree1, (GtkDestroyNotify) gtk_widget_unref); gtk_tree_set_selection_mode (GTK_TREE(tree),GTK_SELECTION_BROWSE); gtk_widget_show (tree1); gtk_container_add (GTK_CONTAINER (viewport9), tree1); hbox12 = bb_hbox(window, "hbox12"); gtk_box_pack_start (GTK_BOX (vbox13), hbox12, FALSE, FALSE, 0); add_button("Add node","button5", (GtkSignalFunc) add_new_snode, hbox12); add_button("Add module","button6", (GtkSignalFunc) add_module, hbox12); add_button("Add library","button7", (GtkSignalFunc) add_library, hbox12); hbox15 = bb_hbox(window, "hbox15"); gtk_box_pack_start (GTK_BOX (vbox13), hbox15, FALSE, FALSE, 0); add_button("Trace all","button25", (GtkSignalFunc) trace_all, hbox15); add_button("Clear traces","button26", (GtkSignalFunc) clear_traces, hbox15); pic_frame = gtk_frame_new ("PIC settings"); gtk_widget_ref (pic_frame); gtk_object_set_data_full (GTK_OBJECT (window), "pic_frame", pic_frame, (GtkDestroyNotify) gtk_widget_unref); // gtk_widget_show (pic_frame); gtk_box_pack_start (GTK_BOX (vbox9), pic_frame, TRUE, TRUE, 0); vbox12 = bb_vbox(window, "vbox12"); gtk_container_add (GTK_CONTAINER (pic_frame), vbox12); scrolledwindow3 = gtk_scrolled_window_new (0, 0); gtk_widget_ref (scrolledwindow3); gtk_object_set_data_full (GTK_OBJECT (window), "scrolledwindow3", scrolledwindow3, (GtkDestroyNotify) gtk_widget_unref); gtk_widget_show (scrolledwindow3); gtk_box_pack_start (GTK_BOX (vbox12), scrolledwindow3, TRUE, TRUE, 0); gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolledwindow3), GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC); viewport8 = gtk_viewport_new (0, 0); gtk_widget_ref (viewport8); gtk_object_set_data_full (GTK_OBJECT (window), "viewport8", viewport8, (GtkDestroyNotify) gtk_widget_unref); gtk_widget_show (viewport8); gtk_container_add (GTK_CONTAINER (scrolledwindow3), viewport8); pic_settings_clist = gtk_clist_new (1); // The following line is silly but it stops GTK printing an assert // in Fedora 19 with Adwaita theme gtk_widget_set_style(pic_settings_clist, gtk_widget_get_style(pic_settings_clist)); gtk_widget_ref (pic_settings_clist); gtk_object_set_data_full (GTK_OBJECT (window), "pic_settings_clist", pic_settings_clist, (GtkDestroyNotify) gtk_widget_unref); gtk_widget_show (pic_settings_clist); gtk_container_add (GTK_CONTAINER (viewport8), pic_settings_clist); hbox11 = bb_hbox(window, "hbox11"); gtk_box_pack_start (GTK_BOX (vbox12), hbox11, FALSE, FALSE, 0); pic_settings_entry = gtk_entry_new (); gtk_widget_ref (pic_settings_entry); gtk_object_set_data_full (GTK_OBJECT (window), "pic_settings_entry", pic_settings_entry, (GtkDestroyNotify) gtk_widget_unref); gtk_widget_show (pic_settings_entry); gtk_box_pack_start (GTK_BOX (hbox11), pic_settings_entry, FALSE, FALSE, 0); pic_settings_button = gtk_button_new_with_label ("Set"); gtk_widget_ref (pic_settings_button); gtk_object_set_data_full (GTK_OBJECT (window), "pic_settings_button", pic_settings_button, (GtkDestroyNotify) gtk_widget_unref); gtk_widget_show (pic_settings_button); gtk_box_pack_start (GTK_BOX (hbox11), pic_settings_button, FALSE, FALSE, 0); node_frame = gtk_frame_new ("Node connections"); gtk_widget_ref (node_frame); gtk_object_set_data_full (GTK_OBJECT (window), "node_frame", node_frame, (GtkDestroyNotify) gtk_widget_unref); // gtk_widget_show (node_frame); gtk_box_pack_start (GTK_BOX (vbox9), node_frame, TRUE, TRUE, 0); vbox11 = gtk_vbox_new (FALSE, 0); gtk_widget_ref (vbox11); gtk_object_set_data_full (GTK_OBJECT (window), "vbox11", vbox11, (GtkDestroyNotify) gtk_widget_unref); gtk_widget_show (vbox11); gtk_container_add (GTK_CONTAINER (node_frame), vbox11); scrolledwindow2 = gtk_scrolled_window_new (0, 0); gtk_widget_ref (scrolledwindow2); gtk_object_set_data_full (GTK_OBJECT (window), "scrolledwindow2", scrolledwindow2, (GtkDestroyNotify) gtk_widget_unref); gtk_widget_show (scrolledwindow2); gtk_box_pack_start (GTK_BOX (vbox11), scrolledwindow2, TRUE, TRUE, 0); gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolledwindow2), GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC); viewport7 = gtk_viewport_new (0, 0); gtk_widget_ref (viewport7); gtk_object_set_data_full (GTK_OBJECT (window), "viewport7", viewport7, (GtkDestroyNotify) gtk_widget_unref); gtk_widget_show (viewport7); gtk_container_add (GTK_CONTAINER (scrolledwindow2), viewport7); node_clist = gtk_clist_new (1); // The following line is silly but it stops GTK printing an assert // in Fedora 19 with Adwaita theme gtk_widget_set_style(node_clist, gtk_widget_get_style(node_clist)); gtk_widget_ref (node_clist); gtk_object_set_data_full (GTK_OBJECT (window), "node_clist", node_clist, (GtkDestroyNotify) gtk_widget_unref); gtk_widget_show (node_clist); gtk_container_add (GTK_CONTAINER (viewport7), node_clist); gtk_signal_connect(GTK_OBJECT(node_clist), "select_row", (GtkSignalFunc) node_clist_cb, (gpointer)this); hbox10 = bb_hbox(window, "hbox10"); gtk_box_pack_start (GTK_BOX (vbox11), hbox10, FALSE, FALSE, 0); add_button("Remove stimulus","rsb", (GtkSignalFunc) remove_node_stimulus, hbox10); add_button("Remove node","rnb", (GtkSignalFunc) remove_node, hbox10); stimulus_frame = gtk_frame_new ("Stimulus settings"); gtk_widget_ref (stimulus_frame); gtk_object_set_data_full (GTK_OBJECT (window), "stimulus_frame", stimulus_frame, (GtkDestroyNotify) gtk_widget_unref); // gtk_widget_show (stimulus_frame); gtk_box_pack_start (GTK_BOX (vbox9), stimulus_frame, FALSE, FALSE, 0); vbox14 = gtk_vbox_new (FALSE, 0); gtk_widget_ref (vbox14); gtk_object_set_data_full (GTK_OBJECT (window), "vbox14", vbox14, (GtkDestroyNotify) gtk_widget_unref); gtk_widget_show (vbox14); gtk_container_add (GTK_CONTAINER (stimulus_frame), vbox14); stimulus_settings_label=gtk_label_new(""); gtk_widget_show(stimulus_settings_label); gtk_box_pack_start(GTK_BOX(vbox14), stimulus_settings_label, FALSE,FALSE,0); hbox13 = bb_hbox(window, "hbox13"); gtk_box_pack_start (GTK_BOX (vbox14), hbox13, FALSE, FALSE, 0); add_button("Connect stimulus to node","sanb", (GtkSignalFunc) stimulus_add_node, hbox13); module_frame = gtk_frame_new ("Module settings"); gtk_widget_ref (module_frame); gtk_object_set_data_full (GTK_OBJECT (window), "module_frame", module_frame, (GtkDestroyNotify) gtk_widget_unref); // gtk_widget_show (module_frame); gtk_box_pack_start (GTK_BOX (vbox9), module_frame, TRUE, TRUE, 0); vbox10 = gtk_vbox_new (FALSE, 0); gtk_widget_ref (vbox10); gtk_object_set_data_full (GTK_OBJECT (window), "vbox10", vbox10, (GtkDestroyNotify) gtk_widget_unref); gtk_widget_show (vbox10); gtk_container_add (GTK_CONTAINER (module_frame), vbox10); scrolledwindow1 = gtk_scrolled_window_new (0, 0); gtk_widget_ref (scrolledwindow1); gtk_object_set_data_full (GTK_OBJECT (window), "scrolledwindow1", scrolledwindow1, (GtkDestroyNotify) gtk_widget_unref); gtk_widget_show (scrolledwindow1); gtk_box_pack_start (GTK_BOX (vbox10), scrolledwindow1, TRUE, TRUE, 0); gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolledwindow1), GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC); viewport6 = gtk_viewport_new (0, 0); gtk_widget_ref (viewport6); gtk_object_set_data_full (GTK_OBJECT (window), "viewport6", viewport6, (GtkDestroyNotify) gtk_widget_unref); gtk_widget_show (viewport6); gtk_container_add (GTK_CONTAINER (scrolledwindow1), viewport6); attribute_clist = gtk_clist_new (1); // The following line is silly but it stops GTK printing an assert // in Fedora 19 with Adwaita theme gtk_widget_set_style(attribute_clist, gtk_widget_get_style(attribute_clist)); gtk_widget_ref (attribute_clist); gtk_object_set_data_full (GTK_OBJECT (window), "attribute_clist", attribute_clist, (GtkDestroyNotify) gtk_widget_unref); gtk_widget_show (attribute_clist); gtk_container_add (GTK_CONTAINER (viewport6), attribute_clist); gtk_signal_connect(GTK_OBJECT(attribute_clist), "select_row", (GtkSignalFunc)settings_clist_cb, (gpointer)this); hbox9 = bb_hbox(window, "hbox9"); gtk_box_pack_start (GTK_BOX (vbox10), hbox9, FALSE, FALSE, 0); attribute_entry = gtk_entry_new (); gtk_widget_ref (attribute_entry); gtk_object_set_data_full (GTK_OBJECT (window), "attribute_entry", attribute_entry, (GtkDestroyNotify) gtk_widget_unref); gtk_widget_show (attribute_entry); gtk_box_pack_start (GTK_BOX (hbox9), attribute_entry, FALSE, FALSE, 0); gtk_signal_connect(GTK_OBJECT(attribute_entry), "activate", (GtkSignalFunc) settings_set_cb, this); add_button("Set","attribute_button", (GtkSignalFunc) settings_set_cb, hbox9); hbox14 = bb_hbox(window, "hbox14"); gtk_box_pack_start (GTK_BOX (vbox10), hbox14, FALSE, FALSE, 0); add_button("Remove module","remove_module_button", (GtkSignalFunc) remove_module, hbox14); add_button("Save Configuration ...","save_stc_button", (GtkSignalFunc) save_stc, vbox9); scrolledwindow5 = gtk_scrolled_window_new (0, 0); gtk_widget_ref (scrolledwindow5); gtk_object_set_data_full (GTK_OBJECT (window), "scrolledwindow5", scrolledwindow5, (GtkDestroyNotify) gtk_widget_unref); gtk_widget_show (scrolledwindow5); gtk_paned_pack2 (GTK_PANED (hpaned1), scrolledwindow5, TRUE, TRUE); vadj = gtk_scrolled_window_get_vadjustment(GTK_SCROLLED_WINDOW(scrolledwindow5)); hadj = gtk_scrolled_window_get_hadjustment(GTK_SCROLLED_WINDOW(scrolledwindow5)); layout = gtk_layout_new (hadj, vadj); gtk_widget_ref (layout); gtk_object_set_data_full (GTK_OBJECT (window), "layout", layout, (GtkDestroyNotify) gtk_widget_unref); gtk_container_add (GTK_CONTAINER (scrolledwindow5), layout); gtk_layout_set_size (GTK_LAYOUT (layout), LAYOUTSIZE_X, LAYOUTSIZE_Y); GTK_ADJUSTMENT (GTK_LAYOUT (layout)->hadjustment)->step_increment = 10; GTK_ADJUSTMENT (GTK_LAYOUT (layout)->vadjustment)->step_increment = 10; gtk_widget_set_events(layout, gtk_widget_get_events(layout)| GDK_BUTTON_PRESS_MASK | GDK_BUTTON_MOTION_MASK | GDK_BUTTON_RELEASE_MASK); gtk_signal_connect(GTK_OBJECT(layout),"motion-notify-event", GTK_SIGNAL_FUNC(pointer_cb),this); gtk_signal_connect(GTK_OBJECT(layout),"button_press_event", GTK_SIGNAL_FUNC(pointer_cb),this); gtk_signal_connect(GTK_OBJECT(layout),"button_release_event", GTK_SIGNAL_FUNC(pointer_cb),this); gtk_signal_connect(GTK_OBJECT(layout),"expose_event", (GtkSignalFunc) layout_expose,this); GtkAdjustment *xadj, *yadj; xadj = gtk_layout_get_hadjustment (GTK_LAYOUT(layout)); yadj = gtk_layout_get_vadjustment (GTK_LAYOUT(layout)); gtk_signal_connect(GTK_OBJECT(xadj),"value_changed", (GtkSignalFunc) layout_adj_changed,this); gtk_signal_connect(GTK_OBJECT(yadj),"value_changed", (GtkSignalFunc) layout_adj_changed,this); gtk_widget_set_app_paintable(layout, TRUE); gtk_widget_show (layout); //printf("bb %s:%d, w=%d, h=%d\n",__FUNCTION__,__LINE__,width,height); gtk_window_set_default_size(GTK_WINDOW(window), width,height); gtk_widget_set_uposition(GTK_WIDGET(window),x,y); gtk_window_set_wmclass(GTK_WINDOW(window),name(),"Gpsim"); // gtk_signal_connect_object (GTK_OBJECT (window), "destroy", // GTK_SIGNAL_FUNC (gtk_widget_destroyed), GTK_OBJECT(window)); gtk_signal_connect (GTK_OBJECT (window), "delete_event", GTK_SIGNAL_FUNC(delete_event), (gpointer)this); gtk_signal_connect_after(GTK_OBJECT(window), "configure_event", GTK_SIGNAL_FUNC(gui_object_configure_event),this); gtk_widget_realize(window); pinname_gc=gdk_gc_new(window->window); case_gc=gdk_gc_new(window->window); gdk_gc_set_line_attributes(case_gc,CASELINEWIDTH,GDK_LINE_SOLID,GDK_CAP_ROUND,GDK_JOIN_ROUND); #if GTK_MAJOR_VERSION >= 2 pinstatefont = pango_font_description_from_string("Courier Bold 8"); pinnamefont = pango_font_description_from_string("Courier Bold 8"); #else pinstatefont = gdk_fontset_load ("-adobe-courier-bold-r-*-*-*-80-*-*-*-*-*-*"); pinnamefont = gdk_fontset_load ("-adobe-courier-bold-r-*-*-*-80-*-*-*-*-*-*"); #endif pinline_gc=gdk_gc_new(window->window); g_assert(pinline_gc!=0); gdk_gc_set_line_attributes(pinline_gc,PINLINEWIDTH,GDK_LINE_SOLID,GDK_CAP_ROUND,GDK_JOIN_ROUND); layout_pixmap = gdk_pixmap_new(window->window, LAYOUTSIZE_X, LAYOUTSIZE_Y, -1); #if GTK_MAJOR_VERSION >= 2 pinnameheight = gdk_string_height (gdk_font_from_description(pinnamefont),"9y"); #else pinnameheight = gdk_string_height (pinnamefont,"9y"); #endif if(pinspacingbbw=this; gn->node=0; // indicates that this is the root node. tree_item = gtk_tree_item_new_with_label ("nodes"); // gtk_signal_connect(GTK_OBJECT(tree_item), // "select", // (GtkSignalFunc) treeselect_node, // gn); gtk_widget_show(tree_item); gtk_tree_append(GTK_TREE(tree), tree_item); node_tree= gtk_tree_new(); gtk_widget_show(node_tree); gtk_tree_item_set_subtree(GTK_TREE_ITEM(tree_item), node_tree); gtk_object_set_data(GTK_OBJECT(node_tree), "root_of_nodes", gn); // Handle nodes added before breadboard GUI enabled GList *list; for(int i = 0; (list = g_list_nth(nodes,i)); i++) NodeConfigurationChanged((Stimulus_Node *)(list->data)); bIsBuilt = true; UpdateMenuItem(); draw_nodes(this); // cout << "FIXME gui_breadboard.cc " << __FUNCTION__ << endl; /* // Loop module list Symbol_Table::module_symbol_iterator mi = get_symbol_table().beginModuleSymbol(); Symbol_Table::module_symbol_iterator itModEnd = get_symbol_table().endModuleSymbol(); for(mi = get_symbol_table().beginModuleSymbol(); mi!=itModEnd; mi++) { NewModule((*mi)->get_module()); } // Loop node list Symbol_Table &ST = get_symbol_table(); Symbol_Table::node_symbol_iterator it; Symbol_Table::node_symbol_iterator itEnd = ST.endNodeSymbol(); for(it = ST.beginNodeSymbol(); it != itEnd; it++) { Stimulus_Node *node = (*it)->getNode(); assert(node != NULL); if(node != NULL) { NodeConfigurationChanged(node); } } */ gtk_widget_show(window); Update(); } Breadboard_Window::Breadboard_Window(GUI_Processor *_gp) { menu = "
    /Windows/Breadboard"; set_name("pinout"); wc = WC_misc; wt = WT_breadboard_window; window = 0; pinstatefont = 0; pinnamefont = 0; pinname_gc = 0; pinline_gc = 0; case_gc = 0; node_tree = 0; modules=0; nodes = 0; node_clist=0; stimulus_settings_label=0; stimulus_add_node_button=0; selected_node=0; selected_pin=0; selected_module=0; hadj = 0; vadj = 0; layout_pixmap=0; gp = _gp; if(!get_config()) printf("warning: %s\n",__FUNCTION__); //printf("bb %s:%d, w=%d, h=%d\n",__FUNCTION__,__LINE__,width,height); if(enabled) Build(); } #endif // HAVE_GUI gpsim-0.27.0/gui/gui_scope.h0000644000076400007640000000670410704253000012560 00000000000000/* Copyright (C) 1998,1999,2000,2001,2002,2003,2004 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __GUI_SCOPE_H__ #define __GUI_SCOPE_H__ #include "gui.h" class TimeMarker; class ZoomAttribute; class PanAttribute; class WaveBase; class Waveform; class Signal; class SignalNameEntry; class GridPointMapping { public: GridPointMapping(int nPointsToMap); int pixel(int index) { return (indexsnode : 0;} IOPIN *getIOpin() {return package->get_pin(m_pkgPinNumber);} const char *pinName(); GtkWidget *m_pinDrawingArea; GdkPixmap *pixmap; GdkGC *gc; eDirection direction; eOrientation orientation; pintype type; protected: bool value; // IOPIN *iopin; Package *package; CrossReferenceToGUI *xref; GuiModule *m_pModule; // Module to which this pin belongs. int m_module_x; // Pin coordinates within parent module int m_module_y; // int m_label_x; // Pin Label coordinates (within parent module). int m_label_y; int m_pkgPinNumber; // }; enum module_type {PIC_MODULE, EXTERNAL_MODULE}; //------------------------------------------------------------------------ // GuiModule // // The GuiModule holds the graphics for a gpsim module that is displayed in // the bread board window. The GuiModule serves as the link between the gui // and the simulation engine. In other words, the GuiModule provides an // interface through which the simulation engine may be accessed. // // All GuiModules have a one-to-one with a gpsim Module. (see src/modules.h) // The GuiModule knows how to get access to a Module's pin information. // class GuiModule : public GuiBreadBoardObject { public: GuiModule(Module *, Breadboard_Window *); void SetPosition(int x, int y); void GetPosition(int &x, int &y); double Distance(int x, int y); virtual void Update(); virtual void UpdatePins(); virtual void Build(); virtual void Draw(); virtual void Destroy(); virtual void DrawCaseOutline(GtkWidget *); virtual void AddPin(unsigned int); virtual void AddPinGeometry(GuiPin *); void BuildReferenceDesignator(); int pin_count() { return m_pin_count; } GList * pins() { return m_pins; } Module *module() { return m_module; } GtkWidget *module_widget() { return m_module_widget; } GtkWidget *pinLabel_widget() { return m_pinLabel_widget; } GtkWidget *name_widget() { return m_name_widget; } GtkWidget *tree_item() { return m_tree_item; } GdkPixmap *module_pixmap() { return m_module_pixmap; } GdkPixmap *name_pixmap() { return m_name_pixmap; } protected: Module *m_module; GtkWidget *m_module_widget; // As returned from module. If NULL, it becomes a static GtkPixmap GtkWidget *m_pinLabel_widget;// A drawing area for pin labels. int m_module_x; // These coordinates are an offset from m_x and m_y defined in int m_module_y; /* GuiBreadBoardObject. Their purpose is to allow clients to * reposition a customly created module_widget */ GtkWidget *m_name_widget; // Name of widget, positioned above module_widget. int pinnameWidths[4]; int m_pin_count; GdkPixmap *m_module_pixmap; GdkPixmap *m_name_pixmap; GtkWidget *m_tree_item; GList *m_pins; }; class GuiDipModule : public GuiModule { public: GuiDipModule(Module *, Breadboard_Window *); virtual void DrawCaseOutline(GtkWidget *); }; struct gui_node { Breadboard_Window *bbw; Stimulus_Node *node; GtkWidget *tree_item; int selected_row; GList *pins; }; class Breadboard_Window : public GUI_Object { public: #if GTK_MAJOR_VERSION >= 2 PangoFontDescription *pinstatefont; PangoFontDescription *pinnamefont; #else GdkFont *pinstatefont; GdkFont *pinnamefont; #endif int pinnameheight; GtkWidget *layout; GdkGC *pinname_gc; GdkGC *pinline_gc; GdkGC *case_gc; GList *modules; GList *nodes; GtkWidget *tree; GtkWidget *pic_frame; GtkWidget *node_frame; GtkWidget *module_frame; GtkWidget *stimulus_frame; GtkWidget *pic_settings_clist; GtkWidget *attribute_clist; GtkWidget *attribute_entry; GtkWidget *attribute_button; GtkWidget *node_tree; GtkWidget *node_clist; GtkWidget *stimulus_settings_label; GtkWidget *stimulus_add_node_button; GdkPixmap *layout_pixmap; GtkAdjustment *hadj, *vadj; GuiPin *selected_pin; struct gui_node *selected_node; GuiModule *selected_module; Breadboard_Window(GUI_Processor *gp); virtual void Build(void); virtual void NewProcessor(GUI_Processor *gp); virtual void Update(void); virtual void NewModule(Module *module); virtual void NodeConfigurationChanged(Stimulus_Node *node); GtkWidget *add_button(const char *label, const char *name, GtkSignalFunc f, GtkWidget *box); private: GuiModule *m_MainCpuModule; }; #endif //__GUI_BREADBOARD_H__ gpsim-0.27.0/gui/gui_trace.cc0000664000076400007640000001765412201276457012732 00000000000000/* Copyright (C) 1998,1999,2000,2001 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "../config.h" #ifdef HAVE_GUI #include #include #include #include #include #include #include #include "../src/interface.h" #include "../src/trace.h" #include "gui.h" #include "gui_trace.h" #define MAXTRACES 100 #define TRACE_COLUMNS 2 typedef enum { MENU_BREAK_CLEAR, MENU_BREAK_READ, MENU_BREAK_WRITE, MENU_BREAK_READ_VALUE, MENU_BREAK_WRITE_VALUE, MENU_ADD_WATCH, } menu_id; static const gchar *trace_titles[TRACE_COLUMNS]={"Cycle", "Trace"}; // gui trace flags: #define GTF_ENABLE_XREF_UPDATES (1<<0) guint64 row_to_cycle[MAXTRACES]; //RRR static GtkStyle *normal_style; //struct TraceMapping trace_map[MAXTRACES]; //======================================================================== class TraceXREF : public CrossReferenceToGUI { public: /***************************************************************** * Update * * This is called by the simulator when it has been determined that * that the trace buffer has changed and needs to be updated */ void Update(int new_value) { #define TRACE_STRING 100 GtkCList *clist; char cycle_string[TRACE_STRING]; char trace_string[TRACE_STRING]; char *entry[TRACE_COLUMNS]={cycle_string,trace_string}; Trace_Window *tw = (Trace_Window *) (parent_window); if(!tw || !tw->enabled) return; if(!tw->gp || !tw->gp->cpu) { puts("Warning gp or gp->cpu == NULL in TraceWindow_update"); return; } // If we're not allowing xref updates then exit if( !(tw->trace_flags & GTF_ENABLE_XREF_UPDATES)) return; strncpy(trace_string,get_trace().string_buffer,TRACE_STRING); if(trace_string[0] && (get_trace().string_cycle>=tw->last_cycle)) { tw->last_cycle = get_trace().string_cycle; tw->trace_map[tw->trace_map_index].cycle = get_trace().string_cycle; tw->trace_map[tw->trace_map_index].simulation_trace_index = get_trace().string_index; // Advance the trace_map_index using rollover arithmetic if(++tw->trace_map_index >= MAXTRACES) tw->trace_map_index = 0; clist=GTK_CLIST(tw->trace_clist); sprintf(cycle_string,"0x%016" PRINTF_GINT64_MODIFIER "x", get_trace().string_cycle); gtk_clist_append (clist, entry); if(clist->rows>MAXTRACES) gtk_clist_remove(clist,0); } } }; //======================================================================== /***************************************************************** * TraceWindow_update * * The purpose of this routine is to refresh the trace window with * the latest trace information. The current pic simulation cycle (should * this be change to real time???) is examined and compared to what * is currently displayed in the trace window. If the info in the * trace window is really old, this the entire window is deleted and * the trace is redrawn with the latest. If the trace window is rather * recent then the older trace info is deleted and the new is appended * to the end. * * INPUTS: *tw a pointer to a Trace_Window structure. */ void Trace_Window::Update(void) { //guint64 cycle; if(!enabled) return; if(!gp || !gp->cpu) { puts("Warning gp or gp->cpu == NULL in TraceWindow_update"); return; } // Get a convenient pointer to the gtk_clist that the trace is in. trace_clist=GTK_CLIST(trace_clist); gtk_clist_freeze(trace_clist); trace_flags |= GTF_ENABLE_XREF_UPDATES; if(get_cycles().get()-last_cycle>=MAXTRACES) // redraw the whole thing get_trace().dump(MAXTRACES, 0); else get_trace().dump(get_cycles().get()-last_cycle, 0); trace_flags &= ~GTF_ENABLE_XREF_UPDATES; last_cycle = get_cycles().get(); gtk_clist_thaw(trace_clist); } /***************************************************************** * TraceWindow_new_processor * * */ void Trace_Window::NewProcessor(GUI_Processor *_gp) { #define NAME_SIZE 32 TraceXREF *cross_reference; if(!gp) return; if(!enabled) return; cross_reference = new TraceXREF(); cross_reference->parent_window_type = WT_trace_window; cross_reference->parent_window = (gpointer) this; cross_reference->data = 0; if(get_trace().xref) get_trace().xref->_add((gpointer) cross_reference); } static int delete_event(GtkWidget *widget, GdkEvent *event, Trace_Window *rw) { rw->ChangeView(VIEW_HIDE); return TRUE; } void Trace_Window::Build(void) { if(bIsBuilt) return; GtkWidget *main_vbox; GtkWidget *scrolled_window; gint i; //RRR gint column_width,char_width; window=gtk_window_new(GTK_WINDOW_TOPLEVEL); main_vbox=gtk_vbox_new(FALSE,1); gtk_container_set_border_width(GTK_CONTAINER(main_vbox),0); gtk_container_add(GTK_CONTAINER(window), main_vbox); gtk_widget_show(main_vbox); gtk_window_set_title(GTK_WINDOW(window), "trace viewer"); // Trace clist trace_clist=GTK_CLIST(gtk_clist_new_with_titles(TRACE_COLUMNS,(gchar **)trace_titles)); // The following line is silly but it stops GTK printing an assert // in Fedora 19 with Adwaita theme gtk_widget_set_style(GTK_WIDGET(trace_clist), gtk_widget_get_style(GTK_WIDGET(trace_clist))); gtk_clist_set_column_auto_resize(trace_clist,0,TRUE); GTK_WIDGET_UNSET_FLAGS(trace_clist,GTK_CAN_DEFAULT); gtk_window_set_default_size(GTK_WINDOW(window), width,height); gtk_widget_set_uposition(GTK_WIDGET(window),x,y); gtk_window_set_wmclass(GTK_WINDOW(window),name(),"Gpsim"); gtk_signal_connect(GTK_OBJECT (window), "delete_event", GTK_SIGNAL_FUNC(delete_event), this); scrolled_window=gtk_scrolled_window_new(0, 0); gtk_container_add(GTK_CONTAINER(scrolled_window), GTK_WIDGET(trace_clist)); gtk_widget_show(GTK_WIDGET(trace_clist)); gtk_widget_show(scrolled_window); gtk_box_pack_start(GTK_BOX(main_vbox), scrolled_window, TRUE, TRUE, 0); /////////////////////////////////////////////////// /////////////////////////////////////////////////// /* RRR normal_style = gtk_style_new (); #if GTK_MAJOR_VERSION >= 2 char_width = gdk_string_width(gtk_style_get_font(normal_style), "9"); #else char_width = gdk_string_width(normal_style->font, "9"); #endif column_width = 3 * char_width + 6; RRR*/ gtk_signal_connect_after(GTK_OBJECT(window), "configure_event", GTK_SIGNAL_FUNC(gui_object_configure_event),this); gtk_widget_show (window); if(!trace_map) { trace_map = (struct TraceMapping *)malloc(MAXTRACES * sizeof(struct TraceMapping)); for(i=0; i #include #include #include #include "../config.h" #ifdef HAVE_GUI #include #include #include #include #include #include #include #include "../src/interface.h" #include "../src/trace.h" #include "../src/breakpoints.h" #include "gui.h" #include "preferences.h" #include "gui_register.h" #include "gui_statusbar.h" #include "gui_regwin.h" #include "gui_watch.h" #define TRACE_FILE_FORMAT_ASCII 0 #define TRACE_FILE_FORMAT_LXT 1 extern int gui_question(const char *question, const char *a, const char *b); // extern GUI_Processor *gp; typedef enum { MENU_BREAK_CLEAR, MENU_BREAK_READ, MENU_BREAK_WRITE, MENU_BREAK_ON_CHANGE, MENU_BREAK_READ_VALUE, MENU_BREAK_WRITE_VALUE, MENU_ADD_WATCH, MENU_SETTINGS, MENU_LOG_SETTINGS, MENU_LOG_READ, MENU_LOG_WRITE, MENU_LOG_READ_VALUE, MENU_LOG_WRITE_VALUE, MENU_REGWIN_REFRESH, } menu_id; ///////////////////// ///// ///// Experimental code to test an object oriented way of implementing menus ///// ///////////////////// class MenuItem { private: char *name; menu_id id; public: virtual ~MenuItem() { } virtual void execute()=0; }; class RegWindowMenuItem : public MenuItem { public: virtual ~RegWindowMenuItem() { } private: Register_Window *rw; }; class Menu_BreakClear : public RegWindowMenuItem { public: virtual ~Menu_BreakClear() { } virtual void execute() { printf("BreakClear"); } } BreakClear; MenuItem *__menu_items[] = { &BreakClear }; ///////////////////// ///// ///// End of experimental code ///// ///////////////////// typedef struct _menu_item { const char *name; menu_id id; } menu_item; static menu_item menu_items[] = { {"Clear breakpoints", MENU_BREAK_CLEAR}, {"Set break on read", MENU_BREAK_READ}, {"Set break on write", MENU_BREAK_WRITE}, {"Set break on change", MENU_BREAK_ON_CHANGE}, {"Set break on read value...", MENU_BREAK_READ_VALUE}, {"Set break on write value...", MENU_BREAK_WRITE_VALUE}, {"Set log settings...", MENU_LOG_SETTINGS}, {"Set log on read", MENU_LOG_READ}, {"Set log on write", MENU_LOG_WRITE}, {"Set log on read value...", MENU_LOG_READ_VALUE}, {"Set log on write value...", MENU_LOG_WRITE_VALUE}, {"Add watch", MENU_ADD_WATCH}, {"Refresh", MENU_REGWIN_REFRESH}, {"Settings...", MENU_SETTINGS} }; extern int font_dialog_browse(GtkWidget *w, gpointer user_data); static int dlg_x=200, dlg_y=200; // Used only in popup menus Register_Window *popup_rw; //======================================================================== // //-------------------------------------------------- // get_register // get the "real" register. If 'bTopLevelOnly' is true // Register *GUIRegister::get_register() { if(!rma) return 0; return rma->get_register(address); } void GUIRegister::put_value(unsigned int new_value) { Register *reg = get_register(); if(reg) { reg->put_value(new_value); // Shadow a copy of the register value so that we can tell if it has changed // when we go to perform an update in the future. shadow = reg->getRV_notrace(); } else { fprintf(stderr, "RRR %s %d reg is 0 new_value=%x\n", __FUNCTION__, __LINE__, new_value); } } void GUIRegister::put_shadow(RegisterValue new_value) { // Update the shadow copy of the register without updating the register. shadow = new_value; } unsigned int GUIRegister::get_value() { Register *reg = get_register(); if(reg) return reg->get_value(); return 0; } RegisterValue GUIRegister::getRV() { Register *reg = get_register(); if(reg) { return reg->getRV_notrace(); } return RegisterValue(0,0); } char * GUIRegister::getValueAsString(char *str, int len, char *pFormat, RegisterValue value) { if(!str || !len) return 0; if(bIsValid()) { char hex2ascii[] = "0123456789ABCDEF"; int i; int min = (len < register_size*2) ? len : register_size*2; if(value.data == INVALID_VALUE) value.init = 0xfffffff; for(i=0; i < min; i++) { if(value.init & 0x0f) str[min-i-1] = '?'; else str[min-i-1] = hex2ascii[value.data & 0x0f]; value >>= 4; } str[min] = 0; } else *str = 0; return str; } bool GUIRegister::hasChanged(RegisterValue ¤t_value) const { return (shadow != current_value); } void GUIRegister::Clear_xref() { Register *reg = get_register(); if(reg) reg->remove_xref((gpointer *)xref); } void GUIRegister::Assign_xref(CrossReferenceToGUI *new_xref) { Register *reg = get_register(); if(reg) reg->add_xref( (gpointer *)new_xref); xref = new_xref; } bool GUIRegister::hasBreak() { if(rma) return rma->hasBreak(address); return false; } char *GUIRegister::name() { static char buffer[128]; Register *reg = get_register(); if (!reg) { sprintf(buffer,"NULL"); return buffer; } //register_symbol * pRegSym = get_symbol_table().findRegisterSymbol(reg->address); if(!reg || reg->isa()==Register::INVALID_REGISTER) return 0; // FIXME -- potential buffer overflow... if(bIsAliased) sprintf(buffer,"alias (%s)", reg->name().c_str()); else sprintf(buffer,"%s", reg->name().c_str()); /* else { if(pRegSym == 0) { strcpy(buffer,reg->name().c_str()); } else { strcpy(buffer,pRegSym->name().c_str()); } } */ return buffer; } bool GUIRegister::bIsValid() { if(rma && (*rma)[address].getReg()) return true; return false; } bool GUIRegister::bIsSFR() { if(rma && (*rma)[address].isa() == Register::SFR_REGISTER) return true; return false; } GUIRegister::GUIRegister() { rma = 0; xref = 0; } GUIRegister::~GUIRegister() { rma = 0; if(xref != NULL) { delete xref; } } //======================================================================== class RegisterWindowXREF : public CrossReferenceToGUI { public: void Update(int new_value) { GUIRegister *reg; Register_Window *rw; int address; reg = (GUIRegister *) (data); rw = (Register_Window *) (parent_window); if(reg->row > GTK_SHEET(rw->register_sheet)->maxrow) { puts("Warning reg->row > maxrow in xref_update_cell"); return; } address = rw->row_to_address[reg->row]+reg->col; rw->registers->Get(address)->bUpdateFull=true; rw->UpdateRegisterCell(address); rw->UpdateASCII(reg->row); } }; //======================================================================== // // Create a class for an invalid register and instantiate a single instance // of it. The purpose of this is to provide a place holder for the gui // register array. // class InvalidGuiRegister : public GUIRegister { public: void put_value(unsigned int new_value) { printf("(gui_regwin)Warning: writing to invalid register\n"); }; unsigned int get_value() { return 0;}; InvalidGuiRegister() { rma=0; } private: void operator delete(void *ignore) {}; }; static InvalidGuiRegister THE_invalid_register; //======================================================================== // GtkSheet extensions // // The gtk_sheet api does not provide access to row and column labels. // This means we can manipulate the font the way the cells can be manipulated #if 0 // defined but not used static GtkSheetButton * gtk_sheet_row_button_get(GtkSheet *sheet, gint row) { g_return_val_if_fail (sheet != NULL, NULL); g_return_val_if_fail (GTK_IS_SHEET (sheet), NULL); if(row < 0 || row > sheet->maxrow) return NULL; return (&sheet->row[row].button); } #endif static void gtk_sheet_REALLY_set_row_height(GtkSheet *sheet, gint row, gint height) { g_return_if_fail (sheet != NULL); g_return_if_fail (GTK_IS_SHEET (sheet)); if (row < 0 || row > sheet->maxrow) return; sheet->row[row].height = height; } //======================================================================== // get_value static void a_cb(GtkWidget *w, gpointer user_data) { *(int*)user_data=TRUE; // gtk_main_quit(); } static void b_cb(GtkWidget *w, gpointer user_data) { *(int*)user_data=FALSE; // gtk_main_quit(); } // used for reading a value from user when break on value is requested int gui_get_value(const char *prompt) { static GtkWidget *dialog=0; static GtkWidget *label; static GtkWidget *entry; GtkWidget *button; GtkWidget *hbox; int retval=-1; int value; if(dialog==0) { dialog = gtk_dialog_new(); gtk_window_set_title(GTK_WINDOW(dialog),"enter value"); // gtk_signal_connect(GTK_OBJECT(dialog), // "configure_event",GTK_SIGNAL_FUNC(configure_event),0); gtk_signal_connect_object(GTK_OBJECT(dialog), "delete_event",GTK_SIGNAL_FUNC(gtk_widget_hide),GTK_OBJECT(dialog)); label=gtk_label_new("values can be entered in decimal, hexadecimal, and octal.\nFor example: 31 is the same as 0x1f and 037"); gtk_widget_show(label); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->vbox), label,FALSE,FALSE,20); hbox = gtk_hbox_new(0,0); gtk_widget_show(hbox); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->vbox), hbox,FALSE,FALSE,20); button = gtk_button_new_with_label("OK"); gtk_widget_show(button); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->action_area), button, FALSE,FALSE,10); gtk_signal_connect(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(a_cb),(gpointer)&retval); button = gtk_button_new_with_label("Cancel"); gtk_widget_show(button); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->action_area), button, FALSE,FALSE,10); gtk_signal_connect(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(b_cb),(gpointer)&retval); label=gtk_label_new(prompt); gtk_widget_show(label); gtk_box_pack_start(GTK_BOX(hbox), label, FALSE,FALSE, 20); entry=gtk_entry_new(); gtk_widget_show(entry); gtk_box_pack_start(GTK_BOX(hbox), entry,FALSE,FALSE,20); } else { gtk_label_set_text(GTK_LABEL(label),prompt); } // gtk_widget_set_uposition(GTK_WIDGET(dialog),dlg_x,dlg_y); gtk_widget_show_now(dialog); gtk_grab_add(dialog); while(retval==-1 && GTK_WIDGET_VISIBLE(dialog)) gtk_main_iteration(); gtk_grab_remove(dialog); gtk_widget_hide(dialog); if(retval==(int)TRUE) { char *end; const gchar *entry_text; entry_text = gtk_entry_get_text(GTK_ENTRY(entry)); value = strtoul(entry_text,&end,0); if(*entry_text!='\0' && *end=='\0') return value; else return -1; } return -1; } // used for reading a value from user when break on value is requested void gui_get_2values(const char *prompt1, int *value1, const char *prompt2, int *value2) { static GtkWidget *dialog=0; GtkWidget *button; GtkWidget *hbox1, *hbox2; static GtkWidget *label1, *label2, *label; static GtkWidget *entry1, *entry2; int value; int retval=-1; if(dialog==0) { dialog = gtk_dialog_new(); gtk_window_set_title(GTK_WINDOW(dialog),"enter values"); // gtk_signal_connect(GTK_OBJECT(dialog), // "configure_event",GTK_SIGNAL_FUNC(configure_event),0); gtk_signal_connect_object(GTK_OBJECT(dialog), "delete_event",GTK_SIGNAL_FUNC(gtk_widget_hide),GTK_OBJECT(dialog)); label=gtk_label_new("values can be entered in decimal, hexadecimal, and octal.\nFor example: 31 is the same as 0x1f and 037"); gtk_widget_show(label); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->vbox), label,FALSE,FALSE,20); button = gtk_button_new_with_label("OK"); gtk_widget_show(button); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->action_area), button, FALSE,FALSE,10); gtk_signal_connect(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(a_cb),(gpointer)&retval); button = gtk_button_new_with_label("Cancel"); gtk_widget_show(button); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->action_area), button, FALSE,FALSE,10); gtk_signal_connect(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(b_cb),(gpointer)&retval); // Value 1 hbox1 = gtk_hbox_new(0,0); gtk_widget_show(hbox1); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->vbox), hbox1,FALSE,FALSE,20); label1=gtk_label_new(prompt1); gtk_widget_show(label1); gtk_box_pack_start(GTK_BOX(hbox1), label1, FALSE,FALSE, 20); entry1=gtk_entry_new(); gtk_widget_show(entry1); gtk_box_pack_start(GTK_BOX(hbox1), entry1,FALSE,FALSE,20); // Value 2 hbox2 = gtk_hbox_new(0,0); gtk_widget_show(hbox2); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->vbox), hbox2,FALSE,FALSE,20); label2=gtk_label_new(prompt2); gtk_widget_show(label2); gtk_box_pack_start(GTK_BOX(hbox2), label2, FALSE,FALSE, 20); entry2=gtk_entry_new(); gtk_widget_show(entry2); gtk_box_pack_start(GTK_BOX(hbox2), entry2,FALSE,FALSE,20); } else { gtk_label_set_text(GTK_LABEL(label1),prompt1); gtk_label_set_text(GTK_LABEL(label2),prompt2); } // gtk_widget_set_uposition(GTK_WIDGET(dialog),dlg_x,dlg_y); gtk_widget_show_now(dialog); gtk_grab_add(dialog); while(retval==-1 && GTK_WIDGET_VISIBLE(dialog)) gtk_main_iteration(); gtk_grab_remove(dialog); gtk_widget_hide(dialog); if(retval==(int)TRUE) { // "Ok" char *end; const gchar *entry_text; entry_text = gtk_entry_get_text(GTK_ENTRY(entry1)); value = strtoul(entry_text,&end,0); if(*entry_text=='\0' || *end!='\0') { *value1=-1; *value2=-1; return; } *value1=value; entry_text = gtk_entry_get_text(GTK_ENTRY(entry2)); value = strtoul(entry_text,&end,0); if(*entry_text=='\0' || *end!='\0') { *value1=-1; *value2=-1; return; } *value2=value; return; } // "Cancel" *value1=-1; *value2=-1; return; } static const char *file_selection_name; static int filemode; static int fs_done; static void file_selection_ok (GtkWidget *w, GtkFileSelection *fs) { file_selection_name=gtk_file_selection_get_filename (fs); fs_done=1; } static void file_selection_cancel (GtkWidget *w, GtkFileSelection *fs) { file_selection_name=0; fs_done=1; } static void modepopup_activated(GtkWidget *widget, gpointer data) { Dprintf((" modepopup_activated\n")); char *modestring; modestring=(char*)data; if(!strcmp(modestring,"ASCII")) filemode=TRACE_FILE_FORMAT_ASCII; if(!strcmp(modestring,"LXT")) filemode=TRACE_FILE_FORMAT_LXT; } static char *gui_get_log_settings(const char **filename, int *mode) { static GtkWidget *window = 0; GtkWidget *hbox, *optionmenu, *label; GtkWidget *menu; GtkWidget *item; const char *prompt="Log settings"; if (!window) { window = gtk_file_selection_new (prompt); gtk_file_selection_hide_fileop_buttons (GTK_FILE_SELECTION (window)); gtk_window_set_position (GTK_WINDOW (window), GTK_WIN_POS_MOUSE); gtk_signal_connect_object(GTK_OBJECT(window), "delete_event",GTK_SIGNAL_FUNC(gtk_widget_hide),GTK_OBJECT(window)); // gtk_signal_connect_object (GTK_OBJECT (window), "destroy", // GTK_SIGNAL_FUNC(gtk_widget_destroyed), // GTK_OBJECT(window)); gtk_signal_connect (GTK_OBJECT (GTK_FILE_SELECTION (window)->ok_button), "clicked", GTK_SIGNAL_FUNC(file_selection_ok), window); gtk_signal_connect (GTK_OBJECT (GTK_FILE_SELECTION (window)->cancel_button), "clicked", GTK_SIGNAL_FUNC(file_selection_cancel), window); hbox = gtk_hbox_new(0,0); gtk_widget_show(hbox); gtk_box_pack_end(GTK_BOX(GTK_FILE_SELECTION (window)->action_area), hbox, FALSE,FALSE,20); label = gtk_label_new("File format:"); gtk_box_pack_start(GTK_BOX(hbox), label, FALSE,FALSE,20); gtk_widget_show(label); optionmenu = gtk_option_menu_new(); gtk_widget_show(optionmenu); gtk_box_pack_end(GTK_BOX(hbox), optionmenu, FALSE,FALSE,20); menu=gtk_menu_new(); item=gtk_menu_item_new_with_label("ASCII"); gtk_signal_connect(GTK_OBJECT(item),"activate", (GtkSignalFunc) modepopup_activated, (gpointer)"ASCII"); // GTK_WIDGET_SET_FLAGS (item, GTK_SENSITIVE | GTK_CAN_FOCUS); gtk_widget_show(item); gtk_menu_append(GTK_MENU(menu),item); item=gtk_menu_item_new_with_label("LXT"); gtk_signal_connect(GTK_OBJECT(item),"activate", (GtkSignalFunc) modepopup_activated, (gpointer)"LXT"); // GTK_WIDGET_SET_FLAGS (item, GTK_SENSITIVE | GTK_CAN_FOCUS); gtk_widget_show(item); gtk_menu_append(GTK_MENU(menu),item); gtk_option_menu_set_menu(GTK_OPTION_MENU(optionmenu), menu); } file_selection_name=0; gtk_widget_show_now(window); fs_done=0; file_selection_name=0; gtk_grab_add(window); while(!fs_done && GTK_WIDGET_VISIBLE(window)) gtk_main_iteration(); gtk_grab_remove(window); gtk_widget_hide(window); if(file_selection_name==0) { *filename=0; return 0; } *filename=file_selection_name; *mode=filemode; return 0; } // called when user has selected a menu item static void popup_activated(GtkWidget *widget, gpointer data) { GtkSheet *sheet; menu_item *item; int i,j; GtkSheetRange range; unsigned int address; int value, mask; const char *filename; int mode; Dprintf((" popup_activated\n")); if(widget==0 || data==0) { printf("Warning popup_activated(%p,%p)\n",widget,data); return; } if(!popup_rw || !popup_rw->gp || !popup_rw->gp->cpu) { printf(" no cpu\n"); return; } item = (menu_item *)data; sheet=GTK_SHEET(popup_rw->register_sheet); range = sheet->range; for(j=range.row0;j<=range.rowi;j++) for(i=range.col0;i<=range.coli;i++) { address=popup_rw->row_to_address[j]+i; switch(item->id) { case MENU_BREAK_READ: get_bp().set_read_break(popup_rw->gp->cpu, address); break; case MENU_BREAK_WRITE: get_bp().set_write_break(popup_rw->gp->cpu, address); break; case MENU_BREAK_ON_CHANGE: get_bp().set_change_break(popup_rw->gp->cpu, address); break; case MENU_BREAK_READ_VALUE: value = gui_get_value("value to read for breakpoint:"); if(value<0) break; // Cancel get_bp().set_read_value_break(popup_rw->gp->cpu,address,value); break; case MENU_BREAK_WRITE_VALUE: value = gui_get_value("value to write for breakpoint:"); if(value<0) break; // Cancel get_bp().set_write_value_break(popup_rw->gp->cpu,address,value); break; case MENU_BREAK_CLEAR: get_bp().clear_all_register(popup_rw->gp->cpu,address); break; case MENU_ADD_WATCH: popup_rw->gp->watch_window->Add(popup_rw->type, popup_rw->registers->Get(address)); break; case MENU_LOG_READ: GetTraceLog().enable_logging(); // FIXME the register type is ignored here (and in all other cases // where we're logging -- it's assumed that the register address is // for ram, even if in fact the user requests eeprom. get_bp().set_notify_read(popup_rw->gp->cpu,address); break; case MENU_LOG_WRITE: get_bp().set_notify_write(popup_rw->gp->cpu,address); break; case MENU_LOG_READ_VALUE: gui_get_2values("Value that the read must match for logging it:", &value, "Bitmask that specifies the bits to bother about:", &mask); if(value<0) break; // Cancel get_bp().set_notify_read_value(popup_rw->gp->cpu,address, value, mask); break; case MENU_LOG_WRITE_VALUE: gui_get_2values("Value that the write must match for logging it:", &value, "Bitmask that specifies the bits to bother about:", &mask); if(value<0) break; // Cancel get_bp().set_notify_write_value(popup_rw->gp->cpu,address, value, mask); break; case MENU_SETTINGS: popup_rw->SettingsDialog(); return; break; case MENU_LOG_SETTINGS: gui_get_log_settings(&filename, &mode); if(filename!=0) GetTraceLog().enable_logging(filename,mode); return; break; case MENU_REGWIN_REFRESH: popup_rw->Update(); return; break; default: puts("Unhandled menuitem?"); break; } } #if 0 switch(item->id) { case MENU_BREAK_READ: for(j=range.row0;j<=range.rowi;j++) for(i=range.col0;i<=range.coli;i++) { address=popup_rw->row_to_address[j]+i; get_bp().set_read_break(popup_rw->gp->cpu, address); } break; case MENU_BREAK_WRITE: for(j=range.row0;j<=range.rowi;j++) for(i=range.col0;i<=range.coli;i++) { address=popup_rw->row_to_address[j]+i; get_bp().set_write_break(popup_rw->gp->cpu, address); } break; case MENU_BREAK_READ_VALUE: value = gui_get_value("value to read for breakpoint:"); if(value<0) break; // Cancel for(j=range.row0;j<=range.rowi;j++) for(i=range.col0;i<=range.coli;i++) { address=popup_rw->row_to_address[j]+i; get_bp().set_read_value_break(popup_rw->gp->cpu,address,value); } break; case MENU_BREAK_WRITE_VALUE: value = gui_get_value("value to write for breakpoint:"); if(value<0) break; // Cancel for(j=range.row0;j<=range.rowi;j++) for(i=range.col0;i<=range.coli;i++) { address=popup_rw->row_to_address[j]+i; get_bp().set_write_value_break(popup_rw->gp->cpu,address,value); } break; case MENU_BREAK_CLEAR: for(j=range.row0;j<=range.rowi;j++) for(i=range.col0;i<=range.coli;i++) { address=popup_rw->row_to_address[j]+i; get_bp().clear_all_register(popup_rw->gp->cpu,address); } break; case MENU_ADD_WATCH: for(j=range.row0;j<=range.rowi;j++) for(i=range.col0;i<=range.coli;i++) { address=popup_rw->row_to_address[j]+i; popup_rw->gp->watch_window->Add(popup_rw->type, popup_rw->registers->Get(address)); } break; case MENU_SETTINGS: popup_rw->SettingsDialog(); break; case MENU_LOG_SETTINGS: gui_get_log_settings(&filename, &mode); if(filename!=0) GetTraceLog().enable_logging(filename,mode); break; case MENU_LOG_READ: for(j=range.row0;j<=range.rowi;j++) { for(i=range.col0;i<=range.coli;i++) { address=popup_rw->row_to_address[j]+i; GetTraceLog().enable_logging(); // FIXME the register type is ignored here (and in all other cases // where we're logging -- it's assumed that the register address is // for ram, even if in fact the user requests eeprom. get_bp().set_notify_read(popup_rw->gp->cpu,address); } } break; case MENU_LOG_WRITE: for(j=range.row0;j<=range.rowi;j++) for(i=range.col0;i<=range.coli;i++) { address=popup_rw->row_to_address[j]+i; get_bp().set_notify_write(popup_rw->gp->cpu,address); } break; case MENU_LOG_READ_VALUE: gui_get_2values("Value that the read must match for logging it:", &value, "Bitmask that specifies the bits to bother about:", &mask); if(value<0) break; // Cancel for(j=range.row0;j<=range.rowi;j++) for(i=range.col0;i<=range.coli;i++) { address=popup_rw->row_to_address[j]+i; get_bp().set_notify_read_value(popup_rw->gp->cpu,address, value, mask); } break; case MENU_LOG_WRITE_VALUE: gui_get_2values("Value that the write must match for logging it:", &value, "Bitmask that specifies the bits to bother about:", &mask); if(value<0) break; // Cancel for(j=range.row0;j<=range.rowi;j++) for(i=range.col0;i<=range.coli;i++) { address=popup_rw->row_to_address[j]+i; get_bp().set_notify_write_value(popup_rw->gp->cpu,address, value, mask); } break; case MENU_REGWIN_REFRESH: popup_rw->Update(); break; default: puts("Unhandled menuitem?"); break; } #endif // 0 } static GtkWidget * build_menu(Register_Window *rw) { GtkWidget *menu; GtkWidget *item; // GtkAccelGroup *accel_group; int i; if(rw==0) { printf("Warning build_menu(%p)\n",rw); return 0; } menu=gtk_menu_new(); item = gtk_tearoff_menu_item_new (); gtk_menu_append (GTK_MENU (menu), item); gtk_widget_show (item); for (i=0; i < (int)(sizeof(menu_items)/sizeof(menu_items[0])) ; i++){ item=gtk_menu_item_new_with_label(menu_items[i].name); gtk_signal_connect(GTK_OBJECT(item),"activate", (GtkSignalFunc) popup_activated, &menu_items[i]); GTK_WIDGET_SET_FLAGS (item, GTK_SENSITIVE | GTK_CAN_FOCUS); if(rw->type == REGISTER_EEPROM && menu_items[i].id!=MENU_ADD_WATCH &&menu_items[i].id!=MENU_SETTINGS) { GTK_WIDGET_UNSET_FLAGS (item, GTK_SENSITIVE | GTK_CAN_FOCUS); } gtk_widget_show(item); gtk_menu_append(GTK_MENU(menu),item); } return menu; } // button press handler static gint do_popup(GtkWidget *widget, GdkEventButton *event, Register_Window *rw) { GtkWidget *popup; // GdkModifierType mods; popup=rw->popup_menu; if(widget==0 || event==0 || rw==0) { printf("Warning do_popup(%p,%p,%p)\n",widget,event,rw); return 0; } GTK_SHEET(widget); if( (event->type == GDK_BUTTON_PRESS) && (event->button == 3) ) { popup_rw = rw; gtk_menu_popup(GTK_MENU(popup), 0, 0, 0, 0, 3, event->time); } return FALSE; } // The following routine will convert the first number it finds in // a string to an unsigned long integer. All of the hard work is done // in the library function strtoul (string to unsigned long). static unsigned long get_number_in_string(const char *number_string) { unsigned long retval = 0; char *bad_position; int current_base = 16; if(number_string==0) { printf("Warning get_number_in_string(%p)\n",number_string); errno = EINVAL; return (unsigned long)-1; } errno = 0; retval = strtoul(number_string, &bad_position, current_base); if( strlen(bad_position) ) errno = EINVAL; /* string contains an invalid number */ return(retval); } // when a new cell is selected, we write changes in // previously selected cell to gpsim // (the name of the signal seems a bit strange) static void set_cell(GtkWidget *widget, int row, int col, Register_Window *rw) { Dprintf((" set_cell\n")); GtkSheet *sheet; const gchar *text; int n=0; //int crow, ccol; sheet=GTK_SHEET(widget); if(widget==0 || row>sheet->maxrow || row<0 || col>sheet->maxcol || col<0 || rw==0) { printf("Warning set_cell(%p,%x,%x,%p)\n",widget,row,col,rw); return; } GUIRegister *reg = rw->getRegister(row,col); if(!reg) return; // ignore user changes in ascii column for right now // extract value from sheet cell GtkWidget * sheet_entry = gtk_sheet_get_entry(sheet); if (!sheet_entry) return; text = gtk_entry_get_text(GTK_ENTRY(sheet_entry)); errno = 0; if(text!=0 && strlen(text)>0) n = get_number_in_string(text); else errno = ERANGE; if(errno != 0) { n = reg->get_value(); reg->put_shadow(RegisterValue(INVALID_VALUE,INVALID_VALUE)); } // n is the value in the sheet cell if(errno != EINVAL && n != (int) reg->get_shadow().data) { reg->put_value(n & gpGuiProcessor->cpu->register_mask()); rw->UpdateASCII(row); } } //------------------------------------------------------------------------ // int column_width(int col) // // Return the width of one of the register sheet columns. // // Column = -1 is the row label // Columns 0-REGISTERS_PER_ROW are ram/registers // Column REGISTERS_PER_ROW is an ASCII string of the row data. // // The width of the column is based on width of a single character, // char_width. This width is depends on the font and is computed in // LoadStyles() // // FIXME: column_width assumes there are fewer than 0x1000 registers. int Register_Window::column_width(int col) { if(!char_width) return 0; // Row Labels if(col < 0) return char_width * 3; // Register data if(col < REGISTERS_PER_ROW) return char_width * chars_per_column; // ASCII column return char_width * (REGISTERS_PER_ROW + 1) + char_width/2; } //------------------------------------------------------------------------ int Register_Window::row_height(int row) { return char_height ? char_height : 20; } //------------------------------------------------------------------------ // UpdateLabel // // void Register_Window::UpdateLabel() { int row = -1, col = -1; if(register_sheet != 0) { gtk_sheet_get_active_cell(register_sheet, &row, &col); if(col > -1 && row > -1) { if(col >= REGISTERS_PER_ROW) gtk_label_set(GTK_LABEL(location), " ascii "); else { GUIRegister *reg = getRegister(row,col); const char *n = reg ? reg->name() : "INVALID_REGISTER"; gtk_label_set(GTK_LABEL(location), n); } } } } //------------------------------------------------------------------------ // UpdateEntry // // void Register_Window::UpdateEntry() { gint row, col; const char *text; GtkWidget * sheet_entry; if(register_sheet != 0) { sheet_entry = gtk_sheet_get_entry(register_sheet); gtk_sheet_get_active_cell(register_sheet, &row, &col); if(row_to_address[row] < 0) return; GUIRegister *reg = getRegister(row,col); if(reg && reg->bIsValid() ) { if((text=gtk_entry_get_text (GTK_ENTRY(sheet_entry)))) gtk_entry_set_text(GTK_ENTRY(entry), text); } } } //------------------------------------------------------------------------ // UpdateLabelEntry // // void Register_Window::UpdateLabelEntry() { UpdateLabel(); UpdateEntry(); } static gint configure_event(GtkWidget *widget, GdkEventConfigure *e, gpointer data) { if(widget->window==0) return 0; gdk_window_get_root_origin(widget->window,&dlg_x,&dlg_y); return 0; // what should be returned?, FIXME } //------------------------------------------------------------------------ void Register_Window::UpdateStyle() { if (!register_sheet || !normalfont) return; GtkSheetRange range; //gtk_sheet_freeze(register_sheet); // Update the font for the cells range.row0=0; range.rowi=register_sheet->maxrow; range.col0=0; range.coli=register_sheet->maxcol; gtk_sheet_range_set_font(register_sheet, &range, normalfont); // Update the font for the row and column labels gtk_widget_modify_font(GTK_WIDGET(register_sheet),normalfont); // Adjust the cell sizes based on the font size int i; for(i=0; i<=register_sheet->maxcol; i++) gtk_sheet_set_column_width (register_sheet, i, column_width(i)); for(i=0; i<=register_sheet->maxrow; i++) gtk_sheet_REALLY_set_row_height (register_sheet, i, row_height(i)); gtk_sheet_set_row_titles_width(register_sheet, column_width(-1)); gtk_sheet_set_column_titles_height(register_sheet, row_height(0)); //gtk_sheet_thaw(register_sheet); } //------------------------------------------------------------------------ int Register_Window::LoadStyles() { #if GTK_MAJOR_VERSION >= 2 normalfont = pango_font_description_from_string(normalfont_string); #else normalfont=gdk_fontset_load (normalfont_string); #endif if(!normalfont) { char_width = 0; char_height = 0; return 0; } #if GTK_MAJOR_VERSION >= 2 { PangoRectangle rect; PangoLayout *layout; layout = gtk_widget_create_pango_layout (GTK_WIDGET(register_sheet), "A"); pango_layout_set_font_description (layout, normalfont); pango_layout_get_extents (layout, NULL, &rect); char_width = PANGO_PIXELS(rect.width); char_height = PANGO_PIXELS(rect.height + (rect.height<<1))>>1; g_object_unref(G_OBJECT(layout)); } #else char_width = gdk_string_width (normalfont,"9"); #endif return 1; } /********************** Settings dialog ***************************/ static int settings_active; static void settingsok_cb(GtkWidget *w, gpointer user_data) { if(settings_active) settings_active=0; } int Register_Window::SettingsDialog() { static GtkWidget *dialog=0; // fixme GtkWidget *button; GtkWidget *hbox; static GtkWidget *normalfontstringentry; //fixme GtkWidget *label; int fonts_ok=0; if(!dialog) { dialog = gtk_dialog_new(); gtk_window_set_title (GTK_WINDOW (dialog), "Register window settings"); gtk_signal_connect(GTK_OBJECT(dialog), "configure_event",GTK_SIGNAL_FUNC(configure_event),0); gtk_signal_connect_object(GTK_OBJECT(dialog), "delete_event",GTK_SIGNAL_FUNC(gtk_widget_hide),GTK_OBJECT(dialog)); // Normal font hbox = gtk_hbox_new(0,0); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->vbox), hbox,FALSE,FALSE,20); gtk_widget_show(hbox); label=gtk_label_new("Normal font:"); gtk_box_pack_start(GTK_BOX(hbox), label, FALSE,FALSE, 20); gtk_widget_show(label); normalfontstringentry=gtk_entry_new(); gtk_box_pack_start(GTK_BOX(hbox), normalfontstringentry, TRUE, TRUE, 0); gtk_widget_show(normalfontstringentry); button = gtk_button_new_with_label("Browse..."); gtk_widget_show(button); gtk_box_pack_start(GTK_BOX(hbox), button, FALSE,FALSE,10); gtk_signal_connect(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(font_dialog_browse),(gpointer)normalfontstringentry); // OK button button = gtk_button_new_with_label("OK"); gtk_widget_show(button); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->action_area), button, FALSE,FALSE,10); gtk_signal_connect(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(settingsok_cb),(gpointer)dialog); } gtk_entry_set_text(GTK_ENTRY(normalfontstringentry), normalfont_string); gtk_widget_set_uposition(GTK_WIDGET(dialog),dlg_x,dlg_y); gtk_widget_show_now(dialog); #if GTK_MAJOR_VERSION >= 2 PangoFontDescription *font=0; #else GdkFont *font=0; #endif while(fonts_ok!=1) { char fontname[256]; settings_active=1; while(settings_active) gtk_main_iteration(); fonts_ok=0; strcpy(fontname,gtk_entry_get_text(GTK_ENTRY(normalfontstringentry))); #if GTK_MAJOR_VERSION >= 2 if((font=pango_font_description_from_string(fontname))==0) #else if((font=gdk_fontset_load(fontname))==0) #endif { if(gui_question("Font did not load!","Try again","Ignore/Cancel")==FALSE) break; } else { #if GTK_MAJOR_VERSION >= 2 #else gdk_font_unref(font); #endif strcpy(normalfont_string,gtk_entry_get_text(GTK_ENTRY(normalfontstringentry))); config_set_string(name(),"normalfont",normalfont_string); fonts_ok++; } } if(!LoadStyles()) { printf("no font is available\n"); return 0; } gtk_sheet_freeze(register_sheet); UpdateStyle(); gtk_sheet_thaw(register_sheet); gtk_widget_hide(dialog); return 0; } static gboolean clipboard_handler(GtkWidget *widget, GdkEventKey *key) { Dprintf((" clipboard_handler\n")); GtkSheet *sheet; sheet = GTK_SHEET(widget); if(key->state & GDK_CONTROL_MASK || key->keyval==GDK_Control_L || key->keyval==GDK_Control_R){ if((key->keyval=='c' || key->keyval == 'C') && sheet->state != GTK_STATE_NORMAL){ #if GTK_MAJOR_VERSION >= 2 /* --- tsd - commented out because this function is not defined in the official gtkextra-2.0 release. if (gtk_sheet_in_clip(sheet)) gtk_sheet_unclip_range(sheet); */ #else if(GTK_SHEET_IN_CLIP(sheet)) gtk_sheet_unclip_range(sheet); #endif gtk_sheet_clip_range(sheet, &sheet->range); } if(key->keyval=='x' || key->keyval == 'X') gtk_sheet_unclip_range(sheet); } return 0; } static void resize_handler(GtkWidget *widget, GtkSheetRange *old_range, GtkSheetRange *new_range, Register_Window *rw) { Dprintf((" resize_handler\n")); int i, j, cti, ctj; int from, to; if(widget==0 || old_range==0 || new_range==0 || rw==0) { printf("Warning resize_handler(%p,%p,%p,%p)\n",widget,old_range,new_range,rw); return; } cti = new_range->coli - new_range->col0 + 1; ctj = new_range->rowi - new_range->row0 + 1; // We always copy from this one cell. from = rw->row_to_address[old_range->row0]+old_range->col0; for(j=0;jrow_to_address[new_range->row0+j]+new_range->col0+i; rw->registers->Get(to)->put_value(rw->registers->Get(from)->get_value()); } } } static void move_handler(GtkWidget *widget, GtkSheetRange *old_range, GtkSheetRange *new_range, Register_Window *rw) { Dprintf((" move_handler\n")); int i, j, cti, ctj; int from, to; if(!widget || !old_range || !new_range || !rw) return; if (old_range->row0 < 0 || old_range->col0 < 0 || new_range->row0 < 0 || new_range->col0) return; cti = new_range->coli - new_range->col0 + 1; ctj = new_range->rowi - new_range->row0 + 1; for(j=0;jrow_to_address[old_range->row0+j]+old_range->col0+i; to = rw->row_to_address[new_range->row0+j]+new_range->col0+i; rw->registers->Get(to)->put_value(rw->registers->Get(from)->get_value()); } } } /* when the entry above the sheet is changed (typed a digit), we copy it to the cell entry */ static void show_sheet_entry(GtkWidget *widget, Register_Window *rw) { Dprintf((" show_sheet_entry\n")); const char *text; GtkSheet *sheet; GtkEntry *sheet_entry; int row,col; if(!widget || !rw) { printf("Warning show_sheet_entry(%p,%p)\n",widget,rw); return; } if(!GTK_WIDGET_HAS_FOCUS(widget)) return; sheet=GTK_SHEET(rw->register_sheet); sheet_entry = GTK_ENTRY(gtk_sheet_get_entry(sheet)); //row=sheet->active_cell.row; col=sheet->active_cell.col; gtk_sheet_get_active_cell(sheet, &row, &col); GUIRegister *reg = rw->getRegister(row,col); if(reg && reg->bIsValid() ) if((text=gtk_entry_get_text (GTK_ENTRY(rw->entry))) && sheet_entry) gtk_entry_set_text(sheet_entry, text); } /* when we have new data in the entry above the sheet, we copy the data to the cells/registers this don't get called when it is clicked in, only when we hit return */ static void activate_sheet_entry(GtkWidget *widget, Register_Window *rw) { Dprintf((" activity_sheet_entry\n")); GtkSheet *sheet; gint row, col; if(widget==0|| rw==0) { printf("Warning activate_sheet_entry(%p,%p)\n",widget,rw); return; } sheet=GTK_SHEET(rw->register_sheet); //row=sheet->active_cell.row; col=sheet->active_cell.col; gtk_sheet_get_active_cell(sheet, &row, &col); // if there are text written in the entry above the sheet, then // the same data is in the sheet cell (because of show_sheet_entry()) // so we use set_cell() to write the changes from the sheet cell to gpsim set_cell(GTK_WIDGET(sheet),row,col,rw); rw->UpdateASCII(row); } /* we get here when the entry in a cell is changed (typed a digit), we copy it to the entry above the sheet. */ static void show_entry(GtkWidget *widget, Register_Window *rw) { Dprintf((" show_entry\n")); if(widget==0|| rw==0) { printf("Warning show_entry(%p,%p)\n",widget,rw); return; } if(!GTK_WIDGET_HAS_FOCUS(widget)) return; rw->UpdateEntry(); } /* when the sheet cursor has activated a new cell, we set the label and entry above the sheet */ static gint activate_sheet_cell(GtkWidget *widget, gint row, gint column, Register_Window *rw) { Dprintf((" activate_sheet_cell rma=%p\n",(rw? rw->rma :0))); GtkSheet *sheet = rw ? rw->register_sheet : 0; if(!sheet) return 0; if(widget==0 || row>sheet->maxrow || row<0|| column>sheet->maxcol || column<0 || rw==0) { printf("Warning activate_sheet_cell(%p,%x,%x,%p)\n",widget,row,column,rw); return 0; } GUIRegister *reg = rw->getRegister(row,column); if(reg && reg->bIsValid() ) // enable editing valid cells gtk_entry_set_editable(GTK_ENTRY(gtk_sheet_get_entry(rw->register_sheet)), 1); else // disable editing invalid cells gtk_entry_set_editable(GTK_ENTRY(gtk_sheet_get_entry(rw->register_sheet)), 0); rw->UpdateLabelEntry(); return TRUE; } GUIRegister *Register_Window::getRegister(int row, int col) { if(registers && col < REGISTERS_PER_ROW && row < MAX_ROWS) { int reg_address = row_to_address[row]; if(reg_address < 0) return 0; if(reg_address+ col < MAX_REGISTERS) return registers->Get(reg_address+col); } return 0; } //------------------------------------------------------------------- GUIRegister *Register_Window::operator [] (int address) { if(!registers || address>=MAX_REGISTERS || address<0) return 0; return registers->Get(address); } void Register_Window::SelectRegister(int regnumber) { GtkSheetRange range; int row, col; if(regnumber > MAX_REGISTERS || regnumber<0) { printf("Warning: %s - regnumber = %x\n",__FUNCTION__,regnumber); return; } if(!gp || !gp->cpu ||!registers || !registers->Get(regnumber)) { printf("SelectRegister is not ready yet\n"); return; } row=registers->Get(regnumber)->row; col=registers->Get(regnumber)->col; range.row0=range.rowi=row; range.col0=range.coli=col; gtk_sheet_select_range(GTK_SHEET(register_sheet),&range); if(register_sheet != NULL && (GTK_SHEET(register_sheet)->view.col0>range.col0 || GTK_SHEET(register_sheet)->view.coliview.row0>range.row0 || GTK_SHEET(register_sheet)->view.rowi(regSym); if (pReg && register_sheet) SelectRegister(pReg->getAddress()); /* if(regSym && typeid(*regSym) == typeid(register_symbol) && register_sheet != NULL) { Register* pReg = (Register*)((register_symbol*)regSym)->getReg(); SelectRegister(pReg->address); } */ } static void build_entry_bar(GtkWidget *main_vbox, Register_Window *rw) { Dprintf((" build_entry_bar\n")); GtkRequisition request; GtkWidget *status_box; if(main_vbox == 0 || rw==0) { printf("Warning build_entry_bar(%p,%p)\n",main_vbox,rw); return; } status_box=gtk_hbox_new(FALSE, 1); gtk_container_set_border_width(GTK_CONTAINER(status_box),0); gtk_box_pack_start(GTK_BOX(main_vbox), status_box, FALSE, TRUE, 0); gtk_widget_show(status_box); rw->location=gtk_label_new(""); gtk_widget_size_request(rw->location, &request); gtk_widget_set_usize(rw->location, 160, request.height); gtk_box_pack_start(GTK_BOX(status_box), rw->location, FALSE, TRUE, 0); GTK_WIDGET_SET_FLAGS(rw->location,GTK_CAN_DEFAULT); gtk_widget_show(rw->location); rw->entry=gtk_entry_new(); gtk_box_pack_start(GTK_BOX(status_box), rw->entry, TRUE, TRUE, 0); gtk_widget_show(rw->entry); } void Register_Window::UpdateASCII(gint row) { gint i; gchar name[32]; if(row<0 || row > register_sheet->maxrow) { printf("Warning update_ascii(%x)\n",row); return; } if(!registers_loaded) return; for(i=0; iGet(row_to_address[row] + i)->get_shadow().data; if( (name[i] < ' ') || (name[i]>'~')) name[i] = '.'; } name[REGISTERS_PER_ROW] = 0; gtk_sheet_set_cell(GTK_SHEET(register_sheet), row,REGISTERS_PER_ROW, GTK_JUSTIFY_RIGHT,name); } gboolean Register_Window::UpdateRegisterCell(unsigned int reg_number) { static gboolean bTrace = false; gchar name[16]; GtkSheetRange range; gboolean retval=FALSE; if(reg_number<0 || reg_number>=MAX_REGISTERS) { printf("Warning update_register_cell(%x)\n",reg_number); return 0; } if(!enabled) return 0; // Don't read registers when hidden. Esp with ICD. GUIRegister *guiReg = registers->Get(reg_number); if (!guiReg || !guiReg->rma) return 0; if(reg_number >= guiReg->rma->get_size()) return 0; range.row0=guiReg->row; range.rowi=guiReg->row; range.col0=guiReg->col; range.coli=guiReg->col; // bulk mode stuff is for the ICD. gpsim_set_bulk_mode(1); RegisterValue new_value = guiReg->getRV(); gpsim_set_bulk_mode(0); RegisterValue last_value=guiReg->get_shadow(); if(bTrace) printf("UpdateRegisterCell() Entry: regID=%3d, Full=%s, hasChanged=%s\n", reg_number, guiReg->bUpdateFull ? "true " : "false",\ guiReg->hasChanged(new_value) ? "true " : "false"); if(guiReg->bUpdateFull) { // A 'Full Update' means that the foreground and background colors // need to be repainted. guiReg->bUpdateFull=false; if(guiReg->row<=register_sheet->maxrow) { guiReg->getValueAsString(name,sizeof(name),pCellFormat, new_value); gtk_sheet_set_cell(GTK_SHEET(register_sheet), guiReg->row, guiReg->col, GTK_JUSTIFY_RIGHT,name); } // else the register is invalid and out of the register sheet //if(new_value != last_value) if(guiReg->hasChanged(new_value)) { guiReg->put_shadow(new_value); guiReg->bUpdateFull=true; if(bTrace) printf("UpdateRegisterCell() regID=3%d, bUpdateFull set to true 1\n", reg_number); gtk_sheet_range_set_foreground(GTK_SHEET(register_sheet), &range, gColors.item_has_changed()); } else gtk_sheet_range_set_foreground(GTK_SHEET(register_sheet), &range, gColors.normal_fg()); if(bTrace) printf("UpdateRegisterCell() Background\n"); if(guiReg->hasBreak()) gtk_sheet_range_set_background(GTK_SHEET(register_sheet), &range, gColors.breakpoint()); else if(!guiReg->bIsValid()) gtk_sheet_range_set_background(GTK_SHEET(register_sheet), &range, gColors.invalid()); else if(guiReg->bIsAliased) gtk_sheet_range_set_background(GTK_SHEET(register_sheet), &range, gColors.alias()); else if(guiReg->bIsSFR()) gtk_sheet_range_set_background(GTK_SHEET(register_sheet), &range, gColors.sfr_bg()); else gtk_sheet_range_set_background(GTK_SHEET(register_sheet), &range, gColors.normal_bg()); retval=TRUE; } else if(guiReg->hasChanged(new_value)) { //new_value!=last_value) { if(new_value.data==INVALID_VALUE) { guiReg->put_shadow(RegisterValue(INVALID_VALUE,INVALID_VALUE)); sprintf (name, "??"); } else { // the register has changed since last update guiReg->put_shadow(new_value); guiReg->getValueAsString(name,sizeof(name),pCellFormat, new_value); //sprintf (name, pCellFormat, new_value.data); } gtk_sheet_set_cell(GTK_SHEET(register_sheet), guiReg->row, guiReg->col, GTK_JUSTIFY_RIGHT,name); guiReg->bUpdateFull=true; if(bTrace) printf("UpdateRegisterCell() regID=3%d, bUpdateFull set to true 2\n", reg_number); gtk_sheet_range_set_foreground(GTK_SHEET(register_sheet), &range, gColors.item_has_changed()); retval=TRUE; } gint row,col; gtk_sheet_get_active_cell(register_sheet, &row, &col); if((int)reg_number==(row_to_address[row]+col)) { // if sheet cursor is standing on a cell that is changed, then // we update the entry above the sheet if(new_value.data!=last_value.data) UpdateEntry(); } if(bTrace) printf("UpdateRegisterCell() Exit: regID=%3d, Full=%s, hasChanged=%s, retval=%s\n", reg_number, guiReg->bUpdateFull ? "true " : "false", guiReg->hasChanged(new_value) ? "true " : "false", retval ? "true " : "false"); return retval; } void Register_Window::Update() { int address; bool bRowChanged; int j, i; if(!enabled) return; if(!GTK_WIDGET_VISIBLE(window)) return; if(!registers_loaded) return; if(!gp || !gp->cpu || !register_sheet || !gp->cpu->isHardwareOnline()) { puts("Warning can't update register window"); return; } gtk_sheet_freeze(register_sheet); for(j = 0; j<=GTK_SHEET(register_sheet)->maxrow; j++) { if(row_to_address[j]==-1) continue; bRowChanged = false; for(i = 0; iGet(address); if(pGuiReg != &THE_invalid_register && (pGuiReg->get_shadow().data!=INVALID_VALUE || pGuiReg->bUpdateFull)) { if(UpdateRegisterCell(address) == (gboolean)true) bRowChanged = true; } } if(bRowChanged) UpdateASCII(j); } gtk_sheet_thaw(register_sheet); } //------------------------------------------------------------------------ void Register_Window::SetRegisterSize() { if(gp && gp->cpu) register_size = gp->cpu->register_size(); else register_size = 1; chars_per_column = 1 + 2*register_size; if(pCellFormat) free(pCellFormat); pCellFormat = (char *) malloc(10 * sizeof(char)); sprintf(pCellFormat,"%%0%dx",register_size*2); if(register_sheet) { int i; char buffer[10]; // Column labels for(i=0; imaxcol; i++){ sprintf(buffer,"%02x",i); gtk_sheet_column_button_add_label(register_sheet, i, buffer); gtk_sheet_set_column_title(register_sheet, i, buffer); gtk_sheet_set_column_width (register_sheet, i, column_width(i)); } // ASCII column i = REGISTERS_PER_ROW; sprintf(buffer,"ASCII"); gtk_sheet_column_button_add_label(register_sheet, i, buffer); gtk_sheet_set_column_title(register_sheet, i, buffer); gtk_sheet_set_column_width (register_sheet, i, column_width(i)); gtk_sheet_set_row_titles_width(register_sheet, column_width(-1)); } } GUIRegisterList::GUIRegisterList(RegisterMemoryAccess *pRMA) { m_pRMA = pRMA; unsigned int uAddress; unsigned int uRegisterSize; uRegisterSize = (pRMA->get_size() < MAX_REGISTERS) ? (pRMA->get_size()) : MAX_REGISTERS; for(uAddress=0; uAddress < uRegisterSize; uAddress++) { GUIRegister *pReg = new GUIRegister(); pReg->rma = m_pRMA; pReg->address = uAddress; pReg->register_size = m_pRMA->get_cpu()->register_size(); pReg->bIsAliased = (*m_pRMA)[uAddress].address != (unsigned int)uAddress; m_paRegisters[uAddress] = pReg; } for(;uAddress < MAX_REGISTERS; uAddress++) m_paRegisters[uAddress] = &THE_invalid_register; } GUIRegisterList::~GUIRegisterList() { unsigned int nRegs; unsigned int uAddress; nRegs = (m_pRMA->get_size() < MAX_REGISTERS) ? (m_pRMA->get_size()) : MAX_REGISTERS; for(uAddress=0; uAddress < nRegs; uAddress++) { delete m_paRegisters[uAddress]; } } //------------------------------------------------------------------------ void Register_Window::NewProcessor(GUI_Processor *_gp) { gint i,j, border_mask, border_width; unsigned int reg_number; CrossReferenceToGUI *cross_reference; gboolean row_created; GtkSheetRange range; if(!gp || !gp->cpu || !rma || !gp->cpu->isHardwareOnline()) return; if( !enabled) return; if(!register_sheet){ printf("Warning %s:%d\n",__FUNCTION__,__LINE__); return; } row_created=FALSE; unsigned int nRegs; nRegs = (rma->get_size() < MAX_REGISTERS) ? (rma->get_size()) : MAX_REGISTERS; if (!nRegs) return; gtk_sheet_freeze(register_sheet); j=0; i=0; gtk_sheet_REALLY_set_row_height (register_sheet, j, row_height(i)); SetRegisterSize(); for(reg_number=0;reg_numberGet(reg_number); pGReg->row = j; pGReg->col = i; pGReg->put_shadow(RegisterValue(INVALID_VALUE,INVALID_VALUE)); pGReg->bUpdateFull=true; if(pGReg->bIsValid()) { gpsim_set_bulk_mode(1); pGReg->put_shadow(registers->Get(reg_number)->getRV()); gpsim_set_bulk_mode(0); /* Now create a cross-reference link that the simulator can use to * send information back to the gui */ cross_reference = new RegisterWindowXREF(); cross_reference->parent_window_type = WT_register_window; cross_reference->parent_window = (gpointer) this; cross_reference->data = (gpointer) pGReg; pGReg->Assign_xref(cross_reference); if(!row_created) { char row_label[100]; if(register_sheet->maxrowmaxrow) gtk_sheet_delete_rows(register_sheet,j,register_sheet->maxrow-j); registers_loaded = 1; range.row0=0; range.rowi=register_sheet->maxrow; range.col0=0; range.coli=register_sheet->maxcol; UpdateStyle(); border_mask = GTK_SHEET_RIGHT_BORDER | GTK_SHEET_LEFT_BORDER | GTK_SHEET_BOTTOM_BORDER | GTK_SHEET_TOP_BORDER; border_width = 1; gtk_sheet_range_set_border(register_sheet, &range, border_mask, border_width, 0); border_mask = GTK_SHEET_LEFT_BORDER; border_width = 3; range.col0=REGISTERS_PER_ROW; range.coli=REGISTERS_PER_ROW; gtk_sheet_range_set_border(register_sheet, &range, border_mask, border_width, 0); gtk_sheet_thaw(register_sheet); // set values in the sheet Update(); SelectRegister(0); } static int show_event(GtkWidget *widget, Register_Window *rw) { Dprintf((" show_event\n")); rw->Update(); return TRUE; } static int delete_event(GtkWidget *widget, GdkEvent *event, Register_Window *rw) { Dprintf((" delete_event\n")); rw->ChangeView(VIEW_HIDE); return TRUE; } //------------------------------------------------------------------------ // Build // // void Register_Window::Build() { if(bIsBuilt) return; Dprintf((" Register_Window::Build()\n")); GtkWidget *main_vbox; GtkWidget *scrolled_window; #define MAXROWS (MAX_REGISTERS/REGISTERS_PER_ROW) #define MAXCOLS (REGISTERS_PER_ROW+1) char *fontstring; if(window!=0) { gtk_widget_destroy(window); } window=gtk_window_new(GTK_WINDOW_TOPLEVEL); main_vbox=gtk_vbox_new(FALSE,1); gtk_container_set_border_width(GTK_CONTAINER(main_vbox),0); gtk_container_add(GTK_CONTAINER(window), main_vbox); gtk_widget_show(main_vbox); if(type==REGISTER_RAM) { register_sheet=GTK_SHEET(gtk_sheet_new(1,MAXCOLS,"gpsim Register Viewer [RAM]")); gtk_window_set_title(GTK_WINDOW(window), "register viewer [RAM]"); // Add a status bar RAM_RegisterWindow *rrw = dynamic_cast(this); if(rrw && rrw->sbw) rrw->sbw->Create(main_vbox); } else { register_sheet=GTK_SHEET(gtk_sheet_new(1,MAXCOLS,"gpsim Register Viewer [EEPROM]")); gtk_window_set_title(GTK_WINDOW(window), "register viewer [EEPROM]"); } //gtk_sheet_hide_column_titles(register_sheet); //gtk_sheet_hide_row_titles(register_sheet); /* create popupmenu */ popup_menu=build_menu(this); build_entry_bar(main_vbox,this); gtk_window_set_default_size(GTK_WINDOW(window), width,height); gtk_widget_set_uposition(GTK_WIDGET(window),x,y); gtk_window_set_wmclass(GTK_WINDOW(window),name(),"Gpsim"); /**************************** load fonts *********************************/ #if GTK_MAJOR_VERSION >= 2 #define DEFAULT_NORMALFONT "Monospace 10" #else #define DEFAULT_NORMALFONT "-adobe-courier-*-r-*-*-*-140-*-*-*-*-*-*" #endif strcpy(normalfont_string,DEFAULT_NORMALFONT); if(config_get_string(name(),"normalfont",&fontstring)) strcpy(normalfont_string,fontstring); while(!LoadStyles()) { if(gui_question("Some fonts did not load.","Open font dialog","Try defaults")==FALSE) { strcpy(normalfont_string,DEFAULT_NORMALFONT); config_set_string(name(),"normalfont",normalfont_string); } else { SettingsDialog(); } } UpdateStyle(); gtk_signal_connect(GTK_OBJECT (window), "delete_event", GTK_SIGNAL_FUNC(delete_event), this); gtk_signal_connect(GTK_OBJECT (window), "show", GTK_SIGNAL_FUNC(show_event), this); scrolled_window=gtk_scrolled_window_new(0, 0); gtk_container_add(GTK_CONTAINER(scrolled_window), GTK_WIDGET(register_sheet)); #if GTK_MAJOR_VERSION >= 2 GTK_SHEET_CLIP_TEXT(register_sheet); #else GTK_SHEET_SET_FLAGS(register_sheet, GTK_SHEET_CLIP_TEXT); #endif gtk_widget_show(GTK_WIDGET(register_sheet)); gtk_widget_show(scrolled_window); gtk_box_pack_start(GTK_BOX(main_vbox), scrolled_window, TRUE, TRUE, 0); gtk_signal_connect(GTK_OBJECT(gtk_sheet_get_entry(GTK_SHEET(register_sheet))), "changed", (GtkSignalFunc)show_entry, this); gtk_signal_connect(GTK_OBJECT(register_sheet), "activate", (GtkSignalFunc)activate_sheet_cell, this); gtk_signal_connect(GTK_OBJECT(entry), "changed", (GtkSignalFunc)show_sheet_entry, this); gtk_signal_connect(GTK_OBJECT(entry), "activate", (GtkSignalFunc)activate_sheet_entry, this); gtk_signal_connect(GTK_OBJECT(register_sheet), "key_press_event", (GtkSignalFunc) clipboard_handler, 0); gtk_signal_connect(GTK_OBJECT(register_sheet), "resize_range", (GtkSignalFunc) resize_handler, this); gtk_signal_connect(GTK_OBJECT(register_sheet), "move_range", (GtkSignalFunc) move_handler, this); gtk_signal_connect(GTK_OBJECT(register_sheet), "button_press_event", (GtkSignalFunc) do_popup, this); gtk_signal_connect(GTK_OBJECT(register_sheet), "set_cell", (GtkSignalFunc) set_cell, this); gtk_signal_connect_after(GTK_OBJECT(window), "configure_event", GTK_SIGNAL_FUNC(gui_object_configure_event), this); SetRegisterSize(); gtk_widget_show (window); gtk_widget_grab_default(location); // GTKWAIT; bIsBuilt = true; NewProcessor(gp); UpdateMenuItem(); Dprintf((" regwin is built\n")); } //------------------------------------------------------------------------ Register_Window::Register_Window() { register_sheet = NULL; printf("WARNING: calling default constructor: %s\n",__FUNCTION__); } Register_Window::Register_Window(GUI_Processor *_gp) { int i; gp = _gp; window = 0; wc = WC_data; wt = WT_register_window; pCellFormat = 0; char_width = 0; chars_per_column = 3; // assume byte-sized registers register_sheet = NULL; registers_loaded=0; registers = 0; for(i=0;icpu) return; rma = &_gp->cpu->rma; registers = _gp->m_pGUIRamRegisters; Dprintf((" RAM_RegisterWindow::NewProcessor rma=%p\n",rma)); Register_Window::NewProcessor(_gp); if(sbw) sbw->NewProcessor(_gp, rma); } void RAM_RegisterWindow::Update() { Register_Window::Update(); if(sbw) sbw->Update(); } EEPROM_RegisterWindow::EEPROM_RegisterWindow(GUI_Processor *_gp) : Register_Window(_gp) { menu = "
    /Windows/EEPROM"; type = REGISTER_EEPROM; set_name("register_viewer_eeprom"); get_config(); if(enabled) Build(); } void EEPROM_RegisterWindow::NewProcessor(GUI_Processor *_gp) { if(!_gp || !_gp->cpu) return; rma = &_gp->cpu->ema; registers = _gp->m_pGUIEEPromRegisters; Dprintf((" EEPROM_RegisterWindow::NewProcessor rma=%p\n",rma)); Register_Window::NewProcessor(_gp); } #endif // HAVE_GUI gpsim-0.27.0/gui/gui_stopwatch.h0000644000076400007640000000304010416272633013466 00000000000000/* Copyright (C) 1998,1999,2000,2001,2002,2003,2004 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __GUI_STOPWATCH_H__ #define __GUI_STOPWATCH_H__ // // The stopwatch window // class StopWatch_Window : public GUI_Object { public: int count_dir; long long rollover; long long cyclecounter; long long offset; GtkWidget *cycleentry; GtkWidget *timeentry; GtkWidget *frequencyentry; GtkWidget *offsetentry; GtkWidget *rolloverentry; StopWatch_Window(GUI_Processor *gp); virtual void Build(void); virtual void Update(void); void EnterUpdate(void) { assert(from_update >= 0); ++from_update; } void ExitUpdate(void) { assert(from_update > 0); --from_update; } bool IsUpdate(void) const { assert(from_update >= 0); return from_update != 0; } private: int from_update; }; #endif // __GUI_STOPWATCH_H__ gpsim-0.27.0/gui/gui_symbols.cc0000664000076400007640000004676312201276457013327 00000000000000/* Copyright (C) 1998,1999,2000,2001 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include #include "../config.h" #ifdef HAVE_GUI #include #include #include #include #include #include #include #include "../src/sim_context.h" #include "../src/interface.h" #include "gui.h" #include "gui_regwin.h" #include "gui_symbols.h" #include "gui_watch.h" #include "gui_processor.h" #include "gui_src.h" struct symbol_entry { unsigned int value; // symbol value struct cross_reference_to_gui *xref; }; typedef enum { MENU_ADD_WATCH, } menu_id; typedef struct _menu_item { const char *name; menu_id id; GtkWidget *item; } menu_item; static menu_item menu_items[] = { {"Add to watch window", MENU_ADD_WATCH}, }; class GUISymbol { public: symbol *s; virtual ~GUISymbol() { } virtual void select(void); }; // Used only in popup menus Symbol_Window *popup_sw; static void update_menus(Symbol_Window *sw) { GtkWidget *item; unsigned int i; for (i=0; i < (sizeof(menu_items)/sizeof(menu_items[0])) ; i++){ item=menu_items[i].item; if(sw) { Value *entry; entry = (Value*) gtk_clist_get_row_data(GTK_CLIST(sw->symbol_clist),sw->current_row); if(entry==0) gtk_widget_set_sensitive (item, FALSE); else gtk_widget_set_sensitive (item, TRUE); } else { gtk_widget_set_sensitive (item, FALSE); } } } // called when user has selected a menu item static void popup_activated(GtkWidget *widget, gpointer data) { menu_item *item; if(widget==0 || data==0) { printf("Warning popup_activated(%p,%p)\n",widget,data); return; } item = (menu_item *)data; Value *entry = (Value*) gtk_clist_get_row_data(GTK_CLIST(popup_sw->symbol_clist),popup_sw->current_row); if(!entry) return; switch(item->id) { case MENU_ADD_WATCH: { //GUIRegister *reg = (*popup_sw->gp->regwin_ram)[entry->value]; //popup_sw->gp->watch_window->Add(popup_sw->gp->regwin_ram->type, reg); popup_sw->gp->watch_window->Add(entry); } break; default: puts("Unhandled menuitem?"); break; } } // helper function, called from do_popup static GtkWidget * build_menu(GtkWidget *sheet, Symbol_Window *sw) { GtkWidget *menu; GtkWidget *item; unsigned int i; if(sheet==0 || sw==0) { printf("Warning build_menu(%p,%p)\n",sheet,sw); return 0; } popup_sw = sw; menu=gtk_menu_new(); item = gtk_tearoff_menu_item_new (); gtk_menu_append (GTK_MENU (menu), item); gtk_widget_show (item); for (i=0; i < (sizeof(menu_items)/sizeof(menu_items[0])) ; i++){ menu_items[i].item=item=gtk_menu_item_new_with_label(menu_items[i].name); gtk_signal_connect(GTK_OBJECT(item),"activate", (GtkSignalFunc) popup_activated, &menu_items[i]); gtk_widget_show(item); gtk_menu_append(GTK_MENU(menu),item); } update_menus(sw); return menu; } // button press handler static gint do_popup(GtkWidget *widget, GdkEventButton *event, Symbol_Window *sw) { GtkWidget *popup; // GdkModifierType mods; if(widget==0 || event==0 || sw==0) { printf("Warning do_popup(%p,%p,%p)\n",widget,event,sw); return 0; } popup=sw->popup_menu; if( (event->type == GDK_BUTTON_PRESS) && (event->button == 3) ) { gtk_menu_popup(GTK_MENU(popup), 0, 0, 0, 0, 3, event->time); } return FALSE; } static void unselect_row(GtkCList *clist, gint row, gint column, GdkEvent *event, Symbol_Window *sw) { update_menus(sw); } #if 1 static Symbol_Window *lpSW=0; static string table; void updateOneSymbol(const SymbolEntry_t &sym) { Value *pVal = dynamic_cast(sym.second); if (lpSW && pVal) { Register *pReg = dynamic_cast(pVal); if((typeid(*pVal) == typeid(LineNumberSymbol) ) | (lpSW->filter_addresses && (typeid(*pVal) == typeid(AddressSymbol))) || (lpSW->filter_constants && (typeid(*pVal) == typeid(Integer))) || (lpSW->filter_constants && (typeid(*pVal) == typeid(Boolean))) || (lpSW->filter_registers && (pReg))) return; #define SYM_LEN 32 const char *entry[3]; string symbol_name; char type[SYM_LEN]; char value[SYM_LEN]; if (table != "__global__") symbol_name = table + "." + pVal->name(); else symbol_name = pVal->name(); entry[0] = symbol_name.c_str(); strncpy(type, pVal->showType().c_str(), sizeof(type)); type[SYM_LEN-1] = 0; entry[1] = type; entry[2] = value; if (pReg) snprintf(value, sizeof(value), "%02x / %d (0x%02x)", pReg->getAddress(), pReg->get_value(), pReg->get_value()); else pVal->get(value,sizeof(value)); char *pLF = strchr(value, '\n'); if(pLF) *pLF = 0; lpSW->symbols=g_list_append(lpSW->symbols, pVal); int row = gtk_clist_append(GTK_CLIST(lpSW->symbol_clist),(gchar **)entry); gtk_clist_set_row_data(GTK_CLIST(lpSW->symbol_clist),row,pVal); } } static void updateSymbolTables(const SymbolTableEntry_t &st) { if(verbose)cout << " gui Symbol Window: " << st.first << endl; table = st.first; (st.second)->ForEachSymbolTable(updateOneSymbol); } #endif void Symbol_Window::Update(void) { load_symbols=1; if(!enabled) return; gtk_clist_freeze(GTK_CLIST(symbol_clist)); gtk_clist_clear(GTK_CLIST(symbol_clist)); while (symbols) symbols = g_list_remove(symbols,symbols->data); #if 1 lpSW = this; globalSymbolTable().ForEachModule(updateSymbolTables); lpSW = 0; /* Symbol_Table &st = CSimulationContext::GetContext()->GetSymbolTable(); Symbol_Table::iterator symIt; Symbol_Table::iterator symItEnd = st.end(); for(symIt=st.begin(); symIt != symItEnd; symIt++) { Value *sym = *symIt; // ignore line numbers if((typeid(*sym) == typeid(LineNumberSymbol) ) || (filter_addresses && (typeid(*sym) == typeid(AddressSymbol))) || (filter_constants && (typeid(*sym) == typeid(Integer))) || (filter_registers && (typeid(*sym) == typeid(register_symbol)))) { continue; } char **entry = (char**)malloc(3*sizeof(char*)); const int cMaxLength = 32; entry[0] = g_strndup(sym->name().c_str(), cMaxLength); entry[1] = g_strndup(sym->showType().c_str(), cMaxLength); entry[2] = (char*)malloc(cMaxLength); if (typeid(*sym) == typeid(register_symbol)) { Register * pReg = ((register_symbol*)sym)->getReg(); int iValue; sym->get(iValue); snprintf(entry[2], cMaxLength, "%02x / %d (0x%02x)", pReg->address, iValue, iValue); } else { sym->get(entry[2],cMaxLength); } char *pLF = strchr(entry[2], '\n'); if(pLF != 0) { *pLF = 0; } symbols=g_list_append(symbols,sym); int row = gtk_clist_append(GTK_CLIST(symbol_clist),entry); gtk_clist_set_row_data(GTK_CLIST(symbol_clist),row,sym); } */ #endif gtk_clist_thaw(GTK_CLIST(symbol_clist)); } static void do_symbol_select(Symbol_Window *sw, Value *e) { if(!sw || !sw->gp) return; // Do what is to be done when a symbol is selected. // Except for selecting the symbol row in the symbol_clist if(typeid(*e) == typeid(LineNumberSymbol) || typeid(*e) == typeid(AddressSymbol)) { if(sw->gp->source_browser) sw->gp->source_browser->SelectAddress(e); if(sw->gp->program_memory) sw->gp->program_memory->SelectAddress(e); } else if(typeid(*e) == typeid(Register)) if(sw->gp->regwin_ram) sw->gp->regwin_ram->SelectRegister(e); } static gint symbol_list_row_selected(GtkCList *symlist,gint row, gint column,GdkEvent *event, Symbol_Window *sw) { if(!symlist || !sw) return 0; Value *e=(Value*)gtk_clist_get_row_data(symlist,row); sw->current_row=row; do_symbol_select(sw,e); update_menus(sw); return 0; } /* pop up symbol window and select row with regnumber if it exists */ void SymbolWindow_select_symbol_regnumber(Symbol_Window *sw, int regnumber) { GList *p; if(!sw) return; if(!sw->enabled) return; p=sw->symbols; while(p) { Value *e = (Value*)p->data; if(typeid(*e) == typeid(Register)) { int i; e->get(i); if(i == regnumber) { int row; row=gtk_clist_find_row_from_data(GTK_CLIST(sw->symbol_clist),e); if(row!=-1) { gtk_clist_select_row(GTK_CLIST(sw->symbol_clist),row,0); gtk_clist_moveto(GTK_CLIST(sw->symbol_clist),row,0,0.5,0.5); do_symbol_select(sw,e); } break; } p=p->next; } } } void Symbol_Window::SelectSymbolName(char *symbol_name) { cout << "SelectSymbolName is broken\n"; #if 0 GList *p; //sym *s; if(!symbol_name) return; // If window is not displayed, then display it. if(!enabled) ChangeView(VIEW_SHOW); // See if the type of symbol selected is currently filtered out, and // if so we unfilter it. Value *sym=0; Symbol_Table_Iterator sti; for(sym=sti.begin(); sym != sti.end(); sym = sti.next()) { // ignore line numbers if(typeid(*sym) == typeid(line_number_symbol)) continue; if(!strcasecmp((*sti)->name().data(),symbol_name)) { if(filter_addresses && (typeid(*sym) == typeid(address_symbol))) gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (addressesbutton), TRUE); else if (filter_constants && (typeid(*sym) == typeid(Integer))) gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (constantsbutton), TRUE); else if (filter_registers && (typeid(*sym) == typeid(register_symbol))) gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (registersbutton), TRUE); } /* list ::iterator sti = st.begin(); for(sti = st.begin(); sti != st.end(); sti++) { if(!strcasecmp((*sti)->name().data(),symbol_name)) { switch((*sti)->isa()) { case SYMBOL_ADDRESS: if(filter_addresses) { gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (addressesbutton), TRUE); while(gtk_events_pending()) // FIXME. Not so nice... gtk_main_iteration(); } break; case SYMBOL_CONSTANT: if(filter_constants) { gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (constantsbutton), TRUE); while(gtk_events_pending()) // FIXME. Not so nice... gtk_main_iteration(); } break; case SYMBOL_REGISTER: if(filter_registers) { gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (registersbutton), TRUE); while(gtk_events_pending()) // FIXME. Not so nice... gtk_main_iteration(); } break; default: break; } break; } } */ // Find the symbol and select it from the clist p=symbols; while(p) { Value *e; e=(sym*)p->data; if(!strcasecmp(e->name,symbol_name)) { int row; row=gtk_clist_find_row_from_data(GTK_CLIST(symbol_clist),e); if(row!=-1) { gtk_clist_select_row(GTK_CLIST(symbol_clist),row,0); gtk_clist_moveto(GTK_CLIST(symbol_clist),row,0,0.5,0.5); do_symbol_select(this,e); } } p=p->next; } #endif //0 } void Symbol_Window::NewSymbols(void) { Update(); } /* the function comparing rows of symbol list for sorting FIXME this can be improved. When we have equal cells in sort_column of the two rows, compare another column instead of returning 'match'. */ static gint symbol_compare_func(GtkCList *clist, gconstpointer ptr1,gconstpointer ptr2) { char *text1, *text2; long val1, val2; GtkCListRow *row1 = (GtkCListRow *) ptr1; GtkCListRow *row2 = (GtkCListRow *) ptr2; switch (row1->cell[clist->sort_column].type) { case GTK_CELL_TEXT: text1 = GTK_CELL_TEXT (row1->cell[clist->sort_column])->text; break; case GTK_CELL_PIXTEXT: text1 = GTK_CELL_PIXTEXT (row1->cell[clist->sort_column])->text; break; default: assert(0); break; } switch (row2->cell[clist->sort_column].type) { case GTK_CELL_TEXT: text2 = GTK_CELL_TEXT (row2->cell[clist->sort_column])->text; break; case GTK_CELL_PIXTEXT: text2 = GTK_CELL_PIXTEXT (row2->cell[clist->sort_column])->text; break; default: assert(0); break; } if (!text2) assert(0); if (!text1) assert(0); if(1==sscanf(text1,"%li",&val1)) { if(1==sscanf(text2,"%li",&val2)) return val1-val2; } return strcmp(text1,text2); } static void symbol_click_column(GtkCList *clist, int column) { static int last_col=-1; static GtkSortType last_sort_type=GTK_SORT_DESCENDING; if(last_col==-1) last_col=column; if(last_col == column) { if(last_sort_type==GTK_SORT_DESCENDING) { gtk_clist_set_sort_type(clist,GTK_SORT_ASCENDING); last_sort_type=GTK_SORT_ASCENDING; } else { gtk_clist_set_sort_type(clist,GTK_SORT_DESCENDING); last_sort_type=GTK_SORT_DESCENDING; } } gtk_clist_set_sort_column(clist,column); gtk_clist_sort(clist); last_col=column; } static int delete_event(GtkWidget *widget, GdkEvent *event, Symbol_Window *sw) { sw->ChangeView(VIEW_HIDE); return TRUE; } static void toggle_addresses (GtkToggleButton *button, Symbol_Window *sw) { sw->filter_addresses = !sw->filter_addresses; config_set_variable(sw->name(), "filter_addresses", sw->filter_addresses); sw->Update(); } static void toggle_constants (GtkToggleButton *button, Symbol_Window *sw) { sw->filter_constants = !sw->filter_constants; config_set_variable(sw->name(), "filter_constants", sw->filter_constants); sw->Update(); } static void toggle_registers (GtkToggleButton *button, Symbol_Window *sw) { sw->filter_registers = !sw->filter_registers; config_set_variable(sw->name(), "filter_registers", sw->filter_registers); sw->Update(); } static const gchar *symbol_titles[3]={"Name","Type","Address/Value"}; //------------------------------------------------------------------------ // Build // void Symbol_Window::Build(void) { if(bIsBuilt) return; GtkWidget *vbox; GtkWidget *scrolled_window; GtkWidget *hbox; window=gtk_window_new(GTK_WINDOW_TOPLEVEL); gtk_window_set_title(GTK_WINDOW(window), "Symbol Viewer"); gtk_window_set_default_size(GTK_WINDOW(window), width,height); gtk_widget_set_uposition(GTK_WIDGET(window),x,y); gtk_window_set_wmclass(GTK_WINDOW(window),name(),"Gpsim"); gtk_signal_connect (GTK_OBJECT (window), "delete_event", GTK_SIGNAL_FUNC(delete_event), (gpointer)this); symbol_clist=gtk_clist_new_with_titles(3,(gchar **)symbol_titles); // The following line is silly but it stops GTK printing an assert // in Fedora 19 with Adwaita theme gtk_widget_set_style(symbol_clist, gtk_widget_get_style(symbol_clist)); gtk_widget_show(symbol_clist); gtk_clist_set_column_auto_resize(GTK_CLIST(symbol_clist),0,TRUE); gtk_clist_set_column_auto_resize(GTK_CLIST(symbol_clist),1,TRUE); gtk_clist_set_column_auto_resize(GTK_CLIST(symbol_clist),2,TRUE); gtk_clist_set_auto_sort(GTK_CLIST(symbol_clist),TRUE); gtk_clist_set_compare_func(GTK_CLIST(symbol_clist), (GtkCListCompareFunc)symbol_compare_func); gtk_signal_connect(GTK_OBJECT(symbol_clist),"click_column", (GtkSignalFunc)symbol_click_column,0); gtk_signal_connect(GTK_OBJECT(symbol_clist),"select_row", (GtkSignalFunc)symbol_list_row_selected,this); gtk_signal_connect(GTK_OBJECT(symbol_clist),"unselect_row", (GtkSignalFunc)unselect_row,this); gtk_signal_connect(GTK_OBJECT(symbol_clist), "button_press_event", (GtkSignalFunc) do_popup, this); scrolled_window=gtk_scrolled_window_new(0, 0); gtk_widget_show(scrolled_window); vbox = gtk_vbox_new(FALSE,1); gtk_container_add(GTK_CONTAINER(scrolled_window), symbol_clist); gtk_container_add(GTK_CONTAINER(window),vbox); hbox = gtk_hbox_new(FALSE,1); gtk_box_pack_start(GTK_BOX(vbox), hbox, FALSE,FALSE,0); gtk_box_pack_start(GTK_BOX(vbox), scrolled_window, TRUE, TRUE, 0); addressesbutton = gtk_check_button_new_with_label ("addresses"); gtk_box_pack_start (GTK_BOX (hbox), addressesbutton, TRUE, TRUE, 5); if(filter_addresses) gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (addressesbutton), FALSE); else gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (addressesbutton), TRUE); gtk_signal_connect (GTK_OBJECT (addressesbutton), "toggled", GTK_SIGNAL_FUNC (toggle_addresses), (gpointer)this); constantsbutton = gtk_check_button_new_with_label ("constants"); gtk_box_pack_start (GTK_BOX (hbox), constantsbutton, TRUE, TRUE, 5); if(filter_constants) gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (constantsbutton), FALSE); else gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (constantsbutton), TRUE); gtk_signal_connect (GTK_OBJECT (constantsbutton), "toggled", GTK_SIGNAL_FUNC (toggle_constants), (gpointer)this); registersbutton = gtk_check_button_new_with_label ("registers"); gtk_box_pack_start (GTK_BOX (hbox), registersbutton, TRUE, TRUE, 5); if(filter_registers) gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (registersbutton), FALSE); else gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (registersbutton), TRUE); gtk_signal_connect (GTK_OBJECT (registersbutton), "toggled", GTK_SIGNAL_FUNC (toggle_registers), (gpointer)this); gtk_signal_connect_after(GTK_OBJECT(window), "configure_event", GTK_SIGNAL_FUNC(gui_object_configure_event),this); gtk_widget_show_all (window); bIsBuilt = true; if(load_symbols) NewSymbols(); UpdateMenuItem(); popup_menu=build_menu(window,this); } Symbol_Window::Symbol_Window(GUI_Processor *_gp) { #define MAXROWS (MAX_REGISTERS/REGISTERS_PER_ROW) #define MAXCOLS (REGISTERS_PER_ROW+1) menu = "
    /Windows/Symbols"; gp = _gp; set_name("symbol_viewer"); wc = WC_misc; wt = WT_symbol_window; window = 0; symbols=0; filter_addresses=0; filter_constants=1; filter_registers=0; current_row = 0; load_symbols=0; get_config(); config_get_variable(name(),"filter_addresses",&filter_addresses); config_get_variable(name(),"filter_constants",&filter_constants); config_get_variable(name(),"filter_registers",&filter_registers); if(enabled) Build(); } #endif // HAVE_GUI gpsim-0.27.0/gui/gui_object.cc0000644000076400007640000001254310705350056013063 00000000000000/* Copyright (C) 1998,1999,2000,2001 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include "../config.h" #ifdef HAVE_GUI #ifdef DOING_GNOME #include #endif #include #include #include #include #include #include #include "gui.h" #include "gui_callbacks.h" GUI_Object::GUI_Object(void) { gp = 0; wc = WC_misc; wt = WT_INVALID; bIsBuilt = false; window = 0; menu = 0; x=0; y=0; width = 100; height = 100; } GUI_Object::~GUI_Object(void) { } int GUI_Object::Create(GUI_Processor *_gp) { printf("GUI_Object::Create !!! \n"); return 0; } char *GUI_Object::name(void) { static char p[128]; size_t len = string::npos; if(len > (1+sizeof(p))) len = sizeof(p)-1; p[name_str.copy(p,len)] = 0; return p; } void GUI_Object::set_name(const char *new_name) { if(new_name) name_str = string(new_name); else name_str = string("no_name"); } void GUI_Object::set_name(string &new_name) { name_str = new_name; } void GUI_Object::UpdateMenuItem(void) { GtkWidget *menu_item; if(menu) { menu_item = gtk_item_factory_get_item (item_factory,menu); gtk_check_menu_item_set_active(GTK_CHECK_MENU_ITEM(menu_item),enabled); } else { //printf("GUI_Object::UpdateMenuItem(void) -- 0 menu\n"); ; } } void GUI_Object::Update(void) { printf("GUI_Object::Update - shouldn't be called\n"); } void GUI_Object::ChangeView (int view_state) { if( (view_state==VIEW_SHOW) || (window==0) || ((view_state==VIEW_TOGGLE) && !GTK_WIDGET_VISIBLE(GTK_WIDGET(window)) ) ) { if(!bIsBuilt) { if(!get_config()) { printf("warning %s\n",__FUNCTION__); set_default_config(); } enabled=1; Build(); } else { // hmm, this call shouldn't be necessary, but I (Scott) found that // in GTK+ 2.2.1 under Linux that it is. gtk_widget_set_uposition(GTK_WIDGET(window),x,y); gtk_widget_show(window); enabled=1; // Update the config database set_config(); } } else if (GTK_WIDGET_VISIBLE(GTK_WIDGET(window))) { enabled=0; // Update the config database set_config(); gtk_widget_hide(window); } // Update menu item UpdateMenuItem(); } void GUI_Object::Build(void) { cout << " GUI_Object::Build() should not be called\n"; } int GUI_Object::get_config(void) { char *pName = name(); if(!pName) return 0; /* if(!config_get_variable(pName, "x", &x)) printf("get_config %s failed\n",pName); */ if(!config_get_variable(pName, "enabled", &enabled)) enabled=0; if(!config_get_variable(pName, "x", &x)) x=10; if(!config_get_variable(pName, "y", &y)) y=10; if(!config_get_variable(pName, "width", &width)) width=300; if(!config_get_variable(pName, "height", &height)) height=100; check(); return 1; } void GUI_Object::check(void) { #define MAX_REASONABLE 2000 if((x+width < 0 || x > MAX_REASONABLE) || (y+height < 0 || y > MAX_REASONABLE) || (width < 0 || width > MAX_REASONABLE) || (height < 0 || height > MAX_REASONABLE) ) set_default_config(); } int GUI_Object::set_default_config(void) { static int defaultX = 100; static int defaultY = 100; enabled = 0; x = defaultX; y = defaultY; defaultX += 100; defaultY += 100; width = 100; height = 100; printf("set_default_config\n"); return 1; } int GUI_Object::set_config(void) { check(); char *pName = name(); if(!pName) return 0; if(window) { gdk_window_get_root_origin(window->window,&x,&y); gdk_window_get_size(window->window,&width,&height); } config_set_variable(pName, "enabled", ((enabled) ? 1 : 0) ); config_set_variable(pName, "x", x); config_set_variable(pName, "y", y); config_set_variable(pName, "width", width); config_set_variable(pName, "height", height); return 1; } //------------------------------------------------------------------------ // Helper functions for setting and retrieving variables stored in // gpsim configuration file. int config_set_string(const char *module, const char *entry, const char *str) { return settings->set(module, entry, str); } int config_set_variable(const char *module, const char *entry, int value) { return settings->set(module, entry, value); } int config_get_variable(const char *module, const char *entry, int *value) { return settings->get(module, entry, value); } int config_get_string(const char *module, const char *entry, char **str) { return settings->get(module, entry, str); } int config_remove(const char *module, const char *entry) { return settings->remove(module, entry); } #endif // HAVE_GUI gpsim-0.27.0/gui/gui.h0000644000076400007640000001475711145700107011403 00000000000000/* Copyright (C) 1998,1999,2000,2001,2002,2003,2004 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __GUI_H__ #define __GUI_H__ #include "../config.h" #ifdef HAVE_GUI #include #include #include #include #include #include #include "../src/interface.h" #include "../src/gpsim_def.h" #include "../src/modules.h" #include "../src/processor.h" #include "../src/pic-processor.h" #include "settings.h" #define SBAW_NRFILES 100 // Max number of source files #if defined(DEBUG) #define Dprintf(arg) {printf("%s:%d",__FILE__,__LINE__); printf arg; } #else #define Dprintf(arg) {} #endif #define GTKWAIT { while(gtk_events_pending()) gtk_main_iteration(); } //------------------------------------------------------------ // // Create structures to generically access the pic-processor // // // Here's a list of all the types of windows that are supported // enum window_types { WT_INVALID = 0, WT_opcode_source_window=1, WT_asm_source_window, WT_register_window, WT_eeprom_window, WT_watch_window, WT_symbol_window, WT_breadboard_window, WT_stack_window, WT_trace_window, WT_profile_window, WT_stopwatch_window, WT_scope_window, WT_status_bar, WT_sfr_window, WT_list_source_window, WT_SourceWindow }; // // Here's a list of all the categories of windows that are supported // enum window_category { WC_misc, WC_source, WC_data }; // // This structure will cross reference the data in the simulator // to its gui representation. There are cases when the same data // appears in more than one place (e.g. the status register is in // both the status bar and register windows). gpsim accomodates this // with a singly-linked list. In other words, for each data element // that is presented graphically there's a pointer within the simulator // to reference it. The simulator keeps a linked listed of pointers // to all instances of these graphical representations class CrossReferenceToGUI { public: enum window_types parent_window_type; gpointer parent_window; gpointer data; virtual ~CrossReferenceToGUI() { } virtual void Update(int new_value); virtual void Remove(void); }; #include "gui_object.h" #include "gui_processor.h" //======================================================================== class EntryWidget { public: EntryWidget(); virtual ~EntryWidget() { } virtual void Update()=0; virtual void Create(bool isEditable=true); void SetEntryWidth(int string_width); void AssignParent(GUI_Object *); GUI_Object *parent; GtkWidget *entry; }; //======================================================================== // // A LabeledEntry is an object consisting of gtk entry // widget that is labeled (with a gtk lable widget) // class LabeledEntry : public EntryWidget { public: GtkWidget *label; LabeledEntry(void); virtual ~LabeledEntry() { } void Create(GtkWidget *box,char *clabel, int string_width, bool isEditable); void NewLabel(char *clabel); virtual void Update(void); virtual void put_value(unsigned int); }; class RegisterLabeledEntry : public LabeledEntry { public: Register *reg; char *pCellFormat; RegisterLabeledEntry(GtkWidget *,Register *,bool); virtual ~RegisterLabeledEntry() { } virtual void put_value(unsigned int); void AssignRegister(Register *new_reg); virtual void Update(void); }; class CyclesLabeledEntry : public LabeledEntry { public: CyclesLabeledEntry(); virtual ~CyclesLabeledEntry() { } virtual void Update(void); }; typedef enum { MENU_TIME_USECONDS, MENU_TIME_MSECONDS, MENU_TIME_SECONDS, MENU_TIME_HHMMSS } time_menu_id; typedef struct _time_menu_item { const char *name; time_menu_id id; } time_menu_item; class TimeLabeledEntry : public LabeledEntry { public: TimeLabeledEntry(); virtual ~TimeLabeledEntry() { } virtual void Update(void); GtkWidget *build_menu(); void set_time_format(time_menu_id id) { time_format = id; } GtkWidget *menu; time_menu_id time_format; }; //------------------------------------------------------------------------ // The KeyEvent class is used for key mapping (e.g. mapping the 's' // key to step) class KeyEvent { public: virtual ~KeyEvent() { } virtual void press(gpointer data = 0) = 0; virtual void release(gpointer data = 0) = 0; }; // // External references and function prototypes // extern GtkItemFactory *item_factory; extern GUI_Processor *gpGuiProcessor; void exit_gpsim(void); void update_menu_item(GUI_Object *_this); void SourceBrowser_update_line(struct cross_reference_to_gui *xref, int new_value); // Configuration -- records window states. extern Settings *settings; int config_get_variable(const char *module, const char *entry, int *value); int config_set_variable(const char *module, const char *entry, int value); int config_get_string(const char *module, const char *entry, char **string); int config_set_string(const char *module, const char *entry, const char *string); int config_remove(const char *module, const char *entry); gint gui_object_configure_event(GtkWidget *widget, GdkEventConfigure *e, GUI_Object *go); void ProfileWindow_notify_start_callback(Profile_Window *pw); void ProfileWindow_notify_stop_callback(Profile_Window *pw); int gui_get_value(const char *prompt); //------------------------------------------------------------------------ // Functions to abstract differences between gtk 1.x and 2.x #if GTK_MAJOR_VERSION >= 2 int gStringWidth(PangoFontDescription *font, const char *str); int gStringHeight(PangoFontDescription *font, const char *str); GdkFont *gFontFromDescription(PangoFontDescription *); #else int gStringWidth(GdkFont *font, const char *str); int gStringHeight(GdkFont *font, const char *str); GdkFont *gFontFromDescription(GdkFont *pF) { return pF;} #endif #endif // __GUI_H__ #endif // HAVE_GUI gpsim-0.27.0/gui/settings_exdbm.cc0000644000076400007640000001176111145701771013774 00000000000000/* Copyright (C) 1998,1999,2000,2001 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include "settings_exdbm.h" #include #include SettingsEXdbm::SettingsEXdbm(const char *appl_name) { int ret; const char *homedir; string path; ret = eXdbmInit(); if (ret == -1) { puts(eXdbmGetErrorString(eXdbmGetLastError())); } homedir = getenv("HOME"); if (homedir == 0) homedir = "."; path = string(homedir) + "/." + appl_name; ret = eXdbmOpenDatabase((char *)path.c_str(), &dbid); if(ret == -1) { int error = eXdbmGetLastError(); if(error == DBM_OPEN_FILE) { ret = eXdbmNewDatabase((char *)path.c_str(), &dbid); if (ret == -1) puts(eXdbmGetErrorString(eXdbmGetLastError())); else { ret = eXdbmUpdateDatabase(dbid); if(ret == -1) puts(eXdbmGetErrorString(eXdbmGetLastError())); } } else puts(eXdbmGetErrorString(eXdbmGetLastError())); } } bool SettingsEXdbm::set(const char *module, const char *entry, const char *str) { int ret; DB_LIST list; list = eXdbmGetList(dbid, 0, (char *)module); if (list == false) { ret = eXdbmCreateList(dbid, 0, (char *)module, 0); if(ret == -1) { puts(eXdbmGetErrorString(eXdbmGetLastError())); return false; } list = eXdbmGetList(dbid, 0, (char *)module); if (list == 0) { puts(eXdbmGetErrorString(eXdbmGetLastError())); return false; } } // We have the list ret = eXdbmChangeVarString(dbid, list, (char *)entry, (char *)str); if (ret == -1) { ret = eXdbmCreateVarString(dbid, list, (char *)entry, 0, (char *)str); if (ret == -1) { puts("\n\n\n\ndidn't work"); puts(eXdbmGetErrorString(eXdbmGetLastError())); puts("\n\n\n\n"); return false; } } ret = eXdbmUpdateDatabase(dbid); if (ret == -1) { puts(eXdbmGetErrorString(eXdbmGetLastError())); return false; } return true; } bool SettingsEXdbm::set(const char *module, const char *entry, int value) { int ret; DB_LIST list; if(!module || !entry) return false; list = eXdbmGetList(dbid, 0, (char *)module); if (list == 0) { ret = eXdbmCreateList(dbid, 0, (char *)module, 0); if (ret == -1) { puts(eXdbmGetErrorString(eXdbmGetLastError())); return false; } list = eXdbmGetList(dbid, 0, (char *)module); if (list == 0) { puts(eXdbmGetErrorString(eXdbmGetLastError())); return false; } } // We have the list ret = eXdbmChangeVarInt(dbid, list, (char *)entry, value); if (ret == -1) { ret = eXdbmCreateVarInt(dbid, list, (char *)entry, 0, value); if (ret == -1) { puts("\n\n\n\ndidn't work"); puts(eXdbmGetErrorString(eXdbmGetLastError())); puts("\n\n\n\n"); return false; } } ret = eXdbmUpdateDatabase(dbid); if (ret == -1) { puts(eXdbmGetErrorString(eXdbmGetLastError())); return false; } return true; } bool SettingsEXdbm::get(const char *module, const char *entry, char **str) { int ret; DB_LIST list; list = eXdbmGetList(dbid, 0, (char *)module); if (list == 0) return false; // We have the list ret = eXdbmGetVarString(dbid, list, (char *)entry, str); if (ret == -1) return false; return true; } bool SettingsEXdbm::get(const char *module, const char *entry, int *value) { int ret; DB_LIST list; list = eXdbmGetList(dbid, 0, (char *)module); if (list == 0) return false; // We have the list ret = eXdbmGetVarInt(dbid, list, (char *)entry, value); if (ret == -1) return false; return true; } bool SettingsEXdbm::remove(const char *module, const char *entry) { int ret; DB_LIST list; list = eXdbmGetList(dbid, 0, (char *)module); if (list == false) { ret = eXdbmCreateList(dbid, 0, (char *)module, 0); if(ret == -1) { puts(eXdbmGetErrorString(eXdbmGetLastError())); return false; } list = eXdbmGetList(dbid, 0, (char *)module); if (list == 0) { puts(eXdbmGetErrorString(eXdbmGetLastError())); return false; } } // We have the list ret = eXdbmDeleteEntry(dbid, list, (char *)entry); if (ret == -1) { return false; } ret = eXdbmUpdateDatabase(dbid); if (ret == -1) { puts(eXdbmGetErrorString(eXdbmGetLastError())); return false; } return true; } gpsim-0.27.0/gui/gui_break.cc0000644000076400007640000000564310416272633012707 00000000000000/* Copyright (C) 1998,1999,2000,2001 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "../config.h" #ifdef HAVE_GUI #include #include #include #include #include #include #include #include #include #include "gui.h" #include "gui_breadboard.h" #include "gui_processor.h" #include "gui_profile.h" #include "gui_register.h" #include "gui_regwin.h" #include "gui_scope.h" #include "gui_src.h" #include "gui_stack.h" #include "gui_stopwatch.h" #include "gui_symbols.h" #include "gui_trace.h" #include "gui_watch.h" #include "gui_statusbar.h" class linkXREF : public CrossReferenceToGUI { public: GUI_Processor *gp; void Update(int new_value) { int address; if(!gp) { printf("gp == null in linkXREF\n"); return;} address = *(int *)data; if(gp->source_browser) gp->source_browser->UpdateLine(address); if(gp->program_memory) gp->program_memory->UpdateLine(address); } }; /* * link_src_to_gpsim * * After a new program has been loaded by gpsim, this routine is called * so that the gui can create links to it. This consists of creating * a 'cross_reference' structure and attaching it to each pic instruction. * The information in the cross_reference structure is a pointer to the * gp. */ void link_src_to_gpsim(GUI_Processor *gp) { int i,*address,pm_size; linkXREF *cross_reference; if(gp) { // Create a cross reference between the pic's program memory and the gui. pm_size = gp->cpu->program_memory_size(); if(verbose) { printf("link_src_to_gpsim\n"); printf(" processor pma = %d\n",pm_size); } for(i=0; i < pm_size; i++) { cross_reference = new linkXREF(); //cross_reference->parent_window_type = WT_asm_source_window; //cross_reference->parent_window = (gpointer) gp; cross_reference-> gp = gp; address = (int *) malloc(sizeof(int *)); *address = gp->cpu->map_pm_index2address(i); cross_reference->data = (gpointer) address; gp->cpu->pma->assign_xref(*address,(gpointer) cross_reference); } } } #endif //HAVE_GUI gpsim-0.27.0/gui/gui_watch.cc0000664000076400007640000005416712201276457012742 00000000000000/* Copyright (C) 1998,1999,2000,2001 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "../config.h" #ifdef HAVE_GUI #include #include #include #include #include #include #include #include "../src/interface.h" #include "../src/cmd_gpsim.h" #include "gui.h" #include "preferences.h" #include "gui_register.h" #include "gui_regwin.h" #include "gui_watch.h" #define NAMECOL 0 #define DECIMALCOL 2 #define HEXCOL 3 #define ASCIICOL 4 #define BITCOL 5 #define LASTCOL BITCOL static const gchar *watch_titles[]={"name","address","dec","hex","ascii","bits"}; #define COLUMNS sizeof(watch_titles)/sizeof(char*) class ColumnData { public: int column; int isVisible; bool bIsValid; Watch_Window *ww; void SetVisibility(bool bVisibility); void SetValidity(bool ); bool isValid(); void Show(); ColumnData(); } coldata[COLUMNS]; static void select_columns(Watch_Window *ww, GtkWidget *clist); typedef enum { MENU_REMOVE, MENU_SET_VALUE, MENU_BREAK_CLEAR, MENU_BREAK_READ, MENU_BREAK_WRITE, MENU_BREAK_READ_VALUE, MENU_BREAK_WRITE_VALUE, MENU_COLUMNS, } menu_id; typedef struct _menu_item { const char *name; menu_id id; GtkWidget *item; } menu_item; static menu_item menu_items[] = { {"Remove watch", MENU_REMOVE}, {"Set value...", MENU_SET_VALUE}, {"Clear breakpoints", MENU_BREAK_CLEAR}, {"Set break on read", MENU_BREAK_READ}, {"Set break on write", MENU_BREAK_WRITE}, {"Set break on read value...", MENU_BREAK_READ_VALUE}, {"Set break on write value...", MENU_BREAK_WRITE_VALUE}, {"Columns...", MENU_COLUMNS}, }; // Used only in popup menus Watch_Window *popup_ww; //======================================================================== class WatchWindowXREF : public CrossReferenceToGUI { public: void Update(int new_value) { Watch_Window *ww = (Watch_Window *) (parent_window); if (ww) ww->UpdateWatch((WatchEntry *)data); } }; //======================================================================== WatchEntry::WatchEntry() : cpu(0) { } //======================================================================== ColumnData::ColumnData() : isVisible(1), bIsValid(true), ww(0) { } void ColumnData::SetVisibility(bool bVisibility) { isVisible = bVisibility ? 1 : 0; Show(); } void ColumnData::Show() { if (ww) { int show = isVisible & (bIsValid ? 1 : 0); gtk_clist_set_column_visibility(GTK_CLIST(ww->watch_clist),column,show); config_set_variable(ww->name(), (gchar *)watch_titles[column],show); } } bool ColumnData::isValid() { return bIsValid; } void ColumnData::SetValidity(bool newValid) { bIsValid = newValid; } //======================================================================== void Watch_Window::ClearWatch(WatchEntry *entry) { gtk_clist_remove(GTK_CLIST(watch_clist),current_row); watches=g_list_remove(watches,entry); entry->Clear_xref(); free(entry); } void Watch_Window::UpdateMenus(void) { GtkWidget *item; WatchEntry *entry; unsigned int i; for (i=0; i < (sizeof(menu_items)/sizeof(menu_items[0])) ; i++) { item=menu_items[i].item; if(menu_items[i].id!=MENU_COLUMNS) { entry = (WatchEntry*) gtk_clist_get_row_data(GTK_CLIST(watch_clist),current_row); if(menu_items[i].id!=MENU_COLUMNS && (entry==0 || (entry->type==REGISTER_EEPROM && menu_items[i].id==MENU_BREAK_CLEAR)|| (entry->type==REGISTER_EEPROM && menu_items[i].id==MENU_BREAK_READ)|| (entry->type==REGISTER_EEPROM && menu_items[i].id==MENU_BREAK_WRITE)|| (entry->type==REGISTER_EEPROM && menu_items[i].id==MENU_BREAK_READ_VALUE)|| (entry->type==REGISTER_EEPROM && menu_items[i].id==MENU_BREAK_WRITE_VALUE) )) gtk_widget_set_sensitive (item, FALSE); else gtk_widget_set_sensitive (item, TRUE); } } } int Watch_Window::set_config(void) { int iRet = GUI_Object::set_config(); WriteSymbolList(); return iRet; } void Watch_Window::WriteSymbolList() { // delete previous list DeleteSymbolList(); // write the current list WatchEntry *entry; guint uSize = g_list_length(watches); char cwv[100]; for (guint i = 0; ipRegister) config_set_string(name(), cwv, entry->pRegister->name().c_str()); } } void Watch_Window::DeleteSymbolList() { int i=0; char cwv[100]; while (i<1000) { snprintf(cwv, sizeof(cwv), "WV%d",i++); if (config_remove(name(), cwv) == 0 ) { break; } } } void Watch_Window::ReadSymbolList() { // now read symbols watched from a prior simulation session int i=0; char cwv[100]; char *vname; while (i<1000) { snprintf(cwv, sizeof(cwv), "WV%d",i++); vname = 0; if (config_get_string(name(), cwv, &vname) ) { Value *val = globalSymbolTable().findValue(vname); if(val) Add(val); } else break; } } static void unselect_row(GtkCList *clist, gint row, gint column, GdkEvent *event, Watch_Window *ww) { ww->UpdateMenus(); } // called when user has selected a menu item static void popup_activated(GtkWidget *widget, gpointer data) { menu_item *item; WatchEntry *entry; int value; if(widget==0 || data==0) { printf("Warning popup_activated(%p,%p)\n",widget,data); return; } item = (menu_item *)data; entry = (WatchEntry*) gtk_clist_get_row_data(GTK_CLIST(popup_ww->watch_clist),popup_ww->current_row); if(entry==0 && item->id!=MENU_COLUMNS) return; if(!entry || !entry->cpu) return; switch(item->id) { case MENU_REMOVE: popup_ww->ClearWatch(entry); //remove_entry(popup_ww,entry); break; case MENU_SET_VALUE: value = gui_get_value("value:"); if(value<0) break; // Cancel entry->put_value(value); break; case MENU_BREAK_READ: get_bp().set_read_break(entry->cpu,entry->address); break; case MENU_BREAK_WRITE: get_bp().set_write_break(entry->cpu,entry->address); break; case MENU_BREAK_READ_VALUE: value = gui_get_value("value to read for breakpoint:"); if(value<0) break; // Cancel get_bp().set_read_value_break(entry->cpu,entry->address,value); break; case MENU_BREAK_WRITE_VALUE: value = gui_get_value("value to write for breakpoint:"); if(value<0) break; // Cancel get_bp().set_write_value_break(entry->cpu,entry->address,value); break; case MENU_BREAK_CLEAR: get_bp().clear_all_register(entry->cpu,entry->address); break; case MENU_COLUMNS: select_columns(popup_ww, popup_ww->watch_clist); break; default: puts("Unhandled menuitem?"); break; } } //------------------------------------------------------------ // call back function to toggle column visibility in the configuration popup static void set_column(GtkCheckButton *button, ColumnData *coldata) { if (coldata) coldata->SetVisibility(button->toggle_button.active != 0); } static void select_columns(Watch_Window *ww, GtkWidget *clist) { GtkWidget *dialog=0; GtkWidget *button; unsigned int i; dialog = gtk_dialog_new(); gtk_container_set_border_width(GTK_CONTAINER(dialog),30); gtk_signal_connect_object(GTK_OBJECT(dialog), "delete_event",GTK_SIGNAL_FUNC(gtk_widget_destroy),GTK_OBJECT(dialog)); for(i=0;ivbox),button,FALSE,FALSE,0); gtk_signal_connect(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(set_column),(gpointer)&coldata[i]); } button = gtk_button_new_with_label("OK"); gtk_widget_show(button); gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->action_area), button, FALSE,FALSE,10); gtk_signal_connect_object(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(gtk_widget_destroy),GTK_OBJECT(dialog)); GTK_WIDGET_SET_FLAGS(button,GTK_CAN_DEFAULT); gtk_widget_grab_default(button); gtk_widget_show(dialog); return; } // helper function, called from do_popup static GtkWidget * build_menu(GtkWidget *sheet, Watch_Window *ww) { GtkWidget *menu; GtkWidget *item; unsigned int i; if(sheet==0 || ww==0) { printf("Warning build_menu(%p,%p)\n",sheet,ww); return 0; } popup_ww = ww; menu=gtk_menu_new(); item = gtk_tearoff_menu_item_new (); gtk_menu_append (GTK_MENU (menu), item); gtk_widget_show (item); for (i=0; i < (sizeof(menu_items)/sizeof(menu_items[0])) ; i++){ menu_items[i].item=item=gtk_menu_item_new_with_label(menu_items[i].name); gtk_signal_connect(GTK_OBJECT(item),"activate", (GtkSignalFunc) popup_activated, &menu_items[i]); gtk_widget_show(item); gtk_menu_append(GTK_MENU(menu),item); } ww->UpdateMenus(); return menu; } // button press handler static gint do_popup(GtkWidget *widget, GdkEventButton *event, Watch_Window *ww) { GtkWidget *popup; if(widget==0 || event==0 || ww==0) { printf("Warning do_popup(%p,%p,%p)\n",widget,event,ww); return 0; } popup=ww->popup_menu; if( (event->type == GDK_BUTTON_PRESS) && (event->button == 3) ) gtk_menu_popup(GTK_MENU(popup), 0, 0, 0, 0, 3, event->time); /* WatchEntry *entry; if(event->type==GDK_2BUTTON_PRESS && event->button==1) { int column=ww->current_column; int row=ww->current_row; entry = (WatchEntry*) gtk_clist_get_row_data(GTK_CLIST(ww->watch_clist), row); if(column>=MSBCOL && column<=LSBCOL) { int value; // , bit; printf("column %d\n",column); // Toggle the bit. value = entry->get_value(); value ^= (1<< (15-(column-MSBCOL))); entry->put_value(value); } } */ return 0; } static gint key_press(GtkWidget *widget, GdkEventKey *key, gpointer data) { WatchEntry *entry; Watch_Window *ww = (Watch_Window *) data; if(!ww) return(FALSE); if(!ww->gp) return(FALSE); if(!ww->gp->cpu) return(FALSE); switch(key->keyval) { case GDK_Delete: entry = (WatchEntry*) gtk_clist_get_row_data(GTK_CLIST(ww->watch_clist),ww->current_row); if(entry!=0) ww->ClearWatch(entry); break; } return TRUE; } static gint watch_list_row_selected(GtkCList *watchlist,gint row, gint column,GdkEvent *event, Watch_Window *ww) { WatchEntry *entry; GUI_Processor *gp; ww->current_row=row; ww->current_column=column; gp=ww->gp; entry = (WatchEntry*) gtk_clist_get_row_data(GTK_CLIST(ww->watch_clist), row); if(!entry) return TRUE; if(entry->type==REGISTER_RAM) gp->regwin_ram->SelectRegister(entry->address); else if(entry->type==REGISTER_EEPROM) gp->regwin_eeprom->SelectRegister(entry->address); ww->UpdateMenus(); return 0; } static void watch_click_column(GtkCList *clist, int column) { static int last_col=-1; static GtkSortType last_sort_type=GTK_SORT_DESCENDING; if(last_col==-1) last_col=column; if(last_col == column) { if(last_sort_type==GTK_SORT_DESCENDING) { gtk_clist_set_sort_type(clist,GTK_SORT_ASCENDING); last_sort_type=GTK_SORT_ASCENDING; } else { gtk_clist_set_sort_type(clist,GTK_SORT_DESCENDING); last_sort_type=GTK_SORT_DESCENDING; } } gtk_clist_set_sort_column(clist,column); gtk_clist_sort(clist); last_col=column; } static int delete_event(GtkWidget *widget, GdkEvent *event, Watch_Window *ww) { ww->ChangeView(VIEW_HIDE); return TRUE; } //======================================================================== // UpdateWatch // A single watch entry is updated here. Here's what's done: // // If the value has not changed since the last update, then the // foreground and background colors are refreshed and we return. // // If the value has changed, then each of the value fields are refreshed. // Then the foreground and background are refreshed. void Watch_Window::UpdateWatch(WatchEntry *entry) { int row; row=gtk_clist_find_row_from_data(GTK_CLIST(watch_clist),entry); if(row==-1) return; RegisterValue rvNewValue = entry->getRV(); // If the value has not changed, then simply update the foreground and background // colors and return. if (entry->get_shadow() == rvNewValue) { gtk_clist_set_foreground(GTK_CLIST(watch_clist), row, gColors.normal_fg()); gtk_clist_set_background(GTK_CLIST(watch_clist), row, (entry->hasBreak() ? gColors.breakpoint() : gColors.normal_bg())); return; } RegisterValue rvMaskedNewValue; unsigned int uBitmask; entry->put_shadow(rvNewValue); if(entry->pRegister) { rvMaskedNewValue = entry->pRegister->getRV_notrace(); uBitmask = entry->pRegister->mValidBits; //getBitmask(); } else { rvMaskedNewValue = entry->getRV(); uBitmask = entry->cpu->register_mask(); } char str[80]; if(rvNewValue.init & uBitmask) { strcpy(str, "?"); } else sprintf(str,"%d", rvNewValue.data); gtk_clist_set_text(GTK_CLIST(watch_clist), row, DECIMALCOL, str); // Hexadecimal representation: rvMaskedNewValue.toString(str, 80); gtk_clist_set_text(GTK_CLIST(watch_clist), row, HEXCOL, str); // ASCII representation str[0] = ( rvNewValue.data>0x20 && rvNewValue.data<0x7F ) ? rvNewValue.data : 0; str[1] = 0; gtk_clist_set_text(GTK_CLIST(watch_clist), row, ASCIICOL, str); // Bit representation char sBits[25]; rvNewValue.toBitStr(sBits, 25, entry->cpu->register_mask(), NULL); gtk_clist_set_text(GTK_CLIST(watch_clist), row, BITCOL, sBits); // Set foreground and background colors gtk_clist_set_foreground(GTK_CLIST(watch_clist), row, gColors.item_has_changed()); gtk_clist_set_background(GTK_CLIST(watch_clist), row, (entry->hasBreak() ? gColors.breakpoint() : gColors.normal_bg())); } //------------------------------------------------------------------------ // Update // // void Watch_Window::Update() { GList *iter; WatchEntry *entry; int clist_frozen=0; iter=watches; while(iter) { entry=(WatchEntry*)iter->data; if (entry) UpdateWatch(entry); iter=iter->next; } if(clist_frozen) gtk_clist_thaw(GTK_CLIST(watch_clist)); } //------------------------------------------------------------------------ /* void Watch_Window::Add( REGISTER_TYPE type, GUIRegister *reg) { if(!gp || !gp->cpu || !reg || !reg->bIsValid()) return; Register *cpu_reg = reg->get_register(); register_symbol * pRegSym = get_symbol_table().findRegisterSymbol( cpu_reg->address); Add(type, reg, pRegSym); } */ void Watch_Window::Add( REGISTER_TYPE type, GUIRegister *reg, Register * pReg) { char vname[50], addressstring[50], empty[] = ""; char *entry[COLUMNS]={vname, addressstring, empty, empty, empty, empty}; int row; WatchWindowXREF *cross_reference; WatchEntry *watch_entry; if(!gp || !gp->cpu || !reg || !reg->bIsValid()) return; if(!enabled) Build(); pReg = pReg ? pReg : reg->get_register(); if (!pReg) return; strncpy(vname,pReg?pReg->name().c_str():"NULLREG",sizeof(vname)); /* if(pRegSym == 0) { cpu_reg = reg->get_register(); strncpy(vname,cpu_reg->name().c_str(),sizeof(vname)); } else { cpu_reg = pRegSym->getReg(); strncpy(vname,pRegSym->name().c_str(),sizeof(vname)); } */ unsigned int uAddrMask = 0; unsigned int uLastAddr = gp->cpu->register_memory_size() - 1; while(uLastAddr) { uLastAddr>>=4; uAddrMask<<=4; uAddrMask |= 0xf; } strcpy(addressstring, GetUserInterface().FormatProgramAddress(pReg->getAddress(), uAddrMask, IUserInterface::eHex)); gtk_clist_freeze(GTK_CLIST(watch_clist)); row=gtk_clist_append(GTK_CLIST(watch_clist), entry); watch_entry = new WatchEntry(); watch_entry->address=reg->address; watch_entry->pRegister = pReg; watch_entry->cpu = gp->cpu; watch_entry->type=type; watch_entry->rma = reg->rma; gtk_clist_set_row_data(GTK_CLIST(watch_clist), row, (gpointer)watch_entry); watches = g_list_append(watches, (gpointer)watch_entry); UpdateWatch(watch_entry); cross_reference = new WatchWindowXREF(); cross_reference->parent_window_type = WT_watch_window; cross_reference->parent_window = (gpointer) this; cross_reference->data = (gpointer) watch_entry; watch_entry->Assign_xref(cross_reference); gtk_clist_thaw(GTK_CLIST(watch_clist)); UpdateMenus(); } //--- // Add - given a symbol, verify that it is a RAM or EEPROM register // symbol. If it is then extract the register and use it's address // to get the GUI representation of the register. void Watch_Window::Add( Value *regSym) { if(regSym && gp) { Register *reg = dynamic_cast(regSym); if(reg) { GUIRegister *greg = gp->m_pGUIRamRegisters->Get(reg->getAddress()); Add(REGISTER_RAM, greg, reg); } } } //------------------------------------------------------------------------ // NewSymbols // void Watch_Window::NewProcessor(GUI_Processor *_gp) { if (!gp || !gp->cpu) return; ReadSymbolList(); } //------------------------------------------------------------------------ // ClearWatches // // void Watch_Window::ClearWatches(void) { GList *iter; WatchEntry *entry; int row; iter=watches; while(iter) { entry=(WatchEntry*)iter->data; row=gtk_clist_find_row_from_data(GTK_CLIST(watch_clist),entry); gtk_clist_remove(GTK_CLIST(watch_clist),row); entry->Clear_xref(); free(entry); iter=iter->next; } while( (watches=g_list_remove_link(watches,watches))!=0) ; } //------------------------------------------------------------------------ // Build // // void Watch_Window::Build(void) { if(bIsBuilt) return; GtkWidget *vbox; GtkWidget *scrolled_window; int i; window = gtk_window_new(GTK_WINDOW_TOPLEVEL); gtk_window_set_title(GTK_WINDOW(window), "Watch Viewer"); gtk_window_set_default_size(GTK_WINDOW(window), width,height); gtk_widget_set_uposition(GTK_WIDGET(window),x,y); gtk_window_set_wmclass(GTK_WINDOW(window),name(),"Gpsim"); gtk_signal_connect (GTK_OBJECT (window), "delete_event", GTK_SIGNAL_FUNC(delete_event), (gpointer)this); gtk_signal_connect_after(GTK_OBJECT(window), "configure_event", GTK_SIGNAL_FUNC(gui_object_configure_event),this); watch_clist = gtk_clist_new_with_titles(COLUMNS,(gchar **)watch_titles); // The following line is silly but it stops GTK printing an assert // in Fedora 19 with Adwaita theme gtk_widget_set_style(watch_clist, gtk_widget_get_style(watch_clist)); gtk_widget_show(watch_clist); for(i=0;i config.h) settings_reg.o : ../plat/win32/settings_reg.cpp $(CXX) $(CFLAGS) -c -o settings_reg.o ../plat/win32/settings_reg.cpp ################ The libgui LIB libgui.a : $(gui_OBJECTS) $(RM) -f $@ $(AR) $(ARFLAGS) $@ $(gui_OBJECTS) gpsim-0.27.0/gui/gui_processor.cc0000644000076400007640000000473210452446015013635 00000000000000/* Copyright (C) 1998,1999,2000,2001 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include "../config.h" #ifdef HAVE_GUI #ifdef DOING_GNOME #include #endif #include #include #include #include #include #include #include #include #include #include "gui.h" #include "gui_breadboard.h" #include "gui_profile.h" #include "gui_register.h" #include "gui_regwin.h" #include "gui_scope.h" #include "gui_src.h" #include "gui_stack.h" #include "gui_stopwatch.h" #include "gui_symbols.h" #include "gui_trace.h" #include "gui_watch.h" #include "gui_processor.h" void create_dispatcher (void); GUI_Processor::GUI_Processor(void) { cpu = 0; m_pGUIRamRegisters = 0; m_pGUIEEPromRegisters = 0; create_dispatcher(); regwin_ram = new RAM_RegisterWindow(this); regwin_eeprom = new EEPROM_RegisterWindow(this); program_memory = new SourceBrowserOpcode_Window(this); source_browser = new SourceBrowserParent_Window(this); symbol_window = new Symbol_Window(this); watch_window = new Watch_Window(this); stack_window = new Stack_Window(this); breadboard_window = new Breadboard_Window(this); trace_window = new Trace_Window(this); profile_window = new Profile_Window(this); stopwatch_window = new StopWatch_Window(this); scope_window = new Scope_Window(this); } void GUI_Processor::SetCPU(Processor *new_cpu) { cpu = new_cpu; if(m_pGUIRamRegisters) { delete m_pGUIRamRegisters; } m_pGUIRamRegisters = new GUIRegisterList(&new_cpu->rma); if(m_pGUIEEPromRegisters) { delete m_pGUIEEPromRegisters; } m_pGUIEEPromRegisters = new GUIRegisterList(&new_cpu->ema); } #endif // HAVE_GUI gpsim-0.27.0/gui/gui_src.cc0000664000076400007640000001516612163701216012410 00000000000000/* Copyright (C) 1998,1999,2000,2001 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include #include "../config.h" #ifdef HAVE_GUI #include #include #include #include #include #include #include #include #include #include "gui.h" #include "gui_src.h" #include #include class StepEvent : public KeyEvent { public: void press(gpointer data) { SourceBrowser_Window *sbw = (SourceBrowser_Window *) data; if(sbw && sbw->pma) sbw->pma->step(1); } void release(gpointer data) {} }; class StepOverEvent : public KeyEvent { public: void press(gpointer data) { SourceBrowser_Window *sbw = (SourceBrowser_Window *) data; if(sbw && sbw->pma) // Step Over Next instruction, or hll statement sbw->pma->step_over(); } void release(gpointer data) {} }; class RunEvent : public KeyEvent { public: void press(gpointer data) { /* SourceBrowser_Window *sbw = (SourceBrowser_Window *) data; if(sbw && sbw->pma) sbw->pma->run(); */ get_interface().start_simulation(); } void release(gpointer data) {} }; class StopEvent : public KeyEvent { public: void press(gpointer data) { SourceBrowser_Window *sbw = (SourceBrowser_Window *) data; if(sbw && sbw->pma) sbw->pma->stop(); } void release(gpointer data) {} }; class FinishEvent : public KeyEvent { public: void press(gpointer data) { SourceBrowser_Window *sbw = (SourceBrowser_Window *) data; if(sbw && sbw->pma) sbw->pma->finish(); } void release(gpointer data) {} }; static map KeyMap; static gint key_press(GtkWidget *widget, GdkEventKey *key, gpointer data) { SourceBrowser_Window *sbw = (SourceBrowser_Window *) data; if(!sbw) return(FALSE); if(!sbw->gp) return(FALSE); if(!sbw->gp->cpu) return(FALSE); // fix this if(sbw->wt == WT_opcode_source_window) { SourceBrowserOpcode_Window *sbow = (SourceBrowserOpcode_Window*)sbw; if(gtk_notebook_get_current_page(GTK_NOTEBOOK(sbow->notebook))) return FALSE; } KeyEvent *pKE = KeyMap[key->keyval]; if(pKE) { pKE->press(data); return TRUE; } return FALSE; } static int delete_event(GtkWidget *widget, GdkEvent *event, SourceBrowser_Window *sbw) { sbw->ChangeView(VIEW_HIDE); return TRUE; } void SourceBrowser_Window::SetPC(int address) { printf("%s shouldn't be called \n",__FUNCTION__); } void SourceBrowser_Window::UpdateLine(int address) { printf("%s shouldn't be called \n",__FUNCTION__); } void SourceBrowser_Window::Update(void) { if(!gp || !gp->cpu) return; SetPC(gp->cpu->pma->get_PC()); } void SourceBrowser_Window::Create(void) { last_simulation_mode = eSM_INITIAL; window = gtk_window_new (GTK_WINDOW_TOPLEVEL); gtk_window_set_default_size(GTK_WINDOW(window), width,height); gtk_widget_set_uposition(GTK_WIDGET(window),x,y); gtk_window_set_wmclass(GTK_WINDOW(window),name(),"Gpsim"); gtk_signal_connect (GTK_OBJECT (window), "delete_event", GTK_SIGNAL_FUNC(delete_event), (gpointer) this); // FIXME - populate the KeyMap map with source browser functions. This should // FIXME probably go into some kind of configuration file. KeyMap['s'] = new StepEvent(); KeyMap['S'] = KeyMap['s']; KeyMap[GDK_F7] = KeyMap['s']; KeyMap['o'] = new StepOverEvent(); KeyMap['O'] = KeyMap['o']; KeyMap['n'] = KeyMap['o']; KeyMap[GDK_F8] = KeyMap['o']; KeyMap['r'] = new RunEvent(); KeyMap['R'] = KeyMap['r']; KeyMap[GDK_F9] = KeyMap['r']; KeyMap[GDK_Escape] = new StopEvent(); KeyMap['f'] = new FinishEvent(); KeyMap['F'] = KeyMap['f']; /* Add a signal handler for key press events. This will capture * key commands for single stepping, running, etc. */ gtk_signal_connect(GTK_OBJECT(window),"key_press_event", (GtkSignalFunc) key_press, (gpointer) this); gtk_container_set_border_width (GTK_CONTAINER (window), 0); vbox = gtk_vbox_new (FALSE, 0); gtk_widget_show(vbox); gtk_container_add (GTK_CONTAINER (window), vbox); } void SourceBrowser_Window::SetTitle() { char buffer[256]; if (gp->cpu == NULL || pma == NULL) { return; } if (last_simulation_mode != eSM_INITIAL && ((last_simulation_mode == eSM_RUNNING && gp->cpu->simulation_mode == eSM_RUNNING) || (last_simulation_mode != eSM_RUNNING && gp->cpu->simulation_mode != eSM_RUNNING)) && sLastPmaName == pma->name()) { return; } last_simulation_mode = gp->cpu->simulation_mode; const char * sStatus; if (gp->cpu->simulation_mode == eSM_RUNNING) sStatus = "Run"; else // if (gp->cpu->simulation_mode == eSM_STOPPED) sStatus = "Stopped"; sprintf(buffer,"Source Browser: [%s] %s", sStatus, pma != NULL ? pma->name().c_str() : "" ); sLastPmaName = pma->name(); gtk_window_set_title (GTK_WINDOW (window), buffer); } void SourceBrowser_Window::NewProcessor(GUI_Processor *gp) { printf("%s shouldn't be called \n",__FUNCTION__); } void SourceBrowser_Window::SelectAddress(int address) { printf("%s shouldn't be called \n",__FUNCTION__); } void SourceBrowser_Window::SelectAddress(Value *addrSym) { if(typeid(*addrSym) == typeid(LineNumberSymbol) || typeid(*addrSym) == typeid(AddressSymbol)) { int i; addrSym->get(i); SelectAddress(i); } } gint gui_object_configure_event(GtkWidget *widget, GdkEventConfigure *e, GUI_Object *go) { // struct gui_config_winattr winattr; if(widget->window==0) return 0; gdk_window_get_root_origin(widget->window,&go->x,&go->y); gdk_window_get_size(widget->window,&go->width,&go->height); go->set_config(); return 0; // what should be returned?, FIXME } #endif // HAVE_GUI gpsim-0.27.0/gui/gui_stopwatch.cc0000664000076400007640000002646012160746027013642 00000000000000/* Copyright (C) 2000,2001 Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "../config.h" #ifdef HAVE_GUI #include #include #include #include #include #include #include "../src/interface.h" #include "gui.h" #include "gui_stopwatch.h" static int delete_event(GtkWidget *widget, GdkEvent *event, StopWatch_Window *sww) { sww->ChangeView(VIEW_HIDE); return TRUE; } void StopWatch_Window::Update(void) { long long _cyclecounter; static long long cyclecounter_last=0; double timevalue; char frequencystring[100]; char cyclestring[100]; char timestring[100]; char offsetstring[100]; char rolloverstring[100]; if(!gp || !gp->cpu) return; if(!enabled) return; if(!bIsBuilt) Build(); if(rollover<=0) rollover=1; if(offset>rollover) offset%=rollover; double frequency = gp->cpu->get_frequency(); unsigned int cycle_per_inst = gp->cpu->get_ClockCycles_per_Instruction(); _cyclecounter=cyclecounter; //////////////////////// if(count_dir<0) _cyclecounter -= get_cycles().get() - cyclecounter_last; else _cyclecounter += get_cycles().get() - cyclecounter_last; cyclecounter_last = get_cycles().get(); // %%% FIXME %%% - This surely must be wrong, given that we're working with // the local copy ('_cyclecounter') while(cyclecounteroffset = sww->cyclecounter; sww->Update(); } static void modepopup_activated(GtkWidget *widget, gpointer data) { StopWatch_Window *sww; unsigned char dir = *(unsigned char*)data; sww = (StopWatch_Window *)gtk_object_get_data(GTK_OBJECT(widget),"sww"); switch(dir) { case '+': sww->count_dir=1; config_set_variable(sww->name(),"count_dir",sww->count_dir); break; case '-': sww->count_dir=-1; config_set_variable(sww->name(),"count_dir",sww->count_dir); break; default: assert(0); break; } sww->Update(); } static void cyclechanged(GtkWidget *widget, StopWatch_Window *sww) { const char *text; if(widget==0|| sww==0) { printf("Warning cyclechanged(%p,%p)\n",widget,sww); return; } if(!sww->IsUpdate() && (text=gtk_entry_get_text (GTK_ENTRY(widget)))!=0) { long long v = strtoll(text,0,10); if(v!=(sww->cyclecounter-sww->offset)%sww->rollover) { v=(v+sww->offset)%sww->rollover; sww->cyclecounter=v; sww->Update(); } } } static void offsetchanged(GtkWidget *widget, StopWatch_Window *sww) { const char *text; if(widget==0|| sww==0) { printf("Warning offsetchanged(%p,%p)\n",widget,sww); return; } if(!sww->IsUpdate() && (text=gtk_entry_get_text (GTK_ENTRY(widget)))!=0) { long long v = strtoll(text,0,10); if(v!=sww->offset) { sww->offset=v; sww->Update(); } } } static void rolloverchanged(GtkWidget *widget, StopWatch_Window *sww) { const char *text; if(widget==0|| sww==0) { printf("Warning rolloverchanged(%p,%p)\n",widget,sww); return; } if(!sww->IsUpdate() && (text=gtk_entry_get_text (GTK_ENTRY(widget)))!=0) { long long v = strtoll(text,0,10); if(v!=sww->rollover) { sww->rollover=v; config_set_string(sww->name(),"rollover",text); sww->Update(); } } } void StopWatch_Window::Build(void) { if(bIsBuilt) return; GtkWidget *vbox, *button, *label, *entry; GtkWidget *menuitem, *optionmenu, *table, *optionmenu_menu; window=gtk_window_new(GTK_WINDOW_TOPLEVEL); gtk_window_set_title(GTK_WINDOW(window), "StopWatch"); gtk_window_set_default_size(GTK_WINDOW(window), width,height); gtk_widget_set_uposition(GTK_WIDGET(window),x,y); gtk_window_set_wmclass(GTK_WINDOW(window),name(),"Gpsim"); gtk_signal_connect (GTK_OBJECT (window), "delete_event", GTK_SIGNAL_FUNC(delete_event), (gpointer)this); gtk_signal_connect_after(GTK_OBJECT(window), "configure_event", GTK_SIGNAL_FUNC(gui_object_configure_event),this); vbox = gtk_vbox_new (FALSE, 0); gtk_widget_show (vbox); gtk_container_add (GTK_CONTAINER (window), vbox); table = gtk_table_new (6, 2, FALSE); gtk_widget_show (table); gtk_box_pack_start (GTK_BOX (vbox), table, FALSE, TRUE, 0); label = gtk_label_new ("Cycles"); gtk_widget_show (label); gtk_table_attach (GTK_TABLE (table), label, 0, 1, 0, 1, (GtkAttachOptions) (GTK_FILL), (GtkAttachOptions) (0), 0, 0); label = gtk_label_new ("Time"); gtk_widget_show (label); gtk_table_attach (GTK_TABLE (table), label, 0, 1, 1, 2, (GtkAttachOptions) (GTK_FILL), (GtkAttachOptions) (0), 0, 0); label = gtk_label_new ("Processor frequency"); gtk_widget_show (label); gtk_table_attach (GTK_TABLE (table), label, 0, 1, 2, 3, (GtkAttachOptions) (GTK_FILL), (GtkAttachOptions) (0), 0, 0); cycleentry = entry = gtk_entry_new (); gtk_widget_show (entry); gtk_table_attach (GTK_TABLE (table), entry, 1, 2, 0, 1, (GtkAttachOptions) (GTK_EXPAND | GTK_FILL), (GtkAttachOptions) (0), 0, 0); gtk_signal_connect(GTK_OBJECT(entry), "changed", (GtkSignalFunc)cyclechanged,this); timeentry = entry = gtk_entry_new (); gtk_widget_show (entry); gtk_entry_set_editable(GTK_ENTRY(entry),0); GTK_WIDGET_UNSET_FLAGS (entry, GTK_SENSITIVE | GTK_CAN_FOCUS); gtk_table_attach (GTK_TABLE (table), entry, 1, 2, 1, 2, (GtkAttachOptions) (GTK_EXPAND | GTK_FILL), (GtkAttachOptions) (0), 0, 0); frequencyentry = entry = gtk_entry_new (); gtk_widget_show (entry); gtk_entry_set_editable(GTK_ENTRY(entry),0); GTK_WIDGET_UNSET_FLAGS (entry, GTK_SENSITIVE | GTK_CAN_FOCUS); gtk_table_attach (GTK_TABLE (table), entry, 1, 2, 2, 3, (GtkAttachOptions) (GTK_EXPAND | GTK_FILL), (GtkAttachOptions) (0), 0, 0); label = gtk_label_new ("Count direction"); gtk_widget_show (label); gtk_table_attach (GTK_TABLE (table), label, 0, 1, 4, 5, (GtkAttachOptions) (GTK_FILL), (GtkAttachOptions) (0), 0, 0); optionmenu = gtk_option_menu_new (); gtk_widget_show (optionmenu); gtk_table_attach (GTK_TABLE (table), optionmenu, 1, 2, 4, 5, (GtkAttachOptions) (GTK_FILL), (GtkAttachOptions) (0), 0, 0); optionmenu_menu = gtk_menu_new (); menuitem = gtk_menu_item_new_with_label ("Up"); gtk_widget_show (menuitem); gtk_menu_append (GTK_MENU (optionmenu_menu), menuitem); gtk_object_set_data(GTK_OBJECT(menuitem), "sww", this); gtk_signal_connect(GTK_OBJECT(menuitem),"activate", (GtkSignalFunc) modepopup_activated, (gpointer)"+"); menuitem = gtk_menu_item_new_with_label ("Down"); gtk_widget_show (menuitem); gtk_menu_append (GTK_MENU (optionmenu_menu), menuitem); gtk_object_set_data(GTK_OBJECT(menuitem), "sww", this); gtk_signal_connect(GTK_OBJECT(menuitem),"activate", (GtkSignalFunc) modepopup_activated, (gpointer)"-"); gtk_option_menu_set_menu (GTK_OPTION_MENU (optionmenu), optionmenu_menu); gtk_option_menu_set_history (GTK_OPTION_MENU (optionmenu),count_dir>0?0:1); label = gtk_label_new ("Cycle offset"); gtk_widget_show (label); gtk_table_attach (GTK_TABLE (table), label, 0, 1, 3, 4, (GtkAttachOptions) (GTK_FILL), (GtkAttachOptions) (0), 0, 0); offsetentry = entry = gtk_entry_new (); gtk_widget_show (entry); gtk_table_attach (GTK_TABLE (table), entry, 1, 2, 3, 4, (GtkAttachOptions) (GTK_EXPAND | GTK_FILL), (GtkAttachOptions) (0), 0, 0); gtk_signal_connect(GTK_OBJECT(entry), "changed", (GtkSignalFunc)offsetchanged,this); label = gtk_label_new ("Rollover"); gtk_widget_show (label); gtk_table_attach (GTK_TABLE (table), label, 0, 1, 5, 6, (GtkAttachOptions) (GTK_FILL), (GtkAttachOptions) (0), 0, 0); rolloverentry = entry = gtk_entry_new (); gtk_widget_show (entry); gtk_table_attach (GTK_TABLE (table), entry, 1, 2, 5, 6, (GtkAttachOptions) (GTK_EXPAND | GTK_FILL), (GtkAttachOptions) (0), 0, 0); gtk_signal_connect(GTK_OBJECT(entry), "changed", (GtkSignalFunc)rolloverchanged,this); button = gtk_button_new_with_label ("Zero"); gtk_widget_show (button); gtk_box_pack_start (GTK_BOX (vbox), button, FALSE, FALSE, 4); gtk_signal_connect(GTK_OBJECT(button),"clicked", GTK_SIGNAL_FUNC(zero_cb),this); gtk_widget_show (window); bIsBuilt=true; UpdateMenuItem(); Update(); } //------------------------------------------------------------------------ // // StopWatch_Window::StopWatch_Window(GUI_Processor *_gp) { char *string; menu = "
    /Windows/Stopwatch"; gp = _gp; set_name("stopwatch_viewer"); wc = WC_data; wt = WT_stopwatch_window; window = 0; count_dir=1; rollover=1000000; cyclecounter=0; offset=0; from_update = 0; get_config(); if(config_get_string(name(),"rollover",&string)) rollover = strtoll(string,0,10); config_get_variable(name(),"count_dir",&count_dir); if(enabled) Build(); } #endif // HAVE_GUI gpsim-0.27.0/gui/gui_interface.h0000644000076400007640000000063510416272633013421 00000000000000#ifndef __GUI_INTERFACE_H__ #define __GUI_INTERFACE_H__ #ifdef __cplusplus //extern "C" { #endif /* __cplusplus */ void gui_new_processor (unsigned int pic_id); void gui_new_source (unsigned int pic_id); void update_register(unsigned int reg_number); void update_program_memory(GUI_Processor *gp, unsigned int reg_number); #ifdef __cplusplus //} #endif /* __cplusplus */ #endif /* __GUI_INTERFACE_H__ */ gpsim-0.27.0/gui/gui_object.h0000644000076400007640000000473611116621771012734 00000000000000/* Copyright (C) 1998,1999,2000,2001,2002,2003,2004 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __GUI_OBJECT_H__ #define __GUI_OBJECT_H__ //#include "gui.h" // // Forward reference // class GUI_Processor; //======================================================================== // GUI_Object // All window attributes that are common are placed into the GUI_Object // structure. This structure is then include in each of the other structures. // It's also the very first item in these 'derived' structures. Consequently a // pointer to one object may be type cast into another. // class GUI_Object { public: GUI_Processor *gp; GtkWidget *window; enum window_category wc; enum window_types wt; const char *menu; // Window geometry. This info is saved when the window associated // with this gui object is hidden. Note: gtk saves the window origin // (x,y) but doesn't save the size (width,height). int x,y,width,height; int enabled; // Whether or not the window is up on the screen bool bIsBuilt; // Whether or not the window is built // A pointer to a function that will allow the window associated // with this gui object to be viewable or hidden. #define VIEW_HIDE 0 #define VIEW_SHOW 1 #define VIEW_TOGGLE 2 GUI_Object(void); virtual ~GUI_Object(void); virtual void ChangeView(int view_state); int get_config(void); void check(void); int set_default_config(void); virtual int set_config(void); char *name(void); void set_name(const char * new_name); void set_name(string &new_name); virtual void Build(void); virtual int Create(GUI_Processor *_gp); virtual void UpdateMenuItem(void); virtual void Update(void); virtual void NewProcessor(GUI_Processor *_gp) { gp = _gp; } private: string name_str; }; #endif // __GUI_OBJECT_H__ gpsim-0.27.0/gui/gui_register.h0000644000076400007640000000643010416272633013304 00000000000000/* Copyright (C) 1998,1999,2000,2001,2002,2003,2004 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __GUI_REGISTER_H__ #define __GUI_REGISTER_H__ //======================================================================== // // A GUI register is a shadow of a register in a simulated cpu (or module). // // // FIXME -- why not just derive from the Register base class? class GUIRegister { public: RegisterMemoryAccess *rma; // Pointer to the rma that controls this register. int address; // index in rma register array. int row; // row & col in register window int col; RegisterValue shadow;// value displayed in register window. // This shadows the real register value. It's used // to monitor if register has changed between gui updates int register_size; // The size (in bytes) of a single register bool bUpdateFull; // true if a full update needs to be performed bool bIsAliased; // true if this register is aliased // and this instance is not the base. bool bIsValid(void); // true if this register is a valid one (i.e. // there's a defined register at the address). bool bIsSFR(void); // true if this register is a special function register bool hasBreak(void); // True if there's a breakpoint set on this register. bool hasChanged(RegisterValue ¤t_value) const; // True if register has changed values since last updated. CrossReferenceToGUI *xref; char *getValueAsString(char *, int, char *format, RegisterValue value); void put_value(unsigned int new_value); unsigned int get_value(void); RegisterValue getRV(void); inline operator RegisterValue() { return getRV(); } Register *get_register(); // put and get for updating the shadow void put_shadow(RegisterValue new_value); RegisterValue get_shadow(void) { return shadow; } void Clear_xref(void); void Assign_xref(CrossReferenceToGUI *); char *name(void); GUIRegister(); ~GUIRegister(); }; #define MAX_REGISTERS 0x10000 class GUIRegisterList { public: GUIRegisterList(RegisterMemoryAccess *pRMA); ~GUIRegisterList(); RegisterMemoryAccess *m_pRMA; // Apointer to the Processor's rma or ema. GUIRegister * m_paRegisters[MAX_REGISTERS]; GUIRegister * Get(int iAddress); GUIRegister * Get(unsigned int uAddress); }; inline GUIRegister *GUIRegisterList::Get(int iAddress) { return m_paRegisters[iAddress]; } inline GUIRegister *GUIRegisterList::Get(unsigned int uAddress) { return m_paRegisters[uAddress]; } #endif // __GUI_REGISTER_H__ gpsim-0.27.0/gui/gui_watch.h0000644000076400007640000000373110644005164012563 00000000000000/* Copyright (C) 1998,1999,2000,2001,2002,2003,2004 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __GUI_WATCH_H__ #define __GUI_WATCH_H__ #include "gui_register.h" class WatchEntry : public GUIRegister { public: Processor *cpu; REGISTER_TYPE type; //register_symbol *pRegSymbol; Register *pRegister; WatchEntry(); }; class Value; // // The watch window // class Watch_Window : public GUI_Object { public: GList *watches; int current_row; int current_column; GtkWidget *watch_clist; GtkWidget *popup_menu; Watch_Window(GUI_Processor *gp); virtual void Build(void); virtual void ClearWatches(void); virtual void ClearWatch(WatchEntry *entry); virtual void UpdateWatch(WatchEntry *entry); //virtual void Add(REGISTER_TYPE type,GUIRegister *reg); //virtual void Add(REGISTER_TYPE type, GUIRegister *reg, register_symbol * pRegSym); virtual void Add(REGISTER_TYPE type, GUIRegister *reg, Register * pReg=0); virtual void Add(Value *); virtual void Update(); virtual void UpdateMenus(); virtual void NewProcessor(GUI_Processor *gp); // Override set_config() to save variable list on app exit virtual int set_config(void); void ReadSymbolList(); void WriteSymbolList(); void DeleteSymbolList(); }; #endif //__GUI_WATCH_H__ gpsim-0.27.0/gui/gui_profile.h0000644000076400007640000000420010416272633013111 00000000000000/* Copyright (C) 1998,1999,2000,2001,2002,2003,2004 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __GUI_PROFILE_H__ #define __GUI_PROFILE_H__ // // The profile window // struct cycle_histogram_counter{ // Three variables that determine which cycle_histogram_counter we add // the differences in cycle counter to: unsigned int start_address; // Start profile address unsigned int stop_address; // Stop profile address guint64 histo_cycles; // The number of cycles that this counter counts. unsigned int count; // The number of time 'cycles' cycles are used. }; class Profile_Window : public GUI_Object { public: int program; // if non-zero window has program GtkCList *profile_clist; GtkCList *profile_range_clist; GtkCList *profile_register_clist; GtkCList *profile_exestats_clist; GList *profile_list; GList *profile_range_list; GList *profile_register_list; GList *profile_exestats_list; GtkWidget *notebook; gint range_current_row; GtkWidget *exestats_popup_menu; GtkWidget *range_popup_menu; GtkWidget *plot_popup_menu; GtkWidget *plot_canvas; // List of cycle_count structs GList *histogram_profile_list; Profile_Window(GUI_Processor *gp); virtual void Build(void); virtual void Update(void); virtual void NewProcessor(GUI_Processor *gp); virtual void NewProgram(GUI_Processor *gp); virtual void StopExe(int address); virtual void StartExe(int address); }; #endif // __GUI_PROFILE_H__ gpsim-0.27.0/gui/gui_init.cc0000644000076400007640000000221510416272633012556 00000000000000/* Copyright (C) 1998,1999,2000,2001 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "../config.h" #ifdef HAVE_GUI #include #include #include #include #include #include #include #include #include "gui.h" void gui_styles_init(void) { } #endif // HAVE_GUI gpsim-0.27.0/gui/gui_trace.h0000644000076400007640000000317410416272633012560 00000000000000/* Copyright (C) 1998,1999,2000,2001,2002,2003,2004 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __GUI_TRACE_H__ #define __GUI_TRACE_H__ // // The trace window // struct TraceMapping { guint64 cycle; int simulation_trace_index; }; class Trace_Window : public GUI_Object { public: GtkCList *trace_clist; guint64 last_cycle; // The cycle of the last trace in the window. GtkWidget *location; GtkWidget *popup_menu; /* trace_flags bit definitions bit0 - enable xref updates to refresh the display 0 disables, 1 enables bit1-bit31 are unused. */ int trace_flags; /* trace_map is a pointer to an array of cross references * between the trace window and gpsim trace buffer */ struct TraceMapping *trace_map; int trace_map_index; Trace_Window(GUI_Processor *gp); virtual void Build(void); virtual void Update(void); virtual void NewProcessor(GUI_Processor *gp); }; #endif // __GUI_TRACE_H__ gpsim-0.27.0/gui/settings_exdbm.h0000644000076400007640000000247510416272633013640 00000000000000/* Copyright (C) 2004 Borut Razem This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef _SETTINGS_EXDBM_H #define _SETTINGS_EXDBM_H extern "C" { #include "../eXdbm/eXdbm.h" } #include "settings.h" class SettingsEXdbm: public Settings { public: SettingsEXdbm(const char *appl_name); virtual bool set(const char *module, const char *entry, const char *str); virtual bool set(const char *module, const char *entry, int value); virtual bool get(const char *module, const char *entry, char **str); virtual bool get(const char *module, const char *entry, int *value); virtual bool remove(const char *module, const char *entry); private: DB_ID dbid; }; #endif //_SETTINGS_EXDBM_H gpsim-0.27.0/gui/gui_stack.h0000644000076400007640000000215610416272633012566 00000000000000/* Copyright (C) 1998,1999,2000,2001,2002,2003,2004 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __GUI_STACK_H__ #define __GUI_STACK_H__ // // The stack window // class Stack_Window : public GUI_Object { public: int last_stacklen; int current_row; int current_column; GtkWidget *stack_clist; Stack_Window(GUI_Processor *gp); virtual void Build(void); virtual void Update(void); }; #endif //__GUI_STACK_H__ gpsim-0.27.0/gui/preferences.h0000644000076400007640000000320310416272633013110 00000000000000/* Copyright (C) 1998,1999,2000,2001,2002,2003,2004,2005 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __PREFERENCES__ #define __PREFERENCES__ #include "../config.h" #ifdef HAVE_GUI #include //======================================================================== class GuiColor { public: GuiColor (const char *_name, const char *_description); private: const char *name; const char *description; GdkColor *color; }; class GuiColors { public: GuiColors(); GdkColor *breakpoint(); GdkColor *item_has_changed(); GdkColor *normal_fg(); GdkColor *normal_bg(); GdkColor *sfr_bg(); GdkColor *alias(); GdkColor *invalid(); void initialize(); private: bool m_bInitialized; GdkColor breakpoint_color; GdkColor item_has_changed_color; GdkColor normal_fg_color; GdkColor normal_bg_color; GdkColor sfr_bg_color; GdkColor alias_color; GdkColor invalid_color; }; extern GuiColors gColors; #endif // __PREFERENCES__ #endif // HAVE_GUI gpsim-0.27.0/gui/preferences.cc0000644000076400007640000000522310416272633013252 00000000000000/* Copyright (C) 2005 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include #include "../config.h" #ifdef HAVE_GUI #include "preferences.h" //======================================================================== // Colors (probably should be in a separate file) GuiColors gColors; GuiColors::GuiColors() : m_bInitialized(false) { } void GuiColors::initialize() { GdkColormap *colormap = gdk_colormap_get_system(); gdk_color_parse("light cyan", &normal_bg_color); gdk_color_parse("black", &normal_fg_color); gdk_color_parse("blue", &item_has_changed_color); gdk_color_parse("red1", &breakpoint_color); gdk_color_parse("light gray", &alias_color); gdk_color_parse("black", &invalid_color); gdk_color_parse("cyan", &sfr_bg_color); gdk_colormap_alloc_color(colormap, &normal_bg_color,FALSE,TRUE ); gdk_colormap_alloc_color(colormap, &normal_fg_color,FALSE,TRUE ); gdk_colormap_alloc_color(colormap, &item_has_changed_color,FALSE,TRUE); gdk_colormap_alloc_color(colormap, &breakpoint_color,FALSE,TRUE); gdk_colormap_alloc_color(colormap, &alias_color,FALSE,TRUE); gdk_colormap_alloc_color(colormap, &invalid_color,FALSE,TRUE); gdk_colormap_alloc_color(colormap, &sfr_bg_color,FALSE,TRUE); } GdkColor *GuiColors::breakpoint() { if (!m_bInitialized) initialize(); return &breakpoint_color; } GdkColor *GuiColors::item_has_changed() { if (!m_bInitialized) initialize(); return &item_has_changed_color; } GdkColor *GuiColors::normal_fg() { if (!m_bInitialized) initialize(); return &normal_fg_color; } GdkColor *GuiColors::normal_bg() { if (!m_bInitialized) initialize(); return &normal_bg_color; } GdkColor *GuiColors::sfr_bg() { if (!m_bInitialized) initialize(); return &sfr_bg_color; } GdkColor *GuiColors::alias() { if (!m_bInitialized) initialize(); return &alias_color; } GdkColor *GuiColors::invalid() { if (!m_bInitialized) initialize(); return &invalid_color; } #endif //HAVE_GUI gpsim-0.27.0/gui/gui_dialog.cc0000644000076400007640000001247511116621771013062 00000000000000/* Copyright (C) 1998,1999,2000,2001 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #include #include "../config.h" #ifdef HAVE_GUI #include #include #include #include #include #include #include #include #include /* * GtkDialog */ static GtkWidget *dialog_window = 0; static void enter_callback(GtkWidget *entry, char *label) { const gchar *entry_text; entry_text = gtk_entry_get_text(GTK_ENTRY(entry)); printf("label %s, entry contents: %s\n", label, entry_text); } void create_labeled_boxes(GtkWidget *box, const char **labels, int num_labels) { int i; GtkWidget *label; GtkWidget *entry; /* Create the labels and entry boxes associated with them: */ for(i=0; i= 2 gtk_widget_set_usize (entry, gdk_string_width(gtk_style_get_font(entry->style), "9999")+6, -1); #else gtk_widget_set_usize (entry, gdk_string_width (entry->style->font, "9999")+6, -1); #endif gtk_box_pack_start (GTK_BOX (box), entry, FALSE, FALSE, 0); gtk_widget_show (entry); } } /* static void label_toggle (GtkWidget *widget, GtkWidget **label) { if (!(*label)) { *label = gtk_label_new ("Dialog Test"); gtk_signal_connect (GTK_OBJECT (*label), "destroy", GTK_SIGNAL_FUNC (gtk_widget_destroyed), label); gtk_misc_set_padding (GTK_MISC (*label), 10, 10); gtk_box_pack_start (GTK_BOX (GTK_DIALOG (dialog_window)->vbox), *label, TRUE, TRUE, 0); gtk_widget_show (*label); } else gtk_widget_destroy (*label); } */ static void cancel_dialog (GtkWidget *widget, GtkWidget **data) { printf("cancelling\n"); gtk_widget_destroy (dialog_window); } void fill_range (void) { GtkWidget *hbox; static GtkWidget *label; const char *labels[] = { "Start Address: ", " End Address: ", " Fill Value: " }; int num_labels = sizeof(labels) / sizeof(labels[0]); GtkWidget *button; if (!dialog_window) { dialog_window = gtk_dialog_new (); gtk_signal_connect (GTK_OBJECT (dialog_window), "destroy", GTK_SIGNAL_FUNC(gtk_widget_destroyed), &dialog_window); gtk_window_set_title (GTK_WINDOW (dialog_window), "Fill Range"); gtk_container_set_border_width (GTK_CONTAINER (dialog_window), 0); gtk_widget_set_usize (dialog_window, 400, 110); hbox = gtk_hbox_new (FALSE, 0); gtk_box_pack_start (GTK_BOX (GTK_DIALOG (dialog_window)->vbox), hbox, TRUE, TRUE, 0); gtk_widget_show (hbox); create_labeled_boxes( hbox, labels, num_labels); button = gtk_button_new_with_label ("OK"); gtk_signal_connect (GTK_OBJECT (button), "clicked", GTK_SIGNAL_FUNC (cancel_dialog), &label); GTK_WIDGET_SET_FLAGS (button, GTK_CAN_DEFAULT); gtk_box_pack_start (GTK_BOX (GTK_DIALOG (dialog_window)->action_area), button, TRUE, TRUE, 0); gtk_widget_grab_default (button); gtk_widget_show (button); button = gtk_button_new_with_label ("Cancel"); gtk_signal_connect (GTK_OBJECT (button), "clicked", GTK_SIGNAL_FUNC (cancel_dialog), &label); GTK_WIDGET_SET_FLAGS (button, GTK_CAN_DEFAULT); gtk_box_pack_start (GTK_BOX (GTK_DIALOG (dialog_window)->action_area), button, TRUE, TRUE, 0); gtk_widget_show (button); label = 0; } if (!GTK_WIDGET_VISIBLE (dialog_window)) gtk_widget_show (dialog_window); else gtk_widget_destroy (dialog_window); } #endif gpsim-0.27.0/gui/gui_src.h0000664000076400007640000004520111536637004012251 00000000000000/* Copyright (C) 1998,1999,2000,2001,2002,2003,2004 T. Scott Dattalo and Ralf Forsberg This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __GUI_SRC_H__ #define __GUI_SRC_H__ // forward references class SourceBrowserAsm_Window; class SourceBrowserParent_Window; class StatusBar_Window; class Value; class SourceBrowserParent_Window; class SourceWindow; enum eSourceFileType { eUnknownSource=0, // Unknown File type eAsmSource, // Assembly source files eCSource, // C source files eJalSource, // JAL source files eListSource, // List files eAsmIncSource, // Include files for assembly eCIncSource, // Include files for C eHexSource // Hex files }; //======================================================================== class ColorHolder { public: ColorHolder (const char *pcColor); bool set(GdkColor *pNewColor, bool saveOld); char *get(char *, int ); void apply(); bool revert(); GdkColor *CurrentColor(); protected: GdkColor mCurrentColor, mSaveColor; }; //======================================================================== // TextStyle // // A TextSyle is wrapper around a GtkTextTag and provides a simple way // to change the text foreground and background colors. Also, color // editing is supported. class TextStyle { public: TextStyle (const char *pName, const char *pFGColor, const char *pBGColor); virtual ~TextStyle() { } GtkTextTag *tag() { return m_pTag; } void apply(); // Permanently apply a change that the user has made. void revert(); // Remove a change the user has made void setFG(GdkColor *pNewColor); virtual void doubleClickEvent(GtkTextIter *); ColorHolder mFG; // Foreground color ColorHolder mBG; // Background color protected: GtkTextTag *m_pTag; }; //======================================================================== class SourceBuffer { public: SourceBuffer(GtkTextTagTable *,FileContext *,SourceBrowserParent_Window *); void parseLine(const char*, int parseStyle); void addTagRange(TextStyle *, int start_index, int end_index); GtkTextBuffer *getBuffer(); SourceBrowserParent_Window *m_pParent; FileContext *m_pFC; eSourceFileType getSrcType(); void setSrcType(eSourceFileType); bool IsParsed(); void parse(); private: eSourceFileType m_SourceFile_t; bool m_bParsed; GtkTextBuffer *m_buffer; }; //======================================================================== // The SourcePageMargin holds configuration information for the left margin // of a SourcePage. The left margin is where line numbers, addresses, opcodes, // breakpoints, and current program counter are all shown. class SourcePageMargin { public: SourcePageMargin(); void enableLineNumbers(bool b) { m_bShowLineNumbers = b; } void enableAddresses(bool b) { m_bShowAddresses = b; } void enableOpcodes(bool b) { m_bShowOpcodes = b; } bool formatMargin(char *,int, int line,int addr,int opcode,bool bBreak); bool bLineNumbers() { return m_bShowLineNumbers; } bool bAddresses() { return m_bShowAddresses; } bool bOpcodes() { return m_bShowOpcodes; } private: bool m_bShowLineNumbers; bool m_bShowAddresses; bool m_bShowOpcodes; }; //======================================================================== // SourcePage // A single source file. // // The SourcePage class associates a single file with a single GtkTextBuffer. // manages class NSourcePage { public: NSourcePage(SourceWindow *, SourceBuffer *, int file_id, GtkWidget *); GtkTextBuffer *buffer(); GtkTextView *getView(); SourceWindow *getParent(); void invalidateView(); void updateMargin(int y1, int y2); void Close(void); void setFont(const char *); void setSource(); bool bHasSource(); FileContext *getFC(); // callbacks static gint KeyPressHandler(GtkTextView *pView, GdkEventKey *key, SourceWindow *pSW); static gint ButtonPressHandler(GtkTextView *pView, GdkEventButton *pButton, SourceWindow *pSW); static gint ViewExposeEventHandler(GtkTextView *pView, GdkEventExpose *pEvent, SourceWindow *pSW); unsigned int m_fileid; SourceBuffer *m_pBuffer; int m_marginWidth; private: SourceWindow *m_Parent; char *m_cpFont; GtkWidget *m_pContainer; GtkTextView *m_view; }; class SearchDialog; class SourceWindow : public GUI_Object { public: SourceWindow(GUI_Processor *gp, SourceBrowserParent_Window *, bool bUseConfig, const char *newName=0); virtual void Build(); virtual void SetTitle(); void set_pma(ProgramMemoryAccess *new_pma); void Create(void); virtual void SelectAddress(int address); virtual void SelectAddress(Value *); virtual void Update(); virtual void UpdateLine(int address); virtual void SetPC(int address); virtual void CloseSource(void); virtual void NewSource(GUI_Processor *gp); virtual int getPCLine(int page); virtual int getAddress(NSourcePage *pPage, int line); virtual bool bAddressHasBreak(int address); virtual int getOpcode(int address); int AddPage(SourceBuffer *pSourceBuffer, const char *fName); void step(int n=1); void step_over(); void stop(); void run(); void finish(); void reset(); void toggleBreak(NSourcePage *pPage, int line); void movePC(int line); bool bSourceLoaded() { return m_bSourceLoaded; } void findText(); int findText(const char *, int, bool bDir, bool bCase); GtkTextTagTable *getTagTable(); SourcePageMargin &margin(); const char *getFont(); gint switch_page_cb(guint newPage); // Font strings char commentfont_string[256]; char sourcefont_string[256]; GtkStyle *symbol_text_style; // for symbols in .asm display GtkStyle *label_text_style; // for label in .asm display GtkStyle *instruction_text_style; // for instruction in .asm display GtkStyle *number_text_style; // for numbers in .asm display GtkStyle *comment_text_style; // for comments in .asm display GtkStyle *default_text_style; // the rest GdkFont *symbol_font; // for symbols in .asm display GdkFont *label_font; // for label in .asm display GdkFont *instruction_font; // for instruction in .asm display GdkFont *number_font; // for numbers in .asm display GdkFont *comment_font; // for comments in .asm display GdkFont *default_font; // the rest // do we need this: bool m_bLoadSource; bool m_bSourceLoaded; int m_LineAtButtonClick; private: int AddPage(SourceBuffer *pSourceBuffer); ProgramMemoryAccess *pma; // pointer to the processor's pma. StatusBar_Window *status_bar; // display's PC, status, etc. SIMULATION_MODES last_simulation_mode; string sLastPmaName; unsigned int m_currentPage; // Notebook page currently displayed. struct _PC { bool bIsActive; int page; // Notebook page containing the source int line; // Line within the page. GtkTextBuffer *pBuffer; // Buffer containing the Program Counter GtkTextIter iBegin; // Start of where highlight begins GtkTextIter iEnd; // End of highlight } mProgramCounter; // Popup Menu SearchDialog *stPSearchDialog; GtkWidget * BuildPopupMenu(); static void PopupMenuHandler(GtkWidget *widget, gpointer data); // Callbacks static gint KeyPressHandler(GtkWidget *widget, GdkEventKey *key, SourceWindow *pSW); static int DeleteEventHandler(GtkWidget *widget, GdkEvent *event, SourceWindow *sw); static gint cb_notebook_switchpage (GtkNotebook *notebook, GtkNotebookPage *page, guint page_num, SourceWindow *pSW); protected: void set_style_colors(const char *fg_color, const char *bg_color, GtkStyle **style); void addTagRange(NSourcePage *pPage, TextStyle *, int start_index, int end_index); // FIXME - change these items to list objects NSourcePage **pages; GtkWidget *m_Notebook; GtkPositionType m_TabPosition; SourceBrowserParent_Window *m_pParent; }; // #endif class SourceBrowser_Window : public GUI_Object { public: GtkWidget *vbox; // for children to put widgets in ProgramMemoryAccess *pma; // pointer to the processor's pma. StatusBar_Window *status_bar; // display's PC, status, etc. SIMULATION_MODES last_simulation_mode; string sLastPmaName; void set_pma(ProgramMemoryAccess *new_pma); void Create(void); virtual void NewProcessor(GUI_Processor *gp); virtual void SetTitle(); virtual void SelectAddress(int address); virtual void SelectAddress(Value *); virtual void Update(void); virtual void UpdateLine(int address); virtual void SetPC(int address); virtual void CloseSource(void){}; virtual void NewSource(GUI_Processor *gp){}; }; class BreakPointInfo { public: BreakPointInfo(int _address, int _line, int _index, int _pos); BreakPointInfo(BreakPointInfo & Dup); ~BreakPointInfo(); void Set(GtkWidget *, GdkPixmap *, GdkBitmap *); void Clear(GtkWidget *, GdkPixmap *, GdkBitmap *); void setBreakWidget(GtkWidget *); void setCanBreakWidget(GtkWidget *); int getLine() { return line; } GtkWidget *getBreakWidget() { return break_widget;} GtkWidget *getCanBreakWidget() { return canbreak_widget;} int address; int pos; unsigned int index; // gtktext index to start of line private: unsigned int line; // line number, first line eq. 0 GtkWidget *break_widget; // breakpoint widget on this line. GtkWidget *canbreak_widget; // 'can break' widget on this line. }; class BreakPointList { public: GList *iter; BreakPointList(void); void Remove(int); void Add(int, GtkWidget *,GtkWidget *,int); }; class PixmapObject { public: PixmapObject(void) { mask = 0; pixmap = 0; widget = 0; } void CreateFromXPM(GdkWindow *window, GdkColor *transparent_color, gchar **data); GdkBitmap *mask; GdkPixmap *pixmap; GtkWidget *widget; }; // // Source page // class SourcePage { public: GtkAdjustment *source_layout_adj; GtkWidget *source_layout; GtkWidget *source_text; int pageindex_to_fileid; GtkWidget *source_pcwidget; GtkWidget *notebook; // parent GtkWidget *notebook_child; SourcePage(void) { source_layout_adj = 0; source_layout = 0; source_text = 0; pageindex_to_fileid = INVALID_VALUE; source_pcwidget = 0; notebook_child = 0; notebook = 0; } void Close(void); }; // // The Source Assembler Browser // class SourceBrowserAsm_Window :public SourceBrowser_Window { public: // Something to set a debugger condition on when I want // to debug a specific source window. static int m_SourceWindowCount; int m_SourceWindowIndex; BreakPointList breakpoints; BreakPointList notify_start_list; BreakPointList notify_stop_list; // Where the source is stored: int add_page(SourceBrowserAsm_Window *sbaw, int file_id); SourcePage pages[SBAW_NRFILES]; static bool bGlobalInitialized; static GList *s_global_sa_xlate_list[SBAW_NRFILES]; GList *sa_xlate_list[SBAW_NRFILES]; static gint sigh_button_event( GtkWidget *widget, GdkEventButton *event, SourceBrowserAsm_Window *sbaw); int layout_offset; // Font strings char commentfont_string[256]; char sourcefont_string[256]; GtkWidget *popup_menu; BreakPointInfo *menu_data; // used by menu callbacks GdkBitmap *pc_mask; GdkBitmap *bp_mask; GdkBitmap *canbp_mask; GdkBitmap *startp_mask; GdkBitmap *stopp_mask; GtkWidget *notebook; GtkStyle *symbol_text_style; // for symbols in .asm display GtkStyle *label_text_style; // for label in .asm display GtkStyle *instruction_text_style; // for instruction in .asm display GtkStyle *number_text_style; // for numbers in .asm display GtkStyle *comment_text_style; // for comments in .asm display GtkStyle *default_text_style; // the rest GdkFont *symbol_font; // for symbols in .asm display GdkFont *label_font; // for label in .asm display GdkFont *instruction_font; // for instruction in .asm display GdkFont *number_font; // for numbers in .asm display GdkFont *comment_font; // for comments in .asm display GdkFont *default_font; // the rest GdkPixmap *pixmap_pc; GdkPixmap *pixmap_break; GdkPixmap *pixmap_canbreak; GdkPixmap *pixmap_profile_start; GdkPixmap *pixmap_profile_stop; PixmapObject canbreak; static int s_totallinesheight[SBAW_NRFILES]; int m_bSourceLoaded; int m_bLoadSource; unsigned int current_page; //Shadows the notebook->current_page; SourceBrowserParent_Window *parent; SourceBrowserAsm_Window(GUI_Processor *gp,char* new_name); virtual void SelectAddress(int address); virtual void SelectAddress(Value *); virtual void SetPC(int address); virtual void CloseSource(void); virtual void NewSource(GUI_Processor *gp); virtual void Update(void); virtual void UpdateLine(int address); virtual void SetText(int id, int file_id, FileContext *fc); void ParseSourceToFormattedText( int id, int &totallinesheight, bool &instruction_done, char *text_buffer, int &cblock, int &index, int &line, FileContext::Cache &FileCache, Processor *cpu, GtkWidget *pSourceWindow, FileContext *fc, int file_id ); void DetermineBreakinfos(int id); BreakPointInfo *getBPatLine(int id, unsigned int line); BreakPointInfo *getBPatPixel(int id, int pixel); BreakPointInfo *getBPatIndex(int id, unsigned int index); static void find_cb(GtkWidget *w, SourceBrowserAsm_Window *sbaw); static void find_clear_cb(GtkWidget *w, SourceBrowserAsm_Window *sbaw); // Popup Menu GtkWidget * BuildPopupMenu(GtkWidget *sheet, SourceBrowserAsm_Window *sbaw); static void PopupMenuHandler(GtkWidget *widget, gpointer data); static gint switch_page_cb(GtkNotebook *notebook, GtkNotebookPage *page, guint page_num, SourceBrowserAsm_Window *sbaw); static void remove_all_points(SourceBrowserAsm_Window *sbaw); }; // // The Source Opcode Browser Data // class SourceBrowserOpcode_Window : public SourceBrowser_Window { public: GtkWidget *clist; unsigned int current_address; // current PC // Font strings char normalfont_string[256]; #if GTK_MAJOR_VERSION >= 2 PangoFontDescription *normalPFD; PangoFontDescription *current_line_numberPFD; PangoFontDescription *breakpoint_line_numberPFD; #else GdkFont *normalfont; GdkFont *current_line_numberfont; GdkFont *breakpoint_line_numberfont; #endif char breakpointfont_string[256]; char pcfont_string[256]; GtkStyle *normal_style; GtkStyle *current_line_number_style; GtkStyle *breakpoint_line_number_style; GdkColor pm_has_changed_color; GdkColor normal_pm_bg_color; GdkColor breakpoint_color; const gchar **column_titles; // int columns; // GtkWidget *notebook; GtkWidget *sheet; GtkWidget *entry; GtkWidget *label; // GtkWidget *pcwidget; GtkWidget *sheet_popup_menu; GtkWidget *clist_popup_menu; unsigned int ascii_mode; // 0, 1 or 2 equals // one byte/cell, // two bytes/cell MSB first // two bytes/cell LSB first unsigned int *memory; SourceBrowserOpcode_Window(GUI_Processor *gp); virtual void Build(void); virtual void NewProcessor(GUI_Processor *gp); virtual void SelectAddress(int address); virtual void SetPC(int address); virtual void NewSource(GUI_Processor *gp); virtual void UpdateLine(int address); virtual void Fill(); }; #define SOURCE_WINDOW SourceWindow // // The Source Browser Child window. // // The gui supports "context" debugging, where a context // may be code written for interrupt routines, non-interrupt // routines, high versus low interrupt priorities, etc. Each // context has a dedicated source browser. The SourceBrowserChild_Window // class manages this. class SourceBrowserParent_Window : public GUI_Object { public: SourceBrowserParent_Window(GUI_Processor *gp); virtual void Build(void); virtual void NewProcessor(GUI_Processor *gp); virtual void SelectAddress(int address); virtual void SelectAddress(Value *); virtual void Update(void); virtual void UpdateLine(int address); virtual void SetPC(int address); virtual void CloseSource(void); virtual void NewSource(GUI_Processor *gp); virtual void ChangeView(int view_state); virtual int set_config(); SOURCE_WINDOW *getChild(int); list children; ProgramMemoryAccess *pma; // pointer to the processor's pma. GtkTextTagTable *getTagTable() { return mpTagTable; } void CreateSourceBuffers(GUI_Processor *gp); //void parseLine(gpsimTextBuffer *pBuffer, const char*, int parseStyle); void parseSource(SourceBuffer *pBuffer,FileContext *pFC); SourcePageMargin &margin(); void setTabPosition(int tt); int getTabPosition() { return m_TabType; } void setFont(const char *); const char *getFont(); //protected: GtkTextTagTable *mpTagTable; TextStyle *mLabel; // for label in .asm display TextStyle *mMnemonic; // for instruction in .asm display TextStyle *mSymbol; // for symbols in .asm display TextStyle *mComment; // for comments in .asm display TextStyle *mConstant; // for numbers in .asm display TextStyle *mDefault; // for everything else. TextStyle *mBreakpointTag; // for breakpoints TextStyle *mNoBreakpointTag; TextStyle *mCurrentLineTag; // Highlights the line at the PC. GtkStyle *mBreakStyle; SourcePageMargin m_margin; int m_TabType; char *m_FontDescription; // FIXME - change these items to list objects SourceBuffer **ppSourceBuffers; }; #endif // __GUI_SRC_H__ gpsim-0.27.0/config.guess0000755000076400007640000013036112157551763012210 00000000000000#! /bin/sh # Attempt to guess a canonical system name. # Copyright 1992-2013 Free Software Foundation, Inc. timestamp='2013-06-10' # 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 3 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, 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 Exception is an additional permission under section 7 # of the GNU General Public License, version 3 ("GPLv3"). # # Originally written by Per Bothner. # # You can get the latest version of this script from: # http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.guess;hb=HEAD # # Please send patches with a ChangeLog entry to config-patches@gnu.org. me=`echo "$0" | sed -e 's,.*/,,'` usage="\ Usage: $0 [OPTION] Output the configuration name of the system \`$me' is run on. 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.guess ($timestamp) Originally written by Per Bothner. Copyright 1992-2013 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 ;; --version | -v ) echo "$version" ; exit ;; --help | --h* | -h ) echo "$usage"; exit ;; -- ) # Stop option processing shift; break ;; - ) # Use stdin as input. break ;; -* ) echo "$me: invalid option $1$help" >&2 exit 1 ;; * ) break ;; esac done if test $# != 0; then echo "$me: too many arguments$help" >&2 exit 1 fi trap 'exit 1' 1 2 15 # CC_FOR_BUILD -- compiler used by this script. Note that the use of a # compiler to aid in system detection is discouraged as it requires # temporary files to be created and, as you can see below, it is a # headache to deal with in a portable fashion. # Historically, `CC_FOR_BUILD' used to be named `HOST_CC'. We still # use `HOST_CC' if defined, but it is deprecated. # Portable tmp directory creation inspired by the Autoconf team. set_cc_for_build=' trap "exitcode=\$?; (rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null) && exit \$exitcode" 0 ; trap "rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null; exit 1" 1 2 13 15 ; : ${TMPDIR=/tmp} ; { tmp=`(umask 077 && mktemp -d "$TMPDIR/cgXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" ; } || { test -n "$RANDOM" && tmp=$TMPDIR/cg$$-$RANDOM && (umask 077 && mkdir $tmp) ; } || { tmp=$TMPDIR/cg-$$ && (umask 077 && mkdir $tmp) && echo "Warning: creating insecure temp directory" >&2 ; } || { echo "$me: cannot create a temporary directory in $TMPDIR" >&2 ; exit 1 ; } ; dummy=$tmp/dummy ; tmpfiles="$dummy.c $dummy.o $dummy.rel $dummy" ; case $CC_FOR_BUILD,$HOST_CC,$CC in ,,) echo "int x;" > $dummy.c ; for c in cc gcc c89 c99 ; do if ($c -c -o $dummy.o $dummy.c) >/dev/null 2>&1 ; then CC_FOR_BUILD="$c"; break ; fi ; done ; if test x"$CC_FOR_BUILD" = x ; then CC_FOR_BUILD=no_compiler_found ; fi ;; ,,*) CC_FOR_BUILD=$CC ;; ,*,*) CC_FOR_BUILD=$HOST_CC ;; esac ; set_cc_for_build= ;' # This is needed to find uname on a Pyramid OSx when run in the BSD universe. # (ghazi@noc.rutgers.edu 1994-08-24) if (test -f /.attbin/uname) >/dev/null 2>&1 ; then PATH=$PATH:/.attbin ; export PATH fi UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown UNAME_SYSTEM=`(uname -s) 2>/dev/null` || UNAME_SYSTEM=unknown UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown case "${UNAME_SYSTEM}" in Linux|GNU|GNU/*) # If the system lacks a compiler, then just pick glibc. # We could probably try harder. LIBC=gnu eval $set_cc_for_build cat <<-EOF > $dummy.c #include #if defined(__UCLIBC__) LIBC=uclibc #elif defined(__dietlibc__) LIBC=dietlibc #else LIBC=gnu #endif EOF eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep '^LIBC'` ;; esac # Note: order is significant - the case branches are not exclusive. case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in *:NetBSD:*:*) # NetBSD (nbsd) targets should (where applicable) match one or # more of the tuples: *-*-netbsdelf*, *-*-netbsdaout*, # *-*-netbsdecoff* and *-*-netbsd*. For targets that recently # switched to ELF, *-*-netbsd* would select the old # object file format. This provides both forward # compatibility and a consistent mechanism for selecting the # object file format. # # Note: NetBSD doesn't particularly care about the vendor # portion of the name. We always set it to "unknown". sysctl="sysctl -n hw.machine_arch" UNAME_MACHINE_ARCH=`(/sbin/$sysctl 2>/dev/null || \ /usr/sbin/$sysctl 2>/dev/null || echo unknown)` case "${UNAME_MACHINE_ARCH}" in armeb) machine=armeb-unknown ;; arm*) machine=arm-unknown ;; sh3el) machine=shl-unknown ;; sh3eb) machine=sh-unknown ;; sh5el) machine=sh5le-unknown ;; *) machine=${UNAME_MACHINE_ARCH}-unknown ;; esac # The Operating System including object format, if it has switched # to ELF recently, or will in the future. case "${UNAME_MACHINE_ARCH}" in arm*|i386|m68k|ns32k|sh3*|sparc|vax) eval $set_cc_for_build if echo __ELF__ | $CC_FOR_BUILD -E - 2>/dev/null \ | grep -q __ELF__ then # Once all utilities can be ECOFF (netbsdecoff) or a.out (netbsdaout). # Return netbsd for either. FIX? os=netbsd else os=netbsdelf fi ;; *) os=netbsd ;; esac # The OS release # Debian GNU/NetBSD machines have a different userland, and # thus, need a distinct triplet. However, they do not need # kernel version information, so it can be replaced with a # suitable tag, in the style of linux-gnu. case "${UNAME_VERSION}" in Debian*) release='-gnu' ;; *) release=`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'` ;; esac # Since CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM: # contains redundant information, the shorter form: # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM is used. echo "${machine}-${os}${release}" exit ;; *:Bitrig:*:*) UNAME_MACHINE_ARCH=`arch | sed 's/Bitrig.//'` echo ${UNAME_MACHINE_ARCH}-unknown-bitrig${UNAME_RELEASE} exit ;; *:OpenBSD:*:*) UNAME_MACHINE_ARCH=`arch | sed 's/OpenBSD.//'` echo ${UNAME_MACHINE_ARCH}-unknown-openbsd${UNAME_RELEASE} exit ;; *:ekkoBSD:*:*) echo ${UNAME_MACHINE}-unknown-ekkobsd${UNAME_RELEASE} exit ;; *:SolidBSD:*:*) echo ${UNAME_MACHINE}-unknown-solidbsd${UNAME_RELEASE} exit ;; macppc:MirBSD:*:*) echo powerpc-unknown-mirbsd${UNAME_RELEASE} exit ;; *:MirBSD:*:*) echo ${UNAME_MACHINE}-unknown-mirbsd${UNAME_RELEASE} exit ;; alpha:OSF1:*:*) case $UNAME_RELEASE in *4.0) UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'` ;; *5.*) UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $4}'` ;; esac # According to Compaq, /usr/sbin/psrinfo has been available on # OSF/1 and Tru64 systems produced since 1995. I hope that # covers most systems running today. This code pipes the CPU # types through head -n 1, so we only detect the type of CPU 0. ALPHA_CPU_TYPE=`/usr/sbin/psrinfo -v | sed -n -e 's/^ The alpha \(.*\) processor.*$/\1/p' | head -n 1` case "$ALPHA_CPU_TYPE" in "EV4 (21064)") UNAME_MACHINE="alpha" ;; "EV4.5 (21064)") UNAME_MACHINE="alpha" ;; "LCA4 (21066/21068)") UNAME_MACHINE="alpha" ;; "EV5 (21164)") UNAME_MACHINE="alphaev5" ;; "EV5.6 (21164A)") UNAME_MACHINE="alphaev56" ;; "EV5.6 (21164PC)") UNAME_MACHINE="alphapca56" ;; "EV5.7 (21164PC)") UNAME_MACHINE="alphapca57" ;; "EV6 (21264)") UNAME_MACHINE="alphaev6" ;; "EV6.7 (21264A)") UNAME_MACHINE="alphaev67" ;; "EV6.8CB (21264C)") UNAME_MACHINE="alphaev68" ;; "EV6.8AL (21264B)") UNAME_MACHINE="alphaev68" ;; "EV6.8CX (21264D)") UNAME_MACHINE="alphaev68" ;; "EV6.9A (21264/EV69A)") UNAME_MACHINE="alphaev69" ;; "EV7 (21364)") UNAME_MACHINE="alphaev7" ;; "EV7.9 (21364A)") UNAME_MACHINE="alphaev79" ;; esac # A Pn.n version is a patched version. # A Vn.n version is a released version. # A Tn.n version is a released field test version. # A Xn.n version is an unreleased experimental baselevel. # 1.2 uses "1.2" for uname -r. echo ${UNAME_MACHINE}-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^[PVTX]//' | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'` # Reset EXIT trap before exiting to avoid spurious non-zero exit code. exitcode=$? trap '' 0 exit $exitcode ;; Alpha\ *:Windows_NT*:*) # How do we know it's Interix rather than the generic POSIX subsystem? # Should we change UNAME_MACHINE based on the output of uname instead # of the specific Alpha model? echo alpha-pc-interix exit ;; 21064:Windows_NT:50:3) echo alpha-dec-winnt3.5 exit ;; Amiga*:UNIX_System_V:4.0:*) echo m68k-unknown-sysv4 exit ;; *:[Aa]miga[Oo][Ss]:*:*) echo ${UNAME_MACHINE}-unknown-amigaos exit ;; *:[Mm]orph[Oo][Ss]:*:*) echo ${UNAME_MACHINE}-unknown-morphos exit ;; *:OS/390:*:*) echo i370-ibm-openedition exit ;; *:z/VM:*:*) echo s390-ibm-zvmoe exit ;; *:OS400:*:*) echo powerpc-ibm-os400 exit ;; arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*) echo arm-acorn-riscix${UNAME_RELEASE} exit ;; arm*:riscos:*:*|arm*:RISCOS:*:*) echo arm-unknown-riscos exit ;; SR2?01:HI-UX/MPP:*:* | SR8000:HI-UX/MPP:*:*) echo hppa1.1-hitachi-hiuxmpp exit ;; Pyramid*:OSx*:*:* | MIS*:OSx*:*:* | MIS*:SMP_DC-OSx*:*:*) # akee@wpdis03.wpafb.af.mil (Earle F. Ake) contributed MIS and NILE. if test "`(/bin/universe) 2>/dev/null`" = att ; then echo pyramid-pyramid-sysv3 else echo pyramid-pyramid-bsd fi exit ;; NILE*:*:*:dcosx) echo pyramid-pyramid-svr4 exit ;; DRS?6000:unix:4.0:6*) echo sparc-icl-nx6 exit ;; DRS?6000:UNIX_SV:4.2*:7* | DRS?6000:isis:4.2*:7*) case `/usr/bin/uname -p` in sparc) echo sparc-icl-nx7; exit ;; esac ;; s390x:SunOS:*:*) echo ${UNAME_MACHINE}-ibm-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4H:SunOS:5.*:*) echo sparc-hal-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*) echo sparc-sun-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; i86pc:AuroraUX:5.*:* | i86xen:AuroraUX:5.*:*) echo i386-pc-auroraux${UNAME_RELEASE} exit ;; i86pc:SunOS:5.*:* | i86xen:SunOS:5.*:*) eval $set_cc_for_build SUN_ARCH="i386" # If there is a compiler, see if it is configured for 64-bit objects. # Note that the Sun cc does not turn __LP64__ into 1 like gcc does. # This test works for both compilers. if [ "$CC_FOR_BUILD" != 'no_compiler_found' ]; then if (echo '#ifdef __amd64'; echo IS_64BIT_ARCH; echo '#endif') | \ (CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) | \ grep IS_64BIT_ARCH >/dev/null then SUN_ARCH="x86_64" fi fi echo ${SUN_ARCH}-pc-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4*:SunOS:6*:*) # According to config.sub, this is the proper way to canonicalize # SunOS6. Hard to guess exactly what SunOS6 will be like, but # it's likely to be more like Solaris than SunOS4. echo sparc-sun-solaris3`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4*:SunOS:*:*) case "`/usr/bin/arch -k`" in Series*|S4*) UNAME_RELEASE=`uname -v` ;; esac # Japanese Language versions have a version number like `4.1.3-JL'. echo sparc-sun-sunos`echo ${UNAME_RELEASE}|sed -e 's/-/_/'` exit ;; sun3*:SunOS:*:*) echo m68k-sun-sunos${UNAME_RELEASE} exit ;; sun*:*:4.2BSD:*) UNAME_RELEASE=`(sed 1q /etc/motd | awk '{print substr($5,1,3)}') 2>/dev/null` test "x${UNAME_RELEASE}" = "x" && UNAME_RELEASE=3 case "`/bin/arch`" in sun3) echo m68k-sun-sunos${UNAME_RELEASE} ;; sun4) echo sparc-sun-sunos${UNAME_RELEASE} ;; esac exit ;; aushp:SunOS:*:*) echo sparc-auspex-sunos${UNAME_RELEASE} exit ;; # The situation for MiNT is a little confusing. The machine name # can be virtually everything (everything which is not # "atarist" or "atariste" at least should have a processor # > m68000). The system name ranges from "MiNT" over "FreeMiNT" # to the lowercase version "mint" (or "freemint"). Finally # the system name "TOS" denotes a system which is actually not # MiNT. But MiNT is downward compatible to TOS, so this should # be no problem. atarist[e]:*MiNT:*:* | atarist[e]:*mint:*:* | atarist[e]:*TOS:*:*) echo m68k-atari-mint${UNAME_RELEASE} exit ;; atari*:*MiNT:*:* | atari*:*mint:*:* | atarist[e]:*TOS:*:*) echo m68k-atari-mint${UNAME_RELEASE} exit ;; *falcon*:*MiNT:*:* | *falcon*:*mint:*:* | *falcon*:*TOS:*:*) echo m68k-atari-mint${UNAME_RELEASE} exit ;; milan*:*MiNT:*:* | milan*:*mint:*:* | *milan*:*TOS:*:*) echo m68k-milan-mint${UNAME_RELEASE} exit ;; hades*:*MiNT:*:* | hades*:*mint:*:* | *hades*:*TOS:*:*) echo m68k-hades-mint${UNAME_RELEASE} exit ;; *:*MiNT:*:* | *:*mint:*:* | *:*TOS:*:*) echo m68k-unknown-mint${UNAME_RELEASE} exit ;; m68k:machten:*:*) echo m68k-apple-machten${UNAME_RELEASE} exit ;; powerpc:machten:*:*) echo powerpc-apple-machten${UNAME_RELEASE} exit ;; RISC*:Mach:*:*) echo mips-dec-mach_bsd4.3 exit ;; RISC*:ULTRIX:*:*) echo mips-dec-ultrix${UNAME_RELEASE} exit ;; VAX*:ULTRIX*:*:*) echo vax-dec-ultrix${UNAME_RELEASE} exit ;; 2020:CLIX:*:* | 2430:CLIX:*:*) echo clipper-intergraph-clix${UNAME_RELEASE} exit ;; mips:*:*:UMIPS | mips:*:*:RISCos) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #ifdef __cplusplus #include /* for printf() prototype */ int main (int argc, char *argv[]) { #else int main (argc, argv) int argc; char *argv[]; { #endif #if defined (host_mips) && defined (MIPSEB) #if defined (SYSTYPE_SYSV) printf ("mips-mips-riscos%ssysv\n", argv[1]); exit (0); #endif #if defined (SYSTYPE_SVR4) printf ("mips-mips-riscos%ssvr4\n", argv[1]); exit (0); #endif #if defined (SYSTYPE_BSD43) || defined(SYSTYPE_BSD) printf ("mips-mips-riscos%sbsd\n", argv[1]); exit (0); #endif #endif exit (-1); } EOF $CC_FOR_BUILD -o $dummy $dummy.c && dummyarg=`echo "${UNAME_RELEASE}" | sed -n 's/\([0-9]*\).*/\1/p'` && SYSTEM_NAME=`$dummy $dummyarg` && { echo "$SYSTEM_NAME"; exit; } echo mips-mips-riscos${UNAME_RELEASE} exit ;; Motorola:PowerMAX_OS:*:*) echo powerpc-motorola-powermax exit ;; Motorola:*:4.3:PL8-*) echo powerpc-harris-powermax exit ;; Night_Hawk:*:*:PowerMAX_OS | Synergy:PowerMAX_OS:*:*) echo powerpc-harris-powermax exit ;; Night_Hawk:Power_UNIX:*:*) echo powerpc-harris-powerunix exit ;; m88k:CX/UX:7*:*) echo m88k-harris-cxux7 exit ;; m88k:*:4*:R4*) echo m88k-motorola-sysv4 exit ;; m88k:*:3*:R3*) echo m88k-motorola-sysv3 exit ;; AViiON:dgux:*:*) # DG/UX returns AViiON for all architectures UNAME_PROCESSOR=`/usr/bin/uname -p` if [ $UNAME_PROCESSOR = mc88100 ] || [ $UNAME_PROCESSOR = mc88110 ] then if [ ${TARGET_BINARY_INTERFACE}x = m88kdguxelfx ] || \ [ ${TARGET_BINARY_INTERFACE}x = x ] then echo m88k-dg-dgux${UNAME_RELEASE} else echo m88k-dg-dguxbcs${UNAME_RELEASE} fi else echo i586-dg-dgux${UNAME_RELEASE} fi exit ;; M88*:DolphinOS:*:*) # DolphinOS (SVR3) echo m88k-dolphin-sysv3 exit ;; M88*:*:R3*:*) # Delta 88k system running SVR3 echo m88k-motorola-sysv3 exit ;; XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3) echo m88k-tektronix-sysv3 exit ;; Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD) echo m68k-tektronix-bsd exit ;; *:IRIX*:*:*) echo mips-sgi-irix`echo ${UNAME_RELEASE}|sed -e 's/-/_/g'` exit ;; ????????:AIX?:[12].1:2) # AIX 2.2.1 or AIX 2.1.1 is RT/PC AIX. echo romp-ibm-aix # uname -m gives an 8 hex-code CPU id exit ;; # Note that: echo "'`uname -s`'" gives 'AIX ' i*86:AIX:*:*) echo i386-ibm-aix exit ;; ia64:AIX:*:*) if [ -x /usr/bin/oslevel ] ; then IBM_REV=`/usr/bin/oslevel` else IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE} fi echo ${UNAME_MACHINE}-ibm-aix${IBM_REV} exit ;; *:AIX:2:3) if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #include main() { if (!__power_pc()) exit(1); puts("powerpc-ibm-aix3.2.5"); exit(0); } EOF if $CC_FOR_BUILD -o $dummy $dummy.c && SYSTEM_NAME=`$dummy` then echo "$SYSTEM_NAME" else echo rs6000-ibm-aix3.2.5 fi elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then echo rs6000-ibm-aix3.2.4 else echo rs6000-ibm-aix3.2 fi exit ;; *:AIX:*:[4567]) IBM_CPU_ID=`/usr/sbin/lsdev -C -c processor -S available | sed 1q | awk '{ print $1 }'` if /usr/sbin/lsattr -El ${IBM_CPU_ID} | grep ' POWER' >/dev/null 2>&1; then IBM_ARCH=rs6000 else IBM_ARCH=powerpc fi if [ -x /usr/bin/oslevel ] ; then IBM_REV=`/usr/bin/oslevel` else IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE} fi echo ${IBM_ARCH}-ibm-aix${IBM_REV} exit ;; *:AIX:*:*) echo rs6000-ibm-aix exit ;; ibmrt:4.4BSD:*|romp-ibm:BSD:*) echo romp-ibm-bsd4.4 exit ;; ibmrt:*BSD:*|romp-ibm:BSD:*) # covers RT/PC BSD and echo romp-ibm-bsd${UNAME_RELEASE} # 4.3 with uname added to exit ;; # report: romp-ibm BSD 4.3 *:BOSX:*:*) echo rs6000-bull-bosx exit ;; DPX/2?00:B.O.S.:*:*) echo m68k-bull-sysv3 exit ;; 9000/[34]??:4.3bsd:1.*:*) echo m68k-hp-bsd exit ;; hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*) echo m68k-hp-bsd4.4 exit ;; 9000/[34678]??:HP-UX:*:*) HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` case "${UNAME_MACHINE}" in 9000/31? ) HP_ARCH=m68000 ;; 9000/[34]?? ) HP_ARCH=m68k ;; 9000/[678][0-9][0-9]) if [ -x /usr/bin/getconf ]; then sc_cpu_version=`/usr/bin/getconf SC_CPU_VERSION 2>/dev/null` sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null` case "${sc_cpu_version}" in 523) HP_ARCH="hppa1.0" ;; # CPU_PA_RISC1_0 528) HP_ARCH="hppa1.1" ;; # CPU_PA_RISC1_1 532) # CPU_PA_RISC2_0 case "${sc_kernel_bits}" in 32) HP_ARCH="hppa2.0n" ;; 64) HP_ARCH="hppa2.0w" ;; '') HP_ARCH="hppa2.0" ;; # HP-UX 10.20 esac ;; esac fi if [ "${HP_ARCH}" = "" ]; then eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #define _HPUX_SOURCE #include #include int main () { #if defined(_SC_KERNEL_BITS) long bits = sysconf(_SC_KERNEL_BITS); #endif long cpu = sysconf (_SC_CPU_VERSION); switch (cpu) { case CPU_PA_RISC1_0: puts ("hppa1.0"); break; case CPU_PA_RISC1_1: puts ("hppa1.1"); break; case CPU_PA_RISC2_0: #if defined(_SC_KERNEL_BITS) switch (bits) { case 64: puts ("hppa2.0w"); break; case 32: puts ("hppa2.0n"); break; default: puts ("hppa2.0"); break; } break; #else /* !defined(_SC_KERNEL_BITS) */ puts ("hppa2.0"); break; #endif default: puts ("hppa1.0"); break; } exit (0); } EOF (CCOPTS= $CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null) && HP_ARCH=`$dummy` test -z "$HP_ARCH" && HP_ARCH=hppa fi ;; esac if [ ${HP_ARCH} = "hppa2.0w" ] then eval $set_cc_for_build # hppa2.0w-hp-hpux* has a 64-bit kernel and a compiler generating # 32-bit code. hppa64-hp-hpux* has the same kernel and a compiler # generating 64-bit code. GNU and HP use different nomenclature: # # $ CC_FOR_BUILD=cc ./config.guess # => hppa2.0w-hp-hpux11.23 # $ CC_FOR_BUILD="cc +DA2.0w" ./config.guess # => hppa64-hp-hpux11.23 if echo __LP64__ | (CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) | grep -q __LP64__ then HP_ARCH="hppa2.0w" else HP_ARCH="hppa64" fi fi echo ${HP_ARCH}-hp-hpux${HPUX_REV} exit ;; ia64:HP-UX:*:*) HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` echo ia64-hp-hpux${HPUX_REV} exit ;; 3050*:HI-UX:*:*) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #include int main () { long cpu = sysconf (_SC_CPU_VERSION); /* The order matters, because CPU_IS_HP_MC68K erroneously returns true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct results, however. */ if (CPU_IS_PA_RISC (cpu)) { switch (cpu) { case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break; case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break; case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break; default: puts ("hppa-hitachi-hiuxwe2"); break; } } else if (CPU_IS_HP_MC68K (cpu)) puts ("m68k-hitachi-hiuxwe2"); else puts ("unknown-hitachi-hiuxwe2"); exit (0); } EOF $CC_FOR_BUILD -o $dummy $dummy.c && SYSTEM_NAME=`$dummy` && { echo "$SYSTEM_NAME"; exit; } echo unknown-hitachi-hiuxwe2 exit ;; 9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:* ) echo hppa1.1-hp-bsd exit ;; 9000/8??:4.3bsd:*:*) echo hppa1.0-hp-bsd exit ;; *9??*:MPE/iX:*:* | *3000*:MPE/iX:*:*) echo hppa1.0-hp-mpeix exit ;; hp7??:OSF1:*:* | hp8?[79]:OSF1:*:* ) echo hppa1.1-hp-osf exit ;; hp8??:OSF1:*:*) echo hppa1.0-hp-osf exit ;; i*86:OSF1:*:*) if [ -x /usr/sbin/sysversion ] ; then echo ${UNAME_MACHINE}-unknown-osf1mk else echo ${UNAME_MACHINE}-unknown-osf1 fi exit ;; parisc*:Lites*:*:*) echo hppa1.1-hp-lites exit ;; C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*) echo c1-convex-bsd exit ;; C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*) if getsysinfo -f scalar_acc then echo c32-convex-bsd else echo c2-convex-bsd fi exit ;; C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*) echo c34-convex-bsd exit ;; C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*) echo c38-convex-bsd exit ;; C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*) echo c4-convex-bsd exit ;; CRAY*Y-MP:*:*:*) echo ymp-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*[A-Z]90:*:*:*) echo ${UNAME_MACHINE}-cray-unicos${UNAME_RELEASE} \ | sed -e 's/CRAY.*\([A-Z]90\)/\1/' \ -e y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/ \ -e 's/\.[^.]*$/.X/' exit ;; CRAY*TS:*:*:*) echo t90-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*T3E:*:*:*) echo alphaev5-cray-unicosmk${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*SV1:*:*:*) echo sv1-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; *:UNICOS/mp:*:*) echo craynv-cray-unicosmp${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; F30[01]:UNIX_System_V:*:* | F700:UNIX_System_V:*:*) FUJITSU_PROC=`uname -m | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'` FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'` FUJITSU_REL=`echo ${UNAME_RELEASE} | sed -e 's/ /_/'` echo "${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" exit ;; 5000:UNIX_System_V:4.*:*) FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'` FUJITSU_REL=`echo ${UNAME_RELEASE} | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/ /_/'` echo "sparc-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" exit ;; i*86:BSD/386:*:* | i*86:BSD/OS:*:* | *:Ascend\ Embedded/OS:*:*) echo ${UNAME_MACHINE}-pc-bsdi${UNAME_RELEASE} exit ;; sparc*:BSD/OS:*:*) echo sparc-unknown-bsdi${UNAME_RELEASE} exit ;; *:BSD/OS:*:*) echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE} exit ;; *:FreeBSD:*:*) UNAME_PROCESSOR=`/usr/bin/uname -p` case ${UNAME_PROCESSOR} in amd64) echo x86_64-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;; *) echo ${UNAME_PROCESSOR}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;; esac exit ;; i*:CYGWIN*:*) echo ${UNAME_MACHINE}-pc-cygwin exit ;; *:MINGW64*:*) echo ${UNAME_MACHINE}-pc-mingw64 exit ;; *:MINGW*:*) echo ${UNAME_MACHINE}-pc-mingw32 exit ;; i*:MSYS*:*) echo ${UNAME_MACHINE}-pc-msys exit ;; i*:windows32*:*) # uname -m includes "-pc" on this system. echo ${UNAME_MACHINE}-mingw32 exit ;; i*:PW*:*) echo ${UNAME_MACHINE}-pc-pw32 exit ;; *:Interix*:*) case ${UNAME_MACHINE} in x86) echo i586-pc-interix${UNAME_RELEASE} exit ;; authenticamd | genuineintel | EM64T) echo x86_64-unknown-interix${UNAME_RELEASE} exit ;; IA64) echo ia64-unknown-interix${UNAME_RELEASE} exit ;; esac ;; [345]86:Windows_95:* | [345]86:Windows_98:* | [345]86:Windows_NT:*) echo i${UNAME_MACHINE}-pc-mks exit ;; 8664:Windows_NT:*) echo x86_64-pc-mks exit ;; i*:Windows_NT*:* | Pentium*:Windows_NT*:*) # How do we know it's Interix rather than the generic POSIX subsystem? # It also conflicts with pre-2.0 versions of AT&T UWIN. Should we # UNAME_MACHINE based on the output of uname instead of i386? echo i586-pc-interix exit ;; i*:UWIN*:*) echo ${UNAME_MACHINE}-pc-uwin exit ;; amd64:CYGWIN*:*:* | x86_64:CYGWIN*:*:*) echo x86_64-unknown-cygwin exit ;; p*:CYGWIN*:*) echo powerpcle-unknown-cygwin exit ;; prep*:SunOS:5.*:*) echo powerpcle-unknown-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; *:GNU:*:*) # the GNU system echo `echo ${UNAME_MACHINE}|sed -e 's,[-/].*$,,'`-unknown-${LIBC}`echo ${UNAME_RELEASE}|sed -e 's,/.*$,,'` exit ;; *:GNU/*:*:*) # other systems with GNU libc and userland echo ${UNAME_MACHINE}-unknown-`echo ${UNAME_SYSTEM} | sed 's,^[^/]*/,,' | tr '[A-Z]' '[a-z]'``echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`-${LIBC} exit ;; i*86:Minix:*:*) echo ${UNAME_MACHINE}-pc-minix exit ;; aarch64:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; aarch64_be:Linux:*:*) UNAME_MACHINE=aarch64_be echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; alpha:Linux:*:*) case `sed -n '/^cpu model/s/^.*: \(.*\)/\1/p' < /proc/cpuinfo` in EV5) UNAME_MACHINE=alphaev5 ;; EV56) UNAME_MACHINE=alphaev56 ;; PCA56) UNAME_MACHINE=alphapca56 ;; PCA57) UNAME_MACHINE=alphapca56 ;; EV6) UNAME_MACHINE=alphaev6 ;; EV67) UNAME_MACHINE=alphaev67 ;; EV68*) UNAME_MACHINE=alphaev68 ;; esac objdump --private-headers /bin/sh | grep -q ld.so.1 if test "$?" = 0 ; then LIBC="gnulibc1" ; fi echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; arc:Linux:*:* | arceb:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; arm*:Linux:*:*) eval $set_cc_for_build if echo __ARM_EABI__ | $CC_FOR_BUILD -E - 2>/dev/null \ | grep -q __ARM_EABI__ then echo ${UNAME_MACHINE}-unknown-linux-${LIBC} else if echo __ARM_PCS_VFP | $CC_FOR_BUILD -E - 2>/dev/null \ | grep -q __ARM_PCS_VFP then echo ${UNAME_MACHINE}-unknown-linux-${LIBC}eabi else echo ${UNAME_MACHINE}-unknown-linux-${LIBC}eabihf fi fi exit ;; avr32*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; cris:Linux:*:*) echo ${UNAME_MACHINE}-axis-linux-${LIBC} exit ;; crisv32:Linux:*:*) echo ${UNAME_MACHINE}-axis-linux-${LIBC} exit ;; frv:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; hexagon:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; i*86:Linux:*:*) echo ${UNAME_MACHINE}-pc-linux-${LIBC} exit ;; ia64:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; m32r*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; m68*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; mips:Linux:*:* | mips64:Linux:*:*) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #undef CPU #undef ${UNAME_MACHINE} #undef ${UNAME_MACHINE}el #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL) CPU=${UNAME_MACHINE}el #else #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB) CPU=${UNAME_MACHINE} #else CPU= #endif #endif EOF eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep '^CPU'` test x"${CPU}" != x && { echo "${CPU}-unknown-linux-${LIBC}"; exit; } ;; or1k:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; or32:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; padre:Linux:*:*) echo sparc-unknown-linux-${LIBC} exit ;; parisc64:Linux:*:* | hppa64:Linux:*:*) echo hppa64-unknown-linux-${LIBC} exit ;; parisc:Linux:*:* | hppa:Linux:*:*) # Look for CPU level case `grep '^cpu[^a-z]*:' /proc/cpuinfo 2>/dev/null | cut -d' ' -f2` in PA7*) echo hppa1.1-unknown-linux-${LIBC} ;; PA8*) echo hppa2.0-unknown-linux-${LIBC} ;; *) echo hppa-unknown-linux-${LIBC} ;; esac exit ;; ppc64:Linux:*:*) echo powerpc64-unknown-linux-${LIBC} exit ;; ppc:Linux:*:*) echo powerpc-unknown-linux-${LIBC} exit ;; ppc64le:Linux:*:*) echo powerpc64le-unknown-linux-${LIBC} exit ;; ppcle:Linux:*:*) echo powerpcle-unknown-linux-${LIBC} exit ;; s390:Linux:*:* | s390x:Linux:*:*) echo ${UNAME_MACHINE}-ibm-linux-${LIBC} exit ;; sh64*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; sh*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; sparc:Linux:*:* | sparc64:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; tile*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; vax:Linux:*:*) echo ${UNAME_MACHINE}-dec-linux-${LIBC} exit ;; x86_64:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; xtensa*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; i*86:DYNIX/ptx:4*:*) # ptx 4.0 does uname -s correctly, with DYNIX/ptx in there. # earlier versions are messed up and put the nodename in both # sysname and nodename. echo i386-sequent-sysv4 exit ;; i*86:UNIX_SV:4.2MP:2.*) # Unixware is an offshoot of SVR4, but it has its own version # number series starting with 2... # I am not positive that other SVR4 systems won't match this, # I just have to hope. -- rms. # Use sysv4.2uw... so that sysv4* matches it. echo ${UNAME_MACHINE}-pc-sysv4.2uw${UNAME_VERSION} exit ;; i*86:OS/2:*:*) # If we were able to find `uname', then EMX Unix compatibility # is probably installed. echo ${UNAME_MACHINE}-pc-os2-emx exit ;; i*86:XTS-300:*:STOP) echo ${UNAME_MACHINE}-unknown-stop exit ;; i*86:atheos:*:*) echo ${UNAME_MACHINE}-unknown-atheos exit ;; i*86:syllable:*:*) echo ${UNAME_MACHINE}-pc-syllable exit ;; i*86:LynxOS:2.*:* | i*86:LynxOS:3.[01]*:* | i*86:LynxOS:4.[02]*:*) echo i386-unknown-lynxos${UNAME_RELEASE} exit ;; i*86:*DOS:*:*) echo ${UNAME_MACHINE}-pc-msdosdjgpp exit ;; i*86:*:4.*:* | i*86:SYSTEM_V:4.*:*) UNAME_REL=`echo ${UNAME_RELEASE} | sed 's/\/MP$//'` if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then echo ${UNAME_MACHINE}-univel-sysv${UNAME_REL} else echo ${UNAME_MACHINE}-pc-sysv${UNAME_REL} fi exit ;; i*86:*:5:[678]*) # UnixWare 7.x, OpenUNIX and OpenServer 6. case `/bin/uname -X | grep "^Machine"` in *486*) UNAME_MACHINE=i486 ;; *Pentium) UNAME_MACHINE=i586 ;; *Pent*|*Celeron) UNAME_MACHINE=i686 ;; esac echo ${UNAME_MACHINE}-unknown-sysv${UNAME_RELEASE}${UNAME_SYSTEM}${UNAME_VERSION} exit ;; i*86:*:3.2:*) if test -f /usr/options/cb.name; then UNAME_REL=`sed -n 's/.*Version //p' /dev/null >/dev/null ; then UNAME_REL=`(/bin/uname -X|grep Release|sed -e 's/.*= //')` (/bin/uname -X|grep i80486 >/dev/null) && UNAME_MACHINE=i486 (/bin/uname -X|grep '^Machine.*Pentium' >/dev/null) \ && UNAME_MACHINE=i586 (/bin/uname -X|grep '^Machine.*Pent *II' >/dev/null) \ && UNAME_MACHINE=i686 (/bin/uname -X|grep '^Machine.*Pentium Pro' >/dev/null) \ && UNAME_MACHINE=i686 echo ${UNAME_MACHINE}-pc-sco$UNAME_REL else echo ${UNAME_MACHINE}-pc-sysv32 fi exit ;; pc:*:*:*) # Left here for compatibility: # uname -m prints for DJGPP always 'pc', but it prints nothing about # the processor, so we play safe by assuming i586. # Note: whatever this is, it MUST be the same as what config.sub # prints for the "djgpp" host, or else GDB configury will decide that # this is a cross-build. echo i586-pc-msdosdjgpp exit ;; Intel:Mach:3*:*) echo i386-pc-mach3 exit ;; paragon:*:*:*) echo i860-intel-osf1 exit ;; i860:*:4.*:*) # i860-SVR4 if grep Stardent /usr/include/sys/uadmin.h >/dev/null 2>&1 ; then echo i860-stardent-sysv${UNAME_RELEASE} # Stardent Vistra i860-SVR4 else # Add other i860-SVR4 vendors below as they are discovered. echo i860-unknown-sysv${UNAME_RELEASE} # Unknown i860-SVR4 fi exit ;; mini*:CTIX:SYS*5:*) # "miniframe" echo m68010-convergent-sysv exit ;; mc68k:UNIX:SYSTEM5:3.51m) echo m68k-convergent-sysv exit ;; M680?0:D-NIX:5.3:*) echo m68k-diab-dnix exit ;; M68*:*:R3V[5678]*:*) test -r /sysV68 && { echo 'm68k-motorola-sysv'; exit; } ;; 3[345]??:*:4.0:3.0 | 3[34]??A:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0 | 3[34]??/*:*:4.0:3.0 | 4400:*:4.0:3.0 | 4850:*:4.0:3.0 | SKA40:*:4.0:3.0 | SDS2:*:4.0:3.0 | SHG2:*:4.0:3.0 | S7501*:*:4.0:3.0) OS_REL='' test -r /etc/.relid \ && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid` /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && { echo i486-ncr-sysv4.3${OS_REL}; exit; } /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \ && { echo i586-ncr-sysv4.3${OS_REL}; exit; } ;; 3[34]??:*:4.0:* | 3[34]??,*:*:4.0:*) /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && { echo i486-ncr-sysv4; exit; } ;; NCR*:*:4.2:* | MPRAS*:*:4.2:*) OS_REL='.3' test -r /etc/.relid \ && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid` /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && { echo i486-ncr-sysv4.3${OS_REL}; exit; } /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \ && { echo i586-ncr-sysv4.3${OS_REL}; exit; } /bin/uname -p 2>/dev/null | /bin/grep pteron >/dev/null \ && { echo i586-ncr-sysv4.3${OS_REL}; exit; } ;; m68*:LynxOS:2.*:* | m68*:LynxOS:3.0*:*) echo m68k-unknown-lynxos${UNAME_RELEASE} exit ;; mc68030:UNIX_System_V:4.*:*) echo m68k-atari-sysv4 exit ;; TSUNAMI:LynxOS:2.*:*) echo sparc-unknown-lynxos${UNAME_RELEASE} exit ;; rs6000:LynxOS:2.*:*) echo rs6000-unknown-lynxos${UNAME_RELEASE} exit ;; PowerPC:LynxOS:2.*:* | PowerPC:LynxOS:3.[01]*:* | PowerPC:LynxOS:4.[02]*:*) echo powerpc-unknown-lynxos${UNAME_RELEASE} exit ;; SM[BE]S:UNIX_SV:*:*) echo mips-dde-sysv${UNAME_RELEASE} exit ;; RM*:ReliantUNIX-*:*:*) echo mips-sni-sysv4 exit ;; RM*:SINIX-*:*:*) echo mips-sni-sysv4 exit ;; *:SINIX-*:*:*) if uname -p 2>/dev/null >/dev/null ; then UNAME_MACHINE=`(uname -p) 2>/dev/null` echo ${UNAME_MACHINE}-sni-sysv4 else echo ns32k-sni-sysv fi exit ;; PENTIUM:*:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort # says echo i586-unisys-sysv4 exit ;; *:UNIX_System_V:4*:FTX*) # From Gerald Hewes . # How about differentiating between stratus architectures? -djm echo hppa1.1-stratus-sysv4 exit ;; *:*:*:FTX*) # From seanf@swdc.stratus.com. echo i860-stratus-sysv4 exit ;; i*86:VOS:*:*) # From Paul.Green@stratus.com. echo ${UNAME_MACHINE}-stratus-vos exit ;; *:VOS:*:*) # From Paul.Green@stratus.com. echo hppa1.1-stratus-vos exit ;; mc68*:A/UX:*:*) echo m68k-apple-aux${UNAME_RELEASE} exit ;; news*:NEWS-OS:6*:*) echo mips-sony-newsos6 exit ;; R[34]000:*System_V*:*:* | R4000:UNIX_SYSV:*:* | R*000:UNIX_SV:*:*) if [ -d /usr/nec ]; then echo mips-nec-sysv${UNAME_RELEASE} else echo mips-unknown-sysv${UNAME_RELEASE} fi exit ;; BeBox:BeOS:*:*) # BeOS running on hardware made by Be, PPC only. echo powerpc-be-beos exit ;; BeMac:BeOS:*:*) # BeOS running on Mac or Mac clone, PPC only. echo powerpc-apple-beos exit ;; BePC:BeOS:*:*) # BeOS running on Intel PC compatible. echo i586-pc-beos exit ;; BePC:Haiku:*:*) # Haiku running on Intel PC compatible. echo i586-pc-haiku exit ;; x86_64:Haiku:*:*) echo x86_64-unknown-haiku exit ;; SX-4:SUPER-UX:*:*) echo sx4-nec-superux${UNAME_RELEASE} exit ;; SX-5:SUPER-UX:*:*) echo sx5-nec-superux${UNAME_RELEASE} exit ;; SX-6:SUPER-UX:*:*) echo sx6-nec-superux${UNAME_RELEASE} exit ;; SX-7:SUPER-UX:*:*) echo sx7-nec-superux${UNAME_RELEASE} exit ;; SX-8:SUPER-UX:*:*) echo sx8-nec-superux${UNAME_RELEASE} exit ;; SX-8R:SUPER-UX:*:*) echo sx8r-nec-superux${UNAME_RELEASE} exit ;; Power*:Rhapsody:*:*) echo powerpc-apple-rhapsody${UNAME_RELEASE} exit ;; *:Rhapsody:*:*) echo ${UNAME_MACHINE}-apple-rhapsody${UNAME_RELEASE} exit ;; *:Darwin:*:*) UNAME_PROCESSOR=`uname -p` || UNAME_PROCESSOR=unknown eval $set_cc_for_build if test "$UNAME_PROCESSOR" = unknown ; then UNAME_PROCESSOR=powerpc fi if [ "$CC_FOR_BUILD" != 'no_compiler_found' ]; then if (echo '#ifdef __LP64__'; echo IS_64BIT_ARCH; echo '#endif') | \ (CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) | \ grep IS_64BIT_ARCH >/dev/null then case $UNAME_PROCESSOR in i386) UNAME_PROCESSOR=x86_64 ;; powerpc) UNAME_PROCESSOR=powerpc64 ;; esac fi fi echo ${UNAME_PROCESSOR}-apple-darwin${UNAME_RELEASE} exit ;; *:procnto*:*:* | *:QNX:[0123456789]*:*) UNAME_PROCESSOR=`uname -p` if test "$UNAME_PROCESSOR" = "x86"; then UNAME_PROCESSOR=i386 UNAME_MACHINE=pc fi echo ${UNAME_PROCESSOR}-${UNAME_MACHINE}-nto-qnx${UNAME_RELEASE} exit ;; *:QNX:*:4*) echo i386-pc-qnx exit ;; NEO-?:NONSTOP_KERNEL:*:*) echo neo-tandem-nsk${UNAME_RELEASE} exit ;; NSE-*:NONSTOP_KERNEL:*:*) echo nse-tandem-nsk${UNAME_RELEASE} exit ;; NSR-?:NONSTOP_KERNEL:*:*) echo nsr-tandem-nsk${UNAME_RELEASE} exit ;; *:NonStop-UX:*:*) echo mips-compaq-nonstopux exit ;; BS2000:POSIX*:*:*) echo bs2000-siemens-sysv exit ;; DS/*:UNIX_System_V:*:*) echo ${UNAME_MACHINE}-${UNAME_SYSTEM}-${UNAME_RELEASE} exit ;; *:Plan9:*:*) # "uname -m" is not consistent, so use $cputype instead. 386 # is converted to i386 for consistency with other x86 # operating systems. if test "$cputype" = "386"; then UNAME_MACHINE=i386 else UNAME_MACHINE="$cputype" fi echo ${UNAME_MACHINE}-unknown-plan9 exit ;; *:TOPS-10:*:*) echo pdp10-unknown-tops10 exit ;; *:TENEX:*:*) echo pdp10-unknown-tenex exit ;; KS10:TOPS-20:*:* | KL10:TOPS-20:*:* | TYPE4:TOPS-20:*:*) echo pdp10-dec-tops20 exit ;; XKL-1:TOPS-20:*:* | TYPE5:TOPS-20:*:*) echo pdp10-xkl-tops20 exit ;; *:TOPS-20:*:*) echo pdp10-unknown-tops20 exit ;; *:ITS:*:*) echo pdp10-unknown-its exit ;; SEI:*:*:SEIUX) echo mips-sei-seiux${UNAME_RELEASE} exit ;; *:DragonFly:*:*) echo ${UNAME_MACHINE}-unknown-dragonfly`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` exit ;; *:*VMS:*:*) UNAME_MACHINE=`(uname -p) 2>/dev/null` case "${UNAME_MACHINE}" in A*) echo alpha-dec-vms ; exit ;; I*) echo ia64-dec-vms ; exit ;; V*) echo vax-dec-vms ; exit ;; esac ;; *:XENIX:*:SysV) echo i386-pc-xenix exit ;; i*86:skyos:*:*) echo ${UNAME_MACHINE}-pc-skyos`echo ${UNAME_RELEASE}` | sed -e 's/ .*$//' exit ;; i*86:rdos:*:*) echo ${UNAME_MACHINE}-pc-rdos exit ;; i*86:AROS:*:*) echo ${UNAME_MACHINE}-pc-aros exit ;; x86_64:VMkernel:*:*) echo ${UNAME_MACHINE}-unknown-esx exit ;; esac eval $set_cc_for_build cat >$dummy.c < # include #endif main () { #if defined (sony) #if defined (MIPSEB) /* BFD wants "bsd" instead of "newsos". Perhaps BFD should be changed, I don't know.... */ printf ("mips-sony-bsd\n"); exit (0); #else #include printf ("m68k-sony-newsos%s\n", #ifdef NEWSOS4 "4" #else "" #endif ); exit (0); #endif #endif #if defined (__arm) && defined (__acorn) && defined (__unix) printf ("arm-acorn-riscix\n"); exit (0); #endif #if defined (hp300) && !defined (hpux) printf ("m68k-hp-bsd\n"); exit (0); #endif #if defined (NeXT) #if !defined (__ARCHITECTURE__) #define __ARCHITECTURE__ "m68k" #endif int version; version=`(hostinfo | sed -n 's/.*NeXT Mach \([0-9]*\).*/\1/p') 2>/dev/null`; if (version < 4) printf ("%s-next-nextstep%d\n", __ARCHITECTURE__, version); else printf ("%s-next-openstep%d\n", __ARCHITECTURE__, version); exit (0); #endif #if defined (MULTIMAX) || defined (n16) #if defined (UMAXV) printf ("ns32k-encore-sysv\n"); exit (0); #else #if defined (CMU) printf ("ns32k-encore-mach\n"); exit (0); #else printf ("ns32k-encore-bsd\n"); exit (0); #endif #endif #endif #if defined (__386BSD__) printf ("i386-pc-bsd\n"); exit (0); #endif #if defined (sequent) #if defined (i386) printf ("i386-sequent-dynix\n"); exit (0); #endif #if defined (ns32000) printf ("ns32k-sequent-dynix\n"); exit (0); #endif #endif #if defined (_SEQUENT_) struct utsname un; uname(&un); if (strncmp(un.version, "V2", 2) == 0) { printf ("i386-sequent-ptx2\n"); exit (0); } if (strncmp(un.version, "V1", 2) == 0) { /* XXX is V1 correct? */ printf ("i386-sequent-ptx1\n"); exit (0); } printf ("i386-sequent-ptx\n"); exit (0); #endif #if defined (vax) # if !defined (ultrix) # include # if defined (BSD) # if BSD == 43 printf ("vax-dec-bsd4.3\n"); exit (0); # else # if BSD == 199006 printf ("vax-dec-bsd4.3reno\n"); exit (0); # else printf ("vax-dec-bsd\n"); exit (0); # endif # endif # else printf ("vax-dec-bsd\n"); exit (0); # endif # else printf ("vax-dec-ultrix\n"); exit (0); # endif #endif #if defined (alliant) && defined (i860) printf ("i860-alliant-bsd\n"); exit (0); #endif exit (1); } EOF $CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null && SYSTEM_NAME=`$dummy` && { echo "$SYSTEM_NAME"; exit; } # Apollos put the system type in the environment. test -d /usr/apollo && { echo ${ISP}-apollo-${SYSTYPE}; exit; } # Convex versions that predate uname can use getsysinfo(1) if [ -x /usr/convex/getsysinfo ] then case `getsysinfo -f cpu_type` in c1*) echo c1-convex-bsd exit ;; c2*) if getsysinfo -f scalar_acc then echo c32-convex-bsd else echo c2-convex-bsd fi exit ;; c34*) echo c34-convex-bsd exit ;; c38*) echo c38-convex-bsd exit ;; c4*) echo c4-convex-bsd exit ;; esac fi cat >&2 < in order to provide the needed information to handle your system. config.guess timestamp = $timestamp uname -m = `(uname -m) 2>/dev/null || echo unknown` uname -r = `(uname -r) 2>/dev/null || echo unknown` uname -s = `(uname -s) 2>/dev/null || echo unknown` uname -v = `(uname -v) 2>/dev/null || echo unknown` /usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null` /bin/uname -X = `(/bin/uname -X) 2>/dev/null` hostinfo = `(hostinfo) 2>/dev/null` /bin/universe = `(/bin/universe) 2>/dev/null` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null` /bin/arch = `(/bin/arch) 2>/dev/null` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null` UNAME_MACHINE = ${UNAME_MACHINE} UNAME_RELEASE = ${UNAME_RELEASE} UNAME_SYSTEM = ${UNAME_SYSTEM} UNAME_VERSION = ${UNAME_VERSION} EOF exit 1 # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "timestamp='" # time-stamp-format: "%:y-%02m-%02d" # time-stamp-end: "'" # End: gpsim-0.27.0/makefile.mingw0000664000076400007640000000324212202777764012511 00000000000000## Makefile for building the gpsim with gcc for mingw. The build ## uses tools running on cygwin, however. ## Use: make -f makefile.mingw PARTS=cli src src/dspic gui gpsim modules CLEAN_PARTS=$(PARTS) .PHONY: all doc setup clean all: for D in $(PARTS); do $(MAKE) -C $$D -f makefile.mingw all; done doc: $(MAKE) -C doc -f makefile.mingw all setup: all doc extras $(MAKE) -C plat/win32 -f makefile.mingw all clean: clean-extras rm -f config.h for D in $(CLEAN_PARTS); do $(MAKE) -C $$D -f makefile.mingw clean; done ################ # The mingw makefiles don't handle dependencies well. However this little # hack can work around this: # # $ make -f makefile.mingw depend # $ make -f mf MF=mf depend: for D in $(PARTS); do $(MAKE) -C $$D -f makefile.mingw depend; done @echo "# Automatically generated makefile" > ${MF} @echo "include makefile.mingw" >> ${MF} ################ The extras modules .PHONY: extras extras-usart-con extras-graphic-lcd extras-lcd EXTRAS=extras/graphic_lcd/src extras/lcd extras/ds1307 include/gpsim: mkdir -p include; ln -s ../src include/gpsim extras: include/gpsim extras-graphic-lcd extras-lcd extras-ds1307 extras-graphic-lcd: export GPSIM_DEF_PATH=../../../plat/win32; \ export GPSIM_LIB_PATH=../../../src; \ $(MAKE) -C extras/graphic_lcd/src -f makefile.mingw extras-lcd: export GPSIM_DEF_PATH=../../plat/win32; \ export GPSIM_LIB_PATH=../../src; \ $(MAKE) -C extras/lcd -f makefile.mingw extras-ds1307: export GPSIM_DEF_PATH=../../plat/win32; \ export GPSIM_LIB_PATH=../../src; \ $(MAKE) -C extras/ds1307 -f makefile.mingw clean-extras: for D in $(EXTRAS); do $(MAKE) -C $$D -f makefile.mingw clean; done; \ rm -rf include gpsim-0.27.0/extras/0000775000076400007640000000000012210742357011243 500000000000000gpsim-0.27.0/extras/Makefile.in0000664000076400007640000004464412210742104013232 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = extras DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive cscopelist-recursive \ ctags-recursive dvi-recursive html-recursive info-recursive \ install-data-recursive install-dvi-recursive \ install-exec-recursive install-html-recursive \ install-info-recursive install-pdf-recursive \ install-ps-recursive install-recursive installcheck-recursive \ installdirs-recursive pdf-recursive ps-recursive \ tags-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive am__recursive_targets = \ $(RECURSIVE_TARGETS) \ $(RECURSIVE_CLEAN_TARGETS) \ $(am__extra_recursive_targets) AM_RECURSIVE_TARGETS = $(am__recursive_targets:-recursive=) TAGS CTAGS \ distdir am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) # Read a list of newline-separated strings from the standard input, # and print each of them once, without duplicates. Input order is # *not* preserved. am__uniquify_input = $(AWK) '\ BEGIN { nonempty = 0; } \ { items[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in items) print i; }; } \ ' # Make sure the list of sources is unique. This is necessary because, # e.g., the same source file might be shared among _SOURCES variables # for different programs/libraries. am__define_uniq_tagged_files = \ list='$(am__tagged_files)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | $(am__uniquify_input)` ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ AM_CPPFLAGS = @X_CFLAGS@ ACLOCAL_AMFLAGS = -I m4 SUBDIRS = graphic_lcd lcd ds1307 ds1820 EXTRA_DIST = rs232-gen/Makefile rs232-gen/example/Makefile \ rs232-gen/example/example.asm rs232-gen/example/example.stc \ rs232-gen/example/README rs232-gen/README rs232-gen/rs232-gen.c all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu extras/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu extras/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run 'make' without going through this Makefile. # To change the values of 'make' variables: instead of editing Makefiles, # (1) if the variable is set in 'config.status', edit 'config.status' # (which will cause the Makefiles to be regenerated when you run 'make'); # (2) otherwise, pass the desired values on the 'make' command line. $(am__recursive_targets): @fail=; \ if $(am__make_keepgoing); then \ failcom='fail=yes'; \ else \ failcom='exit 1'; \ fi; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" ID: $(am__tagged_files) $(am__define_uniq_tagged_files); mkid -fID $$unique tags: tags-recursive TAGS: tags tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ $(am__define_uniq_tagged_files); \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: ctags-recursive CTAGS: ctags ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) $(am__define_uniq_tagged_files); \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" cscopelist: cscopelist-recursive cscopelist-am: $(am__tagged_files) list='$(am__tagged_files)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(am__recursive_targets) install-am install-strip .PHONY: $(am__recursive_targets) CTAGS GTAGS TAGS all all-am check \ check-am clean clean-generic clean-libtool cscopelist-am ctags \ ctags-am distclean distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ installdirs-am maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \ ps ps-am tags tags-am uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/extras/Makefile.am0000664000076400007640000000052512177043162013221 00000000000000## Process this file with automake to produce Makefile.in AM_CPPFLAGS = @X_CFLAGS@ ACLOCAL_AMFLAGS = -I m4 SUBDIRS = graphic_lcd lcd ds1307 ds1820 EXTRA_DIST = rs232-gen/Makefile rs232-gen/example/Makefile \ rs232-gen/example/example.asm rs232-gen/example/example.stc \ rs232-gen/example/README rs232-gen/README rs232-gen/rs232-gen.c gpsim-0.27.0/extras/lcd/0000775000076400007640000000000012210742356012004 500000000000000gpsim-0.27.0/extras/lcd/caps.pl0000755000076400007640000000645710416272313013221 00000000000000#!perl # caps.pl - cheesy ass perl script :) [I'm serious]... # # When writing lcd.c, I was faced with the arduous task # of creating the font for the display. So rather than use # an error prone method of typing in the bit maps for # the display, I decided to write this really cheesy # perl script instead. Peer Ou?????land's LCD web page # has a .gif file with all of the characters of the LCD # display. So I downloaded that and converted it to an # .xpm (using gimp). The purpose of this script is to # confer that xpm into a file that can be included by lcd.c # # ps. This is my first perl program more than three lines # long - you'll do yourself injustice trying to learn # anything from it. open(LCDXPM, "lcd.xpm") || die("unable to open lcd.xpm\n"); print("Opened lcd.xpm\n"); $first = 0; $chars = 0; $line = ; while ($first eq 0) { chop ($line); $_ = $line; $dots = tr/././; $line = $_; if ( $dots > 196) { $first = 1; $start_col = index($line, "......"); $end_col = rindex($line, "."); print("First, start column $start_col\n"); $line_no = 0; } $line = ; } for($row = 0; $row<16; $row++) { $line = ; for($line_no = 1; $line_no < 8; $line_no++) { $line = ; $col = 0; for($i = $start_col; $i < $end_col; $i+=15) { $rc = ""; for($j=3; $j<13; $j+=2) { $rc .= substr($line, $i+$j, 1); } print("$rc"); $el[$col*16 + $row][$line_no] = $rc; $col++; if($col eq 1) {$col++;} if($col eq 8) {$col = $col + 2;} } $line = ; print("\n"); } $line = ; $line = ; $line = ; $line = ; $line = ; $line = ; $line = ; } # at this point, the .xpm file has been parsed and the # array $el[][] contains the font # # As a test, write this string using the font: $s= "LCD display"; for ($j=1; $j<8; $j++) { for ($i=0; $ilcdfont.h")) { die ("can't open lcdfont.h\n"); } print LCDFONTFILE ("#define FONT_LEN 256\n") ; print LCDFONTFILE ("_5X7 test[FONT_LEN] = {\n"); for($i=0; $i<256; $i++) { #if( (i>=0x20) && (i<0x80)) printf LCDFONTFILE (" { /* %x */\n",$i); for($j=1; $j<8; $j++) { print LCDFONTFILE (" \"$el[$i][$j]\",\n"); } print LCDFONTFILE (" },\n"); } print LCDFONTFILE (" };\n"); # Just for kicks, create an include file for # a pic: unless (open (LCDFONTINCFILE, ">lcdfont.inc")) { die ("can't open lcdfont.inc\n"); } print LCDFONTINCFILE ("\n;;\n;; LCD Font file for 7x5 characters\n"); print LCDFONTINCFILE (";; Automatically created from a perl script\n") ; print LCDFONTINCFILE (";; T. Scott Dattalo http://www.dattalo.com/gnupic/lcd.html\n") ; print LCDFONTINCFILE (";;\n\n"); for($i=0; $i<256; $i++) { print LCDFONTINCFILE ("\n\tdt "); for($k = 0; $k <= 4; $k++) { $c = 0; for($j=1; $j<8; $j++) { $c = $c * 2; if(substr($el[$i][$j], $k, 1) eq ".") {$c = $c+1;} $t = substr($el[$i][$j], $k, 1); #print "$t $c"; } printf LCDFONTINCFILE ("0x%02x",$c); if($k eq 4) { print LCDFONTINCFILE (" ; $i"); } else { print LCDFONTINCFILE (", "); } } } print LCDFONTINCDFILE ("\n"); gpsim-0.27.0/extras/lcd/lcd.cc0000644000076400007640000003127511374155034013004 00000000000000/* Copyright (C) 2000 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* lcd.cc This is a fairly complete/complicated gpsim module that simulates an LCD display. This version is currently hardcoded for the Hitachi style 2 row by 20 column display. The font is also hardcoded to 5 by 7 pixels. Hardware simulation: The Hitachi displays commonly have a 14pin interface: 8 data lines 3 control lines (E,RS,R/W) pwr gnd contrast This version only supports the 8 data and 3 control lines. Software simulation: This software uses an event driven behavior model to simulate the LCD display. This means that when one of the I/O lines toggle the module will be notified and will respond to the event. A state machine is used to control the behavior. */ /* IN_MODULE should be defined for modules */ #define IN_MODULE #include #include #include #include #include "config.h" #ifdef HAVE_GUI #include #include "hd44780.h" #include "lcd.h" #include Trace *gTrace=0; // Points to gpsim's global trace object. //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("%s:%d ",__FILE__,__LINE__); printf arg; } #else #define Dprintf(arg) {} #endif //------------------------------------------------------------------------ // I/O pins for the LCD //------------------------------------------------------------------------ // The LCD_InputPin is the base class for the E, RW and DC // pins. This class is derived from the IO_bi_directional class, // although the pins are never driven as outputs. The setDrivenState // method is overridden to capture when this pin is driven. class LCD_InputPin : public IO_bi_directional { public: LCD_InputPin (LcdDisplay *, const char *pinName, ePins pin); // Capture when a node drives this pin. virtual void setDrivenState(bool new_dstate); char CurrentState() { return m_cDrivenState; } private: // The IO_bi_directional constructor will initialize the direction // to be an input. We'll override the update_direction method so that // this will never change. virtual void update_direction(unsigned int,bool refresh) { // Disallow pin direction changes. } LcdDisplay *m_pLCD; ePins m_pin; char m_cDrivenState; }; //------------------------------------------------------------------------ // class LCDSignalControl : public SignalControl { public: LCDSignalControl(LcdDisplay *pLCD) : m_pLCD(pLCD) { assert(m_pLCD); } virtual void release() { } virtual char getState() { // returning a 1 indicates the data bus is an input (the LCD module // is being written to). char state = m_pLCD->dataBusDirection() ? '1' : '0'; //Dprintf(("LCDSignalControl returning:%c\n",state)); return state; } private: LcdDisplay *m_pLCD; }; //------------------------------------------------------------------------ // LCD_InputPin::LCD_InputPin (LcdDisplay *pLCD, const char *pinName, ePins pin) : IO_bi_directional(pinName), m_pLCD(pLCD), m_pin(pin) { } void LCD_InputPin::setDrivenState(bool new_dstate) { IO_bi_directional::setDrivenState(new_dstate); char cState = getBitChar(); Dprintf(("LCD_InputPin setDrivenState:%d, cState:%c\n",new_dstate,cState)); if (m_cDrivenState != cState) { m_cDrivenState = cState; m_pLCD->UpdatePinState(m_pin, cState); } } //------------------------------------------------------------------------ // Tracing // LcdWriteTO::LcdWriteTO(LcdDisplay *_lcd) : LcdTraceObject(_lcd) { } void LcdWriteTO::print(FILE *fp) { fprintf(fp, " Wrote: LCD"); } LcdReadTO::LcdReadTO(LcdDisplay *_lcd) : LcdTraceObject(_lcd) { } void LcdReadTO::print(FILE *fp) { fprintf(fp, " Read: LCD"); } //---------------------------------------- LcdWriteTT::LcdWriteTT(LcdDisplay *_lcd, unsigned int s) : LcdTraceType(_lcd,s) { } TraceObject *LcdWriteTT::decode(unsigned int tbi) { LcdWriteTO *lto = new LcdWriteTO(lcd); gTrace->addToCurrentFrame(lto); return lto; } int LcdWriteTT::dump_raw(unsigned tbi, char *buf, int bufsize) { int n = TraceType::dump_raw(gTrace,tbi,buf,bufsize); buf += n; bufsize -= n; unsigned int tv = gTrace->get(tbi); int m = snprintf(buf, bufsize," LCD Write 0x%08x", tv); if(m>0) n += m; return n; } //---------------------------------------- LcdReadTT::LcdReadTT(LcdDisplay *_lcd, unsigned int s) : LcdTraceType(_lcd,s) { } TraceObject *LcdReadTT::decode(unsigned int tbi) { LcdReadTO *lto = new LcdReadTO(lcd); gTrace->addToCurrentFrame(lto); return lto; } int LcdReadTT::dump_raw(unsigned tbi, char *buf, int bufsize) { int n = TraceType::dump_raw(gTrace, tbi,buf,bufsize); buf += n; bufsize -= n; unsigned int tv = gTrace->get(tbi); int m = snprintf(buf, bufsize," LCD Read 0x%08x", tv); if(m>0) n += m; return n; } //------------------------------------------------------------------------ // // LCD interface to the simulator // LCD_Interface::LCD_Interface(LcdDisplay *_lcd) : Interface ( (gpointer *) _lcd) { lcd = _lcd; } //-------------------------------------------------- // SimulationHasStopped (gpointer) // // gpsim will call this function when the simulation // has halt (e.g. a break point was hit.) void LCD_Interface::SimulationHasStopped (gpointer) { if(lcd) ((LcdDisplay *)lcd)->update(); } void LCD_Interface::Update (gpointer) { if(lcd) ((LcdDisplay *)lcd)->update(); } //--------------------------------------------------------------- void LcdDisplay::update(void) { update(darea, w_width,w_height); } #if 0 // defined but not used static gint cursor_event (GtkWidget *widget, GdkEvent *event, gpointer *user_data) { if ((event->type == GDK_BUTTON_PRESS) && ((event->button.button == 1) || (event->button.button == 3))) { return TRUE; } return FALSE; } #endif //-------------------------------------------------------------- // create_iopin_map // // This is where the information for the Module's package is defined. // Specifically, the I/O pins of the module are created. void LcdDisplay::create_iopin_map(void) { // Define the physical package. // The Package class, which is a parent of all of the modules, // is responsible for allocating memory for the I/O pins. // create_pkg(14); // Define the I/O pins and assign them to the package. // There are two things happening here. First, there is // a new I/O pin that is being created. For the binary // indicator, both pins are inputs. The second thing is // that the pins are "assigned" to the package. If we // need to reference these newly created I/O pins (like // below) then we can call the member function 'get_pin'. m_E = new LCD_InputPin(this, (name() + ".E").c_str(),eE); m_RW = new LCD_InputPin(this, (name() + ".RW").c_str(),eRW); m_DC = new LCD_InputPin(this, (name() + ".DC").c_str(),eDC); // Control assign_pin(4, m_DC); assign_pin(5, m_RW); assign_pin(6, m_E); assign_pin( 7, m_dataBus->addPin(new IO_bi_directional((name() + ".d0").c_str()),0)); assign_pin( 8, m_dataBus->addPin(new IO_bi_directional((name() + ".d1").c_str()),1)); assign_pin( 9, m_dataBus->addPin(new IO_bi_directional((name() + ".d2").c_str()),2)); assign_pin(10, m_dataBus->addPin(new IO_bi_directional((name() + ".d3").c_str()),3)); assign_pin(11, m_dataBus->addPin(new IO_bi_directional((name() + ".d4").c_str()),4)); assign_pin(12, m_dataBus->addPin(new IO_bi_directional((name() + ".d5").c_str()),5)); assign_pin(13, m_dataBus->addPin(new IO_bi_directional((name() + ".d6").c_str()),6)); assign_pin(14, m_dataBus->addPin(new IO_bi_directional((name() + ".d7").c_str()),7)); // Provide a SignalControl object that the dataBus port can query // to determine which direction to drive the data bus. // (See for more documentation on port behavior. // But in summary, when an I/O port updates its I/O pins, it will // query the pin drive direction via the SignalControl object. ) SignalControl *pPortDirectionControl = new LCDSignalControl(this); for (int i=0; i<8; i++) (*m_dataBus)[i].setControl(pPortDirectionControl); } //-------------------------------------------------------------- TraceType *LcdDisplay::getWriteTT() { if(!writeTT) { writeTT = new LcdWriteTT(this,1); gTrace->allocateTraceType(writeTT); } return writeTT; } TraceType *LcdDisplay::getReadTT() { if(!readTT) { readTT = new LcdReadTT(this,1); gTrace->allocateTraceType(readTT); } return readTT; } //-------------------------------------------------------------- // construct Module * LcdDisplay::construct(const char *new_name=NULL) { LcdDisplay *lcdP = new LcdDisplay(new_name,2,20); lcdP->create_iopin_map(); lcdP->set_pixel_resolution(5,7); lcdP->set_crt_resolution(3,3); lcdP->set_contrast(1.0); //lcdP->testHD44780(); return lcdP; } LcdDisplay::LcdDisplay(const char *_name, int aRows, int aCols, unsigned aType) : m_controlState(0) { if (verbose) cout << "LcdDisplay constructor\n"; new_name(_name); m_hd44780 = new HD44780(); // mode_flag = _8BIT_MODE_FLAG; data_latch = 0; data_latch_phase = 1; last_event = eWC; disp_type=aType; set_pixel_resolution(); set_crt_resolution(); set_contrast(); rows = aRows; cols = aCols; cursor.row = 0; cursor.col = 0; cgram_updated = FALSE; // The font is created dynamically later on. fontP = NULL; // If you want to get diagnostic info, change debug to non-zero. debug = 0; if (getenv("GPSIM_LCD_DEBUG")) debug = atoi(getenv("GPSIM_LCD_DEBUG")); gTrace = &get_trace(); writeTT = new LcdWriteTT(this,1); readTT = new LcdReadTT(this,1); interface = new LCD_Interface(this); get_interface().add_interface(interface); m_dataBus = new PortRegister(this, "data", "LCD Data Port", 8, 0); addSymbol(m_dataBus); m_dataBus->setEnableMask(0xff); CreateGraphics(); } LcdDisplay::~LcdDisplay() { if (verbose) cout << "LcdDisplay destructor\n"; //gpsim_unregister_interface(interface_id); delete m_dataBus; delete m_E; delete m_DC; delete m_RW; delete interface; gtk_widget_destroy(window); // FIXME free all data... } //------------------------------------------------------------------------ bool LcdDisplay::dataBusDirection() { return m_hd44780->dataBusDirection(); } //------------------------------------------------------------------------ void LcdDisplay::UpdatePinState(ePins pin, char cState) { // One of the control lines has changed states. So refresh the // hd44780 with the most current data bus value. // If the data bus I/O's are inputs, then copy the I/O pin // data bus state to the chip data bus: if (m_hd44780->dataBusDirection()) m_hd44780->driveDataBus(m_dataBus->get()); bool bState = (cState =='1') || (cState =='W'); switch (pin) { case eDC: m_hd44780->setDC(bState); break; case eE: m_hd44780->setE(bState); break; case eRW: m_hd44780->setRW(bState); break; } // If the hd44780 is driving, then place that // data onto the data bus. if (m_hd44780->dataBusDirection()) m_dataBus->put(m_hd44780->getDataBus()); m_dataBus->updatePort(); Dprintf(("Control pin:%d is %c and Databus is 0x%02X\n",pin, cState,m_dataBus->get_value())); } //------------------------------------------------------------------------ void LcdDisplay::testHD44780() { if (m_hd44780) m_hd44780->test(); } //----------------------------------------------------------------- // Displaytech 161A, added by Salvador E. Tropea // construct Module * LcdDisplayDisplaytech161A::construct(const char *new_name=NULL) { if (verbose) cout << " LCD 161A display constructor\n"; LcdDisplayDisplaytech161A *lcdP = new LcdDisplayDisplaytech161A(new_name,2,8,TWO_ROWS_IN_ONE); lcdP->new_name((char*)new_name); lcdP->create_iopin_map(); return lcdP; } LcdDisplayDisplaytech161A::LcdDisplayDisplaytech161A(const char *pN, int aRows, int aCols, unsigned aType) : LcdDisplay(pN,aRows,aCols,aType) { } LcdDisplayDisplaytech161A::~LcdDisplayDisplaytech161A() { } #endif //HVAE_GUI gpsim-0.27.0/extras/lcd/AUTHORS0000644000076400007640000000011010416272313012757 00000000000000Scott Dattalo Salvador Eduardo Tropea Robert Pearce gpsim-0.27.0/extras/lcd/hd44780.cc0000644000076400007640000004052511374154676013255 00000000000000/* Copyright (C) 2006 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #define IN_MODULE #include #include #include #include #include #include #include #include #include #include "config.h" #ifdef HAVE_GUI #include #include #include #include #include #include #include "hd44780.h" //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("%s:%d ",__FILE__,__LINE__); printf arg; } #else #define Dprintf(arg) {} #endif /**************************************************************** * * HD44780 - gpsim module */ /* * LCD Command "Set Display Data RAM Address" = 10000000 */ static const unsigned int LCD_CMD_SET_DDRAM = 0x80; static const unsigned int LCD_MASK_SET_DDRAM = 0x80; /* * LCD Command "Set Display Character Generator RAM Address" = 01aaaaaa */ static const unsigned int LCD_CMD_SET_CGRAM = 0x40; static const unsigned int LCD_MASK_SET_CGRAM = 0xc0; /* * LCD Command Function Set = 001dnfxx * d = 1 for 8-bit interface or 0 for 4-bit interface * n = for 2 line displays, n=1 allows both lines to be displayed * while n=0 only allows the first. * f = font size. f=1 is for 5x11 dots while f=0 is for 5x8 dots. */ static const unsigned int LCD_CMD_FUNC_SET = 0x20; // LCD Command "Function Set" static const unsigned int LCD_MASK_FUNC_SET = 0xe0; // static const unsigned int LCD_4bit_MODE = 0x00; // d=0 static const unsigned int LCD_8bit_MODE = 0x10; // d=1 static const unsigned int LCD_1_LINE = 0x00; // n=0 static const unsigned int LCD_2_LINES = 0x08; // n=1 static const unsigned int LCD_SMALL_FONT = 0x00; // f=0 static const unsigned int LCD_LARGE_FONT = 0x04; // f=1 /* * LCD Command "Cursor Display" = 0001sdxx * s = 1 Sets cursor-move or display-shift * d = 1 Shift right 0 = shift left */ static const unsigned int LCD_CMD_CURSOR_DISPLAY = 0x10; // LCD Command "Cursor Display" static const unsigned int LCD_MASK_CURSOR_DISPLAY = 0xf0; // /* * LCD Command Display Control = 00001dcb * d = 1 turn display on or 0 to turn display off * c = 1 turn cursor on or 0 to turn cursor off * b = 1 blinking cursor or 0 non-blinking cursor */ static const unsigned int LCD_CMD_DISPLAY_CTRL = 0x08; // LCD Command "Display Control" static const unsigned int LCD_MASK_DISPLAY_CTRL = 0xf8; // static const unsigned int LCD_DISPLAY_OFF = 0x00; // d=0 static const unsigned int LCD_DISPLAY_ON = 0x04; // d=1 static const unsigned int LCD_CURSOR_OFF = 0x00; // c=0 static const unsigned int LCD_CURSOR_ON = 0x02; // c=1 static const unsigned int LCD_BLINK_OFF = 0x00; // b=0 static const unsigned int LCD_BLINK_ON = 0x01; // b=1 /* * LCD Command "Entry Mode" = 000001is * i = 1 to increment or 0 to decrement the DDRAM address after each DDRAM access. * s = 1 to scroll the display in the direction specified by the i-bit when the * cursor reaches the edge of the display window. */ static const unsigned int LCD_CMD_ENTRY_MODE = 0x04; // LCD Command "Entry Mode" static const unsigned int LCD_MASK_ENTRY_MODE = 0xfc; // static const unsigned int LCD_DEC_CURSOR_POS = 0x00; // i=0 static const unsigned int LCD_INC_CURSOR_POS = 0x02; // i=1 static const unsigned int LCD_NO_SCROLL = 0x00; // s=0 static const unsigned int LCD_SCROLL = 0x01; // s=1 /* * LCD Command "Cursor Home" = 0000001x */ static const unsigned int LCD_CMD_CURSOR_HOME = 0x02; // LCD Command "Cursor Home" static const unsigned int LCD_MASK_CURSOR_HOME = 0xfe; // // LCD Command Clear Display = 00000001 static const unsigned int LCD_CMD_CLEAR_DISPLAY = 0x01; static const unsigned int LCD_MASK_CLEAR_DISPLAY = 0xff; //======================================================================== // Busy - a class to handle the HD44780's busy flag // // This class is essentially a timer. When the LCD requests that the // busy flag be set for a period of time, it will call the set() method // and pass the amount of time it wishes the flag to be busy. When // this time expires, the flag will get cleared. class HD44780Busy : public TriggerObject { public: HD44780Busy() : bBusyState(false) {} void set(double waitTime); void clear(); inline bool isBusy() { return bBusyState; } virtual void callback(); private: bool bBusyState; }; //-------------------------------------------------------------- void HD44780Busy::set(double waitTime) { if(!bBusyState) { bBusyState = true; get_cycles().set_break(get_cycles().get(waitTime), this); } } void HD44780Busy::clear() { clear_trigger(); bBusyState = false; } //-------------------------------------------------------------- void HD44780Busy::callback() { bBusyState = false; } //------------------------------------------------------------------------ HD44780::HD44780() : m_bE(true), m_controlState(0), m_chipState(ePowerON), m_dataBus(0), m_bBitMode(true), // 8-bit mode m_bLineMode(false), // 1-line mode m_bFontMode(false), // small font m_bDisplayOn(false), // display is off m_bCursorBlink(false),// no cursor blink m_bCursorOn(false), // cursor is off m_busyTimer(new HD44780Busy()), m_CGRamCursor(0), m_bInCGRam(false) { memset(&m_CGRam[0], 0xff, sizeof(m_CGRam)); memset(&m_DDRam[0], 0xff, sizeof(m_DDRam)/2); memset(&m_DDRam[DDRAM_SIZE/2], 0, sizeof(m_DDRam)/2); } //------------------------------------------------------------------------ void HD44780::setDC(bool newDC) { m_controlState &= ~eDC; m_controlState |= (newDC ? eDC : 0); } void HD44780::setRW(bool newRW) { m_controlState &= ~eRW; m_controlState |= (newRW ? eRW : 0); } void HD44780::setE(bool newE) { bool bRW = (m_controlState & eRW) != 0; if (m_bE != newE && m_bE^bRW ) { // Only act if there was a change in E // FIXME: what happens on the real chip if DC or RW change while E is high? // There are only 4 states corresponding to the combinations of RW and DC. // Note. For reads, we act on the rising edge of E while for writes on // the falling edge. switch (m_controlState) { case eDataRead: driveDataBus(getData()); advanceColumnAddress(); break; case eCommandRead: driveDataBus(getStatus()); break; case eDataWrite: storeData(); advanceColumnAddress(); break; case eCommandWrite: executeCommand(); break; default: Dprintf((" unhandled control state:%d\n",m_controlState)); } } m_bE = newE; } //------------------------------------------------------------------------ // driveDataBus - place an 8-bit value on the data bus. // Note that this routine doesn't directly affect the I/O pins of an LCD module. // The Pin control code resides elsewhere (lcd.cc) and will read the HD44780 // data bus to determine how the pins should be driven void HD44780::driveDataBus(unsigned int d) { Dprintf(("driveDataBus 0x%02x\n",d)); m_dataBus = d; } //------------------------------------------------------------------------ // advanceColumnAddress() - A read or write from the DDRAM increments // the column address. If we're in 4-bit mode, then only increment after // the 2nd read or write. void HD44780::advanceColumnAddress() { if (b8BitMode() || m_bDataBusPhase) m_DDRamCursor.col = (m_DDRamCursor.col+1) % 40; } //------------------------------------------------------------------------ // phasedDataWrite - returns true if a write operation complements. The data // written is returned by reference. // Write operations always complete in 8-bit mode, but take two phases in // 4-bit mode. bool HD44780::phasedDataWrite(unsigned int &data) { if (b8BitMode()) { data = m_dataBus & 0xff; return true; } // In 4-bit mode, the upper nibble is written first. // First, move the last nibble written to the upper half of phasedData m_phasedData &= 0x0f; m_phasedData <<= 4; // Next, get the nibble on the data bus and put it in the lower half of phasedData. m_phasedData |= ((m_dataBus>>4) & 0x0f); data = m_phasedData; // Toggle the phase. // FIXME - The phase logic needs more attention. There should be a method for // setting the phase. m_bDataBusPhase = !m_bDataBusPhase; return m_bDataBusPhase; } //------------------------------------------------------------------------ // storeData - write a byte to the DDRAM // void HD44780::storeData() { unsigned int d; if (phasedDataWrite(d)) { unsigned int ddram_address = (m_DDRamCursor.row ? 40 : 0) + (m_DDRamCursor.col % 40); m_DDRam[ddram_address] = d; } } //------------------------------------------------------------------------ // getData - get a byte from tehe DDRAM unsigned int HD44780::getData() { unsigned int ddram_address = (m_DDRamCursor.row ? 40 : 0) + (m_DDRamCursor.col % 40); return m_DDRam[ddram_address]; } void HD44780::executeCommand() { unsigned int command; // command is set in the following call if (!phasedDataWrite(command)) return; // // Determine the command type // Dprintf(("Execute Command:0x%d\n",command)); if( (command & LCD_MASK_SET_DDRAM) == LCD_CMD_SET_DDRAM) { Dprintf(("LCD_CMD_SET_DDRAM\n")); writeDDRamAddress(command & 0x7f); m_busyTimer->set(39e-6); // busy for 39 usec after set DDRAM addr } else if( (command & LCD_MASK_SET_CGRAM) == LCD_CMD_SET_CGRAM) { Dprintf(("LCD_CMD_SET_CGRAM\n")); writeCGRamAddress(command & 0x3f); } else if( (command & LCD_MASK_FUNC_SET) == LCD_CMD_FUNC_SET) { Dprintf(("LCD_CMD_FUNC_SET\n")); // // Check the bits in the command // if(command & LCD_8bit_MODE) set8bitMode(); else { set4bitMode(); // If the lcd is in '4-bit' mode, then this flag // will tell us which four bits are being written. m_bDataBusPhase = true; } if(command & LCD_2_LINES) set2LineMode(); else set1LineMode(); if(command & LCD_LARGE_FONT) setLargeFontMode(); else setSmallFontMode(); m_busyTimer->set(39e-6); // busy for 39 usec after DDRAM write } else if( (command & LCD_MASK_CURSOR_DISPLAY) == LCD_CMD_CURSOR_DISPLAY) { printf("LCD_CMD_CURSOR_DISPLAY\n"); printf("NOT SUPPORTED\n"); } else if( (command & LCD_MASK_DISPLAY_CTRL) == LCD_CMD_DISPLAY_CTRL) { Dprintf(("LCD_CMD_DISPLAY_CTRL\n")); if(command & LCD_DISPLAY_ON) setDisplayOn(); else setDisplayOff(); if(command & LCD_CURSOR_ON) setCursorOn(); else setCursorOff(); if(command & LCD_BLINK_ON) setBlinkOn(); else setBlinkOff(); } else if( (command & LCD_MASK_ENTRY_MODE) == LCD_CMD_ENTRY_MODE) { if ((command & ~LCD_MASK_ENTRY_MODE) != LCD_INC_CURSOR_POS) { cout << "LCD_CMD_ENTRY_MODE\n"; cout << "NOT SUPPORTED\n"; } else { Dprintf(("LCD_CMD_ENTRY_MODE cursorpos=inc scroll=no\n")); } } else if( (command & LCD_MASK_CURSOR_HOME) == LCD_CMD_CURSOR_HOME) { Dprintf(("LCD_CMD_CURSOR_HOME\n")); moveCursor(0,0); } else if( (command & LCD_MASK_CLEAR_DISPLAY) == LCD_CMD_CLEAR_DISPLAY) { Dprintf(("LCD_CMD_CLEAR_DISPLAY\n")); clearDisplay(); m_busyTimer->set(1350e-6); // busy for 1.3 msec after clear screen } else Dprintf(("UNKOWN command : 0x%x\n", command)); debugChipState(__FUNCTION__); } //------------------------------------------------------------------------ // dataBusDirection() - returns true if the data bus is an input bool HD44780::dataBusDirection() { return ! ((m_controlState & eRW) && m_bE); } //------------------------------------------------------------------------ unsigned int HD44780::getDataBus() { return m_dataBus; } //------------------------------------------------------------------------ // // send_status unsigned int HD44780::getStatus() { unsigned short status; status = ( m_DDRamCursor.row ? 0x40 : 0) | m_DDRamCursor.col; status |= (m_busyTimer->isBusy() ? 0x80 : 0); return dataPhase(status); } //------------------------------------------------------------------------ // unsigned int HD44780::dataPhase(unsigned int d) { if (b8BitMode()) return d; m_bDataBusPhase = !m_bDataBusPhase; return !m_bDataBusPhase ? ((d<<4) & 0xf0) : d; } //------------------------------------------------------------------------ void HD44780::writeDDRamAddress(int data) { // // The first 0x40 memory locations are mapped to // row 0 and the second 0x40 to row 1. Now only // the first 40 (decimal not hex) locations are // valid RAM. And of course, only the first 20 //of these can be displayed in a 2x20 display. // data &= 0x7f; m_DDRamCursor.col = (data & 0x3f) % 40; m_DDRamCursor.row = (data & 0x40) ? 1 : 0; m_bInCGRam = false; } unsigned char HD44780::getDDRam(unsigned int r, unsigned int c) { if ( r>=2 || c>=40) return 0; return m_DDRam[r*40 + c]; } //------------------------------------------------------------------------ void HD44780::writeCGRamAddress(int data) { data &= CGRAM_MASK; m_CGRamCursor = data; m_bInCGRam = true; } //------------------------------------------------------------------------ void HD44780::clearDisplay() { memset(&m_DDRam[0], ' ', sizeof(m_DDRam)); } //------------------------------------------------------------------------ void HD44780::moveCursor(int new_row, int new_column) { m_DDRamCursor.row = new_row; m_DDRamCursor.col = new_column; } //------------------------------------------------------------------------ void HD44780::debugChipState(const char *pCFrom) { #ifdef DEBUG printf("Chip state from %s\n",pCFrom); printf(" ControlState: %d dataBus:0x%x phase:%d\n", m_controlState,m_dataBus,m_bDataBusPhase); printf(" Mode: %dbit %dLine Display-%s\n", (b8BitMode() ? 8 : 4), (b1LineMode() ? 1 : 2), (bDisplayOn() ? "ON" : "OFF")); printf(" DDRam Cursor row:%d col:%d CGRam Cursor:%d\n", m_DDRamCursor.row, m_DDRamCursor.col, m_CGRamCursor); #endif } static void printTestResult(bool b, const char * testName) { printf(" %s:%s\n", testName, (b ? "PASSED" : "FAILED") ); } //------------------------------------------------------------------------ void HD44780::test() { printf("HD44780 self test\n"); set8bitMode(); setRW(false); setDC(false); driveDataBus(LCD_CMD_FUNC_SET | LCD_8bit_MODE); setE(true); setE(false); printTestResult(b8BitMode(),"setting 8-bit mode"); driveDataBus(LCD_CMD_FUNC_SET | LCD_4bit_MODE); setE(true); setE(false); printTestResult(b4BitMode(),"setting 4-bit mode"); driveDataBus(LCD_CMD_FUNC_SET | LCD_4bit_MODE | LCD_2_LINES | LCD_SMALL_FONT); setE(true); setE(false); driveDataBus((LCD_CMD_FUNC_SET | LCD_4bit_MODE | LCD_2_LINES | LCD_SMALL_FONT)<<4); setE(true); setE(false); printTestResult(b2LineMode(),"setting small font & 2-line modes"); driveDataBus(LCD_CMD_DISPLAY_CTRL | LCD_DISPLAY_ON); setE(true); setE(false); driveDataBus((LCD_CMD_DISPLAY_CTRL | LCD_DISPLAY_ON)<<4); setE(true); setE(false); printTestResult(bDisplayOn(),"turning on display"); driveDataBus(LCD_CMD_CLEAR_DISPLAY); setE(true); setE(false); driveDataBus(LCD_CMD_CLEAR_DISPLAY<<4); setE(true); setE(false); const char *s ="ASHLEY & AMANDA"; int l = strlen(s); int i; setDC(true); for(i=0; i=40 ? 1 : 0, i % 40); if (i == 40) printf("\n"); printf("%c",(ch>=0x20 ? ch : '.')); } printf("\n"); set8bitMode(); #if 0 set_8bit_mode(); viewInternals(0xff); #endif } #endif // HAVE_GUI gpsim-0.27.0/extras/lcd/Makefile.in0000664000076400007640000006140612210742104013767 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ # Makefile for the LCD module # VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = extras/lcd DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am \ $(top_srcdir)/depcomp AUTHORS COPYING ChangeLog INSTALL NEWS \ README ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(libdir)" LTLIBRARIES = $(lib_LTLIBRARIES) libgpsim_lcd_la_LIBADD = am_libgpsim_lcd_la_OBJECTS = lcdgui.lo module_manager.lo lcd.lo \ hd44780.lo libgpsim_lcd_la_OBJECTS = $(am_libgpsim_lcd_la_OBJECTS) AM_V_lt = $(am__v_lt_@AM_V@) am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@) am__v_lt_0 = --silent am__v_lt_1 = libgpsim_lcd_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CXX \ $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CXXLD) \ $(AM_CXXFLAGS) $(CXXFLAGS) $(libgpsim_lcd_la_LDFLAGS) \ $(LDFLAGS) -o $@ AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/depcomp am__depfiles_maybe = depfiles am__mv = mv -f CXXCOMPILE = $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) LTCXXCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) \ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ $(AM_CXXFLAGS) $(CXXFLAGS) AM_V_CXX = $(am__v_CXX_@AM_V@) am__v_CXX_ = $(am__v_CXX_@AM_DEFAULT_V@) am__v_CXX_0 = @echo " CXX " $@; am__v_CXX_1 = CXXLD = $(CXX) CXXLINK = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CXXLD) $(AM_CXXFLAGS) \ $(CXXFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@ AM_V_CXXLD = $(am__v_CXXLD_@AM_V@) am__v_CXXLD_ = $(am__v_CXXLD_@AM_DEFAULT_V@) am__v_CXXLD_0 = @echo " CXXLD " $@; am__v_CXXLD_1 = SOURCES = $(libgpsim_lcd_la_SOURCES) DIST_SOURCES = $(libgpsim_lcd_la_SOURCES) RECURSIVE_TARGETS = all-recursive check-recursive cscopelist-recursive \ ctags-recursive dvi-recursive html-recursive info-recursive \ install-data-recursive install-dvi-recursive \ install-exec-recursive install-html-recursive \ install-info-recursive install-pdf-recursive \ install-ps-recursive install-recursive installcheck-recursive \ installdirs-recursive pdf-recursive ps-recursive \ tags-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive am__recursive_targets = \ $(RECURSIVE_TARGETS) \ $(RECURSIVE_CLEAN_TARGETS) \ $(am__extra_recursive_targets) AM_RECURSIVE_TARGETS = $(am__recursive_targets:-recursive=) TAGS CTAGS \ distdir am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) # Read a list of newline-separated strings from the standard input, # and print each of them once, without duplicates. Input order is # *not* preserved. am__uniquify_input = $(AWK) '\ BEGIN { nonempty = 0; } \ { items[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in items) print i; }; } \ ' # Make sure the list of sources is unique. This is necessary because, # e.g., the same source file might be shared among _SOURCES variables # for different programs/libraries. am__define_uniq_tagged_files = \ list='$(am__tagged_files)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | $(am__uniquify_input)` ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ AM_CPPFLAGS = @X_CFLAGS@ lib_LTLIBRARIES = libgpsim_lcd.la libgpsim_lcd_la_SOURCES = \ lcdgui.cc module_manager.cc lcd.cc hd44780.cc libgpsim_lcd_la_LDFLAGS = @X_LDFLAGS@ EXTRA_DIST = lcd.gif caps.pl lcd.xpm lcdfont.h lcdfont.inc README lcd.h \ makefile.mingw hd44780.h SUBDIRS = examples all: all-recursive .SUFFIXES: .SUFFIXES: .cc .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu extras/lcd/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu extras/lcd/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-libLTLIBRARIES: $(lib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \ } uninstall-libLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \ done clean-libLTLIBRARIES: -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) @list='$(lib_LTLIBRARIES)'; \ locs=`for p in $$list; do echo $$p; done | \ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ sort -u`; \ test -z "$$locs" || { \ echo rm -f $${locs}; \ rm -f $${locs}; \ } libgpsim_lcd.la: $(libgpsim_lcd_la_OBJECTS) $(libgpsim_lcd_la_DEPENDENCIES) $(EXTRA_libgpsim_lcd_la_DEPENDENCIES) $(AM_V_CXXLD)$(libgpsim_lcd_la_LINK) -rpath $(libdir) $(libgpsim_lcd_la_OBJECTS) $(libgpsim_lcd_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hd44780.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/lcd.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/lcdgui.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/module_manager.Plo@am__quote@ .cc.o: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(CXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(CXXCOMPILE) -c -o $@ $< .cc.obj: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(CXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(CXXCOMPILE) -c -o $@ `$(CYGPATH_W) '$<'` .cc.lo: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(LTCXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(LTCXXCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run 'make' without going through this Makefile. # To change the values of 'make' variables: instead of editing Makefiles, # (1) if the variable is set in 'config.status', edit 'config.status' # (which will cause the Makefiles to be regenerated when you run 'make'); # (2) otherwise, pass the desired values on the 'make' command line. $(am__recursive_targets): @fail=; \ if $(am__make_keepgoing); then \ failcom='fail=yes'; \ else \ failcom='exit 1'; \ fi; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" ID: $(am__tagged_files) $(am__define_uniq_tagged_files); mkid -fID $$unique tags: tags-recursive TAGS: tags tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ $(am__define_uniq_tagged_files); \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: ctags-recursive CTAGS: ctags ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) $(am__define_uniq_tagged_files); \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" cscopelist: cscopelist-recursive cscopelist-am: $(am__tagged_files) list='$(am__tagged_files)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile $(LTLIBRARIES) installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(libdir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-recursive -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-libLTLIBRARIES install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: uninstall-libLTLIBRARIES .MAKE: $(am__recursive_targets) install-am install-strip .PHONY: $(am__recursive_targets) CTAGS GTAGS TAGS all all-am check \ check-am clean clean-generic clean-libLTLIBRARIES \ clean-libtool cscopelist-am ctags ctags-am distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am \ install-libLTLIBRARIES install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-compile \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags tags-am uninstall uninstall-am uninstall-libLTLIBRARIES # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/extras/lcd/Makefile.am0000664000076400007640000000054312177043162013763 00000000000000# Makefile for the LCD module # AM_CPPFLAGS = @X_CFLAGS@ lib_LTLIBRARIES = libgpsim_lcd.la libgpsim_lcd_la_SOURCES = \ lcdgui.cc module_manager.cc lcd.cc hd44780.cc libgpsim_lcd_la_LDFLAGS = @X_LDFLAGS@ EXTRA_DIST = lcd.gif caps.pl lcd.xpm lcdfont.h lcdfont.inc README lcd.h \ makefile.mingw hd44780.h SUBDIRS = examples CFLAGS = @CFLAGS@ gpsim-0.27.0/extras/lcd/ChangeLog0000644000076400007640000001105011374204032013463 000000000000002010-05-17 Roy Rankin * hd44780.cc lcd.cc lcd.h lcdgui.cc module_manager.cc - Config now from gpsim root, so include paths change and may be built without GUI. 2007-02-22 Scott Dattalo * lcd.cc: API sync 2006-11-08 Scott Dattalo * lcd.h, lcd.cc: Updated to newer Trace API. 2006-09-11 Scott Dattalo * lcd.cc: Fixed API call to gpsim core (Trace::dump_all() ). 2006-05-28 Borut Razem * hd44780.cc: removed unneeded inclusion of config.h * extras/lcd/makefile.mingw: corrected, thanks to Xiaofan Chen * INSTALL: CVS replaced with Subversion 2006-04-23 Scott Dattalo * configure.in: changed version to 0.2.6 * Makefile.am: removed lcdengine.cc added hd44780.[cc,h] * hd44780.cc, hd44780.h: The HD44780 logic formerly coded in lcdengined now resides in it's on file. Furthermore, the logic has been greatly simplified. Now the LCD display features are distinct from the HD44780 chip features. * lcd.h, lcd.cc: Utilize the new hd44780 chip model. Also, the I/O ports no longer use the deprecated IOPORT class. * lcdgui.cc: DDRAM accesses now are made through the HD44780 class. * lcdengine.cc: removed from the repository. 2006-01-18 Scott Dattalo * lcd.cc: updated to new gpsim trigger object API (clear_break was renamed to clear_trigger). 2005-12-06 Scott Dattalo * lcd.cc: updated to new gpsim iopin API 2005-11-20 Scott Dattalo * lcd.cc: updated to new gpsim stimulus API. 2005-08-30 Scott Dattalo * configure.in: changed version to 0.2.5 2005-08-30 Scott Dattalo * lcd.cc: updated to new gpsim iopin API. 2005-04-29 Scott Dattalo * configure.in: Changed the revision to 0.2.4 2004-11-24 Scott Dattalo * lcd.cc: Fixed LCD ports so that they conform to recent gpsim changes. 2004-09-28 Scott Dattalo * configure.in: Added support for gtk-2.x. Changed the LCD version to 0.2.3 2004-09-13 Scott Dattalo * lcd.h: TriggerObjects used to be called BreakpointObjects in gpsim. 2004-09-05 Robert Pearce * lcd.cc, lcd.h, lcdengine.cc, lcdgui.cc: I/O pins and stimuli. (patch applied by Scott). 2004-09-01 Scott Dattalo * lcd.cc, lcd.h: updated the LCD module with the current gpsim trace implementation. * examples/lcd_mod.stc: The node name 'DC' conflicts with the status flag DC bit name. (They're both symbols). 2004-07-23 Scott Dattalo * lcd.cc, lcd.h, lcdengine.cc: updated the LCD I/O pins to the current gpsim implementation. 2004-05-12 Bert Driehuis * lcd.cc: CGRAM initial value should be 0xff and not 0. 2004-06-14 Scott Dattalo * INSTALL: Updated CVS instructions. 2004-05-12 Bert Driehuis * lcd.cc, lcd.h, lcdengine.cc: support CGRAM 2004-04-13 Scott Dattalo * lcd.h: updated to latest simulator interface changes (The BreakCallBack class has been renamed). 2004-03-30 Scott Dattalo * lcd.cc: updated to latest simulator interface changes (where char *'s were changed to strings) 2004-03-08 Scott Dattalo * lcd.h, lcd.cc, lcdengine.cc, examples/lcd.asm: Fixed the busy bit logic. 2004-03-08 Scott Dattalo * lcd.h, lcd.cc, lcdengine.cc: Merged a portion of a patch from Robert Pearce. 2004-03-05 Scott Dattalo * configure.in: changed revision to 0.2.2 2004-02-08 Scott Dattalo * configure.in: changed revision to 0.2.1 * updated to the new gpsim API 2003-09-14 Scott Dattalo * lcd.h - Renamed "enum Event" to "enum ControlLineEvent" because of a conflict with the "class Event" in stimuli.h. 0.2.0 Robert Pearce Fixed bug with 4-bit/8-bit startup mode. ?.?.? Salvador Eduardo Tropea: Added support for DisplayTech 161A displays, these displays are 2x8 displays but externally looks like a 1x16. Name: lcd_dt161A. 0.1.1 2nd line offset bug 0.1.0 Major overhaul. Now the LCD works as a gpsim module. 0.0.3 extra_dist should have been EXTRA_DIST in Makefile.am. caps.pl will now also generate a file that may be included in a pic microcontroller program. 0.0.2 Added the rest of the 5x7 font. Added caps.pl (Cheesy-ass perl script) that will read a specially formatted .xpm of the LCD's font and convert it to form usable by lcd.c gpsim-0.27.0/extras/lcd/lcd.xpm0000644000076400007640000061254010416272313013217 00000000000000/* XPM */ static char * ll_xpm[] = { "400 500 2 1", " g None", ". g #000000", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ...... .. .. ", " ...... .. .. ", " .. .. .. .. ", " .. .. .. .. ", " .. .. .... ...... .. .... ...... ...... .... .. ...... ", " .. .. .... ...... .. .... ...... ...... .... .. ...... ", " .. .... .. .. .... .. .. .. .. .. .... .. .. ", " .. .... .. .. .... .. .. .. .. .. .... .. .. ", " .. .. .. ........ .. .. .. .. .. .. .......... ", " .. .. .. ........ .. .. .. .. .. .. .......... ", " .. .. .. .. .. .. .. .. .. .. .. .. .. .. ", " .. .. .. .. .. .. .. .. .. .. .. .. .. .. ", " ...... .. .. ........ .. .. ...... ...... ........ ...... ", " ...... .. .. ........ .. .. ...... ...... ........ ...... ", " ", " ", " ... ... ... ... ... ... ... . . . . . . ", " . . . . . . . . . . . . . . .. .. .. .. .. .. ", " . . . . . . . . . . . . . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . . . . . . . ", " ....................................................................... . . . . . . . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . . . . . . . . ", " . ... ... ... ... ... ... ... . . . . . . ", " . ", " . ", " . ... ... ... . . . . ... ... . . . . ", " . . . . . . . .. .. .. .. . . . . .. .. .. .. ", " . . . . . . . . . . . . . . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . . . . . . ", " . .............................................................. . . . . . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . . . . . . . ", " . . ... ... ... . . . . ... ... . . . . ", " . . ", " . . ", " . . ... . . ... ... . . . . ... ... . . ", " . . . . .. .. . . . . .. .. .. .. . . . . .. .. ", " . . . . . . . . . . . . . . . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . . . . . . . ", " . . ..................................................... . . . . . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . . . . . . . . ", " . . . ... . . ... ... . . . . ... ... . . ", " . . . ", " . . . ", " . . . ... ... . ... . ... . ... . ... . ... . ", " . . . . . . . .. . . .. . . .. . . .. . . .. . . .. ", " . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . . . . . . . . . . ", " . . . ............................................ . . . . . . . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . . . . . . . . . . . ", " . . . . ... ... . ... . ... . ... . ... . ... . ", " . . . . ", " . . . . ", " . . . . .................................................................................................................................................................................................... ", " . . . . . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . . ...... . ...... . ........ . .. . . . . . . . . ", " ... ... ... ... . . . ...... . ...... . ........ . .. . . . . . . . . ", " . . . . . . . .. .. . .. .. . .. .. . .. . . . . ........ . ...... . . .. .... . ", " . . . .. .. . .. .. . .. .. . .. . . . . ........ . ...... . . .. .... . ", " ... ... ... ... . . . .. .... . .. . .. .. . .. . ........ . . . .. .. . . .. .. . .... .. . ", " . . . . . . . . . . . .. .... . .. . .. .. . .. . ........ . . . .. .. . . .. .. . .... .. . ", " . . . . . . . . . . . . . . . . . . . .. .. .. . .... .. . ........ . . .. .. . . . .. .. .. . ...... . .. .. .. . .. .. . ", " . . . . . . . . . . . . . . . . . . . .. .. .. . .... .. . ........ . . .. .. . . . .. .. .. . ...... . .. .. .. . .. .. . ", " . . . . . . . . . . . . . . . . . . . .... .. . .. .. .. . .. . . ........ . . .......... . .... . . .. .. . .. .. . ", " . . . . . . . . . . . . . . . .... .. . .. .. .. . .. . . ........ . . .......... . .... . . .. .. . .. .. . ", " . . . . . . . . . . . . . . . . . . . .. .. . .. .. .. . .. . . .. . . . .. . ...... . .. .. . ........ . ", " . . . . . . . . . . . . . . . . . . . .. .. . .. .. .. . .. . . .. . . . .. . ...... . .. .. . ........ . ", " . . . . . . . . ... ... ... ... . . . ...... . ...... . .. . . .. . . . .... . .. . .... .. . .. . ", " . . . ...... . ...... . .. . . .. . . . .... . .. . .... .. . .. . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " .................................................................................................................................................................................................... ", " . . . . . . . . . . . . . . ", " . . .. . .. . ...... . ...... . . . . .......... . .. . . .. .. . . ", " . . .. . .. . ...... . ...... . . . . .......... . .. . . .. .. . . ", " . . .. . .... . .. .. . .. .. . . . . .. . ...... . .. . . .... .. . ", " . . .. . .... . .. .. . .. .. . . . . .. . ...... . .. . . .... .. . ", " ... ... ... . . . .. . .. . .. .. . .. .. . ...... . .... .. . . .. .. . .. . .. . ...... . .. .... . ", " . . . . . . .. . . .. . .. . .. .. . .. .. . ...... . .... .. . . .. .. . .. . .. . ...... . .. .... . ", " . . . . . . . . . . . . . . . . . . .. . .. . .. .. . .. .. . .. . .. .... . . .... . .......... . .. . .. . .. .. . ", " . . . . . . . . . . . . . . . . . .. . .. . .. .. . .. .. . .. . .. .... . . .... . .......... . .. . .. . .. .. . ", " . . . . . . . . . . . . . . . . . .. . .. . .......... . .. .. .. . ........ . ........ . ...... . .. . .. . .. .. . ........ . .. .. . ", " . . . . . . . . . . . . . .. . .. . .......... . .. .. .. . ........ . ........ . ...... . .. . .. . .. .. . ........ . .. .. . ", " . . . . . . . . . . . . . . . . . . .. . .. .. . .. .. . .. .. . .. . .. .. . .. . .. . .......... . .. .. . ........ . ", " . . . . . . . . . . . . . . . . . . .. . .. .. . .. .. . .. .. . .. . .. .. . .. . .. . .......... . .. .. . ........ . ", " . . . . . . . . ... ... ... . . . .. . ...... . .. .. . .... .. . ........ . .. . ...... . .. . .. . .. . ........ . .. . ", " . . .. . ...... . .. .. . .... .. . ........ . .. . ...... . .. . .. . .. . ........ . .. . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " .................................................................................................................................................................................................... ", " . . . . . . . . . . . . . . ", " . . .. .. . ...... . ........ . ........ . .. . . ...... . .. . . . . ...... . ", " . . .. .. . ...... . ........ . ........ . .. . . ...... . .. . . . . ...... . ", " . . .. .. . .. .. . .. .. . .. .. . .. . . .. . .. . .. .. .. . .. . ...... . .. .. . ", " . . .. .. . .. .. . .. .. . .. .. . .. . . .. . .. . .. .. .. . .. . ...... . .. .. . ", " ... ... . ... . . .. .. . .. . .. .. . .. .. . .. .... . .. .... . .. . .. . .. .. .. . .. . .. .. . .......... . ", " . . . . .. . . . . .. .. . .. . .. .. . .. .. . .. .... . .. .... . .. . .. . .. .. .. . .. . .. .. . .......... . ", " . . . . . . . . . . . . . . . . . . . .. . ........ . ........ . .... .. . .... .. . .. . .... . .. . .. .. . ........ . .. .. . ", " . . . . . . . . . . . . . . . . . . .. . ........ . ........ . .... .. . .... .. . .. . .... . .. . .. .. . ........ . .. .. . ", " . . . . . . . . . . . . . . . . . . .. . .. .. . .. .. . .. .. . .. . . .. .. . .. . .. . .. .. . .. .. . ", " . . . . . . . . . . . . . . .. . .. .. . .. .. . .. .. . .. . . .. .. . .. . .. . .. .. . .. .. . ", " . . . . . . . . . . . . . . . . . . .. . .. .. . .. .. . .. .. . .. . . .. . .. . .. .. . ........ . ...... . ", " . . . . . . . . . . . . . . . . . . .. . .. .. . .. .. . .. .. . .. . . .. . .. . .. .. . ........ . ...... . ", " . . . . . . . . ... ... . ... . . . .......... . ........ . .. .. . ........ . .. . . .. . .. . .. . .. . . ", " . . . .......... . ........ . .. .. . ........ . .. . . .. . .. . .. . .. . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " .................................................................................................................................................................................................... ", " . . . . . . . . . . . . . . ", " . . .. .. . .......... . ...... . ........ . . . . .. . ...... . . . . ", " . . .. .. . .......... . ...... . ........ . . . . .. . ...... . . . . ", " . . .. .. . .. . .. .. . .. . . . . .......... . . .......... . . . ", " ... ... . . . . .. .. . .. . .. .. . .. . . . . .......... . . .......... . . . ", " . . . . .. .. . . .......... . .. . .. . .. . ...... . ........ . . .. .. . .......... . .. . ...... . . ", " . . . . . . . . . . . . . . . . . . .......... . .. . .. . .. . ...... . ........ . . .. .. . .......... . .. . ...... . . ", " . . . . . . . . . . . . . . . . .. .. . .. . .. . ...... . .. . .. . .. . .. .. . .. . .......... . .. . . ", " . . . . . . . . . . . . . . . . .. .. . .. . .. . ...... . .. . .. . .. . .. .. . .. . .......... . .. . . ", " . . . . . . . . . . . . .......... . .. . .. . .. . .. . ...... . .. . .. . .. . .. . .... . .. .... . ", " . . . . . . . . . . . . . . . . .......... . .. . .. . .. . .. . ...... . .. . .. . .. . .. . .... . .. .... . ", " . . . . . . . . . . . . . . . . .. .. . .. .. . .. .. . .. . .. .. . .. . .. . .. . .. . .. . .. .. . .. .. .. . ", " . . . . . . . . ... ... . . . . .. .. . .. .. . .. .. . .. . .. .. . .. . .. . .. . .. . .. . .. .. . .. .. .. . ", " . . .. .. . ...... . ...... . ........ . ...... . ........ . ...... . .. . .. . ...... . ...... . .... .. . ", " . . .. .. . ...... . ...... . ........ . ...... . ........ . ...... . .. . .. . ...... . ...... . .... .. . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " .................................................................................................................................................................................................... ", " . . . . . . . . . . . . . . ", " . . .. . .. . ........ . .......... . .. . .. . . . .. . .. . . . ", " . . .. . .. . ........ . .......... . .. . .. . . . .. . .. . . . ", " . . ........ . .... . .. .. . .. . .. . ...... . . . .. . .. . .. .. . ...... . ", " . . ........ . .... . .. .. . .. . .. . ...... . . . .. . .. . .. .. . ...... . ", " ... . ... ... . . .. .. . .. .. . .. .. . .. . .... .. . .. . . .......... . .. . .......... . .. .. . .. .. . ", " . . .. . . . . . . .. .. . .. .. . .. .. . .. . .... .. . .. . . .......... . .. . .......... . .. .. . .. .. . ", " . . . . . . . . . . . . . . . . . . ...... . .. .. . .. .. . .. . .. .... . .. . . .. . .... . .. .. . .. .. . .. .. . ", " . . . . . . . . . . . . . . . . . ...... . .. .. . .. .. . .. . .. .... . .. . . .. . .... . .. .. . .. .. . .. .. . ", " . . . . . . . . . . . . . . . . . .. .. . .......... . .. .. . .. . .. .. . .. . .. . .. . .. .. . .. .. . .. .... . .. .. . ", " . . . . . . . . . . . . . .. .. . .......... . .. .. . .. . .. .. . .. . .. . .. . .. .. . .. .. . .. .... . .. .. . ", " . . . . . . . . . . . . . . . . . ........ . .. . .. .. . .. . .. .. . .. .. . .. . .. . .. . .. . ...... .. . .... .... . ", " . . . . . . . . . . . . . . . . . ........ . .. . .. .. . .. . .. .. . .. .. . .. . .. . .. . .. . ...... .. . .... .... . ", " . . . . . . . . ... . ... ... . . .. . .. . ........ . .. . ........ . .... . .. . .......... . .. . .. . .. . . ", " . . .. . .. . ........ . .. . ........ . .... . .. . .......... . .. . .. . .. . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " .................................................................................................................................................................................................... ", " . . . . . . . . . . . . . . ", " . . .... . .......... . .......... . .. .. . . . . .. . .. . . . .. .. . ", " . . .... . .......... . .......... . .. .. . . . . .. . .. . . . .. .. . ", " . . .... .. . .. . .. . .. .. . . . . .......... . .. . ...... . . . ", " . . .... .. . .. . .. . .. .. . . . . .......... . .. . ...... . . . ", " ... . ... . . . .. . ........ . .. . .. .. . ...... . .. .. . . .. . .......... . .. . ........ . .. .. . ", " . . .. . . .. . . .. . ........ . .. . .. .. . ...... . .. .. . . .. . .......... . .. . ........ . .. .. . ", " . . . . . . . . . . . . . . . . . . .. . .. . ........ . .. .. . .. .. . .. .. . .... . .... . .. . .. . .. .. . .. .. . ", " . . . . . . . . . . . . . . . . .. . .. . ........ . .. .. . .. .. . .. .. . .... . .... . .. . .. . .. .. . .. .. . ", " . . . . . . . . . . . . . . . . .. . .. . .. . .. .. . .......... . .. .. . .... . .. .. . .. . .. . .. .. . .. .. . ", " . . . . . . . . . . . . .. . .. . .. . .. .. . .......... . .. .. . .... . .. .. . .. . .. . .. .. . .. .. . ", " . . . . . . . . . . . . . . . . .. .... . .. .. . .. . .. .. . .. . .. .... . . .. .. . .. . .. . .. .. . .. .... . ", " . . . . . . . . . . . . . . . . .. .... . .. .. . .. . .. .. . .. . .. .... . . .. .. . .. . .. . .. .. . .. .... . ", " . . . . . . . . ... . ... . . . .... . ...... . .......... . ...... . ...... . .... .. . . .. . .. . .......... . ...... . .... .. . ", " . . .... . ...... . .......... . ...... . ...... . .... .. . . .. . .. . .......... . ...... . .... .. . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " .................................................................................................................................................................................................... ", " . . . . . . . . . . . . . . ", " . . .... . .... . .......... . .. .. . .... . . . .. . . . . .......... . ", " . . .... . .... . .......... . .. .. . .... . . . .. . . . . .......... . ", " . . .. .. . .. . .. . .. .. . .. .. . . .......... . .......... . ...... . .......... . .... . .. . ", " . . .. .. . .. . .. . .. .. . .. .. . . .......... . .......... . ...... . .......... . .... . .. . ", " . . .. .. . .. . .. . .. .. . .. . .. .. . .. . .. .. . . .. . .. .. . .. . ", " ... . . ... . . .. .. . .. . .. . .. .. . .. . .. .. . .. . .. .. . . .. . .. .. . .. . ", " . . .. .. . . . . .. . ........ . ........ . .. .. . ...... . .. .. . .......... . .. .. . . .......... . .. .. . .. . ", " . . . . . . . . . . . . . . . . . . .. . ........ . ........ . .. .. . ...... . .. .. . .......... . .. .. . . .......... . .. .. . .. . ", " . . . . . . . . . . . . . . . . .. .. .. . .. .. . .. . .. .. . .. . .. .. . .. . .. .. . . .. . .. .. . .. . ", " . . . . . . . . . . . . . . . . .. .. .. . .. .. . .. . .. .. . .. . .. .. . .. . .. .. . . .. . .. .. . .. . ", " . . . . . . . . . . . . .. .. . .. .. . .. . .. .. . .. . .. .. . .. . .. .. . . .. . ........ . .. . ", " . . . . . . . . . . . . . . . . .. .. . .. .. . .. . .. .. . .. . .. .. . .. . .. .. . . .. . ........ . .. . ", " . . . . . . . . . . . . . . . . .... .. . ...... . .. . .. . .. . .. . .. . .. .. . .......... . .......... . .. . .......... . ", " . . . . . . . . ... . . ... . . .... .. . ...... . .. . .. . .. . .. . .. . .. .. . .......... . .......... . .. . .......... . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " .................................................................................................................................................................................................... ", " . . . . . . . . . . . . . . ", " . . .... . .......... . ...... . .. .. . ........ . . . .. . . ...... . . . ", " . . .... . .......... . ...... . .. .. . ........ . . . .. . . ...... . . . ", " . . .. . .. . .. .. . .. .. . .. .. . . . .......... . .......... . . ........ . .......... . ", " . . .. . .. . .. .. . .. .. . .. .. . . . .......... . .......... . . ........ . .......... . ", " . . .. . .. . .. . .. .. . .. .. . .. .. . .......... . .. . .. . .......... . .. .. . .. .. . ", " ... . . . . . .. . .. . .. . .. .. . .. .. . .. .. . .......... . .. . .. . .......... . .. .. . .. .. . ", " . . .. .. .. . . . .. . .. ...... . .. .. .. . ........ . .. .. . .. . .......... . .. .. . .. . .. .. . .. .. . ", " . . . . . . . . . . . . . . . . . . . .. . .. ...... . .. .. .. . ........ . .. .. . .. . .......... . .. .. . .. . .. .. . .. .. . ", " . . . . . . . . . . . . . . . . .. . .. .. . .. .. .. . .. . .. .. .. . .... . .. . .. . .. . .. .. . .. .. . ", " . . . . . . . . . . . . . . . . .. . .. .. . .. .. .. . .. . .. .. .. . .... . .. . .. . .. . .. .. . .. .. . ", " . . . . . . . . . . . . .. . .. .. . .. .. .. . .. . .. .. .. . .. . .. . .. .. . .. . ........ . .. .... . ", " . . . . . . . . . . . . . . . . .. . .. .. . .. .. .. . .. . .. .. .. . .. . .. . .. .. . .. . ........ . .. .... . ", " . . . . . . . . . . . . . . . . .. . ........ . .. .. . ...... . .. .. . .. . .. . .. . .. . .. . . ", " . . . . . . . . ... . . . . . . .. . ........ . .. .. . ...... . .. .. . .. . .. . .. . .. . .. . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " .................................................................................................................................................................................................... ", " . . . . . . . . . . . . . . ", " . . .. . ...... . .. .. . .. .. . .. . . . . .. . .. .. . . .......... . ", " . . .. . ...... . .. .. . .. .. . .. . . . . .. . .. .. . . .......... . ", " . . .. . .. .. . .. .. . .. .. . .. . . . ........ . .......... . .. .. . . . ", " . . .. . .. .. . .. .. . .. .. . .. . . . ........ . .......... . .. .. . . . ", " . . .. . .. .. . .. .. . .. .. . .. .... . .. .. . .. . .. .. . .. . .. .. . ...... . .. .. . ", " . ... ... ... . . .. . .. .. . .. .. . .. .. . .. .... . .. .. . .. . .. .. . .. . .. .. . ...... . .. .. . ", " .. . . . . . . . . .. . ...... . .......... . .. . .... .. . .. .. . .. . .. .. . .. . .. .. . .. . .. .. . ", " . . . . . . . . . . . . . . . . . . .. . ...... . .......... . .. . .... .. . .. .. . .. . .. .. . .. . .. .. . .. . .. .. . ", " . . . . . . . . . . . . . . . . . .. . .. .. . .. .. . .. .. . .. .. . .. . .... . .. . ...... . .. . .. . .. . ", " . . . . . . . . . . . . . . . . . .. . .. .. . .. .. . .. .. . .. .. . .. . .... . .. . ...... . .. . .. . .. . ", " . . . . . . . . . . . . . .. . .. .. . .. .. . .. .. . .. .. . .. .. . .. .. . .. . .. .. .. . .. . .. .. . .. .. . ", " . . . . . . . . . . . . . . . . . .. . .. .. . .. .. . .. .. . .. .. . .. .. . .. .. . .. . .. .. .. . .. . .. .. . .. .. . ", " . . . . . . . . . . . . . . . . . .. . ...... . .. .. . .. .. . .. .. . .. .. . .. . .... . .. . .. . .. . .. .. . ", " . . . . . . . . . ... ... ... . . .. . ...... . .. .. . .. .. . .. .. . .. .. . .. . .... . .. . .. . .. . .. .. . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " .................................................................................................................................................................................................... ", " . . . . . . . . . . . . . . ", " . . .. . ...... . ...... . .. .. . .. . . . .. . .. . . .. . . ", " . . .. . ...... . ...... . .. .. . .. . . . .. . .. . . .. . . ", " . . .. . .. .. . .. . .. .. . . . . ........ . .. . .. . .... .. . .. .. . ", " . . .. . .. .. . .. . .. .. . . . . ........ . .. . .. . .... .. . .. .. . ", " . ... ... . . . .. . .. .. . .. . .. .. . .... . .. .. . .. . .. .. . .. . .. .. . .. . .. .. . ", " .. . . . . .. . . .. . .. .. . .. . .. .. . .... . .. .. . .. . .. .. . .. . .. .. . .. . .. .. . ", " . . . . . . . . . . . . . . . . . . .. . ........ . .. . .. .. . .. . .. .. . .......... . .. . .. . .. .. . . .. .. . ", " . . . . . . . . . . . . . . . . .. . ........ . .. . .. .. . .. . .. .. . .......... . .. . .. . .. .. . . .. .. . ", " . . . . . . . . . . . . . . . . .. . .. . .. . .. . .. . ........ . .. .. . .. . .. . .. .. .. . . .. .. . ", " . . . . . . . . . . . . .. . .. . .. . .. . .. . ........ . .. .. . .. . .. . .. .. .. . . .. .. . ", " . . . . . . . . . . . . . . . . .. . .. . .. . .. . .. . .. . .. . .. . .. . .. .. .. . . ........ . ", " . . . . . . . . . . . . . . . . .. . .. . .. . .. . .. . .. . .. . .. . .. . .. .. .. . . ........ . ", " . . . . . . . . . ... ... . . . .. . .... . ...... . .. . ...... . ...... . .... . .. . .. . .. .... . . .. . ", " . . .. . .... . ...... . .. . ...... . ...... . .... . .. . .. . .. .... . . .. . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " .................................................................................................................................................................................................... ", " . . . . . . . . . . . . . . ", " . . . . ...... . .......... . .. . . . . . . .. . .. . ", " . . . . ...... . .......... . .. . . . . . . .. . .. . ", " . . .. . .... . .. . .. . . . . .......... . .. . .. . . ........ . ", " . . .. . .... . .. . .. . .... . . . .......... . .. . .. . . ........ . ", " . ... . ... . . .. .. .. . .... . .. . .. . .... . .......... . . .. . .. . .. . .... . .. . ", " .. . . .. . . . . .. .. .. . .... . .. . .. . .. . .......... . . .. . .. . .. . .... . .. . ", " . . . . . . . . . . . . . . . . . . ...... . . .. . .. . .. . .. . .......... . .. . .. .. . .. .. . .. . .......... . ", " . . . . . . . . . . . . . . . . ...... . . .. . .. . .. . .. . .......... . .. . .. .. . .. .. . .. . .......... . ", " . . . . . . . . . . . . . . . . .. .. .. . .... . .. . .. . .. . .. . .. . .. . .. .. . .. .. . .. . .. . ", " . . . . . . . . . . . . .. .. .. . .... . .. . .. . .. . .. . .. . .. . .. .. . .. .. . .. . .. . ", " . . . . . . . . . . . . . . . . .. . .... . .. .. . .. . .. .. . .. . .. . .. . .. .. . .. .. . .. . .. . ", " . . . . . . . . . . . . . . . . .. . .... . .. .. . .. . .. .. . .. . .. . .. . .. .. . .. .. . .. . .. . ", " . . . . . . . . . ... . ... . . . . .... . .......... . .... . .......... . .......... . .......... . .. .. . .... . .. . . ", " . . . . .... . .......... . .... . .......... . .......... . .......... . .. .. . .... . .. . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " .................................................................................................................................................................................................... ", " . . . . . . . . . . . . . . ", " . . . . .. .. . ...... . .. . .. . . .. .. . .. . . . . ", " . . . . .. .. . ...... . .. . .. . . .. .. . .. . . . . ", " . . .. . .... . .. .. . .. . .. . .. . . .......... . .. . .......... . .. .. . .......... . ", " . ... . . . . .. . .... . .. .. . .. . .. . .. . . .......... . .. . .......... . .. .. . .......... . ", " .. . . .. .. . . .. . .... . .. .. . .. . .. .. . .. . .. . .. .. . .......... . .. .. . .. . .. . ", " . . . . . . . . . . . . . . . . . . .. . .... . .. .. . .. . .. .. . .. . .. . .. .. . .......... . .. .. . .. . .. . ", " . . . . . . . . . . . . . . . .......... . . .... . .. . .. .. . .. . .......... . .. .. . .. . .. .. . .. .. . ........ . ", " . . . . . . . . . . . . . . . .......... . . .... . .. . .. .. . .. . .......... . .. .. . .. . .. .. . .. .. . ........ . ", " . . . . . . . . . . . .. . .... . .. .. . .. . .... . .. . .... . .. . .. . .. .. . . .. .. . ", " . . . . . . . . . . . . . . . .. . .... . .. .. . .. . .... . .. . .... . .. . .. . .. .. . . .. .. . ", " . . . . . . . . . . . . . . . .. . .. . .. .. . .. . .. .. . .. . .. .. . .. . .. . .. .. . . .. .. . ", " . . . . . . . . . ... . . . . .. . .. . .. .. . .. . .. .. . .. . .. .. . .. . .. . .. .. . . .. .. . ", " . . . .. . .. .. . ...... . .. .. . .. . .. .. . .. . ........ . .......... . . . ", " . . . .. . .. .. . ...... . .. .. . .. . .. .. . .. . ........ . .......... . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " .................................................................................................................................................................................................... ", " . . . . . . . . . . . . . . ", " . . . .. . .. . .. .. . .... . .. . . . . . .. . . ", " . . . .. . .. . .. .. . .... . .. . . . . . .. . . ", " . . . .. . .. . .. .. . .. . .. . . .... . .......... . .......... . ...... . . ", " . . ... ... . . . .. . .. . .. .. . .. . .. . . .... . .......... . .......... . ...... . .......... . ", " .. .. . . . . . . . .. . .. . .......... . .. . .. . .. . .. . .. . .. .. . .. .. . .......... . ", " . . . . . . . . . . . . . . . . . . . .. . .. . .......... . .. . .. . .. . .. . .. . .. .. . .. .. . .. .. .. . ", " . . . . . . . . . . . . . . . . . .. . .. . .. . .. . .. . .......... . .... .. . .. . .. .. . .. .. .. . .. .. .. . ", " . . . . . . . . . . . . . . . . . .. . .. . .. . .. . .. . .......... . .... .. . .. . .. .. . .. .. .. . .......... . ", " . . . . . . . . . . . . .... . .. . .. . .......... . .. . .. . .. .. . .. . .. . .. . ...... . .......... . ", " . . . . . . . . . . . . . . . . .... . .. . .. . .......... . .. . .. . .. .. . .. . .. . .. . ...... . .. .. . ", " . . . . . . . . . . . . . . . . .. . .. . .. . .. . .. . .. . .. .. . .. . .. . .. . .. . .. .. . ", " . . . . . . . . . . ... ... . . .. . .. . .. . .. . .. . .. . .. .. . .. . .. . .. . .. . .. .. . ", " . . .. . .. . .......... . .. . ...... . .. . .. . ...... . .... . .. . . .. .. . ", " . . .. . .. . .......... . .. . ...... . .. . .. . ...... . .... . .. . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " .................................................................................................................................................................................................... ", " . . . . . . . . . . . . . . ", " . . . . .. .. . ...... . . .. . . . . . .. . . ", " . . . . .... .... . ...... . . .. . . . . . .. . . ", " . . ... . . . . . .... .... . .. . . .. . . .......... . .. . .... . .. . . ", " .. .. . . .. . . . . .. .. .. . .. . . .. . . .......... . .. . .... . .. . . ", " . . . . . . . . . . . . . . . . . . . .......... . .. .. .. . .. . .... .. . .. . . .. . .. .. . . ...... . .. . ", " . . . . . . . . . . . . . . . . .......... . .. .. . .. . .... .. . .. . . .. . .. .. . . ...... . .. . ", " . . . . . . . . . . . . . . . .......... . . .. .. . .. . .. .. .. . .. . ...... . .. . .. . .. . .. . . ", " . . . . . . . . . . . .......... . . .. .. . .. . .. .. .. . .. . ...... . .. . .. . .. . .. . . ", " . . . . . . . . . . . . . . . . .......... . .. .. . .. . .. .. .. . .. . .. . .. . .. . .. . ...... . .......... . ", " . . . . . . . . . . . . . . . . .......... . .. .. . .. . .. .. .. . .. . .. . .. . .. . .. . ...... . .......... . ", " . . . . . . . . . . ... . . . . . .. .. . .. . .. .. . .. . .. . .. .. . .. . .. . .. . . ", " . . . . .. .. . .. . .. .. . .. . .. . .. .. . .. . .. . .. . . ", " . . . . .. .. . ...... . .. .. . .. . .......... . .. .. . . ...... . ........ . .. . ", " . . . . .. .. . ...... . .. .. . .. . .......... . .. .. . . ...... . ........ . .. . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " .................................................................................................................................................................................................... ", " . . . . . . . . . . . . . . ", " . . . .. . .. .. . .. . . . . .. . .. . .. . ...... . . ", " . . . .. . .. .. . .. . . . . .. . .. . .. . ...... . . ", " . . . ... . . . .. . .. .. . .. .. . . .. . . .......... . .......... . .. .. . . . ", " .. .. .. . . . . . .. . .. .. . .. .. . . .. . . .......... . .......... . .. .. . . . ", " . . . . . . . . . . . . . . . . . . . .. . .... .. . .. .. . .. .... . .. . ........ . .. .. . .. . .. . .. .... . . ", " . . . . . . . . . . . . . . . . .. . .... .. . .. .. . .. .... . .. . ........ . .. .. . .. . .. . .. .... . . ", " . . . . . . . . . . . . . . . . .. . .. .. .. . . .... .. . .......... . .. . .. .. . .. . . .... .. . . ", " . . . . . . . . . . . . .. . .. .. .. . . .... .. . .......... . .. . .. .. . .. . . .... .. . . ", " . . . . . . . . . . . . . . . . .. . .. .... . . .. .. . .. . ........ . .. . .. .. .. . . .. .. . . ", " . . . . . . . . . . . . . . . . .. . .. .... . . .. .. . .. . ........ . .. . .. .. .. . . .. .. . . ", " . . . . . . . . . . . ... . . .... . .. . .. .. . . .. .. . .. . .. . .. . .. .. .. . . .. .. . . ", " . . .... . .. . .. .. . . .. .. . .. . .. . .. . .. .. .. . . .. .. . . ", " . . .... . .. . .. .. . . .. .. . . ........ . ...... . .. . . .. .. . . ", " . . .... . .. . .. .. . . .. .. . . ........ . ...... . .. . . .. .. . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " .................................................................................................................................................................................................... ", " . . . . . . . . . . . . . . ", " . . . ...... . ...... . . . . . . . ...... . .. .. . .......... . ", " . . . . . . . ...... . ...... . . . . . . . ...... . .. .. . .......... . ", " .. .. .. .. . . .. . .. .. . .. .. . . . .. . . .. .. . .......... . .. .. . . .......... . ", " . . . . . . . . . . . . . . . . . . .. . .. .. . .. .. . . . .. . . .. .. . .......... . .. .. . . .......... . ", " . . . . . . . . . . . . . . .. . .. . .. .. . . ...... . .. . . .. .. . .. . ...... . ...... . .......... . ", " . . . . . . . . . . . . . . .. . .. . .. .. . . ...... . .. . . .. .. . .. . ...... . ...... . .......... . ", " . . . . . . . . . . .. . .. . .. .. . . .. .. . .......... . .. .. .. . .. .. . .. . . .. .. . .......... . ", " . . . . . . . . . . . . . . .. . .. . .. .. . . .. .. . .......... . .. .. .. . .. .. . .. . . .. .. . .......... . ", " . . . . . . . . . . . . . . .. . .. . .. .. . . .. .. . .. . .. .. .. . .. . .. .. . . .. .. . .......... . ", " . . . . . . . . . . . . . . .. . .. . .. .. . . .. .. . .. . .. .. .. . .. . .. .. . . .. .. . .......... . ", " . . .. . . .. .. . . .. .. . .. . .. . .. . .. . . .. .. . .......... . ", " . . .. . . .. .. . . .. .. . .. . .. . .. . .. . . .. .. . .......... . ", " . . . .. . ...... . .......... . ...... . . .... . .... . .. . . ...... . .......... . ", " . . . .. . ...... . .......... . ...... . . .... . .... . .. . . ...... . .......... . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " . . . . . . . . . . . . . . ", " .................................................................................................................................................................................................... ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " "}; gpsim-0.27.0/extras/lcd/lcd.h0000644000076400007640000001705111374140075012641 00000000000000/* Copyright (C) 1998,1999,2000 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __LCD_H__ #define __LCD_H__ //#include "state_machine.h" #include #include #include #include #include #include class LcdDisplay; class LCD_InputPin; class HD44780; // Create an interface to the simulator class LCD_Interface : public Interface { private: LcdDisplay *lcd; public: //virtual void UpdateObject (gpointer xref,int new_value); //virtual void RemoveObject (gpointer xref); virtual void SimulationHasStopped (gpointer object); //virtual void NewProcessor (unsigned int processor_id); //virtual void NewModule (Module *module); //virtual void NodeConfigurationChanged (Stimulus_Node *node); //virtual void NewProgram (unsigned int processor_id); virtual void Update (gpointer object); LCD_Interface(LcdDisplay *_gp); }; typedef char _5X7 [7][6]; class LcdFont { public: gint num_elements; GdkPixmap **pixmaps; GdkWindow *mywindow; // stashed to allow font regenaration //CreateFont(GtkWidget *, LcdDisplay *); LcdFont(gint, GtkWidget *, LcdDisplay *); void update_pixmap(int, _5X7 *, LcdDisplay *); GdkPixmap *getPixMap(unsigned int); }; //------------------------------------------------------------------------ // // lcd tracing // class LcdDisplay; class LcdTraceType : public TraceType { public: LcdDisplay *lcd; LcdTraceType(LcdDisplay *_lcd, unsigned int s) : TraceType(s, "LCD"), lcd(_lcd) { } virtual TraceObject *decode(unsigned int tbi) = 0; }; class LcdWriteTT : public LcdTraceType { public: LcdWriteTT(LcdDisplay *lcd, unsigned int s); virtual TraceObject *decode(unsigned int tbi); virtual int dump_raw(unsigned tbi, char *buf, int bufsize); }; class LcdReadTT : public LcdTraceType { public: LcdReadTT(LcdDisplay *lcd, unsigned int s); virtual TraceObject *decode(unsigned int tbi); virtual int dump_raw(unsigned tbi, char *buf, int bufsize); }; class LcdTraceObject : public TraceObject { public: LcdDisplay *lcd; LcdTraceObject(LcdDisplay *_lcd) : TraceObject() , lcd(_lcd) { } virtual void print(FILE *)=0; }; class LcdWriteTO : public LcdTraceObject { public: LcdWriteTO(LcdDisplay *_lcd); virtual void print(FILE *); }; class LcdReadTO : public LcdTraceObject { public: LcdReadTO(LcdDisplay *_lcd); virtual void print(FILE *); }; // // State Machine Events // enum ControlLineEvent { ERD = 0, ERC, EWD, EWC, eRD, eRC, eWD, eWC, DataChange, BAD_EVENT }; class SMObject { public: char *nameP; // Object name SMObject(void) { nameP = NULL; }; SMObject(char *_nameP) { cout << "SMObject constructor\n"; if(_nameP) nameP = strdup(_nameP); else nameP = NULL; }; ~SMObject(void) { if(nameP) free(nameP); }; const char *get_name(void) { return nameP; }; void new_name(char *nP) { if(nameP) free(nameP); nameP = strdup(nP); }; }; class SMEvent : public SMObject { public: ControlLineEvent e; SMEvent(ControlLineEvent _e,char *_nameP): SMObject(_nameP) {e = _e;}; SMEvent(char *_nameP=NULL) : SMObject(_nameP) {e = BAD_EVENT;}; void init(ControlLineEvent _e,char *_nameP) { e = _e; new_name(_nameP); }; }; // // State Machine States // enum State { POWERON, ST_INITIALIZED, ST_COMMAND_PH0, ST_STATUS_READ, ST_DATA_READ, //_8BITMODE_START, //_8BITMODE, }; enum ePins { eDC, eE, eRW }; //======================================================================== class LcdDisplay : public Module { public: #define _8BIT_MODE_FLAG (1<<0) #define LARGE_FONT_MODE_FLAG (1<<1) #define _2LINE_MODE_FLAG (1<<2) #define DISPLAY_ON_FLAG (1<<3) #define CURSOR_ON_FLAG (1<<4) #define BLINK_ON_FLAG (1<<5) LCD_Interface *interface; State current_state, previous_state; ControlLineEvent last_event; // int mode_flag; int data_latch; int data_latch_phase; int debug; SMEvent ControlEvents[8]; struct { int row; int col; } cursor; // // Here's the graphical portion // GdkGC *gc; guint rows,cols; // e.g. 2x20 would be 2 rows, 20 columns #define TWO_ROWS_IN_ONE 1 unsigned disp_type; struct { // Resolution in lcd pixels e.g. 5x7 gint x; gint y; } dots; struct { // Resolution in crt pixels - scaled gint x; gint y; } pixels; gfloat contrast; // pixel on/off ratio LcdFont *fontP; GdkColor *dot_color; // LCD pixel color (controlled by contrast) //gint **ch_data; gchar *title; GtkWidget *window; GtkWidget *darea; gint w_width,w_height; // // Tracing // TraceType *readTT, *writeTT; TraceType *getWriteTT(); TraceType *getReadTT(); // // Graphics member functions // void set_pixel_resolution(gint _x=5, gint _y=7) { dots.x =_x; dots.y = _y; }; void set_crt_resolution(gint _x=3, gint _y=3) { pixels.x = _x; pixels.y= _y; }; void set_contrast(gfloat _contrast=1.0) { contrast = _contrast; }; gint get_char_width(void) { return (1+dots.x * pixels.x); }; gint get_char_height(void) { return (dots.y * pixels.y); }; gint get_border(void) { return 5; }; GdkPixmap *get_pixmap(gint row, gint col); void move_cursor(unsigned int new_row, unsigned int new_column); void clear_display(void); void write_data(int new_data); LcdDisplay(const char *, int aRows, int aCols, unsigned aType=0); ~LcdDisplay(); void CreateGraphics (void); //void InitStateMachine(void); //void test(void); void build_window( void ); void update(void); void update( GtkWidget *drawable, guint max_width, guint max_height); void update_cgram_pixmaps(void); // Inheritances from the Package class virtual void create_iopin_map(void); // Inheritance from Module class const virtual char *type(void) { return ("lcd_display"); }; static Module *construct(const char *new_name); void testHD44780(); bool dataBusDirection(); void UpdatePinState(ePins, char); protected: LCD_InputPin *m_E; LCD_InputPin *m_RW; LCD_InputPin *m_DC; PortRegister *m_dataBus; HD44780 *m_hd44780; unsigned int m_controlState; bool cgram_updated; }; class LcdDisplayDisplaytech161A : public LcdDisplay { public: LcdDisplayDisplaytech161A(const char *, int aRows, int aCols, unsigned aType); ~LcdDisplayDisplaytech161A(); // Inheritance from Module class const virtual char *type(void) { return ("lcd_dt161A"); }; static Module *construct(const char *new_name); }; // bit flags that can be set in the GPSIM_LCD_DEBUG environment variable #define LCD_DEBUG_ENABLE 0x01 // Enable debug printfs #define LCD_DEBUG_DUMP_PINS 0x02 // Dump changes in the LCD pins #define LCD_DEBUG_TRACE_DATA 0x04 // Trace changes in CGRAM/DDRAM #define LCD_DEBUG_TRACE_PORT 0x08 // Trace data on port #endif // __LCD_H__ gpsim-0.27.0/extras/lcd/lcdfont.h0000644000076400007640000005322110416272313013524 00000000000000#define FONT_LEN 256 _5X7 test[FONT_LEN] = { { /* 0 */ " ", " ", " ", " ", " ", " ", " ", }, { /* 1 */ " ", " ", " ", " ", " ", " ", " ", }, { /* 2 */ " ", " ", " ", " ", " ", " ", " ", }, { /* 3 */ " ", " ", " ", " ", " ", " ", " ", }, { /* 4 */ " ", " ", " ", " ", " ", " ", " ", }, { /* 5 */ " ", " ", " ", " ", " ", " ", " ", }, { /* 6 */ " ", " ", " ", " ", " ", " ", " ", }, { /* 7 */ " ", " ", " ", " ", " ", " ", " ", }, { /* 8 */ " ", " ", " ", " ", " ", " ", " ", }, { /* 9 */ " ", " ", " ", " ", " ", " ", " ", }, { /* a */ " ", " ", " ", " ", " ", " ", " ", }, { /* b */ " ", " ", " ", " ", " ", " ", " ", }, { /* c */ " ", " ", " ", " ", " ", " ", " ", }, { /* d */ " ", " ", " ", " ", " ", " ", " ", }, { /* e */ " ", " ", " ", " ", " ", " ", " ", }, { /* f */ " ", " ", " ", " ", " ", " ", " ", }, { /* 10 */ "", "", "", "", "", "", "", }, { /* 11 */ "", "", "", "", "", "", "", }, { /* 12 */ "", "", "", "", "", "", "", }, { /* 13 */ "", "", "", "", "", "", "", }, { /* 14 */ "", "", "", "", "", "", "", }, { /* 15 */ "", "", "", "", "", "", "", }, { /* 16 */ "", "", "", "", "", "", "", }, { /* 17 */ "", "", "", "", "", "", "", }, { /* 18 */ "", "", "", "", "", "", "", }, { /* 19 */ "", "", "", "", "", "", "", }, { /* 1a */ "", "", "", "", "", "", "", }, { /* 1b */ "", "", "", "", "", "", "", }, { /* 1c */ "", "", "", "", "", "", "", }, { /* 1d */ "", "", "", "", "", "", "", }, { /* 1e */ "", "", "", "", "", "", "", }, { /* 1f */ "", "", "", "", "", "", "", }, { /* 20 */ " ", " ", " ", " ", " ", " ", " ", }, { /* 21 */ " . ", " . ", " . ", " . ", " . ", " ", " . ", }, { /* 22 */ " . . ", " . . ", " . . ", " ", " ", " ", " ", }, { /* 23 */ " . . ", " . . ", ".....", " . . ", ".....", " . . ", " . . ", }, { /* 24 */ " . ", " ....", ". . ", " ... ", " . .", ".... ", " . ", }, { /* 25 */ ".. ", ".. .", " . ", " . ", " . ", ". ..", " ..", }, { /* 26 */ " .. ", ". . ", ". . ", " . ", ". . .", ". . ", " .. .", }, { /* 27 */ " .. ", " . ", " . ", " ", " ", " ", " ", }, { /* 28 */ " . ", " . ", " . ", " . ", " . ", " . ", " . ", }, { /* 29 */ " . ", " . ", " . ", " . ", " . ", " . ", " . ", }, { /* 2a */ " ", " . ", ". . .", " ... ", ". . .", " . ", " ", }, { /* 2b */ " ", " . ", " . ", ".....", " . ", " . ", " ", }, { /* 2c */ " ", " ", " ", " ", " .. ", " . ", " . ", }, { /* 2d */ " ", " ", " ", ".....", " ", " ", " ", }, { /* 2e */ " ", " ", " ", " ", " ", " .. ", " .. ", }, { /* 2f */ " ", " .", " . ", " . ", " . ", ". ", " ", }, { /* 30 */ " ... ", ". .", ". ..", ". . .", ".. .", ". .", " ... ", }, { /* 31 */ " . ", " .. ", " . ", " . ", " . ", " . ", " ... ", }, { /* 32 */ " ... ", ". .", " .", " . ", " . ", " . ", ".....", }, { /* 33 */ ".....", " . ", " . ", " . ", " .", ". .", " ... ", }, { /* 34 */ " . ", " .. ", " . . ", ". . ", ".....", " . ", " . ", }, { /* 35 */ ".....", ". ", ".... ", " .", " .", ". .", " ... ", }, { /* 36 */ " .. ", " . ", ". ", ".... ", ". .", ". .", " ... ", }, { /* 37 */ ".....", " .", " . ", " . ", " . ", " . ", " . ", }, { /* 38 */ " ... ", ". .", ". .", " ... ", ". .", ". .", " ... ", }, { /* 39 */ " ... ", ". .", ". .", " ....", " .", " . ", " .. ", }, { /* 3a */ " ", " .. ", " .. ", " ", " .. ", " .. ", " ", }, { /* 3b */ " ", " .. ", " .. ", " ", " .. ", " . ", " . ", }, { /* 3c */ " . ", " . ", " . ", ". ", " . ", " . ", " . ", }, { /* 3d */ " ", " ", ".....", " ", ".....", " ", " ", }, { /* 3e */ ". ", " . ", " . ", " . ", " . ", " . ", ". ", }, { /* 3f */ " ... ", ". .", " .", " . ", " . ", " ", " . ", }, { /* 40 */ " ... ", ". .", " .", " .. .", ". . .", ". . .", " ... ", }, { /* 41 */ " ... ", ". .", ". .", ". .", ".....", ". .", ". .", }, { /* 42 */ ".... ", ". .", ". .", ".... ", ". .", ". .", ".... ", }, { /* 43 */ " ... ", ". .", ". ", ". ", ". ", ". .", " ... ", }, { /* 44 */ ".... ", ". .", ". .", ". .", ". .", ". .", ".... ", }, { /* 45 */ ".....", ". ", ". ", ".... ", ". ", ". ", ".....", }, { /* 46 */ ".....", ". ", ". ", ".... ", ". ", ". ", ". ", }, { /* 47 */ " ... ", ". .", ". ", ". ...", ". .", ". .", " ....", }, { /* 48 */ ". .", ". .", ". .", ".....", ". .", ". .", ". .", }, { /* 49 */ " ... ", " . ", " . ", " . ", " . ", " . ", " ... ", }, { /* 4a */ " ...", " . ", " . ", " . ", " . ", ". . ", " .. ", }, { /* 4b */ ". .", ". . ", ". . ", ".. ", ". . ", ". . ", ". .", }, { /* 4c */ ". ", ". ", ". ", ". ", ". ", ". ", ".....", }, { /* 4d */ ".. ..", ". . .", ". .", ". .", ". .", ". .", ". .", }, { /* 4e */ ". .", ". .", ".. .", ". . .", ". ..", ". .", ". .", }, { /* 4f */ " ... ", ". .", ". .", ". .", ". .", ". .", " ... ", }, { /* 50 */ ".... ", ". .", ". .", ".... ", ". ", ". ", ". ", }, { /* 51 */ " ... ", ". .", ". .", ". .", ". . .", ". . ", " .. .", }, { /* 52 */ ".... ", ". .", ". .", ".... ", ". . ", ". . ", ". .", }, { /* 53 */ " ....", ". ", ". ", " ... ", " .", " .", ".... ", }, { /* 54 */ ".....", " . ", " . ", " . ", " . ", " . ", " . ", }, { /* 55 */ ". .", ". .", ". .", ". .", ". .", ". .", " ... ", }, { /* 56 */ ". .", ". .", ". .", ". .", ". .", " . . ", " . ", }, { /* 57 */ ". .", ". .", ". .", ". . .", ". . .", ". . .", " . . ", }, { /* 58 */ ". .", ". .", " . . ", " . ", " . . ", ". .", ". .", }, { /* 59 */ ". .", ". .", ". .", " . . ", " . ", " . ", " . ", }, { /* 5a */ ".....", " .", " . ", " . ", " . ", ". ", ".....", }, { /* 5b */ " ... ", " . ", " . ", " . ", " . ", " . ", " ... ", }, { /* 5c */ ". .", " . . ", ".....", " . ", ".....", " . ", " . ", }, { /* 5d */ " ... ", " . ", " . ", " . ", " . ", " . ", " ... ", }, { /* 5e */ " . ", " . . ", ". .", " ", " ", " ", " ", }, { /* 5f */ " ", " ", " ", " ", " ", " ", ".....", }, { /* 60 */ " . ", " . ", " . ", " ", " ", " ", " ", }, { /* 61 */ " ", " ", " ... ", " .", " ....", ". .", " ....", }, { /* 62 */ ". ", ". ", ". .. ", ".. .", ". .", ". .", ".... ", }, { /* 63 */ " ", " ", " ... ", ". ", ". ", ". .", " ... ", }, { /* 64 */ " .", " .", " .. .", ". ..", ". .", ". .", " ....", }, { /* 65 */ " ", " ", " ... ", ". .", ".....", ". ", " ... ", }, { /* 66 */ " .. ", " . .", " . ", "... ", " . ", " . ", " . ", }, { /* 67 */ " ....", ". .", ". .", " ....", " .", " .", " ... ", }, { /* 68 */ ". ", ". ", ". .. ", ".. .", ". .", ". .", ". .", }, { /* 69 */ " . ", " ", " .. ", " . ", " . ", " . ", " ... ", }, { /* 6a */ " . ", " .. ", " . ", " . ", " . ", ". . ", " .. ", }, { /* 6b */ ". ", ". ", ". . ", ". . ", ".. ", ". . ", ". . ", }, { /* 6c */ " .. ", " . ", " . ", " . ", " . ", " . ", " ... ", }, { /* 6d */ " ", " ", ".. . ", ". . .", ". . .", ". .", ". .", }, { /* 6e */ " ", " ", ". .. ", ".. .", ". .", ". .", ". .", }, { /* 6f */ " ", " ", " ... ", ". .", ". .", ". .", " ... ", }, { /* 70 */ " ", " ", ".... ", ". .", ".... ", ". ", ". ", }, { /* 71 */ " ", " ", " .. .", ". ..", " ....", " .", " .", }, { /* 72 */ " ", " ", ". .. ", ".. .", ". ", ". ", ". ", }, { /* 73 */ " ", " ", " ....", ". ", " ... ", " .", ".... ", }, { /* 74 */ " . ", "... ", " . ", " . ", " . ", " . .", " .. ", }, { /* 75 */ " ", " ", ". .", ". .", ". .", ". ..", " .. .", }, { /* 76 */ " ", " ", ". .", ". .", ". .", " . . ", " . ", }, { /* 77 */ " ", " ", ". .", ". .", ". . .", ". . .", " . . ", }, { /* 78 */ " ", " ", ". .", " . . ", " . ", " . . ", ". .", }, { /* 79 */ " ", " ", ". .", ". .", " ....", " .", " ... ", }, { /* 7a */ " ", " ", ".....", " . ", " . ", " . ", ".....", }, { /* 7b */ " . ", " . ", " . ", " . ", " . ", " . ", " . ", }, { /* 7c */ " . ", " . ", " . ", " . ", " . ", " . ", " . ", }, { /* 7d */ " . ", " . ", " . ", " . ", " . ", " . ", " . ", }, { /* 7e */ " ", " . ", " . ", ".....", " . ", " . ", " ", }, { /* 7f */ " ", " . ", " . ", ".....", " . ", " . ", " ", }, { /* 80 */ "", "", "", "", "", "", "", }, { /* 81 */ "", "", "", "", "", "", "", }, { /* 82 */ "", "", "", "", "", "", "", }, { /* 83 */ "", "", "", "", "", "", "", }, { /* 84 */ "", "", "", "", "", "", "", }, { /* 85 */ "", "", "", "", "", "", "", }, { /* 86 */ "", "", "", "", "", "", "", }, { /* 87 */ "", "", "", "", "", "", "", }, { /* 88 */ "", "", "", "", "", "", "", }, { /* 89 */ "", "", "", "", "", "", "", }, { /* 8a */ "", "", "", "", "", "", "", }, { /* 8b */ "", "", "", "", "", "", "", }, { /* 8c */ "", "", "", "", "", "", "", }, { /* 8d */ "", "", "", "", "", "", "", }, { /* 8e */ "", "", "", "", "", "", "", }, { /* 8f */ "", "", "", "", "", "", "", }, { /* 90 */ "", "", "", "", "", "", "", }, { /* 91 */ "", "", "", "", "", "", "", }, { /* 92 */ "", "", "", "", "", "", "", }, { /* 93 */ "", "", "", "", "", "", "", }, { /* 94 */ "", "", "", "", "", "", "", }, { /* 95 */ "", "", "", "", "", "", "", }, { /* 96 */ "", "", "", "", "", "", "", }, { /* 97 */ "", "", "", "", "", "", "", }, { /* 98 */ "", "", "", "", "", "", "", }, { /* 99 */ "", "", "", "", "", "", "", }, { /* 9a */ "", "", "", "", "", "", "", }, { /* 9b */ "", "", "", "", "", "", "", }, { /* 9c */ "", "", "", "", "", "", "", }, { /* 9d */ "", "", "", "", "", "", "", }, { /* 9e */ "", "", "", "", "", "", "", }, { /* 9f */ "", "", "", "", "", "", "", }, { /* a0 */ " ", " ", " ", " ", " ", " ", " ", }, { /* a1 */ " ", " ", " ", " ", "... ", ". . ", "... ", }, { /* a2 */ " ...", " . ", " . ", " . ", " ", " ", " ", }, { /* a3 */ " ", " ", " ", " . ", " . ", " . ", "... ", }, { /* a4 */ " ", " ", " ", " ", ". ", " . ", " . ", }, { /* a5 */ " ", " ", " ", " .. ", " .. ", " ", " ", }, { /* a6 */ " ", ".....", " .", ".....", " .", " . ", " . ", }, { /* a7 */ " ", " ", ".....", " .", " .. ", " . ", " . ", }, { /* a8 */ " ", " ", " . ", " . ", " .. ", ". . ", " . ", }, { /* a9 */ " ", " ", " . ", ".....", ". .", " .", " .. ", }, { /* aa */ " ", " ", " ", ".....", " . ", " . ", ".....", }, { /* ab */ " ", " ", " . ", ".....", " .. ", " . . ", ". . ", }, { /* ac */ " ", " ", " . ", ".....", " . .", " . . ", " . ", }, { /* ad */ " ", " ", " ", " ... ", " . ", " . ", ".....", }, { /* ae */ " ", " ", ".... ", " . ", ".... ", " . ", ".... ", }, { /* af */ " ", " ", " ", ". . .", ". . .", " .", " .. ", }, { /* b0 */ " ", " ", " ", " ", ".....", " ", " ", }, { /* b1 */ ".....", " .", " . .", " .. ", " . ", " . ", " . ", }, { /* b2 */ " .", " . ", " . ", " .. ", ". . ", " . ", " . ", }, { /* b3 */ " . ", ".....", ". .", ". .", " .", " . ", " . ", }, { /* b4 */ " ", " ", ".....", " . ", " . ", " . ", ".....", }, { /* b5 */ " . ", ".....", " . ", " .. ", " . . ", ". . ", " . ", }, { /* b6 */ " . ", ".....", " . .", " . .", " . .", " . .", ". . ", }, { /* b7 */ " . ", ".....", " . ", ".....", " . ", " . ", " . ", }, { /* b8 */ " ", " ....", " . .", ". .", " .", " . ", " .. ", }, { /* b9 */ " . ", " ....", ". . ", " . ", " . ", " . ", " . ", }, { /* ba */ " ", ".....", " .", " .", " .", " .", ".....", }, { /* bb */ " . . ", ".....", " . . ", " . . ", " . ", " . ", " . ", }, { /* bc */ " ", ".. ", " .", ".. .", " .", " . ", "... ", }, { /* bd */ " ", ".....", " .", " . ", " . ", " . . ", ". .", }, { /* be */ " . ", ".....", " . .", " . . ", " . ", " . ", " ...", }, { /* bf */ " ", ". .", ". .", " . .", " .", " . ", " .. ", }, { /* c0 */ " ", " ....", " . .", ". . .", " ..", " . ", " .. ", }, { /* c1 */ " . ", "... ", " . ", ".....", " . ", " . ", " . ", }, { /* c2 */ " ", ". . .", ". . .", " .", " .", " . ", " . ", }, { /* c3 */ " ... ", " ", ".....", " . ", " . ", " . ", " . ", }, { /* c4 */ " . ", " . ", " . ", " .. ", " . . ", " . ", " . ", }, { /* c5 */ " . ", " . ", ".....", " . ", " . ", " . ", ". ", }, { /* c6 */ " ", " ... ", " ", " ", " ", " ", ".....", }, { /* c7 */ " ", ".....", " .", " . . ", " . ", " . . ", ". ", }, { /* c8 */ " . ", ".....", " . ", " . ", " ... ", ". . .", " . ", }, { /* c9 */ " . ", " . ", " . ", " . ", " . ", " . ", " . ", }, { /* ca */ " ", " . ", " . ", ". .", ". .", ". .", ". .", }, { /* cb */ ". ", ". ", ".....", ". ", ". ", ". ", " ....", }, { /* cc */ " ", ".....", " .", " .", " .", " . ", " .. ", }, { /* cd */ " ", " . ", ". . ", " . ", " .", " .", " ", }, { /* ce */ " . ", ".....", " . ", " . ", ". . .", ". . .", " . ", }, { /* cf */ " ", ".....", " .", " .", " . . ", " . ", " . ", }, { /* d0 */ " ", " ... ", " ", " ... ", " ", " ... ", " .", }, { /* d1 */ " ", " . ", " . ", ". ", ". .", ".....", " .", }, { /* d2 */ " ", " .", " .", " . . ", " . ", " . . ", ". ", }, { /* d3 */ " ", ".....", " . ", ".....", " . ", " . ", " ...", }, { /* d4 */ " . ", " . ", ".....", " . .", " . . ", " . ", " . ", }, { /* d5 */ " ", " ... ", " . ", " . ", " . ", " . ", ".....", }, { /* d6 */ " ", ".....", " .", ".....", " .", " .", ".....", }, { /* d7 */ " ... ", " ", ".....", " .", " .", " . ", " . ", }, { /* d8 */ ". . ", ". . ", ". . ", ". . ", " . ", " . ", " . ", }, { /* d9 */ " ", " . ", ". . ", ". . ", ". . .", ". . .", ". .. ", }, { /* da */ " ", ". ", ". ", ". .", ". . ", ". . ", ".. ", }, { /* db */ " ", ".....", ". .", ". .", ". .", ". .", ".....", }, { /* dc */ " ", ".....", ". .", ". .", " .", " . ", " . ", }, { /* dd */ " ", ".. ", " ", " .", " .", " . ", "... ", }, { /* de */ " . ", ". . ", " . ", " ", " ", " ", " ", }, { /* df */ "... ", ". . ", "... ", " ", " ", " ", " ", }, { /* e0 */ " ", " ", " . .", ". . .", ". . ", ". . ", " .. .", }, { /* e1 */ " . . ", " ", " ... ", " .", " ....", ". .", " ....", }, { /* e2 */ " ", " ... ", ". .", ".... ", ". .", ".... ", ". ", }, { /* e3 */ " ", " ", " ... ", ". ", " .. ", ". .", " ... ", }, { /* e4 */ " ", ". .", ". .", ". .", ". ..", "... .", ". ", }, { /* e5 */ " ", " ", " ....", ". . ", ". . ", ". .", " ... ", }, { /* e6 */ " ", " .. ", " . .", ". .", ". .", ".... ", ". ", }, { /* e7 */ " ", " ....", ". .", ". .", ". .", " ....", " .", }, { /* e8 */ " ", " ", " ...", " . ", " . ", ". . ", " . ", }, { /* e9 */ " . ", ".. . ", " . ", " ", " ", " ", " ", }, { /* ea */ " . ", " ", " .. ", " . ", " . ", " . ", " . ", }, { /* eb */ " ", ". . ", " . ", ". . ", " ", " ", " ", }, { /* ec */ " . ", " ... ", ". . ", ". . .", " ... ", " . ", " ", }, { /* ed */ " . ", " . ", "... ", " . ", "... ", " . ", " ....", }, { /* ee */ " ... ", " ", ". .. ", ".. .", ". .", ". .", ". .", }, { /* ef */ " . . ", " ", " ... ", ". .", ". .", ". .", " ... ", }, { /* f0 */ " ", ". .. ", ".. .", ". .", ". .", ".... ", ". ", }, { /* f1 */ " ", " .. .", ". ..", ". .", ". .", " ....", " .", }, { /* f2 */ " ... ", ". .", ".....", ". .", ". .", " ... ", " ", }, { /* f3 */ " ", " ", " ", " ", " . ..", ". . .", ".. . ", }, { /* f4 */ " ", " ... ", ". .", ". .", " . . ", ".. ..", " ", }, { /* f5 */ " . . ", " ", ". .", ". .", ". .", ". ..", " .. .", }, { /* f6 */ ".....", ". ", " . ", " . ", " . ", ". ", ".....", }, { /* f7 */ " ", ".....", " . . ", " . . ", " . . ", ". ..", " ", }, { /* f8 */ ".....", " ", ". .", " . . ", " . ", " . . ", ". .", }, { /* f9 */ " ", ". .", ". .", ". .", ". .", " ....", " .", }, { /* fa */ " .", ".... ", " . ", ".....", " . ", " . ", " ", }, { /* fb */ " ", ".....", " . ", " ....", " . .", ". .", " ", }, { /* fc */ " ", ".....", ". . .", ".....", ". .", ". .", " ", }, { /* fd */ " ", " ", " . ", " ", ".....", " ", " . ", }, { /* fe */ " ", " ", " ", " ", " ", " ", " ", }, { /* ff */ ".....", ".....", ".....", ".....", ".....", ".....", ".....", }, }; gpsim-0.27.0/extras/lcd/README0000644000076400007640000000052110416272313012575 00000000000000lcd-0.2.1 - An LCD emulator for gpsim The purpose of this program is to emulate the ubiquitous character type LCD displays. Most, but not all of the LCD's features are emulated. The notably absent feature is the ability to read the CGRAM and DDRAM. These will get added. See INSTALL for instructions on running the examples. Scott gpsim-0.27.0/extras/lcd/INSTALL0000664000076400007640000000213512122571645012761 00000000000000 Installation instructions ------------------------- You'll need at least gpsim-0.21.2 for this to work. un tar the lcd-0.2.1.tar.gz tarball and then: $ cd lcd-0.2.1 $ make $ su # make install # exit At this point, the LCD module has been compiled and installed as a shared library that can be loaded by gpsim. If you want to see if it works, then run the example: $ cd lcd-0.2.1/examples $ gpasm lcd_mod.asm $ gpsim -c lcd_mod.stc This will assemble the pic assembly code that test the LCD module. This code is fairly complete and can be used as an LCD driver for a real PIC/LCD board. When gpsim comes up, you should see the LCD display. A dark line will appear on the first row just like it does for a real LCD. When the test program is executed, the LCD will be initialized and the message "GPSIM WROTE THIS" will be repeatedly written. The LCD is not automatically updated, so you'll have to force a manual refresh by partially hiding the LCD window and then re-exposing it. This module has been integrated into the gpsim sources, so no seperate processes are required to build or install this module. gpsim-0.27.0/extras/lcd/examples/0000775000076400007640000000000012210742356013622 500000000000000gpsim-0.27.0/extras/lcd/examples/lcd_mod.asm0000644000076400007640000000565110416272313015647 00000000000000 list p=16C64,t=ON,c=132,n=80 title "lcd module test" radix dec ;******************************************************************************** include "p16c64.inc" __CONFIG _CP_OFF & _PWRTE_ON & _WDT_OFF& _HS_OSC ;LCD Module DDRAM Address is formed by adding the row and column EQU SCR_ROW0 EQU 0x00 ;Row 0 starts at LCD DDRAM Address 0 SCR_ROW1 EQU 0x40 ;Row 1 " " 0x40 SCR_COL0 EQU 0x00 START_OF_RAM_LO equ 0x20 END_OF_RAM_LO equ 0x7f START_OF_RAM_HI equ 0xa0 END_OF_RAM_HI equ 0xbf cblock START_OF_RAM_LO test index1,index2 max1,max2 loop_count_lo,loop_count_hi N_4_lo,N_4_hi buffer0,buffer1,buffer2,buffer3 buffer4,buffer5,buffer6,buffer7 LCD_CHAR ;A Temporary register. LCD_CTRL ;YATR LCD_init_loop temp ;Temporary reg tmp ;Temporary reg field_flag endc include "lcd.inc" include "screen.inc" org 0 ;*********************************************************************** Main BCF STATUS,RP0 ;Point to BANK 0 CLRF FSR ;Clear File Select Register CALL Clear_Regs ;Clear General Purpose Registers 20-0x7f, A0-C0 BSF STATUS,RP0 ;Point to BANK 1 MOVLW (1 << T0SE) | (1 << PSA) MOVWF OPTION_REG & 0x7f MOVLW 0x1 ;Make all of PORTA an input MOVWF TRISA ^ 0x80 MOVLW 0 MOVWF TRISB ^ 0x80 MOVLW 0 MOVWF TRISC ^ 0x80 MOVLW 0 MOVWF TRISD ^ 0x80 MOVLW 0 MOVWF TRISE ^ 0x80 BCF STATUS,RP0 ;Point to BANK 0 CALL LCD_INITIALIZE t1 ; CALL LCD_CLEAR_SCREEN movlw 1 call LCD_WRITE_CMD ;; write a string on row 0 movlw LCD_CMD_SET_DDRAM | SCR_ROW0 | SCR_COL0 call LCD_WRITE_CMD movlw 0 call write_string ;; write another string, but to row 1 movlw LCD_CMD_SET_DDRAM | SCR_ROW1 | SCR_COL0 call LCD_WRITE_CMD movlw 1 call write_string goto t1 ;*********************************************************************** ; Clear File Registers 20-0x7fh, A0-C0 in PIC's memory Clear_Regs MOVLW START_OF_RAM_LO ;First regs to clear in Bank 0 MOVWF FSR cr1 CLRF INDF ;Clear reg INCF FSR,F ;point to next reg to clear MOVLW END_OF_RAM_LO+1 ; SUBWF FSR,W SKPC goto cr1 MOVLW START_OF_RAM_HI ;First regs to clear in Bank 1 MOVWF FSR cr2 CLRF INDF ;Clear reg INCF FSR, F ;point to next reg to clear MOVLW END_OF_RAM_HI+1 ; SUBWF FSR,W SKPC goto cr2 RETURN include "lcd.asm" include "screen.asm" END gpsim-0.27.0/extras/lcd/examples/lcd_mod.stc0000644000076400007640000000222710440153302015645 00000000000000# Script for testing modules # # The purpose of this script is to load a simple # program for a PIC, load the gpsim module library, # and illustrate how modules can be connected to pics. set verbose 1 load s lcd_mod.cod set verbose 0 # load the gpsim module library. Not that this is a 'shared library'. # If the library fails to load then 1) it's not installed (try installing # gpsim) 2) or the path to library is not available (see the documentation # on modules). module library libgpsim_lcd # display all of the modules that are in the library: # module list # load a specific module from the module library and give it a name module load lcd_display lcd1 # create nodes that can connect the Pic and the module. node nE node nRW node nDC # Define the data bus nodes. # since we'll only use '4-bit' we won't need all 8 data lines # # node d0 # node d1 # node d2 # node d3 node d4 node d5 node d6 node d7 attach nE portb3 lcd1.E attach nRW portb2 lcd1.RW attach nDC portb1 lcd1.DC # 4-bit mode - only the upper half of the data # bus needs to be connected. attach d4 portb4 lcd1.d4 attach d5 portb5 lcd1.d5 attach d6 portb6 lcd1.d6 attach d7 portb7 lcd1.d7 gpsim-0.27.0/extras/lcd/examples/Makefile.in0000664000076400007640000003067612210742104015612 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = extras/lcd/examples DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am README ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ EXTRA_DIST = lcd_mod.asm lcd_mod.stc \ lcd.asm lcd.inc \ screen.asm screen.inc \ p16c64.inc \ README MOSTLYCLEANFILES = *.hex *.cod *.lst *~ CLEANFILES = *.hex *.cod *.lst *~ DISTCLEANFILES = *.hex *.cod *.lst *~ MAINTAINERCLEANFILES = *.hex *.cod *.lst *~ all: all-am .SUFFIXES: $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu extras/lcd/examples/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu extras/lcd/examples/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags TAGS: ctags CTAGS: cscope cscopelist: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: -test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES) clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES) clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ cscopelist-am ctags-am distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags-am uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/extras/lcd/examples/screen.inc0000644000076400007640000000606010416272313015511 00000000000000 ;Screens ; ; ;*********************************************************************** ;Screen driver EQUates FIELD_START_ADDR EQU 0x14 ;Screen objects 2 or 3 bytes ; first byte FRTCCCCC ; F = 1 if this the last screen object in a list of screen objects ; R = Row location. 0 = Row 0, 1 = Row 1 ; CCCCC = Column location 0 = column 0, 0x13 = column 19 ; T = Type of object. 0 = String object, 1 = Field Object ; Second byte ; If the object is a string object (T=0), then this byte is the string number ; that the object references. ; Otherwise, if this object is a field object (T=1), then this byte defines the ; the type of the field with the following bit definition: ; xMESHHLx ; x = don't care ; M = Edit Mode. M=1 means field is being edited. ; E = Editable. If E=1 the object can be edited. ; S = Size of Variable reference by the variable pointer. S=0 for a byte S=1 for a word ; HH = 1x Display as Hex ; = 01 Display as Decimal ; = 00 Display as Decimal, but first, scale Hex value to decimal ; L = Suppress leading zeroes. ; Third byte (Field objects only) ; For field objects, this byte is pointer to the variable that is to be displayed in ; the field. SCR_IS_STRING_OBJECT EQU 0x00 SCR_IS_FIELD_OBJECT EQU 0x20 SCR_IS_EDITABLE EQU 0x20 SCR_IS_EDITABLEb EQU 5 SCR_IS_WORD EQU 0x10 SCR_IS_BYTE EQU 0x00 SCR_IS_WORDb EQU 4 SCR_IS_HEX EQU 0x08 SCR_IS_HEXb EQU 3 SCR_IS_DEC EQU 0x00 SCR_IS_SCALED EQU 0x04 SCR_IS_SCALEDb EQU 2 SCR_NO_ZEROES EQU 0x02 SCR_NO_ZEROESb EQU 1 ;LCD Module DDRAM Address is formed by adding the row and column EQU SCR_ROW0 EQU 0x00 ;Row 0 starts at LCD DDRAM Address 0 SCR_ROW1 EQU 0x40 ;Row 1 " " 0x40 SCR_COL0 EQU 0x00 SCR_COL1 EQU 0x01 SCR_COL2 EQU 0x02 SCR_COL3 EQU 0x03 SCR_COL4 EQU 0x04 SCR_COL5 EQU 0x05 SCR_COL6 EQU 0x06 SCR_COL7 EQU 0x07 SCR_COL8 EQU 0x08 SCR_COL9 EQU 0x09 SCR_COL10 EQU 0x0a SCR_COL11 EQU 0x0b SCR_COL12 EQU 0x0c SCR_COL13 EQU 0x0d SCR_COL14 EQU 0x0e SCR_COL15 EQU 0x0f SCR_COL16 EQU 0x10 SCR_COL17 EQU 0x11 SCR_COL18 EQU 0x12 SCR_COL19 EQU 0x13 SCR_STRING_OBJECT macro row, column, string_num RETLW row | column RETLW string_num endm SCR_FIELD_OBJECT macro row, column, variable_ptr, type RETLW row | column | SCR_IS_FIELD_OBJECT RETLW type RETLW variable_ptr endm SCR_NULL_OBJECT macro RETLW 0xff endm gpsim-0.27.0/extras/lcd/examples/Makefile.am0000644000076400007640000000040710416272313015572 00000000000000EXTRA_DIST = lcd_mod.asm lcd_mod.stc \ lcd.asm lcd.inc \ screen.asm screen.inc \ p16c64.inc \ README MOSTLYCLEANFILES = *.hex *.cod *.lst *~ CLEANFILES = *.hex *.cod *.lst *~ DISTCLEANFILES = *.hex *.cod *.lst *~ MAINTAINERCLEANFILES = *.hex *.cod *.lst *~ gpsim-0.27.0/extras/lcd/examples/README0000644000076400007640000000071310416272313014416 00000000000000LCD Example This is a full-blown example of an PIC LCD interface. It's here to illustrace the LCD module interface to gpsim. However, the code doesn't know it's running on a module! In other words, you can use this code in a real PIC driving a real LCD. --------- Building The Makefile in this directory is for the top level packager. So to "build" the project, do this: $ gpasm lcd_mod.asm This should assemble with no errors. $ gpsim -c lcd_mod.stc gpsim-0.27.0/extras/lcd/examples/lcd.asm0000644000076400007640000002501610416272313015005 00000000000000;******************************************************************************** ; ; The file contains code to control an LCD module. ; ; T. Scott Dattalo ; ;******************************************************************************** ;******************************************************************* ; ; EQUates T0CKI equ H'0004' UF_SELECTED_FIELD equ 0x0f UF_SELECT_MODE equ 4 UF_EDIT_MODE equ 5 UF_ON_SELECTED_FIELD equ 6 UF_IS_EDITABLE equ 7 UF_SELECT_NEXT equ 0 UF_SELECT_PREV equ 1 ;******************************************************************* ; ;LCD_INITIALIZE ; Right now, the display could be either in 8-bit mode if we ; just powered up, or it could be in 4-bit mode if we just ; experienced a reset. So to begin, we have to initialize the ; display to a known state: the 8-bit mode. This is done by ; sending the LCD command "Function Set" with the 8-bit mode ; bit set. We need to do this 3 times! LCD_INITIALIZE ;Initialize the LCD_PORT control and data lines to outputs MOVLW ~LCD_CONTROL_MASK ANDWF LCD_CONTROL_PORT,F ;Clear the control lines BSF STATUS, RP0 ;Select Register page 1 ANDWF LCD_CONTROL_TRIS,F ;Make LCD_PORT IO lines outputs BCF STATUS, RP0 ;Select Register page 0 MOVLW ~LCD_DATA_MASK ANDWF LCD_DATA_PORT,F ;Clear the control lines BSF STATUS, RP0 ;Select Register page 1 ANDWF LCD_DATA_TRIS,F ;Make LCD_PORT IO lines outputs BCF STATUS, RP0 ;Select Register page 0 MOVLW 3 MOVWF LCD_init_loop ;Use temp as a loop counter BCF LCD_CONTROL_PORT, LCD_E BCF LCD_CONTROL_PORT, LCD_RS BCF LCD_CONTROL_PORT, LCD_R_W init_8bit: CALL LCD_DELAY MOVF LCD_DATA_PORT,W ANDLW ~LCD_DATA_MASK IORLW (LCD_CMD_FUNC_SET | LCD_8bit_MODE) >> LCD_DATA_SHIFT MOVWF LCD_DATA_PORT ;Put command on the bus GOTO $+1 BSF LCD_CONTROL_PORT, LCD_E ;Enable the LCD, i.e. write the command. GOTO $+1 ;NOP's are only needed for 20Mhz crystal GOTO $+1 BCF LCD_CONTROL_PORT, LCD_E ;Disable the LCD DECFSZ LCD_init_loop, F GOTO init_8bit ;We should now have the LCD module in 8-bit mode. Now let's put it in 4-bit mode CALL LCD_DELAY MOVF LCD_DATA_PORT,W ANDLW ~LCD_DATA_MASK IORLW (LCD_CMD_FUNC_SET | LCD_4bit_MODE) >> LCD_DATA_SHIFT MOVWF LCD_DATA_PORT ;Put command on the bus GOTO $+1 BSF LCD_CONTROL_PORT, LCD_E ;Enable the LCD, i.e. write the command. GOTO $+1 ;NOP's are only needed for 20Mhz crystal GOTO $+1 BCF LCD_CONTROL_PORT, LCD_E ;Disable the LCD CALL LCD_DELAY ;Now we are in 4-bit mode. This means that all reads and writes of bytes have to be done ;a nibble at a time. But that's all taken care of by the read/write functions. ;Set up the display to have 2 lines and the small (5x7 dot) font. MOVLW LCD_CMD_FUNC_SET | LCD_4bit_MODE | LCD_2_LINES | LCD_SMALL_FONT CALL LCD_WRITE_CMD ;Turn on the display and turn off the cursor. Set the cursor to the non-blink mode MOVLW LCD_CMD_DISPLAY_CTRL | LCD_DISPLAY_ON | LCD_CURSOR_OFF | LCD_BLINK_OFF CALL LCD_WRITE_CMD ;Clear the display memory. This command also moves the cursor to the home position. MOVLW LCD_CMD_CLEAR_DISPLAY CALL LCD_WRITE_CMD ;Set up the cursor mode. MOVLW LCD_CMD_ENTRY_MODE | LCD_INC_CURSOR_POS | LCD_NO_SCROLL CALL LCD_WRITE_CMD ;Set the Display Data RAM address to 0 MOVLW LCD_CMD_SET_DDRAM CALL LCD_WRITE_CMD CALL LCD_CLEAR_SCREEN RETURN ;******************************************************************* ;LCD_DELAY ; This routine takes the calculated times that the delay loop needs to ;be executed, based on the LCD_INIT_DELAY EQUate that includes the ;frequency of operation. ; LCD_DELAY MOVLW LCD_INIT_DELAY ; A_DELAY MOVWF tmp ; Use tmp and temp CLRF temp ; LOOP2 DECFSZ temp, F ; Delay time = tmp * ((3 * 256) + 3) * Tcy GOTO LOOP2 ; = tmp * 154.2 (20Mhz clock) DECFSZ tmp, F ; GOTO LOOP2 ; RETURN ;******************************************************************* ;LCD_TOGGLE_E ; This routine toggles the "E" bit (enable) on the LCD module. The contents ;of W contain the state of the R/W and RS bits along with the data that's ;to be written (that is if data is to be written). The contents of the LCD port ;while E is active are returned in W. LCD_TOGGLE_E BCF LCD_CONTROL_PORT,LCD_E ;Make sure E is low ; movlw 0 LTE1: GOTO $+1 ;Delays needed primarily for 10Mhz and faster clocks GOTO $+1 GOTO $+1 BTFSC LCD_CONTROL_PORT, LCD_E ;E is low the first time through the loop goto LTE2 BSF LCD_CONTROL_PORT, LCD_E ;Make E high and go through the loop again GOTO LTE1 LTE2: ; addlw 1 ; skpz ; goto LTE2 MOVF LCD_DATA_PORT, W ;Read the LCD Data bus ANDLW LCD_DATA_MASK ;We're only interested in the data lines BCF LCD_CONTROL_PORT, LCD_E ;Turn off E RETURN LCD_DROP_E BCF LCD_CONTROL_PORT,LCD_E ;Make sure E is low GOTO $+1 ;Delays needed primarily for 10Mhz and faster clocks GOTO $+1 GOTO $+1 GOTO $+1 RETURN LCD_RAISE_E BSF LCD_CONTROL_PORT,LCD_E ;Make sure E is high GOTO $+1 ;Delays needed primarily for 10Mhz and faster clocks GOTO $+1 GOTO $+1 GOTO $+1 RETURN ;******************************************************************* ;LCD_WRITE_DATA - Sends a character to LCD ; This routine splits the character into the upper and lower ;nibbles and sends them to the LCD, upper nibble first. ; ; Memory used: ; LCD_CHAR, ; Calls ; LCD_TOGGLE_E ; LCD_WRITE_DATA MOVWF LCD_CHAR ;Character to be sent is in W CALL LCD_BUSY_CHECK ;Wait for LCD to be ready BSF LCD_CONTROL_PORT,LCD_RS BCF LCD_CONTROL_PORT,LCD_R_W LCD_WRITE if LCD_DATA_MASK == 0x0f SWAPF LCD_CHAR,F endif ;First, write the upper nibble CALL LCD_RAISE_E MOVF LCD_CHAR, w ANDLW LCD_DATA_MASK MOVWF temp MOVF LCD_DATA_PORT,W ANDLW ~LCD_DATA_MASK IORWF temp,W MOVWF LCD_DATA_PORT ;CALL LCD_TOGGLE_E CALL LCD_DROP_E ;Next, write the lower nibble CALL LCD_RAISE_E SWAPF LCD_CHAR, w ANDLW LCD_DATA_MASK MOVWF temp MOVF LCD_DATA_PORT,W ANDLW ~LCD_DATA_MASK IORWF temp,W MOVWF LCD_DATA_PORT ;GOTO LCD_TOGGLE_E GOTO LCD_DROP_E ;******************************************************************* ;LCD_WRITE_CMD ; ; This routine splits the command into the upper and lower ;nibbles and sends them to the LCD, upper nibble first. LCD_WRITE_CMD MOVWF LCD_CHAR ;Character to be sent is in W CALL LCD_BUSY_CHECK ;Wait for LCD to be ready ;Both R_W and RS should be low BCF LCD_CONTROL_PORT,LCD_RS BCF LCD_CONTROL_PORT,LCD_R_W GOTO LCD_WRITE ;******************************************************************* ;LCD_READ_DATA ;This routine will read 8 bits of data from the LCD. Since we're using ;4-bit mode, two passes have to be made. On the first pass we read the ;upper nibble, and on the second the lower. ; LCD_READ_DATA CALL LCD_BUSY_CHECK ;For a data read, RS and R/W should be high BSF LCD_CONTROL_PORT,LCD_RS BSF LCD_CONTROL_PORT,LCD_R_W LCD_READ BSF STATUS, RP0 ;Select Register page 1 MOVF LCD_DATA_TRIS,W ;Get the current setting for the whole register IORLW LCD_DATA_MASK ;Set the TRIS bits- make all of the data MOVWF LCD_DATA_TRIS ; lines inputs. BCF STATUS, RP0 ;Select Register page 0 CALL LCD_TOGGLE_E ;Toggle E and read upper nibble MOVWF tmp ;Save the upper nibble CALL LCD_TOGGLE_E ;Toggle E and read lower nibble MOVWF temp ;Save the lower nibble SWAPF temp, W ;Put the lower nibble of data in lower half of W IORWF tmp, F ;Combine nibbles BSF STATUS, RP0 ;Select Register page 1 MOVLW ~LCD_DATA_MASK ;Clear the TRIS bits- make all of the data ANDWF LCD_DATA_TRIS,F ; lines outputs. BCF STATUS, RP0 ;Select Register page 0 MOVF tmp,W if LCD_DATA_MASK == 0x0f SWAPF tmp,W endif RETURN ;******************************************************************* ;LCD_BUSY_CHECK ;This routine checks the busy flag, returns when not busy LCD_BUSY_CHECK ;For a busy check, RS is low and R/W is high BCF LCD_CONTROL_PORT,LCD_RS BSF LCD_CONTROL_PORT,LCD_R_W CALL LCD_READ ANDLW 0x80 ;Check busy flag, high = busy SKPNZ RETURN MOVLW 5 CALL A_DELAY GOTO LCD_BUSY_CHECK ;If busy, check again ;******************************************************************* ;LCD_CLEAR_SCREEN LCD_CLEAR_SCREEN MOVLW 20-1 MOVWF buffer0 MOVLW LCD_CMD_SET_DDRAM | SCR_ROW0 | SCR_COL0 lcs1: CALL LCD_WRITE_CMD lcs2: MOVLW 0x20 ;ASCII space CALL LCD_WRITE_DATA DECF buffer0,W MOVWF buffer0 BTFSS buffer0,6 ;See if we generated a borrow goto lcs2 BTFSS buffer0,7 ;First time through, borrow should be in 7 too RETURN MOVLW 20-1 + 0x80 ;Reload count and set bit 7 (borrow will clear it) MOVWF buffer0 MOVLW LCD_CMD_SET_DDRAM | SCR_ROW1 | SCR_COL0 GOTO lcs1 gpsim-0.27.0/extras/lcd/examples/lcd.inc0000644000076400007640000000716210416272313015000 00000000000000 ;******************************************************************* ; ; LCD ; The information for the LCD software comes from several places: Microchip's AN587, ; Optrex Data Book, Christopher J. Burian's LCD Technical FAQ, and Peer Ouwehand's "How to ; Control HD44780-based Character-LCD". ; ; Microchip can be reached at ; http://www.ultranet.com/biz/mchip/ ; Burian's FAQ is located at ; http://www.paranoia.com/~filipg/HTML/LINK/F_LCD_tech.html ; Ouwehand's document is located at ; http://www.iaehv.nl/users/pouweha/lcd.htm ; ;******************************************************************* Dev_Tcyc EQU 400 ;Tcyc = 400 ns, Instruction Cycle time Inner_delay EQU (256*3 + 3)*Dev_Tcyc ;The amount of time spent in inner delay loop LCD_INIT_DELAY EQU 15000000/Inner_delay ;15ms LCD_CONTROL_PORT EQU PORTB ;LCD control lines interface to PORTB LCD_DATA_PORT EQU PORTB ;PORTB<7:4> == LCD_DB<7:4> (4 bit mode) LCD_E EQU 3 ;PORTB<1> == LCD Enable control line LCD_Eb EQU (1< == LCD Read/Write control line LCD_RS EQU 1 ;PORTB<3> == LCD Register Select control line LCD_CONTROL_MASK EQU (1<> 6 ;The program divides the shifting as follows so that carries are automatically ;taken care of: ; d = (h + (h + (h>>3)) >> 1) >> 2 ; ;Inputs: W - should contain 'h', the hexadecimal value to be scaled ;Outputs: W - The scaled hexadecimal value is returned in W ;Memory: temp ;Calls: none scale_hex2dec ifdef __scale_hex2dec__ MOVWF temp ;Hex value is in W. CLRC ;Clear the Carry bit so it doesn't affect RRF RRF temp,F CLRC RRF temp,F CLRC RRF temp,F ;temp = h>>3 ADDWF temp,F ;temp = h + (h>>3) RRF temp,F ;temp = (h + (h>>3)) >> 1 ADDWF temp,F ;temp = h + ((h + (h>>3)) >> 1) RRF temp,F CLRC RRF temp,W ;d = W = (h + (h + (h>>3)) >> 1) >> 2 endif RETURN ;******************************************************************* ;write_word_as_hex ; The purpose of this routine is to convert the word pointed to by W to a ;4 digit ASCII string representing the hexadecimal value of the word. ;Note, words are stored in RAM with the least significant byte first. ; ; Memory used ; buffer2 ; Calls ; write_byte_as_hex ; write_word_as_hex ifdef __write_word_as_hex__ ifndef __write_byte_as_hex__ #define __write_byte_as_hex__ 1 endif MOVWF FSR ;W points to the word MOVWF buffer2 ;Save a copy of the pointer INCF FSR, F ;Point to the MSB MOVF INDF,W ;Get the MSB CALL write_byte_as_hex ;And print it. MOVF buffer2,W ;Get pointer to the word. MOVWF FSR ;W now points to the LSB MOVF INDF,W ;Get the LSB goto write_byte_as_hex ;And print it. else RETURN endif ;******************************************************************* ;write_byte_as_hex ; ; The purpose of this routine is to convert the byte in W to a 2 digit ;ASCII string representing the hexadecimal value of the byte. For example, ;0xf9 is converted to 0x45 0x39. The ASCII digits are then written to the ;LCD module. ; ; Memory used ; buffer0, string_number ; Calls ; LCD_WRITE_DATA ; write_byte_as_hex ifdef __write_byte_as_hex__ CLRF buffer0 ;Used as temporary storage to keep track of loop count MOVWF buffer1 ;Save byte to be written here wbah1: SWAPF buffer1,W ;Write the high nibble first. ANDLW 0x0f ;Get the lower nibble of W ADDLW -0xa ;If it is >= 0xa, then BTFSC STATUS, C ; the carry will get set. ADDLW 'A'-'9' - 1 ;The digit is between 0xa and 0xf ADDLW '9'+ 1 ;Convert it to ASCII CALL LCD_WRITE_DATA BTFSC buffer0,1 ;This bit is clear the first time through the loop. RETURN SWAPF buffer1,F ;Get the low nibble BSF buffer0,1 ;Set so next time through we will return. goto wbah1 else RETURN endif ;******************************************************************* ;write_byte_as_dec ; ; The purpose of this routine is to convert a byte to a 3 digit ASCII string ;representing the decimal value of the byte. For example, 0xff = 255 is converted ;to 0x32 0x35 0x35. ; ; Memory used ; buffer0 - buffer5 ; Calls ; BCD_2_ASCII, BCD_adjust ; write_byte_as_dec BCF STATUS,C ;Clear the carry so the first shift is not corrupted CLRF buffer0 CLRF buffer1 CLRF buffer2 CLRF buffer3 MOVWF buffer4 ;Save copy of input MOVLW 6 ; MOVWF buffer5 ;Number of times we'll loop. RLF buffer4,F ;The first two shifts do not need BCD adjusting RLF buffer1,F RLF buffer4,F RLF buffer1,F wbad1 RLF buffer4,F RLF buffer1,F RLF buffer0,F DECFSZ buffer5,F goto wbad2 MOVLW buffer1+1 MOVWF FSR MOVF buffer1,W CALL BCD_2_ASCII MOVLW '0' ADDWF buffer0,F GOTO write_buffer wbad2 MOVLW buffer1 CALL BCD_adjust GOTO wbad1 ;******************************************************************* ;BCD_2_ASCII ; ; The purpose of this routine is to convert the BCD byte in W into two ASCII bytes. The ; ASCII data is written to the indirect address contained in FSR. ; ; Memory used ; temp ; Calls ; none ; Inputs ; W = BCD data ; FSR = points to where ASCII data is to be written ; BCD_2_ASCII MOVWF temp ANDLW 0x0f ADDLW '0' MOVWF INDF DECF FSR,F SWAPF temp,W ANDLW 0x0f ADDLW '0' MOVWF INDF RETURN ;******************************************************************* ;write_word_as_dec ; ; Memory used ; buffer0 - buffer5 ; Calls ; BCD_2_ASCII, BCD_adjust ; Inputs ; FSR = pointer to the word to be written ; write_word_as_dec CLRF buffer0 CLRF buffer1 CLRF buffer2 MOVWF FSR ;Save copy of input MOVF INDF,W ;Get the Least significant Byte MOVWF buffer3 INCF FSR,F MOVF INDF,W ;Get the MSB MOVWF buffer4 MOVLW 14 ; MOVWF buffer5 ;Number of times we'll loop. BCF STATUS,C ;Clear the carry so the first shift is not corrupted RLF buffer3,F ;The first two shifts do not need BCD adjusting RLF buffer4,F RLF buffer2,F RLF buffer3,F RLF buffer4,F RLF buffer2,F wwad1 RLF buffer3,F RLF buffer4,F RLF buffer2,F RLF buffer1,F RLF buffer0,F DECFSZ buffer5,F goto wwad2 MOVLW buffer3+1 MOVWF FSR MOVF buffer2,W CALL BCD_2_ASCII MOVLW buffer1+1 MOVWF FSR MOVF buffer1,W CALL BCD_2_ASCII MOVLW '0' ADDWF buffer0,F GOTO write_buffer wwad2 MOVLW buffer2 CALL BCD_adjust MOVLW buffer1 CALL BCD_adjust GOTO wwad1 ;******************************************************************* ;BCD_adjust ; ; This routine will 'adjust' the byte that W points to to BCD. The ;algorithm is based on converting hexadecimal into decimal. Normally, to ;convert a hex digit (i.e. a nibble) to binary coded decimal, you add ;6 to it if it is greater than or equal 0xa. So, 0x0 through 0x9 convert ;to 0 through 9 while 0xa through 0xf convert to 0x10 through 0x15. ;Now, this routine adds 3 instead of 6. Also, instead of checking ;to see if the digit is >= 0xa, this routine checks for > 0x7. However, ;the caller will perform a left shift after calling this routine. Thus, ;the 3 is multiplyed by two to get 6. BCD_adjust MOVWF FSR MOVLW 0x03 ADDWF INDF,F BTFSS INDF,3 SUBWF INDF,F MOVLW 0x30 ADDWF INDF,F BTFSS INDF,7 SUBWF INDF,F RETURN ;******************************************************************* ;write_buffer ; ; The purpose of this routine is to display the contents of 'buffer' on ;the LCD module. buffer0 is the first element of the string. The string ;is assumed to be zero terminated. If it isn't, then the whole buffer will ;get displayed. (Note, there's a check to insure that no more than 'buffer' ;is written.) ; ; Memory used ; buffer0 ; Calls ; LCD_WRITE_DATA ; write_buffer MOVLW buffer0 ;Get a pointer to the first buffer location MOVWF FSR ; wb1: MOVF INDF,W ;Get a byte from the buffer BTFSC STATUS,Z ;If it is zero, then that's the last byte RETURN CALL LCD_WRITE_DATA ; INCF FSR,F ;Point to the next buffer entry MOVF FSR,W ; SUBLW buffer7 ;If we're pointing to the last buffer entry BTFSS STATUS,Z ;then we need to quit writing. goto wb1 RETURN ;******************************************************************* ;write_string ; ; The purpose of this routine is to display a string on the LCD module. ;On entry, W contains the string number to be displayed. The current cursor ;location is the destination of the output. ; This routine can be located anywhere in the code space and may be ;larger than 256 bytes. ; ; psuedo code: ; ; char *string0 = "foo"; ; char *string1 = "bar"; ; ; char *strings[] = { string0, string1}; ; char num_strings = sizeof(strings)/sizeof(char *); ; ; void write_string(char string_num) ; { ; char *str; ; ; str = strings[string_num % num_strings]; ; ; for( ; *str; str++) ; LCD_WRITE_DATA(*str); ; ; } ; ; Memory used ; buffer2, buffer3 ; Calls ; LCD_WRITE_DATA ; Inputs ; W = String Number ; write_string andlw WS_TABLE_MASK ;Make sure the string is in range movwf buffer3 ;Used as an index into the string table addwf buffer3,w ;to get the string offset ; addlw LOW(ws_table) ;First, get a pointer to the string movwf buffer3 ; ; movlw HIGH(ws_table) ; skpnc ; movlw HIGH(ws_table)+1 ; movwf PCLATH movf buffer3,w call ws2 ;First call is to get string offset in table movwf buffer2 incf PCLATH,f incfsz buffer3,w decf PCLATH,f call ws2 ;get the high word (of the offset) movwf PCLATH ; ws1: ;Now loop through the string movf buffer2,w call ws2 andlw 0xff skpnz ;If the returned byte is zero, return ; we've reached the end call LCD_WRITE_DATA incf PCLATH,f ;Point to the next character in the string incfsz buffer2,f decf PCLATH,f goto ws1 ws2 movwf PCL WS_TABLE_MASK equ 1 ; This should equal 2^number of strings ; The first part of the table contains pointers to the start of the ; strings. Note that each string has a two word pointer for the low ; and high bytes. ws_table: retlw LOW(string0) retlw HIGH(string0) retlw LOW(string1) retlw HIGH(string1) string0: dt "GPSIM WROTE THIS",0 string1: dt "A STRING ON ROW 2",0 gpsim-0.27.0/extras/lcd/examples/p16c64.inc0000644000076400007640000002155410416272313015162 00000000000000 LIST ; P16C64.INC Standard Header File, Version 1.01 Microchip Technology, Inc. NOLIST ; This header file defines configurations, registers, and other useful bits of ; information for the PIC16C64 microcontroller. These names are taken to match ; the data sheets as closely as possible. ; Note that the processor must be selected before this file is ; included. The processor may be selected the following ways: ; 1. Command line switch: ; C:\ MPASM MYFILE.ASM /PIC16C64 ; 2. LIST directive in the source file ; LIST P=PIC16C64 ; 3. Processor Type entry in the MPASM full-screen interface ;========================================================================== ; ; Revision History ; ;========================================================================== ;Rev: Date: Reason: ;1.01 04/22/96 Added TRISE bits ;1.00 10/31/95 Initial Release ;========================================================================== ; ; Verify Processor ; ;========================================================================== IFNDEF __16C64 MESSG "Processor-header file mismatch. Verify selected processor." ENDIF ;========================================================================== ; ; Register Definitions ; ;========================================================================== W EQU H'0000' F EQU H'0001' ;----- Register Files------------------------------------------------------ INDF EQU H'0000' TMR0 EQU H'0001' PCL EQU H'0002' STATUS EQU H'0003' FSR EQU H'0004' PORTA EQU H'0005' PORTB EQU H'0006' PORTC EQU H'0007' PORTD EQU H'0008' PORTE EQU H'0009' PCLATH EQU H'000A' INTCON EQU H'000B' PIR1 EQU H'000C' TMR1L EQU H'000E' TMR1H EQU H'000F' T1CON EQU H'0010' TMR2 EQU H'0011' T2CON EQU H'0012' SSPBUF EQU H'0013' SSPCON EQU H'0014' CCPR1L EQU H'0015' CCPR1H EQU H'0016' CCP1CON EQU H'0017' OPTION_REG EQU H'0081' TRISA EQU H'0085' TRISB EQU H'0086' TRISC EQU H'0087' TRISD EQU H'0088' TRISE EQU H'0089' PIE1 EQU H'008C' PCON EQU H'008E' PR2 EQU H'0092' SSPADD EQU H'0093' SSPSTAT EQU H'0094' ;----- STATUS Bits -------------------------------------------------------- IRP EQU H'0007' RP1 EQU H'0006' RP0 EQU H'0005' NOT_TO EQU H'0004' NOT_PD EQU H'0003' Z EQU H'0002' DC EQU H'0001' C EQU H'0000' ;----- INTCON Bits -------------------------------------------------------- GIE EQU H'0007' PEIE EQU H'0006' T0IE EQU H'0005' INTE EQU H'0004' RBIE EQU H'0003' T0IF EQU H'0002' INTF EQU H'0001' RBIF EQU H'0000' ;----- PIR1 Bits ---------------------------------------------------------- PSPIF EQU H'0007' SSPIF EQU H'0003' CCP1IF EQU H'0002' TMR2IF EQU H'0001' TMR1IF EQU H'0000' ;----- T1CON Bits --------------------------------------------------------- T1CKPS1 EQU H'0005' T1CKPS0 EQU H'0004' T1OSCEN EQU H'0003' NOT_T1SYNC EQU H'0002' T1INSYNC EQU H'0002' ; Backward compatibility only TMR1CS EQU H'0001' TMR1ON EQU H'0000' ;----- T2CON Bits --------------------------------------------------------- TOUTPS3 EQU H'0006' TOUTPS2 EQU H'0005' TOUTPS1 EQU H'0004' TOUTPS0 EQU H'0003' TMR2ON EQU H'0002' T2CKPS1 EQU H'0001' T2CKPS0 EQU H'0000' ;----- SSPCON Bits -------------------------------------------------------- WCOL EQU H'0007' SSPOV EQU H'0006' SSPEN EQU H'0005' CKP EQU H'0004' SSPM3 EQU H'0003' SSPM2 EQU H'0002' SSPM1 EQU H'0001' SSPM0 EQU H'0000' ;----- CCP1CON Bits ------------------------------------------------------- CCP1X EQU H'0005' CCP1Y EQU H'0004' CCP1M3 EQU H'0003' CCP1M2 EQU H'0002' CCP1M1 EQU H'0001' CCP1M0 EQU H'0000' ;----- OPTION Bits -------------------------------------------------------- NOT_RBPU EQU H'0007' INTEDG EQU H'0006' T0CS EQU H'0005' T0SE EQU H'0004' PSA EQU H'0003' PS2 EQU H'0002' PS1 EQU H'0001' PS0 EQU H'0000' ;----- TRISE Bits --------------------------------------------------------- IBF EQU H'0007' OBF EQU H'0006' IBOV EQU H'0005' PSPMODE EQU H'0004' TRISE2 EQU H'0002' TRISE1 EQU H'0001' TRISE0 EQU H'0000' ;----- PIE1 Bits ---------------------------------------------------------- PSPIE EQU H'0007' SSPIE EQU H'0003' CCP1IE EQU H'0002' TMR2IE EQU H'0001' TMR1IE EQU H'0000' ;----- PCON Bits ---------------------------------------------------------- NOT_POR EQU H'0001' ;----- SSPSTAT Bits ------------------------------------------------------- D EQU H'0005' I2C_DATA EQU H'0005' NOT_A EQU H'0005' NOT_ADDRESS EQU H'0005' D_A EQU H'0005' DATA_ADDRESS EQU H'0005' P EQU H'0004' I2C_STOP EQU H'0004' S EQU H'0003' I2C_START EQU H'0003' R EQU H'0002' I2C_READ EQU H'0002' NOT_W EQU H'0002' NOT_WRITE EQU H'0002' R_W EQU H'0002' READ_WRITE EQU H'0002' UA EQU H'0001' BF EQU H'0000' ;========================================================================== ; ; RAM Definition ; ;========================================================================== __MAXRAM H'BF' __BADRAM H'0D', H'18'-H'1F', H'8D', H'8F'-H'91', H'95'-H'9F' ;========================================================================== ; ; Configuration Bits ; ;========================================================================== _CP_ALL EQU H'3F8F' _CP_75 EQU H'3F9F' _CP_50 EQU H'3FAF' _CP_OFF EQU H'3FBF' _PWRTE_ON EQU H'3FBF' _PWRTE_OFF EQU H'3FB7' _WDT_ON EQU H'3FBF' _WDT_OFF EQU H'3FBB' _LP_OSC EQU H'3FBC' _XT_OSC EQU H'3FBD' _HS_OSC EQU H'3FBE' _RC_OSC EQU H'3FBF' LIST gpsim-0.27.0/extras/lcd/module_manager.cc0000644000076400007640000000476311374155302015221 00000000000000/* Copyright (C) 1998,1999,2000 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* gpsim_modules.cc gpsim supports modules, or thingies, that are not part of gpsim proper. This is to say, that the modules are not compiled and linked with the core gpsim software. Instead, they are compiled and linked separately and then dynamically loaded by gpsim. This approach provides a flexibility to the user to create customized objects for simulation purposes. The big benefit of course, is that the user doesn't have to get bogged down in to the nitty-gritty details of the way gpsim is designed. The templates provided here can serve as a relatively simple example of how one may go about creating customized modules. Please see the README.MODULES for more details on how modules are intended to be used. Here are a list of functions that a gpsim compliant module library should support: void mod_list(void) - Prints a list of the modules in a library Module_Types * get_mod_list(void) - Obtain pointer to the list of modules */ /* IN_MODULE should be defined for modules */ #define IN_MODULE #include #include #include #include #include "config.h" #ifdef HAVE_GUI #include "lcd.h" #endif Module_Types available_modules[] = { #ifdef HAVE_GUI { {"lcd_display", "lcd_2X20"}, LcdDisplay::construct}, { {"lcd_dt161A", "lcd_2X8"}, LcdDisplayDisplaytech161A::construct}, #endif // No more modules { {NULL, NULL}, NULL} }; #ifdef __cplusplus extern "C" { #endif /* __cplusplus */ /******************************************************************************** * get_mod_list - Display all of the modules in this library. * * This is a required function for gpsim compliant libraries. */ Module_Types * get_mod_list(void) { return available_modules; } #ifdef __cplusplus } #endif /* __cplusplus */ gpsim-0.27.0/extras/lcd/lcdgui.cc0000644000076400007640000002470611374155134013513 00000000000000/* lcd.c Copyright (C) 2000 Scott Dattalo This 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 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 lcd.c; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* IN_MODULE should be defined for modules */ #define IN_MODULE #include "config.h" #ifdef HAVE_GUI #include #include "lcd.h" #include "lcdfont.h" #include "hd44780.h" /**************************************************************** * CreateXPMdataFromLCDdata - * * It'd probably be easier to just create pixmaps straight from * xpm maps. However, that would confine the lcd characters to * just one size. This routine will take an lcd character (that * is defined somewhat like a bitmap) and create a pixmap. The * size of the pixmap is determined by the size that display * requires for each cell. (For example, on displays with a 5x7 * cell, the lcd display will map several crt pixels into one * lcd pixel.) */ gchar **CreateXPMdataFromLCDdata(LcdDisplay *lcdP, _5X7 *ch ) { guint i,j,k,rows,cols,m,ii,jj,colors; guint bc,pc; char buffer[256]; gchar **xpm_template; // total rows in the xpm rows = 9 + lcdP->dots.y * lcdP->pixels.y; cols = 1 + lcdP->dots.x * lcdP->pixels.x; xpm_template = (char **)malloc(rows * sizeof(gchar *)); colors = 3; sprintf(buffer, "%d %d %d 1", cols, 1+lcdP->dots.y * lcdP->pixels.y, colors); xpm_template[0] = (gchar *)strdup(buffer); xpm_template[1] = (gchar *)strdup(" c None"); xpm_template[2] = (gchar *)strdup("B c #113311"); xpm_template[3] = (gchar *)strdup("G c #668866"); // xpm_template[4] = (gchar *)strdup("Q c #789878"); for(i=4; idots.y; j++) { k = 5 + lcdP->pixels.y*j; for(i=0; i<(guint)lcdP->dots.x; i++) { pc = (ch[0][j][i] == '.') ? 'B' : ' '; bc = (ch[0][j][i] == '.') ? 'G' : ' '; //m = i*lcdP->pixels.y; m = i*lcdP->pixels.x; for(jj=k; jjpixels.y-1; jj++) { xpm_template[jj][m] = bc; for(ii=m+1; iipixels.x; ii++) xpm_template[jj][ii] = pc; } for(ii=m; iipixels.x; ii++) xpm_template[k+lcdP->pixels.y-1][ii] = bc; } //if we want to have the right edge a different color... //for(jj=k; jjwindow; for(i=0; idot_color, CreateXPMdataFromLCDdata(lcdP,&test[i])); } } void LcdFont::update_pixmap(int pos, _5X7 *tempchar, LcdDisplay *lcdP) { if (pixmaps[pos]) { g_free(pixmaps[pos]); pixmaps[pos] = NULL; } pixmaps[pos] = gdk_pixmap_create_from_xpm_d ( mywindow, NULL, lcdP->dot_color, CreateXPMdataFromLCDdata(lcdP, tempchar)); } GdkPixmap *LcdFont::getPixMap(unsigned int index) { return ( (index < (unsigned int)num_elements) && pixmaps[index]) ? pixmaps[index] : pixmaps[0]; } void LcdDisplay::update_cgram_pixmaps() { int i, j, k; _5X7 tempchar; if (fontP == NULL) return; for (i = 0; i < CGRAM_SIZE / 8; i++) { for (j = 0; j < 7; j++) { for (k = 0; k < 5; k++) { if (m_hd44780->getCGRam(8 * i + j) & (1 << (4 - k))) tempchar[j][k] = '.'; else tempchar[j][k] = ' '; } tempchar[j][5] = 0; } fontP->update_pixmap(i, &tempchar, this); } cgram_updated = false; } GdkPixmap *LcdDisplay::get_pixmap(gint row, gint col) { if (cgram_updated) update_cgram_pixmaps(); return fontP ? fontP->getPixMap(m_hd44780->getDDRam(row,col)) : 0; } static gint lcd_expose_event (GtkWidget *widget, GdkEvent *event, gpointer user_data) { LcdDisplay *lcdP; guint max_width; guint max_height; g_return_val_if_fail (widget != NULL, TRUE); g_return_val_if_fail (GTK_IS_DRAWING_AREA (widget), TRUE); lcdP = (LcdDisplay *)user_data; max_width = widget->allocation.width; max_height = widget->allocation.height; lcdP->update(widget,max_width,max_height); return TRUE; } void LcdDisplay::update( GtkWidget *widget, guint new_width, guint new_height) { GdkDrawable *drawable; GdkGC *lcd_gc; guint i,j; drawable = widget->window; lcd_gc = gdk_gc_new(widget->window); gdk_gc_set_foreground(lcd_gc,dot_color); w_width = new_width; w_height = new_height; gdk_draw_rectangle (drawable, lcd_gc, TRUE, 0, 0, w_width, w_height); // Don't display anything if the display is disabled //if(display_is_off()) // return; // If there is no font, then go create it. if(!fontP) { fontP = new LcdFont(FONT_LEN,widget,this); //CreateFont(widget,this); //,xpm_test); } gint cw = get_char_width(); gint ch = get_char_height(); gint border = get_border(); if (!(disp_type & TWO_ROWS_IN_ONE)) { for(j=0; jwindow,lcd_gc,get_pixmap(j,i), 0,0, border+i*cw, border+j*(ch+border), cw,ch); } else { guint pos; for(pos=0,j=0; jwindow,lcd_gc,get_pixmap(j,i), 0,0, border+pos*cw, border, cw,ch); } } static gint cursor_event (GtkWidget *widget, GdkEvent *event, gpointer *user_data) { if ((event->type == GDK_BUTTON_PRESS) && ((event->button.button == 1) || (event->button.button == 3))) { return TRUE; } return FALSE; } GdkColor *NewColor(gint32 red, gint32 green, gint32 blue) { GdkColor *c = (GdkColor *) g_malloc(sizeof(GdkColor)); c->red = red; c->green = green; c->blue = blue; gdk_colormap_alloc_color(gdk_colormap_get_system(), c, FALSE, TRUE); return c; } /********************************************************** * * */ void LcdDisplay::CreateGraphics (void) { // GtkWidget *window; GtkWidget *main_vbox; GtkWidget *frame; GtkWidget *vbox; char buf[48]; window = gtk_window_new (GTK_WINDOW_TOPLEVEL); if(window) { gtk_window_set_wmclass(GTK_WINDOW(window),type(),"Gpsim"); // // Allocate memory for the LCD font. // sprintf(buf,"%d X %d",rows,cols); if (disp_type & TWO_ROWS_IN_ONE) strcat(buf," (in one row)"); title = (gchar *)strdup(buf); gtk_widget_realize (window); gtk_window_set_title(GTK_WINDOW(window), "LCD"); // gtk_signal_connect (GTK_OBJECT (window), "destroy", // GTK_SIGNAL_FUNC (gtk_main_quit), NULL); main_vbox = gtk_vbox_new (FALSE, 5); gtk_container_set_border_width (GTK_CONTAINER (main_vbox), 0); gtk_container_add (GTK_CONTAINER (window), main_vbox); vbox = gtk_widget_new (gtk_vbox_get_type (), "GtkBox::homogeneous", FALSE, //"GtkBox::spacing", 5, //"GtkContainer::border_width", 10, "GtkWidget::parent", main_vbox, "GtkWidget::visible", TRUE, NULL); frame = gtk_widget_new (gtk_frame_get_type (), "GtkFrame::shadow", GTK_SHADOW_ETCHED_IN, "GtkFrame::label_xalign", 0.5, "GtkFrame::label", title, //"GtkContainer::border_width", 10, "GtkWidget::parent", vbox, "GtkWidget::visible", TRUE, NULL); darea = gtk_drawing_area_new (); if (!(disp_type & TWO_ROWS_IN_ONE)) { gtk_widget_set_usize (darea, cols*get_char_width()+2*get_border(), rows*(get_char_height()+get_border())+get_border()); } else { gtk_widget_set_usize (darea, rows*cols*get_char_width()+2*get_border(), get_char_height()+2*get_border()); } gtk_container_add (GTK_CONTAINER (frame), darea); gtk_signal_connect (GTK_OBJECT (darea), "expose_event", GTK_SIGNAL_FUNC (lcd_expose_event), this); gtk_widget_set_events (darea, GDK_EXPOSURE_MASK | GDK_BUTTON_PRESS_MASK); gtk_signal_connect (GTK_OBJECT (darea), "button_press_event", GTK_SIGNAL_FUNC (cursor_event), NULL); gtk_widget_show (darea); dot_color = NewColor(0x7800,0xa800,0x7800); gc = gdk_gc_new(darea->window); g_assert(gc!= (GdkGC*)NULL); gtk_widget_show_all (window); } } void LcdDisplay::move_cursor(unsigned int new_row, unsigned int new_column) { if( new_row < rows && new_column < cols ) { cursor.row = new_row; cursor.col = new_column; } m_hd44780->moveCursor(new_row, new_column); } void LcdDisplay::clear_display(void) { m_hd44780->clearDisplay(); m_hd44780->moveCursor(0,0); } #endif //HAVE_GUI gpsim-0.27.0/extras/lcd/makefile.mingw0000664000076400007640000000404012202777764014556 00000000000000## Makefile for building the libgpsim_lcd with gcc for mingw. The build ## uses tools running on cygwin, however. ## Use: make -f makefile.mingw ifdef DEBUG OPTIMIZE = -O2 -g else OPTIMIZE = -O2 CLDFLAGS = -Wl,--strip-all endif ifndef GLIB_PATH GLIB_PATH = ../../../glib endif ifndef GTK_PATH GTK_PATH = ../../../gtk+ endif ifndef PANGO_PATH PANGO_PATH = ../../../pango endif ifndef ATK_PATH ATK_PATH = ../../../atk endif ifndef CAIRO_PATH CAIRO_PATH = ../../../cairo endif ifndef GDK_PIXBUF_PATH GDK_PIXBUF_PATH = ../../../gdk-pixbuf endif ifndef GPSIM_LIB_PATH GPSIM_LIB_PATH = ../../lib/gpsim endif ifndef GPSIM_INCLUDE_PATH GPSIM_INCLUDE_PATH = ../../include endif ifndef GPSIM_DEF_PATH GPSIM_DEF_PATH = ../../lib/gpsim endif CFLAGS = $(OPTIMIZE) $(INCLUDES) $(DEFINES) -Wall ## Cygwin / Mingw GCC 3.4.4 with -mno-cygwin support #CXX = c++ -mno-cygwin -mtune=pentium -mms-bitfields # Mingw GCC 4.7.3 CXX = i686-pc-mingw32-g++ -mtune=pentium -mms-bitfields .cc.o: $(CXX) $(CFLAGS) -c $< -o $@ ################################################################ # Nothing much configurable below LIBS = $(GLIB_PATH)/lib/glib-2.0.lib $(GLIB_PATH)/lib/gobject-2.0.lib \ $(GTK_PATH)/lib/gdk-win32-2.0.lib $(GTK_PATH)/lib/gtk-win32-2.0.lib \ $(CAIRO_PATH)/lib/cairo.lib \ $(GDK_PIXBUF_PATH)/lib/gdk_pixbuf-2.0.lib \ $(GPSIM_LIB_PATH)/libgpsim.a INCLUDES = -I ../.. -I $(GPSIM_INCLUDE_PATH) \ -I $(GLIB_PATH)/include/glib-2.0 -I $(GLIB_PATH)/lib/glib-2.0/include \ -I $(GTK_PATH)/include/gtk-2.0 -I $(GTK_PATH)/lib/gtk-2.0/include \ -I $(PANGO_PATH)/include/pango-1.0 -I $(ATK_PATH)/include/atk-1.0 \ -I $(CAIRO_PATH)/include/cairo \ -I $(GDK_PIXBUF_PATH)/include/gdk-pixbuf-2.0 DEFINES += -DHAVE_GUI all : \ libgpsim_lcd.dll libgpsim_lcd_OBJECTS = \ lcdgui.o \ module_manager.o \ lcd.o \ hd44780.o ################ The modules DLL libgpsim_lcd.dll : $(libgpsim_lcd_OBJECTS) $(CXX) $(CFLAGS) $(CLDFLAGS) -shared -o libgpsim_lcd.dll $(GPSIM_DEF_PATH)/modules.def $(libgpsim_lcd_OBJECTS) $(LIBS) clean : -rm -f *.o *.dll gpsim-0.27.0/extras/lcd/hd44780.h0000644000076400007640000001030710525705362013101 00000000000000/* Copyright (C) 2006 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef __HD44780_H__ #define __HD44780_H__ //======================================================================== // class HD44780Busy; class HD44780 { enum { eDC = 1, eRW = 2, eE = 4, }; enum eControlStates { eDataRead = eDC | eRW, eDataWrite = eDC, eCommandRead = eRW, eCommandWrite = 0 //DC and RW low }; enum eChipStates { ePowerON, eInitialized, eCommandPH0, eStatusRead, eDatabusRead, }; public: HD44780(); void setDC(bool); void setE(bool); void setRW(bool); void driveDataBus(unsigned int); bool dataBusDirection(); unsigned int getDataBus(); void storeData(); void advanceColumnAddress(); void executeCommand(); unsigned int getData(); unsigned int getStatus(); // void advanceState(eControlStates newControlState); void set8bitMode() { m_bBitMode = true;}; void set4bitMode() { m_bBitMode = false; } void set2LineMode() { m_bLineMode = true; } void set1LineMode() { m_bLineMode = false;} void setLargeFontMode() { m_bFontMode = true; } void setSmallFontMode() { m_bFontMode = false; } void setDisplayOn() { m_bDisplayOn = true;} void setDisplayOff() { m_bDisplayOn = false;} void setBlinkOn() { m_bCursorBlink = true; } void setBlinkOff() { m_bCursorBlink = false;} void setCursorOn() { m_bCursorOn = true; } void setCursorOff() { m_bCursorOn = false; } bool b8BitMode() {return m_bBitMode; } bool b4BitMode() {return !m_bBitMode; } bool b2LineMode() {return m_bLineMode; } bool b1LineMode() {return !m_bLineMode; } bool bLargeFontMode() {return m_bFontMode; } bool bSmallFontMode() {return !m_bFontMode; } bool bDisplayOn() {return m_bDisplayOn; } bool bDisplayOff() {return !m_bDisplayOn; } // Memory in a HD44780U is organized in 2x40 bytes of display RAM, // and 64 bytes of character RAM #define DDRAM_SIZE 80 #define CGRAM_ADDR_BITS 6 #define CGRAM_SIZE (1 << CGRAM_ADDR_BITS) #define CGRAM_MASK (CGRAM_SIZE - 1) unsigned char getDDRam(unsigned int r, unsigned int c); unsigned char getCGRam(unsigned int i) {return i < CGRAM_SIZE ? m_CGRam[i] : 0; } void writeCGRamAddress(int addr); void writeDDRamAddress(int addr); void clearDisplay(); void moveCursor(int new_row, int new_column); void test(); protected: unsigned int dataPhase(unsigned int); bool phasedDataWrite(unsigned int &data); private: //Data /// I/O pin interface bool m_bE; unsigned int m_controlState; eChipStates m_chipState; unsigned int m_dataBus; // Data placed onto the I/O pins unsigned int m_phasedData; // Data constructed during 4-bit mode. /// Various modes bool m_bBitMode; // true == 8-bit mode, false == 4-bit mode bool m_bLineMode; // true == 2-line mode, false == 1-line mode bool m_bFontMode; // true == Large Font, false == small font bool m_bDisplayOn; bool m_bCursorBlink; bool m_bCursorOn; /// Data phase /// In 4-bit mode, data reads and writes happen in 2 phases /// m_bDataPhase is true if this is the first phase, false for the second. bool m_bDataBusPhase; HD44780Busy *m_busyTimer; /// Display Data RAM unsigned char m_DDRam[DDRAM_SIZE]; struct sCur{ unsigned int row; unsigned int col; } m_DDRamCursor; /// Character Generator RAM unsigned char m_CGRam[CGRAM_SIZE]; char m_CGRamCursor; bool m_bInCGRam; // true when a write to CGRAM is selected /// Debug void debugChipState(const char *); }; #endif // __HD44780_H__ gpsim-0.27.0/extras/lcd/NEWS0000644000076400007640000000002410416272313012412 00000000000000No news is good newsgpsim-0.27.0/extras/lcd/lcdfont.inc0000644000076400007640000002444510416272313014054 00000000000000 ;; ;; LCD Font file for 7x5 characters ;; Automatically created from a perl script ;; T. Scott Dattalo http://www.dattalo.com/gnupic/lcd.html ;; dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 0 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 1 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 2 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 3 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 4 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 5 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 6 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 7 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 8 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 9 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 10 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 11 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 12 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 13 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 14 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 15 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 16 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 17 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 18 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 19 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 20 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 21 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 22 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 23 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 24 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 25 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 26 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 27 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 28 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 29 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 30 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 31 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 32 dt 0x00, 0x00, 0x7d, 0x00, 0x00 ; 33 dt 0x00, 0x70, 0x00, 0x70, 0x00 ; 34 dt 0x14, 0x7f, 0x14, 0x7f, 0x14 ; 35 dt 0x12, 0x2a, 0x7f, 0x2a, 0x24 ; 36 dt 0x62, 0x64, 0x08, 0x13, 0x23 ; 37 dt 0x36, 0x49, 0x55, 0x22, 0x05 ; 38 dt 0x00, 0x50, 0x60, 0x00, 0x00 ; 39 dt 0x00, 0x1c, 0x22, 0x41, 0x00 ; 40 dt 0x00, 0x41, 0x22, 0x1c, 0x00 ; 41 dt 0x14, 0x08, 0x3e, 0x08, 0x14 ; 42 dt 0x08, 0x08, 0x3e, 0x08, 0x08 ; 43 dt 0x00, 0x05, 0x06, 0x00, 0x00 ; 44 dt 0x08, 0x08, 0x08, 0x08, 0x08 ; 45 dt 0x00, 0x03, 0x03, 0x00, 0x00 ; 46 dt 0x02, 0x04, 0x08, 0x10, 0x20 ; 47 dt 0x3e, 0x45, 0x49, 0x51, 0x3e ; 48 dt 0x00, 0x21, 0x7f, 0x01, 0x00 ; 49 dt 0x21, 0x43, 0x45, 0x49, 0x31 ; 50 dt 0x42, 0x41, 0x51, 0x69, 0x46 ; 51 dt 0x0c, 0x14, 0x24, 0x7f, 0x04 ; 52 dt 0x72, 0x51, 0x51, 0x51, 0x4e ; 53 dt 0x1e, 0x29, 0x49, 0x49, 0x06 ; 54 dt 0x40, 0x47, 0x48, 0x50, 0x60 ; 55 dt 0x36, 0x49, 0x49, 0x49, 0x36 ; 56 dt 0x30, 0x49, 0x49, 0x4a, 0x3c ; 57 dt 0x00, 0x36, 0x36, 0x00, 0x00 ; 58 dt 0x00, 0x35, 0x36, 0x00, 0x00 ; 59 dt 0x08, 0x14, 0x22, 0x41, 0x00 ; 60 dt 0x14, 0x14, 0x14, 0x14, 0x14 ; 61 dt 0x41, 0x22, 0x14, 0x08, 0x00 ; 62 dt 0x20, 0x40, 0x45, 0x48, 0x30 ; 63 dt 0x26, 0x49, 0x4f, 0x41, 0x3e ; 64 dt 0x3f, 0x44, 0x44, 0x44, 0x3f ; 65 dt 0x7f, 0x49, 0x49, 0x49, 0x36 ; 66 dt 0x3e, 0x41, 0x41, 0x41, 0x22 ; 67 dt 0x7f, 0x41, 0x41, 0x41, 0x3e ; 68 dt 0x7f, 0x49, 0x49, 0x49, 0x41 ; 69 dt 0x7f, 0x48, 0x48, 0x48, 0x40 ; 70 dt 0x3e, 0x41, 0x49, 0x49, 0x2f ; 71 dt 0x7f, 0x08, 0x08, 0x08, 0x7f ; 72 dt 0x00, 0x41, 0x7f, 0x41, 0x00 ; 73 dt 0x02, 0x01, 0x41, 0x7e, 0x40 ; 74 dt 0x7f, 0x08, 0x14, 0x22, 0x41 ; 75 dt 0x7f, 0x01, 0x01, 0x01, 0x01 ; 76 dt 0x7f, 0x40, 0x20, 0x40, 0x7f ; 77 dt 0x7f, 0x10, 0x08, 0x04, 0x7f ; 78 dt 0x3e, 0x41, 0x41, 0x41, 0x3e ; 79 dt 0x7f, 0x48, 0x48, 0x48, 0x30 ; 80 dt 0x3e, 0x41, 0x45, 0x42, 0x3d ; 81 dt 0x7f, 0x48, 0x4c, 0x4a, 0x31 ; 82 dt 0x31, 0x49, 0x49, 0x49, 0x46 ; 83 dt 0x40, 0x40, 0x7f, 0x40, 0x40 ; 84 dt 0x7e, 0x01, 0x01, 0x01, 0x7e ; 85 dt 0x7c, 0x02, 0x01, 0x02, 0x7c ; 86 dt 0x7e, 0x01, 0x0e, 0x01, 0x7e ; 87 dt 0x63, 0x14, 0x08, 0x14, 0x63 ; 88 dt 0x70, 0x08, 0x07, 0x08, 0x70 ; 89 dt 0x43, 0x45, 0x49, 0x51, 0x61 ; 90 dt 0x00, 0x7f, 0x41, 0x41, 0x00 ; 91 dt 0x54, 0x34, 0x1f, 0x34, 0x54 ; 92 dt 0x00, 0x41, 0x41, 0x7f, 0x00 ; 93 dt 0x10, 0x20, 0x40, 0x20, 0x10 ; 94 dt 0x01, 0x01, 0x01, 0x01, 0x01 ; 95 dt 0x00, 0x40, 0x20, 0x10, 0x00 ; 96 dt 0x02, 0x15, 0x15, 0x15, 0x0f ; 97 dt 0x7f, 0x09, 0x11, 0x11, 0x0e ; 98 dt 0x0e, 0x11, 0x11, 0x11, 0x02 ; 99 dt 0x0e, 0x11, 0x11, 0x09, 0x7f ; 100 dt 0x0e, 0x15, 0x15, 0x15, 0x0c ; 101 dt 0x08, 0x3f, 0x48, 0x40, 0x20 ; 102 dt 0x30, 0x49, 0x49, 0x49, 0x7e ; 103 dt 0x7f, 0x08, 0x10, 0x10, 0x0f ; 104 dt 0x00, 0x11, 0x5f, 0x01, 0x00 ; 105 dt 0x02, 0x01, 0x21, 0x7e, 0x00 ; 106 dt 0x7f, 0x04, 0x0a, 0x11, 0x00 ; 107 dt 0x00, 0x41, 0x7f, 0x01, 0x00 ; 108 dt 0x1f, 0x10, 0x0c, 0x10, 0x0f ; 109 dt 0x1f, 0x08, 0x10, 0x10, 0x0f ; 110 dt 0x0e, 0x11, 0x11, 0x11, 0x0e ; 111 dt 0x1f, 0x14, 0x14, 0x14, 0x08 ; 112 dt 0x08, 0x14, 0x14, 0x0c, 0x1f ; 113 dt 0x1f, 0x08, 0x10, 0x10, 0x08 ; 114 dt 0x09, 0x15, 0x15, 0x15, 0x12 ; 115 dt 0x20, 0x7e, 0x21, 0x01, 0x02 ; 116 dt 0x1e, 0x01, 0x01, 0x02, 0x1f ; 117 dt 0x1c, 0x02, 0x01, 0x02, 0x1c ; 118 dt 0x1e, 0x01, 0x06, 0x01, 0x1e ; 119 dt 0x11, 0x0a, 0x04, 0x0a, 0x11 ; 120 dt 0x18, 0x05, 0x05, 0x05, 0x1e ; 121 dt 0x11, 0x13, 0x15, 0x19, 0x11 ; 122 dt 0x00, 0x08, 0x36, 0x41, 0x00 ; 123 dt 0x00, 0x00, 0x7f, 0x00, 0x00 ; 124 dt 0x00, 0x41, 0x36, 0x08, 0x00 ; 125 dt 0x08, 0x08, 0x2a, 0x1c, 0x08 ; 126 dt 0x08, 0x1c, 0x2a, 0x08, 0x08 ; 127 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 128 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 129 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 130 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 131 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 132 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 133 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 134 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 135 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 136 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 137 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 138 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 139 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 140 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 141 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 142 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 143 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 144 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 145 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 146 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 147 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 148 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 149 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 150 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 151 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 152 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 153 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 154 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 155 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 156 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 157 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 158 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 159 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 160 dt 0x07, 0x05, 0x07, 0x00, 0x00 ; 161 dt 0x00, 0x00, 0x78, 0x40, 0x40 ; 162 dt 0x01, 0x01, 0x0f, 0x00, 0x00 ; 163 dt 0x04, 0x02, 0x01, 0x00, 0x00 ; 164 dt 0x00, 0x0c, 0x0c, 0x00, 0x00 ; 165 dt 0x28, 0x28, 0x29, 0x2a, 0x3c ; 166 dt 0x10, 0x11, 0x16, 0x14, 0x18 ; 167 dt 0x02, 0x04, 0x0f, 0x10, 0x00 ; 168 dt 0x0c, 0x08, 0x19, 0x09, 0x0e ; 169 dt 0x09, 0x09, 0x0f, 0x09, 0x09 ; 170 dt 0x09, 0x0a, 0x0c, 0x1f, 0x08 ; 171 dt 0x08, 0x1f, 0x08, 0x0a, 0x0c ; 172 dt 0x01, 0x09, 0x09, 0x0f, 0x01 ; 173 dt 0x15, 0x15, 0x15, 0x1f, 0x00 ; 174 dt 0x0c, 0x00, 0x0d, 0x01, 0x0e ; 175 dt 0x04, 0x04, 0x04, 0x04, 0x04 ; 176 dt 0x40, 0x41, 0x5e, 0x48, 0x70 ; 177 dt 0x04, 0x08, 0x1f, 0x20, 0x40 ; 178 dt 0x38, 0x20, 0x61, 0x22, 0x3c ; 179 dt 0x11, 0x11, 0x1f, 0x11, 0x11 ; 180 dt 0x22, 0x24, 0x28, 0x7f, 0x20 ; 181 dt 0x21, 0x7e, 0x20, 0x21, 0x3e ; 182 dt 0x28, 0x28, 0x7f, 0x28, 0x28 ; 183 dt 0x08, 0x31, 0x21, 0x22, 0x3c ; 184 dt 0x10, 0x60, 0x21, 0x3e, 0x20 ; 185 dt 0x21, 0x21, 0x21, 0x21, 0x3f ; 186 dt 0x20, 0x79, 0x22, 0x7c, 0x20 ; 187 dt 0x29, 0x29, 0x01, 0x02, 0x1c ; 188 dt 0x21, 0x22, 0x24, 0x2a, 0x31 ; 189 dt 0x20, 0x7e, 0x21, 0x29, 0x31 ; 190 dt 0x30, 0x09, 0x01, 0x02, 0x3c ; 191 dt 0x08, 0x31, 0x29, 0x26, 0x3c ; 192 dt 0x28, 0x29, 0x3e, 0x48, 0x08 ; 193 dt 0x30, 0x00, 0x31, 0x02, 0x3c ; 194 dt 0x10, 0x51, 0x5e, 0x50, 0x10 ; 195 dt 0x00, 0x7f, 0x08, 0x04, 0x00 ; 196 dt 0x11, 0x12, 0x7c, 0x10, 0x10 ; 197 dt 0x01, 0x21, 0x21, 0x21, 0x01 ; 198 dt 0x21, 0x2a, 0x24, 0x2a, 0x30 ; 199 dt 0x22, 0x24, 0x6f, 0x34, 0x22 ; 200 dt 0x00, 0x01, 0x02, 0x7c, 0x00 ; 201 dt 0x0f, 0x00, 0x20, 0x10, 0x0f ; 202 dt 0x7e, 0x11, 0x11, 0x11, 0x11 ; 203 dt 0x20, 0x21, 0x21, 0x22, 0x3c ; 204 dt 0x10, 0x20, 0x10, 0x08, 0x06 ; 205 dt 0x26, 0x20, 0x7f, 0x20, 0x26 ; 206 dt 0x20, 0x24, 0x22, 0x25, 0x38 ; 207 dt 0x00, 0x2a, 0x2a, 0x2a, 0x01 ; 208 dt 0x0e, 0x12, 0x22, 0x02, 0x07 ; 209 dt 0x01, 0x0a, 0x04, 0x0a, 0x30 ; 210 dt 0x28, 0x3e, 0x29, 0x29, 0x29 ; 211 dt 0x10, 0x7f, 0x10, 0x14, 0x18 ; 212 dt 0x01, 0x21, 0x21, 0x3f, 0x01 ; 213 dt 0x29, 0x29, 0x29, 0x29, 0x3f ; 214 dt 0x10, 0x50, 0x51, 0x52, 0x1c ; 215 dt 0x78, 0x01, 0x02, 0x7c, 0x00 ; 216 dt 0x1f, 0x00, 0x3f, 0x01, 0x06 ; 217 dt 0x3f, 0x01, 0x02, 0x04, 0x08 ; 218 dt 0x3f, 0x21, 0x21, 0x21, 0x3f ; 219 dt 0x38, 0x20, 0x21, 0x22, 0x3c ; 220 dt 0x21, 0x21, 0x01, 0x02, 0x0c ; 221 dt 0x20, 0x10, 0x40, 0x20, 0x00 ; 222 dt 0x70, 0x50, 0x70, 0x00, 0x00 ; 223 dt 0x0e, 0x11, 0x09, 0x06, 0x19 ; 224 dt 0x02, 0x55, 0x15, 0x55, 0x0f ; 225 dt 0x1f, 0x2a, 0x2a, 0x2a, 0x14 ; 226 dt 0x0a, 0x15, 0x15, 0x11, 0x02 ; 227 dt 0x3f, 0x02, 0x02, 0x04, 0x3e ; 228 dt 0x0e, 0x11, 0x19, 0x15, 0x12 ; 229 dt 0x0f, 0x12, 0x22, 0x22, 0x1c ; 230 dt 0x1c, 0x22, 0x22, 0x22, 0x3f ; 231 dt 0x02, 0x01, 0x1e, 0x10, 0x10 ; 232 dt 0x20, 0x20, 0x00, 0x70, 0x00 ; 233 dt 0x00, 0x00, 0x10, 0x5f, 0x00 ; 234 dt 0x28, 0x10, 0x28, 0x00, 0x00 ; 235 dt 0x18, 0x24, 0x7e, 0x24, 0x08 ; 236 dt 0x14, 0x7f, 0x15, 0x01, 0x01 ; 237 dt 0x1f, 0x48, 0x50, 0x50, 0x0f ; 238 dt 0x0e, 0x51, 0x11, 0x51, 0x0e ; 239 dt 0x3f, 0x12, 0x22, 0x22, 0x1c ; 240 dt 0x1c, 0x22, 0x22, 0x12, 0x3f ; 241 dt 0x3c, 0x52, 0x52, 0x52, 0x3c ; 242 dt 0x03, 0x05, 0x02, 0x05, 0x06 ; 243 dt 0x1a, 0x26, 0x20, 0x26, 0x1a ; 244 dt 0x1e, 0x41, 0x01, 0x42, 0x1f ; 245 dt 0x63, 0x55, 0x49, 0x41, 0x41 ; 246 dt 0x22, 0x3c, 0x20, 0x3e, 0x22 ; 247 dt 0x51, 0x4a, 0x44, 0x4a, 0x51 ; 248 dt 0x3c, 0x02, 0x02, 0x02, 0x3f ; 249 dt 0x28, 0x28, 0x3e, 0x28, 0x48 ; 250 dt 0x22, 0x3c, 0x28, 0x28, 0x2e ; 251 dt 0x3e, 0x28, 0x38, 0x28, 0x3e ; 252 dt 0x04, 0x04, 0x15, 0x04, 0x04 ; 253 dt 0x00, 0x00, 0x00, 0x00, 0x00 ; 254 dt 0x7f, 0x7f, 0x7f, 0x7f, 0x7f ; 255gpsim-0.27.0/extras/lcd/COPYING0000644000076400007640000004310610416272313012756 00000000000000 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 Appendix: How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) 19yy 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 Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) 19yy name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. gpsim-0.27.0/extras/lcd/lcd.gif0000644000076400007640000002074110416272313013154 00000000000000GIF89aôłżżżżżżżżżŔŔŔ€€€˙˙˙˙˙˙˙˙˙˙˙˙!ů,ôţđČI«˝8ëÍ»˙`(ŽdižhŞ®lëľp,Ďtmßx®ď|ď˙Ŕ pH,ŹČ¤rÉl:źĐ¨tJ­ZŻŘ¬vËízżŕ°xL.›Ďč´zÍn»ßđ¸|NŻŰďřĽŔďSřX€zt}~‚{„Śo‰‹ŹT“Ť–f•‚•R›—ž`ťš‡†‘˘‘†¦§ŞŻŹ¬ź´Yˇ’©¤®şŁ·¨ŻĄŔ»¨ÁşµÇQ·ÂĘą˛­Ą™ąĹÄ°ĎČŘJĚÎŃÍ­ťĚŁÔ¸â×ŮčEáÖűçëĐĺ츬ľéř<ńí‡÷ň¤U“gĎXľ>Î#xmÜ…NCHŃHDsů-ěp‘^ÇŠţ ‡ĚŇ°ž©Śô¬ űe°`ż0wŚDąŃĺĆ”/U¶´—3¦Ďź@ J”ŤAsď‚­şwTĺҤ°<@ý#µ*Ǣ\NAŐ QWQ_%…ÝęuĂżłSi^@‹UËłwoF];W\Ý»béR…—·kÚEűň ś¶m“¸zËÚÝ»X1^¸x –{µň*«—‹ÜĚąłçĎ6'Cfü˛dÉŁO%mÚ,f×–a-ĚqăŐ·'Łn­·oÖc‡•M|¸PÚKl—Nü{7óޢyĎL˝8_áA‘'W­lsĆޡă_¶ů×ĆŻĎŢŇT©Y¦đ˙ĆGŻŢ:ďúéj7ĚÎţţ®ţń_íąň}÷%řÜZóa§`nřeçw㍵Gĺe(yvř†X hQdżĄöťW„]–"~&Š'ÖŠ~©˘-$F÷Ütö-ř ŤąáźŽ@úhDY¤s=JWÝŹî¨pKF¸#kyÄ“H.ÇdŤMZ‰e‰QNI!—1µ¸•`ަ•hzYă—d¶ŮĺśeŠ©Î\©W‚lŽŮ‡kŇ)gś!™Y[Ýśç`ź'ş—(ź‚ú))H†h)•^Şé™řŹ‹ţr࢑6Jh˘’J(Ąv‘g7 Z¨§‡°Ň ĎTŻ&&_¬ë1*™€ÉȢ’ Łkáť'X0ţŐ顂Šç›§BşŞ‹p.;©´¬iä·ßfŮj˛Đikj´çNۦąÜ¶KQĄ"ÎŔ®˘Ä&™c©í’ۢŹRţď•ŐŞšmŔ^«o˝ýâű®‚ńĘ;)˝¦zŻÁÖţ)ëÄčVô/¨n+ßÇ{rǧk˛Ć oŞ˛Żěr )sŚ(ĆőŚü)ČŞ¦Z°Î4wŰeĂ2äÚخߺˇ­C#]Ńł~¨YĚw® ,¶S\ě°W#l—ŐrŤLË®R-× óXöĽĆń eĎ({¸p3đŘiŚ6Ö[Ţ­µŻ »Í÷ sKJ¶“«9±Ţ†o ŘĂxş»I7ŢgnŻâţ…B}m B/ťsçl‚.¨čq’ŞéŰöýs«AĎŚyÉŇÂŽóÎ5ç\;í>‹­đËĽ'¤y㽯㩯÷ńČ'ŻüňĚ7ďďďĹ«1ć'O_vĆÖŹňÉ_żHU°( ¬× dĎÜLâźTVhéko{őŰç+¤4Őźů·ˇ˙Ťú«±żżű¸“ßűX'żíNzń›Ah˘ ¦#ŕţF2A^XĄß^đ78°iN&ř›TPôđV¶ű9{)$ÇVx“y i/ţ#!IlXÂ˙ĺe4Ô`Ňşž"Š¬2Îh Ń~ÂreĐ$ËĐaF”Xn0ŃŠäÓţb¶ŘÁ.âĐ‹ëóś«á ’‘%QDb9ÉPŠO,# =¸8ÇäęŽDü˘Ăhĺэ2ś#OŽHG?’»@ˇ YČĚ5D7ŕűŢÚ¸¸Ç ŤŃ$ \äkC8*23śQ–?b¸Cj$‹„ ^šřČĘţ‰Ń<ĺ!7©ŚęĎ–ŇżbEB•Z„¤0ůÄVţŚ–„%ĺčËë­Ź\Î%inY“8’{ÇŔŁo´)>;zs›ßTćgÉCNšÄÉ ­Yo¤1wǬd<íH?¤Řł“Uä_úŇXK5RŹ€±ÔÝŃLÖ ‘l¤ç;áŘĆš_[ ¶ţ‚K%öó 8H(ü. ËŽ˛MŁîÂ(9úQ)–”¤ŤźHGęŃ”˘4šuiKW4“Ęô¤3MçM˙IS€ô§6…)P_jĐž–`¨9őRqĘTžő¨Í‹ŞT§JŐŞzć©#ŞRŞSˇrőoXőF“męsťřµ…÷ĽśućşĂ‚ĘŇ°˝kE!Ď–µ}ç;ëGŮSn“±~e gźůËîÓ‚=ě}\KWŘćO¶Őn>(ţiĚÇ:7Mʉdn »[ÓҲ°o3m,$«H˝ŞO‚ěmÁIŢn&Ó•ňśětI«[ÔZ·śŮe˘ ąkM~×TĹ®#·Ćߨ˝ÍmzŘK]OŇ–™żÝn"¬OŞ·˝Ť´Ż{CÚ=j ŔfZŰ[\wŞďŹ›D#mEśßĹV’‚Ťp.} ĚXţúßÎľ¬ęĽä™ż|ĚŻ„uMÎÜFnűPä!ţ±őóĄŕ™¬#1cľWymĹnŠź a˛#VŮ€69a×Moxrg_ČÔđ*/íd¶—ÝîgG÷ ŐŽu‹·}a[÷/׏žż¤ßÔĎ ·zâ[-őř®Yń6×66kˇń˘WţĽH’9Ąov w^ÓŤgµ=ŻZŐ˛ć¨ç2ĎVš„ëĐ»WyČ»­j+Źť—čó»~ď‡}üčżú§Ď~óg?ýí˙ú­?÷ţ¸×řĎżţ—gĄ×?üń€ô€ć§p‡qĄ'h›Ćw \ HaÇg€5‡€Ő{ŰWecVĘ·BxoV·[z^Ř·Q°J›!€ŃŁ2·:ŤµpęÔpą÷7Gdj´r#ř2—÷g“ (%zýÄn H&ČvČfSŮw.§„«ä=‚×I=xwÄ—,Ařm°qq hN’w~ËND—L„§;~ĺq˘'{â\?MĂ—u>x‚QFlŘđbN(ctŘe_—8—mŽ÷†gXs¸7`·Wp<×{1¸9q=Mz,xN6ry#‚Fqţ¶sˇ÷]S7z%$ĂÄu0ćuTwţ5…xç$؇š7‰Qçc~¦s¨`™S^_8s˛: Ož7Š”‹©(•ř‚Że}×cGhu†aČzMQ‹yx‹'tŽČ‹׋ítbŔh†ÂH\ýzd8p 8čtüÔ`@Ögf"„|BŰŤŚ—ŽUčŤv…sđh{Ç%v®xŽ7ç‚ę8€ú(xű8yX~ţČŹ˙Č…č}‰‚ i™8m‘ é …9‘É©‘îG‘é‘©R×·$Y’&.ů( ů€+éŮX?ĂláŘ”¸ŠLe“6ąö“o"“hč†{g\ýX\Ź§’)ąŽ˘HţrúĆs gŹůgBŚqfzG‰mćČŠ|¸‹¨nâ¸T89eöI4•Śˇe P¨w !•‡Ugx•Ś…ś‡eşpŐ9;č…g©Šz¸oÔHEA=—‚¶xtyĆČ„f#]Çh•?9Ť|ů‹ł%o]Ĺ–lůŚ–™‹C—d—‡%2§zŚé‡ďö8uŐmÇU™~7—p†rŘš›(.FÖrŃçZ„ŤRȆśóř§]#Ö›Hyh6rg‡I¦›\)—ĐX`*FĹ'qŔůtě\i™‚´ŕšW‡ś9I†7…TÉŚlx›5ůtD9Ž¸›AÖ–"WŹmsdš‰——‹<ţy{‚ ¸cUu9 ť_霦Y:GŚ…€Çx;čBłén¤w„”i…XYr3h…ý©ĎYTyc z€ šW©”yůIŽţ©“ů‘&’(ęj#y˘,ɢ.Y™˘/ş‘-I˘)Ł6ZŁ7X‘+ŠŁ;ę˘9*’ϧŁäע>jˇ»w’Jş¤L* pE¤đ×@z1j‚‚IµąśEę‹Ly“{y”oéźX¦śáůŁexź [b ¦ó™sĎ–•k§ĄQşmIŮ kJĄ=jĄäů¦üfŤ…9§čX§ę€3Ú;d fLÖ/îŘSŤ´W¦ ă“ěšL§«i¨­g%g>ţ‹ š#Ę‹ŹŠ™‘ÚtIé‚d*Ş]^Đ…ťŘ„/Ć“>¨á¨šĄ¨ź›Ąźˇ ą†¨šŞîiyEWśŰŮoz]ˇ*Ś—i«¶w§“¸«©ťś8‡Ä›Ĺ Pű™¬q:{yg¨É¬ş:ťŕŮ«†9śO‚tźlť’_ŘŚ@ą”÷xŕ“}ç©äĘšŻY‡­Z­ťfź 0Ř®ÚZŻż)°Ľ™­‡‹“­đy^9yxh° FjY«Űš‰ţD©ZXźKťŻ`Ć©Pô¸7‘*o3 —߲Řř#öšžćX…»’śú›ŕ(ˇ*K¨u~-KXřŽ+[•SşĄAz¤şGţnPj”D‹´*:¤A ¨iz´™§…ú´M«´S[ĄS µRš´†Č´\»µF¶ť6’MZ¶fŰk` ¶Y[µCY~X;&†«tŠĄmqé„°H…@kn·J˛mBg·Úř,4zf—Z˘kŞ`éÍyŻs ¸ďş`¤ÚˇłŠ„R+±˙•›Ť Ş{ާtŰł?i•‹¤FKJĽzr›‹›‹k›ś ­t"™ăIş—r¨Âw—{ş‹şŞűŻä »1ë%!ę»]»)vy¶k­őqĄˇ |î·Xř˛ť{…‘¸Ĺš‡©Ş‰™ŻÝÉ»;Ë®ÉűĄ{Jš§¸÷ ^»łě Ňú„Úy‡¬©›°î ·<ˇwęÁŽ›v*ÂÖIÂę›´X/|†Ęʨb‡žX»Ü© vŞÝ»°ľ*›![WĐăz|‹ŤÇ:Ä"ŠpîĆ«F\bć띥šŹZ[¸_ ĆK{ˇkĆO)¶ĆGĆC‹ĆfĘƲ‹l_|ĆeěĆEkmqLµfŚÇcĽ{l«¶k<Çc;¤g;Č„,Ui+Ć€üÇŠŚ§^›OW†˛ßűĂJL}čŰŤ=,ţo›ÁŹ ˝‘<•]LÉŐKm‚‹É—+f Śź¨śżOI4yšŰĘ/)Y§¬Ę´lźxĚĘźLŽź›ËýÇ˝=)•›Ę¶ěa“ş•ZL·ó‹Ź"E»b­đ"®L«Âl¸¬eĚš…̭˛˜©gJWtŘ,Ĺ[LľÇlłĘ¬­°ĂK¬MĚÎţK­ţűͨÎffđJ„({Ω™Íęě«ňŮ°ÜĚ^IżĎřł]ĎÚ—Ú”ŤŰĎ]ť]wÂéÁÍ»×Đ-<ŚHqŠW\˝Ľ»Úěvʢ5í±›GĐűlĐ)ŤŃňXĹę,–§:É=­%śĺB˛kŃ\ ż MeúÓŐ)ţM–üŃű±˙ ‹|Ó&}·&R„›˛2LÄąKĹřËŁ ˛ĘĚRŁ¶_9ľOýŽQMŐ~š«łlŐjÜƉŚÖ‹üĆżvÇnÝÇ™ÉB«Öt=×l}koťÇy˝ÇĄ«×p-ÇkíĹ­Çim×u Ç…śŘŠ7‡ Řuí´{Čg=Ş–̵|_„Ťś{–°ÜË|ÓĚ‹ÎëǦ|±=ąş·jŔȺϋČc:Î! ‡ĄÄSMÔ­ťŰm[©ÄĚ`Žů€r[:ŤŰžĚŚť¬\  ­ö ®›ŔuY–ČxĽËÍ ŇÎzÁ—ܨşÜÝܬ»Ěšúžĺ5Ý®śĹŐťÍĘä, ΨĎţ,ŢîľTNŕo—ąˇíÚ\Žäçmâ+î–iŮN*× ˛ąŠ fů~ }Ü4~Ů6®—-}žUâ‡{Łtlµ­ç–ŰČ… Ů}ÇÁÍç†Mč€>@ľŰnčŚ>Ľ|ěמçQëçţ{®č•NÚwýj‹˝éśţŤťŮŹÝčî´‰N碌ł[^⊎°§ťĺ0ZŰ ®Ë¨îćnR¬Žĺ9ž¦Ą®âd®ĐÎxčĽÍ±šł5~Č°ĘŢ_>㎉©­ĚŹ<® |PjÎz6MŮĹކó‹»í]Ä=ě¬ôŠě,NĽEŽy71ł˝>ěŢzät‰ĹÝîäß~í§gßhN­ôÍ.ąľNŰ>ŕd­ě5\°ëh'@ż>ĺŔŠÔ)ĚÄ̲ZNąQţŢę^ÎJüŇîÎ=Ó&ĚáđN›Ö>QµľĐ˝Ä*ń§Ňv^q ëâŤă(Ś|ťďűóCýć{uďG‚ŹŻäJ˝ţŞť ďľŢߥ߽ݧ&/ë2]ŕG]ĺ«ÂŐjŰ.óC/Ťő;ňG_ňÍěKź gľń6íë§^ŢY_Ůhög?ć#7ĘTîvě`~ęN÷ O¨ ňšëöUýé‘}é ř+éŁ.ęßç“ ě‹néˇîč}Mř‡_茟é¦ö÷Ť_ř“/Ř‘ľřßů;Ůé ú°łëË®ř‚ę”ďi:şË*ĺ™/~/Źň±ěŁ¬ßěłmúĆűpÇ2^öż<á ©·¸ËŮG(ł˝ß€A”ő빣éRÎöYĐť©öqő· (ě~Űďw®üÂţś’ĘÂsĽ›Şńíţ*ÎM>ő®ţ¸]OĂ5§iľöÁ™áŽ˝˙ŰgőÍißé-ň˙ţţçZ­Rď™'ö6 ąŽ4OÍłZ6…cy¦kűĆó0üPźßĄ€žŻ·BÖ€-‘­¸źĎRŇ4Jş.GáK%ňbÁĆqV‹ĄćÔkvŰËLą$y:jĹĘ*Ú Ă+3 lę2üR,c™ [B”’¬˘|»ÄĚÔ´$cś“Ô»˘ÜŁqěűë(ü¬äRíd}ť$’Ací˝›íTMŰüúŚ­Ń%ő”M$¬ ”ľĄ]ś†Bľ’ÔFńkŢ%Ţ.7&=ş[F¤ %tň®Ü–Žr5KŚlw^ţĹîѫۢWÖćq:—P!x «Áł­3|Ńł¦W=Ď6¦Ňňí ¤3"ç9Ęg'ś…-]ľ„‰0\-yíŤôxłd@śĄŞTëV®FłZýŠěX±eY^=6mW¶m‘2ećt­YŻdçŢ­Kw˘Ţ™nýţ5·`߼x÷&|¸đbĹŤ†ŮŤŕŹĺ2¶ÜTsÜÍ/;ţ,Yôh´Cźî\5gÖžSS†MZöěR#mßĆť[÷nŢ˝}˙śöpâ­Użžj×4ňŇ ™«-=rěćŃbµb˘ĎđµŻŕ´/7ţN]úřéÉů>Ľľd‹ÉíE'zgŢuxňő‹J˘ˇ{úŤćă…«l‹Ży˘F¨ŽŽłŻÁ»öű¬"ł>ŞÇş}ü)°/ ě ¨˙:<Ĺşź$ń†Bҡ† üÔč&óCďBq âN…kô ~ÂI©D¶âď!ŚŠdcž1' ÂîCýQÉ?@Z0G\’Ěc(»J§Ë<IFŔe Â±¦ő†Ôľ,?QG|.˛ŇĆѬrË•9˛ -ÉłH3A$B)—Ü°G*łăçF8¨Đ´ÓĄ=#\KÂ,-ĚŃŹÔ|†ÍI_l!EźhľNuŚ”+"ő4¦Ő÷ţäútE&ŐsqV }úÔV)j”@J®?HS=ÇËxŽ]˘wň’uĂ…=•Đ>…ĺ ď LďĎ“M Č,„ŚH›\ů4OW(s4Fs±LtĄMťRłĺ¶^`d­ËĐR±;3G^aôWC9’HADË•Ď^…vnMl·µiT€‰âoÇ&ß{Ôŕ-đmxaŹ•ëxXŽ3ŁŻşŐL™áŹW™d”G>9e“‘<Źf–o®ądčB†Ůć„{ÖgˇV9f _.Úgž“úćŁeŢŮe¨[6ši¤›ĆZi©źćÚę©sľ:ë¬#»lłĎF;mµĹ»ë™űkÄŞ~e¶ëuŰÚţ8+†¸BXű$şîq¶ľëĽĹŮűÚ+ýŽđĄżNëÂ>üYxç PCÇELĐ2#vOęÉąĚT L?—I)˙uvÝyőőP‚+nstŃ\9ńKd©N—ďł>O=xŐUł…› ĺ´Q§ŚmĂŰoŔý2Ď9äEqîŢGŻvv­Ťö´â)ţµ̵óŽ2ćÓbÇŠô)ősz¸‡××ČiýÝ6ű•ŘxŮ+ÎďĎgĂŞ =:0&Lä ‡ć5ˇi5su‰řŚ>T%ďJŔ` ™I9OÁÔĹ–ä) TÖČźÁ'T,H$ÚË đä*V5ć€îKŕ™şç;lFţC“ AĽVpvŘű_ M¤»V0qY{1VŃRżZ•NsW â”ô>ą«ŠFT˘y¨‡@Kĺ*„‚j–ŐeĹżaquîůWµ†ą5‚1ŚÄÂĎŔG°ŤqŹ_šßÍ Ă?ş±dű2ßÉ“ÇqM 't!Ż÷Â3†ŞŤt‹š"IT9ë˝/p™”\(ŤŁÉńpň“Ľó$ęP™Ŕ¸‘R:¦TeÜ`I8ČyÍ•Ń™%&W)·SĘŇk‰Ľĺpr)JVv˛˝4ć°‚Iśa¦’– t¦.}ąL©Íš×Äf6µ™jVó—߬e8ˇyĚXvł>Í<Ţ˙"ÉHd¶cî4'.ÁI•Ť¬Eqţ|g9á™ĹgĆó%fÔ#/WĎ$NlŠ›ËŢň°DÉ|5RtţÔî”Ĺ=tţŞs”[ëzŘDž⪡űĽĄÇĂŇâ†%Ť&íZľ"*JMčăDťHŇ15šŚâú>“¶oś¸‚ "ąčQ-nĎdĹă”Ěj*ÉQât†&Ą!ű8&zĘNúۢ‘—Ő#vQTˇŰęđžćĘF:´°˘Ű#á×·=jµ rěęĄŕVu:4f¤ JUQQŐ§»Ô=÷'Wß]Ô„=¬!¶ÔŔľµ›9uGdyJŹ'¦t+ĄWVYjSO°ˇŽ•)![ÄeŠ”Śh=L§ Xmaµ­Býţa”†Ďŵ5E1…(m*:Ó–ľ‰­'|’V=ăŘ4™ą•Ěn•‰ v÷Ë,‡D{OÁ&ąşťçUť›ťt¶°sĐý-ü¦ ş‚jôşłQ®8Y«ŢiţçuKzÝ›Ýö®wľđ-Ž|í»ßúö7™ďĹ/éŘű_úxŔ mj€ďt`}6¸źţE°ÝĽŕűVż¶0„C6ámÓĂqwĂaô8¸%&Š-+akĹmň[.SÉŮOăR‘GÜUq‹|_¦ú­±őÓ/[ęa=Ť;ÇÖ—–ËĽôáç •ceą6MR÷ ;&űËÉUiPc\ —zĎ ţ(žZĂ©rŇ~‰Š1PŚŃŔ¦«ĽârWŚW'Jö6Ěe üf ÂÖřt)Ž-vç;IĎ3¦f^?@ŔIođU~ľ°7«T@’Dˇ\®Ś9-¬±ňĐŽ)+Ua)1ĂJ·â(¨›Ű?‘şČŠ”t®×,Ő! zŔď˛$MŁŰ«G ’rn­bŹ‹ë>«Óťe/ l›\ ¶š-¶ŐŐ꺶•w4-ËhiŤčrĽ·ĺ­µ‡í:ÄŠŐ¤­cmżmĺŁ0’ZóöZómŢâ.٭ɶă˛é{q„w´˛7ęĹXµŞáMŘŔë Bj'ářV8¶Ö)®ę:\»¨Äţ˙ibKĂ™.ůME>r?řäe6ů‰Ľň„čć)¶ůËiľ•śËśä.÷ůÎ)Śr §|Ď=ß°Đ‚ô˘7=ćF‡´Ň˙)bŞWÝęÚ”şŞ~ţt§ă|ë)Îz±˛»qĐy˝ĺiĹń©]°ď,ŐfŹ+­hËuş3‡±Ťx Ű>Ô…J”îHĄ×µ§ f$zZĚŔď§ýîpëŐń•†ŞäżŘu#óÉńFž”gZkĹ/ľŮvödOťĘąO>ß ť3ş.oýÝ˝ě—e;DuMiIÓÜä,ý@2~ăÔ»;PŻ ëăÎÇŽçöíŹ9ľSŇČSßžăÁóżoĐbđzŹçěůţ yŃwżünţî­oř(ËŮ»âŻ>ˇŹýÇ~~§ çu_‘äłŢâµÍ3·];뇷ުŮ?ł€@ÇIľ©ˇżńS·.s4ýŰ.¸ú¸Đ꼽cąţ Áë6e»<âň"Z2´˙“@IY=´ľú +ÄË8ĎâŔŔóŔ\7Ă3E#ľşę=ę7đ›?„µâcÁ´ś3 ";µč˝sł­± ;µÚÁšűşŁ[¨cBÁIÂjB*cşş{Â(äÁł;˘łB'ôB,Ě„*Ü›»B.ĂMĂ2$Ă/¬¨3lž)LC6„Ă[sĂ5¸ş;ÄĂ<ôŤ:äĂ>ôĂ?Ä@ÄA$ÄB4ÄŻCDÄDTÄEdÄFtÄG„ÄH”ÄI¤ÄJ´ÄKÄÄLÔÄMäÄNôÄOĹPĹQ$ĹR4ĹSDĹTTĹUdĹVtĹW„ĹX”ĹY¤ĹZ´Ĺ[ÄĹ\ÔĹ]äĹ^ôĹ_Ć`Ća$Ćb4ĆcDĆdTĆedĆftĆg„Ćh”Ći¤Ćj´ĆkÄĆlÔĆmäĆnôĆoÇpÇq$Çr4ÇsDÇtTÇudÇvtÇw„Çx”Çy¤Çz´Ç{ÄÇëŠ;gpsim-0.27.0/extras/graphic_lcd/0000775000076400007640000000000012210742356013501 500000000000000gpsim-0.27.0/extras/graphic_lcd/utils/0000775000076400007640000000000012210742356014641 500000000000000gpsim-0.27.0/extras/graphic_lcd/utils/gpsim1.png0000644000076400007640000000044310416272230016461 00000000000000‰PNG  IHDR@ SěÇPLTE˙˙˙UÂÓ~ŘIDAT•c`@€‚ 0ĹŢ>ă?Ás„Ą‰źs>D ow`€ '[Á C˛‰EÁA@-á3‹BGz #“‚çf0_…Ě`3 )ŚŤ† C3#›qŚˇŽdŽr#Čd;Á/ŕaîŃŻ`°i>ÇÔ9%Ç!Ą‰›Éc’‡ C/SĆ$‡6Ö&ýÉç*\Xš4;<ň\8@Ś7ΦŚ‰. *‡ň™NLśáÂ`óű sÇDy¸ůÝ0@é}±yIEND®B`‚gpsim-0.27.0/extras/graphic_lcd/utils/konqueror16X16.png0000644000076400007640000000035210416272230017753 00000000000000‰PNG  IHDRbťňgAMA±Ź üa PLTE˙˙˙ÝĎŇtRNS@ćŘfbKGDH pHYs  ŇÝ~ütIMEŃ9-ăľl«JIDATxśʱ Ŕ ŔW:a$żP*"%S°ÄSĐSŕ)cš«;ŇcŮ[Áđ—Á"n_ş‚iÓˇľ@Ś"n"Ó wĹĄŃ)m›\QĽŞIEND®B`‚gpsim-0.27.0/extras/graphic_lcd/utils/fontimage.png0000644000076400007640000000024710416272230017234 00000000000000‰PNG  IHDR@ SěÇPLTE˙˙˙UÂÓ~\IDAT•c` `üe0˙a``3xŔ óů6`Ć?űy@ŚźÇ ç2ضĎůb0¶%Ϩ2Ř€ 0Ł/Y‚ĚřóX¤‹ŹáĂsŮÔr0q“‘ťČ™TIEND®B`‚gpsim-0.27.0/extras/graphic_lcd/utils/konqueror.png0000644000076400007640000000045110416272230017305 00000000000000‰PNG  IHDR ’ggAMA±Ź üa PLTE˙˙˙˙˙˙~ďŹOtRNS@ćŘfbKGDH pHYs  d_‘tIMEŇ ("ą$‰IDATxś]Đ=Â0 `«[{Ź,ÜçUĹ =E/ć.‘ŕť?TŃ,ů$˙$¶™iy.Ŕ+QY÷ä¬ŘeĄcQDŘŕ¤Wl cÇMąÂrQͦŢ\)‰·#θţ0·D|UĂ?ä[ŁĐâCÇv ę¬gX÷>2źß%ÜűúZ>_|[Ń꧹IEND®B`‚gpsim-0.27.0/extras/graphic_lcd/utils/README0000644000076400007640000000404510416272230015435 00000000000000pngtopic ABOUT: Convert a png formatted graphics file into a format that may be inserted into a Microchip PIC .asm file. The main purpose is to allow graphics to be easily used with gpsim's graphic LCD driver. The gpsim graphics LCD driver supports only monochrome displays. Each pixel is thus either on or off. pngtopic will convert color to black and white by thresholding a color image. Or, if an image is already monochrome, pngtopic should handle it just fine too. COMPILE Compile with: gcc -g -o pngtopic pngtopic.c -lpng USAGE usage: pngtopic [-i] filename.png options: -i - invert pixels -p - preview ASCII image The optional '-i' will invert the pixel color (black and white are exchanged). The optional '-p' will display an ASCII image. This is useful for previewing the image to see if the color-to-monochrome conversion looks good or not. Also, the ASCII image can serve as assembly documentation. EXAMPLES: KDE has some small black and white icons. Here's one for konqueror: $ ./pngtopic -p -i konqueror16X16.png ; pngtopic - png to gpasm PIC include file ; for use with gpsim's graphic's LCD driver ; Copyright 2005 - Scott Dattalo ; Automatically converted from konqueror16X16.png ; ; ; [] [][] . ; [] [] [] [] . ; [] [][][][] [] [] . ; [] [][][][][] [][] []. ; [] [][][][][][][] []. ; [][][][][][][][] . ; [][][][][][] . ; [][] [][] . ; [] . ; [] . ; [][][] . ; [] [][][] []. ; [] [][][][] []. ; [] [][][][][] [] . ; [] [][][][] [] . ; [][] [] [][] . ; db 0x10,0x02 ;width in pixels and height in bytes db 0x18,0x04,0x22,0xf8,0xfd,0x7e,0xfc,0xfe db 0x70,0x3c,0x08,0x01,0x01,0x02,0x04,0x18 db 0x18,0x20,0x40,0x80,0x81,0x06,0x04,0x7c db 0xf8,0x78,0x70,0xa0,0x80,0x40,0x20,0x18 gpsim-0.27.0/extras/graphic_lcd/utils/konqueror3.png0000644000076400007640000000035210416272230017370 00000000000000‰PNG  IHDRbťňgAMA±Ź üa PLTE˙˙˙ÝĎŇtRNS@ćŘfbKGDH pHYs  ŇÝ~ütIMEŃ8:yvŘ-JIDATxśʡŔ @ÁŹ`„tF@zú^;O1ő2e9u ŇĄ…ě˝rřÝ‚Ů8}*ć#řTѱé›'‹"¶ŮĽ’l—l„í˝uCPIEND®B`‚gpsim-0.27.0/extras/graphic_lcd/utils/custom.png0000644000076400007640000000045310416272230016574 00000000000000‰PNG  IHDRH ‹„¬3PLTE˙˙˙UÂÓ~ŕIDAT•c` °?“üüăGaŹ›¸`ęĽÂ lf ‡Ů>Ĺ,xĚŽł]˛ xŚcŰ f)ăŮĘb%¶ńî˛dĎ˝xŘ9Č’gďolü8Ĺ6†f† ’Ť 7Ěx$0$¤IłÜ`ÄŰŔĐ ÁÂČŕŔĂ„¬˙ś˝ý v‰ô ĽgžXĎ`çńYŔ ‘s q7OĐ}9’ ¤ůűA,›zÁvö /ř2 ěŰ0HÜ`K0HncH`0ž9ç@Şc›ŕ{Éę{ä±1=Bl°¦xvIEND®B`‚gpsim-0.27.0/extras/graphic_lcd/utils/pngtopic.c0000644000076400007640000001554510416272230016553 00000000000000/* pngtopic Convert a png formatted graphics file into a format that may be inserted into a Microchip PIC .asm file. The main purpose is to allow graphics to be easily used with gpsim's graphic LCD driver. Compile with: gcc -g -o pngtopic pngtopic.c -lpng */ #include #define ERROR 0xffff //#define DEBUG /* Globals */ png_bytep *gRowPointers; /* Dynamically allocated by libpng. .png file is stored here*/ png_uint_32 gWidth; /* Image width (in pixels) */ png_uint_32 gHeight; /* Image height (in pixels) */ int gBitDepth; /* Color depth for each pixel */ int gColorType; /* 3-bit field describing png color type */ int byte_to_nibble(int byte); void usage() { printf ("usage: pngtopic [-i] filename.png\n"); printf (" options:\n"); printf (" -i - invert pixels\n"); printf (" -p - preview ASCII image\n"); } void help() { usage(); printf("\n pngtopic converts png files to gpasm include files.\n"); printf(" These files are compatible with gpsim's graphics LCD driver\n"); printf(" Copyright - T. Scott Dattalo\n"); } void error(const char *cPerrmsg) { printf("%s\n",cPerrmsg); usage(); exit(1); } /* getPixel(unsigned int row, unsigned int col) Extract a single pixel from the image. */ int getPixel(unsigned int row, unsigned int col) { if (row < gHeight && col < gWidth) { if (gColorType & PNG_COLOR_MASK_ALPHA) { /* This probably is not exactly correct. */ int pixel_byte_index = col * 4; int byte = gRowPointers[row][pixel_byte_index]; return (byte>127); } else { int pixels_per_byte = 8/gBitDepth; if (pixels_per_byte) { int pixel_byte_index = col / pixels_per_byte; int pixel_bit_index = col % pixels_per_byte; int byte = gRowPointers[row][pixel_byte_index]; int pixel = byte >> ((pixels_per_byte - pixel_bit_index-1)*gBitDepth); int mask = (1< (mask/2)) ? 1 : 0; } } } return 0; } /*************************************************************************/ int main(int argc, char **argv) { char header[8]; int number = 8; int is_png = 0; if (argc < 2) { usage(); return ERROR; } int bInvert=0; /* Command line argument for inverting the image */ int bPreview=0; /* Command line option for getting an ASCII image */ int argCounter = 1; while (argCounter < (argc-1)) { if (*argv[argCounter] == '-') { switch (*(argv[argCounter]+1)) { case 'i': bInvert = 1; break; case 'h': help(); return 0; case 'p': bPreview = 1; break; } argCounter++; } else break; } /* Open the file containing the image */ /* A few preliminary checks are made to ensure the file is valid. */ const char *file_name = argv[argc-1]; FILE *fp = fopen(file_name, "rb"); if (!fp) error ("File not found"); fread(header, 1, number, fp); is_png = !png_sig_cmp(header, 0, number); if (!is_png) error("File is not png compatible\n"); /* Much of what follows comes straight from the png documentation. */ png_structp png_ptr = png_create_read_struct (PNG_LIBPNG_VER_STRING, NULL, NULL, NULL); if (!png_ptr) return (ERROR); png_infop info_ptr = png_create_info_struct(png_ptr); if (!info_ptr) { png_destroy_read_struct(&png_ptr, (png_infopp)NULL, (png_infopp)NULL); return (ERROR); } png_infop end_info = png_create_info_struct(png_ptr); if (!end_info) { png_destroy_read_struct(&png_ptr, &info_ptr, (png_infopp)NULL); return (ERROR); } png_init_io(png_ptr, fp); png_set_sig_bytes(png_ptr, number); png_read_info(png_ptr, info_ptr); int interlace_type; int compression_type; int filter_method; png_get_IHDR(png_ptr, info_ptr, &gWidth, &gHeight, &gBitDepth, &gColorType, &interlace_type, &compression_type, &filter_method); if (!(gWidth <= 100 && gHeight <= 32)) { printf (" Image is too large (%dX%d)\n",gWidth,gHeight); return (ERROR); } /* One way to handle png files is by allocating memory for holding the image. This is recommended for small files like the ones we're dealing with. */ gRowPointers = png_malloc(png_ptr, gHeight*png_sizeof(png_bytep)); int i,j; int pixel_size = 1; int pixel_depth = (gColorType & PNG_COLOR_MASK_ALPHA) ? 4 : 1; for (i=0; i>= 1; db |= (getPixel(i+k,j) ^ bInvert) ? 0 : 0x80; } if (dbcount == 0) printf (" db 0x%02x",db); else printf (",0x%02x",db); if (++dbcount >= DBS_PER_ROW) { printf("\n"); dbcount = 0; } } } return 0; } gpsim-0.27.0/extras/graphic_lcd/AUTHORS0000644000076400007640000000004210416272245014464 00000000000000Scott Dattalo gpsim-0.27.0/extras/graphic_lcd/doc/0000775000076400007640000000000012210742356014246 500000000000000gpsim-0.27.0/extras/graphic_lcd/doc/mgls10032a.pdf0000644000076400007640000020506410520763105016354 00000000000000%PDF-1.4 %âăĎÓ 4 0 obj << /Linearized 1 /O 6 /H [ 593 155 ] /L 68148 /E 66760 /N 1 /T 67951 >> endobj xref 4 9 0000000016 00000 n 0000000523 00000 n 0000000748 00000 n 0000000963 00000 n 0000001085 00000 n 0000001104 00000 n 0000001126 00000 n 0000000593 00000 n 0000000728 00000 n trailer << /Size 13 /Info 2 0 R /Root 5 0 R /Prev 67942 /ID[<39a282b91eca3589d16ada50e93aecd8>] >> startxref 0 %%EOF 5 0 obj << /Type /Catalog /Pages 1 0 R /Metadata 3 0 R >> endobj 11 0 obj << /S 36 /Filter /FlateDecode /Length 12 0 R >> stream H‰b```g`` d```dśĂ€ p@i f…baA†$É@¦C@€Nl* endstream endobj 12 0 obj 51 endobj 6 0 obj << /Type /Page /MediaBox [ 0 0 587.52 829.44 ] /Parent 1 0 R /Resources << /XObject << /Im1 10 0 R >> /ProcSet [ /PDF /ImageB ] >> /Contents 7 0 R /CropBox [ 0 0 587.52 829.44 ] /Rotate 0 >> endobj 7 0 obj << /Filter /FlateDecode /Length 8 0 R >> stream H‰*äĺ2µ0×35R0B #K=039——Kß3×PÁ%ź—+— Ŕ¤Ę endstream endobj 8 0 obj 46 endobj 9 0 obj 65311 endobj 10 0 obj << /Type /XObject /Subtype /Image /Name /Im1 /Width 2448 /Height 3456 /BitsPerComponent 1 /Filter /CCITTFaxDecode /DecodeParms << /K -1 /Columns 2448 /Rows 3456 >> /Decode [ 1 0 ] /ColorSpace /DeviceGray /Length 9 0 R >> stream & l#€Ő˙˙˙Č-ˇÉą‡0ä‡$9Ç*°D‚Ër‡"ącś|ŕ°ěşiÁ¦PB’Ď9NBG DAâo/š,DD3?‰!ĘYFxš€H ř‘áCźhÓ!Ç9§‰îaO ¸+üE®ż˙˙˙˙˙ׯţýß_ëŻţż˙ű˙´ż˙_ňPä=š r-–9‡(r9PA ĺ9ř§!śr"SňĚ9^y”ĺ*ˇ:!'A„",¨)Ę‚‚óÂzYĂ)Ęr¦D9\'EŇJCEŃ!B3hTˇС©tCŘ"čG×é đE@G–¨1a‚ 8aIŃ 6Bi Dv‚#ű8ĺk /ź»ŕÄ`ý°N:Ĺ›˘äŕ­B, Zob-‡8ôŚH":ýEÝ Š#łtˇ qaDgpč0‚жЏNŃ„4"î]8ëďňhNşÂ":ţ„‹3ůGâ—"ń"MBDvc ‘âD]dqˇ ¸7#†Ď¨‰8Źö7îżý˙ďőőŻ˙­˙őŢźď˙×˙'™A™Ěç‡*/Ň‘».‹˘ńpČ˙ÄDDŃEăx-+Ţm€x6ýhŽGŽXä{SrÇëĽDD†“–9[âś/ţÄHĺRUĂ·˙Ʋ†_é‘*•ő‰îGÇs?˙hDC•WS˙ÄZ{˙ď§ßű˙¨3 ÇČăˇ_âěđťń„<ť~ż|˙ű]˙Öţ—ôżşúź Ű_˙ ľ÷ëţżő˙—ýú˙˙ďµţ˝'˙÷ëúë»~×ďţ·Żż„Ňň1ŽChr‡!G!\†hä4C0rd“8ä[ @ä8ĺVr Ç @ćă”9Ç'‡‚9CŁ®|#®+ …ÁNR rÇ<Ęrőrrś´Ö¬Č Ç8ĺpGóČDDDŁ.!)ŚŽÎčŽÄ""""""""""""""""/ő'¬GLPä(çsą‡(rPXä ĺqČ[*…Aܧ"Ůc“ăĹ‘-Ęr oÎ9 @Ô ĺÁPGçˇÎä2Ç,r c“›‘Ăś2đ¨;3*”r°ˇČÇ*eq¬ťŕĂ rŁśr ŽLr ĺS@_ä ±Č=śr‡;’ĐĄÓˇ ŔđTD13ŞśrSśsAĂTrŕĺXäc\sXä09Ç!°sAÇ,rsŮC•g™T7źR™śÇä`ˇĎdÍÔ* á—µ¦Ŕ·D‘Dd ĚŐ–q2>ŤGäp=":1㹢0¸-/ x6qĘ2N{* ˛™pĐ[ťČQĐŐ–Y˘˝`mľC3ĺ7),sw*d#–9 9¸ŽČ#*ĘÂ{N|Sa˛ćhřR莖dŽ"ť˛čꉎŕx*Ń#†H‘ČŹůEČŔČŕm~„Jţ28…Ŕž$Ţf fňń"qĚ9+)ĚS(X3Ę""C$(äqĘąS8äp""""""""""#čÉ$GF"8d‡†¨DDGXj(HđDDDGçbČą‘Ů4†ÄDHw8äG8ä V&äľýÍ»ďt,î‹Żˇ_ő—_߯ëďűz­¸Ňý®×ĺŃQß˙ xjE>˘DĽ ż^źří~«ßő«ýëô@đTň‡4wżý;tśGú˙ß{ţŐ˙ůß·{ú˙˘ˇř˙ßX*ŠŁ»×˙ˇý+˙­Úőż˙Ůł?÷_˙^„C˙Öżö@đ×uIöé˙č~ż_˙!8ÖaÎ=î«P˙÷„"&  Št÷ŢýúÂ%úŹ„GUŹőů?v(BŇŻ˙˘-Ͳ:_D¬§*g¦ź­ü'u»â™!/úřUŢń#¶Çß˙Vő÷µű÷şŻ\A; ŻűÝeĚŽ)K™Ë˛‡*9ţ™Űëý_Â* 6ľákúü~ţ.ţ˙˙\P]yÁ´q˙đDŤn?ăS)ęC©!˙Č Z¸/đKď]»8˙‚ ß!ŁO˙âp ±„ô ú ¨Azä1Ł˙ůÄ˝‚!†oŻôň OAŃ85Ň˙U%ĺqÎ9;[´ď »˙Ę&†„ŽŻ‚KýQĂ»őüDi“q öŽ?[TĐ_¬:‰Z˙ň R ţ;EFŹn@đjsŮ+Âţuţ"6D//áŃŻiW%˙ č0îU1~‚ ˙ÁłŹÂhIć®č?ŕÔ«mŢŞ@¤¤¨mŻý AŻńýҬ†@ŽaÎĺANF9ă˙~—ů €Tr‡ ˇĐA~Ó~Şţ# ż o}űĂZýżĄýČAÁü‚ŁîVť9äjD{ßö;>Ťś‹ yÁJ…X"?ÁÚT˙Ř_Żí[â1$ëů aÎű˙ôő>¤-¸@„%ří˙úBÁ"/}@đŘëţ_ýôä1«0†‚í„ĄŐ{ ˙úKŇ‚CcOoŃP)żß˙»řPĂ)éń˙ţß˙Â8“*ű˙§Ü*ëß@Ă(ąNVŹůPf^żŻkľµ„]%Śkô˙˙´‡ż xÇŠż B*ňČÇßýš…ţč±× …˙˙ňMťchŽ‘‘×÷Řü öŻţŐypö"(züď<ʡH9÷×!­Ĺ;ú˙đ ´˙ĽxŤzy“Ozţ«<:NşPßú33óČr_O),2čÂ˙{đAĂŘAľżtÉ›}/ďëđťőý‰˘®:ßżţőUÇţ˙˙Ń8Ű×öqď!ĎÖŰ˙˙H;é˙˙_ý…^vőţ5÷ëyÁŠňëíĄŮW ŰTż˙ŻëDĚ_Ük»KÚČWM~•|ÁWűU6µ¶ —Ż˙‹÷§ÓUUđĘŤu ˘?kE?ÚjÚđÄi}­őâ5Mň躇ň đăNőţ÷yÁ¶˙YđĐ~5áá{ö¬á¦~Ö‘†läÁLrqĎ~aăä Ú÷Ü$"‡b˙Č-‚ˇČjĐ!íDßÁ*ZčE˛c•dAĚ:űi„Ô‚Ři9'ţŻu‚ZŞďĺT˙MuAßúÚYÁÇ(GÖ¦’r1Şi©ĂšëďĂ\â‚đJĹa8‡G—ďś7<ÜŘĚv©°××a®@ů¨®@ó˙;ÓkţtŻi{đČW q!ŕĆ«G !w…CëWţ¦ĘÚ˙¶aĘ#@ľ.4Ů7/ľ˝éö´«e…ţÄBéí¬ă}! ˘ëŢ—OŹ ŘŻé®×Ř5 xŹÇţ˙<‡ëĂ_ěÖ0eÖ.Nż˙ç@<3˙a°T@ńÖP˙Ă&äG1˙˙á…ţĚS xT˙„]b+˙˙ě8˙ä2E#ür?Ĺ:˙˙íŁ@"Cg_Źęˇ†ľG@ź˙Č ĺtë‘Äúë[Ç#˙ x«ö"Ż˙â c ˇĚ9NWˇ8lĂ” ˇČdžą°Ýg÷˘Fź«_˙şś2v Żű<4×ď÷ýµcÓţđîř}_űkŻő x6ŽSŞ˙ţ˙îNC$DNg˛:#‘/˙¬G|†@*í^˙îAHąČË”9 BC&/B""?˙â?Y˙ű$"8" šČ ËľEď! ăëäD‹ß|řhŮÂ˙UŃOžÍ'˙o×Xâý]ű‰ tí%T÷ţC$:$ľżŞ¶˙öżţC$XFˇ˙˙1ž_Ö˙Č`sa!Ďź˙a?˙â"sůÁ‘¤ĹĹ˙˙Mß˙â7<6ǧ őż“É:éĐő Ţä [B†ýv©¶©ú3)î@„˙ä‹˙­Ňęšč nżü ţ°PaďŻjëÂżúHQÓyĂ@áGűöÂVŮCĄTý˙čĐ;í+&°<?űÄmuő˙ÂżÚ xŽx‘xţת§˙ż÷„ŻÂq^˙»´×˙ţ’M˝|Ž3  ]Xar `­â " AÇď˙űAjŞş>řńׯý ÷ú˙µúÚ˙őtűl7.;p×°a_˙U ä (ţ ~”0ľT%kűëű‰Ŕđ(řű /űŻĂ^©Gďí¨0—ëý‡ÜŕŮK x0u0őY Ä8ç &G˙Ţۦ@đk´tň‚ŠwčD? x*Ž@đ×9NŻ˙­µ ţSášC˝?ż˙ČÁC”;{„0Ϣ@<2:‡˙č0żßč!<úI}‰$/]x`żŐţ"őáä ą×Źd —O˙_ń <˙Çţ´¶ë xeŽ ăď˙ľß<2¸˘2 â[ż˙îŇÄlÝýH‰?˙żÂÓŁö˝˙°aä4‘cřű˙ęŘKÁ/! Ł˙ý~íŞä2ę}5žeQü‚?˙ľ> !ü%Ú˙xYËň.ft2:o¸ NC Źî"ŞDňśˇč!WZýŹý`¨Dđ3Ń8fň®9˘5Ő˙ý'~=ŞżXIÂtŹ„3o <6ÜŮŹxA?úéA|LŽ”†Sż¸Aď´“mV‡ţ uýZTŘÁ:ë w˙ďöČ=(DďĆ{!’ß˙ŇţĐ"ëëý/ńH Ăű_ŻţľśgĂS@Â(÷î˙ößá”>”^@đÚŹÇč‚Ř,÷őWi)çˆWOßň a±Â˙sP÷íęßú˙ař“„Xa”;ßĂ˙ôÓţňpsz`Ĺ®ýűä IýS˙ľ"°ĂëĂ×ý$|Ă˙Ĺšµ†Ëü?ľ?¤ő  ůĂ>5aďß˙Ą ˙r:በ ż xqÍđĐl‡˙đ’đ¨Í?!§Bí<â»a‹˙őI˙Âz÷ĘţR+ţým˙¤ ßqőńúę—˙8*<5×Ç×÷ďú¤7Îř§ÚKłŘ†ë˙WűJÖşř?+ ď˙˙é0ziŢ.—_˙U˙˙H kşě"‡ Ó˙Ő?ý?‰>łÂ[?‚‚Ľ/˙_Żz  |ŕ\v,%şd/a 5˙˙ý]R¦ŰđÝbaa‚]{ú˙µTéjő„a4&`ŠpB뮿_˙§Şř‡…ÂTBŃÔ˙_őş_Ţâ<2ľ,"l˙Ů ŽA­˙ţúkZ)ęA™Ř)u·! r»Â ť˙˙ďôĽĐSŕěD\&? ľľť…Ą˙íŐűA$ÝDÖ?[_˙żż˙§©Ŕk.·‚~ě5é˙ x<:ŐÚ˙î#§řaĄ×ďvŞÉÓ(zX"ź§ČLŃA~›+_őaŐ"*ăőÄF`Źö_ľµ -­ČÇöň #˙@Ţ@ô?†Â ×ý†AÇ Řj’ýŇ NöSż ă¸l%®ľíˇ  q´ß Ü~§Ő¸˛‡ţżĂ ×ú‡Óď!(sâ#2âŰ;Ú±Vż˙±Mę˙‡®˝b#؆S©iá%_˙M}~á¨.ČÎHrCăŢ"„#<Žżű _üGâ )Íué˛:żţí7_ëÔÔ’a—2>Nkg’ Z˙ /ţ©/ýĎ!ú’±Ř™¤T?í/Đo_ţ@ńŽQřDQĘó÷Oł4™|Ź D~Úá‘ő„íWýÂdÂĐůŔŔţ"" ĂíĄá°ô·˙ „Wń\:#ŞááxH7j—ú§_ůŔŔţ ŮOáÚéĂm$ŻúžŹ‰ôűďaăńÂMŘK˙XBĚÄ }Ąîä+•f‚‡ü‚ýl0P’˙¤Đa»×Ź‚a`ęů5ôlUÝ}zjÁ? Ú˙Ý:żë xÖ˙ ô‚vM}{ëŻÚčĎ…ý;č6CďÓďţ»ŐéעruÂh}ÖÔzŻHQvAY˙A˙4đVePĐTČ°S¨5ś‚¦E“žg9C 9Ç)Î9¦y•Ç4a5ýýűŔîÂ)Ĺz„Ođáe¬ˇ„DDXŹő°×­5ŹęźOĐMÚ¦®Âikű˙§ý>„_ý¬0L-ş˙é6?×[Kéa“â­iU˙ţ÷0„ŕ¦h‘oďbgŻo˛Č1h2o^żým?^ř0 /Ż!Dź¸"ť××Ţż× xaÚ˙Ąľq[÷˙oІGĎűŠě6ů~Âßú˙cúô¬•WßŕÂŃ˙[ý~6¬Ž‹˙*˘´ ®:űßý{ű^@đĘDGb( Xý˙Ż‹ ď{đÂ˙Óďńëa~ *˙ý{ /Á‚˙Čű}ăC^7úŻż˙ý~éÖ’˙ÉňsYND˙OżĄ xe<ś<(äŽV…pAţ„Dđeż˙Ţ˝ü˛řďÓ˙_˙űÂe8@ÖIĄ÷˙ľúúôëh:‰Ĺú˙Kýü†Púc.‰żČe#˙˙őÄÁĐn3­¶Xčŕ_á˙˙˙ÁŹFhľÔ\<ş^‚Żý˙üá”:đ„‚t ¬íí„ţ÷şŻŹ¬ ú뿥˙ĺŹukűMýzřA˙ă·á‘ĂA3­Ů~ÝZ÷á˙˙>"‡Şˇ^:ţ?/ćţc÷ů €]át˙„ńëýä ±í­˙YuđSŽLsŹ˙ż¦,cĂ—_űëâ"p2˙˙őőĂ éđ»(Nż×ézľ pľ›×ŰW˙ţëÖÄő}/LŁ˙ďŕ‹©p˝ľÍ˘4ňĆüG˙˙膫ţO ™đ·8ç^ĘŻo]/˙×ümubl`č!V0ľ˝÷˙ŽC)ëÝL8Q}Ă"!]Ľ+®˙÷ţÄŠäAÁ˙Lx"ëDx8ű ‡Ö/ČM G×˙ÂżŮpŘŁ˛†SE:8 -oé ű_üE{ÔH·ńá„$ČĆôżýG˙˝ëżČâ=ôSÁ˙\‚¸˙äqË‚ZŐ<פżýÓö^04˙™°$üW]éĹH8ŕËě¨ücŹÄk˙R uŹţ˘AÇuu!bÄXú­‘×Đ%†PĺPçîPĺYĚ9VFé“ňśšBť2†r‡,r‡3rśĂ… â§(iČŠRrn+ü=â /ŘKŤµýň,öaýkôĽbĽ\íeu˙3»Ő ŤőNü »ýĂ+T?_¤Śh+K¶Gţ_˙ę|Á› tÚIqř˙˙č-´›IuţČ09Dz(ä2‡Č#šK(r­ra”á¬3ŔĐíđUů ŃřŹ f Ä~%=†P a–éä)?Č^@¸űx0Î9Âľ’{^žř ňäNŚ+iRUúě­Ei­5ÇÇ!±Ę‚ˇŰJ«üH09‡0ä3# aľ˘'q¦á*Ýů ¤b"9´9nPrŇI;ř^„Dč†`Ô˙f!¬:˝uáŞa~äŽŐ_`–“ß ·TuÚaTmş %_‚ î›ő®ĽkWôÍU'ú(zu @ĺľé«đ—Ó¤Č|oŻ3·iS„?O|fÔAú]„‚6`˙ ęŻÝ±ÇIşK‡ö˙˙n‚ebIëŇ).@Đ4˙ű© ú±HTAśsaÜÓ‚śĺąÇ5iŽ[śrÇ"Ys(s9“są]öşd#éü8f…-C!Čě•”äܡĚ:2$|ů/‘Đ‹B,îh(sĚĄ`BŕÂ3B#ű˙ÖţaeŞIIĘ:e+;ˇ1B!hG‚#˘:Ý_˙ë¶H ˇ§ă»)Â~Čzţýý°Ë†ł@‰’r ŽrĺH( 2ŁÄî·öF0Gp–""$ ąěřSsq‡<ć ±cÖB9ĺą‚^x{úúĺ‡NÚADDDDDHAČ08úýŻßmŠB #ßďýsy†„K˙żďÄ Řb*ëö×˙°a„_ýĄá†;‚tl  żý°żřlP`‚Wő°ikűA0†§„sˇ˙öHżđĂ Ě6c˙±WţÁzŽĺ‚ｧŻĂ Á42»řakřfdG! ?ü0żö Ä%˙!‚Ł_ĂA°păuř3^G ˙!h+!…üăŘ/ü†@f$m/Áł‘]/¦Ú_h.˙M´ż!Şža ČŕM^ţdŕĐżm „?üđlÉÂd‘ř’q˙´`€W:/Çţ©ÁĹ˙ĐtĂ ý˙®Á‚˙÷ü#@ě ?ő×ôšÎő˙˙@Đ$›÷mHĎ˙öëî+˙^ť*‚ A ţµŻďŠ†@t¶ý°O˙ţşö $týČ-‡ h N@˘Ź˙ĄţÁ‚HśżT&O˙˙Ů­ h˙ć€h!Auׯ IŐQlR0˙Am0C4Á Ł€‚„Áo˙ôPy ó ›ü†H6ńB0š (L($ ˙×sXś‚h $ţ… U5 @y!˙×  ĺöHAnPćˇĂ“¦ j¶@đ×Đ@‚¬}gQéâ""u@XA˙l0s¤`LáČć\ó„h.pCî Ażţ•ţC$ 8‹ŚŘehDCŃ n‚a¶@‚-˙żú¶žş÷÷Á"aëżů Ú‹&VkţüĂő˙AÁ\ _üŔŻÄ3X™H€5/í~ ˙˙ö H-˙Űů 1Č`‚€¦ő˙ř}˙ßřP/×Ăű#~Aľ_~µďŻúżőZ˙ţ=Źż÷áőŕŕď˙ü†@4Đđ{×ý|/ßęľŰ ˙÷Ż˙˛´˝ÖßüĐ_˙ď§÷ů eźp/Kúö°l0`ÁţęM˙ý˙ëPźµĹńÁ Č@a˙zv¶—…˙őT­ĄŻ† 0Á˛ Đ˝Żú÷>˙ap@ˇ¤Ă_đĂ 0aá_żµm}˙_AĎaXa/đ`Ă í;ż˙ë áDC@ů ß a ˘ §ĺ$µú¦ˇ4"Člń»!˙ŘL!Ĺ[ ŽA/×˙lDI `Vx2žH˙ {ŻÂ)ŔĚ Ô€¤4sŽaô~%ëé €näŽÓDD’á™Ř÷˙  Ó ŞióX5pÂđľä2AĄŃ95A˘CkŢ×µĂKÓ@Ńđy §.5AVS–9(»F`úG&¸`ü0¶×űAd4 Ë» xh ŞO6\¬!pN@Ú°Ň÷´ť4áĂ őOµ/˘říĄűŻ]µJőűČfjźěA~ :ućÓ{§éżČ5'ńd€PżoćÂś › l'ożŻůhmAĐ?†=5Óľß}uđuí6+Ô0˙ű Č,„˙Żň ´đŞ_a˙˙Ó|_ţţýHd‚äđ2QđÝŻ÷ű®—®ë6:h2…˙ ?ţľŰZżűńô«L&@ˇĘ˙põżţyáËvÖŐm,†~Şb>­Ú˙m¨ŤĄĄţAyóúţýĂ Wýá†mRa®A˙é#Ďű őw˙±L‘‘őa-°—§˙ŇOřa±Zţ–b)Ť&hzäČeŹ˙H&˙Ă^ş~íVĂ&O´˙ÖżŰa~ßá„ &1\đGŞ}ŻJ˙†í4´Őˇ!’H…­ŤĂ<ż /×ř`ņaa„( Ꟈlŕ/˙ě8Ť ÂTŞű¨ŹĄĂ´Đľ—ęÖ»đÁł˘L‘WßŰ &źëŰaša?˙†˙~ć8eŔĚŕAŕČ~•~:]xlE0OőçĂ1W˙´šdőř!ďČkŹř®C( í%˙ISţ–ÖUßü&ţAor‡SŤ®ĹXöşŻ‚Čeô»Ú î©-ř&@đk„ҦćŔż{ű­/Čd>OIŇ}Żě* ż!’ C4PNż|0ża‚J‚ü-˝wńdsű•eŹČdhĺWÂ˙ńŢ’Wđ„†ŔĹß_ţÁ5˙Á ú}_ň ň,q§ý׺]rˇOý†Ăé˝{Ý0O˙ů¬ á˙ë×ߤżÉJĂľÝW®źďů d¨0őđ«kŐ˙×ÉJ‡ş±íŻ<ŇýwŕŘa÷T“ %Ň ľżđpĂíZŕÁz§˙Ż [ ZiŠŇß×!¤?ŕˇěC Ň˙Ĺ|†H2ÔÉZţ»rCďä2AR·b‚úż×ü†H6V g^µÖšţ†„_íďĐ!H`4m/˝ä aţǵ_ŰńöF( ,P^»˙K( ř%ÝÚţC$Ć+I˙1‡ţC$ *ß˙m˙!’á…ý«ŕů†˝ö×ň aľb?í˙_űâ˙i7ţľřoýţŐŹ˙îź˙ŰP˙ţéţĂ ˙Ř0“˙ű ˙±_ţÂ˙đ×˙ ˙ČŔ˙ü6čAf„Čkń MHZä @¦˙¦Ax `¨Oű I_ő´Ó!‡´Óý{ýVÓµ_˙_Čdwś‹šŃ駧8Á#Ó!˙˙út"¨'ž:Ρ„ż˙˙ý´ťŇ}_˙˙˙§¦úú×ňŔV˙őŢźW÷˙żýkß÷§˙Wű$9‡#r w˛Ç?Ég0ć˙ő¦˙˙â"""""">t wň=>C ˙ő˙żý?‡˙Ţ˙ä ÜÚ˙Żß˙˙ů ómö˝üŕËß˙óc#‚äpĄĹ#äq‘ăŮvlyĐŕWéä'y nôk ü+C˙B"",!É,rNE‚,ËĂžĘrĘr¨żđ×·Ů ľ*˘¬Ô)!°ˇÎ<9 ׏ <4‡˙ţ""""""!ë˙ţ¤""""4Č6Gą S‚ ÎO˙ß˙ţ˙Đz„ż˙¶“˙ţ˙Ýýv˙­z˙˙^îűô˙ß6D Ő˙˙»Č ŠĎvĂ­|"s˙ůŻűő\Ôażî‚0ýŻ!žo˙˙ű46ţ°@ßűň_˙ęüy´ĂŢ7ý˙ăł ţ+ôďýaĂ߯˙Y˙˙ýżż„`˙˙ýŻň84˙˙mżü ßßďČČëŞĚ~˙o˙´`ëëżÓôí};RÝ5×ŰżüA‡ŻőŻiw}Ż÷űo˙I7ż˙öľęŢÓi'Ąkíţ·…a˙˙öě-…ö¶Ý˙«×˙÷Řţ)ŠŠŘ¦+ď˙«˙˙ö˝¦źwö˙ď××ď˙wi¦šk¶˙čě‚ťÍËß˙p NatßďŽô:÷ţ˘" Ž Ŕ‡Űż_×ëńnżż˙˙_ż˙÷˙ý˙nýęż_˙~›Żű˙˙ ­z­áż×˙ě~»˙ż˙ú˙Ű˙ŻďţČiéŻíţ÷˙˙‚˙vëë_˙ů Ŕ{˝m˙_ő˙.MŐ}‡˙Ő˙ţC@ýíŻßëůŇ?řiŢ˙ţV*÷Şm˙˙ř!ß! ăŢKűő˙ůN $ČiąH!f¤2\ä5hAćCV„5hAçŰŻë˙˙‚đL!aȡ0 ¸é„Âᆠ_~˙ţĂűTÝ4i¦ťŻ¶—˙˙ţ ÖŽTűítôÓżbő˙˙QŞ{­.Cc¬ôŃćç×MQćČăřký˙˙Áý&Ž„űŇN‚îpł„č:~ţ˙˙đÇőŇZŻM¤Ý>“jÚ]ű ý˙Č5Wűű~•==~ôűŹ˙˙ţ űMô˙kíáꝧŻŻęźţ˙!®}ýiţżÇÚ«kî×ţż˙÷˙ďß»Ç˙˙żÁ˙˛ ˇĘző ˙ů”˙×ű˙˙á˙ýţşj«÷ţż˙ř˙w(ČoýżůĂ*+ż˙úüŹęÚZ'9+׾÷˙_DčŔ_˙÷údGČ/„4¤˙:frrµ®×ü…ĂÇĄäG `x™Ť˙˙ýičś@‚ ťä2Ő{+acő¶‡Á/!—°k˙˙÷ü.š ?ˇĹÖ˙˙Żˇ˙ż˙˙ÚzOţ»˙_˙˙˙˙˙Ă˝/ý,?˙˙ż˙˙˙Ţô›đóyŚ"†o8—Q÷áüĹŔć7ß˙˙ß\âwŁŔOňí"±R§˙†üDYN'ý˙˙Ăżďł ' ąţ˙oŮ ×˙˙×é9 g_φ‹oš_˙˙6 ˙˙ý˙Î_Vţż˙ˇ÷ń˙ß˙˙§ű~żđeŃuZß˙˙ő˙ë˙Ő˙˙ÄXUtż˙ä2A±˙˙ű˙úż˙ý{|ŹOô»˙˙úęßäOý"7ôôď&䎿č7×˙ř¶ľCDZëý^®ľŞź˙ w˙˙řa~%ú{˙ŞÚV˝öšÚűţżo˙Ăřďô­KmmC85kÚÚ^ý×®·öj–ďöÚÝ~˝”vĘD]-´›_ ű˙züo ęk ;ß˙÷ň4Ç˙ x!˙ý|ý ‘@đw˙ýý˙ýűMŰý__ű×Nć u˙ľţ˙×ýŮ 7/ ˙ }}˙ îA˘>ż›¶‡†˙˙˙M˙č<0ýý˙˙8ĺAPPĺ9NźwţáÂj ?ß]ř˙˙Ý<0˙˙˙˙Ż˙çg ?×˙˙˙˙} o ˙˙Ż˙˙ü'Ă˙öţ˙÷Wż­> ˙˙äß_˙˙µü7˙˙×üŕe×ë^ţ÷ßń˙§˙ţ_Ű˙˙÷˙ë˙bŻ×˙˙˙˙˙ŢÂŕ—˙˙˙i?´V¸A˙úýŻâPeaVTá˙úýý†Č+čA·8ĺ?ř±„˙ß˙Á‚ü2 HňĚ9ě®)ü5 ż˙_ëŹőşČd†qÂAćA“fC?{X ż˙˙ö˝5OÓA¦!°pL üŕ^4YĂpK˙˙˙kßü‚¨öŞšh4Ó x?<7r ¸ ż˙ýo yĽ› ˛>ţŐi=;M|*®‚˙˙îý…őĐ·zjśŘeźúa˘:#¦Ź¦ź¦›äĂ˙˙Âi đaI}ę—7ŁĆái®ŃśĐ/˙ßÓ\/_ţ’~ť'§Ýęl˘ž_ęµţ¸ýt˙«}?NÓtúŞ[ń ý˙˙˙ŻR Gú»MV˙_ _űß]?é_őŻdÇß&=c¤˙×<2ÇŻý~ë˙çA?ó‹ÄĐ?"Ţ˙úń/˙˙őżý/‡éý˙‚˙˙żKôß(Č(„źo˙_ §~÷á/˙Ż÷˙oŃ 1ň!}˙őôi— uü _˙×úŰďšÂ?"'!°rt—!­ő_ Ź ń3EĎúá˙˙ţ˙Oä3WËÝ+Ăw´> qËđÂá˙˙ëŻöý‹ {ţúOŘ%‚_˙űľľż÷ż˙˙±čß˙ű˙O˙Oż˙~î× ˙zţ·őýśDy(G‘#łaČăI˙ë¬ŮҢřa5 ˙˙ý ë~lč Bş˙ ô3Pzᡯ˙˙˙ëů ňçő˙»ěĚ3üG˙ďé˙Ő}—˙ `w˙˙_×úŻĆĽ_ď_ý!’ŤňŁä09ÔwČ(“…-É9‚ď˙˙ýůĂ//˙˙ň XAaČ0Ź˘ ÜlŤZC¤"(ËP„N†Y ‡A x/98+uë˙öżČ‚?UÝí4˙UOOě&Şš ˛A˘I‡(ÉŔ‚ůŚŽ‹äpÁ©÷µ˙ţ$oŐ;R7!ż]U~˙˙˙Uý¸˛ B˙˘Ďýö¶ľ¶šşţé˙Jţ×Óľď~ëwţAÝ?ďýS k·­¬5ßi)ĆČ_óa•Í‚śqgđ"C)ĘîA•6˝ŢŻőMV×ý6Ů9ŰR Ç)ĘvWkkřÔ ä\‚ä˝>Ó‰§ţ»V×ü iE1B"ÇĆĹ/ Ľ'˙‰Â]aě¨(r”!®ĹEŢj¶_ת˙˙ţÄDD~ďű«´Ó ¦O˙¬ţ˙˙ţ¶¶«ńq hCMk˙PA˙˙ĽE ×¸ŽëýW˙˙üě$GG"<]čĆmä qČţş˙Ą˙Ż˙óÎlâ?˙k×˙˙_˙˙í˙˙˙Ú˙Oţďa˙˙ßűý˙†}?˙˙˙éýŠű˙˙˙˙×đ×i~˙˙˙˙ű ¦_˙˙˙˙üŕÎqŹý˙˙˙˙Qk˙˙˙˙˙ *˙ţżüŕł‚śů €^d3ą Mc5r†‚ĺcC˙ý˙ů‡ AÂDGá0M2"7ȉkV?˙ű˙¦žźé¦©ţaë˙˙ý¦©ű®«řM?u˙˙˝SďÔěth*Lä˙¦™W)ý_˙_ýnl4?şp ¦ĂAÂwüĚ3ŃđŘČ5$ü˙ëZz§˙¦ë§_át?˙˙˙§Ňo˙Ö’oýđ›Oß˙Çż¦˙˙§J˙ţžť?˙˙đí}?ř˝t˙˙čřl˙˙î-ëé˙żĐű˙ëď˙˙*?˙ţ˙×ďßčÔ/˙҉ń{˙ë¤˙˙ëţ“˙úÓ˙«k˙˙˙˙~żŮßůŰ_ě,˝˙˙˙ęÝa?Č0u oĺŤű l‡€«˙˙˙ůÎôF"8ţF\š8JČâčŚ]Ĺ1˙É ˙˙ŕ“Ţ@ş„'?`„F@‚$0U~C,·éÚm}W˙ȧ˙ ¸očGĹ„ˇżŻě&­}˙˙˙ÂOę˙v˙ö `ˇ‘Ž˙˙ô˙ęýý-˙ú˙~ţß˙GĐ/Č5h+Ž`¬ćňLć˙!¦çP]놿˙ő˙ĐCř5„ôA5K ţ,ÔľÂ˙ëë˙ëů@/ň:·ţh |ĺŽVˇŻ˙˙˙Ňýž úńďÁ˛†°ĺqČ®˙˙ď˙˙‡˙ßţ»LDG˙˙_ţż˙÷ż˙5ő˙ß˙˙˙˙úDŚâ/ż˙ý~ż˙ׯ˙ţxýţ˙ ¨˙®˙jMČlľ˙ôm˙˙˙ ®˙ä4B műUÖŐ˙§˙ď˙Ó˙˙_ű~í-÷_˙˙ÁČAÖV—ýšv†¬4»˙o˙˙ňčôAělÜ\VĹFµţ—ýř/§vÓ^µmt×˙˙˙˙…ýé§˙vťÚţő˙˙Č4ýĆ űh˙mo˙˙ňJÂ˙˙đu˙˙˙˙ü'M?ţ@đ–h8ţ˙˙˙˙×Ó¶żúÄ~×˙˙˙ú›Ž¸.\Ŕ¤p挎ź§łS^ďŰűż˙˙˙ţ"""$[ęuD{°q˙˙żŐú˙ŻżôN Ľ0‡˙˙˙˙ţ˙éůŕ1ÇŐ~ý˙˙˙˙ű„˙»ţ«_˙÷˙˙ţż˙űz¶—˙˙˙ýő˙˙úĐ˙˙<;˙˙ßőŰ˙˙ý*Ú˙¦˙˙˙˙ uőňĂ©pÚ‘n[_˙ë˙˙ż#ü!pÂÜ40—ţ˝˙˙őÔG¨Du˙MŠXŘ˙˙˙˙˙¶·Bý¦żđ ˙÷˙ż˙Ý­„×ţ©˙ë˙®×˙âM_ţżŹ˙׆˙ŕÁ ěő˙ß˙|r˙˙˙ď˙úţ9 ·4˙˙˙˙żŢ#ţż˙í˙ż_˙ű_ő˙×ďż˙˙˙ţ÷Ż˙˙˙˙˙˙<×˙˙˙˙˙}˙˙î˙˙˙®AT‚‡,sőÓ˙˙ő˙ţżčDZo˙˙˙© Ńż˙ö@Ś8ç­?ý˙ŻëŻ˙˙"/˙ýŻ˙˙÷Čd,~Çýq˙˙ý˙üE—˙˙ďďßZ˙ţí?űîő˙÷ë˙ľ5ß~ż÷ďű˙ő˙׿ú˙˙őé˙żýW˙˙ż˙_ű˙×ű˙˙˙ű„oŻ˙ďő qÄAʨű_×ýýk×đDýާ×˙˙ßżjL‚âDÖ]ć±ĘS„-ʬ­'D]˘:"##34a”":! ÁSG%Xĺá‡8÷ďëëŮă˙°aP´Âˇ"čďĂ ˙˙﹢ž:DtgśČčş<‚cNî/˙Ö""""U‚ĎöhŹ™A˝^×ţ˙ŘH Đ9‡ˇ]*HŽŠLŽ‹˘:;dm§Gň:.ŹF­hŁ>¦GŹťQçd/ý˝˙ :a8ÍšTŘh#âGEĐâ"%-DtE‘#Šp#˘89˙oú͆ą>‹Ätg×üSVžtAsad""#Đ˙˙ţ"""@đQé×á=;˙˙ü(äAç†zᮿŰ˙ë˙U0‚űFqÉÚ ň>\Í2ń 2‹‘ #†¦y‘ňčŔÍ@ÖC˛śä0¬3dffĚśÎâ™™#\!čŕ»˙˙w˙ôëÚč&xGDGĂa¶p6Ť†Ńđl8G" zĂTâ""Ab?Żý˙ţ!ŻA†ô~Bí;ÓôĂĐXojżĹ×˙Úű[I6ÚK˙ëŰ‚ ˝oţż˙˙śMHn)~BŽ[ťÎ9śăů Ü)×÷ GS{ý<‡Ţ˙÷ÇűZb*ˇ&Ú_‘Ü‚€'Ý´“îŻë˙˙á¨PŐ¤mĐ⊎-Ňmţżďţ˙ůĹvKd†«Ąéí¤ŚŰ~żŻ˙˙V:k¤f6ÚZČO†ôý??őŐ˙¶¨GXA˝.l ćŔżµ ß˙˙˙ţqϡĘs9C•ŽTĺaËu!…±ÉaC‘#Ă ˘’vÂ_uíŐ6Ć˙ýďżěDDDDDDDDDDEáˇé˝%~ËăÓĂzď˙˙˙ôAHr Ź‰ —I?^x¬!}7ý˙˙úŮ@4˙p–łá‡ý†ŇWű_h†H7˙úצô·@ëýŹě¤ňzĺ9 厥A<;‘\†l¦«˙ůćŕ3÷ţéř?$żk˙ż˙ş{^@ŢmŹŘ>;Á‚ČaňNAV:˙˙˙˙ ya ˇÇý%[ÁČ4E˙]ű˙×˙×Ý?úOOoôőď}.ţż˙˙˙ý}˙őA÷ëólĚ2l+÷ű˙Ż˙˙żĂý<#Mó0ió1ízO˙˙˙˙ﵩđÓ$đAŻ„ * ĽĘ ·Ż˙˙ő÷˙kîµ˝pKMR}P×µ˙˙ßýűŰUţÜ#¨ýĐţŇ_˝_ÝuňSý„ľşĐUě&ťé톽ۆ@6Çżď˙˙eŻ›M ”Řm‚Čhľhp6˘83a¤lÁ8Ú˛BKţż˙ú˙Đ@ţŘ­ëř+kţš«b§?űë˙˙˙§îŇKţÁ{˙űm%¨k%ď˙˙żh?°Â]ö±˙kkě4Ř^ź_˙ýűa¤±ÇÇÇŰ »ĄÁ/˙ýôx~Ů ő˙ţŘĄ˙ż·˙űëéö«˙ţĂ ţë˙˙˙Aúa‚Kä°đsçrUŻĂ Ż˙˙˙ý?l0‚ô"8ŹĂ ×˙˙˙˙ňNqöC–GżěWţ˙˙˙˙÷nŻb!~ţ]ţ×˙ţľ˙őţ Ľ5ţŘű_ýż˙â{IřŹ ˙ń˙ýáŞy5!`'ţCG~ő˙ţżűa$P ˝°‡Ř>ATr ĂUáš>Aˇńď˙˙é܆ł€Łë§¦ťU{ďµ˙˙˙˙t’ ˙˙§Ţ˝˙˙ëűÂ!›ôűLú˙Ţš˙}˙˙˙ţ‚ľ"=ŞyQë„N ű˙ţ÷ď 0(ŻpE¨Pd€Ó"€Ô( B‚…żŻ˙ď­BďőM;UOżď˙˙÷ëOň ®F?˙w˙˙˙÷˙Čf˙!”:„éöškkú˙!’˙Żü‚©†{\†rOp6͆Ńŕm<  › °X3aĄű˙˙˙˙PĂᮟíSL*Úw­˙˙˙ü‚Ŕ˙ńÁ–9ěˇÎ8%ßűřŻ˙ú˙­˙Ű­ţűő˙˙˙î˝ä 2r†»˙éęšµ˙˙ţţ˙k# 5ÍßQ÷˙˙ëő˙ŘmîPĎă˙˙˙ţ·˙ᨏŻ_˙˙żëYŹŘŻh~—äá‘˙˙÷ľ|6ľÖěÓMýű˙Ż ÷ŘBBąE÷˘ ˙˙˙÷żÎ©đa!á—_˝w˙ë˙ňśľ)ăúß˙ß˙űôß xÜđaĘĂÁS?•2ś«8 Ş…A+5šgA^R s«(rĽ¤ˇČ(r qDjFPŽ¨Ő‘Ń-F°Úüú˙×˙üŢôOś7Ńd3ć‹""""?ężďú˙ ČŔoČ*—+ŕoÂÓ%˙őżűôĂô.z§TŹżű˙˙˙ĆašÁĐ};őV·˙˙˙őđoôś‚aśŚr*e:›5ů°ÉNARČK!·d kÝß˙˙ď÷ŕĚ#čŽŃ xô""".rÍ˝Ł0^ŕ‰¨P]ßë˙˙żü ańő«ř0OŐ?˙˙˙˙׏A÷˙ÝÚÔ_˙ű^ż˙˙éä ŃÓŐ‘ő cŢćku×Ç˙ţ˝ň4Pü<¸x¶A˘âŞšňx ŘO˙ű˙˙kÁNZwx `˝˙˙ü_éîTŚ5 H9ű(wŢŞľż˙˙˙żůą´Ý4ę)=„˙˙˙˙÷ţƦ kĐaę¤Ç xŹţ×ß˙˙ü˛>a~ţ"˙˙˙˙×3Úxaţ -q˙]˙˙ü†ÓżßĂX{ă˙ë˙˙˙… ő×ő˙úČŻ×ß÷°¸ý˙ßűőúŻx÷ýő˙ýăß˙×˙˙˙˙˙˙˙ŁŹ~A¸Ź˙ď×_ý˘!±÷˙Şođ˙ë×»˙˙z˙˙ú|öx5~C./ ¬?Ěsn<‡âNk(r‡)Î9ě·* ⬟CŽ|(°é?˝żţşČ>á5ú~C?^y áĽK˙˙ŻŻý/Őč>źßôď˝=˙˙˙ďýuÇőý4ôő˙÷˙˙Ż×÷ä0Ź˙˙_ţý÷÷ďú[(A‡8ĺPćĂŽqĘ«=ťĘr,ĺaďŃđoëö˝YĎ˙ k˙˙ë˙kQ'Ăű„ŹâĽ&齯Á?ż˙˙ďmVţ«˙ż˙ …ő|5˙˙ěWýŻűý˙üíeD›#˘ůž]_đÁë˙őU3_¦ż Ú9źícéćť˙˙˙­}¦¦Ŕđ×˙<kö:Á› ˝y‹ţ˙˙÷ě!¦˙† ř Oýý˙˙˙Ź_s źAľÓ[˙˙˙˙˙˙üW„Æ ˙˙˙˙˙ň CýtţAUć/b;_ă˙˙˙ţA´'ßµéĎD˙Ç˙˙ý˙żu˙Ă^š ďűţż˙˙Tűű }Ý?×ő˙˙˙_˙ř0_˙˙ď˙w˙˙yÂ8Ö‡ě=˙_úŻűßôÓ˙ßŰßŐ˙˙˙˙˙˙~˙ͦ˙ő˙ý˙˙ýÖA´ţmŘ_ż˙˙ýŻ˙ţô˙ýľ ă‘G(ëď˙ő˙Žżk˙ß˙†LDon9K˙÷ďý˙˙Őí°đׂ<‚°˙änAU˙Ż˙ýŻČr˘ńýXgX.Ó[_ôďűÝW˙ĐŹ˙ FAF˝&žź˙˙_˙®˙÷řh{˙˙Ó˙÷Ö˙˙ú˙vľq4ss0ÖűP„ý˙űúűü/ü4A©×§§ÁüZ˙ę»×ţ×XúíŘä3u˙ţß˙˙w˙˙żß˙ú_›W˙˙ß˙˙đźÇ ňv ŕO˙ů Ń ˙˙úĽ&l4Ú˙×˙˙r Ł”9Ža˙ °?č WíW˙˙˙§˙˙ˇúUßÓ_˙˙űµ˙˙ß˙č4 ·˙˙×˙˙_˙µ§ńÄ~ëßý}˙˙ęë˙˙˙˙÷ü‚»ó`GČ4Žxň ˙î˙˙ý˙˙˙˙ä2µńýŻň‚““sŹý˙˙˙é®ţ˙ÇOüŕÚţż˙÷ű˙Ó˙í/ő˙ß˙˙˙×Ó˙Řaďµ˙÷˙żý?ţP'ý˙ďő×ďżćĆr˙äbżćŔŹ˙˙ű˙űŻîßţ!xˇÚ˙ßţź˙˙űáĄéoďéˇ8ČlŹëň #ţż_˙eVl3™Ę­ Ť39aťĘÖU®Á…˙˙ő°`°™?!ˇţűÓű˙˙řľ+˙˙ë&źţ·×˙˙Ţ×Ţľľ‚˝4˙ţżŻűűżf^¸kݦlýŢšöşő˙˙Ż#áĂ xk_˙ż8łŠá şů˙˙¸<ď ŘĄ˙˙ééô×µ·ľ˙˙ëW|Ż_ß÷őý†˙˙˙Żűý§˙őý}˙ŹëŻľżßđĐű˙üqŕÎ$µä3rű˙÷_˙Á‚ü†ĐëÚ˙í í}w˙ř˙·ę>™öjPBĽáś…`Âý5ţ_×˙˙˙äţ~ň ż±^kü/˙˙˙ö=â˝A…µăă˙˙˙ţřkQ˙˙˙˙WŇy˛4F3Ů6h/˙˙˙ý˙f°<6hDDD‡ oä  ˙÷÷«ľ uń˙_ýëő˙|6‚}őűűő˙ß˙ 0‚ü8˙ő˙ż˙ţřa żO xq˙ő˙Čd†Ç˙|0Áé őńëý}˙`Âü?˙ďď÷ż˙ ¤A”¨=÷˙˙˙˙\0aźÝäą PůGÔá¶9ţF9gýţżđŘAZü<C[ôÓô˙ßý{˙Řa˙1=4ßô×Ő˙˙ýpÁ‚#ĄżXa駠~©ý”÷˙ţőęľ ˇ űŘÁ§˝N/”"‚˙ţ·ű®Ř@ľň ä ůĎ9Óţ’ú˙˙ţ¸a„~d‡éëoţľ?˙ýë˙ĂúđżýzŇß˙˙˙ţ¸m˙ßkkCkíýů8fÂ}˙ßö _ěŢOŃtľ8ę úţż˙˙őŃĹÁ´·‹0 ťýëÖż˙˙˙߬[ᆠ˙M~ľŻő˙˙żú˝á†/Żö ÷´µÝ˙˙ő˙­=´˙^#Ž·ţ#˙˙ßú÷† Ľ‚öC2<ř×˙˙˙őK!´pO 4ľČÇ)Âýí%˙żú˙ÖÝR­oˇá†‚ř˙úÚ˙˙˙Đ‹I|0Ȩż˙ďiŻß˙˙×WđÚ˙ŰôŕÂý_ţżB•¬ŕ r<;“ĽŽ…˙†żŹë˙îţó‚ GeŃôfŚĂ‘Ä>Ś#ŽEqÂ20Č莍˘86}vN†Ż˙˙\á®?ăý‹""Dźˇ8ź~˙ţţ?ú×_<Ě"řa˙<6˙˙ú˙ďľ×A› đßŢ›äGß˙˙ý~`ŕ¨]‘Ă*=Sř0ň0†~Člz˙O˙˙÷ú× Qµ÷†0şůG-í_˙ďüĂŞ}˙d <ßţú˙˙ú_ř'ř`ôÓňźÓŘ@ţźď˙˙˙úĘGá‡ţX/ďř ˙˙ţÖCmČ‘űŮWŕĂç<çÓ_˙ď˙˙˙ÇM†ź|&ľ>žźď˙ý˙˙˙ýa˙˘ˇ×paľź{O˙˙˙˙É Ź˙Ú˙čé­CÇ6˙Áś /ýűŻ˙UoŻű†Öż˙˙u__ű˙ú˙!¨ú Ô=߯ű_Żţż˙űŮ»úôŐa‡´××˙ţ˙˙×˙_˙}Ľ0đÓ ţ |u÷˙˙ű÷˙Ü0ĽxŹţĹ~˙˙˙×ýáÇĂ!_ë_˙˙˙ű˙żÁ‡÷»µţ˙˙˙Żëäoá‡őę^˙˙˙˙W˙úpĂ˙Ü_˙˙˙ţá‚_ţÔëŻë˙Ż˙ě˙p`ţţ˙ý˙˙¦˝ţa‡˙Ńl+W˙ß˙˙đâżđň‡ˇđÁ˙µ„/˙˙˙úé…˙°v0„ŕ7üE˙ý˙ţČ+Ăëä&šhę XnAPr‡Č*Źßä ‚«®÷ß˙÷Đűř`đ°đĂČgä ôţxÍŤ××˙ý˙ῼ=źüŹëâ×U˙˙úřaęŰTű˙îüTG˙˙!Żd0ĺ˙†¬őPÁ÷φˇ 1Ż˛H?˙˙÷ďŕΡ—¦źŽtsÚţ±k˙˙×Ă˙ě7Í >›§ţ˙ż˙˙żú ? ˙żď×ţ˙ý[ýř`˙đĂîľl6—üÁž Ła?ăý÷oëŕĂţđańĹÓúí˙˙ß˙a‡˙†C zë÷é˙˙˙›AżíPaúÖÝűŻ˙˙˙¦ďÜpÁđa[Ă´Úľ˙!¬=/˙˙[uţ ě3î &?¶"/˙˙űkţÔxßÔGö˙_˙˙a‚#§ţé¬?ř}o˙˙ěE†÷đĹď˛@3˙˙˙Ľ>@’?ĂC†ᝯ˙˙íwÖ ,7ř7×ţC$6?ďÖ×đ|,0ő©¨?˙Ż´?ŢÇí˙˙˙ř÷ä5ÇŘs˙ýţ“ţ˙Ă÷˙ä‡0ĺßkeŹ‡Ř˙ýiúţÂ˙˙Ă/Č1ú‚ú~$;˙˙ŃDý˙Żżń]ýß˙ţťßůÁĎO´˙Č+Â˙˙˙öťä4“üÁo™†·L‹4 ÁčřĎ˙×Ńý˙Í ů1pL.¨2šz~ xig˙_đD9µëČh ?Č<Ď“›Ő~Đ_řA<7{Čż˙ţ“ű}˝„?Ăôűż\ĐżéÜ>˙˙úżéűđĐ}. Ă^ŚĆÖ˙˙űý˙˙µëła·é›°0ţ/…6mĂ!˛>˙ß˙ďű”‡ţ8«ßéĹ?ţ†ŕđß˙˙˙ﯰh/é÷˙Uö˝-‡†P˙őý/o×!”ŁöšÇ˙_Ż÷‡†ů 4˙ľű)!JýüRĂA…˙éx˙†Ă†˙˙ŕÂÄm˙Mţ#_®˙÷ ŕΠ˙˙ëcŻü†Zż˙µŇ˙÷ <ýßő·ţC;ś ě§"=ű r ë°ÔŻýᩲ żô?‹O^)Đ…ţÚ¸`đct>ďŐ~Ĺ˙´ľď÷ţě-pĂ˙ď ËŐň {R ŹűWýX(¶ _őŽ˙Ô'űrc„˙a_řbÁÁüz×ű˙/ďL‚€˙7˙´˙˙ßß!”Oáú‹}Źě h4˙˙ßµi/ń§äŰű Şţ Ź‚„˙Ţýż!«§Ďţµň†ű[ńżő˙ë!µOßý6úżÇ^ţ˝ţ2_ÓO_¦˙Ż˙ďý÷żÂ|5Áü7ó8ůô‚Ĺ÷˙ýľżú°Oí®-?CÁ]Ë}˙Ćş˙Ꮿ„Lŕbż˙÷ß˙ßż¦d6ť4ü†HlŻë˙é‘ŇůŤóz z(F"ńtí·é˙˙˙Á ţĂč°T0ĎŠ>*ł˙˙ţ÷ň˙˙ű˙č7Ň×˙˙×˙őíż˙A>‡ ý˙˙m{˙˙Č+ď˙zîż˙ż~ý Iä4Üşîxżk˙˙Ţ˙_ď˙á…‚uă˙_˙1ż˙˙×!";o÷éŻ˙˙˙ű˙˙úhś5˙ţžźď$żýuĂ˙˙l‚‡ő»÷ýi;ý놰×aÚ˙öAµĐ™„ýż˙Λ  ţľź¶¶n×˙łŁ±‰šŁLö‡ëo×}^©˙öżćĄ†i•a,0ě/˙ő8·ý}7«ř˙±AŠŰ+_˙ü;˙®Óôőë˙°š!¤9ZXbż˙Úăßń˙˙˙ĂM!Âů°.\dp ŕČčÜc8GÄ/—Ď#Čé‘ŃÄfŤ˘čď—ýţßu˙§ü@ţ@öAv % B˙qB" ЉČk˙˙׫e}?Ů äoďÄEˇ˙é›?{˙üAýý˙éű˙«î?Ą˙ŻÝŻŇŻů •őz÷kżŮś†0ĺXäLČG(rÜăH,rc“UüDVAľa†żýň Ö@ź?űKţÖßâ"""""""4‘Ń=Ń 1Č.F/^ úiä{˙ľýŽżÔDźy ŃÉŽyž˙kďül†HeŹ˙˙ÓL'ü‚™áŽĘ$ü~ż­?˙˙hÂMëĹďűř‹@ľÖďţţlŤáżz{Á› żŕ͆—Ç_ü0Kűč/ýß Wß˙ţżŘŻţŹ?RĺÉäŰ*Á͆ŽäÇ2˙˙ż˙ăývó &>źŞa4˙ýŻďÎB˙Ąüřhä6{Ź¦ťŰŤä2f?ŻőČ`g˙_ŹŹţCVf#_O˙˙Ó_˙ú˙çC˙O˙ŻôďţżżúAţ¶ż˙ţfTq˙^×ëz˙w˙ýé ť_ŻŻ×˙ŕČ衅Oă˙űŻ:×ţCcŮ˙˙Ź˙ä2C`˙ű˙_żŞk­˙ß˙ߧŐ˙úYÁrýzVżýÚëvż÷˙~ş}ý‘m[Żţí˙÷ő˙«\†śřăŞ×b*ňNAX!“ŽSś˙˙˙˙×˝¦¬r Žűý§ä2°»˙˙ýŞ\Řiý˙iţý­×đ˙ë˙dî˝î! ×®ŕÂ×üâYNPĺPä±?ţ˙řŞ˙ü¸ĺLGP qÝůĂt„Ő¦A­ËŹ˙˙űK˙řŹ>d€Ç •x"@j „> ˛D˙˙˙ U˙{č>5ôÂia˙˙ř0K˙×éýúiÓ¦ż˙ţ5˙˙ţA‘Óö˝î|4iÓŻ˙˙K˙ţ`6ÁzdGGÂ>`Í‚ˇ°ž tčĚż˙÷˙˙˙kuF¨?őđžü˙˙ţą q˙őűNź˙é÷ú˙­}-?ţýý+_÷Żéő§˙܆Ľ}w˙˙ZÂë÷űí˙ď¤f őě˙ŮĹ˙ţ¶ýţÁ” ŞA´(rśŻ;”9\S”đĚ9^PĺLÎ"_rśĺ9C•QÍY‡L„‚‡!áÇë Ţ9Üă¦Cjźô@đG˙éţşţű0äc”ë˙ÜDDDDDDDDDDDDDDDDDDúčDE„ý˙­¶˙ű[PÄDW˙Çׂ˙ßřkÚŘXVýuô˙˙űH˙|ÜŚrc…˛9Çj˙SaŹźŹ2:!ĽŠ˘ő°‘ń˙˙űřŻö"#b#ˇ›ŠĹ˙q"Y ; x/d5«%yuĹ ˙˙˙†żŘM ű[»´Ď’ŃA˙ďţÂXkü4AŻĹ±ýŇżűŘ0¸a}l¨ @šţż^Ňéýţ: ­x‰Á¤ż˙ďú׏ţCcÖĐŹhŹ˙ţl4}/˙ý}˘ó˙˙˙ü]/÷˙ü0@Ž O˙ ~†ˇr@˙˙ýţ˙˙µÄôĘÁHÍWý˙ţ–C(=|ą‘˙Á§OÁ đM0˙˙˙p‡úźú®Š7éú„w˙˙úZnż˙<˙óᡣ6GFtx3°źő˙ýi¶—˙í>“řkáŕ„Dť źČd†Çż˙×Fgz˙ü°Űôţ éIş7úo˙ţ¨ĎY A˙ţľżŻ§§]'˙˙˙Ič;C§˙Żé7ţµďOO˙ýűÇÓc˙˙űÓ˙÷˙_˙őý*_îă÷®?˙˙˙ý˙^ţł`†Â˙ď×÷˙mú_Ż_ňvR?ö˝żţ×[[Čgű˙ţ˝Pšôüz˙­™‹˙´Żµµë˙˙mSëÁě {÷ĹÚŘVËr¦_˙˙ëµ_ôďţ˙ě2Ü®+°ĘˇÎ9Ç;”ŕ¬DT?ű˙ŢNjl}˙é˙Xkýئ3¨ýŻ˙ëcŻýý?ü0_ě&š Wë˙îřkěV“˙Çü4Â]Đ&˙˙¨í[Ń ?˙ß xšÖ"-˙űŕĘ__˘€_Áx¤ďř‰Á­Ëł÷ú˙ţ7÷ÚÜđ:%˙U\”U}DGý˙˙×÷Z…‡ýôŐ˙˙˙Č4Ź˙˝~ßýŰ˙˙ß˙ů6˝`ˆßßűëďÔŕ´?˙˙řAÚţ7˙φ©˙ś5Ť äNC™‚†˙˙ß~`Ňď«LÇűBü‚»ařÁ=m|‚°äÓ ď˙ýué°Î8/÷ $żţOżÖ×Oď˙˙ţ|K ú(Ź˙í5ŻO_˙˙ôa±ŻÍ†Đ"‡ű^`Á˙ë˙í˙Ó ýŞúa°ÂO´ÂüżLăťňc¦M˙˙˙úÇýß˙ŰKëýzň1ź˙˙«ídí… _đÄ/Ý˙Ó˙ţűýqěx Âńö˝ˇ˙˙×˙ţwĚÂ7śEÄíţ·˙†Źá›Dt¶˛v™Yż˙üDD}äě„(r‡[ţ˙ńl5ä=ᇳ4˙ý‚éüDCŻż_˙ßđÂ˙đűaÁWűţĽ ˙ţ˙ß˙üá\ˇČ8ĺ9‡= »(ł§ţ˙ëGŕ×˙Ż!4˙˙ńĂ]Ý„o˙ţ͆ź˙˙Úű˙ôí0·ß˙!’úđ`ľżţ˙űO˙˙ăóŔ©˙á˙ńÓ˙ü†Łđżţš!Şä˙˙˙ý?ßüE5\H˙Ż˙˙ţ×ů Źö}? |9aśr ““ś}˙˙˙ńŻÓ®˙¨!dŐů `˙˙ýý÷¶ ÷şa>˙˙˙×ó0Ő[Ę#Đh1ź˙˙˙‚kLWţši˙˙˙˙úxazú< čřlhŃFź˙˙ż˙ţÂtDC˙˙ú˙ô ŕ6ú\ŔŇé6xA˙˙·˙ş}7¶ľžž˙˙K×˙ ú˙ü†ĐĺŹß˙ő˙˙ża?˙!¤ ˙˙ţ˙ŻĚű_ý„˙˙ý/Ź¤ţ?Żß˙˙űýżý˙µmB˙˙˙˙ü'˙µ† µ˙˙˙˙Ż„żf‘Ń1‘ődÇ;Ą7 ˙˙˙˙˙b""6":xeyXPĺ˙˙˙ţ˙ý„§b"+˙˙ď˙˙Żh5áŻ˙˙Ż˙˙đh5í~?ż<4Ł˙żűńs ˙˙ ˙ő˙‘Źţ#˙˙Ůp[k˙ ¨˙ŇVµ˙˙íA*ý?ô×Č-YaŻ˙ţL/ţ·Č+ßü0› ť‚Dg˙Ż¶ ţş Çë˙I˙˙öżřh7űôh…Ń™oÚ˙ýü0ĐA˙Á‚Óľ8· ÓM5˙˙±P_˙ýßzř0‡˙˙ —˙ţ˙ßÇň Ü˙aýřaż ×ţź˙´Áż÷°Ń÷ňv€ż˙˙ě0˙ëţţż˙˙_0`솛˙˙Íí˙˙˙˙Ó Ţ×íŻ´×ČÁ˙˙ů† ë×ăűö#ŕź˙˙„a‡˙×űkţź˙˙Đlý˙ýŹ˙Či?˙˙Núţý§ż˙ţh5_÷ţ˙˙űüDj˙­wký_˙˙ ßżţ"A°~żţżAďdnAUŐÂ˙˙ ţ"#˙ţż˙żŃá?űëß˙˙ú7ů €'ü! AxÚ Ň?˙ţľ“ţňÂżż xr cf‚ŕ‚ź?˙żÓüŘ3G*ÓđM/M? Ďi¦Ce­Ë‚ ‘˙˙ôßÖ/®ťúĂ Úi§˙]˙˙ߣ@ÖčĐžCşř"€hzÚÚMŞ˙˙˙ţýřL/A3O˝kWí&×_ţ˙_őá˙đ›Óţţ›Aéęlż˙˙ú˙6ź˙OÇ˙ ÓÓ «˙˙öËŹ˙ ĂđÎH?˝ţ × ÷Żüţő˙đ߸ľ»k[ ÷úëw˙˙µK{ý»Ý˙†˙Č8˙˙Ş˙VĆżţĂ˙ÝXž»˙§ä˙˙˙ţĄŹřnżí]ýŻ˙OČx˙k˙ďx_öĂÜ~V‡Ç¶Ó_˙»˙˙đhzň¬ęgO_dň +î¬ ÖkýĄ˙˙X÷čDwű5ý¦L%j¶˙˙úţżkZŘŠb>ů8˙˙÷˙˙ě+ý¦­0¬Sß÷ţ@đb ă÷ěâ5"é8™ · »˙†Hh2D› ¨k_!’ Ç˙đ„_ľ,Ř4ßĹ4ű „ĐaCA¤ÂßÓ˙ňÇ^ľżîëń!Çb(C˙ţú®˙÷âÉţżÓ› 9 7üoň æ÷Ý´×ţţ–µßţAQ÷AŰů' ¬??U•…ChrĂ ÷÷Ń˙ő˝nßÓO „DNPšášU†Ho˙Żô“ő˙uţ˙˙4O˙˙ë˙˙˙˙ş´Đh7˙ż˙÷ß«(tý­żě§Aôš„˙ő˙ČX˙żâÂămţP`»GÁ˝†‡>a}˙˙«×ëý?¦Ôkđp×Ac¤$űÓ˙ţÓ˙˙˙Řöaoéá6A­D'öżţřß[ňVý5öţíuON´˙~˙öľ˙ü3a˘řkÁ›Ca7ţť?˙˙·˙úůŘřkú˙Ý?˙ëެ_˝ţÚ _˙ţŹw˙ý˙lO˙Ż˙ŐDi_Żţź_ý}vD5 ™÷˙ŽäŁ·ű[T›ż˙ö¦˙˙řw­ö]ď˙˙ö…4˙˙őA×ü3Žh“ŠG\0ż˙ý×˝żďßئ"·c˙˙{IoţżöţkÚţ˙ţ«ż˙ü?ý„ŐŻ˙˙!˘.=+˙ßţ~ľ á…ýŻiőţAL/˙†ż¶¤#ń˙ôĐ˙ ˙?řaG˙˙»×ţSŁ…˙ü7Ż±_őý[˙×_Đú‡ň íß÷a»KÇżţü5÷í˙öţżú˙¸_ ˙÷Ú˙˙˙[ţC%ç˙˙1>)/˙ô\~f Ż˙ö¶÷ţHW˙ /ŕź˙˙÷·µ_6ŕZď˙ú˙˙˙ě5!­ţ׏ţA^?˙ň!˘?őŘaGé˙Á§ě‹Ok˙˙­Šü'ä6úýN·ä#˙˙˙ß!¨?§ŕź˙Ş×˙~żá­?÷_˙˙ď˙˙ý Â˙×z˙á˙˙ďřŹöC@ţüfçíýľ@đ/Řűä2áőµă˙˙Ż˙ňp]÷A˙öC^ r(˙÷˙ţżü:Č/7Ó˙ü†Oú˙ëű˙ÓÂ:ü†@*ŔO˙ô˙˙ţ˙Ż÷ř?B|źý˙˙˙˙P´Ňá˙ő˙˙˙Ż˙ńżßőµŃ°#˙˙÷˙˙Ýn÷·˙˙˙˙ň*K×ŘÚ˙ň‡r ýý˙Đ9 ăä2‘]ľţĐ˙úwSŹ˙˙˙!„|h§ÁţAR=…ţJ*żë˙˙˙Ú{}Ă˙đaé˙˙ý˙˙đá¨bęn ńµő˙˙ęé˙Űöü1ú˙ý˙˙˙˙˙íŢđď>…żaŻÍ¤ŽĘ ˙ýö˙˙óźĂî]?°—§˙˙Uţ˙úA¶ađ×`߲˙ýőú˙델űŻâż˙żď˙˙ý¶ľÁPţć#ęC_˙˙ń˝˙Ň˝nצřaxh`ż˙˙˙ý_é‰ĺ÷Ô0_˙ő˙˙˙÷ű@ÖżŹ˝˙×_řűkŰC˝yŔÝýÚ˙˙ş˙­ö":˝ Çr‚ş/…˙_ű˙á…˙˙˙†Ż»˙ţżů¸˙˙˙Ç_ż×˙ń I˙˙_˙«˙˙˙D ¨ ­W˙ÚřůÁťü_űŻ˙!§ďţż˙ţ˙ď˙řA§˙öżé˙˙˙ţFd˙ý†—˙®˙˙őúé @˙ţĹ˙˙ţżűÚ>< ß˙żůĂj qSß_˙Ş˙ř@ÚżţÓ_čGű˙ţ×˙¤żüX_˙ű˙[Źţôß˙â˙ď˙ýé˙Ş×ż˙ţ˙ë˙Óţ˙ä-üŕÍ~IČ+?űţÝ˙űţľ@đËĎ˙î˙×ú_őö×O˙uő˙˙ë˙u]}5´Ę÷Ôă˙˙ę˙ý«żä oC˙Á`Š ˙ţżď{_úkkôşię˙˙ýű`ˇŻëßüx˙˙ü†H7˙öP2pŮýţźČ ő˙˙ë˙ńC˙µÁ8ůĂj|Ă=˘ —ţ˙éż×†żčVšôÂ~Đż˙ő˙°2ŹÔ÷˙˙˙ýkú_˝A‚ ®Fźő˙ëď˙˙Ý·˙ ű_^”ĺţ˝ú˙ü†ŘéţAĚ9ěänPćtČŁ“ă‘ ĂťĘĆúJüG˙ż˙ýÓFŤ÷d2zűŻ˙˙őő®Ź>˛®á?ý/÷ ˛?˙˙˙č'ý5˙ŻÓ˙˙żżé˙[˙ë˙k_ý˙÷ Đë˙0 Çžłgúíuüwëő_Ż!±GţÖ•5ýú˙˙˙˙˙˙ýz÷V–˙˙˙˙˙˙ýüi˙˙żŢ@ür1Ď…ůű_ţżëi|H˙ý˙Żř!°y ¨aŻ˙˙Řţí}˙ő˙˙ßĘÝ{őözý˙żú~ÄWú˙˙lŹ„+ú˙˙Ż˙íţ×ßB?˙˙˙˙6‘qLeâ:0ľ /ýőđE©·Če:˙˙˙׋®Ck˙ő˙Uý ˙˙˙ď÷h˙ţúý˙ë˙ú÷Çľű_ëýŐ˙˙kűëČ(‡Ďëoż ö˙żűü˙Ó2±ýř_Ă‹ţÁ?˙˙˙~5˙áĄ˙˙_˙ű˙˙}í~÷ë××˙˙˙ţ“K¶ż{ýő˙˙˙ţ§*D3ŹţŐx˙Ź˙˙÷˙ŇOK÷´?˙˙˙˙˙Ż÷ţC 3ľű˙˙˙úţż˙×˙˙˙˙ß˙±˙˙˙˙˙˙˙ëöż˙ôűż˙ä2Cc˙őď^˙˙«Z˙˙Óúű^˙Ź˙űß˙˙˙ż¬#úíŻ˙˙ţ˙˙˙÷§Ć¶ą G˙˙˙˙˙úýďi&'.żţAUú\ŤČ*żŻ˙˙˙ým5ß˙§ď­Ż˙ű÷˙ŢÓM5ů1˙˙ż×˙˙úż˙ ! ý?˙^ź˙˙˙_÷żŤ˙> űđD€Ő'.˙˙˙˙ë˙öźń„˙ß˙˙ţţżýzď˙˙˙ë˙ x`˙˙˙˙˙˙ďűÓď˙„A˛}óžAz˙úýţ·¦Cţż ‚˙fĂm˙ţ˙ţókĂO˙úŻýýţż_˙űűüÁ‡˙˙ú˙ű˙˙ţź·ýS˙˙˙˙˙Wú˙Űá†ţă˙ÚëÄ_˙÷˙˙ţ˙Ż˙˙˙ý~˙öů´˙żű˙×˙ţź˙đŰý}ůÁ]Ö×ß˙ţ× Ůu ˇB¸Ş7ÓŻóŁ˙ń?˙˙˙˘€řŰö˙Ú˙ë˙Lˇ˙ý˙ě¬)Jëö_Ň_úá˙ţţ"=ľŘďÄ%ď˙ľź˙Ź˙6!ŃF´ż^/ż˙˙ŻţťčDEľ_„·ýţ×ß˙yŔ¸ĺ Âçͽà ¬ ˝ľČh˛ ˙˙ţ˘$6˙ă„ý.Öź˙˙ţˆŽßč,‚Î>ßŢA rÎ9ŕ99 ±Î9' ˇÉŽCąż˙˙Ż|á‹đ‚ČAr‡ŰďÄDDDDDDF˙˙ż˙űÓđ‚Đ0Bp·čĐ5t×ő˙ţüś38 .>µú ®ź˝˙˙˙{ÂIč=ż__˙˙÷÷ĂŇ;‘Žöűű˙Żü†HlŹ×ďĐôűđhź˙˙˙ý˝‡˙3fĂohżŻ˙˙ř?~§Ű˙ż˙˙˙ýů‰ä5fhŹ‘âëÓßďţ˙ż˙Ż¶¸o\DD‡ż űű^×ţë˙ď˙˝Ţ˙[·ăă˙˙˙˙~ńű^˙˙˙˙˙ŰxŻţíŻ˙˙˙˙î°Uýˇî˙˙ë˙˙÷ _hˇřöú_Ú˙˙ßň »n/˛ Óţß˙˙˙úŻ¦EďĐAďţC1ú˙˙˙ßŐma~}m÷}˙˙ú˙~~ÚŰń˛v|!8¨(saC”ćâŕî~$ĺAx<Ŕä3ąc”çr¬ˇČAÎ9Ç&9P_) ·8ĺIÉŽ¤QÉĚĂ”9Ç(rC¦Hr Žl"AÝK˙˙˙[o`żAáťBĐ.ýČuňż˙˙á~?® !ü‚ ů!Ó˙˙˙ůÎßü†+Çoî“ý˙ý˙ZwŰôh}żMîż˙˙ú~:řAżżČmqŮÖˇ n Űů ą’ÂYë÷ýßş}Âî°`ŠTj Á©:k˙˙ţšýú§öűP©¦šiˇżýëý®˙Ąü}ëţš÷˙ű˙ßżöţý;Oű__ő˙Ż˙Ż˝l‡l6͆ŃŔÚ6gil·˙?ö+ß÷‚ˇé­©°T_˙˙{˙Úű˙˙××˙űŹOĂ ˙˙˙˙˙˙í=ŽŘ%ěĐ îŐmy˙˙˙|0Kđ×ßiZű˙˙üýâ#˙˙żúÖëď˙÷ţúä÷xiűOúő˙˙ |g«˙Ý˙ýđ@˙˙îý|†H7Uü&˝˙ř ýűO˙×ëŰţ˙˙ůń˙˙Ż˙˙®‚ Łź!¦˙ß˙˙˙ü'ďż˙ß˙ý˙Ţ˝Ľ† ¨äś‚¤Ű‚ ®AUČ*Ç×˙˙żé6żköšä6?˙÷˙ţµ˙Ódô×»µüé˙ý_˙˙˙ŰaÚ8ëýáďő˝ú˙Ş_˙LCÂ( 0d4ČH 2€Ô( B€Ô„z˙Öúö —żöĂ×»TŐ=>·żŻ˙fdż˙¦H7öżţŠ ;˙ű˙~4żţŕ<ţš®ľÂ4k˙˙˙†µúý Ţ Řmś Ł´p6Ť†Ř"XCk)Żëű˙ÚIő˙RPúvşŞ´á¶˙˙˙\@6/˙đDă{˝őDô˙×ţ+{ßŇ9 ż÷kAw˙˙űő_żĄ ńazn—˙˙ţżëý·Ž’ ·¤×˙˙ë×űJ|›÷HÍ˙7Ż˙ýߊAwü"ź{ČÇżď˙Ż}}ďĆn>±˙ŻýŻöߨ[ú˙˙ú_ďŇOúżX@˙j˙˙˙ţďéżďń˙ôŻďú×}Öż˙ú˙üűő¶™ä"šż˙ôŻ˙­?˛ `Ür ŁüG˙˙öW…Ě®(sąPg*?ďý˛PAQČ*ąW © Ůg^˙˙ţ""""-/ţżţÓ_µ ż˙×ţ—×Ţ:¶«˙ÚčähČů )¸ĆfG3‘ěľPĚ#˘5#i?ý˙ß÷ýü0é”<4hĆa®fěˇĐ<#5éÄDDDDDDGŻ˙ý'ëýpá°A„Â`! d4Ć=éß˙6 _ďöҦí?íkŇéţd†Ç˙ý%ň‚‡R ¶E{Ő‡˙ýmŻ˙ď˙˙ÄDDi¶–ŰM?´ővO˙O˙ô«y´ŕ¤٠(3a¶l6Ť‚ˇ€T0 ‰ŮˇĄ˙ý÷Jňý±[{OżŐ±Uőţ˙˙ú¦îIżëřN׿÷˙äGôľćĂ4Ždxř0`0Gm„­ý?őm%Ó˙Żů ¨ ˙üD0„ZěI±¦Ă úßďTĄ˙ű °‰´dKK˙˙ë׏˙˝± 7MŠ_˙˙z§×˙ě0I´0Kë˙˙çş˙ýl0“#ÄGˢt]ŃŚÚ$DtGĎF¤hŚDtGDpä„`‹çŃ‹ÇÄ_:˘:0‹Ĺň>GEň菑Ńq ó|Ú1žĚ3_#äp…ă™|Ć‚ ˇÎá4tĎ„qăŽË™tGâ‘Áůáć{.Dp<Ż˙˙Ő?O˙áŇb"""""""""""""""""""""""""""(…oO˙úúľż˙ SI˙˙ţż˙÷†?ţ˙˙__˙”9ĺAc‘Ă’DÇ•¬ş˙˙˙»˙˙$×4˙űýkŻ˙ď˙ţúU˙ý«˙úş×Ç˙Á‘졣4K˘ŚŽŽ#ŽŚ"s#ä0Ťh˘##HöwŠ˙˙ýŞ˙ţ"""""""""""C$6ś±ÉŽDˇÎ9Y˙ýqKŻţ"""?˙űÓ˙˙ężí:żţA¸˙ď÷°š˙˙öß˙˙ü&9ÜîPäÇ,s9!ĘîD‚(âżď˙äń¸Á[˙˙řúöCj‡ß˙˙µ„"˙˙ţô˙˙ćŔđ7#…ţ˝˙˙´/˙Sg˙ îAĄ˙˙ď´6?úa?ý˙ë˙ů©Ó˙˙˙ă˙ňÇ˙˙˙ţ˙˙ţż˙˙Ż˙ď˙˙ű˙őţCN?˙˙ţÇ˙y­ő˙˙ůŔË_ë˙­˝}?˙˙˙˙_˙ż˙ÓO˙˙ú˙ţ#˙ë˙˙˙˙ĂN˙˙˙˙ě%_˙˙Ú/Żě_÷˙ýż¬Wú˙ţżî˙ů ˘łjUś˙!‘Çkţ˙Č7Ů˙§ŁÄaŃ_ý…˙ ˙˙á?ö­Ň˙w˙î /űO˙ČCű×ţC*Ëżý5˙Ćű˙ńý_˙żż˙˙šó˙ţµĺB#2č».2>GË‚ľżţ?˙g˛ ˇĘň¨J…9NTącśr‡(rśă“˛ĘŤţëď ăä4‘ýSăüDDDDDDDDDDEú˙ Č4>CD˙˝żöö[ý‚x&ź˙˙ł/^Or`ĺW”9C“ॠW ä AQ˙Żü†Ô‡˝Ź"ýSß˙˙ÚŃ9żôń˙˙ŰĂ  Ă˙š˙˙ß -č7˙˙÷ŽA†˝ ˇţżýď Ăyŕ‡„ób_˙˙ďÂ0řA ýµżßäŹßÂ7˙·˙×˙ěxIżţí˙żüA˙áĂU˙}/ü ôÓIë˙ď„a˙÷ţä áwý­wÚkżţEÔO˙ü ŘaÚ˙Đ“'˙ßAţ#Ă_ú˙ŕ‚ ?¬0ż˙˙Ű ż|q˙˙ú Ö˛ŽEżď˙§ ĂÝń˙˙đ‚oĂ$0µ˙˙ţ P9NA#ţ°˙ţ¸Aëţ÷˙űÂĂż_÷˙őĐA‡˙ő‡˙ßÁ~C(Ź˙ýWH~Aąý_żÂgÎĂň˙÷ëď]˛NCTsş~˙·ß®˝Ů˘ţźýa”ůB˙×8ľšú˙V‘ĎŻ˝/ żżŃ¨˙ű¶˙ő׉ Yá&źĘöăúűŻó€c˙á±ţúČŹ˙ôú˙·˙5džpČčň#„#˘8…Ĺ0 ĄČŽ:Ţ«I÷˙m˙‰©ŻňŻŹ˙÷·ţß üW˙Ăý´˛ ˇ?áŻ&†)ő·ßD $ßü ů`-:í˙É ‘×ţ+TÓ˙ ˙‰ž×űú˙í˙ÖA\}ŻO˙aůÁßü}wަ ú¶şýě/Kţđß_u˙† á/ôí˝˙ţC6™‡ČÓëßö˙˙đF°j§Žżýáżţż?˙w˙o˙kő_ý­‡˙Ź÷ţűéţĘpźÚČmżŁ†ß˙×ýż˙ D˙ Íß˙ň1ů ażűíý˝˙릟ŢuýuO÷ţţďë7˙k«ďú˙×Ě9c–9c§˙5Wţôżű˙á«ÄDE˙Áżţ@đd¦sţµţ­Ş˙čżţźí/ýŘŻá»˙ŹżÓ V˙Úé}d ~ż˙ăężićÁl˙ ׿őýŞ_úży ˙˙Ú®˙ M!˙ľ˙öż†żřż×Ó˙íŻă˙Ť ţ?ď˙ď /˙Újú˙~¸~×í˙ä €´:˙$`üoÚ˙ýĐ0ţĽ‚ľW˙«˙"ŕźńżkű xeŽh˙Č §űţ6B~(sÁ‡#Š>BDr Z xg úáżż!´=|DDDDDF!űěć˙ôČa˙×˙jׯM§˙÷˙§˙ŁŕĂý}‘˙»ţlŤ‚<\ć`Âď¬Ý x8˙Ű÷ué0ëű|oďÖŰëü47Â/ÓWýx?é˙oßî4ýúŕßýüÚ~C8˙ęOa}‡˙ŻĂ|NÓüCűˇz˙úż˙ű|zŁé˙˙ëő˙ß_ü f†í[múîŻw 5˙ôšvŇŻŕŐ{ýXćÁ°Ź—¸§˘:53`xg]ëMa‘¸[ý˙ľ"""7űíqôň ˙­W®×˙űµ˙ýß»µ˙ä aë°ŐwÇ˙őâAďŻô˙ _˙ż×ă˙ďř˙ÉĘżý˙ăő°Áý~ü†Hnë_˙˙xd1żţµ!ď˙ď˙`Ă˙ď„úŻűĘq;˙Čg0îChż˙Úi}d1Ş×ú†:˙^@Ř㶚8żđb˙Ú÷řĂ ŞŕÁ˙ߎŹ…}±żŕĆ˙µČ±řA˙żd4źü­×őá—?˙´Đkď Ôc~Żźú_˙°CőłQük !˙˙Ä~ňşŻă˙ů˙Áť_ü†Nű˝&C6˙ÚÁ‡żxúřňDs#˘9üĄ˙ WÄD~C$Ç J C˙ľţĹú%żxu×űďý4ýrá˙ě/˙×˙ {řk˙ĹfĎţ ;ţA—˙ţ«˙őńę§+éoţ>@đw˙úŻ˙űŻţźë˙őŰ˙˙ß˙ýěC˙Ú˙żú˙ßk×˙˙˙˙ ˙˙˙őŘ0\ż˙Ż˙ţ÷$Zd2‡˙÷˙˙ýŹÂw˙­ţ˙×× ć±Á>Ő˙˙ü5ÄDC¦Őż˙˙ďŘ]˙˙˙˙řk»† /úď˙ř0OÓ˙{˙˙8Ť†_¶«Ţç*ë˙â?´˙±_ä2C,ýgĂ(-ˇ˙˙ @äˇČeŽ‰Á?ü!ÇöKĄŻ)hÂ'Dty´GČůžiňśň Gëý˛Ś˝â"""""?űOëö+Ő˙ěđNÉ@/_á§Ü?őăţ_Č‘ÉŽn!Ěĺ}Ő˙ů.?äľ"""@ť9;˙Ç™†+­ßţ¸˙őä €Yˇü«ý˙ßżB/ő˙›6'»˙_ďĂä §Ż÷˙k!ˇEżë˙Őx č4ż˙ţá˙˙éŕ~ż˙úŘKüŕďţöšĽÔť _÷˙Ă üĚ4l˙˙řŤ`ęď˙˙MÚ ˙˙ Q ţ˙˙űűµ˙Żţ»O®Á˙˙\ŕß˙˙á‘Á‚: ’ Ą†ň‚îú˙â#Äxaţź˙ţű˙ď˙ő&`äDz”?á˙{ hEŹä˙[ Ç)˙ú -_Čd‚ĚD?˙ţ úaď˙ ŇĺFČÄż xn3ň nś/úwÄqÂţŠx]©˙‚ţä}˝§á•~xXľżÁÝd@¸ĺAQř żÂ{{úÄ?B$ dżČ)˙ Řýů`r‚uácëď~ đóč.ż˙áżä5Âo °×żđČ řD¸?Şëű8A~ć¤Df]G3Ć]™ŚÚ/Ů|Ž pm¤š!…×\ŕ*ńa _ \DDDDDDDDDDŚ=˙^Á„đ¸ý§ţc ż…·ăµřl ża©Á”rC”9ç¨)Ę­Kr—+ü 4á†â""""$2TsAc” ŁÉHčş6â‘ŃGŃpĄŔđÚŻŕĂŻČ6é‹BJ…Cčńą˘=_öŇuÄŚăĎ "?đä3dල †đëAýEż `׋–l—ú†ŕÍA^@đxm.dĽ8ĺYr‡0ĺŽP˙ŕ0˙űŘi^""""=ú0kŕΧŻ)Ňň ¤?ř đa˙ ÓëĐD §*/đcĽ5˙ń ‹ü秇˙ňŔ,Äż‡đÁŢ…ţą¶ýp™Ő—ŕ˙k˙„"?aţżý‚ü=ăřýú˙˙ý˙ř×^ţ@ä ]˙ß_„H±W˙˙Ăü†“˙˙&[Úý˙˙¦AD2ś××˙`ď»˙˙µżáß÷ďaf Ęđ.żě§4…Už ĐŤĘń‘\—aTR Ö8m,7őßâ"""""""#A`ÁţÍ@xuü6‚ŰýÇüá®; $ŕßólÔ…żä°@Ä%đoö¦ŕ3íŻ®đÍ@y|wÓk ţÁ˙﵂ţěÂ×ő!‘†ž‚żiIéżř4pA~. ?ýŇ ¦Ť$ż˙áGĚ8Żk!€˙ýl`đżÁ‡<?đ’0Âľđ߯úApD‡˙ţwŞ0Č菑ňďř@’xCę µlDDFC$źđ•ç_¸^µý(Mţ¤(Ź{ü „…p˙äeü/‡! ŁOđ’Źľ DGőA¸ Wţé~¤ÝU˙„ý _ú„˛·!–?ş‚ ˙ôa?V%8?ţ‚Đkü¸K°ľň ú aŻđ]űá-´ż‚˙]†A×řKmý˙!Č4żĄa°żÎŕŃý4ü%†!zµýČĹô ˇĘr7#˛śˇéŻ˙ ¶Ăü~„DDAě/˙ű˝˙˙®Ó˙ a¦?_<5%‡äđ˙O˙¤ę÷3Čçü ü450żÂAżČiŹżá¦AQ˙˙¦úţż¤ßżý˙h ˙˙Úř mŽ×ö[™ÎäsŽa˙† ü†ľ˘""#Čű' /ĹG˙řß x2U˙úvÖAßţ·ŃPe>Ö™<6’:ý˙ízz˙S4GG‘Żş %łxD3uűsÜŔ}rÓńđŠwżţőö ś2÷Ł0P˙˙Óü{Ň ż˙˙˙ M×˙Żőý˙ńßŢČ+Źúż˙ß~A!5š G"9+¦ýőŇő¨jó`®’oý÷˙Źú]Wßżőß˙·WíFÚz˙U˙˙˙đ_ţş_˙˙˙ż×đDuŻůŔćÂČAM˙đC˙ęźß¶źđO˙­ú˙ý˘Ł Šą(* ‚NAqČQ˙}őČd4Š99–9ŃČ`r rxqČŽw8äŕĂťČ9'(sŽS©Ý5űA7ĽDEŞČrä:‚śđAqĘ9T 㛊9 «*  ŽaČKýu¶Ô†@o„uŹĐZď§hXM°B,…PEęČP„đPĺYPT r(˙˙^ťúÂaĄżţľźiˇ ‡C„!ÂP9rYu«÷őO÷@ˇ®@đŃ9ܧ(rC»żOţşŞŮ ‡˝5Č;÷˙¬xnän Â1ÓµżŢ©ü7DůéíĄ06``ŕ1 x˛ ă09Ś!śr,˙Â|DDDDDA¦źţ"#ň#´·kq‡úk Ô9 §,r †g5żdQÉÚ{arN g?ďôÖ""#×l0–‡÷ü0Â÷áě4µżýí…áťďa„µ˙ýÇĂ -öCąÄcĚË˙ŕűý!t!ČmąaČ+AUČ*Ž@đ̉€˙Uń×[ uÚiöAU˙ýőýśT/×ÓMÖţ˝k ż˙ż˙öü†<Ö?`‹ h2‡ ś} 2Ł˙ýx0ż `…„,@i†CL€B˙˙ţ <˝=ýÓýűż˙Ż˙˙OČ5LJżúdtkѧÜ˙˙˛o÷đBÍ‚ˇ€T0fĂlŘm› łź˙˙7ýţżýz˙ő {ţżď˙˙ýr dÔ­5ű˙k®ţ˙^¶ßţ"""?„×˙^›×˙ő˙ű˙˙˙˙p/[×ţżż˙iý†Ż˙˙˙˙ű ˙˙˙› Żďń_˙ďúďţű˙˙ĐfÁn˙űý˙˙űľ˙ă[ Ż˙˙˙ţýŻüěr ĂČ‘˙˙ężPŕ×ýś!I NPeaÂr¸¬*f‚‡(ĺA´0ĺ9(sŽw<fĺ<̨Pţ˘?â?ńżď˙××ű˙żý}z˙oeA89Č|"Peq úžgÔĄHh§(çź˙ö×˙Źýţ-ţ˙©Ě:˙˙÷_˙úëď˙˙˙˙˙üâ J%˙żůĂ„˙˙~ú o˙˙ýstH4A;)ĎÄ(grĽ&™řÎT¶zćsą(0ĺńÜŮ°w>ćqĚĺAw ăr “ÍŤČ–aĘÂçá•ç‚M2ś°ĎäśĂ”9W©‡%dAĚć˛&9!Č ˙ţŮďä2@Ă!‘ÚŻ˙Âúk×ŇH7˙˙Ż˙ň1™tIł™KEŃ-Ĺ3lş JAqĘ↱÷ů'ç0ŕf łá”x2φYŕË<g(řeźĂ,řež łÁ–‰Î?˙l'˙¶îŰ»¸pá·mĂ˙˙ń˙۶Řm¶Ăm¶Űm¶Ü3Čyt=mŻűa¶î ;m¶Űm¶ß˙Źi/í¶Ű¶öŰm¶Ăm¶˙ë ý¶Ű 6Űa¶Űm¶Űo˙ý5ďŰm¶ŰmŰl6Ăm»aÓ˙ô9ŮŞ)HŽŽ.¶Ű¶Űm¶Ű¶Řmż˙ól(Źm¶l6Űm¶ŰnŰżëćĂkl ×ĂnÝ»ní»m¶Řo÷űâCéđĘŮÇ; Ę®<.ʱÍČ;ŮtĘxeهáśr,C4…ŽPňr.ŹfâD]eŰ* óŕ)đw ÝÎ?×ţ3ŚŽčĆGĚ2>GFĹ#ć38ŚËćc3EĹ?â"""""""""""""""""""""""# €ż˙đ„DDDDD3xoÓű˙ýý?öĽ(Ç(rC—Ĺgä2AˇĚ9‚Çł(P­ąMĹĘü|!řŃbNČ-†•TÁ!·ź˙…üá¤*WÓ»Mw˙ŻŞ˙á˙¤x6}×˙µü.‚×˙˙Č!îó™€ĺň8"˙×üűá˙˙^˝y˙ý>żëńű˙·żď˙ő˙üŻ÷˙ţŻ˙ýű˙ëü€<1˙ż˙^ú˙‡ßűţ˙ěŤŕ×˙˙˙ČiŹ†˙ď˙˙]˙ë˙żÓ ¨ô@”ę?ď˙Żő±˙ČAÎ9 ?Î9!ÉZ§×˙^ĽDGű×ä ý˙˙˙±ďżý˙4§Č`Á ××ßD Ŕ°r #‚!‘äyâůtc8 ‘ÁLĂ/‘ĂAËÄ|Ž ŮL†mëßţ¶@Ět8Ăn‰ź r¨Pĺ9[Qq\U‘pˇÎ9} eEˇÁwýţľ""""""""/˙˙ůäG#Ĺ˙ü0_ü!fŔŽä3Kďů ßĘ‚ ąVS›Č#ť9ÂśŻ>zÂäĘ‚9Ç Ĺ‘Ž{ Ăšâ ÁXypÎ9VAđ¬!…•V@‹?9NSťÎäKłŽXĺůÜî@‡-ČW"şśrc•ď󋮿ˇ`„F…ˇ„!ˇś"hDY ˇ´,Śt""""""""""""?˙áśs|5#Ú™PV¤SźĘ®)Agr ĺ9r‡>76†č˙ÇM?»UÓ±żżúżýë˙Żé˙Wöl2ţAll ŮÎËçtoMSM4Đ2>`‹¤ sY ĺAIĎç™Cž@źŹëŁËÓř3~l Ŕż˙PD3o˙ß˙ýß˙˙˙Ňż˙ý}qáţ@đks(Gţżßa}ż˙ţř2 źďkđżűA†`úăř_k†ĽÜGă®A¶ż˙˙ň µs<Ž‹Łčą˙˙ü.śŘ B˙˙ČźŻČ/äŹ˙wÁ˙}0˙Őz˙ŕÓő÷ďţď˙ú˙\6ź˙Rׯ´ţőßÔ‚˛Śl† úiŻ9Űv«Ü ň`ĘîA¤Ťô›Ä>ôkÁ“Z¶Aďý>Ňaď«żřO|†ľťtßţŽˇNĂß[˙Ń zě»$á« a{wÂôűĂ:ŕ×\0GÁo®>‚ ÷ŕŢ":°Ňţ˙ţÁ‚ţ‚ ú{˙@đŇą¬Ž ŽEéńđ\†Ç Ävúŕv|2»X\h>Z~•÷©zi öß_§Ç°Šđl…Ovţů°Ű‚pAh~!}ŕĐ0ą°m˙äĂIACů‘šřŹąh3ŹőäÁ \mö˙ČCLtţAl §2ľ ›Â Ç˙M˙Ł«#äh5ŚŘ(ŹB/˙÷á‘ _]˙˙őÂ3@ćŃ 4˘#Ó‚r-™ýo˙ţý$t †5 ˛\_˛Ň¸ˇĘr>Č*Cúż˙˙„'¬ĎhDDDJâA oíćŔŘ ^×Alţźh0żőí¤č" Ó5ťş/":>ŚfĂ‘Ěş>ş[ ˙˙µXD đ–!ĺĂ 3‘Áy Ď)Ďŕ?ŹőmtĘ€ÝâŃĘIP‡˙ý†čmźŻßµ˙đjéĐ9$0ë´O޶ľ˙`Á% A„Krč?WFhϯέ{ŻaťDZÜ=‡ţ ĂCýtĹuĘSř‘¸_P9OíţÂéĐź Î×ßń×ĂOÄú#Ľ0kţ˙đÂD ˇŻÂ\Ź8 1őčOţÚ§ŕÁz †˙Źý†’}$łćńD5H~ęűý† }ý»Ó˙ě @×ľá żăŐ˝°dM÷hµţ— BőÜ;V‡Ă^úD>ÚČmE~ äpW;iÁm¦™˙@Á~AťY>ö›¶żżÇÔqĐ”@k7›kŻďů 'táşvͧýdőýH*?D„î/ľßßO˙µ\¶·şëţâ@ô!ŰNýţmZ˙ü4Ř0í?˛‡^„Ž$oţaĘŹx<Ćď"Ž^K¦C.…PĺA€Ý ˙/DŔeeą@đTpW^ůâĚy'PKěŘ4ă×ćň`Ä,á™eUáůX+żCČd†Řř0q„ •â; żAßúů*0ä ţDóásPB é˙ۨ2>'4ň3 ô&“ČGAţÂkäDş´Ä•B=j» §Ôđlż<1ĹÍß5!ďh Ú˙°aŻšJń^ľź˙ čášk oÎ6 Č*ńÜ×ţ˙bŘ;Ż¦±˛ä_ëýöFI¬×u dp_˙Ç}qÁiżkľ#˙˙b Á‘đkţ«ßWżäĂ( ˛03Ż[˙ýČ-Ar Z߼‚Đ˙đ×ü‚Ři!Ą4f#_ý>»;‘G ţAlF1$OľŞ˙ö"5ü ÖŻ®öľpdr#„ô˙!¬_˙ˇţÂü†“T|‚Ř) †ŐD6Çű]H*eÖţ /Óň `OäČ ÷_iëń˙]Č)Ó˙ôîţ˙ţGRŕÚżýýŻ3 —ţC@ţ/$[ Đ9Tżü†ż•3_k˙ń#X;W˙B/Ă Ň˙„A† —ńżdęż˙đv‚ţČ#µ|Ed0=˙˙=R iµ÷~Ó¦C(~N×˙ Âač 4HQCźď®źkÓŘĎ—Â@đ@šB!ř÷Xk´úţ`6ű¨o"<$_řá…ĹěŕE˙äŔ‹-ü†yŕh^"¸`´?ß[8F€^ěÂč‹™>đů §8ĺqű˙ŻB,]¤ Ĺś×ď˙ú#y-~–Ü7ď˙îüYNy˙{‡ ď„ —˙ÄxŹ pxŹoó€«˙šěč’ŠäÇŐ<Á Řë˙ČlŻµ!Nënţ™Ý>żůŽC) ŹÝŮĐ}˙˙ňCŽGŢß˙ŻňNAT}ŚuĹěŹţ=úŻŮßA‚jSő˙ý®Č`¦ä ü5ťC«˙˙öꇆ(‘˙ý/‡ěň:QP× í-üŕsbű ¶R} d§µ ^¨5˙Ă\1 Áľtř|áž•ż[ű Ă aĂcĂâË2˙ňy g_ r a9ĘN8ă˙¦˙›Mq"Š˛:_d˙Ö˙đŘ\‚Ř6‰k}{µÓO˙a®AlŔ‚^—Ó_żü6‰ţ čl_ż™‘!ôźţa/ ¶ŕ_7ůěGíëâ&Al0qaŻÄč†?͆oý†‚A_úo×˙í„°‰pŰ_Ł˘îýaüČČŹĂ´I†´÷KŁA]áť5ëöźí\0Äś ŻđĘĂ0ľ˙żŘTŚ"§PĎ}cňCŹ§ö]Ű_<2\4!tőăÚ ˙Kč‚ bľ=x3@!ýz~ä4TŇzřŹ˙>6F^ý× ^6ą'řE{d2Ş ÔOëôó¶ţ í˛ 2Ęu ˝‘Gőáíč&ö †Yr•á˘rţßgS ˙!¤ŕ‚ ‘_fĐdč_JA­ë‡´A˙Ó {@f‘Ş×˙Ń´ńWáśD€Ěľţ÷˙7áaÍ`Đë˙ö6 =ü džÄ202”ŕk÷_ î­ô?Â|‚ج†;Ż÷t}˙>Al3\ŞÁ†ďDä ä}űń_ ńdfţ@ńĚÇLĐ7Kß&˙Aň aŞ Ip­ä‡BôýVü0¨Hä  Üá>AlKŇP·Ţ˝újO˙Č-‚¨ç­ţS ´=Ąż|4í?÷Ä20÷‘'¶ˇţ´y V˙Ż —Ł{é!uůü༠'6•ß˝dÁe; ëi´ÁPý›I˙Ůa÷ Ě0—kúiéżňhe§<2ě]uţžžżA†Qµôôźď§ëţÁ€ßîvő˙˙ů0 Ýżh]Ç˙ßü.ő xgx!ňűú ¶ú8”ńµ¨˙˙ß_[”„‰ëí<˙ýČ-†X¨±‹<Ĺţ—_˙ň `܆`WŢţÓďđDt †hçÂô\Ă“˛r .ţ¶źÚ×á NČćUCKB"˙h0°Ő/퀸0 ~YUŢÚ¤á[úD0Ó)Á¤ŹŻëb6#˙AŰĐX\Ľ‚ű˛F! ż´2čľG„4@đÜwý¦š_¤,6±ői¦_ŇDQ˙xŹúL?ú{ţ~ż˙¤@ľ€Áů €Ő˙Żč”Ź˙÷HJ@n˙˙ę@f˙ü0 đá‹ţ»oČd¨ďúß˙%€Ŕ~@đŘ‚ WýđD0pmůÁ‚˙˙˙„NË Ă6ň‚$˙GKţahIÔa¤šd Ü…r ţ˘?ţĐlA»Áćôtń›ˇgŃ´hL©2ůôNŤŁ ˙»m;{A Bź˙ľ`ČqŘ~oď˙vč6!ďhkKk˙ÝĂ Źš$CŹŚá—28R8‡3lŤłyŻ0Ź":&‚ó x ĺw˙»PŮ ŚŘd‡DDH/b""JČjd !×űöĂ<6ž+ŹÓŞvŻű@źüűŽA¤t˙ON˙۲(ĂdtőČ;Ř_ŇGWűnÂă#ßýŻút¦ËţtŰeő°Čjżv? ťŇ~˙Ű»żş˙úú˙řvŻî=Wő˙űi¶‰¨ü‡Źëő˙ŘmŁ=·<(ä08_ß˙é˙ôáŃŰňčGWß˙ő×đŘjÝŢ5˙ë˙ú#íĽ=j˙˙˙˙ăeĐĄöG@şŇ˙×_ü‚ŘŻŹ»n$,˙ţţ˙ţţ˙ÎřŹ˙­Ż˙Đ|!&ä8˙ďýţżä4Ç Ş>ň菂řM żoý…Ři§j±l ×V„4ő]}ČdĐíŻk˙ŻÍ|ăČd ˙§×lW §*ź˙°c.ŞóTo˝ďýöÖÄS˙űY˙Â.{Žż°l-Żř3AÇ#pČ0jáyŔʨőţhCCüDG°ă ľťV"×ö#˙†_!.’Żżé˙â ¸$¶ůÁ°rś@íäü‚Ře;Ş]x!bĽ2·íäÁ Y¦ë<ôQśEŃďďüئ7G‘uČ-†™pŞ?ä ˇĘ¨CĄÄD~ /čDDD‹°m«k xl˙ă˙¸1קhÖG˙ň `Ȣ«Ş xb»˙˙ň `ÄŻë xWD€Čż˙ţ2 z9 •ř!D ?˙÷Š[<† ‡«Üđě ß͆_˙ő†CHv7ő@şé˙űôDťżn»˙˙®$+Ö˝É"÷˙kÂ4`Áí+jCßk˙{ˤBd'aĂř±<żżýrÓ¶S„+ x%a®/ß_¸2\6ŚÁ,F‘Ă:r†ăŻż˙éŘ0ăŽĂ Ág{D îC,˙c!–#adŤ¸ôÂßŮ„í N N?µß˙ě Á“( ¦@đŐţđ×'Aţ÷ł e‡S`×đÂâ˙Y8, Ń >]˙Πxh†mC0<†@2BąĘÓľ·Ľ1A§GČd›‚'Ť7x˙x6ˇUčý{á`ĐApú÷ůômY ;đÖAl2†i‚Ýßř!Á2>F‘±ňä]ü†@oŻř’ ; Ľ4×ÁČ-†¸ĆĘ‹Čd ˙4E:ă< Á˙[ ˛ä3DxÁüGä2÷ä4ś‚ŁŕÁi Żţ 4ŻOÁa™Ç˙ x* Ja˙ď ¶ Ů !Ě×˙Č  `NkE’× —Č€ĚöůĂLeˇ~ż[çPkÝüÎ#ł†Ľ#PÂěĂ”çłyG)ëN †‚cźČeßó`‡µ aô ´÷‹Â0Ëd3†Pô­ôú K´˝ÚĽÚx2 xA˙÷°`Či $Ţ@đk{^Ó^ x H żü[!”]ëîľ#đŢ@đ( _ľ2 kV—ř?ä6@đ,O˙˙!†X2‡ Ô"›Çö´Ô0y €ß[żÚk˛‡'Ă-oŤív™Iđv?Älśt Ý+×gUâ!áA† ;ü203H€Ő]ë°]ࡆ?č2\3AŹY÷9sAĽ‚Čä6ź!đa ĽŕP!† ×ŕČ0Ě“\DjŞ6#ř"ś d ˙ ¶ ĚŤ­ÖŻČ l;ű ¶•śpd 52 #á‘ľ+˙=f,á´\( Č˙@Äđ*3¸!ü&„pD`Ó_Či9QđÁË/…Čdú‚ä3ń–« xiďűO ¶ĹČf";ŐČ G† đš:đŤ`KWëäĂm80×Tôh úÁďÁ˙ů°dÔĂÍ·ů —­ăh/߲ `¦BÇiVNŹoňś€Ëű83ą°'NA˘·ú%´™ďä 4˙ÄG[Áí„G\áF€ÓćôÓůĂ\Gß°`ěÇŠpR͆ "źÇo˘‚ŞţČ5dd;Ö¤A„+Č ?żŕČ€%A8ŽŚ#`¶'ŃÂîC,|7ŞkIUuŮÁLb ‡ýÍ« ¶ S•€ý‘čzáxFAeüüŕNžďäĂXT=r8p1ťÚý< Çţ@Â|‚Ř(r–[Qˇ«^˙˛>¤ @H‚–żŕ‚Č-‚ű5Ý!Ëá“!Ń ?ÜN 2 aGB€˘8l&×ä2űaţ ‚ÂR ňă>v($á–źČdy¸9?Č2 Č-™AÖiÝ©ÂáYµřŕÁŕÁţ.@€ô}W÷ °8i˘ /ăôĂ~ŕ‚ŃÂ+˝ls÷†áş ţCX˘ů@Ž+˝®6S®]máëÁŕx>…Đř3Ž®,YN¸÷˝Ýúě" I\Dč×˙íuţ č†ĺąńv+o˙Â_Áw¦„J™¬ČjS× xIč °—˙čIhđ„?ľ@đk /Ř=¶äl6¸_é¶, _lÓ{“­Úř…żnŮ tÇýŇA~{m·D2TwüHQ9ńĐ_† †hŚ†Wi˙ …ř0xlQv7tH˙ü(_Ňp`ůĐH0×iŢ@ńG˙¨(_¦Ca"060@ČH.ö$Ç˙ č 0d¸e`¦húˇ˙ňda•a” Cć˙ţΠI ¶ ÂĚ i­?˙ůOó›Á’a”ńKf0§"ćë!˙ÄEäĂř2:.a&Dz˙é˙đÄ2 ŕ•[Z Ž˝d A¶9Ă8˙ŢAlÇ8čę  }Bt‡_ôî™˙Ą@€d \mk °?÷¦µ˙űBwĄ˙o˙k 'üŘ6ő›aP §!˛ŻĂîˇß­†Â_ďę`ĹłĐ˙qÇ^đÚL_˙©9H!”†‹ţň˙ö@a/˙ĺÔC `ÇhÓQVĘă(a1ĘcťĘ.JĎ~a Ú ţ¶í!‘×]´ ¨ Ad~"""""#Ű 6ýßnÁ˛ EĹďě±­PţÄ& ń!`Č0t˙×á„…ţÁ"d5§řabłDz0ŽôR^9ÔűM†( 2\ş{ ‚n\üŔ3Ă|DGµţŘlî°Íŕ^E°„4/ýt˙Á†dL?Ůă˙đAżŘ0mTQkÄ?˙tiŻĐ`Č0waÖC 5śÄÚ7Š˙!ÂA†óŇ}‡ NŹu„Í×ü i0˙L†ŰŕŰ ;w_BCdéÁ Ăü†AP0ö4â/ţ‚a ›_ü80ČX x5ĺßúA´oú} Č7¬âHpA©ku÷Ňto˙Úaâ9Í:ůĄőŘAá?ńáĂ ¬!}…Vżví4CŽ_ű ­LGŠ ˙zúŠb)Źí{# űHZ×Öß˙]Ä;đÂzÝţ×˙ŰÔ‡sĹŻOwř~ż˙›#ćţ WęĐzĹ˙÷˙HD†‹řaĘşßß ńŞřŻţÖöAŃXż…ţý¶Ű˘·˙˙ý˙@Ă0š}Š˙˙ď˙ůÓ†,ńůř%˙˙˙†«˘ ć A^kíż˙ţ#ô^E*_‚˙˙ú´B ű ă~ż˙˙®ĂAűHčŐ˙ţ@đŇ-÷ü‚Řs…YtČ ~0L/˙şţ†ŰŮ!ńüÁ‡Ő}|ŕ¸ůł~É2ť»Ü]a„÷üäŤwX™âČr:ĆťČ c•ÇŚsąO˙§ŚS榟ţńhDG˙ľq˘Ę»˙ý˙˙ ¶ž‡n˙˙ü†H3Źř>áXaśĆż˙řűÁ~˙Č×)ĘĂĚăś‚‡(¨đT„°¨3•ĺyC”ćâ°ăśsů#žłęTŠ>Í AX¦ˇřăźÎçÎaÎ9N_–9ÇRÜđ˝řd0<3L/ˇ˙řB""""""""""""4"""""""""!ľ¤4‡ě.‹ćúţťý'䔼ď˙kţ°E(|>˝ů'‘ň]"8(#ĹŔđl6 H ŁG$9PDł9=MşOżäÓ<ˆ[˙† _Â%Źłx0WČ-†6A¬ˇÎ8.ávt"ë˙ą^˙ý“rč‚Řiq[«Wá‚w!”?äô‰ ˙üDv$Teď±é§í-ŻľľAlpk%”ď°ľţÖőţĽ* I–řá®gFhÂţlO§˙ˇ$"ŕĽÄa…ÄDCú›MwŻőŔ~j«Ţ '˙­/˙ćÂŤ˘čşóŢ9C˙ŕĚFĂ/~žä ÂŹď˙Љ ^Š\DZŻÄW˙Rś‚°ä2Aµ×˙˙!änXçĂ9Ť˙ď±iT‚ AQČ*żw˙˙]AŕÍІ`Đ"‡˙ő˙M4×µ»˙ż  AŘďÇδᭇLăď˙˙ú˙ýä3*]ćČ<h~˛†‘oéÝÜ;(tʬá–úţ>¤Ă ôÉŮÓŻa7ôČŹň€Ő( B€Ô# `Ó †™…űŻ˙Ö¬ :¸Šż:Şµâ˝ŞhZß˙˙äďMŻŹľúë˙˙ď ©Żř˙ä2úéÝÁŻűż˙ Ę˙ţ?>glŘm  › ła¶ ż_őŞżďßýŞjď˙˙saN•'Dtx0qů2°§&ć”sw;•Ź~ýÚ˙܆He˛%ˇ'ßň ď< ^×˙˙Ň[˙}7ů7Ş.!#˛Aźô†qČqʲnBtż˙˙G(Ě  łá”f†Q:#s00| †QđË>!™Â"ŕËC[ň PĺŻ$9‡+2oű_}`rť?˙ü'˘@1AA?O „đŠqh§CH2B""&€ľüe>·Xż˙çOő„ő˙U×]4Ő=ĂMw_űkďîĘp”ôý~űÓÓ"W˙ţ­µű_¬w8ä[8äđ«°daQ ˙ä_Ż_¦¶˙ďxa%˙’G»Q =z: óË×8?4Şäô%ýűxí¬Ř·öu /Ţď‚łźëŐ|č ˘9Án¬đcűż°ÂTźěWkó{éßű đżXxgkëR T~Á‚kđ×a.°ý?˙ń_đdÇ ěbK;˙Â@_ěKü0¶t˙đ·~˙kÎŞĺ8Ź˘8KüXä~áŠČ7'˛!áY‡X޵í}öş˝­ C×Čg-ôřaËÓb+»…Ă Ř_ö]íaÂí®ż†řŕÂ×kÚ\ź#’÷Á’ú† ş/5y©uűŻ x2WţA_đÂü#¨%ŇŘŠútNŃCâ:k]†]4ĽČm‡d6ţ Ý­Ż'ωÁy *§Ëµnä‡=”Żˇ$Eů°”?Ł@Ń 0°ÂňgUŞwŽžµá¬DHhĎ!z˙o!”9F?vl Äpׄ""ôNşúßţü, 3× @¶ATQ|K—üŕGł¨{^ÇŽţO×ü‚ dBĚ [Ů ˘xŤvűĐ`öG G_řb˙˙E fďCR&{?R×űz•#íd6Gřoßţ´ő ? ˘Ę Ńä6wuŢ„y '<>ů •ÝřoÇţDG÷˙B ý®×˙B"“Đżđ×< )ď˛Tç„/Ź.ýä3C#Ť;ýŇtżTŢúđţ@đV¬€×ü†PP´$óNŽ±#®A@L†¦őűŇ…ęí~ÇÂäżř|†oÍđČ莿ôZ:‚g@Hj°|Č Ţżď´˙’˛.Ř·'0˛×8ä4Ľ‚wţźů_ýŻ˙ţCÔPç˝Á‹8 ýuÓ˙č†?ň ‹{__ţô"ů¬$łźEřký܆Ş{ń}„ô/‚Ä>žžÍŢ|X˙˙ęAQrçů (*ăhëÁ-kű^Ë‚€˝żßü.i‚!ž §?“ăhČe>C(źcţĺ ŽF˙ó‘żCâ?ýwů ·+ 8áPxB"" ň*zíqxB>mśżN˙˙˙ůĺôÓŐS×D„Gtő÷~‡Á,C•Ĺ9ßëü´5ÜŞ˙Č.7¤OOî/úďÚ÷ăČWé˙ˇuúćf˙ůÁśL§ Fn˙Ź˝^C`–@°űÂü ô ˙ aĘOÓö CůŻ› ĽŰ=W{ŹÂO˙TţŤHŽ>’~p0p1Ä3c˙ěAŢźű[µűá®˙óă9şýgé÷Ú÷ö˝ż_úńk·Â5"őűĐM˙Ń f? zż˙‹óź˙ń¬Ž…~ë˘@húţë ˙Âë˙˙ýSů K7}ô.µŕfĎßűJť‡˙_a%˙˙űŹÚmrsŻ÷Á?ůă“tČjŹl?ĂßůöC‚Këö¸wŻ×v"ß˙Z÷ý‰C˝şţÓ^"’÷·ŹÁżőŘđj–}/âŘ4µ˝´×k˙ß!¬>x&˝ë\úQ6 ˙ ßĘP~Á`ŹřÁv«Ć•¬8J!Ž­@¶ ľ rmjFVŻ˙„°Â…öí9ÁĐ^‡ÎGş·‚ăÁđeCb?!Ž@ň1ˇ«Wî˛ěQÂů4ôOziܧŃN,†•@ŢÄň.'\D5j?Xt?ľŘUÂkßZ}=/ EoĹP˛ #”?ţŽ‰Ř">5âř_˙Ă ¤Alő }ä2á‚r ĆŮCÁNUčśN ŢA­ý0żápÂČ,v,/ń‚ć7kDCŕňzxŹµˇ[0KŃ 1 a&ř0żÔ ‘ô>Č9'%‹ţŐđY J~?řOőú!–ČuyäoÎ5­ţxÇ˙ü ˙˙  ź„ő í5éüC˙˙ŃÔ~C7‰gw˘\_§|OMzµ Ţ? sç ëŻ“‡í? %pOk˙Ň}î@‰ţ@ćdţýđDuöÂ˙łŔďë_śů Táéď ˙řOá˝r  h˝ kú_ µ…Ç ¶ö·ß ˘9rĺFżxY ˘÷Oâ?Ú^A¬r-/Y˘#»ď˙ Áfpě,MţĎŚuˇ§ÁxMżŰőĐÜGn»ýÚô‚őA?˙ uŃ:îřa~t×÷ß­?˙ µÁ4¤3G0ç‚ÜĐ‘ =ŹŮ¬KUł’~ •™ýOţ­„˛)G4ŕ„DC°‚úöî>©…ÄH0^AC“s$ĐD5ßďýşĹ‘˘Â -tF~ţß~Ţ@€Nż˙péh#ţö_ëŞiáőé?˙Á¨,†hĎG‚ář0_×úy …ýŻţ,,N˛Db  H2 ?KYťČfŮő*ď­ŽA¸Ě zä„tÄâ źp–’Á…˙ň ÂCOEţ ^şˇýŠżňĘłŽC`ú5e<Č6Sţ|4Pß˙íá‰1KDíč‘<‚¦={!ŁbÂ{Të΂쓞źřjż đyś}7ô…ž7ŽßĹčŇö˝d0[ŻN¿ЉVö„ Ţż§přŰ­=îČŚÂ~ˇŇ~ä“×ţzq}˙Ăë˙ ˇĎ2ś­2 +éřAôúČtúUק˙ZýbÂ2i˙ŘO˙§Î‡aç™Ččżđűü2ń/—şř20 ßÄ_ď^ą?ŃČŢׄ"ŔÇţ×ű"ꤑá˝5÷˙ýŹw{ďű˙Áp_ Ă Ě”ĘrŻ!¤ÜŘÓ^<änő˙·6źţŁäżcY ĺáj}Sý†ţ×ß˙Đa˙ä2]xbµÂ_ßľ[Mcű_÷·˙Dk„Să{Úďü5ě”d“¨‹µĐ˙ş±˙‚ GQĄöá× ÇŐ=<_˙í_ü†űá…ÍŚđřKľ+´˙ö¶Ňţ‘`|Ě ˛> Ě?kµ˙˙Xđa_ý>l …Ž?ľ‰0ü„ě]5‘*ńk¶#‡˙ń!µúk }bĂăÓ˙“‚—ţCVŠˇŻßťľńĐ_áˇţÓ©Ă#˘ěşţÇß©N!Ň ňeü5ú§ŽBUšd$x/ůXöOÁÄŕ‰€Q!śł őŹB"Ě­Ú¬|8+ô‚\¤f¤`ăëä ÚđŢ‚ďŰżő‚r ˙„k »é˙r n<'Żý%dßĐ/öb˙ólŽ–šd®ŃĐ˙®>‚ČeąZź?Ź†»Đµ­‘5Ń@|Ř.x˙Ő˙˝µÝ.NşŞkŞ|7í?˙čÖ0˙`ô˙!B\WÚo„ׄ÷˙Ő4H ˙Ă#ţ‘&»Třž_§˙˙łş\Ě2ŢBx+ ˛¬ă”9Ců ¤ú˙:xkéW©đŮżő˙b+AP„DDEř7łaŁęŠ.C><˝iw˙˙ë[§ŕŢżĽ=i{TÍap×˙ý…9w˙!¨ý6`4źq˙ŢĂ {˙í5ţ„a? ŮŰăý|[ö íŕÂ\D…â×]ŻŃOö«Ăáşń˙Ĺä0oÚkÇ”"ćľÖľťÖ°č/ďőf őŰb?Öü0‡uĂÂ˙ü•–9C’rŻbżňm{żăײ¸'28˙ř!µÚľĂOä0^żëÄ_˙đaţKä‘˙|‚Čë˙ů ‰8kţCQËţţDcéîďďË׏×ü _őCî-~¤$ëÎ ŕ˙á+˙ž?ŰWµý?řAd09P~ü^·úý;í˙ĐJt˙§ä3ą_ŻíôA8‚ů˙ţEXJŻ‚ďé.šxßżű„˙˙µ˙·ż˙˙ßůĚÝë×ęőO ¤ţ˙˙ Źéí}Ú÷%jH~˙˙ŮôGÂäQČSřţAąĘ1Ńd4GřB'•ë_ßő@Ľ!íO#‰b@ľi…ż´6~ü4?î z{eŹÂűT˙KúÇü‚ő¬§ żb+ţÓ_" ”E.ćü'§í~˙ďű8čŕž<‚ĺy –U‘ŽV~áţ ć´ěçˇŐ­ń ˝ë§hD_únÖáÇ«Šµ_ýý÷ţ‰¤0ŹBůâiř†«÷ßô˙ćaŢľ˝=ř§úŃ\Ú˙ô>wëţďů2ä6µ©Ŕ!Óá:PČëÝNg˙ô?Ř]?ţF;čů?ÓşŐ=¦»¸ ż˙Ó^? _Xkő˙ëA_˙Ă_§đ‘OżŹ{ű®8AUŻű˙Căë×ępS‚ü »_ý.îž›…Ż˙! ž ‚‡(r‡PlpżîĽÇ˙đ•ŻöëčDD^\E‡…±®Żiӿҵé¸AaŻđÂamo0Č៯˙űY ď-Żń0µ×OúüuÖ[ ˙xá˙ţšy'Á,†b?Ču§˙Ö˙ÖńÁ,Đ}Űá‘ďů ±ÜĐ?«Ľ$xţîE˙úä8Ďŵů89P沇)ş‘BgăśrW9H;ť[ú!—i ź!—…xĐž˙®ż´í%za„ÎS–ĺy‡*eqNS•Q\PĺAVP!H]Hb ĹŇ» ý˙ÖC+?!Ą®ľ’B"""""""""""""""""""""""""""""9ń‘ÁŘŕŕ6fA.32ŕĄňĚv— ň ˙ţÖ¸UO!˘f„ˇČÇ0ý$úsxKM8łµô8i%„u <˙˙Č.Y­|‹.űÖű𮊻Ú˙ń˙ŹOŇ~` Í9°'8瀠śŘr9d|ľ~#ŁöGdprčô0ŚG‘âC)Čg|qʲcśr1ňVB9‡Čâ-2T,rwŐ˙ęźä?żű˙Ő?揲ä\ň~ž…čGˇzčDN "/^„DC„/"ű_ý4˙Cúé˙ţą˘˙ö"8‘lçÖýúëÝ뮞ż˙˙˙ö¶D&VżľA¬r˙G‚µ÷˙˙ß˙ď˙˙űőZŐ`ŇĐżâĘŮr¨w)Ę:en'˘´ď żŘţż Ń®C5>A¦Ľ†X7!š9ulŽČëľôÖřf× ×^ďďő9oČhc×řŚGßúČf'÷ř,'…kÓ±aä4ôČiédőČii‰=l0żőý/ňÄšżí|Ť>ÖA¸„N B¨‚$B(„P ‰Á2€J(˘@$"€M~˙­ű«Y =~ śývUč-†ŠÁh:4č*F`ĹŃ 1@´˙_Ň˙PÂĹ…ŢŽ±°'0 'ŕ'c˙F%„k˙őitµÖ‚´´]o˙ńIŽęěÓXhHlŚ5ţŻ„˙ö$űŰíďľęö}ë÷űţ¤/‘„C Í‚Oďě/…ér@g}Ż°{˛&t aś}’-ě!‚d0ř5d€˙úúŻqr `a ~ľ˙$;čĐ2ŢĂG_!°vu `ö ={ YĐKaÆt=˙ża5Zá5.SŤwţ_\ }ý!±"PŁ ˇ^@ľ.ČřtC(töC,xy}ä đAä(ä :_U¨Ťţ´C>¸bżżOć ±źk×đžž„j»^@ą<‚‚xCČ('ˇčéĹß˙Ŕä˙{˛V_˙ü?KĂ_˙®żţş}ëŻo˙é‚ňQ6p? Î9 ű_× ‡Űöß / Ř^ű˙_ďűďő˙úôď‚ň€˙ţ˝\|G ŞůgČ+»W|†kaň ď†lY ÁČ1gˇý~÷M:˙O Ú?ďč˙˙qÇÇÄqů %˙^«˙ýx˙~^Ë˙Áż ¤?nç× \rĂČfه,|Xä‡ű Ň=ÖA |Xů‘ĘđVs^›˙ô·˙_ý7řKÄDĂ5Ťdđ„EĎ×˙Ř_˙˙Űýž˙ř0\Ŕ`Ř'ŕÜŘgó€GGŠĎAz< txó€CŃŔ#Î˙ń_˙ä ů/Ňň…ŮCsľ#őy¸+ý˙§Ň ˝éřAôđ›áú~č Ţ‚~ţúß˙htx8 4˙|ŹôtXŹ[úżý7Ón“í}=Óé7××Óď˙}Wř鮾ţźđW÷×˙ż˙Żôý~ýWżż˙˙á„×ů ŞűOż˙ţëęż˙˙÷zÝ~ß˙˙˙!Ş˙Óř47ů Š?˙ż˙š‚ň á3ßöŻ˙˙˙˙˙˙˙˙˙őńŻĐ>ż˙Á‘ň;<űýôÓńţČGKČGü„ČGöČQţČA˙!ňČQ˙ż!Gü…Ó˙üźOđź×ů 8ŻhAŻűÓ^ďĐ0_‹ű*ü'řOôäÇ_Óű §äHŻ ý‚ţ˙„/ü"€wőáŹÍ=„˙˙Ż˙ţ«˙˙˙ý˙ú_ż˙Č"Oűđµü ˙`ĺö ‚ű˙Źµ[M{‹´;Mo[ŽŞýÝ­¦·kq×ô˙“†·úú a~×÷ÄqŽÁˇČfYN85Íü†QÇ HpĐą‹˙ëôx6ßé7ýä3ë„ľ?˙üqÄqÇqÄqÇ˙ë˙˙Ą ×ë䜡ĎCBĽ†Î)>@Ü粇ČePćĐx*2 N[”çăä2ŕ“•eŹir¬ˇĘăä‡"ŹŇ™YhŽ 9O/łÁ>ČfqNO˛—˙˙_ßľAF:(‰ íd8ä-űů=5Bň`„DEä$Č(H¤ «Č('P“ ˇ&„GPOď˙őKöşŃ8jpÖ'ëŕŠ@1×_×O]=UO_˙ő0äű÷† ýđxAxęźµá˙ëŻţşëŻ_×˙»wřpż·°ř_÷÷áüŔifÂ‘Ć ›sís˘Z?‘ŃÄĎ#kýu˘ŚŹ‘ţŽD˙˙ĂuîC8ĺOü?ň9ŕ»/µ^˙Faˇţéô<Ŕ5fŻ"<Ź0 Y°jĚV`đżÚü=o† °š˝ä éĂđ„Eő6˙ú8O˙˙˙×ú˙˙˙đ÷­‚Ő7ď áőÝ/Żč7ú˙˙ţű˙˙Î9 ?ëřűŘŹ¦¤3ŹŢ$Oż˙ňÇĐO˙˙˙˙˙˙ŮO˙ú×ŇGßEFf!?Ă}żߢ( ˙Ţ˙˙˙˙˙ţ˙ü‚îU•ďţBőü2eh†Ź%Ý/^źż^˙˙ţż˙ý˙„".˙é'ýžAEX7í?ý˙ëţżú˙˙˙ţ‰ŃBţ˙Żţ©{őŕaýkv˝wď˙˙˙ý˙˙ýŘźďôë˙Ż!­®“x#¨ż] ďÓ°Ňý˙ţż˙˙_ýWç˙ţ˙ XI˝2ľöüN0Âýo×ďľ˙˙ţ˙_ďđ™Ă˙öÁ×ĐXKÂ~˙k Űa|\qÚÚǬqÇö˙uúŻ˙†\"€hÓ‚¶…i˙‚5\6—ţ8ţ?ű†ż÷ý˙ýŠ Ě#Iľ Â>it|˝y ‚:†¬—ÂôźWĐ[˙˙˙B"ůĐ6¸>? 7˙Á˙„ŹŢ‘űŇ?t=řHĎđ‚3ü$éfĽ$g˝$}t‚?zźµ˙ý˙řoÇĐ ü†`g}˙'č$ţéč ľ’~‚OÂA7¤‚~? /HO sŹ˙˙ţŢ@ą†u ®‰Ń{đÄ<{ŇßA?I~A? ťôá'č%ř%řA?IyW˙ý1„đd0kř?Â:r€Ďü†•XAk„żKş ~•ú_„źŇ§Đ_¤ţý/O˙˙ň ďµX`ü†PäQđß @üęţC@ç°ţÂ_¤ľ]h/Â_„µÂ_„Ú]č.´ľĐ]˙˙˙\SŰČ5‘Ĺä ý> řB/řĄx…đÂKv’ö®Â {A/i{śtľŇ^A|4—˙˙ďéĂ:ř?†˙× @§ÂUĄâÔP[KĹâ—KÄBZŠ]Š ±.AFź˙˙˙ä9!Ř={Ă_÷˙ú}´—.Ňě.©z^ô¤¸KÂ^Ľ"@ú˙ţA¸­`SúÇŰZ˙Č‹ţ^Őp’é-„–­Şvľí%ŐmWű˙ţC,'~»ăéA„µ˙Č(öyśrŹí0Xa0°ÓVMl*Ă ¶µ *ĂP¶Xj¶-˙˙ů ű_ÇöçUÁńÁ ;qGĂCbÂĂ „á„8a †â/˙˙ţ@A©Č=˙ěUĘŹ˙˙Ö48Ž8ăCđ˙ßáCVÖ#˙†´˙˙˙˙ýCý˙˙Đ-ŻňeaN{Ë­rś?ňu˙˙˙˙Řa˙˙˙úőČg!ďüP˙˙÷!Éý˙×ě?Ę‚OýăßřNÚ˙˙˙ż_˙ďň ę(}|‚á?ň]ü ńď Řů ±ňoU˙OČ*żů±ČqÔ‚‡8äQʇ±Î9ěˇÔůŕ«)Ď+–äÜă”: ŐYüĂ”9VAˆČ8˙ů ´ů)kÓٵČ@ÜćĂ/ú(˙r:! tCcĂČ7tAZ2 ŃVŚ‚«ä_ ©ARň ÇOř‘\Č@"žC.¬*Ďźđ´ú˙F`CkôD'˘„GËďLäÝ=S‘ŽťŮ äÁ'o,ň âA»AĐyńjAĽ' fˇĘ˛‡AăÇůĹ4Ü‚€zz^k_ú ţ±¬D_ĹńÄ^…čEč]ˇ|DD˙ţ͆· *_ţ‚ «ţ˙]˙˙ß˙ÎĆňč¨DĎ:#hëŕŰ0˙ĚćĂôűëÂoW˙Đ|˙˙Ż˙˙˙ćŔđ†Ŕđćđt$ŕá Y߲áżô| _ çú#k˙ëţl#‚ú뮺ëŻë• s26"ú÷üGZ| {Oţźd‡[˙ÝČ+Ý=0Y°jĚV`čŘ5ćŻ6 Y°kÍJeÁ®Ë_ë˙˙ĐAż˙ő‰Ô%‘ţ@MGjŘ[ímmml*¦Çď˙ü†^źý?˙î÷ßţúwăBŘŘăŽ8Ř˙˙ýţŹ¤ßżű#†]ő˙˛uşß´żţż˙˙ňĚÓ˙ů§żŻë䏯˙úßú˙˙ ˙éď˙]¤3$üÁoý´Ö‡ýş˙˙÷˙˙?˙˙żŕÜE}÷řx[űżß˙˙˙Ńđnţżë^u ˙ŕđ–A¬sćäČeÁNyä5ăä4ŕˇĘŠ ÚĺET ŐQň ä4‡ňŁťÍů ±Íçż˙˙řAń×űćÁVĘp’Ę ·öżö4˛ řO  . HË/Ë/ĘĘ/ˤ2„d Љź_˙ôärµď­oë ş~?ři,†€%Tđ´űÂxOOO<'„đź˙˙ý>HŔhŮ˙úýô˙×Ááaé맄í==<'¦č5OO˙˙óż‚öżăţ«¸kG@%ţx0ÖjEÓÓÓÓÓÓÓŐSŃ®z<2ĺ_˙˙ľČA×OmR»ë¶ţgńńçGt} ý<ŕ1Ńŕ#hđ´póŔżG‡Îpđ„ý˙˙® 0¸G@áě»Őô ŻÁ˙÷AţťéřOĐ~đž¨: | ú?Aú˙˙džˇ.f;Kµ˘Oüę­˙ţ}wéýşIúú~ź¦şß}+˙ „9˙˙˙c  D2űp—kaÁî‰Fß˙}_˙ţ«ţ›˙÷ď߯˙wB/˙˙đőÂ}á  Ś `BĘʤů ± Ë+L†hĺkËŞ˛c2á3źżę˙&#kü‚ń˙ŹŻ˙©ýtš„Đzđž@şŚ‡„!ŕÓĐżţ˙ÂéúZ{Żo5‡Ę7ţűÁľžžť'A„ôxOOOOýßőďwĄ×ě=!)˙_)Ă_Ł1zzzzé맧§Ż>OÜŹű˝W˙zÖź˙ň+} Çs€ÇG~Ź"8?ź yŕ_ĎďGٱîxŞ>z< t0G˙č?Ç˙®ő¬†!ďřA˙ďÁúiá¸BĐ Ţ‚h ü‡ĐAřAřOĐ|_˙ĐýţŐi.š˙_˙Fo§éú~ź§éľź¦ú ź¦ú|qĚäÇ(uŻţý˙bě5ď\Śr?˙˙}ČŔQßëű×éßúőúwŻßü‡'ô°˙Ú˙ăK[QŐ˙Ǣ.ľż˙˙Őď˙˙˙§ßď°˙Ćż¶ż\»"_jżţ ˙׿÷Ż×˙ëţµ˙ŕĂ˙! r˙˙i®‘ÄŢ!í«żä4AC”?Ż¶˝ŻęßÚ÷÷î·ý˙đלĚ":ý»ü˙ÖávŇ×ôČŹ đgłiŰd08K†á…ŘkÁㄸkÁŻa…ŕÂđĘ/DĂ˙ü?ý;˙˙˙ŻúTű0ĎŽ˘>>>=ö+Źšż4G׊¶"ż˙ţú§˙˙÷†«ţŐ= @4v·Ý÷këcŘŹ}Ż×˙çéN˙é'ćŮÇĹ…˙ZŕŤaĄĂ iÚĂ[NÖĂá­­¬5ý˙ý˙á$˙ýŻűJpž@Šü°a`ÂĂ (aa…†Xa`Ád(ţď˙[O˙Użů篿ü†śoü$čč|hqÇr pä5ź Ő‡Gôżď_ýRu˙@ďŻß˙ďŇôN ž˙ühqý˙°żúţ> ˙řúúÓ{6ü†Ç Cäżűëä ¤ ?˙˙±_ú_ú~ż˙űúřú§©# ˇČî@‡Č‚ß aČg|‡ Dd A b1@‡Ó ÄjA‹á”ß˙‚˙m%ČK(rOú3?őíd:OŇęź ¦ţťé§§xM>ÓÓMBwŞzw§z§„ţ7˙ôýŞşÂ˙öš×ű˙˙_íU~đťŞŢ·iö·ŞzßŢ˙˙ _ńAWČhrçč&×üG_ßm%ďé˝'Ő˝oŻ_úJú˝oWé÷Ż˙/ö«ôÓúôżţżúý?MôßOÓ}7ÓôŢ“ôü&ôxŻ˙ żÚ§ ŔĺŐ?Jű_ß˙Ň˙Ň}'á?Aľ}ú ú~ź ý?O˙ţ‚˙Xµ¨_ß×܆–~ý­dü„÷ő­W˙離~ż!Gň ˙×řŽ­Nú˙ő˙ű‚ëúD+ţB>ůďŃ ˙ŽýţB?ä+úD+ţBGéú˙°żÔ„ ’÷t—Úýv5˙í?T˙M{Oű^ďô˙]m˙×ß˙Ç˙F°Ű­7űń×}ýuXM4űMvÓűşý}UýnÓţţÓ^Đk˙˙Ţţu_ţŇřţŢ×Rża„]´÷a| Âě4 xh0Ľ4Ü4×´ŐŘh0˝„ †Pŕ\0“_˙×ďŇúŻ˙]Şßâ+řŹo !ěLb*¬!ń řŹb#Ĺß˙˙äkë˙í ×őżń÷ÚÚăăxŠţ=ö=­Ż˙˙ň ‘ŔĎV˙\GÂ˙ëěŁ ÚÚĂXaa­­­­¬4ěŁ ˙ü†˙@ň}é˙űř0 fŚ,33 Í­“Ë ŇN ĚÖ>Ł fŚ,3Ä Ŕ@ż˙ĐşüLsAC–=ą *Ç_í/˙ßÚńGÄ>#â9"ćC5Ăâ8Ź˙~·řB""ň Żëě5ýŻ˙ü±üH˙÷˙˙˙iWĂ ~?˙ä4P‡ ŢyČâ‡Č·ČeľC-Îůä ŽUä /˙`ú˙˙XA˙ +öż…ű_µ~Âľß÷ľß˝ŻĂ_†ż˙á‡ţźO÷ˇôűëűďŁ@a÷Ă ¬Ă]a•=c^_ Ľ0—ÇńľÇ˙ţ ?ôC×ůÄ´őżZ˙ďŘŻŹv?÷ŠřߏëßÚ˙ýŘčř7ř6ď˙Î…żţ={ vµí{^záŻkĂ Ú˙ýX~ú†D…ö˛ _Óűßýń (µab[A­¦—atÖá…ŐbÂÄ0ż˙ŘôűŻýᮿŇpab Ŕ$EÄPř ‹> ďň/ë÷Á…żŇ˙Ă î˙ţż|G˙ëô˙÷Ă_éá…×˙ů Pĺ>Ccťň 0§ČrÇüCţÁd F@Ľß˙ő˙´°z ˙ ß˙ţ׸‰ŕ/Bf (AčAä Ł ]9Č>@ąÇ†(†?˙˙ě.UŹŇ˙Ç˙Ű^>š€Š z5|Ôó h zŕßűkČ0ĺYĘ?˙Ňí|‚AC“r ›˙ü4»`ř;ľÁđôA”?)Á|Őřű᯿Ň˙Âk˙°`ľ@˝y Ş˛za‘€–K‚X<0{bÁě<†mKţľ˙a…‚\?Ňúô˙ň PS”9C솎%ě=‘5„ÍŻ Ó^A˘ĽMY Ú˛µä+Č4'Ů5ţűkřa* C‘ąoĄ¶żľţ@˝‚Á™ E|Ţů˝óŮ´ađö`ř|Äů‡ż˙_č†^şzřAîżá; Ńú#?@ß7Ěć óů†Öa˝—7ŕţ ˙ż×öCIŢżô¶^AFťŻ„ĘmoďďŕţŰđëoęďď˙úą şą€Y˙ĄŘ_‚łńđŁśsŹÉŽg8ćŤpžA¬s˝^»Żwß˙ׯţű÷ţ ˙űÎ9Ç3“ýHlQîČ÷ô»Jô‰Ţ#ř/gÓÁ/ě%ëá|%ŕľ çÓ°—˙ů»ŕúţ–ÇYóŕ_üV…Z¦Ź˛´đK°^ÁtÂ\BâżëôßôőňB3EĂŃ Óá/@vC8ä2‡;şĐ#!±Á˘ .uÄd ŹpňO¸‚¸šD 8@˛Ć?÷ë˙Ł0`?Ľ!ˇ{ ĐS ľGD„ş|!zˇ:!Yă2ÄRZP# \fA@Ě! _ßţ˝č" ;zďđÂ\eWb"@‹!«oîšşÁ\č0Vh-ŔŚhpżkţ{ţčo˙ßĐ‹ÝÖź§ŕ¸O  ąĐ6g@Ů… ¸.Áp_˙đ8wő§˙eÂĚ,D~ş_ů m+Tv0[ g°/eŁ°Y‡Ĺ}?ţżŻ˙ÄGýżż¤˙ÇqqÇýţ˙˙˙Ż˙}\"€ËŻ÷ţľ’ôß˙{ %‰Üx˙ń˙mh84,H˙ő˙d4‡Čjűýý˙ňp#„Č0‡˙˙ŕÁSzy·Č5ľCMňoÔ!¨>CL!¦;ŢżŻ˙_ÖĹz˙÷eät°ASú맮žžžCN4Ő>˙˙÷ţđÖ©Żä“ŻţÄS„˙˙÷˙ýz˙ë®?řkIzČ(ź@żşD"ż˙ţż˙űýţÝ÷ŰúČe á NŮ ­J| ţßČeŽľ h%˙ëż˙ţ«˙×űŻMČié=nŻOőôňÎ95!–ź Ŕí˙÷˙˙˙ď˙űőŐű© =SŞOŮ„m˙]‡Ů Ađ„˙÷W×˙ţťďű˙_ţźý§„}żż!ŕ­5č~ż˙˙˙˙˙˙×´Ţżpľ–á…| oëđ‡Ż÷Ú˙×˙ý}k˙ţ#ţ˝ŞóŔÝé? źŇŰ_eÁ˙őý˙ţűß˙ýęC,~KToH7ë˙cŹŰĚĐĂâ?˙żß˙úőďţýżü|RŇO×é~î  ź˙ľ»˙˙ď˙˙˙ßč/i+¦ýý/ȵwđ˙ő÷˙ß˙˙×˙ýĐţëîżK˝Ü ţÖű uk}˙÷±Ç˙ë˙Đ~PžşWôş˙ôCüqÇ\hqĆÇţëß!˙đkűýú]ő×ĎwŻďŻ˙ýá€cýˇ˙őú_µä,Őíß˙×!—a_Í°¬˙_˙Č>Á…×űý/ÓĐţź˙Čˤ2„Y ˇĚ9Ç+ň®b2EđB!ä ţ˙×ň]Ź»_ý.­¤ż˙Aá=Iä2‹ŕ„<' ô˙ß]˙dąţéŢľľź˙o˙ÓÂxO< đžžş˙y Ş~PĐ5×}†ľľü‚üPĺF˙_äGČmľCmôôôőÓÓŐQ|ů?˙ý_®ř`˝˙ţĐŽ×ßú!ˇĐy Ńŕ_Ď<đ/çÁŠĚ·žß8tA˙˙á~ŠČe~pÁ”8%ëá.÷×!§A˛ßëňAÇ(rÇ,tô}5AťQaĐ@ú>ó€G@Š‚ }7˙őĄúBč9)±<–Úú ŻÓá¬0ŞÚţ„DEńńÓôßMôü'á?O˙O˙ţý»Ă°ŇőîČX űU Ü0ż˙ú˙őôú·Ó˙í˙ţ•}9ŕxĄĂ öMÉżá ß°¬5Ř0_űß˙§öŻúőú˙˙˙ďJţťďĚ×b˝żü‚áᆓa.t\‚çŃ°Ĺ˙ýj˙˙ďőí˙Ň˙ŕďUŻżŻ‚Ű ĂAaŠţl4ł§hEíxkÝ˙ßşöm{ ýič6ďĂWľÖA@ú 0‚ 0–_°śqá‘Ž˝…áĄp×´¸k°Âň#ň„fż˙é¬0Ýn^CAĘŽěp]´°`żâ=ŠŮ×ě—]†[”9AńĽ|{˙ýéśA‡űqČ^*š)ıMd35˙÷ÝŘřřö¶ś5†·˙kKř2J 7ň żÂ đ ,ü0ť…µ†ÚĂ[ a˙„tG+ěM ď a?˙ŢűUţľXk ma…† ŃeANPů Kű˙пà pĂ\¨"¬2´ľő×˙ăŽ.Aµň ]ăŽ"#Žµ˙ßě'Mň Ó˙Ô‚k#‚Šh?!šů ˇĎe_řâ7ä2Çľ˙×˙ x`Ęq§ ÷ű°X@Ëü&ČlŚś†cäą"PC[˛NU‘ţ¤`®˙ ˘„;Ö÷˙×ŕÁxb;=…˙ÂzŁđao ‚đőOMPzÂ~@Â| ˙DÇČ‚>ż˙ď Ä ‚ŻńđÖžŹ†ŽŻřO] 7§‚~›§znĐĽ#éęĐ} ôÓ˙˙ÄDÚ' ýßý>đa¤zD3GÂ'~^ůB/˝=5 \{ĐzŢ×î삨ú˙˙ű †Éóa™áőő“®Öa„ađŻ@hźĂŇoGŠŘóźGţúUŕőo+yă ˙˙˙,J i'Ňo˙txW˛8Ei„Ţ’čŕe~ÓđľĐ@ß3ĂnůÁ›ßÍżz ü6ú3Ź˝˙˙őoo˙˙ úiÔ&ŇÂúđŐ'˙ş}Óđ~•řUđ}?»ńµ˙˙Ł 6+ýý˙ţţ ÓüÄü…]űőÝöë}-ů?×˙˙˙˙d@5»˙˙˙µ í5CÖé°~žú˙ďř3 ýa÷×ĂČG˙}w˙ň ŽHr ÷řf¤G ÉpÍł@Q˙˙íÄGČl˝wň ú{Ă_ýC÷·űÚwéţ볎Ś#@}?ţ‡îC!Č(Ĺ˙íŻ­÷§ëÝŻ®Ţ˝¦® ű˙ä$ŰM~ÂS˙Ó˙Á•`DŰ˙˙ŞŃďüßţŘ&š—aĂ^C +ö˝/ař`¸÷ţ˙˙łĂ]Ż˙†«Ň˙A®Ă ÄjĹa®#rşqµĚËőÄż˙Ż­tE× .×˙úăţĐř0ľ@Ćm;[»J¸ńöČhŽí{^ż˙_‡÷ČeŮßd€]ü_^CP~ŃφNĽ4졵†Ö†ťŻ цP–Đa~×˙8Ž¤Óí.ÎŁ˙úwU d5ł`ÁCěBńÁ‚"fC5ÉţXff[JńĂ Ř$Ho˝ţ˝?żY (Ăżý: *˙Š†â8Ž8Ž8ŕÁăú˙˙ęÚ‚ ýaŻü4!”9U˙ţř˙ô˙×uţA€z†˙pđ…á„XhÄ˙ú˙˙ď˙v_˘0᎞AĄ˙ OĂC˙˙ď˙˙ß㣨kgÁż˙Aëâ˙˙÷˙˙˙ׯ' ş˙ Řk˙˙ţ˙˙˙uţ¦Á—NżţŚîAŚ @ź˙˙˙˙őßţ=?˙č ßú§˙ţ˙˙˙öżýż˙ôűä5Č0ď˙éżţŢŘ_߆ą ‘˙ôţXú w! ]ű!”ůź˙÷ţżýqżŻ'ý„ÖB§í;OMÁ˙˙ë˙˙űKţÎ.ź˙‰qÓUTׇ~˙˙˙˙˙Ţ˙ŢĹk˙ä"wöXa{»˙˙˙˙˙ýŻü´fűţ»¶l%Ăoţ˙˙Ż˙ö ßĂ @“ý}=ˢ:6–ĂH0ŇěŻë˙ß˙˙ë /ż!ˇ?[˙ďĐ´;aać6÷˙˙˙ű˙÷‹˙Ź˙ţC¸MpĂA6—°Ăí˙˙˙ýţżäúü`˙í~ˇŠ Böüě‡˙ţČ4Ž¤AÎ9 ťĚ9c”á~ż|&«˘]DžkDb"8‹˘čŮt ˝Ă Ż =/˛Ç CžČÇ"Źf‚‡3–çTTÂ!˘ťYĎ#{/2;0f A»ä^ËĂŮH)Ę.0B‡(sčT:)ňř˛’ľ˙˙´äŹ±Ż ×†˙'DtKçTGH„DDDDDDD_˙ëjđŤaď[ţ˙ěDDG˙äĂ’±˙ő!–ű ¦â: ? ż,Ŕż˙ŕ„D?_śźpůă#ćy|ĆGG‘Źˢ„l źČů¨dp0|Ď"9—ú~OŘkcÎÁLú9‘ÁĚ7ČćB">MŠČÍČŽŚŃFJFhäh! ŔŁ˙ëďôC`éýđB"""Š‚Aa‰ K„~hÍá†ćŕࡠŔ€°l4hŽ‹Ç`Hŕ(6`Ŕ,'˙ô˙ýú§Ń?ćwÂL0AýŹ˝ŞéŞl Âő˙ýŻ˙öć*¸D l†đdp„pÇ Ú0ú UW˙µţ˙˙ŃŻ˙„>†őGÁ‡řB ôi†˙˙˙˙ÝţÂ˙á®Í ˙‚çVöšč Ú70µO˙˙ü¨úŻĐKŞěÇŘ ÓŔ÷@ÁĐ7}+é: ń˙˙ďßÂ˙ źwâ'ß˝Hž Ě4}?a=˙˙˙˙_˙ÁżŘhh|ż†đßó‘Í/4Âk»˙˙őÖż˙/®š `Ájl7†×÷ řŽ@‹Ş˙˙ÝOúé}öApÇ áĽ˙˙EÉ×˙˙˙ţ˙…˙ŹáZl0ö˙¸k˙ż˙˙˙˙˙Üţ%pŰÄ'ţ-~Ăí˙˙˙_˙ű˙áţm†đż˙äŐű˙˙o˙ľĂ˙Ó Ł>ĐTĽ;ý?ä2´˙Č7Ă‘Ź§˙dGň ‘˙÷á‡ţ¨<é̆Ř|~Ü|† îČŔhÖC;”ä#–ůŕ z!‹!śžAtCĆAE”9ďä2Ç?9]Á<{+ĘF@‚˙ř0˙řiéËHU±Č{ú˛/údB°ű¡÷§ˇˇ žCefCA==˝ţ˝‡˙Ă}<-†/ŘÚýŻ0f°Q®őţż^ô#ÓŻľÝ˙żţ3»Â.AsD„]ţźĂ_˙[W{W˙ôőŇý­˙ŻČ`g˙6Ă~ęC=HGŻký…đ~÷çĚŘfHi‡Í†¤†fĽôN•űő͆Ľ†y¤˙á˙á†ý‡°Ť‡ťýiű /·ů’*x*¬5hŽA¤<†aŔjý® Ű˙˙đÉý·äiźűçĂh/_Âř@˝Q g_×őhĚ*ý_˙ 0ĽĆyĄ°ŤK8o ˙¤ţĂAy[č/ đ‚ú 7ëĐ XA_őű˙řcöŰśBNb{ä$Űľ5đŘA=•VAŽ0çŽ{=< lř _@~X żđAaN*żŰ× Ö˙ￆü!$ l†˙_†)b B"#ôż _„ŘAaďzX XB˙÷Çűň WíńDŁ¸<Ć×꽧Ô]p‚üUŕ‚ľ ˝|ta-?´µ˙ŻĽ0ŢjG¶*Űű_°˛+Č7u¨R-ű„«Á‚ ú°aIŽW/ýď˙áČfíđA a»3O†/µj ©‘ á`źBý0Š@Ăđ§±đK˙DJo0)Á?˙˙ó0$áľlÖ-‡†˙Dpź Ü ĐF°ĚZß÷÷<E 1ďÓúÝ˙˙˙ä€dě5ŞÁĂ C˙ 'č:Ad Ő÷´ďcűTźţÖ˙ýĂ‘G(s˙˘ś6űk{°ŮÇĂűŞ~Ź7ÎÄűX«#˛:0kÚˇßńĆ«˙]‰Ŕ1˙d¸k˝KIxb‰ŻŐoÁ ĂqÂ:ŰČiĎÄD||29—Kq˙˙÷×űČ8Ź 2©Ş AđëéPĽrŽSä ˇËˇň)Č8ĺřăŃîPĺA'8ék!•ĺÇ˙ý?!śG±U„Ă˙8ľo÷Č7­J|‚äň Đ! Č0Ż ŁB‡+Š! r‡0ć˛7ňn}l‚ęňä'˙ď˙ëě«ë i´CŽ84IţüÖ Ľ 4ôí4‚z„""ňO! žÂz˙˙űüÁ۶˝tByÁ˙^ú öCe~şżöť®žžžťz˙˙üáś?˙{@ÂđF“ćĹGX?â—á5ä 'őýă8şţť®ş˙óÁźŻú_×˙öŞ#hWĐań Ĺżţ/ä3SüĚ!sóbśÂ©±N ćG›G©Őßň1^lCb^`ľ ÷núúý8Ž ›ňBÍ°ňc…÷ޱđDx žlú§é÷iýü3by°oćÁż›!űÝ­˙o˙„!=}o‘ á4ý„×ŢAG˙ßő´®˙˙éúú«˙]˙qő˙ű|„Č0ňpNĂN=Ať§á‘ĐC˙_úŰmo_ţ˙˙ţű[˙˙ş˙˙ע 5čC´ŢᇶC@zß„„Ď_˙÷׾¶×ţď˙˙ő˙ý˙ýµ˙óX*b íl‚‚=WM>Ľ}Go˙˙˙ÇׯČjŹęßř˙ü ł¨6„ř"> ·l0}N}í>ëű˙ő^˙˙×˙uőűü„„ý®˙˙ů°X†^„0mCd2Čőý{ďý?ů!Ńš˙Úşőţ›˙d8ĺ•C('!˘=˙Ż˙}á‡ÉE‡ú˙üŕÄAüGüDń˙rŁöS•Ďőţ"/Ź˙_˙˙Ă5]ô5ˇdG*řýZk}? `gÓ˙őý˙ż˙ß˙^˝¨3XfŰćLGĄw˙¬†Äžűµµ´Ó˝µÓőímSÖ˙é˙żO áíŻřAűXŽC*É9Câ8kß|GÁ¬y°ŮößđÓ^˝óőą˛ †SíW˙ú'Ź‹¨ö@ÁĘüú§őúÄ}˙Ă·n:†ÓŘM/˙xGÁ»˙IüGďő÷Ż˙ýČR?»ÁµätÎ8'ű˙Â˙ţżţź÷ţzn,´"?×FŽĐA˙ Ř?ŻţC.ďđÂţ»_˙ŕ®»sŘcŇľXϧü‚Aá=Č1Ƥ4AăţC8ä >™é˙­úĂúďá/¸p›J÷ëÓ˙ţ#řşŃ¦aEŃŁŃŐ5B?Ă^˙xDe_°\7†Á­ţ˙˙ő˙oŹřŹ˙a~×˝ű_ÄPžßc‘<Ă˙á”kýwż_˙ý|˙ŻŢú5Epßz ňí_ëőýä5ŻŻ˙\,Üń„˙ţÂúĚŹÍuóÁźüś\Ř7_ý®´×ÖřG@Őş¸Ă¤§˙ţÁŻ˙ţű=|Ŕ(®˙˙ö¤2é÷ů* HbĄAéű˙ěś˙ęż˙îźýíopżýĐN=oOőżĂżµöŐŢ×űű˙ë˝]/ü‡r )ôP Ř\>0ůá?˝~ţÁ~":ý­÷a^Ç ˙ţú_údG> Vx°iá˝'˙˙K†oăřŹY>`¦PĽEúţ—÷¨]…´ócŘ>źýÚň¤~×µěEWǵ˙˙éZiăżd8~ Ůź˙ńý…á…í_°°×ű˙éé'ţŮ !m‡±a˙đax0©Úü5Ů_˙µę‚˙á#ĺűŰ >Ă˙˙ËîS”9řůî>>?cŹzwş˙}A;ď¶ Ř0ýüżkˇţú˙Żý¬‚ ú_ţ“¦A¤}˝°`ű ő˙ëů ů ‚<†PĺANüĘ9YĐźýw\tżúď]ľĂ°ĂĂU˙éţđź‚˙!°&>űýŐR˙í*ďż v A…ţ@đĘr‡=”?ĚWôýč;é==úý?— Żţ»řaě0ě0a¨BůÁ€źľú~ź§öžź˙˙§˙Ă—öűl7„˙Čką÷ýkŁŔGçŹĎŁŕý?ţżŻ˙ż·Ř<0Ţźúá?˙éţúCF}A| ß˙˙ßţŇKí齇˙ý4gš":˙Óý?Óý¤ýí}>×ţ§đß»˝˙üoí{˙×őë˙_÷×!š9ď˙ &ľŰď±ŃĆq˙ý&˙úë÷ë˙˙Oíńű_}˝ż˙Ş°żßöż˙w˙ţ×˙űä(ĺ|(sÇá‘Áľm>sýýÓű /öďű_˙†żë˙˙ŕ„DHŔ1ű!ďpŢŕţ?˙gŹöN /áž sąTřdÜÎ öżĂ^u˙˙˙ZO]×műďü±‹řgTGKö"#ö"?ŹşŠŘŻ÷Ö—!¤?ýŢüá=°řov«ý[ü1ý{^Óöű_Ýďúż?Źl5·‹˙ßká‚ü0˝Żik -…˙ëŐőCCßď¸íăwűÚů şżuüŤ|O{ !–9łýwľ˙ű÷÷¶ßUôBŰ ăsąÇ xţ>>=c˙˙Ţľ˙Mk˙ŕö˙ö""+î˙˙˙÷Öź˙ëżđ—úţÝŻŞČ.ä3żŘä×ň A˙Ţýî˙đ\†í÷íyăťÎ_ôĐ~=H(rßň č?ßýh„˙ńű×]=ň©ü!˙~š~OőO űężżý˙ţű®˙ýc¸/é˙Ţýű§}_˙˙k˙˙áú]˙˙ŞÝôţ“úß­>o˙ú_˙ëü­ =îţŹ‚’­ ßÂoá?z·ď˙˙ďţâ7áß×ţ#čőý?Đá?_űýů«˙ę°‚ŞoŻŢż˘˙˙ţĽ…č„wţżß˙ňr‡Çáđ̧ż xbő«ż_ň?ČWűŞWű˙ő!–˙˙ˇ#`_ĄŤżţźŻ]ß˙ţ·×iŻŞ˙řý§álwá˙˙ő~šý„˙´ëý~Đ˙ô˙˙’B {§˙ëýřaá Á~Ó űh0ĽA…ţżµ˙ýż,!í˙äG5•íë±__a~â=Żď÷é˙ňpCß M'˙ů p˙Ăűő˙˙ţ×˙ż·ß˙ ű(Ś#Ž ZĂ(A{^ÓîÖB ˙úěőřW7«żý?b"H ›Á„ŕŃÁś ˝š5řfŚ,†Č˙ę˙ţAĽüAˇĐ.Ńu˙çÁ߇üGÄ|A› |G˙˙ZŻđ^Đi„ \!ďúţţ;˙ţýýá?†‚#ő˙Ň ů W,s÷˙˙˙×÷˙ů!x` ş]ôä14?Ź˙ú˙÷˙˙Ö× v‚(\v˙]§ű˙ű_˙ţ˝}č1ŕÚ&ĽýÖ˙˙˙˙˙÷˙řMa†A/˙˙ 7äśÖPćrŁ˙˙˙˙˙˙ç…†Á Dá=űýôţ@O˙˙˙˙u˙öpÁ ďëö´ß…˙˙˙˙˙˙ěG A ×űě-?˙˙˙ţż˙˙ĽD´OżżłŞ#’˙G"â µî˙żÔ†UťĘ9P™k?Żßô‰ h_úű_Ü!ňäAČ.9ą2¶RW"tr8ŽF>]Čč3ŽLsaíUJđBŽDŘSźŠ€Ť„BFŃ|ŹĆh‹‘#˘:#łŕËŁDDG˙˙ú|O‚Źűö˙ýDDDDDDDDDDDJÂ.&yŚDDDDDDDDDDDDE˝ţ˙ Ż˙öCżý±_ý%ýľĎYXGą ““2Ç?9S0糎V©– x –ĺŽMÎ9Ç˙»úůfP#‡#ätGÁł˙·ëC¤ńţ:űű;/‘Ń5Hčľc#äv\ͳțdtf‹˘>iťŚ ˙­ű ÚřA·_˙üDDDDDDŕNä(ĺŽTÎ9Ü›°Päë*ea:r‡0ĺ((r ˇĘhâ""?¤żď‘ •<Hüý]Żî"""""""""""?ßkŻĹá 7;Q‘d]~íW˙ýë˙ č ‚nlŤ9°ŘN†Ă7ý ×˙˙ţ˙á î÷@ýd4í† „µ÷ű˙›ŽĎF°A˙¦ßެEv+˙˙ţ- ô ˙Ł•í’?˙ëľ˙żAlŚŠô˙ݦä4‡"k×ë˙ýŕ‰Ä§_ţ$`€ĎČ0+ţíďţ— k«˙â>«úŻ˙˙„ß÷˙ężű˙Ź… Đ?Í›ďŻŢß˙˙żđŤA±ä5ŁĂ}÷˙üŔ`Ŕ=ű˙˙Ór (Č űí˙ďý˙˙˙á5Čeë’­}˝/ ˇ˙˙Ż˙×ëhtO°ŞĐ‘C}˝}!¤9ă˙»˙ű˙Ť„8Aa^Le?±kčé§ęé˙˙ýä,Ń8„ °ŤTËäÂěk„˙Đ~ţżý/Ö áa-Ä‚ íxAëŮH8w¨˙úďöAßTá@žd Ř^źńţďłDGGD_#Ä|DuU‚b’ä‹ä6Mě'˙ďżú˙ˇ?:k¤¬g8ő˙˙˙ď˙Â@Őj–:÷üÜG3â«ĹŻ˙˙zIőÁKß]úÇýůJ]'áŕ…ydKő˙˙˙Ąů€=Ö˝ĂÉä4 ~ď˙˙ţ«‚7§ˇ~‰ńŻ˙_ďŘiz†§% z}˙˙ű˝}d3GăWhč ­ŁË˙˙˙˙ľA>•T`‰Ýpú ű{µ˙˙ý˙§µNŚřpE”žlźM>ˇ‚˙˙˙˙đÔ%A8l$’ĐaďŐ?µý˙˙żĹ+…¸Tm‚ß˙Öżżőü†XĺLĺŢ#µn?† 'űűű˙×űţ Đ÷‹Š>9ń¶Çúű_ß˙ú˙żşJ»'D}˙ű_˙˙Ó˙ţ)ş[$˙Úׯ˙˙˙Ý-…Möň74xao˙ú˙ř/Ş h‚éÁľě& F +˙˙ yÖż‚ű ±!ÂaÎ仨Šµëű˙Ĺý˙UřX#Ż 7·Ź˙˙ő˝!˛ŻVC(†ŢŐ˙˙öA®ĎePĺŽw.4KQFFdË#Dz8’(űý_CâřčĐ6ű>Ôś*˙˙†[—‡*e…˙@÷ zŚ†Ă ›aâ4ß˙üDDD3ŽXĺYC‘|ˇÎćrNżÁWZŃ 0ţý˙ţ""""#ú@^ABřa,ţe„GÎáÎŃł0˙´đ¨)Ăe>D‰Śyď˙ó4P‹äp„pm6…Mł`x?ö}D EMŠÓßë˙ÂŻkűA0Âd}żÚt˙˙˙›Ďţ•Äˇ÷Ř_˙˙Oőő^Ţ:3 ź˙˙ďţČ.'ë"€˝Űô˙˙ţ˙şRkiŹAď˙űţżŞP±{ťAz˙ţżÚů ţ«‡Ř˙˙űż ů°C˙‚3}Č®A‹Ă„N˙ýWÓé­÷ _­íáHÇ˙˙˙ű0?ßă†UôÇú˙ý˙˙ýť&ŢD›Ä]ý˙ţż˙®@đÜ}‚ý«Ú˙˙˙˙×űă,}ůź si˙˙ßäżă˙ăůÉtą Ą6Ż˙÷_§í˝Źűä3Ôqů€e ^ď˙ýK˙˙qČŻř/˙˙Ű˙ýý<†exěŔeőľ˙żţ˙ýŹ Ő_‰ ?Oő˙k˙8˙ü† {ŻîżýWý?ű /y Ż\‡?˙˙îţ˝_đsżśľ«÷˙˙ß˙lGřů ÇU˙˙˙˙µ˙ő!”>9Óűöúű˙ţ +ţA­?äFčś#ßKűţ·ŻŘŻňŁ? ńärś¬­˙˙×ú×ňűşýâ/ţ˙˙˙µţC`ĎÉk˙_ß___ŕÂ˙ ÂĐ/Ý˙ţ÷ż°Â˙GPŐń^|Ř2Íu˙ţ´ëń˙Az:†ĄŔżĐŹ×˙˙˙ ‘˙~l ´řŹ˙ż˙źĎíř+˛ Ä(Çżűßč7ü‡ŕ´C-;˙ţţµűżPžůĹČihł36ř5˙˙˙ţ Ś „ů ýň;Ż_˙ ĘpËţA GŽC0r»R é‘#ü{ţşţĂü†ť[ä6kä2»˝Ż˙oßú˙Čk‘~CýţÇ˙˙N˙˙°Č„ü4ú˙˙{×˙ůk×&Ç˝ýw˙˙ăřF Ěµâ?ýőßÚ_˙č¸iG˙ú˙ü#P4Ţh ˝ýŰŐď˙@żőś_ßů qŰÝtPż…yČ˙ŞăŞ_ë ňCý˙p˙˙˙ţp6ţ+˙¦PĺYC§˙˙˝~D3Źű˙ń_˙˙ĐŻ˙˙˙úß÷úďľ×˙ýżöľ˙ä&d&š˙˙×˙˙ţJE@(Í.÷őýČ`żţ¸^@€Źţľä `P>˙¨__âC@ĚzŇ˙ţż_˝Ţ cRß˙˙˙­ymČ5ř_öÝőľ˙g×÷ `GÍ‚Ľ_ß]w˙ń!ďü ţ±ô˙˙˙˙đ@˙ `ý×ý˙÷ßOđň#!˙˙ß˙i}Q Ků ôőOőß×˙ô|6?Č`?ťSß˙ß˙˙@ë„ľ=˙˙Č`Cöô˙Í*AÇď˙_˙đźý7ż0 Pź_˙˙űŞôżř÷Í‘ßßý˙·ß˙čDő×˙TżŰ `~ż÷÷˙ç ă˙¶żöž?˙ëţőO˙k˙÷˙ţ˙ő˙üĐ˙§×˙úď÷ľ˙łS_đű˙×ß_ń×đĹÍď­o_×_Ř_űi_˙˙˙úú ě_{kď˙˙˙żîC.ŻŰč0×˙ß˙öžżÇ÷ö_ţźúýż˙MöĂ zű×z˙˙ţë±_׿_˙˙˙ᦷż˙w˙˙ň7ßa_˙!ý˙˙˙tyďµ˙˙×˙Ó”ŹŹő˙Żű˙˙5­ż{˙ý˙ú†ż×˙ďż˙˙sŻ˙˙˙˙˙ë#˙˙˙˙ţíšoý˙˙˙ţA˙˙˙˙˙˙q˙×ë˙˙˙_˙˙˙Č)ŽPĺaʡÎ:e9(.Č/ĺyPx9Ń©fÄ#…#†žżL Î9Ç(r¸‡ŠçîaÎ=“˛C™Ďeá8 @éŮpg#rc–8L±ěˇÎ9ܱ˙˙ü†°ćš¸!ůuě«* rx„B"""""""""""""""&ĽÂgFţ˙o&‚Đäh* l4w'äŕÎPäAÓ"9ĺ{?rwń$+×˙ L!= sWĚç‚Ç0çeâREé‘ ·7”ćsŽ{*…U› × Ř9 qČCXr9C”ŮËń.Śeă¦GF„mŃ)6H+qÎ99C”:eŽC,ş0ŮK…Ę‚1Î90Ú‹QČ;ťŻb"""""""""""""Eă4aDtGDr0eÄ<n^#˘B<Ź˘:,…,ĆyyÚ˘%ĐťÂ:#Čş0‰ĚŽŤ˘xŽĎg‘B&éŮôGGDp`¸d9ylÔŚ3ČŽĐ— Üŕ‹ŚDDDDDDI˝"9‘ňâ‘ŃŔ¬ş.d|ě)î"""H2qÉ6U Â(ĺw!¶9M~+B#śr‡ ¸â";‰; Đäܤş ˛$fˇG,ť Žz …BLs9ŕ›š‡S*Ď„%“d‚đˇĘDD{ x2w$â"""""""""""CmĘ”ÜlÎ]GÄDDHcšĘăń^VÉN8ŽŘţßţ˙űă˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙äĹř€ endstream endobj 1 0 obj << /Type /Pages /Kids [ 6 0 R ] /Count 1 >> endobj 2 0 obj << /ModDate (D:20060518142248+08'00') /CreationDate (D:20060518142210+08'00') /Creator (Acrobat 5.0 Scan Plug-in for Windows) /Producer (Acrobat 5.0 Scan Plug-in for Windows) >> endobj 3 0 obj << /Type /Metadata /Subtype /XML /Length 904 >> stream 2006-05-18T14:22:48+08:00 2006-05-18T14:22:10+08:00 Acrobat 5.0 Scan Plug-in for Windows Acrobat 5.0 Scan Plug-in for Windows 2006-05-18T14:22:48+08:00 2006-05-18T14:22:10+08:00 2006-05-18T14:22:48+08:00 endstream endobj xref 0 4 0000000000 65535 f 0000066696 00000 n 0000066760 00000 n 0000066955 00000 n trailer << /Size 4 /ID[<39a282b91eca3589d16ada50e93aecd8>] >> startxref 173 %%EOF gpsim-0.27.0/extras/graphic_lcd/doc/sed1520.pdf0000644000076400007640000050476010520763105015753 00000000000000%PDF-1.1 %âăĎÓ 1 0 obj [/CalRGB << /WhitePoint [0.9505 1 1.089] /Gamma [1.8 1.8 1.8] /Matrix [0.4497 0.2446 0.02518 0.3163 0.672 0.1412 0.1845 0.08334 0.9227] >> ] endobj 2 0 obj << /CreationDate (D:19960121173249) /Producer (Acrobat Distiller 2.1 for Power Macintosh) /Keywords () /Creator (Adobe PageMaker 6.0) /Title (SED1520 Technical Manual) /Subject () /Author (S-MOS Systems, Inc.) >> endobj 3 0 obj << /Filter [/ASCII85Decode /LZWDecode ] /Length 459 >> stream J,g]g+e/h_!_gCtO=0f)$P%cIi8Zdfc5&3j_8$7g.@L`YKUJNGBP\poR=_;Dl'P(T (7Boo^^S:71(MN]ZQX/+Cbu.lK"p74pe1T%s.DY%&\1TdJhr54.M9au6>79n6`Q:4 PbLSZTLEE(8E@'*1mg_*eTnN*;*'V3+gm-EEetX%;Bo$ur2ss*N`.-!.kG_q6GDD' dKoL!8Ka#EV,@V!\j8ZFbp6EE<9cn=N6j0nf;(&;QU6bUD')c@\ 9-d\DA=cZ0Q>gIM$$;cd2O@&a;X,Nn_aP(]I1aRc(K1^ue> gF/(+GaKo$qneLWDrQ#;5\S(\$q'LM9bYJX9N;hHO_e;>`Y"/'J:I~> endstream endobj 5 0 obj << /Filter /LZWDecode /Width 77 /Height 99 /BitsPerComponent 8 /ColorSpace [/Indexed /DeviceRGB 255 3 0 R] /Length 441 >> stream €5ŕP8$ „BaP¸RDbPhtN-Ś5â±ävŹHcŇ –/$“Jb‰T¶,—L`“ ”Ęi5—Mç©ÔîM=źH¨qCŁFi™=2cK§DŞ]RyV”ÔëÚÜ–µVXl(’Ȭ«ËP(µ–VŤZí2Ąe®ëc˛ŘnuŘíBÄ׿Ú/PL‚żŕ#”»\­kČC¬×lvNĎdŤ]qÖëµâ«¶Ým·k}ÖŮ€¶dtY›>?YVkł÷ËîŇ‹ÓX­ uo‡nŻúÍŁg+Řăî[ŤË›’Çé˛wNóŹ`Ä^¸[Ýď łąďîŞ[mŻ’•ćóú)ľ¨µŃîó|<ź-·Óiöľ~+żŞßň°˙*Đ©*0"ť)B“(Đb‰(0‚} 'p˘Žö=°Â' &°âm > stream € Dq  FB¸ćr2 Đs86Aˇ0¸l>#E`Äx°€Ó%AÍBYÜ@1D˛ěČ „‚h4j6 †łˇ°SŠ€Ńyg/ ŔŃĹ ‡UF´1ŔsB Ć6¤ö T9d Ń@ÄRT5SÔ8J,7@«Äd1zŚôZ0 !eC˝°¦-&“Ęb™d¦T"“JbÁ$śC[î$Z\î]8 ĆąěţCŐBčÔ‰hQ ľX5´ ßsCŮÉdŠžsľ †ô=ŢżqÉĺŃhňX¨Đkʆ pQź\p ÷ŃŕmN•rÂ]jc*Ô ě° «v× jă¤AÔd4@hZÁ fŔ…«ţşŹĂ‹a@†Č˛b Ţ:hÂ:CHđ ‚čě†AP2ŽAHş* KSĆ»đJň©â¤ŘÂĘ (Ë #pÉ ŁŇ3ŤÁŽ:Ť# Ë´Ž ®± {VÉ`fĺ(pJŞ(hĘ  endstream endobj 7 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F7 10 0 R >> >> endobj 13 0 obj << /Length 286 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ž1Śä©&Uaś( J†«9A¶ÁgkśO'wN$A˝˛L-˘ $…Cľ¦-&“Ęb™d¦T"“JbÁ$śCb±ěC+ĽDC0Ôg żá4rˇ “«(Hä]©;aÖ$“ÉÄa0˛ !$â^čEłA°×‹Ś‡Ś.’q§ŃhŇ•v9A¶č endstream endobj 14 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R >> >> endobj 16 0 obj << /Length 1855 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;ĘcĚś@3ŃŠ’(Pä Á˘¤¨j™ĄiÄn.O˘uř0Čb9 óy´`.D ‡z™LZM'”Ä2ÉL¨E&”Ĺ‚I8†.«VłJ9Ť")$šQ‘K%Ń tt@7×ĺI-A˘•Ë`°:…;Ť…Ă}ŹK—Řěĺ©|Ćg[›ÎF#QtBĹĂâĘr)/Z0W.…±APR8Š "‘€ Ä)ŘŠ †QĽĚ !›ÍÇC/¬ć)Ś†= ¦E"pţB’éP”‚©)ŹąIHr-Š›Ňő˝ŁŁŢ« «xhžˇ ] Ŕˇ°nA+rŕč¦ë P¤ Až; Łě4ŚŁ»¬¦ŞârŮÁŞÂ›€k¨G‘ě}Č …!Č’,Ť#ÉL•"> pďăü…ˇ\‡+XZ¤¬đ@©­îĄDk@(ć1ŽCHŕ: /Sŕ†AQ%ĎĚő=Ď’Lš†’„¤˙ŠT©0Ä śČ¤˘Ś2Ś# ę9MO€d3ĽűMÓ”í=&KaŔeA?Żü¬ˇ ŇÚÁÇ „CE¸ł2öü?HĚ0ŤŁHŘ<„ŕ2ŚcHĚ4ŚtŚâ7=ďnÓTýťOɡ´ź(Ô˛ĄOURí[DLn˘’š„Ř7Śc\Đ4Ś#8ĺ\RÁŤ3gŢŤäÄKp8PP`m CĂöěĘ€ĂrÝ#,ć†Ömç…á–…CQ‡7ÍŻTŃŁ›0Uöô/Y HÜô=VĎIŘĎRn0ŚOÚěáąlű&†ř…ňߦĘčZŮ()Că+‡+”Á~ŐáBMă¸üÓ5Íł}Ź¦q‹‚¨¬”¦Ç1Ţ]«ë=ŰQ†*­«›¬AlŐ’ýů1c:87ŽńJö4ŚăpÂ6Y3¦Y¬ďu,a:íó}©®žŐFŠcČćö ·ę9°`ĺ[Śo §¸n[¤ć»»Ď5#R΄GŻJwۨ“\`†"MlPô #Ć:Ť#¦ß¸îvKCwó}Ě‘•óůšµš§2«Š¤ܱź*r´KŁÍ“tá“<Ýg]ŘvWČ5ÁęĆ›ŕ ® pú!›6­Ý|śĺęě´7̶Ë,ą˛ęŞĄd&ŠŻöqř *ąWĘ˙ÓÓ{o«Q)±6ĆűŇóńJÉq3…0ĘxĂĎcďD$¸ç y yWé4’?čĽÜę}+UŃ?%™ÂHdA« b2X&yÂ"‘ .)Ć97hĺ’ŰÄĐ}>9Đrŕ"„PÇRĄtÎC‘n0:őÎŻ`aWÄ:C0¤H°a Á‘ű˘—*e áĄĂ˘•,LO𩠭d®¶«L‰YF„'Ż4Q î^4ĂČýW¬l_$ ˛@ç˘xpŠ*đ)ĹPäě‚c<‘†1ĆPä“cD;Źíá?¬ČFčbň`¤6PÚÇÂd ŠR%˛ęă š“rpřś4Fľ!$ˇJġ€°XÁŁ#řI ŃĚË9Ś¤Äž—‚C ‰"ÓD2Śa˝Ş9Ź1—l?,íţ]4ÎzChmdÁP4«ÜČíE*D7Ésâ离y“ >mË™‡&|Rš1TĹ"ĂCŇuîĹK6ď3Ôśpu ˇ“B˘óH endstream endobj 17 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R >> >> endobj 19 0 obj << /Length 939 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ž1Śä©&Uaś( J†«9A¶ÁgkśO'wN$A˝˛L-˘ $…Cľ¦-&“Ęb™d¦T"“JbÁ$śCb±¨şI•ŢoˇóIĘ!« † †”¶()‘H›ÁŔR-ęŚĆŁAPR8Š "‘€ Ä)¨Š †QĽĚ !›ÍÇC/Ěć).• PZ Ňä†"süá«Ę”9 ”ć-Ť(PŢ AŠőŚc ä4ŚcŘř ä0ÂŁ,.9ŽĂîű«S ·! \¨­LąátmÇĚuÇ‘ě}Č … :î¨b;OĂô…°r!›ŔËdfŔąĐ|^Ä9Ťă`ęúhÂ< #hę6„ĂŤĂ;ď&†’<‡;ĎĚő=şápîI/Ëö*Q¤´’ ‡CŃéÄŁćΡD÷KÓÍ5H¨¤IT ç·«RŮ4Ť3ŤÄ4„M>¤Tµ7YÖ•¬uN†r@qPˇ\Á’›ŚăĆu%-µĚH2Í‚ę9ÍŁ(Â2âĽ/2 !¸Ě0ŤŁHŘ<̢€Ş..Ľ˙YV×mněAµu^ Rc*Š–,µ_Qť”úY¶}ŁiÚ¶»Ř$Ű6Řl˝[÷ ÇrÜ÷HZ†÷eÝ‹Ó¸¨f×”$ĐÁŤ% R×ňŕ4Žc€Ř0ÜŹ‹ć9L5=Ă8şáe\âůÎ0ě28hëPLk¶-Ál»;řrŃĘđkĄB"mĚÚľqľ1˝–ؤ2ŚŃë¬] ÔRµ˛1j–ł±• ťm›l}>‡Čh׋F†ČΛ;;¤ăzcśB"`†"Q0¸íj”xĆů Ă,*4ľQ;´EZ" Ţî;L­µíÜîŮ>‡/ 9ş±Ű&Šŕó2eĄoÖă•. Čá CO‡ÇDĽŠ"4Ž@AÁp‚€ĂĆŤ›)Ó ¨ó8mQŻ=çĎ5€e†=&ďÓůIUÖsaB=řCÖ0ŚďfN6ľŁź 7ZÖąŻ ŰÓxńZ ¸šőćâއüťÔéÜ% đ"–b endstream endobj 20 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R >> >> endobj 22 0 obj << /Length 335 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;ĘcĚś@3ŃŠ’(Pä Á˘¨¤¨j™ĄiÄn.O˘uř0Čb9 óy´`.D ‡z™LZM'”Ä2ÉL¨E&”Ĺ‚I8†.«VłJ9Ť")$šQ‘K%Ń tt@7×ĺI-A˘•Ë`°:…;Ť…Ă}ŹK—Řěĺ­]Hh5Ůçƶ±¨Ď€8 x˘čČĘ śĚ+6şääe@†@şôaćAĂ·Ę)uHQIbA˘ÚO^ ěć k„@ilPO; FCaA”ä…ˇČP; #(R¸R.Š‚PĹ· j†·¦¬\!á›tä†)Ř`”9΀€€ endstream endobj 23 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F7 10 0 R >> >> endobj 25 0 obj << /Length 286 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ž1Śä©&Uaś( J†«9A¶ÁgkśO'wN$A˝˛L-˘ $…Cľ¦-&“Ęb™d¦T"“JbÁ$śCb±ěC+ĽDC0Ôg żá4rˇ “«(Hä]©;aÖ$“ÉÄa0˛ !$â^čEłA°×‹Ś‡Ś.’q§ŃhŇ•v9A¶č endstream endobj 26 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R >> >> endobj 28 0 obj << /Length 3095 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;ĘcĚś@3ŃŠ’(Pä Á˘¸¤¨j™ĄiÄn.O˘uř0Čb9 óy´`.D ‡z™LZM'”Ä2ÉL¨E&”Ĺ‚I8†.«VłJ9Ť")$šQ‘K%Ń tt@7×ĺI-A˘•Ë`°:…;Ť…Ă}ŹK—Řěĺ©|Ćg[›ÎF#QtBĹĂâĘr),n¸ +—Bآ“. ĆP*Lb)هżZŕ ÎĆS—‚Î(;L˘‘ ÄPw—J„¨-&@ăżÎRR†Ëb¦ë˝SŘřŚŻÂ®¨j’’¦˘ ‰.p:Ŕô(ć1ŽCHŕ: #xÜÄ«)޸á-á˘z†"t]ÁŞĐç: "äş Đ2Żb(á»h8ć !Č7Ž‰Â:D#Ŕ@&b$•˝c”¦)‰(8Ü: ŁpČ2Ś‘B ,"o ­á„j›Ç0ß- Hć8 ň ă0@1Ťä0Śsĺ#Ś3@3Đc€Đ4Śc\ÂIŁ<ÂöIđôP*N|Ű7N ś©+ ’ŔŇ7 áć4ŚăpÂ6HăÂ9Ě“ŕÜ CLš4ŤŁ -%NÓÄő%Iă 7N͡Ľ+c¨á<>C @3CxŰ$VáŔ[\Éłš&ŇCHZŁ¬8´5±2Áôä1f“ťkS„¤[´E`NóĚö2Xˇ¤ ‰¬D3¤ÁrąBń˦©Çҧ!HOsC„çLČő8Ü7ŽŇxŇőĎăHä1Ž·ÇUŐł4"¤¬đ,-O.Br…23ľR=ă$vhĺ K3ŘŘ7˘Y@ĺˇË÷ĺV8dQ5×cµˇ€ieŞrHî4ĚaTHěř8S%PĂxŘ:WĐő&+×CEëÖ–Ę0…ş˘ŢŠ%ČP:şćÁŢŘ–(Č» ä6×Yőî:Ö’Ö^O(Ű0Ž›ŇŔëE3Ťo9qtHÇ P3ö9Ź9Ď-#ŤüVEłÚ–´‘—Mc›6:1Ú§Ć ĂLźŔČéC82±„ŘVŞ÷Á@“[ÎsµŇnr ö^Ł|‘€DyĘ6Ow0Ü3Už AGČý`çĽŕů|Ó™w“APşłÚÁű2 †âf .1ň'ŔĚŹc>ďx0¬đؤŠ'?Gńw#“<ßť mRG¤7$2’cGę![Ş5ř°“Űb$A@(%ü Âîođ$"‚f ±]) äźôÖTÂŕ2#đŘšC’r[ÜB)¬56°§đ y+Tčx·°—“¨cIëy­ŻdŞ•8g ‰}&ÄOÉű9äĐĚaüMz)1Ą¤ě’“$L IźŞVGbúńm˛p@• gré}Áą¨VÍÓa P=ł¤—.ťC¨mެ=$ężV? IB(đĘzÖb-雹 %•:Ľ“ €7I™F–›~K*J"t€P2(ŕČš`oÂźaçŚÝÜ‚¨ŕTZ‹Îä×(ŕĚ`l ŠiL.­ ťX‚‹Ź3ŔŕFLT,'_Ň€6ĆĽÝÖ“µZň~,FŮOáo4â7¦¦f MLŔ¸”Gä ÂM‘>„«†T±AŃŕ“ (ń(ŁÄ'ĐÍ@á<%úD´}i ¤iM*«dP IŘ1A4R‘NŚČ:”tćYÓ:Á@FVi5m-Ŕ@B€UKĘ:pv°ńTőQB$ş)E§OĘ832šŹ$8-O‰ju‚ŘŰŚD˝sŐС©˝b ‡úĂôsO˘|ç¨Ŕ¶uNŔž—ĘŹŃR*fÎŮ3(q´ČíiL™Ŕe‘N`şÂlë,¨Ŕé3zęQ0\)]ń%Ąhťy´ě“ÓúÍ`j-Gťt§µ‰{>{Ę7Ü<µCm‚d†CÚ_k1p¶ÁŚÖżj„N¨CZĘőEZőśz/ŕ ĽŘ;Ćv« d ÎňŇ![©GACçl#Z¦¨uB(xPĘşB%ęîz`n wÇşDÁ}čąpČ._YŻ¨)¦đîçSŰmDÂĄÔ¬÷b˘N‹ R)A˘Ę!J~´ę&|‡\psKÁŚ6TęŞ.Tj‘şľQ+Ş žRźĽ+˘Ŕ't Oab<“?BxNîá^¶i ćXOÁÁ…m6ąĘ2%Hâ.–s¦S7č1°+`~‚WÁ‡CáČŽtż(AýŁrŮŐ&Ýo¤ŠvóTÍů_x(üň—”˘™öĎB°qn€v†ň˝uźô8\:Ë°€şuăÄeÚĄ¤wÜ?XPPËÁz —2mҵ·óśÂ$€Ď*·±ÝCoůŠ­8`/˛˘-c cÝú‚0›OŢ!ÂÚ§ŢPZˇ:ϝϟŔ8§„Ű;Gi[đCß›ř#40âScÓĹb’prMs”m‡çT Ŕč!$Ď-ÖvŕޤŰçşbxoě˙ü`žˇO$90~I¸ý`P°ëDCŔđěßŘżŠP7 p2Oއ§vĂŤZK#Ŕ›âť­PéŇÎlG¨ôɨ+ŁÂę˘â~BJśŽŇľF*Î("'îZ…bÖP9ŔP BúNpřN¤,bÎüĂŠĆŕ€ôť(ÚC¬‡ť©ş˘/ĐooÔ đh€línŠ!ŽŽçcd%úé„éđŽę$fo (ĐĎ j+dEÂŃ P6ë,2Ă‚:<jŤŁě6*PĂâŔęxä¬.C ß ¬!îVčđx!âÍ poČř)łęt,±&îl8¤j4˘ă `A ®BŢF&°đäń0ľ+Ů NÜăPČ*îÓŽň›D\$ €äŻ`:"¸şŞđýÉŘťC‹ď.Ç›l^'PĂPp…pĘ!ĺAÉ­ pŚFq7†dřçz°+*ŁIŽ PLDŠŞBQhä`Q [ă$:Ŕmdb(„ ěě|ÁËçŃ.Y(„(ÂÎî˝ő ‚¶äb&ˇ°–śŃÖţQŰńă® =Ńę>ŃŤ1 Ń”ącBő˘â8ŁjNË‚LCv5OZ4#t$#l2Â'h5"\ęŕmĺ&’t2˛‡(˛j% 5âŁrŽ6ňž-xîH‚#ňr$R`-„Ü2– §%ÂâŚ$D‰,Šucy)˘&´‚*R`ob×CŻ'ŕZüâO(Ɔ5R­-ęź.L€ PĚMň¸;rs-bŚ7’»,’ë,ŕ1ňŤ1’Ă(R2#k3'-TŁi»(Ó5'SA-Pß,/[(’É+’b’•((PÍ%˛Ś4’x;rg,"`E/Qßîű6nŞé‘’í°pçs†;s‡!đŐ±3 Ż©9‘)cž'`r-MéŚ ĐÁęÎĺ"±n*qż9ńw8I<‘‚´‰–0`‘ń † Q%" endstream endobj 29 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F8 30 0 R >> >> endobj 34 0 obj << /Length 4714 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ž1Śä©&Uaś( J†«9A¶ÁgkśO'wN$A˝˛L-˘ $…Cľ¦-&“Ęb™d¦T"“JbÁ$śCb±¨şI•ŢoˇóIĘ!ÂiĄ±Eö 'ťŚ§!H´b9Ť&QHŕPwꌆŁ!‡bú3—J„¨-ö!Ŕ÷p둶z¬. 2^hşÔC`Ţ1Ťa4Ś#8ä0Ť­Đ"¬Č2$Š?!,“ A°p?Ájý? Zľ(Ź¨ä2¬j»îÎ$’ ‹#Ň8ŃÁČbŁz*i0iFČ2PކˇŔr±GŤčrńĂÉB?#I dk&G1Ú¦–Çá”kˇńÓ}+Łśg-H2l‰(GҸ¤Mđd˝%˛L¦’Mŕe7Ę2T™!Éň<±5HRt‹?L3·!Đd¨§RÍĎČ\Ż¬ă)Ii%"˘R”˛aLOtK}FOó$×QQtôĹGL´Šá «Ô5[Á pµRóŐ5ZVŐĹ?]R…_¬UdąWRv"[1NTĚÍ>§Op†O¬ůAÉcýj˲˛A\Îvěżo×÷ Ż(Yi‚Ž†‹UĎ#¤Áf˘&ËŐß$^jXb˝J·‘uÝ·“Ł×eÝA]*FŹH÷Ľ}Ëč…ď,bâ!~ŕrÂńŕSŽbt,ď-ášA‡&„8Ša¸Eňeo.;rdj^M™Éľm“ĺËW@!ö¨\fóMMKŘÍËgc›*hZ%ÉcGŽotşř,Š‡ßmđlΤÚËý­ÝŞPrSÍĺ^©ě±®Đ±mTžŮ®Ú¬ę[±d×ćéŻçĎ˝ä˝&Y®J͇)Ŕn^ †„Ţ>¨ď Äg*Wá·µ¶ě_7¬=&Č„ăĹŇĽŢ‘ň!w'§°k—ç\7Ôők^ă&šŐÇ)|…âńĘxż Üĺýä—ßrˇÇ/i#ôd?’<ňaḓËô“ŹˇévzŽöÝ~‡ŘޱřgÓ?NÄÇęSĆ’w= ôŁóż)ZřÖ.!az^gťř}}¨K›ę~Nˇďľđ`řȢB30Ů×lo[zEQJ0“@óđµąpŕĺ_;fIĐô)pp±.ĂBhˇ vOµv„îġ¨ĺę.čc !d4, *5«Ä×PĐfŠ¤&VgŐÚoe«ÎNG]2cü†ŕi0Ĺ´x§dčŤîXOčĹĺCgSĚÁň$vŰ>’C*ź­p¸7Uł‰„ŕKtą–sx›:`i4Ŕl;?ŔÎt´Ąő2vÓůÄ47ĘKiTÂ3…őć©ęRÁf|g•ÄÓŞhćĐä˘SŐ9†˘PóŞ ť©TiBTs|˘Pó:FôR§duX_‰Şu™“žIuVňoN•‰}–*˝JĐôQ–u’ŞW”´°—%}{Š˝îÔ ‘V«Ô®Ä"źéü­!Ca{ŤŤŰ¦ň— ěd˛{ŤʦăSćř€ąŰ˘řCŕ;¦G‘šégj Q¤đXĽÍĺ„éÔ%Ł/qZcjÉin$l¬Ľ©h >ŠÂńß3(“§´ôŹ5ń¸wĄętĽw/K×Ňy;îŢFöĄ¸ëˇČ6µ˛řz2Z[Ĺě×ÝĎÁú±ě®Ěé9Lľzú7Açh„ĄKęŇ6#ű"ŠÎÉ*ęßƤčó÷0Ům§ço›Ăőčű¦ľNŹĆúk$#ĆbO°pď‚uf†Ä…*C‰n¦ĎÄäϦ»Ż"GďBůOvÄÄŞŞ \ř0<¬ď\Ro`ňÇÇO’VŻ–ę8Ũ˘3ŹHú/ŻÉZ,PhđĚL)…7ŁxŢ2‡k©"BxˇľÉiĚR„Ź#GU#‚¤´ŕĆŚ"ű$)Nu.bĘŇ,”âŕ/‚HĘĂ2“ň^Î2J§c„h’k&0<„†‰%B ĚqĘŚiPd˘ &ň{({#ÂöŐiO# &P(jN7(ďl’.Ŕű˘:÷bŽť(b&Ť§˘«GT7ÇĘ7‚‰,q.3"Ő$˛ĐýrČlÎy˘=+Ď°uBÔ“Łčúça-˘ ó#Ęúú"lę—±.‡cęyĄ¦J*äÍ-Ó 1’Ę<‚ “łüO„’ő+33/Íj#2µŇ`-'8źĹ$z"ÔNëbą PĽ˘y5‡M5Ĺ·â!$łd_mÎLŢNóL„4˘Â ŘĘ|¶Ďzć3p×-Lµ3„.ë–4EřH{9čŇF“l’‚«6 NíQ9sG5s@¶ÓĂ; ÜG#Ü„‰v$}R¶„&ĚŐčÍ=ÓÔpëĐ} šNłá>ä»&Nß*Ą?Ąk?ĺ^öJG3ü„&›Óň$KÚS8KłŇĹ 3´,âH´*¤‡k?ôCŤo@L/Tµ§ą?ě˛märť”3>É2źÓč†ÓâHňJUbřż Ú*QQ±„CLQGMG3Ćh&SÄu/öĽH~#“&'‡Vš$GÔšÉl~$E<ŞZG%왧UŹ7l @ü@Ă;`AŽg ÷ťth @^ úu$ů3yÚE¤€c¤ř†?Ě㧑?‡ ™Ěí&&‡¨úBĄ‘@S¤@® Z™}$ çiÖJd$+KÎȤ<_6|$Ń*Vć%­–,€ $4ëJ‰MÂLß.Cúň€’Ľĺä÷:ţ'I2gg7°®‘®Żz’łObtR‡’}7˛qBŃq‚ŮqŐŽZY5ĐJR'ŘV‰v3·4ç€P Ä,2»XÂďťkC´Łí‡ ‰Ą;;Ąe!ŤĚ<§É4X¸9SµuŇ2‚µđ@0ٸMŹWO·…łŰwĄ¨ŕ_eőGŹ@¬#h Ŕh6€š÷ó”čŃŁîÔ-X1¤@¦é…¦űÖzĂ‘‚§¸y˝@ŹrŰÝ˝€mľ#:Ú"0ăXúmŔ7˘ ©˘ů/*–Çą4 Ľ`š7ś ŔřŘfĆ.ÎĂë¬[ş{»ŮO (7Š)ŹyŔ‚h{ĆAâĚ endstream endobj 35 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F9 36 0 R >> >> endobj 38 0 obj << /Length 6865 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;ĘcĚś@3ŃŠ’(Pä Á˘Č¤¨j™ĄiÄn.O˘uř0Čb9 óy´`.D ‡z™LZM'”Ä2ÉL¨E&”Ĺ‚I8†.«VłJ9Ť")$šQ‘K%Ń tt@7×ĺI-A˘•Ë`°:…;Ť…Ă}ŹK—Řěĺ©|Ćg[›ÎF4™‹†.g¬ăZU2otq,@ŇnÍćă1¤Îu9N†žÜÜÂb6q0[xŇ{ Šr%Ś´Lm˛”RÁ¶ë…Çž©ŠŢ2Łč ĂÚő*ŕhdąĘj·†ďşn"5ˇüąŔĽ:ŤŁĘ9=ahb“ŔpDÉ:‘ Şř¶2!HZa c±°fÂŞ lČś4Á Âŕf AŐˇČnŞq´q*¤­ÇaĚz.Š‚R˛š«‰ĚLËr[¦˘¤0 b(†˛`Śő¨z~ž"m ŚÇ b¦/[â÷!’kÚ­‡ E6­«|4®.‘šň!†1°dÉaE.SA¬°!‰âj"Ô‚léCA°P&…✬Dá@¬ĚóD„ÚŐŃôQ-A´<ő#>Aë`P/ŐmďĽúż7V űÚŽI١ ×vńŃÄRX şÁ´$@*ďyîĚ<$řZ´á‚ŹđUͧ7úÄŕ€çőüÄtî˙Óë?0%ě˝ĺ&’ŃĺVXŰ cś&‹^ŔŘĚ÷,É -Ą ­ú,© SŹČáŻů°ąNÚîn¨ô"He«0ţBKV÷D˘dmń"í%Z°A°´íÎ$ýq'ŹbňJ ­P ňń6Ěp›gbZ© %DEŃJ,±>ľ°éo^ýĐíPżŻ|-QňĎ8!ńlבB€bŠSs*އQ 1vEń#ЇŹŐ °MŹßC,ňpĘ©Ă$’/rúd%±§ ńc жíńťďa0¢Ăf\0# 1´°iw±čűŚŘAďF\1“ 1—_P÷/şIj°ë/u ĆKŻ¨GćFÜ0!Íą"*HŚűĎW1%ň -Z‹ŃŞ©>¦0d(i#"$Äë%Á2HÓń-#‘a&2<Ć©Ľňč˛Io6÷Hˇ±Š,˛~€R‚!ňvz˛.őŇ3Đőîg)$âĎ$*č(§D«+)Ź*­Ri)Ďňe)ďB­Cf42¨ąRÓP\7#‡ÎŇiĐ4ďSQ˲É&®fŁ*ÁĚÂ)t«ĘĂóŕ*"dj&Gě*”S¤SĂs ©łÂyqź 5a2,tÉp“1sĆŤp®I1¬ŠcŞ12Ě>ČZެ4Ró‘ˇ3˛ĘŔ“@ÖĚćâóR(LČű“~Í­]5\G,Ý8ÓdŃ“{6ł7 ’Ă)n%7m8ŃÍ8lĆÓ®{; ¨Ň“c0-Ňm2Ş“Á;3­9Ó=27/Óu8ídŐä0Ó=ë;>S€×­s;ó$Öí}?MbŘBU)0ďr5 RÄĘs¨łŤË0Ş$(M®Új1>ÂŽÜ"NŰĘ˙9mąB«áA4$łŃ70I@Ó¤±ô0ŕŠA®N(±>4Q'Ž?Ę8ßä+1SŹDÔ/So:/’Ô´ĺ}BB‘nR˘€ăäŁFNätŹ<“%GÔ?=”CÔˇG“ŽéŻH­B4ZčIč”»IŽ·î“Fóm3”uA.Ňeô1‚…M¨­;ĂL´/<´ë;tŞę•Gr™=tJ”0đĆYDôŕďO2°đtĽ."x¸Ő ďtźPuDU:s\óFőß0ő8ň´µQ/Dóô‘TŻITďO34Ó@•/JU-SS–ňoqQ@řeE5$÷ę'LO:÷•UV´Í9ňg/µcD“ŔúŻ˘-u>˘u”üuGT´P…Su¦E5NüOŻ&ŤDrV˝NęE/ä˛ÔYTŹă sëE v˙ÔőVoô˙ő|ţµËRµĂU±gP•“ĹY˘QPZ5ťĺERU÷v \uů“qJu_#3Yum`v)H•Ůă1Tö5µçäą^Ö#[ö!MUeY0­bµ˙e61TĄa*ťeőOe•ą)µď[¶G\Vc u™\őApÉe¶ ő«VpÖ­V‹eydVM¶mg%‚@Gę̢éšJ–˘Âv¦Ť˛Í ż –´É6ş-ćP-¨«ë×k¦«ĘíXsÓ,vźi¶ŻkpYlęínbán°/kŠîȢUl6ř­6ýmv޸ ęĚ3p¶™UŇůn7Őj ¶«_qI›r+mocč®ě4"!p2­77¶ě˝w-rvŃvXöIOöä ¤€žË™tuĚč7ajw0Ű+`€kQv÷4ëmm—H+â?p—Oquóa÷Yqéš4¨‚HwdŢ—˙÷<Ű lREzjďz¶ňˇ—­7Ły×uń/vťPUÂŇ–¤¬·‹yhź[±{Çb¶˘×}â wä —»~·Ű}VŰf·Íg7Ç6ăB$ÉÍy隀Bŕ(Wy{Š#öÍwë«syęÓ |7Ť|—W@wŽę‘7;6X@(ř 4+Jőé…ĺq7‹‚¸Hîř)Ő1u¸3‰Ąč߀ ą í‡xNŞ(«wv·sâĽ(¨ˇt×ű‡8x—űOŘ9WS|é–>WÁrz6CÝyŘN¶¸XŠŰ8Ľ“÷ą…řłŠ×ńŚŘˇGŃgZ,â’˘8Ón风.S…o´‘7ç‹ŞÍK¸gŽ«ŠĂŤtĎ:ÝyI˘6@aŠ÷ב"á‹Â®é ×8’*Ó’tŹŹéĄ‘xçx§€ŞđÉ—„8°I–ÉCŘV3ŮV'kM…×ű• ż•X1mÔA@µÁg$9‡u“µÍ—«…vŮ,AŔ`‹ë‡~„™™”¬9…—řg•‰=Xk‘ ’´ŮŽ™®BŮ”¦™ŚÄŁ˝‘xË–e›™o†™w†ŮCŠKzŚË‡™ŢÜ*9‚ ź–¸÷ąî™wçť9çž9ÓšVßJ6KšŇ˛jy€śúź9¢ü>ů+ˇ©­xL™†fRYű:—7‘Š3n`—âÂŮäÚęÁsąě`Â9•ĄŐ–Yť¤šE 9?ť—”Itňi÷‰Ö¬AÚpžů‰˘F‰ęĄz…™«;§Ş/š:g‘o „´¦žK -Y!¨ ‘¸MźZ®‡ú-ŞzŁ¦Z›XşkŠV˘©bĎlšw¬˘@©*hÜv˝l«É:Ýl™¬řÍ­B&řxź©zmŻšÉpđY®ŘéZ–ň,Łă­¶ű—Ú×°ćQ±7aŻ:ŃpÖč Ű“ÚĂš™×‘X«ĺ˛·gtşă±@=°k­›´c‘»=sBMr[!ŤZýG9Ű€W_x{_°{ją›LÜwr·›·—|Lšőx7k¶ű-¶x۬x{űŤv{™·włzŐ˙·űŁ{{›{$P˙űW—q·˙Ťéď};Ż}›Ĺş᳂׼×ë~/Ą»wőĽ[ÝŁ{»|ą«Ż¸;Ć+Ř şe%´ř#v ÷şŔŻ‚»÷ŔąŐ şű˛ěcîďµxF¶"!˝XX=Ű ż­Ć28[ÁC†"!ľ;cą;żłX|×"AÂ{‡[Ă ďX“´;ü48Zś9ĨßÄ —“ľŘ«‹{ň‘´é<)Śf_ČgcŚśkČ%ď¸wĹą ąXp8ěXŢśĄ<`ÜxóKĽ‡Ź˘×˝ŮŽ\qÉÚĹÄ{í“|—˛<­‘D‡Â™1Ŕ¸ţnąŁő7é‰W~=`U˙”W:ˇE^Kă®G•Ťśźăs9äŃWeQč‘AhUťńITţtG>yćÖŇ;ĺÓ?SqŽňÓ†€nË}YчOéä—ę>—Uť˝ă]›ć>Ť>h€~ąç˙Ô7čÎŻěugäë,ŻÇ]—©Ő7Ýéµ˙î Źé6ĽDö“\~ď¶?î3¶^3Aß"ľ?]’"Ţĺ%*+"űńußY?ŠŢ ¦žaíŐg$q;é?1äRR‰ GäŇUóő7ó{ąĎ>…dőÇ(ţ‘WUó†“F Tň‡ö6?őżKÔ+čµg*/54uw÷’Żń:/+_jÍ3+÷rżďý™ŢyÝSrď-Uü¸’ńě é.žň©Ňá.¶?ůđëôűéůf*Ń‚É­?Ħ,Ç|ľˇ¶ĚŐ¦v‹OF(ĘH`Ç~©‚‘4'ţcí‘Xe Äęâ Ť†Âá€Ôd ŚĆâáÜh 1`pX<$f4‹‡(L d.°ˇ Ô\5`CXhŘf8“J%RČĆ.Ë#3I\h9‘ †rhÜv?AˇŃapŘ|F&s”AĄ˛čŔ@dśb‚á°Ţ ¬V#uń„ĘÇ6ÔÁ¤" 4^F– DC06±/ „Ůxć‹X˘P¦4Y„ i *Zëph †O&Ť Ŕ¤¨jĽ_ccĄ¨DÇäIŁ<®_2 * ´y!–śkÍjő¤ŃŽĂeŞÖd2C Ƨh(+mňŰě­”âîx$ŃyOłäků||y[MŐéuĆ˝Ö<ŚRďpJD^‡kżÂÜÖ%hH·Ű±I†báĽ0@6 %#KăÇ‚#Ö/KâüŻ0š2úľá»ň!ˇ¸pŔCĽ¬ˇ‚Y  ĚúęŃ „ĽmÜFDĐ„î˝ Fĺ5ÜD!;1“Ó†MʆŠÓkâ”ÁÂd•>ˇČbĹ-a@cH0a“üŻ**\Č\šÇ†!€a(«ËÚúż°!Ž2ÓXq ‹¬ś)˘:5¬îßEÍÜö‡3ÍPs˛Cňű»@F.4g@FÔ›Ó@:”|˙C¸”Ű@O´üő;TýPT´-QRá”KVOa”SXÔ´u/HT´“™NUÔµyTŐŃÓS4ľkĚĚľ rę;$%hpa07‚mo`ZUĄFŇVĂ%UŰbmO…ŻŕjŔěě>жłňŇ4őpÝÝ´ŐáuW×w˝Űj5/â<şC¬óAĎaµEzUˇ­Á„ĎiU—bľ;\…őJb·¶2#ˇ…ßjáŘFC;(4Hinâ“˝µ•?Ů=űŽGŮ>7Ld¶5F Ďg†ËĄÓdó9`‘^G{ŠÍËă­/Š?ş\%Ϩ`Nu§Á3UŹ#/‘ň“꯺ ¬ÂĐÂ6żŃŠAx®ŕP+ĽALň"îâ.ou`†&nâx¦!µü°č8†ŰńxH¤cś®j#čXĺç’QY>!Dâ|îYÎĺ<îÎÝuŻ3Íse-vÇ]uÝď=ˇý‡MÜNÁŹQŢŐÜ˝sWJ"u*Č Ô„…Şö˘±2í ˙ÉŘ<ĘŔJ~D~…)r'‰ruYëA@k2hj{čŢ»ű–?łćľ©rřˇ˛'Ír{b~(,śĽâ"ŁQăĺBÄť&%žIZŤ7!·źÄIC¸ *Ĺ`­ÂĘXů+ŔÜł¬bÔU4'HP…Ŕ\ŹIkU䄢@XY lˇL¶A’˛VĘé_,%¦Â2Ňá€6%Ţ’÷G}p¨Ś’~BaÄ:*ň Ăř= "h>q6vQâ¤N†ŕŤÄ˘Mâ´9‡e^ÁČCOś_„‘‰YźŔs•z …đ‚BŘü_ă|X-ĄĽ¸—2ę]ŇŁň@Ż-ü<â8ÖOň]‚Żš$ CÚŰQŹ„KU©›”2—bAE#k¸˙˘.V“Í1-UF źJ3R¶HżHňSX7!«ş˘BD N2ęW“‚dĐĚ·=$‘řKçćó"f&Iţ- š“™áą2šO2„dř(B ‚E Är‹pv;HC# kwä“×ČŁŕ>Ď4Ť‘Ż`Ô>žP~> /Font << /F3 8 0 R /F5 9 0 R /F9 36 0 R >> >> endobj 41 0 obj << /Length 290 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1EAIPŐg#H ÖŘ,â s‰ĺ®ă Ä€h7¶I…´A„¨wĹŤŇyL@S,”Ę„RiLX $“běn PT$uĹ ‹¸'lű$’y8‚L&D"aśKŢH¶h6ńqňEŇNLă@-R®Ç#(6Ü€€ endstream endobj 42 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R >> >> endobj 44 0 obj << /Length 308 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h b1• S"4˘ 8‚ŤĹĐiôNĹ G"Ą©"ŚĂPďU)‹I¤ň€¦Y)•¤Ň°@I'ĹŐšŮc ‰G Ăq¤BE$“J2‘ dş!‘ŽăŁ/%¤čô˛ąlO¤č2c°¸o¦‘ę3[M´Ł;®¨Ť»mÖŠ5đÇo ]9Ał™…r‹_śŚ¨Čj’2Č8×)EľĄQI†Ŕh¶M išů`0Wî₤Ü(ć1ŽCHŕ: #xÜö1Ŕj endstream endobj 45 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F7 10 0 R >> >> endobj 47 0 obj << /Length 291 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1E¤¨jł‘¤klqąÄň÷q„â@4Ű$ÂÚ ÂHT;âŠbŇi<¦ )–JeB)4¦,IÄ1v; 1ľÄ3<t@d0 Fr ţR(* :ňŽEÜ“¶ť˘I<śA& "0‚N%ď¤[4 x¸ČyBé'*qˇŤ)Wc‘”· endstream endobj 48 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R >> >> endobj 50 0 obj << /Length 3260 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h b3• S"4˘ 8‚ŤĹĐiôNĹ G"Ą©"ŚĂPďU)‹I¤ň€¦Y)•¤Ň°@I'ĹŐšŮc ‰G Ăq¤BE$“J2‘ dş!‘ŽăŁ/%¤čô˛ąlO¤č2c°¸o¦‘ę3[M´Ł;/ĚëÓyČÄj.Yx܉NLe ·Ô®ŔŇآM. ĆP)5`[j †ýk€@P4›„C)ĚĆr4ś†“y¸R]* ´‰+řćĄ!ČlĄ*®»Ěô=OcÜř>OŁě­*Nř\Ëp®+`Ż®ď" óŤă¸Ę9/ĂHÎ7 #`ćĆ+‰Şľâ®A˘z†"tdŃ3)Hjµş!@¸ç†±c„›, “F!‚¤. Ńb§éŕ@(ˇ´w.A„6©Ş˘ ‰!&’$aJśb”>šş2Ča6*‹’(”:a@†úŤĂ(Ć: Ł @: áVŠÁáÄapA;ŤŁkë?Đ"h *Ĺ$µ@rSĄĐńH8=!›Ičd˘ ˘a›Ž”Ę“6ĂR@¨ŞNÂYĆîTΉ†’EZąN‰PĹÂjÄI@Z“@P˛«ĆS‡"¶ÁŚ¦Iu·R¬µ,¨GaÍ^ĄË@¦)Ěs‚×uÔÉ) A¨pÜj¨`+0Ăń=O“őcČç> ¨ś"XŠÜ3#„X]f¦ň]ˇ Â^Řa–ÂŞ+ ÎË·QbŠÚguH¸j¨řŚ1,†qä:&ŽŁcćŤ(ě2Ť”5ŁśűH#ᛄ`†"tP¬7ćCÎ2Ňą2ÇeP̵YCŁá= #0Óźßă(Â1Ť.Ž yĆr4ŽzŇ; #&~1!äöílX*YZĆÓ0í9mŁ|H4ŤşŘČ0ŤŰH[} ٸĺ~„ AĆ~¶9 /›ëď{î¬ÎčĂÄŤšîż C(ÍĂ Ľ¨ĘôŚü¸ŕ8u3í"ě{(í¦šwc@t;đ`®°ď[Űwüü6磧eĘŚ9ôýGŰIÔĄnĘVE€¶ ­.Ëđ…q2üčxfš×ż0øĐ4ćˇÍëĂ`Ů˝Xˇh„ÁˇRíQM&ä8U]˘ Ĺ׿¤C\€d .x70t­Ë˝jL Ż­”śöČbĄ%­+%„—•şíFŠěÂŇ“ _x L !‹— d·ŘŇ>Jµt¦#`ň)uQhgŠ@8ZÉ%‰C˛°ĹS 5$đî&UDD";)ܢÔ"$'+ĘEPP¨‰¬Y]qn.˛¨uQ]k*C•DH#Q`‰1./Dč{˘fd J$óüŤ{čô“üŔ LôÆäř3cv!M"„Uă\* O¤Ł–ZŽQë‘IŚĆŕQXń€ÂP2T%ŞYÍ`Ş€Z ™†‡Ŕ°7:L4Ŕ°I»§´ŠL8/ îUž¨ śáj) ä5¦P»VĄąąňžŰ- ąĐĂ5(frçŞ_ói/ŕ›x!ąţ¶řń‹ˇ7C®,9<đŇ{Ăzúq!ÖK°’¸´ÉË ‰`µz!ł …Ë“€VEPę±0‚ \9Đü¦G’5?‹Í•Äâ\ĺÝ*ˇ$7 ˇŹLÖ›jn@§bBs3Ęu»$\¸dź¨D¤)ŠZr %2 ö¶ĐĹ%ch_sˇN§ćŰOM6zJ€ő´:¦Á¤$ŻSeŞD¶Řî ur ¦WŢŁĺ cÄWÍćNĘTŃV"XpŮbls™A'`íY@o*×Z|(Š7ý.PŃ_ŁéhŃ@mH‚E]•Ň…Ş’+ý,€©q«¤ëM+8 Ę(*NŔ¦B!ĆcáŤĚ<¶îĎž“† áş †”SRÔµM€”bU Ň››u»Ě7;[r_WřlD$­›3‹$ ézUdôÉz—?ŇČ8eĹVL¶”üŕ›eťňěÉÚý­G €ĄĚ˘GćŰ+5fěä._€ĚńRĘ7N¸"uĎ5á]>HÜʾݏhe».mΠě@Xß Rˇ!Ś:¸B#ĎSO­>ˇÓŕA{Řťš ł–©ČUYôwDŢva«íXi˝x_Ť¶˘§đňÖę ĽŇYŕWc‰.]ÁWŕěUQŕ»ć7ËÁ׌[jHDŘfúł› M$ľf"8$”ËěÝ6ńZ“˛ČÚáNÝ€Á@Lľy[?I]&´%M8Ł芏j 2^‡m”&hą°ŁIrŽ¤lŕ˛ć>çćŢĘĘUŁ, ŇĄç‰Ŕ•P†üĂ~g ňíÜç’™Ëň í–¬†ęvţ΋9úĄ–:RŞĂÁ=7Ą § ßŻn& !’Ş:­%6:'E4:đµ9Ŕl9ĐCˇ3eřŰó>„cŔČ&1âjŘĎ›Dq‰úw¶CâćqĄě řŢ‹U,Đ(x’ňy´_ ĆÚH ×k‚ě µ% é.1âµ`g/@o=ĎŇϸ3 ËčwpÜa˶×1Ę,ĆŞ=ÓĽÖĽů*YZC,V5BżöSdÄÜăťALa±ŘÚáJއ¸ŞA(Gp›B•Ţ»‘»(5}m÷á2Šßé;ŕĂ:në`Uŕ8(śËó)ÓHVnŁ>0ÁH"`®§š~¤…č»,Äťg~éâłţĚ(sµ4¦ŕQ[^¦«LŐ¶ÖŤ€Š A„gęa ë3őSZ•€©ékÍ[D‚ A˘­NÜzţćY5ô& ĐřEIÁ{yIâ”J&·\ĂhąT‚*( OÔ!ń`×’wSk¦´ÝעLŐ/¶4ÚiäŕLS§”ź‘+°ů ü/SŁw…j.ţo×űgěř?µ“ßL¶]7îôHU÷ÚÓŕG0\ü϶Ž×¤|;MřßÇ.™Ćč«”h’Í)ŘţďľÚ$ ÝŞś€˘Ć $ę¨ěŽŹ âŽđ«eúQ@®Đ‰ÖÉŠÎtLBî/š ŽzMöߣ´i„ąË şB4ťÉŕđä:ć@ä懪s*¬OĢ0)rµëZá°0őŠdý€R¶Ŕp¤ாîţô«xő nł :p¤öd×ďâĚŹćm/ęĐ­8ÍďzôÍj˙ĐĄms ĆÄ €^ăŕOŽ>±†sŻ¤ą*ČŻ† čŤĐŻ z˛P ° Ąí— 3 Apgŕ@ đöjˇ ”˘‹0žýC¨őЦýĎŕŘ/äĚĎpÓ@a ŻŔ˙Pŕ˙Ą©mqBHŞQ3°ŕ'cŠÉÇćéL»M;‚·ËĆÎę¤ďîÎăéĎl¨v1´LŚqg‚č"ć.PŞęŔm­ě†ČŰŚşf­Ć,†v ŢžN˙é ‘ $|ÔGţ|h†@ \&¦ÍŔhgb`ŇLxź)8ú.Đ+gŇě„qî!ăyö¦%gć&ŐënŇ1jŽE¨aľÎĘ\xĚŞKË-â ęŢćáî:ŕć{N$Di<Ńp.Ľ…¬ŢBŞ ośă+š«($kK>n±´ťîZéQ®=#Ţ «˙BćY ¤  Ę’̸ʭ¶«@ë îs¬ŚnBu-ĂnĚpѸxěž ş®…_R®’ň˛zQĎńÔ †žÂe`™,cFĽĆÚîj¸hě"ÚČŇĐ=F„ßäQN6Q¸*äŘtĆĐăËä+¸Ü.nĺgôs§ ęłpRŞĐK(–N¬şé“.éÎzu.~D€ßŞon‘¬Aéüo¨ ÇS,ĺ¤éćŘpkîę…H„N%he˘&*çŢĂçĚ”DĚ]ď´dóŽM…„ěĐB ѦwDX1¤ ”!č¨$B):@c~şB’<B,$s=~Y@6‡ľ$M¦"`l{ă!Är—eW=%TJ q?sď$b:\Cp„Ţ9´5‚\FGľGt %TA@ö4B"DWł÷B#8´*<3ŇFEčëT=>âH)"> n×DŔk>ĂZäärýÓř@H^U´$UGŘŞ"DpbŞ3î—h_GTRÇ4 (´(SëFrpHâŚűT”)2$H(Dµ?’ň(tš5§;„¨)#.pKă|5˘ endstream endobj 51 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F8 30 0 R >> >> endobj 54 0 obj << /Length 3842 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1E ¤¨jł‘¤klqąÄň÷q„â@4Ű$ÂÚ ÂHT;âŠbŇi<¦ )–JeB)4¦,IÄ1v; 1˝I3<t’Ź5D/ř}IlP2@„I¸@D2śĚg#IŔči7›…"ŃČf3sĹĂ1It¨J‚Ń—(dP]ó  ĂaČŰD«=a°p¶1.p¸ä†˘0Rż@¤ö˝ěŠÔĘ-Ę"m…«čjľ-‚#Ä´Žbµ5 P!‚!„Ň3ŤĂŘÜ…âx@8:ˇp@!Ľ#pĘ1Ž(Č|nę„°Ţ37Ě$2/ě:ć1C Đ2„Ţ6ŤŻ@2;°Ę97¬{"É­«Ö-Rxi6Jq`Ó-ŽhQľoha@“ĹŁ(Ů»ďu> D'4ŔÄFMÓ€©4ˇ„HÄ°3°†4;˛ËÂ: .«Ş3ÓŇăÂ9Ľl`r ˇ{^˘sĐlPďHAϢxę:Ý‚Żˇ»ËHCPĺ'Nl¤íVŐčMeZ5°’7WŁĄ Ř6#CÎu7NËCuAQ Ő ć2ŚăhËqadđŚŻr•ŁsjWĎuÉ-l¬ž±”€g9T¤ *@ĐCÇ@¦"踆H#†áÍE_łT/b>ô”=94íHQĹ2ĐŘ:Ť®°¸\÷MÖ: Lż0Ôaß]ڱПgRdĚIň‹ýcÎPÜë*Ęá­&®Ż˘č¸„Ë Żšü“ ‰&ľĎÆů2a€hśë+Ň@ĺ… Ŕ¬mËPÂ7Hb˛AAĚCeÚ4Ý·= HAÄ<ÝŇh[މ‹)i (rĐġD´6ŚN¨ĂBşŇ\‰¦Ü2 Ĺ Ëűŕŕ6 < ¤ ˘ŰÉ&ŠP9V™,”[Ć#dĘČ«2 ‰"“ś’­¨‹¨®áš<ńW@9 «Ë cŻ‹ď©"{ @ó¨‰řĄmmJň4´:ÜSÝşs}§mF”t*s’Ü»—Ţ;ć˝g\iY)Š;MĚ73Ţ#ę Đö˘×HL a$®× ’çH˝˙%@P•ś¸ aʆĐÂŇ $‚A%Ý€×zKáĐ$€Ř‘ăüyž[Š(=ĆUĐ "D@‹‚4CŠ/-†0\ĽÁş3!Ś§bpĹđ8lć’äö Ŕ2‹1ma’Ö˛RŁ Ţ@D~2“2űOĚk±´ŽĆřÄ~bŃŃŽ20Gt aŹ‘ŔG(č}¤$†$Ľ(€ŘŚ—âDJx¤@Ě”HˇdT$ńXőÇ波é'‹ňOĹÂĹăëŢeÖ6’——Ą\l2şN˝éK©?2Ţ@ÇYtź%d˝+˛ÔüËç0›(ĹWfĚ`sÖ~1^#ĄŔůăkë†f•«Â¸ÂČâ }…°NǶh#YĹgí ™´gâťá mU¬k–¸Č[ dC- 8¶Äˇ(hknĚŁ\)7,¬´Gí! `qk źÓďjĎř(Ě„śĄćwŚ ­©Š1<ŕ[˘ăśLS^Κ#,Ě·Xť‰÷ŞÖ§?ć# ó1ÂÍ#5iyttqOĐ&53űŠ^Ć®Ş%ŞgŚ‡1JShô(<ăbŁ†/ Ć;žBü‡˘Ůü`ć/9¦hdŐbÇ Í&“JH@őI`Ý©b ź!á#?ćÄ‚‡j5l¬ó˛ b·AŔpѢ°¦ä¦ ăč… ]+ĹwĽwRfŢŽ(˘ZÄ<ť÷K†¶›)'š~żV¬ ­ćß–gşDH˝!źBrÎ8çR°qJyM`¨ćÚ¦L!¤`/5‹’śüKA—)­â”HiËÉ„ć‰ĎD^qd¸/4ĺĽř±őĚů!JĺÝ6tŤ1Íş!-Ř„{§s^{Î)ź¨ÜvqútL!݆3ý‡Ą’ncŃůZoé]G”v?lząb<ĹÑ计ĎĺŹuí\›ąs®ÇÚů˙~îÝÇ©&ÎĹŕůżEđÝë˛vÎŤĘ»˙|ę]7´÷ÔŞgN4Ţ­ÍŘ…Ćj,’ë…çŻI’MăüŇ|ďžźĘü»ĺę ô3ŹŃ’ŤE:˝?‹í>«˛_uëĽĺ ¦žŠ‰{nAŕ“Ű÷˝Č˙_Ű:ĎłăźŇű‚aŢ}ßĘčť›ě| ě~´úžŢ”vß›ň}_ćó_?¬Q˙eCľ%8řÝ|ĆwHwóź®'WóĄ Ďđ#ďôˇbnĹÂD!čřŐÂÔôăřJ lÂË @nĄić?ÍjĐŁBęBDş ťÇŻę8˘ńΔ؂t8 ćÝ°*Ś0. ¤6©°lâS Mđ@±9ŚLĘŚ¬2«>´MÜPL.06Ĺ(ŔOmÔ–ś«`C€. ‘g”ĺM k¦ľLČ^b«"QĐDJôâó)Ç•D˘/D˘8Í·ÎäçŚ Đn-LMcŠ¬0n”"nyg•ÂqNŠc):Ö0úĹĐéđpľb`ć#ŠÔ°Ţ˙k$Jŕ™É’ĐaäŁĐҶ0V<˘”ÁĐpá°8Şď m\”&*/L- 0öż×PCPQF90ÝĚŚMź@˙cA1qińSPÔćć8«¬M‘Iđą Üyѱ7oýQ±:4Më2,Ë6z°zÎâş$‰ćۨ^Ž ËZI«a B— Ś:0 ™Î¨` M&?ŃĚÜF+ Ʋ!đ‹MvÓńá +gb ˛FXPˇ0¦ŕ#!­-âH<É“r ĚÇ!#C!mą!°˘Űr# M=ŤZŐéĘÖO’3CäŽäŢCKH9fÎJ#”Ü­‚LƊئ®Jm’± ~Ů„šŮíDÚM¨LÂhś˘hăâ(/KWĹą”0 –ÜîŐ­ŘM˛XÚNpĂ ŁBŢͤ€‚ €+íśŃ †D. ޲2Záká­îâvâN(LÂĐM*l-b{Cô{nfkc0ĆO'@Mđ ŕšbF( @‡1Íeó& ¤8bf*Gs(Çú_G¨ł¤,žmÜdG^€ÖdĆPT§î^GřfÄŔ ě€ĆxWf|h4JĹâhf@hÍîĐg3')‚ö?S †Ŕ{FĆzŕ@Ŕ'·9Â@ |ŁmŔbm uFśnî&PFöoĄP‡pg 'ŢŞçhĺ(:-6×ë"Ő"rg*F'0txgSn“đ~ĄL§´ťŽI)fŘgHI8TŚ!‡>bę唨k€¦·Ôť9Óš?7KÓ’…¤2:M4Ą¸Y šr4"V°.ÔŽ.ÉVâéČmŤ%LfĹJśyK¤‰–9Ĺ.dŘUN…%Ż ŇÚXŁ(ŕôçH„Í8t´j”ň'+ôĐ4Ă9tÉPńPB: ZO §F…®äBĂC‡ËŇ„dÔ"oĹ<­Eć 㲠Ě}VÇ@GÜ]§j„›Fí{=“OČ1ł5Ó#3€š8p5Ŕ† Ó, fj}d‡ZÂI2ŔfĄ@2ü-ÄžNg†B;CłÜ€#śY…R&ŔjÜÄpčąYÓôßŬ<‚řUu¬Îrć/€Q[Ć6-'ŞNDßMÓH´íRôńC>˛MÇ=Ă(Ü´ú7ôž S{v$m ܆`söU#ĐVs/272íäC#ř^Ą¦ZŁĆ{öE_EŻ,&3aMĄN§°y(¶Ŕ`mU9LV1Sö4{Q¨!ö0Ĺ*vCťeĺ|C*î^ł/35Łe@lU+ż^cvU#AeÔDWő,jv?ÉWKéşO”Uf"şčK'5¨Gč “óF`‚f*WęiFŠrt1H.Lh5HhA?F$µLhZ…č€âç€"˘´†"䢦+ä5s"¤nâĆw÷/‰ś”"źSF(ŁÇrČ`ŘŤ*eč'¦îhŔ*`Z‹â@‡Â_r‡˛xh`‹÷a‚›w÷?i ä%ő3x4ş$×’3ëš*˘SvC?xBuz"—y׎#Ź &W¨ ··{ <^‡Ŕ!í” «A|‹Ř,b endstream endobj 55 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F9 36 0 R >> >> endobj 57 0 obj << /Length 390 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h b5• S"4˘ 8‚ŤĹĐiôNĹ G"Ą©"ŚĂPďU)‹I¤ň€¦Y)•¤Ň°@I'ĹŐšŮc ‰G Ăq¤BE$“J2‘ dş!‘ŽăŁ/%¤čô˛ąlO¤č2c°¸o¦‘ę3[M´Ł;/ĚëÓyÍ\]˛ń˘¸ĘAo©]Ąş°¸h)Ś†C1ÜQ& “p€e9ÎF“ĐŇo7 KĄBP7®¨Ť»mÖŠ†oŘp°ŽC(ś¦ ⊯§!’€† P’’)üą%‚ Ş†k›ŔˇpfĐ"´«â#¦<ďKÖö˝ď(Ţ3Ň9 c¨Ň:Ř7ŚaHb…Xćů>Ź˛b€€ endstream endobj 58 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F7 10 0 R >> >> endobj 60 0 obj << /Length 290 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1EIPŐg#H ÖŘ,â s‰ĺ®ă Ä€h7¶I…´A„¨wĹŤŇyL@S,”Ę„RiLX $“běn PT$uĹ ‹¸'lű$’y8‚L&D"aśKŢH¶h6ńqňEŇNLă@-R®Ç#(6Ü€€ endstream endobj 61 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R >> >> endobj 63 0 obj << /Length 3865 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h b7• S"4˘ 8‚ŤĹĐiôNĹ G"Ą©"ŚĂPďU)‹I¤ň€¦Y)•¤Ň°@I'ĹŐšŮc ‰G Ăq¤BE$“J2‘ dş!‘ŽőzN^KIŃŘĄŘ,źIĐdĆ#apŢQ¦Ěč¶{]\¶_1™×¦ó‘Ô]˛ńxňśĘAo©]Ą±@Îć . ĆP.°ĚR-ŚíŁŽŻ\@D2śĚg#IŔči7›„ó0€†i9 FAŚę4Ž„6 ăRđ…X拢 ”‚© “ą‰HrÚ%Ę<ďKÖö˝ď‹ćúľă“ý@P Ç1Š“Ŕ$©¨¨"«Šć+ë»Ęh *°ăpč2ŽC0Â1Ś±j†Á˛Ý)‘Ó¬¤G‚Ę6 ŁBů>’ ‡"Čă*n<ŽJ´®&Şűą‰ęŠÓl*Ź®PĘŕą"‘”t* ¦"Ž+¶żHKŇŁť9ÄthŇŚŹÄł-Ś#`@2 # Ă%zÔ&ń¤lđÔŽP1Q.ŔP" NÍ"âŕR}p9 #pć3H”Ý:0…ÉĽúOHËŽKä4ŇÂ8 #±ŠTkA2ŤŮ…PTP˝K— Ć ŘŕŰ\Xú=Vף%ŰO4…ťÉň#ö6ŤůŠ$ľWťˇ©OLuÎd 0Ń«n&çcŮ7u۶ ÔĘË Ă€ëŮŰŘĘ7ş–Ő[đé˘Ň;Ąť/ö´ĐçO”N˛Ć¦(8ÉBH¤6ŕhrµűjKX+ŽÁ8NNLŘ”4! p©.‚ä.ś>›kLRś”㇠(ZIž#`~‹těľű>´Úr Ť‰+_:%ÜęDČ’O4}Ŕ  ľ KH1H｀oÁxW;ŕĐPPŮÎř7$Ş˝Xť˘­bF ĐÚ˝…BťLŁxe|ŞB5ü‹Iši8hÔ¤?BP‹ßr2JL×Ŕ6ĆuŁ;DŐ#žöăÜ(4ŮF4xrÉšŚMOx`„śÜ*0*H° Š\ŹÖ=ôy#č5äPţHΚ ±`< -îwS ˘Q:`ˇŠ0ř¶Î_±Ě†~ąB¬‡Ť2%5ÄfUd2g‰2‚›RŠS őŽ˛L)Cľ ©ä đ‘Ć€Ť˘\<đúXŇL ŁśT’‘îT˝CZlK`5{„„”4ë4f™¬šó@3i&¤Ö)3vo›Ó< f(}Ä‘G‰Ň[Űâ7ŔČíyŐ'çlőśVkšĂ¶ü'ÜřŔ€N©ă9(86†Ř¶P cBŤäđź¦řŮťj:楢3ňyŕcCçµ ť@ťĎşJčˇ"oĐŠ‚$śK`7~Ö†OBv˙b|ąĐůd›é·JŃí.žbÍ9Ú fąm›4PişH'k…-‡Š”čA8ę¤íE©’YL§¸Ł/жV'Ćp 쬣ôÁ ÓB ćJ:1)śłńHf +I-©°Đ­ nŃL ąTM+Së!„ ô> 7Šbw,`Í §µŽźÔ w J%CłĆĂjŽvµő.ÁÓ L0R…&¤ËPXࣂ”ňHKµl®ÓwçĽ3/¶r§óŹRÎÂǦůec[6 É'ĹYdžÚsů8č´ &â~O IB¬‡B!Ĺx_hŕnítňFI@wĘ$“ÄUČyă ˇůµU(Đ`ę—ńE§‚€l S:vô`e !S˙Bç’Zťóśe-¬Ľ‡R®5¦Ę¨^ĺ2‘÷x¸e'pč-ÁŕZx‹IVÁÓ{PÂ䔨s Ý}Ü?/QsÜ‚OÍâALU°ř(ÄŘŚ`|CŠ!&¨ré|˛ˇŚĂ5XrF|5lŃąuÇ٠≉oA•„X‡%Â<\äžzťQ9QP’cfsѤÂI±Pę?@RGă<)·!Hsw‹!'‡ŮaúGB©wUPWɶᒤG›l=[‘čŢ,δú®łáµŕµ¬0Xîh( ®E["Ód|Ȣ$Šq€eިa¬41ârÎčRuĄ!ÖE˘nŇY­őv˝ś°M ¶Muü×ŘőT×’ŤŚ…ő\ƤŕËhk( (YBNtŠm’€v#w¤%k’%HKIkŘ”Bší ą»5vŕžwżmn]¤\©®ňŁÔŞBRÚ^H7!tކI´¨J)é.§äR Ě`pMfńkť ä˘ńGJM”¨„š˘ŚI(é%[RmĂm®Ď%ŮŠŹ”r©Ű¶Č)ä/ŕÖ¤)[Iˇ*ꤥĹI$u+©ŢÄ\¦4Ô™?{‚ r7¸Úŕ_‘c¤±€Žć;`¤t»ĎH‘"ÄF»béZq±ÄN W'çÜ; g¬…°mFÓŁŤµŻ"Ó*Ľ^ ‘ĆPâ]řcPÖ­ĺUG¤ăÄtGMP:pĘďÜbbqÎGĚ©ľ™”VÁęY‰<'ćűÜ;ËŃÎŰKi‡]çlĂ431 Ú¤ČsbH.„Ŕ¦të,[EĘz8|}™íJë9q‚<Î[˘¬R¬6wFp»Ň:}rL•zbçUWŞO7Đłź¤±Bń¸źYş-%DXRbn‘™3˛ÖśŐRÉĹý%cŮőĐHG’XěbĘ ¤ôN˘sçBXęôGžE¨đeâ ¦‚ćŔ„O pělY Îcň fži Č Ú  ňVÇ^d+o'žb@ĘrDDú,ÖÓÇľhŞk§úŽé: ŔĘ/ôr@Ǥ±ďĘvđ4Ĺ－ě´*§´:úFÔ^ĎŘWFčg*Hgüŕ@ Ř÷F0ýKt?0d)śÎŞˇ…Tý Âýŕîţ/:qŔîÉĄ!/ąO>- ńéN`BÖx®źä‚ó°yđŹdLP‡ŔËĐ2o$úú§H.m$UP^XđĄX¤ů ‚o1]ď1ěśĆLib(˛˘«/FQ ĘöĄ“p{ë1„ÄjŤ.WËŽţÇć-Ë,H‘_ hĺdŻpčĂŇé0¬˛ćěop Ĺ€KPZűĘ?@P ŔŢ@'4óŃLôXę)0čî’ ÚLF’@ ‚`†ncÎ knU€é m^pń»fž=ńÎUÄ`˛f°XĆňKöŃ„ŚěNęW…|Xoęřq(f QĹtóžqoćGç>>ŻŰqÄÄY/RĎ‚±|,iŔUQĎóDŕéÇ Ú>`Üy ¤˛woäXච෠jő%|€ä«ň>O8tG,÷ŕZ…’HGđĂţĹ2·m'Cý$˛NŁç´ęg î $ůŻH…:>ÜX u†âPO&ňg'c(Ę÷+’ Gţ`˛Ő&Ď;%Ű*Źe9ż¦rô`wĂśpđŢózgČ ‡c)ł&"ë% çvwD%Ín‘ pĘ8îÚĐŠšpóYÇź(ň’UŃÍĺ*S¤®_oj „fÎünŚ_2‘—kdTÇćřĄT]Ď>o-#ă'w4eŽQOürS[(ł`Kq{/#F~ŔĐQ# >&CPI 0…#ŇZK1–_ | Í2W±&ŤăžGS2ł.g˘"Ńqđ ±8me Y%Tu`îYëĹ!ëť «ęm€ë*ęě‡Ě8ŽnMä(’î{.Üpă¬"  @Ĺî îȉGαGÔíBŚř©Ľ-–8ęÄU@„Q3qCń\ů¦(&/ĺz˙†ŇnŹbłGo=í¨pďhöĎšQíügm,ď/Ż8WĄ÷5ŇŤ)·=âpń¶aG2.ľĹâüzZo,bş É?qsF@ Ôdtt `NJÓ?9ć YŁäV…·ŔAKg$ tĽw_JRÔX ‚R^0–ť&˛;’?qŇ>Ńţ¶ňD?ĺ“%gxRaÔĐ 4AMnŢňB«ZDj†0O¤WT&©ÄĹÎů 0GI¦úq”ÔřKś€“( .ôŻe2yĚcf:Pň2H†MFżőAÎl­”$¦ .Ź "‚bŞ; @<đóKĄđ@ YÄÄëîÂKôB±4MD¤ĺY˘Ž~4V ˝;†ňő˛ r^ŻÄţ ömĆ@K懏řLLŇSMV„đ˛ö* Ů[PÂGb^¦úů¦ `ž Ąc/mW`óŔë)ä‰/-'s‘ `pxR0Ć‹o˝–A0° iÝ §?RĄQG%dÔc“uaS dĎK@Ëhď…{eä^•4LR/&Ďĺ"˛\aKŽąFş‚TŮAŠw94xYu©0ő­_€A[6>ÓuŠÍ–R 4đů8‚ć™%TQÓ5d«_d>q–\őe?®ŔőŔĺf%˘>$†oö|,jő% ce”w–R%vłëď=¤U†ÝVtL@Ś„•8.bJpë ďÉhâ=4Éqż3ĹĐafňYĂÖ µ)T0°x ! ď 6gď†9E'*>Ŕ\ó@uóĽÎwňŃ9&scĆVÇ"Ç8gpĹUnN‘Lć%0/·`ŇőŚĎ,Ăę“öŮ3Łë2.t’żgn›"-–ş`ScŮ-ć0?N‹ŽÔę¶ BJ{­¨¦bRŘc| endstream endobj 64 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F8 30 0 R >> >> endobj 66 0 obj << /Length 4144 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1EŔ¤¨jł‘¤klqąÄň÷q„â@4Ű$ÂÚ ÂHT;âŠbŇi<¦ )–JeB)4¦,IÄ1v; EłA˘QA„V´5 ơŚ‘}ÎČŁN],qˇ9lv\Ť«)nŠ †—(g‡ÇwčFCŤ>]ĹÓęEcIśëŮ ĹĂöG&¶< ŇHĚąˇrHŁ¦ˇ’ ż°íH¶?H@" ŁĆ9 #€č4Ťăp@7ŚÁ†4ŽAHn c¨Ň:Ř7ŚaKĆ cR†!š:ÂrÔ.a’ýˇHş* H*ú@’Zš.ášęŃ1OŇ! ă`ę6ĂÂČ2;#ç,Łpč2Ĭ{şµ˛Ż3ČMŇzrHKó݆Ëcä* (@1Ë2Ü<0Ëó Ç@Lł8äĚc BŚQX@8L#(č: #Ř2ż¨pý‡3Ȩ"­#Ţ>,U3MĐ4ŚcC 4ŽĐ¬˙@Ë 0BŁťm¤ú Hć8 ňţŠUJ˘+ÄôĹ 0 B ,0ĚcĐ7ŽđđÓ>Źłđý?AŻ>ĐvŔËBâĽ13Ů–r‰P"XÖE• ÚÔu6ŤŁÜ2Vămmq·ýUŃTeëg˝îmőqÂă.Vaň‰…ÁŚ7Ńx6>7CŁ(ńcCcpĎ]Pµě?ZÍ,…›±N@‘†Řx…[c*‘€Ö2á6”EĂłŤĚă#{5SÁ”|´ő%LÎßSć\PyŚĹ[Ń9üÇqŚ(ŕ2ŕűDX3CxŰ`Ď´čAOÁP^¬Ň† Łä8 #<üěŚůdѧ˛ C˙6ÉŇkÄü†+ę@JS¶q¤ˇľĎÂËŔŽtSú´;Đ ˘<đ'H/śrď:¤f®TSÝ_1đŔÖ´m'Ěfćż`aÖ%űdăö­1ąSáŤB¶nďzÔÔ1VÍ·nŰ÷ r>ŻĽýtd:ÓaKrÝä˝ßFÓVomŘ.IÍlW1ř"h *Ř#}t1Śy•7 ¨–řßřfbfů<Š±Ţ"Ä`+am8@p !C¶Đr Í YB1lĹĐ]ă Q‰%Š0Q#TSŚ Ţ7¸{×É-/ FµI€9Ź‘¦$G#ÖRˇŚŠ%`x¤Tb†’!‰I$”?’†v3µI¤kʇ@ÚÉřÖKe.”„BLĆC›%d…°–CAÚ2.Ĺ8đž°s-Ú˘.Ä´”Żpq/ŕŮp2& Ă™Tť%ĽtŚó2%ĚĺPI%Ä‘˛$¸Ů‘0eÔŰ1ždM)–A˘äÁ‘3bsMHË:–ŚŔ—32˨¬ ¦üó‘©˝; Ë2§p38¨ÓM:#-HSbpOG!ŕěŮś%Š‡źş#;hBB.Ň,Đi§Faů⣴JzJú,D)$Ť(&‚ťr—'ˇTV…„™ĺB» hĺ"Ł1UQČ=Nhĺ;'v,B dD#Ő<+©ćź¨he@9¦ŔŇ:ť%E.ôÂŁB*Cd,Ţ_ťňŢ\SÉ™.±‰Č#Ĺ đ3TF–€śAl–GĺUgb‚¸R Ťĺ"¦˘ú ¬CsqŔŐQ*@Q`ÎmxjV Đ©ňQcLPD!P Ů d,ťSöRżŘű ^ č7r(÷ŘËJ¨słÖˇ" §Á…®Tf($%–Ę­šjjS,)ú¬óěuÁ2ŽÄÜjýnÁE?°A{Äňe!Ńé©’Ęšɧ ŁÄłqĄę:I€f^ˇyMIF–­Óňúä(CŤ˝’ţÄE/ĺBĽ°öšUXŚŤetU®´Ę×/ĎabѧH¤ U¶Ž4’ŮűsěpIUČ7ŮrŠµ}:GBÝXŕ¨_s.şe™Ôʤ‘JÍ`“P"=ŚI×)vć6 XŤŚX9¶ÉŚc*šÁ--Ĺń©Ëčä)|6ˇ%ąTRHŻű¤‚‡B=ł«=—Ú ňlŹ‘Ď'Jť|ĹvÝŮ1 _$ĘŰâG r>34$šŰ‹sŽS¦;‘©Ń+JËlx˛ÍŢźc,’KrtZĂ'źŻN¨×[ĘĹ,ó•[±“ĚG‰«JîĹěçô˘˛Ňů×čöKpqjfY:ľS“ďí‚xföm/_¦üŢOşŞ9•˙HEčĐc•QýY0ý>Ä\>,“‚©‰đµ¤ňŹKr‚oě˙ÂÄ-Î:qŻ N'L-/ ‰­ü0'š>ô]EćS„Ô-¬ĹLv nG">™‹ˇKJÍ0Żč1EÜPŚVÄ/ę"".#%–…@4.¸4ŞöőŠB˝)n CŢŻp .©t–â˘:Ëđׂô”‰‘ hé §• éŹ pŤ ŤŽ‘P‹ °Ş(0Ć_*8Ćîô)ČLyCC i„-BŞÓ0†!čLoĽčw PňâĐřÔq¤ ŕ‚a 0˘‘+ßĎ“ BFż® Ňý 1 ŕsLĎl¤Q ›2…éŚb@éŽ@ÉŠ‚/" ‡ oâ8Š±T–ń>ŽÉŇj@`ŻĂjQ@Ť‰âŐ‘LČi¤µQW«mBá‘eQh(V-QsJ(­ČEńŤÉ÷I©(‘â;Ń%q¤*«Şôb´‰Î'Š¨˛bx†ńa‚P¤I%îµQÚď" Ʊ†¶Âj9©‘ =(ŤrQţţ‰H–l´$ Ż #óń×! ^ëÚç’*ßň0—䤔jžŃc#ęzçrD'’51j#č"i,'’V9ó$‚şč Ć‘RhťÉ¸?rg"’T#‰ś…{%î((ź'*© ?)¬ťŇ”™’S&…]#pëĂBĽé»Éx?QF? k+r’“‚Q+/.ŞÎ€öń|?2Î/‚@¤&rÂ=ńü‹Ö¦BŐ+Ré$Ä"÷(Ŕ/˛Đ÷S=2Ů0ÝĐ®µRÁ,MŚ2ňĺ1’®q/0Şű!S+ĹQ2“’ÉRô4ŇŇ: ý3ňę#’ŕŽŇ˙2¨Ů.ń«3Sž˛ű1ň÷0D}0“H¤$“S3h51Ó\ˇ]+ň»Ă©!p9‚Ă-ÄďéŞtň<‹łÉ҇Hju )s¤Ś±K'‰9ŠÄó9S‹b•$s®&Ëâ× k*Ď;-„ÍóĂ;«ă"SĹ;Ó2Rł=łŚ‘â˘"u:2‹9Ó†IsĽ„¨ćt9nw;rg?M˙<óAČôT27>łŇ.˛ˇ>M‚(ť<4%7˛yB4ĽJX1‚p‡"!It-JhîMÖňÂôŞI(§”3âŚňZ©#=TTďJ’»,xŁ‘u Íx¦Ó'HB?H”LŠÓ !đEn¦Ös˙IĐŮE‰jR¨ţ´pČp$DóKTdßâę÷4{ŠĽŠ}IŹ ˘ńKŽţôÖÖíłI´ĘędĄÂ;JććÎJ ´ÁG)ŢŁqŮFô‰fňGŃoOT ť5táH’HŞDQđ«NăßO4ęń‘^»3×QPŰíę9taKnâ/Ł›Kő P:–˛[S"gTË]MT4CKő("D)u;UĎŔ/ ­cBäO$yOM ¨ŤC(® ۤn" íY¦ň‹ P ÄoăÓZ­ĆÝä’ş„ şÂ´•2ż ŃŢ×u\r!˘Şă®>ŮâăX.°ňD…):ŕŞĹňÁçĆPŔ@WÄXÄ=TĐş¬ î°ČšŻÖ2…HAŕK`ÚcăłL,ľEöv& ‹fHä’<(ś-G“`k`¶2=aC÷dK3cßcKNj Xq¶1VI[dÔ±tnb=fKJě.ĆącÂ=%óĎ;fÖ€/¨j—ö‰Z6og ZÁ¶gY„qYŔmZµŻcő´ÜŚ=•´Ý68TĄ˘“­©iľş Ä ą«ł L˛6nItš˛ĚJz ‰mĹn6Ö´¬Ag T´Vňş 4łŚ@´++oë“ećlYÖÚłŕ|ö÷m$ónVŮl÷ ¶űr7 1Wnë‹s P Vër¶ás·9oW+i÷J·ć†k–ö^ëWuVŮ_ezÄ ÉoĐ tÖÝh—v,Im‹`¶WN˝ńývKJ· Ř·đvůď» Ż—ďŞÍjQ —žĽSŻy±n‚w  ¤tGÍü9¬˝ŻťzäĘ3z,…E7ĚĎ‚|’\üWş®B ç‹Ä@ŻşŞ”NĘOĆĽbŞ‚>”«ňZ,˝/˛üéú› ˝ O·€ôÍÄtŇwí|ŻÖ§ŐÖńŐÚň0őXK\Á3×KípČI~Áě"ÂiâGŞ1L4QL:Ă÷*ʋε‹smŚNĹ ĎdĄTÔż.ę›O‚ô®F)CŻAp®bʨ]ÂÎ8…ÜŻĚ•;Cô‰Ă>/{{du^ć,GB”Ç‚«KM]x«JĂ@#Ő±”&É›vVâŠä«ṟ̌"GŤ0ę6$pđŹ—·: †šĵ©fJH‘”9-Ěj™o03ůçqzŻĘŚâ˘Ť‘J)‘W’8öH7o#ČjHI.5ż/9B—N$÷ç‘Őń5y?)‚á•ö endstream endobj 67 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F9 36 0 R /F11 68 0 R >> >> endobj 70 0 obj << /Length 4352 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h b9• S"4˘ 8‚ŤĹĐiôNĹUÄJ)RD- †ˇŢŞS“Iĺ1L˛S*IĄ1`€’N!‹«5˛,ĆAŽA†ăH„ŠI&”dâÉtC! Ć6)FZKIŃi%rŘ,źIĎä†#apßK#Óćv{YFr_1™×¦ó‘Ô]˛ńxňśĘAn©]AĄ±@Ě\6c(Xb1‹F#!ČČeŐąC)ĚĆr4ś†“y¸@o3f“¤hę4Ž„6 ăR†a@Ö9…"č¨% ŞB@äÂÎbR»Đě=cHć8 ňőŚ# Â BšĹ«‰Şľâ.!˘z†"tm Á¸pĄ5áĆ›®Á@7ŔŁ$SŚĂxä ‘I ă@9Ž’pĘ2 ď°č4DQd\/ŁHÜ1Śˇľ2Ćıɸ® ’Ű"‰˘€Ş #t¸&b$ řĂ,ž1żűŽ4S4ĚĂ ËFĎĂ(Ü: ‘;ń S^ŃÎę¨Ę0ŚcCď5ŽL,•ú SMK>ŚňÜř9Ź38Đ9>Łxę9Ó4ĺ<¦HŁĽ4WĐ(Â2PŁç4ŚŁ0Ě2Śp+ë5 LŁÄŁË­*AjLĽł”踆ű¤ ătŇ1QoűmJVěˇ%ĚH´Â0ŽcŇ3ÝŇä˛űÝŐ„ 6„{śçÎwD…"*·•"Q‚L⦳xh&˘¦:žđ†nŻjŮ…ÓĚĺÁś# ´ě‡şY űÚY&M”eYf\îf9ś)q,a®2“á’Ű9Ρ…ÓĄ˛" ‡VŤăhŰ>Ë“5š:JÓ]o`m-ŽC,Jůľˇn7Şđ|Š9Ě…`2Ž¸ËKO’…ë*Uq\Z‹ cxŘ:ŤŻµ–2m·í„čČ» gŚűU.űŽŁ áĐ»!Eź4×ř붨Ápf.6ú¶ŕ¦Ëż!n4 bč‘= +ő®Ť¶¸¨4Ťł0ÎŇÔt˛ţÜ śdá ±¬oÝzĐÔlç­ëŠ(ŻČş´ĂDTT ZÝĂ•+qşő®ůů#w—Í ßVŐŇ—aËÝČrŐ@n !±+?VşĽŐ‚ü !ŤV €ĆÝ(C ŽÁ25dŇŰrÔ@ˇЇ—.ťOˇ@/Í,đŮ’˛+ už0^lĎşO ĽíÁVŻ ÎÚP°}t‚č‘WÚĄ !•BĄŔĉŃ[ ŕ¶!7ภúXPÉń?%tJˇ]\ Á™Ő7%ŔÍ–!U}MŔűD÷ÚńO°mˇ°ůÄĆú•ĂĚR °Q;Df…]Âw€UÔđ˛?D+q*EđJĄ?J%‡HęMŞ4GO\‰˝řą IĐ]ÖAg !;‰%r%S>GĚš(m 80ź2•Ţyí^pđąPşĺwL)cŔŘßݢt6Ŕ…¶”ĺ řqrŃ>ŞŔŰ3"rĄfŞŮ˘ŃK ±1â-tĚ0v€aÎ&Čľ°Î82–é"8tNÂp/ á#ED¸ŃQóBE9á<§Ł\ ±x­łf˘ ęEkéůöPčŻ%űfmę•[J ćÖÄŮl҉3K9Îć ¬Ç^҉łÚ×Ó2VŞéZ%·dW¶C1č˛j “Š:Ďü2)ů5"™ű|˛6G˝7löNK٦ĥ$âs—SáL˛kľw›ĺ8 K=˛BŘŐŚ'M/˘™h #T}94‡ë+g„ęš“ć’„yI’vĘár8QÚ7;«ú+˘a ÂĆwŢňP ­qŤ'Vr‚ŐKŁYQUüĄu˙Ąü­VMux0ŐF,ˤUěMţ5I¦¬w *»†Ú_žŁ»w$M Ô¸üdĚ€oŞľĚ‚od“Ě}(¦Ę˝!ŃĘ;©2LŁ"k' D·{ĄŽÂ>*©PÔ]“}qQ.Îĺh$ýĆ~FŔ6ćRZćŚ ˘b@€Ĺ `cĐB'Á(˛ý˛i˝˛ţ'żč¸ră\¬yO´ć©'ź¨a~ř YÖľĺ”Ńgvľ)Ęj‰‚IHn«™¨Ăň«x§……p»`°Öí}±¶kE'LXžĘŤ@Ď:‘X§ŞÂË Ó Éa vD1$…MD“5ŁĄwš{XgTJ­ŽK×!ĺℝҼ Á¤=+i ŐßÎVHkŻ Z” ItŞI(ŞéŔ—2Ҩ ?/¦»Q(IwˇâťĚ“«Ćq‚„ŢŚ*DÁJkYőÚ•­Sč,™‡9Ş6k;…#RX®ý ±’ţ*…‹ČJDeŘh¬ňŮŞ&qO®dĚÔałaîŁO€o “–ęcô­g`jKöţ»Q•˛̢×2š†L/˘µqłř0뮎äi“uKf zB'5şô 5-3ŐƆP𦚣ë ŰiŐ˛‰Űâľ ‘4±,⚱̲ Îȶ`ç„••ű˝ç0ĘA}mnRÁŤ°5bź‚$l Ś ;­ą]’1á Ł‹{uŠ4ś¸%Tď`@ĎvGmú^EŢ sŞ4’şHâĄsgZN„ <Ř>©Ín|•\*ŕ¶U¸$ž‘÷ç2úć$ýĚ©¶Ś) ÜOŕČ{ł[çk]Ę‘@’ťČµuMĄÚ*ˇ™])ß‹YiďĚę'ÄÁXË Jý¶nҢ:ädhÉŇŕ2d~Ý)Ëw;ř˙˝ńëĆÖń†Ş×.p%jD•/]ÉŔs›­šÎĆÚ¦đÝ˝BنŽCH°ÁŢŚg ĺŽjV 'ćý/Ĺý´GŮZxţtŠt¸:›T÷ü FĄý¶Ľź;ČóĚ<Á÷ŰTs^9TmźŘöĽÖ‚W‡yl3¦ĹôĽĆ•"A‘j@€‹pťBv(­Z»"Pt…BńÄŹ´´7>fWG•Dń/Bs:´M:đć6†ś+ÔY"˝*sÓ*ôFÔGŻ>’i8Tu)t5H#i'łŤt%t‹C„}%S• SˇF““o ôdł>Ń5S“9ÂX2”'BÄ‘ B•"-4™2łR5u 8±ADi@297˝?Gő7#•STŁRS3Q•RQH"OOAOôŻDr :ĂĚ%K$¨ý;”[0“ľ8´Ë1TĎ1µGP“s ˝UÝ ‡81@ŢBĹ2´’iU«WÄiUŁ[ŃńOđSµÍŃGTUđ%Gđ~đ/cÉŹ^ k‘q]4ŃY±®;ńYějS|âłô,Őăő=ôÓT”s@°µ–Q(ű`ŁG`ńCT5÷]sĺ[)b1ŚiUé`Őî5sűc™cT9Ő»b¶G2FK5’ËdsM!/-Ö8qÉf¶=g=ô—fóMeó+góB?öabÔ­:T°´´!”N9Ň$eŤ Lb¬Ő“?őődń%YŐK‚hö[l_fÓBÂwgBĹh‰%6ubĐkm6|:ÖŮYh“9l3+gse:2W”KiÓŻ°µm^Ö«EőŽöła5ŐkµŮ0koĺ!–ďn“C^Ö÷n-ov×47%]÷?OÓgYurä¦Ńőgtt;—WtpŘvöŐfSć]#Ź]ö,(ëánwh;pŚ"w)C“‘VřµAtÓmuS÷'sŚ(vB6wť —mx—r–×_vÉ\6Ít–ýDRD’űWâŚ*äě$¨ŢV¬(sÓ\łŮw‘Fö âŮ^—qlp“c¶-?´ÍkwOÖ˝aµlVo6's×h⣍vvŘâ¶ĺdXW›8‚¸swii6˙|5{KwČâŁh‡ÄeqŐqR§ke˛3c7•Yî+[6^1‚Ő¶avĘźtXIv߇¸wx§Q¸mhx‡9VŮ—Á(·ĹWŇâL-"˝„Ç~*Wq¶Mó€7č6×oVÇőgŚX4ř•SmŚ·»SÁ•Çt·ýy8őąuxh$fť{6ŘexŤ˘Xex~řű¸'Ź¸÷X/Ž÷­xĺ…¶ąŽ¶7ůFW$¸-ůŹi’řů [g˘Í‡_.ö•pÇ ć”BŔo†f“Šň$:˛¨1“kY!‹”Yńc€‘a‚ąGw°k,6cm—U÷Š;uozW{—Ů•“WŤ4«”Ř;‰Ř?pWČčö÷{ŘN)s (óÄťRr;sĚŔÄ…<%Ŕi m°˘$…Ěe P ĄřĽŔąť$Ú.T|Ä9ônÂŞ çBłGažő\­›.*iâ« ™Ô+`[n‹.MémźŮ瞥 ˇÓÄ Ú)žĚiş Ú4\µťşśmĆNf[źÖ3Łş, h® şG˘$až:@}ÎÇFB endstream endobj 71 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F9 36 0 R >> >> endobj 74 0 obj << /Length 4823 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1E!€¤¨jł‘¤klqąÄň÷q„â@4Ű$ÂÚ ÂHT;âŠbŇi<¦ )–JeB)4¦,IÄ1v; 1˝I3<t’Ź5D/ř}IlP3@„C)ĚĆr4ś†“y¸@o3f“¤n(1ťM'AŘo1ŠFQA¬ć)Śo1§<\ŕfĆ€b…"č¨%2+S(·"sć† PŚ&$Â9a@Ś4Śă¨ä2Ŕˇs  C(Ř0»nčć4;!Ä2Ž¸Ę2»Â Ň9ŽXňéĹ P ˘Âcá;pć #pČ# ÉŽc›«…Ôy6 Â9=‚`Ň7 ˇŇ K|«2®«BA›B‰"˛0Ť ˇ˛h ¸fŹ!„§! \H0e?…Ô –Ą45OHđpĐĄŞŚ÷>Ň´=1<ÓsőA,CśáD‡(Š´Ž†NrĐŃu™Őˇ…^S´şÄ—¨¤ĺUˇf˘ EFÔ‰5…bXŐÍ>—†A­zţXôruhÚh…ť]ÔáŤR™ZsšµHĐôMpâ t:Čf×EÔŞ¨•ET-ĨëBč_WÍo~_đ–}#!6ő\ ŇG>¤ĘŠp Pm†ÂA”úŞáRHŻ4=lťbP–*d Ô5TăM…†ˇÂ•od¶'“ć9žX±ăą~>©AŞmšćëV… čyn=”ĘRň’b9¶MŁi´hj–gŤ2?ĺMa'Ue\ĐĄ Ĺ„µ^“ŤĹ;ŕÉ= rŃT¸\ý4)5ŮFÝëľĺş,[˝Ýx´4˙ŤíÔ•Í pAĎ ^8ą˘Ś/¸˝SxŻWNęŽrţGÄDÜU¸Đ/©E9yrýăNp<ďŽ^(ű;sň·RLu¶“CÎp|úS .ÜŁŁŮ#ťŰçŔq=Xh/¸ĄµŇl>FMmu=Î8ľDÁ®-ćv~Ąß‹z<ö9DÄÍ5«dŁź†’cL¸egü«ďĎŘwý/ÍńwňÇpŘBűhŃTe¬ěĐ9Ĺ,ĺK>Ĺęă•X0oŤY±Hú[›ësđ(âż,Ř`ˇ$~®­?—Ő ŞUŠČVpuą‘Öôúźd$đYŕB¨MÖŕ3s*Ů>Âţ°a›ž‚ đŞĂ"ű !c—‡ĘąÔČ™ !lŽ{‘–_겉rXÉOaLś“ŇB!J%)!Š$R`ʢ!#%ID•r’%Ęčß%#80(€Ů„ĘŇ.ĺě°‡˛č˙ËŮh˛¦$Ľrr Ş—‰w ĄdÎ?óBa9¤ ¦„Ç& iÄY3PŃWQŐkÎb¬#ŇÜcHm]M©×8ťĽĚšŔÝ ĆŁ=üöš«B|=d;§ěö‹3Z-°‚A9 02  âΙ›Bׄ~ˇJö†Kyż5¤$2‘oůň’‰F¤ü<Ł}vFşFi-Z ŻÉDµébÂn0˘uSůI‰…6”ňáhIf54iô5ˇÓZ Ó€eQiQ0B5QĹf˘W©x¤1™hTşĄ;޴˧„ÂbxkS–˝]ő šLÚÄčÝ‹—1…ŻQg¤XÖől‚T ‚ÍĆů>ë­rvńú¸Ę ÜýŠ á3±z°1Đ*›ě6×Ë_ÝY74«FśY#Łe*Kř&Jjq'Ň(\ĽĐPŽYň—4oRdL”5g gŤžµĄćק«:DÁ… µ5S@uľŞÁʵVöšĐ±hŘíc•X®}Ěą+qn®3r,Śŕ«hçâC˘ąöžčÝ–crmsźv®ľâZ'Xčo%ł»ěqákËtoi“˝Oç<«·q^kÉ]7‚ë˝7ÜőŻ˝ćW×ý_7>üÉ%ďl8"ţ^¶y_ćş8@ž][ÂÇ Î/ _ŘĎ&!*©ÁK+BĽ;‰|CŽC÷=‰ŕäW48˛&Dśa cjĆçÇŇ„ń¤€Ç˛ bHli$˛=Ą‹Ű›ąňZĆĆňVYIěi)˛Lg–ŘÓ-ŕi‡01Nż#0e•ˇ7&ĹžĚWškÍ §5§2şĹ“ľsćba@qÖk¸Ď®z㬽A(ˇ“ĎK^ge°śH†sŽJűDçőˇJv¤ô“ÝlQNhý7ÎtëCT\秴uJŞ9†č-złˇ«>ˇ:§7”í±e}oš´‚Řýc­µ ŇsU6M;;šČëæ»UÓa]ýxŐ……ĽîştVVy|eaóy%Ű`ß[÷±6´Ż¨dż˝Z7ŻHăÚŔá|0öŔ·:ýÜËűtŞö Áőü Í%°ďÖÇ.ô5ŢexŽoťîĎ6Awßm‡€ËKŮ´Ěúî`WĂ„oýą¶YCo ×ĺç®uZHČ…ţŰ̡đP¦ˇ¸p"çČĽd±¶Â7g”c =u¸ oą]?*Ľ ž2–DŞ[·.cě…•­ÎhA™Ësçżť2†eĐąő¶ĺ,ˇ ö‡ÎQ7/éŤ s>•ÍZ«Oĺ˝EŹő–ŻŇU ek嫨'&>×›?`¶îśmř±ză(4-Bö®–ő‹‚¶)˝¸÷…\H:±éeňë\ľËÔĽ"Ťą~ą“ņRŁ{$L†;±ťjY—oČ+αr-ąRÂÄ}•)/E?­Ë4V¬µűŢí†öOL«děřŞ–S#‹an @¶Đ!?ŞC‘Áuňńł,c–@Ś0( „3†PąŞk4‡ý®*!Š )I*sIÎ*—ełřĄ‚ €‚MbF)iz˙oŕ1DÄLŹÎ8ÔX†ŔýĂN˙ŻćJcŞţĂ~r¬*ýďú`Ţ  Ú;°ý/î™äűř1@Ţ čTMo¦'uš!†: :[E/”$IJCŔA Çä˛0~ţŕ¨C€eă! 0–pś° K i pŞ€k ”K m –đÁ°ĆŚý× 0› ‘  ‰ PŮ đÝ đă Ý pë 0ż0Ý Pů p}đ‹ °×Ű 0Ë‘ P—Đ—q 0ýpÝ1- pĎ$ł°E„ł8‘ń K1Đő  nýE$T…^#(˙°¦úg÷pÇ `Zâë÷Dű0Ě `‘1Ń|"‘wQź‘ŁP»‰v/0ń‚˙±ŹqMâA±spÓ±ˇńĄLýdő1µ€cj?ń±QiQĘ1QÉńuůŃéĂ‹ű1˝Ň2qőŃAc wfš_b=P—@‘˛}r cM$E]2A1ó#Ń%$’=˛X·2@2@2@R@r@’@˛@ĐĆ"’ ńř?R$rRP˛%‡%rŹ%ŇŽM[Ň&’Ł&ŇŁ'Ł'RŁ'’˘Ä×D30`ĆbŽž‚ XbŕqQ€i+Q˛pJom€i+’޲ňâ€D i+Ďjčjkqg$±=!.qs#ń—Q\)e.ó €¦ Žňťr71Oű2ł/*ß#jŹ2“,“˛ľQ«B!ĺ{ ’J3Ş>^3E2K(QA$3(Ńů$Ó)So)“w˛˙0*J.ł81Rű M/*Ź6€Q.ł”§đ!4rů-ŇX’±.ó—6ré*Ń8’©;Rç:sś#°ĆaC"ă/s;2Ń“1÷:“Úómó=0ńů3Óu=˛S3Ó}>Ó-8ů4łN?B@PŹ€ @z!/Ôl¬)sX‚€†ýBô^#„BT3=nÓ13Ř1@ Ls,bBPđf Pj’íîec`ž"Óß3QíF´n"pÇFÂ-?AH Gô{?ŃůH” ´‰@‘OH“3Ht{4YH’eT(±FäHŔ›(”·Kó÷IôąIĄKô— ´łIÔ™K”ŁL”żJ’SK4Ż”€1”ĽQ4óHTŕQtóLÔűM4x ŞO4ßMµ NT“FęĄKŇQÓë °¦MĄşöF:Â†ŞŽ8§<×”/aSbđp†zŚ(ATG<#˘úˇ@[ĆD@TPć@.⢴âÔ15cU•h:gT¤őV<—‚čőAXçXC&îÚęEX+^$B—X¢łÎ^qµv?ěuZĄĚQ"¤l“[EUÄ5[% T%[Tc5YgŃUú1%˘fm]‰Ô´.˘.őävf0O•5\ë#Ź,—E`3˘â Őđ)VOĹjžÎfîŽÇK‚®ö±e a˘&î đ`+¤$±b&‹jd,Jbv88fů†xčęAÖ—Žöa•e6*RCdć?íacĘn%Ł“Cm`öĎm áZŘÁ6V˘¦#hDf%fvtz&lµ‚<>e&śĆv|Oö¦Ĺ(şs¶TU¶X‰v¶O䡑č,V]clugŞs”y üň܇¶ČP#'h®ö†F‚ÇFîĺć°4‚¤Ł€.Ăh@şĘd‡;k"Č,ÂĐú+ĺ=Efe,"†OP3ö4fCBCŻĆü˘ gBątw±Ót˛Y"O—C‘ß7:D“ëur7B·QRRu7ovŃýĆcu’—^.÷@śW}#‘ťw1ÍtŇSv·“wetwLwźu±ďyQ˙vő)Eé1aĹzxz¬lD›‡ŽSöĎfĽ.5o¦ü*"'|Eć˘ÝlC˘fŠű|vŔ. }·şSäţŇÖ},WäWĂbĹ~%Qµ…~¨ZO…ĘWÝ–ća·Ű€°†EZ‹«=‚8_Ă uĺt/;_ÓAxB#ďE_Ö „rrĚbŁ˘Ů8Ejd ‰n¸ hîŰWřSânRV“|ă‹€%3†Ń±‡¸:±kŃ€´ŇE€Ę ’5w‰$H €P  đÄŇMvx č"C—«ňµĂłćDÜ ¤pšnşrÝMŃ­ @qŰ«ű/Lę[ŰŚżyöd;Źs'íV;„*(Ň›ą¤ŰĄúŹC=IVB˘Ž](@źđU$;´€’;ŔčF—´Ŕ ¤z  Yłč;ŇD€ČGdz $~yĆ „ĆD„v¬=„Y p&ţ¤ĎµÔţúX!”Tńĺ^Řě2xK[ňGŕ‚D`ÂýC’DĆh8ęoT"{v÷îLT n+şącŹVUŻZyÂlu{­± 'O˛ÄN$8‡bÖk[EF Ţ €ę ŁĽJ0(JĽNőĺď¬{~O ,*.€Ś&ćżf"µĽ¨@µj^7?O!c‰ýĘíůĚ@O˘ř)\Ľ[…^BKĚb(ßśŰoÜąÍWŘ*˘ endstream endobj 75 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F9 36 0 R >> >> endobj 77 0 obj << /Length 2626 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h d1• S"4˘ 8‚ŤĹĐiôNĹ«ŽDJ)RD- †ˇŢŞS“Iĺ1L˛S*IĄ1`€’N!‹«5˛,ĆAŽA†ăH„ŠI&”dâÉtC! Ć6)FZKIŃi%rŘ,źIĎä†#apßK#Óćv{YFr_1™×¦ó‘Ô]˛ńxňśĘAn©]AĄ±@Ě\6c(XcXŚFC‘Ë«r†S™Śäi8 &óp€ŢfÍ'!HĐ` c¨Ň:Ř7ŚaHb…X拢 ”±Ş’"H `Š„ \áhi@j) @†AĂĽ%ĘÖ& âjŻ¸‹Ś`† H¤>”JÖ˘)J¨Ś4Śă¬dŁCáp@& bH@1ľ Â4ŤŇŔÎű=ŁHŘ6 # Ţţ+P˘bŽĂę4\aŔpDńJPđ†©0c7“X ‹ŠH˘˘I,Ś#H(dłÎ©L× ¤45#©0p(©dZĚO]IŇ m.“Ó4ZjßF©šŐ «Š®˛!‘ň®,“°Ą‘ €Ţc>#®Ôńs}–«d©ÍŁi;µŽňŠž¦ âhoŽé‘.Âp H’Ë4DmAÁyç¨Í Ă;A¬äźjn~©fşťQ1¶k«śećQYlü3jzČÂŐ@čśłv§]DĽ÷’§Jş˛ŤŹ‚9šE͡jNŤ’č ěŚ:Ď<>vXAžŇ'}1çł*)P›ĽĚ|€áŚÍwĄ{ŕ‚¬1)éĄTć˘{5X¤—ťD¤ihgŻ"ž¶96MA‘AMŽAç–"MJĄi«§9ăÖćľCÁŁ.8´°ëĐń#ŮcÇkUÁéŐzZóÚMzĂÓ¶RCëu()ÚkY -[©c˛µĆ8yÉf]©Ř9Őé[ZŽu€´§ŹH= a 9sÍą‚@w'Jxeł´ą¤R UB“¨j¬˛É‚çN;ŢMÓh¶ĘĚ°a´„vŢn)ű9[ˇ(t Ş+•°Zmé­ádPUÓ1aŚÉŮ XŽÚ)Cäz÷)´vKëPzíu6ѶI{ď›ĘzEsĆđ+u˝{Qľ-3Fć†čÚA8ĆŽöĚ7ÄK%˝¸&ŤĚ®÷őŐ‚l˙^DńÝňxĂťôÖÖ ˘q]¦˘/%7× Ś§ŃqźvÝî¦ĚNËjî*ĂďZ}dk)ŢEj“.zeŽ«˘Aɲ*z=Ź”–µ¬Î$“1ho{y0b6ÖNV»É~Ř~¦Xĺ&«Ë+͉GĐđ”dŔŹa…ß17ĄÔľOnÜ{r(íňľ·C22!×V0ňDRđlχda%aĽ;°RVclIÁS}¤~hu``€4ĂÎym )}‚ň=Űą@vę|ł†đŽž«ŕÁ›€ňč ş° ÝݧwdÇÔy`a”6ôÎś–·Ŕw çŮÔÇŘ#bJ$9^tËŃ| AÔ3n«ş:ąUáŕ€7^Ăžý&*R»zëĎfâ yc˛ô–™N„%„ĚeĆkcž±üg¦k˝žT%žą?.FA$ăíýś«\Ăé,ˇŚ‘LtŘ‘©yę7ç2‹„±}(<ż?ë˘_ł,ţßÖ!ôÇď›ŕŁ˛d¨GÉ»ăČwąL›bµ F?;uŮw@jŐ¦;ČăžX¦ #´;€=čÂLóĂŽ%$PŹ‚Ż†sďŚÔO’'˘ů‚ ´Ď¸!ďĽFL8Ł¬üC¸c‡S«ÂyŻ®ŰďĘŤ$ĐÍ°4.0F5b\üď{o€řO‰/Ú"p&sP,

    úÉç´eP2ű^%„H^O űĐŽXB‡°‚úoĚý >ýdđ„ŻŢ-cĆôŻĆ)HţŔZ‚LPâÖ˙˘č‹ŔŠŠ*ŕŚX'‘§4qGT-fzfi‘k*t ‚(ĘDŠ,cb‚e6ŘâDWüX‡Aj D‡Rź¤Zµ‘űĚÓ&\Řé€ýnrÄ|Gp°Gb® J*·ÉŔŽI$–§dśđcěŐmü>@ÜK`î@`ĐĘ@Üęd¦@ŕĆ hĘ endstream endobj 78 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F9 36 0 R >> >> endobj 80 0 obj << /Length 1715 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1E!¤¨jł‘¤klqąÄň÷q„â@4Ű$ÂÚ ÂHT;âŠbŇi<¦ )–JeB)4¦,IÄ1v;!hµe-ŃApŇĺ âq„Ëě€l9hşApÇ)© X9¸ŕu: >¤Ü )uć“ťPĘv2›§3)»čd ⡰Ę1Ľ# Î&Š«|«čbč-‚#¦Ň‡ ;°ó(ä3 #¸6Ťă#¸0˝ŁĐ7Žď;̶ #ü庡p@# ă“» ÂđËĚ3Ŕâ T«Á€g 1C¸Ň: Îl06Ť#`ň@‚«qä~ °dµC# ŇřĘú<#Ň3ŤĂŘŽqĚv˘!Ŕr¶BnóŔüżo+ÎôŠqtaB´01Ć茇"Ś!lIC ™'MĐ|z©µ TŁ)ĽňĐd&KRä/»“ČţLóLÖö;®űÂý?.ŘA=JˇCč2Ň, °#Lă¬ĹE:˘ŕRޱđ@daËO4©ĽčĹ/hĘ< Łhŕ6 #0Ň2ż8Ć4 #„i^ Ĺ4$ŤŃĄîHR$ˇ…”ěA.¬*AÎŁ:ĐҡEa>MĆ7ŤĂs˙ żdîJ3 Ć2ĽŹ4\íŁ›qÖ®¨c Š"!¨d@X-]„Ś5ŰÍ!Ť3PŇ=[WWtui`ÇT`$ĚĽ6Ś±p’3?Čç Ť·îO/eYcđ1I÷ŰŐ—Uń$,ŕeŢ^!h^Ś<&𫣠ž7?cf3ÂÁĹPácĄ€Č^‹cć×Ă°í;‚–Ű ănÂ7?ĂĚnîQ¤ĽcNXŚUőÄ •ôŚ2j÷Śčëˇ@¸ µöŢȲkc†˝$ŚÎ:$Š:k­:U°-…śz$Ć1ŽCM˝Ĺ<ă~€!Ť#R…ë!„Ě1….0P5Í°L¶¦v8´« ]–.‹˘ ”ȸ= ˘9]7ČϦ”Ps|0“®ĹoŢ9Đ`ŮÄńuŘýFB”]N9t.&h÷Řb290‰ľs4°Îsë:NÁ~ŻöŔŮj ?Ť˝ÇĽtαK4-e­ Öl–ÖX(mm;˘ŕ®vŐÚT L$·ĹĘY8n éů?DšýŇó‹PÉă$7*‚—šČG Äµ/•PĂ‚ó˛DC©”úźCŰđa Šl6‡äŚ r‡ R ŠwóN)Í|ŻĆBášBÔe’ý4&DNÚ&‡´85%›Y˘o…!Ít­¶ZŔřE,ĹŹ’ ‰5eŔĽ”Đ 4úź…ŘŞ–WA*Ž¬9:€j %™Š\Žm?€ÜĄAiˇ굉0"jvl0«ŕR h€4ö-6Äü4 {Ż}xŇů ©*¤Ô RŞXérOhl”đĚĆŘßÚH˝ŕ´2¨y•Ą3A~ş÷4ńiŮĆ,d:8Ć#ąLú™AújGé»]§.DŇzR o Ô6žy…XSí_áŐrÔ @C%xŚd&SJ> /Font << /F3 8 0 R /F5 9 0 R >> >> endobj 83 0 obj << /Length 6717 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h d3• S"4˘ 8‚ŤĹĐiôNĹ G"Ą©"ŚĂPďU)‹I¤ň€¦Y)•¤Ň°@I'ĹŐšŮc ‰G Ăq¤BE$“J2‘ dş!‘ŽăŁ/%¤čô˛ąlO¤č2c°¸o¦‘ę3[M´Ł;/ĚëÓyČÄj.Yx܉NLe ·Ô®ŔŇŘ gcc(\b2‹{ă1°Ű­s†S™Śäi8 &óp€ŢfÍ'!HĐ` c¨Ň:Ř7ŚaHb…X拢 ”±Ę’"H `Š„ \ᮚ†ˇ‚ „hl'm@9 ­j`®&ŞűŠą‰ęŠCéCą´A”ŞĂHÎ:Ć 0\Ú„(đ0ŤŁ€Řö>ĎŔ!ŹSŢ; #pÎ ăě2ŚĂxä6±˘b ‹d”"I,Ś#@hâŘ1\tźÁČr-k(Ć‘AÂv˙(¬¬N¶¤)`ă‡*"Ř´¤ôc~(şČ@ŤÎë”óGˇ“äý@T!Đ´=$ň¶ˇ­ËŃóíVňŇŞ-/Lδěű=T´ô˙@ˇ•=SŐaŞÄUôu!bŘôł[LN”Üí¶[nÚjň®A°jšş*‚Ş+M.8n&«- -t®T™đs%ćîP"“Na™Tą®o©˝»ęšD ‘0k4ĽMěR¤!ÂÜ"hz+m¤Tş^šéúŚJäRZ°¦)Í0­Ńiŕ^QăU6 n%!ŁŻ^ů"?ÉßyN'×|UEw[5EăU†vţOĘŇ6ďKĺS‚#e®&_%뙤ű›†™Ę®”†kÄŻěú"´‘îúJ˝-›ä?¨ĽŤ¶Ź!ęúχ­ćhfĽµěwyßEÚ¶Ňăm› Q¶î;ž†űű_†*ZeôÍ?f†ţ_Ú Á§ę­ţ_ÇÔVÁiC,häłľJŁt)>\™5§“xÂy¸v*Ŕ\űcn=yBäĺc©cÍ‘.uüâëZî5Ž9‚R<)RPÝÖBĺrşˇ“]đ’EČ•Ś*UŃÖą¸`Ĺ•ěBt+ť·Xę!ÜVdđůŠD˘ă"˘c«©Â†GĽes+ö¸"›Ł(«ąCĎŃ =Yç®;Ŕőë·i®éBćRVxEmŁ7†”®ŰŰ}{Üď"' ÖÓ´z¤ ë±äLö–3¦‘Aý€ÖÚmŰycnPYóĘWúź{j~/Ü+?Idýšú–ďňZ?ůLQÓěi(Ň°A‚, `äNîyŚG ś‚€[ńš$©)¤ąŁÜ‹Ë˛gB9 ĽťĘôY1ÝD‰Ä­¦Ě/™q˝ĐLř©5Ťşŕ‹ &xÂŮÓaŚ_ťłzw¨•i¦¬ţ6±n{ĹŘÝ>ˇŽ›đíĎ(učlöbSjÍÉ÷B§ěžtÓŽ€Ń¨ôÄ™[°&ŃţMHm ÉŰ:“ĘŔ‡‚Ýš;Ć O!§<·°Q\—zEn@;jO'› sE~–ĘIw)ź©|ł+>ŠŹ+ĺ‹ŕ—â[U)y.et˝m“Ě&ŕÉ™4R|Ńj gŔ  áÉC×2¦Ű‹˘ő˘křŻCËev ”NuWC ""‰.”:rËDśŐdŠšŔPµßë[$G1ַبA3kť-‡úÂQÖˇ ë}!ŹÄćž˝iÎ)K»jgˇ"Ţ%1o2AäÉ+6·ím.*˛aéŇZ|×äűbłv˛×=ęŹ)ßpPŐ2§U`T*Ëóş/â]\é_/  âHU|ĽPŽBk}˘µĘłŮŁČ«hâřĽóbľO‹y,mĄ«6$^ĄŤGěM⬷Â0ß"ŰgoU˙±˛_ş˙c‘FdîȨ#,­ú˝ř8±ÜĂďK$Â÷˛üŢë/ đFhőŢ»Úh]}ŁvlĆMš+NîmI5ÁpŕµČŞa#ž=´¦­@µŕ¸ęͩԙŔšŕTŚ1ĄFą×"ĄJ¸+j|´Ş2úWŐ\©-.®Whwb`{·1ťŢ"w‡LĚA…\C­×× Iú÷‡p.ł–Çđs'žv‰‘qÎg,Ď;°J…$Ř5Ih+ń3îŠZŽ nfpĚ*ŃÚBt^Ü㢦íÁ'nĘfĚw4=pĽxSFf”y5/V§Ĺö‘ÚK}i©ţ0Ô¨Ł©źkÁ¬Ą O“'@§ótĺ®ŔĘrĎ(]iiŤé“ÇO+đlĚ4~A·ąßÓ|ŤkIŮĺ-ÍžRäÍy"`QÚ;•6éî a,7.śŘ9DŞîm»FęË” ňťg*2|Ŭ$ sěĹކÂZbĚçTŢć4ö…gřsDDţ ť(ÉĎŁ|$˘ń-Ceł6‹źšŐę†HUćžĚłłh߉(č2äůż†Îş|pKqÂP‰­ľY¨°6sć tŇ "¤ąď çűŤi®xÓ9Bř6ŤO›ńŽIÎÜĆŤ\Ó©t.ťËń ;—ŃpňšqÓxÓ5Т–ŁKĎű-]čV‹Vâ·k¬Ä„!č“—Mq®˛kćş›+lGń°ęžäŢÂFěšił!Ƶ–éčä.ß'-;ٸGÚń,•v*NĽď[şćĺ­ă¸üWóűźľŐ=Ý–{öîŢeĎz›W{+÷0Ýů‘Ŕ`ďaéýey9ǡWľ´W8hžĹÁhĘ Í}wĄV®EĄţ?%çŠSŕt©óţ7»Íö˝v‚'÷~'-ŻÜëŢt !÷Ž6ť‰˝^ĆF|qב%늓˙Ĺý×Xt?˝ČŮÎQ®TţV9nŔäoô™ďřţ.č‡0˙°űú+(vÎęď¨KĐ úµr†ČÓďꏙ\ýŻ÷čJŮđEHç6ű0›Đ(Žb¨mđc0;TŁŻFŽg$˙ =É<ěćv§ čnp~Q&lˇĐť Ě0ü0ĄOÝ ¦pápÂęĎó } BÚĎQ × ĐŽżS F? Ý°˘ýĺ )˘ŔE“ +7 Ź× đ÷ )˘Ą°í Q1Ô‘ śŻ)Ł11ˇCh[éŔ°hs/úN§q,üŹöÄhT?ÍY#H6¨T$±BĎyq0§qRafăĄWá‘dXI?ń9ńq^ °e 0÷ÉŁp›Źíć$ ¢„â""ńéJ°ńUŠŇXę¨J®ÉíźBXéhmÉĐ O‹1”Tĺ0hPőĺO‰ŔR*PžřqDZ» × I­‘Ď­ €ÄÔq´›Ňç,˙’-€nçŃq"íeň ś˛5 1tž’Cr9#)±!Đ»Ş"něbEʲN˝ Ń é&ŇDš%i!2F-’zYŇUň#%˛Wňc#…]&’~‚>›q(C&ň>-’—'ÉŁ*ň…0O˛Ť(’+82˛™+1Ô ˛ŞG2Ď*&ˇ-rÇ,ň‡2Ă\*2Ŕč±ó#…dłr-Ź~YŇŮ/s/R.1G.bE%ЦýŇ8n2ËK-šP˛ˇ-3!+ Á32·1Ľt1ęí.Rń&,d„KSL)•Ó4sQ5Ňo6•ŃÇ4ók.¸üssQ©(ńç5k%!U7˙*i8ńĎ92*Ť9©í1}83w"zn3XžC8QN[s—;2A9Á#'; %%Ł:˛)4łŐ%î <ŃO(1q9ň1'Q×9“ëSoŇ=ł4Ą4s=“ŕšŇµ>sý)óż?r§sđG4#séB’S@S>™ĺ17ňď& BňÉ/”.˛×BtM?QODsDSu3ŇY.‘í4”AA%0”˛S6sýGt%?Ôq?«%H"Y:Q“+ŇéCÔi=ô/3”só-Aôˇ<´'IÔ…ô­H´5F3@łIbOńŰ5B LQË-fd†Óe6ń52ˇLÔÝ=4a)}4TżĂMłˇTŕ¨R˙M29Ôôy2˙Oµ C4ç:•LËPbŰ;uš3˝EµRroPµMő=;Nň‹FTíCóßPÓ˙µHÄqĎSsPRy@ŐQÓůKUOë@Ó§Q•_+4#O2yB´CV|n5AqÇT•‰VU=7µgSőxśYŤM‡ZPű-uIYăYHŃĺQ“CVÔŹV•r­2Y©­GÔ-QŐÍWńPµH”Yu•.µ“AIJŐČQ4ŁR‘'<µTŻ3Ë^ł'[R»V•»^t@;‘YN1‰a*!ZÖcÔ×fA7)±aQ6Ő‘TLéCµCIn PĆUAbő aäKdó‡!–-ó‰ô·N– cKăd±OS›fÉ­RŐ‹d6ybVCgYeµ3NV ŕ¶9[Ő·V–‰&hQiłóö&ž]jvśYÖˇT¶ŤfĂ^Ůk5P–tźŐjŇĄMöCXöIm5}`Sy=–˝`öĆłtÉl˛TSjVC[Yk6ů]öŹct˝k§ng%dvýeTWqI­]Öł]ÖÝ:Öá^Wť× ^ÖÖ˛Uó&öĚ2µ˙d4łs4±`6cQWľ"ŐLp±u4Ďb a'ŕkb6Iv0UYaVan6‘pv=u›eđvôýu×ie—^š7o·…Pö·w¶»tëűyuur›g÷gRS&;’›hW•{wIwWr©ůzSřP—ĄU±xéÁ} Ń{U[b·É@#=tA|}WW©W·‰Ií}ÉÁmBÓ)¶Ő~sÝ|7śŠwĄ[Í€RĎÔ·Ő\¸4_z IT`÷ĄH8·Ť)µÓÔoe70÷K[,ť×Ąs_w÷2X^®·ł…wż…2%w3=ň.$±nQ˛úi{ ˛ő*8y¸vĺHő€”Cm,X†G‘;‰/ŐQ?Šł(˙¸Ą0¸Ł‹™Cxo|X †É®ř~¨j ŘŃ0RŞcîgr/ŤŘ—„ö rw` O#w`dŘŮŹ¸÷'hKŹX‘Ź9c8ďŚ9ŚhJاŹ.'HwM8ÓŤą‹A’9‡7Fy9xâ5‹9”˛˘3 †ŮES¸ĹI6;“óvĎŹ™Y‹Rl™+–™qŽ9k[8éY‡5“Őo\âÁxÍŽ's¸Ű™yv†Ů‘Ť9ŹŤů7ą…~ĎÝ>Źą´‹S_ .~ °âśĆĚ*©Ś!)J$ĂBmŻ`*Ż:ďĎBąçîôŻDő ¦×-ŕ˦äŇ×q4w©ńâ‰-ş„âH•>*(ş~ ćŢ2¤ćŢ<ôKťŕ†n«J6‚ä(â@w¨p¸Gßţ"Öb×â‚Jž.Ş~săk¦‰’MÄႛ†GVäŤ&PMľÄ6Ęş‰±¬"[ř[qZa%“ëđ cYî›`ŹBŽ$Ţň žö˙§WďĆA®Ú`UpŠžĂüc§.›îż>ů žě%žÍÖčô°ş3ÜÂú[ç žđ¬öżCĄ8±ďůôę승J;{ŰőĄËő>őđ˙Möcj„¨Ťńʇ÷Gńůă+ěSř A÷ź#ňp‰÷ż%±óHó|e`ě-ľě$_K#+ô„7ż ö0źűµaŁH#ö鬟ĺťüąößÓđ_Čžźłř)˘žĄťţË _,ŠßëńßđžßůwÖ˘.Ťâ`4h9 †(Ô`4D`°x€Ô\9‡"(¤S”AĄ˛čŔ@dśAŁČŘ`5J&‘‘Ě&g91›A±qpŘkD"pAň †Đ¨‘ř=& †0*5&¤3ŞÓ±Ă{Ý %EŻŚĆ× ¸eZ$Ěő´iśÍiFŐ\ţ§'Ťę±[ ^iR¦ě†í®ď7˝ŔÔîřŃⵯľădRI4˘U,—b&3™¨ćn9ë'sŮŤÔ@3F/ÔVĹäĆÔ1C:ŢÁZöűň–«·ÝUŃÚmyüâú˝ďóčő°ščúŔČŰf­>ˇ“}ĽO‚§ Żtő†”-0ÓŃ 2Ś|A¶LCĐή,3-. +żÉ€\łłq‹đ¸±ł\üE1{fČBŃódÜÂĎTÇH“Ű#ÇňT[$2L»Ă!łaŚ¦ôĘ.ő80«Ă¤;’üL(;š’¤éJV–ĄîŞh™¦ÉÄŕî§ĎôŐĽŇÄđúĽěSŹ=jË@BoęÚëöąPč+Ź -0P+̧BÁ4ŔlÂsÄ˙NSŇý3 Ăt}+ ĂóűBřDuZ1Dő;E•ť[Ńď}ĂW!eAÄMkÁ`V’$_Ô1‹_Őź?ŮÍ• ŤŘµlŻBYM•°öĎŤäľ˝%Ń·jÚJüÇb\ÉĐçÍn”Ü™N›˛íήű?Ň*:?Z¨t'~ ˇlĐŐ0A௭„T5âŔűŕAş<őŇx ÁXľĘk-ÄőÓčŢ?Q08MSäď­U‘ŰŤĺŃ6`ŕ4µ¶Gš×­>"X{Lđ,µeałů%—šd Ý™•Zr^GŚYú~ś±ÖćqĄ4ş˝Üu»oäÚ‹Śäh;ż4%Í@;„kŁ6ş—‹­9;S˘xÜ. _{ĚľEŚĄŮ5nšaąş÷¦ď«J{âăĽkaK]iŇčMś<ßş;šuĽZ›Řsľô:ź'Á9śľßÍ^ÝçĎĄě€Ŕńď+frŹ‡ ĚÝű—_şŢ»ŔiöĘ7‡âő;GWÂő˝ýĺŕńŹOă »Ŕqęy\łťć÷ÜGĎnÝY#~®ýňď~ÔĎćw»Źżč|>–t}/éäňżgą÷s|Jq~N1 ;WHäC"}OčľŐÜűÜăŠv'p¤1§']ą©qĎ®żČ˙ź‹|lőęAgŽBëµNňşçă‘H=b aD …N9Ř]—㎆kěö>hRĺÉq2m®±ď@řNęč1EŤ<ćôäÓ4Tp TŇľ—'Ś4\ŠIőÇEx†ŢâńŢ#j3"çTIT Ľ# b fĄĐ¬C¶]Č5;FŤÇCbcˇ<:`ÄÇ`ĆIA@0JŕĚ‚ÓRA@1.‚€j TH8‘ň`“pP ¤””42nLI©8 BčT D´ŇŞZŽĐT’:HJi'%A¸(’R˛LIůC$ĺ$Ľ•ÖMĚ%ĺt°ˇ86¨ŰŹ á{°9˙»Ĺ Ěp5*±©É¤ŘJxŽ›ćśŹ,çMpg6`ô-‚'už•˘ĘŢçLBĺŇzÎ4şöÉ,ěťĐîMŘ|~HĚD"HŐżCiÄŕhI¤`4€€ endstream endobj 84 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F9 36 0 R >> >> endobj 86 0 obj << /Length 291 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1E! ¤¨jł‘¤klqąÄň÷q„â@4Ű$ÂÚ ÂHT;âŠbŇi<¦ )–JeB)4¦,IÄ1v; 1ľÄ3<t@d0 Fr ţR(* :ňŽEÜ“¶ť˘I<śA& "0‚N%ď¤[4 x¸ČyBé'*qˇŤ)Wc‘”· endstream endobj 87 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R >> >> endobj 89 0 obj << /Length 293 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h d5• S"4˘ 8‚ŤĹĐiôNĹ G"Ą©"ŚĂPďU)‹I¤ň€¦Y)•¤Ň°@I'ĹŐšŮc ‰G Ăq¤BE$“J2‘ dş!‘ŽăŁ/%¤čô˛ąlO¤č2c°¸o¦‘ę3[M´Ł;®¨Ť»mÖŠ5đÇo ]9Ał™…r‹_śŚ¨Čj’2Č8×)EľĄQ .xŔh¶‘ŁµűąăůŞC7›M¦qćö1Ŕj endstream endobj 90 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F7 10 0 R >> >> endobj 93 0 obj << /Length 291 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1E!°¤¨jł‘¤klqąÄň÷q„â@4Ű$ÂÚ ÂHT;âŠbŇi<¦ )–JeB)4¦,IÄ1v; 1ľÄ3<t@d0 Fr ţR(* :ňŽEÜ“¶ť˘I<śA& "0‚N%ď¤[4 x¸ČyBé'*qˇŤ)Wc‘”· endstream endobj 94 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R >> >> endobj 96 0 obj << /Length 3713 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h d7• S"4˘ 8‚ŤĹĐiôNĹ G"Ą©"ŚĂPďU)‹I¤ň€¦Y)•¤Ň°@I'ĹŐšŮc ‰G Ăq¤BE$“J2‘ dş!‘ŽăŁ/%¤čô˛ąlO¤č2c°¸o¦‘ę3[M´Ł;/ĚëÓyĚP\4žĂ8܉Lxg™ĄT®ŐRˇ„Äl2Ű,bဆo6›L&ă!Ď:žC'ţ‘Ź¶R0ÚĘ-ő^˙‡ĆdóéĂĚ÷l&â#č7Ś+δ¸é(@¸żđ Ş#ŁpĆ: #xÜó…Şö¨°`pµAĐ``+ę ¶!€R†Á¨f B$Vʇ@®)EjnŠŔZцQŕmČŕk"á„xHŚ‚"rlžJQŕc*‘Pş* JâjŻ§!hb…É,1$áşÖ*@Jb©D‰şď‹@b.1Xb"‘ŕŇ9Ž`Â<„xś‰â0ŚËrěöą†nLŘ‚¸îz¦Äń%5‡3´Hö…! aNĹSŘg…áMMĘôh)Ş™6Ňębî ¨ä7aÂ6 É?Đ4A Xă•Ž3 Ě0Ňň Ł€Ëh Ă ŮB ă3ÎM $XtB B ,2 # Ăd ö¨Ë]×áçu¨ćĹ«ODś,Ş„Ę),Â’ůÎ-1;QĚ>PÔd¸ŠSa‡Şćb®ť3„…© m†QAę( ă˝ŢŽcígŚé ěŽăHč4^W Ň1ŘCŇ;;0´đaŇíüől˘ĹÓZ—‹DjüćNˇ”ń=O’P‰b\kőÔ9™gŔŐuR(e&¤”°©ŐAŽÔš ^¤V;5iµşU¸§i cHĚ4ŚµíĘ‹ ›@1ŤăĺŔŽµ†7eŁ ŢŁ…¤9 Ł}çmÁj@dc3n/§*Ľ(Üě΢ž&†Ĺ—akđ­Ă!¨\ĹĽěÓ5îú|ęęsŞ c.ş( #;˛ Ś'9ĽŰiHRPѵm›tU¸NĎlµ‡öĘ*Ëđ¨Á›V·Ź–—Ľ.Që[ůVE¶‹Ž~É©ß:úôüŢšPúSy/^®Šą0 $ě¬řóÍyęőņtţ{ł®ŐŰ»”Đ K«ÖRĄŐ¶'UTÚR LTÉŕžĐfÂÔÓßK®}Ű…ř“s;á°:†ĐÜcÎp*ő:ş×ěšž22¨˝â‡H ě`AqňA„ôk‡ ńQ ¶"Lałşsî…‰—DäUC `‚ Áx2†Ś%}5C‡GÓ (°µá… ËZŇé^Ě*06Ö¨sä3‘ \i#äL+’0˘Ic$_ę0Źç”33˛˘Řld¬±šČ ćÂUtqw̤BBűS‹*—ôô Š G)8•ÜĽorëĄ ˇpZçÁŠ5čGčŇ[’ÜsÎ"p‚zŮŹ8úC ë:‡@á9_ś AÜ0‡ ČÔĺK·CŽéo)9`élĚsŠrNiĐť\[<AĚ2ż‡h™ĚóMŽG†ˇÔJ‹LRoK´źZÚcŞśO@Ő×ĆBÍÉĆWH‰ÂE f9‘őY7ĺŕB ˛‘çĽdf¬U$Ě Î$ńĆĺ%[ş•ĘM‚Đäę Łâ} ěę Qú0HaEe«§idd’{`Řś„mSÍP]MČťŻ¶ĐßéIj¬ Ą±v2U%‚:u}™8…TAfG‚»Ö5ó4u R` 1/eÚäť…!Š0iýĆŚQayń:2Ŕš·Š‹,“¨7Ź…MH AčýQŞgÁV5@dÜ^§ŞČ˛®¤ś- cE€ÉŁŮŮ8‘x·čđ7)UŠDőtLQK® 0ŕÖ:Ő îr…ÍIííĘę{ÇmP`ü!:IľX>öťAĹIIOě!86“clŞÍJB….¦HˇSŠy˘ĄDÜUX(U7ĺV°ő`¬¨kěşV‚[ łč]qj !`ćHpuá…čÎjÓ—2iĆKń™2Ó±6‚äE8{ăLW ŠôűáÂĆ[( ź ­VrÎ×|ýśń: Xkg´w®s,ďN0ß9qÜéq3˛wPbĄspôŢ;Óó#Ďć»@- ™: \w€]đ(7‰â3fpÓŁÄ<‡˘aăÚ8ć‰b@4 lwŁbçŁÁăĘ<âfKă ˘ä9‚Ę9bQnc"ŕ.DĆc%n:Ł®;'¦ Ç ^ezöOŃz^Ŕʶbfi:ćâü ‰p2÷ J} n®P†éĽ `’rŚVWČ´  ÄYí*‡ĺ˛`0Ŕ¤ŕ®0ÄęF# Fç\rCΤ§ÚTë  $ Z® N°şk l, Ĺ~;‰|ć ŕqflY  đŘ@ę¤vÂ"L`r»DD4*ćÁ°ŕ ĐŐ Ż@ĄĄ ćşY0ć1X Ć”@Ć qĂn¤[°Ľę©đYźĹâB€Ú”…~éøčĺŢ ©Ô Ł ]qXý@Ćn Ü'Ś;ȶÄçćx¬hĂMPęl<(&<ńę4#*.Iq!RL-·)rB(Çq!ÂD€l QD6˛@5˛­)RO cq+®(Ău!ăBëâM$˛Ë-R%ŇÎ7š(ră,ÂĐhň©#˘P¶’H7ĂZ4 dCRÔ:.R·- -BĹ)r(+Ę,r˘™$É0b“2RÚ5Â$Îâ+";‚J3'ţD‚ç! Z-Ł3!'5˛""'3bu2pw02`"`j C0"M)b: BE7RÇsp5©“0Ób&˘E8˛8R1R7˛9Ň9“sóx"’-2ë:Zëň8ň;Ó—6ň‰Rg:ó|Uŕi<ňż5c9PvTró4g;¤GAÓB´{DôCT$ôBÔHs»CôOHôô”%Ĺ##rNúóĂDÓÚ)#%pg%ŁŃ&'÷&"†•±÷C˘N ĽOË&¸CäCâÖ÷,‚i«ˇ(Ö¦D~ÂŚý’Ś&+hěŮJÓůP“KTU@´Şb´L’—P˛ýJTQ3ĂR2ť=Ó»HµQT+SAźS3ĂSő;Kc‚&”˝&汨”zc*-P0Ľ$If^É ŻâĆ[ÄБ϶Ć)®›%ňMRLâM. äĆ% Q ŰVÂŰN"úîĆF TĄ…ółÍ,rŘ7«)sąJT±, $T§¬ăÓ*ÄÉ$ăŤd3F-ĘŕŮLVë>k+‘PŢß.¨ŚŞŢ6Ç BŞćÇ4;.ZŤ`Đ‹¦ ®që‚ůbkˇg'.€ Ć h‡h€ ÎciČČ}«ťh˘®-ĹomVŘz f(¸‚19l ^ŽË˛ÇÚ‘ë ĹQŢ]®N ®S +¦ć‘č&" endstream endobj 97 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R >> >> endobj 99 0 obj << /Length 4883 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1E!Ŕ¤¨jł‘¤klqąÄň÷q„â@4Ű$ÂÚ ÂHT;âŠbŇi<¦ )–JeB)4¦,IÄ1v; 1˝I3<t’Ź5D/ŕÝ ¸`0ĘjKb§8@ !›Í¦Ó ¸Čs‹FSP]. ĆP.¨ÔR]* ·Ř‡éšĂ‘¶‹ÔĽČ0@" #ŕ6 #Č@'‰Áxž#Íó"µ2‹r(‹’ Ă/¸‡đP* (@1»N㼠Ăxä1ŚŁ@0Ť`@2@°<|x:ŽCp@7ČQt†3 Íëż,Ëň˝ŻĐlµ9m+ ¶1!@¤Šđ’ĐÉ­‹pZęĽh0Zľ†ˇ“ú*ŠłśÓKk¦ †rĽKB#›!@®)UăHč4o:á˘čúHÉĂń.kźŤ@öW§ę:śgĹ°Ę9FCćîďşo{ߎIŃĺ’^Ľľą.TÚ˘.T˝ÇPPČ:ŽVUÚjCź‡;ŰĽ†9 ťŘ]Ź#pÂ6Ť#»t/ˇŽÁ6]ŽpińÁGe§ :‡şŚž1Ý í9Đş7JČ©°dŚ™”7ö~á’[~«Ž¤TĐ+ę A±Ą"€ŘChn®„9´ŕćĂoFŻ‰#ĂŃ8h€A•%šCzQC&ťśśó(–RÚ]Ii}ÄÉziMo=7šsśÓ¨-Nŕĺ<§µŽź”-P@ÝB(e$¨ÔdRQĘH¨…8ĄŁTJqOF•AÔ"ĄYŠ˘"”EX«“B±~ŠáC«V°‰¸5 ö>¸°Q d‘(f" AŤRH€‚¦bř6’ѶJI¤äŇta¦EˇR t$&=&ĐP5RŃ qJc0ŘS‹®Jďä†Îésĺ@€1:#Á-rb‘Ŕą(Ĺ*Ia‰ŞŢKI2m äĽ}ZňnmM‰6ĺüZ1icĆZ¤zh[2ĺ+tĘ]AÍM–ÄXn@ŹĘÖ ±Ć’iP (Ô9ô đ7#‘ňyjÂ%®úŻ¨07ŠŠ…~‰JŞŹě¬ˇ«f$¨–eŚ¤*Z2äĹFcÍ źôÄ.őŹKč*jWŠećÉŞ)Ř|¶bHlűłS^Ń€N&Ž¶Ă®Ă+' ˝§O'j÷§¬¶flĹ1TÔg–Éç–PU˘XŠZ FMČ2´$zéť@fAA„Bč`˙j|Ç2-ćÍ `”ęŕe!Ô4‡diY=g­¤‰Wţ‹0M U†4`÷ś›y}í~†šWĺWŁ Ž¶ ‚_8A J˝†–¤Đ¦+' á™ŇŮ”wfŮ#¬~ Áů  E… Ô,p‘„Ć5!„ŁFŤQ~6)đ‰'Ő BqŐ¶*×áCZ´VŘ`«Ą°–ĹW‹HBů(AI7Ę„ą-Žcô„_łbŤ>h9źŇ@ýd’@UXÉ+DŘâ­V0N˛¤±?@Ď(•UÍ•R‘$Ů-%<şXäqRĘŮ‚ŞÂ–µrá?Í 7ćtp SĚŮČ ¨,ÁŹsb×(™—8äňĆzĺFeĘóřÓgý X‰z˙myëE“ =ťsކŇ(gLiS’^łÖŹ*µ_?éŕlN4&g(9HŠđ@E‰9ŔÔŹ*ÂIG‹€8*g¸'r@Ô‹Q"DSW•ĄŽut¦z:cQf‰˛sľĎΨsű¬ęÁ& clgÄ™µÜfJ>s«né˘ †§ťD™cĘ…«•76F+LŐ±•âa“7®MÄ€™e“>GrĂĚ3ďËofMţI×!üxćâ§@8FěáÜ ü•\ńťx†wÎś?†o­8ÎěĎŮhqÝGŁy'Ńš'Šmí%Ć9V–Ň|·siţaÄI†śăśWCę~AĚu'$äŮŁVP=‹¬H{÷CŰ[ČůS®Ěe×á—`”VeŃö?7Ú;#šqíĄŇyÂÇÔtŞín’RŠio[´o¦ÁŰ7/'=Ăxî‚Ć;1ÝÝßj3UXÚňÖKá˙0^ýŇŠź‚ź~#swĺ«ż:ľ°DÉ%MěňŃę ]”¸{źKÚ}Çŕ5OżÚH§Ĺ÷\z»ç_IŢ÷gÍ*j'„qj í>>wúţäőńď·ć=˙Ú8? ę愧óżěü˙OáćŹKďľýţcˇęĽŹ}·‡›É„Ţue¬Ú®"mtŕ,Ŕ8 °ËĎ2pĚp"mÂᯊZăBâP#î<ăpb ěĐäp2ÎđA®\ĺBĺp ÍFŇâ§O7'MçPNç.ÇŽjç̵ÉýPcĎěfM\ô"Zâ”MNš×. ×¬´Ř^ŘObŘÍ—°>ną˝đx>pµB^ěĹ®öÎÔľŔpJ,Ľ?°Âď)Ő .ę"ä[ ŘďKě­Ľf®Äň6”ŁňŽţă&/âB'ëb´ôB&llę"‚pąÉWMf´n¨%âĘY¨ŠŁę§†(/ŤČ~j„ĄŁĚ"°…K¦ śę˘UJŞ8j¦źj8Ýçđ4cJ‘ę¸gŞľhV¸GRiJŘ˝Änł€@¶äOB˛gâ~hÝŞ¸ş§Ľ|äHiˤ„+’˛LeHP  Ú° ~ DT+ÄuÉô Ę 'ŚG€Ó'J±K‹„¤d ČR §J„¦O„dG«duÂl«‡Fç4zŃ€¶ńśn$dtJÄ­ Ţ{ŔŇfśE©‡±Ô¶Ml¬ŕÎ '¶E܆T ŢnK«"H€ŘAQú¶Ă d "J´ťĂĆĄ26|@ćG ŕtDt‘ěkşąú‚ ‚J1Jă ëĐpD‰#€Ý#Ćĺ$¨b†`Čľ îň˘&,Űj˛‡ÄâKD¸żČŠLcŠŻ 4Ŕś]éDŠLÁlOĺÖşĂČÂŚČČĂÉ&Se“ 4P‰9/ >ĂĚDŽ‰LŽĚM,¨ö„ÎČ)SÇF‘ŞI-.i@’ČĘ *’ED”)0“©¸“),“ó30*rUCšŽĺĐmc@yŇŃ2…(%#/s4É-/HĆ2ű5ĺ…6LDZě3\JcNyňş;(?¤–9˘(•g‚‡č’ËŔ®LF”Ó)o2Äč”Ĺ"–ĹhžW¨˘Ć3ľX“Ă1<¬D‚EqbN)iČbÔÄ‘ďG?Ń?; „ ŁbPďH›cÂ#˘(K@Š l”t\îoV/bEFlUKłÓ=“HżéĆ3)ÇD0Ö”F[eş[ä%?‚Ô•…Ö×MŞJ­&lb~‡\ŕóRಷgÄ=%ţ5L-Q˛;±î†FN`ó&±± çNR}‹µĂŠ`zMćv1KteEĽH$hHujp ŇH‡Ç çş©'Î[‘‡…%g”ÄĺŐSĂJőq–· ŕ[ËP ˛iŐD`•L=uR´$d „o|t Ć Ć•t_çđM©tá [9OI‘ÎiËHŻ’b° č7 ĐĆxĆŠ r ŞĘ¬«áCsLmlń;G˛ş4ăE€b‘0(MG`1@’|+r[džfÎ ŇdµKY+©:&•Ş]'^Ä­"†¬s¶ZFŕ䯧vkŕ\¤ˇbŐđ‰ŠîzJNsúÁHi5d§tdË~j¶adeAL D…C@Ť>¤,' D6@1JBS52–ĂśWu:MŁ¦hg:pĹřLâ”4Ő&y•yg ô«–zj6€`ÜmÄ$™íĐ™ČňšGŁWă¦XB:‹–ž) PÄ\ćJhV­–c(öş˘¶żâô4Îl©^–6Đ2VÖ-VËmčJ öZ”dÎ:Ą'9•w^«f—g§gö¦2Á:‘óThăA„B8ŮŻl˛ŠJGNiQ}YDŚµd’k©™hµ)[ ¦qČřLv›qâ˘aH‰Fˇj`4%q¶śŠÉ4z×ah‚!xjěɇóɉ ČdF@ŕ…FJtDjV¦„«#·ŕGwŤWUŻoR¸%őZ(/b3K@cŞ=W #ö.•ŔĄNôóm%U‚ŕd47<宫—ž}§fu\hub[ŃäDÇ8¸ Üt@ŇF€ŇQ·$ŔĐy*ćÄőč—óŁ_e@Î}DlHŃú Db©8$h6‡{7ęM7vň){÷Ů|WßâJ çË|ó±8tiŠ÷×|7ÝRŔĘ|Uš‰FČŤÎčőbĂöÜBźŽNy ďţňNg+0ĹŹLę% Ě ĎÇŹŤĹLÁ őMř˙ ą ‚§‘ =y BF(™.Ď fě´Y)“BA’Ć‚»ůí9DL™?“Bo“ŤÄ~ů[•B^ôQ“ůJ'YiŹůd$ń“yn)Ů{•-âč± c°ä$™\3˘@ő t•n˘×Ń$őî‹Ž ­’y šą//ŽŇó/{YéŮl$‚L Ě˘BX,j [Đ'O2"Ú*ĄXí­híąË‘ăřŰŘâôNY—yźŹ ťQ^!ít΢ľ Çď–ą cAş!ŕoŻ*&Yö*8éźú,ÜСcŻ%Źő9śş:áú m†ô´/ŤfÍôîť™ĄĐÖ.Đśßy¦Öüáú#şB3ěé"Qú?cş~äšG‘:†3ús›şŽ!ú{‘+ť¨Ucşź¨ŞMQ©cťÚ§§…±žY“ú‘ZEŞşĹ«Ď:ąą%‘ú’®1¨ą#’ÚÍ”Ú×­/“ĆmŞ3"äá”:ńˇą_ŻúšđŮG“zŰ°şěăĎ-Ž)¨ü ŰŰÚ7¦ă>JúAŹo2˙ąŐ©`i˛Ú…{3źZżF" ś»G´/®»H'ZÜúoó“9űł»J#šńµ ő”îAłŰp÷;_•po¶[Y•Źť·ąf3®1łŮsµŰ5–yµy€#Űyąb ‚+¤ůŹF-™z[ nĄš8đö ‰¦Ů±˛»fó/•¸šĄ›űť˝/i˝$[©LŁľ:Ťľ離Dź{ď‘,zîpĺżďb«·N2­AL|$nöó+đ$ŔPA€@ő"m‚˘ÄçJ‰\_W~UTöZ°×ŁŞF‹öNe„–+h’ÉÂł$©hkÔŻ0đĹčđ%+ŞĽEĂ!ŤŰ…ŞŰP´ŐÎ,2pöí/8"|ă±BeÍń?/ďXîÜůŠZçă8÷‚–×q őŰż¦˘´> /Font << /F3 8 0 R /F5 9 0 R /F8 30 0 R >> >> endobj 102 0 obj << /Length 4492 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h d9• S"4˘ 8‚ŤĹĐiôNĹ G"Ą©"ŚĂPďU)‹I¤ň€¦Y)•¤Ň°@I'ĹŐšŮc ‰G Ăq¤BE$“J2‘ dş!‘ŽăŁ/%¤čô˛ąlO¤č2c°¸o¦‘ę3[M´Ł;/ĚëÓyČÄj.Yx܉NLe ·n71…~î[ Ăapf2v†#H¶Ň1 {71€†o6›L&ă!ĚR]* ´‰+řćĄ!˸詋»Öî¸ä4Ž(@" #ŕ6 #Ě0Ž ®&ŞűŠą=(bŠŃ Bá”é.A€g.ʨ¨4B!Ćř>O @0Ť`Ţ;Žač4AÂh *ČCz#ÁˇT1A’Ţ3$1 +JZ¤-PŘ:«\b #pé%HppÉÂp¬«+„‚&…Áž7 ptÓ7Ă(<‚;ÉhÜCb U:‘„ =Ćă`ę6ŤŃŘČ2C(ç ĆŁë3ľC Ň1Çd-2Śt¨Ú2ĚĂ(Č CÍ C®KJo!Ü…H5@Â1 ”µo"ČňL—AĂhę6SÁhî7ŽU\­ Őę¬o3LŁ¨Ţ:Žu,‡*JËn«Á¸Ž¦°#¨ŻŞ@¤ŠđŰ„›,k´ɬ¶“މĽż®Šě!ĘŞ÷Pň†čřP+ŠO(p˘ nň˘i†Řpâ!®)bâ iŤc‚ gŹâŘe’b/$·b8đý&pëŘa´U{†·Č©}ßÎa~Ć.Ć\ŇÁ€QŁ†ř††ÁČbab’ÁA⨠ľďʸá¬K"oűB†—YŞ®Ň‹8ŚŁ WBP¤,"J÷rixCń*z†D‘2 žĆ „Z-Đ4gĆď‹çUÔ1ü=ČŇDÎR»”ťVJ!§>K Ú{ąî…ö±çĐ0Ě9>ü«6nÝă9Ąc}AO ôŚ$2ŚcHĚ4ŐUd-ĐËRä}Q­ËQ´}#ąR”´ÇÇaŕ0ŚđwˇJŇó¬ď<őÖ‰CLĄĘŞV1NŮ2H<ČČĂQ}HR^Ť/?GtŰá Ső \–_!L*‡LŠ ©2¨AŞ­V‘5lŃŞşWŠůĘ,.ű‰ ÇY+EˇWÖ˛Ök˛Zjx7-e°¶ŰŁ$ŔÍ‚<„ZůźXAJŞ<6ˇh0ŤCpeUO4źTPŔeTHě3 Đäë”h-… {ĄŘ\úŢső{Ša ‡0ʨFY‰V+†Ň™†ŠČ8§P¸ŇÂŕ);§|FpÇVŮ[\ ’9‘C¸ ‰™EkńtUÖ»RĘďCÇIyŻXRę^L Ş0žÁËa )†0ć Ä™C!c ´±¶;&X‹#“’y“JĘĺ%hěŔ"3&ĽÍ[ă8gR|H¨"Ë©×ilQ„´¦ži.4`ÉŞ ŠB#YkmušŮbŘŹë€lÄ‹rPYÚEEú!;Ŕč&@CoLŮ°˘ţç2;ć­s fňŃ’¸FČáę&PěCtriĚD'řî\ňT *\4†pÜ©Ó4K‰Żź›Ç.J¨bŠáŢ)ÖÝSsâvdYćżG¶ô•óŹˇE!ŇÂçPúâ°gˇ}J™ďÖ¸t l9§P’¤Cziđ€úż řćčc”Ś±ĐľЧ€(ś3ÍÇ#Ą@î’tá…J‚Ůí>&ú{Y’|PAJbTVĚMt JŇŞ ĄîyMÓ9ľ,aźˇ:»ĐÜÝsÜ.ˇ—r”t.GŤőżÜďĂ8uSţś%@’Ţśß d†Đß]ę;Rá”6«ŔóVbŃ@ĄV®!ż\Ł ÔĹF@]hT+…´5ĂÖb«MŐ-śI–Ľ?ćóÔśSxDLĂthĂBB !­KTHťm+"b@ɵđ‹W`ŞHP2Ţ9čŽű®íM¨Yń(JÄň\Cë ĎÉ$]uUĎŃŰ€ý˘´Uńß<ÉhźZeµV±J”k_@ls[ĺ&;cµ5ĘZç_Ë©v7¦ŔNW‘ČĚńź:v†]dmJ‘ě)0pZÂXĽ•¬<±&ËŮHD“ru’±ě`Če4b,ź˛¦X%^1•Ó6r’äÎYÜäŰ ­*\Đ`Ě Í–€dÎËhŇf"Ң&`rK$çůjZžńO! ťŁţ?ĆÇFĐp©$Öáią ľ…6ńˇ"ćnp,Ç*ÂŚťÍ`Í–u)âq‰čGDj[‚rń~›ÇĂ*- «€ÎR˛Y©¤`€k…‡ÖXĹ $&  đA€ňŤ*Ľ˛i“'«x¦ÉľF ěG€Ó¨¶O`¦¬€g a‹Îpěś6^}hÎ *úžč† ëö±hHŻ `“0rTC Ęr “ „˛ŃÇM"%Ěë¤/ 8ÂŇÍ zę 3Ä-4 đŠîK4ŕRN¤fAÓ23.‹ŕŘU– OU'ŢX›óĐź€¤n&ćvÜoˇ2˘ć”Ëg0ŔÄÔvFAŐŔI¦čĽd.O¶`>Š¤«ˇ]s˛ Ĺ´&éä˛Ę¸"60«ä2BÍ4SÖ3^µî©µň>ÓkX‡R ČÁTµëfĂƤ}uěŻsŹM ů^ĹWg¶ÖSKň‰äŠ&ä¬'Ek µ4ż„R č±E"räöŁçî¸Ĺ>ą*¦H3_6+ŚU(.•4OvK[uş ŐľI–!_" vÓq…hÄ"°V+L ĚÓJú złtäuÄ|sG>»""H–ţźŠ4L¶)XdĆ *ľżgzwňye†s$vŔĄ*żh‚ † ŕYç3v¬+hHd W„Ę kş keŽ7‚Óč+ω>í%Hü²,ÂéĂQ«D@i@É$Äô).ĹńŮBÜ”$Ć4(d´,Ć40”Ť.f49l–‰D#m4H´M̦> /Font << /F3 8 0 R /F5 9 0 R >> >> endobj 105 0 obj << /Length 4775 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1E1€¤¨jł‘¤klqąÄň÷q„â@4Ű$ÂÚ ÂHT;âŠbŇi<¦ )–JeB)4¦,IÄ1v;!uąC8°Î¸9h±B­öFŐ”·_F[V‰V gšŚQěe7Aü'CA”@R2L‚iĽČi3Ds‘¤éć6űŚ» »ä1ŤăhÚţŚŽjŻ©şŘ먠r¶5!@Ţň Ł@ň?Ż;Ň2ďŁěóč0„#`2Ž†7Ť¨Úđ# Č9 Łç@\AÄě)ŔoÄóŁĘ27¬{"É­ŽŠô’3.Ôv‡¦‰d/ŕkHH2-…¤ŔEP 7 ‘¸Z°`Ě®Ę .s‚ě†Hş* @hŠł*îŔd"H‚,Ś#@hâě/0S2˘/-2 i4ŕ˘% i9…ÁÍDťSk‹BUrÔŞŠ32#t}(”´4ťBŇĚÍ2H.ČjІ®B–ť!ŠŕíXB–ض=~‡†ęPaQŮ˝gOZ3¨±Ő¨3 N"(˝_XŇĄ.„ÖőĘ]†JěvÇÓ’µSWux†2Í©AĹž_)ú ~×őO^Ői…íx8BÄ1µmXQ×-%KÝ2ĄÖ“bW+Yâëž3sݢô¦GÁ¨lŹ$”ÖLĄá—‚ŕY‰EUgćAvh‚ćÁžq•Ęél·“ć:XâíYVů ŃJăTĆ9WixµkŚj&]˘e!š<äëy†Sx`«´˝gÖÉf»FqŻÎN…—ĺ©ŻářŽ©Ši”ŽŻ‘k5Ö§‰Ü™˙§×A’뛵§PÔ{ęŻy·X®ŹłćöQAűź\#ÝóĄošµĎYÝZ–őÂcúoÖqWfxŕ Íë3^î p˘Yxű÷ö÷áÔýĘAˇvî'•Óď|/eŐä|_Źo·5mŔăxWy†8«ěÝÝ÷ŠRěěŘ& â|č7Ź‚ßëĺB±]ľýăůt:GŻŞđާ¸ëťCŇoĎůĵ˘`Á ±źGŚ!,CŠGÁĘžný÷X°Tđ4|Kl@´CŕÓ0t©AňF  di/EŘŔ7·^´…Żi¬Cş–Ôâ 4čµĺHŻTéfÉĹł'( ŹˇÚˇ‡Í ,ň:żWËôSä~Č”ţa[°{-9Ú@eÚtź  ËÖ0/‚¤úZú˙*/Ć–q ¬_L†8=´ęˇ{­qmL˛™t yÇşHv—ë>8Śů¸ŁĂ”@–ú1A@0†sĚŚQš5hś:ÔľJ -8ŔŇR#đPŠŃj/a#i9'H9"ŹŁŮLzRxN´÷źt ń÷EAä1†ŔĘsaB¨42Ň ¨uÁ@DEÁ´ůK„ “Š"¨92ĐÍŮLQ=H0„s%”ßDH’`Ěy°Ş¦ŰĽ‘Ó<Ĺ0Đd°s ‰ÉäŞÉ}G†žh`ŇHs<ˇśÔ ¦[Ľčúz€Š‚$žLŔá€7bý4po9Ş ‚™’¨Á´)eEb‚< %-)8Ĺ%ł’ ±ÄXĎ ŻšNé•+n@4čŻčDݱpç"–ĂĹFĘ‹Đ14Ö›Ó–TR Ť=¨Î™•TŞKNŤ&n5>Ö:[Kĺ*Á8Ě®Ş0Z¬ €8PôÖź·jË[+%®¬©3U*Î+JîŻË2›Vâ JaS°•îÁ3şĂ^Ř"B+Ä—X u•¤µVĂż*¤ţiőcAöa0Y«hśq8®ŽĘV‹.gX-.­´âĂŞLÎí +´vÂŐ–+On–—NuţApJůł‹BAÖŮ^­EÇ;7ĽŰ•FHč’ôµ¶X‡Ą´v îM…¶„=€©űźu}Ř»ě$·JćD‚Ř -WÎů_PfÇŻEň¨Ő.1Ý»‹~™89§·Šś7‹IŞůŔŘ –č¶ěŢ«Ý°˛ OŚ°mbů'ç áu¶Ká–€‘év+Őq‘84$› ŻüS1n‚çBA‘H'°­,jťhÁÉpP÷÷Tu‚™““›Ŕ–a7‘jćA]ř4“)\$wn)7ŕ$ŔZ‘ˇcŹĄ çĄ Q2ç"Śč‚ ĎŚ €0¦*pęŤŮ}EYÜ9†ô,e t3‚”C©ŕ s¸Č„ eV+:ÍEöă%’ůE `§q:H*l9ąµé Ń!ž§KďĄÓJĄ´ŕT %Ŧ¤LĎî‹ ’m N#×/ňťşÔ6‚ÔpŽ—ÉÉž—şÉ PšĂ!¸FÓ;Ѐݡuę•'„őI™\z<§űÂhTF"¤JŚĄhsČśóg\îyťâM2 dĚĄ™dNWnqHlÄ‚€¤‡u’ÔĄ¸»Ĺ‹@e®ĘAšhÓ”ČLh-¤ŔçQZM( áH‚×~ ć7ä¤PI˘ ą.Aä!~ „çË‚"}ă@ă™>WÍć2ć<ňhËf‰ŤOęRHçRx”âDĄ™ŇŮĹBBä§S¬ô`[×/[NťkŻ§NĂŮzĘ~P łLxVÉ[e¤ÂŮw"ÄK×2&ËĽ»¬ňMŢëš<3ÝÜÖ_߼)Ćđ8˝ĺ–<,T»ŹńěŔ»řĎvŞW‘ĹlóĚů_UV5îóT·ŃyćKÓ…ÍôjhÓwĎéÉ…**jÍŁĘgÜ|±Uh~SÚ*Féî<ůc]¤ăĂűZ!ë˝ĎŽ\8芕ĄqßJS*$—:·Jz¨kžaďTöőŠ™˝ź’Ş^óä”­ř|ÚĹhž›Ć’őŁßS1M-ĺ×ř{ ˇ˙ŠÄŇ>Güú `.ęŘ$ĹŠ…⯠Ä,Íáb ŇŤ&ŇBř/˘@em”ÎC1Jú-D4II:IΚĚĚÖÍ$ŞŐP+Š&‘ëJ™Ä"ÖMh@DĘÜ­Î ôF­Ä<ĂŢ`ŕ €Â>@ćD`äE- ĂĚF€Îˇ-Ś› Ů$~Kä„-P*Kě,Aí8>ŕä7 ´EÍ¸Ţ 4Ö ę Ш?„Řŕ’ŁĚŰ­ă ĽB­ŇÝc1+ÜpP1@î>ŔĐ ŕęE#ú>@Ę ŔĚ  ĆE Ţ@Ţ Đk1YŽ2–.§ Ž1Mˇ-ř!Ť,g áÄÂęăŕŕ®á-á‡x8®˘]±L⑬âî2ăn:ä®@äNHäĹ‚ĺ.†ćn`ćÎć‘Ţš.tĺŽpçÎvćn…NpëÎdé.Ôé‚ÓNžGÄtęD~/Ą¬™Î°ěŽą"ĚëŇ"ěNŇŇíŤ#”íp>Ő>ľOönÎZ‘ń¬A±JÓ€’ˇčÜÍQcdE QpB [miŕĺ ä ¤–7ÜB`@ CäBŤŹ–4ĄŚŮĂŃMÚp Pď(cäD‘VE ć Î ÍÎD á ŇId.Ü2ŚIÍÔKÍ^LN Ł^ 0 ""«F3ĺ¬/Đ(B*ú"` #ľˇ&¤-„V  Ä ňĹ0íˇîĚ­LÍŚŐRFdĐ Ť6B ¦DrZ e`>ł ŕŢĐ‘Z<0ć<…`ˇ1 Đř<@ě ŕ×€á0‘Š˛Ď 21@ç0H?1$ÚD– Ç4€ĆÎäi Íj ŔćEŔá%±fÜA@Â@Ř14©ĽÓ{3=8 ĺ8đ€ Łľ ŤćšCęÚíÄÖ“|?q‚ `Š´N®ŮĐę „Ű1j ‘osĐ@Řܱ`tˇÇŃfĽ … RL€¸hnJ_€p“+ Ŕ 6F`ŇÓH× `q‚I@Ď'Ó@’;m!Ůmťň<40;ä-Ŕčî“s§ ¤R Ăš8c28c@ú+äďK©˘Ł$ť$0C2@h¶PáH˘L©<@Ë<‰`/Jŕ”0 /‘Â*"@;”AÉD© P ŕç8ső&-ą Ę©+€Řqqn `ÖŐ(/®y!PěS)$Ŕ*qR<Ófňm7t5=[msJ©Ś=r‰50qT“K ĺ(ăłPŻRŐ;s;3ô2<Ń~ ŃB@čQ@ńÂżňU3M´ß+©Zˇ-ŔBĂßCRłs†SŠ>“d“,SˇŁżZĐ”ž.Í9C ‰[ŐŽĐł^ „F’Ô§#•x`¨˘*'JşnU4ł;’‚¶Ý“™Fw%¶4Pçţh lĘ™­{™˛ÍXŘZőH8ÂéHĂĐÚ€ä É`O„–Š–ęj,ÔDśMçH‚P$"šÂJ=Ăá}&+w8 C@ ÎLAě ó˘,Ś»Ľfů´"{ÂČm5—&_Äą’:Äś¤…[»˛ĺ»ä«Âx@ę~20ü6ÎpۤăęU[Ia‹ëäGx’˘©Q ö;Vµ *•‰5Ŕ Â!B!Ö~íĹź'iŞwkóvĽ¦đ‚ endstream endobj 106 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F9 36 0 R >> >> endobj 108 0 obj << /Length 2905 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h˘Ž)*¦DiDq‹ Ó蝆 2ŽDJ)RD- †ˇŢŞS“Iĺ1L˛S*IĄ1`€’N!‹«˘,ĆAŽA†ăH„ŠI&”dâÉtC! Ć6FZKIŃi%rŘ,źIĎä†#apßK#Óćv{YFr_1™×fó‘Ô]˛qxňśĘAn©]AĄ±@ŇÄ4‹FC8řŰ«rfói´Ân2Ĺ%ҡ(Ť©A Ń( Â* Č‹¤q‡Xd”ˇ‚ „hb8Č€ä2µ¸»aÂ"µ„˛0Ťˇn°‡!š ’8Á°j$Apť¶ËRHť†˘Ô–DŃ@lµÍłjĹí`¶‡…ĐBĎÄhČ@Ť†ašÂ†A˛S$­»ţë(’\B˙µit‹#É)JH±IÁłhĘBQhâĘ l®ÚË!ł¸F˛ěż%3\Ű2ĚňD”Ž¬,¬3/?S„đĺ·Ó¬˛‡2ÄÝ>ÂT% :HÓD”†éÜ©Ď“AHRMě÷7Ě2d¨ßBň3 …Đě?H8á˘kÄó`sD†®°m(ĆlĽšÖ!ĘÄłpkôŰBu8V°h•Dµ%MKƲr—.4… Cő¤EŞ-“jĂčëô¶L°€g 2ĄKk$–ĹÁ†ˇ›®]6úŠß*Čp¸ŢńUšu"ą2vdC#5q5±qŕIrÁ÷ˇâóÎhp8AÎď:T´“:weĂm»ÚjüŻťEÓf˙ đűrR¶?[&±ëűî4‹™{žŹżwn?c­ŠFď†oSŤuż}߇ĺĚFď°űYľfîů8®ćÖđÄ6Żä4•"G’)úmmAő&˘L Á˘zĎ˝ť2ÄĹßěeĄÍüłŁţŰĐlx’˛ey IIh$éÁZżRJ\`Ëe:(4úa\&…ĘôλÖrs3gČj´(ŃPcHU°>$*RHóßńĚ$ÍąÂĂ·ČGK‰üG0©Ä€ !ÓiĐ­ôFHXN9Ł† ÍŃ®×čm\Zł~Q¶/AÂR\Ë”v„1?źčĺ˘2RŕäëĂBĎâkĹŠ äĹE±™ X}J*ř`ˇ AŰ$ °·Ĺt­›äo†Ńć²ß±š“ďQ…CřâŰâ‰RĚĚ)Ů!%µ2‹…š¦fZĎR҇nÉŽL„E#XC$‚,ť-&2JjćkU ˝í±IŽÇ—'(’c1f_ęj›MŃ'h±”Ůśĺqšą˝9Žd§‘Ěno˛ó”¸áű%M“µ?–…{<§Ér‘ĚÎr˛é®—LĚź˛,ă5ń@¦˘Š6¬®†Ě… D  ‡ ČP†řݦ\üź A/ÍÍ;ú˙I4‰Ňrĺ2čaÎWK(DŘń—cěakĹl°WłObîCOl—fläsß.)x9rj \ŇŔ®|§teém2`¤µ‰o¶´s=4b3“A5Âęo&¤^}ń»1)Tă ĚśN2'ÇË6ö&©Ţ°/ć,¬g'câNȦIż «8BLuóyb„ý5fĚ;“fhOsź0˝ě ŽňáÎÂYĎD匧ŤT±8ČmU⼗3–6Űçýč;ý¸çn?P“Ó'  š6Ę"ŮűS_獧˛ö–ŢřZJTä2¬XKyŚ!vb€¸ÝKhĄ%Ý·âCřZ„JZĂlń YŕČ“˛Ź}¸Qă­ˇj#ţfň˙ăüA¶´ľ0ZŹ˙-âi7“"8ŮĂNągvÍó„d ”§ ÔAŻČ Z Kn.JN—®äZŤ:QsST §©tmM_Fl  ĆVŤů[-Exś–fOHgf(Ę7đ$nJ‚őXĹ’3jHaŇeĘu˛@ÎÚ·p$@ "NëŮ—ďy‘é)3öÔEŠQU ŔÇş#´IçPTžHwP¨ Ľ3óŢąť‚˛|˙’˝Ő.â»ďšň]×I÷‚ÉŢí˝ŔOM* á˝?í µ"eđ‹TşŤ9ţşzjH=żX€mD˘®Ôżŕ‹¸S 6x’ÉÚ‹I´(*=´–Ď° €oá”9ćC°e Őú-^÷˛Ě4†pÜ ŘîŞ yÂȢŚo„ŘáâJyŹ"¦ Ü€`îŁŕ–ëÂWm^Ę ŠëµyĄvNë‚Ľl}Âćd¨˝PLj˝ĚB¬"yKčÝ(¦Ź%HŔ ÔéE S°fľÎ”H¬!Âě–SÍłŚ ÁŚ}I}«ąhlÂ-DŠHlŕ ˘yđ`ül4É°>.0NĆŔÄĐVt,RäĐĆČ _p6t,{ đĆLpäĐL%PR–,0 DĐđÉl‰đúF‚ 0|C› ĆŻĐ· í¨:Ęđ2DĐÖĚ » °CŚĹĐľNMpĐ˝Ź”ťQ%,ňÎ0Ü«¨:έË…K ©ĂŃY,ú?QE Nps10ĐĐçŤčňѤ%¨lŘ­+p´ŇDnÄ0Î׬ľŃšÔ±W-q QHŐMa qŠŐlr^Ń L-hŐ‘bÖq«diPĺQś~1 ±ŔÓ0_±á i*—ü8ë­QHßk» í¦C°KĺÝí± Ň‘mŮĐ´Ý|~˛1ܡíÁqtÝmą"†ÔER 1˝#-ç 1mćß‘é$¬ç±jX¬QŃ/ĂŽ9Ń40.NKR&ĺî,đ˛Šĺ WO‘%„$s"2‚[ň12x@R–´rn@QWŇdRi’E%˛U%Äbě¦&¶&®Č ¨přb',° Réűępbč.ŔPĎú¤-fÁ‚b endstream endobj 109 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F9 36 0 R >> >> endobj 112 0 obj << /Length 291 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1E1¤¨jł‘¤klqąÄň÷q„â@4Ű$ÂÚ ÂHT;âŠbŇi<¦ )–JeB)4¦,IÄ1v; 1ľÄ3<t@d0 Fr ţR(* :ňŽEÜ“¶ť˘I<śA& "0‚N%ď¤[4 x¸ČyBé'*qˇŤ)Wc‘”· endstream endobj 113 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R >> >> endobj 115 0 obj << /Length 316 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h f3• S"4˘ 8‚ŤĹĐiôNĹ G"Ą©"ŚĂPďU)‹I¤ň€¦Y)•¤Ň°@I'ĹŐšŮc ‰G Ăq¤BE$“J2‘ dş!‘ŽăŁ/%¤čô˛ąlO¤č2c°¸o¦‘ę3[M´Ł;®¨Ť»mÖŠ5đÇo ]9Ał™…r‹_śŚ¨Čj’2Č8×)EľĄQpĆŔh´h.ŽČ´‹M|‰R»UH¦Ă)Śč9 #Â6Đ0ŽC ü2ŔéŽoc  endstream endobj 116 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F7 10 0 R >> >> endobj 118 0 obj << /Length 291 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1E1 ¤¨jł‘¤klqąÄň÷q„â@4Ű$ÂÚ ÂHT;âŠbŇi<¦ )–JeB)4¦,IÄ1v; 1ľÄ3<t@d0 Fr ţR(* :ňŽEÜ“¶ť˘I<śA& "0‚N%ď¤[4 x¸ČyBé'*qˇŤ)Wc‘”· endstream endobj 119 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R >> >> endobj 121 0 obj << /Length 2188 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h f5• S"4˘ 8‚ŤĹĐiôNĹ G"Ą©"ŚĂPďU)‹I¤ň€¦Y)•¤Ň°@I'ĹŐšŮc ‰G Ăq¤BE$“J2‘ dş!‘ŽăŁ/%¤čô˛ąlO¤č2c°¸o¦‘ę3[M´Ł;/ĚëÓyČÄj.Yx܉NLe ·Ô®ŔŇŘŁŹ. ĆP.8ÄR-ă ­=k€@E6LgC‘¤Ća6f ČĂë2űNgOqĚR.Š‚R ¤$TćĄ!ČlĄ*®»Ěô=OcÜř>OŁěü?OŕĆ˙+JZ“4kX¨"A«Ě ŚCŢ6Ł Ę Łđ4ŤŁ¨Ú C ř7 đⶊÁ˘z†H&6©B>©.‹Ş(>ŁÚ2ĹĂ“ľ ¨P)Ź#hĹĘáČnŢ7 Ků3»íĽ˛ ŁtÔ˙Ŕ*âjŻ§!kŽÍ„‚&±©-ŽŁ€ŕ6!íŽĎ‹@b..řb;A¨P+N!§éâI)HdA’Ř¦Ć «”ŚĺUĘrµ¤µDś;.ÚvÁVąr¸`†4Ý:…Ş8\5Dü¨éĽHą‚ľ»ş˘ť CŃ4XŮFŃá"R”´‘KÓjŔ[˝píZŐ-{_…ÖZ†ę=Ť@HüP“ĄlP”5EQ”u «\·XríSa‹ +e‰ŢÁ¸mb]!ç`JásbÓ—ŕ*M…«kĐbHÜ8E¸Eż…RŘ«}δúP¨5PŮe©k*j«VHµ'X¨×hA +éŤçK.u‘$†…˘ŐZF™XH)@ia©:Ó˘¦`—ŕ„޸ő}ˇµÚç’“‰źhĐN¨źć¦ep ą«hSa„Ż|]Ů.sQjŐ±§ăuH§UĂşNwĄě+fČ”$‰Eoµ;{bkŹŢ®ţĺ|î¶Cµ ďP&ľ…Ř6 ă¸Â1=)XŢ9żĎhŞá@ˇcę¨fuS‡;(ićôZ‰Żs»Ś4šź&¤N¨dńWZÔhŻcŮ2`kěO˝•.+šč›ŕ‚xŕüÇCLxEĂoî} uNđ2 ŁČr)Q*t´phe|Ş€Ţł™ké¦62!ŘT*Ť Ş« Żđ8+t™Ş„đAI06;D1A+„âˇa4&Ĺ`0‰*¬©±‘öWÖ›ňe‹d:óě¸_ë˙GP . AĚLőČłŘŮVj ~,­®°Îő|s¬µ¬ElRÚ,ch‡Mwť·*ĽÎ48+p¶śRLČË\?„°ÝV4îq €3‡Ě ˇŘ†wb3î`M ş°@¦ŠĂ!ůAťţWüţ çń)¦Đn_$ dĎ%ž…N\ťt{‹" ĆY0~cCJsR*Ë'˘tˇô*°Üö–¸B:%a”0†EËatRë,ŃĂH€$$9đńzȵ™beĄřőHR»IÔ •¨!€*S˘ poEÁĚNi¶qKEYĺŐRę”YvÇĹo8@ćŞ/ A„9†PČ8 qČ =ąş*łUAm}J¤"=6©::-H.ŤK0Pé Ć.Gh ‰+í$óń¨2M@"ČT Ľ3"·päŘ iť4¦°ÜHC©űˇ±Ýš$ĂüAŐÔč  áY‰Q&/D›$…4Q k=Y1&™ZhÔĘÝ,´]˘7“W;čꬕ”…QB×]©0 śÓFnP“#&Ä2žÓ˘X$‰¬Uh‘°s ¤,Âk ˇµŠ›V2™ »1W¬в†őŘ„°lÜ/–ŞÇŇp¬Mlś/)ŢŇĂ[j#Ü:µDžÖYö)hmÍ„źŇÖŰ{nëuž‘•š!RâNhV|§’eĚ«f“)ħ`€&0’HC ‰ H˝˙†ÚČCpt`á‘)0ŞC0 ©48¦Ş±Yé𪄣†PđĂ+Ŕ˘Ć«˘÷vŠ‘b.ĽÍŁx&Ă.TÝŻ0lXč§çł7ÖĄPZ)Tc nĺŢΨPŮCŕŔe ĎáŢ^$_|č}V éţ]°ćýĂđ 7Đ2ž“Ö{Oyń hXűĄPŇ~ĎîÁ„4˘Č˙y! ©SÉę…Y2ýóËŞ±Ä­–ž#»·~&Ţبn=a¦Äç}CH8t đ 6—w•SPyĄ…máŇ‘[®šĂ: —ÝŹzĂ·&3É”¸kaX¤$Đ{̢O vEá´7äůB‹ŕsÔŐ“;ŕî~o w§uIäJ†ˇŘI—ßśQÜśÍt†@—Ϩd0ɨźćM‡$Śů’xŽÔ0Ú”ÓEôÍą‹c%:®ńÎ;É{6eĐÇśsčkČŞ'6†pÓ¨˛črĂ8¬ö`‰QńF zipę—ő ŔiŽ*DĐ’TmÉ ą3*››ă[ÁA;{ü$ĚmÄNG%Ɔ,n&iř_ă&łŤ`jĆŤď7M?”pÇď#ä —ń>_ɢ'áO8ăónɨ)ćn ňî~Óîw:⮤ńŁ\l‰K"ĺ\.ł, §?†’’‚RI\ĺ/< r@ń)cgÜvŽÇuJIżX…‹‰öľŔHÍ'#ěťÄÖb$EŞ0ë\Ä1ş_kH(„ đC‘Äŕ­ endstream endobj 122 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F8 30 0 R >> >> endobj 124 0 obj << /Length 6349 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1E1°¤¨jł‘¤klqąÄň÷q„â@4Ű$ÂÚ ÂHT;âŠbŇi<¦ )–JeB)4¦,IÄ1v; 1˝I3<t’Ź5D/ř}IlQz¦Ă)Śčr4Ě&Á Đa9zĆ^ÁĚéŮ9ŠEłzO?Š).• P[ěC‡ő‡ÍaČŰD«Á€`Ę5/rH‚şďĽ/ĘóŚoKČ­L˘Üý3/Đh¤°pżá@¬ß©ĂüĚÄČxhľĂ°üB"‘$0†CA¨d®EÎ[IŔkd ¨H¬Ü ‘$SĎđh?Đô@ĺ… dśĂ)Ę:IŃ € dÓ C Ţ†±"Đ-lŞôľDë`Ĺ lLËLŇ·(‰171BęÉ­‹pZĐ#ó@Ćá€jµ “{ś(<Ú2ŽŹ#ÔÁn cČÚ1 ăcÔ”†T؆7ŤĂ ŇóŐPlą!@š4ŤĎS’‡@¨<Žµ5\‰Łđő-l ŁuVř>Kzâ†.–xkE+Šbü“ŕ8 ŽČÂ1:‘"úţ?ĎX\†‰Ĺ ¤ë Đ lf?AŤěý¸ń¤ęŤăm'TŚŁ$Hş†ńvÓSäE#I6‚C††!Ęë|F÷SFŇ´ËcN ršĺ'!p+‰®ĂăaPc©qr‰„47[ť.ËëÔËDNV>ijN™ŔmťKÁ†I2ľ/ť`4†„Ýq¸o± P­Âr:ĆĐîM‹±ÜÓăbž; Ţaë{Ó:ăÄąÂŘ6 㽿pçşDgiĆ{R††ń/etFażËń¸if>hÍ?×XQ}Śwíţ2`9`oiyŚßŚl”Ë †3F_¦Múöˇ¶pgÖÁ˘;Âp5-qÔőz%›Łć?GÍjQ'WL¸J_Ikř×=P}[4qt5×µ»n߸îc-l%!ŹRő{ß]\ćśí|5r(…T颢 U®ó‘÷Łlú{•Áë¬ců-Ŕ¬ –"6"€ ˘çdSB&á‘ś&śJęďNčĆĹÖé#óY›şöů\ao±«$RşZ  ĺř0ńB0cĚ9 $Âs áiËzÓśÖ˘ ë~ Ďö ŔŘţI˘†y®5G?Fŕý›Łú(żçzĘëw‡¨Xě$ €Ť @tĎĚaĹ^ć7·„äáĐ™h^T˘V ˘l ÉMCôľÓâ¤V€ę ˇć”ŤÓb|0($ÎiÔÁ”î+@ŕC  Ę„:Îőť$‘,˝ĆÖ¨d!+?ĚDĎB lĹQI  —V>´K±Ś @ÖW˛v„Ëѡ33Ćm+Ą‚PlL°»™m1XDČdđĽÔ @ Ë»¬l‰QöŽH%äÉ$Í9±·Ă)Ń+ I (™Ă4ŘÁ”cpĘmËvĚ•ˇ´ŕ.ÉBt:·.%"OspŔ@&ţY"$.;¸éŃ*QL¬…J®‰dźĄŞĎ™Ë>]Q9Z” !$N°%x®6„o‚P*:†>óß(h’bL2—1AÁˇť´}lLąë ´ßŁĚžr$ůĚŕ(|ęjě6Cz) §Ś0ž†A˛ź¤m,)Ű'z¤Ľ‚Ž —ş8ŞfE#Č2 cq’!–IÉPÝ%äĚ› ’vO®&HžKÂw’ţTT¨LÄ”*j1‹Öh`Bd´Ş“qzłů`¬#˝jµúUM Ž˘ěŚ<†úĹĎd5P¬Â!|´ffÉž†ęµD3˘šÉë¬˝Ş‡Vm±™ źF˲é-V…U«L¦ÁDÍ*™ůó žrŘź¬¶€W¦A^BčĐ5C˘Çť)bmŻň®Ŕ’–'ol3Q˘Á2ŚYÚ€H b »Ňú¤Ý«*¦¬»ˇžńαˉ7H} ľTVŃŰj5i–}¨†÷ě˙Ő»…cF¤†UqźŘńJ`Ž ŽiáB¦ÚaoéśŔ¦ôŘĐ©‚•80$ʶ«ĘĆOyŔ ŞĆ![Ş®Đt8€T]Ő¬*ö°ę"^a»BD!>Yß{H1AţZg)l›łŤn(˝Xé(cĚ}‰‹»}Ç9â5~YŰÝ$ˇfOiźGr«¦n×SyŤ”Ń śYÖ–\^‰Ło¬ó^lÇ ÍqoÍXÉ„™ŐÖ äüß /‘Ůô‚—Ć Żv˘ĚÜĺx .­ źŽ|Ź—:%ăLŹ:Č9ÔĄNŮŢ,xč6w׊ĐQ]e_u¦I/?~k‘¸R3ü7*ç<°ĐU¤qŁF@çiZńŽ±Ţ”-ťŹn/FĘਆŕ!ŕU&P>•a('Ki}Ă7™ěóB®0ďľÚďç”­Ĺ-ó¨ĐUżB v ÁA®ŕÉŐ׍ëC·˝K»|‡§;眡€O±1îŰnßmÚóť±%ž†řŁÉËŕUčĎÚ:ëśÇçZCľ”’š[LIŤ5\ôä\* ÓPź=Gw®q¶Ľw ÉŞřEŐß Xö›+­ľgo1]ǢeůÝTĆŘ0i ě^úzĽ#đZ¬ß/iüQźű3ó1řű^şR·ëňĽźk™˙5üź‡Ű¸ą$ľ¸ú,řĹ`sŁś ÍÜ/ŚPŢ->˘Dő˛NÉ€ń(rř‡NúkČŕ/BĽîÖIBřÖ/śÖ®ŮćÔě îOŻŠ´¦$¶ă.\8|ě@ćĘX#îHO‚óµ"“Č@eP4ő,f¬DäQ‘lâŞb€ň Ĺ$;3 S ł1ŔŇU§@uk©>1t$@KÍq;“jů/¬@IŠ/ď6dą8 ¸$HiŃçGÔW<’‹-†x©3ŢąÇ!ŤgIŠhB÷IŠ+>Sl˝`ë”—ĐZ›+Ł*¨˛Á9˘9@jtDůĹbhVÂPW#}e›ě9JOtěäqL‚î’~ný!GĐeJşäľŤB ŁM"ßę´.úSóôÓTíT3e@ôH'C@t WĹcARźAňůO3Š4ĄFS/xeM/gą t>iVEÓę—Ô4IJMIU‹Šd €PT˘Xř}‰<ŔÝ=Ä `Ë1hĘ=es´)LBđ…µ—3LţĆ Ç¬/dIĄu¶Kâ@” QűA3|dNč1dPfZu>u -Ć#qÉ QI&šşqÔu±RSk‡Ir˙ †Ł(pÝ 2iŔĂ1 ĆU` մTg¸oÄý\3]IFDřr'6cu3âîI„C#q#öofDŁg°‘%pY%Ôĺ&JĆ-RjNu'D÷Q϶9Äü4ÖSsäoÔŢ µ^4ó_R›j•g.ĆE*bŕot„ŕŇBĄ¦öbD&Ü­Í3dÜBTŞĚ€+®ľc.ňę çd¦ßGPÍ@â°÷]%GÖ­mtÄb3.Ťô›\î¤ţŹŐĹKŁL®ŮĎ 42>d"l—Ő8ÍlĽYčř"2ëőcqpďTX@4árc'Â>ÎfqŇĂ'č)l,Ť°_`¤u0f‚‘±HPĘPď@dĄ\—Źz$÷<ş-WW%FÂňІó 8^÷ł?î,Řfj@)ŃClÜ$—ÂÎ6řu€÷Q­8«†"(ęš}…íDô­fpzíP} r€ďĎu { soÚaɉt,€ŽÄCt¸ .׍?uŁcŠev7f"·lă‰ywhŰw±DÂd÷‚šÖŹxĄŃxäĺy6'3ßOjey÷˘Xô&Y°±sôÇ{!TM«{¬ż|U7ĆË7Íp.ř‹fp 8§Ĺ~łŠ1·é~7ď/k\ä=XV9Ĺöe(ÎRe@c€Á2”*b$@9)ĹUJSM}ŤĆN9Ń5j‚ů.QKVő˙8÷nViłź(U9ĂŇQĐꤦ:}€Š, (Ăôgâ+â ’‚Ä%í|&GBeäZâM“˘–Čé“"aRâ¦CŮA”ů<îd@*§Ď”cöń™BZ‚¦ŽÓ.*¤8'RĄÂrĎí–PS—O8ą?—ň}§±•ŮLCbq™yU™ťŮ*ŁA™ůŽ)˘8nŮ©bĆZfť›"uś…”ą`""'ŕ+E¦?fF)yn@d*eţABÇ“yÓťb¶C°?™y,?yţ$`Z„:*9e”1R+š*z äç9´)ă÷™—ˇčn§:'b O9y ‚Ć_9qšš¤z.,bËyEă}TkDŃT@žÉG®D‡/ŻVÂä ®Jč ´ž5˘BgÜŁ(Ťşc¦cϦş„ĆZrŤşyµťZ¤By ş _ ›YDkZł”Ú·Ą˘ŕ*bMšúÁ–Y¬ŞÇ]¤š8˘fI¤âˇlOyµ¬„m®YšŞĂ‰ Ö%#¤Ţ×ÖŁzé]ú,zľ˙ÚŐ¬›­Ůúášq˘bx4«Úŕ!éy°Fí˛ÂĄŻÂ ˛§]˘Bu±FM±…ň$z?ś{"TşÍ¤+>Ď» ÄWµÚî/f%Łz(îšĂł•Ć/y߯ZČWŰł…ň˝;l'›‰°˘_¸bQ­[oą{·kĐĘZĹ›nş[t…”Ę)[}ł$˝»[9«âů9[_TŶl™[Ć/±ĽÖoś;P Öǵb^Ĺçw[1tíą{e ;ůš‚«·b¦î„@ś{±Ŕfź”Ü˝—›\TYĄ͆#*)M˘aÜ,ś®č Ň ŽüŽôDĚgByęő§Ň^Ç/\K+/Ż`† ŕ›Äߪ‚Í—fK«şÇł"»«ĽRúł{CÇšłšR-2¸&3ňMµJ* ŔŢR ćV›… ˇ§J~6úeCz¦žW:Ž<3ŇŃúÂ" Ňr’dń~ ŕĚöúzbÎ@ÎĄ#€Ę` Y*Ŕ\ßLd&ęĘ‹Ĺ@ Ę´ 2ŕĐ<š}Ěŕć Čr€ÝÎę cżZú| ŕÇŕĺÎ@ÉZŔϦÚdF[5¶cz âűĎÇ›cH| Ľ»ËŕP]¶ę‚p‚gdăp´ž @‰J#p @^ ôž ŕĄJ<ĚU#»‘Ąš}ÇćĹťbsÖśĺ5CpŔ¤7šă_dŕČÚçÚX4ôý«ÚĺiÎ]u|‚‘ŕ}šo Úbô=]eÖ€AŰޤmŐݦ)]őÚÝgÝ˝mץŘ=†=‹Řý“Ů~Ůăq5]›Ü}Ę€ý¤¤$6~CśBqŕĄr[E¸[Çî"=ŇvéÝÝvh={âýú \Í\Ě“ Đ‘ŔŃĎťY§HqŔŇ şd –O[]R2Íçe „á|¶.DW^oÎ@ě;wÎtg1ěUčÇŃP÷ĚÉ4<„ ;`@<ñ¦^t-EÍĐźC@¦3…*]' ˘";ĺëóŚXĂ‚&ť˘r5? ł'Ľ–"fđ?Ă»>°r6ęľąG='Ó㱩C~#ÂşDgçxš2(‡¸Iä ÔŐąîŔÜ ŁŔ €ňŕ@Ţ1ó§ÄĹĚÝ7Ô÷ p×e[YĐúńئć˛d#’D ‡đ·-{ÂěQiZĹńJ>Šk­ć$^Ô/ľŮErXę Ýő‚Ůď¬ĘçčVd%ŠEôŹtÍŁ¶¬ń§ý™îß!ëfĺŇ:€@ ÄÇôÜĺîŔÚ '(Â)*˘Ń¨¸n8ŁpÔd *ŁpÄf1‰ÁĄ±@¨r.‹FĂAČ ¤e6N†“y¸ćh4ś#)Đîe2›„CA”@o9Í&É\¶^ 3Ś§¬ěĆyRŽFi”R]*°áŔŢ5  †C”P[ #EHŕ Ân2 P($n ^„Ěj7‡#°Ö$mŠ ×`hâ˝Ţň\F…Ăâqbŕ ç:Ť&s­0ç}‹ç†c+Üf\Č p]…’Yŕ±klr<*ŤcaĽśžp2Őe¦ă8€ěo6 &zWśeԛ̵f¶ żdőW‘§ź1ŕ±LP ¦SÇerWĎ €iôúđ~ččP.+¬Ä3í €Ň4ĘcT6I´®!ˇ˛ĆŔ·(z"‰˘ˇp`#oű„‡8®:Pí #›¨7 jî4§Đ  é:Ž˛‚î·Â´8`Ň2®i˛pť'‰ň±ˇ\ü†Đ˛ČłC+L6I«xŢ:Ž„ŞJxĎŠb(Ž©bxšŮ@+@2Ś#Ń,ŤéČĺ,ËlđP+*¬NáXÇ/kÔŢ/ks+A­@$ŽLnR3G‹śXźNR‚ĺ9’Űžčşn«®¸şÍ˘ČᲱ7pË|=®>Ď,$öÂpA\m:7QC^9ŽŞĽ|<ÍTŘ2DĂ:(H†©ŤĂxčđ+•5P‡I” <KcŘ:Ů.p@&b$˛¸ĄS5&4ŽTŘ@1Ś#„Ő®1PçQ ˛<“ UHŁX¤I$F Ç1Ýâ1 Šč7„𢀍jĽHBř×âá dö0†:˙‚ů˛8Ŕ@ű†Ś==÷^"â€cŠ6Żřż$ŇS‡–±yJËdďş2°aÍlö±X‹$ř,t4áR{†ář‹]ŠHąľ2ócš6ΆHÚľď&†Ś0aÂŰĄV¶›‘`ÚĂ„áz®c«ć®¶ňżóµě;"Š’0e ˛ň@ĹA›*żńc`)«ˇ¬:ˇL¤ŻO4Är|Ż3#±ĘBÄsS Đşç}o,Ý;×ńČŹoÔČŘßYÔuܧ-ŰňW8č˝7Ťát|ÍgÄńŠęĘô†~Ź^†žŠ1čó¨gčw#ŕűśÚş÷~·ĹŃí~Ż»Ř7_CáŰ_7z<˙źšńyá5~F)蠟ţüťy endstream endobj 125 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F8 30 0 R >> >> endobj 127 0 obj << /Length 4222 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h f7• S"4˘ 8‚ŤĹĐiôNĹ G"Ą©"ŚĂPďU)‹I¤ň€¦Y)•¤Ň°@I'ĹŐšŮc ‰G Ăq¤BE$“J2‘ dş!‘ŽăŁ/%¤čô˛ąlO¤č2c°¸o¦‘ę3[M´Ł;/ĚëÓyČÄj.Yx܉NLe ·Ô®ŔŇŘŁŽ2‹t{OZć M†SĐäi1M‚ Âr0ůLľs™ÓĐs—J„ŞäÖľś¨ ę´Hl†ĘS¨A˲a¨P) Ł`Âű ăp@1 Ł î2Ś°ĐŢ9ŚcHŮ CĐĚ9 ŁëŚcË Ś#hĘ #pČ OËö‘¶Čb㨡p¤%<č…3ť'’AHɬ•¸¦"Ž0dŇ|‰)Lad©2Ľ2|˛ŔfÚÉ0D°.Éěr¤‚ Č’("ˇ$$°p± §t:Pí!\QQc[3RPM Ҧˇ•QÁ ,i­,—&ęl°"”$Uˇ˘Ľ¨«lé.Tę»…0Ň3Ž±`@ă†2xeb9+h&â"«_XŻ7J3„˘&µ’jč©•ä) 0Čć4 #„7Ăń@2ŹŁć7=AĆ6 ăÖ ’lĹ ¬łdVˇ­¶‘™jQVµOT‰Eµ, Lq¤m-K’ôÁ}¨·ě3aŘ° ÍŞÔˇ„ŔrŚäĚ­™™Č©¶"Yl’˛IżŁ”‹ŠńLŁ?˘ćŐ!ÄžDťłŇ@oĺiQ*’“*źäł’ÖEĹéV 2˙-qµ´)8 Q¦>-fý÷›r"Eŕp7‚NÍX.Fŕ3ˇw+-eYoä{gNr.MP—Č03€rĚ9:¤“3Ş^őRLĎńÄ Ż˝W‘9řCÜĺ5kq­tMŐâĐX(Üă6?P!)0č˛ćĎhB DQ‘đPĂóBá¤7p@xl„3ŁsáIQ¸o Ŕ€+;Cje”Q,0§CŇ’TP<•$Ć&ŽÂłŕf/°×§ŮýPߤ×#ŚŃ›,sŹ”ZŤ™Çh)Ćѧ¸Fi3駴פ͠ R%Í‘Bą¤ZË[;U(­ ZÎZ Í*§iĂ×Rx‚kş ™ÍěÚéA§Ď•RŇľU¨0 ĄÜ@ Hˇ%°¶RÇ€ifp˛vT‚€l T7łvŠl¤Ú‚d6Í°‰WwZ\z„gMd*7Ú|ĺÉ:viŐˇµBvÔ3l,Oý şka  8xˇYä#ňÓ+Kt¸5WpDćJ-i2š˛d‡lěMW¶$üťĂŔX–=*¶ëÜGgvĐŢA%ĄD(v . )}iěŘ3gä*‹ö&ÂZÜ$…A©É!Ž6Ęb‚§j Bë VÜ# °Ů,€ #dç±<ĂËĹ ;ŠđÔbŚDęU,Í%Ýf'ŘC ,(AfäóS¸|ŽÍ쀣AţfeŽĽ›üi9@n78ĺ)3L"”±üa¸—dlµŠ­®,Ž`7'ăl• .VÇ«Ę6–šŮń6ͬů‘lĹ"ó. Ěř;ś®YrĘ̌ą]ÜŚ±Đ ţŽ¸Ç™Ů´Úď­ây.ĺůG ćžg›6arŕj,ëđxˇ:¤Iëů†čţşúUËęG‚ke–e»~»?×wžö.Ě;.˙ęśĐ‚Ö¶qßSGÖE‹!<ý“7ׇ윳wź:"Ç·^]p¤ż<1o†ăýß©ęžűçVŻô~O0śăć}_Róľ/´ź#ě}(9ÓĘŻţŐ“yőa¬e‚˛ą›ě±ĘB_-~ÜÚ?HOö¤Żxă>´ŢkÖĄ4®–ýËQU Hć–ŕ?sżłďĽĐ8‘N»ŽrA`÷9ć×–ú®˘ţ NţM*ĐM.9ęĽÎOđTŹô«Ż ĚŹ4ć.ńOđţ…g0€­¤äŃŽ îĎtńO]oj` }p2ćâÄÜđ:č9ŽL8îQ/L9oűĎŢćO<í ,­ `Ö.˙0}p˙đuPzS˘čţđ0ôĐ—îÇ[đ(-Cjăhâ°­°˘ń/ă0’ÜK -xˇŻSŤ0Áüčđ™PÚQ°Ď °[ đ¨Đcą p› PóN}0Őí.6e0N"e)˙ 0¦âJ¬öŻímôŃ#p Đ1° 'p°="ę±7P,ĐéL˙P7 /±2ŰqOÇęŰü˙ŃGń4Ű° ĐĹ;EŹX÷qz8đ ńkp‡ ‘_đ]Ń}ÂMQť QŻŃ±M­ ń/-QŠńaŻ?ĹŃČ€Íď7Pí‘”ΰÝ,ĐĺPĄeŽ‹±÷ qs w1ěĐqN7!±ą’Ć{­=":ö­Ě €Ť`-""©ć–ĎvęŞĺP~‰âÔvđ$)ŕ® Dmn-D ^˘sń¦ďMşŐ¤‹ŤbŇ©0(o)éqŃ‘cĐHńďdňHÚjP †˛ĆŠÂź%Xźă”źăŚVď„)**%r.Š2WĄ~ˇe†P„ž&o–'&žY‹†V‚ --X_ĺ†HËą˘ :Ex_",<^dÂfY†”)h¬Ë ďÝĆ:ßçpź¬~XäĐą…†™#6Ă“&Ż% ).ÄFĄ2“66Ă*×ó>Ż'ô$Ó:ĹÓ2&łO4C8ŚrĚ1¬ű1î#3@׳.ި+4Ó-4r‘sfčSlčŹ 7394r„6ł)5łSSd—shÔó‹Ń™9\ŹSŻ7ÓQ8s¦ÇďÎá;víĺI9ł5óˇ)3†ółŞń†‚ąs4z“˛ÂłV%3í9óc=ÓĄ8“ĆďF¤€d¬LĂ‘9STP“5@dž˝s@3ĺ4¤¬$“ďA3ABÓůŽ<,§BNŃ*Ă‚¬EW-Ë. Ď.B&9ĺ@E†2¦ĆľF¸Iĺ$ÄeD.FŘ|«"$ă˛4„"oÂçG˘:n‘HB(p´‚;HĐBC2v ŚĹjü*8ĽČG/ÂKäžýŞ(t˛ý+<Ż¤€qkdŢĆ’šBNnŇîąiŽI„śdÄĐh/¦fHü+~dŇŢůÔUGĹ@ě"«O¬G´¨4Ł¸ľéŰEš[CŽrbÜ`”Ú®˛ÓL…D˝U 7†ˇ5‡8„‡(`‚řgĂPKNĺ`Ő9˘v€ô`‡VxěNÔOO@îB?Tâ®K¨ @˘ ¸9ŕbcŔ¦•‡Wu&ĽŁ}bÔsÁ@ ÝĆĎ3M{A­ęt35F t ?S“.l34UA˘¨đĎ•D¤€ę0qH‹S#(-e(ŞňÉM‹€flÖ4«üQ‚L‚5BĹI•+h†NM$R„–p•:X´¨űâJ|Ş> `†; –Ú‰ž÷&xÍlpŰî$`Cj-B ("Ä€iÝcBĆ„ AI–„Gwd”-dX€vScĄidĂYdV8XvceŤĄ?ł…bł‰cŞgOeKĽ-HChGf?h“‚Úöy>|ń‡qF¶…fHBŹfÖ“dóŰgrÉiÂ@âE—cv§eđ–kcÖeiliłiîĐ­f¶Kl‚Gn(Amq;óem“kmĚeÖ®B‘n–iní{o6·i–»m¶żg悶=>Ç˙d(z@÷#9–•oSÝo“©oČÖä(ö¨$it7s7mwo·ń”DiĚi—Voô(ĄcćEnß_¦ Lj€nü÷GgÁIT~gÔŤH”x;T‡I»xÔ™G‡’«”"Îl‡oô¨ë¶pĆ9]*p¶n%†–rmSb«Qć–P•Kĺ@NË N˘·vUęej‘¦Đ(¦°WĐ:¤ztčĚ´˛ýXkŞ?‹ëv«ď^‚*ö>fÖŃn ä: ŚxĘxC*‡‹U‡a~”đżĆĐI °BHgGz|Ç°{@băh0ŘR{§ľűÓ {«W5ŚXő~€u…X•‡W‹ YOGóbnŁs–/u®Đ2¶’I6Wh<ŁŚ%-2Hć[0ÖîŤh— cµŃŠâ×\p…M«wg­¶2«Ź‰őĐS$hŁy„ ŤVN€v6nőĐf‹b%ä,xčĺS)ŹF*䬂ŢÖ[qîŽSFˇy ˝¨Đ%/.ĎČĹ@l»ąŠEe‘i‘·,‹ăŮ(PÓ&ÜXýciÚ%52Pä”v®PŘĎ“¶Ä#ĎLňnŹ¨SYbž·5k–,Ęw<~âÚP4MŚÉ݌ƦA#G(Ř׏đHĺ5 Ëm–y~$™ž(ŇÔ Ă0ŠČRwg^Ĺk–$Ť|°dčä±1V" endstream endobj 128 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F8 30 0 R /F9 36 0 R >> >> endobj 132 0 obj << /Length 4441 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1E1Ŕ¤¨jł‘¤klqąÄň÷q„â@4Ű$ÂÚ ÂHT;âŠbŇi<¦ )–JeB)4¦,IÄ1v; 1˝I3<t’Ź5D/ř}IlQz¦Ă)Śčr4Ě&Á Đa9zĆ^ÁĚéŮ9ŠEŁ Ěr4ç‹­EÁĘz‹†"’éP”‚Ż¨‡ˇé @!łD´p`2ŤKâµ-HÚ4ŤĂ;şďĽ/ĘóŚoKÂ=apl-B ć1OĂô6ËĚ2Ťˇ„:Ža¤2Ś# ^+» ĘÜ„ŕPhĚ0Âă`ň ˘€Ş.-ó"µ2‹t ĚŔĎrôɲü“¤¬śALĚЇ âm… ­-ˇ0hAS ú9a@@ČŻ«LzBĘË@pµ˛®lµ01XP.A°aD­4bܢ$lÂŮImŔ­3ÄČb5´ ¬7Ϣ§9§2ârTő1±Sýű:°ALQrĘ9´…>ĹRł÷­ÂŮMŁôŞ1H KL2vz N.Hb(‰r+¬ĺąÂÁ& ˛äő°ŕ)Ź#hÄ7ŤŹPd†AŔP)Ť#8Üí˝OhmcxÜ2 />ő=ĐxP&ĂS€ľLŁČá‹1†&0ŹĺĚ Łvţ?Ň˝5?!¨p„-iĹnp‚2 Ę9Ç#Eđ28Ú2˝T}â™CţşŰ«˘âÎQję‰>L‚ĆÄvýĂS"vâî»Q÷&¨Ĺ!p!ŐúĘ”ľM*XmsĹw dąLKśý†[fRáŤüú_|b7;ÎFôżŻřZŻW Aج¤VŔîÁFośçqČçvŽŁ† hhjâZO·éěÎÎ418i\rÂľ°ßëÎĽ‘Ëđ;“\n[˘Ůʆ\.őľ;ő&ú†< ĂÁG”ń|j홣Ĵ°‚Řćßń”…ŚcČĆęsú‹ßÝ6SŐőZ}y†„ú!‹"gmÜn»üëűŕe 4ĎlĹp¤nDJĹE‚Ű›‚ {&QĘ‘DĹłtxëí}70kĎŘ-pĐ}œҙcŻ\j-ę=g(‹s Ç]|ŕCc›"!¤2@ĐůÉH…°†:µö}ÁË-N !Ŕ·j·ť»y' Ö$«ś}”ąëA ćAŘ4ŕ˘ńđypťÓ˝ôYŠ{/‹ ŔCśt ͇G:ů]7qŚyő4·S_p0QnŚĎ'ß»ZR(‡·8¦ ä)Ëw­Ôśăá›Ű}oď!ĺ<' #3ŽŤ+ęĆÇ%ADpŽ@źƀУČ9~>ş‚ěűK±ö«Ó¦@ŐâsüvĎńążâPrŚ•$ Ŕ ŕYJ%Ę,y')ŰĽž“/M¸ňŰ›Íyî)Ć?—€e*Ô…č5ˇQAâ nf<§Hb§Ť:\Ë0@Ý&’p12DÄň#«0XŞ©ůĄiöX3t…»™0ZÜĂk`Ěj*Řăi¨W* C`ŤCŹŐŕÝ·ÍcäöŚD¨pQ€Ľ‚€ráA›o Ĺ˝ĽşrŢç,Kđ ČFąŐ)çe0{<:‡Hn a„1>I`ĽC{–´>#اN]€O f?¶¶î*űSAt† Ĺ–ňă"ě"W€ –=[›đ7 D8˙? .ŠgµĘs÷T!«  "ž Đxfh!ˇ!‡c¶YٲŚč*7N^Ť ™´jŠXEZÚL…\iíř–Ćź”Í? Á_”sU}M3€ŔŮ %ŁŤš<‰ Q˘;GhŠX ˘SÓ&E]J%Ľ€.ÔpűÜÚF®ĺšWÉ4‚ŕĘ ŤÄ>Ha˛Ű$&eeJ†ő¸µČ¸ČďÉš‚€TđAm‹ –PT†Ă Ia°îK |AĂuOŽŚĂčϡĂ@ WŽz\ÜDÉnfőÓ„RÍZŠ2Qĺ)ą“Ł“±Ĺ$T㻢‰‰I59­Hźâ˛Ç‹TłŻ*d›•ŔaŽ±±/Ŭ¸ŹcŚ˘›/ĹE‹! gF~r6=°1ë%•\‘`]K)¤îŹe’§‹2q#ÉxđöĹ<ʼnJ©Ä+•=“˘žÉI?,x€­7⤠9$ŮŰ-Oő¤UqéSmň2’¦ sůcÉ <ĺ˝`tI/%$ăč<ôIÉö%Ń++LűĄ˛Ř4ÓÚH‘Ă٧ôi:Łą?iĚn&ŚĐ„sXgÝ7“)k¨=(ĄâóÉ$^%ôÎÎz;I:Îe®ëÝLëÓĚyqí,ŃŤő:`>ŰO7ăL«¶6đŐ…|cśű‹6Ě˙ÉY7äMż·NOŰ„óym|›™ťî&̶3ä·– Ć;&îĺíýŞ÷ĆóŁŰ÷\.n îI3¤áůČ—"Dö>[_˛®ćݱJáÄČ#-$?"Ç€çrň,Ó® ±×Ęp©«G_ ÓnĹf+ôl˘^UʶĚ"XŚ H)Ĺ8 otŞ$×&ÔEX@fHŹÖ°'TKŞ7›•Öń,Čôđu[” Wa,G°¸vj9ÚzŃ-§‹“·vâ¶ůż^ęîżµPŁ%HÍQčý%}膸_WßO3=DŽîËŢ»GY$ÄĽxţ­ä{ďc?=׾wsŘN<ç’íeóËv~áا›ňź\wţ‹ŕşGé~§,bă:źĄR«“µcÁٽߢ%ĄóĽ’DQç}B >]{ăü"  ďŔD˙8Š|RďôüÉ/őŢŤű•áŽµęÇ’vćý豋ńôĄđ¸y’ńęľ4˛úťcŕ/2p;ozü˙ßţżöîď´đŚűĎ éŠüOęOţ˘÷¬ŽÉPůήţ ”˙îÄ/‚<üĎŰűpđŹfü/öŔ@÷ůŠ8ý ŽňŻ/2/(ř/îůO¤÷Ź˘ôěÂn#Đ­ #5Žî_p· PÝŽţĆ­u/öP‰đŤ" \/–ęΰ`ď'#đďO+ P= ± ďdńPÔĆ(íŔp/Qëq:ňĐÉQ.ö‘nĆ)O€Ą„LëQ9ĐP/±)ńűń1 /nĎcßbďCÇ^>ŻŚô‘oP 0Š§Hń‚˘ú.ô˘Qcń˘ýp«Ń• ŃUĐŽ&ĺÉË”ÚQ†2ŃÂůŤO.ý—°Ńqz&FřÄQ¬Mc5p q·0Eѡ1€­ńěň‚=BoO[‘ąń5"ń1$?1Ë"/ttŹťą0 ˛¬b×r)P$oŚV˛3’7±w@ ŻHíĎI"®,ýrkR[!±›#ďnbűJ$/±Ę1)(qíqűR=ěö)‘€//$Ćň.„'Ń“'qý'˛śŕrQ˛§âń(/ő,2)r;!Ňş&ň$řÂ}¦ý2ß'P?+q X>Ňľ_dŃ*…ů rçq+™-PŹ"Ď0.¶ýQĹ/’’,s#‘™.ň|ň‘i-Ňűę% ńŃ32Ď+S +“Š˛„Ö˛Š¬J\‘Ő2.Ńß/ă pěâÇ_"¤ď"ók.‘-43)+Ą*믍˛L>˛÷8S5ły5ó*Čäń* q,ĎÓ/qÓ7S -3EŮ,‘±¬(îë;“?.ł“2ÖŘň„Î0=2ďSŃ:“%ÓÉâůó· ­·;ňW22])łĺ/óĎÓ‡>óŮ@Ź-'9R»>rË0ß@OŤA“Ý?s 3ýň“€.ă?3‘:Ó{ďäř!Ŕs3”,Ň•4=AAC$QBâ D˛Crł1_s´·r SÖřÄ1ň5FÔGóB°”z°To43.49@Óá’b>Łó1´4ńĄH‰5t‡7toJPÖwrIPŢ>°ÁL”#'”? #M* c@‘EC"ůNSH”Ł&ÖÖłůPßD/™O”Ó5ÔŤ6& h«.`ţ˛K@´UH´ŔĎlł*óU$ÂŁ-°+RsŽ C -ŽĘŤdî÷„ŢĎnH§.­FTJ-NĺTdPMŽřA.×*Ş Ő>?DŢ%˘Üq<€cÚnQlb^ \(ôąMj"‡XJ")E-U ŽË%âęŔqW…VÂ9P¤8ÔÚ&â ęO°Që•TČ’,NŃ NőZŐÎĐ.˛M•@ Ő¬ęî¨A+¤4·^ĘTí˘4/‡_E•^˘”3°/#DfĐuě_Ŕ-ČŽë$Vg]⤰•Đě¨%Ą÷Y‚ňM†§D˘Ĺaěí]ÄL9"ĹVń?V‚Őa">{Lbĺ‚—–DËć,CÝ(Žµ\ĄŔĄ–me"oeuěŘvOQJAC:ëb‚–°Ň•áV8$Ś€VdREX–ěUnŠ Ę%J¦üëm\ÇqmXŐžlJycđ=¶mkMkѨý–‡Eâ—mÖľ\ßC‚˘şŐĂ’8/ ) EYÖě$BŐo5×nŻ¦&ĹRŻ6eĚL\Îłr%•6CrĂěf+)KcWl7$ě·)^$Ä4Ct±?WĚŹ^Ăßsqf×aow>ě·BČ÷RĺYtöh‚–=ﯥůâqJŹ®)Ehf4'ŐHúćĺ9öB[ëć"+x–´#”‚˘bŐzăĺx®Ą9¦_{¦Ţ”—™{Q]o× 8·¤%¤î(—ąxwż{6Ž)oˇcóq¶_6ĺŃfĐ× mχe5{nWóou¬,Ł"f„#Öý ř OîDŐ<«Óž~DČi$FŇŽXkŤ(X4ő_sšmĺÎj§dV"k&AN-]•č=Â=Täá!ĹWÔ=ÂáW¨–~§ď‚ĽVIůjX{z¸jT’Ç„v_Ł &őjwî~hšDxŤ‚Vc…Âó‡Ĺ€dSxˇäŐŠ`r. nL_ŚŁřŠ)xŽN¸ľë÷•lĄ*Ř•†O¸l¸qŠEúëđéc¦ç8N1JĹŽxW‰(o-ˇ\o‚ăxźŁ‹Ť„"ď&âń…×23¸ŕrĘ …Xę XZëčUXk¨8ŁÝ’¸o’řr$8vęäŃg“6ą•*Ć2»…îĎ'«\ô7GJlĂşµIŤ•ŔZ€P€ČDF Kň\®Xé–ü ž „ Q˘”lK™„Ś€Ŕ’6„¨J٤?‹™€ Ył›y»ťŔO…$HŔ¤ ‚™ÎDl<č%ř$%J_6c#…[M]•> /Font << /F3 8 0 R /F5 9 0 R /F8 30 0 R /F9 36 0 R >> >> endobj 135 0 obj << /Length 4682 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h f9• S"4˘ 8‚ŤĹĐiôNĹ G"Ą©"ŚĂPďU)‹I¤ň€¦Y)•¤Ň°@I'ĹŐšŮc ‰G Ăq¤BE$“J2‘ dş!‘ŽăŁ/%¤čô˛ąlO¤č2c°¸o¦‘ę3[M´Ł;/ĚëÓyČÄj.Yx܉NLe ·Ô®ŔŇŘŁŽ3ä E»AŔŕoÖąSa”Ćt9Lf`€†h0śŚ>s/¤ćtőĹ%ҡ* ¤$TćĄ!ČlĄ*®»ż/¸Ę6„ę9„Ę0Śx®ôŽ+$„ŕPhĚ0ŤŁHŘ<„h *‹K®&Şúr©+,p”‹¤ ą%P*Fk˛ČËb¤†ÁĘ‘ gˇ¨(„› A Šć+ë¸P±f. @: ík¦aÂl°8áĂ*† ‚"Ş.A°a8&“šrą2«"o= +HˇtŽ†I!¤ťÁ@¦)ĘqĘ*ˇ‚-©2É3M8`+塢榪e>#´jâ6¬űÇ:çłňIŚá!@¦ţJŰŞ9Oń˙śŇęH dáâ6H ^KuyŤľ˝úÄ`›Öp‹Ă=¸4Č! #6>Cđĺh7 –±^C‰j é«©Pţ;TŻń>’jw]ŇLA<˛»Pj︹wzöâ Á:°"#‰ôćN9E,¶eřP0Ţ ‰gĐâĹ>÷:E µŽ~©@ŻŐśbk y’2d=*ĺ(u=!¸3‘ĐzAî ińb„UFňÁHyg`ÇIJín ÷9•Ýl­Ł%•LĄđÍ W2č=ˇĹż¦*Ł“´SWUh<7Îë©Ió¸7zěě{­±öÍĹ‚ű,ĺ›6ÄLîĆą¸ĄTş3¨ŹÁ›§_ŞťÇLë,ąŞ€Ň…%@o”‰ PA})¤"·ÇŐ(Çő€Heś—ńۤ,Pçî }ÎşÔ©Ü"™cň¦U4‚ŕĘ Ś54CÁł ˇ×É}ĂeůF7”­±RLN}ę.µ¸ geo€T¶`€ű]Đä8l=¶âú/©Gsťá=Ž9ńXşCž¸†ëś`@™‹}†8©CB Š Č7ÔčŽŮ a.Ďĺ_AÜŇfŚŃ˙?´{Ł´"LŇË?Jfuôv%F›ó+Ű)µYćśĚĚToŤiˇ$…#DD CHîĄ5¤Ů–ÖRubL×úŔ—%Ă"Z‹ĎD‘´‘lŤ.¬żŇ*|l ­Ö~ĐŃ 7LíM™·‰HŰ%m«˘w·¶¶ćŮű“S'í˛ö°4ÝÚ#mjfÉĄ÷¸ÔűŻhšŐ$«´FůŃŰ˙Fď]vDVRžE €É,BSµH‚ť) ’C‘˘Y­ŘË+…ŞÝîÖ49¸3 3@é=ýÇÝj8Ö¦çVľŽU±8ö$§cUňÍ5Í9†űY­FěvNů1.Ó:Ź(sŢmŃ5ťŤzç•ň=GÓ9†˛Ú_[*íGÔôá­\|Ém`dK[Ksý)?tq¨‰O<č&J5¬^Ťłµní|ë¶ňÓ»®ş3Ëý&,+ť0ל$ŠđÍÝ”ăfÇ{Q¦ćłňtă—Ťô€hH‘ "Ä`Ť7Bš ©Wć‰7‚‘/Ę4®w…¬–o'éŠ1¨]†sGďw\Zýť$¦±4´ťč}T†ő„{Ęďqđ}!ż€„™ˇosěý)r~^Ä“}ZjÎů â›b!č˝_ĽIq‹ďű/vKÉbW?óšŘv=Fť Ü‘/寧óöž¸ä{†UĹ–ÖäUĘ ÷a\üB€Nďňz¤îýŠppXäă±â ŤäŠ„ä$BŽÜĺźCj_Ää%‚†$ĂFND°TĎ`ýr)hG–ůŁX4‡ŞôEk"×0HÜŁ*.oap„ Ďëp-g®Žľŕ` ÇâŤ;Ąţ$€ŢńS@3ǵ ÂŽűîxWC,öŁjNÔ=ďh3Ăy ‚Ť2đ˝Ďjł/żC…—T0,Tö-’ŤT BpYĂlŤC~ňďóĐţ@ç“iĎNk4n.trőĄt˘Ö-B pLôĂzUp­<вi3˘Ü, G±ôzL*ŤröôŁGÓ‹%ŃĺHdšX“ČŰŠţQŇŠ6’­L´ť:â Jô~ăOúá ¸ŚT…#Äp—ó i3Ź/C¸˘;*ŇđeONĐ"ÔF®ş(ńOr nT†őGÝÔ6ô”Y’pńP4“Ł.($Ě S«. MíĺFŐ$ßFË ±Q&mT¤v;ÂÍS´=*˘Ç5UDĘH*B˘i"ÎLćn,ęŻĂGfŽ9cIuŠý&o+“éŔoWń Ç’ÖsNŤR'Żę]…‰/BŇz±xőµ˝%ÂAPł p%Ň% Ĺ×7âr(ďŐP’>Ŕđ<ŇŐĺYĄ±đLŇÎżXë2˙#Y^C‘^„ŚŔâYZíň=^mô×/Ť_B†řmä)ź\%‰\e[alí!®żZŇ€ĐńŹóB4Űc¶IX˘˘ÂNu…Ç8ő€ţł» âe4/#ck 6^˘bUł'bŃfŇ*$Čgb)B#+°f¦Ť 6“bj\pś2‘LńvhčńhăYZđ©7ÖŁk$}Č8peÇi±ÝÉąk§AUO)ż3d}a2€32$ŹuCĎó>Ó°ëä1)H¦ŞÚ˘>řvK<Ök=ńőZçB.‘Ź)ňą8Vř˙µRą2–ËHVťqqíqŇŔ·g,˘—í“,Ĺü$ËP(ÂÚŞÓhGŃuCKaöĆ÷ÜV>ŢH8Ž÷U*Ö5m¶˝v_t7ńßt”_2,.s…OCmeR7r⊗äę-µŐxŹżucFřbr&ąHep÷ĎH†bô.§\Ö™vJ „+mU2†‹y˘Ť %=!Ç=+V*¨l´Śůđ«2Ü€’~i/™=¤zu÷©ejv˝x $÷©fS0÷˙€íýjĐ­˛í5Vd6¤ GŚ((w+P¬${XV)‚“euónBŽ6±hIV#DĎ?0 üq7>VňIC°ź…vx&¸lŐŕ8şbwŔ-wÄu“‘[8DÂtR·Ö#ŹĽłBŐWÉ+‚IPPNä„ŞLůUŘG…=Rę.E˙ -q’Ť;¦[ŚB猓Ť ˛ŠX¸ÇfńÚńđzĐ*ˇi’UäxVlŞŞ,B‰„UVivŮqyzĂm)öä-I w¸č9 Ů¤ "1ŕčL«ą\˙/‡’ ł’bÓq8„&wĽ,Š´×úô0Ë3­o”śh8˘}ř© ‘;ńŕţ >Jz řĽ&/»)ř€ BSŞ ź]—>3Ň ŻđU‚8/‚Ű‚ ™˛ë …0Ńô–gX9±C›Öő‰xI`pĘ#ą˘:óUnFäţ-Ř€Ô3»Ä”Ů0;±›‡%BYťňű‚Ř_kyNŮR'9WöŁ)‚Řr%D…‰÷ŰŠE?~ 9ďĂm‹GFt¬ ·Â–wĆ-—ë7Â…Wúš7Ő–‘S˘‚S~ýv0öt(ĆŞgî´š¤GX_Đ ieÇ'Eť–gő˘ym¦˝?÷é‡%’†©t+zrfşFŢDvD†o\GµĄz‡–·ß§r!7Ő§“éŢHIs§AÚtô8ú;Ö˘9fͪ⫢ZµŠwŕ—ń2w±ď_in Š ¬„ ¬Ú u”ĐźĽR¦Ľl0Z*H% @@ŕA‹˘¶ C·µ{h@ @ü „ŔMűŠmłD ठ#F$g˛†®÷{0Ź€Ał{;łűW´[Ogj ‚›U#a;#&4ÜţPB"(p7‹ ceš¤ő'Ş˝m›7Őnřűźf÷ą•‰¬ąY¤{€‚Ů]{\JŠVĆ&—‚uG’J‡Áë@* PĹĚ·D> /Font << /F3 8 0 R /F5 9 0 R /F8 30 0 R /F9 36 0 R >> >> endobj 138 0 obj << /Length 3421 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1EA€¤¨jł‘¤klqąÄň÷q„â@4Ű$ÂÚ ÂHT;âŠbŇi<¦ )–JeB)4¦,IÄ1v; 1˝I3<t’Ź5D/ř}IlQz¦Ă)Śčr4Ě&Á Đa9zĆ^ÁĚéŮ9ŠEµŔäiĎ ţ"’éP•ľÄ8|Đ@!łD«Á€`Ę9Żä˝A¨f Ň9Ž`Â<»ŁxÜëŤîŕ¨4ŤŁHÜ3ľŹ˛ ˘‹’ŠŃKú®*nXP$ŤĂ€ę:-‘E1ěŠÔĘ-Ďó2˙p ˙@a@¨ß©ÄĚÉČ{M#‡2HĂ&HHcüĆ@A´ĺ°-HPˇ¸†M2: ék&-ÂÖĘŻK䞶ŚP¸Ělz´Gëbܢa´äŔĎ!@†Ü ŇdŁ(Đ@şĘ’H¦)Ë Ě†ś†Źm+L“4Đ:°A8Ó”€Ž!‚Ą=†ÁŤQ@˛Ş jĘ´CŠµC'ADńlTE‘pr+«”“9ÂŔ0ŤŁ(čňA°;Ţ)Ź#hĹ˝A’nŇ3ŤÎŰÔTtT42 /<4őH°0P&ÄOS€ľICČá{$p€š0Ź°fB¨ÝvÄŻ˝9­Ákĺe Ď\Z-Upç z$ęĂ+ą ĘŤ# č4\á¨d…¦·®(béÍ!˘ąŻÉ0P+‰‚™&X¶'3óă˙ś$ ­ŚKśÍámĽáDĎo[¸a«M“ë…U8`Ź…s<1Cmg±VÉ[D˝1č[…ŘŁC‰A̤ňŔéÁ@‘qŤ  ËŽăă®C‘Žů.Os†Pv[—®ş"Î"°edi9Đ®$gÚ‰™hvî/IcĚ­&–Ę14V¸š…rĄ†3–,ŇéŚF.jďkŞęő–Ą­kšĆľČŐVÉłműN×UíŻÖĐn,†ć˝nÁ%Nâ»Ţ›@ĐGv)ByĎhŢŘ& Çřü›3ÉŰÝ3;$Ž\÷Dáóé•ů4._Tř^ůÎx+u4µTÔAŤ=`äÓťůď ÇĄă°çJ”ŢŰm ńÔ»‡Äs‚1Ű;Źś2Ż`brZ«.}¬Ĺ÷łCH¨9/® g싟âDćĂ4˙ÝË}€mJ»Ĺ»W´ P8Á© ˘&‚Ä~ C2ůŢúawa)ČǸ „‡¨ű3î!ŹŔÎĂÂÎLPD‹Ýˇ4G #{¨„IÓŢŐÍ2^ĐĹp@eA1 ĆĽtâŘśiĹ846¤ţZ[amĘéę+ćÄÜĘP4‘/id ú˘Bz7FČá˘FóŢRšKEí# ĺ(Ś’Z=Qä1(ÂI-’˛™hIl )me ¦1&ŇŞJt>%FJ+üd[Đ>*J(°@ŁeŇ‘tô©I€Ś”ĽÂt mOLxh¨dĄTň^h–ç¤Ĺš˛|VR]Z(94ŮçÂĽ“Ę®;C•Ść*ač f¬ő˘´ß¨-‰ Ĺk­•¶đ7\ ‰r.fćşBë]ˇĄw°čÖ× nkŕ*/Ąř —ó`O­0‰&[#ň‰íEfőâě_BČb1‚ŘËáTi…‘­šFŘaS’LrŹŽÁĎĐb@ź*yžˇ€˘9·2D ]rˇ"„8eŕ˘ŕiĄË@“‹"$R(eň=UÉă%$´Ř§ čÉGŞĚ ´-.ŔŐýźÓNł@*/§¨®””lBkL2¸AŃŞ7‹Ń‚˘"FC‚ !”9ĚŘĹd €E‡o¬­¬ Aqę!f:I˝xĺőŞ1fiÔHTµHó[+eĂ|ŞłU 0ÂK]hl•¤´Ěť‘…;Ul“4• 79[zÜ­á6§łý´ŕT˛,ań8Ţ­;#Çl:Ý ďd“#QŻ˝3LŐ…­.•K)„{™™vv¤C̉ŕ¨Ď0TČN×-»4šA€%ľÓ†q}Ď%úI˙”°@ ÓBśt“"tŕz—‚I31«* ”¨ç•´ ¸2‚ăqu Ą“¸Ŕ‚ů†Ëëw’`E,ĘŘ•ŁŽŃŮłŤ'G&…ldqIUÉęĸ2M• ăµ)yd±ĺą—‰‚č+™ź2šVÝ6O+äĆ“ňÇ“ “µ*N™/¬őčH7%…Ź04Ľ€˛ţj*jßA’öµ 49:Ńú/A"^JIĆRŇ%8źe-ĄâťŇô“MEĄ4i˘šŹDj¦mŞ5ťYRŔq¬ăĆ© ÄJ±‘RµR:uˇ(•0ZX~Rż9ܢ´0@Eµs7Ę%4ťçLŻ”˛Ö«tŮ‹4ó˙·3nŃ~Zŕťmäűą6Ë6† S,nRx wfŖ̌űxiť©Ł÷^öÔď'o@b•sť ßú<¬˙˘Ú†~ďa‘«ˇa‡ Ń'ËEXôĆíAŰSŚéî-¬u?Úš›.Ôţ.KĺŻäDë”č›Éő¶äă|ł[ňî>Uwć˝Ůúü ćl ¸©}3¤‡MnH6Y/ŕ¤Sť€Ý'ĘÉ7Oá»ď&ó­ˇ°9!ĹăÝ cQCJTúI„(d|÷dŇ EÁ$ň$řÁ¤ĐG•Áję4Źxţ÷ ,ÜHĄ)ĆćH ||*Ë‘Ú— PhI•á~ ¤`ĎęʬM)YXµz–'«QIJ8Ł× "Zş †ČĆ>‹Î– gćÖ'ř…Ř–µäHýŻ˝řŔŔů9e%ô˝Š,ßč Ăb˝Ó•!ńrřź+x~/L RhîýĂ˝ŘĚN>wëď%¨ŞČ`rhI’…./ÚÂu"ăî˘PĆęĘĚN$E"hÎŤď¨őüOŻľPřđ çđĐŹ¨)`o…‘̧đ24/ŹŹ|̢FE rNIEpÔ%#¤ĺ0nPeNČőÂŕúÎYbđ¨Ţüo°€]ď®lĚŇPLNŚ \8`¦ ÔAď(n°ŠËęĐ#đ řĺqŻč,mđҤ/˘D4.ćm˘HMlwí@óâFĆ%pR$ŠĘg.8«Äřâ<ĘÄŞáâR›d«Üŕ`@–­ °ŢáăÚ>&ÝŽ,Ő¦˙`q ‚=m@jú+ŁŤ&ÍĹ $$i0ď ‚» hNJBúXîäéĐ €±M&W &Ęí˘ Ä  ¦„[/ńB%đ ĎV1‘Ođ¨P˱Pä 2#±w°üE/ŕÔŃ›-břđ–YQ‘ŤCd«Q] bRM‰,ľlĐ–µ±˝/ę0˘aÎ"ďLżBđ-OŽ3Đ%¤řôĐ‹ ĺ"mŃů§„ bÜß ‹qťđÎĘOŽ)D"ń ä] úem!qÂZ-Ćj@¬Q!…•%ĽE ) 1+ B`E„‹‘ő rBú‘ń ˛J,RAć–ű‰Ë1ŽËčdí°_ I Ńů(% u’t@Ňxř1Ź#îť-ńpq±ŁF—eŽí°Fřâőđöá ČP°ę¦”Ë 'Č,ÂĐJĄV&†Sb:Şę`8§™&ę†$’eÉ„äî C.µ¦VčÂy"2°ăg‡:G¬”&Č)qŽ^/Ä Îćú¦Ť2Ć»lRĐOBP‹Zę(› Ňą4RŤ “JAÓO2í% ŁÚű‘q3°~öo3†Ý4‰ ]“,±¤ůłJO‘ń+¦ˇ,đ€rÓC.žÄó0Ë*ňÚÔ¨bEłxHĄAđFE/+ä,˘¦÷óšłź-FžÉDXPAäf ŘŻą2rĚ,EĐ:Ť:Ň˝>SĎÖEĄI-Ęa>“ĆëM¨/ňó‡:ď&‚E1ń>2T?g.Ě‚Ü,Ł#.Ib˘i×ĚbŤ©ËAŻ2†u0!0ł$1Ň ÂřE ݆ Yss‡^2č3 g.ěNíŽËđJ¤eD„›4O0´TŰMoŁä‘3B(ćG´kCtpAâ<ŚŇĆţ±GĺHIÇE/• †÷N€I(mIČ©FÂň˘ň!đ&ÔJÔ`qóhĹ „ńf&Ăă± tÂFGëL”5.ÔÓ=Lí‡FF| „Mäz F$ĘIńQ€I€¨DőQ5%R„Ćžc!Q†rǧIŁ!2"FńpŻ6sF#„ĽnŞÓ?sh,t,›%€ ¤Vsç."Ž0Č<-„ÄĹĆ«ňˇ"–Ŕ@BD(¨`@ d4CFGI_2Ě endstream endobj 139 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F8 30 0 R /F9 36 0 R >> >> endobj 141 0 obj << /Length 342 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h h1• S"4˘ 8‚ŤĹĐiôNĹ G"Ą©"ŚĂPďU)‹I¤ň€¦Y)•¤Ň°@I'ĹŐšŮc ‰G Ăq¤BE$“J2‘ dş!‘ŽăŁ/%¤čô˛ąlO¤č2c°¸o¦‘ę3[M´Ł;®¨Ť»mÖŠ5đÇo ]9Ał™…r‹_śŚ¨Čj’2Č8×)EľĄQmFŔh·20µ‹išůŰr +÷qA4 *°ăpč2ŽC0Â1ŚŻbäŃľ*BÔšŠŹ°¶ @¤2ŚĐ R(Ý HR.Š‚PǨ endstream endobj 142 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F7 10 0 R >> >> endobj 144 0 obj << /Length 290 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1E1IPŐg#H ÖŘ,â s‰ĺ®ă Ä€h7¶I…´A„¨wĹŤŇyL@S,”Ę„RiLX $“běn PT$uĹ ‹¸'lű$’y8‚L&D"aśKŢH¶h6ńqňEŇNLă@-R®Ç#(6Ü€€ endstream endobj 145 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R >> >> endobj 147 0 obj << /Length 5188 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h h3• S"4˘ 8‚ŤĹĐiôNĹ G"Ą©"ŚĂPďU)‹I¤ň€¦Y)•¤Ň°@I'ĹŐšŮc ‰G Ăq¤BE$“J2‘ dş!‘ŽăŁ/%¤čô˛ąlO¤č2c°¸o¦‘ę3[M´Ł;/ĚëÓyČÄj.Yx܉NLe ·Ô®ŔŇŘŁj0‹t!ă­s Ą®Üt2śŚĆ”@\Ś¦aHÄh(ô™MŢŇŕ¤R.Š‚R ¤$TćĄ!ČlĄ*®»ÂńĽ˘KÎô˝okŢřľoËö2ż¬`Ç*H" ‰"‚*2Ar@ :P† B‚ˇf“(ŁĘÖ H"ä”"I,Ś#@hâŘ!”†'ÁpsÁk(Ć‘˘ä*(j!pf7¬Ż,„¨b“KíóZ(şČ@ŤČ딓%¬ł”ˇ&1.s#F…ÁÄŔĎr´ú˘Ĺ“EßÍ’$ß#ITŁ&IÓĽĄ*PŇÄ´,SM´şó kNKÔXPPíc@ÔŃ‚ĹMUJE5UŐHlˇÔłR]FÍÓ…#:R’xeI SŐkX#Ş@b·=ERSÉ`hLtÝ;SZv¬Ę'vŚ×6ČłŚťIOµ‡ Á9ĽďOÖŮÇwŮQa‹ó~L9ćH2Ł˘őäšöaĐ´«ČsV@rą[Í%´{}_˝úüĎ«Q|µ0Ĺ™aľńHdőnT2×Ó0‡¬îvß=ř]‚O|Ťo?Hęß[†}ĚA`©gäÓYJ;­MfARGÝZJx^7d˛­ ›Ă‚Ä•Ó&¨TŠ3ŕʦPd\é–e¬ DÂäpí dĐŐ3łF!Ě+…ŞŽ&sXNaSA…„@¤T \‡`â&%ňxZÉd:‡€Í ±s8ËbU6«M’Č‘S+d(ĺ®)CĆś "4Y†‘R4—#*š˘Jq¨µDxÁˇjÉ.fŤÇ2 GT´&±ČťĂU¨—M!E‹1˘AB ŁüzęᨒŰş8-°ćC&»˘ €“pÁ-Çĺ8qÖ¤L-îÉç>ŠŠşenLöIKtŞMX"h‹ ťŚKu-!d®zíUM—#nĎÓ4AjŚ“BČ€Ţć‰Dš`Äťż™.©ćY¤…Ó9É„­$ [‰tŞ5  ”âťi:wG¬ł cáö{9đ—“O)ěĎrP— 4íŔ±”T¸ "˘ śĺŽtĎš ąĘ˘V]‰~‹(Ε‹9”ź4%u–‰CgSgPE®ŚŇsIJ\ěüu@ÂŽO9ÚD(™ťLnz©'I'S‰–n%éÚÁÝŁOÔr‡é*fK« TôUTaz^Fô«J°‰F©,`Ăř+]¨sRłŇĆ[M"y­ŽF±”–¨ë(uÚiŐgVĘĄ{ión©’ZÄ ťr©•: Ş4µbÉE?OibŠ"·4GČ2T"”6 ¨ 0[(,ţ%B.ş[AA ąÇbńŚÚihâ„;”t2qEJq©4č˛ÖŢČŮ:7-±'·‚”AsjGču.¤QBŐ{Ydé –´´.™ŃȡgŁ…ą˛¶vŮk$ŹČ‹ÍdM!迊•+úNń13µ4«j•ík-}@ĆoŻ:{‰Éfö(¤ÂŤăŇZuKť˘ľŰęŇY+_O‘rÇßéߎäLŔq•oŕf¸ü/ÂyS őßŰÝS[š0'x ĽěypĘĆ.Ť xĎ/{]·Ūéöbl/Wü$v5¨*FŐ‹Ţţ>p·Óß|s~Q&Y ŞââGŚ1ě°ź^GŠLľ<‚NQAäA—1¤ Äů_#á¬w’śužÉÉš»<Őr&VĂ—E×Rbf{ö†ů…˛źČ†!ůUčfFrł ‘HVë6“»ÜĄś0¶rÇ ä«ć‚Š ÝV?P°n·ĄľL ák+ää±rŠYu* ;…çĘd» ‹YŃě v¤5§3’€¨ ¨I áH(ˇâsőŐŞ°ÚüŞ… ‡‹‰Č…HĐ“kŇo°@W [B;Uí¨X×V×١)í‚]Łť6űpťłő˛ Ň:9ł”lqÖDpn ś’9˝ôçf„}úMŻśô~¨śÓ,]Oč’fX˝ő3ÔGęVzž5I`«,%Ă®˛Đań܆9o.}šVXe§Űâ 5_Ň븉©w€c[Ç˝8#ÓzüČ;© myç>áüŮ­é,Ť˝Şö!ü+~±n—řFâe‹jrĆYérIWעŢB÷.¶Lq·í׳Žđ+{F‚dk¸5öŘŰHy+Ł>ßµ»@RÜś”ď>ŃÚýM'oniđś»A VđĽ;*s~˙Ęs˘ń> M>{ľč"rň©—Ëó\Ĺ‘|9đI;͸+Ýeâ’K$b*bŁi%@Q%˛_&#j$ÂRn 2s'rz ˛~GŁ`HŘ9h¨Đ"Ź2&×3ŇđńBÇ3‚XFk3ęL6ł5/+1"Ś‹“Dń˛ŕNräČÓ Éc5‚Žv˛÷5Se3SjOf 8sC0X«Ó]Pß5 K0s*ÎsvĚĹÔoŇđKča3†4›ł˛ňó•6Đź:rć৉5…%4S»8fĺ<3Ł6ó :“Í; !SÔu“˝>¤»=Ó>É7N S‡łą?9ó$ő˛ă2Ǧ`S|ßS”dčAó7A0i7śFę«8ô"j‡;;4=:űćQFÔ«=ÔŻ7ĘłKNJŤyG$YFË)KÓň(ËŰ=ÇQGtÓ:ż5t©As2}L´ÜaTÁHTçN «K´ÝN”¨,TÔx”ŮPS yŮg™s˙Ešł3”>Ş”l–sŠ6“©¦=Ő18u%LU Đ5>›ń5´ž_Ô˘OdÁSÉ@Ą¸8ó}RÔÔ`µcStďT"Ts—UsŃWBYTłĄTĺ…U'Q7ĚCő‹H[Htř(ÔÇKFĺXÔäŽSé6u¦¨OČňÄUr‰NĽŠIđ9ăjňiH[˘P9ę‰&şuşU‰zŚőŘXiśŰŐÁ\ăP ›\¤˝\ôµÖ$ëM^ClŰÉ1[v]Čv˘µę!ďÄ| ®†uÍa†‚•˙[…8¸ę+`¨1[ŠţtM×ajţŐ6‡IđŻëdv6´Ö:KÍ×cUŮFäśj) b'Pv‰‡d‚…‰,•6 fśADÔ')^9M_>|N(Ô» ¦×iN@(뎠Föc» jŠ]i¶„zéW-đIE?Ü(Łž,älmvÉUr‘,¦ś6KŔ.vÄśÇT]ÂĐĺ…@ťë(Š–ÍoCh´a‚Ňߡ‡Á/Ó\‰Şq JŁ¸&Ş'o¨¤°ă¶î40¨O«Ľşv¨÷7róZP38--Ym3M_óqbjĄłWtŁ–t·$¤çÁ\÷˘W3o)ip+$(ihóuЇdX©ŽS•E ÷†ŞĹ—l®$í§yN.9öâAk67—nqĺ"Ş“xŐrč swĂ‘x¦ůZ­é$Ĺ|Šę9 P9é`• bőÚZ—¨­âM~M‘y×µ|ősyÖ¨(^ŐC+xKž'*46ĂBv6b&¤©o°úu¤rK7q3›¸%pjާŠÝqĘŞ|$ÉrpúĄJkw"Ť„Kž¸—k„Ąe„w^ŻX<ą8[1éŮqł{3„ż‚ĘMPJť‚S€öń1âĹ‚*'+Ŕ"UXDoU"®łÄČU>˝ä˝32˙I”Cĺ.¨ś|ţ¸ő\Ŕ˝rŁ2ósĹ2‘lRęS+×r¸ą/b®8égoř”KŚ”2ż)~—·>óE‚ÓŽ/YBóă<¦Fe;3hKó‚ľY ´-řęĚÄ`€™ IsĘ«!©Jż”lIEY‘$Ń;9@PYTŮθŁOµ ’µ2T“ůIĄŚµS“Ó}JąLPPąCŹůŠěu’9WM Ą•Ô±ą|Đ”Đ9QyY¤oV˛Ë9 -Y{Śtť•+ŃłmŘŮ|sX2ą˝Źń@÷ŃEŤ˛(&Łą\wź—‡#mjímÔěŤxÜ1˘ ŻÎÖĹdŃt3 Ř­ ĎŠîůěۤŕ®Ű‚ć$Ťľď ďq„Üâ Ú1ÝŤÝÎMX9´śą34RfĄ=?“9Ë$-*‘JZyÔĄN@;Žµ!NBďO˘ ’—ůYŹ‡Ż1…âÄuG-¤®)¤ůÓYÉŮ*˙ ňÁˇDb$Ë.â*şLZ썫 ­›ˇč,s+ š¦äQ»Ł3ý–ŹaYb¤xŘĺ“Xy[—Ů›¦ëňôs”Ź8ž˛“®ÚH÷‘BŻDď„ÔTĆŽ´šŞ8ů@Pů„jť%¨ú¤ú€`úÄ@ZűšTűŐ6¤K_#yň+zţO!çZ ˘jFç(ŮqčţŹě˙ m˛±ó˛ďű łAcµ Kš_‹ŕą#K3%‡xӚǚ5™ĚÍ9‡lóď[’l”Źąů@™O¸şĺ¸ĺq§Zß´¦Đ;ťŻmCśŃďĄ SťJN2˘×©#Őąŕd%—ŃPF‹TÝ‘{˝‘“.×ĺ,›é”ÖČ&Kbת"Ž.­±· ·Fć2˘v*÷Ń·ńä.ŻË»` [ÇC‘ˇ| ®CÁ/ÁGp¸— hĆąÎC˛%ť-1öůZE\9p Á1ŞnrE@sĽíú-»:ü˛!¦şă@¦ŠÔw‹4^ßů ŤyÉŻ›ÁÂşS©† ¶rłÜ{ůâ+’˘,Ą¶4Hş"iđ:1\Jí¦ ‚©ĄâÜ.ăŞC˛„€P €Đ  ć=ŔĘČŮÎ@@ Ř`ßĎ`áĎxśţśâ/ŰŻ$űŹ Ăm´‚ Yr´>'BxOş;®cĚ´í 9äűŞ”-Í€)‚©±Ď§Ń\gŃŠע’ďĘ=+ˢËËĄ—#ůěüŁSV…­pťÍëJ¶:|×͢?Íýú=RúŻ®@]Ć˝Zçb&ÍeŇ„=Ö‚Öɢ+ݨ$CŞBďę<ŕ ÝÜ€ĎĎ`ÜŢ`Ç'@Ř =CúMŕßĎ@Ü ŕéŮ­o7׹ł­€Ú**:`P ÂĂÜČÁ&śŕ=ŔŢ č$ †  Č" ÓĐŢ/ Ú ć€@ CÜ = €Óă< €T:Bî Ŕç``0ÍśBŕ‹Ţ` Ţ2ŰD/ ŕ®?˝wr€"’Ü@b€"k(7ÎÔ^ščdÎ5|r)"DY~—ę¬h;`AëE››çëĂsb˝ę&OlB)Óc~ endstream endobj 148 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F9 36 0 R >> >> endobj 152 0 obj << /Length 1752 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1EA ¤¨jł‘¤klqąÄň÷q„â@4Ű$ÂÚ ÂHT;âŠbŇi<¦ )–JeB)4¦,IÄ1v; EłA˘QA„V´5 ĆApĘAČľçdŃĘ3Ś¶:˝[› ‰D"ŃĐ4ăHĆchd ű#É3&90ćp3Hsno®ta\;öľŔbŞ(Ż @ŤĽď|ö˘oKśů!Ź˘ /AŚ ˇ›úö$Á‹íĂń F±%đd=SŘĚÂOŚ) :®»ň‡†ĘT&“@ ÓđĎDZ\Ł0{ÍÂq¤->o«ď´ $~CÁpq*9R2ÇI1„$˙IĎ„0GĚ·"@RĽLś@“d˝7ĹĐpś!Ä,9“Ś ;…ÓĚ÷É,# Ldk3„ìHhx`Źďô€ěRĄ&ĄżŇ<_%Ěqť'Ń“LE5ŇKŐ+ ±<üU;/вUB”\o)S,ü˛OOüŐ*Wö =0ÔED÷T•ÚaGŇ!rľĐOý1hÚt ŤZSőĽ›QĚÖtOlVU`eażKÍ9Ał &Q6eĂ(ˇĘ•T1‹…Vť+Ĺz‡Ř\YvÖł•\Ů·Ąí-JŞĄK ˇ’•HÄ|÷~âxlE}Ą°ňű|¨ô'ŽâWřh®ŕY&3"/¸ĺë{ʶ[YĐ3 ˘<˝‘o^0­ç ¤Đ O»dŻˇaŚřnŹZ©l˘_]µ=éúL čŐž‘Th˛đĹ‚[·…—źBöpbhlřiMŰF­“í•ś=b$çäŰ\ç·_ÖFëđbĂlěđp@óÖŻ2Ë€b°$hřl–qˇw@ŠVN¬\*?Ă„M °Ą«rĘČóŚ˘Üë;X癩ÄDűs'~´MPŠ"qî°Śß «ëńÎFŹ{L‡Ŕ`övÜ·pż±BxŕuöűÝŁFÓ¤ôt5żÜ… Ę1Ťă Ę9xĽç"9ŐßPáüŃ^b‹äW NeńűoîŻô•‘p ÍđfĆŐ›ţmëI/@§öŹ•šăJ‡­/3S w™Ëa~ •˛ŻC¬\x6(‰î$˘¤ü"@`ČĐ´ĺKS'(‹ěę  nÚâZ°*#Č { L5)páÍž•‚ŽNlD?ŇŔv”ÇŃŤ&Â!óřáÉN"€¸@txĄňçJÇîąebg"ŞD„qR)8 ˛UÄJ )Ć•$s¤%K Mś·- H‡ŞÁÖ—s«á‹ËDzDE6ľâ ‡†đĹ~µ9 •˘#ŹEkž>+ä…b TN¤>M8ŁŤ,^‰e Ć#úhUz„D‚Ę9 žá‰ŤĐiÇ%J%~? LÇ©9 łđµgÉ‚Ő0ä\††Đŕü/¨ÂţbLĎ[+VHÍ9´^Ąl/šť`HČšV‘ž/1JZĚ$NČbĘX•3~hĘähOÁ8?2Ň`΄ô¤&,m`Ž ‡„G^ęŔÝs6çóŤ ‘Žąĺ‰w˘ŽN‹˘ňA˘ \ďtśPĘ4¨{ÝdLJŤPwjQά@& I¬˘»Jäd7‹Ţ’şr\ ëÜ+´xžDuP^ěxŁ0°š6ş€é4ĄŐ>‰E'LY‹C©-Ž­á‡˘ž3±‚‰éÚĚR—O€( Ŕ.đ-xEL*C[kyŹˇPWzÜ ^|0ćĄđ ü 7Ż˝X Qbě }H"ŔPBŕ)˛긗ŐúH+­~Ż&BÇpĄe‚/ öfÍ™ :¤+Ąv±őţČ ¤B›Ŕ§2S([-C·5éő%h2ÎŰń±Đë &A!a3ta˛cľůz¸.[ó&í«łľŇń_÷y”­Ë‘îÄs»SÝ·şůĘÍ&˝ËmBKČăzeýŰ2óˇ…Ţô€QçsšľŚÓ–‚Ôę)DŠ(ÓKI–ŹăĐ †•ăšHg§iĐ©€Z ť[ ł\âBŽM_Ëą0&¤-‚‚”@M T܆ŕčůĂ0a a”Z€ĘK¬ś2†ěwfAMrčbč¸ BčT @5ő endstream endobj 153 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F9 36 0 R >> >> endobj 155 0 obj << /Length 343 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h h5• S"4˘ 8‚ŤĹĐiôNĹ G"Ą©"ŚĂPďU)‹I¤ň€¦Y)•¤Ň°@I'ĹŐšŮc ‰G Ăq¤BE$“J2‘ dş!‘ŽăŁ/%¤čô˛ąlO¤č2c°¸o¦‘ę3[M´Ł;®¨ŐöÚ!­j3‹‡o]9Ał™…r‹_śŚ¨Čj’2Č8·)EľĄQX†Ŕh¶8J=ÜńŤ|‰° +÷rŘ !9/¨P4ŽĂ,.Š‚SÚ¤;¤-I¨¨ű…HÜ:ACŢ7 Ă(Ć: 0řćö1Ŕj endstream endobj 156 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F7 10 0 R >> >> endobj 158 0 obj << /Length 290 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1EA°¤¨jł‘¤klqąÄň÷q„â@4Ű$ÂÚ ÂHT;âŠbŇi<¦ )–JeB)4¦,IÄ1v; 1ľÄ3<t@d0 Fr ţR(* :ňŽEÜ“¶ť˘I<śA& "0‚N%ď¤[4 x¸ČyBé'*qˇă>'#(6Ü€€ endstream endobj 159 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R >> >> endobj 161 0 obj << /Length 5855 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h h7• S"4˘ 8‚ŤĹĐiôNĹ G" ˝(- †ˇŢŞS“Iĺ1L˛S*IĄ1`€’N!‹«5˛,ĆAŽA†ăH„ŠI&”dâÉtC! Ć6)FZKIŃi%rŘ,źIĎä†#apßK#Óćv{YFr_1™×¦ó‘Ô]˛ńxňśĘ@TĄÍîűE`)ěĆ1N­Č@ &Č‚!ČŇv2ś°Ć㧤R9Íćăq”Ćt4üÎb’éP”‚© “ą‰Hr-ÎęđŽ-ö@ŐĄÖH¶Ł!÷¦%gâ“n-Ś,·î=ŚGáËj-x>nšÇę@s\enU—^Ů…ógć•šD٧a”…ŘuÁwj:žhâEť‹f)ög|ŰŹ©äŮ k9*ăŹáífŹSëő^—±ă6ʉrG᥽_ďKÖ¶ěŔqcîJ’ŁďX_ŰőB\Ăih"‹Žň‰d°ăJëdQo(ĽđaÇ(ý%Î5iÎë|ZZfÉZôyć;ż\ý¦Ł\Şü7”Ű8ŰgĚŁüß)Ú6˛çŐxÍ^ĄÜ"w^ôľáůśźZß«‹\xŘ´…Ąbú(s† ZŻP;ks¨* đ`ěFN(Q>ďăý ¦he÷’ŻeÓËÓ˛í]Âs~ńíŕ(ËA.Őu‘p(É)|›“Ďé˙±ˇň–":]"ĘÁů?@pýźĆP–>H2˛j §}ą˛·5˛čňĆÎ/;°ë¸¤V0ŁD»'í“k»Žîýý¨ éJá©PŠ®Ś<'Ś!„đš†nv)š'Eżv5f:%} ş˙Ť[5…˛VĽ&óĘXN@ °‰j‘VŐGë«iNÍĆq÷?DÉÇiî}/$˱ ÝóÔ$Ť †ÔÝřvNĂfX™ă%ÜŤ«ŔÍ­>%9§ťśă0˝żÁxçÚ-Äâ\ Â7á• Ľ[ď ÉÂl˧ŢĆ×|qľú·S ¸ÄäçhiҦĎ9Ëżhç>cŹŮŇ" Ęaťâ@sąĘ-P’ŕ“R©Đ —B\Jß4s8ţ‚čA·*růŤ€gšŮžŞôšőL :śőK6[›^›ŘłC.]¬śíĂSAÇ=aýËíŽa•‡TyE ¶wŽ˛Nsn®ÍúÂţ>W&µ,™(Ą„PńŤĂpa “Ě6đĆÔY1૦D«wXÓçBŢje Ţ9Ţ78Íś‰ŤCqo8Â|÷¦đ±ŃŢ´˝şE)*ř督“RjO ©D“%Jd–0Ć P$1A§ŻwÜÓ5DMHú’űuŕD=â O ëăauPjZ_‡ż?Ţ•_Ą˛Đé­D‰¸ĘT>˘’EĘUŁ56ŤÉrž±ôíQ‚Jif8͢çŕnĐČ4jîâľ®§®đz˘]#j%Gžsg]ĆtH:-+2Ŕ¦¤gF.p8©äěĄ ©j-"â_âŃ"J—Ą˛žđ ¦uçścë\-ş“mĺL¨u+í¦¤{kěoÂ:ŇëW®PŚí†xUđ–7Ëě3 !đ]ejE+ Đ„Űđ‹âÖvÂĆzz"O °‚ď ľögşđ@éŇ,°. ÂÔ6‚ÔĂĺĆ*äIGŢŘĂÄŃÍ §ňĐ-&g‡¦Ăě^$‡Ž•±Ĺd|äĄügHk $דb`˘Ć$¦Š\L r? GÄMM #X\HĐć°ÓÉ}n§ íżŚ"!đw …Đ[¦ 0şš1.ĽB 0B¶%ž†đ6cg˘żËČä`jFbün#;L|É’Ŕ§hoĹ*-Q¶H…4$ç—ĚĂńĆE‘ÖŹRčńŇyd±nçe*K§q W‘łĆާqÜ$Îâçĺ'Ń‚$É6ď$DĘ‘ć4ň|ŃŘA˙ qłlĘjR"AĘ91Ł24Ŕ˘¨ĺ†xj¬˘äR°ěJP-R›Ń4ľĐéŁDŰćŕ ci¦Š6p„H…‚ľĂo'ŽđHŚ€(/L-MŻ"˛Š‰ŁX‘Ł^ĽCD‚Ž“„hŔbť*j0HŤ<2iĘmgq*˛şÎÉ pě`H„‘+С«-.ҡJë#:·˘+Ę|©ňPbĺ©#.ĘŚkíhB˝ĎhĆsK°jń––4ŠĂmP§ oCBălÖ¬}$wkĺX-b¨%ŐĘ,Î Uě®mÉyF˘ŞU;ł@€7 UđćMŁE§Ěo΋A—.E„ěÇ1Ç<Î…ż,¶¸ÓzöÜöôŇHsńB‚H-Ó–I„śJ6;ě,¦sžPlüŽż×bLŐ+wXH/âN)¸®7NäňL7r-7vůd˝wĚĘ8·—xb ţ7ZM…Ĺ÷”ű@@Tt¦·yNďŔâÂĽŤŞ::—Ä1@Z#ăŕB@@€Đ ćžcć>Łî? Ü0·čř`Č č @ ŕÍ~`Đřwž ŚMB¬lÄ ¬”V Qŕ@` Ż†Ć¸ 逸žK$Đ1Q U„®B×X÷Ř$ñ~P-/Bř @ę ŔĚ="~ăę  Čř`Ě ăÔ 82,l  ÚĐ«Ň ŔĎ~`î~8$8ř`ćŞăĐ<¦ ç… &%@Ň©$Ô§ÓNÄÝt.°*/ ‚Ö®U݆š„LăřáM«ŚxíŚĘv98Ô-xŘŔěáU.ŠéŤÄĹňÍ,e¨AŹĐ"xţŚpyDŚ…î`ŤY+0IĹ0´Ę,xÎ÷&ŠnŠVóŽçNăC‹•A•MúŽąB"úH9JŹYNä™_‘F®X#E—k3Eő–yGŹĂ·Ťypô.‘, ĽŻ@Tps‹ ¬ĺä–¶G E -e4™˛l°‡›e)`®úî"jSY¦áů±ŔEç¶U9!”™Źôdoš.- †Őž–ŤöÄ9ѬÖ`8˘ŁHí;-Oü§âHá·Kł˘ łĺ¨Ú®Ź´Y]EŁżÚťÚ^˘¸›Ľ`žÎŠť8}Ącížş–žqĄŰµÁ yçűsč^îqýÎL_ ôÇĐł Z8¤ŰJh¶„ÄOżüľ˝^PĘžTĂľX-Ť=(:Îż GnýäV6Z'”Łe˘LÝ&+kĆĚ˝^ő)Ńý7R¦䦔™?"źń2Ľj~$żuzýVÄý(U},ín§ŃÄŹˇÝkeJ©ŇLjĆýxů_!ő-.¸ŽąâŽI¤Ł©QuSUĐĂď ÎPÍ<ĽK:ô‚‚EÚăüşĘ• s›U/¨EŮGÍä  !˘ň0ä@1 ŔŃŔ¸p7A> /Font << /F3 8 0 R /F5 9 0 R /F9 36 0 R >> >> endobj 164 0 obj << /Length 3173 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1EAŔ¤¨jł‘¤klqąÄň÷q„â@4Ű$ÂÚ ÂHT;âŠbŇi<¦ )–JeB)4¦,IÄ1v; EłA˘QA„V´5 ĆApĘAČľçdŃŽ0\1Ś¶;.FŐ”·EĂK”3ĹäÎ „QśÓE‡ÔŠĆ“9×µ!ń‹¶R'`dÍň޸ˇ‹¤ľ OcÜż±B<ď*„dľąďjü“ą B›ř˙0 ®ĚĘęaÂ!Cpl¸ <¨şîx`čŞnŁ¬ěÓ¸ł-úŘđ¨ŹC3 ?íf”Ć/“čű ŻÂô  h"†$CŃöţ†°ĽLČEp(A4Ĺ©$ź =áD- śŽ‚ŻI$—<ˇďpn"`¶'@&b @"CHě2ŽMČÜ:RHr cxÜ7 Łč4ÓCRęÁŠoBÁ€R.Š‚SĽµ˛łLUŻT,ĐĐA@TľÔnPp #p@: HćS4Ý;OÓMʼn*Ś¨č<„xÍaŤ¬E2LŐ]Z“©sRôĐĐpe\C‚|g4@•šěç UĽâ’ŽŁč R­žcŰ*Ś6=0Ţöµ±mDs,\wĂ.)QeĎ8ÝPd†M)%t1MěN†śr˘>Ó€mMč[_NA†Öµăę3 Ô‚cÓ(É*ŚĂ}"0ßÍě2ŤˇĐ0ŽĂHÜ3Řc¸ßjŇ#n…*Žcf™*‰‚’9·µe]ŞęłšĽ˘(x@‹#ŇaZ…Ő*!R塰rµ$Îr•ą=aşpç Ę®ő¸şŻXp©4ÉŇFŹGy kĂ©|J[ĹŐ!ŽIRäApµ*®Â<˙˛şëóI×-–†ű·Cц=/:óó/BäÜŢH“tę_Tvť˛Ä—żë×6Đ÷ŠPho €aá~&üyĽâĆ0ĎţDňęb–y2ok´ŢÔ˙éx=Ż›Đ‡ ě.–y^żłqű‹Ýsďá¸sŮřŢBuú9ż·BóŢ‹ż&h!wţüëözĚő>Xźâç~ŕŮôś×[ $ĎméăşZąŕ¤y-š3 ă–„Źˇ–¸sŢ ÂŁSQQĂ° G[ÍŚł‚ú–ŕ›Üz9ý~GOX9'Í'– h Š 9Gq&%Ä×'tR ŔÚ!DcÔUQl$­ÁăĽÂxŕlďH—˘ŇpńÉ$|dčöˇ‚oŕábŚń=ô>¨.Kcqăq1Éř’ŇÝâŚSx˛ äČł"ŁTl ±r,Á8A©ˇwPÄ<ąŮ!-rÍěÎşđ˙e c Ƣ;„V0)N\"·neŚłueÁ šDöH8xR Kă,\%«Ä–ĄĆTË—jčfY(•!ÂbFßâDP… ČőfB_`cs4ÎÖnDéO.fp/„É®s›6g8ś˛Ž8÷jîÝJ©vSzN"çţRž[ě‘Ŕĺ‰ÁD0HâtöpđN|ĐäAL)!RΙ⨚©˘®Š^Gy쌗s=RgH˘„¶‰ÔfYEą˘ăËÔá§sĹ"K(€Ů !ZRß59”đĘ #JÝDňńŃ&©xhRŮĚoÄŢT2řśSš'„†5B‚ uYiyxŠŹË$â…HüKVHudý0‹Ś‰  $4«GŽ®BsÇ g‘ÍŽ'9TĤâAxSBíŇÓ¦ăOOůužNΫTSURX]K9µ5Y±9ą+bĺ”±öY9.¸G_!1 «ĹÝŢĆ·Bx¨$/ &*7ą<ŹR‡`5žBŕ‹§t,3ň°» ˇp„W‘4şßžĘoŇÝÇz†zS:jejÝ© V¬‘˛'ĺí§$ĘÚ[cŠ íÍ»Ąé6ź†č[L0†J&ľkR!Ób·…˘‚@D‚Ú#ě„»Ý0dFA&ç1ćĚ6[(Ý1"z ůٲ'ôUn˛°-×f®×úľ©•I"´U8âYO ¨ •ZěťRŽš,ă%+÷”D˘ŤUGFřf6..8ßEđxq®0=çbřâQŢCŇ;ęYUD  -Ś˘É1Ç%¤ čŕŰăŹĘ”őĽÉ’?Śó©˛ŮÍ"úÖRŮ!Η“ůǸ‚Hbs‘ÍΓ ¸ÄCśgłE€9¸ůŐkłĆžËSW )=čsűh«¸ę“¬‡Î3‘şOmĹDľĺ2ćϝƚ„őĆDGqÔ“íő@çDű;"93ýŁ¸Pţ™Ęş{ÁĺÜ1ĽŁąî‹:żYyEőĂ™ţ˝ ¸ 0K…ĵvîŇýŰĚO:óűËwŇZ .ôěýÚĐů˙&J<Ż|íWWVÝt‘hřM;‚çWHÚâ;Ż*šĂS•}Â*·hדľ˙Â_Pĺď(ć+TX™NżŠ?˙5Ţ!YÝÖ9â-I%G돱ÇŰVß@›t€Ň›wÇéß'ÁuaÔ纶ń$÷úŰăűçě\ťćË:`ó®Ôć*1‡ďây§>öÎęn/J— ň­fIÎüĺ/ÝďÚůo´> /Font << /F3 8 0 R /F5 9 0 R /F9 36 0 R >> >> endobj 167 0 obj << /Length 358 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h h9• S"4˘ 8‚ŤĹĐiôNĹ G"Ą©"ŚĂPďU)‹I¤ň€¦Y)•¤Ň°@I'ĹŐšŮc ‰G Ăq¤BE$“J2‘ dş!‘ŽăŁ/%¤čô˛ąlO¤č2c°¸o¦‘ę3[M´Ł;®¨Ť»mÖŠ5đÇo ]9Ał™…r‹_śŚ¨Čj’2Č8×)EľĄQNĆŔh´g'Ťą”‹M|‰R»Kb‚ ¤fČŕ4ŚcŘcxÜ7 Łč4ÁCR.Š‚S`†(€Z¤-I¨¨űżc¸Ň: ! Şá@Ă ś*±Ŕj endstream endobj 168 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F7 10 0 R >> >> endobj 171 0 obj << /Length 291 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1EQ€¤¨jł‘¤klqąÄň÷q„â@4Ű$ÂÚ ÂHT;âŠbŇi<¦ )–JeB)4¦,IÄ1v; 1ľÄ3<t@d0 Fr ţR(* :ňŽEÜ“¶ť˘I<śA& "0‚N%ď¤[4 x¸ČyBé'*qˇŤ)Wc‘”· endstream endobj 172 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R >> >> endobj 174 0 obj << /Length 3751 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h j1• S"4˘ 8‚ŤĹĐiôNĹ G"Ą©"ŚĂPďU)‹I¤ň€¦Y)•¤Ň°@I'ĹŐšŮc ‰G Ăq¤BE$“J2‘ dş!‘ŽăŁ/%¤čô˛ąlO¤č2c°¸o¦‘ę3[M´Ł;/ĚëÓyČÄj.Yx܉NLe ·Ô®ŔŇآv0‹F#!Ż?­s1A  ¨)îŠ'IŚÂlÍćăq”Ćt4üÎqIĐĐ ‚ @f /¨Ř‹˘ ”‚© •ą©Hr)J«®đŠŹ[Ú÷ľ/›ęűż#sö;żŻüŠHË«JâjŻ¸«hžˇ ]¡°nC!@¶#Łcŕ2 㤄\6I°Ć4 #ÂűŚŁ@Ą/b™Č˘ Ú¨Š*"*˘ŕdŹ±‘’l°.A«(† “@PH@č9‹łk© 2$Š¨@ÉGiHl¬aj) "Pía\µŽC+Z ‹“¸­,Ś#@h€ao 9UJT˛ŚieH,a„0’,AŔjšÖMŕbHŔ]]&©bŇÚ×ö GŃm`eYŐ(‚I‡+]Ť_Xr®“†RŻd[* Ž†‰®“ÁŤ ¬w-śí…×M¤'qőś¶Öµ˝éx¨¶5đŠC răŢÖ5 |­ůg`řXuޤaÖÖ`h˘ę#!7Sâ•UYŐĐ’XŞ(ôu~äÂE•^9k»Fa•ű”†4°`Ř!–qťYÁ†–h¤áË8»‹aUQÚ]śçs\"•fúľ‰c#¶b@«§n|0–f™b ˛f8Śăh2Ł8Ô&=SUíV† Y _“ćv€m[-š6Ŕ®\n´áwđixđŽîW¬ÜĽ†Ă`ąOÂi<›X1cXĺKU;Ý[žďčQŤîŘţó‘ožKŘĺžcËQĚŻ”öüU¦ńş…ˇŠřÍžąb˝×3Ű6˝ö‘tg{‡E»ô›ÖGľöu‚EŤÓÉB%ÖďM’u7U™ňľwҢýś¬^5ź„N_Žłůů?vwŰ}ÜŹÖĆ ŕz®ÁÓ7RYŔ+…­1(Â(YbŚä5ŕŰ9Ń •đB:m;J¤µ‚ŇL ą7NÁL"„CŚ¬Â2mq-Ń5>ťJ¬6fśMK“F&°ŕ"¸zĽX’q$°ŞÂ&Ą&RŕÍ CŞmËB6€ ¬ŐvŇ@6 Â. ÄSř[!&ö5Â’ĺŤëuωë»'Ęí’k~Ś@Ň„˛‹H,lě—:ČÚOcdo‘Ţ9>K[óć ÉÁ»†‘źc)`ďŞLÉ ‰ś 8€6)c˘€2UE%aJ˘ÖtA@C á56“4g(ŃŇ<9HŘ”+3VŰ AŃŔ #ÎTĘx,`¸@ęÉćĐĂH•˛XGîZ„dĂ. ŞĎN‰Ů5&ÄľMy9N)Í3•RJĂIőiř©Ă\ Ô*†| …±°vŁ•˘’Š,őÇ« @¦TŮŻ{Ş€*9őZ\@|I2‡QÉ«K^ŞV?Bňćq‹c/e‹‚ťÚ>J ©&9ëZ’śvZÚ]*i¦˛Ź) P]şô¦”š›Ć~ĄÎ}4i$ž Óę]PIbä(UŹ*J꣧#ł|Aj9ŁŹ2«SJ›TęĺP µ~­QšEG*LŞtišŇGĄ›Ív2F<5 VŤŇ‚I®?J˘Ĺ^ 08y{“µ€P¬µk&‘«ÂfÓ‰87ięüă‚U,;-EŠ-X3MÍśŠčą×ĹŤ]ÚFQv•·=&älńˇőĹž×7˛ŕ$GumśŐŐenĄ[˛Uv¨Łk„I«ż¸ÄŐJÜŠ®w ­Áą–ö±:YlŘĄr€°× łmnÝ$@Ň Ű»™V­đ Ľ•>Ž\yNéuí(w–Ö ŃXŻ]ć(×Ţ«Öű°»o»ŹlŘ)÷ż×&{Ýí^˘‰~¬yÇG—ŹÝ"Ř·oˇĆ,U— “»’śŻ¶Ş÷’żŐ¶XŻóŁ¶”KŃJęĆÉ„ ť2‘TĘrç*eZŞĄčŹĹR– (……Â6{ a<)˛Đa Q‹ÍbXmŞDHtDÚ\"RŘFq•XŤ‘IŮĆž%ĺhťŤČ4R«QU4ExĹ   6Ś±z¦žXĹ  Ań¦CçŮ!đEÚŔW‰1”Ś8Ňđٸ6šö?Íü†ĎúNDÇUwńdvĹŘ4µ]LŁ'ú˛­XZÇę Ż'îöÓ5ÓŔe-`-!tfLĄ–UjóbHŁű2‹Y‹k¶[±ÖA94ňŽR,± ×Úç`JŁ‘hőĹ„m:ÎëM­5}©ÚÖµĐÚöéôľŞ¶Ř2ÜEK‘o.t~ÜŘBáÖ"‡§®fíŞűż]MçTµ&ösđ@ŕ­5€Ý1”8Îi™Q\2żÂď5¤ÁÜň![ČÖ>(ä™ ál/9C‰4~qĚÄL:¤”ě•r)2ÎzŤÔä[ŐĄ#‡1»÷UŰwÎć·=çÔۨÔjEŞĄő?8!Q Ť ™6‡©ˇ‹ý’ ˛–“ž[– rŽíď—Ĺ™…Ăć$Ć™–ei›3ć1š`ŘĂJ©®•R¸tK3rsÍţ­8NLL”MŢ«:¬‹&“Ľ6OË<ŃŠžĘ‰Ď•El•,ü(ĹĐ# NÓ Ģ„éíBČ• ňQ׳ĆE4Ë(\˝U„ÖeŻR•$ĺ´‡ůO^k.—ł(˛Ş‚Ł˙pŐ™a;…Ι’ĎrŇ=ÚäŠlďăűBŇP—Ć•ešüňyI. ĄL ŘÚÂźŚŽĽŮE6źwţäDŐÜlřĘ<±ţ|ĹúŻW춾´äDżŤ×ź¶ţÍż~n’Ćő ę"‚LWďŞ×on$C¶ĄO¸!đ˙pţ¤0gEr÷Ę’ŹP !ĺŇřŠY$×l@«K4~p?FŽú$ RĆökO®¦†z6Ę9ÎZ«ĆýŔpRĹ>­0jü@nˇj’VŚ4,Đ| °đqďođ Ću öĹ/Hd/LtđÓ€ryÔ"pnXjůP®,p˛-MÚF V‡€s k5¬n-i|±«&Š‚N[0ÄRđČ8Ƥ¤ë ë4ýŠ{EÔmÂŐ ! ®µÎŰďFŽeS gÉ «pVhýĹđSĺdĽ°‚Wë8ŞćzRŃ2…f­1=‘6a‘&üQ*Şë¬zq˙ďNjl_‰Đ© {fÜŁ°1 ćă*ĘO’ˇkĆÇŹÎ[§ű Ăŕ;lĂäu+Őч/řşďüy‘^ő,ŕNମ« Ĺ~$Ĺ*—±|f†Çě‚ČhDd,Xl”ă š†dRî„ltď@š ćî@äM¤tů&Ůę*¦rvV`d„G\‰VȆN̾㦤[˘Ě‚ęN°ȨžÍ(|ʲ<ŚDbŮ@§Ü†äĐ8ěę*c¨‹Ä‹ăĘĎ(ÎĎŽ`‘rtÁą±Ľ¬p ëV…0·±š·Q”“ńŔč˘r‚GĆ'íxŁ%–^‚Đl1$áŔ¨*¸čd⨦͒!ď&.^Ň®dĐ·Ěé&˝F_«{(’Ý/’Q’’€,ý,Ňw-1{-Š,˙Ą-N!ď•.ńµqińm((^0Ă qŻł^B' 0ěf¦V°Ń EśYjť ĚUFž9楓1…ś[b®+ÓS ¸hđő2M®‹S!łhۆă#cqg'ł'âŽq1IffüĎŨ÷‘91J´çÝ8±©8sšËž±VŐ3-sćě`črĆ‚‰’˘!ëBGjµ0Ď\¸.čA(I+ČPâč?î6MŞT*걳čTËClZ˘RůnDŚ2‹Ń|ĎS&îXŔÂ//2ΑRy-Hí/Ë8Ź“0S)C CM"”±Ćv1ĘFcžwÔ‡ÉÄ–¤M«†Ĺ' rŔ–)fž‰ď7ČB†)BŃŞ^±Ž_q-GłŞ[ŻČ¦1ë-ôŽ÷t€Äl0ü"I¨;S;“…3-Íf±çÝ 3^ů…m3“/3ĆĐ×sCJ"Ĺ4Ť€¸"ç5Ěe)5´Ë3-NsfRÓ&mµ24őí»7Ž]Brű;˛Ú˘3Ş\‘JĽp_J5*~0m:ő#Q1R÷:QT˙łJô+PČ)qĹnôÉ^Éň,i˙’Č@Ř ě ´.‚=@¬ĺi&rŚĚ÷A®]Bu-;GPTfý4 -44fkŃ[sč3ľMÄÄúJ("&h•ëŃÝ&3ţŻ¸<µlr@Ś$ š Äě€Ţ Łúî@Č™€’ ÂI@Ň?`ÜI @ ć  Č0Ăüě„śAH?V O`@ ö!uś+Žě'/(ĽŹś„ÖﮨĆd⯉ÚNđcÄ’c$ëŢ—j» âĽ-UŘ*©Šé’'e,ěé šFr0Ę8Jnŕ›Nč+dŔĆcxśVRďŽýdĎˤî\Ď ń·\ÂË\ĂBźă˘: śI ĘH˛¸#Ě=nČ ‚¸ž ÎĘ Ä@ `Ř ŕĆ `¸ @A Č  ČÓm`Ć>`č )ămÖú Ö.`Ć $Ś č ŕĺohA6IWn6*Ír× Č` ¶ IăĺDţ endstream endobj 175 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F8 30 0 R /F9 36 0 R >> >> endobj 177 0 obj << /Length 4714 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1EQ¤¨jł‘¤klqąÄň÷q„â@4Ű$ÂÚ ÂHT;âŠbŇi<¦ )–JeB)4¦,IÄ1v; 1˝I3<t’Ź5D/ř}IlQp1A  ¨)Ć 'IŚÂlÍćăq”Ćt4řÎqIĐĐ &Č‚€¤d0|¦ÁH´bˇ€lç…Á€R.Š‚P"¬Č2$Š޵…ÍjŽ*AŻ¬ę@˙4(@9 «®«CHŠ"ČÂ4Ž((\†Â/± dá!L‡!\ľÁj¨¸f'R…"HÁ˘úH ď ¤KPk)Ň r±&ňdËRŰŠ" lhľ†ńÜŁ)ĘłTŹŁł|»8 łśi/ČňL—0H2Ł#I \ţ–Ž`hŁ$”\#qŚs˘é731ő@UHĆQ¤mKGQâM˘”Ľ ÉC.$‰5SU‡(0m Fu„Ŕľ8µ¨A[Ă*ŠX‚וdŚŐög^Ő¶EsaŃ4]?T4¤n‰Ňő0AMQk+#/˛‹r<˙­LÍÇ?†!•4-A°c!Km –0Á@¦"íň ˘a”Š˝H7Ĺ_ˇđ_°3…¶hą@ˇ˛Ô*`aCâ"_OóJI‘Čq1AŽ2Ň×ŘlSŠ`Śn)˘ &OŻAś¶¶1.uŇěfN¬ AP`-ˇ*^ ©É:jŚŇĄ'Qˇ”ť1Çů•™#!•ź&ęV0j.µtŞÚZ‰ˇlZ6‘Pit®›lÚôÓ«kWp]ŻV(.«©ëkîč±%ô\‹ěúTé¦Ge3Y‹†´”jüG_VęU…0/ź#«Í\Ż˝rimSÇŮĽćľÚ(+ FSÜ %Áí\-K¶¤Ď»_@*%kşö[ÄČvójĄöťß{5wáżi÷Źü¬vuo‘áŁ7iőu[luü=6˘S´wUjđžÂGmmÁ‚<_Ň6%Ţ Ttî}§Öýłŕv“0owršî$‘ž3Ľ4)©űąŚÁşL€ŤuÚ’”ű`ű|ď¤Ŕä ŕ‰‚kýůżUöĘ+€EďUk*GĆěh7'9 ¦eúű ’]е ÂôŔůˇ‘ Vě1–(Tď!šż€íTµŘ <5‡¤µé-ŇĚZl\HήdfşşIaíQ«–>hŚ!†0&%{PŰÁF_K¬‘­uÖ‘ËąÄmz.;ČľrÁ@A+éqĹRąŇb;C$u-7xĽĽ‰0( €Ŕŕ1•ŕ˛ţHeM”H P Bŕ)_Lůî(ŘDŇa#áiĎ‘ŘĹ•żÔ*JI’•~(4¶śů-c‰°%¤¸—’˛Li• ±ÄŇL‚m$’˝;Ë`ˇSÚv—Ęd'Túˇ Q0”ÉBgʢÄéVôP-fV>®X˙ä "nf1_®ň>h#e_,-źhĹ^ŁŕzňŽ1ĆŕńÝłĘv/ˇÝ$'  ‰óĆUŻ ĺK*>JĂžÍáçĐW˘ôŢűiZóŃíDĺż6âšäZň»RęĚŕ¬]ŽćÓĆXÎc#LkK±´ĚĆňÔ’7Cr‘¨ő"¤Ţ Tpľ5d‘0é¤1R.F°°[#Í ’‚J…ŔP ¤Ě›,ŇuÔÂ9ĺDÜ3P ÍÍIRźÉ5\'R[§†d\ĚʬŔČśK¸’™ĺůx/S µLdećue®Ću:'Ęż4k§P‰úhÍž˘ŚÜ§4np0…`…_âî^˘ď*Í˝R2öTj‘$o„”ľ` _c QÚC$—)ĺ2ś•é ‹Ň][ t‚ďĂÝ"í—N4VËŽˇ-ýǵi1¤—äŢ•Ó±kŤáą7¶ŔY,=‰Ł1úťŘÔČŔ!RżIhͶl»´‰)5=éfzYšžŮM‘˘ę EVoúHt«TZg~Üv«|Ë:ÇeÝk—ôI]‡ZěęFśrY Ř@ˇ„ěm0ĎôîĚŢE3gO= ¶ëŰ ĎT‘É@¶¦üXm÷XQ{‡·Óř-Ë·™®Ĺ¶$–.čHŠ¤Š0†Ö¨˝éwA †Âjú-Şá‘D*\šiD‹w˝!·S)"őÁ¤3‡TH ‚:‡@ňDÁzý7Üłô@c „9ÎC‘ëäAŽĹ" ]b ľkřu>IŐ¬ŰéëF(»•@ŇyO]NčÁ»¤-ľ—Ózxr"`Ű©őS+y››Dľ].uνŠŠ"T›ŇWą©Ţž†Ýčťżˇ$´Đ˘HÄůç!ҧ˘!ű2Dh” Ů˘§Äž"µŔđÉÎH#›VM¤ŕ—ýN ÎeU§˙cęČšţK ÂäX˙p×_Ľ±ÜŞ6źîîD@©)Ę|’Ü Çą#ĐĚĐŻŇ=|Wz1„“ëI2AńĄ®IaVřĽD…ŔęSĚIČľ’D thÓó«ë–†˝™ü?ˇĆ)˘MgxĄďúq%v­¦fLc­v…OPknN$‹Ž)p´f>$ŹŤpd+°$őpLB ]âp@PđÜĹËMdĹkĚ4+ÄJ¤€jĘ÷ç-űtł]nďň_˘•@BnVđ& Ť¶ŘV q…ßv6gveü.%u”!x ŮpT4ź×WxČ?g—IIeO—ŠĂyŇ!qęV®4ŚĆ7­rô‹H cbAITkz7t5WUk–ůuëT×Őw–ÂÁ5.×eu¨xĘK—qRĆ­Sánl=SíxXTUëyUQ7Ö˛y‚ŚŽU{|X!,w-*Ě=Xöµr1XŐšCw˘˙5‚8CIö­WVRÁ…U}–`÷~¶Łspő†=%l#!&őmÂ9cwm†‚9d€dµ…‡=…7+ÇIp„'jW?‚bť‰×·¶š#ö“ŠiŠŞíŘ>íÝGśą‰”gcň;1ŮXMąŮ– µšXűUŃ'ŠŘf§ŃhÜÉÔ?˘]ůúąţz yúg•syk‘€j“4ě¨Ę|óYOxÝKó§L(Ý:óË;LŢBĆ„Î8ů–•·<Ę,b™ŁőôĄDc´ő`mˇŮ˘xCí‘lÍ\ŚŃ:µÓŁPŹ6Éѣ™¤ qŚąŞaă^şO¨:SLV[ţĐ`o¦Řaš#¦šZbş+§ă§X駒B)UÚ!ú’’רy©Źó‰^¨MŁ?¬k»ˇú/©şkOjśĄ_z©¦uýzł::sŽe§‡†°ß¨ÉŹzÍŹŮ!ůŠúÝ©sÚŤ‘bĺ´ödJŚd‚ Zl_¬mYCyE‘˛4¨¶|f…qbŁ´ŹQ1Dk1Ź:ÇdZoB@Ł’ţWĎZľ açxWÇ3·KÉr Î%»f4Ó¸Oó¸»j«›o|Ů騮[B'Q¨Ú°%o›”ş$â‡Úâń]„™QĘŃŔPăîBa°Ľ®@ÝÎFĹNL‹c†ĺC'aĆ/۲ćnjćâęÎvç®~.‚N† ć dH  ÜRŇ`ŕ €Â.† NÖí®”éŽśŽ ęF-ě-ĎtJC1®ŽýĂbŇđ>ěTöE`ŘěŕĘll endstream endobj 178 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F8 30 0 R /F9 36 0 R >> >> endobj 180 0 obj << /Length 372 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h j3• S"4˘ 8‚ŤĹĐiôNĹ G"Ą©"ŚĂPďU)‹I¤ň€¦Y)•¤Ň°@I'ĹŐšŮc ‰G Ăq¤BE$“J2‘ dş!‘ŽăŁ/%¤čô˛ąlO¤č2c°¸o¦‘ę3[M´Ł;®¨Ť»mÖ‹WáŽÚ¸ş r2g3 ĺż9P!.Í$d9q®R‹}J˘(Üń€ŃhĚ\6QE´‹M|‰ěą űąlP(!¨` !L1…!h cÎ…ˇČP2„ Ň6ŚŁpć4ŤđĐR.Š‚R »ä¤-I¨¨űżÂŕP) Ł0Ę9!Ä&7 c(¸ĂńǨ endstream endobj 181 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F7 10 0 R >> >> endobj 183 0 obj << /Length 291 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1EQ ¤¨jł‘¤klqąÄň÷q„â@4Ű$ÂÚ ÂHT;âŠbŇi<¦ )–JeB)4¦,IÄ1v; 1ľÄ3<t@d0 Fr ţR(* :ňŽEÜ“¶ť˘I<śA& "0‚N%ď¤[4 x¸ČyBé'*qˇŤ)Wc‘”· endstream endobj 184 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R >> >> endobj 186 0 obj << /Length 9692 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@2Ä4@[.ŔŚ€Ń´l4AŁQ°Č\5GÄŔiLB*EäaśL@T3GyD ;Ęc¸€f1“ÍäP"ˇČ3Óćć0h˘‚)*¦DiDq‹ Ó蝆 2ŽDJ)RD- †ˇŢŞS“Iĺ1L˛S*IĄ1`€’N!‹«˘,ĆAŽA†ăH„ŠI&”dâÉtC! Ć6FZKIŃi%rŘ,źIĎä†#apßK#Óćv{YFr_1™×fó‘Ô]˛qxňśĘAn©]AĄ±@ćä)ŚFc‘ă«r ‘§xÂ) b‘ŘPkô <âßqź°1 ˘!¤Ú2ŤĂŇ7Ŕ!¸ C(Ě»Ă(ĺ c(¸…"č¨% ŞB@äĂNbR†ĘRŞë OÂ1ŤcÎýżŻüŔ°<3AĐ„% + k© 2$Š¨@Č…Él4‰¨j) @†ŠL&°{X+kRĽś N°p Ák¬ëRk0nŻh\’­ŞX@¨…ä±`hZ“üž¤6khŞ­3| ö Ď Ă<Çh"ČÂ4Ž(,Ţí9b‘*M¨b1¤Ad°ËáÂŚ†ŤŞAPÍÁŁ)S¶Ś›W)arŹSi%UY­ <ŹSŐ5’Y)IµřdU!ĘŐa†UŞŇšŘő«śŐÔM˘ISZ.:@–TU cl5§nTauK`Wi`ćŠ.š2#t­7LSČśß\Ó4ýXăÍsZŁ­˝ETÜőÎYh+ťs4w@q„W•¬Ö_ő°lŢáX•§c¶ž/^Y5}ŽăýÉ‚[č}ÂądŔmE~4ć-Śeó}üŕ+WuÝ´•áJRČčg|ŢÔć‰P]—u'yRúëMß®‘)8Á¸qhε:‘jŤ®Ż•ZVŢTä·Ăe–Ʋ“łxV«Ż˝şÖŰžiYţ™ˇhš…:˛iíßxč7Ł“{ďhf¦:ËF±ą$8WílŐx°†ÎÍÉYś§,‡ítí™Çń{fw¤çÜç§pz6¤‘oÚ_ÔS\&Ź®hs|ŃÎqť¤§ŰŰ7 ˇ…ÁÍŹČ÷ÎŇăám\e‡ÚŁý<îť.Óď=—WŇoţž›ęő[çhÚ(†ăŃ{ë”×âlNŐS\¨˝ďŇýaŻŰÎí®×Áóü~Łěîüb÷\3¬n®™í´÷¬÷ťűZ.náň@’OßrłM-yöµw0ďË V~o*$·Äý­nνî5 #x€Đ}S(đZsů2°¸“ÇĹž*Q8ćÍô+8tZ 2‡ĐÖÂÔösÔ…pšÄGťLL…§áŽ’XÖátU†íťaŞçmaĂé‹Ä~ Äh˛Ĺ üq&Ĺ aCÚ…QąŮÂ㬙cL ?ÝáCŘşNĘ$‹ş@x6č˘ě|Ź/ę'B—ü@›ÔuŽ/őŘIN*Ň-^É“Ź&ŕŠĂ©4˘Gâ (ŕ|‡yňyQxÍâ|mńH7ؤ{E–ŤM]1y'eęť”2ťd¦™Lqf,Ş~ł_Âo%!,o–° éM—4š6.)öfµÉ´\Ä[‚çť±é8Á¬ĺL’qYÍůą;"<“„“^ILůçąłV˛ŽnT¨IŇ”Ç#¦ÔÎw‹@Ó,Ęťłî€Ä)ă=˘„ł›QţOz%M™´)FvMę5G&ł\G¶R8Ë(ËÁ¤ľFˉ+.¨ť-šÓâ2âšgí6VĎâ0ÎŇvĹč3éHé˝ůOÁMßĹ,žTFKBɧL¨µM—mp«Pq!TŞĐBž¬4×8* ł«éö…Uę·3h|ŐŞ4ÂzÖŞ™['̆8ńÜ–ÂłgĹ6Ô°ŐăŤ(ë-v®uˇčU ß$^˝K–UJ­ňâżeuu±ĚŘłŐŇŔNčÝ}˛ôŞŔŮ;!QĄ„ŽĄö"Ń \)ŞČ.Qö!5ËT -e–[ä™4Ć léÝ'‘×ÚĘ•iŁť±7\ÚI0’e9ą ¶Ľľ–WUěŇß8×BŁ-óH¨­†´÷8\KG%â9xó ¬[Äđf˛aÎŰN;ÖłmÔ«ĽŕćňF«µplem˘¶đTňŇúç ĽŘć«7„Í®Ž_¶vŤ«lC¬-Šż˘&á+‹Zťa”ç %ü °Ń«˝ŻŰ âýpí ·őşíáŠ)0ťÜ©ŕÉ&-©űŤ AÎĂ÷™ą`ś{Q±Ć6»8ZďÔém‹1Ž.eŔÁT¦Lo“}SŃ9möi[ęÚŘĺ3v™5·Ú“Xi YĄ©Ž_žŹ^V®iAyv,ᲹOf}CłH¦ZW»+;é]'…sĆĂ ÔJ<·6öWYş¶%E>Řö@ۧpęŚĹ°3 ±É:­®µbj®UŠ«mÍ{{râ « JM‘_¦ť˙Ŕ[CeV §}ďn°°ŽŮ¦›ckm©0â!Ţ÷WJÉ®q‡Q·ňEáe"ąľ ȸĺrŞăŤľž<ä7Ç Ň4ÎáiMSĽóęvÜk|¸ŢtóyŕOätQž;ĂćŤŔ:ń(Ľź°A.ĹĂß{÷ë\¶gq^'w{w5“nöľzí WZä=•ĺÁśáŮ9‚ť˘ wź Zz®đĎ^'kĹ8_ Ľ#\ńí;Ŕp(<¬>Ç>c¶E؉ݹ–żńµ?avűü "בŚě{˝t(}“}G_đ'ăŘ"·}O·â=Ćüř˝ßčÚ›• žŽGo‡ěĽ´…ě}ďŮžWÍŘüďĆŹÝřÎ-Ü>·¦—’hu¶¸Î$˙Ýůś T$ż—륤úöQ}Ď©Ôoć«ô˝Ę)ĚĎTqM¤ľů ÍTCÎčéD™/¨˙ řŽ ôO®ôŽ$ţ‹üťĚűÉü›püořťOţď‰OĐĐ íŻłŽ¨÷đ›*©˝ŻöXj °RźÂˇ07tţ TĎŻć÷Şj_ŞTű®ŘŁĐwŞD“ďmT¤Đ6ŁđxýŹ«O´ĹíäęĘâ©L¨ęvő°źĘ~¨Ż3P˛ýn§Jpýđ °Ç ´\ČF¬đ€¬n˙‚ŔOŽţú0× :ń™ ĐË 0®Jđţđüňŕ4jţa°¶, Ι0ď pžńNm0řŠj®˛Źď«?ăFłŮ ±9Kś±ćo Phç q&żË{ eľlűI·0+kqW PnÂŹ±QuKŻ‹–»`şiKpŃg1°ˇ1ř¸ľe; QĄ Đ0[çÝ1a/m‘«Q°CđF㥊\vĆnÚ%Ě<¦U `cŘYŔ6‡*W‘ÎeQěĺ1ňXńŕc™)ńRpńú&ô牥±!Vr†T:ČúY‘ú˝r*aR!0ńÉ.§Ĺ}!¦Hcćą"1ÜqKRQ!ĄjW1ń$b;…mEzZňg%p=’CqĹ$Rpqvr­őrRrÎJ}2[&ebL˛c(,BŃů&R…)2w#Đő$ ”X’d(bxR‹)rĽx'‹,D‚8ëa)î ,í-EpƲÁ*ëE}'˛ą'†8Ć !EIŇó&˛•/˛Ţ`·-ÂŚ *rń3.M%˛ë+ro-bvjŇĂ0S2Ą‘"0(bÂdł-s>k3 (s5ň´ţQĂ.Ó&W¤‡s/!‚Ť5í13“d(íţYSJ"ŽK43\$Ók#˛ç2Rç3[6eřUŇů6ă”#ó9…jxS}6s˘qw93Q5l•8«8âŽDŹ‹(Ó]<ź"BŽ,%s:sĎ&łÔP˘‰;/y'ó"Ţ“ĽTH63Í>Ä—<˛ü٦­=Süb-+łôÉ“ć’ Ó‡ ’îŕ­Ö;“ń?ŁŤBm?%R-BâÓ4´~ęS·;Sé&†:Ć=B%păOBłú,"?@]ô/T%S…1ň?DSŤD‡jL´P(ÔzŁtXWŽ|ÓŐH˘‰HâMGÔ>ţ0mGS»Gh`s—<αJ…‡,GŕôŽU$—Hô¦wŇ.“¸ŁĽî†/GŕgMQHt€,#ąHôá0´fŕ´Ů> >TĘź3ĽM ÁMTüOłřWtcÓŐPłINµVµI°kóă5”Hő P¬?Ü~7U(ČĽLµRôń'”CR3%Rr)9RO3Ż„ŁuSŃÓ:Ő:~cPőSTr±A3çGrşüÓMU|é’Ä•/=Uös˝X5qArłJę9Ň/ç[±Ú‚µ¤\’ú‚±öZu( q[eą[ĄŚaňŃ wRó'µˇ*’S•¦\Ą}µŰ&±Z˛',•ą"ň(mµ×*9Ő™WTöŰuĹ$†X`Uá˛U`ĺ©a5ĺ%ći`˛gbó]’uFôOUśŘ–%*˛‰]őł&r‡HUë^26˛ť\2)¦_ĄŤ)?cA5ULŐv]-ňľZeYd2Ç.6K˘†.2ŰeR»-’Óh“g5—G›f­/bR˙/vw^ÖŁM¶~ěs^ö[j˛J–·D“/veIŐŃT–mk“Od¨ĚÓ-a¶y!sAbł4vżh¶ÓluŢ6>Vo6sS§dÂŹoíÍaÓg76ë/xr·ŕłiSńÖői•uo˘Ź;ŐpS›9VŻ:’Éqł]:·A9miv3'¶‰·-=Ď‹Z—5<–ÝjG=–ĺqÓĐđ7Wv#˛lÖźD” ßW]hv7@7Fhbă?÷kE#1@×w QwW6ůj;xW ht'C×:ht5y&Cš(ׯQ×$÷ש]W­DÂUp7‰}— g…ËE÷Ćhtc|á|×yzv÷}TyIt…}ÎÇH7ăj”‘e&]jy8 WĄVśŐŘL7±g”®wׇ€t˝hřG7)ÔÉcv G„ÇM¸HO€·‚tă~¸]N;+´ď„S‰„—Uj3xR~3w»Q“Wë‡wMftź‚5ź‡UEs6R‰G…źSx‡Š‹‰·Ł„x•c•PĄX+j•[s†]{/śTX‡V¸‹VřmG8·„µ{%÷[{5•xÖX÷“Ž×ëŽxł†řÚ“ ;±YŹđ&ý ĚJi×LńĽŔ‘ÁŹ·ůr“ä-%˝9' JD,|0÷Y$Ăy]5K”lƬtőL”ąÇůRm‘[™HUđg\÷'tě”ËlŁ ylÉĐZË é÷p.l˛ú™r|ůcu9–™FÍpÓ¬—™Q­—ěß—ÖZd¬çLë™qI–WŃąjŃĎ)™ŤĐźšmšE¨Ńdż•¬üĐ‘—›Qť›–lÔ¤A—äŠŃÔCťśĹ¸ÓůóYëťąŤ‚DŇíf;yč׹v×YôĎĎň×otŐíi qřŐͦ“p Ů:1D.-Ł—mˇŻŁŁP’ô:yŕŇíÖŰşKŽ%ÄŰŮîÜfqyÜíÉZW¦ŁLxů k‚nqL-‚ÔňJn΄H˛ś?jŇr,B‹©‡Í!¶F–¨]©¶q ´šŹkĽ"z-zľ*´bRüĘ»I´ĆŞ®KZŐ^Z«¬šß©ć¬ĄU!ş‡©zĂŻ”-B©§Ů§Ę1P¦S/ńîňE­qĚr¨KiĚţwÂ\]¤°&d´8`Lrś,Ť,îč?P”iH+ÂD’ ŔČ  đQ‚bZŁk4‡*c˘I]ćµCd–8ÂŇ ĹąKbć(¤–)‘_„Üű\Ä-đ5bs˛`Ť˛˘żłĚ!›6"j1 ~SD@PKäň.O3c˛xĺP„‚O&g'»ÂnPb¬ň C˛+ŰĐ(ű˛P˛( Z` Ö …7dŔ+¨:´#gż`Q˝D,C !"QżŁż»Ż˝Cł¶ j*ŔbB¤.GBcŁÍş""/°Ió"&S«…S°â ĂÎYBćŲ:&żĹzVâŚesĂĹ{ ˙µ85šNU‰ü]{nú’a:¦äKâűÖ%"NŁčäBjLő(\;¦ëĐTÝŢßţSąäĹŮB«”LvéFjĄ›şŢ.Q^G"â(>EăśńµCZ"\€jcşMĺÂ!ű„Áθ§ţ®Ű¨kĘťP…ëĄë ŢçŢĹë¤Úx>Ŕ5˘ŁhBQę\Ăw˝+fžă˘–É–z+ďď›y!ueÓôďąCĐ>őo>ů™“îşđźď?ďyßđ^éńź#ńËîňžĺĄ?/óź |˙+ńßCň7ň_3ó;ôÓşmĺ ÓívăżX!íKFFĆm?eĘnXß\(Ą™ö-D×bX _qÎ3öF$(®:to؆sE±önSůߍeyů_÷€ř]Py‡y÷n¸w[÷–é?źüGüź§řüÓűµďçěë?ÚëŽŐůh}Rj}ż ěßóţg–Â. ĆBÄf.ŤÄŔiQ–ËŁqŚEĂhD-Ž †cY‚,c6ĆĆc‘pÔaÂab \"]0™ F‚á ć,‡Č<öA„PĆôX4" ‡N%ó|ŇĄÄâ±xĚn;”XärY<¦n4 ‡#9Ýbmµ[-ÔúE¦4ŽAĆ×iőâĺ{ßfuUÎŰoĂC˘(¤Z1‘ؤ" ,šÇhą …Ă1¶*kiÎg§w|<ôl4ÂO/úx‹Íçsű®2·ŹŻd¬7\®^Î •\ĄĂq΂iâńďÔ›Čâ5Łëyý5CoÄ…s0˝śms!_É﬑Ű6g…7ÂFP}·&7ë{F<ÜÄkuôŐ?ĘŞë®óŘ÷;ŞËľÝ2+<ň$O30ʸoĂ832ă Ł°łXç>)ęÚţ:ňé¶PĚ*ä(0B»|µśŃ|u•sël×&ÔSx`Ö#˝uÉ­zµÚéaÖńť5YÔUü”6&‹Řxž74‡rmťyůˇ‡źÝş^k«ô÷7…Ő†/ŐÂĂ%h?żćy)vóÜa[ďAď%˙˝¸řŢGîĂí­¤éđ?+ _YcÍ*őö?g|ŞÖKóuGĄŘ.ó:Ç_ GĚAÇdî f¤ŔTÖąSs‘ud[ W^}!˙vŽMâłG˘ě!SĆt‰/ö<ă_”N…A—. ˇÜ(‚kA÷8B‚{Rˇž0řůĂÇHöa»=„(‰#D´ AwEs“ĹeÄQ:$0Ĺ×|V‡ÎŘŔ7ăá‘]D$¶ĆĆ˙c,r$¤“Č×bŰt‹¨J ˝đ¸˘sĄŃ¨ g!ČtlŠq.+Ĺ:Č\„|@Č—@pAˇ7RĄÄöÉą:{KY0’hů»É<Äâ`2:áxĘÓ;.'* öËSď q2—d–>ĂhÝ#‚Z?@ÖT‘ŔräBĂ:ň2GBäř ád…ZLö”3'¦dΑńúK,¸˘pć$’ńÂsÎ7S9I\ënsĄtĎ9$Äâž3Úu;ů‹ 'ÜZťŹr)OÉŃ>§ť /ŇĐ ó;gĽôx4*sPŠ@¨ť ž´:ÉZ+D§}Ł4ZŹŃŠ#h˝¤4z|RšMHéE%ťÔ®PúALčŰŁ´¶™@ŠcÁg>2‚šD4 ĐÂ]iu’ÍPf}OňÔ“µ.ZSýPDBµ‡fşZĎĹW?äz+4b{2Ş4'˛j­.˘\ĐKěŤldńłŐč¬ILśV«uź:®ĽIy°Gq*¬±÷TŹKXUnl*­{­őřŘŕW§™ĘU“LęČ_ČcdCďM–ľyh¸8­v]ÚRKç•ĄŞ´©`jŢJ‰@%e© K @© DĘ(%ŞSË z ĘAƸ/ôůŰKlBĚ\‡Ę¦źTgZM­ą©đ‚Hpjá“ĄÁ?ďL†]ÔćI/ ş`‚ęź3k^m”«“¦Ş´ÝŇăn‹ @_GéĽÜ™jAů%öÖäÖ”‘ÍLKąöÄů?ŇűZá ¬x)>![âOŘáYş$pjĐKÓş'°Ř`âŁ^--˝"¦“?„[!ś{Ő ö®ň‹Ţ,y©¬Ľ PgqQPĹĄ®#őoŹńd>.*U>=Ż™ÂÓęEˇ“µv~ÖNŘEL‘)%<žď÷ eŠ®ß.ÍF|Fz×XG 0ÍÚHÎĄg´é6‹ŃŮ„µ“¶˘2Á/É|ŽX ĚĄ/S@ U(#’ÝQŚů4‘¸×s’h­şłćŞ[¬ľú!TŽ Ëë !)#~ŻŁÍSŁŽŕŢŃî<«îP8!Ń/µĺ -Mű·c±5WSx9LMČ%ęR‚ińµÁÇw_ÄŕäŽ:›UîTÍ>şÔNlBQî5cr4ú–ćń}2‡2ÇݛߺňŞěeČ-ČQhd•ÖSl$BT•­˛dëłÍŽťŘ]?«ő*×W'ěňgđ2ăFŤ­¬-ÁíWDIÄE$)®ČŽl¶g#,ŃŢô‡“3qhÂ)›4ű¶ÇŤëĄţ«-ČСV|@ÓĆTb)ĚÄá˘ăĹ2 'yaj>,ך˛Ö´+_‡ĄţiëŘWQšĐ”˝hzRüLxw¨§˛çµDż÷]śľňýÂo P}ĂX¦Ë§=˛ď(źŚďř2ÇrCâ‡5¶vAP‚đŚP¨T«„¸’PZĐ’KB°ŕ€â›]Ĺ€k©-'×ě*°P9 ) ¨…@TA@ýâ¦.đŔ 3żĂý ŕµ?!~şé~Ť€Î3˛á2*·¤H„*3ůżńJ@X‚+í1 Ĺ, ˙­«®Š*/Ř’”ňÔ/ž‘˛Ą.čđ‡AnÁ*ý12®Zč‹Y—-+É  ‚­Ë S÷˘ĘAx¬ ’Sk°T¬š«ÂŇ5Sł¨3Ő¤iâ‰Ű%źó2¦`¦‹đ㽺ťĽKŐĄ€…2™ &űŮBëĂc˝¦‘Łb¤ŁÜľIźˇěĄKĆ;y-&€&ł·"*%3tAé…D+Á&?>43&3Ĺ%R´>k“ňQ rĹ YA:cU›)Žë|¦ËC#@ěE-Ä8•†%ĽQ«BR˛C˝ xµ‘ ÉŘBI«&",]­éĹôW.ř˛X¶Ä±Âśc*CĹl-Š8§“á”Ĭ$Xή#Ó Śk®0 F{ "BS)ˇ˘+V„p˘- h<{ćÄrQ”ŇODtVĄP„#B!pŔ1YĂé[ş0ľ9íC9®<ĚŚŃď1‚WĄs·ÇÜ`¦ Č '§ńtžđ¦+BoTK‰¸Ö ,Y&ÄN»ř…+”P¤;­<Ź7Ä’’Đ…;”U r[É2ꍊ˙1ÁZŁŕEĚš CÉ T•®Ęhă×IZĂĹ„i¤8;;„ĹBơďd¤ĆĂĎ ŞFčá;„„ĄŇŻG © ¸ü%Óź$ĐË4dYGÂúH©ľĄ,´Ćô€D„‰»H¦0*%řKYIËjS¸4ł&äG»K1\ŔĄ´¸H,H:H˘ŞIĽDĹ”-›ô/= ćŤÉź9RD|Ä˔Ƚ)Î3 Ě1¦kĎ羼¸»A®KZ¦Š4AĹşD&¬`Í”E<ŔľËíľčËđCŁőëň?ä 7ĚĐ–”ňPMűú?°ü@ř¦aËN“C`*$ž(Ŕ!vŔL?ĚŕŔˇ:l· ‘#ÚÔ3yŢš+@ŕ8Ŕř‹9ďÎ(  ˛Y /řQvĎ|çĎ”đΩYŞ4ęŚëÎČ50NčúÎřOšő+űňO2Ł ŤĘD˙ĄŚdOz*@ü»Ľ S°춌âP6Řą˛E(ˇŻ2XÔć¦:éΖxć9c,"˛[ľĂí>ăďMűđť”ý ú´âÚšD*JNOsú´śË@eNŤĎą±˛Dě?ôŃíŞ «c=M’% kĘ dŇÝ5L! 圶ŇxűÓ¤›Ž›ËÓzíL6µ"'BÂŤH˘U żStu›W"1$HźÓµG HTCRTUCÓÝ@Íd,ÍtLŤM6+," d[JF’ AŽ=HŐ9ˇFÍ@ UOU-WU3Ě„¶‘ÝDŐąMÓűĹDÍU5_FQÓŕ„Ů·CrĚ|ÎŐ°ś–%PĂř ÔyáJŠ ŁUíWŠbBV€©Ö•gÖMYĂĂŐMpÄ­h IŰ<;Ś8ÁGé ¶řľT¨Ă×U\ÔÔÎMlŤT!×ŃWĺ`ŤpÔ×xű«CŃ׼ŤűŐ‘ŇÖ]|˘ó 5{ĹĺlŽ¨ÖĹvX¸éXXž]‰WäW$°\źVHő$±‘ä!e‹ý&˝nŹŤ”Ř=†UĄf"ňeŐ‰Q µ—ÁĄ €őˇV%KYŃY­A(-Bů’Ežą#› RaÖˇ Ú»fTÉPÚĄYµqÓA5©),Äi »ÚÉ00}¶Zč©’Á*Ú]MÚt×+ń:"DŰÉ<Ú “í• AD˝¸”0¶Í…Úb„©Ńn”ĄdTISŐ卹QŘ͵\µšÜqM[Ĺ©Ę–éaŰ2Pť´’ _ž… ]EŁ•5Ń[­|Tä­kŮ×éoÝĄ˘Ů,ܽӖĺÖńj\í»)uéyUq†Ţ-•]9|ÝŮ]^eÍ…ăY•Ď=Ň{—y‡Ű1ŤUÓ˝ËíÜ"ůŠ^…ě]}ŐŞ/ +t^É›Űi–™}–ܢ3™ťßµő_-†ÝŠ/ˇ¤Ů9®šźß‰¨möŠžG ŽßÝŕÝ…»Č9·-té±Ú­ř›]®Z ߡ±ţ_5ś‘Ĺö9aĹŕ!®śŔá) a9ŠÖ.`ĺü`eśˇŃZ‘ĐźíîŰt^n‰5úa±ŃÜUá)QزĆĎf"á)Üťľ$Đ%Ü6"\…{ŕí‡ÉžµpSv+!^‘ębf/byĺbĆ)a…áź÷a©öŹ^.1őâdúáö5W=pŰ ‘[ %ÚźÉűŮqţőÜcö8ăÍĂ^¤<ś’_ –,äF6 Ł,aÚĄŽY’ nŮľ*$ĘÁY6,ˇ‘ăęß‚ ˘Ąă˘!ťűä˝üâŞ%!ő˝Őöˇţ$şÄt\ĄFŹ^5ćV"f ©ň CŞ+S5±_9 Br_ŞĽö,˝h¦¬Â›Xćp!bĆ› Ž¦nc‰îd‰ľiĐë/fŁRf€‰MŰî=u"Ů;ßç24G &RŚŕŞňĘMř;żđ#H3¨9,áŕ€053çŘ"H6(74~…S endstream endobj 187 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R /F9 36 0 R >> >> endobj 190 0 obj << /Length 291 /Filter /LZWDecode >> stream € phÄ@i@‰P‘¨@4Ä4@[.ŔŚ€Ń ä\5 Ć!´5Á¤RC`4¦ ’DŁ‘éÜb7ŹÉdň™ Ţs-—Á  ĚĘ;9› …ĂyšQ*Ň©‚ 6&s‘´Bť<®Ő%ŔŇP/# âbˇ8ŹČ P+„ @2Ťg#1Śä©&UaźT1EQ°¤¨jł‘¤klqąÄň÷q„â@4Ű$ÂÚ ÂHT;âŠbŇi<¦ )–JeB)4¦,IÄ1v; 1ľÄ3<t@d0 Fr ţR(* :ňŽEÜ“¶ť˘I<śA& "0‚N%ď¤[4 x¸ČyBé'*qˇŤ)Wc‘”· endstream endobj 191 0 obj << /ProcSet [/PDF /Text] /ColorSpace <> /Font << /F3 8 0 R /F5 9 0 R >> >> endobj 8 0 obj << /Type /Font /Subtype /Type1 /Name /F3 /Encoding 192 0 R /BaseFont /Helvetica >> endobj 9 0 obj << /Type /Font /Subtype /Type1 /Name /F5 /Encoding 192 0 R /BaseFont /Helvetica-Bold >> endobj 10 0 obj << /Type /Font /Subtype /Type1 /Name /F7 /Encoding 192 0 R /BaseFont /Times-BoldItalic >> endobj 30 0 obj << /Type /Font /Subtype /Type1 /Name /F8 /BaseFont /Symbol >> endobj 36 0 obj << /Type /Font /Subtype /Type1 /Name /F9 /Encoding /MacRomanEncoding /BaseFont /Helvetica >> endobj 68 0 obj << /Type /Font /Subtype /Type1 /Name /F11 /Encoding 193 0 R /BaseFont /ZapfDingbats >> endobj 192 0 obj << /Type /Encoding /Differences [ 39/quotesingle 96/grave 128/Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis /Udieresis/aacute/agrave/acircumflex/adieresis/atilde/aring/ccedilla /eacute/egrave/ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis /ntilde/oacute/ograve/ocircumflex/odieresis/otilde/uacute/ugrave /ucircumflex/udieresis/dagger/degree 164/section/bullet/paragraph/germandbls /registered/copyright/trademark/acute/dieresis/notequal/AE/Oslash /infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff/summation /product/pi/integral/ordfeminine/ordmasculine/Omega/ae/oslash /questiondown/exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotleft /guillemotright/ellipsis/blank/Agrave/Atilde/Otilde/OE/oe /endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide/lozenge /ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright/fi/fl /daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousand/Acircumflex/Ecircumflex/Aacute /Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave/Oacute/Ocircumflex /apple/Ograve/Uacute/Ucircumflex/Ugrave 246/circumflex/tilde/macron /breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron ] >> endobj 193 0 obj << /Type /Encoding /Differences [ 128/a89/a90/a93/a94/a91/a92/a205/a85 /a206/a86/a87/a88/a95/a96 ] >> endobj 4 0 obj << /Type /Page /Parent 11 0 R /Resources 7 0 R /Contents 6 0 R /Thumb 5 0 R >> endobj 12 0 obj << /Type /Page /Parent 11 0 R /Resources 14 0 R /Contents 13 0 R >> endobj 15 0 obj << /Type /Page /Parent 11 0 R /Resources 17 0 R /Contents 16 0 R >> endobj 18 0 obj << /Type /Page /Parent 11 0 R /Resources 20 0 R /Contents 19 0 R >> endobj 21 0 obj << /Type /Page /Parent 11 0 R /Resources 23 0 R /Contents 22 0 R >> endobj 24 0 obj << /Type /Page /Parent 11 0 R /Resources 26 0 R /Contents 25 0 R >> endobj 27 0 obj << /Type /Page /Parent 32 0 R /Resources 29 0 R /Contents 28 0 R >> endobj 33 0 obj << /Type /Page /Parent 32 0 R /Resources 35 0 R /Contents 34 0 R >> endobj 37 0 obj << /Type /Page /Parent 32 0 R /Resources 39 0 R /Contents 38 0 R >> endobj 40 0 obj << /Type /Page /Parent 32 0 R /Resources 42 0 R /Contents 41 0 R >> endobj 43 0 obj << /Type /Page /Parent 32 0 R /Resources 45 0 R /Contents 44 0 R >> endobj 46 0 obj << /Type /Page /Parent 32 0 R /Resources 48 0 R /Contents 47 0 R >> endobj 49 0 obj << /Type /Page /Parent 52 0 R /Resources 51 0 R /Contents 50 0 R >> endobj 53 0 obj << /Type /Page /Parent 52 0 R /Resources 55 0 R /Contents 54 0 R >> endobj 56 0 obj << /Type /Page /Parent 52 0 R /Resources 58 0 R /Contents 57 0 R >> endobj 59 0 obj << /Type /Page /Parent 52 0 R /Resources 61 0 R /Contents 60 0 R >> endobj 62 0 obj << /Type /Page /Parent 52 0 R /Resources 64 0 R /Contents 63 0 R >> endobj 65 0 obj << /Type /Page /Parent 52 0 R /Resources 67 0 R /Contents 66 0 R >> endobj 69 0 obj << /Type /Page /Parent 72 0 R /Resources 71 0 R /Contents 70 0 R >> endobj 73 0 obj << /Type /Page /Parent 72 0 R /Resources 75 0 R /Contents 74 0 R >> endobj 76 0 obj << /Type /Page /Parent 72 0 R /Resources 78 0 R /Contents 77 0 R >> endobj 79 0 obj << /Type /Page /Parent 72 0 R /Resources 81 0 R /Contents 80 0 R >> endobj 82 0 obj << /Type /Page /Parent 72 0 R /Resources 84 0 R /Contents 83 0 R >> endobj 85 0 obj << /Type /Page /Parent 72 0 R /Resources 87 0 R /Contents 86 0 R >> endobj 88 0 obj << /Type /Page /Parent 91 0 R /Resources 90 0 R /Contents 89 0 R >> endobj 92 0 obj << /Type /Page /Parent 91 0 R /Resources 94 0 R /Contents 93 0 R >> endobj 95 0 obj << /Type /Page /Parent 91 0 R /Resources 97 0 R /Contents 96 0 R >> endobj 98 0 obj << /Type /Page /Parent 91 0 R /Resources 100 0 R /Contents 99 0 R >> endobj 101 0 obj << /Type /Page /Parent 91 0 R /Resources 103 0 R /Contents 102 0 R >> endobj 104 0 obj << /Type /Page /Parent 91 0 R /Resources 106 0 R /Contents 105 0 R >> endobj 107 0 obj << /Type /Page /Parent 110 0 R /Resources 109 0 R /Contents 108 0 R >> endobj 111 0 obj << /Type /Page /Parent 110 0 R /Resources 113 0 R /Contents 112 0 R >> endobj 114 0 obj << /Type /Page /Parent 110 0 R /Resources 116 0 R /Contents 115 0 R >> endobj 117 0 obj << /Type /Page /Parent 110 0 R /Resources 119 0 R /Contents 118 0 R >> endobj 120 0 obj << /Type /Page /Parent 110 0 R /Resources 122 0 R /Contents 121 0 R >> endobj 123 0 obj << /Type /Page /Parent 110 0 R /Resources 125 0 R /Contents 124 0 R >> endobj 126 0 obj << /Type /Page /Parent 130 0 R /Resources 128 0 R /Contents 127 0 R >> endobj 131 0 obj << /Type /Page /Parent 130 0 R /Resources 133 0 R /Contents 132 0 R >> endobj 134 0 obj << /Type /Page /Parent 130 0 R /Resources 136 0 R /Contents 135 0 R >> endobj 137 0 obj << /Type /Page /Parent 130 0 R /Resources 139 0 R /Contents 138 0 R >> endobj 140 0 obj << /Type /Page /Parent 130 0 R /Resources 142 0 R /Contents 141 0 R >> endobj 143 0 obj << /Type /Page /Parent 130 0 R /Resources 145 0 R /Contents 144 0 R >> endobj 146 0 obj << /Type /Page /Parent 150 0 R /Resources 148 0 R /Contents 147 0 R >> endobj 151 0 obj << /Type /Page /Parent 150 0 R /Resources 153 0 R /Contents 152 0 R >> endobj 154 0 obj << /Type /Page /Parent 150 0 R /Resources 156 0 R /Contents 155 0 R >> endobj 157 0 obj << /Type /Page /Parent 150 0 R /Resources 159 0 R /Contents 158 0 R >> endobj 160 0 obj << /Type /Page /Parent 150 0 R /Resources 162 0 R /Contents 161 0 R >> endobj 163 0 obj << /Type /Page /Parent 150 0 R /Resources 165 0 R /Contents 164 0 R >> endobj 166 0 obj << /Type /Page /Parent 169 0 R /Resources 168 0 R /Contents 167 0 R >> endobj 170 0 obj << /Type /Page /Parent 169 0 R /Resources 172 0 R /Contents 171 0 R >> endobj 173 0 obj << /Type /Page /Parent 169 0 R /Resources 175 0 R /Contents 174 0 R >> endobj 176 0 obj << /Type /Page /Parent 169 0 R /Resources 178 0 R /Contents 177 0 R >> endobj 179 0 obj << /Type /Page /Parent 169 0 R /Resources 181 0 R /Contents 180 0 R >> endobj 182 0 obj << /Type /Page /Parent 169 0 R /Resources 184 0 R /Contents 183 0 R >> endobj 185 0 obj << /Type /Page /Parent 188 0 R /Resources 187 0 R /Contents 186 0 R >> endobj 189 0 obj << /Type /Page /Parent 188 0 R /Resources 191 0 R /Contents 190 0 R >> endobj 11 0 obj << /Type /Pages /Kids [4 0 R 12 0 R 15 0 R 18 0 R 21 0 R 24 0 R ] /Count 6 /Parent 31 0 R >> endobj 32 0 obj << /Type /Pages /Kids [27 0 R 33 0 R 37 0 R 40 0 R 43 0 R 46 0 R ] /Count 6 /Parent 31 0 R >> endobj 52 0 obj << /Type /Pages /Kids [49 0 R 53 0 R 56 0 R 59 0 R 62 0 R 65 0 R ] /Count 6 /Parent 31 0 R >> endobj 72 0 obj << /Type /Pages /Kids [69 0 R 73 0 R 76 0 R 79 0 R 82 0 R 85 0 R ] /Count 6 /Parent 31 0 R >> endobj 91 0 obj << /Type /Pages /Kids [88 0 R 92 0 R 95 0 R 98 0 R 101 0 R 104 0 R ] /Count 6 /Parent 31 0 R >> endobj 110 0 obj << /Type /Pages /Kids [107 0 R 111 0 R 114 0 R 117 0 R 120 0 R 123 0 R ] /Count 6 /Parent 31 0 R >> endobj 31 0 obj << /Type /Pages /Kids [11 0 R 32 0 R 52 0 R 72 0 R 91 0 R 110 0 R ] /Count 36 /Parent 129 0 R >> endobj 130 0 obj << /Type /Pages /Kids [126 0 R 131 0 R 134 0 R 137 0 R 140 0 R 143 0 R ] /Count 6 /Parent 149 0 R >> endobj 150 0 obj << /Type /Pages /Kids [146 0 R 151 0 R 154 0 R 157 0 R 160 0 R 163 0 R ] /Count 6 /Parent 149 0 R >> endobj 169 0 obj << /Type /Pages /Kids [166 0 R 170 0 R 173 0 R 176 0 R 179 0 R 182 0 R ] /Count 6 /Parent 149 0 R >> endobj 188 0 obj << /Type /Pages /Kids [185 0 R 189 0 R ] /Count 2 /Parent 149 0 R >> endobj 149 0 obj << /Type /Pages /Kids [130 0 R 150 0 R 169 0 R 188 0 R ] /Count 20 /Parent 129 0 R >> endobj 129 0 obj << /Type /Pages /Kids [31 0 R 149 0 R ] /Count 56 /MediaBox [0 0 612 792 ] >> endobj 194 0 obj << /Type /Catalog /Pages 129 0 R >> endobj xref 0 195 0000000000 65535 f 0000000016 00000 n 0000000172 00000 n 0000000400 00000 n 0000154718 00000 n 0000000947 00000 n 0000001543 00000 n 0000002034 00000 n 0000152796 00000 n 0000152894 00000 n 0000152997 00000 n 0000159543 00000 n 0000154812 00000 n 0000002154 00000 n 0000002511 00000 n 0000154896 00000 n 0000002621 00000 n 0000004548 00000 n 0000154980 00000 n 0000004658 00000 n 0000005668 00000 n 0000155064 00000 n 0000005778 00000 n 0000006184 00000 n 0000155148 00000 n 0000006305 00000 n 0000006662 00000 n 0000155232 00000 n 0000006772 00000 n 0000009939 00000 n 0000153103 00000 n 0000160211 00000 n 0000159652 00000 n 0000155316 00000 n 0000010060 00000 n 0000014846 00000 n 0000153181 00000 n 0000155400 00000 n 0000014967 00000 n 0000021904 00000 n 0000155484 00000 n 0000022025 00000 n 0000022386 00000 n 0000155568 00000 n 0000022496 00000 n 0000022875 00000 n 0000155652 00000 n 0000022996 00000 n 0000023358 00000 n 0000155736 00000 n 0000023468 00000 n 0000026800 00000 n 0000159762 00000 n 0000155820 00000 n 0000026921 00000 n 0000030835 00000 n 0000155904 00000 n 0000030956 00000 n 0000031417 00000 n 0000155988 00000 n 0000031538 00000 n 0000031899 00000 n 0000156072 00000 n 0000032009 00000 n 0000035946 00000 n 0000156156 00000 n 0000036067 00000 n 0000040283 00000 n 0000153290 00000 n 0000156240 00000 n 0000040416 00000 n 0000044840 00000 n 0000159872 00000 n 0000156324 00000 n 0000044961 00000 n 0000049856 00000 n 0000156408 00000 n 0000049977 00000 n 0000052675 00000 n 0000156492 00000 n 0000052796 00000 n 0000054583 00000 n 0000156576 00000 n 0000054693 00000 n 0000061482 00000 n 0000156660 00000 n 0000061603 00000 n 0000061965 00000 n 0000156744 00000 n 0000062075 00000 n 0000062439 00000 n 0000159982 00000 n 0000156828 00000 n 0000062560 00000 n 0000062922 00000 n 0000156912 00000 n 0000063032 00000 n 0000066817 00000 n 0000156996 00000 n 0000066927 00000 n 0000071882 00000 n 0000157081 00000 n 0000072004 00000 n 0000076569 00000 n 0000157168 00000 n 0000076680 00000 n 0000081528 00000 n 0000157255 00000 n 0000081650 00000 n 0000084628 00000 n 0000160094 00000 n 0000157343 00000 n 0000084750 00000 n 0000085113 00000 n 0000157431 00000 n 0000085224 00000 n 0000085612 00000 n 0000157519 00000 n 0000085734 00000 n 0000086097 00000 n 0000157607 00000 n 0000086208 00000 n 0000088469 00000 n 0000157695 00000 n 0000088591 00000 n 0000095013 00000 n 0000157783 00000 n 0000095135 00000 n 0000099430 00000 n 0000160867 00000 n 0000160324 00000 n 0000157871 00000 n 0000099563 00000 n 0000104077 00000 n 0000157959 00000 n 0000104210 00000 n 0000108965 00000 n 0000158047 00000 n 0000109098 00000 n 0000112592 00000 n 0000158135 00000 n 0000112725 00000 n 0000113139 00000 n 0000158223 00000 n 0000113261 00000 n 0000113623 00000 n 0000158311 00000 n 0000113734 00000 n 0000118995 00000 n 0000160764 00000 n 0000160442 00000 n 0000158399 00000 n 0000119117 00000 n 0000120942 00000 n 0000158487 00000 n 0000121064 00000 n 0000121479 00000 n 0000158575 00000 n 0000121601 00000 n 0000121963 00000 n 0000158663 00000 n 0000122074 00000 n 0000128002 00000 n 0000158751 00000 n 0000128124 00000 n 0000131370 00000 n 0000158839 00000 n 0000131492 00000 n 0000131922 00000 n 0000160560 00000 n 0000158927 00000 n 0000132044 00000 n 0000132407 00000 n 0000159015 00000 n 0000132518 00000 n 0000136342 00000 n 0000159103 00000 n 0000136475 00000 n 0000141262 00000 n 0000159191 00000 n 0000141395 00000 n 0000141839 00000 n 0000159279 00000 n 0000141961 00000 n 0000142324 00000 n 0000159367 00000 n 0000142435 00000 n 0000152200 00000 n 0000160678 00000 n 0000159455 00000 n 0000152322 00000 n 0000152685 00000 n 0000153393 00000 n 0000154598 00000 n 0000160962 00000 n trailer << /Size 195 /Root 194 0 R /Info 2 0 R /ID [<92e7af494ee3f7a38cf7abec5fcc196b><92e7af494ee3f7a38cf7abec5fcc196b>] >> startxref 161015 %%EOF 2 0 obj << /CreationDate (D:19960121173249) /Producer (Acrobat Distiller 2.1 for Power Macintosh) /Keywords () /Creator (Adobe PageMaker 6.0) /Title (SED1520 Technical Manual) /Subject () /Author (S-MOS Systems, Inc.) /ModDate (D:19960123135211) >> endobj 194 0 obj << /Type /Catalog /Pages 129 0 R /Outlines 195 0 R /PageMode /UseOutlines >> endobj 195 0 obj << /Count 2 /Type /Outlines /First 196 0 R /Last 199 0 R >> endobj 196 0 obj << /Title (Main Menu) /Parent 195 0 R /A 197 0 R /Next 199 0 R >> endobj 197 0 obj << /S /GoToR /F 198 0 R /D [ 0 /FitR 0 272 617 780 ] >> endobj 198 0 obj (../S0A_CVR/COVER.PDF) endobj 199 0 obj << /Title (SED1520) /Prev 196 0 R /Parent 195 0 R /A 200 0 R >> endobj 200 0 obj << /S /GoToR /F 201 0 R /D [ 0 /FitBH 725 ] >> endobj 201 0 obj (../S04_DRCT/DB611520.PDF) endobj xref 0 1 0000000000 65535 f 2 1 0000165074 00000 n 194 8 0000165344 00000 n 0000165452 00000 n 0000165543 00000 n 0000165639 00000 n 0000165724 00000 n 0000165767 00000 n 0000165861 00000 n 0000165937 00000 n trailer << /Size 202 /Info 2 0 R /Root 194 0 R /Prev 161015 /ID[<92e7af494ee3f7a38cf7abec5fcc196b>] >> startxref 165984 %%EOF gpsim-0.27.0/extras/graphic_lcd/Makefile.in0000664000076400007640000004543612210742104015471 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = extras/graphic_lcd DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am AUTHORS \ COPYING ChangeLog INSTALL NEWS README ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive cscopelist-recursive \ ctags-recursive dvi-recursive html-recursive info-recursive \ install-data-recursive install-dvi-recursive \ install-exec-recursive install-html-recursive \ install-info-recursive install-pdf-recursive \ install-ps-recursive install-recursive installcheck-recursive \ installdirs-recursive pdf-recursive ps-recursive \ tags-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive am__recursive_targets = \ $(RECURSIVE_TARGETS) \ $(RECURSIVE_CLEAN_TARGETS) \ $(am__extra_recursive_targets) AM_RECURSIVE_TARGETS = $(am__recursive_targets:-recursive=) TAGS CTAGS \ distdir am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) # Read a list of newline-separated strings from the standard input, # and print each of them once, without duplicates. Input order is # *not* preserved. am__uniquify_input = $(AWK) '\ BEGIN { nonempty = 0; } \ { items[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in items) print i; }; } \ ' # Make sure the list of sources is unique. This is necessary because, # e.g., the same source file might be shared among _SOURCES variables # for different programs/libraries. am__define_uniq_tagged_files = \ list='$(am__tagged_files)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | $(am__uniquify_input)` ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ SUBDIRS = src EXTRA_DIST = \ examples/sed1520/18f452.lkr examples/sed1520/bitmaps.asm \ examples/sed1520/glcd_test.asm \ examples/sed1520/globalvars.inc \ examples/sed1520/lcd100X32.asm examples/sed1520/lcd100X32.inc \ examples/sed1520/Makefile \ examples/sed1520/portdef.inc examples/sed1520/processor.inc \ examples/sed1520/sed1520.asm examples/sed1520/sed1520.inc \ utils/custom.png utils/fontimage.png utils/gpsim1.png \ utils/konqueror16X16.png utils/konqueror3.png \ utils/konqueror.png utils/pngtopic.c utils/README \ doc/mgls10032a.pdf doc/sed1520.pdf all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu extras/graphic_lcd/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu extras/graphic_lcd/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run 'make' without going through this Makefile. # To change the values of 'make' variables: instead of editing Makefiles, # (1) if the variable is set in 'config.status', edit 'config.status' # (which will cause the Makefiles to be regenerated when you run 'make'); # (2) otherwise, pass the desired values on the 'make' command line. $(am__recursive_targets): @fail=; \ if $(am__make_keepgoing); then \ failcom='fail=yes'; \ else \ failcom='exit 1'; \ fi; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" ID: $(am__tagged_files) $(am__define_uniq_tagged_files); mkid -fID $$unique tags: tags-recursive TAGS: tags tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ $(am__define_uniq_tagged_files); \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: ctags-recursive CTAGS: ctags ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) $(am__define_uniq_tagged_files); \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" cscopelist: cscopelist-recursive cscopelist-am: $(am__tagged_files) list='$(am__tagged_files)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(am__recursive_targets) install-am install-strip .PHONY: $(am__recursive_targets) CTAGS GTAGS TAGS all all-am check \ check-am clean clean-generic clean-libtool cscopelist-am ctags \ ctags-am distclean distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ installdirs-am maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \ ps ps-am tags tags-am uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/extras/graphic_lcd/Makefile.am0000644000076400007640000000107711374176644015473 00000000000000 SUBDIRS = src EXTRA_DIST = \ examples/sed1520/18f452.lkr examples/sed1520/bitmaps.asm \ examples/sed1520/glcd_test.asm \ examples/sed1520/globalvars.inc \ examples/sed1520/lcd100X32.asm examples/sed1520/lcd100X32.inc \ examples/sed1520/Makefile \ examples/sed1520/portdef.inc examples/sed1520/processor.inc \ examples/sed1520/sed1520.asm examples/sed1520/sed1520.inc \ utils/custom.png utils/fontimage.png utils/gpsim1.png \ utils/konqueror16X16.png utils/konqueror3.png \ utils/konqueror.png utils/pngtopic.c utils/README \ doc/mgls10032a.pdf doc/sed1520.pdf gpsim-0.27.0/extras/graphic_lcd/src/0000775000076400007640000000000012210742356014270 500000000000000gpsim-0.27.0/extras/graphic_lcd/src/glcd.h0000644000076400007640000000723411374132677015307 00000000000000/* Copyright (C) 2007 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #if !defined(__GLCD_H__) #define __GLCD_H__ #include #include #include #include #define IN_BREADBOARD 0 struct LCDColor { guchar r,g,b; }; //======================================================================== // gLCD - graphic LCD // // gLCD implements the graphical component of the gpsim graphical LCD // modules. The I/O pins and various LCD controllers chips are implemented // elsehere. class gLCD { public: gLCD(GtkWidget *darea, //GdkDrawable *parent, unsigned int cols, unsigned int rows, unsigned int pixel_size_x, unsigned int pixel_size_y, unsigned int pixel_gap, unsigned int nColors=2 ); ~gLCD(); void refresh(); void clear(); void setPixel(unsigned int col, unsigned int row); void setPixel(unsigned int col, unsigned int row, unsigned int colorIdx); void setColor(unsigned int colorIdx, guchar r, guchar g, guchar b); protected: GtkWidget *m_darea; // Drawable containing the graphic // LCD graphics are rendered here. guchar *rgbbuf; unsigned int m_nColumns; unsigned int m_nRows; unsigned int m_border; // pixel size Mapping between graphical pixmap and LCD. unsigned int m_xPixel; unsigned int m_yPixel; unsigned int m_pixelGap; // Colors LCDColor *m_Colors; unsigned int m_nColors; void setPixel(unsigned int col, unsigned int row, guchar r, guchar g, guchar b); }; //======================================================================== class gLCD_Module; class gLCD_Interface : public Interface { private: gLCD_Module *plcd; public: //virtual void UpdateObject (gpointer xref,int new_value); //virtual void RemoveObject (gpointer xref); virtual void SimulationHasStopped (gpointer object); //virtual void NewProcessor (unsigned int processor_id); //virtual void NewModule (Module *module); //virtual void NodeConfigurationChanged (Stimulus_Node *node); //virtual void NewProgram (unsigned int processor_id); virtual void Update (gpointer object); gLCD_Interface(gLCD_Module *_gp); }; //======================================================================== // gLCD_Module - base class of graphic's LCD modules // class gLCD_Module : public Module { public: gLCD_Module(const char *new_name, const char *desc, unsigned int nCols, unsigned int nRows); virtual void Update(GtkWidget *pw =0); protected: GtkWidget *window; GtkWidget *darea; // Drawable containing the graphics gLCD *m_plcd; unsigned int m_nColumns; unsigned int m_nRows; gLCD_Interface *interface; }; //------------------------------------------------------------------------ class ModuleTraceType; class LcdPortRegister : public PortRegister { public: LcdPortRegister(gLCD_Module *plcd, const char * _name, const char *_desc); virtual ~LcdPortRegister(); private: gLCD_Module *m_pLCD; ModuleTraceType *mMTT; }; #endif gpsim-0.27.0/extras/graphic_lcd/src/ssd0323.h0000644000076400007640000000570110655220231015455 00000000000000/* Copyright (C) 2007 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #if !defined(__SSD0323_H__) #define __SSD0323_H__ class SSD0323 { enum { e8080Mode = 6, e6800Mode = 4, eSPIMode = 0, eInvalidMode = 0xff }; enum { // 8080 6800 SPI eCS = 1, // /CS /CS /CS eRES = 2, // /Reset /Reset /Reset eE_RD = 4, // /Rd Enable /Enable eRW = 8, // /Wr Rd /Wr /Wr eDC = 0x10 // D /C D /C D /C --- Data /Command }; public: SSD0323(); void setBS(unsigned int BSpin, bool newBS); void setCS(bool); void setRES(bool); void setDC(bool); void setE_RD(bool); void setRW(bool); void setData(unsigned int); void setSCLK(bool); void setSDIN(bool); void driveDataBus(unsigned int); bool dataBusDirection(); unsigned int getDataBus(); void storeData(); void executeCommand(); void randomizeRAM(); unsigned int getData(); unsigned int getStatus(); inline unsigned int &operator[] (unsigned int index) { return (index < 128*80/2) ? m_ram[index] : prBadRam(index); } void showState(); private: void advanceColumnAddress(); void advanceRowAddress(); // called if an illegal access is made to the RAM unsigned int &prBadRam(unsigned int); // Display state unsigned int m_controlState; unsigned int m_dataBus; // Communication - // The commMode selects one of three possible communication modes // The commState holds the communication state for that mode. unsigned int m_commMode; unsigned int m_commState; unsigned int m_SPIData; // Command processing unsigned int m_commandIndex; unsigned int m_expectedCommandWords; unsigned char cmdWords[20]; // Display ram unsigned int m_ram[128*80/2]; // State information unsigned int m_colAddr; unsigned int m_rowAddr; // helper functions bool bEnabled() { return (m_controlState &(eCS|eRES)) == eRES; } bool bBitState(unsigned int b) { return (m_controlState&b)==b; } void abortCurrentTransaction(); // configuration data controlled by the SSD0323 commands unsigned int m_colStartAddr; unsigned int m_colEndAddr; unsigned int m_rowStartAddr; unsigned int m_rowEndAddr; unsigned int m_Remap; unsigned int m_ContrastControl; }; #endif // __SSD0323_H__ gpsim-0.27.0/extras/graphic_lcd/src/glcd.cc0000664000076400007640000001264312163701216015433 00000000000000/* Copyright (C) 2007 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #ifdef HAVE_GUI #include "glcd.h" #include //------------------------------------------------------------------------ gLCD::gLCD(GtkWidget *darea, unsigned int cols, unsigned int rows, unsigned int pixel_size_x, unsigned int pixel_size_y, unsigned int pixel_gap, unsigned int nColors ) : m_darea(darea), //m_parent(parent), m_nColumns(cols), m_nRows(rows), m_border(3), m_xPixel(pixel_size_x), m_yPixel(pixel_size_y), m_pixelGap(pixel_gap), m_nColors(nColors) { printf("gLCD constructor %p, m_nColumns:%d, m_nRows:%d\n",this,m_nColumns,m_nRows); //g_assert(m_parent != NULL); g_assert(m_darea != NULL); // Allocate an RGB buffer for rendering the LCD screen. rgbbuf = new guchar[(m_nColumns+m_border*2)*m_xPixel * (m_nRows+m_border*2)*m_yPixel * 3]; m_Colors = new LCDColor[m_nColors]; memset ((void *)m_Colors, 0, m_nColors*sizeof(LCDColor)); if (m_nColors > 0) setColor(0, 0x78,0xa8,0x78); if (m_nColors > 1) setColor(1, 0x11,0x33,0x11); } gLCD::~gLCD() { delete [] rgbbuf; } void gLCD::clear() { unsigned int sz = m_xPixel*(m_nColumns+2*m_border) * m_yPixel*(m_nRows+2*m_border); guchar *pos = rgbbuf; guchar r = m_nColors > 0 ? m_Colors[0].r : 0x78; guchar g = m_nColors > 0 ? m_Colors[0].g : 0xa8; guchar b = m_nColors > 0 ? m_Colors[0].b : 0x78; for (unsigned int i=0; iwindow, m_darea->style->fg_gc[GTK_STATE_NORMAL], 0, 0, (m_nColumns+2*m_border)*m_xPixel, (m_nRows+2*m_border)*m_yPixel, GDK_RGB_DITHER_MAX, rgbbuf, (m_nColumns+2*m_border)*m_xPixel *3); } void gLCD::setPixel(unsigned int col, unsigned int row, guchar r, guchar g, guchar b) { int x = (col + m_border) * m_xPixel; int y = (row + m_border) * m_yPixel; // L = length of a row of pixels int L = (m_nColumns+2*m_border)*m_xPixel; unsigned int px = m_xPixel-m_pixelGap; unsigned int py = m_yPixel-m_pixelGap; for (unsigned int j=0; j 1 ? m_Colors[1].r : 0x11; guchar g = m_nColors > 1 ? m_Colors[1].g : 0x33; guchar b = m_nColors > 1 ? m_Colors[1].b : 0x11; setPixel(col, row, r,g,b); } } void gLCD::setPixel(unsigned int col, unsigned int row, unsigned int colorIdx) { if (colorIdx < m_nColors) setPixel(col, row, m_Colors[colorIdx].r,m_Colors[colorIdx].g,m_Colors[colorIdx].b); } void gLCD::setColor(unsigned int colorIdx, guchar r, guchar g, guchar b) { if (colorIdx < m_nColors) { m_Colors[colorIdx].r = r; m_Colors[colorIdx].g = g; m_Colors[colorIdx].b = b; } } //======================================================================== // // LCD interface to the simulator // gLCD_Interface::gLCD_Interface(gLCD_Module *_lcd) : Interface ( (gpointer *) _lcd), plcd(_lcd) { } //-------------------------------------------------- // SimulationHasStopped (gpointer) // // gpsim will call this function when the simulation // has halt (e.g. a break point was hit.) void gLCD_Interface::SimulationHasStopped (gpointer) { if(plcd) plcd->Update(); } void gLCD_Interface::Update (gpointer) { if(plcd) plcd->Update(); } //======================================================================== // // gLCD_Module::gLCD_Module(const char *new_name, const char *desc, unsigned int nCols, unsigned int nRows) : Module(new_name,desc), window(0),darea(0),m_plcd(0),m_nColumns(nCols), m_nRows(nRows) { #if IN_BREADBOARD==0 interface = new gLCD_Interface(this); get_interface().add_interface(interface); #endif } void gLCD_Module::Update(GtkWidget *pw) { } //======================================================================== // LcdPortRegister::LcdPortRegister(gLCD_Module *plcd, const char * _name, const char *_desc) : PortRegister(plcd, _name,_desc,8, 0), m_pLCD(plcd) { mMTT = new ModuleTraceType(plcd,1," Graphic LCD"); trace.allocateTraceType(mMTT); RegisterValue rv(mMTT->type(), mMTT->type() + (1<<22)); set_write_trace(rv); rv = RegisterValue(mMTT->type()+(2<<22), mMTT->type() + (3<<22)); set_read_trace(rv); } LcdPortRegister::~LcdPortRegister() { delete mMTT; } #endif //HAVE_GUI gpsim-0.27.0/extras/graphic_lcd/src/Makefile.in0000664000076400007640000005300312210742104016245 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = extras/graphic_lcd/src DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am \ $(top_srcdir)/depcomp ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(libdir)" LTLIBRARIES = $(lib_LTLIBRARIES) libgpsim_graphicLCD_la_LIBADD = am_libgpsim_graphicLCD_la_OBJECTS = gpsim_modules.lo glcd.lo \ glcd_100X32_sed1520.lo osram.lo sed1520.lo ssd0323.lo libgpsim_graphicLCD_la_OBJECTS = $(am_libgpsim_graphicLCD_la_OBJECTS) AM_V_lt = $(am__v_lt_@AM_V@) am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@) am__v_lt_0 = --silent am__v_lt_1 = libgpsim_graphicLCD_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CXX \ $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CXXLD) \ $(AM_CXXFLAGS) $(CXXFLAGS) $(libgpsim_graphicLCD_la_LDFLAGS) \ $(LDFLAGS) -o $@ AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/depcomp am__depfiles_maybe = depfiles am__mv = mv -f CXXCOMPILE = $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) LTCXXCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) \ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ $(AM_CXXFLAGS) $(CXXFLAGS) AM_V_CXX = $(am__v_CXX_@AM_V@) am__v_CXX_ = $(am__v_CXX_@AM_DEFAULT_V@) am__v_CXX_0 = @echo " CXX " $@; am__v_CXX_1 = CXXLD = $(CXX) CXXLINK = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CXXLD) $(AM_CXXFLAGS) \ $(CXXFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@ AM_V_CXXLD = $(am__v_CXXLD_@AM_V@) am__v_CXXLD_ = $(am__v_CXXLD_@AM_DEFAULT_V@) am__v_CXXLD_0 = @echo " CXXLD " $@; am__v_CXXLD_1 = COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) \ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ $(AM_CFLAGS) $(CFLAGS) AM_V_CC = $(am__v_CC_@AM_V@) am__v_CC_ = $(am__v_CC_@AM_DEFAULT_V@) am__v_CC_0 = @echo " CC " $@; am__v_CC_1 = CCLD = $(CC) LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ $(AM_LDFLAGS) $(LDFLAGS) -o $@ AM_V_CCLD = $(am__v_CCLD_@AM_V@) am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@) am__v_CCLD_0 = @echo " CCLD " $@; am__v_CCLD_1 = SOURCES = $(libgpsim_graphicLCD_la_SOURCES) DIST_SOURCES = $(libgpsim_graphicLCD_la_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) # Read a list of newline-separated strings from the standard input, # and print each of them once, without duplicates. Input order is # *not* preserved. am__uniquify_input = $(AWK) '\ BEGIN { nonempty = 0; } \ { items[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in items) print i; }; } \ ' # Make sure the list of sources is unique. This is necessary because, # e.g., the same source file might be shared among _SOURCES variables # for different programs/libraries. am__define_uniq_tagged_files = \ list='$(am__tagged_files)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | $(am__uniquify_input)` ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ AM_CPPFLAGS = @X_CFLAGS@ lib_LTLIBRARIES = libgpsim_graphicLCD.la libgpsim_graphicLCD_la_SOURCES = \ gpsim_modules.cc \ glcd.cc glcd.h \ glcd_100X32_sed1520.cc glcd_100X32_sed1520.h \ osram.cc osram.h \ sed1520.cc sed1520.h \ ssd0323.cc ssd0323.h libgpsim_graphicLCD_la_LDFLAGS = @X_LDFLAGS@ EXTRA_DIST = makefile.mingw all: all-am .SUFFIXES: .SUFFIXES: .cc .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu extras/graphic_lcd/src/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu extras/graphic_lcd/src/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-libLTLIBRARIES: $(lib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \ } uninstall-libLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \ done clean-libLTLIBRARIES: -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) @list='$(lib_LTLIBRARIES)'; \ locs=`for p in $$list; do echo $$p; done | \ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ sort -u`; \ test -z "$$locs" || { \ echo rm -f $${locs}; \ rm -f $${locs}; \ } libgpsim_graphicLCD.la: $(libgpsim_graphicLCD_la_OBJECTS) $(libgpsim_graphicLCD_la_DEPENDENCIES) $(EXTRA_libgpsim_graphicLCD_la_DEPENDENCIES) $(AM_V_CXXLD)$(libgpsim_graphicLCD_la_LINK) -rpath $(libdir) $(libgpsim_graphicLCD_la_OBJECTS) $(libgpsim_graphicLCD_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/glcd.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/glcd_100X32_sed1520.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gpsim_modules.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/osram.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/sed1520.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/ssd0323.Plo@am__quote@ .cc.o: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(CXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(CXXCOMPILE) -c -o $@ $< .cc.obj: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(CXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(CXXCOMPILE) -c -o $@ `$(CYGPATH_W) '$<'` .cc.lo: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(LTCXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(LTCXXCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs ID: $(am__tagged_files) $(am__define_uniq_tagged_files); mkid -fID $$unique tags: tags-am TAGS: tags tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) set x; \ here=`pwd`; \ $(am__define_uniq_tagged_files); \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: ctags-am CTAGS: ctags ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) $(am__define_uniq_tagged_files); \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" cscopelist: cscopelist-am cscopelist-am: $(am__tagged_files) list='$(am__tagged_files)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(LTLIBRARIES) installdirs: for dir in "$(DESTDIR)$(libdir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-libLTLIBRARIES install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-libLTLIBRARIES .MAKE: install-am install-strip .PHONY: CTAGS GTAGS TAGS all all-am check check-am clean clean-generic \ clean-libLTLIBRARIES clean-libtool cscopelist-am ctags \ ctags-am distclean distclean-compile distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-libLTLIBRARIES install-man install-pdf \ install-pdf-am install-ps install-ps-am install-strip \ installcheck installcheck-am installdirs maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-compile \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags tags-am uninstall uninstall-am uninstall-libLTLIBRARIES # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/extras/graphic_lcd/src/Makefile.am0000664000076400007640000000051312177043162016244 00000000000000AM_CPPFLAGS = @X_CFLAGS@ lib_LTLIBRARIES = libgpsim_graphicLCD.la libgpsim_graphicLCD_la_SOURCES = \ gpsim_modules.cc \ glcd.cc glcd.h \ glcd_100X32_sed1520.cc glcd_100X32_sed1520.h \ osram.cc osram.h \ sed1520.cc sed1520.h \ ssd0323.cc ssd0323.h libgpsim_graphicLCD_la_LDFLAGS = @X_LDFLAGS@ EXTRA_DIST = makefile.mingw gpsim-0.27.0/extras/graphic_lcd/src/glcd_100X32_sed1520.h0000644000076400007640000000276510644005163017317 00000000000000/* Copyright (C) 2005 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #if !defined(__GLCD_100X32_SED1520_H__) #define __GLCD_100X32_SED1520_H__ #include #include "glcd.h" class SED1520; class LCD_InputPin; class PortRegister; class LCD_Interface; class gLCD; enum ePins { eA0, eE1, eE2, eRW }; class gLCD_100X32_SED1520 : public gLCD_Module { public: gLCD_100X32_SED1520(const char *new_name); ~gLCD_100X32_SED1520(); static Module *construct(const char *new_name); bool dataBusDirection(); void Update(GtkWidget *pw =0); void UpdatePinState(ePins, char); void create_iopin_map(); void create_widget(); private: PortRegister *m_dataBus; LCD_InputPin *m_A0; LCD_InputPin *m_E1; LCD_InputPin *m_E2; LCD_InputPin *m_RW; SED1520 *m_sed1; SED1520 *m_sed2; }; #endif //__GLCD_100X32_SED1520_H__ gpsim-0.27.0/extras/graphic_lcd/src/osram.h0000644000076400007640000000324111374174675015515 00000000000000/* Copyright (C) 2007 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #if !defined(__OSRAM_H__) #define __OSRAM_H__ #include #include "glcd.h" class SSD0323; // gpsim graphics LCD modules for OSRAM Pictivia(tm) OLED Displays namespace OSRAM { class SSD0323_InputPin; class StateAttribute; class PK27_Series : public gLCD_Module { public: PK27_Series(const char *new_name); ~PK27_Series(); static Module *construct(const char *new_name); void Update(GtkWidget *pw =0); bool dataBusDirection(); /* void UpdatePinState(ePins, char); */ void create_iopin_map(); void create_widget(); private: PortRegister *m_dataBus; SSD0323_InputPin *m_CS; SSD0323_InputPin *m_RES; SSD0323_InputPin *m_DC; SSD0323_InputPin *m_E; SSD0323_InputPin *m_RW; SSD0323_InputPin *m_BS1; SSD0323_InputPin *m_BS2; SSD0323 *m_pSSD0323; StateAttribute *m_state; /* PortRegister *m_dataBus; */ }; } // End of OSRAM namespace #endif gpsim-0.27.0/extras/graphic_lcd/src/glcd_100X32_sed1520.cc0000644000076400007640000002311011374154174017450 00000000000000/* Copyright (C) 2005 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include "config.h" #ifdef HAVE_GUI #include "glcd_100X32_sed1520.h" #include "glcd.h" #include "sed1520.h" #include #include #include #include #include #include #define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("%s:%d",__FILE__,__LINE__); printf arg; } #else #define Dprintf(arg) {} #endif //======================================================================== // // Describe the intent..... // //======================================================================== //------------------------------------------------------------------------ // I/O pins for the graphic LCD //------------------------------------------------------------------------ // The LCD_InputPin is the base class for the E1, E2, RW and A0 // pins. This class is derived from the IO_bi_directional class, // although the pins are never driven as outputs. The setDrivenState // method is overridden to capture when this pin is driven. class LCD_InputPin : public IO_bi_directional { public: LCD_InputPin (gLCD_100X32_SED1520 *, const char *pinName, ePins pin); // Capture when a node drives this pin. virtual void setDrivenState(bool new_dstate); char CurrentState() { return m_cDrivenState; } private: // The IO_bi_directional constructor will initialize the direction // to be an input. We'll override the update_direction method so that // this will never change. virtual void update_direction(unsigned int,bool refresh) { // Disallow pin direction changes. } gLCD_100X32_SED1520 *m_pLCD; ePins m_pin; char m_cDrivenState; }; //------------------------------------------------------------------------ // LCD_InputPin::LCD_InputPin (gLCD_100X32_SED1520 *pLCD , const char *pinName, ePins pin) : IO_bi_directional(pinName), m_pLCD(pLCD), m_pin(pin), m_cDrivenState('Z') { assert(m_pLCD); } void LCD_InputPin::setDrivenState(bool new_dstate) { IO_bi_directional::setDrivenState(new_dstate); char cState = getBitChar(); if (m_cDrivenState != cState) { m_cDrivenState = cState; m_pLCD->UpdatePinState(m_pin, cState); } } //------------------------------------------------------------------------ // class LCDSignalControl : public SignalControl { public: LCDSignalControl(gLCD_100X32_SED1520 *pLCD) : m_pLCD(pLCD) { assert(m_pLCD); } virtual void release() { } virtual char getState() { // return the data bus direction (note the negative true logic. return m_pLCD->dataBusDirection() ? '0' : '1'; } private: gLCD_100X32_SED1520 *m_pLCD; }; //------------------------------------------------------------------------ bool gLCD_100X32_SED1520::dataBusDirection() { // FIXME, if both sed's are driving the data bus, then they'll be in // contention. return m_sed1->dataBusDirection() || m_sed2->dataBusDirection(); } //------------------------------------------------------------------------ Module *gLCD_100X32_SED1520::construct(const char *_new_name=0) { gLCD_100X32_SED1520 *gLCD = new gLCD_100X32_SED1520(_new_name); return gLCD; } //------------------------------------------------------------------------ gLCD_100X32_SED1520::gLCD_100X32_SED1520(const char *_new_name) : gLCD_Module(_new_name,"SED1520 100X32 Graphics LCD module",100,32) { m_dataBus = new LcdPortRegister(this,".data","LCD Data Port"); addSymbol(m_dataBus); m_dataBus->setEnableMask(0xff); m_A0 = new LCD_InputPin(this,(name() + ".a0").c_str(),eA0); m_E1 = new LCD_InputPin(this,(name() + ".e1").c_str(),eE1); m_E2 = new LCD_InputPin(this,(name() + ".e2").c_str(),eE2); m_RW = new LCD_InputPin(this,(name() + ".rw").c_str(),eRW); m_sed1 = new SED1520(); m_sed2 = new SED1520(); m_sed1->randomizeRAM(); m_sed2->randomizeRAM(); create_iopin_map(); m_plcd = 0; create_widget(); printf ("gLCD_100X32_SED1520 constructor this=%p\n",this); } gLCD_100X32_SED1520::~gLCD_100X32_SED1520() { delete m_dataBus; delete m_A0; delete m_E1; delete m_E2; delete m_RW; delete m_sed1; delete m_sed2; } //------------------------------------------------------------------------ void gLCD_100X32_SED1520::create_iopin_map() { create_pkg(18); // Add the individual io pins to the data bus. assign_pin( 9, m_dataBus->addPin(new IO_bi_directional((name() + ".d0").c_str()),0)); assign_pin(10, m_dataBus->addPin(new IO_bi_directional((name() + ".d1").c_str()),1)); assign_pin(11, m_dataBus->addPin(new IO_bi_directional((name() + ".d2").c_str()),2)); assign_pin(12, m_dataBus->addPin(new IO_bi_directional((name() + ".d3").c_str()),3)); assign_pin(13, m_dataBus->addPin(new IO_bi_directional((name() + ".d4").c_str()),4)); assign_pin(14, m_dataBus->addPin(new IO_bi_directional((name() + ".d5").c_str()),5)); assign_pin(15, m_dataBus->addPin(new IO_bi_directional((name() + ".d6").c_str()),6)); assign_pin(16, m_dataBus->addPin(new IO_bi_directional((name() + ".d7").c_str()),7)); // Provide a SignalControl object that the dataBus port can query // to determine which direction to drive the data bus. // (See for more documentation on port behavior. // But in summary, when an I/O port updates its I/O pins, it will // query the pin drive direction via the SignalControl object. ) SignalControl *pPortDirectionControl = new LCDSignalControl(this); for (int i=0; i<8; i++) (*m_dataBus)[i].setControl(pPortDirectionControl); assign_pin( 4, m_A0); assign_pin( 5, m_RW); assign_pin( 6, m_E1); assign_pin( 7, m_E2); #if IN_BREADBOARD==1 // Place pins along the left side of the package for (int i=1; i<=18; i++) package->setPinGeometry(i, 0.0, i*12.0, 0, true); #endif } static gboolean lcd_expose_event(GtkWidget *widget, GdkEventExpose *event, gLCD_100X32_SED1520 *pLCD) { //printf ("Expose event widget %p pLCD %p\n",widget,pLCD); pLCD->Update(widget); return TRUE; } //------------------------------------------------------------------------ void gLCD_100X32_SED1520::Update(GtkWidget *widget) { if (!m_plcd) { if (!darea || !darea->window) return; m_plcd = new gLCD(darea, m_nColumns, m_nRows, 3, 3, 1); printf("m_plcd %p\n",m_plcd); } assert (m_plcd !=0); m_plcd->clear(); for (unsigned int i=0; i>=1) if (displayByte & 1) m_plcd->setPixel(i,row+b); } } m_plcd->refresh(); } //------------------------------------------------------------------------ void gLCD_100X32_SED1520::create_widget() { #if IN_BREADBOARD==1 window = gtk_vbox_new (FALSE, 0); #else window = gtk_window_new (GTK_WINDOW_TOPLEVEL); if(window) { //gtk_window_set_wmclass(GTK_WINDOW(window),type(),"Gpsim"); gtk_window_set_wmclass(GTK_WINDOW(window),"glcd","Gpsim"); gtk_widget_realize (window); gtk_window_set_title(GTK_WINDOW(window), "LCD"); } #endif if(window) { GtkWidget *frame = gtk_frame_new ("gLCD_100X32"); gtk_container_add (GTK_CONTAINER (window), frame); darea = gtk_drawing_area_new (); gtk_widget_set_usize (darea, (m_nColumns+4)*3, (m_nRows+4)*3 ); gtk_container_add (GTK_CONTAINER (frame), darea); gtk_signal_connect (GTK_OBJECT (darea), "expose_event", GTK_SIGNAL_FUNC (lcd_expose_event), this); gtk_widget_set_events (darea, GDK_EXPOSURE_MASK | GDK_BUTTON_PRESS_MASK); /* gtk_signal_connect (GTK_OBJECT (darea), "button_press_event", GTK_SIGNAL_FUNC (cursor_event), NULL); */ gtk_widget_show (frame); gtk_widget_show (darea); gtk_widget_show (window); #if IN_BREADBOARD==1 set_widget(window); #endif } } //------------------------------------------------------------------------ void gLCD_100X32_SED1520::UpdatePinState(ePins pin, char cState) { // One of the control lines has changed states. So refresh the // sed's with the most current data bus value. if (!m_sed1->dataBusDirection()) m_sed1->driveDataBus(m_dataBus->get()); if (!m_sed2->dataBusDirection()) m_sed2->driveDataBus(m_dataBus->get()); bool bState = (cState =='1') || (cState =='W'); switch (pin) { case eA0: m_sed1->setA0(bState); m_sed2->setA0(bState); break; case eE1: m_sed1->setE(bState); break; case eE2: m_sed2->setE(bState); break; case eRW: m_sed1->setRW(bState); m_sed2->setRW(bState); break; } // If either one of the sed's is driving, then place that // data on to the data bus. if (m_sed1->dataBusDirection()) m_dataBus->put(m_sed1->getDataBus()); else if (m_sed2->dataBusDirection()) m_dataBus->put(m_sed2->getDataBus()); else m_dataBus->updatePort(); } #endif // HAVE_GUI gpsim-0.27.0/extras/graphic_lcd/src/ssd0323.cc0000644000076400007640000004302411375676511015633 00000000000000/* Copyright (C) 2007 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #ifdef HAVE_GUI #define IN_MODULE #include #include #include #include #include #include #include #include #include using namespace std; #include #include #include #include #include #include "ssd0323.h" //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("%s:%d ",__FUNCTION__,__LINE__); printf arg; } #else #define Dprintf(arg) {} #endif //======================================================================== // // SSD0323 Solomon Systech Display controller // // -- 128X80, 16 Gray Scale Dot Matrix // // // Questions // 1) The command sequence involves writing multiple bytes. Under what // conditions is the state of this sequence modified? // -- Assume that each command write automatically advances the state // -- Assume that it is okay for CS and DC to change states between writes // -- Assume that a low on RES clears the state. // -- Assume that a data write before the command completes aborts the command. //------------------------------------------------------------------------ //------------------------------------------------------------------------ void unitTest(SSD0323 *pSSD0323); SSD0323::SSD0323() : m_controlState(0), m_dataBus(0x100), m_commMode(SSD0323::eSPIMode), m_commState(0), m_SPIData(0), m_commandIndex(0), m_expectedCommandWords(0), m_colAddr(0), m_rowAddr(0) { m_colStartAddr = 0; m_colEndAddr = 0x3f; m_rowStartAddr = 0; m_rowEndAddr = 0x4f; m_Remap = 0; m_ContrastControl = 0x40; unitTest(this); } //------------------------------------------------------------------------ void SSD0323::abortCurrentTransaction() { m_commState = 0; m_commandIndex = 0; } //------------------------------------------------------------------------ // setBS -- selects the communication interface: // // BS Mode // 000 Serial // 100 6800 // 110 8080 void SSD0323::setBS(unsigned int BSpin, bool newBS) { //Dprintf(("pin:%d state:%d currentBS state:%d\n",BSpin, newBS,m_commMode)); if ( (((1<= 8) { // Place the contents of the SPI receiver onto the // internal data bus and then perform the write operation. m_dataBus = m_SPIData; if (bBitState(eDC)) storeData(); else executeCommand(); m_commState = 0; m_SPIData=0; } } } m_dataBus = d; } void SSD0323::setSCLK(bool bSCL) { setData((m_dataBus&~bSCLK) | (bSCL ? bSCLK : 0)); } void SSD0323::setSDIN(bool bSDA) { setData((m_dataBus&~bSDIN) | (bSDA ? bSDIN : 0)); } void SSD0323::driveDataBus(unsigned int d) { m_dataBus = d; } void SSD0323::advanceColumnAddress() { if (++m_colAddr <= m_colEndAddr) return; m_colAddr = m_colStartAddr; if (m_rowStartAddr != m_rowEndAddr) advanceRowAddress(); } void SSD0323::advanceRowAddress() { if (++m_rowAddr <= m_rowEndAddr) return; m_rowAddr = m_rowStartAddr; if (m_colStartAddr != m_colEndAddr) advanceColumnAddress(); } void SSD0323::storeData() { m_ram[m_rowAddr*64 + m_colAddr] = m_dataBus; Dprintf((" data:0x%02x row:%d col:%d\n",m_dataBus,m_rowAddr,m_colAddr )); const int incMode = 4; if (m_Remap & incMode) advanceRowAddress(); else advanceColumnAddress(); } unsigned int SSD0323::getData() { m_dataBus = m_ram[m_rowAddr*64 + m_colAddr]; return m_dataBus; } unsigned int SSD0323::getStatus() { return 0; } void SSD0323::executeCommand() { const int CmdSetColumnAddress = 0x15; const int CmdGraphicAccleration = 0x23; const int CmdDrawRectangle = 0x24; const int CmdCopy = 0x25; const int CmdHorizontalScroll = 0x26; const int CmdStopMoving = 0x2E; const int CmdStartMoving = 0x2F; const int CmdSetRowAddress = 0x75; const int CmdSetContrast = 0x81; const int CmdSetQuarterCurrent = 0x84; const int CmdSetHalfCurrent = 0x85; const int CmdSetFullCurrent = 0x86; const int CmdSetRemap = 0xA0; const int CmdSetDisplayStartLine = 0xA1; const int CmdSetDisplayOffset = 0xA2; const int CmdSetNormalDisplay = 0xA4; const int CmdSetAllOn = 0xA5; const int CmdSetAllOff = 0xA6; const int CmdSetInverse = 0xA7; const int CmdSetMultiplexRatio = 0xA8; const int CmdSetMasterCfg = 0xAD; const int CmdSetDisplayOff = 0xAE; const int CmdSetDisplayOn = 0xAF; const int CmdSetPreChargeCompensationEnable = 0xB0; const int CmdSetPhaseLength = 0xB1; const int CmdSetRowPeriod = 0xB2; const int CmdSetClockDivide = 0xB3; const int CmdSetPreChargeCompensationLevel = 0xB4; const int CmdSetGrayScaleTable = 0xB8; const int CmdSetPreChargeVoltage = 0xBC; const int CmdSetVCOMH = 0xBE; const int CmdSetVSL = 0xBF; const int CmdNop = 0xE3; cmdWords[m_commandIndex] = m_dataBus; m_commandIndex = (m_commandIndex+1)&0xf; if (m_commandIndex > sizeof (cmdWords)) { m_commandIndex = 0; cout << "Warning: SSD0323::executeCommand() - command buffer overflow\n"; return; } cout << __FUNCTION__ << ":data=0x"<>8) & 0xff; } //------------------------------------------------------------------------ // prBadRam - private function called when ever an illegal access is made // to the RAM unsigned int &SSD0323::prBadRam(unsigned int index) { static unsigned int si; printf("WARNING SSD0323 - illegal RAM access index=%d\n",index); return si; } //------------------------------------------------------------------------ //------------------------------------------------------------------------ void SSD0323::showState() { printf("SSD0323 internal state:\n"); switch (m_commMode) { case e8080Mode: printf(" 8080 mode\n"); break; case e6800Mode: printf(" 6800 mode\n"); break; case eSPIMode: printf(" SPI mode\n"); break; } printf("remap: 0x%02x\n",m_Remap); printf("column start:0x%02x end:0x%02x curr:0x%02x\n",m_colStartAddr,m_colEndAddr,m_colAddr); printf("row start:0x%02x end:0x%02x curr:0x%02x\n",m_rowStartAddr,m_rowEndAddr,m_rowAddr); } #define UNIT_TESTING 1 #if UNIT_TESTING == 1 //======================================================================== static SSD0323 *p_gSSD0323=0; void WriteCommand(unsigned int c) { if (p_gSSD0323) { p_gSSD0323->setData(c); p_gSSD0323->executeCommand(); } } void WriteData(unsigned int d) { if (p_gSSD0323) { p_gSSD0323->setData(d); p_gSSD0323->storeData(); } } void unitTest(SSD0323 *pSSD0323) { cout << "Running SSD0323 unit test\n"; p_gSSD0323 = pSSD0323; // Column Address WriteCommand(0x15); /* Set Column Address */ WriteCommand(0x00); /* Start = 0 */ WriteCommand(0x3F); /* End = 127 */ // Row Address WriteCommand(0x75); /* Set Row Address */ WriteCommand(0x00); /* Start = 0 */ WriteCommand(0x3F); /* End = 63 */ // Contrast Control WriteCommand(0x81); /* Set Contrast Control */ WriteCommand(0x6D); /* 0 ~ 127 */ // Current Range WriteCommand(0x86); /* Set Current Range 84h:Quarter, 85h:Half, 86h:Full*/ // Re-map WriteCommand(0xA0); /* Set Re-map */ WriteCommand(0x41); /* [0]:MX, [1]:Nibble, [2]:H/V address [4]:MY, [6]:Com Split Odd/Even "1000010"*/ // Display Start Line WriteCommand(0xA1); /* Set Display Start Line */ WriteCommand(0x00); /* Start at row 0 */ // Display Offset WriteCommand(0xA2); /* Set Display Offset */ WriteCommand(0x44); /* Offset 68 rows */ // Display Mode WriteCommand(0xA4); /* Set DisplaMode,A4:Normal, A5:All ON, A6: All OFF, A7:Inverse */ // Multiplex Ratio WriteCommand(0xA8); /* Set Multiplex Ratio */ WriteCommand(0x3F); /* 64 mux*/ // Phase Length WriteCommand(0xB1); /* Set Phase Length */ WriteCommand(0x22); /* [3:0]:Phase 1 period of 1~16 clocks */ /* [7:4]:Phase 2 period of 1~16 clocks // POR = 0111 0100 */ // Set Pre-charge Compensation Enable WriteCommand(0xB0); /* Set Pre-charge Compensation Enable */ WriteCommand(0x28); /* Enable*/ // Set Pre-charge Compensation Level WriteCommand(0xB4); /* Set Pre-charge Compensation Level */ WriteCommand(0x07); /* Higher level */ // Row Period WriteCommand(0xB2); /* Set Row Period */ WriteCommand(0x46); /* [7:0]:18~255, K=P1+P2+GS15 (POR:4+7+29)*/ // Display Clock Divide WriteCommand(0xB3); /* Set Clock Divide (2) */ WriteCommand(0x91); /* [3:0]:1~16, [7:4]:0~16, 100Hz */ /* POR = 0000 0001 */ // VSL WriteCommand(0xBF); /* Set VSL */ WriteCommand(0x0D); /* [3:0]:VSL */ // VCOMH WriteCommand(0xBE); /* Set VCOMH (3) */ WriteCommand(0x02); /* [7:0]:VCOMH, (0.53 X Vref = 0.53 X 15 V = 7.95V)*/ // VP /* Set VP (4) */ WriteCommand(0xBC); WriteCommand(0x10); /* [7:0]:VP, (0.67 X Vref = 0.67 X 15 V = 10.05V) */ // Gamma WriteCommand(0xB8); /* Set Gamma with next 8 bytes */ WriteCommand(0x01); /* L1[2:1] */ WriteCommand(0x11); /* L3[6:4], L2[2:0] 0001 0001 */ WriteCommand(0x22); /* L5[6:4], L4[2:0] 0010 0010 */ WriteCommand(0x32); /* L7[6:4], L6[2:0] 0011 1011 */ WriteCommand(0x43); /* L9[6:4], L8[2:0] 0100 0100 */ WriteCommand(0x54); /* LB[6:4], LA[2:0] 0101 0101 */ WriteCommand(0x65); /* LD[6:4], LC[2:0] 0110 0110 */ WriteCommand(0x76); /* LF[6:4], LE[2:0] 1000 0111 */ // Set DC-DC WriteCommand(0xAD); /* Set DC-DC */ WriteCommand(0x02); /* 03=ON, 02=Off */ // Display ON/OFF WriteCommand(0xAF); /* AF=ON, AE=Sleep Mode */ //unsigned int i; //for(i=0; i<4; i++) WriteData(0xff); WriteData(0xff); } #endif // UNIT_TESTING #endif // HAVE_GUI gpsim-0.27.0/extras/graphic_lcd/src/sed1520.cc0000644000076400007640000000734011374152275015611 00000000000000/* Copyright (C) 2005 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include #ifdef HAVE_GUI #define IN_MODULE #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "sed1520.h" #define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("%s:%d",__FILE__,__LINE__); printf arg; } #else #define Dprintf(arg) {} #endif //------------------------------------------------------------------------ SED1520::SED1520() : m_bE(true), m_controlState(0), m_page(0), m_columnAddress(0) { } //------------------------------------------------------------------------ void SED1520::setA0(bool newA0) { m_controlState &= ~eA0; m_controlState |= (newA0 ? eA0 : 0); } void SED1520::setRW(bool newRW) { m_controlState &= ~eRW; m_controlState |= (newRW ? eRW : 0); } void SED1520::setE(bool newE) { if (m_bE != newE && newE) { switch (m_controlState) { case eDataRead: driveDataBus(getData()); advanceColumnAddress(); break; case eDataWrite: storeData(); advanceColumnAddress(); break; case eStatusRead: driveDataBus(getStatus()); break; case eCommandWrite: executeCommand(); break; } } m_bE = newE; } void SED1520::setData(unsigned int d) { m_dataBus = d; } void SED1520::driveDataBus(unsigned int d) { m_dataBus = d; } void SED1520::advanceColumnAddress() { m_columnAddress += (m_columnAddress < eNCOLUMNS_PER_PAGE) ? 1 : 0; } void SED1520::storeData() { m_ram[eNCOLUMNS_PER_PAGE*m_page + m_columnAddress] = m_dataBus; } unsigned int SED1520::getData() { m_dataBus = m_ram[eNCOLUMNS_PER_PAGE*m_page + m_columnAddress]; return m_dataBus; } unsigned int SED1520::getStatus() { return 0; } void SED1520::executeCommand() { // decode the command if ( (m_dataBus & 0x80) == 0) { // Set column address m_columnAddress = (m_dataBus & 0x7f) % eNCOLUMNS_PER_PAGE; } else { if ((m_dataBus & 0x7C) == 0x38) // set Page Address m_page = m_dataBus & 3; } } //------------------------------------------------------------------------ bool SED1520::dataBusDirection() { return (m_controlState & (eE | eRW)) == (eE | eRW); } //------------------------------------------------------------------------ unsigned int SED1520::getDataBus() { return m_dataBus; } //------------------------------------------------------------------------ void SED1520::randomizeRAM() { for (unsigned int i=0; i < eNCOLUMNS_PER_PAGE * eNPAGES; i++) m_ram[i] = (rand()>>8) & 0xff; } //------------------------------------------------------------------------ // prBadRam - private function called when ever an illegal access is made // to the RAM unsigned int &SED1520::prBadRam(unsigned int index) { static unsigned int si; printf("WARNING SED1520 - illegal RAM access index=%d\n",index); return si; } #endif // HAVE_GUI gpsim-0.27.0/extras/graphic_lcd/src/makefile.mingw0000664000076400007640000000421212202777764017043 00000000000000## Makefile for building the usart_con with gcc for mingw. The build ## uses tools running on cygwin, however. ## Use: make -f makefile.mingw ifdef DEBUG OPTIMIZE = -O2 -g else OPTIMIZE = -O2 CLDFLAGS = -Wl,--strip-all endif ifndef GLIB_PATH GLIB_PATH = ../../../../glib endif ifndef GTK_PATH GTK_PATH = ../../../../gtk+ endif ifndef PANGO_PATH PANGO_PATH = ../../../../pango endif ifndef ATK_PATH ATK_PATH = ../../../../atk endif ifndef CAIRO_PATH CAIRO_PATH = ../../../../cairo endif ifndef GDK_PIXBUF_PATH GDK_PIXBUF_PATH = ../../../../gdk-pixbuf endif ifndef GPSIM_LIB_PATH GPSIM_LIB_PATH = ../../../lib/gpsim endif ifndef GPSIM_INCLUDE_PATH GPSIM_INCLUDE_PATH = ../../../include endif ifndef GPSIM_DEF_PATH GPSIM_DEF_PATH = ../../../lib/gpsim endif CFLAGS = $(OPTIMIZE) $(INCLUDES) $(DEFINES) -Wall ## Cygwin / Mingw GCC 3.4.4 with -mno-cygwin support #CXX = c++ -mno-cygwin -mtune=pentium -mms-bitfields # Mingw GCC 4.7.3 CXX = i686-pc-mingw32-g++ -mtune=pentium -mms-bitfields .cc.o: $(CXX) $(CFLAGS) -c $< -o $@ ################################################################ # Nothing much configurable below LIBS = $(GLIB_PATH)/lib/glib-2.0.lib $(GLIB_PATH)/lib/gobject-2.0.lib \ $(GTK_PATH)/lib/gdk-win32-2.0.lib $(GTK_PATH)/lib/gtk-win32-2.0.lib \ $(CAIRO_PATH)/lib/cairo.lib \ $(GDK_PIXBUF_PATH)/lib/gdk_pixbuf-2.0.lib \ $(GPSIM_LIB_PATH)/libgpsim.a INCLUDES = -I ../../.. -I $(GPSIM_INCLUDE_PATH) \ -I $(GLIB_PATH)/include/glib-2.0 -I $(GLIB_PATH)/lib/glib-2.0/include \ -I $(GTK_PATH)/include/gtk-2.0 -I $(GTK_PATH)/lib/gtk-2.0/include \ -I $(PANGO_PATH)/include/pango-1.0 -I $(ATK_PATH)/include/atk-1.0 \ -I $(CAIRO_PATH)/include/cairo \ -I $(GDK_PIXBUF_PATH)/include/gdk-pixbuf-2.0 DEFINES += -DHAVE_GUI all: \ libgpsim_graphicLCD.dll libgpsim_graphicLCD_OBJECTS = \ glcd.o \ glcd_100X32_sed1520.o \ gpsim_modules.o \ osram.o \ sed1520.o \ ssd0323.o ################ The modules DLL libgpsim_graphicLCD.dll : $(libgpsim_graphicLCD_OBJECTS) $(CXX) $(CFLAGS) $(CLDFLAGS) -shared -o libgpsim_graphicLCD.dll $(GPSIM_DEF_PATH)/modules.def $(libgpsim_graphicLCD_OBJECTS) $(LIBS) clean: -rm -f *.o *.dll gpsim-0.27.0/extras/graphic_lcd/src/sed1520.h0000644000076400007640000000354410416272236015451 00000000000000/* Copyright (C) 2005 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #if !defined(__SED1520_H__) #define __SED1520_H__ class SED1520 { enum { eNPAGES = 4, eNCOLUMNS_PER_PAGE = 80 }; enum { eA0 = 1, eRW = 2, eE = 4, eDataRead = eA0 | eRW, eDataWrite = eA0, eStatusRead = eRW, eCommandWrite = 0 }; public: SED1520(); void setA0(bool); void setE(bool); void setRW(bool); void setData(unsigned int); void driveDataBus(unsigned int); bool dataBusDirection(); unsigned int getDataBus(); void advanceColumnAddress(); void storeData(); void executeCommand(); void randomizeRAM(); unsigned int getData(); unsigned int getStatus(); inline unsigned int &operator[] (unsigned int index) { return (index < eNCOLUMNS_PER_PAGE * eNPAGES) ? m_ram[index] : prBadRam(index); } private: // called if an illegal access is made to the RAM unsigned int &prBadRam(unsigned int); /// I/O pin interface bool m_bE; unsigned int m_controlState; unsigned int m_dataBus; // Display ram unsigned int m_ram[eNCOLUMNS_PER_PAGE * eNPAGES]; // State information unsigned int m_page; unsigned int m_columnAddress; }; #endif //__SED1520_H__ gpsim-0.27.0/extras/graphic_lcd/src/gpsim_modules.cc0000644000076400007640000000550111374154011017360 00000000000000/* Copyright (C) 2005 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include /* */ /* IN_MODULE should be defined for modules */ #define IN_MODULE #include #include #include #ifdef HAVE_GUI #include "glcd_100X32_sed1520.h" #include "osram.h" #endif Module_Types available_modules[] = { #ifdef HAVE_GUI { {"LCD100X32", "LCD100X32"}, gLCD_100X32_SED1520::construct }, { {"OSRAM128X64", "OSRAM128X64"}, OSRAM::PK27_Series::construct }, #endif // No more modules { {0,0},0} }; #ifdef __cplusplus extern "C" { #endif /* __cplusplus */ /******************************************************************************** * mod_list - Display all of the modules in this library. * * This is a required function for gpsim compliant libraries. */ Module_Types * get_mod_list(void) { return available_modules; } /******************************************************************************** * mod_list - Display all of the modules in this library. * * This is a required function for gpsim compliant libraries. */ void mod_list(void) { unsigned int number_of = sizeof(available_modules) / sizeof(Module_Types); unsigned int i,j,l; unsigned int k,longest; for(i=0,longest=0; ilongest) longest = k; } k=0; do { for(i=0; (i<4) && (k #ifdef HAVE_GUI #include "osram.h" #include "glcd.h" #include "ssd0323.h" #include #include #include #include #include #include #define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("%s:%d",__FILE__,__LINE__); printf arg; } #else #define Dprintf(arg) {} #endif namespace OSRAM { //------------------------------------------------------------------------ // Debug Stuff //------------------------------------------------------------------------ class StateAttribute : public Integer { public: StateAttribute (SSD0323 *pSSD) : Integer("state",0,"Display the state of the SSD0323 graphics controller"), m_pSSD(pSSD) { assert(pSSD); } virtual string toString() { m_pSSD->showState(); return string(""); } private: SSD0323 *m_pSSD; }; //------------------------------------------------------------------------ // I/O pins for the SSD 0323 controller //------------------------------------------------------------------------ // The LCD_InputPin is the base class for the E1, E2, RW and A0 // pins. This class is derived from the IO_bi_directional class, // although the pins are never driven as outputs. The setDrivenState // method is overridden to capture when this pin is driven. // NOTE: an alternative implementation would be to instantiate // PinModule objects for each of the pins and supply them with // standard IO_bi_directional objects. Then SignalSinks could be // created to capture pin state changes. class SSD0323_InputPin : public IO_bi_directional { public: SSD0323_InputPin (SSD0323 *pSSD, PortRegister *pDataBus, const char *pinName); // Capture when a node drives this pin. virtual void setDrivenState(bool new_dstate); virtual void UpdateControllerPin(bool bState) {} char CurrentState() { return m_cDrivenState; } protected: SSD0323 *m_pSSD0323; PortRegister *m_pDataBus; char m_cDrivenState; private: // The IO_bi_directional constructor will initialize the direction // to be an input. We'll override the update_direction method so that // this will never change. virtual void update_direction(unsigned int,bool refresh) { // Disallow pin direction changes. } }; SSD0323_InputPin::SSD0323_InputPin (SSD0323 *pSSD, PortRegister *pDataBus, const char *pinName) : IO_bi_directional(pinName), m_pSSD0323(pSSD), m_pDataBus(pDataBus), m_cDrivenState('Z') { assert(m_pSSD0323); } void SSD0323_InputPin::setDrivenState(bool new_dstate) { IO_bi_directional::setDrivenState(new_dstate); if (!m_pSSD0323->dataBusDirection()) m_pSSD0323->driveDataBus(m_pDataBus->get()); char cState = getBitChar(); if (m_cDrivenState != cState) { m_cDrivenState = cState; //cout << "LCD pin:" << name() << "-->"<dataBusDirection()) m_pDataBus->put(m_pSSD0323->getDataBus()); } //------------------------------------------------------------------------ // SSD E Pin //------------------------------------------------------------------------ class SSD0323_EPin : public SSD0323_InputPin { public: SSD0323_EPin(SSD0323 *pSSD, PortRegister *pDataBus, const char *pinName) : SSD0323_InputPin(pSSD,pDataBus,pinName) {} virtual void UpdateControllerPin(bool); }; void SSD0323_EPin::UpdateControllerPin(bool bState) { m_pSSD0323->setE_RD(bState); } //------------------------------------------------------------------------ // SSD CS Pin //------------------------------------------------------------------------ class SSD0323_CSPin : public SSD0323_InputPin { public: SSD0323_CSPin(SSD0323 *pSSD, PortRegister *pDataBus, const char *pinName) : SSD0323_InputPin(pSSD,pDataBus,pinName) {} virtual void UpdateControllerPin(bool); }; void SSD0323_CSPin::UpdateControllerPin(bool bState) { m_pSSD0323->setCS(bState); } //------------------------------------------------------------------------ // SSD RES Pin //------------------------------------------------------------------------ class SSD0323_RESPin : public SSD0323_InputPin { public: SSD0323_RESPin(SSD0323 *pSSD, PortRegister *pDataBus, const char *pinName) : SSD0323_InputPin(pSSD,pDataBus,pinName) {} virtual void UpdateControllerPin(bool); }; void SSD0323_RESPin::UpdateControllerPin(bool bState) { m_pSSD0323->setRES(bState); } //------------------------------------------------------------------------ // SSD CS Pin //------------------------------------------------------------------------ class SSD0323_DCPin : public SSD0323_InputPin { public: SSD0323_DCPin(SSD0323 *pSSD, PortRegister *pDataBus, const char *pinName) : SSD0323_InputPin(pSSD,pDataBus,pinName) {} virtual void UpdateControllerPin(bool); }; void SSD0323_DCPin::UpdateControllerPin(bool bState) { m_pSSD0323->setDC(bState); } //------------------------------------------------------------------------ // SSD RW Pin //------------------------------------------------------------------------ class SSD0323_RWPin : public SSD0323_InputPin { public: SSD0323_RWPin(SSD0323 *pSSD, PortRegister *pDataBus, const char *pinName) : SSD0323_InputPin(pSSD,pDataBus,pinName) {} virtual void UpdateControllerPin(bool); }; void SSD0323_RWPin::UpdateControllerPin(bool bState) { m_pSSD0323->setRW(bState); } //------------------------------------------------------------------------ // SSD BS1, BS2 Pin //------------------------------------------------------------------------ class SSD0323_BSPin : public SSD0323_InputPin { public: SSD0323_BSPin(SSD0323 *pSSD, PortRegister *pDataBus, const char *pinName, unsigned pin) : SSD0323_InputPin(pSSD,pDataBus,pinName), m_pin(pin) { assert(m_pin==1 || m_pin==2); } virtual void UpdateControllerPin(bool); private: unsigned int m_pin; }; void SSD0323_BSPin::UpdateControllerPin(bool bState) { m_pSSD0323->setBS(m_pin,bState); } //------------------------------------------------------------------------ // SSD BS1, BS2 Pin //------------------------------------------------------------------------ class SSD_SPISignalSink : public SignalSink { public: SSD_SPISignalSink(SSD0323 *pSSD, bool bClk_or_Data) : m_pSSD0323(pSSD), m_bClk(bClk_or_Data), m_cState(0) { assert(m_pSSD0323); } virtual void release() { } virtual void setSinkState(char c) { if (m_cState != c) { //cout << __FUNCTION__ << " new state: " << c << endl; if (m_bClk) m_pSSD0323->setSCLK(c=='1' || c=='W'); else m_pSSD0323->setSDIN(c=='1' || c=='W'); m_cState = c; } } private: SSD0323 *m_pSSD0323; bool m_bClk; char m_cState; }; //------------------------------------------------------------------------ // class LCDSignalControl : public SignalControl { public: LCDSignalControl(PK27_Series *pLCD) : m_pLCD(pLCD) { assert(m_pLCD); } virtual void release() { } virtual char getState() { // return the data bus direction (note the negative true logic. return m_pLCD->dataBusDirection() ? '0' : '1'; } private: PK27_Series *m_pLCD; }; //------------------------------------------------------------------------ // PK27_Series -- Module constructor. //------------------------------------------------------------------------ Module *PK27_Series::construct(const char *_new_name) { PK27_Series *pLCD = new PK27_Series(_new_name); pLCD->create_widget(); return pLCD; } //------------------------------------------------------------------------ // PK27_Series -- 128X64 - 4-bit gray scale. //------------------------------------------------------------------------ PK27_Series::PK27_Series(const char *_new_name) : gLCD_Module(_new_name,"OSRAM 128X64 Graphics OLED module",128,64) { m_pSSD0323 = new SSD0323(); m_pSSD0323->setBS(0, false); m_dataBus = new LcdPortRegister(this,".data","LCD Data Port"); addSymbol(m_dataBus); m_dataBus->setEnableMask(0xff); m_CS = new SSD0323_CSPin(m_pSSD0323, m_dataBus, (name() + ".cs").c_str()); m_RES = new SSD0323_RESPin(m_pSSD0323, m_dataBus, (name() + ".res").c_str()); m_DC = new SSD0323_DCPin(m_pSSD0323, m_dataBus, (name() + ".dc").c_str()); m_E = new SSD0323_EPin(m_pSSD0323, m_dataBus, (name() + ".e").c_str()); m_RW = new SSD0323_RWPin(m_pSSD0323, m_dataBus, (name() + ".rw").c_str()); m_BS1 = new SSD0323_BSPin(m_pSSD0323, m_dataBus, (name() + ".bs1").c_str(),1); m_BS2 = new SSD0323_BSPin(m_pSSD0323, m_dataBus, (name() + ".bs2").c_str(),2); m_state = new StateAttribute(m_pSSD0323); addSymbol(m_state); /* m_sed1->randomizeRAM(); m_sed2->randomizeRAM(); */ create_iopin_map(); m_plcd = 0; //create_widget(); printf ("OSRAM PK27_Series constructor this=%p\n",this); } //------------------------------------------------------------------------ // ~PK27_Series //------------------------------------------------------------------------ PK27_Series::~PK27_Series() { } static gboolean lcd_expose_event(GtkWidget *widget, GdkEventExpose *event, PK27_Series *pLCD) { printf ("Expose event widget %p pLCD %p\n",widget,pLCD); pLCD->Update(widget); return TRUE; } //------------------------------------------------------------------------ // PK27_Series::Update //------------------------------------------------------------------------ const int pixelScale = 2; void PK27_Series::Update(GtkWidget *widget) { if (!m_plcd) { if (!darea || !darea->window) return; //m_plcd = new gLCD(GDK_DRAWABLE(darea->window), m_nColumns, m_nRows, 3, 3); m_plcd = new gLCD(darea, m_nColumns, m_nRows, pixelScale, pixelScale, 0, 16); for (int i=0; i<16; i++) { unsigned int c = (255*i) / 16; m_plcd->setColor(i, c,c,0); } printf("m_plcd %p\n",m_plcd); m_plcd->clear(); for (int j=0; j<31; j++) { for (int i=0; i<32; i++) m_plcd->setPixel(j,i,j/2); } } assert (m_plcd !=0); m_plcd->clear(); /**/ for (unsigned int row=0; rowsetPixel(2*i+b,row,(displayByte>>4)&0xf); } } m_plcd->refresh(); } //------------------------------------------------------------------------ // PK27_Series::create_widget //------------------------------------------------------------------------ #define IN_BREADBOARD 0 void PK27_Series::create_widget() { #if IN_BREADBOARD==1 window = gtk_vbox_new (FALSE, 0); #else window = gtk_window_new (GTK_WINDOW_TOPLEVEL); if(window) { //gtk_window_set_wmclass(GTK_WINDOW(window),type(),"Gpsim"); gtk_window_set_wmclass(GTK_WINDOW(window),"glcd","Gpsim"); gtk_widget_realize (window); gtk_window_set_title(GTK_WINDOW(window), "LCD"); } #endif if(window) { GtkWidget *frame = gtk_frame_new ("OSRAM PK27_Series"); gtk_container_add (GTK_CONTAINER (window), frame); darea = gtk_drawing_area_new (); gtk_widget_set_usize (darea, (m_nColumns+3)*pixelScale, (m_nRows+3)*pixelScale ); gtk_container_add (GTK_CONTAINER (frame), darea); gtk_signal_connect (GTK_OBJECT (darea), "expose_event", GTK_SIGNAL_FUNC (lcd_expose_event), this); gtk_widget_set_events (darea, GDK_EXPOSURE_MASK | GDK_BUTTON_PRESS_MASK); /* gtk_signal_connect (GTK_OBJECT (darea), "button_press_event", GTK_SIGNAL_FUNC (cursor_event), NULL); */ gtk_widget_show (frame); gtk_widget_show (darea); gtk_widget_show (window); #if IN_BREADBOARD==1 set_widget(window); #endif } } //------------------------------------------------------------------------ // PK27_Series::create_widget //------------------------------------------------------------------------ void PK27_Series::create_iopin_map() { create_pkg(30); assign_pin(20,m_BS1); assign_pin(19,m_BS2); assign_pin(17,m_CS); assign_pin(16,m_RES); assign_pin(15,m_DC); assign_pin(14,m_RW); assign_pin(13,m_E); // Add the individual io pins to the data bus. IO_bi_directional *pD0; IO_bi_directional *pD1; assign_pin(12, m_dataBus->addPin(pD0 = new IO_bi_directional((name() + ".d0").c_str()),0)); assign_pin(11, m_dataBus->addPin(pD1 = new IO_bi_directional((name() + ".d1").c_str()),1)); assign_pin(10, m_dataBus->addPin(new IO_bi_directional((name() + ".d2").c_str()),2)); assign_pin( 9, m_dataBus->addPin(new IO_bi_directional((name() + ".d3").c_str()),3)); assign_pin( 8, m_dataBus->addPin(new IO_bi_directional((name() + ".d4").c_str()),4)); assign_pin( 7, m_dataBus->addPin(new IO_bi_directional((name() + ".d5").c_str()),5)); assign_pin( 6, m_dataBus->addPin(new IO_bi_directional((name() + ".d6").c_str()),6)); assign_pin( 5, m_dataBus->addPin(new IO_bi_directional((name() + ".d7").c_str()),7)); m_dataBus->addSink(new SSD_SPISignalSink(m_pSSD0323, true),0); // SPI CLK m_dataBus->addSink(new SSD_SPISignalSink(m_pSSD0323, false),1); // SPI Data // Provide a SignalControl object that the dataBus port can query // to determine which direction to drive the data bus. // (See for more documentation on port behavior. // But in summary, when an I/O port updates its I/O pins, it will // query the pin drive direction via the SignalControl object. ) SignalControl *pPortDirectionControl = new LCDSignalControl(this); for (int i=0; i<8; i++) (*m_dataBus)[i].setControl(pPortDirectionControl); #if IN_BREADBOARD==1 // Place pins along the left side of the package for (int i=1; i<=30; i++) package->setPinGeometry(i, 0.0, i*12.0, 0, true); #endif } bool PK27_Series::dataBusDirection() { return m_pSSD0323->dataBusDirection(); } } // end of namespace OSRAM #endif // HAVE_GUI gpsim-0.27.0/extras/graphic_lcd/ChangeLog0000644000076400007640000001172311374204317015175 000000000000002010-05-17 Roy Rankin * src/glcd.h src/osram.cc src/ssd0323.cc src/sed1520.cc src/gpsim_modules.cc src/glcd_100X32_sed1520.cc src/glcd.cc - Config now from gpsim root, so include paths change and may be built without GUI. 2007-10-20 Scott Dattalo * examples/ssd0323/glcd_test.asm: WDT was timing out 2007-07-29 Scott Dattalo * src/osram.cc, src/osram.h, - support all communication modes. - added most of the controller commands * examples/ssd0323/osram128x64.asm, examples/ssd0323/portdef.inc, * examples/ssd0323/ssd0323.inc, examples/ssd0323/18f452.lkr * examples/ssd0323/ssd0323.asm, examples/ssd0323/osram128x64.inc, * examples/ssd0323/glcd_test.asm, examples/ssd0323/ssd0323.inc - Tons of changes... * utils/xpmtopic.c: a utility for converting an XPM formatted file into a PIC include file. 2007-03-15 Borut Razem * src/makefile.mingw: updated with the latest Scott's chages 2007-03-05 Scott Dattalo * src/osram.cc, src/ssd0323.cc, src/ssd0323.h: - Added support for '6800' and SPI interfaces. Now all three interfaces of the SSD0323 are supported * examples/ssd0323/ssd0323.asm, examples/ssd0323/osram128x64.inc, examples/ssd0323/glcd_test.asm: - The SSD0323 example code now can interface to an OSRAM display in either the 8080, 6800, or SPI modes. 2007-03-02 Scott Dattalo * src/glcd.h, src/osram.cc, src/ssd0323.cc, src/osram.h, src/ssd0323.h, src/gpsim_modules.cc, src/glcd_100X32_sed1520.cc, src/glcd.cc: - First version of SSD0323 support. - Changed the graphic rendering from PixMaps to RGB maps. The latter allows for arbitrary color definitions. (Used by the 4-bit gray scale of the SSD0323). 2007-03-02 Scott Dattalo * examples/ssd0323, examples/ssd0323/18f452.lkr: * examples/ssd0323/Makefile, examples/ssd0323/bitmaps.asm: * examples/ssd0323/glcd_test.asm, examples/ssd0323/globalvars.inc, * examples/ssd0323/osram128x64.asm, * examples/ssd0323/osram128x64.inc, examples/ssd0323/portdef.inc, * examples/ssd0323/processor.inc, examples/ssd0323/ssd0323.asm, * examples/ssd0323/ssd0323.inc: - Created an example for the SSD0323. 2007-02-23 Scott Dattalo * examples/18f452.lkr, examples/sed1520/18f452.lkr: * examples/bitmaps.asm, examples/sed1520/bitmaps.asm: * examples/glcd_test.asm, examples/sed1520/glcd_test.asm: * examples/globalvars.inc, examples/sed1520/globalvars.inc: * examples/lcd100X32.asm, examples/sed1520/lcd100X32.asm: * examples/lcd100X32.inc, examples/sed1520/lcd100X32.inc: * examples/Makefile, examples/sed1520/Makefile: * examples/portdef.inc, examples/sed1520/portdef.inc: * examples/processor.inc, examples/sed1520/processor.inc: * examples/sed1520.asm, examples/sed1520/sed1520.asm: * examples/sed1520.inc, examples/sed1520/sed1520.inc: - moved the SED1520 examples from the examples/ directory to the examples/sed1520 directory. 2007-02-23 Scott Dattalo * src/glcd_100X32_sed1520.cc, src/glcd_100X32_sed1520.h: - Split out generic graphics LCD code into separate classes. * src/glcd.cc, src/glcd.h: New. generic graphics lcd code. * src/osram.cc, osram.h: New. Beginning of OSRAM OLED display support * src/ssd0323.cc, src/ssd0323.h: New. Beginning of SSD-0323 controller support. 2007-02-22 Scott Dattalo * src/glcd_100X32_sed1520.cc: API sync. 2007-01-17 Scott Dattalo * src/glcd_100X32_sed1520.h, src/glcd_100X32_sed1520.cc: Provided a compile time definition (IN_BREADBOARD) to select whether the graphic LCD is rendered in the breadboard or rendered in its own window. 2006-11-08 Scott Dattalo * src/glcd_100X32_sed1520.cc: Trace type API update * configure.ac: 0.3.0-RC2 release candidate 2 2006-10-23 Scott Dattalo * Makefile.am: doc/ directory is now part of the distribution. 2006-10-23 Scott Dattalo * doc/sed1520.pdf, doc/mgls10032a.pdf: Added manufacturer data sheets. * configure.ac: Release candidate 0.3.0-RC1 * README: Added more details about the LCD hardware. 2006-10-15 Scott Dattalo * src/glcd_100X32_sed1520.cc: Port writes are now traced in gpsim's trace buffer. * extras/graphic_lcd/examples/lcd100X32.asm: fixed typo * extras/graphic_lcd/examples/glcd_test.asm: Position the LCD screen in the breadboard. 2006-05-28 Borut Razem * src/gpsim_modules.cc, src/sed1520.cc: removed unneeded inclusion of config.h * src/makefile.mingw: added, thanks to Xiaofan Chen * INSTALL: CVS replaced with Subversion 2006-05-27 Scott Dattalo * examples/glcd_test.asm: Added config settings. 2006-05-25 Scott Dattalo * src/glcd_100X32_sed1520.cc: Fixed segv, maybe? 2006-05-25 Scott Dattalo * src/glcd_100X32_sed1520.cc: There is segv lurking... 2005-12-29 Scott Dattalo * commit'd code to CVS gpsim-0.27.0/extras/graphic_lcd/README0000644000076400007640000000431310520763106014276 00000000000000Graphic LCD modules for gpsim Directories: src/ -- source code for gpsim module examples/ -- PIC assembly code illustrating the module. utils/ -- Utility for converting PNG files into gpasm include files. doc/ -- Manufacturer data sheets The graphic LCD module is a gpsim module that simulates a Varitronix 100 X 32 pixel graphic LCD. The graphics controller is a Seiko SED1520. Data sheets for the module and controller can be found in the doc/ subdirectory. The real display can be purchased from Mouser. (BTW, the Varitronix "data sheet" leaves much to be desired. Fortunately (for you) I've taken the time to understand how the real module behaves and wrote the simulation to mimic the actual device. The only (major) thing not supported at the moment is the LCD contrast. If you're using a real display, you'll need a negative supply of -1.0 to -2.0 volts tied to the "V0" pin. A relatively simple way to generate this is with a diode/resistor/capacitor voltage inverter driven from an oscillating I/O pin: C1 D2 PIC I/O -------||---+---|<---+---------+ 0.01uF | | \ V D1 === C2 /<------ V0 contrast - | 0.01uF \ 100K pot | | / /// /// | /// None of the values are too critical. However, you may wish to add an addition resistor between D2 and the potentiometer just to protect the display against overdriving. This circuit is a classic negative voltage generator. When the PIC I/O is high, C1 charges through D1 to Vdd-0.7 volts. When the PIC I/O line drives low, D1 becomes reversed biased and C1 discharges though D2. The direction of the current is such that C2 becomes negatively charged. The potentiometer divides this negative voltage by a user selectable amount to created the LCD bias.) Installing: ---------- See INSTALL for directions on installing the graphic LCD module. Also, there are directions for running the example. BUGS: ----- Module Update - the graphic module doesn't automatically update itself. gtk-2.6 segv - the graphic module doesn't run in pre-gtk-2.8. gpsim-0.27.0/extras/graphic_lcd/INSTALL0000664000076400007640000000131512122572252014450 00000000000000This module has now been integrated into the gpsim source tree, so no seperate process is required to build or install the module. At this point, the Graphic LCD module has been compiled and installed as a shared library that can be loaded by gpsim. If you want to see if it works, then run the example: $ cd graphic_lcd-X.Y.Z/examples $ make $ gpsim -s glcd_test.cod This will assemble the PIC code that tests the LCD module.This code is fairly complete and can be used as an LCD driver for a real PIC/LCD board. When gpsim comes up, you should see the Graphic LCD display. A random number of pixels will be on. As you single step through the code, you can see some of the test patterns written to the display. gpsim-0.27.0/extras/graphic_lcd/examples/0000775000076400007640000000000012210742356015317 500000000000000gpsim-0.27.0/extras/graphic_lcd/examples/sed1520/0000775000076400007640000000000012210742356016402 500000000000000gpsim-0.27.0/extras/graphic_lcd/examples/sed1520/lcd100X32.inc0000644000076400007640000000077310644005163020277 00000000000000 ; Definitions for the 100X32 graphic LCD ; EXTERN LCD_ClearScreen EXTERN SED1520_Test EXTERN LCD_Line EXTERN LCD_putBitMap LCD_nROWS EQU 32 LCD_nCOLS EQU 100 ;------------------------------------------------------------------------ ; External RAM declarations EXTERN PixelX ;Current X & Y coordinates for graphic's operations. E.g. EXTERN PixelY ;starting point for lines, upper left hand corner of rectangles. EXTERN LCD_x2 ;End point for lines, EXTERN LCD_y2 ; gpsim-0.27.0/extras/graphic_lcd/examples/sed1520/bitmaps.asm0000644000076400007640000002504510644005163020464 00000000000000;************************************************************************ ; ; Bitmap file ; ; this is designed to be included by lcd100X32.asm. ;------------------------------------------------------------------------ BitMapTable: dw World32X32BitMap dw World16X16BitMap dw gpsimGraphic ; pnmtopic - pnm to PIC include file ; Copyright 2005 - Scott Dattalo ; Automatically converted from t.png ; World16X16BitMap: ; pngtopic - png to gpasm PIC include file ; for use with gpsim's graphic's LCD driver ; Copyright 2005 - Scott Dattalo ; Automatically converted from konqueror16X16.png ; ; ; [] [][] . ; [] [] [] [] . ; [] [][][][] [] [] . ; [] [][][][][] [][] []. ; [] [][][][][][][] []. ; [][][][][][][][] . ; [][][][][][] . ; [][] [][] . ; [] . ; [] . ; [][][] . ; [] [][][] []. ; [] [][][][] []. ; [] [][][][][] [] . ; [] [][][][] [] . ; [][] [] [][] . ; db 0x10,0x02 ;width in pixels and height in bytes db 0x18,0x04,0x22,0xf8,0xfd,0x7e,0xfc,0xfe db 0x70,0x3c,0x08,0x01,0x01,0x02,0x04,0x18 db 0x18,0x20,0x40,0x80,0x81,0x06,0x04,0x7c db 0xf8,0x78,0x70,0xa0,0x80,0x40,0x20,0x18 World32X32BitMap ; pngtopic - png to gpasm PIC include file ; for use with gpsim's graphic's LCD driver ; Copyright 2005 - Scott Dattalo ; Automatically converted from konqueror.png ; ; ; [][][][][][][][] . ; [][][] [][][] . ; [] [] . ; [][] [][][][][][][] [][] . ; [] [][][][][][][] [][] [] . ; [] [][][][][][][] [][] [] . ; [] [][][][][][][][][][] [][][] [] . ; [] [][][][][][][][][][][][][][][] [] . ; [] [][][][][][][][][][][][][][][] [] . ; [] [][][][][][][][][][][][][][][][] [] . ; [] [][][][][][][][][][][][][][][][] [] . ; [] [][][][][][][][][][][][][][][] [] . ; [] [][][][][][][][][][][][][] []. ; [] [][][][][][][][][][][][][] []. ; [] [][][][][][][][][][][] []. ; [] [][][][][] [][] []. ; [] [][] []. ; [] [][] []. ; [] [] []. ; [] [][][] []. ; [] [][] [][][] [] . ; [] [][] [][][] [] . ; [] [][][][][][][] [] . ; [] [][][][][][][][] [] . ; [] [][][][][][][][] [] . ; [] [][][][][][][][] [] . ; [] [][][][][][][][] [] . ; [] [][][][][][][][] [] . ; [][] [][][][][] [][] . ; [] [][][][][] [] . ; [][][] [] [][][] . ; [][][][][][][][] . ; db 0x20,0x04 ;width in pixels and height in bytes db 0x00,0x00,0x00,0xc0,0x20,0x10,0xc8,0xc8 db 0xc4,0xf2,0xfa,0xfa,0xf9,0xf9,0xf9,0xf9 db 0x89,0x81,0xf1,0xf1,0xc2,0x02,0x02,0x04 db 0x08,0x08,0x10,0x20,0xc0,0x00,0x00,0x00 db 0xf0,0x0e,0x01,0x00,0x00,0x3e,0xff,0xff db 0xff,0xff,0xff,0x7f,0x7f,0x7f,0xff,0xff db 0x7f,0x3f,0x0f,0x0f,0x07,0x00,0x00,0x00 db 0x00,0x00,0x00,0x00,0x00,0x01,0x0e,0xf0 db 0x0f,0x70,0x80,0x00,0x00,0x00,0x00,0x00 db 0x00,0x03,0x07,0x08,0x08,0x08,0xf0,0xf0 db 0xc0,0xf0,0xf0,0xf0,0xc0,0x80,0x00,0x00 db 0x00,0x00,0x00,0x00,0x00,0x80,0x70,0x0f db 0x00,0x00,0x00,0x03,0x04,0x08,0x10,0x10 db 0x20,0x40,0x40,0x40,0x80,0x80,0x8f,0x8f db 0xbf,0xff,0xbf,0xbf,0x7f,0x4f,0x40,0x20 db 0x10,0x10,0x08,0x04,0x03,0x00,0x00,0x00 gpsimGraphic ; pngtopic - png to gpasm PIC include file ; for use with gpsim's graphic's LCD driver ; Copyright 2005 - Scott Dattalo ; Automatically converted from gpsim1.png ; ; ; . ; [][][] [][][][] . ; [][][][] [][][][] [][] [][] [][][] [][][][] . ; [][] [][] [] [] [] [] [][][][] [] [][] [][][][][] . ; [][] [][] [] [][] [][] [][] [] [][] [] [] [][] . ; [] [] [] [] [] [][] [][][] [][] . ; [] [] [] [][] [][] [] [] [] [] . ; [] [] [][] [][] [][][][] [][] [] [] [][] . ; [] [][] [][][][] [][][] [] [] [] [] . ; [] [][][][] [] [][] [] [] [] [] . ; [][][][] [] [] [] [] [] [] [] . ; [] [] [] [] [] [] [] . ; [] [] [] [] [] [] [] . ; [] [][] [] [][] [] [] [] [] [] . ; [] [] [] [] [][] [] [][] [][] [] . ; [] [][] [][] [][][][][][] [] [] [] [][] . ; [] [][][] [][] [] [] [] [] . ; [][][][][] [] [] [] [] . ; . ; . ; . ; [][] [][][] [][][][] [] [] [] [][][][] [][][][] . ; [][][][] [] [][][][] [][][] [] [] [] [][] [] [] [][] [] [] [][] . ; [][] [] [] [] [] [][] [] [] [] [] [] [] [] [] [] [] . ; [] [] [] [][] [] [] [][] [] [] [] [] [] [] [] [][] . ; [] [] [][] [] [][] [] [] [][][][][] [] [][][][] [][][] [][][][] . ; [] [] [] [] [] [] [] [] [] [] [][] [] [] [] . ; [][] [][][] [] [] [] [] [] [] [] [] [] [][] [] [][] [][] . ; [] [] [] [][] [] [][] [] [][] [] [] [] [][] [] [] [] . ; [] [] [][] [] [][] [][][][] [] [][] [] [] [] [][] [][] [] [] . ; [][][][] [][][][][] [][][][] [][] [][][] [] [] [] [] [][][][][] [] [] . ; . ; db 0x40,0x04 ;width in pixels and height in bytes db 0x00,0x00,0x00,0xf0,0x18,0x0c,0x04,0x04 db 0x0c,0x18,0xf0,0x00,0x00,0xfc,0x84,0x04 db 0x04,0x82,0x82,0x46,0x74,0x18,0x00,0x70 db 0xdc,0x86,0x82,0x82,0x06,0x04,0x0c,0x00 db 0x00,0x00,0x00,0x00,0x0c,0x1c,0xdc,0x8c db 0x00,0x00,0x00,0x00,0x18,0xe0,0x30,0x18 db 0x08,0x30,0xe0,0x38,0x08,0x08,0x08,0x18 db 0x30,0xe0,0x80,0x00,0x00,0x00,0x00,0x00 db 0x00,0x00,0xe0,0x00,0x07,0x04,0x04,0x06 db 0x82,0xe3,0x3f,0x00,0x00,0xff,0x81,0x01 db 0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x20 db 0x60,0x80,0x80,0x81,0x81,0x81,0xc2,0x7e db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xff db 0x00,0x00,0x00,0x00,0x00,0xc0,0x7f,0x00 db 0x00,0x00,0xc7,0x78,0x00,0x00,0x00,0x00 db 0x00,0x80,0xff,0x00,0x00,0x00,0x00,0x00 db 0x00,0x80,0xc3,0x42,0x42,0xc2,0x03,0x01 db 0xc1,0x00,0x00,0x00,0x00,0x03,0xc1,0x40 db 0x40,0x40,0x00,0x00,0xe0,0x60,0xc0,0x80 db 0x00,0x00,0x00,0x00,0x00,0x00,0xe0,0x20 db 0x60,0x80,0x00,0x00,0xe0,0x20,0x20,0x63 db 0xc0,0x00,0x00,0xe0,0x00,0x63,0x80,0x00 db 0x00,0xc0,0x61,0x00,0xe0,0x20,0x20,0x20 db 0x00,0xe3,0x20,0x20,0x60,0xc0,0x00,0x00 db 0x00,0x0f,0x78,0x40,0x48,0x78,0x08,0x00 db 0x63,0x7c,0x40,0x40,0x40,0x1e,0x73,0x40 db 0x40,0x60,0x20,0x00,0x79,0x67,0x20,0x33 db 0x1e,0x00,0x00,0x00,0x00,0x00,0x7f,0x40 db 0x60,0x31,0x1f,0x00,0x7f,0x02,0x02,0x0e db 0x73,0x00,0x00,0x7f,0x00,0x00,0x03,0x7e db 0x3e,0x03,0x00,0x60,0x7f,0x42,0x42,0x40 db 0x00,0x7f,0x0a,0x02,0x0f,0x79,0x00,0x00 gpsim-0.27.0/extras/graphic_lcd/examples/sed1520/18f452.lkr0000644000076400007640000000146010644005163017661 00000000000000// $Id: 18f452.lkr 1410 2005-12-29 15:51:11Z sdattalo $ // File: 18f452.lkr // Sample linker script for the PIC18F452 processor LIBPATH . CODEPAGE NAME=vectors START=0x0 END=0x29 PROTECTED CODEPAGE NAME=page START=0x2A END=0x7FFF CODEPAGE NAME=idlocs START=0x200000 END=0x200007 PROTECTED CODEPAGE NAME=config START=0x300000 END=0x30000D PROTECTED CODEPAGE NAME=devid START=0x3FFFFE END=0x3FFFFF PROTECTED CODEPAGE NAME=eedata START=0xF00000 END=0xF000FF PROTECTED ACCESSBANK NAME=accessram START=0x0 END=0x7F DATABANK NAME=gpr START=0x80 END=0x5ff ACCESSBANK NAME=accesssfr START=0xF80 END=0xFFF PROTECTED SECTION NAME=CONFIG ROM=config gpsim-0.27.0/extras/graphic_lcd/examples/sed1520/globalvars.inc0000644000076400007640000000004210644005163021140 00000000000000 ; EXTERN's for global variables gpsim-0.27.0/extras/graphic_lcd/examples/sed1520/lcd100X32.asm0000644000076400007640000003750110644005163020305 00000000000000; ; lcd100X32.asm - Driver for 100X32 pixel graphics LCD based on ; SED1520 controllers ; ; ; From a high level point of view, this driver supports basic graphing ; and text functions (that the SED1320 lacks). The graphing functions ; include points and lines, while the text function allows 5X7 fonts ; to be written to the display. ; ; The driver is relatively inefficient with regards to memory usage. The ; entire 100X32 LCD display is buffered in the PIC's memory. The purpose ; of this is to simplify the mapping of the logical coordinates of the LCD ; display to the RAM embedded in the SED1520's. ; ; !!! NOTE: The driver assumes all variables reside in Bank 0!. !!! include "processor.inc" include "sed1520.inc" ; GLOBAL DisplayBuffer EXTERN DisplayBuffer GLOBAL LCD_ClearScreen GLOBAL SED1520_Test GLOBAL LCD_Line GLOBAL LCD_putBitMap EXTERN temp0, temp1, temp2, temp3 UDATA_ACS LCD_WritePtrLo RES 1 LCD_WritePtrHi RES 1 PixelX RES 1 PixelY RES 1 TempX RES 1 TempY RES 1 global TempY, PixelX, PixelY ;---------------------------------------- ; Private RAM area for temporary variables. TempRam udata_ovr 0x78 LCD_Temporaries RES 6 TempRam udata_ovr 0x78 LCD_x2 RES 1 LCD_y2 RES 1 slope RES 1 dx RES 1 dy RES 1 dir RES 1 global LCD_x2, LCD_y2 ;------------------------------------------------------------------------ ; Display buffer ; ;GPR_ARRAYS UDATA 400 ;DisplayBuffer RES 100*4 ;------------------------------------------------------------------------ ; LCD_CODE CODE SED1520_Test: TestBitMap: MOVLW 20 MOVWF PixelX CLRF PixelY MOVLW 2 RCALL LCD_putBitMap CLRF PixelX CLRF PixelY MOVLW 93 MOVWF LCD_x2 CLRF LCD_y2 RCALL LCD_Line MOVLW 31 MOVWF LCD_x2 MOVWF LCD_y2 RCALL LCD_Line CLRF PixelX CLRF PixelY RCALL LCD_Line bra LCD_RefreshDisplay ;------------------------------------------------------------------------ ;LCD_ClearScreen LCD_ClearScreen: LFSR 0, DisplayBuffer ;Get a pointer to the display movlw 100 movwf temp0 movlw 4 cs1: CLRF POSTINC0 decfsz temp0,F bra cs1 decfsz WREG,F bra cs1 return ;------------------------------------------------------------------------ ; LCD_putBitMap ; ; Input: x1, y1 - Where the upper left hand corner of the bitmap will be placed ; WREG - Bitmap # (i.e. index into the BitMapTable array) ; Output ; MemUsed: temp0 - used as a counter ; PRODL,PRODH ; TBLPTRL,TBLPTRH ; ; Calls: LCD_putByte LCD_putBitMap: ; Point to BitMapTable entry that contains the pointer ; to the desired bitmap. RLNCF WREG,W ADDLW LOW(BitMapTable) MOVWF TBLPTRL MOVLW HIGH(BitMapTable) SKPNC ADDLW 1 MOVWF TBLPTRH ; Get the pointer to the bitmap TBLRD *+ MOVF TABLAT,W TBLRD *+ MOVWF TBLPTRL MOVF TABLAT,W MOVWF TBLPTRH ; The first byte of the bitmap is the width and the second is the height TBLRD *+ MOVF TABLAT,W MOVWF LCD_y2 TBLRD *+ MOVF TABLAT,W MOVWF LCD_x2 ; At this point, the TBLPTR points to the bitmap data. Now we need ; to fetch this data and copy it to the display. movf PixelX,W movwf temp1 rrncf PixelY,W rrncf WREG,W rrncf WREG,W RCALL LCD_MoveCursor pbm1: MOVF LCD_y2,W MOVWF temp0 pbm2: TBLRD *+ MOVF TABLAT,W RCALL LCD_PutByte DECFSZ temp0,F bra pbm2 MOVF LCD_y2,W SUBLW 100 ADDWF LCD_WritePtrLo,F CLRW ADDWFC LCD_WritePtrHi,F DECFSZ LCD_x2,F bra pbm1 aret: RETURN ;------------------------------------------------------------------------ ; LCD_putc ; ; Write a single character to the LCD display buffer. The input is the ASCII ; code of the character to write. This is used as an index into the LCD font ; table. The 5 7-bit bytes that comprise this character are then written to ; the LCD display buffer. In addition, a 6th byte containing 0 is written so ; that there will be a little space between characters. Note, the character ; will be written at the current location of the cursor. No attempt is made ; to prevent line wrapping. ; ; Input: WREG - ASCII value of character ; Output: None ; Mem used: temp0 - used as a counter ; LCD_putc: BTFSC WREG,7 ;The max character is 127 return ;leave if we're beyond this. ADDLW -' ' ;The first character in the table is a Space BNC aret ;leave if the ascii code is smaller than this MULLW 5 ;Each character is comprised of 5 bytes. ;The offset into the table is the product ;of the ASCII code and the size of each character CLRF TBLPTRU ;Get a pointer to the MOVF PRODL,W ;start of this character's font ADDLW LOW(ASCII_5X7Table) ; MOVWF TBLPTRL ; MOVLW HIGH(ASCII_5X7Table) ; ADDWFC PRODH,W MOVWF TBLPTRH ; ; MOVLW 5 ; Now loop through and get all 5 bytes MOVWF temp0 LCD_ASCII_L1 TBLRD *+ ;Get one byte MOVF TABLAT,W ; rcall LCD_PutByte ;Write the byte to the display buffer decfsz temp0,F bra LCD_ASCII_L1 MOVLW 0 ;; ;; !!!! Intentionally fall through to write a zero to the display ;; ;------------------------------------------------------------------------ ; LCD_PutByte - write a byte of data to the LCD display buffer ; ; Write the byte contained in W to the display buffer. The byte is written ; at the current cursor position. Also, the cursor position is incremented ; after the write. ; ; INPUT: WREG ; OUTPUT: ; Mem Used: temp1 ; LCD_WritePtrLo/Hi ; FSR0L/H LCD_PutByte: MOVWF temp1 ;Save the byte to write LFSR 0, DisplayBuffer ;Get a pointer to the display MOVF LCD_WritePtrLo,W ;Now point to the location ADDWF FSR0L,F ;of the cursor. MOVF LCD_WritePtrHi,W ADDWFC FSR0H,F MOVFF temp1, INDF0 ;Write the byte to the display INFSNZ LCD_WritePtrLo,F ;Increment the cursor position INCF LCD_WritePtrHi,F MOVLW LOW(400) ;The Display buffer is only 400 CPFSLT LCD_WritePtrLo ;bytes. If we didn't increment BTFSS LCD_WritePtrHi,0 ;beyond the end of the display return ;then we're okay. CLRF LCD_WritePtrHi ;oops - we've rolled over CLRF LCD_WritePtrLo return ;------------------------------------------------------------------------ ; LCD_MoveCursor - re-position the cursor. The cursor marks where the next ; byte will be written ; ; INPUT: WREG - row ; temp1 - column ; OUTPUT ; MemUsed: LCD_WritePtrLo/HI ; PRODL/H LCD_MoveCursor: ANDLW 3 MULLW 100 MOVF PRODL,W MOVWF LCD_WritePtrLo MOVF PRODH,W MOVWF LCD_WritePtrHi MOVF temp1,W ADDWF LCD_WritePtrLo,F CLRW ADDWFC LCD_WritePtrHi,F RETURN ;------------------------------------------------------------------------ ; LCD_GetPixelPtr - convert the current (PixelX,PixelY) coordinates into ; a pointer into the display buffer. This pointer is returned in FSR0 ; and the bit offset within the byte of the display buffer is returned ; is returned as bit mask in temp0. ; ; { ; temp0 = 1<<(PixelY & 7); ; ; int offset = (PixelY>>3) * nLCD_COLUMNS + PixelX ; FSR0 = &DisplayBuffer[offset]; ; return(temp0); ; } ; ; Input: PixelX = X location of the pixel ; PixelY = Y location of the pixel ; Output: FSR0L:FSR0H -- will point to the byte offset in the display buffer ; temp0 -- 2^n where n is the position within the byte. ; LCD_GetPixelPtr: RRCF PixelY,W ;Put the LSB of the current Y pixel into C. CLRF temp0 ; BSF temp0,0 ; 1<<0 -- assumes Y is even SKPNC ; RLNCF temp0,F ; 1<<1 -- Y is actually odd RRCF WREG,W ;Put bit 1 of the current Y pixel into C BNC pp1 ; RLNCF temp0,F ; bit 1 is set, so we need to shift the RLNCF temp0,F ; mask two positions pp1: RRCF WREG,W ;Put bit 2 of the current Y pixel into C SKPNC ;If it is set SWAPF temp0,F ; then shift the mask left 4 positions. ANDLW 3 ;The lower two bits of W are the 3rd and 4th ;bit of the current Y pixel. MULLW 100 ;Multiply by 100 (number of columns in a row) ;to obtain the byte offset into the buffer. LFSR 0, DisplayBuffer ;Get a pointer to the display MOVF PRODL,W ADDWF FSR0L,F MOVF PRODH,W ADDWFC FSR0H,F MOVF PixelX,W ADDWF FSR0L,F MOVLW 0 ADDWFC FSR0H,F ret1: return ;------------------------------------------------------------------------ ; LCD_Line - Draw a line ; ; Inputs: PixelX, PixelY - start coordinates ; LCD_x2, LCD_y2 - end coordinates ; ; int dx = abs(x2-x1); ; int dy = abs(y2-y1); ; ; int bRight = 1; ; int bUp = 1; ; ; if (dx<0) { ; bRight = 0; ; dx = -dx; ; } ; if (dy<0) { ; bUp = 0 ; ; dy = -dY; ; } ; ; int slope = dx - dy; ; ; do { ; ; SetPixel(x,y); ; ; if ( slope < 0) { ; y++; ; slope += dx; ; } else { ; x++; ; slope -= dy; ; } ; } while (x!=x2 && y!=y2); ; ; ; MEM Used: ; dx ; dy ; slope ; temp1 ; Calls: ; LCD_SetPixel ; LCD_Line: MOVF PixelX,W ;x1 SUBWF LCD_x2,W ;W=x2-x1 MOVWF dx ;dx=x2-x1 RLCF dir,F ;Pick up carry BTFSS dir,0 ;if x2 ; The defines in portdef.inc allow the LCD port definitions to be customized. #include "portdef.inc" #include "lcd100X32.inc" ; Functions: GLOBAL SED1520_Init GLOBAL SED1520_WriteCmd GLOBAL LCD_RefreshDisplay EXTERN temp0, temp1, temp2, temp3 EXTERN DisplayBuffer ;======================================================================== ; ; SED1520 Driver ; ; ; RAM Definitions UDATA_ACS ;-------------------- ; Mode ;-------------------- SED1520_Mode RES 1 GLOBAL SED1520_Mode ; xxxx_xxCM ; |+--- Mode 0=Command 1=Data ; +---- Chip 0=1st chip on Display, 1=2nd chip bSED1520_MODE_CHIP EQU 1<<1 ;------------------------------------------------------------------------ ; Macros ; SetMode ; Selects between Command and Data mode mSED1520_SetMode macro BCF LATA, RA1 BTFSC SED1520_Mode,bSED1520_MODE_CMD BSF LATA, RA1 endm mSED1520_SelectChip macro BTFSS SED1520_Mode,bSED1520_MODE_CHIP BCF LATE, RE0 ; BTFSC SED1520_Mode,bSED1520_MODE_CHIP ; BCF LATE, RE1 endm mSED1520_deSelectChip macro BTFSS SED1520_Mode,bSED1520_MODE_CHIP BSF LATE, RE0 BTFSC SED1520_Mode,bSED1520_MODE_CHIP BSF LATE, RE1 endm SETA0 macro BSF LCDA0_LAT,LCDA0_BIT endm CLRA0 macro BCF LCDA0_LAT,LCDA0_BIT endm ;------------------------------------------------------------------------ ; SED1520 commands ; ; The SED1520 Commands are written to address 1 of the chip. ; The data written for the command includes the command type and optional ; parameters. The data bus is only 8-bits wide. The upper bits in general ; describe the command while the lower are for data SED1520_DisplayOn EQU 0xaf SED1520_DisplayOff EQU 0xae SED1520_DisplayStartLine EQU 0xc0 SED1520_SETPAGEADDRESS EQU 0xb8 SED1520_SetColumnAddress EQU 0x00 SED1520_SetDuty EQU 0xa8 ;------------------------------------------------------------------------ ; SED1520_CODE CODE SED1520_Init: BCF TRISA, RA1 CLRF SED1520_TRIS if LCDE1_TRIS == LCDE2_TRIS && LCDE1_TRIS == LCDRW_TRIS CLRF TRISE else BCF LCDE1_TRIS, LCDE1_BIT BCF LCDE2_TRIS, LCDE2_BIT BCF LCDRW_TRIS, LCDRW_BIT endif ; Select the first chip and set the mode to command CLRF SED1520_Mode RCALL LSED1520_Init BSF SED1520_Mode, bSED1520_MODE_CHIP ; Fall through to initialize the second chip LSED1520_Init: MOVLW SED1520_DisplayStartLine rcall SED1520_WriteCmd MOVLW SED1520_SETPAGEADDRESS rcall SED1520_WriteCmd MOVLW SED1520_SetColumnAddress rcall SED1520_WriteCmd MOVLW SED1520_SetDuty|1 rcall SED1520_WriteCmd MOVLW SED1520_DisplayOn bra SED1520_WriteCmd ;------------------------------------------------------------ ; Write either a command or data to the SED1520 ; ; Inputs: WREG - byte to be written ; Outputs: ; Mem used: W ; SED1520_WriteCmd ;<--- Entry point to write a command. BCF LATA, RA1 SED1520_Write: ;<--- Entry point to write data. BCF LATE, RE2 ;SED1520 R/W' = write rcall d2 MOVWF SED1520_LAT rcall d2 BTFSS SED1520_Mode,bSED1520_MODE_CHIP BSF LATE, RE0 BTFSC SED1520_Mode,bSED1520_MODE_CHIP BSF LATE, RE1 rcall d2 BCF LATE, RE0 BCF LATE, RE1 BSF LATA, RA1 return d2 rcall d3 d3 return ;------------------------------------------------------------------------ ;LCD_RefreshDisplay - copy the RAM buffered display to the physical display ; ; Inputs: None ; Outputs: None ; MemUsed: temp0 LCD_RefreshDisplay: LFSR 0, DisplayBuffer RCALL SED1520_Init CLRF SED1520_Mode MOVLW LCD_nROWS/8 MOVWF temp0 SED_ref1: BCF SED1520_Mode,bSED1520_MODE_CHIP RCALL SED_ref2 BSF SED1520_Mode,bSED1520_MODE_CHIP RCALL SED_ref2 DECFSZ temp0,F bra SED_ref1 return SED_ref2: MOVLW SED1520_SetColumnAddress rcall SED1520_WriteCmd MOVF temp0,W SUBLW LCD_nROWS/8 ANDLW 3 IORLW SED1520_SETPAGEADDRESS rcall SED1520_WriteCmd MOVLW 50 MOVWF temp1 SED_ref3: MOVF POSTINC0,W rcall SED1520_Write DECFSZ temp1,F bra SED_ref3 return ;------------------------------------------------------------ end gpsim-0.27.0/extras/graphic_lcd/examples/sed1520/glcd_test.asm0000644000076400007640000001001010644005163020757 00000000000000 ;; Node test ;; ;; The purpose of this program is to verify that nodes ;; can interconnect I/O pins. include "processor.inc" include ; Grab some useful macros __CONFIG _CONFIG1H, _HSPLL_OSC_1H & _OSCS_ON_1H __CONFIG _CONFIG2H, _WDT_ON_2H __CONFIG _CONFIG3L, _LVP_OFF_4L __CONFIG _CONFIG4L, _LVP_OFF_4L __CONFIG _CONFIG5L, _CP0_ON_5L & _CP1_ON_5L __CONFIG _CONFIG5H, _CPB_ON_5H include "sed1520.inc" include "lcd100X32.inc" include "portdef.inc" ;------------------------------------------------------------------------ ; gpsim command .command macro x .direct "C", x endm ;---------------------------------------------------------------------- ; Variable declarations ;---------------------------------------------------------------------- GPR_DATA UDATA_ACS temp RES 1 temp0 RES 1 temp1 RES 1 temp2 RES 1 temp3 RES 1 GLOBAL temp0, temp1, temp2, temp3 Tx RES 1 Ty RES 1 DISPLAY_DATA UDATA 400 DisplayBuffer RES 100*4 GLOBAL DisplayBuffer ;------------------------------------------------------------------------ ; Code labels GLOBAL done ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector bra start ; go to beginning of program ;---------------------------------------------------------------------- ; ******************* INTERRUPT VECTOR LOCATION ****************** ;---------------------------------------------------------------------- INT_VECTOR CODE 0x008 ; interrupt vector location RETFIE 1 ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start ;; ;; Define the simulation environment. ;; .sim "module library libgpsim_graphicLCD" .sim "module library libgpsim_modules" .sim "module load LCD100X32 LCD" .sim "module load pullup R1" .sim "module load pullup R2" .sim "node nE1" .sim "node nE2" .sim "node nRW" .sim "node nA0" .sim "attach nE1 porte0 LCD.e1 R1.pin" .sim "attach nE2 porte1 LCD.e2 R2.pin" .sim "attach nRW porte2 LCD.rw" .sim "attach nA0 porta1 LCD.a0" .sim "node nd0 nd1 nd2 nd3 nd4 nd5 nd6 nd7" .sim "attach nd0 portb0 LCD.d0" .sim "attach nd1 portb1 LCD.d1" .sim "attach nd2 portb2 LCD.d2" .sim "attach nd3 portb3 LCD.d3" .sim "attach nd4 portb4 LCD.d4" .sim "attach nd5 portb5 LCD.d5" .sim "attach nd6 portb6 LCD.d6" .sim "attach nd7 portb7 LCD.d7" ;; Now position the modules in the BreadBoard viewer .sim "LCD.xpos=192.0" .sim "LCD.ypos=24.0" .sim "R1.xpos=216.0" .sim "R1.ypos=264.0" .sim "R2.xpos=312.0" .sim "R2.ypos=264.0" ;; Initialize the SED1520 LCD graphics controller. RCALL SED1520_Init loop: CLRWDT ; Clear Screen Test RCALL LCD_ClearScreen RCALL LCD_RefreshDisplay ; Line Test movlw 31 movwf Ty movlw 99 movwf Tx LL clrwdt movf Tx,W MOVWF LCD_x2 movf Ty,W MOVWF LCD_y2 MOVLW 0 MOVWF PixelX MOVLW 1 MOVWF PixelY RCALL LCD_Line ; RCALL LCD_RefreshDisplay decf Tx,F BNN LL RCALL LCD_RefreshDisplay MOVLW 0 MOVWF PixelX MOVWF PixelY MOVLW 99 MOVWF LCD_x2 MOVLW 15 MOVWF LCD_y2 RCALL LCD_Line RCALL LCD_RefreshDisplay MOVLW 20 MOVWF PixelX CLRF PixelY RCALL LCD_ClearScreen MOVLW 1 RCALL LCD_putBitMap RCALL LCD_RefreshDisplay RCALL LCD_ClearScreen CLRF PixelX MOVLW 0 RCALL LCD_putBitMap RCALL LCD_RefreshDisplay MOVLW 32 MOVWF PixelX MOVLW 2 RCALL LCD_putBitMap RCALL LCD_RefreshDisplay bra loop nop done: .assert "\"*** PASSED LCD test\"" goto $ FAILED: .assert "\"*** FAILED LCD test\"" goto $ end gpsim-0.27.0/extras/graphic_lcd/examples/sed1520/portdef.inc0000644000076400007640000000131510644005163020453 00000000000000 ;------------------------------------------------------------------------ ; ; I/O Port definitions for the SED1520 based graphic LCD ; ; ; The user of the graphic LCD module should configure this ; file according to their specific application. ; LCDA0_PORT EQU PORTA LCDA0_TRIS EQU TRISA LCDA0_LAT EQU LATA LCDA0_BIT EQU RA1 LCDE1_PORT EQU PORTE LCDE1_TRIS EQU TRISE LCDE1_LAT EQU LATE LCDE1_BIT EQU RE0 LCDE2_PORT EQU PORTE LCDE2_TRIS EQU TRISE LCDE2_LAT EQU LATE LCDE2_BIT EQU RE1 LCDRW_PORT EQU PORTE LCDRW_TRIS EQU TRISE LCDRW_LAT EQU LATE LCDRW_BIT EQU RE2 SED1520_PORT EQU PORTB SED1520_TRIS EQU TRISB SED1520_LAT EQU LATB gpsim-0.27.0/extras/graphic_lcd/examples/sed1520/processor.inc0000644000076400007640000000040310644005163021024 00000000000000; ; Processor include file. ; ; All .asm files in the project include this file. If the processor ; type needs to change, then those changes only need to be made ; here list p=18f452,t=ON,c=132,n=80 radix dec #include gpsim-0.27.0/extras/graphic_lcd/NEWS0000644000076400007640000000000010416272245014105 00000000000000gpsim-0.27.0/extras/graphic_lcd/COPYING0000644000076400007640000000000010416272245014441 00000000000000gpsim-0.27.0/extras/ds1820/0000775000076400007640000000000012210742357012164 500000000000000gpsim-0.27.0/extras/ds1820/ds1820.cc0000664000076400007640000002103212145276731013337 00000000000000/* Copyright (C) 2012 Eduard Timotei Budulea Copyright (C) 2013 Roy R. Rankin 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 3 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, see . */ #include "config.h" #include #include "ds1820.h" class TemperatureAttribute : public Float { public: TemperatureAttribute() : Float("temperature",25.0,"Current temperature") { } void set(int r) { Float::set((double)r); }; }; class PoweredAttribute : public Boolean { public: PoweredAttribute() : Boolean ("powered", true, "Externally Powered") {} }; class Alarm_Th_Attribute : public Integer { public: Alarm_Th_Attribute() : Integer ("alarm_th", 30, "Temp high or user data1 in EEPROM") {} virtual void get(char *buffer, int buf_size) { if(buffer) { int i; i = getVal();; snprintf(buffer,buf_size,"%d",i); } } }; class Alarm_Tl_Attribute : public Integer { public: Alarm_Tl_Attribute() : Integer ("alarm_tl", -5, "Temp low or user data2 in EEPROM") {} virtual void get(char *buffer, int buf_size) { if(buffer) { int i; i = getVal();; snprintf(buffer,buf_size,"%d",i); } } }; class Config_Attribute : public Integer { public: Config_Attribute() : Integer ("config_register", 0x7f, "EEPROM value of 18B20 Configuration Register") { } virtual void set(gint64 v) { Integer::set(v); } virtual void get(char *buffer, int buf_size) { if(buffer) { guint8 i; i = getVal();; snprintf(buffer,buf_size,"0x%0x",i); } } }; namespace DS1820_Modules { void DS1820::doneBits() { if(verbose) cout << name() << " Setting dsState\n"; (this->*dsState)(); } void DS1820::resetEngine() { if(verbose) cout << name() << " Ready for readCommand" << endl; dsState = &DS1820::readCommand; bitRemaining = 8; isReading = true; } bool DS1820::isAlarm() { char Th = scratchpad[2]; char Tl = scratchpad[3]; char temp = scratchpad[0]>>1; if(scratchpad[1]) temp |= 0x80; return temp < Tl || temp > Th; } void DS1820::readCommand() { short temp; guchar mode; int count; double frac_part, int_part; if(verbose) cout << name() << " Got readCommand! " << hex << (unsigned int)octetBuffer[0] << endl; // load scratch from EEPROM here first time through to capture changes // from .sim commands in the program if (!ds1820_eeprom_loaded) { ds1820_eeprom_loaded = true; loadEEPROM(); } switch(octetBuffer[0]) { case 0x44: // Convert Temperature mode = (scratchpad[4]>>5) & 3; frac_part = modf(attr_Temp->getVal() + 0.25, &int_part); temp = (int)((attr_Temp->getVal() + 0.25) * 2.); // Note count can be > 16 for negative temperatures count = mode?(16 - 16 * frac_part):0; if ( temp > 250 || temp < -110) cout << name() << " Warning temperature " << attr_Temp->getVal() << " outside operating range -55 to 125\n"; scratchpad[0] = temp & 0xFF; scratchpad[1] = temp >> 8; scratchpad[6] = count; scratchpad[8] = calculateCRC8(scratchpad, 8); if (attr_powered->getVal()) // Can return status if powered { double time_conversion = 0.750; // 750 ms switch(mode) { case 0: // 9 bit resolution // Max time for conversion 93.75 ms time_conversion /= 8.; break; case 1: // 10 bit resolution // Max time for conversion 187.5 ms time_conversion /= 4.; break; case 2: // 11 bit resolution // Max time for conversion 375 ms time_conversion /= 2.; break; case 3: // 12 bit resolution // Max time for conversion 750 ms break; } set_status_poll(get_cycles().get(time_conversion)); return; } break; case 0x48: //Copy scratchpad to EEPROM attr_thigh->set(scratchpad[2]); attr_tlow->set(scratchpad[3]); if(is_ds18b20) attr_config->set(scratchpad[4]); if (attr_powered->getVal()) { // Can return status if powered // Max time to complete 10ms set_status_poll(get_cycles().get(0.010000)); return; } break; case 0x4E: //Write scratchpad (master to Th, Tl isReading = true; bitRemaining = is_ds18b20?24:16; dsState = &DS1820::writeScratchpad; return; case 0xB4: //Read Power supply isReading = false; if (attr_powered->getVal()) { if(verbose) printf("%s is powered\n", name().c_str()); bitRemaining = 0; return; } if(verbose) printf("%s on parasite power\n", name().c_str()); octetBuffer[0] = 0; bitRemaining = 8; dsState = &DS1820::readPower; return; case 0xB8: // Recall EE (Th, Tl from EEPROM to scratchpad) loadEEPROM(); break; case 0xBE: // Read scratchpad if(verbose) printf("%s scratchpad contents\n", name().c_str()); for (int i = 0; i < 9; ++i) { octetBuffer[i] = scratchpad[8 - i]; if(verbose) printf("%d %0x\n", i, scratchpad[i]); } isReading = false; bitRemaining = 72; dsState = &DS1820::done; return; default: cout << name() << " " << __FUNCTION__ << " Unexpected command " << hex << (unsigned int)octetBuffer[0] << endl; } isReading = false; octetBuffer[0] = 0x32; dsState = &DS1820::done; bitRemaining = 8; } void DS1820::writeScratchpad() { if(verbose) cout << "GOT writeScratchpad!" << hex << (unsigned int)octetBuffer[0] << ',' << (unsigned int) octetBuffer[1] << endl; if(is_ds18b20) { scratchpad[2] = octetBuffer[2]; scratchpad[3] = octetBuffer[1]; scratchpad[4] = (octetBuffer[0] & 0x60) | 0x1f; } else { scratchpad[2] = octetBuffer[1]; scratchpad[3] = octetBuffer[0]; } scratchpad[8] = calculateCRC8(scratchpad, 8); return; } void DS1820::readPower() { if(verbose) cout << "Got readPower!" << endl; bitRemaining = 8; return; } void DS1820::done() { return; } void DS1820::loadEEPROM() { scratchpad[2] = (char)attr_thigh->getVal(); scratchpad[3] = (char)attr_tlow->getVal(); if(is_ds18b20) scratchpad[4] = (char)((attr_config->getVal() & 0x60) | 0x1f); scratchpad[8] = calculateCRC8(scratchpad, 8); } DS1820::DS1820(const char *name, bool ds18B20): Rom1W(name, "DS1820 - 1Wire thermomether."), ds1820_eeprom_loaded(false), dsState(&DS1820::done) { is_ds18b20 = ds18B20; scratchpad[0] = 0xAA; scratchpad[1] = 0; scratchpad[4] = 0xFF; scratchpad[5] = 0xFF; scratchpad[6] = 0x0C; scratchpad[7] = 0x10; attr_Temp = new TemperatureAttribute(); attr_thigh = new Alarm_Th_Attribute(); attr_tlow = new Alarm_Tl_Attribute(); attr_powered = new PoweredAttribute(); addSymbol(attr_Temp); addSymbol(attr_thigh); addSymbol(attr_tlow); addSymbol(attr_powered); if(is_ds18b20) { attr_config = new Config_Attribute(); addSymbol(attr_config); cout << "===created a ds18b20 with name " << (name ?: "unnamed!") << endl; } else cout << "===created a ds1820 with name " << (name ?: "unnamed!") << endl; } DS1820::~DS1820() { removeSymbol(attr_Temp); removeSymbol(attr_thigh); removeSymbol(attr_tlow); removeSymbol(attr_powered); delete attr_Temp; delete attr_thigh; delete attr_tlow; delete attr_powered; if(is_ds18b20) { removeSymbol(attr_config); delete attr_config; } } Module* DS1820::construct(const char *name) { return new DS1820(name, false); } Module* DS1820::constructB(const char *name) { return new DS1820(name, true); } } //end of namespace gpsim-0.27.0/extras/ds1820/Makefile.in0000664000076400007640000006134712210742104014152 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ # Makefile for the DS1820 module # VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = extras/ds1820 DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am \ $(top_srcdir)/depcomp ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(libdir)" LTLIBRARIES = $(lib_LTLIBRARIES) libgpsim_ds1820_la_LIBADD = am_libgpsim_ds1820_la_OBJECTS = module_manager.lo ds1820.lo bit1w.lo \ rom1w.lo libgpsim_ds1820_la_OBJECTS = $(am_libgpsim_ds1820_la_OBJECTS) AM_V_lt = $(am__v_lt_@AM_V@) am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@) am__v_lt_0 = --silent am__v_lt_1 = libgpsim_ds1820_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CXX \ $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CXXLD) \ $(AM_CXXFLAGS) $(CXXFLAGS) $(libgpsim_ds1820_la_LDFLAGS) \ $(LDFLAGS) -o $@ AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/depcomp am__depfiles_maybe = depfiles am__mv = mv -f CXXCOMPILE = $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) LTCXXCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) \ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ $(AM_CXXFLAGS) $(CXXFLAGS) AM_V_CXX = $(am__v_CXX_@AM_V@) am__v_CXX_ = $(am__v_CXX_@AM_DEFAULT_V@) am__v_CXX_0 = @echo " CXX " $@; am__v_CXX_1 = CXXLD = $(CXX) CXXLINK = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CXXLD) $(AM_CXXFLAGS) \ $(CXXFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@ AM_V_CXXLD = $(am__v_CXXLD_@AM_V@) am__v_CXXLD_ = $(am__v_CXXLD_@AM_DEFAULT_V@) am__v_CXXLD_0 = @echo " CXXLD " $@; am__v_CXXLD_1 = SOURCES = $(libgpsim_ds1820_la_SOURCES) DIST_SOURCES = $(libgpsim_ds1820_la_SOURCES) RECURSIVE_TARGETS = all-recursive check-recursive cscopelist-recursive \ ctags-recursive dvi-recursive html-recursive info-recursive \ install-data-recursive install-dvi-recursive \ install-exec-recursive install-html-recursive \ install-info-recursive install-pdf-recursive \ install-ps-recursive install-recursive installcheck-recursive \ installdirs-recursive pdf-recursive ps-recursive \ tags-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive am__recursive_targets = \ $(RECURSIVE_TARGETS) \ $(RECURSIVE_CLEAN_TARGETS) \ $(am__extra_recursive_targets) AM_RECURSIVE_TARGETS = $(am__recursive_targets:-recursive=) TAGS CTAGS \ distdir am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) # Read a list of newline-separated strings from the standard input, # and print each of them once, without duplicates. Input order is # *not* preserved. am__uniquify_input = $(AWK) '\ BEGIN { nonempty = 0; } \ { items[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in items) print i; }; } \ ' # Make sure the list of sources is unique. This is necessary because, # e.g., the same source file might be shared among _SOURCES variables # for different programs/libraries. am__define_uniq_tagged_files = \ list='$(am__tagged_files)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | $(am__uniquify_input)` ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ AM_CPPFLAGS = @X_CFLAGS@ lib_LTLIBRARIES = libgpsim_ds1820.la libgpsim_ds1820_la_SOURCES = \ module_manager.cc ds1820.cc bit1w.cc rom1w.cc libgpsim_ds1820_la_LDFLAGS = @X_LDFLAGS@ EXTRA_DIST = ds1820.h makefile.mingw bit1w.h rom1w.h SUBDIRS = examples all: all-recursive .SUFFIXES: .SUFFIXES: .cc .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu extras/ds1820/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu extras/ds1820/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-libLTLIBRARIES: $(lib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \ } uninstall-libLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \ done clean-libLTLIBRARIES: -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) @list='$(lib_LTLIBRARIES)'; \ locs=`for p in $$list; do echo $$p; done | \ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ sort -u`; \ test -z "$$locs" || { \ echo rm -f $${locs}; \ rm -f $${locs}; \ } libgpsim_ds1820.la: $(libgpsim_ds1820_la_OBJECTS) $(libgpsim_ds1820_la_DEPENDENCIES) $(EXTRA_libgpsim_ds1820_la_DEPENDENCIES) $(AM_V_CXXLD)$(libgpsim_ds1820_la_LINK) -rpath $(libdir) $(libgpsim_ds1820_la_OBJECTS) $(libgpsim_ds1820_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/bit1w.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/ds1820.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/module_manager.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/rom1w.Plo@am__quote@ .cc.o: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(CXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(CXXCOMPILE) -c -o $@ $< .cc.obj: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(CXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(CXXCOMPILE) -c -o $@ `$(CYGPATH_W) '$<'` .cc.lo: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(LTCXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(LTCXXCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run 'make' without going through this Makefile. # To change the values of 'make' variables: instead of editing Makefiles, # (1) if the variable is set in 'config.status', edit 'config.status' # (which will cause the Makefiles to be regenerated when you run 'make'); # (2) otherwise, pass the desired values on the 'make' command line. $(am__recursive_targets): @fail=; \ if $(am__make_keepgoing); then \ failcom='fail=yes'; \ else \ failcom='exit 1'; \ fi; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" ID: $(am__tagged_files) $(am__define_uniq_tagged_files); mkid -fID $$unique tags: tags-recursive TAGS: tags tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ $(am__define_uniq_tagged_files); \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: ctags-recursive CTAGS: ctags ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) $(am__define_uniq_tagged_files); \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" cscopelist: cscopelist-recursive cscopelist-am: $(am__tagged_files) list='$(am__tagged_files)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile $(LTLIBRARIES) installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(libdir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-recursive -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-libLTLIBRARIES install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: uninstall-libLTLIBRARIES .MAKE: $(am__recursive_targets) install-am install-strip .PHONY: $(am__recursive_targets) CTAGS GTAGS TAGS all all-am check \ check-am clean clean-generic clean-libLTLIBRARIES \ clean-libtool cscopelist-am ctags ctags-am distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am \ install-libLTLIBRARIES install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-compile \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags tags-am uninstall uninstall-am uninstall-libLTLIBRARIES # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/extras/ds1820/Makefile.am0000664000076400007640000000047612177043162014147 00000000000000# Makefile for the DS1820 module # AM_CPPFLAGS = @X_CFLAGS@ lib_LTLIBRARIES = libgpsim_ds1820.la libgpsim_ds1820_la_SOURCES = \ module_manager.cc ds1820.cc bit1w.cc rom1w.cc libgpsim_ds1820_la_LDFLAGS = @X_LDFLAGS@ EXTRA_DIST = ds1820.h makefile.mingw bit1w.h rom1w.h SUBDIRS = examples CFLAGS = @CFLAGS@ gpsim-0.27.0/extras/ds1820/rom1w.cc0000664000076400007640000002224512153555712013470 00000000000000/* Copyright (C) 2012 Eduard Timotei Budulea Copyright (C) 2013 Roy R. Rankin 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 3 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, see . */ #include "config.h" #include "rom1w.h" class ROMCodeAttribute : public Integer { public: ROMCodeAttribute() : Integer("ROMCode",0x06050403020110LL,"Device ROM code") { // Add CRC gint64 v = getVal(); set(v); } void set(gint64 i) { gint64 id = (i & 0xffffffffffff00LL) | 0x10; gint64 crc; crc = Rom1W::calculateCRC8((const unsigned char *)&id, 7); id |= crc << 56; Integer::set(id); } virtual void get(char *buffer, int buf_size) { if(buffer) { gint64 i; i = getVal();; snprintf(buffer,buf_size,"0x%" PRINTF_GINT64_MODIFIER "x",i); } } virtual string toString() { return Integer::toString("0x%" PRINTF_INT64_MODIFIER "x"); } }; void Rom1W::gotReset() { if(verbose) cout << name() << " got rom reset" << endl; romState = &Rom1W::readRomCommand; bitRemaining = 8; isReading = true; } static bool getBit(int bitIndex, unsigned char * buffer) { return 0 != (buffer[bitIndex / 8] & (1 << (7 - bitIndex % 8))); } Rom1W::NextAction Rom1W::gotBitStart() { if(verbose)cout << name() << " gotBitStart" << endl; if (--bitRemaining < 0) return (this->*romState)(); if (isReading) return READ; bool write1 = getBit(bitRemaining, octetBuffer); if(verbose) cout << name() << " writing bit = " << write1 << " remaining " << bitRemaining <> ((7 - i) * 8); } Rom1W::NextAction Rom1W::readRomCommand() { if(verbose) cout << name() << " "<<__FUNCTION__ << " got " << hex << (int)octetBuffer[0] << endl; gint64 intaddr; switch (octetBuffer[0]) { case 0x33: // Skip ROM isSelected = false; romState = &Rom1W::readRom; intaddr = attr_ROMCode->getVal(); int64ToBuff(intaddr, octetBuffer); bitRemaining = 64; isReading = false; return IDLE; case 0x55: // Match ROM isSelected = false; romState = &Rom1W::matchRom; bitRemaining = 64; isReading = true; return READ; case 0xEC: // Alarm Search // Fall through to Search ROM case 0xF0: // Search ROM isSelected = (octetBuffer[0]==0xF0 || isAlarm())?true:false; romState = &Rom1W::searchRom; intaddr = attr_ROMCode->getVal(); int64ToBuff(intaddr, octetBuffer + 1); if (octetBuffer[8] & 1) octetBuffer[0] = 0x40; else octetBuffer[0] = 0x80; octetBuffer[9] = 63; bitRemaining = 2; isReading = false; return IDLE; case 0xCC: // Skip ROM isSelected = false; if(verbose) cout << name() << " Skip rom function command\n"; break; case 0xA5: if (isSelected) break; default: return RESET; } return readRom(); } Rom1W::NextAction Rom1W::readRom() { if(verbose) cout << name() << " called " << __FUNCTION__ << endl; resetEngine(); romState = &Rom1W::deviceData; return IDLE; } Rom1W::NextAction Rom1W::matchRom() { if(verbose) cout << name() << " called " << __FUNCTION__ << endl; unsigned char myaddr[8]; gint64 intaddr; intaddr = attr_ROMCode->getVal(); int64ToBuff(intaddr, myaddr); if (memcmp(myaddr, octetBuffer, 8)) { if(verbose) { cout << name() << " " << hex << intaddr << " no match\n got "; for(int i=0; i < 8; i++) printf("%x", octetBuffer[i]); cout < get_cycles().get()) { if (poll_break) get_cycles().clear_break(poll_break); get_cycles().set_break(delay, this); if(verbose) printf("%s to poll busy for %.3f mS\n", name().c_str(), (delay - get_cycles().get())*4./(20. * 1000.)); poll_break = delay; } } // Rom1W::callback catches breaks from both Bit1W and Rom1W // and uses last break setting (bit_break-Bit1W and poll_break-Rom1W) // to determine what action to take void Rom1W::callback() { guint64 now = get_cycles().get(); if (now == poll_break) { isReady = true; octetBuffer[0] = 0xff; poll_break = 0; } if(now == bit_break) LowLevel1W::callback(); } Rom1W::Rom1W(const char *_name, const char *desc): LowLevel1W(_name, desc), isSelected(false), bitRemaining(0), isReading(false), romState(&Rom1W::deviceData) { poll_break = 0; attr_ROMCode = new ROMCodeAttribute(); addSymbol(attr_ROMCode); } Rom1W::~Rom1W() { removeSymbol(attr_ROMCode); delete attr_ROMCode; } static const guint8 crc8Table[256] = {0, 94, 188, 226, 97, 63, 221, 131, 194, 156, 126, 32, 163, 253, 31, 65, 157, 195, 33, 127, 252, 162, 64, 30, 95, 1, 227, 189, 62, 96, 130, 220, 35, 125, 159, 193, 66, 28, 254, 160, 225, 191, 93, 3, 128, 222, 60, 98, 190, 224, 2, 92, 223, 129, 99, 61, 124, 34, 192, 158, 29, 67, 161, 255, 70, 24, 250, 164, 39, 121, 155, 197, 132, 218, 56, 102, 229, 187, 89, 7, 219, 133, 103, 57, 186, 228, 6, 88, 25, 71, 165, 251, 120, 38, 196, 154, 101, 59, 217, 135, 4, 90, 184, 230, 167, 249, 27, 69, 198, 152, 122, 36, 248, 166, 68, 26, 153, 199, 37, 123, 58, 100, 134, 216, 91, 5, 231, 185, 140, 210, 48, 110, 237, 179, 81, 15, 78, 16, 242, 172, 47, 113, 147, 205, 17, 79, 173, 243, 112, 46, 204, 146, 211, 141, 111, 49, 178, 236, 14, 80, 175, 241, 19, 77, 206, 144, 114, 44, 109, 51, 209, 143, 12, 82, 176, 238, 50, 108, 142, 208, 83, 13, 239, 177, 240, 174, 76, 18, 145, 207, 45, 115, 202, 148, 118, 40, 171, 245, 23, 73, 8, 86, 180, 234, 105, 55, 213, 139, 87, 9, 235, 181, 54, 104, 138, 212, 149, 203, 41, 119, 244, 170, 72, 22, 233, 183, 85, 11, 136, 214, 52, 106, 43, 117, 151, 201, 74, 20, 246, 168, 116, 42, 200, 150, 21, 75, 169, 247, 182, 232, 10, 84, 215, 137, 107, 53}; guint8 Rom1W::calculateCRC8(const unsigned char *buffer, int bufferLen) { guint8 crc = 0; for (int i = 0; i < bufferLen; ++i) crc = crc8Table[crc ^ buffer[i]]; return crc; } gpsim-0.27.0/extras/ds1820/bit1w.h0000664000076400007640000000505212145277062013310 00000000000000/* Copyright (C) 2012 Eduard Timotei Budulea Copyright (C) 2013 Roy R. Rankin 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 3 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, see . */ #ifndef BIT1W_H #define BIT1W_H #ifndef IN_MODULE #define IN_MODULE #endif #include #include #include #include #include #include using namespace std; class LowLevel1W : public Module, public TriggerObject { protected: enum NextAction {WRITE1, WRITE0, READ, RESET, IDLE}; private: guint64 cicluReper; bool lastValue; bool lastTimeout; class Pin1W : public IO_bi_directional { LowLevel1W &to; public: Pin1W(char const *name, LowLevel1W &to): IO_bi_directional(name), to(to) {} virtual void setDrivenState(bool new_dstate) { IO_bi_directional::setDrivenState(new_dstate); to.change(true); } virtual void setDrivenState(char new_state) { IO_bi_directional::setDrivenState(new_state); to.change(true); } } pin; virtual void gotReset() = 0; virtual NextAction gotBitStart() = 0; virtual void readBit(bool value) = 0; virtual int bit_remaining() = 0; virtual bool is_reading() = 0; void change(bool pinChange); void (LowLevel1W::*state)(bool input, bool isTimeout); bool ignoreCallback; void idle(bool input, bool isTimeout); void inResetPulse(bool input, bool isTimeout); void endResetPulse(bool input, bool isTimeout); void inPresencePulse(bool input, bool isTimeout); void endPresencePulse(bool input, bool isTimeout); void waitIdle(bool input, bool isTimeout); void inWritting0(bool input, bool isTimeout); void inWritting1(bool input, bool isTimeout); void inReading(bool input, bool isTimeout); void finalizeBit(bool input, bool isTimeout); public: guint64 bit_break; LowLevel1W(const char *name, const char *desc); virtual void callback(); }; #endif gpsim-0.27.0/extras/ds1820/ds1820.h0000664000076400007640000000331612145277120013177 00000000000000/* Copyright (C) 2012 Eduard Timotei Budulea Copyright (C) 2013 Roy R. Rankin 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 3 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, see . */ #ifndef DS1820_H #define DS1820_H #ifndef IN_MODULE #define IN_MODULE #endif #include "rom1w.h" class TemperatureAttribute; class PoweredAttribute; class Alarm_Th_Attribute; class Alarm_Tl_Attribute; class Config_Attribute; namespace DS1820_Modules { class DS1820 : public Rom1W { virtual void doneBits(); virtual void resetEngine(); virtual bool isAlarm(); TemperatureAttribute *attr_Temp; PoweredAttribute *attr_powered; Alarm_Th_Attribute *attr_thigh; Alarm_Tl_Attribute *attr_tlow; Config_Attribute *attr_config; bool ds1820_eeprom_loaded; unsigned char scratchpad[9]; bool is_ds18b20; void (DS1820::* dsState)(); void readCommand(); void writeScratchpad(); void readPower(); void done(); void loadEEPROM(); public: DS1820(const char *name, bool isDS18B20); ~DS1820(); static Module* construct(const char *name = 0); static Module* constructB(const char *name = 0); }; } // end of namespace #endif gpsim-0.27.0/extras/ds1820/rom1w.h0000664000076400007640000000361012145277167013333 00000000000000/* Copyright (C) 2012 Eduard Timotei Budulea Copyright (C) 2013 Roy R. Rankin 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 3 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, see . */ #ifndef ROM1W_H #define ROM1W_H #ifndef IN_MODULE #define IN_MODULE #endif #include "bit1w.h" #include "src/value.h" class ROMCodeAttribute; class Rom1W : public LowLevel1W { private: virtual void gotReset(); virtual NextAction gotBitStart(); virtual void readBit(bool value); virtual int bit_remaining() { return bitRemaining;} virtual bool is_reading() { return isReading;} bool isSelected; bool isReady; ROMCodeAttribute *attr_ROMCode; virtual void doneBits() = 0; virtual void resetEngine() = 0; virtual bool isAlarm() { return false;} protected: int bitRemaining; bool isReading; guint64 poll_break; unsigned char octetBuffer[64]; private: NextAction (Rom1W::*romState)(); NextAction readRomCommand(); NextAction readRom(); NextAction matchRom(); NextAction searchRom(); NextAction deviceData(); NextAction ignoreData(); NextAction statusPoll(); virtual void callback(); public: Rom1W(const char *name, const char *desc); ~Rom1W(); static unsigned char calculateCRC8(const unsigned char *buffer, int bufferLen); void set_status_poll(guint64 delay); }; #endif gpsim-0.27.0/extras/ds1820/examples/0000775000076400007640000000000012210742357014002 500000000000000gpsim-0.27.0/extras/ds1820/examples/Makefile.in0000664000076400007640000003123212210742104015756 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = extras/ds1820/examples DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am README ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ EXTRA_DIST = ds1820.asm ds18b20.asm 16f1823_g.lkr README MOSTLYCLEANFILES = *.o *.hex *.cod *.lst *.map *~ CLEANFILES = *.o *.hex *.cod *.lst *.map *~ DISTCLEANFILES = *.o *.hex *.cod *.lst *.map *~ MAINTAINERCLEANFILES = *.o *.hex *.cod *.lst *.map *~ SUFFIXES = .o .asm all: all-am .SUFFIXES: .SUFFIXES: .o .asm $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu extras/ds1820/examples/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu extras/ds1820/examples/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags TAGS: ctags CTAGS: cscope cscopelist: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: -test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES) clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES) clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ cscopelist-am ctags-am distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags-am uninstall uninstall-am all: ds1820.cod ds18b20.cod ds1820.cod : ds1820.o gplink --map -s 16f1823_g.lkr -o $@ $< ds18b20.cod : ds18b20.o gplink --map -s 16f1823_g.lkr -o $@ $< .asm.o : gpasm -c $< # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/extras/ds1820/examples/Makefile.am0000664000076400007640000000071112177043162015755 00000000000000EXTRA_DIST = ds1820.asm ds18b20.asm 16f1823_g.lkr README MOSTLYCLEANFILES = *.o *.hex *.cod *.lst *.map *~ CLEANFILES = *.o *.hex *.cod *.lst *.map *~ DISTCLEANFILES = *.o *.hex *.cod *.lst *.map *~ MAINTAINERCLEANFILES = *.o *.hex *.cod *.lst *.map *~ SUFFIXES = .o .asm all: ds1820.cod ds18b20.cod ds1820.cod : ds1820.o gplink --map -s 16f1823_g.lkr -o $@ $< ds18b20.cod : ds18b20.o gplink --map -s 16f1823_g.lkr -o $@ $< .asm.o : gpasm -c $< gpsim-0.27.0/extras/ds1820/examples/ds1820.asm0000664000076400007640000002545512145304757015365 00000000000000; ; Test operation of the 1-wire tmemperaure sensor ds1820 and ; is part of gpsim. ; ; Copyright (c) 2013 Roy Rankin ; ; 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, see ; http://www.gnu.org/licenses/gpl-2.0.html ; ; MACROS and some code included the following ;************************************************************************ ;* Microchip Technology Inc. 2006 ;* 02/15/06 ;* Designed to run at 20MHz ;************************************************************************ ; gpsim command .command macro x .direct "C", x endm list p=16F1823 #include p16f1823.inc include __CONFIG _CONFIG1, _CP_OFF & _WRT_OFF & _CPD_OFF & _LVP_OFF & _PWRTE_ON & _WDTE_OFF & _FOSC_HS errorlevel -302 radix dec #define NO_PARASITE 1 #define ID1_ADDRESS 0x20 #define ID2_ADDRESS 0x30 #define DS_PORT PORTC #define DS_PIN 0 #define DS_TRIS TRISC UDATA 0x20 ID1 RES 8 scratch RES 8 ID2 RES 8 Tlsb RES 1 Tmsb RES 1 Th RES 1 Tl RES 1 reserve RES 2 count_rem RES 1 count_per_c RES 1 crc RES 1 variables UDATA 0x70 d1l RES 1 ; delay counter d1h RES 1 ; delay counter d2 RES 1 ; long period counter temp1 RES 1 temp2 RES 1 status_temp RES 1 w_temp RES 1 bit_cnt RES 1 ; bit count for byte I/O dup_devices RES 1 ; found more than 1 device dev_select RES 1 ; select device to save GLOBAL Tlsb, Tmsb,Th,Tl, count_rem ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location .assert "\"***FAILED p16f1823 unexpected interrupt\"" nop exit_int: retfie ; MAIN CODE start .sim "module lib libgpsim_modules" .sim "module lib libgpsim_ds1820" .sim "module load ds1820 temp1" .sim "module load ds1820 temp2" .sim "module load pu pu1" .sim "node n1" .sim "attach n1 pu1.pin portc0 temp1.pin " ;.sim "attach n1 pu1.pin portc0 temp1.pin temp2.pin" .sim "pu1.xpos = 240" .sim "pu1.ypos = 188" .sim "pu1.resistance = 4700" .sim "temp1.xpos = 240" .sim "temp1.ypos = 50" .sim "temp1.powered = false" .sim "temp2.xpos = 240" .sim "temp2.ypos = 110" .sim "temp2.ROMCode = 0x06050403020200" .sim "temp2.temperature = -25.4" .sim "p16f1823.xpos = 36" .sim "p16f1823.ypos = 36" .sim "scope.ch0=\"portc0\"" call ProgInit ; Get everything running step-by-step ;goto two clrf dev_select call searchRom call read_rom call check_power .assert "W==0x00,\"DS1820 temp1 parasite power\"" nop call power_on_val call read_temp .assert "Tlsb==0x32,\"Temperature Reading lsb 0x32 (25C)\"" nop .assert "Tmsb==0x00,\"Temperature Reading msb 0x00 (25C)\"" nop call write_ThTl call eeprom2scratch two .command "attach n1 temp2.pin" nop incf dev_select,F ; search for second ds1820 call searchRom call check_power .assert "W==0x80,\"DS1820 temp2 external power\"" nop call power_on_val call read_temp .assert "Tlsb==0xce,\"Temperature Reading lsb 0xce (-25.4C)\"" nop .assert "Tmsb==0xff, \"Temperature Reading msb 0xFF (-25.4C)\"" nop call write_ThTl call eeprom2scratch .assert "\"*** PASSED p16f1823 DS1820 test\"" nop goto $ ; ; Read Power-on scratchpad 0,1 power_on_val call match_device movlw 0xbe ;Transmit out temperature call send_byte call get_byte .assert "W==0xAA,\"Power-on reading scratchpad[0]\"" nop call get_byte .assert "W==0x00,\"Power-on reading scratchpad[1]\"" nop return ; ; Do Temperature conversion, and read temperature read_temp call ds1820init movlw 0xcc ;Send skip rom command call send_byte movlw 0x44 ;Issue convert T command call send_byte ;; It is not known what a real devices would do on the following ;; status reads if at least one is on parasite power. ;; However this code would fail on real devices using parasite power ;; as a hard pullup is required during the conversion #ifdef NO_PARASITE call get_byte ; status read call get_byte ; status read loop btfss temp1,0 goto $-2 #else banksel DS_PORT bsf DS_PORT,DS_PIN ; we want strong pullup, so output banksel DS_TRIS bcf DS_TRIS,DS_PIN call Delay750mS ; Tconv delay #endif call read_scratch call get_byte ; temp lsb movwf Tlsb call get_byte ; temp lsb movwf Tmsb return ; ; Write Th & Tl to scratchpad write_ThTl call match_device movlw 0x4e ; write Th & Tl to scratchpad call send_byte movlw 0xa0 call send_byte movlw 0x00 call send_byte call read_scratch call get_byte ; temp lsb call get_byte ; temp msb call get_byte ; Th .assert "W==0xa0,\"Th 0xa0\"" nop call get_byte ; Tl .assert "W==0, \"Tl 0x00\"" nop return ; ; Transfer EEPROM to scratchpad eeprom2scratch call match_device movlw 0xb8 ; Recall EE call send_byte call read_scratch call get_byte ; temp lsb movwf Tlsb call get_byte ; temp msb movwf Tmsb call get_byte ; Th movwf Th call get_byte ; Tl movwf Tl call get_byte movwf reserve call get_byte movwf reserve+1 call get_byte movwf count_rem call get_byte movwf count_per_c call get_byte movwf crc .assert "Th==20,\"Th 20\"" nop .assert "Tl==0xfb, \"Tl -5\"" nop return read_rom call ds1820init movlw 0x33 ;read rom command call send_byte movlw ID2_ADDRESS ; address of scratch + 8 movwf FSR0 movlw 8 movwf temp2 call get_byte movwi --FSR0 decfsz temp2,F goto $-3 return read_scratch call match_device movlw 0xbe ;Transmit out temperature call send_byte return ; Match_device does a skip ROM command if one device present ; Otherwise it does a match ROM on ID1 or ID2 depending on dev_select match_device call ds1820init btfsc dup_devices,0 goto $+4 movlw 0xcc ; just 1 device do skip ROM call send_byte return movlw 0x55 call send_byte movlw ID1_ADDRESS+8 ; address of ID1+8 btfsc dev_select,0 movlw ID2_ADDRESS+8 ;address of ID2+8 movwf FSR0 movlw 8 movwf temp2 moviw --FSR0 call send_byte decfsz temp2,F goto $-3 return check_power: call match_device movlw 0xb4 ;Check power call send_byte call get_1bit return searchRom: call ds1820init movlw 0xf0 ;Search ROM call send_byte movlw .64 movwf temp2 searchloop call get_2bits call process_bits decfsz temp2,F goto searchloop return process_bits btfsc temp1,6 goto b1x btfsc temp1,7 goto b01 ; 00 got 00 some devices sent 0 some 1 , do 0 first incf dup_devices,F ; indicate duplicate btfss dev_select,0 goto b10 b01 bcf temp1,0 ; got 01 all devices sent 0 bcf STATUS,C goto bits_ack b1x btfsc temp1,7 goto b11 b10 bsf temp1,0 ; got 10 all devices sent 1 bsf STATUS,C goto bits_ack b11 .assert "\"no devices present\"" nop bits_ack btfsc dev_select,0 goto bits_ack2 bits_ack1 banksel ID1 rrf ID1,F rrf ID1+1,F rrf ID1+2,F rrf ID1+3,F rrf ID1+4,F rrf ID1+5,F rrf ID1+6,F rrf ID1+7,F call send_1bit return bits_ack2 banksel ID2 rrf ID2,F rrf ID2+1,F rrf ID2+2,F rrf ID2+3,F rrf ID2+4,F rrf ID2+5,F rrf ID2+6,F rrf ID2+7,F call send_1bit return ;****************** Initialize Registers and Variables ***************** ;************************************************************************ ProgInit banksel DS_PORT movlw 0xff movwf DS_PORT ; Set all bits high on Port banksel DS_TRIS clrf DS_TRIS banksel ANSELC clrf ANSELC return ds1820init: ; DS1820 init sequence banksel DS_PORT bsf DS_PORT,DS_PIN ; Pin high banksel DS_TRIS bcf DS_TRIS,DS_PIN ; Pin as output banksel DS_PORT bcf DS_PORT,DS_PIN ; Pin low call Delay500us banksel DS_TRIS bsf DS_TRIS,DS_PIN ; Pin as input (pullup to high) banksel DS_PORT call Delay70us movf DS_PORT,W .assert "(W & 1)==0,\"DS1820, no presents pulse\"" nop call Delay500us return ; send 1 bit from temp1 send_1bit movlw 1 goto send_bits ; send the byte in W send_byte movwf temp1 movlw 8 send_bits movwf bit_cnt banksel DS_PORT ; we want bit low, high is by pullup bcf DS_PORT,DS_PIN send_loop rrf temp1,F ; rotate lSB into carry btfss STATUS,C ; is bit 0 or 1 goto send_0 goto send_1 send_chk decfsz bit_cnt,F ; have we send all bits goto send_loop ; NO banksel DS_PORT return ; YES send_0 banksel DS_TRIS bcf DS_TRIS,DS_PIN call Delay70us bsf DS_TRIS,DS_PIN goto send_chk send_1 banksel DS_TRIS bcf DS_TRIS,DS_PIN call Delay10us bsf DS_TRIS,DS_PIN call Delay70us goto send_chk ; read 1 bit of data get_1bit movlw 1 goto get_bits ; read 2 bits of data get_2bits movlw 2 goto get_bits ; read a data byte and return it in W get_byte movlw 8 ; input bit counter get_bits movwf bit_cnt clrf temp1 banksel DS_PORT bcf DS_PORT,DS_PIN get_loop banksel DS_TRIS bcf DS_TRIS,DS_PIN ; init read timeslot by pulling line low nop ; delay for at least 1 usec nop nop nop nop bsf DS_TRIS,DS_PIN ; release line call Delay10us banksel DS_PORT bsf STATUS,C ; set carry incase of 1 btfss DS_PORT,DS_PIN ; read port data bcf STATUS,C ; its 0, so clear carry rrf temp1,f ; roll data into data word call Delay70us ; this could be 45us btfss DS_PORT,DS_PIN ; check port pin goto $-1 ; loop until high decfsz bit_cnt,F goto get_loop movf temp1,W return Delay750mS movlw .75 movwf d2 loop750ms call Delay10mS decfsz d2,F goto loop750ms return Delay10mS movlw 0x50 movwf d1l movlw 0x28 movwf d1h goto Delay_0 Delay500us movlw 0x02 movwf d1h movlw 0xfe movwf d1l goto Delay_0 Delay70us movlw 0x01 movwf d1h movlw 0x44 movwf d1l goto Delay_0 Delay10us movlw 0x01 movwf d1h movlw 0x08 movwf d1l goto Delay_0 Delay_0 decfsz d1l, f goto $+2 decfsz d1h, f goto Delay_0 ;2 cycles goto $+1 return end gpsim-0.27.0/extras/ds1820/examples/16f1823_g.lkr0000664000076400007640000002703612142631577015671 00000000000000// File: 16f1823_g.lkr // Generic linker script for the PIC16F1823 processor #DEFINE _CODEEND _DEBUGCODESTART - 1 #DEFINE _CEND _CODEEND + _DEBUGCODELEN #DEFINE _DATAEND _DEBUGDATASTART - 1 #DEFINE _DEND _DATAEND + _DEBUGDATALEN LIBPATH . #IFDEF _DEBUGCODESTART CODEPAGE NAME=page0 START=0x0 END=_CODEEND CODEPAGE NAME=debug START=_DEBUGCODESTART END=_CEND PROTECTED #ELSE CODEPAGE NAME=page0 START=0x0 END=0x7FF #FI CODEPAGE NAME=.idlocs START=0x8000 END=0x8003 PROTECTED CODEPAGE NAME=.devid START=0x8006 END=0x8006 PROTECTED CODEPAGE NAME=.config START=0x8007 END=0x8008 PROTECTED CODEPAGE NAME=eedata START=0xF000 END=0xF0FF PROTECTED LINEARMEM NAME=linear0 START=0x2000 END=0x206F PROTECTED DATABANK NAME=sfr0 START=0x0 END=0x1F PROTECTED DATABANK NAME=sfr1 START=0x80 END=0x9F PROTECTED DATABANK NAME=sfr2 START=0x100 END=0x11F PROTECTED DATABANK NAME=sfr3 START=0x180 END=0x19F PROTECTED DATABANK NAME=sfr4 START=0x200 END=0x21F PROTECTED DATABANK NAME=sfr5 START=0x280 END=0x29F PROTECTED DATABANK NAME=sfr6 START=0x300 END=0x31F PROTECTED DATABANK NAME=sfr7 START=0x380 END=0x39F PROTECTED DATABANK NAME=sfr8 START=0x400 END=0x41F PROTECTED DATABANK NAME=sfr9 START=0x480 END=0x49F PROTECTED DATABANK NAME=sfr10 START=0x500 END=0x51F PROTECTED DATABANK NAME=sfr11 START=0x580 END=0x59F PROTECTED DATABANK NAME=sfr12 START=0x600 END=0x61F PROTECTED DATABANK NAME=sfr13 START=0x680 END=0x69F PROTECTED DATABANK NAME=sfr14 START=0x700 END=0x71F PROTECTED DATABANK NAME=sfr15 START=0x780 END=0x79F PROTECTED DATABANK NAME=sfr16 START=0x800 END=0x81F PROTECTED DATABANK NAME=sfr17 START=0x880 END=0x89F PROTECTED DATABANK NAME=sfr18 START=0x900 END=0x91F PROTECTED DATABANK NAME=sfr19 START=0x980 END=0x99F PROTECTED DATABANK NAME=sfr20 START=0xA00 END=0xA1F PROTECTED DATABANK NAME=sfr21 START=0xA80 END=0xA9F PROTECTED DATABANK NAME=sfr22 START=0xB00 END=0xB1F PROTECTED DATABANK NAME=sfr23 START=0xB80 END=0xB9F PROTECTED DATABANK NAME=sfr24 START=0xC00 END=0xC1F PROTECTED DATABANK NAME=sfr25 START=0xC80 END=0xC9F PROTECTED DATABANK NAME=sfr26 START=0xD00 END=0xD1F PROTECTED DATABANK NAME=sfr27 START=0xD80 END=0xD9F PROTECTED DATABANK NAME=sfr28 START=0xE00 END=0xE1F PROTECTED DATABANK NAME=sfr29 START=0xE80 END=0xE9F PROTECTED DATABANK NAME=sfr30 START=0xF00 END=0xF1F PROTECTED DATABANK NAME=sfr31 START=0xF80 END=0xFEF PROTECTED DATABANK NAME=gpr0 START=0x20 END=0x6F SHADOW=linear0:0x2000 #IFDEF _DEBUGDATASTART DATABANK NAME=gpr1 START=0xA0 END=_DATAEND SHADOW=linear0:0x2050 DATABANK NAME=dbgspr START=_DEBUGDATASTART END=_DEND PROTECTED #ELSE //no debug DATABANK NAME=gpr1 START=0xA0 END=0xBF SHADOW=linear0:0x2050 #FI #IFDEF _DEBUGDATASTART SHAREBANK NAME=dbgnobnk START=0x70 END=0x70 RESERVED SHAREBANK NAME=dbgnobnk START=0xF0 END=0xF0 RESERVED SHAREBANK NAME=dbgnobnk START=0x170 END=0x170 RESERVED SHAREBANK NAME=dbgnobnk START=0x1F0 END=0x1F0 RESERVED SHAREBANK NAME=dbgnobnk START=0x270 END=0x270 RESERVED SHAREBANK NAME=dbgnobnk START=0x2F0 END=0x2F0 RESERVED SHAREBANK NAME=dbgnobnk START=0x370 END=0x370 RESERVED SHAREBANK NAME=dbgnobnk START=0x3F0 END=0x3F0 RESERVED SHAREBANK NAME=dbgnobnk START=0x470 END=0x470 RESERVED SHAREBANK NAME=dbgnobnk START=0x4F0 END=0x4F0 RESERVED SHAREBANK NAME=dbgnobnk START=0x570 END=0x570 RESERVED SHAREBANK NAME=dbgnobnk START=0x5F0 END=0x5F0 RESERVED SHAREBANK NAME=dbgnobnk START=0x670 END=0x670 RESERVED SHAREBANK NAME=dbgnobnk START=0x6F0 END=0x6F0 RESERVED SHAREBANK NAME=dbgnobnk START=0x770 END=0x770 RESERVED SHAREBANK NAME=dbgnobnk START=0x7F0 END=0x7F0 RESERVED SHAREBANK NAME=dbgnobnk START=0x870 END=0x870 RESERVED SHAREBANK NAME=dbgnobnk START=0x8F0 END=0x8F0 RESERVED SHAREBANK NAME=dbgnobnk START=0x970 END=0x970 RESERVED SHAREBANK NAME=dbgnobnk START=0x9F0 END=0x9F0 RESERVED SHAREBANK NAME=dbgnobnk START=0xA70 END=0xA70 RESERVED SHAREBANK NAME=dbgnobnk START=0xAF0 END=0xAF0 RESERVED SHAREBANK NAME=dbgnobnk START=0xB70 END=0xB70 RESERVED SHAREBANK NAME=dbgnobnk START=0xBF0 END=0xBF0 RESERVED SHAREBANK NAME=dbgnobnk START=0xC70 END=0xC70 RESERVED SHAREBANK NAME=dbgnobnk START=0xCF0 END=0xCF0 RESERVED SHAREBANK NAME=dbgnobnk START=0xD70 END=0xD70 RESERVED SHAREBANK NAME=dbgnobnk START=0xDF0 END=0xDF0 RESERVED SHAREBANK NAME=dbgnobnk START=0xE70 END=0xE70 RESERVED SHAREBANK NAME=dbgnobnk START=0xEF0 END=0xEF0 RESERVED SHAREBANK NAME=dbgnobnk START=0xF70 END=0xF70 RESERVED SHAREBANK NAME=dbgnobnk START=0xFF0 END=0xFF0 RESERVED SHAREBANK NAME=gprnobank START=0x71 END=0x7F SHAREBANK NAME=gprnobank START=0xF1 END=0xFF PROTECTED SHAREBANK NAME=gprnobank START=0x171 END=0x17F PROTECTED SHAREBANK NAME=gprnobank START=0x1F1 END=0x1FF PROTECTED SHAREBANK NAME=gprnobank START=0x271 END=0x27F PROTECTED SHAREBANK NAME=gprnobank START=0x2F1 END=0x2FF PROTECTED SHAREBANK NAME=gprnobank START=0x371 END=0x37F PROTECTED SHAREBANK NAME=gprnobank START=0x3F1 END=0x3FF PROTECTED SHAREBANK NAME=gprnobank START=0x471 END=0x47F PROTECTED SHAREBANK NAME=gprnobank START=0x4F1 END=0x4FF PROTECTED SHAREBANK NAME=gprnobank START=0x571 END=0x57F PROTECTED SHAREBANK NAME=gprnobank START=0x5F1 END=0x5FF PROTECTED SHAREBANK NAME=gprnobank START=0x671 END=0x67F PROTECTED SHAREBANK NAME=gprnobank START=0x6F1 END=0x6FF PROTECTED SHAREBANK NAME=gprnobank START=0x771 END=0x77F PROTECTED SHAREBANK NAME=gprnobank START=0x7F1 END=0x7FF PROTECTED SHAREBANK NAME=gprnobank START=0x871 END=0x87F PROTECTED SHAREBANK NAME=gprnobank START=0x8F1 END=0x8FF PROTECTED SHAREBANK NAME=gprnobank START=0x971 END=0x97F PROTECTED SHAREBANK NAME=gprnobank START=0x9F1 END=0x9FF PROTECTED SHAREBANK NAME=gprnobank START=0xA71 END=0xA7F PROTECTED SHAREBANK NAME=gprnobank START=0xAF1 END=0xAFF PROTECTED SHAREBANK NAME=gprnobank START=0xB71 END=0xB7F PROTECTED SHAREBANK NAME=gprnobank START=0xBF1 END=0xBFF PROTECTED SHAREBANK NAME=gprnobank START=0xC71 END=0xC7F PROTECTED SHAREBANK NAME=gprnobank START=0xCF1 END=0xCFF PROTECTED SHAREBANK NAME=gprnobank START=0xD71 END=0xD7F PROTECTED SHAREBANK NAME=gprnobank START=0xDF1 END=0xDFF PROTECTED SHAREBANK NAME=gprnobank START=0xE71 END=0xE7F PROTECTED SHAREBANK NAME=gprnobank START=0xEF1 END=0xEFF PROTECTED SHAREBANK NAME=gprnobank START=0xF71 END=0xF7F PROTECTED SHAREBANK NAME=gprnobank START=0xFF1 END=0xFFF PROTECTED #ELSE SHAREBANK NAME=gprnobank START=0x70 END=0x7F SHAREBANK NAME=gprnobank START=0xF0 END=0xFF PROTECTED SHAREBANK NAME=gprnobank START=0x170 END=0x17F PROTECTED SHAREBANK NAME=gprnobank START=0x1F0 END=0x1FF PROTECTED SHAREBANK NAME=gprnobank START=0x270 END=0x27F PROTECTED SHAREBANK NAME=gprnobank START=0x2F0 END=0x2FF PROTECTED SHAREBANK NAME=gprnobank START=0x370 END=0x37F PROTECTED SHAREBANK NAME=gprnobank START=0x3F0 END=0x3FF PROTECTED SHAREBANK NAME=gprnobank START=0x470 END=0x47F PROTECTED SHAREBANK NAME=gprnobank START=0x4F0 END=0x4FF PROTECTED SHAREBANK NAME=gprnobank START=0x570 END=0x57F PROTECTED SHAREBANK NAME=gprnobank START=0x5F0 END=0x5FF PROTECTED SHAREBANK NAME=gprnobank START=0x670 END=0x67F PROTECTED SHAREBANK NAME=gprnobank START=0x6F0 END=0x6FF PROTECTED SHAREBANK NAME=gprnobank START=0x770 END=0x77F PROTECTED SHAREBANK NAME=gprnobank START=0x7F0 END=0x7FF PROTECTED SHAREBANK NAME=gprnobank START=0x870 END=0x87F PROTECTED SHAREBANK NAME=gprnobank START=0x8F0 END=0x8FF PROTECTED SHAREBANK NAME=gprnobank START=0x970 END=0x97F PROTECTED SHAREBANK NAME=gprnobank START=0x9F0 END=0x9FF PROTECTED SHAREBANK NAME=gprnobank START=0xA70 END=0xA7F PROTECTED SHAREBANK NAME=gprnobank START=0xAF0 END=0xAFF PROTECTED SHAREBANK NAME=gprnobank START=0xB70 END=0xB7F PROTECTED SHAREBANK NAME=gprnobank START=0xBF0 END=0xBFF PROTECTED SHAREBANK NAME=gprnobank START=0xC70 END=0xC7F PROTECTED SHAREBANK NAME=gprnobank START=0xCF0 END=0xCFF PROTECTED SHAREBANK NAME=gprnobank START=0xD70 END=0xD7F PROTECTED SHAREBANK NAME=gprnobank START=0xDF0 END=0xDFF PROTECTED SHAREBANK NAME=gprnobank START=0xE70 END=0xE7F PROTECTED SHAREBANK NAME=gprnobank START=0xEF0 END=0xEFF PROTECTED SHAREBANK NAME=gprnobank START=0xF70 END=0xF7F PROTECTED SHAREBANK NAME=gprnobank START=0xFF0 END=0xFFF PROTECTED #FI SECTION NAME=PROG0 ROM=page0 // ROM code space - page0 SECTION NAME=IDLOCS ROM=.idlocs // ID locations SECTION NAME=DEEPROM ROM=eedata // Data EEPROM SECTION NAME=LINEAR0 RAM=linear0 // Linear Memory gpsim-0.27.0/extras/ds1820/examples/README0000664000076400007640000000060212145306504014575 00000000000000This directory contains programs to test the ds1820 and ds18b20 1-wire temperature sensing devices. Note that this code is written for a 16f1823 processor which may not be supported in your version of gpsim. Also this code may not run on real devices using parasite power. Enter make to compile the programs and then run them gpsim ds1820.cod or gpsim ds18b20.cod Roy Rankin gpsim-0.27.0/extras/ds1820/examples/ds18b20.asm0000664000076400007640000002745212145305750015520 00000000000000; ; Test operation of the 1-wire tmemperaure sensor ds18b20. ; This program is part of gpsim. ; ; Copyright (c) 2013 Roy Rankin ; ; 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, see ; http://www.gnu.org/licenses/gpl-2.0.html ; ; MACROS and some code included the following ;************************************************************************ ;* Microchip Technology Inc. 2006 ;* 02/15/06 ;* Designed to run at 20MHz ;************************************************************************ ; gpsim command .command macro x .direct "C", x endm list p=16F1823 #include p16f1823.inc include __CONFIG _CONFIG1, _CP_OFF & _WRT_OFF & _CPD_OFF & _LVP_OFF & _PWRTE_ON & _WDTE_OFF & _FOSC_HS errorlevel -302 radix dec #define NO_PARASITE 1 #define ID1_ADDRESS 0x20 #define ID2_ADDRESS 0x30 #define DS_PORT PORTC #define DS_PIN 0 #define DS_TRIS TRISC UDATA 0x20 ID1 RES 8 scratch RES 8 ID2 RES 8 Tlsb RES 1 Tmsb RES 1 Th RES 1 Tl RES 1 config_reg RES 1 reserve RES 1 count_rem RES 1 count_per_c RES 1 crc RES 1 variables UDATA 0x70 d1l RES 1 ; delay counter d1h RES 1 ; delay counter d2 RES 1 ; long period counter temp1 RES 1 temp2 RES 1 status_temp RES 1 w_temp RES 1 bit_cnt RES 1 ; bit count for byte I/O dup_devices RES 1 ; found more than 1 device dev_select RES 1 ; select device to save GLOBAL Tlsb, Tmsb,Th,Tl, count_rem, config_reg ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location .assert "\"***FAILED p16f1823 unexpected interrupt\"" nop exit_int: retfie ; MAIN CODE start .sim "module lib libgpsim_modules" .sim "module lib libgpsim_ds1820" .sim "module load ds18b20 temp1" .sim "module load ds18b20 temp2" .sim "module load pu pu1" .sim "node n1" .sim "attach n1 pu1.pin portc0 temp1.pin " ;.sim "attach n1 pu1.pin portc0 temp1.pin temp2.pin" .sim "pu1.xpos = 240" .sim "pu1.ypos = 188" .sim "pu1.resistance = 4700" .sim "temp1.xpos = 240" .sim "temp1.ypos = 50" .sim "temp1.powered = false" .sim "temp2.xpos = 240" .sim "temp2.ypos = 110" .sim "temp2.ROMCode = 0x06050403020200" .sim "temp2.temperature = -25.4" .sim "temp2.config_register = 0x3f" .sim "p16f1823.xpos = 36" .sim "p16f1823.ypos = 36" .sim "scope.ch0=\"portc0\"" call ProgInit ; Get everything running step-by-step ;goto two clrf dev_select call searchRom call read_rom call check_power .assert "W==0x00,\"DS1820 temp1 parasite power\"" nop call power_on_val call read_temp .assert "Tlsb==0x32,\"Temperature Reading lsb 0x32 (25C)\"" nop .assert "Tmsb==0x00,\"Temperature Reading msb 0x00 (25C)\"" nop call write_ThTl call eeprom2scratch two .command "attach n1 temp2.pin" nop incf dev_select,F ; search for second ds1820 call searchRom call check_power .assert "W==0x80,\"DS1820 temp2 external power\"" nop call power_on_val call read_temp .assert "Tlsb==0xce,\"Temperature Reading lsb 0xce (-25.4C)\"" nop .assert "Tmsb==0xff, \"Temperature Reading msb 0xFF (-25.4C)\"" nop call alarmSearch call write_ThTl call eeprom2scratch call scratch2eeprom .assert "\"*** PASSED p16f1823 DS1820 test\"" nop goto $ ; ; Read Power-on scratchpad 0,1 power_on_val call match_device movlw 0xbe ;Transmit out temperature call send_byte call get_byte .assert "W==0xAA,\"Power-on reading scratchpad[0]\"" nop call get_byte .assert "W==0x00,\"Power-on reading scratchpad[1]\"" nop return ; ; Do Temperature conversion, and read temperature read_temp call ds1820init movlw 0xcc ;Send skip rom command call send_byte movlw 0x44 ;Issue convert T command call send_byte ;; It is not known what a real devices would do on the following ;; status reads if at least one is on parasite power. ;; However this code would fail on real devices using parasite power ;; as a hard pullup is required during the conversion #ifdef NO_PARASITE call get_byte ; status read call get_byte ; status read loop btfss temp1,0 goto $-2 #else banksel DS_PORT bsf DS_PORT,DS_PIN ; we want strong pullup, so output banksel DS_TRIS bcf DS_TRIS,DS_PIN call Delay750mS ; Tconv delay #endif call read_scratch call get_byte ; temp lsb movwf Tlsb call get_byte ; temp lsb movwf Tmsb return ; ; Write Th & Tl to scratchpad write_ThTl call match_device movlw 0x4e ; write Th & Tl to scratchpad call send_byte movlw 0xa0 call send_byte ; send Th movlw 0x00 call send_byte ; send Tl movlw 0x20 call send_byte ; send configuration resgister call read_scratch call get_byte ; temp lsb call get_byte ; temp msb call get_byte ; Th .assert "W==0xa0,\"Th 0xa0\"" nop call get_byte ; Tl .assert "W==0, \"Tl 0x00\"" nop call get_byte ; configuration register .assert "W==0x3f, \"config_reg 0x3f\"" nop return ; transfer Th, Tl and config to EEPROM ; scratch2eeprom call match_device movlw 0x48 call send_byte ;; It is not known what a real devices would do on the following ;; status reads if at least one is on parasite power. ;; However this code would fail on real devices using parasite power ;; as a hard pullup is required during the conversion #ifdef NO_PARASITE nop call get_byte ; status read loop btfss temp1,0 goto $-2 #else banksel DS_PORT bsf DS_PORT,DS_PIN ; we want strong pullup, so output banksel DS_TRIS bcf DS_TRIS,DS_PIN call Delay10mS ; Tconv delay #endif return ; ; Transfer EEPROM to scratchpad eeprom2scratch call match_device movlw 0xb8 ; Recall EE call send_byte call read_scratch call get_byte ; temp lsb movwf Tlsb call get_byte ; temp msb movwf Tmsb call get_byte ; Th movwf Th call get_byte ; Tl movwf Tl call get_byte movwf config_reg call get_byte movwf reserve call get_byte movwf count_rem call get_byte movwf count_per_c call get_byte movwf crc .assert "Th==30,\"Th 30\"" nop .assert "Tl==0xfb, \"Tl -5\"" nop return read_rom call ds1820init movlw 0x33 ;read rom command call send_byte movlw ID2_ADDRESS ; address of scratch + 8 movwf FSR0 movlw 8 movwf temp2 call get_byte movwi --FSR0 decfsz temp2,F goto $-3 return read_scratch call match_device movlw 0xbe ;Transmit out temperature call send_byte return ; Match_device does a skip ROM command if one device present ; Otherwise it does a match ROM on ID1 or ID2 depending on dev_select match_device call ds1820init btfsc dup_devices,0 goto $+4 movlw 0xcc ; just 1 device do skip ROM call send_byte return movlw 0x55 call send_byte movlw ID1_ADDRESS+8 ; address of ID1+8 btfsc dev_select,0 movlw ID2_ADDRESS+8 ;address of ID2+8 movwf FSR0 movlw 8 movwf temp2 moviw --FSR0 call send_byte decfsz temp2,F goto $-3 return check_power: call match_device movlw 0xb4 ;Check power call send_byte call get_1bit return alarmSearch: call ds1820init movlw 0xec ;Alarm Search ROM call send_byte movlw .64 movwf temp2 goto searchloop searchRom: call ds1820init movlw 0xf0 ;Search ROM call send_byte movlw .64 movwf temp2 searchloop call get_2bits call process_bits decfsz temp2,F goto searchloop return process_bits btfsc temp1,6 goto b1x btfsc temp1,7 goto b01 ; 00 got 00 some devices sent 0 some 1 , do 0 first incf dup_devices,F ; indicate duplicate btfss dev_select,0 goto b10 b01 bcf temp1,0 ; got 01 all devices sent 0 bcf STATUS,C goto bits_ack b1x btfsc temp1,7 goto b11 b10 bsf temp1,0 ; got 10 all devices sent 1 bsf STATUS,C goto bits_ack b11 .assert "\"no devices present\"" nop bits_ack btfsc dev_select,0 goto bits_ack2 bits_ack1 banksel ID1 rrf ID1,F rrf ID1+1,F rrf ID1+2,F rrf ID1+3,F rrf ID1+4,F rrf ID1+5,F rrf ID1+6,F rrf ID1+7,F call send_1bit return bits_ack2 banksel ID2 rrf ID2,F rrf ID2+1,F rrf ID2+2,F rrf ID2+3,F rrf ID2+4,F rrf ID2+5,F rrf ID2+6,F rrf ID2+7,F call send_1bit return ;****************** Initialize Registers and Variables ***************** ;************************************************************************ ProgInit banksel DS_PORT movlw 0xff movwf DS_PORT ; Set all bits high on Port banksel DS_TRIS clrf DS_TRIS banksel ANSELC clrf ANSELC return ds1820init: ; DS1820 init sequence banksel DS_PORT bsf DS_PORT,DS_PIN ; Pin high banksel DS_TRIS bcf DS_TRIS,DS_PIN ; Pin as output banksel DS_PORT bcf DS_PORT,DS_PIN ; Pin low call Delay500us banksel DS_TRIS bsf DS_TRIS,DS_PIN ; Pin as input (pullup to high) banksel DS_PORT call Delay70us movf DS_PORT,W .assert "(W & 1)==0,\"DS1820, no presents pulse\"" nop call Delay500us return ; send 1 bit from temp1 send_1bit movlw 1 goto send_bits ; send the byte in W send_byte movwf temp1 movlw 8 send_bits movwf bit_cnt banksel DS_PORT ; we want bit low, high is by pullup bcf DS_PORT,DS_PIN send_loop rrf temp1,F ; rotate lSB into carry btfss STATUS,C ; is bit 0 or 1 goto send_0 goto send_1 send_chk decfsz bit_cnt,F ; have we send all bits goto send_loop ; NO banksel DS_PORT return ; YES send_0 banksel DS_TRIS bcf DS_TRIS,DS_PIN call Delay70us bsf DS_TRIS,DS_PIN goto send_chk send_1 banksel DS_TRIS bcf DS_TRIS,DS_PIN call Delay10us bsf DS_TRIS,DS_PIN call Delay70us goto send_chk ; read 1 bit of data get_1bit movlw 1 goto get_bits ; read 2 bits of data get_2bits movlw 2 goto get_bits ; read a data byte and return it in W get_byte movlw 8 ; input bit counter get_bits movwf bit_cnt clrf temp1 banksel DS_PORT bcf DS_PORT,DS_PIN get_loop banksel DS_TRIS bcf DS_TRIS,DS_PIN ; init read timeslot by pulling line low nop ; delay for at least 1 usec nop nop nop nop bsf DS_TRIS,DS_PIN ; release line call Delay10us banksel DS_PORT bsf STATUS,C ; set carry incase of 1 btfss DS_PORT,DS_PIN ; read port data bcf STATUS,C ; its 0, so clear carry rrf temp1,f ; roll data into data word call Delay70us ; this could be 45us btfss DS_PORT,DS_PIN ; check port pin goto $-1 ; loop until high decfsz bit_cnt,F goto get_loop movf temp1,W return Delay750mS movlw .75 movwf d2 loop750ms call Delay10mS decfsz d2,F goto loop750ms return Delay10mS movlw 0x50 movwf d1l movlw 0x28 movwf d1h goto Delay_0 Delay500us movlw 0x02 movwf d1h movlw 0xfe movwf d1l goto Delay_0 Delay70us movlw 0x01 movwf d1h movlw 0x44 movwf d1l goto Delay_0 Delay10us movlw 0x01 movwf d1h movlw 0x08 movwf d1l goto Delay_0 Delay_0 decfsz d1l, f goto $+2 decfsz d1h, f goto Delay_0 ;2 cycles goto $+1 return end gpsim-0.27.0/extras/ds1820/module_manager.cc0000664000076400007640000000506112145277000015367 00000000000000/* Copyright (C) 1998,1999,2000 T. Scott Dattalo Copyright (C) 2013 Roy R. Rankin This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* gpsim_modules.cc gpsim supports modules, or thingies, that are not part of gpsim proper. This is to say, that the modules are not compiled and linked with the core gpsim software. Instead, they are compiled and linked separately and then dynamically loaded by gpsim. This approach provides a flexibility to the user to create customized objects for simulation purposes. The big benefit of course, is that the user doesn't have to get bogged down in to the nitty-gritty details of the way gpsim is designed. The templates provided here can serve as a relatively simple example of how one may go about creating customized modules. Please see the README.MODULES for more details on how modules are intended to be used. Here are a list of functions that a gpsim compliant module library should support: void mod_list(void) - Prints a list of the modules in a library Module_Types * get_mod_list(void) - Obtain pointer to the list of modules */ /* IN_MODULE should be defined for modules */ #define IN_MODULE #include #include #include #include #include "config.h" #include "ds1820.h" Module_Types available_modules[] = { { {"DS1820", "ds1820"}, DS1820_Modules::DS1820::construct}, { {"DS18S20", "ds18s20"}, DS1820_Modules::DS1820::construct}, { {"DS18B20", "ds18b20"}, DS1820_Modules::DS1820::constructB}, // No more modules { {NULL, NULL}, NULL} }; #ifdef __cplusplus extern "C" { #endif /* __cplusplus */ /******************************************************************************** * get_mod_list - Display all of the modules in this library. * * This is a required function for gpsim compliant libraries. */ Module_Types * get_mod_list(void) { return available_modules; } #ifdef __cplusplus } #endif /* __cplusplus */ gpsim-0.27.0/extras/ds1820/makefile.mingw0000664000076400007640000000372112201276457014732 00000000000000## Makefile for building the libgpsim_lcd with gcc for mingw. The build ## uses tools running on cygwin, however. ## Use: make -f makefile.mingw ifdef DEBUG OPTIMIZE = -O2 -g else OPTIMIZE = -O2 CLDFLAGS = -Wl,--strip-all endif ifndef GLIB_PATH GLIB_PATH = ../../../glib endif ifndef GTK_PATH GTK_PATH = ../../../gtk+ endif ifndef PANGO_PATH PANGO_PATH = ../../../pango endif ifndef ATK_PATH ATK_PATH = ../../../atk endif ifndef CAIRO_PATH CAIRO_PATH = ../../../cairo endif ifndef GPSIM_LIB_PATH GPSIM_LIB_PATH = ../../lib/gpsim endif ifndef GPSIM_INCLUDE_PATH GPSIM_INCLUDE_PATH = ../../include endif ifndef GPSIM_DEF_PATH GPSIM_DEF_PATH = ../../lib/gpsim endif CFLAGS = $(OPTIMIZE) $(INCLUDES) $(DEFINES) -Wall ## Cygwin / Mingw GCC 3.4.4 with -mno-cygwin support #CXX = c++ -mno-cygwin -mtune=pentium -mms-bitfields # Mingw GCC 4.7.3 CXX = c++ -mtune=pentium -mms-bitfields .cc.o: $(CXX) $(CFLAGS) -c $< -o $@ ################################################################ # Nothing much configurable below LIBS = $(GLIB_PATH)/lib/glib-2.0.lib $(GLIB_PATH)/lib/gobject-2.0.lib \ $(GTK_PATH)/lib/gdk-win32-2.0.lib $(GTK_PATH)/lib/gtk-win32-2.0.lib \ $(CAIRO_PATH)/lib/cairo.lib \ $(GPSIM_LIB_PATH)/libgpsim.a INCLUDES = -I ../.. -I $(GPSIM_INCLUDE_PATH) \ -I $(GLIB_PATH)/include/glib-2.0 -I $(GLIB_PATH)/lib/glib-2.0/include \ -I $(GTK_PATH)/include/gtk-2.0 -I $(GTK_PATH)/lib/gtk-2.0/include \ -I $(PANGO_PATH)/include/pango-1.0 -I $(ATK_PATH)/include/atk-1.0 \ -I $(CAIRO_PATH)/include/cairo DEFINES += -DHAVE_GUI all: \ libgpsim_ds1820.dll libgpsim_ds1820_OBJECTS = \ module_manager.o \ rom1w.o \ bit1w.o \ ds1820.o ################ The modules DLL libgpsim_ds1820.dll : $(libgpsim_ds1820_OBJECTS) $(CXX) $(CFLAGS) $(CLDFLAGS) -shared -o libgpsim_ds1820.dll $(GPSIM_DEF_PATH)/modules.def $(libgpsim_ds1820_OBJECTS) $(LIBS) clean : -rm -f *.o *.dll gpsim-0.27.0/extras/ds1820/bit1w.cc0000664000076400007640000001533212153555712013450 00000000000000/* Copyright (C) 2012 Eduard Timotei Budulea Copyright (C) 2013 Roy R. Rankin 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 3 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, see . */ #include "config.h" #include "bit1w.h" bool debug = false; LowLevel1W::LowLevel1W(const char *name, const char *desc): Module(name, desc), cicluReper(0), lastValue(true), lastTimeout(false), pin("pin", *this), state(&LowLevel1W::idle), ignoreCallback(false), bit_break(0) { if(name) { int nlen = strlen(name) + 10; char tempName[nlen]; snprintf(tempName, nlen, "%s.pin", name); pin.new_name(tempName); } create_pkg(1); assign_pin(1, &pin); pin.putState(false); pin.update_direction(IOPIN::DIR_INPUT, true); change(true); } void LowLevel1W::callback() { change(false); } void LowLevel1W::change(bool pinChange) { if (ignoreCallback) return; guint64 ciclu = get_cycles().get(); bool bitValue = false; switch(pin.getBitChar()) { case 'Z': case '1': case 'x': case 'W': bitValue = true; } bool isTimeout = ciclu >= cicluReper; if ((lastValue != bitValue || lastTimeout != isTimeout) && debug) { cout << name() <<" +++change state: line = " << bitValue << ", timeout = " << isTimeout << "; time = " << hex << ciclu << ", reper = " << cicluReper << endl; } lastValue = bitValue; lastTimeout = isTimeout; ignoreCallback = true; (this->*state)(bitValue, isTimeout); ignoreCallback = false; if (cicluReper > ciclu) { if (!pinChange && bit_break >= ciclu) { get_cycles().clear_break(bit_break); } if(cicluReper != bit_break) get_cycles().set_break(cicluReper, this); if(debug) printf("%s now %" PRINTF_GINT64_MODIFIER "x next break %" PRINTF_GINT64_MODIFIER "x last break %" PRINTF_GINT64_MODIFIER "x delta(usec) %.1f\n", name().c_str(), ciclu, cicluReper, bit_break, (cicluReper-ciclu)*4./20.); bit_break = cicluReper; } } void LowLevel1W::idle(bool input, bool isTimeout) { if(debug && !isTimeout) cout < <...>\n" " -o --output Output file (default=%s)\n" " -b --baud Baud rate (default=%u)\n" " -f --frequency Pic frequency (default=%u)\n" " -n --name Stimulus name (default=%s)\n" " -d --data Data to be sent and when\n" " -c --char Data restricted to printable characters\n" " -h, --help This help\n\n" "Examples:\n" " rs232-gen -b 115200 -d 100:0xFF,0x00 -d +100:0xFF,0x01\n" " rs232-gen -b 9600 -f 4000000 -c 100:Test\\ String\n\n", DEF_FILE, DEF_BAUD, DEF_FREQ, DEF_NAME); return 0; } /* usage() */ static void parse_defaults(void) { int i; for (i = 0; i < MAX_DATA; i++) data[i].size = -1; strcpy(out_file, DEF_FILE); strcpy(name, DEF_NAME); baud = DEF_BAUD; frequency = DEF_FREQ; return; } /* parse_defaults() */ static int parse_data(char *str, int type) { int64_t offset = 0; int val, i = 0, j = 0; char *ptr; while ((data[i].size != -1) && (i < MAX_DATA)) i++; if (i == MAX_DATA) { fprintf(stderr, "Error: Too many data segments (>%u)\n", MAX_DATA); return 1; } if ((ptr = strchr(str, ':')) == NULL) { fprintf(stderr, "Error: No ':' in provided data\n"); return 1; } /* Extract the cycle count */ ptr[0] = '\0'; if ((str[0] == '+') && (i > 0)) offset = data[i-1].cycle; data[i].cycle = offset + strtoll(str,0,10); /* Extract the actual data * * To make life easier data can be entered in two ways. * * 1) As binary hex data seperated by commas * e.g. -d 1000:0x01,0x02,0x03,0x04,0x05... * * 2) As printable characters strung together in a string * e.g. -c 1000:This-is-a-test-string */ if (type == DATA_FLAG) { do { ptr = ptr + 1; sscanf(ptr, "0x%X", &val); data[i].data[j] = val & 0xFF; j++; } while ((ptr = strchr(ptr, ',')) != NULL); data[i].size = j; } else { if (type == CHAR_FLAG) { ptr = ptr + 1; strcpy(data[i].data, ptr); data[i].size = strlen(data[i].data); } else { fprintf(stderr, "Error: Unknown data type %d\n", type); return 1; } } return 0; } /* parse_data() */ static int parse_args(int argc, char *argv[]) { int rc, c, longindex; opterr = 0; while ((c = getopt_long(argc, argv, OPT_STR, longopts, &longindex)) != -1) { switch (c) { case 'o': strcpy(out_file, optarg); break; case 'b': baud = atoi(optarg); break; case 'f': frequency = atoi(optarg); break; case 'n': strcpy(name, optarg); break; case 'd': if ((rc = parse_data(optarg, DATA_FLAG)) != 0) return rc; break; case 'c': if ((rc = parse_data(optarg, CHAR_FLAG)) != 0) return rc; break; case 'h': default: return !usage(); } } return 0; } /* parse_args() */ static int output_file(void) { int bit, mask, i = 0, j; int64_t val, pad; FILE *fp; if ((fp = fopen(out_file, "w")) == 0) { fprintf(stderr, "Error: [%d] %s\n", errno, strerror(errno)); return 1; } /* Determine the length of each bit. This is simply the chip * frequency divided by the baud rate and divided by the clock cycles * per instruction. */ pad = (frequency / (DEF_CPI * baud)); fprintf(fp, "# rs232 Stimulus generated by rs232-gen\n\n"); fprintf(fp, "stimulus asynchronous_stimulus\n"); fprintf(fp, "initial_state 1\n"); fprintf(fp, "start_cycle 0\n\n"); fprintf(fp, "{\n"); while ((data[i].size != -1) && (i < MAX_DATA)) { fprintf(fp, "# Chunk: %d\n", i); val = data[i].cycle; for (j = 0; j < data[i].size; j++) { fprintf(fp, "# Character: 0x%02X", data[i].data[j]); if (isprint(data[i].data[j])) fprintf(fp, " (%c)\n", data[i].data[j]); else fprintf(fp, "\n"); fprintf(fp, "%lld, 0,\n", val); val += pad; for (mask = 0x01; mask < 0xFF; mask = mask << 1) { bit = ((data[i].data[j] & (mask & 0xFF)) ? 1 : 0); fprintf(fp, "%lld, %d,\n", val, bit); val += pad; } fprintf(fp, "%lld, 1,\n\n", val); val += pad; } i++; } fprintf(fp, "# dummy ending\n"); fprintf(fp, "%lld, 0\n", val); fprintf(fp, "}\n\n"); fprintf(fp, "name %s\n", name); fprintf(fp, "end\n"); if (fclose(fp) != 0) { fprintf(stderr, "Error: [%d] %s\n", errno, strerror(errno)); return 1; } return 0; } /* output_file() */ int main(int argc, char *argv[]) { int rc, i; parse_defaults(); if ((rc = parse_args(argc, argv)) != 0) return rc; if (data[0].size == -1) { fprintf(stderr, "Error: No data provided\n"); return 1; } if ((rc = output_file()) != 0) return rc; return 0; } /* main() */ gpsim-0.27.0/extras/rs232-gen/Makefile0000664000076400007640000000013711523447526014254 00000000000000all: rs232-gen rs232-gen: rs232-gen.c gcc -o rs232-gen rs232-gen.c clean: rm -f rs232-gen gpsim-0.27.0/extras/rs232-gen/README0000644000076400007640000000100210416272317013454 00000000000000/* * Simple RS232 generator for gpsim. * - At most 32 discrete messages * - At most 256 bytes per message * * Brian Behlendorf */ Examples: rs232-gen -b 115200 -d 100:0xFF,0x00 -d +100:0xFF,0x01 rs232-gen -b 9600 -f 4000000 -c 100:Test\ String Example stc file: # example.stc load s example.cod frequency 4000000 # must match the freq. used by rs232-gen node uart_test load c uart_stim.txt # the output from rs232-gen attach uart_test rs232_stimulus portc7 # portb1 for 62x gpsim-0.27.0/extras/rs232-gen/example/0000775000076400007640000000000012210742356014317 500000000000000gpsim-0.27.0/extras/rs232-gen/example/Makefile0000664000076400007640000000035511523447526015711 00000000000000all: uart_stim.txt example.cod uart_stim.txt: ../rs232-gen -b 115200 -o uart_stim.txt -f 1843200 -c 3000:rs232-test example.cod: example.asm gpasm -i -w 1 example.asm clean: rm -f example.cod example.hex example.lst uart_stim.txt gpsim-0.27.0/extras/rs232-gen/example/README0000644000076400007640000000015110416272316015112 00000000000000 Run make. This will assemble the example and create the uart_stim.txt. Then run: gpsim -c example.stc gpsim-0.27.0/extras/rs232-gen/example/example.stc0000644000076400007640000000035110416272316016402 00000000000000# example.stc load s example.cod frequency 1843200 # must match the freq. used by rs232-gen node uart_test load c uart_stim.txt # the output from rs232-gen attach uart_test rs232_stimulus portc7 # portb1 for 62x gpsim-0.27.0/extras/rs232-gen/example/example.asm0000644000076400007640000000255710416272316016403 00000000000000 ;; The purpose of this program is to test gpsim's ability to simulate ;; USART in the 14bit core. list p=16f877 __config _wdt_off include "p16f877.inc" #define RX_BUF_SIZE 0x10 cblock 0x20 temp1 temp2 w_temp status_temp fsr_temp tx_ptr rx_ptr rx_buffer : RX_BUF_SIZE endc org 0 goto start org 4 ;; Interrupt ;; movwf w_temp swapf status,w movwf status_temp bcf status,rp0 btfsc intcon,peie btfss pir1,rcif goto int_done ;;; movf fsr,w movwf fsr_temp incf rx_ptr,w andlw 0x0f movwf rx_ptr addlw rx_buffer movwf fsr movf rcreg,w movwf indf movf fsr_temp,w movwf fsr int_done: swapf status_temp,w movwf status swapf w_temp,f swapf w_temp,w retfie ;; ---------------------------------------------------- ;; ;; start ;; start ;; USART Initialization ;; ;; Turn on the high baud rate (BRGH), disable the transmitter, ;; disable synchronous mode. ;; clrf status bsf status,rp0 movlw (1< #endif class I2C_EE; class PromAddress; class I2C_RTC; class SQW_PIN; namespace DS1307_Modules { class ds1307 : public Module, public TriggerObject { public: ds1307(const char *_name); ~ds1307(); static Module *construct_ds1307(const char *new_name); virtual void create_iopin_map(); virtual void setEnable(bool bNewState, unsigned int m_bit){}; virtual void callback(); void secWritten(unsigned int sec); void controlWritten(unsigned int cntl); enum control { RS0 = 1 << 0, RS1 = 1 << 1, SQWE = 1 << 4, OUT = 1 << 7 }; enum second { CH = 1 << 7 }; protected: void incrementRTC(); I2C_RTC *m_eeprom; SQW_PIN *m_sqw; unsigned int chip_select; // Write Protect and A0 - A2 state PromAddress *att_eeprom; guint64 next_clock_tick; // increment RTC here guint64 next_sqw_edge; // change sqw edge here guint64 sqw_interval; // cycles between edges bool out; // Output state }; } // end of namespace DS1307_Modules class I2C_RTC : public I2C_EE { public: I2C_RTC(Processor *pCpu, unsigned int _rom_size, unsigned int _write_page_size = 1, unsigned int _addr_bytes = 1, unsigned int _CSmask = 0, unsigned int _BSmask = 0, unsigned int _BSshift = 0 ); virtual ~I2C_RTC(){} protected: virtual bool processCommand(unsigned int cmd); virtual void start_write(); DS1307_Modules::ds1307 *pEE; }; #endif // __DS1307_H__ gpsim-0.27.0/extras/ds1307/Makefile.in0000664000076400007640000006106712210742104014151 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ # Makefile for the DS1307 module # VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = extras/ds1307 DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am \ $(top_srcdir)/depcomp ChangeLog ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(libdir)" LTLIBRARIES = $(lib_LTLIBRARIES) libgpsim_ds1307_la_LIBADD = am_libgpsim_ds1307_la_OBJECTS = module_manager.lo ds1307.lo libgpsim_ds1307_la_OBJECTS = $(am_libgpsim_ds1307_la_OBJECTS) AM_V_lt = $(am__v_lt_@AM_V@) am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@) am__v_lt_0 = --silent am__v_lt_1 = libgpsim_ds1307_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CXX \ $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CXXLD) \ $(AM_CXXFLAGS) $(CXXFLAGS) $(libgpsim_ds1307_la_LDFLAGS) \ $(LDFLAGS) -o $@ AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/depcomp am__depfiles_maybe = depfiles am__mv = mv -f CXXCOMPILE = $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) LTCXXCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) \ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ $(AM_CXXFLAGS) $(CXXFLAGS) AM_V_CXX = $(am__v_CXX_@AM_V@) am__v_CXX_ = $(am__v_CXX_@AM_DEFAULT_V@) am__v_CXX_0 = @echo " CXX " $@; am__v_CXX_1 = CXXLD = $(CXX) CXXLINK = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CXXLD) $(AM_CXXFLAGS) \ $(CXXFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@ AM_V_CXXLD = $(am__v_CXXLD_@AM_V@) am__v_CXXLD_ = $(am__v_CXXLD_@AM_DEFAULT_V@) am__v_CXXLD_0 = @echo " CXXLD " $@; am__v_CXXLD_1 = SOURCES = $(libgpsim_ds1307_la_SOURCES) DIST_SOURCES = $(libgpsim_ds1307_la_SOURCES) RECURSIVE_TARGETS = all-recursive check-recursive cscopelist-recursive \ ctags-recursive dvi-recursive html-recursive info-recursive \ install-data-recursive install-dvi-recursive \ install-exec-recursive install-html-recursive \ install-info-recursive install-pdf-recursive \ install-ps-recursive install-recursive installcheck-recursive \ installdirs-recursive pdf-recursive ps-recursive \ tags-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive am__recursive_targets = \ $(RECURSIVE_TARGETS) \ $(RECURSIVE_CLEAN_TARGETS) \ $(am__extra_recursive_targets) AM_RECURSIVE_TARGETS = $(am__recursive_targets:-recursive=) TAGS CTAGS \ distdir am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) # Read a list of newline-separated strings from the standard input, # and print each of them once, without duplicates. Input order is # *not* preserved. am__uniquify_input = $(AWK) '\ BEGIN { nonempty = 0; } \ { items[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in items) print i; }; } \ ' # Make sure the list of sources is unique. This is necessary because, # e.g., the same source file might be shared among _SOURCES variables # for different programs/libraries. am__define_uniq_tagged_files = \ list='$(am__tagged_files)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | $(am__uniquify_input)` ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ AM_CPPFLAGS = @X_CFLAGS@ lib_LTLIBRARIES = libgpsim_ds1307.la libgpsim_ds1307_la_SOURCES = \ module_manager.cc ds1307.cc libgpsim_ds1307_la_LDFLAGS = @X_LDFLAGS@ EXTRA_DIST = ds1307.h ChangeLog makefile.mingw SUBDIRS = examples all: all-recursive .SUFFIXES: .SUFFIXES: .cc .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu extras/ds1307/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu extras/ds1307/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-libLTLIBRARIES: $(lib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \ } uninstall-libLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \ done clean-libLTLIBRARIES: -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) @list='$(lib_LTLIBRARIES)'; \ locs=`for p in $$list; do echo $$p; done | \ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ sort -u`; \ test -z "$$locs" || { \ echo rm -f $${locs}; \ rm -f $${locs}; \ } libgpsim_ds1307.la: $(libgpsim_ds1307_la_OBJECTS) $(libgpsim_ds1307_la_DEPENDENCIES) $(EXTRA_libgpsim_ds1307_la_DEPENDENCIES) $(AM_V_CXXLD)$(libgpsim_ds1307_la_LINK) -rpath $(libdir) $(libgpsim_ds1307_la_OBJECTS) $(libgpsim_ds1307_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/ds1307.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/module_manager.Plo@am__quote@ .cc.o: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(CXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(CXXCOMPILE) -c -o $@ $< .cc.obj: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(CXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(CXXCOMPILE) -c -o $@ `$(CYGPATH_W) '$<'` .cc.lo: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(LTCXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(LTCXXCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run 'make' without going through this Makefile. # To change the values of 'make' variables: instead of editing Makefiles, # (1) if the variable is set in 'config.status', edit 'config.status' # (which will cause the Makefiles to be regenerated when you run 'make'); # (2) otherwise, pass the desired values on the 'make' command line. $(am__recursive_targets): @fail=; \ if $(am__make_keepgoing); then \ failcom='fail=yes'; \ else \ failcom='exit 1'; \ fi; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" ID: $(am__tagged_files) $(am__define_uniq_tagged_files); mkid -fID $$unique tags: tags-recursive TAGS: tags tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ $(am__define_uniq_tagged_files); \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: ctags-recursive CTAGS: ctags ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) $(am__define_uniq_tagged_files); \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" cscopelist: cscopelist-recursive cscopelist-am: $(am__tagged_files) list='$(am__tagged_files)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile $(LTLIBRARIES) installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(libdir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-recursive -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-libLTLIBRARIES install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: uninstall-libLTLIBRARIES .MAKE: $(am__recursive_targets) install-am install-strip .PHONY: $(am__recursive_targets) CTAGS GTAGS TAGS all all-am check \ check-am clean clean-generic clean-libLTLIBRARIES \ clean-libtool cscopelist-am ctags ctags-am distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am \ install-libLTLIBRARIES install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-compile \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags tags-am uninstall uninstall-am uninstall-libLTLIBRARIES # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/extras/ds1307/Makefile.am0000664000076400007640000000044712177043162014145 00000000000000# Makefile for the DS1307 module # AM_CPPFLAGS = @X_CFLAGS@ lib_LTLIBRARIES = libgpsim_ds1307.la libgpsim_ds1307_la_SOURCES = \ module_manager.cc ds1307.cc libgpsim_ds1307_la_LDFLAGS = @X_LDFLAGS@ EXTRA_DIST = ds1307.h ChangeLog makefile.mingw SUBDIRS = examples CFLAGS = @CFLAGS@ gpsim-0.27.0/extras/ds1307/ChangeLog0000644000076400007640000000012311374212640013645 000000000000002010-05-17 Roy Rankin - Create DS1307 Realtime Clock module gpsim-0.27.0/extras/ds1307/examples/0000775000076400007640000000000012210742357014002 500000000000000gpsim-0.27.0/extras/ds1307/examples/ds1307.asm0000644000076400007640000003163211374170562015353 00000000000000; ; Test reading, writing, dump and load for external i2c EEPROM module ; ; Copyright (c) 2007 Roy Rankin ; MACROS and some code included the following ;************************************************************************ ;* Microchip Technology Inc. 2006 ;* 02/15/06 ;* Designed to run at 20MHz ;************************************************************************ ; gpsim command .command macro x .direct "C", x endm list p=16F876A #include p16f876a.inc include __CONFIG _CP_OFF & _DEBUG_OFF & _WRT_OFF & _CPD_OFF & _LVP_OFF & _PWRTE_ON & _BODEN_ON & _WDT_OFF & _HS_OSC errorlevel -302 variables UDATA 0x30 time RES 16 temp1 RES 1 temp2 RES 1 status_temp RES 1 w_temp RES 1 ;---------------------------------------------------------------------- ; ********************* RESET VECTOR LOCATION ******************** ;---------------------------------------------------------------------- RESET_VECTOR CODE 0x000 ; processor reset vector movlw high start ; load upper byte of 'start' label movwf PCLATH ; initialize PCLATH goto start ; go to beginning of program ;------------------------------------------------------------------------ ; ; Interrupt Vector ; ;------------------------------------------------------------------------ INT_VECTOR CODE 0x004 ; interrupt vector location movwf w_temp swapf STATUS,W movwf status_temp btfsc INTCON,RBIF goto rb_int .assert "\"***FAILED p16f676 unexpected interrupt\"" nop rb_int nop bcf INTCON,RBIF exit_int: swapf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ; MAIN CODE start .sim "module lib libgpsim_modules" .sim "module lib libgpsim_ds1307" .sim "module load ds1307 ee" .sim "module load pu pu1" .sim "module load pu pu2" .sim "module load pu pu3" .sim "node n1" .sim "attach n1 portc4 pu1.pin portb4 ee.SDA" ; SDA .sim "node n2" .sim "attach n2 portc3 pu2.pin portb1 ee.SCL" ; SCL .sim "node n3" .sim "attach n3 pu3.pin portb0 ee.SQW" .sim "pu1.xpos = 240." .sim "pu1.ypos = 336." .sim "pu2.xpos = 216." .sim "pu2.ypos = 24." .sim "ee.xpos = 48." .sim "ee.ypos = 180." .sim "p16f876a.xpos = 240." .sim "p16f876a.ypos = 84." call ProgInit ; Get everything running step-by-step BANKSEL PORTA movlw 0x2F movwf time+2 movwf time+5 movlw 0x20 movwf time+8 movlw 0x3A movwf time+0xb movwf time+0xe nop loop: call is_ready call read_ds1307 sleep nop goto loop call I2CSendResult call write_eeprom call is_ready call read_ds1307 goto $ .command "dump e ee dump.hex" nop .assert "\"*** PASSED p16f876a I2C test\"" goto $ ;****************************** SUBROUTINES **************************** ;************************************************************************ START_I2C MACRO banksel SSPCON2 ; Generate I2C start bsf SSPCON2,SEN btfsc SSPCON2,SEN goto $-1 banksel PORTA ENDM RSTART_I2C MACRO banksel SSPCON2 ; Generate I2C repeat start bsf SSPCON2,RSEN btfsc SSPCON2,RSEN goto $-1 banksel PORTA ENDM STOP_I2C MACRO banksel SSPCON2 ; Generate I2C stop bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 banksel PORTA ENDM IDLE_WAIT_I2C MACRO banksel SSPCON2 movlw 0x1f andwf SSPCON2,W BNZ $-3 btfsc SSPSTAT,R_W goto $-1 banksel PORTA ENDM ;****************** Initialize Registers and Variables ***************** ;************************************************************************ ProgInit banksel PORTA clrf PORTA ; Set all bits to zero on Port A banksel TRISA clrf TRISA banksel SSPADD movlw 0x0C ; Set I2C baud rate to 385 kHz movwf SSPADD bcf OPTION_REG,INTEDG banksel SSPCON movlw 0x08 ; Set for I2C master mode movwf SSPCON movlw 0x28 ; Enable I2C movwf SSPCON bsf INTCON,INTE return ;************************************************************************ I2CSendResult banksel SSPCON2 ; Generate I2C start, bus collision bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 bsf SSPCON2,SEN bcf TRISB,1 IDLE_WAIT_I2C .assert "(pir2 & 0x08) == 0x08, \"FAILED BCLIF for start\"" nop banksel TRISB bsf TRISB,1 banksel PIR2 bcf PIR2,BCLIF banksel SSPCON2 ; Generate I2C start bsf SSPCON2,SEN IDLE_WAIT_I2C .assert "(portc & 0x18) == 0, \"FAILED Start SCL, SDL low\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED Start SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED Start BCLIF clear\"" nop .assert "(sspstat & 0x3f) == 0x08, \"FAILED Start S bit set\"" nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 ; Generate I2C restart bsf SSPCON2,RSEN btfsc SSPCON2,RSEN goto $-1 .assert "(portc & 0x18) == 0, \"FAILED RStart SCL, SDL low\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED RStart SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED RStart BCLIF clear\"" nop .assert "(sspstat & 0x3f) == 0x08, \"FAILED RStart S bit set\"" nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,ACKDT bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 .assert "(portc & 0x18) == 0x10, \"FAILED ACKEN SCL low, SDL high\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED ACKEN SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED ACKEN BCLIF clear\"" nop .assert "(sspstat & 0x3f) == 0x08, \"FAILED ACKEN S bit set\"" nop bcf SSPCON2,ACKDT bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 ; Generate I2C restart bsf SSPCON2,RSEN btfsc SSPCON2,RSEN goto $-1 .assert "(portc & 0x18) == 0, \"FAILED RStart SCL, SDL low\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED RStart SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED RStart BCLIF clear\"" nop .assert "(sspstat & 0x3f) == 0x08, \"FAILED RStart S bit set\"" nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 ; Generate I2C stop bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 .assert "(portc & 0x18) == 0x18, \"FAILED Stop SCL, SDL high\"" nop .assert "(pir1 & 0x08) == 0x08, \"FAILED Stop SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED Stop BCLIF clear\"" nop .assert "(sspstat & 0x3f) == 0x10, \"FAILED Stop P bit set\"" nop return ; ; repeatedly send command to eeprom until an ACK ; is received back ; ; The call of delay is not required for operation of the code, ; but it speeds up the simulation with the GUI running. -- RRR ; is_ready banksel SSPCON movlw 0x04 movwf temp2 clrf temp1 call delay banksel SSPCON2 ; Generate I2C start bsf SSPCON2,SEN btfsc SSPCON2,SEN goto $-1 movlw 0xd0 ; write command to eeprom call I2C_send_w call I2C_stop banksel SSPCON2 ; Generate I2C start btfsc SSPCON2,ACKSTAT goto is_ready banksel PIR2 bcf PIR2,BCLIF return write_eeprom_address banksel SSPCON2 ; Generate I2C start bsf SSPCON2,SEN btfsc SSPCON2,SEN goto $-1 movlw 0xd0 ; write command to eeprom call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write command to eeprom ACK\"" nop .assert "(sspstat & 0x01) == 0x00, \"FAILED write to eeprom BF clear\"" nop banksel PIR1 bcf PIR1,SSPIF movlw 0x00 ; write eeprom address call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write address to eeprom ACK\"" nop return write_eeprom call write_eeprom_address banksel PIR1 bcf PIR1,SSPIF movlw 0x59 ; write seconds 12 call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write data1 to eeprom ACK\"" nop banksel PIR1 bcf PIR1,SSPIF movlw 0x59 ; write minutes 10 call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write data2 to eeprom ACK\"" nop banksel PIR1 bcf PIR1,SSPIF movlw 0x59 ; write hours 19 24 hour call I2C_send_w nop banksel PIR1 bcf PIR1,SSPIF movlw 0x01 ; write Day of week (1-7) call I2C_send_w nop banksel PIR1 bcf PIR1,SSPIF movlw 0x03 ; write Day of month call I2C_send_w nop banksel PIR1 bcf PIR1,SSPIF movlw 0x05 ; write month call I2C_send_w nop banksel PIR1 bcf PIR1,SSPIF movlw 0x10 ; write year call I2C_send_w nop banksel PIR1 bcf PIR1,SSPIF movlw 0x10 ; control out=1 SQWE off call I2C_send_w nop call I2C_stop return clr_eeprom call write_eeprom_address banksel PIR1 bcf PIR1,SSPIF movlw 0x00 ; write data1 call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write data1 to eeprom ACK\"" nop banksel PIR1 bcf PIR1,SSPIF movlw 0x00 ; write data2 call I2C_send_w .assert "(sspcon2 & 0x40) == 0x00, \"FAILED write data2 to eeprom ACK\"" nop nop call I2C_stop return read_ds1307 call write_eeprom_address banksel SSPCON2 ; Generate I2C repeated start bsf SSPCON2,RSEN btfsc SSPCON2,RSEN goto $-1 movlw 0xd1 ; Send address/read to eeprom banksel SSPBUF movwf SSPBUF banksel SSPCON2 ; wait for idle (ACKEN,RCEN,PEN,RSEN,SEN) == 0 movlw 0x1f andwf SSPCON2,W BNZ $-3 btfsc SSPSTAT,R_W ; also R_W == 0 goto $-1 .assert "(sspstat & 0x01) == 0x00, \"FAILED address/read to eeprom BF clear\"" nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,RCEN ; read seconds from RTC btfsc SSPCON2,RCEN goto $-1 .assert "(pir1 & 0x08) == 0x08, \"FAILED RCEN SSPIF set\"" nop .assert "(pir2 & 0x08) == 0x00, \"FAILED RCEN BCLIF clear\"" nop .assert "(sspstat & 0x01) == 0x01, \"FAILED RCEN BF set\"" nop banksel SSPBUF movf SSPBUF,W banksel PORTA movwf time+0x10 movwf time+0xf movlw 0x0f andwf time+0x10,f movlw 0x30 addwf time+0x10,f movlw 0x70 andwf time+0xf,f RRF time+0xf,f RRF time+0xf,f RRF time+0xf,f RRF time+0xf,f movlw 0x30 addwf time+0xf,f nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bcf SSPCON2,ACKDT ; send ACK bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,RCEN ; read minutes from RTC btfsc SSPCON2,RCEN goto $-1 banksel SSPBUF movf SSPBUF,W banksel PORTA movwf time+0xd movwf time+0xc movlw 0x0f andwf time+0xd,f movlw 0x30 addwf time+0xd,f movlw 0xf0 andwf time+0xc,f RRF time+0xc,f RRF time+0xc,f RRF time+0xc,f RRF time+0xc,f movlw 0x30 addwf time+0xc,f nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bcf SSPCON2,ACKDT ; send ACK bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,RCEN ; read Hours from RTC btfsc SSPCON2,RCEN goto $-1 banksel SSPBUF movf SSPBUF,W banksel PORTA movwf time+0xa movwf time+0x9 movlw 0x0f andwf time+0xa,f movlw 0x30 addwf time+0xa,f movlw 0x30 andwf time+0x9,f RRF time+0x9,f RRF time+0x9,f RRF time+0x9,f RRF time+0x9,f movlw 0x30 addwf time+0x9,f nop banksel SSPCON2 bcf SSPCON2,ACKDT ; send ACK bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,RCEN ; read day of week btfsc SSPCON2,RCEN goto $-1 banksel SSPBUF movf SSPBUF,W banksel SSPCON2 bcf SSPCON2,ACKDT ; send ACK bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,RCEN ; read Day of month btfsc SSPCON2,RCEN goto $-1 banksel SSPBUF movf SSPBUF,W banksel PORTA movwf time+0x1 movwf time+0x0 movlw 0x0f andwf time+0x1,f movlw 0x30 addwf time+0x1,f movlw 0x30 andwf time+0x0,f RRF time+0x0,f RRF time+0x0,f RRF time+0x0,f RRF time+0x0,f movlw 0x30 addwf time+0x0,f nop banksel SSPCON2 bcf SSPCON2,ACKDT ; send ACK bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,RCEN ; read month btfsc SSPCON2,RCEN goto $-1 banksel SSPBUF movf SSPBUF,W banksel PORTA movwf time+0x4 movwf time+0x3 movlw 0x0f andwf time+0x4,f movlw 0x30 addwf time+0x4,f movlw 0x30 andwf time+0x3,f RRF time+0x3,f RRF time+0x3,f RRF time+0x3,f RRF time+0x3,f movlw 0x30 addwf time+0x3,f nop banksel SSPCON2 bcf SSPCON2,ACKDT ; send ACK bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,RCEN ; read Year btfsc SSPCON2,RCEN goto $-1 banksel SSPBUF movf SSPBUF,W banksel PORTA movwf time+0x7 movwf time+0x6 movlw 0x0f andwf time+0x7,f movlw 0x30 addwf time+0x7,f movlw 0xf0 andwf time+0x6,f RRF time+0x6,f RRF time+0x6,f RRF time+0x6,f RRF time+0x6,f movlw 0x30 addwf time+0x6,f nop banksel PIR1 bcf PIR1,SSPIF banksel SSPCON2 bsf SSPCON2,ACKDT ; send NACK bsf SSPCON2,ACKEN btfsc SSPCON2,ACKEN goto $-1 return I2C_stop banksel SSPCON2 ; Generate I2C stop bsf SSPCON2,PEN btfsc SSPCON2,PEN goto $-1 return delay decfsz temp1,f goto $+2 decfsz temp2,f goto delay return ;********************** Output byte in W via I2C bus ******************** ;************************************************************************ I2C_send_w banksel SSPBUF ; Second byte of data (middle) movwf SSPBUF banksel SSPSTAT btfsc SSPSTAT,R_W goto $-1 return end gpsim-0.27.0/extras/ds1307/examples/Makefile.in0000664000076400007640000003103612210742104015760 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = extras/ds1307/examples DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am README ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ EXTRA_DIST = ds1307.asm i2c_low.inc 16f876a.lkr README MOSTLYCLEANFILES = *.o *.hex *.cod *.lst *.map *~ CLEANFILES = *.o *.hex *.cod *.lst *.map *~ DISTCLEANFILES = *.o *.hex *.cod *.lst *.map *~ MAINTAINERCLEANFILES = *.o *.hex *.cod *.lst *.map *~ all: all-am .SUFFIXES: $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu extras/ds1307/examples/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu extras/ds1307/examples/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags TAGS: ctags CTAGS: cscope cscopelist: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: -test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES) clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES) clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ cscopelist-am ctags-am distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags-am uninstall uninstall-am ds1307.cod : ds1307.o gplink --map -s 16f876a.lkr -o $@ $< ds1307.o : ds1307.asm gpasm -c $< # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/extras/ds1307/examples/i2c_low.inc0000644000076400007640000003227211374162320015753 00000000000000;**************************************************************************** ; ; Low Level I2C Routines ; ; Single Master Transmitter & Single Master Receiver Routines ; These routines can very easily be converted to Multi-Master System ; when PIC16C6X with on chip I2C Slave Hardware, Start & Stop Bit ; detection is available. ; ; The generic high level routines are given in I2C_HIGH.ASM ; ; ; Program: I2C_LOW.ASM ; Revision Date: ; 1-16-97 Compatibility with MPASMWIN 1.40 ; ;*************************************************************************** ;************************************************************************** ; I2C Bus Initialization ; ;************************************************************************** InitI2CBus_Master: bcf STATUS,RP0 movlw ~(1< #include #include #include #include "config.h" #include "ds1307.h" Module_Types available_modules[] = { { {"DS1307", "ds1307"}, DS1307_Modules::ds1307::construct_ds1307}, // No more modules { {NULL, NULL}, NULL} }; #ifdef __cplusplus extern "C" { #endif /* __cplusplus */ /******************************************************************************** * get_mod_list - Display all of the modules in this library. * * This is a required function for gpsim compliant libraries. */ Module_Types * get_mod_list(void) { return available_modules; } #ifdef __cplusplus } #endif /* __cplusplus */ gpsim-0.27.0/extras/ds1307/makefile.mingw0000664000076400007640000000415412202777764014743 00000000000000## Makefile for building the libgpsim_lcd with gcc for mingw. The build ## uses tools running on cygwin, however. ## Use: make -f makefile.mingw ifdef DEBUG OPTIMIZE = -O2 -g else OPTIMIZE = -O2 CLDFLAGS = -Wl,--strip-all endif ifndef GLIB_PATH GLIB_PATH = ../../../glib endif ifndef GTK_PATH GTK_PATH = ../../../gtk+ endif ifndef PANGO_PATH PANGO_PATH = ../../../pango endif ifndef ATK_PATH ATK_PATH = ../../../atk endif ifndef CAIRO_PATH CAIRO_PATH = ../../../cairo endif ifndef GDK_PIXBUF_PATH GDK_PIXBUF_PATH = ../../../gdk-pixbuf endif ifndef GPSIM_LIB_PATH GPSIM_LIB_PATH = ../../lib/gpsim endif ifndef GPSIM_INCLUDE_PATH GPSIM_INCLUDE_PATH = ../../include endif ifndef GPSIM_DEF_PATH GPSIM_DEF_PATH = ../../lib/gpsim endif CFLAGS = $(OPTIMIZE) $(INCLUDES) $(DEFINES) -Wall ## Cygwin / Mingw GCC 3.4.4 with -mno-cygwin support #CXX = c++ -mno-cygwin -mtune=pentium -mms-bitfields # Mingw GCC 4.7.3 CXX = i686-pc-mingw32-g++ -mtune=pentium -mms-bitfields .cc.o: $(CXX) $(CFLAGS) -c $< -o $@ ################################################################ # Nothing much configurable below LIBS = $(GLIB_PATH)/lib/glib-2.0.lib $(GLIB_PATH)/lib/gobject-2.0.lib \ $(GTK_PATH)/lib/gdk-win32-2.0.lib $(GTK_PATH)/lib/gtk-win32-2.0.lib \ $(CAIRO_PATH)/lib/cairo.lib \ $(GDK_PIXBUF_PATH)/lib/gdk_pixbuf-2.0.lib \ $(GPSIM_LIB_PATH)/libgpsim.a INCLUDES = -I ../.. -I $(GPSIM_INCLUDE_PATH) \ -I $(GLIB_PATH)/include/glib-2.0 -I $(GLIB_PATH)/lib/glib-2.0/include \ -I $(GTK_PATH)/include/gtk-2.0 -I $(GTK_PATH)/lib/gtk-2.0/include \ -I $(PANGO_PATH)/include/pango-1.0 -I $(ATK_PATH)/include/atk-1.0 \ -I $(CAIRO_PATH)/include/cairo \ -I $(GDK_PIXBUF_PATH)/include/gdk-pixbuf-2.0 DEFINES += -DHAVE_GUI all: \ libgpsim_ds1307.dll libgpsim_ds1307_OBJECTS = \ module_manager.o \ ds1307.o ################ The modules DLL libgpsim_ds1307.dll : $(libgpsim_ds1307_OBJECTS) $(CXX) $(CFLAGS) $(CLDFLAGS) -shared -o libgpsim_ds1307.dll $(GPSIM_DEF_PATH)/modules.def $(libgpsim_ds1307_OBJECTS) $(LIBS) clean : -rm -f *.o *.dll gpsim-0.27.0/extras/ds1307/ds1307.cc0000644000076400007640000002631711374206460013343 00000000000000/* Copyright (C) 2010 Roy R Rankin Copyright (C) 2006 T. Scott Dattalo This file is part of gpsim. gpsim 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. gpsim 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 gpsim; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("%s:%d ",__FILE__,__LINE__); printf arg; } #else #define Dprintf(arg) {} #endif #include "config.h" // get the definition for HAVE_GUI #ifdef HAVE_GUI #include #endif #include "src/i2c-ee.h" #include "ds1307.h" #include "src/gpsim_time.h" #include "src/stimuli.h" #include "src/ioports.h" #include "src/symbol.h" #include "src/value.h" #include "src/packages.h" #include "src/gpsim_interface.h" class Processor; I2C_RTC::I2C_RTC(Processor *pCpu, unsigned int _rom_size, unsigned int _write_page_size, unsigned int _addr_bytes, unsigned int _CSmask, unsigned int _BSmask, unsigned int _BSshift) : I2C_EE(pCpu, _rom_size, _write_page_size, _addr_bytes, _CSmask, _BSmask, _BSshift) { pEE = (DS1307_Modules::ds1307 *)pCpu; } bool I2C_RTC::processCommand(unsigned int command) { if ((command & 0xfe) == 0xd0 ) { m_command = command; return true; } return false; } void I2C_RTC::start_write() { unsigned int addr = xfr_addr + write_page_off; if (addr == 0) { Dprintf(("Calling secWritten data=%x\n", xfr_data)); pEE->secWritten(xfr_data); } else if (addr == 7) { Dprintf(("Calling ControlWritten data=%x\n", xfr_data)); pEE->controlWritten(xfr_data); } rom[addr]->put ( xfr_data ); } class SQW_PIN : public IO_open_collector { public: SQW_PIN (const char *_name) : IO_open_collector(_name) { bDrivingState = true; bDrivenState = true; // Make the pin an output. update_direction(IO_bi_directional::DIR_OUTPUT,true); }; void setDrivingState(bool new_state) { bDrivingState = new_state; bDrivenState = new_state; if(snode) snode->update(); } }; namespace DS1307_Modules { ds1307::ds1307(const char *_name) : Module(_name, "BS1307") { chip_select = 0; next_sqw_edge = 0; next_clock_tick = 0; sqw_interval = 0; out = false; } ds1307::~ds1307() { delete att_eeprom; delete m_eeprom; delete m_sqw; } Module *ds1307::construct_ds1307(const char *_new_name) { string att_name = _new_name; ds1307 *pEE = new ds1307(_new_name); // I2C_EE size in bytes prom size in bits (pEE->m_eeprom) = new I2C_RTC((Processor *)pEE,64, 16, 1, 0xe, 0, 0); pEE->create_iopin_map(); att_name += ".ds1307"; pEE->att_eeprom = new PromAddress(pEE->m_eeprom, "eeprom", "Address I2C_RTC"); pEE->addSymbol(pEE->att_eeprom); #ifdef LOCAL_TIME struct tm *tm; time_t t = time(NULL); int val; tm = localtime(&t); val = tm->tm_sec; (pEE->m_eeprom->get_register(0))->put((val % 10) + ((val / 10)<<4)); val = tm->tm_min; (pEE->m_eeprom->get_register(1))->put((val % 10) + ((val / 10)<<4)); val = tm->tm_hour; (pEE->m_eeprom->get_register(2))->put((val % 10) + ((val / 10)<<4) + 0x40); (pEE->m_eeprom->get_register(3))->put(tm->tm_wday+1); val = tm->tm_mday; (pEE->m_eeprom->get_register(4))->put((val % 10) + ((val / 10)<<4)); val = tm->tm_mon + 1; (pEE->m_eeprom->get_register(5))->put((val % 10) + ((val / 10)<<4)); val = tm->tm_year % 100; (pEE->m_eeprom->get_register(6))->put((val % 10) + ((val / 10)<<4)); (pEE->m_eeprom->get_register(7))->put(0x10); pEE->controlWritten(0x10); #else // factory defaults (pEE->m_eeprom->get_register(0))->put(0x80); (pEE->m_eeprom->get_register(1))->put(0x00); (pEE->m_eeprom->get_register(2))->put(0x00); (pEE->m_eeprom->get_register(3))->put(0x01); (pEE->m_eeprom->get_register(4))->put(0x01); (pEE->m_eeprom->get_register(5))->put(0x01); (pEE->m_eeprom->get_register(6))->put(0x00); (pEE->m_eeprom->get_register(7))->put(0x00); #endif return(pEE); } void ds1307::create_iopin_map() { string pinName; pinName = name() + ".SQW"; m_sqw = new SQW_PIN(pinName.c_str()); pinName = name() + ".SDA"; ((IOPIN *)(m_eeprom->sda))->new_name(pinName.c_str()); pinName = name() + ".SCL"; ((IOPIN *)(m_eeprom->scl))->new_name(pinName.c_str()); package = new Package(8); package->assign_pin( 1, 0); package->assign_pin( 2, 0); package->assign_pin( 3, 0); package->assign_pin( 5, (IOPIN *)(m_eeprom->sda)); package->assign_pin( 6, (IOPIN *)(m_eeprom->scl)); package->assign_pin( 7, m_sqw); m_sqw->update_direction(1,true); } void ds1307::controlWritten(unsigned int cntl) { unsigned int new_sqw_interval = 0; if ( cntl & SQWE ) { switch(cntl & (RS1|RS0)) { case 0: new_sqw_interval = 0.5 / (get_cycles().seconds_per_cycle()); break; case 1: new_sqw_interval = 0.5 / (4096. * get_cycles().seconds_per_cycle()); break; case 2: new_sqw_interval = 0.5 / (8192. * get_cycles().seconds_per_cycle()); break; case 3: new_sqw_interval = 0.5 / (32768. * get_cycles().seconds_per_cycle()); break; } if (!new_sqw_interval) { fprintf(stderr, "DS1307 SQW faster than can be simulated\n"); new_sqw_interval = 1; } int sec = (m_eeprom->get_register(0))->get(); if (!(sec & CH)) { if (next_sqw_edge ) { if (new_sqw_interval != sqw_interval) { get_cycles().clear_break(next_sqw_edge); next_sqw_edge = new_sqw_interval - sqw_interval; get_cycles().set_break(next_sqw_edge, this); } } else { out = false; m_sqw->setDrivingState(out); next_sqw_edge = get_cycles().get() + new_sqw_interval; get_cycles().set_break(next_sqw_edge, this); } if (!next_clock_tick) { next_clock_tick = get_cycles().get() + get_cycles().instruction_cps(); get_cycles().set_break(next_clock_tick, this); } } sqw_interval = new_sqw_interval; } else { sqw_interval = 0; if (next_sqw_edge) // stop the SQW output { get_cycles().clear_break(next_sqw_edge); next_sqw_edge = 0; } m_sqw->setDrivingState((cntl & OUT) == OUT); } } void ds1307::secWritten(unsigned int sec) { if (sec & CH) // Turn off clock functions { Dprintf(("DS1307 Turn off clock\n")); if (next_sqw_edge) // stop the SQW output { get_cycles().clear_break(next_sqw_edge); next_sqw_edge = 0; } if (next_clock_tick) // stop the SQW output { get_cycles().clear_break(next_clock_tick); next_clock_tick = 0; } } else // Clock functions on { Dprintf(("Clock functions on\n")); if (next_clock_tick) // resync ticks get_cycles().clear_break(next_clock_tick); next_clock_tick = get_cycles().get() + get_cycles().instruction_cps(); get_cycles().set_break(next_clock_tick, this); if (next_sqw_edge) get_cycles().clear_break(next_sqw_edge); if (sqw_interval) { next_sqw_edge = get_cycles().get() + sqw_interval; get_cycles().set_break(next_sqw_edge, this); } } } void ds1307::incrementRTC() { int i; int value; bool is12h; unsigned char dom; unsigned char month; unsigned int year; unsigned char dim[12] = { 31, 28, 31, 30,31, 30, 31, 31, 30, 31, 30, 31}; value = (m_eeprom->get_register(0))->get(); if (value & 0x80) // return if clock halt set return; i = (value >> 4) * 10 + (value & 0xf) + 1; if ( i < 60 ) { value = i % 10; value = (i >= 10) ? value | ((i / 10) << 4) : value; (m_eeprom->get_register(0))->put(value); return; } (m_eeprom->get_register(0))->put(0); value = (m_eeprom->get_register(1))->get(); // Get minutes i = (value >> 4) * 10 + (value & 0xf) + 1; if ( i < 60 ) { value = i % 10; value = (i >= 10) ? value | ((i / 10) << 4) : value; (m_eeprom->get_register(1))->put(value); return; } (m_eeprom->get_register(1))->put(0); value = (m_eeprom->get_register(2))->get(); // Get Hours is12h = ( value & 0x40) == 0x40; if (is12h) { bool isPM; isPM = ( value & 0x20) == 0x20; i = ((value & 1) >> 4) * 10 + (value & 0xf) + 1; if ( i == 12 && ! isPM) { isPM = true; i = 0; } if (i < 12) { value = i % 10; value = (i >= 10) ? value | ((i / 10) << 4) : value; value |= isPM ? 0x60 : 0x40; (m_eeprom->get_register(2))->put(value); return; } value = 0x40; (m_eeprom->get_register(2))->put(value); } else { i = (value >> 4) * 10 + (value & 0xf) + 1; if (i < 24) { value = i % 10; value = (i >= 10) ? value | ((i / 10) << 4) : value; (m_eeprom->get_register(2))->put(value); return; } (m_eeprom->get_register(2))->put(0); } value = (m_eeprom->get_register(3))->get(); // Get DOW value = ( value + 1 ) % 7; (m_eeprom->get_register(3))->put(value); value = (m_eeprom->get_register(4))->get(); // Get DOM dom = (value >> 4) * 10 + (value & 0xf) + 1; value = (m_eeprom->get_register(5))->get(); // Get month month = (value >> 4) * 10 + (value & 0xf); value = (m_eeprom->get_register(6))->get(); // Get year year = (value >> 4) * 10 + (value & 0xf) + 2000; if ((year % 400) == 0 || ((year % 4) == 0 && (year % 100) != 0)) dim[1] = 29; if (dom <= dim[month-1]) { value = dom % 10; value = (dom >= 10) ? value | ((dom / 10) << 4) : value; (m_eeprom->get_register(4))->put(value); return; } (m_eeprom->get_register(4))->put(1); if (++month <= 12) { value = month % 10; value = (month >= 10) ? value | ((month / 10) << 4) : value; (m_eeprom->get_register(5))->put(value); return; } (m_eeprom->get_register(5))->put(1); i = ++year % 100; value = i % 10; value = (i >= 10) ? value | ((i / 10) << 4) : value; (m_eeprom->get_register(6))->put(value); return; } void ds1307::callback() { guint64 now = get_cycles().get(); Dprintf(("ds1307 now=%ld tick= %ld sqw= %ld\n", (long)now, (long)next_clock_tick, (long)next_sqw_edge)); if (now == next_clock_tick) { incrementRTC(); next_clock_tick = get_cycles().get() + get_cycles().instruction_cps(); get_cycles().set_break(next_clock_tick, this); } if (now == next_sqw_edge) { long diff; out = !out; next_sqw_edge = get_cycles().get() + sqw_interval; // syncronize with clock ticks diff = labs((long)(next_sqw_edge - next_clock_tick)); if (diff < (long)sqw_interval / 2) { if (!out) fprintf(stderr, "DS1307 SQW phase issue\n"); next_sqw_edge = next_clock_tick; } m_sqw->setDrivingState(out); get_cycles().set_break(next_sqw_edge, this); } } } // end of namespace DS1307_Modules gpsim-0.27.0/NEWS0000644000076400007640000000004110416273117010344 00000000000000 gpsim News See the Readme filesgpsim-0.27.0/ltmain.sh0000644000076400007640000105152212153313341011472 00000000000000 # libtool (GNU libtool) 2.4.2 # Written by Gordon Matzigkeit , 1996 # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, 2006, # 2007, 2008, 2009, 2010, 2011 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. # GNU Libtool 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. # # As a special exception to the GNU General Public License, # if you distribute this file as part of a program or library that # is built using GNU Libtool, you may include this file under the # same distribution terms that you use for the rest of that program. # # GNU Libtool 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 GNU Libtool; see the file COPYING. If not, a copy # can be downloaded from http://www.gnu.org/licenses/gpl.html, # or obtained by writing to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. # Usage: $progname [OPTION]... [MODE-ARG]... # # Provide generalized library-building support services. # # --config show all configuration variables # --debug enable verbose shell tracing # -n, --dry-run display commands without modifying any files # --features display basic configuration information and exit # --mode=MODE use operation mode MODE # --preserve-dup-deps don't remove duplicate dependency libraries # --quiet, --silent don't print informational messages # --no-quiet, --no-silent # print informational messages (default) # --no-warn don't display warning messages # --tag=TAG use configuration variables from tag TAG # -v, --verbose print more informational messages than default # --no-verbose don't print the extra informational messages # --version print version information # -h, --help, --help-all print short, long, or detailed help message # # MODE must be one of the following: # # clean remove files from the build directory # compile compile a source file into a libtool object # execute automatically set library path, then run a program # finish complete the installation of libtool libraries # install install libraries or executables # link create a library or an executable # uninstall remove libraries from an installed directory # # MODE-ARGS vary depending on the MODE. When passed as first option, # `--mode=MODE' may be abbreviated as `MODE' or a unique abbreviation of that. # Try `$progname --help --mode=MODE' for a more detailed description of MODE. # # When reporting a bug, please describe a test case to reproduce it and # include the following information: # # host-triplet: $host # shell: $SHELL # compiler: $LTCC # compiler flags: $LTCFLAGS # linker: $LD (gnu? $with_gnu_ld) # $progname: (GNU libtool) 2.4.2 # automake: $automake_version # autoconf: $autoconf_version # # Report bugs to . # GNU libtool home page: . # General help using GNU software: . PROGRAM=libtool PACKAGE=libtool VERSION=2.4.2 TIMESTAMP="" package_revision=1.3337 # Be Bourne compatible if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in *posix*) set -o posix;; esac fi BIN_SH=xpg4; export BIN_SH # for Tru64 DUALCASE=1; export DUALCASE # for MKS sh # A function that is used when there is no print builtin or printf. func_fallback_echo () { eval 'cat <<_LTECHO_EOF $1 _LTECHO_EOF' } # NLS nuisances: We save the old values to restore during execute mode. lt_user_locale= lt_safe_locale= for lt_var in LANG LANGUAGE LC_ALL LC_CTYPE LC_COLLATE LC_MESSAGES do eval "if test \"\${$lt_var+set}\" = set; then save_$lt_var=\$$lt_var $lt_var=C export $lt_var lt_user_locale=\"$lt_var=\\\$save_\$lt_var; \$lt_user_locale\" lt_safe_locale=\"$lt_var=C; \$lt_safe_locale\" fi" done LC_ALL=C LANGUAGE=C export LANGUAGE LC_ALL $lt_unset CDPATH # Work around backward compatibility issue on IRIX 6.5. On IRIX 6.4+, sh # is ksh but when the shell is invoked as "sh" and the current value of # the _XPG environment variable is not equal to 1 (one), the special # positional parameter $0, within a function call, is the name of the # function. progpath="$0" : ${CP="cp -f"} test "${ECHO+set}" = set || ECHO=${as_echo-'printf %s\n'} : ${MAKE="make"} : ${MKDIR="mkdir"} : ${MV="mv -f"} : ${RM="rm -f"} : ${SHELL="${CONFIG_SHELL-/bin/sh}"} : ${Xsed="$SED -e 1s/^X//"} # Global variables: EXIT_SUCCESS=0 EXIT_FAILURE=1 EXIT_MISMATCH=63 # $? = 63 is used to indicate version mismatch to missing. EXIT_SKIP=77 # $? = 77 is used to indicate a skipped test to automake. exit_status=$EXIT_SUCCESS # Make sure IFS has a sensible default lt_nl=' ' IFS=" $lt_nl" dirname="s,/[^/]*$,," basename="s,^.*/,," # func_dirname file append nondir_replacement # Compute the dirname of FILE. If nonempty, add APPEND to the result, # otherwise set result to NONDIR_REPLACEMENT. func_dirname () { func_dirname_result=`$ECHO "${1}" | $SED "$dirname"` if test "X$func_dirname_result" = "X${1}"; then func_dirname_result="${3}" else func_dirname_result="$func_dirname_result${2}" fi } # func_dirname may be replaced by extended shell implementation # func_basename file func_basename () { func_basename_result=`$ECHO "${1}" | $SED "$basename"` } # func_basename may be replaced by extended shell implementation # func_dirname_and_basename file append nondir_replacement # perform func_basename and func_dirname in a single function # call: # dirname: Compute the dirname of FILE. If nonempty, # add APPEND to the result, otherwise set result # to NONDIR_REPLACEMENT. # value returned in "$func_dirname_result" # basename: Compute filename of FILE. # value retuned in "$func_basename_result" # Implementation must be kept synchronized with func_dirname # and func_basename. For efficiency, we do not delegate to # those functions but instead duplicate the functionality here. func_dirname_and_basename () { # Extract subdirectory from the argument. func_dirname_result=`$ECHO "${1}" | $SED -e "$dirname"` if test "X$func_dirname_result" = "X${1}"; then func_dirname_result="${3}" else func_dirname_result="$func_dirname_result${2}" fi func_basename_result=`$ECHO "${1}" | $SED -e "$basename"` } # func_dirname_and_basename may be replaced by extended shell implementation # func_stripname prefix suffix name # strip PREFIX and SUFFIX off of NAME. # PREFIX and SUFFIX must not contain globbing or regex special # characters, hashes, percent signs, but SUFFIX may contain a leading # dot (in which case that matches only a dot). # func_strip_suffix prefix name func_stripname () { case ${2} in .*) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%\\\\${2}\$%%"`;; *) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%${2}\$%%"`;; esac } # func_stripname may be replaced by extended shell implementation # These SED scripts presuppose an absolute path with a trailing slash. pathcar='s,^/\([^/]*\).*$,\1,' pathcdr='s,^/[^/]*,,' removedotparts=':dotsl s@/\./@/@g t dotsl s,/\.$,/,' collapseslashes='s@/\{1,\}@/@g' finalslash='s,/*$,/,' # func_normal_abspath PATH # Remove doubled-up and trailing slashes, "." path components, # and cancel out any ".." path components in PATH after making # it an absolute path. # value returned in "$func_normal_abspath_result" func_normal_abspath () { # Start from root dir and reassemble the path. func_normal_abspath_result= func_normal_abspath_tpath=$1 func_normal_abspath_altnamespace= case $func_normal_abspath_tpath in "") # Empty path, that just means $cwd. func_stripname '' '/' "`pwd`" func_normal_abspath_result=$func_stripname_result return ;; # The next three entries are used to spot a run of precisely # two leading slashes without using negated character classes; # we take advantage of case's first-match behaviour. ///*) # Unusual form of absolute path, do nothing. ;; //*) # Not necessarily an ordinary path; POSIX reserves leading '//' # and for example Cygwin uses it to access remote file shares # over CIFS/SMB, so we conserve a leading double slash if found. func_normal_abspath_altnamespace=/ ;; /*) # Absolute path, do nothing. ;; *) # Relative path, prepend $cwd. func_normal_abspath_tpath=`pwd`/$func_normal_abspath_tpath ;; esac # Cancel out all the simple stuff to save iterations. We also want # the path to end with a slash for ease of parsing, so make sure # there is one (and only one) here. func_normal_abspath_tpath=`$ECHO "$func_normal_abspath_tpath" | $SED \ -e "$removedotparts" -e "$collapseslashes" -e "$finalslash"` while :; do # Processed it all yet? if test "$func_normal_abspath_tpath" = / ; then # If we ascended to the root using ".." the result may be empty now. if test -z "$func_normal_abspath_result" ; then func_normal_abspath_result=/ fi break fi func_normal_abspath_tcomponent=`$ECHO "$func_normal_abspath_tpath" | $SED \ -e "$pathcar"` func_normal_abspath_tpath=`$ECHO "$func_normal_abspath_tpath" | $SED \ -e "$pathcdr"` # Figure out what to do with it case $func_normal_abspath_tcomponent in "") # Trailing empty path component, ignore it. ;; ..) # Parent dir; strip last assembled component from result. func_dirname "$func_normal_abspath_result" func_normal_abspath_result=$func_dirname_result ;; *) # Actual path component, append it. func_normal_abspath_result=$func_normal_abspath_result/$func_normal_abspath_tcomponent ;; esac done # Restore leading double-slash if one was found on entry. func_normal_abspath_result=$func_normal_abspath_altnamespace$func_normal_abspath_result } # func_relative_path SRCDIR DSTDIR # generates a relative path from SRCDIR to DSTDIR, with a trailing # slash if non-empty, suitable for immediately appending a filename # without needing to append a separator. # value returned in "$func_relative_path_result" func_relative_path () { func_relative_path_result= func_normal_abspath "$1" func_relative_path_tlibdir=$func_normal_abspath_result func_normal_abspath "$2" func_relative_path_tbindir=$func_normal_abspath_result # Ascend the tree starting from libdir while :; do # check if we have found a prefix of bindir case $func_relative_path_tbindir in $func_relative_path_tlibdir) # found an exact match func_relative_path_tcancelled= break ;; $func_relative_path_tlibdir*) # found a matching prefix func_stripname "$func_relative_path_tlibdir" '' "$func_relative_path_tbindir" func_relative_path_tcancelled=$func_stripname_result if test -z "$func_relative_path_result"; then func_relative_path_result=. fi break ;; *) func_dirname $func_relative_path_tlibdir func_relative_path_tlibdir=${func_dirname_result} if test "x$func_relative_path_tlibdir" = x ; then # Have to descend all the way to the root! func_relative_path_result=../$func_relative_path_result func_relative_path_tcancelled=$func_relative_path_tbindir break fi func_relative_path_result=../$func_relative_path_result ;; esac done # Now calculate path; take care to avoid doubling-up slashes. func_stripname '' '/' "$func_relative_path_result" func_relative_path_result=$func_stripname_result func_stripname '/' '/' "$func_relative_path_tcancelled" if test "x$func_stripname_result" != x ; then func_relative_path_result=${func_relative_path_result}/${func_stripname_result} fi # Normalisation. If bindir is libdir, return empty string, # else relative path ending with a slash; either way, target # file name can be directly appended. if test ! -z "$func_relative_path_result"; then func_stripname './' '' "$func_relative_path_result/" func_relative_path_result=$func_stripname_result fi } # The name of this program: func_dirname_and_basename "$progpath" progname=$func_basename_result # Make sure we have an absolute path for reexecution: case $progpath in [\\/]*|[A-Za-z]:\\*) ;; *[\\/]*) progdir=$func_dirname_result progdir=`cd "$progdir" && pwd` progpath="$progdir/$progname" ;; *) save_IFS="$IFS" IFS=${PATH_SEPARATOR-:} for progdir in $PATH; do IFS="$save_IFS" test -x "$progdir/$progname" && break done IFS="$save_IFS" test -n "$progdir" || progdir=`pwd` progpath="$progdir/$progname" ;; esac # Sed substitution that helps us do robust quoting. It backslashifies # metacharacters that are still active within double-quoted strings. Xsed="${SED}"' -e 1s/^X//' sed_quote_subst='s/\([`"$\\]\)/\\\1/g' # Same as above, but do not quote variable references. double_quote_subst='s/\(["`\\]\)/\\\1/g' # Sed substitution that turns a string into a regex matching for the # string literally. sed_make_literal_regex='s,[].[^$\\*\/],\\&,g' # Sed substitution that converts a w32 file name or path # which contains forward slashes, into one that contains # (escaped) backslashes. A very naive implementation. lt_sed_naive_backslashify='s|\\\\*|\\|g;s|/|\\|g;s|\\|\\\\|g' # Re-`\' parameter expansions in output of double_quote_subst that were # `\'-ed in input to the same. If an odd number of `\' preceded a '$' # in input to double_quote_subst, that '$' was protected from expansion. # Since each input `\' is now two `\'s, look for any number of runs of # four `\'s followed by two `\'s and then a '$'. `\' that '$'. bs='\\' bs2='\\\\' bs4='\\\\\\\\' dollar='\$' sed_double_backslash="\ s/$bs4/&\\ /g s/^$bs2$dollar/$bs&/ s/\\([^$bs]\\)$bs2$dollar/\\1$bs2$bs$dollar/g s/\n//g" # Standard options: opt_dry_run=false opt_help=false opt_quiet=false opt_verbose=false opt_warning=: # func_echo arg... # Echo program name prefixed message, along with the current mode # name if it has been set yet. func_echo () { $ECHO "$progname: ${opt_mode+$opt_mode: }$*" } # func_verbose arg... # Echo program name prefixed message in verbose mode only. func_verbose () { $opt_verbose && func_echo ${1+"$@"} # A bug in bash halts the script if the last line of a function # fails when set -e is in force, so we need another command to # work around that: : } # func_echo_all arg... # Invoke $ECHO with all args, space-separated. func_echo_all () { $ECHO "$*" } # func_error arg... # Echo program name prefixed message to standard error. func_error () { $ECHO "$progname: ${opt_mode+$opt_mode: }"${1+"$@"} 1>&2 } # func_warning arg... # Echo program name prefixed warning message to standard error. func_warning () { $opt_warning && $ECHO "$progname: ${opt_mode+$opt_mode: }warning: "${1+"$@"} 1>&2 # bash bug again: : } # func_fatal_error arg... # Echo program name prefixed message to standard error, and exit. func_fatal_error () { func_error ${1+"$@"} exit $EXIT_FAILURE } # func_fatal_help arg... # Echo program name prefixed message to standard error, followed by # a help hint, and exit. func_fatal_help () { func_error ${1+"$@"} func_fatal_error "$help" } help="Try \`$progname --help' for more information." ## default # func_grep expression filename # Check whether EXPRESSION matches any line of FILENAME, without output. func_grep () { $GREP "$1" "$2" >/dev/null 2>&1 } # func_mkdir_p directory-path # Make sure the entire path to DIRECTORY-PATH is available. func_mkdir_p () { my_directory_path="$1" my_dir_list= if test -n "$my_directory_path" && test "$opt_dry_run" != ":"; then # Protect directory names starting with `-' case $my_directory_path in -*) my_directory_path="./$my_directory_path" ;; esac # While some portion of DIR does not yet exist... while test ! -d "$my_directory_path"; do # ...make a list in topmost first order. Use a colon delimited # list incase some portion of path contains whitespace. my_dir_list="$my_directory_path:$my_dir_list" # If the last portion added has no slash in it, the list is done case $my_directory_path in */*) ;; *) break ;; esac # ...otherwise throw away the child directory and loop my_directory_path=`$ECHO "$my_directory_path" | $SED -e "$dirname"` done my_dir_list=`$ECHO "$my_dir_list" | $SED 's,:*$,,'` save_mkdir_p_IFS="$IFS"; IFS=':' for my_dir in $my_dir_list; do IFS="$save_mkdir_p_IFS" # mkdir can fail with a `File exist' error if two processes # try to create one of the directories concurrently. Don't # stop in that case! $MKDIR "$my_dir" 2>/dev/null || : done IFS="$save_mkdir_p_IFS" # Bail out if we (or some other process) failed to create a directory. test -d "$my_directory_path" || \ func_fatal_error "Failed to create \`$1'" fi } # func_mktempdir [string] # Make a temporary directory that won't clash with other running # libtool processes, and avoids race conditions if possible. If # given, STRING is the basename for that directory. func_mktempdir () { my_template="${TMPDIR-/tmp}/${1-$progname}" if test "$opt_dry_run" = ":"; then # Return a directory name, but don't create it in dry-run mode my_tmpdir="${my_template}-$$" else # If mktemp works, use that first and foremost my_tmpdir=`mktemp -d "${my_template}-XXXXXXXX" 2>/dev/null` if test ! -d "$my_tmpdir"; then # Failing that, at least try and use $RANDOM to avoid a race my_tmpdir="${my_template}-${RANDOM-0}$$" save_mktempdir_umask=`umask` umask 0077 $MKDIR "$my_tmpdir" umask $save_mktempdir_umask fi # If we're not in dry-run mode, bomb out on failure test -d "$my_tmpdir" || \ func_fatal_error "cannot create temporary directory \`$my_tmpdir'" fi $ECHO "$my_tmpdir" } # func_quote_for_eval arg # Aesthetically quote ARG to be evaled later. # This function returns two values: FUNC_QUOTE_FOR_EVAL_RESULT # is double-quoted, suitable for a subsequent eval, whereas # FUNC_QUOTE_FOR_EVAL_UNQUOTED_RESULT has merely all characters # which are still active within double quotes backslashified. func_quote_for_eval () { case $1 in *[\\\`\"\$]*) func_quote_for_eval_unquoted_result=`$ECHO "$1" | $SED "$sed_quote_subst"` ;; *) func_quote_for_eval_unquoted_result="$1" ;; esac case $func_quote_for_eval_unquoted_result in # Double-quote args containing shell metacharacters to delay # word splitting, command substitution and and variable # expansion for a subsequent eval. # Many Bourne shells cannot handle close brackets correctly # in scan sets, so we specify it separately. *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") func_quote_for_eval_result="\"$func_quote_for_eval_unquoted_result\"" ;; *) func_quote_for_eval_result="$func_quote_for_eval_unquoted_result" esac } # func_quote_for_expand arg # Aesthetically quote ARG to be evaled later; same as above, # but do not quote variable references. func_quote_for_expand () { case $1 in *[\\\`\"]*) my_arg=`$ECHO "$1" | $SED \ -e "$double_quote_subst" -e "$sed_double_backslash"` ;; *) my_arg="$1" ;; esac case $my_arg in # Double-quote args containing shell metacharacters to delay # word splitting and command substitution for a subsequent eval. # Many Bourne shells cannot handle close brackets correctly # in scan sets, so we specify it separately. *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") my_arg="\"$my_arg\"" ;; esac func_quote_for_expand_result="$my_arg" } # func_show_eval cmd [fail_exp] # Unless opt_silent is true, then output CMD. Then, if opt_dryrun is # not true, evaluate CMD. If the evaluation of CMD fails, and FAIL_EXP # is given, then evaluate it. func_show_eval () { my_cmd="$1" my_fail_exp="${2-:}" ${opt_silent-false} || { func_quote_for_expand "$my_cmd" eval "func_echo $func_quote_for_expand_result" } if ${opt_dry_run-false}; then :; else eval "$my_cmd" my_status=$? if test "$my_status" -eq 0; then :; else eval "(exit $my_status); $my_fail_exp" fi fi } # func_show_eval_locale cmd [fail_exp] # Unless opt_silent is true, then output CMD. Then, if opt_dryrun is # not true, evaluate CMD. If the evaluation of CMD fails, and FAIL_EXP # is given, then evaluate it. Use the saved locale for evaluation. func_show_eval_locale () { my_cmd="$1" my_fail_exp="${2-:}" ${opt_silent-false} || { func_quote_for_expand "$my_cmd" eval "func_echo $func_quote_for_expand_result" } if ${opt_dry_run-false}; then :; else eval "$lt_user_locale $my_cmd" my_status=$? eval "$lt_safe_locale" if test "$my_status" -eq 0; then :; else eval "(exit $my_status); $my_fail_exp" fi fi } # func_tr_sh # Turn $1 into a string suitable for a shell variable name. # Result is stored in $func_tr_sh_result. All characters # not in the set a-zA-Z0-9_ are replaced with '_'. Further, # if $1 begins with a digit, a '_' is prepended as well. func_tr_sh () { case $1 in [0-9]* | *[!a-zA-Z0-9_]*) func_tr_sh_result=`$ECHO "$1" | $SED 's/^\([0-9]\)/_\1/; s/[^a-zA-Z0-9_]/_/g'` ;; * ) func_tr_sh_result=$1 ;; esac } # func_version # Echo version message to standard output and exit. func_version () { $opt_debug $SED -n '/(C)/!b go :more /\./!{ N s/\n# / / b more } :go /^# '$PROGRAM' (GNU /,/# warranty; / { s/^# // s/^# *$// s/\((C)\)[ 0-9,-]*\( [1-9][0-9]*\)/\1\2/ p }' < "$progpath" exit $? } # func_usage # Echo short help message to standard output and exit. func_usage () { $opt_debug $SED -n '/^# Usage:/,/^# *.*--help/ { s/^# // s/^# *$// s/\$progname/'$progname'/ p }' < "$progpath" echo $ECHO "run \`$progname --help | more' for full usage" exit $? } # func_help [NOEXIT] # Echo long help message to standard output and exit, # unless 'noexit' is passed as argument. func_help () { $opt_debug $SED -n '/^# Usage:/,/# Report bugs to/ { :print s/^# // s/^# *$// s*\$progname*'$progname'* s*\$host*'"$host"'* s*\$SHELL*'"$SHELL"'* s*\$LTCC*'"$LTCC"'* s*\$LTCFLAGS*'"$LTCFLAGS"'* s*\$LD*'"$LD"'* s/\$with_gnu_ld/'"$with_gnu_ld"'/ s/\$automake_version/'"`(${AUTOMAKE-automake} --version) 2>/dev/null |$SED 1q`"'/ s/\$autoconf_version/'"`(${AUTOCONF-autoconf} --version) 2>/dev/null |$SED 1q`"'/ p d } /^# .* home page:/b print /^# General help using/b print ' < "$progpath" ret=$? if test -z "$1"; then exit $ret fi } # func_missing_arg argname # Echo program name prefixed message to standard error and set global # exit_cmd. func_missing_arg () { $opt_debug func_error "missing argument for $1." exit_cmd=exit } # func_split_short_opt shortopt # Set func_split_short_opt_name and func_split_short_opt_arg shell # variables after splitting SHORTOPT after the 2nd character. func_split_short_opt () { my_sed_short_opt='1s/^\(..\).*$/\1/;q' my_sed_short_rest='1s/^..\(.*\)$/\1/;q' func_split_short_opt_name=`$ECHO "$1" | $SED "$my_sed_short_opt"` func_split_short_opt_arg=`$ECHO "$1" | $SED "$my_sed_short_rest"` } # func_split_short_opt may be replaced by extended shell implementation # func_split_long_opt longopt # Set func_split_long_opt_name and func_split_long_opt_arg shell # variables after splitting LONGOPT at the `=' sign. func_split_long_opt () { my_sed_long_opt='1s/^\(--[^=]*\)=.*/\1/;q' my_sed_long_arg='1s/^--[^=]*=//' func_split_long_opt_name=`$ECHO "$1" | $SED "$my_sed_long_opt"` func_split_long_opt_arg=`$ECHO "$1" | $SED "$my_sed_long_arg"` } # func_split_long_opt may be replaced by extended shell implementation exit_cmd=: magic="%%%MAGIC variable%%%" magic_exe="%%%MAGIC EXE variable%%%" # Global variables. nonopt= preserve_args= lo2o="s/\\.lo\$/.${objext}/" o2lo="s/\\.${objext}\$/.lo/" extracted_archives= extracted_serial=0 # If this variable is set in any of the actions, the command in it # will be execed at the end. This prevents here-documents from being # left over by shells. exec_cmd= # func_append var value # Append VALUE to the end of shell variable VAR. func_append () { eval "${1}=\$${1}\${2}" } # func_append may be replaced by extended shell implementation # func_append_quoted var value # Quote VALUE and append to the end of shell variable VAR, separated # by a space. func_append_quoted () { func_quote_for_eval "${2}" eval "${1}=\$${1}\\ \$func_quote_for_eval_result" } # func_append_quoted may be replaced by extended shell implementation # func_arith arithmetic-term... func_arith () { func_arith_result=`expr "${@}"` } # func_arith may be replaced by extended shell implementation # func_len string # STRING may not start with a hyphen. func_len () { func_len_result=`expr "${1}" : ".*" 2>/dev/null || echo $max_cmd_len` } # func_len may be replaced by extended shell implementation # func_lo2o object func_lo2o () { func_lo2o_result=`$ECHO "${1}" | $SED "$lo2o"` } # func_lo2o may be replaced by extended shell implementation # func_xform libobj-or-source func_xform () { func_xform_result=`$ECHO "${1}" | $SED 's/\.[^.]*$/.lo/'` } # func_xform may be replaced by extended shell implementation # func_fatal_configuration arg... # Echo program name prefixed message to standard error, followed by # a configuration failure hint, and exit. func_fatal_configuration () { func_error ${1+"$@"} func_error "See the $PACKAGE documentation for more information." func_fatal_error "Fatal configuration error." } # func_config # Display the configuration for all the tags in this script. func_config () { re_begincf='^# ### BEGIN LIBTOOL' re_endcf='^# ### END LIBTOOL' # Default configuration. $SED "1,/$re_begincf CONFIG/d;/$re_endcf CONFIG/,\$d" < "$progpath" # Now print the configurations for the tags. for tagname in $taglist; do $SED -n "/$re_begincf TAG CONFIG: $tagname\$/,/$re_endcf TAG CONFIG: $tagname\$/p" < "$progpath" done exit $? } # func_features # Display the features supported by this script. func_features () { echo "host: $host" if test "$build_libtool_libs" = yes; then echo "enable shared libraries" else echo "disable shared libraries" fi if test "$build_old_libs" = yes; then echo "enable static libraries" else echo "disable static libraries" fi exit $? } # func_enable_tag tagname # Verify that TAGNAME is valid, and either flag an error and exit, or # enable the TAGNAME tag. We also add TAGNAME to the global $taglist # variable here. func_enable_tag () { # Global variable: tagname="$1" re_begincf="^# ### BEGIN LIBTOOL TAG CONFIG: $tagname\$" re_endcf="^# ### END LIBTOOL TAG CONFIG: $tagname\$" sed_extractcf="/$re_begincf/,/$re_endcf/p" # Validate tagname. case $tagname in *[!-_A-Za-z0-9,/]*) func_fatal_error "invalid tag name: $tagname" ;; esac # Don't test for the "default" C tag, as we know it's # there but not specially marked. case $tagname in CC) ;; *) if $GREP "$re_begincf" "$progpath" >/dev/null 2>&1; then taglist="$taglist $tagname" # Evaluate the configuration. Be careful to quote the path # and the sed script, to avoid splitting on whitespace, but # also don't use non-portable quotes within backquotes within # quotes we have to do it in 2 steps: extractedcf=`$SED -n -e "$sed_extractcf" < "$progpath"` eval "$extractedcf" else func_error "ignoring unknown tag $tagname" fi ;; esac } # func_check_version_match # Ensure that we are using m4 macros, and libtool script from the same # release of libtool. func_check_version_match () { if test "$package_revision" != "$macro_revision"; then if test "$VERSION" != "$macro_version"; then if test -z "$macro_version"; then cat >&2 <<_LT_EOF $progname: Version mismatch error. This is $PACKAGE $VERSION, but the $progname: definition of this LT_INIT comes from an older release. $progname: You should recreate aclocal.m4 with macros from $PACKAGE $VERSION $progname: and run autoconf again. _LT_EOF else cat >&2 <<_LT_EOF $progname: Version mismatch error. This is $PACKAGE $VERSION, but the $progname: definition of this LT_INIT comes from $PACKAGE $macro_version. $progname: You should recreate aclocal.m4 with macros from $PACKAGE $VERSION $progname: and run autoconf again. _LT_EOF fi else cat >&2 <<_LT_EOF $progname: Version mismatch error. This is $PACKAGE $VERSION, revision $package_revision, $progname: but the definition of this LT_INIT comes from revision $macro_revision. $progname: You should recreate aclocal.m4 with macros from revision $package_revision $progname: of $PACKAGE $VERSION and run autoconf again. _LT_EOF fi exit $EXIT_MISMATCH fi } # Shorthand for --mode=foo, only valid as the first argument case $1 in clean|clea|cle|cl) shift; set dummy --mode clean ${1+"$@"}; shift ;; compile|compil|compi|comp|com|co|c) shift; set dummy --mode compile ${1+"$@"}; shift ;; execute|execut|execu|exec|exe|ex|e) shift; set dummy --mode execute ${1+"$@"}; shift ;; finish|finis|fini|fin|fi|f) shift; set dummy --mode finish ${1+"$@"}; shift ;; install|instal|insta|inst|ins|in|i) shift; set dummy --mode install ${1+"$@"}; shift ;; link|lin|li|l) shift; set dummy --mode link ${1+"$@"}; shift ;; uninstall|uninstal|uninsta|uninst|unins|unin|uni|un|u) shift; set dummy --mode uninstall ${1+"$@"}; shift ;; esac # Option defaults: opt_debug=: opt_dry_run=false opt_config=false opt_preserve_dup_deps=false opt_features=false opt_finish=false opt_help=false opt_help_all=false opt_silent=: opt_warning=: opt_verbose=: opt_silent=false opt_verbose=false # Parse options once, thoroughly. This comes as soon as possible in the # script to make things like `--version' happen as quickly as we can. { # this just eases exit handling while test $# -gt 0; do opt="$1" shift case $opt in --debug|-x) opt_debug='set -x' func_echo "enabling shell trace mode" $opt_debug ;; --dry-run|--dryrun|-n) opt_dry_run=: ;; --config) opt_config=: func_config ;; --dlopen|-dlopen) optarg="$1" opt_dlopen="${opt_dlopen+$opt_dlopen }$optarg" shift ;; --preserve-dup-deps) opt_preserve_dup_deps=: ;; --features) opt_features=: func_features ;; --finish) opt_finish=: set dummy --mode finish ${1+"$@"}; shift ;; --help) opt_help=: ;; --help-all) opt_help_all=: opt_help=': help-all' ;; --mode) test $# = 0 && func_missing_arg $opt && break optarg="$1" opt_mode="$optarg" case $optarg in # Valid mode arguments: clean|compile|execute|finish|install|link|relink|uninstall) ;; # Catch anything else as an error *) func_error "invalid argument for $opt" exit_cmd=exit break ;; esac shift ;; --no-silent|--no-quiet) opt_silent=false func_append preserve_args " $opt" ;; --no-warning|--no-warn) opt_warning=false func_append preserve_args " $opt" ;; --no-verbose) opt_verbose=false func_append preserve_args " $opt" ;; --silent|--quiet) opt_silent=: func_append preserve_args " $opt" opt_verbose=false ;; --verbose|-v) opt_verbose=: func_append preserve_args " $opt" opt_silent=false ;; --tag) test $# = 0 && func_missing_arg $opt && break optarg="$1" opt_tag="$optarg" func_append preserve_args " $opt $optarg" func_enable_tag "$optarg" shift ;; -\?|-h) func_usage ;; --help) func_help ;; --version) func_version ;; # Separate optargs to long options: --*=*) func_split_long_opt "$opt" set dummy "$func_split_long_opt_name" "$func_split_long_opt_arg" ${1+"$@"} shift ;; # Separate non-argument short options: -\?*|-h*|-n*|-v*) func_split_short_opt "$opt" set dummy "$func_split_short_opt_name" "-$func_split_short_opt_arg" ${1+"$@"} shift ;; --) break ;; -*) func_fatal_help "unrecognized option \`$opt'" ;; *) set dummy "$opt" ${1+"$@"}; shift; break ;; esac done # Validate options: # save first non-option argument if test "$#" -gt 0; then nonopt="$opt" shift fi # preserve --debug test "$opt_debug" = : || func_append preserve_args " --debug" case $host in *cygwin* | *mingw* | *pw32* | *cegcc*) # don't eliminate duplications in $postdeps and $predeps opt_duplicate_compiler_generated_deps=: ;; *) opt_duplicate_compiler_generated_deps=$opt_preserve_dup_deps ;; esac $opt_help || { # Sanity checks first: func_check_version_match if test "$build_libtool_libs" != yes && test "$build_old_libs" != yes; then func_fatal_configuration "not configured to build any kind of library" fi # Darwin sucks eval std_shrext=\"$shrext_cmds\" # Only execute mode is allowed to have -dlopen flags. if test -n "$opt_dlopen" && test "$opt_mode" != execute; then func_error "unrecognized option \`-dlopen'" $ECHO "$help" 1>&2 exit $EXIT_FAILURE fi # Change the help message to a mode-specific one. generic_help="$help" help="Try \`$progname --help --mode=$opt_mode' for more information." } # Bail if the options were screwed $exit_cmd $EXIT_FAILURE } ## ----------- ## ## Main. ## ## ----------- ## # func_lalib_p file # True iff FILE is a libtool `.la' library or `.lo' object file. # This function is only a basic sanity check; it will hardly flush out # determined imposters. func_lalib_p () { test -f "$1" && $SED -e 4q "$1" 2>/dev/null \ | $GREP "^# Generated by .*$PACKAGE" > /dev/null 2>&1 } # func_lalib_unsafe_p file # True iff FILE is a libtool `.la' library or `.lo' object file. # This function implements the same check as func_lalib_p without # resorting to external programs. To this end, it redirects stdin and # closes it afterwards, without saving the original file descriptor. # As a safety measure, use it only where a negative result would be # fatal anyway. Works if `file' does not exist. func_lalib_unsafe_p () { lalib_p=no if test -f "$1" && test -r "$1" && exec 5<&0 <"$1"; then for lalib_p_l in 1 2 3 4 do read lalib_p_line case "$lalib_p_line" in \#\ Generated\ by\ *$PACKAGE* ) lalib_p=yes; break;; esac done exec 0<&5 5<&- fi test "$lalib_p" = yes } # func_ltwrapper_script_p file # True iff FILE is a libtool wrapper script # This function is only a basic sanity check; it will hardly flush out # determined imposters. func_ltwrapper_script_p () { func_lalib_p "$1" } # func_ltwrapper_executable_p file # True iff FILE is a libtool wrapper executable # This function is only a basic sanity check; it will hardly flush out # determined imposters. func_ltwrapper_executable_p () { func_ltwrapper_exec_suffix= case $1 in *.exe) ;; *) func_ltwrapper_exec_suffix=.exe ;; esac $GREP "$magic_exe" "$1$func_ltwrapper_exec_suffix" >/dev/null 2>&1 } # func_ltwrapper_scriptname file # Assumes file is an ltwrapper_executable # uses $file to determine the appropriate filename for a # temporary ltwrapper_script. func_ltwrapper_scriptname () { func_dirname_and_basename "$1" "" "." func_stripname '' '.exe' "$func_basename_result" func_ltwrapper_scriptname_result="$func_dirname_result/$objdir/${func_stripname_result}_ltshwrapper" } # func_ltwrapper_p file # True iff FILE is a libtool wrapper script or wrapper executable # This function is only a basic sanity check; it will hardly flush out # determined imposters. func_ltwrapper_p () { func_ltwrapper_script_p "$1" || func_ltwrapper_executable_p "$1" } # func_execute_cmds commands fail_cmd # Execute tilde-delimited COMMANDS. # If FAIL_CMD is given, eval that upon failure. # FAIL_CMD may read-access the current command in variable CMD! func_execute_cmds () { $opt_debug save_ifs=$IFS; IFS='~' for cmd in $1; do IFS=$save_ifs eval cmd=\"$cmd\" func_show_eval "$cmd" "${2-:}" done IFS=$save_ifs } # func_source file # Source FILE, adding directory component if necessary. # Note that it is not necessary on cygwin/mingw to append a dot to # FILE even if both FILE and FILE.exe exist: automatic-append-.exe # behavior happens only for exec(3), not for open(2)! Also, sourcing # `FILE.' does not work on cygwin managed mounts. func_source () { $opt_debug case $1 in */* | *\\*) . "$1" ;; *) . "./$1" ;; esac } # func_resolve_sysroot PATH # Replace a leading = in PATH with a sysroot. Store the result into # func_resolve_sysroot_result func_resolve_sysroot () { func_resolve_sysroot_result=$1 case $func_resolve_sysroot_result in =*) func_stripname '=' '' "$func_resolve_sysroot_result" func_resolve_sysroot_result=$lt_sysroot$func_stripname_result ;; esac } # func_replace_sysroot PATH # If PATH begins with the sysroot, replace it with = and # store the result into func_replace_sysroot_result. func_replace_sysroot () { case "$lt_sysroot:$1" in ?*:"$lt_sysroot"*) func_stripname "$lt_sysroot" '' "$1" func_replace_sysroot_result="=$func_stripname_result" ;; *) # Including no sysroot. func_replace_sysroot_result=$1 ;; esac } # func_infer_tag arg # Infer tagged configuration to use if any are available and # if one wasn't chosen via the "--tag" command line option. # Only attempt this if the compiler in the base compile # command doesn't match the default compiler. # arg is usually of the form 'gcc ...' func_infer_tag () { $opt_debug if test -n "$available_tags" && test -z "$tagname"; then CC_quoted= for arg in $CC; do func_append_quoted CC_quoted "$arg" done CC_expanded=`func_echo_all $CC` CC_quoted_expanded=`func_echo_all $CC_quoted` case $@ in # Blanks in the command may have been stripped by the calling shell, # but not from the CC environment variable when configure was run. " $CC "* | "$CC "* | " $CC_expanded "* | "$CC_expanded "* | \ " $CC_quoted"* | "$CC_quoted "* | " $CC_quoted_expanded "* | "$CC_quoted_expanded "*) ;; # Blanks at the start of $base_compile will cause this to fail # if we don't check for them as well. *) for z in $available_tags; do if $GREP "^# ### BEGIN LIBTOOL TAG CONFIG: $z$" < "$progpath" > /dev/null; then # Evaluate the configuration. eval "`${SED} -n -e '/^# ### BEGIN LIBTOOL TAG CONFIG: '$z'$/,/^# ### END LIBTOOL TAG CONFIG: '$z'$/p' < $progpath`" CC_quoted= for arg in $CC; do # Double-quote args containing other shell metacharacters. func_append_quoted CC_quoted "$arg" done CC_expanded=`func_echo_all $CC` CC_quoted_expanded=`func_echo_all $CC_quoted` case "$@ " in " $CC "* | "$CC "* | " $CC_expanded "* | "$CC_expanded "* | \ " $CC_quoted"* | "$CC_quoted "* | " $CC_quoted_expanded "* | "$CC_quoted_expanded "*) # The compiler in the base compile command matches # the one in the tagged configuration. # Assume this is the tagged configuration we want. tagname=$z break ;; esac fi done # If $tagname still isn't set, then no tagged configuration # was found and let the user know that the "--tag" command # line option must be used. if test -z "$tagname"; then func_echo "unable to infer tagged configuration" func_fatal_error "specify a tag with \`--tag'" # else # func_verbose "using $tagname tagged configuration" fi ;; esac fi } # func_write_libtool_object output_name pic_name nonpic_name # Create a libtool object file (analogous to a ".la" file), # but don't create it if we're doing a dry run. func_write_libtool_object () { write_libobj=${1} if test "$build_libtool_libs" = yes; then write_lobj=\'${2}\' else write_lobj=none fi if test "$build_old_libs" = yes; then write_oldobj=\'${3}\' else write_oldobj=none fi $opt_dry_run || { cat >${write_libobj}T </dev/null` if test "$?" -eq 0 && test -n "${func_convert_core_file_wine_to_w32_tmp}"; then func_convert_core_file_wine_to_w32_result=`$ECHO "$func_convert_core_file_wine_to_w32_tmp" | $SED -e "$lt_sed_naive_backslashify"` else func_convert_core_file_wine_to_w32_result= fi fi } # end: func_convert_core_file_wine_to_w32 # func_convert_core_path_wine_to_w32 ARG # Helper function used by path conversion functions when $build is *nix, and # $host is mingw, cygwin, or some other w32 environment. Relies on a correctly # configured wine environment available, with the winepath program in $build's # $PATH. Assumes ARG has no leading or trailing path separator characters. # # ARG is path to be converted from $build format to win32. # Result is available in $func_convert_core_path_wine_to_w32_result. # Unconvertible file (directory) names in ARG are skipped; if no directory names # are convertible, then the result may be empty. func_convert_core_path_wine_to_w32 () { $opt_debug # unfortunately, winepath doesn't convert paths, only file names func_convert_core_path_wine_to_w32_result="" if test -n "$1"; then oldIFS=$IFS IFS=: for func_convert_core_path_wine_to_w32_f in $1; do IFS=$oldIFS func_convert_core_file_wine_to_w32 "$func_convert_core_path_wine_to_w32_f" if test -n "$func_convert_core_file_wine_to_w32_result" ; then if test -z "$func_convert_core_path_wine_to_w32_result"; then func_convert_core_path_wine_to_w32_result="$func_convert_core_file_wine_to_w32_result" else func_append func_convert_core_path_wine_to_w32_result ";$func_convert_core_file_wine_to_w32_result" fi fi done IFS=$oldIFS fi } # end: func_convert_core_path_wine_to_w32 # func_cygpath ARGS... # Wrapper around calling the cygpath program via LT_CYGPATH. This is used when # when (1) $build is *nix and Cygwin is hosted via a wine environment; or (2) # $build is MSYS and $host is Cygwin, or (3) $build is Cygwin. In case (1) or # (2), returns the Cygwin file name or path in func_cygpath_result (input # file name or path is assumed to be in w32 format, as previously converted # from $build's *nix or MSYS format). In case (3), returns the w32 file name # or path in func_cygpath_result (input file name or path is assumed to be in # Cygwin format). Returns an empty string on error. # # ARGS are passed to cygpath, with the last one being the file name or path to # be converted. # # Specify the absolute *nix (or w32) name to cygpath in the LT_CYGPATH # environment variable; do not put it in $PATH. func_cygpath () { $opt_debug if test -n "$LT_CYGPATH" && test -f "$LT_CYGPATH"; then func_cygpath_result=`$LT_CYGPATH "$@" 2>/dev/null` if test "$?" -ne 0; then # on failure, ensure result is empty func_cygpath_result= fi else func_cygpath_result= func_error "LT_CYGPATH is empty or specifies non-existent file: \`$LT_CYGPATH'" fi } #end: func_cygpath # func_convert_core_msys_to_w32 ARG # Convert file name or path ARG from MSYS format to w32 format. Return # result in func_convert_core_msys_to_w32_result. func_convert_core_msys_to_w32 () { $opt_debug # awkward: cmd appends spaces to result func_convert_core_msys_to_w32_result=`( cmd //c echo "$1" ) 2>/dev/null | $SED -e 's/[ ]*$//' -e "$lt_sed_naive_backslashify"` } #end: func_convert_core_msys_to_w32 # func_convert_file_check ARG1 ARG2 # Verify that ARG1 (a file name in $build format) was converted to $host # format in ARG2. Otherwise, emit an error message, but continue (resetting # func_to_host_file_result to ARG1). func_convert_file_check () { $opt_debug if test -z "$2" && test -n "$1" ; then func_error "Could not determine host file name corresponding to" func_error " \`$1'" func_error "Continuing, but uninstalled executables may not work." # Fallback: func_to_host_file_result="$1" fi } # end func_convert_file_check # func_convert_path_check FROM_PATHSEP TO_PATHSEP FROM_PATH TO_PATH # Verify that FROM_PATH (a path in $build format) was converted to $host # format in TO_PATH. Otherwise, emit an error message, but continue, resetting # func_to_host_file_result to a simplistic fallback value (see below). func_convert_path_check () { $opt_debug if test -z "$4" && test -n "$3"; then func_error "Could not determine the host path corresponding to" func_error " \`$3'" func_error "Continuing, but uninstalled executables may not work." # Fallback. This is a deliberately simplistic "conversion" and # should not be "improved". See libtool.info. if test "x$1" != "x$2"; then lt_replace_pathsep_chars="s|$1|$2|g" func_to_host_path_result=`echo "$3" | $SED -e "$lt_replace_pathsep_chars"` else func_to_host_path_result="$3" fi fi } # end func_convert_path_check # func_convert_path_front_back_pathsep FRONTPAT BACKPAT REPL ORIG # Modifies func_to_host_path_result by prepending REPL if ORIG matches FRONTPAT # and appending REPL if ORIG matches BACKPAT. func_convert_path_front_back_pathsep () { $opt_debug case $4 in $1 ) func_to_host_path_result="$3$func_to_host_path_result" ;; esac case $4 in $2 ) func_append func_to_host_path_result "$3" ;; esac } # end func_convert_path_front_back_pathsep ################################################## # $build to $host FILE NAME CONVERSION FUNCTIONS # ################################################## # invoked via `$to_host_file_cmd ARG' # # In each case, ARG is the path to be converted from $build to $host format. # Result will be available in $func_to_host_file_result. # func_to_host_file ARG # Converts the file name ARG from $build format to $host format. Return result # in func_to_host_file_result. func_to_host_file () { $opt_debug $to_host_file_cmd "$1" } # end func_to_host_file # func_to_tool_file ARG LAZY # converts the file name ARG from $build format to toolchain format. Return # result in func_to_tool_file_result. If the conversion in use is listed # in (the comma separated) LAZY, no conversion takes place. func_to_tool_file () { $opt_debug case ,$2, in *,"$to_tool_file_cmd",*) func_to_tool_file_result=$1 ;; *) $to_tool_file_cmd "$1" func_to_tool_file_result=$func_to_host_file_result ;; esac } # end func_to_tool_file # func_convert_file_noop ARG # Copy ARG to func_to_host_file_result. func_convert_file_noop () { func_to_host_file_result="$1" } # end func_convert_file_noop # func_convert_file_msys_to_w32 ARG # Convert file name ARG from (mingw) MSYS to (mingw) w32 format; automatic # conversion to w32 is not available inside the cwrapper. Returns result in # func_to_host_file_result. func_convert_file_msys_to_w32 () { $opt_debug func_to_host_file_result="$1" if test -n "$1"; then func_convert_core_msys_to_w32 "$1" func_to_host_file_result="$func_convert_core_msys_to_w32_result" fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_msys_to_w32 # func_convert_file_cygwin_to_w32 ARG # Convert file name ARG from Cygwin to w32 format. Returns result in # func_to_host_file_result. func_convert_file_cygwin_to_w32 () { $opt_debug func_to_host_file_result="$1" if test -n "$1"; then # because $build is cygwin, we call "the" cygpath in $PATH; no need to use # LT_CYGPATH in this case. func_to_host_file_result=`cygpath -m "$1"` fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_cygwin_to_w32 # func_convert_file_nix_to_w32 ARG # Convert file name ARG from *nix to w32 format. Requires a wine environment # and a working winepath. Returns result in func_to_host_file_result. func_convert_file_nix_to_w32 () { $opt_debug func_to_host_file_result="$1" if test -n "$1"; then func_convert_core_file_wine_to_w32 "$1" func_to_host_file_result="$func_convert_core_file_wine_to_w32_result" fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_nix_to_w32 # func_convert_file_msys_to_cygwin ARG # Convert file name ARG from MSYS to Cygwin format. Requires LT_CYGPATH set. # Returns result in func_to_host_file_result. func_convert_file_msys_to_cygwin () { $opt_debug func_to_host_file_result="$1" if test -n "$1"; then func_convert_core_msys_to_w32 "$1" func_cygpath -u "$func_convert_core_msys_to_w32_result" func_to_host_file_result="$func_cygpath_result" fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_msys_to_cygwin # func_convert_file_nix_to_cygwin ARG # Convert file name ARG from *nix to Cygwin format. Requires Cygwin installed # in a wine environment, working winepath, and LT_CYGPATH set. Returns result # in func_to_host_file_result. func_convert_file_nix_to_cygwin () { $opt_debug func_to_host_file_result="$1" if test -n "$1"; then # convert from *nix to w32, then use cygpath to convert from w32 to cygwin. func_convert_core_file_wine_to_w32 "$1" func_cygpath -u "$func_convert_core_file_wine_to_w32_result" func_to_host_file_result="$func_cygpath_result" fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_nix_to_cygwin ############################################# # $build to $host PATH CONVERSION FUNCTIONS # ############################################# # invoked via `$to_host_path_cmd ARG' # # In each case, ARG is the path to be converted from $build to $host format. # The result will be available in $func_to_host_path_result. # # Path separators are also converted from $build format to $host format. If # ARG begins or ends with a path separator character, it is preserved (but # converted to $host format) on output. # # All path conversion functions are named using the following convention: # file name conversion function : func_convert_file_X_to_Y () # path conversion function : func_convert_path_X_to_Y () # where, for any given $build/$host combination the 'X_to_Y' value is the # same. If conversion functions are added for new $build/$host combinations, # the two new functions must follow this pattern, or func_init_to_host_path_cmd # will break. # func_init_to_host_path_cmd # Ensures that function "pointer" variable $to_host_path_cmd is set to the # appropriate value, based on the value of $to_host_file_cmd. to_host_path_cmd= func_init_to_host_path_cmd () { $opt_debug if test -z "$to_host_path_cmd"; then func_stripname 'func_convert_file_' '' "$to_host_file_cmd" to_host_path_cmd="func_convert_path_${func_stripname_result}" fi } # func_to_host_path ARG # Converts the path ARG from $build format to $host format. Return result # in func_to_host_path_result. func_to_host_path () { $opt_debug func_init_to_host_path_cmd $to_host_path_cmd "$1" } # end func_to_host_path # func_convert_path_noop ARG # Copy ARG to func_to_host_path_result. func_convert_path_noop () { func_to_host_path_result="$1" } # end func_convert_path_noop # func_convert_path_msys_to_w32 ARG # Convert path ARG from (mingw) MSYS to (mingw) w32 format; automatic # conversion to w32 is not available inside the cwrapper. Returns result in # func_to_host_path_result. func_convert_path_msys_to_w32 () { $opt_debug func_to_host_path_result="$1" if test -n "$1"; then # Remove leading and trailing path separator characters from ARG. MSYS # behavior is inconsistent here; cygpath turns them into '.;' and ';.'; # and winepath ignores them completely. func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_convert_core_msys_to_w32 "$func_to_host_path_tmp1" func_to_host_path_result="$func_convert_core_msys_to_w32_result" func_convert_path_check : ";" \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" ";" "$1" fi } # end func_convert_path_msys_to_w32 # func_convert_path_cygwin_to_w32 ARG # Convert path ARG from Cygwin to w32 format. Returns result in # func_to_host_file_result. func_convert_path_cygwin_to_w32 () { $opt_debug func_to_host_path_result="$1" if test -n "$1"; then # See func_convert_path_msys_to_w32: func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_to_host_path_result=`cygpath -m -p "$func_to_host_path_tmp1"` func_convert_path_check : ";" \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" ";" "$1" fi } # end func_convert_path_cygwin_to_w32 # func_convert_path_nix_to_w32 ARG # Convert path ARG from *nix to w32 format. Requires a wine environment and # a working winepath. Returns result in func_to_host_file_result. func_convert_path_nix_to_w32 () { $opt_debug func_to_host_path_result="$1" if test -n "$1"; then # See func_convert_path_msys_to_w32: func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_convert_core_path_wine_to_w32 "$func_to_host_path_tmp1" func_to_host_path_result="$func_convert_core_path_wine_to_w32_result" func_convert_path_check : ";" \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" ";" "$1" fi } # end func_convert_path_nix_to_w32 # func_convert_path_msys_to_cygwin ARG # Convert path ARG from MSYS to Cygwin format. Requires LT_CYGPATH set. # Returns result in func_to_host_file_result. func_convert_path_msys_to_cygwin () { $opt_debug func_to_host_path_result="$1" if test -n "$1"; then # See func_convert_path_msys_to_w32: func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_convert_core_msys_to_w32 "$func_to_host_path_tmp1" func_cygpath -u -p "$func_convert_core_msys_to_w32_result" func_to_host_path_result="$func_cygpath_result" func_convert_path_check : : \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" : "$1" fi } # end func_convert_path_msys_to_cygwin # func_convert_path_nix_to_cygwin ARG # Convert path ARG from *nix to Cygwin format. Requires Cygwin installed in a # a wine environment, working winepath, and LT_CYGPATH set. Returns result in # func_to_host_file_result. func_convert_path_nix_to_cygwin () { $opt_debug func_to_host_path_result="$1" if test -n "$1"; then # Remove leading and trailing path separator characters from # ARG. msys behavior is inconsistent here, cygpath turns them # into '.;' and ';.', and winepath ignores them completely. func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_convert_core_path_wine_to_w32 "$func_to_host_path_tmp1" func_cygpath -u -p "$func_convert_core_path_wine_to_w32_result" func_to_host_path_result="$func_cygpath_result" func_convert_path_check : : \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" : "$1" fi } # end func_convert_path_nix_to_cygwin # func_mode_compile arg... func_mode_compile () { $opt_debug # Get the compilation command and the source file. base_compile= srcfile="$nonopt" # always keep a non-empty value in "srcfile" suppress_opt=yes suppress_output= arg_mode=normal libobj= later= pie_flag= for arg do case $arg_mode in arg ) # do not "continue". Instead, add this to base_compile lastarg="$arg" arg_mode=normal ;; target ) libobj="$arg" arg_mode=normal continue ;; normal ) # Accept any command-line options. case $arg in -o) test -n "$libobj" && \ func_fatal_error "you cannot specify \`-o' more than once" arg_mode=target continue ;; -pie | -fpie | -fPIE) func_append pie_flag " $arg" continue ;; -shared | -static | -prefer-pic | -prefer-non-pic) func_append later " $arg" continue ;; -no-suppress) suppress_opt=no continue ;; -Xcompiler) arg_mode=arg # the next one goes into the "base_compile" arg list continue # The current "srcfile" will either be retained or ;; # replaced later. I would guess that would be a bug. -Wc,*) func_stripname '-Wc,' '' "$arg" args=$func_stripname_result lastarg= save_ifs="$IFS"; IFS=',' for arg in $args; do IFS="$save_ifs" func_append_quoted lastarg "$arg" done IFS="$save_ifs" func_stripname ' ' '' "$lastarg" lastarg=$func_stripname_result # Add the arguments to base_compile. func_append base_compile " $lastarg" continue ;; *) # Accept the current argument as the source file. # The previous "srcfile" becomes the current argument. # lastarg="$srcfile" srcfile="$arg" ;; esac # case $arg ;; esac # case $arg_mode # Aesthetically quote the previous argument. func_append_quoted base_compile "$lastarg" done # for arg case $arg_mode in arg) func_fatal_error "you must specify an argument for -Xcompile" ;; target) func_fatal_error "you must specify a target with \`-o'" ;; *) # Get the name of the library object. test -z "$libobj" && { func_basename "$srcfile" libobj="$func_basename_result" } ;; esac # Recognize several different file suffixes. # If the user specifies -o file.o, it is replaced with file.lo case $libobj in *.[cCFSifmso] | \ *.ada | *.adb | *.ads | *.asm | \ *.c++ | *.cc | *.ii | *.class | *.cpp | *.cxx | \ *.[fF][09]? | *.for | *.java | *.go | *.obj | *.sx | *.cu | *.cup) func_xform "$libobj" libobj=$func_xform_result ;; esac case $libobj in *.lo) func_lo2o "$libobj"; obj=$func_lo2o_result ;; *) func_fatal_error "cannot determine name of library object from \`$libobj'" ;; esac func_infer_tag $base_compile for arg in $later; do case $arg in -shared) test "$build_libtool_libs" != yes && \ func_fatal_configuration "can not build a shared library" build_old_libs=no continue ;; -static) build_libtool_libs=no build_old_libs=yes continue ;; -prefer-pic) pic_mode=yes continue ;; -prefer-non-pic) pic_mode=no continue ;; esac done func_quote_for_eval "$libobj" test "X$libobj" != "X$func_quote_for_eval_result" \ && $ECHO "X$libobj" | $GREP '[]~#^*{};<>?"'"'"' &()|`$[]' \ && func_warning "libobj name \`$libobj' may not contain shell special characters." func_dirname_and_basename "$obj" "/" "" objname="$func_basename_result" xdir="$func_dirname_result" lobj=${xdir}$objdir/$objname test -z "$base_compile" && \ func_fatal_help "you must specify a compilation command" # Delete any leftover library objects. if test "$build_old_libs" = yes; then removelist="$obj $lobj $libobj ${libobj}T" else removelist="$lobj $libobj ${libobj}T" fi # On Cygwin there's no "real" PIC flag so we must build both object types case $host_os in cygwin* | mingw* | pw32* | os2* | cegcc*) pic_mode=default ;; esac if test "$pic_mode" = no && test "$deplibs_check_method" != pass_all; then # non-PIC code in shared libraries is not supported pic_mode=default fi # Calculate the filename of the output object if compiler does # not support -o with -c if test "$compiler_c_o" = no; then output_obj=`$ECHO "$srcfile" | $SED 's%^.*/%%; s%\.[^.]*$%%'`.${objext} lockfile="$output_obj.lock" else output_obj= need_locks=no lockfile= fi # Lock this critical section if it is needed # We use this script file to make the link, it avoids creating a new file if test "$need_locks" = yes; then until $opt_dry_run || ln "$progpath" "$lockfile" 2>/dev/null; do func_echo "Waiting for $lockfile to be removed" sleep 2 done elif test "$need_locks" = warn; then if test -f "$lockfile"; then $ECHO "\ *** ERROR, $lockfile exists and contains: `cat $lockfile 2>/dev/null` This indicates that another process is trying to use the same temporary object file, and libtool could not work around it because your compiler does not support \`-c' and \`-o' together. If you repeat this compilation, it may succeed, by chance, but you had better avoid parallel builds (make -j) in this platform, or get a better compiler." $opt_dry_run || $RM $removelist exit $EXIT_FAILURE fi func_append removelist " $output_obj" $ECHO "$srcfile" > "$lockfile" fi $opt_dry_run || $RM $removelist func_append removelist " $lockfile" trap '$opt_dry_run || $RM $removelist; exit $EXIT_FAILURE' 1 2 15 func_to_tool_file "$srcfile" func_convert_file_msys_to_w32 srcfile=$func_to_tool_file_result func_quote_for_eval "$srcfile" qsrcfile=$func_quote_for_eval_result # Only build a PIC object if we are building libtool libraries. if test "$build_libtool_libs" = yes; then # Without this assignment, base_compile gets emptied. fbsd_hideous_sh_bug=$base_compile if test "$pic_mode" != no; then command="$base_compile $qsrcfile $pic_flag" else # Don't build PIC code command="$base_compile $qsrcfile" fi func_mkdir_p "$xdir$objdir" if test -z "$output_obj"; then # Place PIC objects in $objdir func_append command " -o $lobj" fi func_show_eval_locale "$command" \ 'test -n "$output_obj" && $RM $removelist; exit $EXIT_FAILURE' if test "$need_locks" = warn && test "X`cat $lockfile 2>/dev/null`" != "X$srcfile"; then $ECHO "\ *** ERROR, $lockfile contains: `cat $lockfile 2>/dev/null` but it should contain: $srcfile This indicates that another process is trying to use the same temporary object file, and libtool could not work around it because your compiler does not support \`-c' and \`-o' together. If you repeat this compilation, it may succeed, by chance, but you had better avoid parallel builds (make -j) in this platform, or get a better compiler." $opt_dry_run || $RM $removelist exit $EXIT_FAILURE fi # Just move the object if needed, then go on to compile the next one if test -n "$output_obj" && test "X$output_obj" != "X$lobj"; then func_show_eval '$MV "$output_obj" "$lobj"' \ 'error=$?; $opt_dry_run || $RM $removelist; exit $error' fi # Allow error messages only from the first compilation. if test "$suppress_opt" = yes; then suppress_output=' >/dev/null 2>&1' fi fi # Only build a position-dependent object if we build old libraries. if test "$build_old_libs" = yes; then if test "$pic_mode" != yes; then # Don't build PIC code command="$base_compile $qsrcfile$pie_flag" else command="$base_compile $qsrcfile $pic_flag" fi if test "$compiler_c_o" = yes; then func_append command " -o $obj" fi # Suppress compiler output if we already did a PIC compilation. func_append command "$suppress_output" func_show_eval_locale "$command" \ '$opt_dry_run || $RM $removelist; exit $EXIT_FAILURE' if test "$need_locks" = warn && test "X`cat $lockfile 2>/dev/null`" != "X$srcfile"; then $ECHO "\ *** ERROR, $lockfile contains: `cat $lockfile 2>/dev/null` but it should contain: $srcfile This indicates that another process is trying to use the same temporary object file, and libtool could not work around it because your compiler does not support \`-c' and \`-o' together. If you repeat this compilation, it may succeed, by chance, but you had better avoid parallel builds (make -j) in this platform, or get a better compiler." $opt_dry_run || $RM $removelist exit $EXIT_FAILURE fi # Just move the object if needed if test -n "$output_obj" && test "X$output_obj" != "X$obj"; then func_show_eval '$MV "$output_obj" "$obj"' \ 'error=$?; $opt_dry_run || $RM $removelist; exit $error' fi fi $opt_dry_run || { func_write_libtool_object "$libobj" "$objdir/$objname" "$objname" # Unlock the critical section if it was locked if test "$need_locks" != no; then removelist=$lockfile $RM "$lockfile" fi } exit $EXIT_SUCCESS } $opt_help || { test "$opt_mode" = compile && func_mode_compile ${1+"$@"} } func_mode_help () { # We need to display help for each of the modes. case $opt_mode in "") # Generic help is extracted from the usage comments # at the start of this file. func_help ;; clean) $ECHO \ "Usage: $progname [OPTION]... --mode=clean RM [RM-OPTION]... FILE... Remove files from the build directory. RM is the name of the program to use to delete files associated with each FILE (typically \`/bin/rm'). RM-OPTIONS are options (such as \`-f') to be passed to RM. If FILE is a libtool library, object or program, all the files associated with it are deleted. Otherwise, only FILE itself is deleted using RM." ;; compile) $ECHO \ "Usage: $progname [OPTION]... --mode=compile COMPILE-COMMAND... SOURCEFILE Compile a source file into a libtool library object. This mode accepts the following additional options: -o OUTPUT-FILE set the output file name to OUTPUT-FILE -no-suppress do not suppress compiler output for multiple passes -prefer-pic try to build PIC objects only -prefer-non-pic try to build non-PIC objects only -shared do not build a \`.o' file suitable for static linking -static only build a \`.o' file suitable for static linking -Wc,FLAG pass FLAG directly to the compiler COMPILE-COMMAND is a command to be used in creating a \`standard' object file from the given SOURCEFILE. The output file name is determined by removing the directory component from SOURCEFILE, then substituting the C source code suffix \`.c' with the library object suffix, \`.lo'." ;; execute) $ECHO \ "Usage: $progname [OPTION]... --mode=execute COMMAND [ARGS]... Automatically set library path, then run a program. This mode accepts the following additional options: -dlopen FILE add the directory containing FILE to the library path This mode sets the library path environment variable according to \`-dlopen' flags. If any of the ARGS are libtool executable wrappers, then they are translated into their corresponding uninstalled binary, and any of their required library directories are added to the library path. Then, COMMAND is executed, with ARGS as arguments." ;; finish) $ECHO \ "Usage: $progname [OPTION]... --mode=finish [LIBDIR]... Complete the installation of libtool libraries. Each LIBDIR is a directory that contains libtool libraries. The commands that this mode executes may require superuser privileges. Use the \`--dry-run' option if you just want to see what would be executed." ;; install) $ECHO \ "Usage: $progname [OPTION]... --mode=install INSTALL-COMMAND... Install executables or libraries. INSTALL-COMMAND is the installation command. The first component should be either the \`install' or \`cp' program. The following components of INSTALL-COMMAND are treated specially: -inst-prefix-dir PREFIX-DIR Use PREFIX-DIR as a staging area for installation The rest of the components are interpreted as arguments to that command (only BSD-compatible install options are recognized)." ;; link) $ECHO \ "Usage: $progname [OPTION]... --mode=link LINK-COMMAND... Link object files or libraries together to form another library, or to create an executable program. LINK-COMMAND is a command using the C compiler that you would use to create a program from several object files. The following components of LINK-COMMAND are treated specially: -all-static do not do any dynamic linking at all -avoid-version do not add a version suffix if possible -bindir BINDIR specify path to binaries directory (for systems where libraries must be found in the PATH setting at runtime) -dlopen FILE \`-dlpreopen' FILE if it cannot be dlopened at runtime -dlpreopen FILE link in FILE and add its symbols to lt_preloaded_symbols -export-dynamic allow symbols from OUTPUT-FILE to be resolved with dlsym(3) -export-symbols SYMFILE try to export only the symbols listed in SYMFILE -export-symbols-regex REGEX try to export only the symbols matching REGEX -LLIBDIR search LIBDIR for required installed libraries -lNAME OUTPUT-FILE requires the installed library libNAME -module build a library that can dlopened -no-fast-install disable the fast-install mode -no-install link a not-installable executable -no-undefined declare that a library does not refer to external symbols -o OUTPUT-FILE create OUTPUT-FILE from the specified objects -objectlist FILE Use a list of object files found in FILE to specify objects -precious-files-regex REGEX don't remove output files matching REGEX -release RELEASE specify package release information -rpath LIBDIR the created library will eventually be installed in LIBDIR -R[ ]LIBDIR add LIBDIR to the runtime path of programs and libraries -shared only do dynamic linking of libtool libraries -shrext SUFFIX override the standard shared library file extension -static do not do any dynamic linking of uninstalled libtool libraries -static-libtool-libs do not do any dynamic linking of libtool libraries -version-info CURRENT[:REVISION[:AGE]] specify library version info [each variable defaults to 0] -weak LIBNAME declare that the target provides the LIBNAME interface -Wc,FLAG -Xcompiler FLAG pass linker-specific FLAG directly to the compiler -Wl,FLAG -Xlinker FLAG pass linker-specific FLAG directly to the linker -XCClinker FLAG pass link-specific FLAG to the compiler driver (CC) All other options (arguments beginning with \`-') are ignored. Every other argument is treated as a filename. Files ending in \`.la' are treated as uninstalled libtool libraries, other files are standard or library object files. If the OUTPUT-FILE ends in \`.la', then a libtool library is created, only library objects (\`.lo' files) may be specified, and \`-rpath' is required, except when creating a convenience library. If OUTPUT-FILE ends in \`.a' or \`.lib', then a standard library is created using \`ar' and \`ranlib', or on Windows using \`lib'. If OUTPUT-FILE ends in \`.lo' or \`.${objext}', then a reloadable object file is created, otherwise an executable program is created." ;; uninstall) $ECHO \ "Usage: $progname [OPTION]... --mode=uninstall RM [RM-OPTION]... FILE... Remove libraries from an installation directory. RM is the name of the program to use to delete files associated with each FILE (typically \`/bin/rm'). RM-OPTIONS are options (such as \`-f') to be passed to RM. If FILE is a libtool library, all the files associated with it are deleted. Otherwise, only FILE itself is deleted using RM." ;; *) func_fatal_help "invalid operation mode \`$opt_mode'" ;; esac echo $ECHO "Try \`$progname --help' for more information about other modes." } # Now that we've collected a possible --mode arg, show help if necessary if $opt_help; then if test "$opt_help" = :; then func_mode_help else { func_help noexit for opt_mode in compile link execute install finish uninstall clean; do func_mode_help done } | sed -n '1p; 2,$s/^Usage:/ or: /p' { func_help noexit for opt_mode in compile link execute install finish uninstall clean; do echo func_mode_help done } | sed '1d /^When reporting/,/^Report/{ H d } $x /information about other modes/d /more detailed .*MODE/d s/^Usage:.*--mode=\([^ ]*\) .*/Description of \1 mode:/' fi exit $? fi # func_mode_execute arg... func_mode_execute () { $opt_debug # The first argument is the command name. cmd="$nonopt" test -z "$cmd" && \ func_fatal_help "you must specify a COMMAND" # Handle -dlopen flags immediately. for file in $opt_dlopen; do test -f "$file" \ || func_fatal_help "\`$file' is not a file" dir= case $file in *.la) func_resolve_sysroot "$file" file=$func_resolve_sysroot_result # Check to see that this really is a libtool archive. func_lalib_unsafe_p "$file" \ || func_fatal_help "\`$lib' is not a valid libtool archive" # Read the libtool library. dlname= library_names= func_source "$file" # Skip this library if it cannot be dlopened. if test -z "$dlname"; then # Warn if it was a shared library. test -n "$library_names" && \ func_warning "\`$file' was not linked with \`-export-dynamic'" continue fi func_dirname "$file" "" "." dir="$func_dirname_result" if test -f "$dir/$objdir/$dlname"; then func_append dir "/$objdir" else if test ! -f "$dir/$dlname"; then func_fatal_error "cannot find \`$dlname' in \`$dir' or \`$dir/$objdir'" fi fi ;; *.lo) # Just add the directory containing the .lo file. func_dirname "$file" "" "." dir="$func_dirname_result" ;; *) func_warning "\`-dlopen' is ignored for non-libtool libraries and objects" continue ;; esac # Get the absolute pathname. absdir=`cd "$dir" && pwd` test -n "$absdir" && dir="$absdir" # Now add the directory to shlibpath_var. if eval "test -z \"\$$shlibpath_var\""; then eval "$shlibpath_var=\"\$dir\"" else eval "$shlibpath_var=\"\$dir:\$$shlibpath_var\"" fi done # This variable tells wrapper scripts just to set shlibpath_var # rather than running their programs. libtool_execute_magic="$magic" # Check if any of the arguments is a wrapper script. args= for file do case $file in -* | *.la | *.lo ) ;; *) # Do a test to see if this is really a libtool program. if func_ltwrapper_script_p "$file"; then func_source "$file" # Transform arg to wrapped name. file="$progdir/$program" elif func_ltwrapper_executable_p "$file"; then func_ltwrapper_scriptname "$file" func_source "$func_ltwrapper_scriptname_result" # Transform arg to wrapped name. file="$progdir/$program" fi ;; esac # Quote arguments (to preserve shell metacharacters). func_append_quoted args "$file" done if test "X$opt_dry_run" = Xfalse; then if test -n "$shlibpath_var"; then # Export the shlibpath_var. eval "export $shlibpath_var" fi # Restore saved environment variables for lt_var in LANG LANGUAGE LC_ALL LC_CTYPE LC_COLLATE LC_MESSAGES do eval "if test \"\${save_$lt_var+set}\" = set; then $lt_var=\$save_$lt_var; export $lt_var else $lt_unset $lt_var fi" done # Now prepare to actually exec the command. exec_cmd="\$cmd$args" else # Display what would be done. if test -n "$shlibpath_var"; then eval "\$ECHO \"\$shlibpath_var=\$$shlibpath_var\"" echo "export $shlibpath_var" fi $ECHO "$cmd$args" exit $EXIT_SUCCESS fi } test "$opt_mode" = execute && func_mode_execute ${1+"$@"} # func_mode_finish arg... func_mode_finish () { $opt_debug libs= libdirs= admincmds= for opt in "$nonopt" ${1+"$@"} do if test -d "$opt"; then func_append libdirs " $opt" elif test -f "$opt"; then if func_lalib_unsafe_p "$opt"; then func_append libs " $opt" else func_warning "\`$opt' is not a valid libtool archive" fi else func_fatal_error "invalid argument \`$opt'" fi done if test -n "$libs"; then if test -n "$lt_sysroot"; then sysroot_regex=`$ECHO "$lt_sysroot" | $SED "$sed_make_literal_regex"` sysroot_cmd="s/\([ ']\)$sysroot_regex/\1/g;" else sysroot_cmd= fi # Remove sysroot references if $opt_dry_run; then for lib in $libs; do echo "removing references to $lt_sysroot and \`=' prefixes from $lib" done else tmpdir=`func_mktempdir` for lib in $libs; do sed -e "${sysroot_cmd} s/\([ ']-[LR]\)=/\1/g; s/\([ ']\)=/\1/g" $lib \ > $tmpdir/tmp-la mv -f $tmpdir/tmp-la $lib done ${RM}r "$tmpdir" fi fi if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then for libdir in $libdirs; do if test -n "$finish_cmds"; then # Do each command in the finish commands. func_execute_cmds "$finish_cmds" 'admincmds="$admincmds '"$cmd"'"' fi if test -n "$finish_eval"; then # Do the single finish_eval. eval cmds=\"$finish_eval\" $opt_dry_run || eval "$cmds" || func_append admincmds " $cmds" fi done fi # Exit here if they wanted silent mode. $opt_silent && exit $EXIT_SUCCESS if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then echo "----------------------------------------------------------------------" echo "Libraries have been installed in:" for libdir in $libdirs; do $ECHO " $libdir" done echo echo "If you ever happen to want to link against installed libraries" echo "in a given directory, LIBDIR, you must either use libtool, and" echo "specify the full pathname of the library, or use the \`-LLIBDIR'" echo "flag during linking and do at least one of the following:" if test -n "$shlibpath_var"; then echo " - add LIBDIR to the \`$shlibpath_var' environment variable" echo " during execution" fi if test -n "$runpath_var"; then echo " - add LIBDIR to the \`$runpath_var' environment variable" echo " during linking" fi if test -n "$hardcode_libdir_flag_spec"; then libdir=LIBDIR eval flag=\"$hardcode_libdir_flag_spec\" $ECHO " - use the \`$flag' linker flag" fi if test -n "$admincmds"; then $ECHO " - have your system administrator run these commands:$admincmds" fi if test -f /etc/ld.so.conf; then echo " - have your system administrator add LIBDIR to \`/etc/ld.so.conf'" fi echo echo "See any operating system documentation about shared libraries for" case $host in solaris2.[6789]|solaris2.1[0-9]) echo "more information, such as the ld(1), crle(1) and ld.so(8) manual" echo "pages." ;; *) echo "more information, such as the ld(1) and ld.so(8) manual pages." ;; esac echo "----------------------------------------------------------------------" fi exit $EXIT_SUCCESS } test "$opt_mode" = finish && func_mode_finish ${1+"$@"} # func_mode_install arg... func_mode_install () { $opt_debug # There may be an optional sh(1) argument at the beginning of # install_prog (especially on Windows NT). if test "$nonopt" = "$SHELL" || test "$nonopt" = /bin/sh || # Allow the use of GNU shtool's install command. case $nonopt in *shtool*) :;; *) false;; esac; then # Aesthetically quote it. func_quote_for_eval "$nonopt" install_prog="$func_quote_for_eval_result " arg=$1 shift else install_prog= arg=$nonopt fi # The real first argument should be the name of the installation program. # Aesthetically quote it. func_quote_for_eval "$arg" func_append install_prog "$func_quote_for_eval_result" install_shared_prog=$install_prog case " $install_prog " in *[\\\ /]cp\ *) install_cp=: ;; *) install_cp=false ;; esac # We need to accept at least all the BSD install flags. dest= files= opts= prev= install_type= isdir=no stripme= no_mode=: for arg do arg2= if test -n "$dest"; then func_append files " $dest" dest=$arg continue fi case $arg in -d) isdir=yes ;; -f) if $install_cp; then :; else prev=$arg fi ;; -g | -m | -o) prev=$arg ;; -s) stripme=" -s" continue ;; -*) ;; *) # If the previous option needed an argument, then skip it. if test -n "$prev"; then if test "x$prev" = x-m && test -n "$install_override_mode"; then arg2=$install_override_mode no_mode=false fi prev= else dest=$arg continue fi ;; esac # Aesthetically quote the argument. func_quote_for_eval "$arg" func_append install_prog " $func_quote_for_eval_result" if test -n "$arg2"; then func_quote_for_eval "$arg2" fi func_append install_shared_prog " $func_quote_for_eval_result" done test -z "$install_prog" && \ func_fatal_help "you must specify an install program" test -n "$prev" && \ func_fatal_help "the \`$prev' option requires an argument" if test -n "$install_override_mode" && $no_mode; then if $install_cp; then :; else func_quote_for_eval "$install_override_mode" func_append install_shared_prog " -m $func_quote_for_eval_result" fi fi if test -z "$files"; then if test -z "$dest"; then func_fatal_help "no file or destination specified" else func_fatal_help "you must specify a destination" fi fi # Strip any trailing slash from the destination. func_stripname '' '/' "$dest" dest=$func_stripname_result # Check to see that the destination is a directory. test -d "$dest" && isdir=yes if test "$isdir" = yes; then destdir="$dest" destname= else func_dirname_and_basename "$dest" "" "." destdir="$func_dirname_result" destname="$func_basename_result" # Not a directory, so check to see that there is only one file specified. set dummy $files; shift test "$#" -gt 1 && \ func_fatal_help "\`$dest' is not a directory" fi case $destdir in [\\/]* | [A-Za-z]:[\\/]*) ;; *) for file in $files; do case $file in *.lo) ;; *) func_fatal_help "\`$destdir' must be an absolute directory name" ;; esac done ;; esac # This variable tells wrapper scripts just to set variables rather # than running their programs. libtool_install_magic="$magic" staticlibs= future_libdirs= current_libdirs= for file in $files; do # Do each installation. case $file in *.$libext) # Do the static libraries later. func_append staticlibs " $file" ;; *.la) func_resolve_sysroot "$file" file=$func_resolve_sysroot_result # Check to see that this really is a libtool archive. func_lalib_unsafe_p "$file" \ || func_fatal_help "\`$file' is not a valid libtool archive" library_names= old_library= relink_command= func_source "$file" # Add the libdir to current_libdirs if it is the destination. if test "X$destdir" = "X$libdir"; then case "$current_libdirs " in *" $libdir "*) ;; *) func_append current_libdirs " $libdir" ;; esac else # Note the libdir as a future libdir. case "$future_libdirs " in *" $libdir "*) ;; *) func_append future_libdirs " $libdir" ;; esac fi func_dirname "$file" "/" "" dir="$func_dirname_result" func_append dir "$objdir" if test -n "$relink_command"; then # Determine the prefix the user has applied to our future dir. inst_prefix_dir=`$ECHO "$destdir" | $SED -e "s%$libdir\$%%"` # Don't allow the user to place us outside of our expected # location b/c this prevents finding dependent libraries that # are installed to the same prefix. # At present, this check doesn't affect windows .dll's that # are installed into $libdir/../bin (currently, that works fine) # but it's something to keep an eye on. test "$inst_prefix_dir" = "$destdir" && \ func_fatal_error "error: cannot install \`$file' to a directory not ending in $libdir" if test -n "$inst_prefix_dir"; then # Stick the inst_prefix_dir data into the link command. relink_command=`$ECHO "$relink_command" | $SED "s%@inst_prefix_dir@%-inst-prefix-dir $inst_prefix_dir%"` else relink_command=`$ECHO "$relink_command" | $SED "s%@inst_prefix_dir@%%"` fi func_warning "relinking \`$file'" func_show_eval "$relink_command" \ 'func_fatal_error "error: relink \`$file'\'' with the above command before installing it"' fi # See the names of the shared library. set dummy $library_names; shift if test -n "$1"; then realname="$1" shift srcname="$realname" test -n "$relink_command" && srcname="$realname"T # Install the shared library and build the symlinks. func_show_eval "$install_shared_prog $dir/$srcname $destdir/$realname" \ 'exit $?' tstripme="$stripme" case $host_os in cygwin* | mingw* | pw32* | cegcc*) case $realname in *.dll.a) tstripme="" ;; esac ;; esac if test -n "$tstripme" && test -n "$striplib"; then func_show_eval "$striplib $destdir/$realname" 'exit $?' fi if test "$#" -gt 0; then # Delete the old symlinks, and create new ones. # Try `ln -sf' first, because the `ln' binary might depend on # the symlink we replace! Solaris /bin/ln does not understand -f, # so we also need to try rm && ln -s. for linkname do test "$linkname" != "$realname" \ && func_show_eval "(cd $destdir && { $LN_S -f $realname $linkname || { $RM $linkname && $LN_S $realname $linkname; }; })" done fi # Do each command in the postinstall commands. lib="$destdir/$realname" func_execute_cmds "$postinstall_cmds" 'exit $?' fi # Install the pseudo-library for information purposes. func_basename "$file" name="$func_basename_result" instname="$dir/$name"i func_show_eval "$install_prog $instname $destdir/$name" 'exit $?' # Maybe install the static library, too. test -n "$old_library" && func_append staticlibs " $dir/$old_library" ;; *.lo) # Install (i.e. copy) a libtool object. # Figure out destination file name, if it wasn't already specified. if test -n "$destname"; then destfile="$destdir/$destname" else func_basename "$file" destfile="$func_basename_result" destfile="$destdir/$destfile" fi # Deduce the name of the destination old-style object file. case $destfile in *.lo) func_lo2o "$destfile" staticdest=$func_lo2o_result ;; *.$objext) staticdest="$destfile" destfile= ;; *) func_fatal_help "cannot copy a libtool object to \`$destfile'" ;; esac # Install the libtool object if requested. test -n "$destfile" && \ func_show_eval "$install_prog $file $destfile" 'exit $?' # Install the old object if enabled. if test "$build_old_libs" = yes; then # Deduce the name of the old-style object file. func_lo2o "$file" staticobj=$func_lo2o_result func_show_eval "$install_prog \$staticobj \$staticdest" 'exit $?' fi exit $EXIT_SUCCESS ;; *) # Figure out destination file name, if it wasn't already specified. if test -n "$destname"; then destfile="$destdir/$destname" else func_basename "$file" destfile="$func_basename_result" destfile="$destdir/$destfile" fi # If the file is missing, and there is a .exe on the end, strip it # because it is most likely a libtool script we actually want to # install stripped_ext="" case $file in *.exe) if test ! -f "$file"; then func_stripname '' '.exe' "$file" file=$func_stripname_result stripped_ext=".exe" fi ;; esac # Do a test to see if this is really a libtool program. case $host in *cygwin* | *mingw*) if func_ltwrapper_executable_p "$file"; then func_ltwrapper_scriptname "$file" wrapper=$func_ltwrapper_scriptname_result else func_stripname '' '.exe' "$file" wrapper=$func_stripname_result fi ;; *) wrapper=$file ;; esac if func_ltwrapper_script_p "$wrapper"; then notinst_deplibs= relink_command= func_source "$wrapper" # Check the variables that should have been set. test -z "$generated_by_libtool_version" && \ func_fatal_error "invalid libtool wrapper script \`$wrapper'" finalize=yes for lib in $notinst_deplibs; do # Check to see that each library is installed. libdir= if test -f "$lib"; then func_source "$lib" fi libfile="$libdir/"`$ECHO "$lib" | $SED 's%^.*/%%g'` ### testsuite: skip nested quoting test if test -n "$libdir" && test ! -f "$libfile"; then func_warning "\`$lib' has not been installed in \`$libdir'" finalize=no fi done relink_command= func_source "$wrapper" outputname= if test "$fast_install" = no && test -n "$relink_command"; then $opt_dry_run || { if test "$finalize" = yes; then tmpdir=`func_mktempdir` func_basename "$file$stripped_ext" file="$func_basename_result" outputname="$tmpdir/$file" # Replace the output file specification. relink_command=`$ECHO "$relink_command" | $SED 's%@OUTPUT@%'"$outputname"'%g'` $opt_silent || { func_quote_for_expand "$relink_command" eval "func_echo $func_quote_for_expand_result" } if eval "$relink_command"; then : else func_error "error: relink \`$file' with the above command before installing it" $opt_dry_run || ${RM}r "$tmpdir" continue fi file="$outputname" else func_warning "cannot relink \`$file'" fi } else # Install the binary that we compiled earlier. file=`$ECHO "$file$stripped_ext" | $SED "s%\([^/]*\)$%$objdir/\1%"` fi fi # remove .exe since cygwin /usr/bin/install will append another # one anyway case $install_prog,$host in */usr/bin/install*,*cygwin*) case $file:$destfile in *.exe:*.exe) # this is ok ;; *.exe:*) destfile=$destfile.exe ;; *:*.exe) func_stripname '' '.exe' "$destfile" destfile=$func_stripname_result ;; esac ;; esac func_show_eval "$install_prog\$stripme \$file \$destfile" 'exit $?' $opt_dry_run || if test -n "$outputname"; then ${RM}r "$tmpdir" fi ;; esac done for file in $staticlibs; do func_basename "$file" name="$func_basename_result" # Set up the ranlib parameters. oldlib="$destdir/$name" func_to_tool_file "$oldlib" func_convert_file_msys_to_w32 tool_oldlib=$func_to_tool_file_result func_show_eval "$install_prog \$file \$oldlib" 'exit $?' if test -n "$stripme" && test -n "$old_striplib"; then func_show_eval "$old_striplib $tool_oldlib" 'exit $?' fi # Do each command in the postinstall commands. func_execute_cmds "$old_postinstall_cmds" 'exit $?' done test -n "$future_libdirs" && \ func_warning "remember to run \`$progname --finish$future_libdirs'" if test -n "$current_libdirs"; then # Maybe just do a dry run. $opt_dry_run && current_libdirs=" -n$current_libdirs" exec_cmd='$SHELL $progpath $preserve_args --finish$current_libdirs' else exit $EXIT_SUCCESS fi } test "$opt_mode" = install && func_mode_install ${1+"$@"} # func_generate_dlsyms outputname originator pic_p # Extract symbols from dlprefiles and create ${outputname}S.o with # a dlpreopen symbol table. func_generate_dlsyms () { $opt_debug my_outputname="$1" my_originator="$2" my_pic_p="${3-no}" my_prefix=`$ECHO "$my_originator" | sed 's%[^a-zA-Z0-9]%_%g'` my_dlsyms= if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then if test -n "$NM" && test -n "$global_symbol_pipe"; then my_dlsyms="${my_outputname}S.c" else func_error "not configured to extract global symbols from dlpreopened files" fi fi if test -n "$my_dlsyms"; then case $my_dlsyms in "") ;; *.c) # Discover the nlist of each of the dlfiles. nlist="$output_objdir/${my_outputname}.nm" func_show_eval "$RM $nlist ${nlist}S ${nlist}T" # Parse the name list into a source file. func_verbose "creating $output_objdir/$my_dlsyms" $opt_dry_run || $ECHO > "$output_objdir/$my_dlsyms" "\ /* $my_dlsyms - symbol resolution table for \`$my_outputname' dlsym emulation. */ /* Generated by $PROGRAM (GNU $PACKAGE$TIMESTAMP) $VERSION */ #ifdef __cplusplus extern \"C\" { #endif #if defined(__GNUC__) && (((__GNUC__ == 4) && (__GNUC_MINOR__ >= 4)) || (__GNUC__ > 4)) #pragma GCC diagnostic ignored \"-Wstrict-prototypes\" #endif /* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */ #if defined(_WIN32) || defined(__CYGWIN__) || defined(_WIN32_WCE) /* DATA imports from DLLs on WIN32 con't be const, because runtime relocations are performed -- see ld's documentation on pseudo-relocs. */ # define LT_DLSYM_CONST #elif defined(__osf__) /* This system does not cope well with relocations in const data. */ # define LT_DLSYM_CONST #else # define LT_DLSYM_CONST const #endif /* External symbol declarations for the compiler. */\ " if test "$dlself" = yes; then func_verbose "generating symbol list for \`$output'" $opt_dry_run || echo ': @PROGRAM@ ' > "$nlist" # Add our own program objects to the symbol list. progfiles=`$ECHO "$objs$old_deplibs" | $SP2NL | $SED "$lo2o" | $NL2SP` for progfile in $progfiles; do func_to_tool_file "$progfile" func_convert_file_msys_to_w32 func_verbose "extracting global C symbols from \`$func_to_tool_file_result'" $opt_dry_run || eval "$NM $func_to_tool_file_result | $global_symbol_pipe >> '$nlist'" done if test -n "$exclude_expsyms"; then $opt_dry_run || { eval '$EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T' eval '$MV "$nlist"T "$nlist"' } fi if test -n "$export_symbols_regex"; then $opt_dry_run || { eval '$EGREP -e "$export_symbols_regex" "$nlist" > "$nlist"T' eval '$MV "$nlist"T "$nlist"' } fi # Prepare the list of exported symbols if test -z "$export_symbols"; then export_symbols="$output_objdir/$outputname.exp" $opt_dry_run || { $RM $export_symbols eval "${SED} -n -e '/^: @PROGRAM@ $/d' -e 's/^.* \(.*\)$/\1/p' "'< "$nlist" > "$export_symbols"' case $host in *cygwin* | *mingw* | *cegcc* ) eval "echo EXPORTS "'> "$output_objdir/$outputname.def"' eval 'cat "$export_symbols" >> "$output_objdir/$outputname.def"' ;; esac } else $opt_dry_run || { eval "${SED} -e 's/\([].[*^$]\)/\\\\\1/g' -e 's/^/ /' -e 's/$/$/'"' < "$export_symbols" > "$output_objdir/$outputname.exp"' eval '$GREP -f "$output_objdir/$outputname.exp" < "$nlist" > "$nlist"T' eval '$MV "$nlist"T "$nlist"' case $host in *cygwin* | *mingw* | *cegcc* ) eval "echo EXPORTS "'> "$output_objdir/$outputname.def"' eval 'cat "$nlist" >> "$output_objdir/$outputname.def"' ;; esac } fi fi for dlprefile in $dlprefiles; do func_verbose "extracting global C symbols from \`$dlprefile'" func_basename "$dlprefile" name="$func_basename_result" case $host in *cygwin* | *mingw* | *cegcc* ) # if an import library, we need to obtain dlname if func_win32_import_lib_p "$dlprefile"; then func_tr_sh "$dlprefile" eval "curr_lafile=\$libfile_$func_tr_sh_result" dlprefile_dlbasename="" if test -n "$curr_lafile" && func_lalib_p "$curr_lafile"; then # Use subshell, to avoid clobbering current variable values dlprefile_dlname=`source "$curr_lafile" && echo "$dlname"` if test -n "$dlprefile_dlname" ; then func_basename "$dlprefile_dlname" dlprefile_dlbasename="$func_basename_result" else # no lafile. user explicitly requested -dlpreopen . $sharedlib_from_linklib_cmd "$dlprefile" dlprefile_dlbasename=$sharedlib_from_linklib_result fi fi $opt_dry_run || { if test -n "$dlprefile_dlbasename" ; then eval '$ECHO ": $dlprefile_dlbasename" >> "$nlist"' else func_warning "Could not compute DLL name from $name" eval '$ECHO ": $name " >> "$nlist"' fi func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32 eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe | $SED -e '/I __imp/d' -e 's/I __nm_/D /;s/_nm__//' >> '$nlist'" } else # not an import lib $opt_dry_run || { eval '$ECHO ": $name " >> "$nlist"' func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32 eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe >> '$nlist'" } fi ;; *) $opt_dry_run || { eval '$ECHO ": $name " >> "$nlist"' func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32 eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe >> '$nlist'" } ;; esac done $opt_dry_run || { # Make sure we have at least an empty file. test -f "$nlist" || : > "$nlist" if test -n "$exclude_expsyms"; then $EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T $MV "$nlist"T "$nlist" fi # Try sorting and uniquifying the output. if $GREP -v "^: " < "$nlist" | if sort -k 3 /dev/null 2>&1; then sort -k 3 else sort +2 fi | uniq > "$nlist"S; then : else $GREP -v "^: " < "$nlist" > "$nlist"S fi if test -f "$nlist"S; then eval "$global_symbol_to_cdecl"' < "$nlist"S >> "$output_objdir/$my_dlsyms"' else echo '/* NONE */' >> "$output_objdir/$my_dlsyms" fi echo >> "$output_objdir/$my_dlsyms" "\ /* The mapping between symbol names and symbols. */ typedef struct { const char *name; void *address; } lt_dlsymlist; extern LT_DLSYM_CONST lt_dlsymlist lt_${my_prefix}_LTX_preloaded_symbols[]; LT_DLSYM_CONST lt_dlsymlist lt_${my_prefix}_LTX_preloaded_symbols[] = {\ { \"$my_originator\", (void *) 0 }," case $need_lib_prefix in no) eval "$global_symbol_to_c_name_address" < "$nlist" >> "$output_objdir/$my_dlsyms" ;; *) eval "$global_symbol_to_c_name_address_lib_prefix" < "$nlist" >> "$output_objdir/$my_dlsyms" ;; esac echo >> "$output_objdir/$my_dlsyms" "\ {0, (void *) 0} }; /* This works around a problem in FreeBSD linker */ #ifdef FREEBSD_WORKAROUND static const void *lt_preloaded_setup() { return lt_${my_prefix}_LTX_preloaded_symbols; } #endif #ifdef __cplusplus } #endif\ " } # !$opt_dry_run pic_flag_for_symtable= case "$compile_command " in *" -static "*) ;; *) case $host in # compiling the symbol table file with pic_flag works around # a FreeBSD bug that causes programs to crash when -lm is # linked before any other PIC object. But we must not use # pic_flag when linking with -static. The problem exists in # FreeBSD 2.2.6 and is fixed in FreeBSD 3.1. *-*-freebsd2.*|*-*-freebsd3.0*|*-*-freebsdelf3.0*) pic_flag_for_symtable=" $pic_flag -DFREEBSD_WORKAROUND" ;; *-*-hpux*) pic_flag_for_symtable=" $pic_flag" ;; *) if test "X$my_pic_p" != Xno; then pic_flag_for_symtable=" $pic_flag" fi ;; esac ;; esac symtab_cflags= for arg in $LTCFLAGS; do case $arg in -pie | -fpie | -fPIE) ;; *) func_append symtab_cflags " $arg" ;; esac done # Now compile the dynamic symbol file. func_show_eval '(cd $output_objdir && $LTCC$symtab_cflags -c$no_builtin_flag$pic_flag_for_symtable "$my_dlsyms")' 'exit $?' # Clean up the generated files. func_show_eval '$RM "$output_objdir/$my_dlsyms" "$nlist" "${nlist}S" "${nlist}T"' # Transform the symbol file into the correct name. symfileobj="$output_objdir/${my_outputname}S.$objext" case $host in *cygwin* | *mingw* | *cegcc* ) if test -f "$output_objdir/$my_outputname.def"; then compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$output_objdir/$my_outputname.def $symfileobj%"` finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$output_objdir/$my_outputname.def $symfileobj%"` else compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$symfileobj%"` finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$symfileobj%"` fi ;; *) compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$symfileobj%"` finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$symfileobj%"` ;; esac ;; *) func_fatal_error "unknown suffix for \`$my_dlsyms'" ;; esac else # We keep going just in case the user didn't refer to # lt_preloaded_symbols. The linker will fail if global_symbol_pipe # really was required. # Nullify the symbol file. compile_command=`$ECHO "$compile_command" | $SED "s% @SYMFILE@%%"` finalize_command=`$ECHO "$finalize_command" | $SED "s% @SYMFILE@%%"` fi } # func_win32_libid arg # return the library type of file 'arg' # # Need a lot of goo to handle *both* DLLs and import libs # Has to be a shell function in order to 'eat' the argument # that is supplied when $file_magic_command is called. # Despite the name, also deal with 64 bit binaries. func_win32_libid () { $opt_debug win32_libid_type="unknown" win32_fileres=`file -L $1 2>/dev/null` case $win32_fileres in *ar\ archive\ import\ library*) # definitely import win32_libid_type="x86 archive import" ;; *ar\ archive*) # could be an import, or static # Keep the egrep pattern in sync with the one in _LT_CHECK_MAGIC_METHOD. if eval $OBJDUMP -f $1 | $SED -e '10q' 2>/dev/null | $EGREP 'file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)' >/dev/null; then func_to_tool_file "$1" func_convert_file_msys_to_w32 win32_nmres=`eval $NM -f posix -A \"$func_to_tool_file_result\" | $SED -n -e ' 1,100{ / I /{ s,.*,import, p q } }'` case $win32_nmres in import*) win32_libid_type="x86 archive import";; *) win32_libid_type="x86 archive static";; esac fi ;; *DLL*) win32_libid_type="x86 DLL" ;; *executable*) # but shell scripts are "executable" too... case $win32_fileres in *MS\ Windows\ PE\ Intel*) win32_libid_type="x86 DLL" ;; esac ;; esac $ECHO "$win32_libid_type" } # func_cygming_dll_for_implib ARG # # Platform-specific function to extract the # name of the DLL associated with the specified # import library ARG. # Invoked by eval'ing the libtool variable # $sharedlib_from_linklib_cmd # Result is available in the variable # $sharedlib_from_linklib_result func_cygming_dll_for_implib () { $opt_debug sharedlib_from_linklib_result=`$DLLTOOL --identify-strict --identify "$1"` } # func_cygming_dll_for_implib_fallback_core SECTION_NAME LIBNAMEs # # The is the core of a fallback implementation of a # platform-specific function to extract the name of the # DLL associated with the specified import library LIBNAME. # # SECTION_NAME is either .idata$6 or .idata$7, depending # on the platform and compiler that created the implib. # # Echos the name of the DLL associated with the # specified import library. func_cygming_dll_for_implib_fallback_core () { $opt_debug match_literal=`$ECHO "$1" | $SED "$sed_make_literal_regex"` $OBJDUMP -s --section "$1" "$2" 2>/dev/null | $SED '/^Contents of section '"$match_literal"':/{ # Place marker at beginning of archive member dllname section s/.*/====MARK====/ p d } # These lines can sometimes be longer than 43 characters, but # are always uninteresting /:[ ]*file format pe[i]\{,1\}-/d /^In archive [^:]*:/d # Ensure marker is printed /^====MARK====/p # Remove all lines with less than 43 characters /^.\{43\}/!d # From remaining lines, remove first 43 characters s/^.\{43\}//' | $SED -n ' # Join marker and all lines until next marker into a single line /^====MARK====/ b para H $ b para b :para x s/\n//g # Remove the marker s/^====MARK====// # Remove trailing dots and whitespace s/[\. \t]*$// # Print /./p' | # we now have a list, one entry per line, of the stringified # contents of the appropriate section of all members of the # archive which possess that section. Heuristic: eliminate # all those which have a first or second character that is # a '.' (that is, objdump's representation of an unprintable # character.) This should work for all archives with less than # 0x302f exports -- but will fail for DLLs whose name actually # begins with a literal '.' or a single character followed by # a '.'. # # Of those that remain, print the first one. $SED -e '/^\./d;/^.\./d;q' } # func_cygming_gnu_implib_p ARG # This predicate returns with zero status (TRUE) if # ARG is a GNU/binutils-style import library. Returns # with nonzero status (FALSE) otherwise. func_cygming_gnu_implib_p () { $opt_debug func_to_tool_file "$1" func_convert_file_msys_to_w32 func_cygming_gnu_implib_tmp=`$NM "$func_to_tool_file_result" | eval "$global_symbol_pipe" | $EGREP ' (_head_[A-Za-z0-9_]+_[ad]l*|[A-Za-z0-9_]+_[ad]l*_iname)$'` test -n "$func_cygming_gnu_implib_tmp" } # func_cygming_ms_implib_p ARG # This predicate returns with zero status (TRUE) if # ARG is an MS-style import library. Returns # with nonzero status (FALSE) otherwise. func_cygming_ms_implib_p () { $opt_debug func_to_tool_file "$1" func_convert_file_msys_to_w32 func_cygming_ms_implib_tmp=`$NM "$func_to_tool_file_result" | eval "$global_symbol_pipe" | $GREP '_NULL_IMPORT_DESCRIPTOR'` test -n "$func_cygming_ms_implib_tmp" } # func_cygming_dll_for_implib_fallback ARG # Platform-specific function to extract the # name of the DLL associated with the specified # import library ARG. # # This fallback implementation is for use when $DLLTOOL # does not support the --identify-strict option. # Invoked by eval'ing the libtool variable # $sharedlib_from_linklib_cmd # Result is available in the variable # $sharedlib_from_linklib_result func_cygming_dll_for_implib_fallback () { $opt_debug if func_cygming_gnu_implib_p "$1" ; then # binutils import library sharedlib_from_linklib_result=`func_cygming_dll_for_implib_fallback_core '.idata$7' "$1"` elif func_cygming_ms_implib_p "$1" ; then # ms-generated import library sharedlib_from_linklib_result=`func_cygming_dll_for_implib_fallback_core '.idata$6' "$1"` else # unknown sharedlib_from_linklib_result="" fi } # func_extract_an_archive dir oldlib func_extract_an_archive () { $opt_debug f_ex_an_ar_dir="$1"; shift f_ex_an_ar_oldlib="$1" if test "$lock_old_archive_extraction" = yes; then lockfile=$f_ex_an_ar_oldlib.lock until $opt_dry_run || ln "$progpath" "$lockfile" 2>/dev/null; do func_echo "Waiting for $lockfile to be removed" sleep 2 done fi func_show_eval "(cd \$f_ex_an_ar_dir && $AR x \"\$f_ex_an_ar_oldlib\")" \ 'stat=$?; rm -f "$lockfile"; exit $stat' if test "$lock_old_archive_extraction" = yes; then $opt_dry_run || rm -f "$lockfile" fi if ($AR t "$f_ex_an_ar_oldlib" | sort | sort -uc >/dev/null 2>&1); then : else func_fatal_error "object name conflicts in archive: $f_ex_an_ar_dir/$f_ex_an_ar_oldlib" fi } # func_extract_archives gentop oldlib ... func_extract_archives () { $opt_debug my_gentop="$1"; shift my_oldlibs=${1+"$@"} my_oldobjs="" my_xlib="" my_xabs="" my_xdir="" for my_xlib in $my_oldlibs; do # Extract the objects. case $my_xlib in [\\/]* | [A-Za-z]:[\\/]*) my_xabs="$my_xlib" ;; *) my_xabs=`pwd`"/$my_xlib" ;; esac func_basename "$my_xlib" my_xlib="$func_basename_result" my_xlib_u=$my_xlib while :; do case " $extracted_archives " in *" $my_xlib_u "*) func_arith $extracted_serial + 1 extracted_serial=$func_arith_result my_xlib_u=lt$extracted_serial-$my_xlib ;; *) break ;; esac done extracted_archives="$extracted_archives $my_xlib_u" my_xdir="$my_gentop/$my_xlib_u" func_mkdir_p "$my_xdir" case $host in *-darwin*) func_verbose "Extracting $my_xabs" # Do not bother doing anything if just a dry run $opt_dry_run || { darwin_orig_dir=`pwd` cd $my_xdir || exit $? darwin_archive=$my_xabs darwin_curdir=`pwd` darwin_base_archive=`basename "$darwin_archive"` darwin_arches=`$LIPO -info "$darwin_archive" 2>/dev/null | $GREP Architectures 2>/dev/null || true` if test -n "$darwin_arches"; then darwin_arches=`$ECHO "$darwin_arches" | $SED -e 's/.*are://'` darwin_arch= func_verbose "$darwin_base_archive has multiple architectures $darwin_arches" for darwin_arch in $darwin_arches ; do func_mkdir_p "unfat-$$/${darwin_base_archive}-${darwin_arch}" $LIPO -thin $darwin_arch -output "unfat-$$/${darwin_base_archive}-${darwin_arch}/${darwin_base_archive}" "${darwin_archive}" cd "unfat-$$/${darwin_base_archive}-${darwin_arch}" func_extract_an_archive "`pwd`" "${darwin_base_archive}" cd "$darwin_curdir" $RM "unfat-$$/${darwin_base_archive}-${darwin_arch}/${darwin_base_archive}" done # $darwin_arches ## Okay now we've a bunch of thin objects, gotta fatten them up :) darwin_filelist=`find unfat-$$ -type f -name \*.o -print -o -name \*.lo -print | $SED -e "$basename" | sort -u` darwin_file= darwin_files= for darwin_file in $darwin_filelist; do darwin_files=`find unfat-$$ -name $darwin_file -print | sort | $NL2SP` $LIPO -create -output "$darwin_file" $darwin_files done # $darwin_filelist $RM -rf unfat-$$ cd "$darwin_orig_dir" else cd $darwin_orig_dir func_extract_an_archive "$my_xdir" "$my_xabs" fi # $darwin_arches } # !$opt_dry_run ;; *) func_extract_an_archive "$my_xdir" "$my_xabs" ;; esac my_oldobjs="$my_oldobjs "`find $my_xdir -name \*.$objext -print -o -name \*.lo -print | sort | $NL2SP` done func_extract_archives_result="$my_oldobjs" } # func_emit_wrapper [arg=no] # # Emit a libtool wrapper script on stdout. # Don't directly open a file because we may want to # incorporate the script contents within a cygwin/mingw # wrapper executable. Must ONLY be called from within # func_mode_link because it depends on a number of variables # set therein. # # ARG is the value that the WRAPPER_SCRIPT_BELONGS_IN_OBJDIR # variable will take. If 'yes', then the emitted script # will assume that the directory in which it is stored is # the $objdir directory. This is a cygwin/mingw-specific # behavior. func_emit_wrapper () { func_emit_wrapper_arg1=${1-no} $ECHO "\ #! $SHELL # $output - temporary wrapper script for $objdir/$outputname # Generated by $PROGRAM (GNU $PACKAGE$TIMESTAMP) $VERSION # # The $output program cannot be directly executed until all the libtool # libraries that it depends on are installed. # # This wrapper script should never be moved out of the build directory. # If it is, it will not operate correctly. # Sed substitution that helps us do robust quoting. It backslashifies # metacharacters that are still active within double-quoted strings. sed_quote_subst='$sed_quote_subst' # Be Bourne compatible if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs word splitting on \${1+\"\$@\"}, which # is contrary to our usage. Disable this feature. alias -g '\${1+\"\$@\"}'='\"\$@\"' setopt NO_GLOB_SUBST else case \`(set -o) 2>/dev/null\` in *posix*) set -o posix;; esac fi BIN_SH=xpg4; export BIN_SH # for Tru64 DUALCASE=1; export DUALCASE # for MKS sh # The HP-UX ksh and POSIX shell print the target directory to stdout # if CDPATH is set. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH relink_command=\"$relink_command\" # This environment variable determines our operation mode. if test \"\$libtool_install_magic\" = \"$magic\"; then # install mode needs the following variables: generated_by_libtool_version='$macro_version' notinst_deplibs='$notinst_deplibs' else # When we are sourced in execute mode, \$file and \$ECHO are already set. if test \"\$libtool_execute_magic\" != \"$magic\"; then file=\"\$0\"" qECHO=`$ECHO "$ECHO" | $SED "$sed_quote_subst"` $ECHO "\ # A function that is used when there is no print builtin or printf. func_fallback_echo () { eval 'cat <<_LTECHO_EOF \$1 _LTECHO_EOF' } ECHO=\"$qECHO\" fi # Very basic option parsing. These options are (a) specific to # the libtool wrapper, (b) are identical between the wrapper # /script/ and the wrapper /executable/ which is used only on # windows platforms, and (c) all begin with the string "--lt-" # (application programs are unlikely to have options which match # this pattern). # # There are only two supported options: --lt-debug and # --lt-dump-script. There is, deliberately, no --lt-help. # # The first argument to this parsing function should be the # script's $0 value, followed by "$@". lt_option_debug= func_parse_lt_options () { lt_script_arg0=\$0 shift for lt_opt do case \"\$lt_opt\" in --lt-debug) lt_option_debug=1 ;; --lt-dump-script) lt_dump_D=\`\$ECHO \"X\$lt_script_arg0\" | $SED -e 's/^X//' -e 's%/[^/]*$%%'\` test \"X\$lt_dump_D\" = \"X\$lt_script_arg0\" && lt_dump_D=. lt_dump_F=\`\$ECHO \"X\$lt_script_arg0\" | $SED -e 's/^X//' -e 's%^.*/%%'\` cat \"\$lt_dump_D/\$lt_dump_F\" exit 0 ;; --lt-*) \$ECHO \"Unrecognized --lt- option: '\$lt_opt'\" 1>&2 exit 1 ;; esac done # Print the debug banner immediately: if test -n \"\$lt_option_debug\"; then echo \"${outputname}:${output}:\${LINENO}: libtool wrapper (GNU $PACKAGE$TIMESTAMP) $VERSION\" 1>&2 fi } # Used when --lt-debug. Prints its arguments to stdout # (redirection is the responsibility of the caller) func_lt_dump_args () { lt_dump_args_N=1; for lt_arg do \$ECHO \"${outputname}:${output}:\${LINENO}: newargv[\$lt_dump_args_N]: \$lt_arg\" lt_dump_args_N=\`expr \$lt_dump_args_N + 1\` done } # Core function for launching the target application func_exec_program_core () { " case $host in # Backslashes separate directories on plain windows *-*-mingw | *-*-os2* | *-cegcc*) $ECHO "\ if test -n \"\$lt_option_debug\"; then \$ECHO \"${outputname}:${output}:\${LINENO}: newargv[0]: \$progdir\\\\\$program\" 1>&2 func_lt_dump_args \${1+\"\$@\"} 1>&2 fi exec \"\$progdir\\\\\$program\" \${1+\"\$@\"} " ;; *) $ECHO "\ if test -n \"\$lt_option_debug\"; then \$ECHO \"${outputname}:${output}:\${LINENO}: newargv[0]: \$progdir/\$program\" 1>&2 func_lt_dump_args \${1+\"\$@\"} 1>&2 fi exec \"\$progdir/\$program\" \${1+\"\$@\"} " ;; esac $ECHO "\ \$ECHO \"\$0: cannot exec \$program \$*\" 1>&2 exit 1 } # A function to encapsulate launching the target application # Strips options in the --lt-* namespace from \$@ and # launches target application with the remaining arguments. func_exec_program () { case \" \$* \" in *\\ --lt-*) for lt_wr_arg do case \$lt_wr_arg in --lt-*) ;; *) set x \"\$@\" \"\$lt_wr_arg\"; shift;; esac shift done ;; esac func_exec_program_core \${1+\"\$@\"} } # Parse options func_parse_lt_options \"\$0\" \${1+\"\$@\"} # Find the directory that this script lives in. thisdir=\`\$ECHO \"\$file\" | $SED 's%/[^/]*$%%'\` test \"x\$thisdir\" = \"x\$file\" && thisdir=. # Follow symbolic links until we get to the real thisdir. file=\`ls -ld \"\$file\" | $SED -n 's/.*-> //p'\` while test -n \"\$file\"; do destdir=\`\$ECHO \"\$file\" | $SED 's%/[^/]*\$%%'\` # If there was a directory component, then change thisdir. if test \"x\$destdir\" != \"x\$file\"; then case \"\$destdir\" in [\\\\/]* | [A-Za-z]:[\\\\/]*) thisdir=\"\$destdir\" ;; *) thisdir=\"\$thisdir/\$destdir\" ;; esac fi file=\`\$ECHO \"\$file\" | $SED 's%^.*/%%'\` file=\`ls -ld \"\$thisdir/\$file\" | $SED -n 's/.*-> //p'\` done # Usually 'no', except on cygwin/mingw when embedded into # the cwrapper. WRAPPER_SCRIPT_BELONGS_IN_OBJDIR=$func_emit_wrapper_arg1 if test \"\$WRAPPER_SCRIPT_BELONGS_IN_OBJDIR\" = \"yes\"; then # special case for '.' if test \"\$thisdir\" = \".\"; then thisdir=\`pwd\` fi # remove .libs from thisdir case \"\$thisdir\" in *[\\\\/]$objdir ) thisdir=\`\$ECHO \"\$thisdir\" | $SED 's%[\\\\/][^\\\\/]*$%%'\` ;; $objdir ) thisdir=. ;; esac fi # Try to get the absolute directory name. absdir=\`cd \"\$thisdir\" && pwd\` test -n \"\$absdir\" && thisdir=\"\$absdir\" " if test "$fast_install" = yes; then $ECHO "\ program=lt-'$outputname'$exeext progdir=\"\$thisdir/$objdir\" if test ! -f \"\$progdir/\$program\" || { file=\`ls -1dt \"\$progdir/\$program\" \"\$progdir/../\$program\" 2>/dev/null | ${SED} 1q\`; \\ test \"X\$file\" != \"X\$progdir/\$program\"; }; then file=\"\$\$-\$program\" if test ! -d \"\$progdir\"; then $MKDIR \"\$progdir\" else $RM \"\$progdir/\$file\" fi" $ECHO "\ # relink executable if necessary if test -n \"\$relink_command\"; then if relink_command_output=\`eval \$relink_command 2>&1\`; then : else $ECHO \"\$relink_command_output\" >&2 $RM \"\$progdir/\$file\" exit 1 fi fi $MV \"\$progdir/\$file\" \"\$progdir/\$program\" 2>/dev/null || { $RM \"\$progdir/\$program\"; $MV \"\$progdir/\$file\" \"\$progdir/\$program\"; } $RM \"\$progdir/\$file\" fi" else $ECHO "\ program='$outputname' progdir=\"\$thisdir/$objdir\" " fi $ECHO "\ if test -f \"\$progdir/\$program\"; then" # fixup the dll searchpath if we need to. # # Fix the DLL searchpath if we need to. Do this before prepending # to shlibpath, because on Windows, both are PATH and uninstalled # libraries must come first. if test -n "$dllsearchpath"; then $ECHO "\ # Add the dll search path components to the executable PATH PATH=$dllsearchpath:\$PATH " fi # Export our shlibpath_var if we have one. if test "$shlibpath_overrides_runpath" = yes && test -n "$shlibpath_var" && test -n "$temp_rpath"; then $ECHO "\ # Add our own library path to $shlibpath_var $shlibpath_var=\"$temp_rpath\$$shlibpath_var\" # Some systems cannot cope with colon-terminated $shlibpath_var # The second colon is a workaround for a bug in BeOS R4 sed $shlibpath_var=\`\$ECHO \"\$$shlibpath_var\" | $SED 's/::*\$//'\` export $shlibpath_var " fi $ECHO "\ if test \"\$libtool_execute_magic\" != \"$magic\"; then # Run the actual program with our arguments. func_exec_program \${1+\"\$@\"} fi else # The program doesn't exist. \$ECHO \"\$0: error: \\\`\$progdir/\$program' does not exist\" 1>&2 \$ECHO \"This script is just a wrapper for \$program.\" 1>&2 \$ECHO \"See the $PACKAGE documentation for more information.\" 1>&2 exit 1 fi fi\ " } # func_emit_cwrapperexe_src # emit the source code for a wrapper executable on stdout # Must ONLY be called from within func_mode_link because # it depends on a number of variable set therein. func_emit_cwrapperexe_src () { cat < #include #ifdef _MSC_VER # include # include # include #else # include # include # ifdef __CYGWIN__ # include # endif #endif #include #include #include #include #include #include #include #include /* declarations of non-ANSI functions */ #if defined(__MINGW32__) # ifdef __STRICT_ANSI__ int _putenv (const char *); # endif #elif defined(__CYGWIN__) # ifdef __STRICT_ANSI__ char *realpath (const char *, char *); int putenv (char *); int setenv (const char *, const char *, int); # endif /* #elif defined (other platforms) ... */ #endif /* portability defines, excluding path handling macros */ #if defined(_MSC_VER) # define setmode _setmode # define stat _stat # define chmod _chmod # define getcwd _getcwd # define putenv _putenv # define S_IXUSR _S_IEXEC # ifndef _INTPTR_T_DEFINED # define _INTPTR_T_DEFINED # define intptr_t int # endif #elif defined(__MINGW32__) # define setmode _setmode # define stat _stat # define chmod _chmod # define getcwd _getcwd # define putenv _putenv #elif defined(__CYGWIN__) # define HAVE_SETENV # define FOPEN_WB "wb" /* #elif defined (other platforms) ... */ #endif #if defined(PATH_MAX) # define LT_PATHMAX PATH_MAX #elif defined(MAXPATHLEN) # define LT_PATHMAX MAXPATHLEN #else # define LT_PATHMAX 1024 #endif #ifndef S_IXOTH # define S_IXOTH 0 #endif #ifndef S_IXGRP # define S_IXGRP 0 #endif /* path handling portability macros */ #ifndef DIR_SEPARATOR # define DIR_SEPARATOR '/' # define PATH_SEPARATOR ':' #endif #if defined (_WIN32) || defined (__MSDOS__) || defined (__DJGPP__) || \ defined (__OS2__) # define HAVE_DOS_BASED_FILE_SYSTEM # define FOPEN_WB "wb" # ifndef DIR_SEPARATOR_2 # define DIR_SEPARATOR_2 '\\' # endif # ifndef PATH_SEPARATOR_2 # define PATH_SEPARATOR_2 ';' # endif #endif #ifndef DIR_SEPARATOR_2 # define IS_DIR_SEPARATOR(ch) ((ch) == DIR_SEPARATOR) #else /* DIR_SEPARATOR_2 */ # define IS_DIR_SEPARATOR(ch) \ (((ch) == DIR_SEPARATOR) || ((ch) == DIR_SEPARATOR_2)) #endif /* DIR_SEPARATOR_2 */ #ifndef PATH_SEPARATOR_2 # define IS_PATH_SEPARATOR(ch) ((ch) == PATH_SEPARATOR) #else /* PATH_SEPARATOR_2 */ # define IS_PATH_SEPARATOR(ch) ((ch) == PATH_SEPARATOR_2) #endif /* PATH_SEPARATOR_2 */ #ifndef FOPEN_WB # define FOPEN_WB "w" #endif #ifndef _O_BINARY # define _O_BINARY 0 #endif #define XMALLOC(type, num) ((type *) xmalloc ((num) * sizeof(type))) #define XFREE(stale) do { \ if (stale) { free ((void *) stale); stale = 0; } \ } while (0) #if defined(LT_DEBUGWRAPPER) static int lt_debug = 1; #else static int lt_debug = 0; #endif const char *program_name = "libtool-wrapper"; /* in case xstrdup fails */ void *xmalloc (size_t num); char *xstrdup (const char *string); const char *base_name (const char *name); char *find_executable (const char *wrapper); char *chase_symlinks (const char *pathspec); int make_executable (const char *path); int check_executable (const char *path); char *strendzap (char *str, const char *pat); void lt_debugprintf (const char *file, int line, const char *fmt, ...); void lt_fatal (const char *file, int line, const char *message, ...); static const char *nonnull (const char *s); static const char *nonempty (const char *s); void lt_setenv (const char *name, const char *value); char *lt_extend_str (const char *orig_value, const char *add, int to_end); void lt_update_exe_path (const char *name, const char *value); void lt_update_lib_path (const char *name, const char *value); char **prepare_spawn (char **argv); void lt_dump_script (FILE *f); EOF cat <= 0) && (st.st_mode & (S_IXUSR | S_IXGRP | S_IXOTH))) return 1; else return 0; } int make_executable (const char *path) { int rval = 0; struct stat st; lt_debugprintf (__FILE__, __LINE__, "(make_executable): %s\n", nonempty (path)); if ((!path) || (!*path)) return 0; if (stat (path, &st) >= 0) { rval = chmod (path, st.st_mode | S_IXOTH | S_IXGRP | S_IXUSR); } return rval; } /* Searches for the full path of the wrapper. Returns newly allocated full path name if found, NULL otherwise Does not chase symlinks, even on platforms that support them. */ char * find_executable (const char *wrapper) { int has_slash = 0; const char *p; const char *p_next; /* static buffer for getcwd */ char tmp[LT_PATHMAX + 1]; int tmp_len; char *concat_name; lt_debugprintf (__FILE__, __LINE__, "(find_executable): %s\n", nonempty (wrapper)); if ((wrapper == NULL) || (*wrapper == '\0')) return NULL; /* Absolute path? */ #if defined (HAVE_DOS_BASED_FILE_SYSTEM) if (isalpha ((unsigned char) wrapper[0]) && wrapper[1] == ':') { concat_name = xstrdup (wrapper); if (check_executable (concat_name)) return concat_name; XFREE (concat_name); } else { #endif if (IS_DIR_SEPARATOR (wrapper[0])) { concat_name = xstrdup (wrapper); if (check_executable (concat_name)) return concat_name; XFREE (concat_name); } #if defined (HAVE_DOS_BASED_FILE_SYSTEM) } #endif for (p = wrapper; *p; p++) if (*p == '/') { has_slash = 1; break; } if (!has_slash) { /* no slashes; search PATH */ const char *path = getenv ("PATH"); if (path != NULL) { for (p = path; *p; p = p_next) { const char *q; size_t p_len; for (q = p; *q; q++) if (IS_PATH_SEPARATOR (*q)) break; p_len = q - p; p_next = (*q == '\0' ? q : q + 1); if (p_len == 0) { /* empty path: current directory */ if (getcwd (tmp, LT_PATHMAX) == NULL) lt_fatal (__FILE__, __LINE__, "getcwd failed: %s", nonnull (strerror (errno))); tmp_len = strlen (tmp); concat_name = XMALLOC (char, tmp_len + 1 + strlen (wrapper) + 1); memcpy (concat_name, tmp, tmp_len); concat_name[tmp_len] = '/'; strcpy (concat_name + tmp_len + 1, wrapper); } else { concat_name = XMALLOC (char, p_len + 1 + strlen (wrapper) + 1); memcpy (concat_name, p, p_len); concat_name[p_len] = '/'; strcpy (concat_name + p_len + 1, wrapper); } if (check_executable (concat_name)) return concat_name; XFREE (concat_name); } } /* not found in PATH; assume curdir */ } /* Relative path | not found in path: prepend cwd */ if (getcwd (tmp, LT_PATHMAX) == NULL) lt_fatal (__FILE__, __LINE__, "getcwd failed: %s", nonnull (strerror (errno))); tmp_len = strlen (tmp); concat_name = XMALLOC (char, tmp_len + 1 + strlen (wrapper) + 1); memcpy (concat_name, tmp, tmp_len); concat_name[tmp_len] = '/'; strcpy (concat_name + tmp_len + 1, wrapper); if (check_executable (concat_name)) return concat_name; XFREE (concat_name); return NULL; } char * chase_symlinks (const char *pathspec) { #ifndef S_ISLNK return xstrdup (pathspec); #else char buf[LT_PATHMAX]; struct stat s; char *tmp_pathspec = xstrdup (pathspec); char *p; int has_symlinks = 0; while (strlen (tmp_pathspec) && !has_symlinks) { lt_debugprintf (__FILE__, __LINE__, "checking path component for symlinks: %s\n", tmp_pathspec); if (lstat (tmp_pathspec, &s) == 0) { if (S_ISLNK (s.st_mode) != 0) { has_symlinks = 1; break; } /* search backwards for last DIR_SEPARATOR */ p = tmp_pathspec + strlen (tmp_pathspec) - 1; while ((p > tmp_pathspec) && (!IS_DIR_SEPARATOR (*p))) p--; if ((p == tmp_pathspec) && (!IS_DIR_SEPARATOR (*p))) { /* no more DIR_SEPARATORS left */ break; } *p = '\0'; } else { lt_fatal (__FILE__, __LINE__, "error accessing file \"%s\": %s", tmp_pathspec, nonnull (strerror (errno))); } } XFREE (tmp_pathspec); if (!has_symlinks) { return xstrdup (pathspec); } tmp_pathspec = realpath (pathspec, buf); if (tmp_pathspec == 0) { lt_fatal (__FILE__, __LINE__, "could not follow symlinks for %s", pathspec); } return xstrdup (tmp_pathspec); #endif } char * strendzap (char *str, const char *pat) { size_t len, patlen; assert (str != NULL); assert (pat != NULL); len = strlen (str); patlen = strlen (pat); if (patlen <= len) { str += len - patlen; if (strcmp (str, pat) == 0) *str = '\0'; } return str; } void lt_debugprintf (const char *file, int line, const char *fmt, ...) { va_list args; if (lt_debug) { (void) fprintf (stderr, "%s:%s:%d: ", program_name, file, line); va_start (args, fmt); (void) vfprintf (stderr, fmt, args); va_end (args); } } static void lt_error_core (int exit_status, const char *file, int line, const char *mode, const char *message, va_list ap) { fprintf (stderr, "%s:%s:%d: %s: ", program_name, file, line, mode); vfprintf (stderr, message, ap); fprintf (stderr, ".\n"); if (exit_status >= 0) exit (exit_status); } void lt_fatal (const char *file, int line, const char *message, ...) { va_list ap; va_start (ap, message); lt_error_core (EXIT_FAILURE, file, line, "FATAL", message, ap); va_end (ap); } static const char * nonnull (const char *s) { return s ? s : "(null)"; } static const char * nonempty (const char *s) { return (s && !*s) ? "(empty)" : nonnull (s); } void lt_setenv (const char *name, const char *value) { lt_debugprintf (__FILE__, __LINE__, "(lt_setenv) setting '%s' to '%s'\n", nonnull (name), nonnull (value)); { #ifdef HAVE_SETENV /* always make a copy, for consistency with !HAVE_SETENV */ char *str = xstrdup (value); setenv (name, str, 1); #else int len = strlen (name) + 1 + strlen (value) + 1; char *str = XMALLOC (char, len); sprintf (str, "%s=%s", name, value); if (putenv (str) != EXIT_SUCCESS) { XFREE (str); } #endif } } char * lt_extend_str (const char *orig_value, const char *add, int to_end) { char *new_value; if (orig_value && *orig_value) { int orig_value_len = strlen (orig_value); int add_len = strlen (add); new_value = XMALLOC (char, add_len + orig_value_len + 1); if (to_end) { strcpy (new_value, orig_value); strcpy (new_value + orig_value_len, add); } else { strcpy (new_value, add); strcpy (new_value + add_len, orig_value); } } else { new_value = xstrdup (add); } return new_value; } void lt_update_exe_path (const char *name, const char *value) { lt_debugprintf (__FILE__, __LINE__, "(lt_update_exe_path) modifying '%s' by prepending '%s'\n", nonnull (name), nonnull (value)); if (name && *name && value && *value) { char *new_value = lt_extend_str (getenv (name), value, 0); /* some systems can't cope with a ':'-terminated path #' */ int len = strlen (new_value); while (((len = strlen (new_value)) > 0) && IS_PATH_SEPARATOR (new_value[len-1])) { new_value[len-1] = '\0'; } lt_setenv (name, new_value); XFREE (new_value); } } void lt_update_lib_path (const char *name, const char *value) { lt_debugprintf (__FILE__, __LINE__, "(lt_update_lib_path) modifying '%s' by prepending '%s'\n", nonnull (name), nonnull (value)); if (name && *name && value && *value) { char *new_value = lt_extend_str (getenv (name), value, 0); lt_setenv (name, new_value); XFREE (new_value); } } EOF case $host_os in mingw*) cat <<"EOF" /* Prepares an argument vector before calling spawn(). Note that spawn() does not by itself call the command interpreter (getenv ("COMSPEC") != NULL ? getenv ("COMSPEC") : ({ OSVERSIONINFO v; v.dwOSVersionInfoSize = sizeof(OSVERSIONINFO); GetVersionEx(&v); v.dwPlatformId == VER_PLATFORM_WIN32_NT; }) ? "cmd.exe" : "command.com"). Instead it simply concatenates the arguments, separated by ' ', and calls CreateProcess(). We must quote the arguments since Win32 CreateProcess() interprets characters like ' ', '\t', '\\', '"' (but not '<' and '>') in a special way: - Space and tab are interpreted as delimiters. They are not treated as delimiters if they are surrounded by double quotes: "...". - Unescaped double quotes are removed from the input. Their only effect is that within double quotes, space and tab are treated like normal characters. - Backslashes not followed by double quotes are not special. - But 2*n+1 backslashes followed by a double quote become n backslashes followed by a double quote (n >= 0): \" -> " \\\" -> \" \\\\\" -> \\" */ #define SHELL_SPECIAL_CHARS "\"\\ \001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037" #define SHELL_SPACE_CHARS " \001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037" char ** prepare_spawn (char **argv) { size_t argc; char **new_argv; size_t i; /* Count number of arguments. */ for (argc = 0; argv[argc] != NULL; argc++) ; /* Allocate new argument vector. */ new_argv = XMALLOC (char *, argc + 1); /* Put quoted arguments into the new argument vector. */ for (i = 0; i < argc; i++) { const char *string = argv[i]; if (string[0] == '\0') new_argv[i] = xstrdup ("\"\""); else if (strpbrk (string, SHELL_SPECIAL_CHARS) != NULL) { int quote_around = (strpbrk (string, SHELL_SPACE_CHARS) != NULL); size_t length; unsigned int backslashes; const char *s; char *quoted_string; char *p; length = 0; backslashes = 0; if (quote_around) length++; for (s = string; *s != '\0'; s++) { char c = *s; if (c == '"') length += backslashes + 1; length++; if (c == '\\') backslashes++; else backslashes = 0; } if (quote_around) length += backslashes + 1; quoted_string = XMALLOC (char, length + 1); p = quoted_string; backslashes = 0; if (quote_around) *p++ = '"'; for (s = string; *s != '\0'; s++) { char c = *s; if (c == '"') { unsigned int j; for (j = backslashes + 1; j > 0; j--) *p++ = '\\'; } *p++ = c; if (c == '\\') backslashes++; else backslashes = 0; } if (quote_around) { unsigned int j; for (j = backslashes; j > 0; j--) *p++ = '\\'; *p++ = '"'; } *p = '\0'; new_argv[i] = quoted_string; } else new_argv[i] = (char *) string; } new_argv[argc] = NULL; return new_argv; } EOF ;; esac cat <<"EOF" void lt_dump_script (FILE* f) { EOF func_emit_wrapper yes | $SED -n -e ' s/^\(.\{79\}\)\(..*\)/\1\ \2/ h s/\([\\"]\)/\\\1/g s/$/\\n/ s/\([^\n]*\).*/ fputs ("\1", f);/p g D' cat <<"EOF" } EOF } # end: func_emit_cwrapperexe_src # func_win32_import_lib_p ARG # True if ARG is an import lib, as indicated by $file_magic_cmd func_win32_import_lib_p () { $opt_debug case `eval $file_magic_cmd \"\$1\" 2>/dev/null | $SED -e 10q` in *import*) : ;; *) false ;; esac } # func_mode_link arg... func_mode_link () { $opt_debug case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*) # It is impossible to link a dll without this setting, and # we shouldn't force the makefile maintainer to figure out # which system we are compiling for in order to pass an extra # flag for every libtool invocation. # allow_undefined=no # FIXME: Unfortunately, there are problems with the above when trying # to make a dll which has undefined symbols, in which case not # even a static library is built. For now, we need to specify # -no-undefined on the libtool link line when we can be certain # that all symbols are satisfied, otherwise we get a static library. allow_undefined=yes ;; *) allow_undefined=yes ;; esac libtool_args=$nonopt base_compile="$nonopt $@" compile_command=$nonopt finalize_command=$nonopt compile_rpath= finalize_rpath= compile_shlibpath= finalize_shlibpath= convenience= old_convenience= deplibs= old_deplibs= compiler_flags= linker_flags= dllsearchpath= lib_search_path=`pwd` inst_prefix_dir= new_inherited_linker_flags= avoid_version=no bindir= dlfiles= dlprefiles= dlself=no export_dynamic=no export_symbols= export_symbols_regex= generated= libobjs= ltlibs= module=no no_install=no objs= non_pic_objects= precious_files_regex= prefer_static_libs=no preload=no prev= prevarg= release= rpath= xrpath= perm_rpath= temp_rpath= thread_safe=no vinfo= vinfo_number=no weak_libs= single_module="${wl}-single_module" func_infer_tag $base_compile # We need to know -static, to get the right output filenames. for arg do case $arg in -shared) test "$build_libtool_libs" != yes && \ func_fatal_configuration "can not build a shared library" build_old_libs=no break ;; -all-static | -static | -static-libtool-libs) case $arg in -all-static) if test "$build_libtool_libs" = yes && test -z "$link_static_flag"; then func_warning "complete static linking is impossible in this configuration" fi if test -n "$link_static_flag"; then dlopen_self=$dlopen_self_static fi prefer_static_libs=yes ;; -static) if test -z "$pic_flag" && test -n "$link_static_flag"; then dlopen_self=$dlopen_self_static fi prefer_static_libs=built ;; -static-libtool-libs) if test -z "$pic_flag" && test -n "$link_static_flag"; then dlopen_self=$dlopen_self_static fi prefer_static_libs=yes ;; esac build_libtool_libs=no build_old_libs=yes break ;; esac done # See if our shared archives depend on static archives. test -n "$old_archive_from_new_cmds" && build_old_libs=yes # Go through the arguments, transforming them on the way. while test "$#" -gt 0; do arg="$1" shift func_quote_for_eval "$arg" qarg=$func_quote_for_eval_unquoted_result func_append libtool_args " $func_quote_for_eval_result" # If the previous option needs an argument, assign it. if test -n "$prev"; then case $prev in output) func_append compile_command " @OUTPUT@" func_append finalize_command " @OUTPUT@" ;; esac case $prev in bindir) bindir="$arg" prev= continue ;; dlfiles|dlprefiles) if test "$preload" = no; then # Add the symbol object into the linking commands. func_append compile_command " @SYMFILE@" func_append finalize_command " @SYMFILE@" preload=yes fi case $arg in *.la | *.lo) ;; # We handle these cases below. force) if test "$dlself" = no; then dlself=needless export_dynamic=yes fi prev= continue ;; self) if test "$prev" = dlprefiles; then dlself=yes elif test "$prev" = dlfiles && test "$dlopen_self" != yes; then dlself=yes else dlself=needless export_dynamic=yes fi prev= continue ;; *) if test "$prev" = dlfiles; then func_append dlfiles " $arg" else func_append dlprefiles " $arg" fi prev= continue ;; esac ;; expsyms) export_symbols="$arg" test -f "$arg" \ || func_fatal_error "symbol file \`$arg' does not exist" prev= continue ;; expsyms_regex) export_symbols_regex="$arg" prev= continue ;; framework) case $host in *-*-darwin*) case "$deplibs " in *" $qarg.ltframework "*) ;; *) func_append deplibs " $qarg.ltframework" # this is fixed later ;; esac ;; esac prev= continue ;; inst_prefix) inst_prefix_dir="$arg" prev= continue ;; objectlist) if test -f "$arg"; then save_arg=$arg moreargs= for fil in `cat "$save_arg"` do # func_append moreargs " $fil" arg=$fil # A libtool-controlled object. # Check to see that this really is a libtool object. if func_lalib_unsafe_p "$arg"; then pic_object= non_pic_object= # Read the .lo file func_source "$arg" if test -z "$pic_object" || test -z "$non_pic_object" || test "$pic_object" = none && test "$non_pic_object" = none; then func_fatal_error "cannot find name of object for \`$arg'" fi # Extract subdirectory from the argument. func_dirname "$arg" "/" "" xdir="$func_dirname_result" if test "$pic_object" != none; then # Prepend the subdirectory the object is found in. pic_object="$xdir$pic_object" if test "$prev" = dlfiles; then if test "$build_libtool_libs" = yes && test "$dlopen_support" = yes; then func_append dlfiles " $pic_object" prev= continue else # If libtool objects are unsupported, then we need to preload. prev=dlprefiles fi fi # CHECK ME: I think I busted this. -Ossama if test "$prev" = dlprefiles; then # Preload the old-style object. func_append dlprefiles " $pic_object" prev= fi # A PIC object. func_append libobjs " $pic_object" arg="$pic_object" fi # Non-PIC object. if test "$non_pic_object" != none; then # Prepend the subdirectory the object is found in. non_pic_object="$xdir$non_pic_object" # A standard non-PIC object func_append non_pic_objects " $non_pic_object" if test -z "$pic_object" || test "$pic_object" = none ; then arg="$non_pic_object" fi else # If the PIC object exists, use it instead. # $xdir was prepended to $pic_object above. non_pic_object="$pic_object" func_append non_pic_objects " $non_pic_object" fi else # Only an error if not doing a dry-run. if $opt_dry_run; then # Extract subdirectory from the argument. func_dirname "$arg" "/" "" xdir="$func_dirname_result" func_lo2o "$arg" pic_object=$xdir$objdir/$func_lo2o_result non_pic_object=$xdir$func_lo2o_result func_append libobjs " $pic_object" func_append non_pic_objects " $non_pic_object" else func_fatal_error "\`$arg' is not a valid libtool object" fi fi done else func_fatal_error "link input file \`$arg' does not exist" fi arg=$save_arg prev= continue ;; precious_regex) precious_files_regex="$arg" prev= continue ;; release) release="-$arg" prev= continue ;; rpath | xrpath) # We need an absolute path. case $arg in [\\/]* | [A-Za-z]:[\\/]*) ;; *) func_fatal_error "only absolute run-paths are allowed" ;; esac if test "$prev" = rpath; then case "$rpath " in *" $arg "*) ;; *) func_append rpath " $arg" ;; esac else case "$xrpath " in *" $arg "*) ;; *) func_append xrpath " $arg" ;; esac fi prev= continue ;; shrext) shrext_cmds="$arg" prev= continue ;; weak) func_append weak_libs " $arg" prev= continue ;; xcclinker) func_append linker_flags " $qarg" func_append compiler_flags " $qarg" prev= func_append compile_command " $qarg" func_append finalize_command " $qarg" continue ;; xcompiler) func_append compiler_flags " $qarg" prev= func_append compile_command " $qarg" func_append finalize_command " $qarg" continue ;; xlinker) func_append linker_flags " $qarg" func_append compiler_flags " $wl$qarg" prev= func_append compile_command " $wl$qarg" func_append finalize_command " $wl$qarg" continue ;; *) eval "$prev=\"\$arg\"" prev= continue ;; esac fi # test -n "$prev" prevarg="$arg" case $arg in -all-static) if test -n "$link_static_flag"; then # See comment for -static flag below, for more details. func_append compile_command " $link_static_flag" func_append finalize_command " $link_static_flag" fi continue ;; -allow-undefined) # FIXME: remove this flag sometime in the future. func_fatal_error "\`-allow-undefined' must not be used because it is the default" ;; -avoid-version) avoid_version=yes continue ;; -bindir) prev=bindir continue ;; -dlopen) prev=dlfiles continue ;; -dlpreopen) prev=dlprefiles continue ;; -export-dynamic) export_dynamic=yes continue ;; -export-symbols | -export-symbols-regex) if test -n "$export_symbols" || test -n "$export_symbols_regex"; then func_fatal_error "more than one -exported-symbols argument is not allowed" fi if test "X$arg" = "X-export-symbols"; then prev=expsyms else prev=expsyms_regex fi continue ;; -framework) prev=framework continue ;; -inst-prefix-dir) prev=inst_prefix continue ;; # The native IRIX linker understands -LANG:*, -LIST:* and -LNO:* # so, if we see these flags be careful not to treat them like -L -L[A-Z][A-Z]*:*) case $with_gcc/$host in no/*-*-irix* | /*-*-irix*) func_append compile_command " $arg" func_append finalize_command " $arg" ;; esac continue ;; -L*) func_stripname "-L" '' "$arg" if test -z "$func_stripname_result"; then if test "$#" -gt 0; then func_fatal_error "require no space between \`-L' and \`$1'" else func_fatal_error "need path for \`-L' option" fi fi func_resolve_sysroot "$func_stripname_result" dir=$func_resolve_sysroot_result # We need an absolute path. case $dir in [\\/]* | [A-Za-z]:[\\/]*) ;; *) absdir=`cd "$dir" && pwd` test -z "$absdir" && \ func_fatal_error "cannot determine absolute directory name of \`$dir'" dir="$absdir" ;; esac case "$deplibs " in *" -L$dir "* | *" $arg "*) # Will only happen for absolute or sysroot arguments ;; *) # Preserve sysroot, but never include relative directories case $dir in [\\/]* | [A-Za-z]:[\\/]* | =*) func_append deplibs " $arg" ;; *) func_append deplibs " -L$dir" ;; esac func_append lib_search_path " $dir" ;; esac case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*) testbindir=`$ECHO "$dir" | $SED 's*/lib$*/bin*'` case :$dllsearchpath: in *":$dir:"*) ;; ::) dllsearchpath=$dir;; *) func_append dllsearchpath ":$dir";; esac case :$dllsearchpath: in *":$testbindir:"*) ;; ::) dllsearchpath=$testbindir;; *) func_append dllsearchpath ":$testbindir";; esac ;; esac continue ;; -l*) if test "X$arg" = "X-lc" || test "X$arg" = "X-lm"; then case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-beos* | *-cegcc* | *-*-haiku*) # These systems don't actually have a C or math library (as such) continue ;; *-*-os2*) # These systems don't actually have a C library (as such) test "X$arg" = "X-lc" && continue ;; *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*) # Do not include libc due to us having libc/libc_r. test "X$arg" = "X-lc" && continue ;; *-*-rhapsody* | *-*-darwin1.[012]) # Rhapsody C and math libraries are in the System framework func_append deplibs " System.ltframework" continue ;; *-*-sco3.2v5* | *-*-sco5v6*) # Causes problems with __ctype test "X$arg" = "X-lc" && continue ;; *-*-sysv4.2uw2* | *-*-sysv5* | *-*-unixware* | *-*-OpenUNIX*) # Compiler inserts libc in the correct place for threads to work test "X$arg" = "X-lc" && continue ;; esac elif test "X$arg" = "X-lc_r"; then case $host in *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*) # Do not include libc_r directly, use -pthread flag. continue ;; esac fi func_append deplibs " $arg" continue ;; -module) module=yes continue ;; # Tru64 UNIX uses -model [arg] to determine the layout of C++ # classes, name mangling, and exception handling. # Darwin uses the -arch flag to determine output architecture. -model|-arch|-isysroot|--sysroot) func_append compiler_flags " $arg" func_append compile_command " $arg" func_append finalize_command " $arg" prev=xcompiler continue ;; -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe \ |-threads|-fopenmp|-openmp|-mp|-xopenmp|-omp|-qsmp=*) func_append compiler_flags " $arg" func_append compile_command " $arg" func_append finalize_command " $arg" case "$new_inherited_linker_flags " in *" $arg "*) ;; * ) func_append new_inherited_linker_flags " $arg" ;; esac continue ;; -multi_module) single_module="${wl}-multi_module" continue ;; -no-fast-install) fast_install=no continue ;; -no-install) case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-darwin* | *-cegcc*) # The PATH hackery in wrapper scripts is required on Windows # and Darwin in order for the loader to find any dlls it needs. func_warning "\`-no-install' is ignored for $host" func_warning "assuming \`-no-fast-install' instead" fast_install=no ;; *) no_install=yes ;; esac continue ;; -no-undefined) allow_undefined=no continue ;; -objectlist) prev=objectlist continue ;; -o) prev=output ;; -precious-files-regex) prev=precious_regex continue ;; -release) prev=release continue ;; -rpath) prev=rpath continue ;; -R) prev=xrpath continue ;; -R*) func_stripname '-R' '' "$arg" dir=$func_stripname_result # We need an absolute path. case $dir in [\\/]* | [A-Za-z]:[\\/]*) ;; =*) func_stripname '=' '' "$dir" dir=$lt_sysroot$func_stripname_result ;; *) func_fatal_error "only absolute run-paths are allowed" ;; esac case "$xrpath " in *" $dir "*) ;; *) func_append xrpath " $dir" ;; esac continue ;; -shared) # The effects of -shared are defined in a previous loop. continue ;; -shrext) prev=shrext continue ;; -static | -static-libtool-libs) # The effects of -static are defined in a previous loop. # We used to do the same as -all-static on platforms that # didn't have a PIC flag, but the assumption that the effects # would be equivalent was wrong. It would break on at least # Digital Unix and AIX. continue ;; -thread-safe) thread_safe=yes continue ;; -version-info) prev=vinfo continue ;; -version-number) prev=vinfo vinfo_number=yes continue ;; -weak) prev=weak continue ;; -Wc,*) func_stripname '-Wc,' '' "$arg" args=$func_stripname_result arg= save_ifs="$IFS"; IFS=',' for flag in $args; do IFS="$save_ifs" func_quote_for_eval "$flag" func_append arg " $func_quote_for_eval_result" func_append compiler_flags " $func_quote_for_eval_result" done IFS="$save_ifs" func_stripname ' ' '' "$arg" arg=$func_stripname_result ;; -Wl,*) func_stripname '-Wl,' '' "$arg" args=$func_stripname_result arg= save_ifs="$IFS"; IFS=',' for flag in $args; do IFS="$save_ifs" func_quote_for_eval "$flag" func_append arg " $wl$func_quote_for_eval_result" func_append compiler_flags " $wl$func_quote_for_eval_result" func_append linker_flags " $func_quote_for_eval_result" done IFS="$save_ifs" func_stripname ' ' '' "$arg" arg=$func_stripname_result ;; -Xcompiler) prev=xcompiler continue ;; -Xlinker) prev=xlinker continue ;; -XCClinker) prev=xcclinker continue ;; # -msg_* for osf cc -msg_*) func_quote_for_eval "$arg" arg="$func_quote_for_eval_result" ;; # Flags to be passed through unchanged, with rationale: # -64, -mips[0-9] enable 64-bit mode for the SGI compiler # -r[0-9][0-9]* specify processor for the SGI compiler # -xarch=*, -xtarget=* enable 64-bit mode for the Sun compiler # +DA*, +DD* enable 64-bit mode for the HP compiler # -q* compiler args for the IBM compiler # -m*, -t[45]*, -txscale* architecture-specific flags for GCC # -F/path path to uninstalled frameworks, gcc on darwin # -p, -pg, --coverage, -fprofile-* profiling flags for GCC # @file GCC response files # -tp=* Portland pgcc target processor selection # --sysroot=* for sysroot support # -O*, -flto*, -fwhopr*, -fuse-linker-plugin GCC link-time optimization -64|-mips[0-9]|-r[0-9][0-9]*|-xarch=*|-xtarget=*|+DA*|+DD*|-q*|-m*| \ -t[45]*|-txscale*|-p|-pg|--coverage|-fprofile-*|-F*|@*|-tp=*|--sysroot=*| \ -O*|-flto*|-fwhopr*|-fuse-linker-plugin) func_quote_for_eval "$arg" arg="$func_quote_for_eval_result" func_append compile_command " $arg" func_append finalize_command " $arg" func_append compiler_flags " $arg" continue ;; # Some other compiler flag. -* | +*) func_quote_for_eval "$arg" arg="$func_quote_for_eval_result" ;; *.$objext) # A standard object. func_append objs " $arg" ;; *.lo) # A libtool-controlled object. # Check to see that this really is a libtool object. if func_lalib_unsafe_p "$arg"; then pic_object= non_pic_object= # Read the .lo file func_source "$arg" if test -z "$pic_object" || test -z "$non_pic_object" || test "$pic_object" = none && test "$non_pic_object" = none; then func_fatal_error "cannot find name of object for \`$arg'" fi # Extract subdirectory from the argument. func_dirname "$arg" "/" "" xdir="$func_dirname_result" if test "$pic_object" != none; then # Prepend the subdirectory the object is found in. pic_object="$xdir$pic_object" if test "$prev" = dlfiles; then if test "$build_libtool_libs" = yes && test "$dlopen_support" = yes; then func_append dlfiles " $pic_object" prev= continue else # If libtool objects are unsupported, then we need to preload. prev=dlprefiles fi fi # CHECK ME: I think I busted this. -Ossama if test "$prev" = dlprefiles; then # Preload the old-style object. func_append dlprefiles " $pic_object" prev= fi # A PIC object. func_append libobjs " $pic_object" arg="$pic_object" fi # Non-PIC object. if test "$non_pic_object" != none; then # Prepend the subdirectory the object is found in. non_pic_object="$xdir$non_pic_object" # A standard non-PIC object func_append non_pic_objects " $non_pic_object" if test -z "$pic_object" || test "$pic_object" = none ; then arg="$non_pic_object" fi else # If the PIC object exists, use it instead. # $xdir was prepended to $pic_object above. non_pic_object="$pic_object" func_append non_pic_objects " $non_pic_object" fi else # Only an error if not doing a dry-run. if $opt_dry_run; then # Extract subdirectory from the argument. func_dirname "$arg" "/" "" xdir="$func_dirname_result" func_lo2o "$arg" pic_object=$xdir$objdir/$func_lo2o_result non_pic_object=$xdir$func_lo2o_result func_append libobjs " $pic_object" func_append non_pic_objects " $non_pic_object" else func_fatal_error "\`$arg' is not a valid libtool object" fi fi ;; *.$libext) # An archive. func_append deplibs " $arg" func_append old_deplibs " $arg" continue ;; *.la) # A libtool-controlled library. func_resolve_sysroot "$arg" if test "$prev" = dlfiles; then # This library was specified with -dlopen. func_append dlfiles " $func_resolve_sysroot_result" prev= elif test "$prev" = dlprefiles; then # The library was specified with -dlpreopen. func_append dlprefiles " $func_resolve_sysroot_result" prev= else func_append deplibs " $func_resolve_sysroot_result" fi continue ;; # Some other compiler argument. *) # Unknown arguments in both finalize_command and compile_command need # to be aesthetically quoted because they are evaled later. func_quote_for_eval "$arg" arg="$func_quote_for_eval_result" ;; esac # arg # Now actually substitute the argument into the commands. if test -n "$arg"; then func_append compile_command " $arg" func_append finalize_command " $arg" fi done # argument parsing loop test -n "$prev" && \ func_fatal_help "the \`$prevarg' option requires an argument" if test "$export_dynamic" = yes && test -n "$export_dynamic_flag_spec"; then eval arg=\"$export_dynamic_flag_spec\" func_append compile_command " $arg" func_append finalize_command " $arg" fi oldlibs= # calculate the name of the file, without its directory func_basename "$output" outputname="$func_basename_result" libobjs_save="$libobjs" if test -n "$shlibpath_var"; then # get the directories listed in $shlibpath_var eval shlib_search_path=\`\$ECHO \"\${$shlibpath_var}\" \| \$SED \'s/:/ /g\'\` else shlib_search_path= fi eval sys_lib_search_path=\"$sys_lib_search_path_spec\" eval sys_lib_dlsearch_path=\"$sys_lib_dlsearch_path_spec\" func_dirname "$output" "/" "" output_objdir="$func_dirname_result$objdir" func_to_tool_file "$output_objdir/" tool_output_objdir=$func_to_tool_file_result # Create the object directory. func_mkdir_p "$output_objdir" # Determine the type of output case $output in "") func_fatal_help "you must specify an output file" ;; *.$libext) linkmode=oldlib ;; *.lo | *.$objext) linkmode=obj ;; *.la) linkmode=lib ;; *) linkmode=prog ;; # Anything else should be a program. esac specialdeplibs= libs= # Find all interdependent deplibs by searching for libraries # that are linked more than once (e.g. -la -lb -la) for deplib in $deplibs; do if $opt_preserve_dup_deps ; then case "$libs " in *" $deplib "*) func_append specialdeplibs " $deplib" ;; esac fi func_append libs " $deplib" done if test "$linkmode" = lib; then libs="$predeps $libs $compiler_lib_search_path $postdeps" # Compute libraries that are listed more than once in $predeps # $postdeps and mark them as special (i.e., whose duplicates are # not to be eliminated). pre_post_deps= if $opt_duplicate_compiler_generated_deps; then for pre_post_dep in $predeps $postdeps; do case "$pre_post_deps " in *" $pre_post_dep "*) func_append specialdeplibs " $pre_post_deps" ;; esac func_append pre_post_deps " $pre_post_dep" done fi pre_post_deps= fi deplibs= newdependency_libs= newlib_search_path= need_relink=no # whether we're linking any uninstalled libtool libraries notinst_deplibs= # not-installed libtool libraries notinst_path= # paths that contain not-installed libtool libraries case $linkmode in lib) passes="conv dlpreopen link" for file in $dlfiles $dlprefiles; do case $file in *.la) ;; *) func_fatal_help "libraries can \`-dlopen' only libtool libraries: $file" ;; esac done ;; prog) compile_deplibs= finalize_deplibs= alldeplibs=no newdlfiles= newdlprefiles= passes="conv scan dlopen dlpreopen link" ;; *) passes="conv" ;; esac for pass in $passes; do # The preopen pass in lib mode reverses $deplibs; put it back here # so that -L comes before libs that need it for instance... if test "$linkmode,$pass" = "lib,link"; then ## FIXME: Find the place where the list is rebuilt in the wrong ## order, and fix it there properly tmp_deplibs= for deplib in $deplibs; do tmp_deplibs="$deplib $tmp_deplibs" done deplibs="$tmp_deplibs" fi if test "$linkmode,$pass" = "lib,link" || test "$linkmode,$pass" = "prog,scan"; then libs="$deplibs" deplibs= fi if test "$linkmode" = prog; then case $pass in dlopen) libs="$dlfiles" ;; dlpreopen) libs="$dlprefiles" ;; link) libs="$deplibs %DEPLIBS% $dependency_libs" ;; esac fi if test "$linkmode,$pass" = "lib,dlpreopen"; then # Collect and forward deplibs of preopened libtool libs for lib in $dlprefiles; do # Ignore non-libtool-libs dependency_libs= func_resolve_sysroot "$lib" case $lib in *.la) func_source "$func_resolve_sysroot_result" ;; esac # Collect preopened libtool deplibs, except any this library # has declared as weak libs for deplib in $dependency_libs; do func_basename "$deplib" deplib_base=$func_basename_result case " $weak_libs " in *" $deplib_base "*) ;; *) func_append deplibs " $deplib" ;; esac done done libs="$dlprefiles" fi if test "$pass" = dlopen; then # Collect dlpreopened libraries save_deplibs="$deplibs" deplibs= fi for deplib in $libs; do lib= found=no case $deplib in -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe \ |-threads|-fopenmp|-openmp|-mp|-xopenmp|-omp|-qsmp=*) if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else func_append compiler_flags " $deplib" if test "$linkmode" = lib ; then case "$new_inherited_linker_flags " in *" $deplib "*) ;; * ) func_append new_inherited_linker_flags " $deplib" ;; esac fi fi continue ;; -l*) if test "$linkmode" != lib && test "$linkmode" != prog; then func_warning "\`-l' is ignored for archives/objects" continue fi func_stripname '-l' '' "$deplib" name=$func_stripname_result if test "$linkmode" = lib; then searchdirs="$newlib_search_path $lib_search_path $compiler_lib_search_dirs $sys_lib_search_path $shlib_search_path" else searchdirs="$newlib_search_path $lib_search_path $sys_lib_search_path $shlib_search_path" fi for searchdir in $searchdirs; do for search_ext in .la $std_shrext .so .a; do # Search the libtool library lib="$searchdir/lib${name}${search_ext}" if test -f "$lib"; then if test "$search_ext" = ".la"; then found=yes else found=no fi break 2 fi done done if test "$found" != yes; then # deplib doesn't seem to be a libtool library if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else deplibs="$deplib $deplibs" test "$linkmode" = lib && newdependency_libs="$deplib $newdependency_libs" fi continue else # deplib is a libtool library # If $allow_libtool_libs_with_static_runtimes && $deplib is a stdlib, # We need to do some special things here, and not later. if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then case " $predeps $postdeps " in *" $deplib "*) if func_lalib_p "$lib"; then library_names= old_library= func_source "$lib" for l in $old_library $library_names; do ll="$l" done if test "X$ll" = "X$old_library" ; then # only static version available found=no func_dirname "$lib" "" "." ladir="$func_dirname_result" lib=$ladir/$old_library if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else deplibs="$deplib $deplibs" test "$linkmode" = lib && newdependency_libs="$deplib $newdependency_libs" fi continue fi fi ;; *) ;; esac fi fi ;; # -l *.ltframework) if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else deplibs="$deplib $deplibs" if test "$linkmode" = lib ; then case "$new_inherited_linker_flags " in *" $deplib "*) ;; * ) func_append new_inherited_linker_flags " $deplib" ;; esac fi fi continue ;; -L*) case $linkmode in lib) deplibs="$deplib $deplibs" test "$pass" = conv && continue newdependency_libs="$deplib $newdependency_libs" func_stripname '-L' '' "$deplib" func_resolve_sysroot "$func_stripname_result" func_append newlib_search_path " $func_resolve_sysroot_result" ;; prog) if test "$pass" = conv; then deplibs="$deplib $deplibs" continue fi if test "$pass" = scan; then deplibs="$deplib $deplibs" else compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" fi func_stripname '-L' '' "$deplib" func_resolve_sysroot "$func_stripname_result" func_append newlib_search_path " $func_resolve_sysroot_result" ;; *) func_warning "\`-L' is ignored for archives/objects" ;; esac # linkmode continue ;; # -L -R*) if test "$pass" = link; then func_stripname '-R' '' "$deplib" func_resolve_sysroot "$func_stripname_result" dir=$func_resolve_sysroot_result # Make sure the xrpath contains only unique directories. case "$xrpath " in *" $dir "*) ;; *) func_append xrpath " $dir" ;; esac fi deplibs="$deplib $deplibs" continue ;; *.la) func_resolve_sysroot "$deplib" lib=$func_resolve_sysroot_result ;; *.$libext) if test "$pass" = conv; then deplibs="$deplib $deplibs" continue fi case $linkmode in lib) # Linking convenience modules into shared libraries is allowed, # but linking other static libraries is non-portable. case " $dlpreconveniencelibs " in *" $deplib "*) ;; *) valid_a_lib=no case $deplibs_check_method in match_pattern*) set dummy $deplibs_check_method; shift match_pattern_regex=`expr "$deplibs_check_method" : "$1 \(.*\)"` if eval "\$ECHO \"$deplib\"" 2>/dev/null | $SED 10q \ | $EGREP "$match_pattern_regex" > /dev/null; then valid_a_lib=yes fi ;; pass_all) valid_a_lib=yes ;; esac if test "$valid_a_lib" != yes; then echo $ECHO "*** Warning: Trying to link with static lib archive $deplib." echo "*** I have the capability to make that library automatically link in when" echo "*** you link to this library. But I can only do this if you have a" echo "*** shared version of the library, which you do not appear to have" echo "*** because the file extensions .$libext of this argument makes me believe" echo "*** that it is just a static archive that I should not use here." else echo $ECHO "*** Warning: Linking the shared library $output against the" $ECHO "*** static library $deplib is not portable!" deplibs="$deplib $deplibs" fi ;; esac continue ;; prog) if test "$pass" != link; then deplibs="$deplib $deplibs" else compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" fi continue ;; esac # linkmode ;; # *.$libext *.lo | *.$objext) if test "$pass" = conv; then deplibs="$deplib $deplibs" elif test "$linkmode" = prog; then if test "$pass" = dlpreopen || test "$dlopen_support" != yes || test "$build_libtool_libs" = no; then # If there is no dlopen support or we're linking statically, # we need to preload. func_append newdlprefiles " $deplib" compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else func_append newdlfiles " $deplib" fi fi continue ;; %DEPLIBS%) alldeplibs=yes continue ;; esac # case $deplib if test "$found" = yes || test -f "$lib"; then : else func_fatal_error "cannot find the library \`$lib' or unhandled argument \`$deplib'" fi # Check to see that this really is a libtool archive. func_lalib_unsafe_p "$lib" \ || func_fatal_error "\`$lib' is not a valid libtool archive" func_dirname "$lib" "" "." ladir="$func_dirname_result" dlname= dlopen= dlpreopen= libdir= library_names= old_library= inherited_linker_flags= # If the library was installed with an old release of libtool, # it will not redefine variables installed, or shouldnotlink installed=yes shouldnotlink=no avoidtemprpath= # Read the .la file func_source "$lib" # Convert "-framework foo" to "foo.ltframework" if test -n "$inherited_linker_flags"; then tmp_inherited_linker_flags=`$ECHO "$inherited_linker_flags" | $SED 's/-framework \([^ $]*\)/\1.ltframework/g'` for tmp_inherited_linker_flag in $tmp_inherited_linker_flags; do case " $new_inherited_linker_flags " in *" $tmp_inherited_linker_flag "*) ;; *) func_append new_inherited_linker_flags " $tmp_inherited_linker_flag";; esac done fi dependency_libs=`$ECHO " $dependency_libs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` if test "$linkmode,$pass" = "lib,link" || test "$linkmode,$pass" = "prog,scan" || { test "$linkmode" != prog && test "$linkmode" != lib; }; then test -n "$dlopen" && func_append dlfiles " $dlopen" test -n "$dlpreopen" && func_append dlprefiles " $dlpreopen" fi if test "$pass" = conv; then # Only check for convenience libraries deplibs="$lib $deplibs" if test -z "$libdir"; then if test -z "$old_library"; then func_fatal_error "cannot find name of link library for \`$lib'" fi # It is a libtool convenience library, so add in its objects. func_append convenience " $ladir/$objdir/$old_library" func_append old_convenience " $ladir/$objdir/$old_library" elif test "$linkmode" != prog && test "$linkmode" != lib; then func_fatal_error "\`$lib' is not a convenience library" fi tmp_libs= for deplib in $dependency_libs; do deplibs="$deplib $deplibs" if $opt_preserve_dup_deps ; then case "$tmp_libs " in *" $deplib "*) func_append specialdeplibs " $deplib" ;; esac fi func_append tmp_libs " $deplib" done continue fi # $pass = conv # Get the name of the library we link against. linklib= if test -n "$old_library" && { test "$prefer_static_libs" = yes || test "$prefer_static_libs,$installed" = "built,no"; }; then linklib=$old_library else for l in $old_library $library_names; do linklib="$l" done fi if test -z "$linklib"; then func_fatal_error "cannot find name of link library for \`$lib'" fi # This library was specified with -dlopen. if test "$pass" = dlopen; then if test -z "$libdir"; then func_fatal_error "cannot -dlopen a convenience library: \`$lib'" fi if test -z "$dlname" || test "$dlopen_support" != yes || test "$build_libtool_libs" = no; then # If there is no dlname, no dlopen support or we're linking # statically, we need to preload. We also need to preload any # dependent libraries so libltdl's deplib preloader doesn't # bomb out in the load deplibs phase. func_append dlprefiles " $lib $dependency_libs" else func_append newdlfiles " $lib" fi continue fi # $pass = dlopen # We need an absolute path. case $ladir in [\\/]* | [A-Za-z]:[\\/]*) abs_ladir="$ladir" ;; *) abs_ladir=`cd "$ladir" && pwd` if test -z "$abs_ladir"; then func_warning "cannot determine absolute directory name of \`$ladir'" func_warning "passing it literally to the linker, although it might fail" abs_ladir="$ladir" fi ;; esac func_basename "$lib" laname="$func_basename_result" # Find the relevant object directory and library name. if test "X$installed" = Xyes; then if test ! -f "$lt_sysroot$libdir/$linklib" && test -f "$abs_ladir/$linklib"; then func_warning "library \`$lib' was moved." dir="$ladir" absdir="$abs_ladir" libdir="$abs_ladir" else dir="$lt_sysroot$libdir" absdir="$lt_sysroot$libdir" fi test "X$hardcode_automatic" = Xyes && avoidtemprpath=yes else if test ! -f "$ladir/$objdir/$linklib" && test -f "$abs_ladir/$linklib"; then dir="$ladir" absdir="$abs_ladir" # Remove this search path later func_append notinst_path " $abs_ladir" else dir="$ladir/$objdir" absdir="$abs_ladir/$objdir" # Remove this search path later func_append notinst_path " $abs_ladir" fi fi # $installed = yes func_stripname 'lib' '.la' "$laname" name=$func_stripname_result # This library was specified with -dlpreopen. if test "$pass" = dlpreopen; then if test -z "$libdir" && test "$linkmode" = prog; then func_fatal_error "only libraries may -dlpreopen a convenience library: \`$lib'" fi case "$host" in # special handling for platforms with PE-DLLs. *cygwin* | *mingw* | *cegcc* ) # Linker will automatically link against shared library if both # static and shared are present. Therefore, ensure we extract # symbols from the import library if a shared library is present # (otherwise, the dlopen module name will be incorrect). We do # this by putting the import library name into $newdlprefiles. # We recover the dlopen module name by 'saving' the la file # name in a special purpose variable, and (later) extracting the # dlname from the la file. if test -n "$dlname"; then func_tr_sh "$dir/$linklib" eval "libfile_$func_tr_sh_result=\$abs_ladir/\$laname" func_append newdlprefiles " $dir/$linklib" else func_append newdlprefiles " $dir/$old_library" # Keep a list of preopened convenience libraries to check # that they are being used correctly in the link pass. test -z "$libdir" && \ func_append dlpreconveniencelibs " $dir/$old_library" fi ;; * ) # Prefer using a static library (so that no silly _DYNAMIC symbols # are required to link). if test -n "$old_library"; then func_append newdlprefiles " $dir/$old_library" # Keep a list of preopened convenience libraries to check # that they are being used correctly in the link pass. test -z "$libdir" && \ func_append dlpreconveniencelibs " $dir/$old_library" # Otherwise, use the dlname, so that lt_dlopen finds it. elif test -n "$dlname"; then func_append newdlprefiles " $dir/$dlname" else func_append newdlprefiles " $dir/$linklib" fi ;; esac fi # $pass = dlpreopen if test -z "$libdir"; then # Link the convenience library if test "$linkmode" = lib; then deplibs="$dir/$old_library $deplibs" elif test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$dir/$old_library $compile_deplibs" finalize_deplibs="$dir/$old_library $finalize_deplibs" else deplibs="$lib $deplibs" # used for prog,scan pass fi continue fi if test "$linkmode" = prog && test "$pass" != link; then func_append newlib_search_path " $ladir" deplibs="$lib $deplibs" linkalldeplibs=no if test "$link_all_deplibs" != no || test -z "$library_names" || test "$build_libtool_libs" = no; then linkalldeplibs=yes fi tmp_libs= for deplib in $dependency_libs; do case $deplib in -L*) func_stripname '-L' '' "$deplib" func_resolve_sysroot "$func_stripname_result" func_append newlib_search_path " $func_resolve_sysroot_result" ;; esac # Need to link against all dependency_libs? if test "$linkalldeplibs" = yes; then deplibs="$deplib $deplibs" else # Need to hardcode shared library paths # or/and link against static libraries newdependency_libs="$deplib $newdependency_libs" fi if $opt_preserve_dup_deps ; then case "$tmp_libs " in *" $deplib "*) func_append specialdeplibs " $deplib" ;; esac fi func_append tmp_libs " $deplib" done # for deplib continue fi # $linkmode = prog... if test "$linkmode,$pass" = "prog,link"; then if test -n "$library_names" && { { test "$prefer_static_libs" = no || test "$prefer_static_libs,$installed" = "built,yes"; } || test -z "$old_library"; }; then # We need to hardcode the library path if test -n "$shlibpath_var" && test -z "$avoidtemprpath" ; then # Make sure the rpath contains only unique directories. case "$temp_rpath:" in *"$absdir:"*) ;; *) func_append temp_rpath "$absdir:" ;; esac fi # Hardcode the library path. # Skip directories that are in the system default run-time # search path. case " $sys_lib_dlsearch_path " in *" $absdir "*) ;; *) case "$compile_rpath " in *" $absdir "*) ;; *) func_append compile_rpath " $absdir" ;; esac ;; esac case " $sys_lib_dlsearch_path " in *" $libdir "*) ;; *) case "$finalize_rpath " in *" $libdir "*) ;; *) func_append finalize_rpath " $libdir" ;; esac ;; esac fi # $linkmode,$pass = prog,link... if test "$alldeplibs" = yes && { test "$deplibs_check_method" = pass_all || { test "$build_libtool_libs" = yes && test -n "$library_names"; }; }; then # We only need to search for static libraries continue fi fi link_static=no # Whether the deplib will be linked statically use_static_libs=$prefer_static_libs if test "$use_static_libs" = built && test "$installed" = yes; then use_static_libs=no fi if test -n "$library_names" && { test "$use_static_libs" = no || test -z "$old_library"; }; then case $host in *cygwin* | *mingw* | *cegcc*) # No point in relinking DLLs because paths are not encoded func_append notinst_deplibs " $lib" need_relink=no ;; *) if test "$installed" = no; then func_append notinst_deplibs " $lib" need_relink=yes fi ;; esac # This is a shared library # Warn about portability, can't link against -module's on some # systems (darwin). Don't bleat about dlopened modules though! dlopenmodule="" for dlpremoduletest in $dlprefiles; do if test "X$dlpremoduletest" = "X$lib"; then dlopenmodule="$dlpremoduletest" break fi done if test -z "$dlopenmodule" && test "$shouldnotlink" = yes && test "$pass" = link; then echo if test "$linkmode" = prog; then $ECHO "*** Warning: Linking the executable $output against the loadable module" else $ECHO "*** Warning: Linking the shared library $output against the loadable module" fi $ECHO "*** $linklib is not portable!" fi if test "$linkmode" = lib && test "$hardcode_into_libs" = yes; then # Hardcode the library path. # Skip directories that are in the system default run-time # search path. case " $sys_lib_dlsearch_path " in *" $absdir "*) ;; *) case "$compile_rpath " in *" $absdir "*) ;; *) func_append compile_rpath " $absdir" ;; esac ;; esac case " $sys_lib_dlsearch_path " in *" $libdir "*) ;; *) case "$finalize_rpath " in *" $libdir "*) ;; *) func_append finalize_rpath " $libdir" ;; esac ;; esac fi if test -n "$old_archive_from_expsyms_cmds"; then # figure out the soname set dummy $library_names shift realname="$1" shift libname=`eval "\\$ECHO \"$libname_spec\""` # use dlname if we got it. it's perfectly good, no? if test -n "$dlname"; then soname="$dlname" elif test -n "$soname_spec"; then # bleh windows case $host in *cygwin* | mingw* | *cegcc*) func_arith $current - $age major=$func_arith_result versuffix="-$major" ;; esac eval soname=\"$soname_spec\" else soname="$realname" fi # Make a new name for the extract_expsyms_cmds to use soroot="$soname" func_basename "$soroot" soname="$func_basename_result" func_stripname 'lib' '.dll' "$soname" newlib=libimp-$func_stripname_result.a # If the library has no export list, then create one now if test -f "$output_objdir/$soname-def"; then : else func_verbose "extracting exported symbol list from \`$soname'" func_execute_cmds "$extract_expsyms_cmds" 'exit $?' fi # Create $newlib if test -f "$output_objdir/$newlib"; then :; else func_verbose "generating import library for \`$soname'" func_execute_cmds "$old_archive_from_expsyms_cmds" 'exit $?' fi # make sure the library variables are pointing to the new library dir=$output_objdir linklib=$newlib fi # test -n "$old_archive_from_expsyms_cmds" if test "$linkmode" = prog || test "$opt_mode" != relink; then add_shlibpath= add_dir= add= lib_linked=yes case $hardcode_action in immediate | unsupported) if test "$hardcode_direct" = no; then add="$dir/$linklib" case $host in *-*-sco3.2v5.0.[024]*) add_dir="-L$dir" ;; *-*-sysv4*uw2*) add_dir="-L$dir" ;; *-*-sysv5OpenUNIX* | *-*-sysv5UnixWare7.[01].[10]* | \ *-*-unixware7*) add_dir="-L$dir" ;; *-*-darwin* ) # if the lib is a (non-dlopened) module then we can not # link against it, someone is ignoring the earlier warnings if /usr/bin/file -L $add 2> /dev/null | $GREP ": [^:]* bundle" >/dev/null ; then if test "X$dlopenmodule" != "X$lib"; then $ECHO "*** Warning: lib $linklib is a module, not a shared library" if test -z "$old_library" ; then echo echo "*** And there doesn't seem to be a static archive available" echo "*** The link will probably fail, sorry" else add="$dir/$old_library" fi elif test -n "$old_library"; then add="$dir/$old_library" fi fi esac elif test "$hardcode_minus_L" = no; then case $host in *-*-sunos*) add_shlibpath="$dir" ;; esac add_dir="-L$dir" add="-l$name" elif test "$hardcode_shlibpath_var" = no; then add_shlibpath="$dir" add="-l$name" else lib_linked=no fi ;; relink) if test "$hardcode_direct" = yes && test "$hardcode_direct_absolute" = no; then add="$dir/$linklib" elif test "$hardcode_minus_L" = yes; then add_dir="-L$absdir" # Try looking first in the location we're being installed to. if test -n "$inst_prefix_dir"; then case $libdir in [\\/]*) func_append add_dir " -L$inst_prefix_dir$libdir" ;; esac fi add="-l$name" elif test "$hardcode_shlibpath_var" = yes; then add_shlibpath="$dir" add="-l$name" else lib_linked=no fi ;; *) lib_linked=no ;; esac if test "$lib_linked" != yes; then func_fatal_configuration "unsupported hardcode properties" fi if test -n "$add_shlibpath"; then case :$compile_shlibpath: in *":$add_shlibpath:"*) ;; *) func_append compile_shlibpath "$add_shlibpath:" ;; esac fi if test "$linkmode" = prog; then test -n "$add_dir" && compile_deplibs="$add_dir $compile_deplibs" test -n "$add" && compile_deplibs="$add $compile_deplibs" else test -n "$add_dir" && deplibs="$add_dir $deplibs" test -n "$add" && deplibs="$add $deplibs" if test "$hardcode_direct" != yes && test "$hardcode_minus_L" != yes && test "$hardcode_shlibpath_var" = yes; then case :$finalize_shlibpath: in *":$libdir:"*) ;; *) func_append finalize_shlibpath "$libdir:" ;; esac fi fi fi if test "$linkmode" = prog || test "$opt_mode" = relink; then add_shlibpath= add_dir= add= # Finalize command for both is simple: just hardcode it. if test "$hardcode_direct" = yes && test "$hardcode_direct_absolute" = no; then add="$libdir/$linklib" elif test "$hardcode_minus_L" = yes; then add_dir="-L$libdir" add="-l$name" elif test "$hardcode_shlibpath_var" = yes; then case :$finalize_shlibpath: in *":$libdir:"*) ;; *) func_append finalize_shlibpath "$libdir:" ;; esac add="-l$name" elif test "$hardcode_automatic" = yes; then if test -n "$inst_prefix_dir" && test -f "$inst_prefix_dir$libdir/$linklib" ; then add="$inst_prefix_dir$libdir/$linklib" else add="$libdir/$linklib" fi else # We cannot seem to hardcode it, guess we'll fake it. add_dir="-L$libdir" # Try looking first in the location we're being installed to. if test -n "$inst_prefix_dir"; then case $libdir in [\\/]*) func_append add_dir " -L$inst_prefix_dir$libdir" ;; esac fi add="-l$name" fi if test "$linkmode" = prog; then test -n "$add_dir" && finalize_deplibs="$add_dir $finalize_deplibs" test -n "$add" && finalize_deplibs="$add $finalize_deplibs" else test -n "$add_dir" && deplibs="$add_dir $deplibs" test -n "$add" && deplibs="$add $deplibs" fi fi elif test "$linkmode" = prog; then # Here we assume that one of hardcode_direct or hardcode_minus_L # is not unsupported. This is valid on all known static and # shared platforms. if test "$hardcode_direct" != unsupported; then test -n "$old_library" && linklib="$old_library" compile_deplibs="$dir/$linklib $compile_deplibs" finalize_deplibs="$dir/$linklib $finalize_deplibs" else compile_deplibs="-l$name -L$dir $compile_deplibs" finalize_deplibs="-l$name -L$dir $finalize_deplibs" fi elif test "$build_libtool_libs" = yes; then # Not a shared library if test "$deplibs_check_method" != pass_all; then # We're trying link a shared library against a static one # but the system doesn't support it. # Just print a warning and add the library to dependency_libs so # that the program can be linked against the static library. echo $ECHO "*** Warning: This system can not link to static lib archive $lib." echo "*** I have the capability to make that library automatically link in when" echo "*** you link to this library. But I can only do this if you have a" echo "*** shared version of the library, which you do not appear to have." if test "$module" = yes; then echo "*** But as you try to build a module library, libtool will still create " echo "*** a static module, that should work as long as the dlopening application" echo "*** is linked with the -dlopen flag to resolve symbols at runtime." if test -z "$global_symbol_pipe"; then echo echo "*** However, this would only work if libtool was able to extract symbol" echo "*** lists from a program, using \`nm' or equivalent, but libtool could" echo "*** not find such a program. So, this module is probably useless." echo "*** \`nm' from GNU binutils and a full rebuild may help." fi if test "$build_old_libs" = no; then build_libtool_libs=module build_old_libs=yes else build_libtool_libs=no fi fi else deplibs="$dir/$old_library $deplibs" link_static=yes fi fi # link shared/static library? if test "$linkmode" = lib; then if test -n "$dependency_libs" && { test "$hardcode_into_libs" != yes || test "$build_old_libs" = yes || test "$link_static" = yes; }; then # Extract -R from dependency_libs temp_deplibs= for libdir in $dependency_libs; do case $libdir in -R*) func_stripname '-R' '' "$libdir" temp_xrpath=$func_stripname_result case " $xrpath " in *" $temp_xrpath "*) ;; *) func_append xrpath " $temp_xrpath";; esac;; *) func_append temp_deplibs " $libdir";; esac done dependency_libs="$temp_deplibs" fi func_append newlib_search_path " $absdir" # Link against this library test "$link_static" = no && newdependency_libs="$abs_ladir/$laname $newdependency_libs" # ... and its dependency_libs tmp_libs= for deplib in $dependency_libs; do newdependency_libs="$deplib $newdependency_libs" case $deplib in -L*) func_stripname '-L' '' "$deplib" func_resolve_sysroot "$func_stripname_result";; *) func_resolve_sysroot "$deplib" ;; esac if $opt_preserve_dup_deps ; then case "$tmp_libs " in *" $func_resolve_sysroot_result "*) func_append specialdeplibs " $func_resolve_sysroot_result" ;; esac fi func_append tmp_libs " $func_resolve_sysroot_result" done if test "$link_all_deplibs" != no; then # Add the search paths of all dependency libraries for deplib in $dependency_libs; do path= case $deplib in -L*) path="$deplib" ;; *.la) func_resolve_sysroot "$deplib" deplib=$func_resolve_sysroot_result func_dirname "$deplib" "" "." dir=$func_dirname_result # We need an absolute path. case $dir in [\\/]* | [A-Za-z]:[\\/]*) absdir="$dir" ;; *) absdir=`cd "$dir" && pwd` if test -z "$absdir"; then func_warning "cannot determine absolute directory name of \`$dir'" absdir="$dir" fi ;; esac if $GREP "^installed=no" $deplib > /dev/null; then case $host in *-*-darwin*) depdepl= eval deplibrary_names=`${SED} -n -e 's/^library_names=\(.*\)$/\1/p' $deplib` if test -n "$deplibrary_names" ; then for tmp in $deplibrary_names ; do depdepl=$tmp done if test -f "$absdir/$objdir/$depdepl" ; then depdepl="$absdir/$objdir/$depdepl" darwin_install_name=`${OTOOL} -L $depdepl | awk '{if (NR == 2) {print $1;exit}}'` if test -z "$darwin_install_name"; then darwin_install_name=`${OTOOL64} -L $depdepl | awk '{if (NR == 2) {print $1;exit}}'` fi func_append compiler_flags " ${wl}-dylib_file ${wl}${darwin_install_name}:${depdepl}" func_append linker_flags " -dylib_file ${darwin_install_name}:${depdepl}" path= fi fi ;; *) path="-L$absdir/$objdir" ;; esac else eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $deplib` test -z "$libdir" && \ func_fatal_error "\`$deplib' is not a valid libtool archive" test "$absdir" != "$libdir" && \ func_warning "\`$deplib' seems to be moved" path="-L$absdir" fi ;; esac case " $deplibs " in *" $path "*) ;; *) deplibs="$path $deplibs" ;; esac done fi # link_all_deplibs != no fi # linkmode = lib done # for deplib in $libs if test "$pass" = link; then if test "$linkmode" = "prog"; then compile_deplibs="$new_inherited_linker_flags $compile_deplibs" finalize_deplibs="$new_inherited_linker_flags $finalize_deplibs" else compiler_flags="$compiler_flags "`$ECHO " $new_inherited_linker_flags" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` fi fi dependency_libs="$newdependency_libs" if test "$pass" = dlpreopen; then # Link the dlpreopened libraries before other libraries for deplib in $save_deplibs; do deplibs="$deplib $deplibs" done fi if test "$pass" != dlopen; then if test "$pass" != conv; then # Make sure lib_search_path contains only unique directories. lib_search_path= for dir in $newlib_search_path; do case "$lib_search_path " in *" $dir "*) ;; *) func_append lib_search_path " $dir" ;; esac done newlib_search_path= fi if test "$linkmode,$pass" != "prog,link"; then vars="deplibs" else vars="compile_deplibs finalize_deplibs" fi for var in $vars dependency_libs; do # Add libraries to $var in reverse order eval tmp_libs=\"\$$var\" new_libs= for deplib in $tmp_libs; do # FIXME: Pedantically, this is the right thing to do, so # that some nasty dependency loop isn't accidentally # broken: #new_libs="$deplib $new_libs" # Pragmatically, this seems to cause very few problems in # practice: case $deplib in -L*) new_libs="$deplib $new_libs" ;; -R*) ;; *) # And here is the reason: when a library appears more # than once as an explicit dependence of a library, or # is implicitly linked in more than once by the # compiler, it is considered special, and multiple # occurrences thereof are not removed. Compare this # with having the same library being listed as a # dependency of multiple other libraries: in this case, # we know (pedantically, we assume) the library does not # need to be listed more than once, so we keep only the # last copy. This is not always right, but it is rare # enough that we require users that really mean to play # such unportable linking tricks to link the library # using -Wl,-lname, so that libtool does not consider it # for duplicate removal. case " $specialdeplibs " in *" $deplib "*) new_libs="$deplib $new_libs" ;; *) case " $new_libs " in *" $deplib "*) ;; *) new_libs="$deplib $new_libs" ;; esac ;; esac ;; esac done tmp_libs= for deplib in $new_libs; do case $deplib in -L*) case " $tmp_libs " in *" $deplib "*) ;; *) func_append tmp_libs " $deplib" ;; esac ;; *) func_append tmp_libs " $deplib" ;; esac done eval $var=\"$tmp_libs\" done # for var fi # Last step: remove runtime libs from dependency_libs # (they stay in deplibs) tmp_libs= for i in $dependency_libs ; do case " $predeps $postdeps $compiler_lib_search_path " in *" $i "*) i="" ;; esac if test -n "$i" ; then func_append tmp_libs " $i" fi done dependency_libs=$tmp_libs done # for pass if test "$linkmode" = prog; then dlfiles="$newdlfiles" fi if test "$linkmode" = prog || test "$linkmode" = lib; then dlprefiles="$newdlprefiles" fi case $linkmode in oldlib) if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then func_warning "\`-dlopen' is ignored for archives" fi case " $deplibs" in *\ -l* | *\ -L*) func_warning "\`-l' and \`-L' are ignored for archives" ;; esac test -n "$rpath" && \ func_warning "\`-rpath' is ignored for archives" test -n "$xrpath" && \ func_warning "\`-R' is ignored for archives" test -n "$vinfo" && \ func_warning "\`-version-info/-version-number' is ignored for archives" test -n "$release" && \ func_warning "\`-release' is ignored for archives" test -n "$export_symbols$export_symbols_regex" && \ func_warning "\`-export-symbols' is ignored for archives" # Now set the variables for building old libraries. build_libtool_libs=no oldlibs="$output" func_append objs "$old_deplibs" ;; lib) # Make sure we only generate libraries of the form `libNAME.la'. case $outputname in lib*) func_stripname 'lib' '.la' "$outputname" name=$func_stripname_result eval shared_ext=\"$shrext_cmds\" eval libname=\"$libname_spec\" ;; *) test "$module" = no && \ func_fatal_help "libtool library \`$output' must begin with \`lib'" if test "$need_lib_prefix" != no; then # Add the "lib" prefix for modules if required func_stripname '' '.la' "$outputname" name=$func_stripname_result eval shared_ext=\"$shrext_cmds\" eval libname=\"$libname_spec\" else func_stripname '' '.la' "$outputname" libname=$func_stripname_result fi ;; esac if test -n "$objs"; then if test "$deplibs_check_method" != pass_all; then func_fatal_error "cannot build libtool library \`$output' from non-libtool objects on this host:$objs" else echo $ECHO "*** Warning: Linking the shared library $output against the non-libtool" $ECHO "*** objects $objs is not portable!" func_append libobjs " $objs" fi fi test "$dlself" != no && \ func_warning "\`-dlopen self' is ignored for libtool libraries" set dummy $rpath shift test "$#" -gt 1 && \ func_warning "ignoring multiple \`-rpath's for a libtool library" install_libdir="$1" oldlibs= if test -z "$rpath"; then if test "$build_libtool_libs" = yes; then # Building a libtool convenience library. # Some compilers have problems with a `.al' extension so # convenience libraries should have the same extension an # archive normally would. oldlibs="$output_objdir/$libname.$libext $oldlibs" build_libtool_libs=convenience build_old_libs=yes fi test -n "$vinfo" && \ func_warning "\`-version-info/-version-number' is ignored for convenience libraries" test -n "$release" && \ func_warning "\`-release' is ignored for convenience libraries" else # Parse the version information argument. save_ifs="$IFS"; IFS=':' set dummy $vinfo 0 0 0 shift IFS="$save_ifs" test -n "$7" && \ func_fatal_help "too many parameters to \`-version-info'" # convert absolute version numbers to libtool ages # this retains compatibility with .la files and attempts # to make the code below a bit more comprehensible case $vinfo_number in yes) number_major="$1" number_minor="$2" number_revision="$3" # # There are really only two kinds -- those that # use the current revision as the major version # and those that subtract age and use age as # a minor version. But, then there is irix # which has an extra 1 added just for fun # case $version_type in # correct linux to gnu/linux during the next big refactor darwin|linux|osf|windows|none) func_arith $number_major + $number_minor current=$func_arith_result age="$number_minor" revision="$number_revision" ;; freebsd-aout|freebsd-elf|qnx|sunos) current="$number_major" revision="$number_minor" age="0" ;; irix|nonstopux) func_arith $number_major + $number_minor current=$func_arith_result age="$number_minor" revision="$number_minor" lt_irix_increment=no ;; esac ;; no) current="$1" revision="$2" age="$3" ;; esac # Check that each of the things are valid numbers. case $current in 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; *) func_error "CURRENT \`$current' must be a nonnegative integer" func_fatal_error "\`$vinfo' is not valid version information" ;; esac case $revision in 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; *) func_error "REVISION \`$revision' must be a nonnegative integer" func_fatal_error "\`$vinfo' is not valid version information" ;; esac case $age in 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; *) func_error "AGE \`$age' must be a nonnegative integer" func_fatal_error "\`$vinfo' is not valid version information" ;; esac if test "$age" -gt "$current"; then func_error "AGE \`$age' is greater than the current interface number \`$current'" func_fatal_error "\`$vinfo' is not valid version information" fi # Calculate the version variables. major= versuffix= verstring= case $version_type in none) ;; darwin) # Like Linux, but with the current version available in # verstring for coding it into the library header func_arith $current - $age major=.$func_arith_result versuffix="$major.$age.$revision" # Darwin ld doesn't like 0 for these options... func_arith $current + 1 minor_current=$func_arith_result xlcverstring="${wl}-compatibility_version ${wl}$minor_current ${wl}-current_version ${wl}$minor_current.$revision" verstring="-compatibility_version $minor_current -current_version $minor_current.$revision" ;; freebsd-aout) major=".$current" versuffix=".$current.$revision"; ;; freebsd-elf) major=".$current" versuffix=".$current" ;; irix | nonstopux) if test "X$lt_irix_increment" = "Xno"; then func_arith $current - $age else func_arith $current - $age + 1 fi major=$func_arith_result case $version_type in nonstopux) verstring_prefix=nonstopux ;; *) verstring_prefix=sgi ;; esac verstring="$verstring_prefix$major.$revision" # Add in all the interfaces that we are compatible with. loop=$revision while test "$loop" -ne 0; do func_arith $revision - $loop iface=$func_arith_result func_arith $loop - 1 loop=$func_arith_result verstring="$verstring_prefix$major.$iface:$verstring" done # Before this point, $major must not contain `.'. major=.$major versuffix="$major.$revision" ;; linux) # correct to gnu/linux during the next big refactor func_arith $current - $age major=.$func_arith_result versuffix="$major.$age.$revision" ;; osf) func_arith $current - $age major=.$func_arith_result versuffix=".$current.$age.$revision" verstring="$current.$age.$revision" # Add in all the interfaces that we are compatible with. loop=$age while test "$loop" -ne 0; do func_arith $current - $loop iface=$func_arith_result func_arith $loop - 1 loop=$func_arith_result verstring="$verstring:${iface}.0" done # Make executables depend on our current version. func_append verstring ":${current}.0" ;; qnx) major=".$current" versuffix=".$current" ;; sunos) major=".$current" versuffix=".$current.$revision" ;; windows) # Use '-' rather than '.', since we only want one # extension on DOS 8.3 filesystems. func_arith $current - $age major=$func_arith_result versuffix="-$major" ;; *) func_fatal_configuration "unknown library version type \`$version_type'" ;; esac # Clear the version info if we defaulted, and they specified a release. if test -z "$vinfo" && test -n "$release"; then major= case $version_type in darwin) # we can't check for "0.0" in archive_cmds due to quoting # problems, so we reset it completely verstring= ;; *) verstring="0.0" ;; esac if test "$need_version" = no; then versuffix= else versuffix=".0.0" fi fi # Remove version info from name if versioning should be avoided if test "$avoid_version" = yes && test "$need_version" = no; then major= versuffix= verstring="" fi # Check to see if the archive will have undefined symbols. if test "$allow_undefined" = yes; then if test "$allow_undefined_flag" = unsupported; then func_warning "undefined symbols not allowed in $host shared libraries" build_libtool_libs=no build_old_libs=yes fi else # Don't allow undefined symbols. allow_undefined_flag="$no_undefined_flag" fi fi func_generate_dlsyms "$libname" "$libname" "yes" func_append libobjs " $symfileobj" test "X$libobjs" = "X " && libobjs= if test "$opt_mode" != relink; then # Remove our outputs, but don't remove object files since they # may have been created when compiling PIC objects. removelist= tempremovelist=`$ECHO "$output_objdir/*"` for p in $tempremovelist; do case $p in *.$objext | *.gcno) ;; $output_objdir/$outputname | $output_objdir/$libname.* | $output_objdir/${libname}${release}.*) if test "X$precious_files_regex" != "X"; then if $ECHO "$p" | $EGREP -e "$precious_files_regex" >/dev/null 2>&1 then continue fi fi func_append removelist " $p" ;; *) ;; esac done test -n "$removelist" && \ func_show_eval "${RM}r \$removelist" fi # Now set the variables for building old libraries. if test "$build_old_libs" = yes && test "$build_libtool_libs" != convenience ; then func_append oldlibs " $output_objdir/$libname.$libext" # Transform .lo files to .o files. oldobjs="$objs "`$ECHO "$libobjs" | $SP2NL | $SED "/\.${libext}$/d; $lo2o" | $NL2SP` fi # Eliminate all temporary directories. #for path in $notinst_path; do # lib_search_path=`$ECHO "$lib_search_path " | $SED "s% $path % %g"` # deplibs=`$ECHO "$deplibs " | $SED "s% -L$path % %g"` # dependency_libs=`$ECHO "$dependency_libs " | $SED "s% -L$path % %g"` #done if test -n "$xrpath"; then # If the user specified any rpath flags, then add them. temp_xrpath= for libdir in $xrpath; do func_replace_sysroot "$libdir" func_append temp_xrpath " -R$func_replace_sysroot_result" case "$finalize_rpath " in *" $libdir "*) ;; *) func_append finalize_rpath " $libdir" ;; esac done if test "$hardcode_into_libs" != yes || test "$build_old_libs" = yes; then dependency_libs="$temp_xrpath $dependency_libs" fi fi # Make sure dlfiles contains only unique files that won't be dlpreopened old_dlfiles="$dlfiles" dlfiles= for lib in $old_dlfiles; do case " $dlprefiles $dlfiles " in *" $lib "*) ;; *) func_append dlfiles " $lib" ;; esac done # Make sure dlprefiles contains only unique files old_dlprefiles="$dlprefiles" dlprefiles= for lib in $old_dlprefiles; do case "$dlprefiles " in *" $lib "*) ;; *) func_append dlprefiles " $lib" ;; esac done if test "$build_libtool_libs" = yes; then if test -n "$rpath"; then case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-beos* | *-cegcc* | *-*-haiku*) # these systems don't actually have a c library (as such)! ;; *-*-rhapsody* | *-*-darwin1.[012]) # Rhapsody C library is in the System framework func_append deplibs " System.ltframework" ;; *-*-netbsd*) # Don't link with libc until the a.out ld.so is fixed. ;; *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*) # Do not include libc due to us having libc/libc_r. ;; *-*-sco3.2v5* | *-*-sco5v6*) # Causes problems with __ctype ;; *-*-sysv4.2uw2* | *-*-sysv5* | *-*-unixware* | *-*-OpenUNIX*) # Compiler inserts libc in the correct place for threads to work ;; *) # Add libc to deplibs on all other systems if necessary. if test "$build_libtool_need_lc" = "yes"; then func_append deplibs " -lc" fi ;; esac fi # Transform deplibs into only deplibs that can be linked in shared. name_save=$name libname_save=$libname release_save=$release versuffix_save=$versuffix major_save=$major # I'm not sure if I'm treating the release correctly. I think # release should show up in the -l (ie -lgmp5) so we don't want to # add it in twice. Is that correct? release="" versuffix="" major="" newdeplibs= droppeddeps=no case $deplibs_check_method in pass_all) # Don't check for shared/static. Everything works. # This might be a little naive. We might want to check # whether the library exists or not. But this is on # osf3 & osf4 and I'm not really sure... Just # implementing what was already the behavior. newdeplibs=$deplibs ;; test_compile) # This code stresses the "libraries are programs" paradigm to its # limits. Maybe even breaks it. We compile a program, linking it # against the deplibs as a proxy for the library. Then we can check # whether they linked in statically or dynamically with ldd. $opt_dry_run || $RM conftest.c cat > conftest.c </dev/null` $nocaseglob else potential_libs=`ls $i/$libnameglob[.-]* 2>/dev/null` fi for potent_lib in $potential_libs; do # Follow soft links. if ls -lLd "$potent_lib" 2>/dev/null | $GREP " -> " >/dev/null; then continue fi # The statement above tries to avoid entering an # endless loop below, in case of cyclic links. # We might still enter an endless loop, since a link # loop can be closed while we follow links, # but so what? potlib="$potent_lib" while test -h "$potlib" 2>/dev/null; do potliblink=`ls -ld $potlib | ${SED} 's/.* -> //'` case $potliblink in [\\/]* | [A-Za-z]:[\\/]*) potlib="$potliblink";; *) potlib=`$ECHO "$potlib" | $SED 's,[^/]*$,,'`"$potliblink";; esac done if eval $file_magic_cmd \"\$potlib\" 2>/dev/null | $SED -e 10q | $EGREP "$file_magic_regex" > /dev/null; then func_append newdeplibs " $a_deplib" a_deplib="" break 2 fi done done fi if test -n "$a_deplib" ; then droppeddeps=yes echo $ECHO "*** Warning: linker path does not have real file for library $a_deplib." echo "*** I have the capability to make that library automatically link in when" echo "*** you link to this library. But I can only do this if you have a" echo "*** shared version of the library, which you do not appear to have" echo "*** because I did check the linker path looking for a file starting" if test -z "$potlib" ; then $ECHO "*** with $libname but no candidates were found. (...for file magic test)" else $ECHO "*** with $libname and none of the candidates passed a file format test" $ECHO "*** using a file magic. Last file checked: $potlib" fi fi ;; *) # Add a -L argument. func_append newdeplibs " $a_deplib" ;; esac done # Gone through all deplibs. ;; match_pattern*) set dummy $deplibs_check_method; shift match_pattern_regex=`expr "$deplibs_check_method" : "$1 \(.*\)"` for a_deplib in $deplibs; do case $a_deplib in -l*) func_stripname -l '' "$a_deplib" name=$func_stripname_result if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then case " $predeps $postdeps " in *" $a_deplib "*) func_append newdeplibs " $a_deplib" a_deplib="" ;; esac fi if test -n "$a_deplib" ; then libname=`eval "\\$ECHO \"$libname_spec\""` for i in $lib_search_path $sys_lib_search_path $shlib_search_path; do potential_libs=`ls $i/$libname[.-]* 2>/dev/null` for potent_lib in $potential_libs; do potlib="$potent_lib" # see symlink-check above in file_magic test if eval "\$ECHO \"$potent_lib\"" 2>/dev/null | $SED 10q | \ $EGREP "$match_pattern_regex" > /dev/null; then func_append newdeplibs " $a_deplib" a_deplib="" break 2 fi done done fi if test -n "$a_deplib" ; then droppeddeps=yes echo $ECHO "*** Warning: linker path does not have real file for library $a_deplib." echo "*** I have the capability to make that library automatically link in when" echo "*** you link to this library. But I can only do this if you have a" echo "*** shared version of the library, which you do not appear to have" echo "*** because I did check the linker path looking for a file starting" if test -z "$potlib" ; then $ECHO "*** with $libname but no candidates were found. (...for regex pattern test)" else $ECHO "*** with $libname and none of the candidates passed a file format test" $ECHO "*** using a regex pattern. Last file checked: $potlib" fi fi ;; *) # Add a -L argument. func_append newdeplibs " $a_deplib" ;; esac done # Gone through all deplibs. ;; none | unknown | *) newdeplibs="" tmp_deplibs=`$ECHO " $deplibs" | $SED 's/ -lc$//; s/ -[LR][^ ]*//g'` if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then for i in $predeps $postdeps ; do # can't use Xsed below, because $i might contain '/' tmp_deplibs=`$ECHO " $tmp_deplibs" | $SED "s,$i,,"` done fi case $tmp_deplibs in *[!\ \ ]*) echo if test "X$deplibs_check_method" = "Xnone"; then echo "*** Warning: inter-library dependencies are not supported in this platform." else echo "*** Warning: inter-library dependencies are not known to be supported." fi echo "*** All declared inter-library dependencies are being dropped." droppeddeps=yes ;; esac ;; esac versuffix=$versuffix_save major=$major_save release=$release_save libname=$libname_save name=$name_save case $host in *-*-rhapsody* | *-*-darwin1.[012]) # On Rhapsody replace the C library with the System framework newdeplibs=`$ECHO " $newdeplibs" | $SED 's/ -lc / System.ltframework /'` ;; esac if test "$droppeddeps" = yes; then if test "$module" = yes; then echo echo "*** Warning: libtool could not satisfy all declared inter-library" $ECHO "*** dependencies of module $libname. Therefore, libtool will create" echo "*** a static module, that should work as long as the dlopening" echo "*** application is linked with the -dlopen flag." if test -z "$global_symbol_pipe"; then echo echo "*** However, this would only work if libtool was able to extract symbol" echo "*** lists from a program, using \`nm' or equivalent, but libtool could" echo "*** not find such a program. So, this module is probably useless." echo "*** \`nm' from GNU binutils and a full rebuild may help." fi if test "$build_old_libs" = no; then oldlibs="$output_objdir/$libname.$libext" build_libtool_libs=module build_old_libs=yes else build_libtool_libs=no fi else echo "*** The inter-library dependencies that have been dropped here will be" echo "*** automatically added whenever a program is linked with this library" echo "*** or is declared to -dlopen it." if test "$allow_undefined" = no; then echo echo "*** Since this library must not contain undefined symbols," echo "*** because either the platform does not support them or" echo "*** it was explicitly requested with -no-undefined," echo "*** libtool will only create a static version of it." if test "$build_old_libs" = no; then oldlibs="$output_objdir/$libname.$libext" build_libtool_libs=module build_old_libs=yes else build_libtool_libs=no fi fi fi fi # Done checking deplibs! deplibs=$newdeplibs fi # Time to change all our "foo.ltframework" stuff back to "-framework foo" case $host in *-*-darwin*) newdeplibs=`$ECHO " $newdeplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` new_inherited_linker_flags=`$ECHO " $new_inherited_linker_flags" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` deplibs=`$ECHO " $deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` ;; esac # move library search paths that coincide with paths to not yet # installed libraries to the beginning of the library search list new_libs= for path in $notinst_path; do case " $new_libs " in *" -L$path/$objdir "*) ;; *) case " $deplibs " in *" -L$path/$objdir "*) func_append new_libs " -L$path/$objdir" ;; esac ;; esac done for deplib in $deplibs; do case $deplib in -L*) case " $new_libs " in *" $deplib "*) ;; *) func_append new_libs " $deplib" ;; esac ;; *) func_append new_libs " $deplib" ;; esac done deplibs="$new_libs" # All the library-specific variables (install_libdir is set above). library_names= old_library= dlname= # Test again, we may have decided not to build it any more if test "$build_libtool_libs" = yes; then # Remove ${wl} instances when linking with ld. # FIXME: should test the right _cmds variable. case $archive_cmds in *\$LD\ *) wl= ;; esac if test "$hardcode_into_libs" = yes; then # Hardcode the library paths hardcode_libdirs= dep_rpath= rpath="$finalize_rpath" test "$opt_mode" != relink && rpath="$compile_rpath$rpath" for libdir in $rpath; do if test -n "$hardcode_libdir_flag_spec"; then if test -n "$hardcode_libdir_separator"; then func_replace_sysroot "$libdir" libdir=$func_replace_sysroot_result if test -z "$hardcode_libdirs"; then hardcode_libdirs="$libdir" else # Just accumulate the unique libdirs. case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) ;; *) func_append hardcode_libdirs "$hardcode_libdir_separator$libdir" ;; esac fi else eval flag=\"$hardcode_libdir_flag_spec\" func_append dep_rpath " $flag" fi elif test -n "$runpath_var"; then case "$perm_rpath " in *" $libdir "*) ;; *) func_append perm_rpath " $libdir" ;; esac fi done # Substitute the hardcoded libdirs into the rpath. if test -n "$hardcode_libdir_separator" && test -n "$hardcode_libdirs"; then libdir="$hardcode_libdirs" eval "dep_rpath=\"$hardcode_libdir_flag_spec\"" fi if test -n "$runpath_var" && test -n "$perm_rpath"; then # We should set the runpath_var. rpath= for dir in $perm_rpath; do func_append rpath "$dir:" done eval "$runpath_var='$rpath\$$runpath_var'; export $runpath_var" fi test -n "$dep_rpath" && deplibs="$dep_rpath $deplibs" fi shlibpath="$finalize_shlibpath" test "$opt_mode" != relink && shlibpath="$compile_shlibpath$shlibpath" if test -n "$shlibpath"; then eval "$shlibpath_var='$shlibpath\$$shlibpath_var'; export $shlibpath_var" fi # Get the real and link names of the library. eval shared_ext=\"$shrext_cmds\" eval library_names=\"$library_names_spec\" set dummy $library_names shift realname="$1" shift if test -n "$soname_spec"; then eval soname=\"$soname_spec\" else soname="$realname" fi if test -z "$dlname"; then dlname=$soname fi lib="$output_objdir/$realname" linknames= for link do func_append linknames " $link" done # Use standard objects if they are pic test -z "$pic_flag" && libobjs=`$ECHO "$libobjs" | $SP2NL | $SED "$lo2o" | $NL2SP` test "X$libobjs" = "X " && libobjs= delfiles= if test -n "$export_symbols" && test -n "$include_expsyms"; then $opt_dry_run || cp "$export_symbols" "$output_objdir/$libname.uexp" export_symbols="$output_objdir/$libname.uexp" func_append delfiles " $export_symbols" fi orig_export_symbols= case $host_os in cygwin* | mingw* | cegcc*) if test -n "$export_symbols" && test -z "$export_symbols_regex"; then # exporting using user supplied symfile if test "x`$SED 1q $export_symbols`" != xEXPORTS; then # and it's NOT already a .def file. Must figure out # which of the given symbols are data symbols and tag # them as such. So, trigger use of export_symbols_cmds. # export_symbols gets reassigned inside the "prepare # the list of exported symbols" if statement, so the # include_expsyms logic still works. orig_export_symbols="$export_symbols" export_symbols= always_export_symbols=yes fi fi ;; esac # Prepare the list of exported symbols if test -z "$export_symbols"; then if test "$always_export_symbols" = yes || test -n "$export_symbols_regex"; then func_verbose "generating symbol list for \`$libname.la'" export_symbols="$output_objdir/$libname.exp" $opt_dry_run || $RM $export_symbols cmds=$export_symbols_cmds save_ifs="$IFS"; IFS='~' for cmd1 in $cmds; do IFS="$save_ifs" # Take the normal branch if the nm_file_list_spec branch # doesn't work or if tool conversion is not needed. case $nm_file_list_spec~$to_tool_file_cmd in *~func_convert_file_noop | *~func_convert_file_msys_to_w32 | ~*) try_normal_branch=yes eval cmd=\"$cmd1\" func_len " $cmd" len=$func_len_result ;; *) try_normal_branch=no ;; esac if test "$try_normal_branch" = yes \ && { test "$len" -lt "$max_cmd_len" \ || test "$max_cmd_len" -le -1; } then func_show_eval "$cmd" 'exit $?' skipped_export=false elif test -n "$nm_file_list_spec"; then func_basename "$output" output_la=$func_basename_result save_libobjs=$libobjs save_output=$output output=${output_objdir}/${output_la}.nm func_to_tool_file "$output" libobjs=$nm_file_list_spec$func_to_tool_file_result func_append delfiles " $output" func_verbose "creating $NM input file list: $output" for obj in $save_libobjs; do func_to_tool_file "$obj" $ECHO "$func_to_tool_file_result" done > "$output" eval cmd=\"$cmd1\" func_show_eval "$cmd" 'exit $?' output=$save_output libobjs=$save_libobjs skipped_export=false else # The command line is too long to execute in one step. func_verbose "using reloadable object file for export list..." skipped_export=: # Break out early, otherwise skipped_export may be # set to false by a later but shorter cmd. break fi done IFS="$save_ifs" if test -n "$export_symbols_regex" && test "X$skipped_export" != "X:"; then func_show_eval '$EGREP -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"' func_show_eval '$MV "${export_symbols}T" "$export_symbols"' fi fi fi if test -n "$export_symbols" && test -n "$include_expsyms"; then tmp_export_symbols="$export_symbols" test -n "$orig_export_symbols" && tmp_export_symbols="$orig_export_symbols" $opt_dry_run || eval '$ECHO "$include_expsyms" | $SP2NL >> "$tmp_export_symbols"' fi if test "X$skipped_export" != "X:" && test -n "$orig_export_symbols"; then # The given exports_symbols file has to be filtered, so filter it. func_verbose "filter symbol list for \`$libname.la' to tag DATA exports" # FIXME: $output_objdir/$libname.filter potentially contains lots of # 's' commands which not all seds can handle. GNU sed should be fine # though. Also, the filter scales superlinearly with the number of # global variables. join(1) would be nice here, but unfortunately # isn't a blessed tool. $opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter func_append delfiles " $export_symbols $output_objdir/$libname.filter" export_symbols=$output_objdir/$libname.def $opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols fi tmp_deplibs= for test_deplib in $deplibs; do case " $convenience " in *" $test_deplib "*) ;; *) func_append tmp_deplibs " $test_deplib" ;; esac done deplibs="$tmp_deplibs" if test -n "$convenience"; then if test -n "$whole_archive_flag_spec" && test "$compiler_needs_object" = yes && test -z "$libobjs"; then # extract the archives, so we have objects to list. # TODO: could optimize this to just extract one archive. whole_archive_flag_spec= fi if test -n "$whole_archive_flag_spec"; then save_libobjs=$libobjs eval libobjs=\"\$libobjs $whole_archive_flag_spec\" test "X$libobjs" = "X " && libobjs= else gentop="$output_objdir/${outputname}x" func_append generated " $gentop" func_extract_archives $gentop $convenience func_append libobjs " $func_extract_archives_result" test "X$libobjs" = "X " && libobjs= fi fi if test "$thread_safe" = yes && test -n "$thread_safe_flag_spec"; then eval flag=\"$thread_safe_flag_spec\" func_append linker_flags " $flag" fi # Make a backup of the uninstalled library when relinking if test "$opt_mode" = relink; then $opt_dry_run || eval '(cd $output_objdir && $RM ${realname}U && $MV $realname ${realname}U)' || exit $? fi # Do each of the archive commands. if test "$module" = yes && test -n "$module_cmds" ; then if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then eval test_cmds=\"$module_expsym_cmds\" cmds=$module_expsym_cmds else eval test_cmds=\"$module_cmds\" cmds=$module_cmds fi else if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then eval test_cmds=\"$archive_expsym_cmds\" cmds=$archive_expsym_cmds else eval test_cmds=\"$archive_cmds\" cmds=$archive_cmds fi fi if test "X$skipped_export" != "X:" && func_len " $test_cmds" && len=$func_len_result && test "$len" -lt "$max_cmd_len" || test "$max_cmd_len" -le -1; then : else # The command line is too long to link in one step, link piecewise # or, if using GNU ld and skipped_export is not :, use a linker # script. # Save the value of $output and $libobjs because we want to # use them later. If we have whole_archive_flag_spec, we # want to use save_libobjs as it was before # whole_archive_flag_spec was expanded, because we can't # assume the linker understands whole_archive_flag_spec. # This may have to be revisited, in case too many # convenience libraries get linked in and end up exceeding # the spec. if test -z "$convenience" || test -z "$whole_archive_flag_spec"; then save_libobjs=$libobjs fi save_output=$output func_basename "$output" output_la=$func_basename_result # Clear the reloadable object creation command queue and # initialize k to one. test_cmds= concat_cmds= objlist= last_robj= k=1 if test -n "$save_libobjs" && test "X$skipped_export" != "X:" && test "$with_gnu_ld" = yes; then output=${output_objdir}/${output_la}.lnkscript func_verbose "creating GNU ld script: $output" echo 'INPUT (' > $output for obj in $save_libobjs do func_to_tool_file "$obj" $ECHO "$func_to_tool_file_result" >> $output done echo ')' >> $output func_append delfiles " $output" func_to_tool_file "$output" output=$func_to_tool_file_result elif test -n "$save_libobjs" && test "X$skipped_export" != "X:" && test "X$file_list_spec" != X; then output=${output_objdir}/${output_la}.lnk func_verbose "creating linker input file list: $output" : > $output set x $save_libobjs shift firstobj= if test "$compiler_needs_object" = yes; then firstobj="$1 " shift fi for obj do func_to_tool_file "$obj" $ECHO "$func_to_tool_file_result" >> $output done func_append delfiles " $output" func_to_tool_file "$output" output=$firstobj\"$file_list_spec$func_to_tool_file_result\" else if test -n "$save_libobjs"; then func_verbose "creating reloadable object files..." output=$output_objdir/$output_la-${k}.$objext eval test_cmds=\"$reload_cmds\" func_len " $test_cmds" len0=$func_len_result len=$len0 # Loop over the list of objects to be linked. for obj in $save_libobjs do func_len " $obj" func_arith $len + $func_len_result len=$func_arith_result if test "X$objlist" = X || test "$len" -lt "$max_cmd_len"; then func_append objlist " $obj" else # The command $test_cmds is almost too long, add a # command to the queue. if test "$k" -eq 1 ; then # The first file doesn't have a previous command to add. reload_objs=$objlist eval concat_cmds=\"$reload_cmds\" else # All subsequent reloadable object files will link in # the last one created. reload_objs="$objlist $last_robj" eval concat_cmds=\"\$concat_cmds~$reload_cmds~\$RM $last_robj\" fi last_robj=$output_objdir/$output_la-${k}.$objext func_arith $k + 1 k=$func_arith_result output=$output_objdir/$output_la-${k}.$objext objlist=" $obj" func_len " $last_robj" func_arith $len0 + $func_len_result len=$func_arith_result fi done # Handle the remaining objects by creating one last # reloadable object file. All subsequent reloadable object # files will link in the last one created. test -z "$concat_cmds" || concat_cmds=$concat_cmds~ reload_objs="$objlist $last_robj" eval concat_cmds=\"\${concat_cmds}$reload_cmds\" if test -n "$last_robj"; then eval concat_cmds=\"\${concat_cmds}~\$RM $last_robj\" fi func_append delfiles " $output" else output= fi if ${skipped_export-false}; then func_verbose "generating symbol list for \`$libname.la'" export_symbols="$output_objdir/$libname.exp" $opt_dry_run || $RM $export_symbols libobjs=$output # Append the command to create the export file. test -z "$concat_cmds" || concat_cmds=$concat_cmds~ eval concat_cmds=\"\$concat_cmds$export_symbols_cmds\" if test -n "$last_robj"; then eval concat_cmds=\"\$concat_cmds~\$RM $last_robj\" fi fi test -n "$save_libobjs" && func_verbose "creating a temporary reloadable object file: $output" # Loop through the commands generated above and execute them. save_ifs="$IFS"; IFS='~' for cmd in $concat_cmds; do IFS="$save_ifs" $opt_silent || { func_quote_for_expand "$cmd" eval "func_echo $func_quote_for_expand_result" } $opt_dry_run || eval "$cmd" || { lt_exit=$? # Restore the uninstalled library and exit if test "$opt_mode" = relink; then ( cd "$output_objdir" && \ $RM "${realname}T" && \ $MV "${realname}U" "$realname" ) fi exit $lt_exit } done IFS="$save_ifs" if test -n "$export_symbols_regex" && ${skipped_export-false}; then func_show_eval '$EGREP -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"' func_show_eval '$MV "${export_symbols}T" "$export_symbols"' fi fi if ${skipped_export-false}; then if test -n "$export_symbols" && test -n "$include_expsyms"; then tmp_export_symbols="$export_symbols" test -n "$orig_export_symbols" && tmp_export_symbols="$orig_export_symbols" $opt_dry_run || eval '$ECHO "$include_expsyms" | $SP2NL >> "$tmp_export_symbols"' fi if test -n "$orig_export_symbols"; then # The given exports_symbols file has to be filtered, so filter it. func_verbose "filter symbol list for \`$libname.la' to tag DATA exports" # FIXME: $output_objdir/$libname.filter potentially contains lots of # 's' commands which not all seds can handle. GNU sed should be fine # though. Also, the filter scales superlinearly with the number of # global variables. join(1) would be nice here, but unfortunately # isn't a blessed tool. $opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter func_append delfiles " $export_symbols $output_objdir/$libname.filter" export_symbols=$output_objdir/$libname.def $opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols fi fi libobjs=$output # Restore the value of output. output=$save_output if test -n "$convenience" && test -n "$whole_archive_flag_spec"; then eval libobjs=\"\$libobjs $whole_archive_flag_spec\" test "X$libobjs" = "X " && libobjs= fi # Expand the library linking commands again to reset the # value of $libobjs for piecewise linking. # Do each of the archive commands. if test "$module" = yes && test -n "$module_cmds" ; then if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then cmds=$module_expsym_cmds else cmds=$module_cmds fi else if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then cmds=$archive_expsym_cmds else cmds=$archive_cmds fi fi fi if test -n "$delfiles"; then # Append the command to remove temporary files to $cmds. eval cmds=\"\$cmds~\$RM $delfiles\" fi # Add any objects from preloaded convenience libraries if test -n "$dlprefiles"; then gentop="$output_objdir/${outputname}x" func_append generated " $gentop" func_extract_archives $gentop $dlprefiles func_append libobjs " $func_extract_archives_result" test "X$libobjs" = "X " && libobjs= fi save_ifs="$IFS"; IFS='~' for cmd in $cmds; do IFS="$save_ifs" eval cmd=\"$cmd\" $opt_silent || { func_quote_for_expand "$cmd" eval "func_echo $func_quote_for_expand_result" } $opt_dry_run || eval "$cmd" || { lt_exit=$? # Restore the uninstalled library and exit if test "$opt_mode" = relink; then ( cd "$output_objdir" && \ $RM "${realname}T" && \ $MV "${realname}U" "$realname" ) fi exit $lt_exit } done IFS="$save_ifs" # Restore the uninstalled library and exit if test "$opt_mode" = relink; then $opt_dry_run || eval '(cd $output_objdir && $RM ${realname}T && $MV $realname ${realname}T && $MV ${realname}U $realname)' || exit $? if test -n "$convenience"; then if test -z "$whole_archive_flag_spec"; then func_show_eval '${RM}r "$gentop"' fi fi exit $EXIT_SUCCESS fi # Create links to the real library. for linkname in $linknames; do if test "$realname" != "$linkname"; then func_show_eval '(cd "$output_objdir" && $RM "$linkname" && $LN_S "$realname" "$linkname")' 'exit $?' fi done # If -module or -export-dynamic was specified, set the dlname. if test "$module" = yes || test "$export_dynamic" = yes; then # On all known operating systems, these are identical. dlname="$soname" fi fi ;; obj) if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then func_warning "\`-dlopen' is ignored for objects" fi case " $deplibs" in *\ -l* | *\ -L*) func_warning "\`-l' and \`-L' are ignored for objects" ;; esac test -n "$rpath" && \ func_warning "\`-rpath' is ignored for objects" test -n "$xrpath" && \ func_warning "\`-R' is ignored for objects" test -n "$vinfo" && \ func_warning "\`-version-info' is ignored for objects" test -n "$release" && \ func_warning "\`-release' is ignored for objects" case $output in *.lo) test -n "$objs$old_deplibs" && \ func_fatal_error "cannot build library object \`$output' from non-libtool objects" libobj=$output func_lo2o "$libobj" obj=$func_lo2o_result ;; *) libobj= obj="$output" ;; esac # Delete the old objects. $opt_dry_run || $RM $obj $libobj # Objects from convenience libraries. This assumes # single-version convenience libraries. Whenever we create # different ones for PIC/non-PIC, this we'll have to duplicate # the extraction. reload_conv_objs= gentop= # reload_cmds runs $LD directly, so let us get rid of # -Wl from whole_archive_flag_spec and hope we can get by with # turning comma into space.. wl= if test -n "$convenience"; then if test -n "$whole_archive_flag_spec"; then eval tmp_whole_archive_flags=\"$whole_archive_flag_spec\" reload_conv_objs=$reload_objs\ `$ECHO "$tmp_whole_archive_flags" | $SED 's|,| |g'` else gentop="$output_objdir/${obj}x" func_append generated " $gentop" func_extract_archives $gentop $convenience reload_conv_objs="$reload_objs $func_extract_archives_result" fi fi # If we're not building shared, we need to use non_pic_objs test "$build_libtool_libs" != yes && libobjs="$non_pic_objects" # Create the old-style object. reload_objs="$objs$old_deplibs "`$ECHO "$libobjs" | $SP2NL | $SED "/\.${libext}$/d; /\.lib$/d; $lo2o" | $NL2SP`" $reload_conv_objs" ### testsuite: skip nested quoting test output="$obj" func_execute_cmds "$reload_cmds" 'exit $?' # Exit if we aren't doing a library object file. if test -z "$libobj"; then if test -n "$gentop"; then func_show_eval '${RM}r "$gentop"' fi exit $EXIT_SUCCESS fi if test "$build_libtool_libs" != yes; then if test -n "$gentop"; then func_show_eval '${RM}r "$gentop"' fi # Create an invalid libtool object if no PIC, so that we don't # accidentally link it into a program. # $show "echo timestamp > $libobj" # $opt_dry_run || eval "echo timestamp > $libobj" || exit $? exit $EXIT_SUCCESS fi if test -n "$pic_flag" || test "$pic_mode" != default; then # Only do commands if we really have different PIC objects. reload_objs="$libobjs $reload_conv_objs" output="$libobj" func_execute_cmds "$reload_cmds" 'exit $?' fi if test -n "$gentop"; then func_show_eval '${RM}r "$gentop"' fi exit $EXIT_SUCCESS ;; prog) case $host in *cygwin*) func_stripname '' '.exe' "$output" output=$func_stripname_result.exe;; esac test -n "$vinfo" && \ func_warning "\`-version-info' is ignored for programs" test -n "$release" && \ func_warning "\`-release' is ignored for programs" test "$preload" = yes \ && test "$dlopen_support" = unknown \ && test "$dlopen_self" = unknown \ && test "$dlopen_self_static" = unknown && \ func_warning "\`LT_INIT([dlopen])' not used. Assuming no dlopen support." case $host in *-*-rhapsody* | *-*-darwin1.[012]) # On Rhapsody replace the C library is the System framework compile_deplibs=`$ECHO " $compile_deplibs" | $SED 's/ -lc / System.ltframework /'` finalize_deplibs=`$ECHO " $finalize_deplibs" | $SED 's/ -lc / System.ltframework /'` ;; esac case $host in *-*-darwin*) # Don't allow lazy linking, it breaks C++ global constructors # But is supposedly fixed on 10.4 or later (yay!). if test "$tagname" = CXX ; then case ${MACOSX_DEPLOYMENT_TARGET-10.0} in 10.[0123]) func_append compile_command " ${wl}-bind_at_load" func_append finalize_command " ${wl}-bind_at_load" ;; esac fi # Time to change all our "foo.ltframework" stuff back to "-framework foo" compile_deplibs=`$ECHO " $compile_deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` finalize_deplibs=`$ECHO " $finalize_deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` ;; esac # move library search paths that coincide with paths to not yet # installed libraries to the beginning of the library search list new_libs= for path in $notinst_path; do case " $new_libs " in *" -L$path/$objdir "*) ;; *) case " $compile_deplibs " in *" -L$path/$objdir "*) func_append new_libs " -L$path/$objdir" ;; esac ;; esac done for deplib in $compile_deplibs; do case $deplib in -L*) case " $new_libs " in *" $deplib "*) ;; *) func_append new_libs " $deplib" ;; esac ;; *) func_append new_libs " $deplib" ;; esac done compile_deplibs="$new_libs" func_append compile_command " $compile_deplibs" func_append finalize_command " $finalize_deplibs" if test -n "$rpath$xrpath"; then # If the user specified any rpath flags, then add them. for libdir in $rpath $xrpath; do # This is the magic to use -rpath. case "$finalize_rpath " in *" $libdir "*) ;; *) func_append finalize_rpath " $libdir" ;; esac done fi # Now hardcode the library paths rpath= hardcode_libdirs= for libdir in $compile_rpath $finalize_rpath; do if test -n "$hardcode_libdir_flag_spec"; then if test -n "$hardcode_libdir_separator"; then if test -z "$hardcode_libdirs"; then hardcode_libdirs="$libdir" else # Just accumulate the unique libdirs. case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) ;; *) func_append hardcode_libdirs "$hardcode_libdir_separator$libdir" ;; esac fi else eval flag=\"$hardcode_libdir_flag_spec\" func_append rpath " $flag" fi elif test -n "$runpath_var"; then case "$perm_rpath " in *" $libdir "*) ;; *) func_append perm_rpath " $libdir" ;; esac fi case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*) testbindir=`${ECHO} "$libdir" | ${SED} -e 's*/lib$*/bin*'` case :$dllsearchpath: in *":$libdir:"*) ;; ::) dllsearchpath=$libdir;; *) func_append dllsearchpath ":$libdir";; esac case :$dllsearchpath: in *":$testbindir:"*) ;; ::) dllsearchpath=$testbindir;; *) func_append dllsearchpath ":$testbindir";; esac ;; esac done # Substitute the hardcoded libdirs into the rpath. if test -n "$hardcode_libdir_separator" && test -n "$hardcode_libdirs"; then libdir="$hardcode_libdirs" eval rpath=\" $hardcode_libdir_flag_spec\" fi compile_rpath="$rpath" rpath= hardcode_libdirs= for libdir in $finalize_rpath; do if test -n "$hardcode_libdir_flag_spec"; then if test -n "$hardcode_libdir_separator"; then if test -z "$hardcode_libdirs"; then hardcode_libdirs="$libdir" else # Just accumulate the unique libdirs. case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) ;; *) func_append hardcode_libdirs "$hardcode_libdir_separator$libdir" ;; esac fi else eval flag=\"$hardcode_libdir_flag_spec\" func_append rpath " $flag" fi elif test -n "$runpath_var"; then case "$finalize_perm_rpath " in *" $libdir "*) ;; *) func_append finalize_perm_rpath " $libdir" ;; esac fi done # Substitute the hardcoded libdirs into the rpath. if test -n "$hardcode_libdir_separator" && test -n "$hardcode_libdirs"; then libdir="$hardcode_libdirs" eval rpath=\" $hardcode_libdir_flag_spec\" fi finalize_rpath="$rpath" if test -n "$libobjs" && test "$build_old_libs" = yes; then # Transform all the library objects into standard objects. compile_command=`$ECHO "$compile_command" | $SP2NL | $SED "$lo2o" | $NL2SP` finalize_command=`$ECHO "$finalize_command" | $SP2NL | $SED "$lo2o" | $NL2SP` fi func_generate_dlsyms "$outputname" "@PROGRAM@" "no" # template prelinking step if test -n "$prelink_cmds"; then func_execute_cmds "$prelink_cmds" 'exit $?' fi wrappers_required=yes case $host in *cegcc* | *mingw32ce*) # Disable wrappers for cegcc and mingw32ce hosts, we are cross compiling anyway. wrappers_required=no ;; *cygwin* | *mingw* ) if test "$build_libtool_libs" != yes; then wrappers_required=no fi ;; *) if test "$need_relink" = no || test "$build_libtool_libs" != yes; then wrappers_required=no fi ;; esac if test "$wrappers_required" = no; then # Replace the output file specification. compile_command=`$ECHO "$compile_command" | $SED 's%@OUTPUT@%'"$output"'%g'` link_command="$compile_command$compile_rpath" # We have no uninstalled library dependencies, so finalize right now. exit_status=0 func_show_eval "$link_command" 'exit_status=$?' if test -n "$postlink_cmds"; then func_to_tool_file "$output" postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'` func_execute_cmds "$postlink_cmds" 'exit $?' fi # Delete the generated files. if test -f "$output_objdir/${outputname}S.${objext}"; then func_show_eval '$RM "$output_objdir/${outputname}S.${objext}"' fi exit $exit_status fi if test -n "$compile_shlibpath$finalize_shlibpath"; then compile_command="$shlibpath_var=\"$compile_shlibpath$finalize_shlibpath\$$shlibpath_var\" $compile_command" fi if test -n "$finalize_shlibpath"; then finalize_command="$shlibpath_var=\"$finalize_shlibpath\$$shlibpath_var\" $finalize_command" fi compile_var= finalize_var= if test -n "$runpath_var"; then if test -n "$perm_rpath"; then # We should set the runpath_var. rpath= for dir in $perm_rpath; do func_append rpath "$dir:" done compile_var="$runpath_var=\"$rpath\$$runpath_var\" " fi if test -n "$finalize_perm_rpath"; then # We should set the runpath_var. rpath= for dir in $finalize_perm_rpath; do func_append rpath "$dir:" done finalize_var="$runpath_var=\"$rpath\$$runpath_var\" " fi fi if test "$no_install" = yes; then # We don't need to create a wrapper script. link_command="$compile_var$compile_command$compile_rpath" # Replace the output file specification. link_command=`$ECHO "$link_command" | $SED 's%@OUTPUT@%'"$output"'%g'` # Delete the old output file. $opt_dry_run || $RM $output # Link the executable and exit func_show_eval "$link_command" 'exit $?' if test -n "$postlink_cmds"; then func_to_tool_file "$output" postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'` func_execute_cmds "$postlink_cmds" 'exit $?' fi exit $EXIT_SUCCESS fi if test "$hardcode_action" = relink; then # Fast installation is not supported link_command="$compile_var$compile_command$compile_rpath" relink_command="$finalize_var$finalize_command$finalize_rpath" func_warning "this platform does not like uninstalled shared libraries" func_warning "\`$output' will be relinked during installation" else if test "$fast_install" != no; then link_command="$finalize_var$compile_command$finalize_rpath" if test "$fast_install" = yes; then relink_command=`$ECHO "$compile_var$compile_command$compile_rpath" | $SED 's%@OUTPUT@%\$progdir/\$file%g'` else # fast_install is set to needless relink_command= fi else link_command="$compile_var$compile_command$compile_rpath" relink_command="$finalize_var$finalize_command$finalize_rpath" fi fi # Replace the output file specification. link_command=`$ECHO "$link_command" | $SED 's%@OUTPUT@%'"$output_objdir/$outputname"'%g'` # Delete the old output files. $opt_dry_run || $RM $output $output_objdir/$outputname $output_objdir/lt-$outputname func_show_eval "$link_command" 'exit $?' if test -n "$postlink_cmds"; then func_to_tool_file "$output_objdir/$outputname" postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output_objdir/$outputname"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'` func_execute_cmds "$postlink_cmds" 'exit $?' fi # Now create the wrapper script. func_verbose "creating $output" # Quote the relink command for shipping. if test -n "$relink_command"; then # Preserve any variables that may affect compiler behavior for var in $variables_saved_for_relink; do if eval test -z \"\${$var+set}\"; then relink_command="{ test -z \"\${$var+set}\" || $lt_unset $var || { $var=; export $var; }; }; $relink_command" elif eval var_value=\$$var; test -z "$var_value"; then relink_command="$var=; export $var; $relink_command" else func_quote_for_eval "$var_value" relink_command="$var=$func_quote_for_eval_result; export $var; $relink_command" fi done relink_command="(cd `pwd`; $relink_command)" relink_command=`$ECHO "$relink_command" | $SED "$sed_quote_subst"` fi # Only actually do things if not in dry run mode. $opt_dry_run || { # win32 will think the script is a binary if it has # a .exe suffix, so we strip it off here. case $output in *.exe) func_stripname '' '.exe' "$output" output=$func_stripname_result ;; esac # test for cygwin because mv fails w/o .exe extensions case $host in *cygwin*) exeext=.exe func_stripname '' '.exe' "$outputname" outputname=$func_stripname_result ;; *) exeext= ;; esac case $host in *cygwin* | *mingw* ) func_dirname_and_basename "$output" "" "." output_name=$func_basename_result output_path=$func_dirname_result cwrappersource="$output_path/$objdir/lt-$output_name.c" cwrapper="$output_path/$output_name.exe" $RM $cwrappersource $cwrapper trap "$RM $cwrappersource $cwrapper; exit $EXIT_FAILURE" 1 2 15 func_emit_cwrapperexe_src > $cwrappersource # The wrapper executable is built using the $host compiler, # because it contains $host paths and files. If cross- # compiling, it, like the target executable, must be # executed on the $host or under an emulation environment. $opt_dry_run || { $LTCC $LTCFLAGS -o $cwrapper $cwrappersource $STRIP $cwrapper } # Now, create the wrapper script for func_source use: func_ltwrapper_scriptname $cwrapper $RM $func_ltwrapper_scriptname_result trap "$RM $func_ltwrapper_scriptname_result; exit $EXIT_FAILURE" 1 2 15 $opt_dry_run || { # note: this script will not be executed, so do not chmod. if test "x$build" = "x$host" ; then $cwrapper --lt-dump-script > $func_ltwrapper_scriptname_result else func_emit_wrapper no > $func_ltwrapper_scriptname_result fi } ;; * ) $RM $output trap "$RM $output; exit $EXIT_FAILURE" 1 2 15 func_emit_wrapper no > $output chmod +x $output ;; esac } exit $EXIT_SUCCESS ;; esac # See if we need to build an old-fashioned archive. for oldlib in $oldlibs; do if test "$build_libtool_libs" = convenience; then oldobjs="$libobjs_save $symfileobj" addlibs="$convenience" build_libtool_libs=no else if test "$build_libtool_libs" = module; then oldobjs="$libobjs_save" build_libtool_libs=no else oldobjs="$old_deplibs $non_pic_objects" if test "$preload" = yes && test -f "$symfileobj"; then func_append oldobjs " $symfileobj" fi fi addlibs="$old_convenience" fi if test -n "$addlibs"; then gentop="$output_objdir/${outputname}x" func_append generated " $gentop" func_extract_archives $gentop $addlibs func_append oldobjs " $func_extract_archives_result" fi # Do each command in the archive commands. if test -n "$old_archive_from_new_cmds" && test "$build_libtool_libs" = yes; then cmds=$old_archive_from_new_cmds else # Add any objects from preloaded convenience libraries if test -n "$dlprefiles"; then gentop="$output_objdir/${outputname}x" func_append generated " $gentop" func_extract_archives $gentop $dlprefiles func_append oldobjs " $func_extract_archives_result" fi # POSIX demands no paths to be encoded in archives. We have # to avoid creating archives with duplicate basenames if we # might have to extract them afterwards, e.g., when creating a # static archive out of a convenience library, or when linking # the entirety of a libtool archive into another (currently # not supported by libtool). if (for obj in $oldobjs do func_basename "$obj" $ECHO "$func_basename_result" done | sort | sort -uc >/dev/null 2>&1); then : else echo "copying selected object files to avoid basename conflicts..." gentop="$output_objdir/${outputname}x" func_append generated " $gentop" func_mkdir_p "$gentop" save_oldobjs=$oldobjs oldobjs= counter=1 for obj in $save_oldobjs do func_basename "$obj" objbase="$func_basename_result" case " $oldobjs " in " ") oldobjs=$obj ;; *[\ /]"$objbase "*) while :; do # Make sure we don't pick an alternate name that also # overlaps. newobj=lt$counter-$objbase func_arith $counter + 1 counter=$func_arith_result case " $oldobjs " in *[\ /]"$newobj "*) ;; *) if test ! -f "$gentop/$newobj"; then break; fi ;; esac done func_show_eval "ln $obj $gentop/$newobj || cp $obj $gentop/$newobj" func_append oldobjs " $gentop/$newobj" ;; *) func_append oldobjs " $obj" ;; esac done fi func_to_tool_file "$oldlib" func_convert_file_msys_to_w32 tool_oldlib=$func_to_tool_file_result eval cmds=\"$old_archive_cmds\" func_len " $cmds" len=$func_len_result if test "$len" -lt "$max_cmd_len" || test "$max_cmd_len" -le -1; then cmds=$old_archive_cmds elif test -n "$archiver_list_spec"; then func_verbose "using command file archive linking..." for obj in $oldobjs do func_to_tool_file "$obj" $ECHO "$func_to_tool_file_result" done > $output_objdir/$libname.libcmd func_to_tool_file "$output_objdir/$libname.libcmd" oldobjs=" $archiver_list_spec$func_to_tool_file_result" cmds=$old_archive_cmds else # the command line is too long to link in one step, link in parts func_verbose "using piecewise archive linking..." save_RANLIB=$RANLIB RANLIB=: objlist= concat_cmds= save_oldobjs=$oldobjs oldobjs= # Is there a better way of finding the last object in the list? for obj in $save_oldobjs do last_oldobj=$obj done eval test_cmds=\"$old_archive_cmds\" func_len " $test_cmds" len0=$func_len_result len=$len0 for obj in $save_oldobjs do func_len " $obj" func_arith $len + $func_len_result len=$func_arith_result func_append objlist " $obj" if test "$len" -lt "$max_cmd_len"; then : else # the above command should be used before it gets too long oldobjs=$objlist if test "$obj" = "$last_oldobj" ; then RANLIB=$save_RANLIB fi test -z "$concat_cmds" || concat_cmds=$concat_cmds~ eval concat_cmds=\"\${concat_cmds}$old_archive_cmds\" objlist= len=$len0 fi done RANLIB=$save_RANLIB oldobjs=$objlist if test "X$oldobjs" = "X" ; then eval cmds=\"\$concat_cmds\" else eval cmds=\"\$concat_cmds~\$old_archive_cmds\" fi fi fi func_execute_cmds "$cmds" 'exit $?' done test -n "$generated" && \ func_show_eval "${RM}r$generated" # Now create the libtool archive. case $output in *.la) old_library= test "$build_old_libs" = yes && old_library="$libname.$libext" func_verbose "creating $output" # Preserve any variables that may affect compiler behavior for var in $variables_saved_for_relink; do if eval test -z \"\${$var+set}\"; then relink_command="{ test -z \"\${$var+set}\" || $lt_unset $var || { $var=; export $var; }; }; $relink_command" elif eval var_value=\$$var; test -z "$var_value"; then relink_command="$var=; export $var; $relink_command" else func_quote_for_eval "$var_value" relink_command="$var=$func_quote_for_eval_result; export $var; $relink_command" fi done # Quote the link command for shipping. relink_command="(cd `pwd`; $SHELL $progpath $preserve_args --mode=relink $libtool_args @inst_prefix_dir@)" relink_command=`$ECHO "$relink_command" | $SED "$sed_quote_subst"` if test "$hardcode_automatic" = yes ; then relink_command= fi # Only create the output if not a dry run. $opt_dry_run || { for installed in no yes; do if test "$installed" = yes; then if test -z "$install_libdir"; then break fi output="$output_objdir/$outputname"i # Replace all uninstalled libtool libraries with the installed ones newdependency_libs= for deplib in $dependency_libs; do case $deplib in *.la) func_basename "$deplib" name="$func_basename_result" func_resolve_sysroot "$deplib" eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $func_resolve_sysroot_result` test -z "$libdir" && \ func_fatal_error "\`$deplib' is not a valid libtool archive" func_append newdependency_libs " ${lt_sysroot:+=}$libdir/$name" ;; -L*) func_stripname -L '' "$deplib" func_replace_sysroot "$func_stripname_result" func_append newdependency_libs " -L$func_replace_sysroot_result" ;; -R*) func_stripname -R '' "$deplib" func_replace_sysroot "$func_stripname_result" func_append newdependency_libs " -R$func_replace_sysroot_result" ;; *) func_append newdependency_libs " $deplib" ;; esac done dependency_libs="$newdependency_libs" newdlfiles= for lib in $dlfiles; do case $lib in *.la) func_basename "$lib" name="$func_basename_result" eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $lib` test -z "$libdir" && \ func_fatal_error "\`$lib' is not a valid libtool archive" func_append newdlfiles " ${lt_sysroot:+=}$libdir/$name" ;; *) func_append newdlfiles " $lib" ;; esac done dlfiles="$newdlfiles" newdlprefiles= for lib in $dlprefiles; do case $lib in *.la) # Only pass preopened files to the pseudo-archive (for # eventual linking with the app. that links it) if we # didn't already link the preopened objects directly into # the library: func_basename "$lib" name="$func_basename_result" eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $lib` test -z "$libdir" && \ func_fatal_error "\`$lib' is not a valid libtool archive" func_append newdlprefiles " ${lt_sysroot:+=}$libdir/$name" ;; esac done dlprefiles="$newdlprefiles" else newdlfiles= for lib in $dlfiles; do case $lib in [\\/]* | [A-Za-z]:[\\/]*) abs="$lib" ;; *) abs=`pwd`"/$lib" ;; esac func_append newdlfiles " $abs" done dlfiles="$newdlfiles" newdlprefiles= for lib in $dlprefiles; do case $lib in [\\/]* | [A-Za-z]:[\\/]*) abs="$lib" ;; *) abs=`pwd`"/$lib" ;; esac func_append newdlprefiles " $abs" done dlprefiles="$newdlprefiles" fi $RM $output # place dlname in correct position for cygwin # In fact, it would be nice if we could use this code for all target # systems that can't hard-code library paths into their executables # and that have no shared library path variable independent of PATH, # but it turns out we can't easily determine that from inspecting # libtool variables, so we have to hard-code the OSs to which it # applies here; at the moment, that means platforms that use the PE # object format with DLL files. See the long comment at the top of # tests/bindir.at for full details. tdlname=$dlname case $host,$output,$installed,$module,$dlname in *cygwin*,*lai,yes,no,*.dll | *mingw*,*lai,yes,no,*.dll | *cegcc*,*lai,yes,no,*.dll) # If a -bindir argument was supplied, place the dll there. if test "x$bindir" != x ; then func_relative_path "$install_libdir" "$bindir" tdlname=$func_relative_path_result$dlname else # Otherwise fall back on heuristic. tdlname=../bin/$dlname fi ;; esac $ECHO > $output "\ # $outputname - a libtool library file # Generated by $PROGRAM (GNU $PACKAGE$TIMESTAMP) $VERSION # # Please DO NOT delete this file! # It is necessary for linking the library. # The name that we can dlopen(3). dlname='$tdlname' # Names of this library. library_names='$library_names' # The name of the static archive. old_library='$old_library' # Linker flags that can not go in dependency_libs. inherited_linker_flags='$new_inherited_linker_flags' # Libraries that this one depends upon. dependency_libs='$dependency_libs' # Names of additional weak libraries provided by this library weak_library_names='$weak_libs' # Version information for $libname. current=$current age=$age revision=$revision # Is this an already installed library? installed=$installed # Should we warn about portability when linking against -modules? shouldnotlink=$module # Files to dlopen/dlpreopen dlopen='$dlfiles' dlpreopen='$dlprefiles' # Directory that this library needs to be installed in: libdir='$install_libdir'" if test "$installed" = no && test "$need_relink" = yes; then $ECHO >> $output "\ relink_command=\"$relink_command\"" fi done } # Do a symbolic link so that the libtool archive can be found in # LD_LIBRARY_PATH before the program is installed. func_show_eval '( cd "$output_objdir" && $RM "$outputname" && $LN_S "../$outputname" "$outputname" )' 'exit $?' ;; esac exit $EXIT_SUCCESS } { test "$opt_mode" = link || test "$opt_mode" = relink; } && func_mode_link ${1+"$@"} # func_mode_uninstall arg... func_mode_uninstall () { $opt_debug RM="$nonopt" files= rmforce= exit_status=0 # This variable tells wrapper scripts just to set variables rather # than running their programs. libtool_install_magic="$magic" for arg do case $arg in -f) func_append RM " $arg"; rmforce=yes ;; -*) func_append RM " $arg" ;; *) func_append files " $arg" ;; esac done test -z "$RM" && \ func_fatal_help "you must specify an RM program" rmdirs= for file in $files; do func_dirname "$file" "" "." dir="$func_dirname_result" if test "X$dir" = X.; then odir="$objdir" else odir="$dir/$objdir" fi func_basename "$file" name="$func_basename_result" test "$opt_mode" = uninstall && odir="$dir" # Remember odir for removal later, being careful to avoid duplicates if test "$opt_mode" = clean; then case " $rmdirs " in *" $odir "*) ;; *) func_append rmdirs " $odir" ;; esac fi # Don't error if the file doesn't exist and rm -f was used. if { test -L "$file"; } >/dev/null 2>&1 || { test -h "$file"; } >/dev/null 2>&1 || test -f "$file"; then : elif test -d "$file"; then exit_status=1 continue elif test "$rmforce" = yes; then continue fi rmfiles="$file" case $name in *.la) # Possibly a libtool archive, so verify it. if func_lalib_p "$file"; then func_source $dir/$name # Delete the libtool libraries and symlinks. for n in $library_names; do func_append rmfiles " $odir/$n" done test -n "$old_library" && func_append rmfiles " $odir/$old_library" case "$opt_mode" in clean) case " $library_names " in *" $dlname "*) ;; *) test -n "$dlname" && func_append rmfiles " $odir/$dlname" ;; esac test -n "$libdir" && func_append rmfiles " $odir/$name $odir/${name}i" ;; uninstall) if test -n "$library_names"; then # Do each command in the postuninstall commands. func_execute_cmds "$postuninstall_cmds" 'test "$rmforce" = yes || exit_status=1' fi if test -n "$old_library"; then # Do each command in the old_postuninstall commands. func_execute_cmds "$old_postuninstall_cmds" 'test "$rmforce" = yes || exit_status=1' fi # FIXME: should reinstall the best remaining shared library. ;; esac fi ;; *.lo) # Possibly a libtool object, so verify it. if func_lalib_p "$file"; then # Read the .lo file func_source $dir/$name # Add PIC object to the list of files to remove. if test -n "$pic_object" && test "$pic_object" != none; then func_append rmfiles " $dir/$pic_object" fi # Add non-PIC object to the list of files to remove. if test -n "$non_pic_object" && test "$non_pic_object" != none; then func_append rmfiles " $dir/$non_pic_object" fi fi ;; *) if test "$opt_mode" = clean ; then noexename=$name case $file in *.exe) func_stripname '' '.exe' "$file" file=$func_stripname_result func_stripname '' '.exe' "$name" noexename=$func_stripname_result # $file with .exe has already been added to rmfiles, # add $file without .exe func_append rmfiles " $file" ;; esac # Do a test to see if this is a libtool program. if func_ltwrapper_p "$file"; then if func_ltwrapper_executable_p "$file"; then func_ltwrapper_scriptname "$file" relink_command= func_source $func_ltwrapper_scriptname_result func_append rmfiles " $func_ltwrapper_scriptname_result" else relink_command= func_source $dir/$noexename fi # note $name still contains .exe if it was in $file originally # as does the version of $file that was added into $rmfiles func_append rmfiles " $odir/$name $odir/${name}S.${objext}" if test "$fast_install" = yes && test -n "$relink_command"; then func_append rmfiles " $odir/lt-$name" fi if test "X$noexename" != "X$name" ; then func_append rmfiles " $odir/lt-${noexename}.c" fi fi fi ;; esac func_show_eval "$RM $rmfiles" 'exit_status=1' done # Try to remove the ${objdir}s in the directories where we deleted files for dir in $rmdirs; do if test -d "$dir"; then func_show_eval "rmdir $dir >/dev/null 2>&1" fi done exit $exit_status } { test "$opt_mode" = uninstall || test "$opt_mode" = clean; } && func_mode_uninstall ${1+"$@"} test -z "$opt_mode" && { help="$generic_help" func_fatal_help "you must specify a MODE" } test -z "$exec_cmd" && \ func_fatal_help "invalid operation mode \`$opt_mode'" if test -n "$exec_cmd"; then eval exec "$exec_cmd" exit $EXIT_FAILURE fi exit $exit_status # The TAGs below are defined such that we never get into a situation # in which we disable both kinds of libraries. Given conflicting # choices, we go for a static library, that is the most portable, # since we can't tell whether shared libraries were disabled because # the user asked for that or because the platform doesn't support # them. This is particularly important on AIX, because we don't # support having both static and shared libraries enabled at the same # time on that platform, so we default to a shared-only configuration. # If a disable-shared tag is given, we'll fallback to a static-only # configuration. But we'll never go from static-only to shared-only. # ### BEGIN LIBTOOL TAG CONFIG: disable-shared build_libtool_libs=no build_old_libs=yes # ### END LIBTOOL TAG CONFIG: disable-shared # ### BEGIN LIBTOOL TAG CONFIG: disable-static build_old_libs=`case $build_libtool_libs in yes) echo no;; *) echo yes;; esac` # ### END LIBTOOL TAG CONFIG: disable-static # Local Variables: # mode:shell-script # sh-indentation:2 # End: # vi:sw=2 gpsim-0.27.0/configure.ac0000664000076400007640000001447412205237207012152 00000000000000# -*- Autoconf -*- # Process this file with autoconf to produce a configure script. AC_PREREQ(2.57) AC_INIT([gpsim], [0.27.0], []) AC_CONFIG_SRCDIR([config.h.in]) AC_CONFIG_HEADER([config.h]) AM_INIT_AUTOMAKE AM_MAINTAINER_MODE AC_CONFIG_MACRO_DIR([m4]) # Determine the host and build type. The target is always a PIC. AC_CANONICAL_BUILD AC_CANONICAL_HOST dnl --disable-gui : turn off gui support (cli only) dnl The default is to have the gui. AC_ARG_ENABLE(gui, [ --disable-gui Only use the cli and not the gui], [case "${enableval}" in yes) use_gui=yes ;; no) use_gui=no ;; *) AC_MSG_ERROR(bad value ${enableval} for --disable-gui) ;; esac],[use_gui=yes]) if test "$use_gui" = "no"; then echo disabling gui support else echo enabling gui support [ use_gui=yes ] AC_DEFINE([HAVE_GUI],[],[True if GUI is being used]) fi dnl --enable-sockets : allows gpsim to be controlled from a socket interface dnl The default is to not use sockets. AC_ARG_ENABLE(sockets, [ --enable-sockets Allows gpsim to be controlled via a socket interface], [case "${enableval}" in yes) use_sockets=yes ;; no) use_sockets=no ;; *) AC_MSG_ERROR(bad value ${enableval} for --enable-sockets) ;; esac],[use_sockets=no]) if test "$use_sockets" = "no"; then echo disabling gpsim socket interface else echo enabling gpsim socket interface [ use_sockets=yes ] AC_DEFINE([HAVE_SOCKETS],[],[True if gpsim socket interface is being used]) fi dnl check if popt is installed AC_CHECK_HEADER(popt.h, , AC_MSG_ERROR(popt not installed: cannot find popt.h)) GTK= GDK= GLIB= AC_PATH_PROG(PKGCONFIG, pkg-config, no, ${PATH}) if test $PKGCONFIG = "no"; then AC_MSG_ERROR(Cannot find pkg-config) fi if test "$use_gui" = "no"; then dnl glib2 checks X_LDFLAGS=`$PKGCONFIG --libs glib-2.0 gthread-2.0 gmodule-2.0` X_CFLAGS=`$PKGCONFIG --cflags glib-2.0` Y_LDFLAGS= Y_CFLAGS= else dnl gtk2 checks GTKEXTRAMOD="gtkextra-2.0" $PKGCONFIG --exists $GTKEXTRAMOD if test $? != 0; then GTKEXTRAMOD="gtkextra-3.0" $PKGCONFIG --exists $GTKEXTRAMOD if test $? != 0; then AC_MSG_ERROR(Cannot find gtkextra-2.0 or gtkextra-3.0 package) fi fi X_LDFLAGS=`$PKGCONFIG --libs gtk+-2.0 gthread-2.0` X_CFLAGS=`$PKGCONFIG --cflags gtk+-2.0` Y_LDFLAGS=`$PKGCONFIG --libs $GTKEXTRAMOD` Y_CFLAGS=`$PKGCONFIG --cflags $GTKEXTRAMOD` GTK_VERSION_T=`$PKGCONFIG --modversion gtk+-2.0` echo linking with gtk-$GTK_VERSION_T AC_DEFINE_UNQUOTED([GTK_VERSION],"$GTK_VERSION_T",[gtk version]) fi wi_LIB_READLINE if test "$wi_cv_lib_readline" != yes; then AC_MSG_ERROR(Cannot find readline library) fi # Checks for programs. AC_PROG_CXX AC_PROG_CXXCPP AC_PROG_CC AC_PROG_CPP AC_PROG_INSTALL AC_PROG_LN_S AC_PROG_MAKE_SET AC_PROG_YACC AM_PROG_LEX AM_PROG_LIBTOOL # Checks for libraries. AC_LANG([C++]) #AC_CHECK_LIB([gpsim], [main]) AC_CHECK_LIB([popt], [main]) #AC_CHECK_LIB([pthread], [main]) AC_CHECK_LIB([dl], [dlopen], [LIBDL="-ldl"]) # Checks for header files. AC_HEADER_STDC AC_CHECK_HEADERS([fcntl.h netdb.h netinet/in.h stddef.h stdint.h stdlib.h string.h sys/file.h sys/ioctl.h sys/socket.h sys/time.h termios.h unistd.h]) # Checks for typedefs, structures, and compiler characteristics. AC_HEADER_STDBOOL AC_C_CONST AC_C_INLINE AC_TYPE_SIZE_T AC_HEADER_TIME AC_TYPE_SIGNAL # Checks for library functions. AC_FUNC_ALLOCA AC_PROG_GCC_TRADITIONAL AC_FUNC_MALLOC AC_FUNC_REALLOC AC_FUNC_SELECT_ARGTYPES AC_FUNC_STRTOD AC_CHECK_FUNCS([floor gethostbyname gethostname gettimeofday memset pow select socket sqrt strcasecmp strchr strdup strerror strncasecmp strndup strpbrk strrchr strstr strtoul]) # printf modifier define for long long as "ll" # config_win32.h.in defines this for Visual Studio stdclib as "I64" AC_DEFINE([PRINTF_INT64_MODIFIER],["ll"],[printf modifier define for long long]) # define printf modifier for GINT64 (guint64 and gint64) as "ll" on 32 bit machines and as "l" on 64 bit machines # config_win32.h.in defines this for Visual Studio stdclib as "I64" AC_CHECK_SIZEOF(long) if test "$ac_cv_sizeof_long" -ge 8; then gpsim_cv_printf_gint64_modifier=l else gpsim_cv_printf_gint64_modifier=ll fi AC_DEFINE_UNQUOTED([PRINTF_GINT64_MODIFIER],"$gpsim_cv_printf_gint64_modifier",[printf modifier define for GINT64]) AM_CFLAGS= AM_CXXFLAGS= AM_LDFLAGS= # Options for the system on which the package will run case "${host}" in *linux* ) if test "x$GCC" = "xyes"; then AM_CFLAGS="-Wall" AM_CXXFLAGS="-Wall" AM_LDFLAGS="-Wl,-warn-common -Wl,-warn-once" fi ;; *mingw* ) ;; esac CFLAGS="${CFLAGS} ${AM_CFLAGS}" CXXFLAGS="${CXXFLAGS} ${AM_CXXFLAGS}" LDFLAGS="${LDFLAGS} ${AM_LDFLAGS}" # Host filesystem options case "${host}" in *mingw* | *-pc-os2_emx | *-pc-os2-emx | *djgpp* ) AC_DEFINE(HAVE_DOS_BASED_FILE_SYSTEM, 1, [Define if your host uses a DOS based file system. ]) ;; esac AC_SUBST(Y_CFLAGS) AC_SUBST(Y_LDFLAGS) AC_SUBST(X_CFLAGS) AC_SUBST(X_LDFLAGS) AC_SUBST(GTK) AC_SUBST(GDK) AC_SUBST(GLIB) AC_SUBST(LIBREADLINE) AC_SUBST(LIBDL) AC_CONFIG_FILES([Makefile cli/Makefile doc/Makefile examples/Makefile examples/modules/Makefile examples/projects/Makefile eXdbm/Makefile gpsim/Makefile gui/Makefile modules/Makefile extras/Makefile extras/graphic_lcd/Makefile extras/graphic_lcd/src/Makefile extras/lcd/Makefile extras/lcd/examples/Makefile extras/ds1820/Makefile extras/ds1820/examples/Makefile extras/ds1307/Makefile extras/ds1307/examples/Makefile regression/Makefile src/Makefile src/dspic/Makefile xpms/Makefile gpsim.spec]) AC_OUTPUT AC_MSG_RESULT([ gpsim-$PACKAGE_VERSION is now configured for $canonical_host_type Build: $build Host: $host Source directory: $srcdir Installation prefix: $prefix C compiler: $CC $CPPFLAGS $CFLAGS C++ compiler: $CXX $CPPFLAGS $CXXFLAGS gui: $use_gui Socket interface: $use_sockets ]) gpsim-0.27.0/COPYING0000664000076400007640000004325412203537557010726 00000000000000 GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 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 Lesser 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 How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) year name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Lesser General Public License instead of this License. gpsim-0.27.0/README.EXAMPLES0000644000076400007640000000113410520763107011745 00000000000000Write me 23OCT06 - removed the contents of this because it was completely out of date. This document needs to discuss the examples/ and regression/ subdirectories. Point out how the examples subdirectory illustrates some basic module features. Point out how the regression directory while designed to preserve gpsim's integrity also illustrates a wide variety of features. In addition, users may experiment with particular regression tests to see how the simulator is supporting a particular module. Perhaps this will make it easier for users to find new bugs! (and submit patches that fix them!). gpsim-0.27.0/modules/0000775000076400007640000000000012210742353011401 500000000000000gpsim-0.27.0/modules/usart.h0000644000076400007640000000407711400453160012631 00000000000000/* Copyright (C) 1998,1999,2000,2001 T. Scott Dattalo This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __USART_MODULE_H__ #define __USART_MODULE_H__ /* IN_MODULE should be defined for modules */ #define IN_MODULE #include "../config.h" #ifdef HAVE_GUI #define GTK_ENABLE_BROKEN #include #endif #include #include "../src/modules.h" class TXREG; class RCREG; class RxBaudRateAttribute; class TxBaudRateAttribute; class TxBuffer; class RxBuffer; class Boolean; class USARTModule : public Module { public: #ifdef HAVE_GUI GtkWidget *window, *text; #endif // HAVE_GUI void CreateGraphics(void); virtual void show_tx(unsigned int data); virtual void SendByte(unsigned tx_byte); // Inheritances from the Package class virtual void create_iopin_map(); USARTModule(const char *new_name); ~USARTModule(); static Module *USART_construct(const char *new_name=NULL); virtual void new_rx_edge(unsigned int); virtual bool mGetTxByte(unsigned int &); virtual void newRxByte(unsigned int); virtual void get(char *, int len); private: RxBaudRateAttribute *m_RxBaud; TxBaudRateAttribute *m_TxBaud; Boolean *m_CRLF; Boolean *m_loop; Boolean *m_console; Boolean *m_ShowHex; TxBuffer *m_TxBuffer; RxBuffer *m_RxBuffer; RCREG *m_rcreg; TXREG *m_txreg; unsigned char * m_TxFIFO; int m_FifoLen; int m_FifoHead; int m_FifoTail; }; #endif // __USART_MODULE_H__ gpsim-0.27.0/modules/stimuli.cc0000644000076400007640000004762511400453160013325 00000000000000/* Copyright (C) 2006 Scott Dattalo This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ /* stimuli.cc This module provides extended stimuli for gpsim. pulsegen - This a stimulus designed to synthesize square waves. It has the following attributes: .set .clear .delete .period The set and clear attributes generate the edge states. For example if the module is instantiated as PG, then gpsim> PG.set = 0x1000 gpsim> PG.clear = 0x2000 generate a rising edge at cycle 0x1000 and a falling edge at cycle 0x2000. Any number of edges can be specified and they may be in any order. The delete attribute removes an edge: gpsim> PG.delete = 0x2000 # remove the edge at cycle 0x2000 The period attribute tells how many cycles there are in a rollover. If period is 0, then the pulsegen is not periodic. If there are edges beyond the period time, then those will be ignored. To be added: .start - specify a cycle to start .vhi - voltage for high drive .vlo - voltage for low drive .rth - output resitance .cth - output capacitance. pwlgen - piecewise linear generator. filegen - time and values are specified in a file. */ /* IN_MODULE should be defined for modules */ #define IN_MODULE #include "../config.h" #include "../src/gpsim_time.h" #include "stimuli.h" #include "../src/pic-ioports.h" #include "../src/symbol.h" #include "../src/trace.h" #include "../src/processor.h" namespace ExtendedStimuli { //---------------------------------------------------------------------- // Attributes // class PulseAttribute : public Integer { public: PulseAttribute(PulseGen *pParent, const char *_name, const char * desc, double voltage); virtual void set(gint64); private: PulseGen *m_pParent; double m_voltage; }; class PulsePeriodAttribute : public Integer { public: PulsePeriodAttribute(PulseGen *pParent, const char *_name, const char * desc); virtual void set(gint64); private: PulseGen *m_pParent; }; class PulseInitial : public Float { public: PulseInitial(PulseGen *pParent, const char *_name, const char * desc, double voltage); virtual void set(double); private: PulseGen *m_pParent; double m_voltage; }; //---------------------------------------------------------------------- //---------------------------------------------------------------------- PulseAttribute::PulseAttribute(PulseGen *pParent, const char *_name, const char * desc, double voltage) : Integer(_name,0,desc), m_pParent(pParent), m_voltage(voltage) { } void PulseAttribute::set(gint64 i) { Integer::set(i); ValueStimulusData vsd; vsd.time = i; vsd.v = new Float(m_voltage); m_pParent->put_data(vsd); } //---------------------------------------------------------------------- PulsePeriodAttribute::PulsePeriodAttribute(PulseGen *pParent, const char *_name, const char * desc) : Integer(_name,0,desc), m_pParent(pParent) { } void PulsePeriodAttribute::set(gint64 i) { Integer::set(i); m_pParent->update_period(); } //---------------------------------------------------------------------- //---------------------------------------------------------------------- PulseInitial::PulseInitial(PulseGen *pParent, const char *_name, const char * desc, double voltage) : Float(_name,0,desc), m_pParent(pParent), m_voltage(voltage) { } void PulseInitial::set(double d) { Float::set(d); m_pParent->update(); } //---------------------------------------------------------------------- // StimulusBase //---------------------------------------------------------------------- StimulusBase::StimulusBase(const char *_name, const char *_desc) : Module(_name,_desc) { // Default module attributes. //initializeAttributes(); // The I/O pin m_pin = new IO_bi_directional((name() + ".pin").c_str()); m_pin->update_direction(IOPIN::DIR_OUTPUT,true); } //---------------------------------------------------------------------- //---------------------------------------------------------------------- void StimulusBase::callback_print() { printf("ExtendedStimulus:%s CallBack ID %d\n",name().c_str(),CallBackID); } void StimulusBase::create_iopin_map() { create_pkg(1); assign_pin(1, m_pin); } //---------------------------------------------------------------------- // FileGen Module //---------------------------------------------------------------------- //FileGen::FileGen //---------------------------------------------------------------------- // PulseGen Module //---------------------------------------------------------------------- Module *PulseGen::construct(const char *new_name) { PulseGen *pPulseGen = new PulseGen(new_name); return pPulseGen; } //---------------------------------------------------------------------- //---------------------------------------------------------------------- PulseGen::PulseGen(const char *_name=0) : StimulusBase(_name, "\ Pulse Generator\n\ Attributes:\n\ .set - time when the pulse will drive high\n\ .clear - time when the pulse will drive low\n\ .period - time the pulse stream is repeated\n\ .initial - initial pin voltage\n\ "), m_future_cycle(0), m_start_cycle(0) { // Attributes for the pulse generator. m_set = new PulseAttribute(this, "set","r/w cycle time when ouput will be driven high", 5.0); m_clear = new PulseAttribute(this, "clear","r/w cycle time when ouput will be driven low",0.0); m_period = new PulsePeriodAttribute(this, "period","r/w cycle time to specify pulse stream repeat rate"); m_init = new PulseInitial(this, "initial","initial I/O pin voltage", 5.0); addSymbol(m_set); addSymbol(m_clear); addSymbol(m_period); addSymbol(m_init); sample_iterator = samples.end(); create_iopin_map(); } PulseGen::~PulseGen() { removeSymbol(m_set); removeSymbol(m_clear); removeSymbol(m_period); removeSymbol(m_init); delete m_set; delete m_clear; delete m_period; delete m_init; } //---------------------------------------------------------------------- //---------------------------------------------------------------------- void PulseGen::callback() { //guint64 currCycle = get_cycles().get(); if (sample_iterator != samples.end()) { m_future_cycle = 0; double d; (*sample_iterator).v->get(d); m_pin->putState(d > 2.5); ++sample_iterator; // If we reached the end of a non-periodic waveform // then we're done. if (sample_iterator == samples.end() && m_period->getVal() == 0) return; // If this is a periodic pulse stream and either // a) we reached the end of the sequence // b) we have more data but it exceeds the period // then // start the stream over. if (m_period->getVal() && ((sample_iterator == samples.end() || (*sample_iterator).time > m_period->getVal()))) { sample_iterator = samples.begin(); m_start_cycle += m_period->getVal(); } m_future_cycle = m_start_cycle + (*sample_iterator).time; get_cycles().set_break(m_future_cycle, this); } } //------------------------------------------------------------ // Set a callback break point at the cycle specified // Point the sample_iterator to the appropiate sample void PulseGen::setBreak(guint64 next_cycle,list::iterator si) { if (m_future_cycle) { get_cycles().clear_break(this); m_future_cycle = 0; sample_iterator = samples.end(); } if (next_cycle > get_cycles().get()) { get_cycles().set_break(next_cycle, this); m_future_cycle = next_cycle; sample_iterator = si; } } //------------------------------------------------------------ // cycleIsInFuture - find_if helper predicate. // // The stl find_if() algorithm takes a pointer to a function whose // job is to compare a list element to a reference value. Stroustrop // calls this function a predicate. static gint64 current_cycle=0; static bool cycleIsInFuture(ValueStimulusData &data_point) { return data_point.time > current_cycle; } void PulseGen::update_period() { // If the period is 0 then force the start to 0. if (m_period->getVal() == 0) m_start_cycle = 0; // Find the next sample that will generate an edge. list::iterator si; current_cycle = get_cycles().get() - m_start_cycle; si = find_if(samples.begin(), samples.end(), cycleIsInFuture); if (si == samples.end() && m_period->getVal()) setBreak(m_start_cycle + m_period->getVal(), samples.begin()); } void PulseGen::update() { if (samples.empty()) { double d; m_init->get(d); m_pin->putState(d > 2.5); return; // There are no samples } current_cycle = get_cycles().get(); list::iterator si; if (current_cycle == 0) { // The simulation hasn't started yet. // Point to the second sample si = samples.begin(); ++si; // If the next sample *is* the second one then we've been here before // (and that means we've already handled the first sample) if (sample_iterator == si) return; if (si == samples.end()) { si = samples.begin(); sample_iterator = si; double d; (*si).v->get(d); m_pin->putState(d > 2.5); } sample_iterator = si; --si; double d; (*si).v->get(d); m_pin->putState(d > 2.5); setBreak((*sample_iterator).time, sample_iterator); return; } current_cycle -= m_start_cycle; si = find_if(samples.begin(), samples.end(), cycleIsInFuture); if (si == sample_iterator) return; setBreak(m_start_cycle + (*si).time, si); } void PulseGen::put_data(ValueStimulusData &data_point) { list::iterator si; si = find(samples.begin(), samples.end(), data_point); if (si == samples.end()) { samples.push_back(data_point); samples.sort(); } else { delete (*si).v; (*si).v = data_point.v; } update(); } string PulseGen::toString() { ostringstream sOut; sOut << "pulsegen toString method" << hex; list::iterator si; if (m_period->getVal()) sOut << endl <<"period 0x" << m_period->getVal(); if (m_start_cycle) sOut << endl << "start 0x" << m_start_cycle; si = samples.begin(); while (si != samples.end()) { sOut << endl; double d; (*si).v->get(d); sOut << " {0x" << (*si).time << ',' << d << '}'; if (si == sample_iterator) sOut << " <-- Next at cycle 0x" << (m_start_cycle + (*si).time); ++si; } sOut << ends; return sOut.str(); } //---------------------------------------------------------------------- // File Stimulus //---------------------------------------------------------------------- class FileNameAttribute : public String { public: FileNameAttribute(FileStimulus *, const char *_name, const char * desc); virtual void set(Value *); const char *getLine(); const FILE *fp() { return m_pFile; } private: FileStimulus *m_Parent; FILE *m_pFile; enum { eBuffSize = 1024 }; char m_buff[eBuffSize]; }; //=1024; FileNameAttribute::FileNameAttribute(FileStimulus *pParent, const char *_name, const char * _desc) : String(_name,"",_desc), m_Parent(pParent), m_pFile(0) { } void FileNameAttribute::set(Value *pV) { if (m_pFile) return; String::set(pV); m_pFile = fopen( getVal(), "r"); m_Parent->newFile(); } const char *FileNameAttribute::getLine() { m_buff[0]=0; if (m_pFile) fgets(m_buff, eBuffSize, m_pFile); return m_buff; } //---------------------------------------------------------------------- //---------------------------------------------------------------------- FileStimulus::FileStimulus(const char *_name) : StimulusBase(_name, "\ File Stimulus\n\ Attributes:\n\ .file - file name\n\ "), m_future_cycle(0) { // Attributes for the pulse generator. m_file = new FileNameAttribute(this, "file","name of file or pipe supplying data"); addSymbol(m_file); } FileStimulus::~FileStimulus() { } void FileStimulus::newFile() { if (m_future_cycle) { get_cycles().clear_break(this); m_future_cycle = 0; } parse(m_file->getLine()); } void FileStimulus::parse(const char *cP) { if (!cP) return; guint64 t; float v; //fscanf(m_file,"%" PRINTF_INT64_MODIFIER "i %g",&t, &v); sscanf(cP,"%" PRINTF_GINT64_MODIFIER "i %g",&t, &v); cout << " read 0x" << hex << t << "," << v << endl; } void FileStimulus::callback() { } string FileStimulus::toString() { ostringstream sOut; sOut << "fileStimulus toString method" << endl; sOut << ends; return sOut.str(); } //---------------------------------------------------------------------- //---------------------------------------------------------------------- class RegisterAddressAttribute : public Integer { public: RegisterAddressAttribute(Register *pReg, const char *_name, const char * desc); virtual void set(gint64); private: Register *m_replaced; const unsigned int InvalidAddress; }; RegisterAddressAttribute::RegisterAddressAttribute(Register *pReg,const char *_name, const char * desc) : Integer(_name,0xffffffff,desc), m_replaced(pReg), InvalidAddress(0xffffffff) { m_replaced->address = InvalidAddress; } void RegisterAddressAttribute::set(gint64 i) { Processor *pcpu = get_active_cpu(); if (pcpu && m_replaced) { if (m_replaced->address != InvalidAddress) pcpu->rma.removeRegister(m_replaced->address,m_replaced); m_replaced->set_cpu(pcpu); m_replaced->address = i & 0xffffffff; if (!pcpu->rma.insertRegister(m_replaced->address,m_replaced)) m_replaced->address = InvalidAddress; gint64 insertAddress = m_replaced->address; Integer::set(insertAddress); } } //---------------------------------------------------------------------- //---------------------------------------------------------------------- static void buildTraceType(Register *pReg, unsigned int baseType) { RegisterValue rv; rv = RegisterValue(baseType + (0<<8), baseType + (1<<8)); pReg->set_write_trace(rv); rv = RegisterValue(baseType + (2<<8), baseType + (3<<8)); pReg->set_read_trace(rv); } //---------------------------------------------------------------------- //---------------------------------------------------------------------- class PortPullupRegister : public sfr_register { public: PortPullupRegister(const char *_name, PicPortRegister *_port, unsigned int enableMask); ~PortPullupRegister() {} virtual void put(unsigned int new_value); private: PicPortRegister *m_port; unsigned int m_EnableMask; }; PortPullupRegister::PortPullupRegister(const char *_name, PicPortRegister *_port, unsigned int enableMask) : sfr_register(0,_name,"Port Pullup"),m_port(_port),m_EnableMask(enableMask) { new_name(_name); value = RegisterValue(0,~enableMask); } void PortPullupRegister::put(unsigned int new_value) { get_trace().raw(write_trace.get() | value.data); unsigned int diff = (value.data ^ new_value) & m_EnableMask; value.data = new_value; if (diff && m_port) { for (unsigned int i=1,j=0; diff && i; i<<=1, j++) if (diff & i) m_port->getPin(j)->update_pullup(((value.data & i) !=0) ? '1':'0',true); m_port->updatePort(); } } //---------------------------------------------------------------------- //---------------------------------------------------------------------- Module *PortStimulus::construct8(const char *new_name) { return new PortStimulus(new_name,8); } Module *PortStimulus::construct16(const char *new_name) { return new PortStimulus(new_name,16); } Module *PortStimulus::construct32(const char *new_name) { return new PortStimulus(new_name,32); } //---------------------------------------------------------------------- //---------------------------------------------------------------------- PortStimulus::PortStimulus(const char *_name, int nPins) : Module(_name, "\ Port Stimulus\n\ Attributes:\n\ .port - port name\n\ .tris - tris name\n\ .lat - latch name\n\ .pullup - pullup name\n\ "), m_nPins(nPins) { mPort = new PicPortRegister(0,(name()+".port").c_str(),"",m_nPins,(1<type()); buildTraceType(mTris, mMTT->type() + (4<<16)); buildTraceType(mLatch, mMTT->type() + (8<<16)); buildTraceType(mPullup, mMTT->type() + (12<<16)); create_iopin_map(); } PortStimulus::~PortStimulus() { printf("~PortStimulus\n"); } //---------------------------------------------------------------------- //---------------------------------------------------------------------- void PortStimulus::callback_print() { printf("PortStimulus:%s CallBack ID %d\n",name().c_str(),CallBackID); } void PortStimulus::create_iopin_map() { create_pkg(m_nPins); char pinNumber[3]; for (int i=0; iupdate_direction(IOPIN::DIR_OUTPUT,true); assign_pin(i+1, mPort->addPin(ppin,i)); } } } // end of namespace ExtendedStimuli gpsim-0.27.0/modules/ttl.h0000664000076400007640000000572511463237710012313 00000000000000/* Copyright (C) 2006 T. Scott Dattalo This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __ttl_H__ #define __ttl_H__ #include "../src/stimuli.h" #include "../src/ioports.h" #include "../src/modules.h" namespace TTL { //------------------------------------------------------------------------ // // TTL devices // class TTLbase : public Module { public: TTLbase(const char *_name, const char *desc); ~TTLbase(); virtual void setClock(bool) {} virtual void setStrobe(bool) {} virtual void setEnable(bool) {} virtual void setReset(bool) {} //virtual void create_iopin_map(); virtual void update_state()=0; //GtkWidget *create_pixmap(char **pixmap_data); protected: double m_dVdd; bool m_bClock; bool m_bEnable; }; class Clock; class Strobe; class Enable; class Reset; class TTL377 : public TTLbase { public: TTL377(const char *_name); static Module *construct(const char *new_name=NULL); virtual void create_iopin_map(); virtual void setClock(bool); virtual void setEnable(bool); virtual void update_state(); protected: Clock *m_clock; Enable *m_enable; IOPIN **m_D; IO_bi_directional **m_Q; }; class TTL595 : public TTLbase { public: TTL595(const char *_name); static Module *construct(const char *new_name=NULL); virtual void create_iopin_map(); virtual void setClock(bool); virtual void setStrobe(bool); virtual void setEnable(bool); virtual void setReset(bool); virtual void update_state(); protected: bool m_bStrobe; Clock *m_clock; Strobe *m_strobe; Reset *m_reset; Enable *m_enable; IOPIN *m_Ds; IOPIN *m_Qs; IO_bi_directional **m_Q; unsigned short sreg; }; class TTL165 : public TTLbase { public: TTL165(const char *_name); static Module *construct(const char *new_name=NULL); virtual void create_iopin_map(); virtual void setClock(bool); virtual void setStrobe(bool); virtual void setEnable(bool); virtual void update_state(); protected: bool m_bStrobe; Clock *m_clock; Strobe *m_strobe; Enable *m_enable; IOPIN *m_Ds; IOPIN *m_Q; IOPIN *m_Qbar; IOPIN **m_D; unsigned short sreg; }; } // end of namespace TTL #endif // __ttl_H__ gpsim-0.27.0/modules/usart.cc0000664000076400007640000006602512121441731012774 00000000000000/* Copyright (C) 1998,1999,2000,2001 T. Scott Dattalo This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ /* usart.cc This is gpsim's universal synchronous/asynchronous receiver/transceiver. Features: 8 or 9 bit receiver and transmitter 0 or 1 start bits 0 or 1 stop bits 0 or 1 parity bits and even/odd selectable variable sized transmit and receive buffers */ /* IN_MODULE should be defined for modules */ #define IN_MODULE #define DEFAULT_BAUD 9600 #include #include #include #include // for floor() #include "../config.h" // get the definition for HAVE_GUI #ifdef HAVE_GUI #define GTK_ENABLE_BROKEN #include #endif #include "usart.h" #include #include "../src/value.h" #include "../src/modules.h" #include "../src/packages.h" #include "../src/stimuli.h" #include "../src/ioports.h" #include "../src/symbol.h" #include "../src/interface.h" #include "../src/pir.h" #include "../src/trace.h" #include "../src/uart.h" //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("module-%s:%d-%s() ",__FILE__,__LINE__,__FUNCTION__); printf arg; } #else #define Dprintf(arg) {} #endif #define HAVE_TXFIFO static bool bIsLow(char state) { return state=='0' || state=='w'; } static bool bIsHigh(char state) { return state=='1' || state=='W'; } /********************************************************************************** gpsim's USART module The USART module is a general purpose universal synchronous/asynchronous serial receiver and transmitter. In other words, it's a serial port. It's purpose is to provide a tool to assist in the debugging of serial interfaces. Users can load this module and tie it to their receive and transmit pins of their simulated PIC's. Then experiments can be conducted on things like baud rate variation, transmit inundation, protocol development, etc. The design of this dynamically loadable module mimics the USART peripheral found in PIC microcontrollers. In fact, the USARTModule class is derived from the USART_MODULE class that is instantiated by simulated PIC's. There are some notable differences, however. For example, the registers from which the usart is constructed behave differently. Most notably, the spbrg (serial port baud rate generator) is not confined to the limited number of discrete baud rates. **********************************************************************************/ //-------------------------------------------------------------- // // class USART_RXPIN : public IO_bi_directional_pu { public: USARTModule *usart; USART_RXPIN (USARTModule *_usart, const char *opt_name=NULL) : IO_bi_directional_pu(opt_name) { usart = _usart; string n(usart->name()); n = n + ".RXPIN"; new_name(n.c_str()); // Let the pin think it's in the high state. If this is wrong, // then the I/O pin driving it will correct it. (Starting off // low prevents the start bit from being captured.) // Note, may want to add a flag that indicates if the pin // has ever been driven at all. This way, we can capture the // first edge. Or we could add another parameter to the constructor. bDrivenState = true; update_direction(0,true); // Make the RX pin an input. bPullUp = true; Zpullup = 10e3; }; void setDrivenState(bool new_dstate) { bool diff = new_dstate ^ bDrivenState; Dprintf((" usart module rxpin new state=%d\n",new_dstate)); if( usart && diff ) { bDrivenState = new_dstate; IOPIN::setDrivenState(new_dstate); usart->new_rx_edge(bDrivenState); } } }; //-------------------------------------------------------------- // // class USART_TXPIN : public IO_bi_directional { private: USART_TXPIN() { } public: USARTModule *usart; USART_TXPIN (USARTModule *_usart, const char *opt_name=NULL) { usart = _usart; string n(usart->name()); n = n + ".TXPIN"; IO_bi_directional(n.c_str()); new_name(n.c_str()); bDrivingState = true; update_direction(1,true); // Make the TX pin an output. }; }; //================================================================= // // TXREG // // Create a transmit register based upon the transmit register // defined in the main gpsim code. // class TXREG : public TriggerObject { private: bool empty_flag; double baud; guint64 time_per_bit; guint64 last_time; guint64 start_time; guint64 future_time; guint64 start_bit_time; unsigned int start_bit_index; bool last_bit; int bits_per_byte; double stop_bits; guint64 time_per_packet; unsigned int txr; // Transmit register int bit_count; // used while transmitting. unsigned int tx_byte; enum TX_STATES { TX_TRANSMITTING } transmit_state; bool use_parity; bool parity; // 0 = even, 1 = odd public: USART_TXPIN *txpin; USARTModule *usart; virtual bool is_empty() { return empty_flag;}; virtual void empty() {empty_flag = 1;}; virtual void full() {empty_flag = 0;}; virtual void assign_pir_set(PIR_SET *new_pir_set){}; TXREG(void) { txpin = 0; usart = 0; bits_per_byte = 8; stop_bits = 1; use_parity = 0; set_baud_rate(DEFAULT_BAUD); tx_byte = '0'; update_packet_time(); empty(); } void update_packet_time(void) { if(baud <= 0.0) baud = 9600; //arbitrary // Calculate the total time to send a "packet", i.e. start bit, data, parity, and stop // The stop bit time is included in the total packet time if(get_active_cpu()) { time_per_packet = (guint64)( get_cycles().instruction_cps() * ( (1.0 + // start bit bits_per_byte + // data bits stop_bits + // stop bit(s) use_parity) // /baud)); time_per_bit = (guint64)(get_cycles().instruction_cps() / baud); } else time_per_packet = time_per_bit = 0; //cout << "update_packet_time ==> 0x" << hex<< time_per_packet << "\n"; } void set_bits_per_byte(int num_bits) { bits_per_byte = num_bits; update_packet_time(); } void set_baud_rate(double new_baud) { baud = new_baud; update_packet_time(); }; void set_stop_bits(double new_stop_bits) { stop_bits = new_stop_bits; } void set_noparity(void) { use_parity = 0; } void set_parity(bool new_parity) { use_parity = 1; parity = new_parity; } virtual void callback(void) { if(0) { cout << " usart module TXREG::" << __FUNCTION__ << "\n"; } last_time = get_cycles().get(); start_time = last_time; if(txpin) { txpin->putState((txr & 1) ? true : false); if (0) { cout << "usart tx module sent a " << (txr&1) << " bit count " << bit_count << '\n'; } } if(bit_count) { txr >>= 1; bit_count--; future_time = last_time + time_per_bit; get_cycles().set_break(future_time, this); } else { // We've sent the whole byte. /* output data from buffer if configured */ #ifdef HAVE_TXFIFO if(usart && usart->mGetTxByte(tx_byte)) mSendByte(tx_byte); else #endif empty(); } } void mSendByte(unsigned _tx_byte) { if(0) { cout << "\n\n"; cout << "TXREG::" << __FUNCTION__ << "\n"; cout << "\n\n"; } mBuildTXpacket(_tx_byte); last_time = get_cycles().get(); future_time = last_time + time_per_bit; get_cycles().set_break(future_time, this); full(); } private: void mBuildTXpacket(unsigned int tb) { tx_byte = tb & ((1< 0x" << hex<< time_per_packet << "\n"; } void set_baud_rate(double new_baud) { baud = new_baud; update_packet_time(); }; void set_stop_bits(double new_stop_bits) { stop_bits = new_stop_bits; } void set_noparity(void) { use_parity = 0; } void set_parity(bool new_parity) { use_parity = 1; parity = new_parity; } virtual void callback(); void start(); void new_rx_edge(bool bit); private: USARTModule *m_usart; char m_cLastRXState; unsigned int start_bit_event; guint32 error_flag; guint64 time_per_bit; guint64 start_time; guint64 future_time; // Configuration information int bits_per_byte; double stop_bits; bool use_parity; bool parity; // 0 = even, 1 = odd double baud; unsigned int rx_byte; int rx_count; guint64 time_per_packet; bool autobaud; IOPIN *rcpin; unsigned int *fifo; }; //------------------------------------------------------------------------ RCREG::RCREG(USARTModule *pUsart) : m_usart(pUsart), m_cLastRXState('?'), start_bit_event(0), rcpin(0) { assert(m_usart); receive_state = RS_WAITING_FOR_START; autobaud = false; baud = DEFAULT_BAUD; set_stop_bits(0.9); set_noparity(); set_bits_per_byte(8); } //------------------------------------------------------------------------ void RCREG::callback() { Dprintf((" usart module RCREG time:0x%"PRINTF_GINT64_MODIFIER"x=%"PRINTF_GINT64_MODIFIER"d\n", get_cycles().get(), get_cycles().get())); switch(receive_state) { case RS_WAITING_FOR_START: Dprintf(("waiting for start\n")); break; case RS_START_BIT: // should now be in middle of start bit if (bIsLow(m_cLastRXState)) { receive_state = RS_RECEIVING; rx_count = bits_per_byte + use_parity; rx_byte = 0; future_time = get_cycles().get() + time_per_bit; if(!autobaud) get_cycles().set_break(future_time, this); } else // Not valid start bit { receive_state = RS_WAITING_FOR_START; } break; case RS_RECEIVING: if (rx_count--) { rx_byte = (rx_byte >> 1) | (bIsHigh(m_cLastRXState) ? 1<<(bits_per_byte-1) : 0); future_time = get_cycles().get() + time_per_bit; if(!autobaud) get_cycles().set_break(future_time, this); } else if (bIsHigh(m_cLastRXState)) // on stop bit { m_usart->newRxByte(rx_byte); m_usart->show_tx(rx_byte); receive_state = RS_WAITING_FOR_START; } else { cout << "USART module RX overrun error\n"; receive_state = RS_WAITING_FOR_START; } break; case RS_STOPPED: receive_state = RS_WAITING_FOR_START; cout << "received a stop bit\n"; break; default: break; } }; //------------------------------------------------------------------------ void RCREG::start() { receive_state = RS_START_BIT; future_time = get_cycles().get() + time_per_bit/2; if(!autobaud) { get_cycles().set_break(future_time, this); } Dprintf((" usart module RCREG current cycle=0x%"PRINTF_GINT64_MODIFIER"x future_cycle=0x%"PRINTF_GINT64_MODIFIER"x\n", get_cycles().get(),future_time)); } //------------------------------------------------------------------------ // new_rx_edge(bool bit) // // This routine get's called when there's a change on the // RX line. The time the edge occurred is stored into an // event buffer. No effort is made here to decode a byte; // instead, decoding will take place in callback(). void RCREG::new_rx_edge(bool bit) { // Save the event state char currentRXState = rxpin->getBitChar(); if (currentRXState != m_cLastRXState) { m_cLastRXState = currentRXState; switch(receive_state) { case RS_WAITING_FOR_START: if(bIsLow(currentRXState)) { start(); Dprintf(("Start bit at t=0x%"PRINTF_GINT64_MODIFIER"x\n",get_cycles().get())); } break; case RS_RECEIVING: break; case RS_OVERRUN: break; default: break; } /**/ } } //------------------------------------------------------------------------ class USART_IO : public IO_bi_directional_pu { public: USARTModule *usart; USART_IO(void) { cout << "USART_IO constructor - do nothing\n"; } USART_IO ( USARTModule *_usart, unsigned int b, const char *opt_name ) : IO_bi_directional_pu(opt_name) { usart = _usart; string n(usart->name()); n = n + "." + opt_name; new_name(n.c_str()); bDrivenState = true; update_direction(0,true); // Make the RX pin an input. bPullUp = true; Zpullup = 10e3; } void setDrivenState(bool new_dstate) { bool diff = new_dstate ^ bDrivenState; // Dprintf((" usart module %s new state=%d\n",name(),new_dstate)); if( usart && diff ) { bDrivenState = new_dstate; IOPIN::setDrivenState(new_dstate); } } }; // // USART attributes // // Provide attributes that allow the user to dynamically // configure the USART module // // Attribute Default // Name Value // ------------------- // txbaud 9600 // rxbaud 9600 // txreg -- // rxreg -- // parity 0 // start_bits 1 // stop_bits 1 // class RxBaudRateAttribute : public Integer { public: RCREG *rcreg; RxBaudRateAttribute(RCREG *prcreg) : Integer("rxbaud",DEFAULT_BAUD,"USART Module Receiver baud rate"), rcreg(prcreg) { assert(rcreg); } void set(Value *v) { Integer::set(v); gint64 b; get(b); rcreg->set_baud_rate(b); cout << "Setting Rx baud rate attribute to " << dec << b << "\n"; }; virtual string toString() { return Integer::toString("%" PRINTF_INT64_MODIFIER "d"); } }; class TxBaudRateAttribute : public Integer { public: TXREG *txreg; TxBaudRateAttribute(TXREG *ptxreg) : Integer("txbaud",DEFAULT_BAUD,"USART Module Transmitter baud rate"), txreg(ptxreg) { assert(txreg); } void set(Value *v) { Integer::set(v); gint64 b; get(b); txreg->set_baud_rate(b); cout << "Setting Tx baud rate attribute to " << dec << b << "\n"; } virtual string toString() { return Integer::toString("%" PRINTF_INT64_MODIFIER "d"); } }; class TxBuffer : public Integer { USARTModule *usart; public: TxBuffer(USARTModule *_usart) : Integer("tx",0,"UART Transmit Register"),usart(_usart) { } virtual void set(gint64 i) { i &= 0xff; //cout << name() << " sending byte 0x" << hex << i << endl; if(usart) usart->SendByte(i); Integer::set(i); } virtual string toString() { return Integer::toString("%" PRINTF_INT64_MODIFIER "d"); } }; class RxBuffer : public Integer { RCREG *rcreg; public: RxBuffer(RCREG *_rcreg) : Integer("rx",0,"UART Receive Register"),rcreg(_rcreg) { } virtual void set(gint64 i) { cout << "Receive buffer is read only\n"; } virtual string toString() { return Integer::toString("%" PRINTF_INT64_MODIFIER "d"); } void newByte(gint64 b) { Dprintf((" RxBuffer received a byte: 0x%02x=%d=%c",(int)b, (int)b, (int)b)); Integer::set(b); } }; //-------------------------------------------------------------- void USARTModule::new_rx_edge(unsigned int bit) { if(m_rcreg) m_rcreg->new_rx_edge(bit ? true : false); } //-------------------------------------------------------------- void USARTModule::newRxByte(unsigned int aByte) { m_RxBuffer->newByte(aByte); if(m_loop->getVal()) { SendByte(aByte); } } //-------------------------------------------------------------- #ifndef HAVE_TXFIFO static unsigned int _tx_index=0; static unsigned char Test_Hello[] = { 0x1b,0xff, 0x87,0x05, 'H', 'E', 'L', 'L', 'O', 0x17, 0x55 }; bool USARTModule::mGetTxByte(unsigned int &aByte) { if (_tx_index > sizeof(Test_Hello)) return false; aByte = Test_Hello[_tx_index++]; return true; } #else bool USARTModule::mGetTxByte(unsigned int &aByte) { if ( m_FifoHead == m_FifoTail ) return false; aByte = m_TxFIFO[m_FifoTail]; if ( m_FifoTail < m_FifoLen-1 ) m_FifoTail++; else m_FifoTail = 0; return true; } #endif //-------------------------------------------------------------- // create_iopin_map // // This is where the information for the Module's package is defined. // Specifically, the I/O pins of the module are created. #define USART_PKG_TXPIN 1 #define USART_PKG_RXPIN 2 #define USART_PKG_CTSPIN 3 #define USART_PKG_RTXPIN 4 void USARTModule::create_iopin_map(void) { // Define the physical package. // The Package class, which is a parent of all of the modules, // is responsible for allocating memory for the I/O pins. // // USART I/O pins: // // 1 - Tx - Transmit // 2 - Rx - Receive // 3 - CTS - Clear To Send // 4 - RTS - Request To Send create_pkg(4); // Define the I/O pins and assign them to the package. // There are two things happening here. First, there is // a new I/O pin that is being created.The second thing is // that the pins are "assigned" to the package. If we // need to reference these newly created I/O pins (like // below) then we can call the member function 'get_pin'. USART_TXPIN *txpin = new USART_TXPIN(this, "TXPIN"); USART_RXPIN *rxpin = new USART_RXPIN(this, "RXPIN"); assign_pin(1, txpin); assign_pin(2, rxpin); assign_pin(3, new USART_IO(this, 2, "CTS")); assign_pin(4, new USART_IO(this, 3, "RTS")); // Complete the usart initialization m_txreg->txpin = txpin; m_txreg->usart = this; // Point back to the module m_rcreg->rxpin = rxpin; } //-------------------------------------------------------------- void USARTModule::get(char *cP, int len) { cout << "USARTModule::get(char *cP, int len)\n"; } //-------------------------------------------------------------- Module * USARTModule::USART_construct(const char *_new_name) { Dprintf(("USART construct\n")); USARTModule *um = new USARTModule( (_new_name ?_new_name:"USART")); um->create_iopin_map(); return um; } USARTModule::USARTModule(const char *_name) : Module(_name, "USART") { #ifdef HAVE_TXFIFO m_TxFIFO = new unsigned char[64]; m_FifoLen = 64; m_FifoHead = m_FifoTail = 0; #endif m_rcreg = new RCREG(this); m_txreg = new TXREG; m_RxBaud = new RxBaudRateAttribute(m_rcreg); addSymbol(m_RxBaud); m_TxBaud = new TxBaudRateAttribute(m_txreg); addSymbol(m_TxBaud); m_RxBuffer = new RxBuffer(m_rcreg); addSymbol(m_RxBuffer); m_TxBuffer = new TxBuffer(this); addSymbol(m_TxBuffer); m_CRLF = new Boolean("crlf", true, "if true, carriage return and linefeeds generate new lines in the terminal"); addSymbol(m_CRLF); m_ShowHex = new Boolean("hex", false, "if true, display received data in hex - i.e. assume binary"); addSymbol(m_ShowHex); m_loop = new Boolean("loop", false, "if true, received characters looped back to transmit"); addSymbol(m_loop); m_console = new Boolean("console", false, "if true, display received character to the terminal window"); addSymbol(m_console); CreateGraphics(); assert(m_rcreg); assert(m_txreg); assert(m_RxBaud); assert(m_TxBaud); assert(m_RxBuffer); assert(m_TxBuffer); } USARTModule::~USARTModule() { #ifdef HAVE_GUI if(window) gtk_widget_destroy(window); #endif #ifdef HAVE_TXFIFO delete m_TxFIFO; #endif removeSymbol(m_RxBaud); removeSymbol(m_TxBaud); removeSymbol(m_RxBuffer); removeSymbol(m_TxBuffer); removeSymbol(m_CRLF); removeSymbol(m_ShowHex); removeSymbol(m_loop); removeSymbol(m_console); delete m_rcreg; delete m_txreg; delete m_RxBaud; delete m_TxBaud; delete m_RxBuffer; delete m_TxBuffer; delete m_CRLF; delete m_ShowHex; delete m_loop; delete m_console; } //-------------------------------------------------------------- void USARTModule::SendByte(unsigned tx_byte) { #ifdef HAVE_TXFIFO Dprintf (( "SendByte <%02X> : head=%d, tail=%d, txreg=%p\n", tx_byte, m_FifoHead, m_FifoTail, m_txreg )) if ( m_FifoHead != m_FifoTail || !m_txreg || !m_txreg->is_empty() ) { int newHead; m_TxFIFO[m_FifoHead] = tx_byte; newHead = m_FifoHead+1; if ( newHead >= m_FifoLen ) newHead = 0; if ( newHead == m_FifoTail ) { int newLen = m_FifoLen + 32; unsigned char * newFIFO; newFIFO = new unsigned char[newLen]; int oldTail = m_FifoTail; int dIdx = 0; int sIdx; for ( sIdx = oldTail; sIdx < m_FifoLen; ) newFIFO[dIdx++] = m_TxFIFO[sIdx++]; for ( sIdx = 0; sIdx < newHead; ) newFIFO[dIdx++] = m_TxFIFO[sIdx++]; unsigned char * oldFIFO = m_TxFIFO; m_TxFIFO = newFIFO; m_FifoTail -= oldTail; m_FifoHead = dIdx; m_FifoLen = newLen; delete oldFIFO; } else m_FifoHead = newHead; //cout << "Byte added to queue\n"; } else #endif if (m_txreg) m_txreg->mSendByte(tx_byte); }; #ifdef HAVE_GUI static bool ctl = false; // true when ctrl key is down static gint key_press(GtkWidget *widget, GdkEventKey *key, gpointer data) { unsigned int c = key->keyval; gtk_signal_emit_stop_by_name (GTK_OBJECT (widget), "key_press_event"); if(c == 0xffe3 || c == 0xffe4) // key is left or right ctrl { ctl = true; return(1); } if (ctl && c < 0xff00) // build control character { Dprintf(("CTL 0x%02x\n", c)); c &= 0x1f; } if ( c < 0xff20) // send character to usart { c &= 0xff; ((USARTModule *)data)->USARTModule::SendByte(c); Dprintf(("Send %c 0x%x\n", c,c)); } else { Dprintf(( "0x%02x\n", c)); } return(1); } static gint key_release(GtkWidget *widget, GdkEventKey *key, gpointer data) { unsigned int c = key->keyval; if(c == 0xffe3 || c == 0xffe4) // Capture release of ctrl key { ctl = false; } return(1); } #endif //HAVE_GUI // Display character from usart on GUI text window void USARTModule::show_tx(unsigned int data) { data &= 0xff; bool IsAscii = true; if ( m_ShowHex->getVal() ) IsAscii = false; else if ( (isascii(data) && isprint(data)) ) IsAscii = true; else if (m_CRLF->getVal() && ('\n' == data || '\r' == data)) IsAscii = true; else IsAscii = false; if(m_console->getVal()) { if ( IsAscii ) putchar(data); else printf("<%02X>", data); } #ifdef HAVE_GUI if(get_interface().bUsingGUI()) { GtkTextBuffer *buff = gtk_text_view_get_buffer(GTK_TEXT_VIEW(text)); GtkTextIter iter; GtkTextMark *insert_mark; gtk_text_buffer_get_end_iter(buff, &iter); if (IsAscii) { char ch = data; gtk_text_buffer_insert(buff, &iter, &ch, 1); } else { char hex[5]; sprintf (hex, "<%02X>", data); gtk_text_buffer_insert(buff, &iter, hex, 4); } /* get end iter again */ gtk_text_buffer_get_end_iter (buff, &iter); /* get the current ( cursor )mark name */ insert_mark = gtk_text_buffer_get_insert (buff); /* move mark and selection bound to the end */ gtk_text_buffer_place_cursor(buff, &iter); /* scroll to the end view */ gtk_text_view_scroll_to_mark( GTK_TEXT_VIEW (text), insert_mark, 0.0, TRUE, 0.0, 1.0); } #endif //HAVE_GUI } // Create a GUI text window void USARTModule::CreateGraphics() { #ifdef HAVE_GUI if(get_interface().bUsingGUI()) { window = gtk_window_new (GTK_WINDOW_TOPLEVEL); gtk_window_set_title(GTK_WINDOW(window), "USART"); gtk_window_set_default_size (GTK_WINDOW (window), 300, 100); GtkWidget *pSW = gtk_scrolled_window_new (0,0); gtk_container_add (GTK_CONTAINER (window), pSW); gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (pSW), GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC); text = gtk_text_view_new (); gtk_text_view_set_editable (GTK_TEXT_VIEW (text), TRUE); gtk_container_add (GTK_CONTAINER (pSW), text); /* Change default font throughout the widget */ PangoFontDescription *font_desc; font_desc = pango_font_description_from_string ("Courier 10"); gtk_widget_modify_font (text, font_desc); pango_font_description_free (font_desc); gtk_widget_add_events(window, GDK_KEY_RELEASE_MASK); gtk_signal_connect(GTK_OBJECT(text),"key_press_event", (GtkSignalFunc) key_press, this); gtk_signal_connect(GTK_OBJECT(text),"key_release_event", (GtkSignalFunc) key_release, this); gtk_signal_connect (GTK_OBJECT (window), "destroy", GTK_SIGNAL_FUNC (gtk_widget_destroy), window); gtk_widget_show_all(window); } else { window = 0; text = 0; } #endif // HAVE_GUI } gpsim-0.27.0/modules/i2c-eeprom.cc0000644000076400007640000001055311400453160013567 00000000000000/* Copyright (C) 2006 T. Scott Dattalo Copyright (C) 2006 Roy R Rankin This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #include #include "../config.h" // get the definition for HAVE_GUI #ifdef HAVE_GUI #include #endif class Processor; #include "../src/i2c-ee.h" #include "i2c-eeprom.h" #include "../src/stimuli.h" #include "../src/ioports.h" #include "../src/symbol.h" #include "../src/value.h" #include "../src/packages.h" #include "../src/gpsim_interface.h" namespace I2C_EEPROM_Modules { class I2C_ENABLE : public IOPIN { public: I2C_ENABLE(const char *name, unsigned int bit, I2C_EE_Module *pParent); virtual void setDrivenState(bool); private: I2C_EE_Module *m_pParent; unsigned int m_bit; }; I2C_ENABLE::I2C_ENABLE(const char *name, unsigned int bit, I2C_EE_Module *pParent) : IOPIN(name), m_pParent(pParent), m_bit(bit) { } void I2C_ENABLE::setDrivenState(bool bNewState) { IOPIN::setDrivenState(bNewState); if (m_pParent) m_pParent->setEnable(bNewState, m_bit); } I2C_EE_Module::I2C_EE_Module(const char *_name) : Module(_name, "EEProm") { //initializeAttributes(); chip_select = 0; } I2C_EE_Module::~I2C_EE_Module() { delete att_eeprom; delete m_eeprom; } Module *I2C_EE_Module::construct_2k(const char *_new_name) { string att_name = _new_name; I2C_EE_Module *pEE = new I2C_EE_Module(_new_name); // I2C_EE size in bytes prom size in bits (pEE->m_eeprom) = new I2C_EE((Processor *)pEE,256, 16, 1, 0xe, 0, 0); pEE->create_iopin_map(); att_name += ".eeprom"; pEE->att_eeprom = new PromAddress(pEE->m_eeprom, "eeprom", "Address I2C_EE"); pEE->addSymbol(pEE->att_eeprom); return(pEE); } Module *I2C_EE_Module::construct_16k(const char *_new_name) { string att_name = _new_name; I2C_EE_Module *pEE = new I2C_EE_Module(_new_name); // I2C_EE size in bytes prom size in bits (pEE->m_eeprom) = new I2C_EE((Processor *)pEE,2048, 16, 1, 0, 0xe, 1); pEE->create_iopin_map(); att_name += ".eeprom"; pEE->att_eeprom = new PromAddress(pEE->m_eeprom, att_name.c_str(), "Address I2C_EE"); pEE->addSymbol(pEE->att_eeprom); return(pEE); } Module *I2C_EE_Module::construct_256k(const char *_new_name) { string att_name = _new_name; I2C_EE_Module *pEE = new I2C_EE_Module(_new_name); // I2C_EE size in bytes prom size in bits (pEE->m_eeprom) = new I2C_EE((Processor *)pEE,32768, 64, 2, 0xe, 0, 0); pEE->create_iopin_map(); att_name += ".eeprom"; pEE->att_eeprom = new PromAddress(pEE->m_eeprom, att_name.c_str(), "Address I2C_EE"); pEE->addSymbol(pEE->att_eeprom); return(pEE); } void I2C_EE_Module::create_iopin_map() { string pinName; pinName = name() + ".WP"; m_wp = new I2C_ENABLE(pinName.c_str(), 0, this); pinName = name() + ".A0"; m_A[0] = new I2C_ENABLE(pinName.c_str(), 1, this); pinName = name() + ".A1"; m_A[1] = new I2C_ENABLE(pinName.c_str(), 2, this); pinName = name() + ".A2"; m_A[2] = new I2C_ENABLE(pinName.c_str(), 3, this); pinName = name() + ".SDA"; ((IOPIN *)(m_eeprom->sda))->new_name(pinName.c_str()); pinName = name() + ".SCL"; ((IOPIN *)(m_eeprom->scl))->new_name(pinName.c_str()); package = new Package(8); package->assign_pin( 1, m_A[0]); package->assign_pin( 2, m_A[1]); package->assign_pin( 3, m_A[2]); package->assign_pin( 5, (IOPIN *)(m_eeprom->sda)); package->assign_pin( 6, (IOPIN *)(m_eeprom->scl)); package->assign_pin( 7, m_wp); } // WP or A0-A2 has changed void I2C_EE_Module::setEnable(bool NewState, unsigned int bit) { if (NewState) chip_select |= 1 << bit; else chip_select &= ~(1 << bit); m_eeprom->set_chipselect(chip_select); } } // end of namespace I2C_EEEPROM_Modules gpsim-0.27.0/modules/video.cc0000644000076400007640000002545111400600073012733 00000000000000/* Copyright (C) 2003 Ralf Forsberg This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ /* A PAL video module. It makes use of two digital inputs to generate PAL signal sync lume result 0 0 sync 0 1 not valid 1 0 black 1 1 white */ /* IN_MODULE should be defined for modules */ #define IN_MODULE #include #include #include #include #include "../config.h" // get the definition for HAVE_GUI #ifdef HAVE_GUI #include #include "../src/gpsim_interface.h" #include "../src/gpsim_time.h" #include "../src/processor.h" #include "../src/packages.h" #include "video.h" //-------------------------------------------------------------- // // Create an "interface" to gpsim // class Video_Interface : public Interface { private: Video *video; public: //virtual void UpdateObject (gpointer xref,int new_value); //virtual void RemoveObject (gpointer xref); virtual void SimulationHasStopped (gpointer object) { if(video) video->refresh(); } virtual void NewProcessor (Processor *new_cpu) { if(video) video->cpu = new_cpu; } //virtual void NewModule (Module *module); //virtual void NodeConfigurationChanged (Stimulus_Node *node); //virtual void NewProgram (unsigned int processor_id); virtual void GuiUpdate (gpointer object) { if(video) video->refresh(); } Video_Interface(Video *_video) : Interface((gpointer *) _video) { video = _video; } }; //-------------------------------------------------------------- // This class is a minor extension of a normal IO_input. I may // remove it later, but for now it does serve a simple purpose. // Specifically, this derivation will intercept when a stimulus // is being changed. void IOPIN_Monitor::setDrivenState( bool new_state) { bool current_state = getDrivenState(); IOPIN::setDrivenState(new_state); if(current_state != getDrivenState()) { if(video) video->update_state(); } } /* static void gui_update(gpointer callback_data) { Video *video; video = (Video*)callback_data; video->refresh(); } */ static void expose(GtkWidget *widget, GdkEventExpose *event, Video *video) { video->refresh(); } /************************************************************* * * Video class */ Video::Video(const char *_name) : Module(_name) { sync_pin = new IOPIN_Monitor(this,(name() + ".sync").c_str()); lume_pin = new IOPIN_Monitor(this,(name() + ".lume").c_str()); //cout << "Video base class constructor\n"; sync_time=0; scanline=0; line_nr=0; last_line_nr=0; memset(line,0x80,XRES); memset(shadow,0x42,XRES*YRES); // initalize shadow to invalid values // cpu = get_processor(1); cpu = get_active_cpu(); //FIXME interface = new Video_Interface(this); get_interface().add_interface(interface); window = gtk_window_new(GTK_WINDOW_TOPLEVEL); gtk_window_set_default_size(GTK_WINDOW(window), XRES,YRES); gtk_window_set_title(GTK_WINDOW(window), "Video"); da = gtk_drawing_area_new(); gtk_signal_connect(GTK_OBJECT(da), "expose_event", (GtkSignalFunc) expose, this); gtk_container_add(GTK_CONTAINER(window), da); gtk_widget_show_all(window); GdkColormap *colormap = gdk_colormap_get_system(); gdk_color_parse("black", &black_color); gdk_color_parse("white", &white_color); gdk_color_parse("grey", &grey_color); gdk_colormap_alloc_color(colormap, &black_color, FALSE, TRUE); gdk_colormap_alloc_color(colormap, &white_color, FALSE, TRUE); gdk_colormap_alloc_color(colormap, &grey_color, FALSE, TRUE); black_gc = gdk_gc_new(window->window); gdk_gc_set_foreground(black_gc, &black_color); white_gc = gdk_gc_new(window->window); gdk_gc_set_foreground(white_gc, &white_color); grey_gc = gdk_gc_new(window->window); gdk_gc_set_foreground(grey_gc, &grey_color); pixmap = gdk_pixmap_new(window->window, XRES, YRES, -1); gdk_draw_rectangle (pixmap, da->style->bg_gc[GTK_WIDGET_STATE (da)], TRUE, 0, 0, XRES, YRES); // interface_id = gpsim_register_interface((gpointer)this); // gpsim_register_simulation_has_stopped(interface_id, gui_update); } Video::~Video(void) { //cout << "Video base class destructor\n"; gtk_widget_destroy(window); delete sync_pin; delete lume_pin; } //-------------------------------------------------------------- // create_iopin_map // // This is where the information for the Module's package is defined. // Specifically, the I/O pins of the module are created. void Video::create_iopin_map(void) { // Create an I/O port to which the I/O pins can interface // The module I/O pins are treated in a similar manner to // the pic I/O pins. Each pin has a unique pin number that // describes it's position on the physical package. This // pin can then be logically grouped with other pins to define // an I/O port. // Define the physical package. // The Package class, which is a parent of all of the modules, // is responsible for allocating memory for the I/O pins. // create_pkg(2); // Define the I/O pins (already done) and assign them to the package. //FIX comment // There are two things happening here. First, there is // a new I/O pin that is being created. For the binary // indicator, both pins are inputs. The second thing is // that the pins are "assigned" to the package. If we // need to reference these newly created I/O pins (like // below) then we can call the member function 'get_pin'. assign_pin(1, sync_pin); //package->set_pin_position(1,(float)0.0); assign_pin(2, lume_pin); //package->set_pin_position(2,(float)0.9999); } //-------------------------------------------------------------- // construct Module * Video::construct(const char *_new_name) { //cout << " Video construct\n"; Video *video = new Video(_new_name) ; video->create_iopin_map(); //cout << "Video should be constructed\n"; return video; } static int screen_y_from_line(int line) { int y; if(line<313) y=line*2; else y=(line-313)*2+1; return y; } void Video::copy_scanline_to_pixmap(void) { int i, y; int last=line[0]; // Clear any skipped lines. if(last_line_nr>line_nr) last_line_nr=0; // new frame if(last_line_nr=4) { gdk_draw_point(pixmap, white_gc, i, y); } else if(line[i]>2) { gdk_draw_point(pixmap, grey_gc, i, y); } else { gdk_draw_point(pixmap, black_gc, i, y); } } } guint64 Video::cycles_to_us(guint64 cycles) { double ret = 0;; if(cpu) ret = cycles*4000000.0/cpu->get_frequency(); return (guint64) ret; } guint64 Video::us_to_cycles(guint64 us) { double ret = 0; if(cpu) ret = us*cpu->get_frequency()/4000000.0; return (guint64) ret; } void Video::refresh(void) { gdk_draw_pixmap(da->window, da->style->fg_gc[GTK_WIDGET_STATE (da)], pixmap, 0,0, 0,0, XRES,YRES); } void Video::update_state(void) { guint64 cycletime; guint64 index; static int last_port_value=0; //int val=(int)(lume_pin->get_Vth()); // needs more work to make this work int val=(lume_pin->getDrivenState())?4:0; // 4 to get it above the 2 threshold for visibility maybe use Vth?? static int shortsync_counter, last_shortsync_counter; // get the current simulation cycle time from gpsim. cycletime = get_cycles().get(); if(sync_time>cycletime) { // Cycle counter rolled over. sync_time+=us_to_cycles(64); // 64 us = 1 line assert(sync_time<=cycletime); } // Index into line buffer. Calculated from sync_time. index=cycles_to_us((cycletime-sync_time)*(XRES/64)); if(cycletime-sync_time>us_to_cycles(70)) { // Long time with no sync pulses // Shouldn't happen? // If there was a long time since last sync, we jump over a line. sync_time+=us_to_cycles(64); // 64 us = 1 line memset(line,0x80,XRES); // clear line buffer } if(last_port_value==1 && (sync_pin->getDrivenState()?1:0)==0) // Start of sync { // Every 32 or 64us there should be a sync. sync_time=cycletime; // Start measure on negative flank, when we have lots in buffer. if(index>XRES-XRES/5) { // Have a full line if(shortsync_counter>0) { // We are on first line in the frame. if(shortsync_counter > last_shortsync_counter) { line_nr=6; // Draw the last full image refresh(); } else if(shortsync_counter < last_shortsync_counter) { line_nr=318; } else { puts("VSYNC error"); printf("%d, %d\n",shortsync_counter, last_shortsync_counter); //bp.halt(); useful for debug } last_shortsync_counter=shortsync_counter; shortsync_counter=0; } copy_scanline_to_pixmap(); // display last line line_nr++; if(line_nr>=YRES) line_nr=0; memset(line,0x80,XRES); index=0; } else if(index>XRES/3 && indexgetDrivenState()?1:0)!=0) // End of sync { guint64 us_time; // Should be 4 us (0.000004*12000000 us_time = cycles_to_us(cycletime-sync_time); /* if(us_time > 2 && us_time < 6) { // Valid HSYNC }*/ if(us_time > 25 && us_time < 35) { // vertical sync (FIXME, how should this be?) shortsync_counter=0; } } if(index>=XRES) index=XRES-1; line[index]=val; last_port_value=(sync_pin->getDrivenState()?1:0); } #endif // HAVE_GUI gpsim-0.27.0/modules/Makefile.in0000664000076400007640000005406312210742105013371 00000000000000# Makefile.in generated by automake 1.13.4 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2013 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. @SET_MAKE@ VPATH = @srcdir@ am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = modules DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am \ $(top_srcdir)/depcomp README ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(libdir)" LTLIBRARIES = $(lib_LTLIBRARIES) libgpsim_modules_la_DEPENDENCIES = ../eXdbm/libgpsim_eXdbm.la \ ../src/libgpsim.la am_libgpsim_modules_la_OBJECTS = gpsim_modules.lo resistor.lo usart.lo \ switch.lo logic.lo led.lo push_button.lo encoder.lo \ i2c-eeprom.lo stimuli.lo ttl.lo video.lo i2c.lo libgpsim_modules_la_OBJECTS = $(am_libgpsim_modules_la_OBJECTS) AM_V_lt = $(am__v_lt_@AM_V@) am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@) am__v_lt_0 = --silent am__v_lt_1 = AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/depcomp am__depfiles_maybe = depfiles am__mv = mv -f CXXCOMPILE = $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) LTCXXCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) \ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ $(AM_CXXFLAGS) $(CXXFLAGS) AM_V_CXX = $(am__v_CXX_@AM_V@) am__v_CXX_ = $(am__v_CXX_@AM_DEFAULT_V@) am__v_CXX_0 = @echo " CXX " $@; am__v_CXX_1 = CXXLD = $(CXX) CXXLINK = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CXXLD) $(AM_CXXFLAGS) \ $(CXXFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@ AM_V_CXXLD = $(am__v_CXXLD_@AM_V@) am__v_CXXLD_ = $(am__v_CXXLD_@AM_DEFAULT_V@) am__v_CXXLD_0 = @echo " CXXLD " $@; am__v_CXXLD_1 = COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) \ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ $(AM_CFLAGS) $(CFLAGS) AM_V_CC = $(am__v_CC_@AM_V@) am__v_CC_ = $(am__v_CC_@AM_DEFAULT_V@) am__v_CC_0 = @echo " CC " $@; am__v_CC_1 = CCLD = $(CC) LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ $(AM_LDFLAGS) $(LDFLAGS) -o $@ AM_V_CCLD = $(am__v_CCLD_@AM_V@) am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@) am__v_CCLD_0 = @echo " CCLD " $@; am__v_CCLD_1 = SOURCES = $(libgpsim_modules_la_SOURCES) DIST_SOURCES = $(libgpsim_modules_la_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) # Read a list of newline-separated strings from the standard input, # and print each of them once, without duplicates. Input order is # *not* preserved. am__uniquify_input = $(AWK) '\ BEGIN { nonempty = 0; } \ { items[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in items) print i; }; } \ ' # Make sure the list of sources is unique. This is necessary because, # e.g., the same source file might be shared among _SOURCES variables # for different programs/libraries. am__define_uniq_tagged_files = \ list='$(am__tagged_files)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | $(am__uniquify_input)` ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ ALLOCA = @ALLOCA@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDK = @GDK@ GLIB = @GLIB@ GREP = @GREP@ GTK = @GTK@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LEXLIB = @LEXLIB@ LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@ LIBDL = @LIBDL@ LIBOBJS = @LIBOBJS@ LIBREADLINE = @LIBREADLINE@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKGCONFIG = @PKGCONFIG@ POW_LIB = @POW_LIB@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ X_CFLAGS = @X_CFLAGS@ X_LDFLAGS = @X_LDFLAGS@ YACC = @YACC@ YFLAGS = @YFLAGS@ Y_CFLAGS = @Y_CFLAGS@ Y_LDFLAGS = @Y_LDFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ AM_CPPFLAGS = @X_CFLAGS@ lib_LTLIBRARIES = libgpsim_modules.la libgpsim_modules_la_SOURCES = \ gpsim_modules.cc \ resistor.cc resistor.h \ usart.cc usart.h \ switch.cc switch.h \ logic.cc logic.h \ led.cc led.h \ push_button.cc push_button.h \ encoder.cc encoder.h \ i2c-eeprom.cc i2c-eeprom.h \ stimuli.h stimuli.cc \ ttl.cc ttl.h \ video.cc video.h \ i2c.cc i2c.h libgpsim_modules_la_LIBADD = ../eXdbm/libgpsim_eXdbm.la -lstdc++ -lpopt \ @X_LDFLAGS@ @Y_LDFLAGS@ @LIBREADLINE@ ../src/libgpsim.la EXTRA_DIST = makefile.mingw all: all-am .SUFFIXES: .SUFFIXES: .cc .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu modules/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu modules/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-libLTLIBRARIES: $(lib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \ } uninstall-libLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \ done clean-libLTLIBRARIES: -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) @list='$(lib_LTLIBRARIES)'; \ locs=`for p in $$list; do echo $$p; done | \ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ sort -u`; \ test -z "$$locs" || { \ echo rm -f $${locs}; \ rm -f $${locs}; \ } libgpsim_modules.la: $(libgpsim_modules_la_OBJECTS) $(libgpsim_modules_la_DEPENDENCIES) $(EXTRA_libgpsim_modules_la_DEPENDENCIES) $(AM_V_CXXLD)$(CXXLINK) -rpath $(libdir) $(libgpsim_modules_la_OBJECTS) $(libgpsim_modules_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/encoder.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gpsim_modules.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/i2c-eeprom.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/i2c.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/led.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/logic.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/push_button.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/resistor.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stimuli.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/switch.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/ttl.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/usart.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/video.Plo@am__quote@ .cc.o: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(CXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(CXXCOMPILE) -c -o $@ $< .cc.obj: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(CXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(CXXCOMPILE) -c -o $@ `$(CYGPATH_W) '$<'` .cc.lo: @am__fastdepCXX_TRUE@ $(AM_V_CXX)$(LTCXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(LTCXXCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs ID: $(am__tagged_files) $(am__define_uniq_tagged_files); mkid -fID $$unique tags: tags-am TAGS: tags tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) set x; \ here=`pwd`; \ $(am__define_uniq_tagged_files); \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: ctags-am CTAGS: ctags ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) $(am__define_uniq_tagged_files); \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" cscopelist: cscopelist-am cscopelist-am: $(am__tagged_files) list='$(am__tagged_files)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(LTLIBRARIES) installdirs: for dir in "$(DESTDIR)$(libdir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-libLTLIBRARIES install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-libLTLIBRARIES .MAKE: install-am install-strip .PHONY: CTAGS GTAGS TAGS all all-am check check-am clean clean-generic \ clean-libLTLIBRARIES clean-libtool cscopelist-am ctags \ ctags-am distclean distclean-compile distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-libLTLIBRARIES install-man install-pdf \ install-pdf-am install-ps install-ps-am install-strip \ installcheck installcheck-am installdirs maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-compile \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags tags-am uninstall uninstall-am uninstall-libLTLIBRARIES # TSD - removed 17APR06 #PGS added back # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: gpsim-0.27.0/modules/Makefile.am0000664000076400007640000000127112177043162013362 00000000000000## Process this file with automake to produce Makefile.in AM_CPPFLAGS = @X_CFLAGS@ lib_LTLIBRARIES = libgpsim_modules.la libgpsim_modules_la_SOURCES = \ gpsim_modules.cc \ resistor.cc resistor.h \ usart.cc usart.h \ switch.cc switch.h \ logic.cc logic.h \ led.cc led.h \ push_button.cc push_button.h \ encoder.cc encoder.h \ i2c-eeprom.cc i2c-eeprom.h \ stimuli.h stimuli.cc \ ttl.cc ttl.h \ video.cc video.h \ i2c.cc i2c.h # TSD - removed 17APR06 #PGS added back ## paraface.cc paraface.h \ # TSD - removed 16APR06 libgpsim_modules_la_LIBADD = ../eXdbm/libgpsim_eXdbm.la -lstdc++ -lpopt \ @X_LDFLAGS@ @Y_LDFLAGS@ @LIBREADLINE@ ../src/libgpsim.la EXTRA_DIST = makefile.mingw gpsim-0.27.0/modules/switch.cc0000644000076400007640000004251011400453160013124 00000000000000/* Copyright (C) 2002 Ralf Forsberg This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ /* switch.cc This is a module that displays a togglebutton on the screen and puts the togglebutton state on its output pin. */ /* IN_MODULE should be defined for modules */ #define IN_MODULE #include #include #include #include #include #include #include #include #include #include #include #include #include #include "../config.h" // get the definition for HAVE_GUI #ifdef HAVE_GUI #include #endif #include "../src/packages.h" #include "../src/stimuli.h" #include "../src/symbol.h" #include "../src/gpsim_interface.h" #include "../src/gpsim_time.h" #include "switch.h" namespace Switches { //------------------------------------------------------------------------ // SwitchPin class SwitchPin : public IOPIN { public: SwitchPin(SwitchBase *parent, const char *_name); virtual void getThevenin(double &v, double &z, double &c); virtual void sumThevenin(double ¤t, double &conductance, double &Cth); virtual void Build_List(stimulus * st); virtual void set_Refreshing() { bRefreshing = true; } double get_Zopen() { return m_pParent->getZopen(); } double get_Zclosed() { return m_pParent->getZclosed(); } bool switch_closed() { return m_pParent->switch_closed(); } SwitchPin * other_pin(SwitchPin *pin) { return m_pParent->other_pin(pin);} private: SwitchBase *m_pParent; bool bRefreshing; stimulus **st_list; // List of stimuli int st_cnt; // Size of list SwitchPin **sp_list; // List of Switch pins we have seen int sp_cnt; // size of list }; SwitchPin::SwitchPin(SwitchBase *parent, const char *_name) : IOPIN(_name), m_pParent(parent), bRefreshing(false) { assert(m_pParent); sp_cnt = 5; sp_list = (SwitchPin **)calloc(sp_cnt, sizeof(SwitchPin *)); st_cnt = 10; st_list = (stimulus **)calloc(st_cnt, sizeof(stimulus *)); } /* ** If the switch is closed, look through switch to get values */ void SwitchPin::getThevenin(double &v, double &z, double &c) { if (switch_closed()) { SwitchPin * op = other_pin(this); double current = 0.; double conductance = 0.; double Cth = 0.; op->sumThevenin(current, conductance, Cth); z = 1./conductance; v = current * z; z += (get_Zclosed() ? get_Zclosed() : 0.0); c = Cth; if (!bRefreshing && op->snode) // Not called from other pin { op->set_Refreshing(); op->snode->update(); // update other pin node } bRefreshing = false; } else { v = 0.; z = get_Zopen(); c = 0; } set_Vth(v); set_Zth(z); set_Cth(c); if (verbose) cout << "SwitchPin::getThevenin :" << name() << " v=" << v << " z=" << z << " Cth=" << c << endl; } /* Build_list, given the first stimuli from a node with a connected switch, builds a list of all the stimuli of the node except for the switch itself. If it encounters other switches on the node, it will do one of two things. If the switch is open, the switch stimuli will be ignored. However, if the switch is closed and the switch pin has not already been seen (to stop recursion), Build_List will look through the switch and add all the stimuli connected to it's other pin. Stimuli may be encountered more than once, but will only be added to the list the first time. The resulting stimulus list is used by sumThevenin. */ void SwitchPin::Build_List(stimulus *st) { for(; st; st = st->next) { if (name() != st->name()) { if (typeid(*st) == typeid(*this)) // This is a SwitchPin stimulus { SwitchPin *sp_ptr = (SwitchPin *)st; bool state = sp_ptr->switch_closed(); if (verbose) cout << "SwitchPin::Build_List " << this->name() << " found " << st->name() << "switch state=" << (state?"closed":"open") << endl; if (state) // Switch is closed { int i; SwitchPin **sp_pt = sp_list; // Scan list, stop on match or end of list for(i = 0; (i < sp_cnt) && *sp_pt && (*sp_pt != sp_ptr); i++, sp_pt++) {} if (i+1 >= st_cnt) // need to grow list { if (verbose) cout << "\tIncrease size of SwitchPin list\n"; sp_cnt += 5; sp_list = (SwitchPin **)realloc(sp_list, sp_cnt * sizeof(SwitchPin *)); sp_pt = sp_list + i; } // have not seen this switch pin, add to end of list // add stimuli on other pin of switch if (*sp_pt != sp_ptr) { *sp_pt++ = sp_ptr; *sp_pt = NULL; if (verbose) cout << "\t" << sp_ptr->name() << " other=" << sp_ptr->other_pin(sp_ptr)->name() << endl; // Add stimuli on other pin of closed swich if (sp_ptr->other_pin(sp_ptr)->snode) Build_List(sp_ptr->other_pin(sp_ptr)->snode->stimuli); } } } else // other type of stimulus { int i; stimulus **st_pt = st_list; // Scan list, stop on match or end of list for(i = 0; (i < st_cnt) && *st_pt && (*st_pt != st); i++, st_pt++) {} if (i+1 >= st_cnt) // need to grow list { if (verbose) cout << "\tIncrease size of stimlui list\n"; st_cnt += 5; st_list = (stimulus **)realloc(st_list, st_cnt * sizeof(stimulus *)); st_pt = st_list + i; } if (*st_pt != st) // Add stimulus to list { if (verbose) cout << "Build_List adding " << st->name() << endl; *st_pt++ = st; *st_pt = NULL; } } } } } /* sumThevenin ** Sum the Thevenin parameters for all stimuli connected to pin except for the ** pin stimulus itself. This is a helper function for getThevenin and do_voltage(). ** ** +---------------+ node +----------------+ ** Switch | +---Zth--+--|-------+------|--+----Z1---+ | First Stimulus ** Pin | Vth Cth | --> | --> | C1 V1 | connected to ** | | | | I | I1 | | | | the switch. ** | /// /// | | | /// /// | ** +---------------+ : +----------------+ ** : ** | +----------------+ ** +------|--+----Zn---+ | Last Stimulus ** --> | Cn Vn | connected to ** In | | | | the switch. ** | /// /// | ** +----------------+ ** */ void SwitchPin::sumThevenin(double ¤t, double &conductance, double &Cth) { stimulus **sptr; if (!snode) return; *sp_list = NULL; *st_list = NULL; if (verbose) cout << "SwitchPin::sumThevenin " << name() << endl; Build_List(snode->stimuli); for(sptr = st_list; *sptr ; sptr++) { double V1,Z1,C1; // Get the thevenin parameters of the stimulus connected to the switch pin (*sptr)->getThevenin(V1,Z1,C1); if (verbose) cout << " N: " <<(*sptr)->name() << " V=" << V1 << " Z=" << Z1 << " C=" << C1 << endl; double Cs = 1 / Z1; // The Thevenin current is the Thevenin voltage divided by // the Thevenin resistance: current += V1 * Cs; conductance += Cs; Cth += C1; } } //======================================================================== //---------------------------------------- class ResistanceAttribute : public Float { public: SwitchBase *m_sw; ResistanceAttribute(SwitchBase *psw, double resistance, const char *_name, const char *_desc) : Float(_name,resistance,_desc), m_sw(psw) { } virtual void set(int r) { double dr = r; set(dr); } virtual void set(double r) { Float::set(r); if(m_sw) m_sw->update(); } }; //---------------------------------------- class SwitchAttribute : public Boolean { public: SwitchAttribute(SwitchBase *_parent) : Boolean("state",false,"Query or Change the switch"), m_pParent(_parent) { assert(m_pParent); } virtual void set(bool b); virtual void set(Value *v); virtual void set(const char *buffer, int buf_size = 0); virtual void get(char *return_str, int len); virtual bool Parse(const char *pValue, bool &bValue); void setFromButton(bool b); private: SwitchBase *m_pParent; }; bool SwitchAttribute::Parse(const char *pValue, bool &bValue) { if(strncmp("true", pValue, sizeof("true")) == 0 || strncmp("closed", pValue, sizeof("closed")) == 0) { bValue = true; return true; } else if(strncmp("false", pValue, sizeof("false")) == 0 || strncmp("open", pValue, sizeof("open")) == 0) { bValue = false; return true; } return false; } void SwitchAttribute::set(Value *v) { if (typeid(*v) == typeid(Boolean)) { bool d; v->get(d); set(d); } else if ( typeid(*v) == typeid(String)) { char buff[20]; v->get((char *)buff, sizeof(buff)); set(buff); } else throw new TypeMismatch(string("set "), "SwitchAttribute", v->showType()); } void SwitchAttribute::set(const char *buffer, int buf_size) { if(buffer) { bool bValue; if(Parse(buffer, bValue)) { set(bValue); } } } void SwitchAttribute::set(bool b) { Boolean::set(b); m_pParent->setState(b); } void SwitchAttribute::setFromButton(bool b) { Boolean::set(b); } void SwitchAttribute::get(char *return_str, int len) { if(return_str) { bool b; Boolean::get(b); snprintf(return_str,len,"%s",(b ? "closed" : "open")); } } //-------------------------------------------------------------- // create_iopin_map // // This is where the information for the Module's package is defined. // Specifically, the I/O pins of the module are created. void SwitchBase::create_iopin_map(void) { // Define the physical package. // The Package class, which is a parent of all of the modules, // is responsible for allocating memory for the I/O pins. // create_pkg(2); // Define the I/O pins and assign them to the package. // There are two things happening here. First, there is // a new I/O pin that is being created. For the binary // indicator, both pins are inputs. The second thing is // that the pins are "assigned" to the package. If we // need to reference these newly created I/O pins (like // below) then we can call the member function 'get_pin'. string nameA = name() + ".A"; m_pinA = new SwitchPin(this,nameA.c_str()); string nameB = name() + ".B"; m_pinB = new SwitchPin(this,nameB.c_str()); assign_pin(1, m_pinA); assign_pin(2, m_pinB); package->set_pin_position(1,2.5); package->set_pin_position(2,0.5); } //------------------------------------------------------------------------ // void SwitchBase::setState(bool bNewState) { if ( switch_closed() != bNewState) { m_bCurrentState = bNewState; update(); } } //------------------------------------------------------------------------ /* If the switch is closed, we send an update to one side only as SwitchPin::getThevenin will send it to the other pin. If the switch is open, then update both sides */ void SwitchBase::update() { if (switch_closed()) // equalise voltage if capacitance involved do_voltage(); if (m_pinA->snode) m_pinA->snode->update(); if (!switch_closed() && m_pinB->snode) m_pinB->snode->update(); } //------------------------------------------------------------------------ double SwitchBase::getZopen() { return m_Zopen ? m_Zopen->getVal() : 1e8; } double SwitchBase::getZclosed() { return m_Zclosed ? m_Zclosed->getVal() : 10; } SwitchPin * SwitchBase::other_pin(SwitchPin *pin) { return( (pin == m_pinA)? m_pinB: m_pinA); } //------------------------------------------------------------------------ SwitchBase::SwitchBase(const char *_new_name, const char *_desc) : Module(_new_name,_desc), m_pinA(0), m_pinB(0), m_bCurrentState(false), m_aState(0) { // Default module attributes. //initializeAttributes(); m_Zopen = new ResistanceAttribute(this, 1e8, "Ropen", "Resistance of opened switch"); m_Zclosed = new ResistanceAttribute(this, 10, "Rclosed", "Resistance of closed switch"); m_aState = new SwitchAttribute(this); addSymbol(m_aState); addSymbol(m_Zopen); addSymbol(m_Zclosed); } SwitchBase::~SwitchBase(void) { removeSymbol(m_aState); removeSymbol(m_Zopen); removeSymbol(m_Zclosed); delete m_Zclosed; delete m_Zopen; delete m_aState; } /* ** do_voltage computes the initial switch voltage when the switch is closed ** and capacitance is present. It is assumed that when the switch closes, ** charge will instantaneously be exchanged between the capacitors until ** they have the same voltage. */ void SwitchBase::do_voltage() { double conductance=0.0; // Thevenin conductance. double Cth=0; // Thevenin capacitance double current=0.0; // current flowing through the switch double C1, C2; double V1, V2; double Vth; V1 = m_pinA->get_nodeVoltage(); m_pinA->sumThevenin(current, conductance, Cth); C1 = Cth; V2 = m_pinB->get_nodeVoltage(); m_pinB->sumThevenin(current, conductance, Cth); C2 = Cth - C1; if (verbose) cout << "\nSwitch::do_voltage " << name() << " V.A=" << V1 << " V.B=" << V2 << endl; if (Cth) { Vth = (V1*C1 + V2*C2)/Cth; if (verbose) cout << "Switch::do_voltage " << name() << " equilise voltage to " << Vth << endl << " V1=" << V1 << " V2=" << V2 << " C1=" << C1 << " C2=" << C2 << endl; if (m_pinA->snode) m_pinA->snode->set_nodeVoltage(Vth); if (m_pinB->snode) m_pinB->snode->set_nodeVoltage(Vth); } } //======================================================================== Switch::Switch(const char *_new_name=0) : SwitchBase(_new_name, "\ Two port switch\n\ Attributes:\n\ .state - true if switch is pressed\n\ "), m_button(0) { } Switch::~Switch() { } //-------------------------------------------------------------- // construct Module * Switch::construct(const char *_new_name=0) { Switch *switchP = new Switch(_new_name); //switchP->new_name(_new_name); switchP->create_iopin_map(); if(get_interface().bUsingGUI()) switchP->create_widget(switchP); return switchP; } //-------------------------------------------------------------- // GUI #ifdef HAVE_GUI static void toggle_cb (GtkToggleButton *button, Switch *sw) { if (sw) sw->buttonToggled(); } void Switch::buttonToggled () { bool b = gtk_toggle_button_get_active(m_button) ? true : false; if (! m_pinA->snode || ! m_pinB->snode) { cout << "\n WARNING both pins of " << name() << " must be connected to nodes\n"; return; } m_aState->set(b); } #endif //------------------------------------------------------------------------ // void Switch::setState(bool bNewState) { #ifdef HAVE_GUI if (m_button) gtk_toggle_button_set_active(m_button, bNewState ? TRUE : FALSE); #endif SwitchBase::setState(bNewState); } //------------------------------------------------------------------------ void Switch::create_widget(Switch *sw) { #ifdef HAVE_GUI GtkWidget *box1; box1 = gtk_vbox_new (FALSE, 0); m_button = GTK_TOGGLE_BUTTON(gtk_toggle_button_new_with_label ((char*)sw->name().c_str())); gtk_container_set_border_width (GTK_CONTAINER (m_button), 1); gtk_signal_connect (GTK_OBJECT (m_button), "toggled", GTK_SIGNAL_FUNC (toggle_cb), (gpointer)sw); gtk_widget_show(GTK_WIDGET(m_button)); gtk_box_pack_start (GTK_BOX (box1), GTK_WIDGET(m_button), FALSE, FALSE, 0); gtk_widget_show_all (box1); // Tell gpsim which widget to use in breadboard. sw->set_widget(box1); #endif } } gpsim-0.27.0/modules/stimuli.h0000644000076400007640000000736311400453160013162 00000000000000/* Copyright (C) 2006 Scott Dattalo This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __MOD_STIMULI_H__ #define __MOD_STIMULI_H__ #ifdef HAVE_GUI #include #endif #include #include "../src/stimuli.h" #include "../src/modules.h" #include "../src/value.h" #include class Register; class PicPortRegister; class PicTrisRegister; class PicLatchRegister; namespace ExtendedStimuli { class PulseAttribute; class PulseInitial; class PulsePeriodAttribute; class FileNameAttribute; class ValueStimulusData { public: gint64 time; Value *v; inline bool operator < (ValueStimulusData &rValue) { return time < rValue.time; } inline bool operator == (ValueStimulusData rValue) { return time == rValue.time; } }; class StimulusBase : public Module, public TriggerObject { public: StimulusBase(const char *_name, const char *_desc); virtual void callback_print(); void create_iopin_map(); protected: IO_bi_directional *m_pin; }; //---------------------------------------------------------------------- class PulseGen : public StimulusBase { public: static Module *construct(const char *new_name); PulseGen(const char *_name); ~PulseGen(); virtual void callback(); virtual void put_data(ValueStimulusData &data_point); virtual string toString(); void update(); void update_period(); private: PulseAttribute *m_set; PulseAttribute *m_clear; PulseInitial *m_init; PulsePeriodAttribute *m_period; guint64 m_future_cycle; guint64 m_start_cycle; list samples; list::iterator sample_iterator; void setBreak(guint64 next_cycle, list::iterator ); }; //---------------------------------------------------------------------- class FileStimulus : public StimulusBase { public: static Module *construct(const char *new_name); FileStimulus(const char *_name); ~FileStimulus(); void parse(const char *); void newFile(); virtual void callback(); virtual string toString(); private: FileNameAttribute *m_file; guint64 m_future_cycle; }; //---------------------------------------------------------------------- class RegisterAddressAttribute; // used for mapping registers into a processor memory class PortPullupRegister; class PortStimulus : public Module, public TriggerObject { public: static Module *construct8(const char *new_name); static Module *construct16(const char *new_name); static Module *construct32(const char *new_name); PortStimulus(const char *_name, int nPins); ~PortStimulus(); virtual void callback_print(); void create_iopin_map(); protected: int m_nPins; PicPortRegister *mPort; PicTrisRegister *mTris; PicLatchRegister *mLatch; PortPullupRegister *mPullup; RegisterAddressAttribute *mPortAddress; RegisterAddressAttribute *mTrisAddress; RegisterAddressAttribute *mLatchAddress; RegisterAddressAttribute *mPullupAddress; }; } #endif // __MOD_STIMULI_H__ gpsim-0.27.0/modules/logic.h0000644000076400007640000001074511400453160012567 00000000000000/* Copyright (C) 1998,1999,2000 T. Scott Dattalo This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __LOGIC_H__ #define __LOGIC_H__ /* IN_MODULE should be defined for modules */ #define IN_MODULE #include "../src/stimuli.h" #include "../src/ioports.h" #include "../src/symbol.h" #include "../src/modules.h" #ifdef HAVE_GUI #include #endif class LogicGate; class ANDGate; class AND2Gate; /********************************************************* * * Create a class derived from the IO_input class that * will allow us to intercept when the I/O input is being * driven. (This isn't done for PIC I/O pins because the * logic for handling I/O pin changes resides in the IOPORT * class.) */ class Logic_Input : public IOPIN { private: LogicGate *LGParent; unsigned int m_iobit; public: virtual void setDrivenState( bool new_state); Logic_Input (LogicGate *parent, unsigned int b, const char *opt_name=0) : IOPIN(opt_name), LGParent(parent), m_iobit(b) { } }; class Logic_Output : public IO_bi_directional { private: LogicGate *LGParent; unsigned int m_iobit; public: Logic_Output (LogicGate *parent, unsigned int b,const char *opt_name=0) : IO_bi_directional(opt_name), LGParent(parent), m_iobit(b) { } }; /************************************************************* * * LogicGate class. * * Here's the definition for the LogicGate class and all of its * children * * Module * | * -------- * | * |-LogicGate * | * |- ANDGate * | | * | |- AND2Gate * |- ORGate * | * |- OR2Gate */ class LogicGate : public Module { public: int number_of_pins; unsigned int input_bit_mask; unsigned int input_state; IOPIN **pInputPins; Logic_Output *pOutputPin; #ifdef HAVE_GUI GdkPixmap *pixmap; #endif LogicGate(const char *name, const char * desc); ~LogicGate(void); // Inheritances from the Package class virtual void create_iopin_map(void); virtual void update_state(void)=0; void update_input_pin(unsigned int pin, bool bValue); virtual int get_num_of_pins(void) {return number_of_pins;}; void set_number_of_pins(int npins){number_of_pins=npins;}; #ifdef HAVE_GUI GtkWidget *create_pixmap(gchar **pixmap_data); #endif }; // 2 input and gate class ANDGate: public LogicGate { public: virtual void update_state(void); ANDGate(const char *name, const char * desc); ~ANDGate(void); }; class AND2Gate: public ANDGate { public: static Module *construct(const char *new_name); const virtual char *type(void) { return ("and2"); }; // virtual void update_state(void); AND2Gate(const char *); ~AND2Gate(void); }; class ORGate: public LogicGate { public: ORGate(const char *name, const char * desc); ~ORGate(void); virtual void update_state(void); }; // 2 input or gate class OR2Gate: public ORGate { public: //virtual void update_state(void); static Module *construct(const char *new_name); const virtual char *type(void) { return ("or2"); }; OR2Gate(const char *name); ~OR2Gate(void); }; class XORGate: public LogicGate { public: XORGate(const char *name, const char * desc); ~XORGate(void); virtual void update_state(void); }; // 2 input or gate class XOR2Gate: public XORGate { public: //virtual void update_state(void); static Module *construct(const char *new_name); const virtual char *type(void) { return ("xor2"); }; XOR2Gate(const char *name); ~XOR2Gate(void); }; class NOTGate: public LogicGate { public: //virtual void update_state(void); static Module *construct(const char *new_name); const virtual char *type(void) { return ("not"); }; virtual void update_state(void); NOTGate(const char *name); ~NOTGate(void); }; #endif // __LOGIC_H__ gpsim-0.27.0/modules/ttl.cc0000664000076400007640000002514712175377101012451 00000000000000/* Copyright (C) 2006T. Scott Dattalo This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ /* ttl.cc - gpsim's TTL library */ #include "../config.h" #ifdef HAVE_GUI #include #endif #include "ttl.h" #include "../src/stimuli.h" #include "../src/ioports.h" #include "../src/symbol.h" #include "../src/value.h" #include "../src/packages.h" namespace TTL { //------------------------------------------------------------------------ // TTL base class TTLbase::TTLbase(const char *_name, const char *desc) : Module(_name,desc), m_dVdd(0),m_bClock(false), m_bEnable(false) { } TTLbase::~TTLbase() { } //------------------------------------------------------------------------ // Some edge-sensitive pins // // //------------------------------------------------------------ // Clock // class Clock : public IOPIN { public: Clock(const char *n, TTLbase *pParent); virtual void setDrivenState(bool); private: TTLbase *m_pParent; }; Clock::Clock(const char *n, TTLbase *pParent) : IOPIN(n), m_pParent(pParent) { } void Clock::setDrivenState(bool bNewState) { IOPIN::setDrivenState(bNewState); if (m_pParent) m_pParent->setClock(bNewState); } //------------------------------------------------------------ // Strobe // class Strobe : public IOPIN { public: Strobe(const char *n, TTLbase *pParent); virtual void setDrivenState(bool); private: TTLbase *m_pParent; }; Strobe::Strobe(const char *n, TTLbase *pParent) : IOPIN(n), m_pParent(pParent) { } void Strobe::setDrivenState(bool bNewState) { IOPIN::setDrivenState(bNewState); if (m_pParent) m_pParent->setStrobe(bNewState); } //------------------------------------------------------------ // Enable // class Enable : public IOPIN { public: Enable(const char *n, TTLbase *pParent); virtual void setDrivenState(bool); private: TTLbase *m_pParent; }; Enable::Enable(const char *n, TTLbase *pParent) : IOPIN(n), m_pParent(pParent) { } void Enable::setDrivenState(bool bNewState) { IOPIN::setDrivenState(bNewState); if (m_pParent) m_pParent->setEnable(bNewState); } //------------------------------------------------------------ // Reset // class Reset : public IOPIN { public: Reset(const char *n, TTLbase *pParent); virtual void setDrivenState(bool); private: TTLbase *m_pParent; }; Reset::Reset(const char *n, TTLbase *pParent) : IOPIN(n), m_pParent(pParent) { } void Reset::setDrivenState(bool bNewState) { IOPIN::setDrivenState(bNewState); if (m_pParent) m_pParent->setReset(bNewState); } //------------------------------------------------------------------------ // TTL377 - Octal Latch // // Module *TTL377::construct(const char *_new_name) { TTL377 *pTTL377 = new TTL377(_new_name); pTTL377->new_name(_new_name); pTTL377->create_iopin_map(); return pTTL377; } TTL377::TTL377(const char *_name) : TTLbase(_name, "TTL377 - Octal Latch") { m_D = new IOPIN *[8]; m_Q = new IO_bi_directional *[8]; char pName[4]; pName[0] = '.'; pName[3] = 0; int i; string sPinName; for (i=0; i<8; i++) { pName[1] = 'D'; pName[2] = '0' + i; sPinName = name() + pName; m_D[i] = new IOPIN(sPinName.c_str()); pName[1] = 'Q'; sPinName = name() + pName; m_Q[i] = new IO_bi_directional(sPinName.c_str()); m_Q[i]->setDriving(true); } sPinName = name() + ".E"; m_enable = new Enable(sPinName.c_str(),this); sPinName = name() + ".CP"; m_clock = new Clock(sPinName.c_str(),this); } void TTL377::setClock(bool bNewClock) { if (bNewClock && !m_bClock && !m_bEnable) { update_state(); } m_bClock = bNewClock; } void TTL377::setEnable(bool bNewEnable) { m_bEnable = bNewEnable; } void TTL377::update_state() { int i; bool state[8]; // Copy the inputs to the outputs through an intermediary to simulate // the simultaneous action of the real part. for (i=0; i<8; i++) state[i]=m_D[i]->getDrivenState(); for (i=0; i<8; i++) m_Q[i]->putState(state[i]); } void TTL377::create_iopin_map() { package = new Package(20); package->assign_pin( 1, m_enable); package->assign_pin( 2, m_Q[0]); package->assign_pin( 3, m_D[0]); package->assign_pin( 4, m_D[1]); package->assign_pin( 5, m_Q[1]); package->assign_pin( 6, m_Q[2]); package->assign_pin( 7, m_D[2]); package->assign_pin( 8, m_D[3]); package->assign_pin( 9, m_Q[3]); package->assign_pin(11, m_clock); package->assign_pin(12, m_Q[4]); package->assign_pin(13, m_D[4]); package->assign_pin(14, m_D[5]); package->assign_pin(15, m_Q[5]); package->assign_pin(16, m_Q[6]); package->assign_pin(17, m_D[6]); package->assign_pin(18, m_D[7]); package->assign_pin(19, m_Q[7]); } //------------------------------------------------------------------------ // TTL595 - Octal shift register // // Module *TTL595::construct(const char *_new_name) { TTL595 *pTTL595 = new TTL595(_new_name); pTTL595->new_name(_new_name); pTTL595->create_iopin_map(); return pTTL595; } TTL595::TTL595(const char *_name) : TTLbase(_name, "TTL595 - Octal Shift Register"), sreg(0) { m_Q = new IO_bi_directional *[8]; char pName[4]; pName[0] = '.'; pName[3] = 0; int i; string sPinName; for (i=0; i<8; i++) { pName[1] = 'Q'; pName[2] = '0' + i; sPinName = name() + pName; m_Q[i] = new IO_bi_directional(sPinName.c_str()); m_Q[i]->setDriving(true); } sPinName = name() + ".Ds"; m_Ds = new IOPIN(sPinName.c_str()); sPinName = name() + ".Qs"; m_Qs = new IO_bi_directional(sPinName.c_str()); m_Qs->setDriving(true); sPinName = name() + ".OE"; m_enable = new Enable(sPinName.c_str(),this); sPinName = name() + ".SCK"; m_clock = new Clock(sPinName.c_str(),this); sPinName = name() + ".RCK"; m_strobe = new Strobe(sPinName.c_str(),this); sPinName = name() + ".MR"; m_reset = new Reset(sPinName.c_str(),this); } void TTL595::setClock(bool bNewClock) { // Clock shifts the shift register on rising edge, if MR pin is high if (bNewClock && !m_bClock && m_reset->getDrivenState()) { // Move the shift register left and out. m_Qs->putState ( (sreg & 0x80)!=0 ); sreg <<= 1; if ( m_Ds->getDrivenState() ) sreg |= 0x01; } m_bClock = bNewClock; } void TTL595::setEnable(bool bNewEnable) { // This is the output enable pin on this device for (int i=0; i<8; i++) m_Q[i]->update_direction(!bNewEnable,true); } void TTL595::setReset(bool bNewReset) { if (!bNewReset) sreg = 0; } void TTL595::setStrobe(bool bNewStrobe) { // Strobe copies the contents of the shift register into the outputs if (bNewStrobe && !m_bStrobe) { update_state(); } m_bStrobe = bNewStrobe; } void TTL595::update_state() { for (int i=0, ss=sreg; i<8; i++,ss>>=1) m_Q[i]->putState(ss&1); } void TTL595::create_iopin_map() { package = new Package(16); package->assign_pin( 1, m_Q[1]); package->assign_pin( 2, m_Q[2]); package->assign_pin( 3, m_Q[3]); package->assign_pin( 4, m_Q[4]); package->assign_pin( 5, m_Q[5]); package->assign_pin( 6, m_Q[6]); package->assign_pin( 7, m_Q[7]); package->assign_pin( 9, m_Qs); package->assign_pin(10, m_reset); package->assign_pin(11, m_clock); package->assign_pin(12, m_strobe); package->assign_pin(13, m_enable); package->assign_pin(14, m_Ds); package->assign_pin(15, m_Q[0]); } //------------------------------------------------------------------------ // TTL165 - 8-bit parallel to serial shift register // // Module *TTL165::construct(const char *_new_name) { TTL165 *pTTL165 = new TTL165(_new_name); pTTL165->new_name(_new_name); pTTL165->create_iopin_map(); return pTTL165; } TTL165::TTL165(const char *_name) : TTLbase(_name, "TTL165 - PISO Shift Register"), m_bStrobe(false), sreg(0) { m_D = new IOPIN *[8]; char pName[4]; pName[0] = '.'; pName[3] = 0; int i; string sPinName; for (i=0; i<8; i++) { pName[1] = 'D'; pName[2] = '0' + i; sPinName = name() + pName; m_D[i] = new IOPIN(sPinName.c_str()); } sPinName = name() + ".Ds"; m_Ds = new IOPIN(sPinName.c_str()); sPinName = name() + ".Q7"; m_Q = new IO_bi_directional(sPinName.c_str()); m_Q->setDriving(true); sPinName = name() + ".nQ7"; m_Qbar = new IO_bi_directional(sPinName.c_str()); m_Qbar->setDriving(true); sPinName = name() + ".CE"; m_enable = new Enable(sPinName.c_str(),this); sPinName = name() + ".CP"; m_clock = new Clock(sPinName.c_str(),this); sPinName = name() + ".PL"; m_strobe = new Strobe(sPinName.c_str(),this); } void TTL165::setClock(bool bNewClock) { // Clock shifts the shift register on rising edge, if CE pin is low and PL is high if ( bNewClock && !m_bClock && !m_enable->getDrivenState() && m_strobe->getDrivenState() ) { // Move the shift register left and out. sreg <<= 1; if ( m_Ds->getDrivenState() ) sreg |= 0x01; m_Q->putState ( (sreg & 0x80)!=0 ); m_Qbar->putState ( (sreg & 0x80)==0 ); } m_bClock = bNewClock; } void TTL165::setEnable(bool bNewEnable) { // This is the clock enable pin on this device. No explicit action needed on change. } void TTL165::setStrobe(bool bNewStrobe) { // Strobe copies the contents of the parallel inputs into the shift register if (bNewStrobe && !m_bStrobe) { update_state(); } if ( !bNewStrobe ) { m_Q->putState ( m_D[7]->getDrivenState() ); m_Qbar->putState ( !m_D[7]->getDrivenState() ); } m_bStrobe = bNewStrobe; } void TTL165::update_state() { unsigned short ss = 0; for (int i=0; i<8; i++) { if ( m_D[i]->getDrivenState() ) ss |= 1<assign_pin( 1, m_strobe); package->assign_pin( 2, m_clock); package->assign_pin( 3, m_D[4]); package->assign_pin( 4, m_D[5]); package->assign_pin( 5, m_D[6]); package->assign_pin( 6, m_D[7]); package->assign_pin( 7, m_Qbar); package->assign_pin( 9, m_Q); package->assign_pin(10, m_Ds); package->assign_pin(11, m_D[0]); package->assign_pin(12, m_D[1]); package->assign_pin(13, m_D[2]); package->assign_pin(14, m_D[3]); package->assign_pin(15, m_enable); } } gpsim-0.27.0/modules/switch.h0000644000076400007640000000460211400453557013000 00000000000000/* Copyright (C) 2002 Ralf Forsberg This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __SWITCH_H__ #define __SWITCH_H__ /* IN_MODULE should be defined for modules */ #define IN_MODULE #include "../src/stimuli.h" #include "../src/modules.h" #ifdef HAVE_GUI #include #else struct GtkToggleButton; #endif namespace Switches { class SwitchPin; // defined and implemented in switch.cc class SwitchAttribute; // " " class SwitchBase : public Module, public TriggerObject { public: SwitchBase(const char *_name, const char *_desc); ~SwitchBase(); void update(); virtual void setState(bool); // Inheritances from the Package class virtual void create_iopin_map(); // Inheritance from Module class const virtual char *type() { return ("switch"); }; virtual void do_voltage(); virtual bool switch_closed() { return m_bCurrentState; } virtual SwitchPin * other_pin(SwitchPin *pin); // Attributes call back into the switch through here: double getZopen(); double getZclosed(); protected: SwitchPin *m_pinA; SwitchPin *m_pinB; // State of the switch bool m_bCurrentState; SwitchAttribute *m_aState; // Switch resistance. Float *m_Zopen; Float *m_Zclosed; }; class Switch : public SwitchBase { public: Switch(const char *_name); ~Switch(); virtual void setState(bool); void buttonToggled(); static Module *construct(const char *new_name); protected: // The switch's graphical representation. GtkToggleButton *m_button; private: void create_widget(Switch *sw); static void cb_buttonToggle(GtkToggleButton *button, SwitchBase *This); }; } #endif // __SWITCH_H__ gpsim-0.27.0/modules/encoder.cc0000644000076400007640000001167311400453160013250 00000000000000/* Copyright (C) 2004 Chris Emerson (Based on the push_button Copyright (C) 2002 Carlos Ghirardelli) This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ /* encoder.cc */ /* IN_MODULE should be defined for modules */ #define IN_MODULE #include #include #include #include #include #include #include #include #include #include #include "../config.h" // get the definition for HAVE_GUI #ifdef HAVE_GUI #include #include "../src/gpsim_time.h" #include "../src/packages.h" #include "encoder.h" #define PIN_A (0x01) #define PIN_B (0x02) //-------------------------------------------------------------- // create_iopin_map // // This is where the information for the Module's package is defined. // Specifically, the I/O pins of the module are created. void Encoder::create_iopin_map(void) { // Define the physical package. // The Package class, which is a parent of all of the modules, // is responsible for allocating memory for the I/O pins. // create_pkg(2); // Define the I/O pins and assign them to the package. // There are two things happening here. First, there is // a new I/O pin that is being created. For the binary // indicator, both pins are inputs. The second thing is // that the pins are "assigned" to the package. If we // need to reference these newly created I/O pins (like // below) then we can call the member function 'get_pin'. a_pin = new IO_bi_directional((name() + ".a").c_str()); assign_pin(1, a_pin); package->set_pin_position(1,(float)0.0); b_pin = new IO_bi_directional((name() + ".b").c_str()); assign_pin(2, b_pin); package->set_pin_position(2,(float)0.9999); } //-------------------------------------------------------------- // GUI static void cw_cb (GtkButton *button, Encoder *enc) { enc->send_cw(); } static void ccw_cb (GtkButton *button, Encoder *enc) { enc->send_ccw(); } void Encoder::create_widget(Encoder *enc) { GtkWidget *box1; GtkWidget *buttonl, *buttonr; box1 = gtk_hbox_new (FALSE, 0); buttonl = gtk_button_new_with_label ("ccw"); buttonr = gtk_button_new_with_label (" cw"); gtk_container_set_border_width (GTK_CONTAINER (buttonl), 5); gtk_container_set_border_width (GTK_CONTAINER (buttonr), 5); gtk_signal_connect (GTK_OBJECT (buttonl), "pressed", GTK_SIGNAL_FUNC (ccw_cb), (gpointer)enc); gtk_signal_connect (GTK_OBJECT (buttonr), "pressed", GTK_SIGNAL_FUNC (cw_cb), (gpointer)enc); gtk_widget_show(buttonl); gtk_widget_show(buttonr); gtk_box_pack_start (GTK_BOX (box1), buttonl, FALSE, FALSE, 0); gtk_box_pack_start (GTK_BOX (box1), buttonr, FALSE, FALSE, 0); // Tell gpsim which widget to use in breadboard. enc->set_widget(box1); } //-------------------------------------------------------------- // construct Module * Encoder::construct(const char *_new_name=NULL) { Encoder *enc_p = new Encoder(_new_name); enc_p->create_widget(enc_p); return enc_p; } Encoder::Encoder(const char * _name) : Module(_name, "Encoder"), rs(rot_detent) { create_iopin_map(); } Encoder::~Encoder(void) { /* done elsewhere RRR delete a_pin; delete b_pin; */ } void Encoder::send_cw(void) { switch (rs) { case rot_detent: rs = rot_moving_cw; toggle_a(); /* A toggles before B going clockwise */ schedule_tick(); break; default: // XXX: ought to do something here as well break; } } void Encoder::send_ccw(void) { switch (rs) { case rot_detent: rs = rot_moving_ccw; toggle_b(); schedule_tick(); break; default: // XXX: ought to do something here as well break; } } void Encoder::toggle_a() { a_pin->toggle(); } void Encoder::toggle_b() { b_pin->toggle(); } void Encoder::schedule_tick() { /* XXX: make the time delay configurable */ if (!get_cycles().set_break_delta(100, this)) { std::cerr << "Encoder: error setting breakpoint." << std::endl; } } void Encoder::callback() { switch (rs) { case rot_detent: assert(false); break; case rot_moving_cw: toggle_b(); rs = rot_detent; break; case rot_moving_ccw: toggle_a(); rs = rot_detent; break; default: abort(); } } #endif // HAVE_GUI gpsim-0.27.0/modules/logic.cc0000644000076400007640000003462611400453160012731 00000000000000/* Copyright (C) 2000 T. Scott Dattalo This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ /* Logic.cc This is an example module library for interfacing with gpsim. In here you'll find some simple logic devices: AND2Gate - A 2-input AND gate OR2Gate - A 2-input OR gate */ /* IN_MODULE should be defined for modules */ #define IN_MODULE #include "../config.h" // get the definition for HAVE_GUI #ifdef HAVE_GUI #include /* XPM */ static const gchar * and2_pixmap[] = { "32 32 3 1", " c black", ". c None", "X c white", " ............", " ........", " XXXXXXXXXXXXXXXXXX ........", " XXXXXXXXXXXXXXXXXXXXXX ......", " XXXXXXXXXXXXXXXXXXXXXX ......", " XXXXXXXXXXXXXXXXXXXXXXXX ....", " XXXXXXXXXXXXXXXXXXXXXXXX ...", " XXXXXXXXXXXXXXXXXXXXXXXXX ...", " XXXXXXXXXXXXXXXXXXXXXXXXXXX .", " XXXXXXXXXXXXXXXXXXXXXXXXXXX .", " XXXXXXXXXXXXXXXXXXXXXXXXXXX .", " XXXXXX XXX XXX X XXXXXXX .", " XXXXX X XX XX XX XX XXXXXX .", " XXXX XXX X XX XX XX XXXXXXX ", " XXXX XXX X X X XX XX XXXXXXX ", " XXXX XXX X X X XX XX XXXXXXX ", " XXXX X XX XX XX XXXXXXX ", " XXXX XXX X XX XX XX XXXXXXX ", " XXXX XXX X XXX XX XX XXXXXXX ", " XXXX XXX X XXX X XXXXXXX .", " XXXXXXXXXXXXXXXXXXXXXXXXXXX .", " XXXXXXXXXXXXXXXXXXXXXXXXXXX .", " XXXXXXXXXXXXXXXXXXXXXXXXXXX .", " XXXXXXXXXXXXXXXXXXXXXXXXXXX .", " XXXXXXXXXXXXXXXXXXXXXXXXX ...", " XXXXXXXXXXXXXXXXXXXXXXXX ...", " XXXXXXXXXXXXXXXXXXXXXXXX ....", " XXXXXXXXXXXXXXXXXXXXXX ......", " XXXXXXXXXXXXXXXXXXXXXX ......", " XXXXXXXXXXXXXXXXXX ........", " ........", " ............"}; /* XPM */ static const gchar * or2_pixmap[] = { "32 32 3 1", " c black", ". c None", "X c white", " ............", " ........", " XXXXXXXXXXXXXXXXXX ........", " XXXXXXXXXXXXXXXXXXXXXX ......", " XXXXXXXXXXXXXXXXXXXXXX ......", ". XXXXXXXXXXXXXXXXXXXXXXX ....", ". XXXXXXXXXXXXXXXXXXXXXXX ...", ". XXXXXXXXXXXXXXXXXXXXXXXX ...", ".. XXXXXXXXXXXXXXXXXXXXXXXXX .", ".. XXXXXXXXXXXXXXXXXXXXXXXXX .", ".. XXXXXXXXXXXXXXXXXXXXXXXXX .", ".. XXXXXXX XX XXXXXXXXX .", "... XXXXX XXX X XXX XXXXXXXX .", "... XXXXX XXX X XXX XXXXXXXXX ", "... XXXXX XXX X XXX XXXXXXXXX ", "... XXXXX XXX X XXXXXXXXXX ", "... XXXXX XXX X X XXXXXXXXXXX ", "... XXXXX XXX X XX XXXXXXXXXX ", "... XXXXX XXX X XXX XXXXXXXXX ", "... XXXXXX XX XXX XXXXXXXX .", ".. XXXXXXXXXXXXXXXXXXXXXXXXX .", ".. XXXXXXXXXXXXXXXXXXXXXXXXX .", ".. XXXXXXXXXXXXXXXXXXXXXXXXX .", ".. XXXXXXXXXXXXXXXXXXXXXXXXX .", ". XXXXXXXXXXXXXXXXXXXXXXXX ...", ". XXXXXXXXXXXXXXXXXXXXXXX ...", ". XXXXXXXXXXXXXXXXXXXXXXX ....", " XXXXXXXXXXXXXXXXXXXXXX ......", " XXXXXXXXXXXXXXXXXXXXXX ......", " XXXXXXXXXXXXXXXXXX ........", " ........", " ............"}; static const gchar * xor2_pixmap[] = { "40 32 3 1", " c None", ". c black", "X c white", " .................... ", " .. .................... ", " .... ........................ ", " ... ..XXXXXXXXXXXXXXXXXX.... ", " ... ..XXXXXXXXXXXXXXXXXXXXXX.. ", " ... ..XXXXXXXXXXXXXXXXXXXXXX.. ", " .... ..XXXXXXXXXXXXXXXXXXXXXXX.. ", " ... ..XXXXXXXXXXXXXXXXXXXXXXX... ", " ... ..XXXXXXXXXXXXXXXXXXXXXXXX.. ", " ... ..XXXXXXXXXXXXXXXXXXXXXXXXX.. ", " .... ..XXXXXXXXXXXXXXXXXXXXXXXXX.. ", " ... ..XXXXXXXXXXXXXXXXXXXXXXXXX.. ", " ... ..XXXX.XXX.XX...XX....XXXXX.. ", " .. ..XXX.XXX.X.XXX.X.XXX.XXXX.. ", " .. ..XXXX.X.XX.XXX.X.XXX.XXXXX..", " .. ..XXXX.X.XX.XXX.X.XXX.XXXXX..", " ... ..XXXXX.XXX.XXX.X....XXXXXX..", " ... ..XXXX.X.XX.XXX.X.X.XXXXXXX..", " ... ..XXXX.X.XX.XXX.X.XX.XXXXXX..", " ... ..XXX.XXX.X.XXX.X.XXX.XXXXX..", " ... ..XXX.XXX.XX...XX.XXX.XXXX.. ", " ... ..XXXXXXXXXXXXXXXXXXXXXXXXX.. ", " .. ..XXXXXXXXXXXXXXXXXXXXXXXXX.. ", " ... ..XXXXXXXXXXXXXXXXXXXXXXXXX.. ", " ... ..XXXXXXXXXXXXXXXXXXXXXXXXX.. ", " ... ..XXXXXXXXXXXXXXXXXXXXXXXX.. ", " ... ..XXXXXXXXXXXXXXXXXXXXXXX... ", " ... ..XXXXXXXXXXXXXXXXXXXXXXX.. ", " .... ..XXXXXXXXXXXXXXXXXXXXXX.. ", " ..... ..XXXXXXXXXXXXXXXXXXXXXX.. ", " .... ..XXXXXXXXXXXXXXXXXX.... ", " .. ........................ "}; static const gchar * not_pixmap[] = { "32 32 3 1", " c black", ". c None", "X c white", " ...............................", " .............................", " ...........................", " X ..........................", " XXX ........................", " XXXX ......................", " XXXXXX ....................", " XXXXXXXX ...................", " XXXXXXXXXX .................", " XXXXXXXXXXX ...............", " XXXXXXXXXXXXX ..............", " XXXXXXXXXXXXXXX ............", " XXXXXXXXXXXXXXXX ..... ..", " XXXXXXXXXXXXXXXXXX .. XXX .", " XXXXXXXXXXXXXXXXXXXX XXXXX ", " XXXXXXXXXXXXXXXXXXXXXX XXXXX ", " XXXXXXXXXXXXXXXXXXXX XXXXX ", " XXXXXXXXXXXXXXXXXXX .. XXX .", " XXXXXXXXXXXXXXXXX ..... ..", " XXXXXXXXXXXXXXX ...........", " XXXXXXXXXXXXXX .............", " XXXXXXXXXXXX ...............", " XXXXXXXXXXX ................", " XXXXXXXXX ..................", " XXXXXXX ...................", " XXXXXX .....................", " XXXX .......................", " XXX ........................", " X ..........................", " ...........................", " .............................", " ..............................."}; #endif #include #include #include #include "logic.h" #include "../src/packages.h" #include "../src/gpsim_interface.h" #include "../src/attributes.h" //-------------------------------------------------------------- // Led_Input // This class is a minor extension of a normal IO_input. I may // remove it later, but for now it does serve a simple purpose. // Specifically, this derivation will intercept when a stimulus // is being changed. void Logic_Input::setDrivenState( bool new_state) { if(verbose) cout << name()<< " setDrivenState= " << (new_state ? "high" : "low") << endl; if(new_state != getDrivenState()) { bDrivingState = new_state; bDrivenState = new_state; if(LGParent) { LGParent->update_input_pin(m_iobit, new_state); LGParent->update_state(); } } } ANDGate::ANDGate(const char *name, const char *desc) : LogicGate(name, desc) { } ANDGate::~ANDGate() { } ORGate::ORGate(const char *name, const char *desc) : LogicGate(name, desc) { } ORGate::~ORGate() { } XORGate::XORGate(const char *name, const char *desc) : LogicGate(name, desc) { } XORGate::~XORGate() { } /************************************************************* * * LogicGate class */ LogicGate::LogicGate(const char *name, const char *desc) : Module(name, desc), number_of_pins(0), input_bit_mask(0), input_state(0), pInputPins(0), pOutputPin(0) { #ifdef HAVE_GUI pixmap=0; #endif } LogicGate::~LogicGate() { } //-------------------------------------------------------------- void LogicGate::update_input_pin(unsigned int pin, bool bValue) { unsigned int mask = 1<update_direction(1,true); // make the bidirectional an output // Position pin on middle right side of package package->set_pin_position(1,2.5); assign_pin(OUTPUT_BITPOSITION + 1, pOutputPin); Logic_Input *LIP; int j; pInputPins = (IOPIN **) new char[sizeof (IOPIN *) * (number_of_pins-1)]; string inname; for(i=j=INPUT_FIRST_BITPOSITION; iset_pin_position(i+1, 0.5); // Left side of package else package->set_pin_position(i+1, (float)((i-INPUT_FIRST_BITPOSITION)*0.9999)); // Left side of package assign_pin(i+1, LIP ); // Pin numbers begin at 1 } // Form the logic gate bit masks input_bit_mask = (1<< (number_of_pins-1)) - 1; //initializeAttributes(); } #ifdef HAVE_GUI static gboolean expose(GtkWidget *widget, GdkEventExpose *event, LogicGate *lg) { if(lg->pixmap==0) { puts("LogicGate has no pixmap"); return 0; } gdk_draw_pixmap(widget->window, widget->style->fg_gc[GTK_WIDGET_STATE (widget)], lg->pixmap, event->area.x, event->area.y, event->area.x, event->area.y, event->area.width, event->area.height); return 0; } GtkWidget *LogicGate::create_pixmap(gchar **pixmap_data) { GtkStyle *style; GdkBitmap *mask; GtkWidget *da; int width,height; style = gtk_style_new(); pixmap = gdk_pixmap_colormap_create_from_xpm_d(NULL, gdk_colormap_get_system(), &mask, &style->bg[GTK_STATE_NORMAL], pixmap_data); #if GTK_MAJOR_VERSION >= 2 gdk_drawable_get_size(pixmap,&width,&height); #else gdk_window_get_size(pixmap,&width,&height); #endif da = gtk_drawing_area_new(); gtk_drawing_area_size(GTK_DRAWING_AREA(da),width,height); gtk_signal_connect(GTK_OBJECT(da),"expose_event", (GtkSignalFunc) expose,this); return da; } #endif //-------------------------------------------------------------- // construct Module * AND2Gate::construct(const char *_new_name) { AND2Gate *a2gP = new AND2Gate(_new_name) ; a2gP->set_number_of_pins(3); a2gP->create_iopin_map(); return a2gP; } AND2Gate::AND2Gate(const char *name) : ANDGate(name, "And2Gate") { #ifdef HAVE_GUI if(get_interface().bUsingGUI()) set_widget(create_pixmap((gchar **)and2_pixmap)); #endif } AND2Gate::~AND2Gate() { } void ANDGate::update_state() { pOutputPin->putState((input_state & input_bit_mask) == input_bit_mask); if (pOutputPin->snode) pOutputPin->snode->update(); } //-------------------------------------------------------------- // construct OR2Gate::OR2Gate(const char *name) : ORGate(name, "OR2Gate") { #ifdef HAVE_GUI if(get_interface().bUsingGUI()) set_widget(create_pixmap((gchar **)or2_pixmap)); #endif } OR2Gate::~OR2Gate() { } Module * OR2Gate::construct(const char *_new_name) { OR2Gate *o2gP = new OR2Gate(_new_name) ; o2gP->set_number_of_pins(3); o2gP->create_iopin_map(); return o2gP; } void ORGate::update_state() { pOutputPin->putState((input_state & input_bit_mask) != 0); } //-------------------------------------------------------------- // construct NOT Module * NOTGate::construct(const char *_new_name) { NOTGate *a2gP = new NOTGate(_new_name) ; a2gP->set_number_of_pins(2); a2gP->create_iopin_map(); a2gP->update_state(); return a2gP; } NOTGate::NOTGate(const char *name) : LogicGate(name, "NOTGate") { #ifdef HAVE_GUI if(get_interface().bUsingGUI()) set_widget(create_pixmap((gchar **)not_pixmap)); #endif } NOTGate::~NOTGate() { } void NOTGate::update_state() { if (verbose) cout << name() << " update_state\n"; pOutputPin->putState((input_state & input_bit_mask) == 0); } //-------------------------------------------------------------- // construct XOR2Gate::XOR2Gate(const char *name) : XORGate(name, "XOR2Gate") { #ifdef HAVE_GUI if(get_interface().bUsingGUI()) set_widget(create_pixmap((gchar **)xor2_pixmap)); #endif } XOR2Gate::~XOR2Gate() { } Module * XOR2Gate::construct(const char *_new_name) { XOR2Gate *o2gP = new XOR2Gate(_new_name); o2gP->set_number_of_pins(3); o2gP->create_iopin_map(); return o2gP; } void XORGate::update_state() { bool bNewOutputState=false; unsigned int mask=input_bit_mask; while(mask) { unsigned int lsb = (~mask + 1) & mask; mask ^= lsb; bNewOutputState ^= (lsb & input_state) ? true : false; } pOutputPin->putState(bNewOutputState); } gpsim-0.27.0/modules/i2c.h0000644000076400007640000001620411400453160012143 00000000000000/* Copyright (C) 2006 Scott Dattalo This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #if !defined(__I2C_H__) #define __I2C_H__ namespace I2C_Module { //------------------------------------------------------------------------ // I2C Attributes class I2C_TxBuffer; class I2C_TxReady; class I2C_RxBuffer; class I2C_RxSequence; class I2C_LogFile; class I2C_Send7BitAddress; class I2C_Stop; class I2C_Address; class I2C_Debug; class I2C_SCL_PIN; class I2C_SDA_PIN; class I2CMasterModule; //------------------------------------------------------------------------ // I2C interface // // The pure virtual I2C interface class is used by the I2CMaster // class to establish low-level communications. class I2CInterface { public: virtual ~I2CInterface() { } static void *master_interface(void *); virtual void run_tests()=0; }; //------------------------------------------------------------------------ // I2CMaster // // The I2CMaster can either a) simulate a master interface or b) provide support // for some external code that wishes to serve as a master. class I2CMaster : public TriggerObject, public Module { public: I2CMaster(const char *_name); virtual ~I2CMaster(); static Module *construct(const char *new_name); virtual void create_iopin_map(); void reset(RESET_TYPE); enum eI2CResult { eI2CResAck, // Slave acknowledged last transfer eI2CResNack, // Slave did not acknowledge last transfer eI2CResSuccess, // Last action succeeded eI2CResFailed, // Last action failed. eI2CResCollision, // }; /// There are only three things the I2CMaster hardware knows how /// to do: send start bits, send stop bits, transfer 8 data bits. /// Note that a read operation is performed when the byte '0xff' /// is written. eI2CResult sendStart(); eI2CResult sendStop(); eI2CResult send8BitData(unsigned int data); void send7BitAddress(unsigned addr); /// rising and falling SCL and SDA edges are captured: void new_scl_edge ( bool direction ); void new_sda_edge ( bool direction ); /// Breakpoint stuff virtual void callback(); virtual void callback_print(); virtual char const * bpName() { return "i2cmaster"; } /// When the start, stop or transfer state machines then these /// functions are called. (Classes derived from this one can /// capture this). virtual void startCompleted(); virtual void stopCompleted(); virtual void transferCompleted(); void debug(); /// I/O pins for the I2C bus IO_open_collector *m_pSCL; IO_open_collector *m_pSDA; protected: void wait_uSec(unsigned int uSec); void startIdle(); bool checkSDA_SCL(bool bSDA, bool bSCL); unsigned int m_bitCount; // Current bit number for either Tx or Rx unsigned int m_command; // Most recent command received from I2C host unsigned int m_xfr_data; // Transmit and receive shift register. unsigned int m_TxData; // Next data byte to transmit bool m_nextBit; // Next bit to be sent guint64 future_cycle; I2CMasterModule *m_pI2CModule; private: enum eI2CMicroState { eI2CIdle=0, // Micro states for Start eI2CStartA, // Trying to drive SDA low to begin start eI2CStartB, // Holding Start state (SDA=0, SCL=1) eI2CStartC, // Holding Start state (SDA=0, SCL=0) eI2CListenToAddress, // Some other master initiated a start. eI2CBusy, // Some other Master has control of the bus. // Micro states for Transfer eI2CTransferA, // Transfer- drove SCL low, waiting for it to fall eI2CTransferB, // Transfer- caught SCL low, waiting to update SDA eI2CTransferC, // Transfer- update SDA, wait to drive SCL high eI2CTransferD, // Transfer- drive SCL high, waiting for it to rise eI2CTransferE, // Transfer- caught SCL high, wait before driving low // Micro states for Stop eI2CStopA, // Stop - Waiting to drive SDA high. eI2CStopB, // Stop - drove SDA high Waiting for it to go high. } m_uState; enum eI2CMacroState { //eI2CStart, // In the process of sending a start bit. eI2CStop, // In the process of sending a stop bit eI2CTransfer, // In the prcoess of transferring a byte eI2CMaster, // Bus is idle but we're in control. eI2CSlave, // Bus is idle but we're not in control eI2CIdleBus // Bus is idle and no one owns it } m_mState; const unsigned int m_MSBmask; // MSB of transfer mask. Used in data transfers bool readBit(); void setNextMicroState(eI2CMicroState nextState, unsigned int waitTime); void setNextMacroState(eI2CMacroState nextState); // Define propogation delays. // tClkToData = time between when the I2C clock goes // low and when the I2C module will update it's data // output line. unsigned int tClkToData; // tClkToSample - time between when the I2C clock goes // low and when the I2C module will sample the data // line. unsigned int tClkToSample; /// token - the I2C master interfaces to the I2C client. The /// client runs in a different thread. token synchronizes the /// two threads. // gpsim::Token token; not implemented... /// debug stuff const char *microStateName(eI2CMicroState); const char *macroStateName(eI2CMacroState); /// I2C attribute for the Transmit buffer. Writing a byte to /// this attribute initiates an I2C transmit. I2C_TxBuffer *mTxByte; /// I2C attribute for transmit ready status. 'true' means the module /// is ready to transmit. I2C_TxReady *mTxReady; /// I2C Receive buffer. This holds the last byte received. I2C_RxBuffer *mRxByte; /// I2C Receive Sequence number. This increments everytime a byte is /// received. I2C_RxSequence *mRxSequence; /// I2C 7-bit Address: Writing to here initiates an I2C transaction I2C_Send7BitAddress *mSend7BitAddress; /// I2C 10-bit Address: Writing to here initiates an I2C transaction //I2C_Send10BitAddress *mSend10BitAddress; /// I2C Stop. Complete current transfer then issue a STOP bit I2C_Stop *mStop; /// I2C Module's address I2C_Address *mAddress; /// I2C debug I2C_Debug *mDebug; }; } // end of namespace #endif //!defined(__I2C_H__) gpsim-0.27.0/modules/i2c-eeprom.h0000644000076400007640000000326611400453160013434 00000000000000/* Copyright (C) 2006 T. Scott Dattalo Copyright (C) 2006 Roy R Rankin This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __I2C_EEPROM_H__ #define __I2C_EEPROM_H__ /* IN_MODULE should be defined for modules */ #define IN_MODULE #include "../src/modules.h" #include "../src/ioports.h" #include "../src/stimuli.h" class I2C_EE; class PromAddress; namespace I2C_EEPROM_Modules { class I2C_ENABLE; class I2C_EE_Module : public Module { public: I2C_EE_Module(const char *_name); ~I2C_EE_Module(); static Module *construct_2k(const char *new_name); static Module *construct_16k(const char *new_name); static Module *construct_256k(const char *new_name); virtual void create_iopin_map(); virtual void setEnable(bool bNewState, unsigned int m_bit); protected: I2C_EE *m_eeprom; I2C_ENABLE *m_A[3]; I2C_ENABLE *m_wp; unsigned int chip_select; // Write Protect and A0 - A2 state PromAddress *att_eeprom; }; } // end of namespace I2C_EEEPROM_Modules #endif // __I2C_EEPROM_H__ gpsim-0.27.0/modules/README0000644000076400007640000000031510525705364012206 00000000000000gpsim modules This directory contains modules dynamically loaded by gpsim, but are not part of gpsim proper. Additional modules may be found on gpsim's web page: http://gpsim.sourceforge.net/gpsim.html gpsim-0.27.0/modules/led.h0000664000076400007640000001224411560506115012242 00000000000000/* Copyright (C) 1998,1999,2000 T. Scott Dattalo This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __LED_H__ #define __LED_H__ /* IN_MODULE should be defined for modules */ #define IN_MODULE #include "../src/stimuli.h" #include "../src/ioports.h" #include "../src/symbol.h" #include "../src/trace.h" #include "../src/interface.h" #include namespace Leds { class LED_Interface; // Defined in led.cc class Led_Input; enum ActiveStates { HIGH, LOW }; enum Colors { RED = 0, ORANGE, GREEN, YELLOW, BLUE // Must be last }; //------------------------------------------------------------------------ // LED base class class Led_base //: public Module { public: virtual ~Led_base() { } virtual void build_window() = 0; virtual void update() = 0; virtual void update( GtkWidget *drawable, guint max_width, guint max_height) = 0; LED_Interface *led_interface; }; //------------------------------------------------------------------------ // 7-segment leds // define a point typedef struct { float x; float y; } XfPoint; #define MAX_PTS 6 /* max # of pts per segment polygon */ #define NUM_SEGS 7 /* number of segments in a digit */ /* * These constants give the bit positions for the segmask[] * digit masks. */ #define TOP 0 #define TOP_RIGHT 1 #define BOT_RIGHT 2 #define BOTTOM 3 #define BOT_LEFT 4 #define TOP_LEFT 5 #define MIDDLE 6 //#define DECIMAL_POINT 7 typedef XfPoint segment_pts[NUM_SEGS][MAX_PTS]; class Led_7Segments : public Module, public Led_base, public TriggerObject { public: struct { GdkPoint p[7]; // Segments } segments[7]; GdkPoint offset; int height, slant, segment_thickness; float sxw; float angle; // rise over run float width_factor; // ratio of digit to segment width float small_ratio; // ratio of small to large digits float sec_gap; // gap between normal digits and // seconds, as ratio to digit width float space_factor; /* ratio of digit width to border sp.*/ guint w_width; guint w_height; segment_pts seg_pts; GtkWidget *darea; GdkGC *segment_gc; GdkColor led_segment_on_color; GdkColor led_segment_off_color; GdkColor led_background_color; Led_7Segments(const char *); ~Led_7Segments(); void build_segments( int w, int h); virtual void callback(); virtual void build_window(); virtual void update(); virtual void update( GtkWidget *drawable, guint max_width, guint max_height); unsigned int getPinState(); // Inheritances from the Package class virtual void create_iopin_map(); // Inheritance from Module class const virtual char *type() { return ("led_7segments"); }; static Module *construct(const char *new_name); private: //unsigned int m_segmentStates; Led_Input **m_pins; int m_nPins; }; //------------------------------------------------------------------------ // Simple LED // class ColorAttribute; class ActiveStateAttribute; class Led: public Module, public Led_base, public TriggerObject { public: GtkWidget *darea; GdkGC *gc; GdkColor led_on_color[BLUE+1]; GdkColor led_segment_off_color; int w_width, w_height; gpointer cbp; // cycle break point pointer (need to delete in destructor) Led(const char *); ~Led(); virtual void callback(); virtual void build_window(); virtual void update(); virtual void update( GtkWidget *drawable, guint max_width, guint max_height); // Inheritances from the Package class virtual void create_iopin_map(); // Inheritance from Module class const virtual char *type() { return ("led"); }; static Module *construct(const char *new_name); Colors get_on_color() { return on_color; } void set_on_color(Colors color); ActiveStates get_the_activestate() { return the_activestate; } void set_the_activestate(ActiveStates activestate); private: Led_Input *m_pin; Colors on_color; ColorAttribute *m_colorAttribute; ActiveStates the_activestate; ActiveStateAttribute *m_activestateAttribute; }; } // end of namespace Led #endif // __LED_H__ gpsim-0.27.0/modules/video.h0000644000076400007640000000502011400600073012563 00000000000000/* Copyright (C) 2003 Ralf Forsberg This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __VIDEO_H__ #define __VIDEO_H__ /* IN_MODULE should be defined for modules */ #define IN_MODULE #include "../src/stimuli.h" #include "../src/ioports.h" #include "../src/symbol.h" #include "../src/modules.h" #include class Video; class Video_Interface; /********************************************************* * * Create a class derived from the IOPIN class that * will allow us to intercept when the I/O input is being * driven. (This isn't done for PIC I/O pins because the * logic for handling I/O pin changes resides in the ??? * class.) */ class IOPIN_Monitor : public IOPIN { private: Video *video; public: virtual void setDrivenState( bool new_state); IOPIN_Monitor (Video *v, const char *opt_name) : IOPIN(opt_name) , video(v) { } }; #define XRES 640 #define YRES 625 class Video : public Module { public: IOPIN * sync_pin; IOPIN * lume_pin; guint64 sync_time; // gpsim cycle counter at last H-sync int scanline; unsigned char line[XRES]; // buffer for one line unsigned char shadow[XRES][YRES]; // pixmap mirror Processor *cpu; GtkWidget *window; GtkWidget *da; GdkGC *white_gc, *black_gc, *grey_gc; GdkPixmap *pixmap; int line_nr; int last_line_nr; GdkColor black_color, grey_color, white_color; Video(const char *); ~Video(void); // Inheritances from the Package class virtual void create_iopin_map(void); virtual void update_state(void); virtual int get_num_of_pins(void) {return 2;}; void copy_scanline_to_pixmap(void); int check_for_vrt1(void); int check_for_vrt2(void); guint64 cycles_to_us(guint64 cycles); guint64 us_to_cycles(guint64 cycles); void refresh(void); static Module *construct(const char *new_name); private: Video_Interface *interface; }; #endif // __VIDEO_H__ gpsim-0.27.0/modules/resistor.cc0000664000076400007640000001361012160746027013511 00000000000000/* Copyright (C) 1998,1999,2000,2001 T. Scott Dattalo This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ /* resistor.cc This is gpsim's resistor component. resistor pullup pulldown */ /* IN_MODULE should be defined for modules */ //#define IN_MODULE #include #include #include #include "../config.h" #ifdef HAVE_GUI #include #endif #include "resistor.h" #include "../src/stimuli.h" #include "../src/ioports.h" #include "../src/symbol.h" #include "../src/value.h" #include "../src/gpsim_interface.h" //---------------------------------------- class ResistanceAttribute : public Float { public: PullupResistor *pur; ResistanceAttribute(PullupResistor *ppur) : Float("resistance",0.0,"resistance value of the pullup"), pur(ppur) { if(pur) Float::set((pur->res)->get_Zth()); } virtual void set(double r) { Float::set(r); if(pur) { pur->res->set_Zpullup(r); pur->res->updateNode(); } }; void set(int r) { Float::set((double)r); }; }; //---------------------------------------- class CapacitanceAttribute : public Float { public: PullupResistor *pur; CapacitanceAttribute(PullupResistor *ppur) : Float("capacitance",0.0,"pin capacitance of pullup resistor"), pur(ppur) { if(pur) Float::set(pur->res->get_Cth()); } void set(double r) { Float::set(r); if(pur) { pur->res->set_Cth(r); pur->res->updateNode(); } }; void set(int r) { set(double(r)); }; }; //---------------------------------------- class VoltageAttribute : public Float { public: PullupResistor *pur; VoltageAttribute(PullupResistor *ppur) : Float("voltage",0.0,"Voltage of pullup resistor"), pur(ppur) { if(pur) Float::set(pur->res->get_Vpullup()); } void set(double r) { Float::set(r); if(pur) { pur->res->set_Vpullup(r); pur->res->updateNode(); } }; void set(int r) { set(double(r)); }; }; //-------------------------------------------------------------- // PullupResistor::create_iopin_map // void PullupResistor::create_iopin_map(void) { // The PullupResistor has only one pin. create_pkg(1); // Define the I/O pins and assign them to the package. // There are two things happening here. First, there is // a new I/O pin that is being created.The second thing is // that the pins are "assigned" to the package. If we // need to reference these newly created I/O pins (like // below) then we can call the member function 'get_pin'. assign_pin(1, res); } //-------------------------------------------------------------- Module * PullupResistor::pu_construct(const char *_new_name) { PullupResistor *pur = new PullupResistor(_new_name, "Pullup Resistor"); pur->res->set_Vth(5.0); pur->res->set_Vpullup(5.0); return pur; } //-------------------------------------------------------------- Module * PullupResistor::pd_construct(const char *_new_name) { PullupResistor *pur = new PullupResistor(_new_name, "PullDown resistor", 0.0); pur->res->set_Vth(0); pur->res->set_Vpullup(0.0); return pur; } //-------------------------------------------------------------- PullupResistor::PullupResistor(const char *init_name, const char * desc, float vinit) : Module(init_name, desc) { string s; s = init_name; // set the module name if(init_name) { new_name(init_name); s.append(".pin"); } res = new IO_bi_directional_pu(s.c_str()); res->set_Vpullup(vinit); create_iopin_map(); // Default module attributes. //initializeAttributes(); set_description("\ pullup resistor or generic voltage source\n\ Attributes:\n\ .resistance - pullup resistance\n\ .voltage - pullup or drive voltage\n\ .capacitance - pin capacitance\n\ "); if(verbose)cout << description() << endl; // Note ResistanceAttribute is designed to give access // to res.Zth with a symbol name of "modulename + '.resistance'". attr = new ResistanceAttribute(this); cattr = new CapacitanceAttribute(this); vattr = new VoltageAttribute(this); addSymbol(attr); addSymbol(cattr); addSymbol(vattr); attr->set(10e3); cattr->set(0.); res->setDriving(false); res->update_pullup('1',true); vattr->set(res->get_Vpullup()); #ifdef MANAGING_GUI pu_window = 0; if(get_interface().bUsingGUI()) build_window(); #endif } PullupResistor::~PullupResistor() { removeSymbol(attr); removeSymbol(cattr); removeSymbol(vattr); delete attr; delete cattr; delete vattr; } #ifdef MANAGING_GUI static void pu_cb(GtkWidget *button, gpointer pur_class) { PullupResistor *pur = (PullupResistor *)pur_class; } void PullupResistor::build_window(void) { GtkWidget *buttonbox; GtkWidget *button; pu_window = gtk_window_new (GTK_WINDOW_TOPLEVEL); buttonbox = gtk_hbox_new(FALSE,0); gtk_container_add (GTK_CONTAINER (pu_window), buttonbox); gtk_container_set_border_width (GTK_CONTAINER (buttonbox), 1); button = gtk_button_new_with_label (name().c_str()); gtk_signal_connect(GTK_OBJECT(button), "clicked", (GtkSignalFunc) pu_cb, (gpointer)this); gtk_box_pack_start (GTK_BOX (buttonbox), button, TRUE, TRUE, 0); gtk_widget_show_all (pu_window); set_widget(pu_window); } #endif gpsim-0.27.0/modules/makefile.mingw0000664000076400007640000000270512202777764014164 00000000000000## Makefile for building the gpsim with gcc for mingw. The build ## uses tools running on cygwin, however. ## Use: make -f makefile.mingw TOP = ../.. include ../plat/win32/make.mingw ################################################################ # Nothing much configurable below LIBS = -L $(POPT_PATH)/lib -l popt \ -L $(PANGO_PATH)/lib -l pango-1.0 \ -L $(CAIRO_PATH)/lib -l cairo \ -L $(GDK_PIXBUF_PATH)/lib -l gdk_pixbuf-2.0 \ -L $(GTK_PATH)/lib -l gdk-win32-2.0 -l gtk-win32-2.0 \ -L $(GLIB_PATH)/lib -l glib-2.0 -l gobject-2.0 \ ../src/libgpsim.a INCLUDES = -I ../plat/win32 \ -I $(GLIB_PATH)/include/glib-2.0 -I $(GLIB_PATH)/lib/glib-2.0/include \ -I $(GTK_PATH)/include/gtk-2.0 -I $(GTK_PATH)/lib/gtk-2.0/include \ -I $(ATK_PATH)/include/atk-1.0 \ -I $(PANGO_PATH)/include/pango-1.0 \ -I $(CAIRO_PATH)/include/cairo \ -I $(GDK_PIXBUF_PATH)/include/gdk-pixbuf-2.0 DEFINES += -DHAVE_GUI all : \ ../config.h \ libgpsim_modules.dll modules_OBJECTS = \ gpsim_modules.o \ encoder.o \ i2c.o \ i2c-eeprom.o \ led.o \ logic.o \ push_button.o \ resistor.o \ stimuli.o \ switch.o \ ttl.o \ usart.o \ video.o ../config.h : ../config_win32.h.in (cd .. ; $(AWK) -f plat/win32/configure_win32.awk config_win32.h.in > config.h) ################ The modules DLL libgpsim_modules.dll : $(modules_OBJECTS) $(CXX) $(CFLAGS) $(CLDFLAGS) -shared -o libgpsim_modules.dll ../plat/win32/modules.def $(modules_OBJECTS) $(LIBS) gpsim-0.27.0/modules/led.cc0000664000076400007640000006462411560506115012411 00000000000000/* Copyright (C) 2000 T. Scott Dattalo This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ /* led.cc This is an example module illustrating how gpsim modules may be created. Additional examples may also be found with the gpsim. This particular example creates a 7-segment, common cathode LED display. Pin Numbering of LED: -------------------- a --- f | g | b --- e | | c --- d cc = common cathode Electrical: ---------- a ---|>|---+ b ---|>|---+ c ---|>|---+ d ---|>|---+ e ---|>|---+ f ---|>|---+ g ---|>|---+ | cc How It Works: ------------ Once the Led module has been built (and optionally installed), you can include it in your .stc file. See the examples subdirectory. */ /* IN_MODULE should be defined for modules */ #define IN_MODULE #include #include #include #include #include #include "../config.h" // get the definition for HAVE_GUI #ifdef HAVE_GUI #include #include #include "../src/gpsim_interface.h" #include "../src/gpsim_time.h" #include "led.h" #include "../src/packages.h" namespace Leds { //-------------------------------------------------------------- // // Create an "interface" to gpsim // class LED_Interface : public Interface { private: Led_base *led; int lastport; public: virtual void SimulationHasStopped (gpointer object) { GuiUpdate(object); } virtual void GuiUpdate (gpointer object) { if(led) led->update(); } LED_Interface(Led_base *_led) : Interface((gpointer *) _led) { led = _led; lastport = -1; } }; class Led_Input : public IOPIN { public: Led_Input(const char *n, Led_base *pParent); virtual void setDrivenState(bool); private: Led_base *m_pParent; }; //------------------------------------------------------------------------ // Led_Input::Led_Input(const char *n, Led_base *pParent) : IOPIN(n), m_pParent(pParent) { } void Led_Input::setDrivenState(bool bNewState) { IOPIN::setDrivenState(bNewState); } //------------------------------------------------------------------------ void Led_7Segments::update() { update(darea, w_width,w_height); } void Led_7Segments::callback() { get_cycles().set_break_delta( get_interface().get_update_rate()+1, this); update(); } void Led_7Segments::update( GtkWidget *widget, guint new_width, guint new_height) { guint i; if(!get_interface().bUsingGUI()) return; w_width = new_width; w_height = new_height; GdkDrawable *drawable = widget->window; if(!GTK_WIDGET_REALIZED(widget)) return; if(segment_gc==NULL) { segment_gc = gdk_gc_new(darea->window); gdk_gc_set_line_attributes(segment_gc, 5, GDK_LINE_SOLID, GDK_CAP_ROUND, GDK_JOIN_ROUND); g_assert(segment_gc!=NULL); } // not a very O-O way of doing it... but here we go directly // to the I/O port and get the values of the segments int segment_states = getPinState(); GdkGC *gc = segment_gc; gdk_gc_set_foreground(gc, &led_background_color); gdk_draw_rectangle (drawable, gc, TRUE, 0, 0, w_width, w_height); // cout << "expose led, segment states = " << segment_states << '\n'; if( (segment_states & 1) == 0) { // common cathode, cathode must be low to turn //digits on. gdk_gc_set_foreground(gc,&led_segment_on_color); for(i=0; i<7; i++) { if(segment_states & (2<allocation.width; max_height = widget->allocation.height; led->update(widget,max_width,max_height); return TRUE; } static gint cursor_event (GtkWidget *widget, GdkEvent *event, gpointer *user_data) { if ((event->type == GDK_BUTTON_PRESS) && ((event->button.button == 1) || (event->button.button == 3))) { return TRUE; } return FALSE; } //------------------------------------------------------------------- // build_segments // // from Dclock.c (v.2.0) -- a digital clock widget. // Copyright (c) 1988 Dan Heller // Modifications 2/93 by Tim Edwards // And further modifications by Scott Dattalo // // Each segment on the LED is comprised of a 6 point polygon. // This routine will calculate what those points should be and // store them an arrary. void Led_7Segments::build_segments( int w, int h) { XfPoint *pts; float spacer, hskip, fslope, bslope, midpt, seg_width, segxw; float invcosphi, invsinphi, invcospsi, invsinpsi, slope; float dx1, dx2, dx3, dx4, dx5, dx6, dy1, dy2, dy5, dy6; float xfactor, temp_xpts[4]; w_width = w; w_height = h; // Hard code the display parameters... space_factor = (float)0.13; width_factor = (float)0.13; sxw = (float)0.13; angle = 6; /* define various useful constants */ segxw = sxw * w; slope = angle; seg_width = width_factor * w; spacer = (float)w * space_factor; hskip = (float)(seg_width * 0.125); fslope = 1 / (segxw/seg_width + 1/slope); bslope = -1 / (segxw/seg_width - 1/slope); midpt = (float)h / 2; /* define some trigonometric values */ /* phi is the forward angle separating two segments; psi is the reverse angle separating two segments. */ invsinphi = sqrt(1 + fslope * fslope) / fslope; invcosphi = sqrt(1 + 1/(fslope * fslope)) * fslope; invsinpsi = sqrt(1 + bslope * bslope) / -bslope; invcospsi = sqrt(1 + 1/(bslope * bslope)) * bslope; /* define offsets from easily-calculated points for 6 situations */ dx1 = hskip * invsinphi / (slope/fslope - 1); dy1 = hskip * invcosphi / (1 - fslope/slope); dx2 = hskip * invsinpsi / (1 - slope/bslope); dy2 = hskip * invcospsi / (bslope/slope - 1); dx3 = hskip * invsinphi; dx4 = hskip * invsinpsi; dx5 = hskip * invsinpsi / (1 - fslope/bslope); dy5 = hskip * invcospsi / (bslope/fslope - 1); dx6 = dy5; dy6 = dx5; /* calculate some simple reference points */ temp_xpts[0] = spacer + (h - seg_width)/slope; temp_xpts[1] = spacer + (h - seg_width/2)/slope + segxw/2; temp_xpts[2] = spacer + h/slope + segxw; temp_xpts[3] = temp_xpts[0] + segxw; xfactor = w - 2 * spacer - h / slope - segxw; /* cout << "temp_xpts[2] " << temp_xpts[2] << '\n'; cout << "dx3 " << dx3 << '\n'; cout << "fslope " << fslope << '\n'; */ /* calculate the digit positions */ pts = seg_pts[TOP]; pts[0].y = pts[1].y = 0; pts[0].x = temp_xpts[2] - dx3; pts[1].x = w - spacer - segxw + dx4; pts[2].y = pts[5].y = (seg_width / 2) - dy5 - dy6; pts[5].x = temp_xpts[1] + dx5 - dx6; pts[2].x = pts[5].x + xfactor; pts[3].y = pts[4].y = seg_width; pts[4].x = temp_xpts[3] + dx4; pts[3].x = temp_xpts[0] + xfactor - dx3; pts = &(seg_pts[MIDDLE][0]); pts[0].y = pts[1].y = midpt - seg_width/2; pts[0].x = spacer + (h - pts[0].y)/slope + segxw; pts[1].x = pts[0].x - segxw + xfactor; pts[2].y = pts[5].y = midpt; pts[3].y = pts[4].y = midpt + seg_width/2; pts[5].x = spacer + (h - pts[5].y)/slope + segxw/2; pts[2].x = pts[5].x + xfactor; pts[4].x = pts[0].x - seg_width/slope; pts[3].x = spacer + (h - pts[3].y)/slope + xfactor; pts = &(seg_pts[BOTTOM][0]); pts[3].y = pts[4].y = (float)h; pts[2].y = pts[5].y = h - (seg_width / 2) + dy5 + dy6; pts[0].y = pts[1].y = h - seg_width; pts[0].x = spacer + segxw + seg_width/slope + dx3; pts[1].x = spacer + (h - pts[1].y)/slope + xfactor - dx4; pts[4].x = spacer + segxw - dx4; pts[5].x = spacer + segxw/2 + (h - pts[5].y)/slope + dx6 - dx5; pts[2].x = pts[5].x + xfactor; pts[3].x = spacer + xfactor + dx3; pts = &(seg_pts[TOP_LEFT][0]); pts[0].y = seg_width / 2 - dy6 + dy5; pts[1].y = seg_width + dy2; pts[2].y = seg_pts[MIDDLE][0].y - 2 * dy1; pts[3].y = seg_pts[MIDDLE][5].y - 2 * dy6; pts[4].y = seg_pts[MIDDLE][0].y; pts[5].y = seg_width - dy1; pts[0].x = temp_xpts[1] - dx5 - dx6; pts[1].x = temp_xpts[3] - dx2; pts[2].x = seg_pts[MIDDLE][0].x + 2 * dx1; pts[3].x = seg_pts[MIDDLE][5].x - 2 * dx6; pts[4].x = spacer + (h - pts[4].y)/slope; pts[5].x = temp_xpts[0] + dx1; pts = &(seg_pts[BOT_LEFT][0]); pts[0].y = seg_pts[MIDDLE][5].y + 2 * dy5; pts[1].y = seg_pts[MIDDLE][4].y + 2 * dy2; pts[2].y = seg_pts[BOTTOM][0].y - dy1; pts[3].y = seg_pts[BOTTOM][5].y - 2 * dy6; pts[4].y = h - seg_width + dy2; pts[5].y = midpt + seg_width/2; pts[0].x = seg_pts[MIDDLE][5].x - 2 * dx5; pts[1].x = seg_pts[MIDDLE][4].x - 2 * dx2; pts[2].x = seg_pts[BOTTOM][0].x - dx3 + dx1; pts[3].x = seg_pts[BOTTOM][5].x - 2 * dx6; pts[4].x = spacer + seg_width / slope - dx2; pts[5].x = spacer + (midpt - seg_width/2) / slope; pts = &(seg_pts[TOP_RIGHT][0]); pts[0].y = seg_width/2 - dy5 + dy6; pts[1].y = seg_width - dy2; pts[2].y = midpt - seg_width/2; pts[3].y = midpt - 2 * dy5; pts[4].y = pts[2].y - 2 * dy2; pts[5].y = seg_width + dy1; pts[0].x = temp_xpts[1] + xfactor + dx5 + dx6; pts[1].x = temp_xpts[3] + xfactor + dx1; pts[2].x = seg_pts[MIDDLE][0].x + xfactor; pts[3].x = seg_pts[MIDDLE][5].x + xfactor + dx5 * 2; pts[4].x = seg_pts[TOP_LEFT][4].x + xfactor + dx2 * 2; pts[5].x = temp_xpts[0] + xfactor - dx1; pts = &(seg_pts[BOT_RIGHT][0]); pts[0].y = seg_pts[MIDDLE][2].y + 2 * dy6; pts[1].y = midpt + seg_width / 2; pts[2].y = h - seg_width + dy1; pts[3].y = h - (seg_width / 2) + dy6 - dy5; pts[4].y = h - seg_width - dy2; pts[5].y = seg_pts[MIDDLE][3].y + 2 * dy1; pts[0].x = seg_pts[MIDDLE][2].x + 2 * dx6; pts[1].x = seg_pts[MIDDLE][3].x + segxw; pts[2].x = seg_pts[BOTTOM][1].x + dx4 + segxw - dx1; pts[3].x = seg_pts[BOTTOM][2].x + 2 * dx5; pts[4].x = seg_pts[BOTTOM][1].x + dx4 + dx2; pts[5].x = seg_pts[MIDDLE][3].x - 2 * dx1; // Convert the floating point points into integers. int i,j; for(i=0; isetPinGeometry(i, 0.0, ypos, 0, false); ypos += 12.; } // Here, we create and name the I/O pins. In gpsim, we will reference // the bit positions as LED.seg0, LED.seg1, ..., where LED is the // user-assigned name of the 7-segment LED m_pins[0] = new Led_Input( (name() + ".cc").c_str(), this); int i; char ch; for (ch='0',i = 1; i<8; i++,ch++) m_pins[i] = new Led_Input((name() + ".seg"+ch).c_str(), this); for (i=0; i<8; i++) assign_pin(i+1,m_pins[i]); //initializeAttributes(); } //-------------------------------------------------------------- unsigned int Led_7Segments::getPinState() { unsigned int s=0; double delta_v; for (int i=1; i<8; i++) { delta_v = m_pins[i]->get_nodeVoltage() -m_pins[0]->get_nodeVoltage(); s = (s>>1) | (delta_v > 1.5 ? 0x80 : 0); } return s; } //-------------------------------------------------------------- // construct Module * Led_7Segments::construct(const char *_new_name=0) { Led_7Segments *l7sP = new Led_7Segments(_new_name) ; return l7sP; } class ColorAttribute : public Value { public: ColorAttribute(Led *_led) : Value("color", "On color of LED"), m_led(_led) { } virtual void get(char *return_str, int len); virtual void set(const char *buffer, int buf_size = 0); virtual void set(Value *v); virtual bool Parse(const char *pValue, Colors &bValue); private: Led *m_led; }; void ColorAttribute::set(Value *v) { if ( typeid(*v) == typeid(String)) { char buff[20]; v->get((char *)buff, sizeof(buff)); set(buff); } else throw new TypeMismatch(string("set "), "ColorAttribute", v->showType()); } void ColorAttribute::set(const char *buffer, int len) { if(buffer) { Colors color; if(Parse(buffer, color)) { m_led->set_on_color(color); } else { cout << "ColorAttribute::set " << buffer << " unknown color\n"; } } } void ColorAttribute::get(char *return_str, int len) { if(return_str) { switch(m_led->get_on_color()) { case RED: strncpy(return_str, "red", len); break; case ORANGE: strncpy(return_str, "orange", len); break; case GREEN: strncpy(return_str, "green", len); break; case YELLOW: strncpy(return_str, "yellow", len); break; case BLUE: strncpy(return_str, "blue", len); break; } } } bool ColorAttribute::Parse(const char *pValue, Colors &bValue) { if(strncmp("red", pValue, sizeof("red")) == 0) { bValue = RED; return true; } else if (strncmp("orange", pValue, sizeof("orange")) == 0) { bValue = ORANGE; return true; } else if (strncmp("green", pValue, sizeof("green")) == 0) { bValue = GREEN; return true; } else if (strncmp("yellow", pValue, sizeof("yellow")) == 0) { bValue = YELLOW; return true; } else if (strncmp("blue", pValue, sizeof("blue")) == 0) { bValue = BLUE; return true; } return false; } class ActiveStateAttribute : public Value { public: ActiveStateAttribute(Led *_led) : Value("ActiveState", "high or low"), m_led(_led) { } virtual void get(char *return_str, int len); virtual void set(const char *buffer, int buf_size = 0); virtual void set(Value *v); virtual bool Parse(const char *pValue, ActiveStates &bValue); private: Led *m_led; }; void ActiveStateAttribute::set(Value *v) { if ( typeid(*v) == typeid(String)) { char buff[20]; v->get((char *)buff, sizeof(buff)); set(buff); } else throw new TypeMismatch(string("set "), "ActiveStateAttribute", v->showType()); } void ActiveStateAttribute::set(const char *buffer, int len) { if(buffer) { ActiveStates activestate; if(Parse(buffer, activestate)) { m_led->set_the_activestate(activestate); } else { cout << "ActiveStateAttribute::set " << buffer << " unknown active state\n"; } } } void ActiveStateAttribute::get(char *return_str, int len) { if(return_str) { switch(m_led->get_the_activestate()) { case HIGH: strncpy(return_str, "high", len); break; case LOW: strncpy(return_str, "low", len); break; } } } bool ActiveStateAttribute::Parse(const char *pValue, ActiveStates &bValue) { if(strncmp("high", pValue, sizeof("high")) == 0) { bValue = HIGH; return true; } else if (strncmp("low", pValue, sizeof("low")) == 0) { bValue = LOW; return true; } return false; } //------------------------------------------------------------- // Led (simple) //------------------------------------------------------------- void Led::update() { update(darea, w_width,w_height); } void Led::callback() { get_cycles().set_break_delta( get_interface().get_update_rate()+1, this); update(); } void Led::update( GtkWidget *widget, guint new_width, guint new_height) { if(!get_interface().bUsingGUI()) return; w_width = new_width; w_height = new_height; GdkDrawable *drawable = widget->window; if(!GTK_WIDGET_REALIZED(widget)) return; if(gc==NULL) { gc = gdk_gc_new(darea->window); gdk_gc_set_line_attributes(gc, 5, GDK_LINE_SOLID, GDK_CAP_ROUND, GDK_JOIN_ROUND); g_assert(gc!=NULL); } gdk_gc_set_foreground(gc,&led_segment_off_color); gdk_draw_rectangle (drawable, gc, TRUE, 0, 0, w_width, w_height); // Led is on when DrivenState=TRUE in current HIGH active state OR // when DrivenState=FALSE in current LOW active state. double delta_v ; if (get_the_activestate() == HIGH) delta_v = m_pin->get_nodeVoltage() - m_pin->get_Vth(); else delta_v = m_pin->get_Vth() - m_pin->get_nodeVoltage(); /* if((m_pin->getDrivenState() && get_the_activestate()==HIGH) || (!m_pin->getDrivenState() && get_the_activestate()==LOW)) { */ if (delta_v > 1.5) { gdk_gc_set_foreground(gc,&led_on_color[on_color]); gdk_draw_arc(drawable, gc, TRUE, 0, 0, w_width, w_height, 0,64*360); } } void Led::set_on_color(Colors color) { if (color != on_color) { on_color = color; if (get_interface().bUsingGUI() ) { if (!led_on_color[color].pixel) // color not allocated gdk_colormap_alloc_color(gdk_colormap_get_system(), &led_on_color[color], FALSE, TRUE); update(); } } } void Led::set_the_activestate(ActiveStates activestate) { if (activestate != the_activestate) { if (activestate == HIGH) m_pin->set_Vth(0.); else m_pin->set_Vth(3.5); // includes LED voltage drop the_activestate = activestate; if (get_interface().bUsingGUI() ) { update(); } } } static gint led_expose_event (GtkWidget *widget, GdkEvent *event, gpointer user_data) { Led *led; guint max_width; guint max_height; g_return_val_if_fail (widget != NULL, TRUE); g_return_val_if_fail (GTK_IS_DRAWING_AREA (widget), TRUE); // de-reference the user_data into an led object led = (Led *)user_data; max_width = widget->allocation.width; max_height = widget->allocation.height; led->update(widget,max_width,max_height); return TRUE; } void Led::build_window() { GtkWidget *main_vbox; main_vbox = gtk_vbox_new (FALSE, 5); gtk_container_set_border_width (GTK_CONTAINER (main_vbox), 0); darea = gtk_drawing_area_new (); w_height=20; w_width=20; gtk_widget_set_usize (darea, w_height, w_width); gtk_signal_connect (GTK_OBJECT (darea), "expose_event", GTK_SIGNAL_FUNC (led_expose_event), this); gtk_widget_set_events (darea, GDK_EXPOSURE_MASK | GDK_BUTTON_PRESS_MASK); gtk_widget_show (darea); set_widget(darea); gc=NULL; // The default 'on' color is bright red for(int i = RED; i <= BLUE; i++ ) led_on_color[i].pixel = 0; gdk_color_parse("red3", &led_on_color[RED]); gdk_color_parse("orange", &led_on_color[ORANGE]); gdk_color_parse("green", &led_on_color[GREEN]); gdk_color_parse("yellow", &led_on_color[YELLOW]); gdk_color_parse("blue", &led_on_color[BLUE]); GdkColormap *colormap = gdk_colormap_get_system(); for(int i = RED; i <= BLUE; i++ ) gdk_colormap_alloc_color(colormap, &led_on_color[i], FALSE, TRUE); // The `off' color is dark red led_segment_off_color.red = 0x4000; led_segment_off_color.green = 0x0000; led_segment_off_color.blue = 0x0000; gdk_colormap_alloc_color(colormap, &led_segment_off_color, FALSE, TRUE); } //-------------------------------------------------------------- Led::Led(const char *name) : Module(name, "Simple LED") { create_iopin_map(); // the following will load the driver of the input as would a real // LED m_pin->set_Zth(150.); m_pin->set_Vth(0.); if(get_interface().bUsingGUI()) build_window(); on_color = RED; m_colorAttribute = new ColorAttribute(this); addSymbol(m_colorAttribute); the_activestate = HIGH; m_activestateAttribute = new ActiveStateAttribute(this); addSymbol(m_activestateAttribute); led_interface = new LED_Interface(this); get_interface().add_interface(led_interface); callback(); } Led::~Led() { delete m_colorAttribute; /* deleted elsewhere RRR delete m_pin; */ } //-------------------------------------------------------------- // create_iopin_map // // This is where the information for the Module's package is defined. // Specifically, the I/O pins of the module are created. void Led::create_iopin_map() { create_pkg(1); // Position pin on left side of package package->set_pin_position(1,0.5); // Define the LED Cathode. (The anode is implicitly tied to VCC) m_pin = new Led_Input((name() + ".in").c_str(), this); assign_pin(1, m_pin); //initializeAttributes(); } //-------------------------------------------------------------- // construct Module * Led::construct(const char *_new_name=0) { Led *ledP = new Led(_new_name); return ledP; } } #endif //HAVE_GUI gpsim-0.27.0/modules/resistor.h0000664000076400007640000000334111454166155013356 00000000000000/* Copyright (C) 1998,1999,2000,2001 T. Scott Dattalo This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __RESISTOR_H__ #define __RESISTOR_H__ /* IN_MODULE should be defined for modules */ #define IN_MODULE #ifdef HAVE_GUI #include #else struct GtkToggleButton; #endif #include #include "../src/modules.h" #include "../src/stimuli.h" class ResistanceAttribute; class CapacitanceAttribute; class VoltageAttribute; class PullupResistor : public Module , public TriggerObject { public: IO_bi_directional_pu *res; #ifdef MANAGING_GUI GtkWidget *pu_window; #endif PullupResistor(const char *init_name=NULL, const char *desc=NULL, float vinit=5.0); ~PullupResistor(); // Inheritances from the Package class virtual void create_iopin_map(void); static Module *pu_construct(const char *new_name=NULL); static Module *pd_construct(const char *new_name=NULL); #ifdef MANAGING_GUI void build_window(void); #endif private: ResistanceAttribute *attr; CapacitanceAttribute *cattr; VoltageAttribute *vattr; }; #endif // __RESISTOR_H__ gpsim-0.27.0/modules/gpsim_modules.cc0000664000076400007640000001353111463237710014507 00000000000000/* Copyright (C) 1998,1999,2000 T. Scott Dattalo This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ /* gpsim_modules.cc gpsim supports modules, or thingies, that are not part of gpsim proper. This is to say, that the modules are not compiled and linked with the core gpsim software. Instead, they are compiled and linked separately and then dynamically loaded by gpsim. This approach provides a flexibility to the user to create customized objects for simulation purposes. The big benefit of course, is that the user doesn't have to get bogged down in to the nitty-gritty details of the way gpsim is designed. The templates provided here can serve as a relatively simple example of how one may go about creating customized modules. Please see the README.MODULES for more details on how modules are intended to be used. Here are a list of functions that a gpsim compliant module library should support: void mod_list(void) - Prints a list of the modules in a library Module_Types * get_mod_list(void) - Obtain pointer to the list of modules */ /* IN_MODULE should be defined for modules */ #define IN_MODULE #include #include #include "../config.h" // get the definition for HAVE_GUI #include "../src/modules.h" #include "resistor.h" #include "usart.h" #ifndef _WIN32 //#include "paraface.h" #endif #include "switch.h" #include "logic.h" #ifdef HAVE_GUI #include "led.h" #include "push_button.h" #include "video.h" #include "encoder.h" #endif #include "stimuli.h" #include "ttl.h" #include "i2c-eeprom.h" #include "i2c.h" Module_Types available_modules[] = { #ifndef _WIN32 // Parallel port interface /* TSD - removed 16APR06 - The parallel port interface uses the deprecated IOPORT class. { {"parallel_interface", "paraface"}, Paraface::construct}, */ #endif // Switch { {"switch", "sw"}, Switches::Switch::construct}, // Logic { {"and2", "and2"}, AND2Gate::construct}, { {"or2", "or2"}, OR2Gate::construct}, { {"xor2", "xor2"}, XOR2Gate::construct}, { {"not", "not"}, NOTGate::construct}, #ifdef HAVE_GUI // Leds { {"led_7segments", "led7s"}, Leds::Led_7Segments::construct}, { {"led", "led"}, Leds::Led::construct}, { {"push_button", "pb"}, PushButton::construct }, #endif { {"PortStimulus", "ps"}, ExtendedStimuli::PortStimulus::construct8 }, { {"PortStimulus16", "ps"}, ExtendedStimuli::PortStimulus::construct16 }, { {"PortStimulus32", "ps"}, ExtendedStimuli::PortStimulus::construct32 }, { {"pullup", "pu"}, PullupResistor::pu_construct }, { {"pulldown", "pd"}, PullupResistor::pd_construct }, { {"pulsegen", "pg"}, ExtendedStimuli::PulseGen::construct }, #ifdef HAVE_GUI // PGS added back 23MAY10 // TSD Removed 17APR06 // Video { {"PAL_video", "video"}, Video::construct}, // Encoder { {"Encoder", "encoder"}, Encoder::construct}, #endif // USART { {"usart", "usart"}, USARTModule::USART_construct}, // TTL devices { {"TTL165", "ttl165"}, TTL::TTL165::construct}, { {"TTL377", "ttl377"}, TTL::TTL377::construct}, { {"TTL595", "ttl595"}, TTL::TTL595::construct}, // I2c EEPROM { {"I2C-EEPROM2k", "e24xx024"}, I2C_EEPROM_Modules::I2C_EE_Module::construct_2k}, { {"I2C-EEPROM16k", "e24xx16b"}, I2C_EEPROM_Modules::I2C_EE_Module::construct_16k}, { {"I2C-EEPROM256k", "e24xx256"}, I2C_EEPROM_Modules::I2C_EE_Module::construct_256k}, { {"i2cmaster", "I2CMaster"}, I2C_Module::I2CMaster::construct }, // No more modules { {0,0},0} }; #ifdef __cplusplus extern "C" { #endif /* __cplusplus */ /******************************************************************************** * mod_list - Display all of the modules in this library. * * This is a required function for gpsim compliant libraries. */ Module_Types * get_mod_list(void) { return available_modules; } /******************************************************************************** * mod_list - Display all of the modules in this library. * * This is a required function for gpsim compliant libraries. */ void mod_list(void) { unsigned int number_of = sizeof(available_modules) / sizeof(Module_Types); unsigned int i,j,l; unsigned int k,longest; for(i=0,longest=0; ilongest) longest = k; } k=0; do { for(i=0; (i<4) && (k. */ #ifndef __ENC_H__ #define __ENC_H__ /* IN_MODULE should be defined for modules */ #define IN_MODULE #include "../src/stimuli.h" #include "../src/ioports.h" #include "../src/symbol.h" #include "../src/trace.h" #include "../src/modules.h" #include class Encoder : public Module, private TriggerObject { void create_widget(Encoder *enc); public: IOPIN *a_pin; IOPIN *b_pin; Encoder(const char *); ~Encoder(void); void test(void); void update(void); /* Send clockwise pulses */ void send_cw(void); /* Send anticlockwise pulses */ void send_ccw(void); // Inheritances from the Package class virtual void create_iopin_map(void); // Inheritance from Module class const virtual char *type(void) { return ("encoder"); }; static Module *construct(const char *new_name); private: enum rotate_state { rot_detent, rot_moving_cw, rot_moving_ccw }; rotate_state rs; void toggle_a(); void toggle_b(); void schedule_tick(); void callback(); }; #endif // __ENC_H__ gpsim-0.27.0/modules/i2c.cc0000644000076400007640000010007711400453160012303 00000000000000/* Copyright (C) 2006 Scott Dattalo This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ /* i2c.cc I2C Module for gpsim OVERVIEW: The I2C Module is a plugin module for gpsim (the gnupic simulator) that implements the I2C protocol. BACKGROUND: Application Layer ----------------- The application layer is responsible for interpreting and generating packets. Physical Layer: -------------- The physical layer consists of two wires that model the I2C bus SCL - Open Collector SDA - Open Collector Changes on these lines due to external stimuli will be propogated up to the Datalink Layer. Similarly, the Datalink layer will relay changes in the application layer to the I/O pins Implementation Details ---------------------- The I2C module is designed to be a dynamic library that is loaded by gpsim. A typical scenario would be to start gpsim, load a processor, load the I2C module and connect the I2C module to the processor. The I2C module communicates to the simulator through 3 different mechanisms. First, the I/O pins of the I2C module are manipulated; e.g. the SCL and SDA lines swing low and high. This is a low level physical-type interface. Second, gpsim has a callback mechanism tied into it's real-time timer. The I2C module will set 'callback breakpoints' to occur at specific instances of time. Finally, the last method of communication is through simulator attributes. *** FIXME *** gpsim is a single-threaded software application. This makes it somewhat difficult to implement the state machines in the I2C module. So to get around this problem, the I2C module will spawn a thread for the application layer. In essence, this thread will allow a set of functions to be written that can send and receive byte streams. pThread mutexs will ensure that this thread safely communicates with the I2C state machines that run in the context of the simulator thread. */ //------------------------------------------------------------------------ // I2C State Machines // // The I2C state machines are responible for the physical layer of the I2CMaster. // Here is the general timing of an I2C transaction: // // ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ __ // SDA \__/___X___X___X___X___X___X___\_________/___X___X___X___X___X___X___X___/ \__/ // S A7 A6 A5 A4 A3 A2 A1 R/W ACK D7 D6 D5 D4 D3 D2 D1 D0 /ACK P // ____ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ____ // SCL \__/1\_/2\_/3\_/4\_/5\_/6\_/7\_/8\_/9\___/1\_/2\_/3\_/4\_/5\_/6\_/7\_/8\_/9\_/ // // S = Start // P = Stop // Ai - Address bits // Di - Data bits // R/W - Read or Write. A low means write, i.e. transmission from master to slave // ACK - Acknowledge. The slave holds SDA low to acknowledge the previous transfer // // The gpsim I2C controller breaks the transaction down into smaller // pieces and utilizes state machines for each piece. At the lowest // level, there are three state machines: Start-bit, Stop-bit, and // Data-bit. At the next higher level, is the byte transfer state // machine. And finally, at the highest level is the stream transfer // state machine. // // The start, stop, and data bit state machines use combinations of // timing events and I/O events as inputs for state transitions. For // example, a start bit begins with the bus idle (SDA and SCL both // high) and then with the master driving SDA low. There could be a // delay between SDA being driven low and it actually falling low // (e.g. excessive bus capacitamce or bus hardware error). So the // state machine doesn't make a transition into the start state until // SDA is actually falls low. Similarly, when a bit is being // transmitted, the I2C specification requires certain setup and hlod // times between SDA and SCL. A gpsim cycle callback ensures these // timings are met and the state machine transitions only after the // callback triggers. // // // Start bit State Machine: // ____________________ // SDA \_____________ // __________________________________ // SCL // idle | sendingStart | Start // // The host controller is notified 1uS after SDA goes low. // // // Data bit transfer State Machine: // _____________________________________ __________________________ // bus SDA_____________________________________X__________________________ // ____________________ ________ // bus SCL \__________________________________/ // ________________________________ _______________________________ // SDA________________________________X_______________________________ // __________ ____________________ // SCL \________________________________/ // // TransferE TransferA TransferB TransferC TransferD TransferE // // There are 5 states in the bit-transmit state machine: // // TransferA -- SCL has been driven low and we're waiting for it to fall // TransferB -- SCL has fallen low. We're now waiting t_HD;DAT before driving SDA // TransferC -- SDA has been driven with new data. Now wait t_SU;DAT to release SCL // TransferD -- SCL has been released and we're waiting for it to rise // TransferE -- SCL has risen high. The bit has been transferred. // // // Stop bit State Machine // ---------------------- // // __________ __________ _________ // bus SDA__________X__________\_______________/ // _______________________________________________ // bus SCL__________X__________/ // _____________________ _________________ // SDA__________X__________\_______/ // __________ ____________________________________ // SCL__________X__________/ // // any state Transfer StopA StopB Idle // SDA = 0 // // any state - The stop bit can be initiated at any point. When the // request to send a stop bit is made, the state machine is forced // into the "transfer a bit state". The bit transferred is a // '0'. Once this transition completes, the state machine enters the // Stop bit state machine. // // StopA - SCL is High SDA is Low. Waiting t_HD;DAT before driving SDA high // StopB - SDA has been released and we're waiting for it to rise. // Idle - SDA has been risen high. The master is notified // #include #include #include #include "../src/stimuli.h" #include "../src/modules.h" #include "../src/gpsim_time.h" #include "../src/ui.h" #include "i2c.h" //using namespace gpsim; //using namespace I2C_Module namespace I2C_Module { //#define DEBUG #if defined(DEBUG) #define Dprintf(arg) {printf("%5d:%s ",__LINE__,__FUNCTION__); printf arg; } #else #define Dprintf(arg) {} #endif //static int verbose =1; #define Vprintf(arg) { if (verbose) {printf("%s:%d ",__FILE__,__LINE__); printf arg;} } #ifndef PRINTF_INT64_MODIFIER #ifndef WIN32 #define PRINTF_INT64_MODIFIER "ll" #endif #endif FILE *g_TraceOut = stdout; // A pointer to the simulator's global defined cycle counter class: // (there's an issue with DLL's directly accessing globally declared // objects, so we'll use an accessor function to get a pointer to them // [or in this case, it]) Cycle_Counter *gcycles = 0; //---------------------------------------- #if 0 // defined but not used static double get_time() { double t = (double) gcycles->get(); t /= 2.0; double r = floor(t/1e6); t -= r*1e6; return t; } #endif //------------------------------------------------------------------------ #define isSCLlow() (m_pSCL->getDrivenState() == false) #define isSCLhigh() (m_pSCL->getDrivenState() == true) #define isSDAlow() (m_pSDA->getDrivenState() == false) #define isSDAhigh() (m_pSDA->getDrivenState() == true) //------------------------------------------------------------------------ // I2CPin // // An I2C I/O pin is a bidirectional I/O pin that has a strong driver // for a low state, but a weak driver for the high state. There are // several ways to model that behavior in gpsim. The way chosen here // is to derive from the IO_open_collector class and to modify the // high and low drive output impedances. // // class I2C_PIN : public IO_open_collector { public: I2C_PIN(I2CMaster *pMaster, const char *_name) : IO_open_collector(_name), m_pI2Cmaster(pMaster) { bDrivingState = true; bDrivenState = true; update_direction(IO_bi_directional::DIR_OUTPUT,true); // Set the pullup resistance to 10k ohms: set_Zpullup(10e3); update_pullup('1', // Turn on the pullup resistor. false); // Don't update the node. (none is attached). } void debug() { cout << name() << " digital_state=" << (getDrivingState() ? "high" : "low") << " Vth=" << get_Vth() << " Zth=" << get_Zth() << " driving=" << (getDriving() ? "true" : "false") << endl; } bool isLow() { return bDrivingState == false && bDrivenState == false; } bool isHigh() { return bDrivingState == true && bDrivenState == true; } void setDrivingState(bool new_state) { bDrivingState = new_state; //bDrivenState = new_state; if(snode) snode->update(); } protected: // Parent module I2CMaster *m_pI2Cmaster; }; //------------------------------------------------------------------------ class I2C_SDA_PIN : public I2C_PIN { public: I2C_SDA_PIN (I2CMaster *pMaster, const char *_name) : I2C_PIN (pMaster,_name) { } virtual void setDrivenState(bool new_dstate) { bool diff = new_dstate ^ bDrivenState; Dprintf(("I2C SDA setDrivenState %d diff %d\n", new_dstate,diff)); if( m_pI2Cmaster && diff ) { bDrivenState = new_dstate; m_pI2Cmaster->new_sda_edge(new_dstate); } } }; //------------------------------------------------------------------------ class I2C_SCL_PIN : public I2C_PIN { public: I2C_SCL_PIN (I2CMaster *pMaster, const char *_name) : I2C_PIN (pMaster,_name) { } virtual void setDrivenState(bool new_state) { bool diff = new_state ^ bDrivenState; Dprintf(("I2C SCL setDrivenState %d\n", new_state)); if( m_pI2Cmaster && diff ) { bDrivenState = new_state; m_pI2Cmaster->new_scl_edge(bDrivenState); } } }; //------------------------------------------------------------------------ // I2C attributes // // The I2C attributes expose an interface to the I2C module. Each attribute // can be treated as a variable that a user (or a script) can access. // There are two C++ methods used for assigning new values. The first // is the 'set()' method defined in the Value base class. This is the one // used whenever the user assigns values. The other method is setFromMaster(). // This used whenever the value is changed by the I2C state machine. // //------------------------------------------------------------------------ // I2C_TxBuffer // Data written to this attribute will get transmitted to the client (TouchPad) // class I2C_TxBuffer : public Integer { I2CMaster *i2c; public: I2C_TxBuffer(I2CMaster *); virtual void set(gint64); void setFromMaster(gint64); }; // I2C_TxReady // This read-only attribute let's the user know if the TxBuffer is ready // to accept another byte. class I2C_TxReady : public Boolean { I2CMaster *i2c; public: I2C_TxReady(I2CMaster *); virtual void set(bool); void setFromMaster(bool); }; // I2C_RxBuffer // Holds the last byte received from the client. class I2C_RxBuffer : public Integer { I2CMaster *i2c; public: I2C_RxBuffer(I2CMaster *); virtual void set(gint64); void setFromMaster(gint64); }; // I2C_RxSequence // gpsim attaches a sequence number to every received byte. This // attribute allows the user to query that number. class I2C_RxSequence : public Integer { I2CMaster *i2c; public: I2C_RxSequence(I2CMaster *); virtual void set(gint64); void setFromMaster(gint64); }; // I2C_Send7BitAddress class I2C_Send7BitAddress : public Integer { I2CMaster *i2c; public: I2C_Send7BitAddress(I2CMaster *); virtual void set(gint64); void setFromMaster(gint64); }; // I2C_Stop class I2C_Stop : public Boolean { I2CMaster *i2c; public: I2C_Stop(I2CMaster *); virtual void set(bool); void setFromMaster(bool); }; // I2C_Address class I2C_Address : public Integer { I2CMaster *i2c; public: I2C_Address(I2CMaster *); virtual void set(gint64); // void setFromMaster(gint64); }; // I2C_Address class I2C_Debug : public Integer { I2CMaster *i2c; public: I2C_Debug(I2CMaster *); virtual void set(gint64); // void setFromMaster(gint64); }; //------------------------------------------------------------------------ // I2CMaster::I2CMaster(const char *_name) : TriggerObject(), Module (_name), m_bitCount(0), m_command(0), m_xfr_data(0), future_cycle(0), m_uState(eI2CIdle), m_mState(eI2CIdleBus), m_MSBmask(1<<8) { m_uState = eI2CIdle; // Transmit and Receive propogation delays // The units are simulation cycles. tClkToData = 10; tClkToSample = 10; string sName; sName = _name; sName += ".scl"; m_pSCL = new I2C_SCL_PIN(this, sName.c_str()); sName = _name; sName += ".sda"; m_pSDA = new I2C_SDA_PIN(this, sName.c_str()); mTxByte = new I2C_TxBuffer(this); mTxReady = new I2C_TxReady(this); mRxByte = new I2C_RxBuffer(this); mRxSequence = new I2C_RxSequence(this); mSend7BitAddress = new I2C_Send7BitAddress(this); mStop = new I2C_Stop(this); mAddress = new I2C_Address(this); mDebug = new I2C_Debug(this); //initializeAttributes(); addSymbol(mTxByte); addSymbol(mTxReady); addSymbol(mRxByte); addSymbol(mRxSequence); addSymbol(mSend7BitAddress); addSymbol(mStop); addSymbol(mAddress); addSymbol(mDebug); // We may also want a logging function... } I2CMaster::~I2CMaster() { } void I2CMaster::startIdle() { m_pSDA->setDrivingState(true); m_pSCL->setDrivingState(true); m_uState = eI2CIdle; setNextMacroState(eI2CIdleBus); } bool I2CMaster::checkSDA_SCL(bool bSDA, bool bSCL) { Dprintf((" SDA %d--%d SCL %d--%d\n", m_pSDA->getDrivenState(),bSDA, m_pSCL->getDrivenState(),bSCL)); if (m_pSCL->getDrivenState() == bSCL && m_pSDA->getDrivenState() == bSDA) { Dprintf((" Match\n")); return true; } startIdle(); return false; } //------------------------------------------------------------------------ // callback() - timer callbacks // // The I2C state machines insert wait states and set timeouts. When // these trigger, control is sent here. // void I2CMaster::callback() { Dprintf(("\n")); debug(); // We get here because at some point in the past // we made the request to receive control at this point // in time. So find out what it was: future_cycle=0; switch (m_uState) { case eI2CStartB: if (checkSDA_SCL(false, true)) { setNextMicroState(eI2CStartC, 1000); m_pSCL->setDrivingState(false); return; } break; case eI2CTransferB: // First half of bit transfer where we're driving the clock // If SCL high, then there's something clamping it high (that's a // bus error). // If SCL is low then we'll drive out the new data bit and wait // a few uSec before driving SCL high again if (isSCLlow()) { setNextMicroState(eI2CTransferC, 5); m_pSDA->setDrivingState(m_nextBit); return; } case eI2CTransferC: // Second half of bit transfer. We've just placed the new data bit // onto SDA. SCL should still be low. If it isn't, then there's // something clamping it high (and that's a bus error). // If SCL is low, then we'll drive it high and set a 1mSec time // out. When SCL rises, we'll capture the edge and advance the // state machine. if (isSCLlow()) { setNextMicroState(eI2CTransferD, 1000); m_pSCL->setDrivingState(true); return; } case eI2CTransferE: if (isSCLhigh()) { setNextMicroState(eI2CTransferA, 1000); m_pSCL->setDrivingState(false); return; } case eI2CStopA: if (checkSDA_SCL(false, true)) { setNextMicroState(eI2CStopB, 1000); m_pSDA->setDrivingState(true); } default: // Disable the bus ; } // We reach here if either there was a timeout or // an error in the state machine. startIdle(); } void I2CMaster::callback_print() { cout << "I2CMaster " << CallBackID << '\n'; } //------------------------------------------------------------------------ // readBit() // // Should only be called when SCL is caught rising high. // // readBit() shifts the TransferData register left 1 position and // copies the state of SDA to the LSB position. The MSB shifted out // becomes the nextBit that will be transmitted (that bit is written // to SDA later on). // bool I2CMaster::readBit() { if (m_bitCount) { m_xfr_data <<= 1; m_xfr_data |= m_pSDA->getDrivenState() ? 1 : 0; m_bitCount--; m_nextBit = (m_xfr_data & m_MSBmask) == m_MSBmask; Dprintf(("I2CMaster SCL : Rising edge, data in=%d, nextOut=%d bit_count=%d\n", m_xfr_data&1, m_nextBit, m_bitCount)); return true; } return false; } const char *I2CMaster::microStateName(eI2CMicroState state) { switch (state) { case eI2CIdle: return "eI2CIdle"; case eI2CStartA: return "eI2CStartA"; case eI2CStartB: return "eI2CStartB"; case eI2CStartC: return "eI2CStartC"; case eI2CBusy: return "eI2CBusy"; case eI2CTransferA: return "eI2CTransferA"; case eI2CTransferB: return "eI2CTransferB"; case eI2CTransferC: return "eI2CTransferC"; case eI2CTransferD: return "eI2CTransferD"; case eI2CTransferE: return "eI2CTransferE"; case eI2CStopA: return "eI2CStopA"; case eI2CStopB: return "eI2CStopB"; default: ; } return "eI2Cunknown"; } const char *I2CMaster::macroStateName(eI2CMacroState state) { switch (state) { case eI2CStop: return "eI2CStop"; case eI2CTransfer: return "eI2CTransfer"; case eI2CMaster: return "eI2CMaster"; case eI2CSlave: return "eI2CSlave"; case eI2CIdleBus: return "eI2CIdleBus"; default: ; } return "eI2Cunknown"; } void I2CMaster::debug() { #if defined(DEBUG) cout << " SDA:" << m_pSDA->getDrivenState() << " SCL:" << m_pSCL->getDrivenState() << " microstate:" << microStateName(m_uState) << " macrostate:" << macroStateName(m_mState) << endl; cout << " xfr_data:" << hex << m_xfr_data << " bits:" << m_bitCount << " next bit:" << m_nextBit << " fc: 0x" << future_cycle << endl; #endif } //------------------------------------------------------------------------ // new_scl_edge ( bool direction ) // // Handle SCL transitions // void I2CMaster::new_scl_edge(bool direction) { int curBusState = m_uState; if (verbose) { Vprintf(("I2CMaster::new_scl_edge: %d\n",direction)); debug(); } if ( direction ) { // Rising edge switch (m_uState) { case eI2CTransferD: if (readBit()) setNextMicroState(eI2CTransferE, 5); else if (m_mState == eI2CTransfer) transferCompleted(); else if (m_mState == eI2CStop) setNextMicroState(eI2CStopA, 5); break; case eI2CStopB: // Stop is complete. if (m_mState == eI2CStop) { setNextMacroState(eI2CIdleBus); stopCompleted(); } default: ; } } else { // Falling edge Dprintf(("I2CMaster SCL : Falling edge,data=%d\n ",m_nextBit)); debug(); switch ( m_uState ) { case eI2CIdle : m_pSDA->setDrivingState(true); break; case eI2CStartC: case eI2CStartB: setNextMicroState(eI2CTransferC, 1000); // If the clock went low because of someone else, still clamp. m_pSCL->setDrivingState(false); // Start bit has been sent. SDA and SCL are both low. // hold the start state for a short moment startCompleted(); break; case eI2CTransferA: // We're driving the clock and have just managed to pull it // low. Now set up to drive the next data bit (if we're reading // then the next data bit is a '1'). if (m_bitCount) setNextMicroState(eI2CTransferB, 5); else transferCompleted(); break; default : m_pSDA->setDrivingState(true); // Release the bus break; } } if ((bool)verbose && m_uState != curBusState) { Vprintf(("I2C_EE::new_scl_edge() new bus state = %d\n",m_uState)); debug(); } } //------------------------------------------------------------------------ // new_sda_edge ( bool direction ) // // Handle SDA transitions // void I2CMaster::new_sda_edge ( bool direction ) { Dprintf(("I2CMaster::new_sda_edge: direction:%d\n",direction)); debug(); if ( m_pSCL->getDrivenState() ) { // SCL is high. // If SDA just went low, then we caught a start // If SDA just went high, then we caught a stop. if ( direction ) { // stop bit Dprintf(("I2CMaster SDA : Rising edge in SCL high => stop bit\n")); m_uState = eI2CIdle; } else { // start bit Dprintf(("I2CMaster SDA : Falling edge in SCL high => start bit\n")); if ( m_uState != eI2CStartA ) { Dprintf((" Another Master has started a transaction\n")); // Release SDA and listen to the address m_pSDA->setDrivingState(true); m_uState = eI2CListenToAddress; } else { // Wait 1us before notifying the module. setNextMicroState(eI2CStartB, 5); m_bitCount = 0; m_xfr_data = 0; } } } else { // SCL is low - SDA changed states. We need to make sure the SDA // state matches the SDA state we're driving. If they're different // then that means some other I2C device changed the SDA // state. We need to wait until SCL changes states before // declaring some other master has control. //if (direction != m_nextBit) // cout << "Warning SDA unexpectedly changed to: " << direction << endl; // Another thing we can do is record the time when SDA changed. // This could be useful for recording slave response times. // For now, we do nothing: ; } } void I2CMaster::reset(RESET_TYPE r) { if(future_cycle) { gcycles->clear_break(this); future_cycle = 0; } startIdle(); #if defined(DEBUG) cout << "I2CMaster reset\n"; debug(); #endif } //------------------------------------------------------------------------ // sendStart // If the bus is idle, send a start bit. // I2CMaster::eI2CResult I2CMaster::sendStart() { if ( m_uState == eI2CIdle) { // Drive SDA low and set a 1mS timeout setNextMicroState(eI2CStartA, 1000); m_pSDA->setDrivingState ( false ); return eI2CResSuccess; } return eI2CResFailed; } //------------------------------------------------------------------------ // sendStop() - unconditionally initiate the 'stop' state machine // // Depending on the current state of the I2C bus, the stop state // machine will transition the I2C bus so that a stop bit can be // sent. In all cases, the bus needs to be in the state where SCL is // high and SDA is low. The stop bit occurs when SDA is then driven // high. // // There are 4 possibilities: // SCL=0 SDA=0 - need to drive SCL high // SCL=0 SDA=1 - drive SDA low followed by SCL high // SCL=1 SDA=0 - drive SDA high ==> this will be the stop bit // SCL=1 SDA=1 - drive SCL low followed by SDA low then SCL high. // I2CMaster::eI2CResult I2CMaster::sendStop() { // Can't send a stop if we're a slave. if (m_mState == eI2CStop || m_mState == eI2CSlave) return eI2CResFailed; setNextMacroState(eI2CStop); if (isSCLhigh()) { // && m_pSCL->getDrivingState()) { if (isSDAhigh()) { // SCL is high, SDA high. m_bitCount = 0; m_xfr_data = 0; m_nextBit = false; setNextMicroState(eI2CTransferA, 5); m_pSCL->setDrivingState(false); } else { // SCL is high, SDA low -- perfect. // Now we only need to drive SDA high and we're done. setNextMicroState(eI2CStopA, 5); } } else { if (isSDAhigh()) { // SCL low, SDA high // We need to drive SDA low followed by SCL high. setNextMicroState(eI2CTransferC, 5); m_pSDA->setDrivingState(false); } else { // SCL low, SDA low // We need to drive SCL high. setNextMicroState(eI2CTransferD, 5); m_pSCL->setDrivingState(true); } } return eI2CResSuccess; } //------------------------------------------------------------------------ // send8BitData(unsigned int data) // // The 'Transfer' state machine is initialized here. A transfer can // only commence if we've seen a start (or have just completed a // transfer earlier). SCL should be sitting low. I2CMaster::eI2CResult I2CMaster::send8BitData(unsigned int data) { Dprintf((" send8BitData:0x%x\n",data)); if (isSCLlow()) { mStop->setFromMaster(false); setNextMacroState(eI2CTransfer); m_bitCount = 9; // There are 8 data bits and 1 ACK bit m_xfr_data = (data<<1) | 1; // LSB = 1 ==> we'll release SDA // during ACK m_nextBit = (data & m_MSBmask) == m_MSBmask; // We could also remember how long it's been since SCL has gone // low and possibly wait a shorter amount of time. setNextMicroState(eI2CTransferB, 5); } return eI2CResFailed; } //------------------------------------------------------------------------ // wait_uSec - suspends the I2C state machine. // void I2CMaster::wait_uSec(unsigned int uSec) { guint64 fc = gcycles->get() + (uSec * 2); if(future_cycle) gcycles->reassign_break(future_cycle, fc, this); else gcycles->set_break(fc, this); future_cycle = fc; } //------------------------------------------------------------------------ // void I2CMaster::setNextMicroState(eI2CMicroState nextState, unsigned int waitTime) { Dprintf((" curr:%s next:%s\n",microStateName(m_uState), microStateName(nextState))); m_uState = nextState; wait_uSec(waitTime); } //------------------------------------------------------------------------ // void I2CMaster::setNextMacroState(eI2CMacroState nextState) { Dprintf((" curr:%s next:%s\n",macroStateName(m_mState), macroStateName(nextState))); m_mState = nextState; mStop->setFromMaster(m_mState == eI2CStop); } Module *I2CMaster::construct(const char *new_name) { gcycles = &get_cycles(); I2CMaster *pI2CMaster = new I2CMaster(new_name); pI2CMaster->create_iopin_map(); return pI2CMaster; } //------------------------------------------------------------------------ void I2CMaster::send7BitAddress(unsigned int addr) { Dprintf(("\n")); if (eI2CResSuccess == sendStart()) mTxByte->setFromMaster(addr<<1); } //------------------------------------------------------------------------ void I2CMaster::startCompleted() { Dprintf(("\n")); send8BitData(mTxByte->getVal()); } //------------------------------------------------------------------------ void I2CMaster::stopCompleted() { Dprintf(("\n")); mStop->setFromMaster(true); } //------------------------------------------------------------------------ void I2CMaster::transferCompleted() { Dprintf(("\n")); } //-------------------------------------------------------------- // create_iopin_map // // This is where the information for the I2C Master's package is defined. // Specifically, the I/O pins of the module are created. void I2CMaster::create_iopin_map(void) { // Define the physical package. It has two pins create_pkg(2); assign_pin(1, m_pSCL); assign_pin(2, m_pSDA); } //======================================================================== // I2C Attributes I2C_TxBuffer::I2C_TxBuffer(I2CMaster *_i2c) : Integer("tx",0,"I2C Transmit Register - byte currently transmitting"),i2c(_i2c) { } void I2C_TxBuffer::set(gint64 i) { i &= 0xff; if(i2c) i2c->send8BitData((int)i); Integer::set(i); } void I2C_TxBuffer::setFromMaster(gint64 i) { Integer::set(i); } //######################################## // TxREady - reflects the bus state - if the I2C bus is not owned by another // master, then TxReady is true I2C_TxReady::I2C_TxReady(I2CMaster *_i2c) : Boolean("tx_ready",false, "I2C Transmit Ready - a read-only register that is false only\n" "when some other master controls the I2C bus."), i2c(_i2c) { } void I2C_TxReady::set(bool b) { } void I2C_TxReady::setFromMaster(bool b) { Boolean::set(b); } //######################################## I2C_RxBuffer::I2C_RxBuffer(I2CMaster *_i2c) : Integer("rx",0,"I2C Receive Register - most recently received byte"),i2c(_i2c) { } void I2C_RxBuffer::set(gint64 i) { } void I2C_RxBuffer::setFromMaster(gint64 i) { Integer::set(i); } //######################################## I2C_RxSequence::I2C_RxSequence(I2CMaster *_i2c) : Integer("rx_sequence",0,"I2C Receive Sequence number - increments on each recieved byte"), i2c(_i2c) { } void I2C_RxSequence::set(gint64 i) { } void I2C_RxSequence::setFromMaster(gint64 i) { Integer::set(i); } //######################################## I2C_Send7BitAddress::I2C_Send7BitAddress(I2CMaster *_i2c) : Integer("slaveaddr",0,"I2C slave address - a write to this will send a slave address"), i2c(_i2c) { } void I2C_Send7BitAddress::set(gint64 i) { Dprintf(("setting addr to 0x%lx\n",i)); Integer::set(i); int addr = (int) (i & 0xff); i2c->send7BitAddress(addr); } void I2C_Send7BitAddress::setFromMaster(gint64 i) { Integer::set(i); } //######################################## I2C_Stop::I2C_Stop(I2CMaster *_i2c) : Boolean("stop",0,"I2C stop - transmit a stop bit now"), i2c(_i2c) { } void I2C_Stop::set(bool b) { if (b) { Boolean::set(b); i2c->sendStop(); } } void I2C_Stop::setFromMaster(bool b) { Boolean::set(b); } //######################################## I2C_Address::I2C_Address(I2CMaster *_i2c) : Integer("addr",0,"I2C master address - a write to this sets the master address"), i2c(_i2c) { } void I2C_Address::set(gint64 i) { } //######################################## I2C_Debug::I2C_Debug(I2CMaster *_i2c) : Integer("debug",0,"I2C debug - a write sets debug verbosity"), i2c(_i2c) { } void I2C_Debug::set(gint64 i) { i2c->debug(); } } // end of namespace I2C_Module gpsim-0.27.0/modules/push_button.h0000644000076400007640000000273111400453503014041 00000000000000/* Copyright (C) 2004 Carlos Ghirardelli This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ #ifndef __PSHB_H__ #define __PSHB_H__ /* IN_MODULE should be defined for modules */ #define IN_MODULE #include "../src/stimuli.h" #include "../src/ioports.h" #include "../src/symbol.h" #include "../src/trace.h" #include "../src/modules.h" #include class PushButton : public Module { void create_widget(PushButton *pb); public: IOPIN *pshb_pin; PushButton(const char *); ~PushButton(void); void test(void); void update(void); // Inheritances from the Package class virtual void create_iopin_map(void); // Inheritance from Module class const virtual char *type(void) { return ("push_button"); }; static Module *construct(const char *new_name); }; #endif // __PSHB_H__ gpsim-0.27.0/modules/push_button.cc0000644000076400007640000001047111400453160014176 00000000000000/* Copyright (C) 2002 Carlos Ghirardelli This file is part of the libgpsim_modules library of gpsim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, see . */ /* push_button.cc */ /* IN_MODULE should be defined for modules */ #define IN_MODULE #include #include #include #include #include #include #include #include #include #include "../config.h" // get the definition for HAVE_GUI #ifdef HAVE_GUI #include #include "../src/packages.h" #include "push_button.h" //-------------------------------------------------------------- // create_iopin_map // // This is where the information for the Module's package is defined. // Specifically, the I/O pins of the module are created. void PushButton::create_iopin_map(void) { // Create an I/O port to which the I/O pins can interface // The module I/O pins are treated in a similar manner to // the pic I/O pins. Each pin has a unique pin number that // describes it's position on the physical package. This // pin can then be logically grouped with other pins to define // an I/O port. //pshb_port = new IOPORT(1); //pshb_port->value.put(0); // Here, we name the port `pin'. So in gpsim, we will reference // the bit positions as U1.pin0, U1.pin1, ..., where U1 is the // name of the logic gate (which is assigned by the user and // obtained with the name() member function call). //char *pin_name = (char*)name().c_str(); // Get the name of this switch //if(pin_name) { // pshb_port->new_name(pin_name); //} // Define the physical package. // The Package class, which is a parent of all of the modules, // is responsible for allocating memory for the I/O pins. // create_pkg(1); // Define the I/O pins and assign them to the package. // There are two things happening here. First, there is // a new I/O pin that is being created. For the binary // indicator, both pins are inputs. The second thing is // that the pins are "assigned" to the package. If we // need to reference these newly created I/O pins (like // below) then we can call the member function 'get_pin'. pshb_pin = new IO_bi_directional((name() + ".out").c_str()); assign_pin(1, pshb_pin); package->set_pin_position(1,2.5); // Position pin on middle right side of package if(pshb_pin) pshb_pin->update_direction(1,true); } //-------------------------------------------------------------- // GUI static void press_cb (GtkButton *button, PushButton *pb) { if (pb && pb->pshb_pin) pb->pshb_pin->toggle(); } static void released_cb (GtkButton *button, PushButton *pb) { } void PushButton::create_widget(PushButton *pb) { GtkWidget *box1; GtkWidget *button; box1 = gtk_vbox_new (FALSE, 0); button = gtk_button_new_with_label ((char*)pb->name().c_str()); gtk_container_set_border_width (GTK_CONTAINER (button), 5); gtk_signal_connect (GTK_OBJECT (button), "pressed", GTK_SIGNAL_FUNC (press_cb), (gpointer)pb); gtk_signal_connect (GTK_OBJECT (button), "released", GTK_SIGNAL_FUNC (released_cb), (gpointer)pb); gtk_widget_show(button); gtk_box_pack_start (GTK_BOX (box1), button, FALSE, FALSE, 0); // Tell gpsim which widget to use in breadboard. pb->set_widget(box1); } //-------------------------------------------------------------- // construct Module * PushButton::construct(const char *_new_name=0) { PushButton *pshbP = new PushButton(_new_name) ; pshbP->create_widget(pshbP); return pshbP; } PushButton::PushButton(const char * _name) : Module(_name, "PushButton") { create_iopin_map(); } PushButton::~PushButton(void) { delete pshb_pin; } #endif // HAVE_GUI